===================================================================
RCS file: /home/cvs/OpenXM/src/asir-doc/parts/builtin/misc.texi,v
retrieving revision 1.13
retrieving revision 1.18
diff -u -p -r1.13 -r1.18
--- OpenXM/src/asir-doc/parts/builtin/misc.texi	2003/08/22 00:44:57	1.13
+++ OpenXM/src/asir-doc/parts/builtin/misc.texi	2003/12/21 17:36:29	1.18
@@ -1,4 +1,4 @@
-@comment $OpenXM: OpenXM/src/asir-doc/parts/builtin/misc.texi,v 1.12 2003/04/20 08:01:29 noro Exp $
+@comment $OpenXM: OpenXM/src/asir-doc/parts/builtin/misc.texi,v 1.17 2003/12/18 10:26:20 ohara Exp $
 \BJP
 @node $B$=$NB>(B,,, $BAH$_9~$_H!?t(B
 @section $B$=$NB>(B
@@ -16,6 +16,8 @@
 * time::
 * cputime tstart tstop::
 * timer::
+* currenttime::
+* sleep::
 * heap::
 * version::
 * shell::
@@ -84,6 +86,14 @@ off $B$N;~(B, $BF~NO$5$l$?IbF0>.?t$O(B, $BG\@:EYI
 @xref{$B%3%^%s%I%i%$%s%*%W%7%g%s(B}.
 @item verbose
 on $B$N;~(B, $BH!?t$N:FDj5A;~$K%a%C%;!<%8$rI=<($9$k(B. 
+@item quiet_mode
+1 $B$N$H$-(B, $B5/F0;~$KCx:n8"I=<($r9T$o$J$$(B. 
+@xref{$B%3%^%s%I%i%$%s%*%W%7%g%s(B}.
+@item prompt
+0 $B$N$H$-%W%m%s%W%H$rI=<($7$J$$(B. 1 $B$N$H$-I8=`%W%m%s%W%H$rI=<((B.
+C $B%9%?%$%k$N%U%)%^%C%HJ8;zNs$r$b$A$$$k$H%f!<%6Dj5A$N%W%m%s%W%H(B.
+$BNc(B(asirgui $B$G$OIT2D(B): 
+@code{ ctrl("prompt","\033[32m[%d]:= \033[0m")}
 @item hex
 1 $B$N$H$-(B, $B@0?t$O(B 0x $B$G;O$^$k(B 16 $B?J?t$H$7$FI=<($5$l$k(B. -1 $B$N$H$-(B, 16 $B?J?t$O(B, 
 $B4V$K(B @samp{|} $B$r$O$5$s$G(B 8 $B7e$4$H$K6h@Z$C$FI=<($5$l$k(B. 
@@ -154,6 +164,15 @@ and as a result, the frequency of garbage collection d
 @xref{Command line options}.
 @item verbose
 If `on' a warning messages is displayed when a function is redefined.
+@item quiet_mode
+If 1 is set, the copyright notice has been displayed at boot time.
+@item prompt
+If the value is 0, then prompt is not output.
+If the value is 1, then the standard prompt is output.
+Asir prompt can be customized by giving a C-style format string.
+Example (for unix asir);
+@code{ ctrl("prompt","\033[32m[%d]:= \033[0m")}
+
 @item hex
 If 1 is set, integers are displayed as hexadecimal numbers with prefix
 @code{0x}. if -1 is set, hexadecimal numbers are displayed with 
@@ -471,7 +490,7 @@ for a reply to interruption prompting are added to the
 @table @t
 \JP @item $B;2>H(B
 \EG @item References
-@fref{cputime tstart tstop}.
+@fref{cputime tstart tstop}, @fref{currenttime}.
 @end table
 
 \JP @node cputime tstart tstop,,, $B$=$NB>(B
@@ -568,7 +587,7 @@ the debug-mode and execute @code{cputime(1)}.
 @table @t
 \JP @item $B;2>H(B
 \EG @item References
-@fref{time}, @fref{ctrl}.
+@fref{time}, @fref{currenttime}, @fref{ctrl}.
 @end table
 
 \JP @node timer,,, $B$=$NB>(B
@@ -579,9 +598,7 @@ the debug-mode and execute @code{cputime(1)}.
 @table @t
 @item timer(@var{interval},@var{expr},@var{val})
 \JP :: $B@)8B;~4V$D$-$G7W;;$r<B9T$9$k(B.
-\BEG
-:: Compute an expression under the interval timer.
-\E
+\EG :: Compute an expression under the interval timer.
 @end table
 
 @table @var
@@ -636,6 +653,71 @@ interval timer expired (VTALRM)
 [11] 
 @end example
 
+\JP @node currenttime,,, $B$=$NB>(B
+\EG @node currenttime,,, Miscellaneouses
+@subsection @code{currenttime}
+@findex currenttime
+
+@table @t
+@item currenttime()
+\JP :: $B8=:_;~9o$r<hF@(B
+\EG :: Get current time.
+@end table
+
+@table @var
+@item return 
+\JP 1970$BG/(B1$B7n(B1$BF|(B0$B;~(B0$BJ,(B0$BIC$+$i$N7P2aIC?t(B.
+\EG UNIX time.
+@end table
+
+@itemize @bullet
+
+@item
+\JP @code{currenttime()} $B$O8=:_;~9o$rJV$9(B.  UNIX $B$N>l9g(B, time(3) $B$r8F$s$G$$$k$@$1$G$"$k(B.
+\EG See also time(3) in UNIX manuals.
+
+@end itemize
+
+@example
+[0] currenttime();
+1071639228
+[1] 
+@end example
+
+\JP @node sleep,,, $B$=$NB>(B
+\EG @node sleep,,, Miscellaneouses
+@subsection @code{sleep}
+@findex sleep
+
+@table @t
+@item sleep(@var{interval})
+\JP :: $B%W%m%;%9$N<B9T$rDd;_(B
+\EG :: Suspend computation for an interval.
+@end table
+
+@table @var
+@item return 
+1
+
+@item interval
+\JP $BDd;_;~4V(B ($B%^%$%/%mIC(B)
+\EG interval (micro second)
+@end table
+
+@itemize @bullet
+
+@item
+\JP @code{sleep()} $B$O(B, $B%W%m%;%9$N<B9T$rDd;_$9$k(B.  UNIX $B$N>l9g(B, usleep $B$r8F$s$G$$$k$@$1$G$"$k(B.
+\EG See also usleep(3) in UNIX manuals.
+
+@end itemize
+
+@example
+[0] sleep(1000);
+1
+[1] 
+@end example
+
 \JP @node heap,,, $B$=$NB>(B
 \EG @node heap,,, Miscellaneouses
 @subsection @code{heap}
@@ -744,8 +826,9 @@ at the activation of @b{Asir}. (@xref{Command line opt
 @b{Asir} $B$N%P!<%8%g%s$r<+A3?t$GJV$9(B.
 \E
 \BEG
-Command @code{version()} returns the version identification number
-, an integer of @b{Asir} in use.
+@item
+Command @code{version()} returns the version identification number, 
+an integer of @b{Asir} in use.
 \E
 @end itemize
 
@@ -843,6 +926,12 @@ cyclic        is            r             sugar
 @var{arg0} $B$,%j%9%H(B, $B%Y%/%H%k(B, $B9TNs0J30$N>l9g(B, $BC1$K(B @var{arg0}, 
 @var{arg1}, ... $B$r0z?t$H$7$F(B @var{function} $B$r8F$S=P$7$=$N(B
 $B7k2L$rJV$9(B. 
+@item
+@code{map} $B$N0z?t(B @var{function} $B$GM?$($i$l$kH!?t$O(B, $BFbItE*$K$bH!?t$H(B
+$B$7$F<BAu$5$l$F$$$J$1$l$P$J$i$J$$(B.  $B$=$&$G$J$1$l$P(B parse error $B$K$J$k(B. 
+$BNc$($P(B @code{map} $B<+?H$d(B @code{car}, @code{cdr} $B$J$I$OFbItE*$K$OH!?t$G(B
+$B$O$J$/(B, Asir $B$NJ8K!$K$*$1$k%-!<%o!<%I$H$7$F<BAu$5$l$F$$$k(B.  $B$7$?$,$C$F(B 
+@code{map} $B$N0z?t$K(B @code{map} $B$r$H$k$3$H$O$G$-$J$$(B.
 \E
 \BEG
 @item