/[gcl]/gcl/o/file.d
ViewVC logotype

Diff of /gcl/o/file.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21.4.1.2.3 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.21.4.1.2.4 by camm, Thu Nov 6 16:16:50 2003 UTC
# Line 1485  char *s; Line 1485  char *s;
1485  }  }
1486    
1487    
1488  void  
1489  Lmake_synonym_stream()  LFD(Lmake_synonym_stream)()
1490  {  {
1491          object x;          object x;
1492    
# Line 1501  Lmake_synonym_stream() Line 1501  Lmake_synonym_stream()
1501          vs_base[0] = x;          vs_base[0] = x;
1502  }  }
1503    
1504  void  LFD(Lmake_broadcast_stream)()
 Lmake_broadcast_stream()  
1505  {  {
1506          object x;          object x;
1507          int narg, i;          int narg, i;
# Line 1524  Lmake_broadcast_stream() Line 1523  Lmake_broadcast_stream()
1523          vs_base[0] = x;          vs_base[0] = x;
1524  }  }
1525    
1526  static void  LFD(Lmake_concatenated_stream)()
 Lmake_concatenated_stream()  
1527  {  {
1528          object x;          object x;
1529          int narg, i;          int narg, i;
# Line 1547  Lmake_concatenated_stream() Line 1545  Lmake_concatenated_stream()
1545          vs_base[0] = x;          vs_base[0] = x;
1546  }  }
1547    
1548  void  LFD(Lmake_two_way_stream)()
 Lmake_two_way_stream()  
1549  {  {
1550          check_arg(2);          check_arg(2);
1551    
# Line 1562  Lmake_two_way_stream() Line 1559  Lmake_two_way_stream()
1559          vs_popp;          vs_popp;
1560  }  }
1561    
1562  void  LFD(Lmake_echo_stream)()
 Lmake_echo_stream()  
1563  {  {
1564          check_arg(2);          check_arg(2);
1565    
# Line 1604  for the string ~S.", Line 1600  for the string ~S.",
1600  @)  @)
1601    
1602  static void  static void
1603  Lmake_string_output_stream()  FFN(Lmake_string_output_stream)()
1604  {  {
1605          check_arg(0);          check_arg(0);
1606          vs_push(make_string_output_stream(64));          vs_push(make_string_output_stream(64));
1607  }  }
1608    
1609  static void  LFD(Lget_output_stream_string)()
 Lget_output_stream_string()  
1610  {  {
1611          check_arg(1);          check_arg(1);
1612    
# Line 1627  Lget_output_stream_string() Line 1622  Lget_output_stream_string()
1622                  extracts the string associated with the given                  extracts the string associated with the given
1623                  string-output-stream.                  string-output-stream.
1624  */  */
1625  void  LFD(siLoutput_stream_string)()
 siLoutput_stream_string()  
1626  {  {
1627          check_arg(1);          check_arg(1);
1628          if (type_of(vs_base[0]) != t_stream ||          if (type_of(vs_base[0]) != t_stream ||
# Line 1637  siLoutput_stream_string() Line 1631  siLoutput_stream_string()
1631          vs_base[0] = vs_base[0]->sm.sm_object0;          vs_base[0] = vs_base[0]->sm.sm_object0;
1632  }  }
1633    
1634  void  LFD(Lstreamp)()
 Lstreamp()  
1635  {  {
1636          check_arg(1);          check_arg(1);
1637    
# Line 1648  Lstreamp() Line 1641  Lstreamp()
1641                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
1642  }  }
1643    
1644  void  LFD(Linput_stream_p)()
 Linput_stream_p()  
1645  {  {
1646          check_arg(1);          check_arg(1);
1647    
# Line 1660  Linput_stream_p() Line 1652  Linput_stream_p()
1652                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
1653  }  }
1654    
1655  void  LFD(Loutput_stream_p)()
 Loutput_stream_p()  
1656  {  {
1657          check_arg(1);          check_arg(1);
1658    
# Line 1672  Loutput_stream_p() Line 1663  Loutput_stream_p()
1663                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
1664  }  }
1665    
1666  void  LFD(Lstream_element_type)()
 Lstream_element_type()  
1667  {  {
1668          check_arg(1);          check_arg(1);
1669    
# Line 1760  for the file-stream ~S.", Line 1750  for the file-stream ~S.",
1750          }                }      
1751  @)  @)
1752    
1753  void  LFD(Lfile_length)()
 Lfile_length()  
1754  {  {
1755          int i;          int i;
1756    
# Line 1949  DEFVAR("*BINARY-MODULES*",sSAbinary_modu Line 1938  DEFVAR("*BINARY-MODULES*",sSAbinary_modu
1938  @)  @)
1939    
1940  static void  static void
1941  siLget_string_input_stream_index()  FFN(siLget_string_input_stream_index)()
1942  {  {
1943          check_arg(1);          check_arg(1);
1944          check_type_stream(&vs_base[0]);          check_type_stream(&vs_base[0]);
# Line 1958  siLget_string_input_stream_index() Line 1947  siLget_string_input_stream_index()
1947          vs_base[0] = make_fixnum(STRING_INPUT_STREAM_NEXT(vs_base[0]));          vs_base[0] = make_fixnum(STRING_INPUT_STREAM_NEXT(vs_base[0]));
1948  }  }
1949    
1950  static void  LFD(siLmake_string_output_stream_from_string)()
 siLmake_string_output_stream_from_string()  
1951  {  {
1952          object strng, strm;          object strng, strm;
1953    
# Line 1977  siLmake_string_output_stream_from_string Line 1965  siLmake_string_output_stream_from_string
1965          vs_base[0] = strm;          vs_base[0] = strm;
1966  }  }
1967    
1968  void  LFD(siLcopy_stream)()
 siLcopy_stream()  
1969  {  {
1970          object in, out;          object in, out;
1971    
# Line 2035  object strm; Line 2022  object strm;
2022  #ifdef USER_DEFINED_STREAMS  #ifdef USER_DEFINED_STREAMS
2023  /* more support for user defined streams */  /* more support for user defined streams */
2024  static void  static void
2025  siLuser_stream_state()  FFN(siLuser_stream_state)()
2026  {      {    
2027    check_arg(1);    check_arg(1);
2028    
# Line 2109  int out; Line 2096  int out;
2096  }  }
2097    
2098  static void  static void
2099  siLfp_output_stream()  FFN(siLfp_output_stream)()
2100  {check_arg(1);  {check_arg(1);
2101   vs_base[0]=coerce_stream(vs_base[0],1);   vs_base[0]=coerce_stream(vs_base[0],1);
2102  }  }
2103    
2104  static void  static void
2105  siLfp_input_stream()  FFN(siLfp_input_stream)()
2106  {check_arg(1);  {check_arg(1);
2107   vs_base[0]=coerce_stream(vs_base[0],0);   vs_base[0]=coerce_stream(vs_base[0],0);
2108  }  }

Legend:
Removed from v.1.21.4.1.2.3  
changed lines
  Added in v.1.21.4.1.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26