void lib_init(int flag, void* context)
{
Shell_t *shp = ((Shbltin_t*)context)->shp;
Namval_t *mp,*bp;
if(flag)
return;
bp = sh_addbuiltin(shp,"Enum", enum_create, (void*)0);
mp = nv_search("typeset",shp->bltin_tree,0);
nv_onattr(bp,nv_isattr(mp,NV_PUBLIC));
}
int Tcl_SplitList(Tcl_Interp *interp, char *list, int *argcPtr, char ***argvPtr)
{
int result = TCL_ERROR;
FILE *str;
static TkshArgcArgv argstruct, *args = &argstruct;
char *command;
static int init=0;
#ifndef NO_TCL_EVAL
if (TkshListMode() == INTERP_TCL)
return Tcl_TclSplitList(interp, list, argcPtr, argvPtr);
#endif
if (! init)
{
sh_addbuiltin(SPLIT_CMD_NAME, tksh_cmd_split, (void *) args);
init = 1;
}
command = (char *) malloc(strlen(list)+strlen(SPLIT_CMD_NAME)+2);
dprintf2(("Splitting...\n"));
if (args && command)
{
sprintf(command, "%s %s",SPLIT_CMD_NAME, list);
args->argcPtr = argcPtr;
args->argvPtr = argvPtr;
if ((str = sfopen((Sfio_t *) 0, command, "s")))
{
sh_eval(str, 0x8000);
sfclose(str);
result = Tksh_OkOrErr();
}
free(command);
}
return result;
}
void bash_init(int mode)
{
Shell_t *shp = &sh;
Sfio_t *iop;
Namval_t *np;
int n=0,xtrace,verbose;
if(mode>0)
goto reinit;
if(mode < 0)
{
/* termination code */
if(sh_isoption(SH_LOGIN_SHELL) && !sh_isoption(SH_POSIX))
sh_source(shp, NiL, sh_mactry(shp,(char*)e_bash_logout));
return;
}
if(sh_isstate(SH_PREINIT))
{ /* pre-init stage */
if(sh_isoption(SH_RESTRICTED))
sh_onoption(SH_RESTRICTED2);
sh_onoption(SH_HISTORY2);
sh_onoption(SH_INTERACTIVE_COMM);
sh_onoption(SH_SOURCEPATH);
sh_onoption(SH_HISTAPPEND);
sh_onoption(SH_CMDHIST);
sh_onoption(SH_LITHIST);
sh_onoption(SH_NOEMPTYCMDCOMPL);
if(shp->login_sh==2)
sh_onoption(SH_LOGIN_SHELL);
if(strcmp(astconf("CONFORMANCE",0,0),"standard")==0)
sh_onoption(SH_POSIX);
if(strcmp(astconf("UNIVERSE",0,0),"att")==0)
sh_onoption(SH_XPG_ECHO);
else
sh_offoption(SH_XPG_ECHO);
if(strcmp(astconf("PATH_RESOLVE",0,0),"physical")==0)
sh_onoption(SH_PHYSICAL);
else
sh_offoption(SH_PHYSICAL);
/* add builtins */
sh_addbuiltin("shopt", b_shopt, &sh);
/* set up some variables needed for --version
* needs to go here because --version option is parsed before the init script.
*/
if(np=nv_open("HOSTTYPE",shp->var_tree,0))
nv_putval(np, BASH_HOSTTYPE, NV_NOFREE);
if(np=nv_open("MACHTYPE",shp->var_tree,0))
nv_putval(np, BASH_MACHTYPE, NV_NOFREE);
if(np=nv_open("BASH_VERSION",shp->var_tree,0))
nv_putval(np, BASH_VERSION, NV_NOFREE);
if(np=nv_open("BASH_VERSINFO",shp->var_tree,0))
{
char *argv[7];
argv[0] = BASH_MAJOR;
argv[1] = BASH_MINOR;
argv[2] = BASH_PATCH;
argv[3] = BASH_BUILD;
argv[4] = BASH_RELEASE;
argv[5] = BASH_MACHTYPE;
argv[6] = 0;
nv_setvec(np, 0, 6, argv);
nv_onattr(np,NV_RDONLY);
}
return;
}
/* rest of init stage */
/* restrict BASH_ENV */
if(np=nv_open("BASH_ENV",shp->var_tree,0))
{
const Namdisc_t *dp = nv_discfun(NV_DCRESTRICT);
Namfun_t *fp = calloc(dp->dsize,1);
fp->disc = dp;
nv_disc(np, fp, 0);
}
/* open GLOBIGNORE node */
if(np=nv_open("GLOBIGNORE",shp->var_tree,0))
{
const Namdisc_t *dp = &SH_GLOBIGNORE_disc;
Namfun_t *fp = calloc(dp->dsize,1);
fp->disc = dp;
nv_disc(np, fp, 0);
}
/* set startup files */
n=0;
if(sh_isoption(SH_LOGIN_SHELL))
{
if(!sh_isoption(SH_POSIX))
{
login_files[n++] = (char*)e_bash_profile;
login_files[n++] = (char*)e_bash_login;
}
login_files[n++] = (char*)e_profile;
}
shp->login_files = login_files;
reinit:
xtrace = sh_isoption(SH_XTRACE);
sh_offoption(SH_XTRACE);
verbose = sh_isoption(SH_VERBOSE);
sh_offoption(SH_VERBOSE);
if(np = nv_open("SHELLOPTS", shp->var_tree, NV_NOADD))
nv_offattr(np,NV_RDONLY);
iop = sfopen(NULL, bash_pre_rc, "s");
sh_eval(iop,0);
if(xtrace)
sh_offoption(SH_XTRACE);
if(verbose)
sh_offoption(SH_VERBOSE);
}
//
// mode = 0: init, called two times
// before parsing shell args with SH_PREINIT state turned on
// second time after sh_init() is through and with SH_PREINIT state turned off
// mode > 1: re-init
// mode < 0: shutdown
//
void bash_init(Shell_t *shp, int mode) {
Sfio_t *iop;
Namval_t *np;
int n = 0, xtrace, verbose;
if (mode > 0) goto reinit;
if (mode < 0) { // termination code
if (sh_isoption(shp, SH_LOGIN_SHELL) && !sh_isoption(shp, SH_POSIX)) {
sh_source(shp, NULL, sh_mactry(shp, (char *)e_bash_logout));
}
return;
}
if (sh_isstate(shp, SH_PREINIT)) { // pre-init stage
if (sh_isoption(shp, SH_RESTRICTED)) sh_onoption(shp, SH_RESTRICTED2);
sh_onoption(shp, SH_HISTORY2);
sh_onoption(shp, SH_INTERACTIVE_COMM);
sh_onoption(shp, SH_SOURCEPATH);
sh_onoption(shp, SH_HISTAPPEND);
sh_onoption(shp, SH_CMDHIST);
sh_onoption(shp, SH_LITHIST);
sh_onoption(shp, SH_NOEMPTYCMDCOMPL);
sh_onoption(shp, SH_POSIX);
if (shp->login_sh == 2) sh_onoption(shp, SH_LOGIN_SHELL);
if (strcmp(astconf("UNIVERSE", 0, 0), "att") == 0) {
sh_onoption(shp, SH_XPG_ECHO);
} else {
sh_offoption(shp, SH_XPG_ECHO);
}
sh_offoption(shp, SH_PHYSICAL);
// Add builtins.
sh_addbuiltin(shp, "shopt", b_shopt, &sh);
sh_addbuiltin(shp, "enable", b_builtin, &sh);
// Set up some variables needed for --version.
// Needs to go here because --version option is parsed before the init script.
#if 0
/* This was causing a core dump when running set to display all variables */
if(np=nv_open("HOSTTYPE",shp->var_tree,0))
nv_putval(np, BASH_HOSTTYPE, NV_NOFREE);
#endif
np = nv_open("MACHTYPE", shp->var_tree, 0);
if (np) nv_putval(np, BASH_MACHTYPE, NV_NOFREE);
np = nv_open("BASH_VERSION", shp->var_tree, 0);
if (np) nv_putval(np, BASH_VERSION, NV_NOFREE);
np = nv_open("BASH_VERSINFO", shp->var_tree, 0);
if (np) {
char *argv[7];
argv[0] = BASH_MAJOR;
argv[1] = BASH_MINOR;
argv[2] = BASH_PATCH;
argv[3] = BASH_BUILD;
argv[4] = BASH_RELEASE;
argv[5] = BASH_MACHTYPE;
argv[6] = 0;
nv_setvec(np, 0, 6, argv);
nv_onattr(np, NV_RDONLY);
}
return;
}
// Rest of init stage.
// Restrict BASH_ENV.
np = nv_open("BASH_ENV", shp->var_tree, 0);
if (np) {
const Namdisc_t *dp = nv_discfun(DISCFUN_RESTRICT);
Namfun_t *fp = calloc(dp->dsize, 1);
fp->disc = dp;
nv_disc(np, fp, DISC_NOOP);
}
// Open GLOBIGNORE node.
np = nv_open("GLOBIGNORE", shp->var_tree, 0);
if (np) {
const Namdisc_t *dp = &SH_GLOBIGNORE_disc;
Namfun_t *fp = calloc(dp->dsize, 1);
fp->disc = dp;
nv_disc(np, fp, DISC_NOOP);
}
np = nv_open("BASH_EXECUTION_STRING", shp->var_tree, 0);
if (np) {
np->nvalue.cp = shp->comdiv;
nv_onattr(np, NV_NOFREE);
}
// Set startup files.
n = 0;
if (sh_isoption(shp, SH_LOGIN_SHELL)) {
if (!sh_isoption(shp, SH_POSIX)) {
shp->gd->login_files[n++] = (char *)e_bash_profile;
shp->gd->login_files[n++] = (char *)e_bash_login;
}
shp->gd->login_files[n++] = (char *)e_profile;
}
shp->gd->login_files = login_files;
reinit:
xtrace = sh_isoption(shp, SH_XTRACE);
sh_offoption(shp, SH_XTRACE);
verbose = sh_isoption(shp, SH_VERBOSE);
sh_offoption(shp, SH_VERBOSE);
np = nv_open("SHELLOPTS", shp->var_tree, NV_NOADD);
if (np) nv_offattr(np, NV_RDONLY);
iop = sfopen(NULL, bash_pre_rc, "s");
sh_eval(shp, iop, 0);
if (xtrace) sh_offoption(shp, SH_XTRACE);
if (verbose) sh_offoption(shp, SH_VERBOSE);
}