3 -- set arguments via POLYSHELL (now Thompson Shell??)
4 -- no errors, don't change anything if
5 -- it seems shell is not activated */
7 /* POLYSHELL puts the shell expanded command line
8 in the environment variable CMDLINE. Ascii 0 is
12 char *strchr(char *, int), *getenv(char *) ;
13 char *basename(char *) ;
14 void *malloc(unsigned) ;
15 int strcmp(char *, char *) ;
17 static char *basename(char *s)
18 /* strip path and extension , upcase the rest */
22 for ( p = strchr(s,0) ; p > s ; p-- )
27 case '.' : p[-1] = 0 ; break ;
29 if ( p[-1] >= 'a' && p[-1] <= 'z' ) p[-1] -= 32 ;
36 /*---------------------
37 reargv -- recompute argc and argv for PolyShell
38 if not under shell do nothing
39 *------------------------------- */
41 extern char *progname ;
42 extern unsigned char _osmajor ;
44 void reargv(int *argcp , char ***argvp)
46 char **v , *q, *cmdline, **vx ;
49 if ( _osmajor == 2 ) /* ugh */
50 (*argvp)[0] = progname ;
51 else (*argvp)[0] = basename( (*argvp)[0] ) ;
53 if ( ! (cmdline = getenv("CMDLINE")) ) return ;
55 if ( *(q = strchr(cmdline,0) - 1) != 0xff )
56 return ; /* shexpand set wrong */
58 for ( *q = 0, cnt = 1 , p = cmdline ; p < q ; p++ )
59 if ( *p == 0xff ) { cnt++ ; *p = 0 ; }
61 if ( ! (v = (char **) malloc((cnt+1)*sizeof(char*))) )
62 return ; /* shouldn't happen */
75 v[0] = basename( v[0] ) ;
76 if ( strcmp(v[0], (*argvp)[0]) ) return ;/* running under command
78 /* running under PolyShell */
79 *argcp = cntx ; *argvp = v ;