From: keie <none@none>
Date: Tue, 1 Jan 1985 22:19:09 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release-5-5~5818
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=d16efbab982719a9a79faecec04abad26bc6a814;p=ack.git

*** empty log message ***
---

diff --git a/lang/cem/libcc/gen/head_cc.e b/lang/cem/libcc/gen/head_cc.e
new file mode 100644
index 000000000..c7d66c7ca
--- /dev/null
+++ b/lang/cem/libcc/gen/head_cc.e
@@ -0,0 +1,56 @@
+#
+/*
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ *
+ *          This product is part of the Amsterdam Compiler Kit.
+ *
+ * Permission to use, sell, duplicate or disclose this software must be
+ * obtained in writing. Requests for such permissions may be sent to
+ *
+ *      Dr. Andrew S. Tanenbaum
+ *      Wiskundig Seminarium
+ *      Vrije Universiteit
+ *      Postbox 7161
+ *      1007 MC Amsterdam
+ *      The Netherlands
+ *
+ */
+
+/* Author: E.G. Keizer */
+
+ mes 2,EM_WSIZE,EM_PSIZE
+
+ exa environ
+ exa _penvp
+environ
+ bss EM_PSIZE,0,0
+_penvp
+ bss EM_PSIZE,0,0
+
+ exp $m_a_i_n
+ pro $m_a_i_n,0
+#if EM_WSIZE==1
+ ldc 256
+#else
+ loc 256
+#endif
+ sim            ; EIUND is ignored
+ lal EM_WSIZE+EM_PSIZE
+ loi EM_PSIZE
+ lae environ
+ sti EM_PSIZE
+ lae environ
+ loi EM_PSIZE
+ lae _penvp
+ sti EM_PSIZE
+ lal EM_WSIZE+EM_PSIZE
+ loi EM_PSIZE
+ lal EM_WSIZE
+ loi EM_PSIZE
+ lal 0
+ loi EM_WSIZE
+ cal $main
+ asp EM_WSIZE+EM_PSIZE+EM_PSIZE
+ lfr EM_WSIZE
+ cal $exit
+ end
diff --git a/lang/cem/libcc/mon/LIST b/lang/cem/libcc/mon/LIST
new file mode 100644
index 000000000..635b74b60
--- /dev/null
+++ b/lang/cem/libcc/mon/LIST
@@ -0,0 +1,64 @@
+tail_mon.a
+exit.c
+gtty.c
+signal.c
+stty.c
+tell.c
+time.c
+cleanup.c
+access.e
+acct.e
+alarm.e
+brk.e
+chdir.e
+chmod.e
+chown.e
+chroot.e
+close.e
+creat.e
+dup.e
+dup2.e
+execl.e
+execle.e
+execv.e
+execve.e
+_exit.e
+fork.e
+fstat.e
+ftime.e
+getegid.e
+geteuid.e
+getgid.e
+getpid.e
+getuid.e
+ioctl.e
+kill.e
+link.e
+lock.e
+lseek.e
+mknod.e
+mount.e
+mpxcall.e
+nice.e
+open.e
+pause.e
+pipe.e
+prof.e
+ptrace.e
+read.e
+sbrk.e
+setgid.e
+setuid.e
+setsig.e
+sigtrp.e
+stat.e
+stime.e
+sync.e
+times.e
+umask.e
+umount.e
+unlink.e
+utime.e
+wait.e
+write.e
+errno.e
diff --git a/lang/cem/libcc/mon/types b/lang/cem/libcc/mon/types
new file mode 100644
index 000000000..868ab0ce9
--- /dev/null
+++ b/lang/cem/libcc/mon/types
@@ -0,0 +1,65 @@
+void    exit(status) int status ;
+int     gtty(fildes,argp) int fildes; struct sgttyb *argp ;
+int     pkon(fd,size) int fd, size ;
+int     pkoff(fd) int fd ;
+char    *sbrk(incr) p_int incr ;
+void    (*signal(sig,func))() int sig ; void (*func)();
+int     stty(fildes,argp) int fildes; struct sgttyb *argp ;
+long    tell(fildes) int fildes ;
+time_t  time(ptr) time_t *ptr ;
+void    cleanup() ;
+int     access(name,mode) char *name ; int mode ;
+int     acct(file) char *file ;
+unsigned alarm(seconds) unsigned seconds ;
+int     brk(addr) char *addr ;
+int     chdir(dir) char *dir ;
+int     chmod(name,mode) char *name ; int mode ;
+int     chown(name,owner,group) char *name ; int owner, group ;
+int     chroot(dir) char *dir ;
+int     close(fildes) int fildes ;
+int     creat(name) char *name ;
+int     dup(fildes) int fildes ;
+int     dup2(fildes,fildes2) int fildes, fildes2 ;
+int     execl(name,arg0,...,argn,(char*)0) char *name,*arg0,...,*argn ;
+int execl(name,arg0,...,argn,(char*)0,envp) char*name,*arg0,...,*argn,*envp[];
+int     execv(name,argv) char *name,*argv[] ;
+int     execve(name,argv,envp) char *name,*argv[],*envp[] ;
+void    _exit(status) int status ;
+int     fork() ;
+int     fstat(fildes,buf) int fildes ; struct stat *buf ;
+void    ftime(tp) struct timeb *tp ;
+int     getegid() ;
+int     geteuid() ;
+int     getgid() ;
+int     getpid() ;
+int     getuid() ;
+int     ioctl(fildes,request,argp) int fildes, request ; struct sgttyb *buf ;
+int     kill(pid,sig) int pid, sig ;
+int     link(name1,name2) char *name1, *name2 ;
+int     lock(flag) int flag ;
+long    lseek(fildes,offset,whence) int fildes, whence ; long offset ;
+int     mknod(name,mode,addr) char *name ; int mode, addr ;
+int     mount(special,name,rwflag) char *special, *name ; int rwflag ;
+int     mpxcall(cmd,vec) int cmd, *vec ;
+void    nice(incr) int incr ;
+int     open(name,mode) char *name ; int mode ;
+void    pause() ;
+int     pipe(files) int files[2] ;
+void    profil(buff,bufsiz,offset,scale) char *buf; p_int bufsiz,offset,scale;
+int     ptrace(request,pid,addr,data) int request, pid, *addr, data ;
+unsigned read(fildes,buff,nbytes) int fildes ; char *buff ; unsigned nbytes ;
+int     setgid(gid) int gid ;
+int     setuid(uid) int uid ;
+void    _setsig(functionid) char *functionid ;
+int     sigtrp(trapno,signo) int trapno,signo ;
+int     stat(name,buf) char *name ; struct stat *buf ;
+int     stime(tp) long *tp ;
+void    sync() ;
+void    times(buffer) struct tbuffer *buffer ;
+int     umask(complmode) int complmode ;
+int     umount(special) char *special ;
+int     unlink(name) char *name ;
+int     utime(file,timep) char *file ; time_t *timep ;
+int     wait(status) char status[2] ;
+unsigned write(fildes,buff,nbytes) int fildes ; char *buff ; unsigned nbytes ;
+int     errno ;