commit cc4cbaec59ef0add41d3b07c2a0f6554882f1350
parent c14c4459e9cfe78f60c9ddb1a0ea129d18b66875
Author: Commit-Bot <unknown>
Date: Tue, 7 Sep 2010 12:18:50 +0000
Automatic commit from picoLisp.tgz, From: Tue, 07 Sep 2010 12:18:50 GMT
Diffstat:
5 files changed, 26 insertions(+), 23 deletions(-)
diff --git a/lib/tags b/lib/tags
@@ -101,7 +101,7 @@ ctl (4115 . "@src64/io.l")
ctty (2644 . "@src64/main.l")
cut (1797 . "@src64/sym.l")
date (2358 . "@src64/main.l")
-dbck (2082 . "@src64/db.l")
+dbck (2086 . "@src64/db.l")
de (549 . "@src64/flow.l")
dec (2323 . "@src64/big.l")
def (473 . "@src64/flow.l")
@@ -140,7 +140,7 @@ fold (3343 . "@src64/sym.l")
for (2247 . "@src64/flow.l")
fork (3276 . "@src64/flow.l")
format (2089 . "@src64/big.l")
-free (2024 . "@src64/db.l")
+free (2028 . "@src64/db.l")
from (3365 . "@src64/io.l")
full (1066 . "@src64/subr.l")
fun? (734 . "@src64/sym.l")
@@ -200,7 +200,7 @@ mapcar (871 . "@src64/apply.l")
mapcon (925 . "@src64/apply.l")
maplist (817 . "@src64/apply.l")
maps (674 . "@src64/apply.l")
-mark (1942 . "@src64/db.l")
+mark (1946 . "@src64/db.l")
match (3062 . "@src64/subr.l")
max (2314 . "@src64/subr.l")
maxi (1395 . "@src64/apply.l")
@@ -282,7 +282,7 @@ replace (1490 . "@src64/subr.l")
rest (2272 . "@src64/main.l")
reverse (1665 . "@src64/subr.l")
rewind (4918 . "@src64/io.l")
-rollback (1875 . "@src64/db.l")
+rollback (1879 . "@src64/db.l")
rot (848 . "@src64/subr.l")
rpc (5059 . "@src64/io.l")
run (331 . "@src64/flow.l")
diff --git a/src64/db.l b/src64/db.l
@@ -1,4 +1,4 @@
-# 30aug10abu
+# 07sep10abu
# (c) Software Lab. Alexander Burger
# 6 bytes in little endian format
@@ -1734,6 +1734,8 @@
call tellEndZ # Close 'tell'
lea Z (L (- (+ III PIPE_BUF))) # Reset buffer pointer
call tellBegZ_Z # Start new 'tell' message
+ ld E (L I) # Get 'any'
+ call prTellEZ # Print to 'tell'
end
ld E (X) # Get external symbol
call prTellEZ # Print to 'tell'
@@ -1760,6 +1762,8 @@
call tellEndZ # Close 'tell'
lea Z (L (- (+ III PIPE_BUF))) # Reset buffer pointer
call tellBegZ_Z # Start new 'tell' message
+ ld E (L I) # Get 'any'
+ call prTellEZ # Print to 'tell'
end
ld E (X) # Get external symbol
call prTellEZ # Print to 'tell'
diff --git a/src64/glob.l b/src64/glob.l
@@ -1,4 +1,4 @@
-# 05aug10abu
+# 06sep10abu
# (c) Software Lab. Alexander Burger
(data 'Globals 0)
@@ -615,7 +615,6 @@ initData
# Bytes
:: Tio byte 0 # Terminal I/O
-:: Flg byte 0 # General flag value
: Repl byte 0 # REPL flag
: PRepl byte 0 # Parent REPL
diff --git a/src64/io.l b/src64/io.l
@@ -1,4 +1,4 @@
-# 05sep10abu
+# 06sep10abu
# (c) Software Lab. Alexander Burger
# Close file descriptor
@@ -2583,7 +2583,7 @@
add C (InFiles) # Get vector
ld C (C) # Slot?
null C # Any?
- jz retnc # No
+ jz ret # No
cmp (C I) (C II) # 'ix' < 'cnt'?
ret # Yes: Return 'c'
@@ -2598,9 +2598,9 @@
jz rdSetASL_F # No
cmp (C I) (C II) # Data in buffer ('ix' < 'cnt')?
if z # No
- lea Z (L -IV) # Beyond last 'poll' structure
+ lea Z (L -V) # Beyond last 'poll' structure
do
- cmp Z (L -IV) # More structures?
+ cmp Z (L -V) # More structures?
jeq ret # No: 'z'
sub Z POLLFD # Next structure
cmp4 (Z) # Found 'fd'?
@@ -2616,9 +2616,9 @@
ret
(code 'rdSetASL_F 0) # Z
- lea Z (L -IV) # Beyond last 'poll' structure
+ lea Z (L -V) # Beyond last 'poll' structure
do
- cmp Z (L -IV) # More structures?
+ cmp Z (L -V) # More structures?
jeq ret # No: 'z'
sub Z POLLFD # Next structure
cmp4 (Z) # Found 'fd'?
@@ -2628,9 +2628,9 @@
ret # Return 'nz'
(code 'wrSetASL_F 0) # Z
- lea Z (L -IV) # Beyond last 'poll' structure
+ lea Z (L -V) # Beyond last 'poll' structure
do
- cmp Z (L -IV) # More structures?
+ cmp Z (L -V) # More structures?
jeq ret # No: 'z'
sub Z POLLFD # Next structure
cmp4 (Z) # Found 'fd'?
@@ -2650,7 +2650,7 @@
push C # <L -I> File descriptor
push E # <L -II> Milliseconds
push E # <L -III> Timeout
- push 0 # <L -IV> Poll array
+ sub S II # <L -IV> Flush flag, <L -V> Poll array
do
ld A (L -I) # File descriptor
null A # Positive?
@@ -2757,7 +2757,7 @@
loop
cmp S (StkLimit) # Stack check
jlt stkErrX
- lea C (L -IV) # Set poll array pointer
+ lea C (L -V) # Set poll array pointer
ld (C) S
sub C S # Calculate poll count
shr C POLLFD_SH
@@ -2781,7 +2781,7 @@
call msec_A # Get milliseconds
sub A E # Time difference
ld (L -III) A # Save it
- set (Flg) 0 # Guarantee flushed pipes
+ set (L -IV) 0 # Guarantee flushed pipes
ld Y (Child) # Iterate children
ld Z (Children) # Count
push X # Save context
@@ -2812,7 +2812,7 @@
lea X (S II) # Buffer pointer
call rdBytesCEX_F # Read data?
if nz # Yes
- set (Flg) 1 # Still got data from pipe
+ set (L -IV) 1 # Still got data from pipe
ld Y (Child) # Iterate children
ld Z (Children) # Count
do
@@ -2879,7 +2879,7 @@
end
add Y VI # Increment by sizeof(child)
loop
- nul (Flg) # All pipes flushed?
+ nul (L -IV) # All pipes flushed?
if z # Yes
ld A (Spkr) # Speaker open?
null A
@@ -2998,7 +2998,7 @@
while ns # Yes
call rdSetRdyASL_F # Ready?
while z # No
- lea S (L -IV) # Drop 'poll' structures
+ lea S (L -V) # Drop 'poll' structures
loop
ld (At) (L II) # Restore '@'
ld A (L -II) # Return milliseconds
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 05sep10abu
+# 07sep10abu
# (c) Software Lab. Alexander Burger
-(de *Version 3 0 3 19)
+(de *Version 3 0 3 20)
# vi:et:ts=3:sw=3
