picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 4c9d3af10b3c75a077b3558ec1faa28df25e62da
parent 77e550ca575b6cd3705c9167d02a0a28b9772a29
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 25 Nov 2012 09:41:53 +0100

'env' / 'trail' / 'up' revisited
Diffstat:
Msrc64/main.l | 10+++++-----
Msrc64/tags | 286+++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------
2 files changed, 205 insertions(+), 91 deletions(-)

diff --git a/src64/main.l b/src64/main.l @@ -1,4 +1,4 @@ -# 24nov12abu +# 25nov12abu # (c) Software Lab. Alexander Burger (code 'Code) @@ -610,7 +610,7 @@ null Y # Any? if nz # Yes null (Break) # In breakpoint? - ldnz Y ((Y)) # Yes: Skip frame + ldnz Y ((Y) I) # Yes: Skip frame end do null Y # Bindings? @@ -706,7 +706,7 @@ null X # Any? if nz # Yes null (Break) # In breakpoint? - ldnz X ((X)) # Yes: Skip frame + ldnz X ((X) I) # Yes: Skip frame end ld E Nil # Result do @@ -781,7 +781,7 @@ null X # Any? if nz # Yes null (Break) # In breakpoint? - ldnz X ((X)) # Yes: Skip frame + ldnz X ((X) I) # Yes: Skip frame end do null X # Bindings? @@ -809,7 +809,7 @@ null Y # Any? if nz # Yes null (Break) # In breakpoint? - ldnz Y ((Y)) # Yes: Skip frame + ldnz Y ((Y) I) # Yes: Skip frame end ld Z X # Value pointer do diff --git a/src64/tags b/src64/tags @@ -48,6 +48,120 @@ CHAR_LETTER63,1499 CHAR_DIGIT64,1520 +sys/x86-64.linux.defs.l,1959 +ENOENT5,59 +EINTR6,108 +EBADF7,155 +EAGAIN8,194 +EACCES9,227 +EPIPE10,268 +ECONNRESET11,303 +O_RDONLY14,365 +O_WRONLY15,382 +O_RDWR16,399 +O_CREAT17,414 +O_EXCL18,431 +O_TRUNC19,448 +O_APPEND20,466 +F_GETFD21,486 +F_SETFD22,502 +FD_CLOEXEC23,518 +BUFSIZ26,546 +PIPE_BUF27,564 +MAXPATHLEN29,585 +RTLD_LAZY32,613 +RTLD_GLOBAL33,631 +FLOCK36,662 +L_TYPE37,702 +L_WHENCE38,722 +L_START39,744 +L_LEN40,760 +L_PID41,775 +SEEK_SET42,790 +SEEK_CUR43,807 +F_RDLCK44,824 +F_WRLCK45,840 +F_UNLCK46,856 +F_GETFL47,872 +F_SETFL48,888 +F_GETLK49,904 +F_SETLK50,920 +F_SETLKW51,936 +F_SETOWN52,953 +O_NONBLOCK53,970 +O_ASYNC54,992 +STAT57,1019 +ST_MODE58,1061 +ST_SIZE59,1083 +ST_MTIME60,1100 +S_IFMT61,1118 +S_IFDIR62,1144 +TMS65,1180 +TMS_UTIME66,1214 +TMS_STIME67,1232 +TERMIOS70,1261 +C_IFLAG71,1304 +C_LFLAG72,1320 +C_CC73,1337 +ISIG74,1351 +VMIN75,1364 +VTIME76,1377 +TCSADRAIN77,1391 +SIGACTION80,1419 +SIGSET_T81,1462 +SA_HANDLER82,1481 +SA_MASK83,1500 +SA_FLAGS84,1516 +SIG_DFL86,1536 +SIG_IGN87,1552 +SIG_UNBLOCK88,1568 +SIGHUP90,1589 +SIGINT91,1615 +SIGUSR192,1630 +SIGUSR293,1647 +SIGPIPE94,1664 +SIGALRM95,1681 +SIGTERM96,1698 +SIGCHLD97,1715 +SIGCONT98,1732 +SIGSTOP99,1749 +SIGTSTP100,1766 +SIGTTIN101,1783 +SIGTTOU102,1800 +SIGIO103,1817 +SIGNALS104,1832 +WNOHANG107,1894 +WUNTRACED108,1910 +FD_SET111,1938 +TM_SEC114,1975 +TM_MIN115,1990 +TM_HOUR116,2005 +TM_MDAY117,2021 +TM_MON118,2038 +TM_YEAR119,2054 +D_NAME122,2078 +SOCK_STREAM125,2105 +SOCK_DGRAM126,2125 +AF_UNSPEC127,2144 +AF_INET6128,2162 +SOL_SOCKET129,2180 +SO_REUSEADDR130,2199 +IPPROTO_IPV6131,2220 +IPV6_V6ONLY132,2242 +INET6_ADDRSTRLEN133,2263 +NI_MAXHOST135,2290 +NI_NAMEREQD136,2312 +SOCKADDR_IN6138,2333 +SIN6_FAMILY139,2355 +SIN6_PORT140,2375 +SIN6_ADDR141,2393 +ADDRINFO143,2412 +AI_FAMILY144,2430 +AI_SOCKTYPE145,2448 +AI_ADDRLEN146,2468 +AI_ADDR147,2488 +AI_NEXT148,2505 + ./glob.l,4297 Data4,51 AV7,77 @@ -332,86 +446,86 @@ doStack548,13951 doAdr587,14794 doEnv599,15012 -doTrail698,17720 -doUp766,19316 -circE_YF845,21000 -equalAE_F877,21740 -compareAE_F1010,24949 -memberXY_FY1172,28451 -doQuit1190,28802 -evExprCE_E1208,29219 -evListE_E1356,32853 -sharedLibC_FA1409,33989 -doErrno1480,35633 -doNative1488,35797 -natBufACZ_CZ1692,41599 -natRetACE_CE1791,44084 -doStruct1940,49484 -fetchCharC_AC1983,50364 -cbl2018,51233 -cbl12051,51949 -cbl22055,52065 -cbl32059,52111 -cbl42063,52163 -cbl52067,52215 -cbl62071,52267 -cbl72075,52319 -cbl82079,52371 -cbl92083,52423 -cbl102087,52475 -cbl112091,52528 -cbl122095,52582 -cbl132099,52636 -cbl142103,52690 -cbl152107,52744 -cbl162111,52798 -cbl172115,52852 -cbl182119,52906 -cbl192123,52960 -cbl202127,53014 -cbl212131,53068 -cbl222135,53122 -cbl232139,53176 -cbl242143,53230 -doLisp2149,53313 -lisp2193,54339 -execE2239,55453 -runE_E2251,55608 -funqE_FE2263,55760 -evSymX_E2325,57183 -evSymY_E2328,57241 -evSymE_E2330,57283 -xSymE_E2332,57320 -evCntXY_FE2353,57685 -evCntEX_FE2355,57729 -xCntEX_FE2357,57768 -xCntCX_FC2366,57945 -xCntAX_FA2375,58122 -boxE_E2384,58299 -putStringB2404,58756 -begString2416,58970 -endString_E2427,59196 -msec_A2441,59519 -doArgs2454,59793 -doNext2461,59907 -doArg2478,60223 -doRest2507,60865 -tmDateC_E2521,61112 -dateXYZ_E2531,61289 -doDate2592,62650 -tmTimeY_E2708,66245 -doTime2725,66578 -doUsec2830,69557 -doPwd2842,69823 -doCd2853,70078 -doCtty2878,70694 -doInfo2915,71628 -doFile2960,72723 -doDir3013,73959 -doCmd3083,75577 -doArgv3101,76036 -doOpt3204,78582 -doVersion3218,78913 +doTrail698,17722 +doUp766,19320 +circE_YF845,21008 +equalAE_F877,21748 +compareAE_F1010,24957 +memberXY_FY1172,28459 +doQuit1190,28810 +evExprCE_E1208,29227 +evListE_E1356,32861 +sharedLibC_FA1409,33997 +doErrno1480,35641 +doNative1488,35805 +natBufACZ_CZ1692,41607 +natRetACE_CE1791,44092 +doStruct1940,49492 +fetchCharC_AC1983,50372 +cbl2018,51241 +cbl12051,51957 +cbl22055,52073 +cbl32059,52119 +cbl42063,52171 +cbl52067,52223 +cbl62071,52275 +cbl72075,52327 +cbl82079,52379 +cbl92083,52431 +cbl102087,52483 +cbl112091,52536 +cbl122095,52590 +cbl132099,52644 +cbl142103,52698 +cbl152107,52752 +cbl162111,52806 +cbl172115,52860 +cbl182119,52914 +cbl192123,52968 +cbl202127,53022 +cbl212131,53076 +cbl222135,53130 +cbl232139,53184 +cbl242143,53238 +doLisp2149,53321 +lisp2193,54347 +execE2239,55461 +runE_E2251,55616 +funqE_FE2263,55768 +evSymX_E2325,57191 +evSymY_E2328,57249 +evSymE_E2330,57291 +xSymE_E2332,57328 +evCntXY_FE2353,57693 +evCntEX_FE2355,57737 +xCntEX_FE2357,57776 +xCntCX_FC2366,57953 +xCntAX_FA2375,58130 +boxE_E2384,58307 +putStringB2404,58764 +begString2416,58978 +endString_E2427,59204 +msec_A2441,59527 +doArgs2454,59801 +doNext2461,59915 +doArg2478,60231 +doRest2507,60873 +tmDateC_E2521,61120 +dateXYZ_E2531,61297 +doDate2592,62658 +tmTimeY_E2708,66253 +doTime2725,66586 +doUsec2830,69565 +doPwd2842,69831 +doCd2853,70086 +doCtty2878,70702 +doInfo2915,71636 +doFile2960,72731 +doDir3013,73967 +doCmd3083,75585 +doArgv3101,76044 +doOpt3204,78590 +doVersion3218,78921 ./big.l,1059 zapZeroA_A6,106 @@ -1137,9 +1251,9 @@ getUdpZ_FB370,9724 putUdpBZ377,9869 -sys/emu.code.l,95 -errno_A8,134 -errnoC16,260 -wifstoppedS_F24,409 -wifsignaledS_F32,570 -wtermsigS_A40,725 +sys/x86-64.linux.code.l,94 +errno_A5,67 +errnoC10,169 +wifstoppedS_F16,287 +wifsignaledS_F21,413 +wtermsigS_A28,568