Return to syscall.l CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / lisplib

Annotation of 42BSD/ucb/lisp/lisplib/syscall.l, revision 1.1

1.1     ! root        1: (setq rcs-syscall-
        !             2:    "$Header: /usr/lib/lisp/RCS/syscall.l,v 1.2 83/01/30 11:52:43 jkf Exp $")
        !             3: 
        !             4: ;
        !             5: ;   syscall
        !             6: ;
        !             7: ; This file contains macro definitions of some of the Unix system calls.
        !             8: ; The documentation for these system calls can be found in the Unix
        !             9: ; manual.
        !            10: ;
        !            11: ; It is believed that all of these system calls can be executed by the
        !            12: ; Unix emulator Eunice under VMS.
        !            13: ;
        !            14: ; Unix system calls which return values in registers other than r0 cannot
        !            15: ; be called in this way.  An example of this is fork, for which there is
        !            16: ; a seperate lisp function.
        !            17: 
        !            18: (declare (macros t))
        !            19: 
        !            20: (defmacro sys_access (name mode)
        !            21:   `(syscall 33 ,name ,mode))
        !            22: 
        !            23: (defmacro sys_alarm (secs)
        !            24:   `(syscall 27 ,secs))
        !            25: 
        !            26: (defmacro sys_brk (addr)
        !            27:   `(syscall 17 ,addr))
        !            28: 
        !            29: (defmacro sys_chdir (dir)
        !            30:   `(syscall 12 ,dir))
        !            31: 
        !            32: (defmacro sys_chmod (name mode)
        !            33:   `(syscall 15 ,name ,mode))
        !            34: 
        !            35: (defmacro sys_chown (name ownerid groupid)
        !            36:   `(syscall 16 name ownerid groupid))
        !            37: 
        !            38: (defmacro sys_close (filedes)
        !            39:   `(syscall 6 ,filedes))
        !            40: 
        !            41: (defmacro sys_creat (name mode)
        !            42:   `(syscall 8 ,name ,mode))
        !            43: 
        !            44: (defmacro sys_exit (status)
        !            45:   `(syscall 1 ,status))
        !            46: 
        !            47: (defmacro sys_getpid nil
        !            48:   `(syscall 20))
        !            49: 
        !            50: (defmacro sys_getuid nil
        !            51:   `(syscall 24))
        !            52: 
        !            53: (defmacro sys_getgid nil
        !            54:   `(syscall 47))
        !            55: 
        !            56: ; sys_kill - need to get value into r0
        !            57: (defmacro sys_kill (pid)
        !            58:   `(syscall 37 ,pid))
        !            59: 
        !            60: 
        !            61: (defmacro sys_link (name newname)
        !            62:   `(syscall 9 ,name ,newname))
        !            63: 
        !            64: (defmacro sys_nice (value)
        !            65:   `(syscall 34 ,value))
        !            66: 
        !            67: ; sys_lseek this may not be correct the explanation is given for a pdp-11
        !            68: ; where certain values must be stored in two words.
        !            69: ; also need to get value into r0
        !            70: 
        !            71: (defmacro sys_open (name how)  
        !            72:   `(syscall 5 ,name ,how))
        !            73: 
        !            74: (defmacro sys_pause nil
        !            75:   `(syscall 29))
        !            76: 
        !            77: (defmacro sys_setuid (uid)
        !            78:   `(syscall 23 ,uid))
        !            79: 
        !            80: 
        !            81: (defmacro sys_setgid (gid)
        !            82:   `(syscall 46 ,gid))
        !            83: 
        !            84: (defmacro sys_sync nil
        !            85:   `(syscall 36))
        !            86: 
        !            87: (defmacro sys_time nil
        !            88:   `(syscall 13))
        !            89: 
        !            90: (defmacro sys_umask (complementmode)
        !            91:   `(syscall 60 ,complementmode))
        !            92: 
        !            93: (defmacro sys_unlink (name)
        !            94:   `(syscall 10 ,name))
        !            95: 
        !            96: (defmacro sys_wait nil
        !            97:   `(syscall 7))
        !            98: 
        !            99: (defmacro sys_ioctl (portnumber arg)
        !           100:   `(syscall 54 ,portnumber ,arg))
        !           101: 
        !           102: 
        !           103: (putprop 'syscall t 'version)  ; flag that this file has been loaded

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.