/[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.34 by camm, Thu Sep 16 21:23:28 2004 UTC revision 1.35 by camm, Tue Nov 23 22:37:17 2004 UTC
# Line 483  object if_exists, if_does_not_exist; Line 483  object if_exists, if_does_not_exist;
483    
484          setup_stream_buffer(x);          setup_stream_buffer(x);
485          vs_reset;          vs_reset;
486    
487            if (smm==smm_probe)
488              close_stream(x);
489    
490          return(x);          return(x);
491  }  }
492    
# Line 1982  LFD(Lopen_stream_p)() Line 1986  LFD(Lopen_stream_p)()
1986          vs_base[0] = open_stream_p(vs_base[0]);          vs_base[0] = open_stream_p(vs_base[0]);
1987  }  }
1988    
1989    LFD(Lstream_external_format)()
1990    {
1991            check_arg(1);
1992    
1993            check_type_stream(&vs_base[0]);
1994            vs_base[0] = sKdefault;
1995    }
1996    
1997  LFD(Linteractive_stream_p)()  LFD(Linteractive_stream_p)()
1998  {  {
1999          check_arg(1);          check_arg(1);
# Line 2010  LFD(Lstream_element_type)() Line 2022  LFD(Lstream_element_type)()
2022                     (element_type sLstring_char)                     (element_type sLstring_char)
2023                     (if_exists Cnil iesp)                     (if_exists Cnil iesp)
2024                     (if_does_not_exist Cnil idnesp)                     (if_does_not_exist Cnil idnesp)
2025                       (external_format sKdefault iefp)  
2026                &aux strm)                &aux strm)
2027          enum smmode smm=0;          enum smmode smm=0;
2028          vs_mark;          vs_mark;
# Line 2726  DEF_ORDINARY("ABORT",sKabort,KEYWORD,"") Line 2739  DEF_ORDINARY("ABORT",sKabort,KEYWORD,"")
2739  DEF_ORDINARY("APPEND",sKappend,KEYWORD,"");  DEF_ORDINARY("APPEND",sKappend,KEYWORD,"");
2740  DEF_ORDINARY("CREATE",sKcreate,KEYWORD,"");  DEF_ORDINARY("CREATE",sKcreate,KEYWORD,"");
2741  DEF_ORDINARY("DEFAULT",sKdefault,KEYWORD,"");  DEF_ORDINARY("DEFAULT",sKdefault,KEYWORD,"");
2742    DEF_ORDINARY("EXTERNAL-FORMAT",sKexternal_format,KEYWORD,"");
2743  DEF_ORDINARY("DIRECTION",sKdirection,KEYWORD,"");  DEF_ORDINARY("DIRECTION",sKdirection,KEYWORD,"");
2744  DEF_ORDINARY("ELEMENT-TYPE",sKelement_type,KEYWORD,"");  DEF_ORDINARY("ELEMENT-TYPE",sKelement_type,KEYWORD,"");
2745  DEF_ORDINARY("ERROR",sKerror,KEYWORD,"");  DEF_ORDINARY("ERROR",sKerror,KEYWORD,"");
# Line 2785  gcl_init_file_function() Line 2799  gcl_init_file_function()
2799          make_function("INPUT-STREAM-P", Linput_stream_p);          make_function("INPUT-STREAM-P", Linput_stream_p);
2800          make_function("OUTPUT-STREAM-P", Loutput_stream_p);          make_function("OUTPUT-STREAM-P", Loutput_stream_p);
2801          make_function("OPEN-STREAM-P", Lopen_stream_p);          make_function("OPEN-STREAM-P", Lopen_stream_p);
2802            make_function("STREAM-EXTERNAL-FORMAT", Lstream_external_format);
2803          make_function("INTERACTIVE-STREAM-P", Linteractive_stream_p);          make_function("INTERACTIVE-STREAM-P", Linteractive_stream_p);
2804          make_function("STREAM-ELEMENT-TYPE", Lstream_element_type);          make_function("STREAM-ELEMENT-TYPE", Lstream_element_type);
2805          make_function("CLOSE", Lclose);          make_function("CLOSE", Lclose);

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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