** ** 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: **
** **
** ************************************************************************ **
Included Files
- #include "modules_def.h"
- #include <stdio.h>
- #include <tcl.h>
- #include "config.h"
- #include <stdlib.h>
- #include <string.h>
- #include <unistd.h>
- #include <sys/types.h>
- #include <ctype.h>
- #include <sys/stat.h>
- #include <sys/termios.h>
- #include <fcntl.h>
- #include <sys/ioctl.h>
- #include <dirent.h>
- #include <errno.h>
Local Variables
Id
static char Id[]
UseId
static void* UseId[]
module_name
static char module_name[]
_str_ul_novice
static char _str_ul_novice[]
_str_ul_advanced
static char _str_ul_advanced[]
_str_ul_expert
static char _str_ul_expert[]
** ** 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[] )
** ** 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 )