Procházet zdrojové kódy

Added missing stuff

ceriel před 31 roky
rodič
revize
e38adbdb89

+ 3 - 0
lang/cem/libcc/mon/LIST

@@ -68,12 +68,14 @@ _creat.e
 _dup.e
 _dup2.e
 _execl.e
+_execve.e
 _exit.e
 _fork.e
 _fstat.e
 _ftime.e
 _getpid.e
 _gtty.c
+_stty.c
 _ioctl.e
 _kill.e
 _link.e
@@ -83,6 +85,7 @@ _pause.e
 _pipe.e
 _read.e
 _sbrk.e
+_times.e
 _unlink.e
 _wait.e
 _write.e

+ 12 - 0
lang/cem/libcc/mon/_execve.e

@@ -0,0 +1,12 @@
+#
+ mes 2,EM_WSIZE,EM_PSIZE
+ exp $_execve
+ pro $_execve,0
+ lal 0
+ loi 3*EM_PSIZE
+ loc 59
+ mon
+ ste errno
+ loc -1
+ ret EM_WSIZE
+ end

+ 6 - 0
lang/cem/libcc/mon/_stty.c

@@ -0,0 +1,6 @@
+/* $Header$ */
+#include <sgtty.h>
+int
+_stty(fildes,argp) int fildes ; struct sgttyb *argp ; {
+	return _ioctl(fildes,TIOCSETP,argp) ;
+}

+ 10 - 0
lang/cem/libcc/mon/_times.e

@@ -0,0 +1,10 @@
+#
+ mes 2,EM_WSIZE,EM_PSIZE
+ exp $_times
+ pro $_times,0
+ lal 0
+ loi EM_PSIZE
+ loc 43
+ mon
+ ret 0
+ end