mirror of
https://github.com/envmodules/modules.git
synced 2026-06-18 00:06:53 +08:00
39b9c33649
for "module use", "module use --append", and "module unuse". * Changed the global variable names (flags,current_module) to (g_flags, g_current_module) to identify their ubiquity in the module source.
210 lines
6.3 KiB
C
210 lines
6.3 KiB
C
/*****
|
||
** ** Module Header ******************************************************* **
|
||
** **
|
||
** Modules Revision 3.0 **
|
||
** Providing a flexible user environment **
|
||
** **
|
||
** File: cmdUlvl.c **
|
||
** First Edition: 91/10/23 **
|
||
** **
|
||
** Authors: Jens Hamisch, jens@Strawberry.COM **
|
||
** **
|
||
** Description: The Tcl module-user routine which changes the cur- **
|
||
** rent user level **
|
||
** **
|
||
** Exports: cmdModuleUser **
|
||
** **
|
||
** Notes: **
|
||
** **
|
||
** ************************************************************************ **
|
||
****/
|
||
|
||
/** ** Copyright *********************************************************** **
|
||
** **
|
||
** Copyright 1991-1994 by John L. Furlan. **
|
||
** see LICENSE.GPL, which must be provided, for details **
|
||
** **
|
||
** ************************************************************************ **/
|
||
|
||
static char Id[] = "@(#)$Id: cmdUlvl.c,v 1.2 2001/06/09 09:48:46 rkowen Exp $";
|
||
static void *UseId[] = { &UseId, Id };
|
||
|
||
/** ************************************************************************ **/
|
||
/** HEADERS **/
|
||
/** ************************************************************************ **/
|
||
|
||
#include "modules_def.h"
|
||
|
||
/** ************************************************************************ **/
|
||
/** LOCAL DATATYPES **/
|
||
/** ************************************************************************ **/
|
||
|
||
/** not applicable **/
|
||
|
||
/** ************************************************************************ **/
|
||
/** CONSTANTS **/
|
||
/** ************************************************************************ **/
|
||
|
||
/** not applicable **/
|
||
|
||
/** ************************************************************************ **/
|
||
/** MACROS **/
|
||
/** ************************************************************************ **/
|
||
|
||
/** not applicable **/
|
||
|
||
/** ************************************************************************ **/
|
||
/** LOCAL DATA **/
|
||
/** ************************************************************************ **/
|
||
|
||
static char module_name[] = "cmdUlvl.c"; /** File name of this module **/
|
||
#if WITH_DEBUGGING_CALLBACK
|
||
static char _proc_cmdModuleUser[] = "cmdModuleUser";
|
||
#endif
|
||
#if WITH_DEBUGGING_CALLBACK_1
|
||
static char _proc_cmdModuleUser_sub[] = "cmdModuleUser_sub";
|
||
#endif
|
||
|
||
/**
|
||
** names for the user level
|
||
**/
|
||
|
||
static char _str_ul_novice[] = "novice";
|
||
static char _str_ul_advanced[] = "advanced";
|
||
static char _str_ul_expert[] = "expert";
|
||
|
||
/** ************************************************************************ **/
|
||
/** PROTOTYPES **/
|
||
/** ************************************************************************ **/
|
||
|
||
/** not applicable **/
|
||
|
||
|
||
/*++++
|
||
** ** Function-Header ***************************************************** **
|
||
** **
|
||
** Function: cmdModuleUser **
|
||
** **
|
||
** Description: Callback function for 'info' **
|
||
** **
|
||
** First Edition: 91/10/23 **
|
||
** **
|
||
** Parameters: ClientData client_data **
|
||
** Tcl_Interp *interp According Tcl interp.**
|
||
** int argc Number of arguments **
|
||
** char *argv[] Argument array **
|
||
** **
|
||
** Result: int TCL_OK Successfull completion **
|
||
** TCL_ERROR Any error **
|
||
** **
|
||
** Attached Globals: g_flags These are set up accordingly before **
|
||
** this function is called in order to **
|
||
** control everything **
|
||
** **
|
||
** ************************************************************************ **
|
||
++++*/
|
||
|
||
int cmdModuleUser( ClientData client_data,
|
||
Tcl_Interp *interp,
|
||
int argc,
|
||
char *argv[])
|
||
{
|
||
|
||
#if WITH_DEBUGGING_CALLBACK
|
||
ErrorLogger( NO_ERR_START, LOC, _proc_cmdModuleUser, NULL);
|
||
#endif
|
||
|
||
/**
|
||
** Whatis mode?
|
||
**/
|
||
|
||
if( g_flags & (M_WHATIS | M_HELP))
|
||
return( TCL_OK); /** ------- EXIT PROCEDURE -------> **/
|
||
|
||
/**
|
||
** Parameter check
|
||
**/
|
||
|
||
if( argc < 2) {
|
||
if( OK != ErrorLogger( ERR_USAGE, LOC, argv[0], "level ", NULL))
|
||
return( TCL_ERROR); /** -------- EXIT (FAILURE) -------> **/
|
||
}
|
||
|
||
/**
|
||
** Display mode?
|
||
**/
|
||
|
||
if( g_flags & M_DISPLAY) {
|
||
fprintf( stderr, "%s\t ", argv[ 0]);
|
||
while( --argc)
|
||
fprintf( stderr, "%s ", *++argv);
|
||
fprintf( stderr, "\n");
|
||
return( TCL_OK); /** ------- EXIT PROCEDURE -------> **/
|
||
}
|
||
|
||
/**
|
||
** Change the user level
|
||
**/
|
||
|
||
return( cmdModuleUser_sub( argv[ 1]));
|
||
|
||
} /** End of 'cmdModuleUser' **/
|
||
|
||
|
||
/*++++
|
||
** ** Function-Header ***************************************************** **
|
||
** **
|
||
** Function: cmdModuleUser_sub **
|
||
** **
|
||
** Description: Check the user level passed as argument and set up **
|
||
** the global user level flag **
|
||
** **
|
||
** First Edition: 91/10/23 **
|
||
** **
|
||
** Parameters: char *user_level User level string to be chk. **
|
||
** **
|
||
** Result: int TCL_OK Successfull completion **
|
||
** TCL_ERROR Any error **
|
||
** **
|
||
** Attached Globals: sw_userlvl Contains the binary coded userlevel **
|
||
** **
|
||
** ************************************************************************ **
|
||
++++*/
|
||
|
||
int cmdModuleUser_sub( char *user_level)
|
||
{
|
||
char *s;
|
||
int len_arg;
|
||
|
||
#if WITH_DEBUGGING_CALLBACK_1
|
||
ErrorLogger( NO_ERR_START, LOC, _proc_cmdModuleUser_sub, NULL);
|
||
#endif
|
||
|
||
len_arg = strlen( user_level);
|
||
s = user_level;
|
||
while( s && *s)
|
||
*s++ = tolower( *s);
|
||
|
||
if( !strncmp( user_level, _str_ul_novice, len_arg)) {
|
||
sw_userlvl = UL_NOVICE;
|
||
} else if( !strncmp( user_level, _str_ul_advanced, len_arg)) {
|
||
sw_userlvl = UL_ADVANCED;
|
||
} else if( !strncmp( user_level, _str_ul_expert, len_arg)) {
|
||
sw_userlvl = UL_EXPERT;
|
||
} else {
|
||
if( OK != ErrorLogger( ERR_USERLVL, LOC, user_level, NULL))
|
||
return( TCL_ERROR); /** ---- EXIT (FAILURE) ---> **/
|
||
}
|
||
|
||
/**
|
||
** Success
|
||
**/
|
||
|
||
#if WITH_DEBUGGING_CALLBACK_1
|
||
ErrorLogger( NO_ERR_END, LOC, _proc_cmdModuleUser_sub, NULL);
|
||
#endif
|
||
|
||
return( TCL_OK);
|
||
|
||
} /** End of 'cmdModuleUser_sub' **/
|