clisp-cvs Digest, Vol 27, Issue 37

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp/doc impbody.xml, 1.524, 1.525 impent.xml, 1.321,	1.322
      impext.xml, 1.536, 1.537 (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Mon, 21 Jul 2008 17:57:43 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/doc impbody.xml, 1.524, 1.525 impent.xml, 1.321,	1.322
	impext.xml, 1.536, 1.537
To: cli...@li...
Message-ID: <E1K...@ma...>

Update of /cvsroot/clisp/clisp/doc
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv31499/doc

Modified Files:
	impbody.xml impent.xml impext.xml 
Log Message:
New user variable CUSTOM:*REOPEN-OPEN-FILE* controls CLISP behavior
when opening an already open file.


Index: impbody.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v
retrieving revision 1.524
retrieving revision 1.525
diff -u -d -r1.524 -r1.525
--- impbody.xml	13 Jul 2008 03:45:37 -0000	1.524
+++ impbody.xml	21 Jul 2008 17:57:41 -0000	1.525
@@ -4497,10 +4497,21 @@
 </para></listitem></varlistentry>
 </variablelist>
 
-<para>When an already opened file is opened again, a &cont-err; is
- &signal;ed, unless both the existing and the new &stream-t;s are read-only
- (i.e., &direction-k; is &input-k; or <constant>:INPUT-IMMUTABLE</constant>).
-</para>
+<simplesect id="reopen"><title>Variable &reopen;</title>
+<para>When an already opened file is opened again, and &not-e; both the
+ existing and the new &stream-t;s are read-only (i.e., &direction-k; is
+ &input-k; or <constant>:INPUT-IMMUTABLE</constant>), the streams can
+ mess up each other and produce unexpected results.
+ The user variable <firstterm>&reopen;</firstterm> controls how &clisp;
+ handles the situation and can take 3 values: <variablelist>
+  <varlistentry><term>&nil;</term><listitem><simpara>
+     do nothing: do not even check that there are other stream pointing
+     to the same file</simpara></listitem></varlistentry>
+  <varlistentry><term>&warn;</term><listitem><simpara>&signal; a
+     &warning-t; and proceed</simpara></listitem></varlistentry>
+  <varlistentry><term>&error;</term><listitem><simpara>&signal; a &cont-err;;
+     this is the default</simpara></listitem></varlistentry>
+</variablelist></para></simplesect>
 
 </section>
 

Index: impext.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v
retrieving revision 1.536
retrieving revision 1.537
diff -u -d -r1.536 -r1.537
--- impext.xml	17 Jul 2008 21:44:51 -0000	1.536
+++ impext.xml	21 Jul 2008 17:57:41 -0000	1.537
@@ -1847,6 +1847,7 @@
   <member>&prompt-finish;</member>
   <member>&prompt-start;</member>
   <member>&prompt-step;</member>
+  <member>&reopen;</member>
   <member>&err-pr-bt;</member>
   <member>&savemem-verbose;</member>
   <member>&count-ansi;</member>

Index: impent.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v
retrieving revision 1.321
retrieving revision 1.322
diff -u -d -r1.321 -r1.322
--- impent.xml	17 Jul 2008 19:51:28 -0000	1.321
+++ impent.xml	21 Jul 2008 17:57:41 -0000	1.322
@@ -366,6 +366,7 @@
 <!ENTITY re-regexp-quote '<link linkend="re-regexp-quote"><function>REGEXP:REGEXP-QUOTE</function></link>'>
 <!ENTITY re-regexp-split '<link linkend="re-regexp-split"><function>REGEXP:REGEXP-SPLIT</function></link>'>
 <!ENTITY re-with-loop-split '<link linkend="re-with-loop-split"><function>REGEXP:WITH-LOOP-SPLIT</function></link>'>
+<!ENTITY reopen '<link linkend="reopen"><varname>CUSTOM:*REOPEN-OPEN-FILE*</varname></link>'>
 <!ENTITY run-cmd '<link linkend="run-prog"><function>EXT:RUN-SHELL-COMMAND</function></link>'>
 <!ENTITY run-prog '<link linkend="run-prog"><function>EXT:RUN-PROGRAM</function></link>'>
 <!ENTITY scr-win '<link linkend="screen"><varname>SCREEN:*WINDOW*</varname></link>'>




------------------------------

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 27, Issue 37
*****************************************