1 9aa1c92f 2005-01-04 devnull #include "mk.h"
 2 9aa1c92f 2005-01-04 devnull 
 3 9aa1c92f 2005-01-04 devnull static Shell *shells[] = {
 4 9aa1c92f 2005-01-04 devnull 	&shshell,
 5 9aa1c92f 2005-01-04 devnull 	&rcshell
 6 9aa1c92f 2005-01-04 devnull };
 7 9aa1c92f 2005-01-04 devnull 
 8 9aa1c92f 2005-01-04 devnull Shell *shellt;
 9 9aa1c92f 2005-01-04 devnull Word *shellcmd;
10 9aa1c92f 2005-01-04 devnull 
11 9aa1c92f 2005-01-04 devnull typedef struct Shellstack Shellstack;
12 9aa1c92f 2005-01-04 devnull struct Shellstack
13 9aa1c92f 2005-01-04 devnull {
14 9aa1c92f 2005-01-04 devnull 	Shell *t;
15 9aa1c92f 2005-01-04 devnull 	Word *w;
16 9aa1c92f 2005-01-04 devnull 	Shellstack *next;
17 9aa1c92f 2005-01-04 devnull };
18 9aa1c92f 2005-01-04 devnull 
19 9aa1c92f 2005-01-04 devnull Shellstack *shellstack;
20 9aa1c92f 2005-01-04 devnull 
21 9aa1c92f 2005-01-04 devnull char*
22 9aa1c92f 2005-01-04 devnull setshell(Word *w)
23 9aa1c92f 2005-01-04 devnull {
24 9aa1c92f 2005-01-04 devnull 	int i;
25 9aa1c92f 2005-01-04 devnull 
26 9aa1c92f 2005-01-04 devnull 	if(w->s == nil)
27 9aa1c92f 2005-01-04 devnull 		return "shell name not found on line";
28 9aa1c92f 2005-01-04 devnull 
29 9aa1c92f 2005-01-04 devnull 	for(i=0; i<nelem(shells); i++)
30 9aa1c92f 2005-01-04 devnull 		if(shells[i]->matchname(w->s))
31 9aa1c92f 2005-01-04 devnull 			break;
32 9aa1c92f 2005-01-04 devnull 	if(i == nelem(shells))
33 9aa1c92f 2005-01-04 devnull 		return "cannot determine shell type";
34 9aa1c92f 2005-01-04 devnull 	shellt = shells[i];
35 9aa1c92f 2005-01-04 devnull 	shellcmd = w;
36 9aa1c92f 2005-01-04 devnull 	return nil;
37 9aa1c92f 2005-01-04 devnull }
38 9aa1c92f 2005-01-04 devnull 
39 9aa1c92f 2005-01-04 devnull void
40 9aa1c92f 2005-01-04 devnull initshell(void)
41 9aa1c92f 2005-01-04 devnull {
42 9aa1c92f 2005-01-04 devnull 	shellcmd = stow(shells[0]->name);
43 9aa1c92f 2005-01-04 devnull 	shellt = shells[0];
44 c8b6342d 2005-01-13 devnull 	setvar("MKSHELL", shellcmd);
45 9aa1c92f 2005-01-04 devnull }
46 9aa1c92f 2005-01-04 devnull 
47 9aa1c92f 2005-01-04 devnull void
48 9aa1c92f 2005-01-04 devnull pushshell(void)
49 9aa1c92f 2005-01-04 devnull {
50 9aa1c92f 2005-01-04 devnull 	Shellstack *s;
51 9aa1c92f 2005-01-04 devnull 
52 9aa1c92f 2005-01-04 devnull 	/* save */
53 9aa1c92f 2005-01-04 devnull 	s = Malloc(sizeof *s);
54 9aa1c92f 2005-01-04 devnull 	s->t = shellt;
55 9aa1c92f 2005-01-04 devnull 	s->w = shellcmd;
56 9aa1c92f 2005-01-04 devnull 	s->next = shellstack;
57 9aa1c92f 2005-01-04 devnull 	shellstack = s;
58 9aa1c92f 2005-01-04 devnull 
59 9aa1c92f 2005-01-04 devnull 	initshell();	/* reset to defaults */
60 9aa1c92f 2005-01-04 devnull }
61 9aa1c92f 2005-01-04 devnull 
62 9aa1c92f 2005-01-04 devnull void
63 9aa1c92f 2005-01-04 devnull popshell(void)
64 9aa1c92f 2005-01-04 devnull {
65 9aa1c92f 2005-01-04 devnull 	Shellstack *s;
66 9aa1c92f 2005-01-04 devnull 
67 9aa1c92f 2005-01-04 devnull 	if(shellstack == nil){
68 9aa1c92f 2005-01-04 devnull 		fprint(2, "internal shellstack error\n");
69 9aa1c92f 2005-01-04 devnull 		Exit();
70 9aa1c92f 2005-01-04 devnull 	}
71 9aa1c92f 2005-01-04 devnull 
72 9aa1c92f 2005-01-04 devnull 	s = shellstack;
73 9aa1c92f 2005-01-04 devnull 	shellstack = s->next;
74 9aa1c92f 2005-01-04 devnull 	shellt = s->t;
75 9aa1c92f 2005-01-04 devnull 	shellcmd = s->w;
76 c8b6342d 2005-01-13 devnull 	setvar("MKSHELL", shellcmd);
77 9aa1c92f 2005-01-04 devnull 	free(s);
78 9aa1c92f 2005-01-04 devnull }