This is a library that was designed to make interfacing with theLinux kernel easier. We provide symbolic names for most of the  syscalls, some integration with the shell, and some file I/O    words.                                                                                                                                                                                                                                                                                                                          : constant create , does> @ ;                                   1 constant nr_exit     2 constant nr_fork    3 constant nr_read 4 constant nr_write    5 constant nr_open    6 constant nr_close7 constant nr_waitpid  8 constant nr_creat   9 constant nr_link 10 constant nr_unlink 11 constant nr_execve 12 constant nr_chdir13 constant nr_time   14 constant nr_mknod  15 constant nr_chmod16 constant nr_lchown 17 constant nr_break                      n e                                                             18 constant nr_oldstat                      19 constant nr_lseek20 constant nr_getpid                      21 constant nr_mount 22 constant nr_umount                      23 constant nr_setuid24 constant nr_getuid                      25 constant nr_stime 26 constant nr_ptrace                      27 constant nr_alarm 28 constant nr_oldfstat                    29 constant nr_pause 30 constant nr_utime                       31 constant nr_stty  n e                                                             32 constant nr_gtty                        33 constant nr_access34 constant nr_nice                        35 constant nr_ftime 36 constant nr_sync                        37 constant nr_kill  38 constant nr_rename                      39 constant nr_mkdir 40 constant nr_rmdir                       41 constant nr_dup   42 constant nr_pipe                        43 constant nr_times 44 constant nr_prof                        45 constant nr_brk   n e                                                             46 constant nr_setgid                      47 constant nr_getgid48 constant nr_signal                     49 constant nr_geteuid50 constant nr_getegid                    51 constant nr_acct   52 constant nr_umount2                    53 constant nr_lock   54 constant nr_ioctl                      55 constant nr_fcntl  56 constant nr_mpx                        57 constant nr_setpgid58 constant nr_ulimit                                           n e                                                             59 constant nr_oldolduname                60 constant nr_umask  61 constant nr_chroot                     62 constant nr_ustat  63 constant nr_dup2                       64 constant nr_getppid65 constant nr_getpgrp                    66 constant nr_setsid 67 constant nr_sigaction                                        68 constant nr_sgetmask              69 constant nr_ssetmask    70 constant nr_setreuid              71 constant nr_setregid    n e                                                             72 constant nr_sigsuspend            73 constant nr_sigpending  74 constant nr_sethostname           75 constant nr_setrlimit   76 constant nr_getrlimit             77 constant nr_getrusage   78 constant nr_gettimeofday          79 constant nr_settimeofday80 constant nr_getgroups             81 constant nr_setgroups   82 constant nr_select                83 constant nr_symlink     84 constant nr_oldlstat              85 constant nr_readlink    n e                                                             86 constant nr_uselib                87 constant nr_swapon      88 constant nr_reboot                89 constant nr_readdir     90 constant nr_mmap                  91 constant nr_munmap      92 constant nr_truncate              93 constant nr_ftruncate   94 constant nr_fchmod                95 constant nr_fchown      96 constant nr_getpriority           97 constant nr_setpriority 98 constant nr_profil                99 constant nr_statfs      n e                                                             100 constant nr_fstatfs              101 constant nr_ioperm     102 constant nr_socketcall           103 constant nr_syslog     104 constant nr_setitimer            105 constant nr_getitimer  106 constant nr_stat                 107 constant nr_lstat      108 constant nr_fstat                109 constant nr_olduname   110 constant nr_iopl                 111 constant nr_vhangup    112 constant nr_idle                 113 constant nr_vm86old    n e                                                             114 constant nr_wait4                115 constant nr_swapoff    116 constant nr_sysinfo              117 constant nr_ipc        118 constant nr_fsync                119 constant nr_sigreturn  120 constant nr_clone              121 constant nr_setdomainname122 constant nr_uname              123 constant nr_modify_ldt   124 constant nr_adjtimex           125 constant nr_mprotect     126 constant nr_sigprocmask        127 constant nr_create_modulen e                                                             128 constant nr_init_module        129 constant nr_delete_module130 constant nr_get_kernel_syms    131 constant nr_quotactl     132 constant nr_getpgid            133 constant nr_fchdir       134 constant nr_bdflush            135 constant nr_sysfs        136 constant nr_personality        137 constant nr_afs_syscall  138 constant nr_setfsuid           139 constant nr_setfsgid     140 constant nr__llseek            141 constant nr_getdents     n e                                                             142 constant nr__newselect         143 constant nr_flock        144 constant nr_msync              145 constant nr_readv        146 constant nr_writev             147 constant nr_getsid       148 constant nr_fdatasync          149 constant nr__sysctl      150 constant nr_mlock              151 constant nr_munlock      152 constant nr_mlockall           153 constant nr_munlockall   154 constant nr_sched_setparam                                  n e                                                             155 constant nr_sched_getparam                                  156 constant nr_sched_setscheduler                              157 constant nr_sched_getscheduler                              158 constant nr_sched_yield                                     159 constant nr_sched_get_priority_max                          160 constant nr_sched_get_priority_min                          161 constant nr_sched_rr_get_interval                           n e                                                             162 constant nr_nanosleep        163 constant nr_mremap         164 constant nr_setresuid        165 constant nr_getresuid      166 constant nr_vm86             167 constant nr_query_module   168 constant nr_poll             169 constant nr_nfsservctl     170 constant nr_setresgid        171 constant nr_getresgid      172 constant nr_prctl            173 constant nr_rt_sigreturn   174 constant nr_rt_sigaction     175 constant nr_rt_sigprocmask n e                                                             176 constant nr_rt_sigpending    177 constant nr_rt_sigtimedwait178 constant nr_rt_sigqueueinfo  179 constant nr_rt_sigsuspend  180 constant nr_pread            181 constant nr_pwrite         182 constant nr_chown            183 constant nr_getcwd         184 constant nr_capget           185 constant nr_capset         186 constant nr_sigaltstack      187 constant nr_sendfile       188 constant nr_getpmsg          189 constant nr_putpmsg        n e                                                             190 constant nr_vfork                                                                                                                                                                                                                                                                                                                                                                                                                                           n e                                                             : str0 1- over + 0 swap c! ;                                                                                                    loc:                                                              variable null                                                   create args 0 , 0 , 0 , 0 ,                                     : waitpid ( pid -- pid ) 0 0 rot 3 nr_waitpid syscall ;         : fork ( -- pid ) 0 nr_fork syscall ;                         n e                                                               : exec ( env args cmd -- ret ) 3 nr_execve syscall ;            : vfork ( -- pid ) fork dup 0; >r 2drop 2drop r> waitpid ;      : do ( * -- ) vfork 0 =if exec then ;                           : shell_cmd s" /bin/sash@" str0 ;                               : shell_opt s" -c@" str0 ;                                      : shell 0 0 shell_cmd do ;                                      : !1 shell_cmd args ! ;                                       n e                                                               : !2 shell_opt args cell+ ! ;                                   : !3 args cell+ cell+ ! ;                                       : args! !1 !2 !3 ;                                              : system str0 args! 0 args shell_cmd do ;                       : sh pad 0 parse tuck pad swap move 1+ system ;                 ' sh ' system ' shell ;loc                                    alias shell alias system alias sh                               n e                                                             : str>csat swap 2dup >r >r move r> r> 2dup + 0 swap c! 1+ ;     : str>cs pad str>csat drop ;                                    0 constant r/o        1 constant w/o       2 constant r/w       : close-file 1 nr_close syscall ;                               : file-size pad swap 2 nr_fstat syscall pad 5 cells + @ swap ;  : write-file >r swap r> 3 nr_write syscall ;                    : read-file >r swap r> 3 nr_read syscall ;                      n e                                                             : reposition-file 0 -rot 3 nr_lseek syscall ;                   : open-file -rot str>cs 2 nr_open syscall ;                     : create-file -rot str>cs 2 nr_creat syscall ;                  : truncate-file 2 nr_ftruncate syscall ;                        : file-position 1 0 rot 3 nr_lseek syscall ;                    : chdir str>cs 1 nr_chdir syscall ;                             : read-cwd swap 2 nr_getcwd syscall ;                           n e                                                             : read-dir >r swap r> 3 nr_getdents syscall ;                   : umount-dev str>cs 1 nr_umount syscall ;                       : cd wsparse chdir ;                                            : pwd pad 256 read-cwd dup 0 >if pad swap type cr then ;                                                                                                                                                                                                        n eb                                                            : mount-dev ( 0 n adr n adr' n' adr'' n'' -- ior )                 pad str>csat over >r +                                          str>csat over >r +                                              str>csat drop                                                   r> r> swap rot                                                  5 nr_mount syscall ;                                         : mount 0 swap wsparse wsparse wsparse mount-dev ;              : umount wsparse umount-dev ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   