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