[Wisp-cvs] wisp/src essence.c,1.215,1.216 rgnwsysc.wisp,1.9,1.10 sysconst.h,1.11,1.12 sysconst.txt,1
Status: Alpha
Brought to you by:
digg
Menu
▾
▴
[Wisp-cvs] wisp/src essence.c,1.215,1.216 rgnwsysc.wisp,1.9,1.10 sysconst.h,1.11,1.12 sysconst.txt,1.18,1.19 wordlist.txt,1.577,1.578
|
From: <di...@us...> - 2002-09-18 21:08:04
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv30725/src
Modified Files:
essence.c rgnwsysc.wisp sysconst.h sysconst.txt wordlist.txt
Log Message:
Replaced |sys:raw:execve| by Worth-written |sys:ns:execve|.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.215
retrieving revision 1.216
diff -u -d -r1.215 -r1.216
--- essence.c 18 Sep 2002 21:06:20 -0000 1.215
+++ essence.c 18 Sep 2002 21:07:35 -0000 1.216
@@ -371,6 +371,7 @@
NN_sys_ns_close,
NN_sys_ns_dup,
NN_sys_ns_dup2,
+ NN_sys_ns_execve,
NN_sys_ns_for_dir_entries,
NN_sys_ns_fork,
NN_sys_ns_fstat,
@@ -396,7 +397,6 @@
NN_sys_ns_unlink,
NN_sys_ns_waitpid,
NN_sys_ns_write,
[...1344 lines suppressed...]
struct cons conses [] = {
@@ -2055,13 +2052,13 @@
[326]{car:CH('C'),cdr:BC 325},
[327]{car:CH('A'),cdr:BC 326},
[328]{car:CH('e'),cdr:BC 327},
-[329]{car:B 680,cdr:Q},
-[330]{car:B 679,cdr:BC 329},
-[331]{car:B 681,cdr:Q},
+[329]{car:B 679,cdr:Q},
+[330]{car:B 678,cdr:BC 329},
+[331]{car:B 680,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 683;
+builtin_root = B 682;
/* essence.c ends here */
Index: rgnwsysc.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/rgnwsysc.wisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- rgnwsysc.wisp 26 Aug 2002 16:15:01 -0000 1.9
+++ rgnwsysc.wisp 18 Sep 2002 21:08:00 -0000 1.10
@@ -20,18 +20,6 @@
((unknown) (print p "#error Unknown system?\n"))
((close) (close-port p)))))
-(define (make-nasm)
- (my p (open-output-file "native/sysconst.inc")
- (lambda-pack
- ((remark line) (print p ";; $,[line]\n"))
- ((newline) (newline p))
- ((define name value) (print p "%define CCC_$,(string-join (map structure->string name) #\_) $,[value]\n"))
- ((ifdef cond) (print p "%ifdef $,[cond]\n"))
- ((else cond) (print p "%else ; $,[cond]\n"))
- ((endif cond) (print p "%endif ; $,[cond]\n"))
- ((unknown) (print p "%error Unknown system?\n"))
- ((close) (close-port p)))))
-
(my data (call-with-input-file "sysconst.txt"
read-all)
(for-each
@@ -65,4 +53,4 @@
value)) else)))
datum))) data))
(now 'close)))
- (list make-C make-nasm)))
+ (list make-C)))
Index: sysconst.h
===================================================================
RCS file: /cvsroot/wisp/wisp/src/sysconst.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- sysconst.h 4 Sep 2002 14:28:37 -0000 1.11
+++ sysconst.h 18 Sep 2002 21:08:00 -0000 1.12
@@ -1,47 +1,6 @@
/* This is a generated file--do not edit. */
/* See sysconst.txt for the original. */
-#ifdef LINUX
-#define CCC_sysnr_exit 1
-#define CCC_sysnr_fork 2
-#define CCC_sysnr_read 3
-#define CCC_sysnr_write 4
-#define CCC_sysnr_open 5
-#define CCC_sysnr_close 6
-#define CCC_sysnr_waitpid 7
-#define CCC_sysnr_link 9
-#define CCC_sysnr_unlink 10
-#define CCC_sysnr_execve 11
-#define CCC_sysnr_chdir 12
-#define CCC_sysnr_time 13
-#define CCC_sysnr_chmod 15
-#define CCC_sysnr_lseek 19
-#define CCC_sysnr_getpid 20
-#define CCC_sysnr_getuid 24
-#define CCC_sysnr_kill 37
-#define CCC_sysnr_rename 38
-#define CCC_sysnr_mkdir 39
-#define CCC_sysnr_dup 41
-#define CCC_sysnr_pipe 42
-#define CCC_sysnr_getgid 47
-#define CCC_sysnr_geteuid 49
-#define CCC_sysnr_getegid 50
-#define CCC_sysnr_ioctl 54
-#define CCC_sysnr_fcntl 55
-#define CCC_sysnr_setpgid 57
-#define CCC_sysnr_dup2 63
-#define CCC_sysnr_getppid 64
-#define CCC_sysnr_setsid 66
-#define CCC_sysnr_symlink 83
-#define CCC_sysnr_truncate 92
-#define CCC_sysnr_ftruncate 93
-#define CCC_sysnr_socketcall 102
-#define CCC_sysnr_getpgid 132
-#define CCC_sysnr_nanosleep 162
-#define CCC_sysnr_getcwd 183
-#else /* LINUX */
-#error Unknown system?
-#endif /* LINUX */
#define CCC_termios_NCCS 32
#ifdef LINUX
#define CCC_termios_cc_VINTR 0
@@ -65,14 +24,6 @@
#error Unknown system?
#endif /* LINUX */
#ifdef LINUX
-#define CCC_ioctl_TCGETS 21505
-#define CCC_ioctl_TCSETS 21506
-#define CCC_ioctl_TCSETSW 21507
-#define CCC_ioctl_TCSETSF 21508
-#else /* LINUX */
-#error Unknown system?
-#endif /* LINUX */
-#ifdef LINUX
#define CCC_open_O_RDONLY 0
#define CCC_open_O_WRONLY 1
#define CCC_open_O_RDWR 2
@@ -127,30 +78,11 @@
#error Unknown system?
#endif /* LINUX */
#ifdef IA32
-#define CCC_size-of_short 2
-#define CCC_size-of_int 4
-#define CCC_size-of_long 4
-#define CCC_size-of_long-long 8
#ifdef LINUX
-#define CCC_size-of_fd_set 128
-#define CCC_size-of_FD_SETSIZE 1024
-#define CCC_size-of_off_t 4
-#define CCC_size-of_pid_t 4
#define CCC_size-of_struct_flock 16
-#define CCC_size-of_struct_termios 60
#else /* LINUX */
#error Unknown system?
#endif /* LINUX */
-#else /* IA32 */
-#error Unknown system?
-#endif /* IA32 */
-#ifdef LINUX
-#define CCC_target_system-type Linux
-#else /* LINUX */
-#error Unknown system?
-#endif /* LINUX */
-#ifdef IA32
-#define CCC_target_processor-type ia32
#else /* IA32 */
#error Unknown system?
#endif /* IA32 */
Index: sysconst.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/sysconst.txt,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- sysconst.txt 18 Sep 2002 20:59:52 -0000 1.18
+++ sysconst.txt 18 Sep 2002 21:08:00 -0000 1.19
@@ -6,47 +6,6 @@
;;
;;;; @(#) $Id$
-(<group> sysnr ; syscall numbers
- (<case>
- (LINUX
- (exit 1)
- (fork 2)
- (read 3)
- (write 4)
- (open 5)
- (close 6)
- (waitpid 7)
- (link 9)
- (unlink 10)
- (execve 11)
- (chdir 12)
- (time 13)
- (chmod 15)
- (lseek 19)
- (getpid 20)
- (getuid 24)
- (kill 37)
- (rename 38)
- (mkdir 39)
- (dup 41)
- (pipe 42)
- (getgid 47)
- (geteuid 49)
- (getegid 50)
- (ioctl 54)
- (fcntl 55)
- (setpgid 57)
- (dup2 63)
- (getppid 64)
- (setsid 66)
- (symlink 83)
- (truncate 92)
- (ftruncate 93)
- (socketcall 102)
- (getpgid 132)
- (nanosleep 162)
- (getcwd 183))))
-
(<group> termios
(NCCS 32)
(<group> cc
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.577
retrieving revision 1.578
diff -u -d -r1.577 -r1.578
--- wordlist.txt 18 Sep 2002 21:06:31 -0000 1.577
+++ wordlist.txt 18 Sep 2002 21:08:01 -0000 1.578
@@ -164,20 +164,20 @@
sys:fork sys:fstat sys:ftruncate sys:getcwd sys:getegid sys:geteuid
sys:getgid sys:getpgid sys:getpgrp sys:getpid sys:getppid sys:getuid
sys:kill sys:link sys:listen sys:low:getcwd sys:lseek sys:lstat
-sys:mkdir sys:nanosleep sys:ns:for-dir-entries sys:ns:waitpid sys:open
-sys:pipe sys:read sys:rename sys:select sys:setpgid sys:setpgrp
-sys:setsid sys:stat sys:symlink sys:sync sys:tcgetattr sys:tcsetattr
-sys:truncate sys:unlink sys:waitpid sys:write syscalls sysnr
-system-constant system-constant-internal system-constants system-path
-system-type t t* tab takervec target tc tcchangeattr tcgetattr
-tcgetattr-raw tcsetattr-raw tenth termios th third time tn
-too-long-character topocopy toposplit translate tree-copy true truncate
-truncate-not try tty? type type-of ubyte? uid undefined unix-time
-unknown unknown-context unknown-local unknown-open-input-file-flag
-unknown-open-output-file-flag unlink unpack-be-integer
-unpack-le-integer unpack-struct-flock unquote unquote-splicing
-unreadable unreadable-port unseekable-port unsure-collect
-unwritable-port use utf-8->c16string utf-8-continuer?
+sys:mkdir sys:nanosleep sys:ns:execve sys:ns:for-dir-entries
+sys:ns:waitpid sys:open sys:pipe sys:read sys:rename sys:select
+sys:setpgid sys:setpgrp sys:setsid sys:stat sys:symlink sys:sync
+sys:tcgetattr sys:tcsetattr sys:truncate sys:unlink sys:waitpid
+sys:write syscalls sysnr system-constant system-constant-internal
+system-constants system-path system-type t t* tab takervec target tc
+tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth termios th
+third time tn too-long-character topocopy toposplit translate tree-copy
+true truncate truncate-not try tty? type type-of ubyte? uid undefined
+unix-time unknown unknown-context unknown-local
+unknown-open-input-file-flag unknown-open-output-file-flag unlink
+unpack-be-integer unpack-le-integer unpack-struct-flock unquote
+unquote-splicing unreadable unreadable-port unseekable-port
+unsure-collect unwritable-port use utf-8->c16string utf-8-continuer?
utf-8-first-byte->length uwyde? val valloc value vector vector->list
vector-append vector-copy vector-fill! vector-length vector-move!
vector? void void? vs vtab waitpid while wisp-build wisp-builder
|
