commit b81940e5eb810331b4b3c7fc92aee3985d8664bb
parent d4042d5146ff1fe9490580b7fe5457d13a0cee79
Author: Alexander Burger <abu@software-lab.de>
Date: Sun, 18 Mar 2012 09:01:13 +0100
Minor 'sigio' simplification
Diffstat:
7 files changed, 135 insertions(+), 150 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
* XXmmm12 picoLisp-3.0.10
+ Simplified 'sigio'
Volatile 'NIL' property
Bug in 'fold' (64-bit)
Bug in 'db' for partial '+Aux' access
diff --git a/doc/refS.html b/doc/refS.html
@@ -439,10 +439,10 @@ href="refS.html#show">show</a></code>.
-> NIL
</code></pre>
-<dt><a name="sigio"><code>(sigio ['cnt [. prg]]) -> cnt | prg</code></a>
+<dt><a name="sigio"><code>(sigio 'cnt . prg) -> cnt</code></a>
<dd>Sets a signal handler <code>prg</code> for SIGIO on the file descriptor
-<code>cnt</code>. If called without arguments, the currently installed handler
-is returned. See also <code><a href="refA.html#alarm">alarm</a></code>, <code><a
+<code>cnt</code>. Returns the file descriptor. See also <code><a
+href="refA.html#alarm">alarm</a></code>, <code><a
href="refH.html#*Hup">*Hup</a></code> and <code><a
href="refS.html#*Sig1">*Sig[12]</a></code>.
diff --git a/lib/map b/lib/map
@@ -25,16 +25,16 @@ $ (2950 . "@src64/flow.l")
>> (2627 . "@src64/big.l")
abs (2731 . "@src64/big.l")
accept (145 . "@src64/net.l")
-adr (594 . "@src64/main.l")
+adr (585 . "@src64/main.l")
alarm (471 . "@src64/main.l")
all (780 . "@src64/sym.l")
and (1613 . "@src64/flow.l")
any (3965 . "@src64/io.l")
append (1338 . "@src64/subr.l")
apply (713 . "@src64/apply.l")
-arg (2313 . "@src64/main.l")
-args (2289 . "@src64/main.l")
-argv (2933 . "@src64/main.l")
+arg (2304 . "@src64/main.l")
+args (2280 . "@src64/main.l")
+argv (2924 . "@src64/main.l")
as (139 . "@src64/flow.l")
asoq (3005 . "@src64/subr.l")
assoc (2970 . "@src64/subr.l")
@@ -65,7 +65,7 @@ call (3079 . "@src64/flow.l")
car (5 . "@src64/subr.l")
case (1954 . "@src64/flow.l")
catch (2456 . "@src64/flow.l")
-cd (2688 . "@src64/main.l")
+cd (2679 . "@src64/main.l")
cdaaar (464 . "@src64/subr.l")
cdaadr (487 . "@src64/subr.l")
cdaar (179 . "@src64/subr.l")
@@ -88,7 +88,7 @@ circ (816 . "@src64/subr.l")
circ? (2402 . "@src64/subr.l")
clip (1799 . "@src64/subr.l")
close (4381 . "@src64/io.l")
-cmd (2915 . "@src64/main.l")
+cmd (2906 . "@src64/main.l")
cnt (1413 . "@src64/apply.l")
co (2537 . "@src64/flow.l")
commit (1495 . "@src64/db.l")
@@ -99,9 +99,9 @@ connect (224 . "@src64/net.l")
cons (747 . "@src64/subr.l")
copy (1225 . "@src64/subr.l")
ctl (4254 . "@src64/io.l")
-ctty (2713 . "@src64/main.l")
+ctty (2704 . "@src64/main.l")
cut (1911 . "@src64/sym.l")
-date (2427 . "@src64/main.l")
+date (2418 . "@src64/main.l")
dbck (2110 . "@src64/db.l")
de (532 . "@src64/flow.l")
dec (2323 . "@src64/big.l")
@@ -111,16 +111,16 @@ del (1966 . "@src64/sym.l")
delete (1401 . "@src64/subr.l")
delq (1452 . "@src64/subr.l")
diff (2589 . "@src64/subr.l")
-dir (2846 . "@src64/main.l")
+dir (2837 . "@src64/main.l")
dm (545 . "@src64/flow.l")
do (2130 . "@src64/flow.l")
e (2911 . "@src64/flow.l")
echo (4412 . "@src64/io.l")
-env (606 . "@src64/main.l")
+env (597 . "@src64/main.l")
eof (3524 . "@src64/io.l")
eol (3515 . "@src64/io.l")
err (4234 . "@src64/io.l")
-errno (1377 . "@src64/main.l")
+errno (1368 . "@src64/main.l")
eval (175 . "@src64/flow.l")
ext (5146 . "@src64/io.l")
ext? (1149 . "@src64/sym.l")
@@ -128,7 +128,7 @@ extern (1015 . "@src64/sym.l")
extra (1258 . "@src64/flow.l")
extract (1218 . "@src64/apply.l")
fifo (2077 . "@src64/sym.l")
-file (2793 . "@src64/main.l")
+file (2784 . "@src64/main.l")
fill (3240 . "@src64/subr.l")
filter (1161 . "@src64/apply.l")
fin (2033 . "@src64/subr.l")
@@ -155,7 +155,7 @@ glue (1349 . "@src64/sym.l")
gt0 (2718 . "@src64/big.l")
hash (2976 . "@src64/big.l")
head (1820 . "@src64/subr.l")
-heap (526 . "@src64/main.l")
+heap (517 . "@src64/main.l")
hear (3228 . "@src64/io.l")
host (190 . "@src64/net.l")
id (1025 . "@src64/db.l")
@@ -166,7 +166,7 @@ ifn (1854 . "@src64/flow.l")
in (4194 . "@src64/io.l")
inc (2256 . "@src64/big.l")
index (2637 . "@src64/subr.l")
-info (2750 . "@src64/main.l")
+info (2741 . "@src64/main.l")
intern (990 . "@src64/sym.l")
ipid (3198 . "@src64/flow.l")
isa (961 . "@src64/flow.l")
@@ -183,7 +183,7 @@ lieu (1154 . "@src64/db.l")
line (3699 . "@src64/io.l")
lines (3852 . "@src64/io.l")
link (1172 . "@src64/subr.l")
-lisp (1985 . "@src64/main.l")
+lisp (1976 . "@src64/main.l")
list (887 . "@src64/subr.l")
listen (157 . "@src64/net.l")
lit (150 . "@src64/flow.l")
@@ -222,10 +222,10 @@ n== (2087 . "@src64/subr.l")
nT (2198 . "@src64/subr.l")
name (502 . "@src64/sym.l")
nand (1648 . "@src64/flow.l")
-native (1385 . "@src64/main.l")
+native (1376 . "@src64/main.l")
need (919 . "@src64/subr.l")
new (835 . "@src64/flow.l")
-next (2296 . "@src64/main.l")
+next (2287 . "@src64/main.l")
nil (1731 . "@src64/flow.l")
nond (1931 . "@src64/flow.l")
nor (1669 . "@src64/flow.l")
@@ -239,7 +239,7 @@ onOff (1727 . "@src64/sym.l")
one (1760 . "@src64/sym.l")
open (4338 . "@src64/io.l")
opid (3214 . "@src64/flow.l")
-opt (3036 . "@src64/main.l")
+opt (3027 . "@src64/main.l")
or (1629 . "@src64/flow.l")
out (4214 . "@src64/io.l")
pack (1259 . "@src64/sym.l")
@@ -266,15 +266,15 @@ prog (1749 . "@src64/flow.l")
prog1 (1757 . "@src64/flow.l")
prog2 (1774 . "@src64/flow.l")
prop (2914 . "@src64/sym.l")
-protect (516 . "@src64/main.l")
+protect (507 . "@src64/main.l")
prove (3527 . "@src64/subr.l")
push (1802 . "@src64/sym.l")
push1 (1838 . "@src64/sym.l")
put (2824 . "@src64/sym.l")
putl (3102 . "@src64/sym.l")
-pwd (2677 . "@src64/main.l")
+pwd (2668 . "@src64/main.l")
queue (2034 . "@src64/sym.l")
-quit (1092 . "@src64/main.l")
+quit (1083 . "@src64/main.l")
quote (134 . "@src64/flow.l")
rand (3003 . "@src64/big.l")
range (997 . "@src64/subr.l")
@@ -283,7 +283,7 @@ raw (449 . "@src64/main.l")
rd (5163 . "@src64/io.l")
read (2656 . "@src64/io.l")
replace (1499 . "@src64/subr.l")
-rest (2342 . "@src64/main.l")
+rest (2333 . "@src64/main.l")
reverse (1678 . "@src64/subr.l")
rewind (5129 . "@src64/io.l")
rollback (1895 . "@src64/db.l")
@@ -303,7 +303,7 @@ sort (3962 . "@src64/subr.l")
sp? (719 . "@src64/sym.l")
space (5063 . "@src64/io.l")
split (1592 . "@src64/subr.l")
-stack (555 . "@src64/main.l")
+stack (546 . "@src64/main.l")
state (1998 . "@src64/flow.l")
stem (1989 . "@src64/subr.l")
str (4019 . "@src64/io.l")
@@ -324,7 +324,7 @@ text (1387 . "@src64/sym.l")
throw (2482 . "@src64/flow.l")
tick (3166 . "@src64/flow.l")
till (3610 . "@src64/io.l")
-time (2560 . "@src64/main.l")
+time (2551 . "@src64/main.l")
touch (1164 . "@src64/sym.l")
trim (1759 . "@src64/subr.l")
try (1168 . "@src64/flow.l")
@@ -333,13 +333,13 @@ udp (301 . "@src64/net.l")
unify (3935 . "@src64/subr.l")
unless (1890 . "@src64/flow.l")
until (2074 . "@src64/flow.l")
-up (700 . "@src64/main.l")
+up (691 . "@src64/main.l")
upp? (3382 . "@src64/sym.l")
uppc (3446 . "@src64/sym.l")
use (1562 . "@src64/flow.l")
-usec (2665 . "@src64/main.l")
+usec (2656 . "@src64/main.l")
val (1577 . "@src64/sym.l")
-version (3050 . "@src64/main.l")
+version (3041 . "@src64/main.l")
wait (3150 . "@src64/io.l")
when (1873 . "@src64/flow.l")
while (2050 . "@src64/flow.l")
diff --git a/src/main.c b/src/main.c
@@ -1,4 +1,4 @@
-/* 27oct11abu
+/* 18mar12abu
* (c) Software Lab. Alexander Burger
*/
@@ -204,18 +204,14 @@ any doAlarm(any x) {
return boxCnt(n);
}
-// (sigio ['cnt [. prg]]) -> cnt | prg
+// (sigio 'cnt . prg) -> cnt
any doSigio(any ex) {
- any x;
- int fd;
-
- if (!isCell(x = cdr(ex)))
- return Sigio;
- x = EVAL(car(x)), fd = (int)xCnt(ex,x);
- if (isCell(Sigio = cddr(ex))) {
- fcntl(fd, F_SETOWN, unBox(val(Pid)));
- fcntl(fd, F_SETFL, fcntl(fd, F_GETFL, 0) | O_NONBLOCK|O_ASYNC);
- }
+ any x = EVAL(cadr(ex));
+ int fd = (int)xCnt(ex,x);
+
+ Sigio = cddr(ex);
+ fcntl(fd, F_SETOWN, unBox(val(Pid)));
+ fcntl(fd, F_SETFL, fcntl(fd, F_GETFL, 0) | O_NONBLOCK|O_ASYNC);
return x;
}
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 27oct11abu
+# 18mar12abu
# (c) Software Lab. Alexander Burger
(code 'Code)
@@ -483,31 +483,22 @@
pop X
ret
-# (sigio ['cnt [. prg]]) -> cnt | prg
+# (sigio 'cnt . prg) -> cnt
(code 'doSigio 2)
push X
push Y
ld X E
ld Y (E CDR) # Y on args
- atom Y # Any?
- if nz # No
- ld E (Sigio) # Return current handler
- else
- call evCntXY_FE # Get fd
- ld Y (Y CDR) # Handler 'prg'
- ld (Sigio) Y # Save in 'Sigio'
- atom Y # Any?
- if z # Yes
- ld A (Pid) # Get process ID
- shr A 4 # Normalize
- cc fcntl(E F_SETOWN A) # Receive SIGIO events
- cc fcntl(E F_GETFL 0) # Get file status flags
- or A (| O_NONBLOCK O_ASYNC)
- cc fcntl(E F_SETFL A) # Set file status flags
- end
- shl E 4 # Return fd
- or E CNT
- end
+ call evCntXY_FE # Get fd
+ ld (Sigio) (Y CDR) # Set handler
+ ld A (Pid) # Get process ID
+ shr A 4 # Normalize
+ cc fcntl(E F_SETOWN A) # Receive SIGIO events
+ cc fcntl(E F_GETFL 0) # Get file status flags
+ or A (| O_NONBLOCK O_ASYNC)
+ cc fcntl(E F_SETFL A) # Set file status flags
+ shl E 4 # Return fd
+ or E CNT
pop Y
pop X
ret
diff --git a/src64/tags b/src64/tags
@@ -425,12 +425,12 @@ badFdErrEX err.l 525
badInputErrB err.l 545
balanceCEY sym.l 902
balanceXY sym.l 884
-begString main.l 2251
+begString main.l 2242
binPrintEZ io.l 730
binReadZ_FE io.l 519
blkPeekCEZ db.l 392
blkPokeCEZ db.l 403
-boxE_E main.l 2219
+boxE_E main.l 2210
boxNumA_A gc.l 872
boxNumE_E gc.l 886
boxNum_A gc.l 824
@@ -446,31 +446,31 @@ byteNumBCX_CX io.l 463
byteSymBCX_CX io.l 1291
caseDataA_AC sym.l 3355
caught flow.l 2472
-cbl main.l 1854
-cbl1 main.l 1887
-cbl10 main.l 1923
-cbl11 main.l 1927
-cbl12 main.l 1931
-cbl13 main.l 1935
-cbl14 main.l 1939
-cbl15 main.l 1943
-cbl16 main.l 1947
-cbl17 main.l 1951
-cbl18 main.l 1955
-cbl19 main.l 1959
-cbl2 main.l 1891
-cbl20 main.l 1963
-cbl21 main.l 1967
-cbl22 main.l 1971
-cbl23 main.l 1975
-cbl24 main.l 1979
-cbl3 main.l 1895
-cbl4 main.l 1899
-cbl5 main.l 1903
-cbl6 main.l 1907
-cbl7 main.l 1911
-cbl8 main.l 1915
-cbl9 main.l 1919
+cbl main.l 1845
+cbl1 main.l 1878
+cbl10 main.l 1914
+cbl11 main.l 1918
+cbl12 main.l 1922
+cbl13 main.l 1926
+cbl14 main.l 1930
+cbl15 main.l 1934
+cbl16 main.l 1938
+cbl17 main.l 1942
+cbl18 main.l 1946
+cbl19 main.l 1950
+cbl2 main.l 1882
+cbl20 main.l 1954
+cbl21 main.l 1958
+cbl22 main.l 1962
+cbl23 main.l 1966
+cbl24 main.l 1970
+cbl3 main.l 1886
+cbl4 main.l 1890
+cbl5 main.l 1894
+cbl6 main.l 1898
+cbl7 main.l 1902
+cbl8 main.l 1906
+cbl9 main.l 1910
cellErrAX err.l 438
cellErrEX err.l 440
charSymACX_CX io.l 1256
@@ -478,7 +478,7 @@ checkVarAX err.l 365
checkVarEX err.l 381
checkVarYX err.l 373
chopExtNmX_E db.l 133
-circE_YF main.l 747
+circE_YF main.l 738
cleanUpY db.l 567
closeAX io.l 5
closeErrEX err.l 506
@@ -495,7 +495,7 @@ cmpuAE_F big.l 1587
cntErrAX err.l 418
cntErrCX err.l 420
cntErrEX err.l 422
-compareAE_F main.l 912
+compareAE_F main.l 903
consAC_E gc.l 786
consA_A gc.l 530
consA_C gc.l 594
@@ -534,7 +534,7 @@ ctOpenEXY io.l 1670
currFdX_C io.l 1333
currFd_C io.l 1337
cutLocalCX flow.l 2824
-dateXYZ_E main.l 2366
+dateXYZ_E main.l 2357
dbAEX db.l 1328
dbFetchEX db.l 1316
dbFileBlkY_AC db.l 246
@@ -557,16 +557,16 @@ dlErrX err.l 697
doAbs big.l 2731
doAccept net.l 145
doAdd big.l 2171
-doAdr main.l 594
+doAdr main.l 585
doAlarm main.l 471
doAll sym.l 780
doAnd flow.l 1613
doAny io.l 3965
doAppend subr.l 1338
doApply apply.l 713
-doArg main.l 2313
-doArgs main.l 2289
-doArgv main.l 2933
+doArg main.l 2304
+doArgs main.l 2280
+doArgv main.l 2924
doArrow subr.l 3913
doAs flow.l 139
doAsoq subr.l 3005
@@ -602,7 +602,7 @@ doCall flow.l 3079
doCar subr.l 5
doCase flow.l 1954
doCatch flow.l 2456
-doCd main.l 2688
+doCd main.l 2679
doCdaaar subr.l 464
doCdaadr subr.l 487
doCdaar subr.l 179
@@ -625,7 +625,7 @@ doCirc subr.l 816
doCircQ subr.l 2402
doClip subr.l 1799
doClose io.l 4381
-doCmd main.l 2915
+doCmd main.l 2906
doCnt apply.l 1413
doCo flow.l 2537
doCol sym.l 3040
@@ -637,9 +637,9 @@ doConnect net.l 224
doCons subr.l 747
doCopy subr.l 1225
doCtl io.l 4254
-doCtty main.l 2713
+doCtty main.l 2704
doCut sym.l 1911
-doDate main.l 2427
+doDate main.l 2418
doDbck db.l 2110
doDe flow.l 532
doDec big.l 2323
@@ -649,13 +649,13 @@ doDel sym.l 1966
doDelete subr.l 1401
doDelq subr.l 1452
doDiff subr.l 2589
-doDir main.l 2846
+doDir main.l 2837
doDiv big.l 2513
doDm flow.l 545
doDo flow.l 2130
doE flow.l 2911
doEcho io.l 4412
-doEnv main.l 606
+doEnv main.l 597
doEof io.l 3524
doEol io.l 3515
doEq subr.l 2059
@@ -663,7 +663,7 @@ doEq0 subr.l 2173
doEqT subr.l 2181
doEqual subr.l 2115
doErr io.l 4234
-doErrno main.l 1377
+doErrno main.l 1368
doEval flow.l 175
doExt io.l 5146
doExtQ sym.l 1149
@@ -671,7 +671,7 @@ doExtern sym.l 1015
doExtra flow.l 1258
doExtract apply.l 1218
doFifo sym.l 2077
-doFile main.l 2793
+doFile main.l 2784
doFill subr.l 3240
doFilter apply.l 1161
doFin subr.l 2033
@@ -700,7 +700,7 @@ doGt subr.l 2267
doGt0 big.l 2718
doHash big.l 2976
doHead subr.l 1820
-doHeap main.l 526
+doHeap main.l 517
doHear io.l 3228
doHide sym.l 1082
doHost net.l 190
@@ -712,7 +712,7 @@ doIfn flow.l 1854
doIn io.l 4194
doInc big.l 2256
doIndex subr.l 2637
-doInfo main.l 2750
+doInfo main.l 2741
doIntern sym.l 990
doIpid flow.l 3198
doIsa flow.l 961
@@ -730,7 +730,7 @@ doLieu db.l 1154
doLine io.l 3699
doLines io.l 3852
doLink subr.l 1172
-doLisp main.l 1985
+doLisp main.l 1976
doList subr.l 887
doListen net.l 157
doLit flow.l 150
@@ -773,10 +773,10 @@ doNEqT subr.l 2198
doNEqual subr.l 2144
doName sym.l 502
doNand flow.l 1648
-doNative main.l 1385
+doNative main.l 1376
doNeed subr.l 919
doNew flow.l 835
-doNext main.l 2296
+doNext main.l 2287
doNil flow.l 1731
doNond flow.l 1931
doNor flow.l 1669
@@ -790,7 +790,7 @@ doOnOff sym.l 1727
doOne sym.l 1760
doOpen io.l 4338
doOpid flow.l 3214
-doOpt main.l 3036
+doOpt main.l 3027
doOr flow.l 1629
doOut io.l 4214
doPack sym.l 1259
@@ -818,15 +818,15 @@ doProg1 flow.l 1757
doProg2 flow.l 1774
doProp sym.l 2914
doPropCol sym.l 3064
-doProtect main.l 516
+doProtect main.l 507
doProve subr.l 3527
doPush sym.l 1802
doPush1 sym.l 1838
doPut sym.l 2824
doPutl sym.l 3102
-doPwd main.l 2677
+doPwd main.l 2668
doQueue sym.l 2034
-doQuit main.l 1092
+doQuit main.l 1083
doQuote flow.l 134
doRand big.l 3003
doRange subr.l 997
@@ -836,7 +836,7 @@ doRd io.l 5163
doRead io.l 2656
doRem big.l 2572
doReplace subr.l 1499
-doRest main.l 2342
+doRest main.l 2333
doReverse subr.l 1678
doRewind io.l 5129
doRollback db.l 1895
@@ -859,7 +859,7 @@ doSort subr.l 3962
doSpQ sym.l 719
doSpace io.l 5063
doSplit subr.l 1592
-doStack main.l 555
+doStack main.l 546
doState flow.l 1998
doStem subr.l 1989
doStr io.l 4019
@@ -881,7 +881,7 @@ doText sym.l 1387
doThrow flow.l 2482
doTick flow.l 3166
doTill io.l 3610
-doTime main.l 2560
+doTime main.l 2551
doTouch sym.l 1164
doTrace flow.l 2950
doTrim subr.l 1759
@@ -891,13 +891,13 @@ doUdp net.l 301
doUnify subr.l 3935
doUnless flow.l 1890
doUntil flow.l 2074
-doUp main.l 700
+doUp main.l 691
doUppQ sym.l 3382
doUppc sym.l 3446
doUse flow.l 1562
-doUsec main.l 2665
+doUsec main.l 2656
doVal sym.l 1577
-doVersion main.l 3050
+doVersion main.l 3041
doWait io.l 3150
doWhen flow.l 1873
doWhile flow.l 2050
@@ -910,24 +910,24 @@ doYield flow.l 2706
doYoke subr.l 1196
doZap sym.l 1178
doZero sym.l 1745
-endString_E main.l 2262
+endString_E main.l 2253
eofErr err.l 534
eolA_F io.l 3684
-equalAE_F main.l 779
+equalAE_F main.l 770
erOpenEXY io.l 1628
errEXYZ err.l 33
errnoC sys/x86-64.linux.code.l 10
errnoEXY err.l 24
errno_A sys/x86-64.linux.code.l 5
-evCntEX_FE main.l 2190
-evCntXY_FE main.l 2188
-evExprCE_E main.l 1110
-evListE_E main.l 1254
+evCntEX_FE main.l 2181
+evCntXY_FE main.l 2179
+evExprCE_E main.l 1101
+evListE_E main.l 1245
evMethodACXYZ_E flow.l 645
-evSymE_E main.l 2165
-evSymX_E main.l 2160
-evSymY_E main.l 2163
-execE main.l 2074
+evSymE_E main.l 2156
+evSymX_E main.l 2151
+evSymY_E main.l 2154
+execE main.l 2065
execErrS main.l 187
extErrEX err.l 434
extNmCE_X db.l 64
@@ -937,7 +937,7 @@ fdRdSetCZL io.l 2718
fdSetCL_X io.l 2706
fdSetC_Y io.l 3309
fdWrSetCZL io.l 2725
-fetchCharC_AC main.l 1819
+fetchCharC_AC main.l 1810
fileObjE_AC db.l 237
fileObjX_AC db.l 211
fillE_FE subr.l 3258
@@ -955,7 +955,7 @@ fmtWordACX_CX big.l 2046
forkErrX err.l 515
forkLispX_FE flow.l 3266
fsyncDB db.l 929
-funqE_FE main.l 2098
+funqE_FE main.l 2089
gc gc.l 65
getAdrZ_A db.l 6
getBinaryZ_FB io.l 447
@@ -997,7 +997,7 @@ isaCE_F flow.l 1012
jnlErrX err.l 618
jnlFileno_A db.l 344
joinLocalCX flow.l 2837
-lisp main.l 2028
+lisp main.l 2019
loadAllX_E main.l 162
loadBEX_E io.l 4072
lockErr err.l 607
@@ -1015,13 +1015,13 @@ main main.l 33
makeErrX err.l 471
markE gc.l 5
matchCE_F subr.l 3144
-memberXY_FY main.l 1074
+memberXY_FY main.l 1065
metaCX_E sym.l 3329
methodEY_FCYZ flow.l 791
mkCharA_A sym.l 573
mkStrEZ_A sym.l 650
mkStrE_E sym.l 623
-msec_A main.l 2276
+msec_A main.l 2267
msgErrAX err.l 488
msgErrEX err.l 490
msgErrYX err.l 486
@@ -1030,7 +1030,7 @@ nameA_A sym.l 469
nameE_E sym.l 477
nameX_X sym.l 485
nameY_Y sym.l 493
-natRetACE_CE main.l 1671
+natRetACE_CE main.l 1662
needC gc.l 54
needSymAX err.l 323
needSymEX err.l 335
@@ -1086,7 +1086,7 @@ putACE sym.l 2480
putBlockBZ db.l 609
putSrcEC_E flow.l 25
putStdoutB io.l 4625
-putStringB main.l 2239
+putStringB main.l 2230
putTellBZ io.l 996
putUdpBZ net.l 377
rdAtomBY_E io.l 2117
@@ -1123,7 +1123,7 @@ retnc err.l 710
retnz err.l 716
retz err.l 713
rewindLog db.l 925
-runE_E main.l 2086
+runE_E main.l 2077
rwUnlockDbA db.l 269
s_isdirS_F sys/x86-64.linux.code.l 16
selectErrX err.l 558
@@ -1134,7 +1134,7 @@ setBlkAC_Z db.l 366
setBlockAC_Z db.l 364
setCooked main.l 441
setRaw main.l 415
-sharedLibC_FA main.l 1307
+sharedLibC_FA main.l 1298
shluA_A big.l 201
shruA_A big.l 247
sig main.l 342
@@ -1173,8 +1173,8 @@ tellErr err.l 646
tenfoldA_A big.l 157
testEscA_F io.l 2050
throwErrZX flow.l 2507
-tmDateC_E main.l 2356
-tmTimeY_E main.l 2543
+tmDateC_E main.l 2347
+tmTimeY_E main.l 2534
tokenCE_E io.l 2522
trSyncErrX err.l 602
traceCY flow.l 3022
@@ -1215,10 +1215,10 @@ wrOpenEXY io.l 1495
wrSetCL_F io.l 2737
wrSyncErrX err.l 575
wtermsigS_A sys/x86-64.linux.code.l 34
-xCntAX_FA main.l 2210
-xCntCX_FC main.l 2201
-xCntEX_FE main.l 2192
-xSymE_E main.l 2167
+xCntAX_FA main.l 2201
+xCntCX_FC main.l 2192
+xCntEX_FE main.l 2183
+xSymE_E main.l 2158
xoruAE_A big.l 465
yieldErrEX err.l 482
yieldErrX err.l 480
diff --git a/test/src/main.l b/test/src/main.l
@@ -1,4 +1,4 @@
-# 09sep11abu
+# 18mar12abu
# (c) Software Lab. Alexander Burger
### Evaluation ###
@@ -18,15 +18,12 @@
### sigio ###
(unless (member *OS '("SunOS" "OpenBSD"))
- (off "SigVal")
(sigio (setq "SigSock" (port T 0 "SigPort"))
(setq "SigVal" (udp "SigSock")) )
- (test '((setq "SigVal" (udp "SigSock"))) (sigio))
(udp "localhost" "SigPort" '(a b c))
(wait 200)
(test '(a b c) "SigVal")
- (sigio "SigSock")
- (test NIL (sigio)) )
+ (close "SigSock") )
### protect ###
