version 1.10, 2003/04/19 15:44:58 |
version 1.14, 2003/12/18 10:26:20 |
|
|
@comment $OpenXM: OpenXM/src/asir-doc/parts/builtin/io.texi,v 1.9 2002/09/03 01:50:59 noro Exp $ |
@comment $OpenXM: OpenXM/src/asir-doc/parts/builtin/io.texi,v 1.13 2003/11/27 15:56:08 ohara Exp $ |
\BJP |
\BJP |
@node $BF~=PNO(B,,, $BAH$_9~$_H!?t(B |
@node $BF~=PNO(B,,, $BAH$_9~$_H!?t(B |
@section $BF~=PNO(B |
@section $BF~=PNO(B |
|
|
* bsave bload:: |
* bsave bload:: |
* bload27:: |
* bload27:: |
* print:: |
* print:: |
|
* access:: |
|
* remove_file:: |
* open_file close_file get_line get_byte put_byte purge_stdin:: |
* open_file close_file get_line get_byte put_byte purge_stdin:: |
@end menu |
@end menu |
|
|
Line 527 convenient to minimize programming efforts. |
|
Line 529 convenient to minimize programming efforts. |
|
@end itemize |
@end itemize |
|
|
@example |
@example |
[8] def cat(L) @{ while ( L != [] ) @{ print(car(L),0); L = cdr(L);@} print(""); @} |
[8] def cat(L) @{ while ( L != [] ) @{ print(car(L),0); L = cdr(L);@} |
|
print(""); @} |
[9] cat([xyz,123,"gahaha"])$ |
[9] cat([xyz,123,"gahaha"])$ |
xyz123gahaha |
xyz123gahaha |
@end example |
@end example |
|
|
|
\JP @node access,,, $BF~=PNO(B |
|
\EG @node access,,, Inputs and Outputs |
|
@subsection @code{access} |
|
@findex access |
|
|
|
@table @t |
|
@item access(@var{file}) |
|
\JP :: @var{file} $B$NB8:_$r%F%9%H$9$k(B. |
|
\EG :: testing an existence of @var{file}. |
|
@end table |
|
|
|
@table @var |
|
@item return |
|
(1|0) |
|
@item file |
|
\JP $B%U%!%$%kL>(B |
|
\EG filename |
|
@end table |
|
|
|
@itemize @bullet |
|
\BJP |
|
@item |
|
@var{file} $B$,B8:_$9$l$P(B 1, $BB8:_$7$J$1$l$P(B 0 $B$rJV$9(B. |
|
\E |
|
@end itemize |
|
|
|
\JP @node remove_file,,, $BF~=PNO(B |
|
\EG @node remove_file,,, Inputs and Outputs |
|
@subsection @code{remove_file} |
|
@findex remove_file |
|
|
|
@table @t |
|
@item remove_file(@var{file}) |
|
\JP :: @var{file} $B$r>C5n$9$k(B. |
|
\EG :: Delete an file @var{file}. |
|
@end table |
|
|
|
@table @var |
|
@item return |
|
1 |
|
@item file |
|
\JP $B%U%!%$%kL>(B |
|
\EG filename |
|
@end table |
|
|
\JP @node open_file close_file get_line get_byte put_byte purge_stdin,,, $BF~=PNO(B |
\JP @node open_file close_file get_line get_byte put_byte purge_stdin,,, $BF~=PNO(B |
\EG @node open_file close_file get_line get_byte put_byte purge_stdin,,, Inputs and Outputs |
\EG @node open_file close_file get_line get_byte put_byte purge_stdin,,, Inputs and Outputs |
@subsection @code{open_file}, @code{close_file}, @code{get_line}, @code{get_byte}, @code{put_byte}, @code{purge_stdin} |
@subsection @code{open_file}, @code{close_file}, @code{get_line}, @code{get_byte}, @code{put_byte}, @code{purge_stdin} |
|
|
$BMQ$N>l9g(B @code{"w"}, $BKvHxDI2C$N>l9g(B @code{"a"} $B$J$I(B. |
$BMQ$N>l9g(B @code{"w"}, $BKvHxDI2C$N>l9g(B @code{"a"} $B$J$I(B. |
$B@.8y$7$?>l9g(B, $B%U%!%$%k<1JL;R$H$7$FHsIi@0?t$rJV$9(B. $B<:GT$N>l9g%(%i!<$H$J$k(B. |
$B@.8y$7$?>l9g(B, $B%U%!%$%k<1JL;R$H$7$FHsIi@0?t$rJV$9(B. $B<:GT$N>l9g%(%i!<$H$J$k(B. |
$BITMW$K$J$C$?%U%!%$%k$O(B @code{close_file()} $B$G%/%m!<%:$9$k(B. |
$BITMW$K$J$C$?%U%!%$%k$O(B @code{close_file()} $B$G%/%m!<%:$9$k(B. |
|
$BFCJL$J%U%!%$%kL>(B unix://stdin, unix://stdout, unix://stderr $B$rM?$($k$H(B |
|
$B$=$l$>$lI8=`F~NO(B, $BI8=`=PNO(B, $BI8=`%(%i!<=PNO$r%*!<%W%s$9$k(B. |
|
$B$3$N>l9g%b!<%I;XDj$OL5;k$5$l$k(B. |
@item @code{get_line()} $B$O8=:_%*!<%W%s$7$F$$$k%U%!%$%k$+$i(B 1 $B9TFI$_(B, |
@item @code{get_line()} $B$O8=:_%*!<%W%s$7$F$$$k%U%!%$%k$+$i(B 1 $B9TFI$_(B, |
$BJ8;zNs$H$7$FJV$9(B. $B0z?t$,$J$$>l9g(B, $BI8=`F~NO$+$i(B 1 $B9TFI$`(B. |
$BJ8;zNs$H$7$FJV$9(B. $B0z?t$,$J$$>l9g(B, $BI8=`F~NO$+$i(B 1 $B9TFI$`(B. |
@item @code{get_byte()} $B$O8=:_%*!<%W%s$7$F$$$k%U%!%$%k$+$i(B 1 $B%P%$%HFI$_(B |
@item @code{get_byte()} $B$O8=:_%*!<%W%s$7$F$$$k%U%!%$%k$+$i(B 1 $B%P%$%HFI$_(B |
Line 614 The stream pointer is set at the end of the file. |
|
Line 665 The stream pointer is set at the end of the file. |
|
If successful, it returns a non-negative integer as the file descriptor. |
If successful, it returns a non-negative integer as the file descriptor. |
Otherwise the system error function is called. |
Otherwise the system error function is called. |
Unnecessary files should be closed by @code{close_file()}. |
Unnecessary files should be closed by @code{close_file()}. |
|
If the special file name unix://stdin or unix://stdout or unix://stderr |
|
is given, it returns the file descriptor for the standard input or |
|
the standard output or the standard error stream respectively. |
|
The mode argument is ignored in this case. |
@item @code{get_line()} reads a line from an opened file and returns the |
@item @code{get_line()} reads a line from an opened file and returns the |
line as a string. If no argument is supplied, it reads a line from the |
line as a string. If no argument is supplied, it reads a line from the |
standard input. |
standard input. |