mirror of
https://github.com/envmodules/modules.git
synced 2026-06-10 00:56:30 +08:00
50a97cd9be
Modified "module bootstrap" to source the init files.
Put the shell properties and moved set_derelict and renamed it
set_shell_properties into init.c .
Created a matrix of shell properties { name, derelict, init, cmd separator }.
158 lines
5.4 KiB
C
158 lines
5.4 KiB
C
/*****
|
||
** ** Module Header ******************************************************* **
|
||
** **
|
||
** Modules Revision 3.0 **
|
||
** Providing a flexible user environment **
|
||
** **
|
||
** File: ModuleCmd_Bootstrap.c **
|
||
** First Edition: 2002/04/22 **
|
||
** **
|
||
** Authors: Mark Lakata, lakata@att.net **
|
||
** **
|
||
** Description: Creates the necessary shell commands to install **
|
||
** the 'module' alias/shell function and the dependent **
|
||
** shell variables. Replaces the old $MODULESHOME/init **
|
||
** **
|
||
** Exports: ModuleCmd_Bootstrap **
|
||
** **
|
||
** Notes: **
|
||
** **
|
||
** ************************************************************************ **
|
||
****/
|
||
|
||
/** ** Copyright *********************************************************** **
|
||
** **
|
||
** Copyright 1991-1994 by John L. Furlan. **
|
||
** see LICENSE.GPL, which must be provided, for details **
|
||
** **
|
||
** ************************************************************************ **/
|
||
|
||
static char Id[] = "@(#)$Id: ModuleCmd_Bootstrap.c,v 1.7 2002/06/12 20:07:57 rkowen Exp $";
|
||
static void *UseId[] = { &UseId, Id };
|
||
|
||
/** ************************************************************************ **/
|
||
/** HEADERS **/
|
||
/** ************************************************************************ **/
|
||
|
||
#include "modules_def.h"
|
||
#include <unistd.h>
|
||
|
||
/** ************************************************************************ **/
|
||
/** LOCAL DATATYPES **/
|
||
/** ************************************************************************ **/
|
||
|
||
/** not applicable **/
|
||
|
||
/** ************************************************************************ **/
|
||
/** CONSTANTS **/
|
||
/** ************************************************************************ **/
|
||
|
||
/** not applicable **/
|
||
|
||
/** ************************************************************************ **/
|
||
/** MACROS **/
|
||
/** ************************************************************************ **/
|
||
|
||
/** not applicable **/
|
||
|
||
/** ************************************************************************ **/
|
||
/** LOCAL DATA **/
|
||
/** ************************************************************************ **/
|
||
|
||
/** File name of this module **/
|
||
static char module_name[] = "ModuleCmd_Bootstrap.c";
|
||
|
||
#if WITH_DEBUGGING_MODULECMD
|
||
static char _proc_ModuleCmd_Bootstrap[] = "ModuleCmd_Bootstrap";
|
||
#endif
|
||
|
||
/** ************************************************************************ **/
|
||
/** PROTOTYPES **/
|
||
/** ************************************************************************ **/
|
||
|
||
int tmpfile_mod(char** filename, FILE** file);
|
||
|
||
/** ************************************************************************ **/
|
||
/** STATIC FUNCTIONS **/
|
||
/** ************************************************************************ **/
|
||
|
||
|
||
/*++++
|
||
** ** Function-Header ***************************************************** **
|
||
** **
|
||
** Function: ModuleCmd_Bootstrap **
|
||
** **
|
||
** Description: Execution of the module-command 'Bootstrap' **
|
||
** **
|
||
** First Edition: 2002/04/15 **
|
||
** **
|
||
** Parameters: Tcl_Interp *interp Attached Tcl Interp. **
|
||
** int argc Number of arguments **
|
||
** char *argv[] Argument list **
|
||
** **
|
||
** Result: int TCL_ERROR Failure **
|
||
** TCL_OK Successfull operation **
|
||
** **
|
||
** Attached Globals: g_flags These are set up accordingly before **
|
||
** this function is called in order to **
|
||
** control everything **
|
||
** shell_name shell properties **
|
||
** shell_derelict **
|
||
** shell_init **
|
||
** shell_cmd_separator **
|
||
** **
|
||
** ************************************************************************ **
|
||
++++*/
|
||
|
||
int ModuleCmd_Bootstrap( Tcl_Interp *interp,
|
||
int argc,
|
||
char *argv[])
|
||
{
|
||
int result;
|
||
int return_val;
|
||
Tcl_Interp *tmp_interp; /** Tcl interpreter to be **/
|
||
|
||
char *command;
|
||
char *initfile;
|
||
|
||
FILE *aliasfile=0;
|
||
char *aliasfilename;
|
||
const char *execname;
|
||
char binary_path[1024];
|
||
|
||
/*
|
||
* generate the commands to source the 'module' init script.
|
||
*/
|
||
if( !strcmp( shell_derelict, "csh")) {
|
||
command = "source %s/%s%s";
|
||
} else if( !strcmp( shell_derelict, "sh")) {
|
||
command = ". %s/%s%s";
|
||
} else if( !strcmp( shell_derelict, "perl")) {
|
||
command = "require \"%s/%s%s\"";
|
||
} else if( !strcmp( shell_derelict, "python")) {
|
||
command = "execfile('%s/%s')%s";
|
||
} else {
|
||
ErrorLogger( ERR_SHELL, LOC, shell_name, NULL);
|
||
return(TCL_ERROR);
|
||
}
|
||
fprintf( stdout, command, MODULES_INIT_DIR, shell_init, shell_cmd_separator);
|
||
|
||
#if 0
|
||
g_flags |= M_LOAD; /* this is necessary so that the setenv do something */
|
||
|
||
tmp_interp = Tcl_CreateInterp();
|
||
if( TCL_OK != (return_val = InitializeModuleCommands( tmp_interp)))
|
||
return( return_val); /** -------- EXIT (FAILURE) -------> **/
|
||
|
||
if (Tcl_Eval(tmp_interp,command) != TCL_OK) {
|
||
ErrorLogger( ERR_COMMAND, LOC, command, NULL);
|
||
}
|
||
|
||
Tcl_DeleteInterp(tmp_interp);
|
||
|
||
g_flags &= ~M_LOAD;
|
||
#endif
|
||
|
||
return( TCL_OK);
|
||
} /** end of 'ModuleCmd_Bootstrap' **/
|