| 1 | /*
|
|---|
| 2 | * This file was generated by the mkinit program.
|
|---|
| 3 | */
|
|---|
| 4 |
|
|---|
| 5 | #include "shell.h"
|
|---|
| 6 | #include "mystring.h"
|
|---|
| 7 | #include "init.h"
|
|---|
| 8 | #include "eval.h"
|
|---|
| 9 | #include <stdio.h>
|
|---|
| 10 | #include "input.h"
|
|---|
| 11 | #include "error.h"
|
|---|
| 12 | #include <stdlib.h>
|
|---|
| 13 | #include "options.h"
|
|---|
| 14 | #include "output.h"
|
|---|
| 15 | #include "memalloc.h"
|
|---|
| 16 | #include "redir.h"
|
|---|
| 17 | #include <signal.h>
|
|---|
| 18 | #include "trap.h"
|
|---|
| 19 | #include "var.h"
|
|---|
| 20 | #include "shinstance.h"
|
|---|
| 21 |
|
|---|
| 22 |
|
|---|
| 23 |
|
|---|
| 24 | #undef PROFILE
|
|---|
| 25 | #define PROFILE 0
|
|---|
| 26 | #undef SIGSSIZE
|
|---|
| 27 | #define SIGSSIZE (sizeof(sigs)/sizeof(sigs[0]))
|
|---|
| 28 | #undef MAXPWD
|
|---|
| 29 | #define MAXPWD 256
|
|---|
| 30 | #undef ALL
|
|---|
| 31 | #define ALL (E_OPEN|E_CREAT|E_EXEC)
|
|---|
| 32 | #undef EV_EXIT
|
|---|
| 33 | #define EV_EXIT 01 /* exit after evaluating tree */
|
|---|
| 34 | #undef EV_TESTED
|
|---|
| 35 | #define EV_TESTED 02 /* exit status is checked; ignore -e flag */
|
|---|
| 36 | #undef EV_BACKCMD
|
|---|
| 37 | #define EV_BACKCMD 04 /* command executing within back quotes */
|
|---|
| 38 | #undef NEWARGS
|
|---|
| 39 | #define NEWARGS 5
|
|---|
| 40 | #undef MAXHISTLOOPS
|
|---|
| 41 | #define MAXHISTLOOPS 4 /* max recursions through fc */
|
|---|
| 42 | #undef DEFEDITOR
|
|---|
| 43 | #define DEFEDITOR "ed" /* default editor *should* be $EDITOR */
|
|---|
| 44 | #undef editing
|
|---|
| 45 | #define editing (Eflag(psh) || Vflag(psh))
|
|---|
| 46 | #undef EOF_NLEFT
|
|---|
| 47 | #define EOF_NLEFT -99 /* value of parsenleft when EOF pushed back */
|
|---|
| 48 | #undef DEFINE_OPTIONS
|
|---|
| 49 | #define DEFINE_OPTIONS
|
|---|
| 50 | #undef BLOCK_OUT
|
|---|
| 51 | #define BLOCK_OUT -2 /* output to a fixed block of memory */
|
|---|
| 52 | #undef OUTPUT_ERR
|
|---|
| 53 | #define OUTPUT_ERR 01 /* error occurred on output */
|
|---|
| 54 | #undef TEMPSIZE
|
|---|
| 55 | #define TEMPSIZE 32
|
|---|
| 56 | #undef HAVE_VASPRINTF
|
|---|
| 57 | #define HAVE_VASPRINTF 1
|
|---|
| 58 | #undef EOFMARKLEN
|
|---|
| 59 | #define EOFMARKLEN 79
|
|---|
| 60 | #undef OPENBRACE
|
|---|
| 61 | #define OPENBRACE '{'
|
|---|
| 62 | #undef CLOSEBRACE
|
|---|
| 63 | #define CLOSEBRACE '}'
|
|---|
| 64 | #undef EMPTY
|
|---|
| 65 | #define EMPTY -2 /* marks an unused slot in redirtab */
|
|---|
| 66 | #undef S_DFL
|
|---|
| 67 | #define S_DFL 1 /* default signal handling (SIG_DFL) */
|
|---|
| 68 | #undef S_CATCH
|
|---|
| 69 | #define S_CATCH 2 /* signal is caught */
|
|---|
| 70 | #undef S_IGN
|
|---|
| 71 | #define S_IGN 3 /* signal is ignored (SIG_IGN) */
|
|---|
| 72 | #undef S_HARD_IGN
|
|---|
| 73 | #define S_HARD_IGN 4 /* signal is ignored permenantly */
|
|---|
| 74 | #undef S_RESET
|
|---|
| 75 | #define S_RESET 5 /* temporary - to reset a hard ignored sig */
|
|---|
| 76 | #undef INCL_BASE
|
|---|
| 77 | #define INCL_BASE
|
|---|
| 78 | #undef LIBPATHSTRICT
|
|---|
| 79 | #define LIBPATHSTRICT 3
|
|---|
| 80 | #undef QHINF_EXEINFO
|
|---|
| 81 | #define QHINF_EXEINFO 1 /* NE exeinfo. */
|
|---|
| 82 | #undef QHINF_READRSRCTBL
|
|---|
| 83 | #define QHINF_READRSRCTBL 2 /* Reads from the resource table. */
|
|---|
| 84 | #undef QHINF_READFILE
|
|---|
| 85 | #define QHINF_READFILE 3 /* Reads from the executable file. */
|
|---|
| 86 | #undef QHINF_LIBPATHLENGTH
|
|---|
| 87 | #define QHINF_LIBPATHLENGTH 4 /* Gets the libpath length. */
|
|---|
| 88 | #undef QHINF_LIBPATH
|
|---|
| 89 | #define QHINF_LIBPATH 5 /* Gets the entire libpath. */
|
|---|
| 90 | #undef QHINF_FIXENTRY
|
|---|
| 91 | #define QHINF_FIXENTRY 6 /* NE only */
|
|---|
| 92 | #undef QHINF_STE
|
|---|
| 93 | #define QHINF_STE 7 /* NE only */
|
|---|
| 94 | #undef QHINF_MAPSEL
|
|---|
| 95 | #define QHINF_MAPSEL 8 /* NE only */
|
|---|
| 96 | #undef SET_LEN
|
|---|
| 97 | #define SET_LEN 6 /* initial # of bitcmd struct to malloc */
|
|---|
| 98 | #undef SET_LEN_INCR
|
|---|
| 99 | #define SET_LEN_INCR 4 /* # of bitcmd structs to add as needed */
|
|---|
| 100 | #undef CMD2_CLR
|
|---|
| 101 | #define CMD2_CLR 0x01
|
|---|
| 102 | #undef CMD2_SET
|
|---|
| 103 | #define CMD2_SET 0x02
|
|---|
| 104 | #undef CMD2_GBITS
|
|---|
| 105 | #define CMD2_GBITS 0x04
|
|---|
| 106 | #undef CMD2_OBITS
|
|---|
| 107 | #define CMD2_OBITS 0x08
|
|---|
| 108 | #undef CMD2_UBITS
|
|---|
| 109 | #define CMD2_UBITS 0x10
|
|---|
| 110 | #undef STANDARD_BITS
|
|---|
| 111 | #define STANDARD_BITS (S_ISUID|S_ISGID|S_IRWXU|S_IRWXG|S_IRWXO)
|
|---|
| 112 | #undef SHMEMHDR_MAGIC_FREE
|
|---|
| 113 | #define SHMEMHDR_MAGIC_FREE 0xbeeff00d
|
|---|
| 114 | #undef SHMEMHDR_MAGIC_USED
|
|---|
| 115 | #define SHMEMHDR_MAGIC_USED 0xfeedface
|
|---|
| 116 | #undef SHMEMCHUNK_MAGIC
|
|---|
| 117 | #define SHMEMCHUNK_MAGIC 0x12345678
|
|---|
| 118 | #undef SHHEAP_MIN_CHUNK
|
|---|
| 119 | #define SHHEAP_MIN_CHUNK 0x80000 //(1024*1024)
|
|---|
| 120 | #undef SHFILE_MAX
|
|---|
| 121 | #define SHFILE_MAX 1024
|
|---|
| 122 | #undef SHFILE_GROW
|
|---|
| 123 | #define SHFILE_GROW 64
|
|---|
| 124 | #undef SHFILE_UNIX_MIN_FD
|
|---|
| 125 | #define SHFILE_UNIX_MIN_FD 32
|
|---|
| 126 | #undef SHFILE_MAX_PATH
|
|---|
| 127 | #define SHFILE_MAX_PATH 4096
|
|---|
| 128 | #undef YY_NO_UNPUT
|
|---|
| 129 | #define YY_NO_UNPUT
|
|---|
| 130 |
|
|---|
| 131 |
|
|---|
| 132 |
|
|---|
| 133 | extern void rmaliases(shinstance *psh);
|
|---|
| 134 |
|
|---|
| 135 | extern void deletefuncs(struct shinstance *);
|
|---|
| 136 | extern void hash_special_builtins(struct shinstance *);
|
|---|
| 137 |
|
|---|
| 138 | struct redirtab {
|
|---|
| 139 | struct redirtab *next;
|
|---|
| 140 | short renamed[10];
|
|---|
| 141 | };
|
|---|
| 142 |
|
|---|
| 143 |
|
|---|
| 144 |
|
|---|
| 145 | /*
|
|---|
| 146 | * Initialization code.
|
|---|
| 147 | */
|
|---|
| 148 |
|
|---|
| 149 | void
|
|---|
| 150 | init(shinstance *psh) {
|
|---|
| 151 |
|
|---|
| 152 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/exec.c: */
|
|---|
| 153 | {
|
|---|
| 154 | hash_special_builtins(psh);
|
|---|
| 155 | }
|
|---|
| 156 |
|
|---|
| 157 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/input.c: */
|
|---|
| 158 | {
|
|---|
| 159 | psh->basepf.nextc = psh->basepf.buf = psh->basebuf;
|
|---|
| 160 | }
|
|---|
| 161 |
|
|---|
| 162 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/options.c: */
|
|---|
| 163 | {
|
|---|
| 164 | memcpy(&psh->optlist[0], &ro_optlist[0], sizeof(psh->optlist));
|
|---|
| 165 | }
|
|---|
| 166 |
|
|---|
| 167 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/var.c: */
|
|---|
| 168 | {
|
|---|
| 169 | char **envp;
|
|---|
| 170 |
|
|---|
| 171 | initvar(psh);
|
|---|
| 172 | for (envp = sh_environ(psh) ; *envp ; envp++) {
|
|---|
| 173 | if (strchr(*envp, '=')) {
|
|---|
| 174 | setvareq(psh, *envp, VEXPORT|VTEXTFIXED);
|
|---|
| 175 | }
|
|---|
| 176 | }
|
|---|
| 177 | }
|
|---|
| 178 | }
|
|---|
| 179 |
|
|---|
| 180 |
|
|---|
| 181 |
|
|---|
| 182 | /*
|
|---|
| 183 | * This routine is called when an error or an interrupt occurs in an
|
|---|
| 184 | * interactive shell and control is returned to the main command loop.
|
|---|
| 185 | */
|
|---|
| 186 |
|
|---|
| 187 | void
|
|---|
| 188 | reset(shinstance *psh) {
|
|---|
| 189 |
|
|---|
| 190 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/eval.c: */
|
|---|
| 191 | {
|
|---|
| 192 | psh->evalskip = 0;
|
|---|
| 193 | psh->loopnest = 0;
|
|---|
| 194 | psh->funcnest = 0;
|
|---|
| 195 | }
|
|---|
| 196 |
|
|---|
| 197 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/input.c: */
|
|---|
| 198 | {
|
|---|
| 199 | if (psh->exception != EXSHELLPROC)
|
|---|
| 200 | psh->parselleft = psh->parsenleft = 0; /* clear input buffer */
|
|---|
| 201 | popallfiles(psh);
|
|---|
| 202 | }
|
|---|
| 203 |
|
|---|
| 204 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/output.c: */
|
|---|
| 205 | {
|
|---|
| 206 | psh->out1 = &psh->output;
|
|---|
| 207 | psh->out2 = &psh->errout;
|
|---|
| 208 | if (psh->memout.buf != NULL) {
|
|---|
| 209 | ckfree(psh, psh->memout.buf);
|
|---|
| 210 | psh->memout.buf = NULL;
|
|---|
| 211 | }
|
|---|
| 212 | }
|
|---|
| 213 |
|
|---|
| 214 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/parser.c: */
|
|---|
| 215 | {
|
|---|
| 216 | psh->tokpushback = 0;
|
|---|
| 217 | psh->checkkwd = 0;
|
|---|
| 218 | }
|
|---|
| 219 |
|
|---|
| 220 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/redir.c: */
|
|---|
| 221 | {
|
|---|
| 222 | while (psh->redirlist)
|
|---|
| 223 | popredir(psh);
|
|---|
| 224 | }
|
|---|
| 225 | }
|
|---|
| 226 |
|
|---|
| 227 |
|
|---|
| 228 |
|
|---|
| 229 | /*
|
|---|
| 230 | * This routine is called to initialize the shell to run a shell procedure.
|
|---|
| 231 | */
|
|---|
| 232 |
|
|---|
| 233 | void
|
|---|
| 234 | initshellproc(shinstance *psh) {
|
|---|
| 235 |
|
|---|
| 236 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/alias.c: */
|
|---|
| 237 | {
|
|---|
| 238 | rmaliases(psh);
|
|---|
| 239 | }
|
|---|
| 240 |
|
|---|
| 241 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/eval.c: */
|
|---|
| 242 | {
|
|---|
| 243 | psh->exitstatus = 0;
|
|---|
| 244 | }
|
|---|
| 245 |
|
|---|
| 246 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/exec.c: */
|
|---|
| 247 | {
|
|---|
| 248 | deletefuncs(psh);
|
|---|
| 249 | }
|
|---|
| 250 |
|
|---|
| 251 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/input.c: */
|
|---|
| 252 | {
|
|---|
| 253 | popallfiles(psh);
|
|---|
| 254 | }
|
|---|
| 255 |
|
|---|
| 256 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/jobs.c: */
|
|---|
| 257 | {
|
|---|
| 258 | psh->backgndpid = -1;
|
|---|
| 259 | #if JOBS
|
|---|
| 260 | psh->jobctl = 0;
|
|---|
| 261 | #endif
|
|---|
| 262 | }
|
|---|
| 263 |
|
|---|
| 264 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/options.c: */
|
|---|
| 265 | {
|
|---|
| 266 | int i;
|
|---|
| 267 |
|
|---|
| 268 | for (i = 0; psh->optlist[i].name; i++)
|
|---|
| 269 | psh->optlist[i].val = 0;
|
|---|
| 270 | optschanged(psh);
|
|---|
| 271 |
|
|---|
| 272 | }
|
|---|
| 273 |
|
|---|
| 274 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/redir.c: */
|
|---|
| 275 | {
|
|---|
| 276 | clearredir(psh, 0);
|
|---|
| 277 | }
|
|---|
| 278 |
|
|---|
| 279 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/trap.c: */
|
|---|
| 280 | {
|
|---|
| 281 | char *sm;
|
|---|
| 282 |
|
|---|
| 283 | clear_traps(psh, 0);
|
|---|
| 284 | for (sm = psh->sigmode ; sm < psh->sigmode + NSIG ; sm++) {
|
|---|
| 285 | if (*sm == S_IGN)
|
|---|
| 286 | *sm = S_HARD_IGN;
|
|---|
| 287 | }
|
|---|
| 288 | }
|
|---|
| 289 |
|
|---|
| 290 | /* from /Volumes/ScratchHFS/bird/kBuild/svn/trunk/src/kash/var.c: */
|
|---|
| 291 | {
|
|---|
| 292 | shprocvar(psh);
|
|---|
| 293 | }
|
|---|
| 294 | }
|
|---|