mirror of
https://github.com/envmodules/modules.git
synced 2026-06-10 00:56:30 +08:00
557 lines
31 KiB
HTML
557 lines
31 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
|
|
|
|
<!-- This HTML file generated by cxref (version 1.6a). -->
|
|
<!-- cxref program (c) Andrew M. Bishop 1995,96,97,98,99,2000,01,02,03,04,05. -->
|
|
|
|
<!--
|
|
Cxref: cxref -block-comments -verbatim-comments -xref-all -index-all -html-src -Oxref ModuleCmd_Init.c
|
|
CPP : cxref-cpp -lang-c -C -dD -dI
|
|
-->
|
|
|
|
<HTML>
|
|
|
|
<HEAD>
|
|
<TITLE>Source File ModuleCmd_Init.c</TITLE>
|
|
<LINK rel="stylesheet" href="cxref.css" type="text/css">
|
|
</HEAD>
|
|
|
|
<BODY>
|
|
|
|
<pre>
|
|
<a name="line1">1 |</a> /*****
|
|
<a name="line2">2 |</a> ** ** Module Header ******************************************************* **
|
|
<a name="line3">3 |</a> ** **
|
|
<a name="line4">4 |</a> ** Modules Revision 3.0 **
|
|
<a name="line5">5 |</a> ** Providing a flexible user environment **
|
|
<a name="line6">6 |</a> ** **
|
|
<a name="line7">7 |</a> ** File: ModuleCmd_Init.c **
|
|
<a name="line8">8 |</a> ** First Edition: 1991/10/23 **
|
|
<a name="line9">9 |</a> ** **
|
|
<a name="line10">10 |</a> ** Authors: John Furlan, jlf@behere.com **
|
|
<a name="line11">11 |</a> ** Jens Hamisch, jens@Strawberry.COM **
|
|
<a name="line12">12 |</a> ** **
|
|
<a name="line13">13 |</a> ** Description: Routines that act on a user's "dot" startup files to **
|
|
<a name="line14">14 |</a> ** add, remove, and list modulefiles to/from/in their **
|
|
<a name="line15">15 |</a> ** startup files. **
|
|
<a name="line16">16 |</a> ** **
|
|
<a name="line17">17 |</a> ** Exports: ModuleCmd_Init **
|
|
<a name="line18">18 |</a> ** **
|
|
<a name="line19">19 |</a> ** Notes: **
|
|
<a name="line20">20 |</a> ** **
|
|
<a name="line21">21 |</a> ** ************************************************************************ **
|
|
<a name="line22">22 |</a> ****/
|
|
<a name="line23">23 |</a>
|
|
<a name="line24">24 |</a> /** ** Copyright *********************************************************** **
|
|
<a name="line25">25 |</a> ** **
|
|
<a name="line26">26 |</a> ** Copyright 1991-1994 by John L. Furlan. **
|
|
<a name="line27">27 |</a> ** see LICENSE.GPL, which must be provided, for details **
|
|
<a name="line28">28 |</a> ** **
|
|
<a name="line29">29 |</a> ** ************************************************************************ **/
|
|
<a name="line30">30 |</a>
|
|
<a name="line31">31 |</a> static char Id[] = "@(#)$Id: ModuleCmd_Init.c.src.html,v 1.6 2006/01/18 05:35:11 rkowen Exp $";
|
|
<a name="line32">32 |</a> static void *UseId[] = { &UseId, Id };
|
|
<a name="line33">33 |</a>
|
|
<a name="line34">34 |</a> /** ************************************************************************ **/
|
|
<a name="line35">35 |</a> /** HEADERS **/
|
|
<a name="line36">36 |</a> /** ************************************************************************ **/
|
|
<a name="line37">37 |</a>
|
|
<a name="line38">38 |</a> #include "modules_def.h"
|
|
<a name="line39">39 |</a>
|
|
<a name="line40">40 |</a> /** ************************************************************************ **/
|
|
<a name="line41">41 |</a> /** LOCAL DATATYPES **/
|
|
<a name="line42">42 |</a> /** ************************************************************************ **/
|
|
<a name="line43">43 |</a>
|
|
<a name="line44">44 |</a> /** not applicable **/
|
|
<a name="line45">45 |</a>
|
|
<a name="line46">46 |</a> /** ************************************************************************ **/
|
|
<a name="line47">47 |</a> /** CONSTANTS **/
|
|
<a name="line48">48 |</a> /** ************************************************************************ **/
|
|
<a name="line49">49 |</a>
|
|
<a name="line50">50 |</a> /** not applicable **/
|
|
<a name="line51">51 |</a>
|
|
<a name="line52">52 |</a> /** ************************************************************************ **/
|
|
<a name="line53">53 |</a> /** MACROS **/
|
|
<a name="line54">54 |</a> /** ************************************************************************ **/
|
|
<a name="line55">55 |</a>
|
|
<a name="line56">56 |</a> /** not applicable **/
|
|
<a name="line57">57 |</a>
|
|
<a name="line58">58 |</a> /** ************************************************************************ **/
|
|
<a name="line59">59 |</a> /** LOCAL DATA **/
|
|
<a name="line60">60 |</a> /** ************************************************************************ **/
|
|
<a name="line61">61 |</a>
|
|
<a name="line62">62 |</a> static char module_name[] = "ModuleCmd_Init.c"; /** File name of this module **/
|
|
<a name="line63">63 |</a>
|
|
<a name="line64">64 |</a> #if WITH_DEBUGGING_MODULECMD
|
|
<a name="line65">65 |</a> static char _proc_ModuleCmd_Init[] = "ModuleCmd_Init";
|
|
<a name="line66">66 |</a> #endif
|
|
<a name="line67">67 |</a>
|
|
<a name="line68">68 |</a> /** ************************************************************************ **/
|
|
<a name="line69">69 |</a> /** PROTOTYPES **/
|
|
<a name="line70">70 |</a> /** ************************************************************************ **/
|
|
<a name="line71">71 |</a>
|
|
<a name="line72">72 |</a> /** not applicable **/
|
|
<a name="line73">73 |</a>
|
|
<a name="line74">74 |</a> /** ************************************************************************ **/
|
|
<a name="line75">75 |</a> /** STATIC FUNCTIONS **/
|
|
<a name="line76">76 |</a> /** ************************************************************************ **/
|
|
<a name="line77">77 |</a>
|
|
<a name="line78">78 |</a> /* Handles the output of a substring where the start & ending positions
|
|
<a name="line79">79 |</a> * are given - if either is NULL then just do nothing and return -1
|
|
<a name="line80">80 |</a> * all other cases it returns 0
|
|
<a name="line81">81 |</a> */
|
|
<a name="line82">82 |</a> static int out_substr(FILE *stream, char *start, char *end) {
|
|
<a name="line83">83 |</a> char save;
|
|
<a name="line84">84 |</a>
|
|
<a name="line85">85 |</a> if (!start || !end) return -1;
|
|
<a name="line86">86 |</a>
|
|
<a name="line87">87 |</a> save = *end;
|
|
<a name="line88">88 |</a> *end = '\0';
|
|
<a name="line89">89 |</a> fputs(start, stream);
|
|
<a name="line90">90 |</a> *end = save;
|
|
<a name="line91">91 |</a> return 0;
|
|
<a name="line92">92 |</a> }
|
|
<a name="line93">93 |</a>
|
|
<a name="line94">94 |</a>
|
|
<a name="line95">95 |</a> /*++++
|
|
<a name="line96">96 |</a> ** ** Function-Header ***************************************************** **
|
|
<a name="line97">97 |</a> ** **
|
|
<a name="line98">98 |</a> ** Function: ModuleCmd_Init **
|
|
<a name="line99">99 |</a> ** **
|
|
<a name="line100">100 |</a> ** Description: Execution of the module-command 'init' **
|
|
<a name="line101">101 |</a> ** **
|
|
<a name="line102">102 |</a> ** First Edition: 1991/10/23 **
|
|
<a name="line103">103 |</a> ** **
|
|
<a name="line104">104 |</a> ** Parameters: Tcl_Interp *interp Attached Tcl Interp. **
|
|
<a name="line105">105 |</a> ** int argc Number of arguments **
|
|
<a name="line106">106 |</a> ** char *argv[] Argument list **
|
|
<a name="line107">107 |</a> ** **
|
|
<a name="line108">108 |</a> ** Result: int TCL_ERROR Failure **
|
|
<a name="line109">109 |</a> ** TCL_OK Successfull operation **
|
|
<a name="line110">110 |</a> ** **
|
|
<a name="line111">111 |</a> ** Attached Globals: g_flags These are set up accordingly before **
|
|
<a name="line112">112 |</a> ** this function is called in order to **
|
|
<a name="line113">113 |</a> ** control everything **
|
|
<a name="line114">114 |</a> ** **
|
|
<a name="line115">115 |</a> ** ************************************************************************ **
|
|
<a name="line116">116 |</a> ++++*/
|
|
<a name="line117">117 |</a>
|
|
<a name="line118">118 |</a> int ModuleCmd_Init( Tcl_Interp *interp,
|
|
<a name="line119">119 |</a> int argc,
|
|
<a name="line120">120 |</a> char *argv[])
|
|
<a name="line121">121 |</a> {
|
|
<a name="line122">122 |</a> char *home_pathname,
|
|
<a name="line123">123 |</a> *home_pathname2,
|
|
<a name="line124">124 |</a> **shell_startups; /** A list off all startup files our **/ /** invoking shell will source **/
|
|
<a name="line125">125 |</a> int max_home_path = MOD_BUFSIZE + 40;
|
|
<a name="line126">126 |</a> Tcl_RegExp modcmdPtr = Tcl_RegExpCompile(interp,
|
|
<a name="line127">127 |</a> "^([ \t]*module[ \t]+)(load|add)[ \t]+([^#\n]*)([#.\n]*)");
|
|
<a name="line128">128 |</a> char **modlist,
|
|
<a name="line129">129 |</a> *home,
|
|
<a name="line130">130 |</a> *buffer,
|
|
<a name="line131">131 |</a> ch,
|
|
<a name="line132">132 |</a> *startp, *endp;
|
|
<a name="line133">133 |</a> FILE *fileptr, *newfileptr;
|
|
<a name="line134">134 |</a> int i, j,
|
|
<a name="line135">135 |</a> found_module_command = 0,
|
|
<a name="line136">136 |</a> found_modload_flag = 0,
|
|
<a name="line137">137 |</a> shell_num = 0,
|
|
<a name="line138">138 |</a> final_list_num = 0,
|
|
<a name="line139">139 |</a> nummods, bufsiz = 8192,
|
|
<a name="line140">140 |</a> new_file,
|
|
<a name="line141">141 |</a> homelen, home_end, path_end;
|
|
<a name="line142">142 |</a>
|
|
<a name="line143">143 |</a> #if WITH_DEBUGGING_MODULECMD
|
|
<a name="line144">144 |</a> ErrorLogger(NO_ERR_START, LOC, _proc_ModuleCmd_Init, NULL);
|
|
<a name="line145">145 |</a> #endif
|
|
<a name="line146">146 |</a>
|
|
<a name="line147">147 |</a> /**
|
|
<a name="line148">148 |</a> ** If called with no arguments and the flags don't say that there's some-
|
|
<a name="line149">149 |</a> ** thing to do - exit now!
|
|
<a name="line150">150 |</a> **/
|
|
<a name="line151">151 |</a> if (argc < 1 && !(g_flags & (M_DISPLAY | M_CLEAR)))
|
|
<a name="line152">152 |</a> goto success0;
|
|
<a name="line153">153 |</a>
|
|
<a name="line154">154 |</a> /**
|
|
<a name="line155">155 |</a> ** Parameter check for the initswitch command
|
|
<a name="line156">156 |</a> **/
|
|
<a name="line157">157 |</a> if (g_flags & M_SWITCH) {
|
|
<a name="line158">158 |</a> argc--;
|
|
<a name="line159">159 |</a> if (argc != 1)
|
|
<a name="line160">160 |</a> if (OK != ErrorLogger(ERR_USAGE, LOC,
|
|
<a name="line161">161 |</a> "initswitch oldmodule newmodule", NULL))
|
|
<a name="line162">162 |</a> goto unwind0;
|
|
<a name="line163">163 |</a> }
|
|
<a name="line164">164 |</a>
|
|
<a name="line165">165 |</a> /**
|
|
<a name="line166">166 |</a> ** Where's my HOME?
|
|
<a name="line167">167 |</a> **/
|
|
<a name="line168">168 |</a> if ((char *) NULL == (home = (char *) getenv("HOME")))
|
|
<a name="line169">169 |</a> if (OK != ErrorLogger(ERR_HOME, LOC, NULL))
|
|
<a name="line170">170 |</a> goto unwind1;
|
|
<a name="line171">171 |</a>
|
|
<a name="line172">172 |</a> /**
|
|
<a name="line173">173 |</a> ** Put HOME into a buffer and store a slash where the end of HOME is
|
|
<a name="line174">174 |</a> ** for quick concatination of the shell startup files.
|
|
<a name="line175">175 |</a> **/
|
|
<a name="line176">176 |</a> homelen = strlen(home) + 40;
|
|
<a name="line177">177 |</a> if ((char *) NULL ==
|
|
<a name="line178">178 |</a> (home_pathname = stringer(NULL, homelen, home, "/", NULL)))
|
|
<a name="line179">179 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line180">180 |</a> goto unwind0;
|
|
<a name="line181">181 |</a>
|
|
<a name="line182">182 |</a> if ((char *) NULL == (home_pathname2 = stringer(NULL, homelen, NULL)))
|
|
<a name="line183">183 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line184">184 |</a> goto unwind1;
|
|
<a name="line185">185 |</a>
|
|
<a name="line186">186 |</a> home_end = strlen(home_pathname);
|
|
<a name="line187">187 |</a>
|
|
<a name="line188">188 |</a> /**
|
|
<a name="line189">189 |</a> ** Allocate a buffer for fgets ...
|
|
<a name="line190">190 |</a> **/
|
|
<a name="line191">191 |</a> if (NULL == (buffer = stringer(NULL, bufsiz, NULL)))
|
|
<a name="line192">192 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line193">193 |</a> goto unwind2;
|
|
<a name="line194">194 |</a>
|
|
<a name="line195">195 |</a> /**
|
|
<a name="line196">196 |</a> ** Scan all startup files related to the current invoking shell
|
|
<a name="line197">197 |</a> **/
|
|
<a name="line198">198 |</a> if ((char **) NULL == (shell_startups = SetStartupFiles(shell_name)))
|
|
<a name="line199">199 |</a> goto unwind3;
|
|
<a name="line200">200 |</a>
|
|
<a name="line201">201 |</a> while (shell_startups[shell_num]) {
|
|
<a name="line202">202 |</a> new_file = 1;
|
|
<a name="line203">203 |</a> found_modload_flag = 0;
|
|
<a name="line204">204 |</a>
|
|
<a name="line205">205 |</a> if ((char *) NULL == stringer(home_pathname + home_end, 40,
|
|
<a name="line206">206 |</a> shell_startups[shell_num], NULL))
|
|
<a name="line207">207 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line208">208 |</a> goto unwind3;
|
|
<a name="line209">209 |</a>
|
|
<a name="line210">210 |</a> if (NULL == (fileptr = fopen(home_pathname, "r")))
|
|
<a name="line211">211 |</a> goto unwhile0; /** while( shell_startups) ... **/
|
|
<a name="line212">212 |</a>
|
|
<a name="line213">213 |</a> /**
|
|
<a name="line214">214 |</a> ** ... when the startup file exists ...
|
|
<a name="line215">215 |</a> ** open a new startupfile with the extension -NEW for output
|
|
<a name="line216">216 |</a> **/
|
|
<a name="line217">217 |</a> path_end = strlen(home_pathname);
|
|
<a name="line218">218 |</a> if ((char *) NULL == stringer(home_pathname + path_end,
|
|
<a name="line219">219 |</a> homelen - path_end, "-NEW", NULL))
|
|
<a name="line220">220 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line221">221 |</a> goto unwind3;
|
|
<a name="line222">222 |</a>
|
|
<a name="line223">223 |</a> if (!(g_flags & M_DISPLAY) &&
|
|
<a name="line224">224 |</a> ((FILE *) NULL == (newfileptr = fopen(home_pathname, "w")))) {
|
|
<a name="line225">225 |</a> (void) ErrorLogger(ERR_OPEN, LOC, home_pathname, "init", NULL);
|
|
<a name="line226">226 |</a> goto unwhile0; /** while( shell_startups) ... **/
|
|
<a name="line227">227 |</a> }
|
|
<a name="line228">228 |</a>
|
|
<a name="line229">229 |</a> /**
|
|
<a name="line230">230 |</a> ** Seek for a modules load|add command within the shell startup file
|
|
<a name="line231">231 |</a> ** Copy the shell input file to the new one until the magic cookie
|
|
<a name="line232">232 |</a> ** is found.
|
|
<a name="line233">233 |</a> **/
|
|
<a name="line234">234 |</a> while (fgets(buffer, bufsiz, fileptr)) {
|
|
<a name="line235">235 |</a> if (Tcl_RegExpExec(interp, modcmdPtr, buffer, buffer)) {
|
|
<a name="line236">236 |</a> found_modload_flag = 1;
|
|
<a name="line237">237 |</a> /**
|
|
<a name="line238">238 |</a> ** ... module load|add found ...
|
|
<a name="line239">239 |</a> **/
|
|
<a name="line240">240 |</a> found_module_command = 1;
|
|
<a name="line241">241 |</a>
|
|
<a name="line242">242 |</a> /* print out the "module" part */
|
|
<a name="line243">243 |</a> (void) Tcl_RegExpRange(modcmdPtr, 1,
|
|
<a name="line244">244 |</a> (CONST84 char **) &startp,
|
|
<a name="line245">245 |</a> (CONST84 char **) &endp);
|
|
<a name="line246">246 |</a> if (!(g_flags & M_DISPLAY))
|
|
<a name="line247">247 |</a> (void) out_substr(newfileptr, startp, endp);
|
|
<a name="line248">248 |</a>
|
|
<a name="line249">249 |</a> /* print out the "add/load" part */
|
|
<a name="line250">250 |</a> (void) Tcl_RegExpRange(modcmdPtr, 2,
|
|
<a name="line251">251 |</a> (CONST84 char **) &startp,
|
|
<a name="line252">252 |</a> (CONST84 char **) &endp);
|
|
<a name="line253">253 |</a> if (!(g_flags & M_DISPLAY))
|
|
<a name="line254">254 |</a> (void) out_substr(newfileptr, startp, endp);
|
|
<a name="line255">255 |</a>
|
|
<a name="line256">256 |</a> if (!(g_flags & M_CLEAR)) {
|
|
<a name="line257">257 |</a> /* look at the "module list" part */
|
|
<a name="line258">258 |</a> (void) Tcl_RegExpRange(modcmdPtr, 3,
|
|
<a name="line259">259 |</a> (CONST84 char **) &startp,
|
|
<a name="line260">260 |</a> (CONST84 char **) &endp);
|
|
<a name="line261">261 |</a> /* save the end character & set to 0 */
|
|
<a name="line262">262 |</a> if (endp) {
|
|
<a name="line263">263 |</a> ch = *endp;
|
|
<a name="line264">264 |</a> *endp = '\0';
|
|
<a name="line265">265 |</a> }
|
|
<a name="line266">266 |</a>
|
|
<a name="line267">267 |</a> if ((char **) NULL ==
|
|
<a name="line268">268 |</a> (modlist = SplitIntoList(interp, startp, &nummods)))
|
|
<a name="line269">269 |</a> continue; /** while(fgets) **/
|
|
<a name="line270">270 |</a>
|
|
<a name="line271">271 |</a> /* restore the list end character */
|
|
<a name="line272">272 |</a> if (endp)
|
|
<a name="line273">273 |</a> *endp = ch;
|
|
<a name="line274">274 |</a>
|
|
<a name="line275">275 |</a> if (g_flags & M_DISPLAY) {
|
|
<a name="line276">276 |</a> if (modlist[0] == NULL) {
|
|
<a name="line277">277 |</a> fprintf(stderr,
|
|
<a name="line278">278 |</a> "\nNo modules are loaded in %s's initialization file "
|
|
<a name="line279">279 |</a> "$HOME/%s\n", shell_name,
|
|
<a name="line280">280 |</a> shell_startups[shell_num]);
|
|
<a name="line281">281 |</a> } else {
|
|
<a name="line282">282 |</a> if (new_file) {
|
|
<a name="line283">283 |</a> fprintf(stderr,
|
|
<a name="line284">284 |</a> "\n%s initialization file $HOME/%s loads modules:\n\t",
|
|
<a name="line285">285 |</a> shell_name, shell_startups[shell_num]);
|
|
<a name="line286">286 |</a> (void) out_substr(stderr, startp, endp);
|
|
<a name="line287">287 |</a> fputs("\n",stderr);
|
|
<a name="line288">288 |</a> new_file = 0;
|
|
<a name="line289">289 |</a> } else {
|
|
<a name="line290">290 |</a> fputs("\t",stderr);
|
|
<a name="line291">291 |</a> (void) out_substr(stderr, startp, endp);
|
|
<a name="line292">292 |</a> fputs("\n",stderr);
|
|
<a name="line293">293 |</a> }
|
|
<a name="line294">294 |</a> }
|
|
<a name="line295">295 |</a>
|
|
<a name="line296">296 |</a> FreeList(modlist, nummods);
|
|
<a name="line297">297 |</a> continue; /** while(fgets) **/
|
|
<a name="line298">298 |</a> }
|
|
<a name="line299">299 |</a>
|
|
<a name="line300">300 |</a> for (i = 0; i < argc; i++) {
|
|
<a name="line301">301 |</a> /**
|
|
<a name="line302">302 |</a> ** Search through the modlist of modules that are currently
|
|
<a name="line303">303 |</a> ** in the ~/.startup. If one is found, it handles removing
|
|
<a name="line304">304 |</a> ** it, switching it, etc.
|
|
<a name="line305">305 |</a> **/
|
|
<a name="line306">306 |</a> for (j = 0; j < nummods; j++) {
|
|
<a name="line307">307 |</a> if (modlist[j] && !strcmp(modlist[j], argv[i])) {
|
|
<a name="line308">308 |</a> if (g_flags & (M_LOAD | M_REMOVE)) {
|
|
<a name="line309">309 |</a> /**
|
|
<a name="line310">310 |</a> ** If removing, adding, prepending it,
|
|
<a name="line311">311 |</a> ** NULL it off the list.
|
|
<a name="line312">312 |</a> **/
|
|
<a name="line313">313 |</a> if (g_flags & M_REMOVE)
|
|
<a name="line314">314 |</a> fprintf(stderr, "Removed %s\n",
|
|
<a name="line315">315 |</a> modlist[j]);
|
|
<a name="line316">316 |</a> else if ((g_flags & M_LOAD)
|
|
<a name="line317">317 |</a> && !(g_flags & M_PREPEND))
|
|
<a name="line318">318 |</a> fprintf(stderr, "Moving %s to end\n",
|
|
<a name="line319">319 |</a> modlist[j]);
|
|
<a name="line320">320 |</a> else if (g_flags & M_PREPEND)
|
|
<a name="line321">321 |</a> fprintf(stderr,
|
|
<a name="line322">322 |</a> "Moving %s to beginning\n",
|
|
<a name="line323">323 |</a> modlist[j]);
|
|
<a name="line324">324 |</a> null_free((void *) (modlist + j));
|
|
<a name="line325">325 |</a>
|
|
<a name="line326">326 |</a> } else if (g_flags & M_SWITCH) {
|
|
<a name="line327">327 |</a> /**
|
|
<a name="line328">328 |</a> ** If switching it, swap the old string with
|
|
<a name="line329">329 |</a> ** the new string in the list.
|
|
<a name="line330">330 |</a> **/
|
|
<a name="line331">331 |</a> fprintf(stderr, "Switching %s to %s\n",
|
|
<a name="line332">332 |</a> modlist[j], argv[i + 1]);
|
|
<a name="line333">333 |</a> null_free((void *) (modlist + j));
|
|
<a name="line334">334 |</a> modlist[j] = strdup(argv[i + 1]);
|
|
<a name="line335">335 |</a> }
|
|
<a name="line336">336 |</a> } /** if **/
|
|
<a name="line337">337 |</a> } /** for(j) **/
|
|
<a name="line338">338 |</a> } /** for(i) **/
|
|
<a name="line339">339 |</a> /**
|
|
<a name="line340">340 |</a> ** Ok, if we're removing it, prepending it, or switching it,
|
|
<a name="line341">341 |</a> ** the modlist contains what needs to be put where...
|
|
<a name="line342">342 |</a> **/
|
|
<a name="line343">343 |</a> if ((new_file) && (g_flags & M_PREPEND)) {
|
|
<a name="line344">344 |</a> /**
|
|
<a name="line345">345 |</a> ** PREPENDING
|
|
<a name="line346">346 |</a> **/
|
|
<a name="line347">347 |</a> for (i = 0; i < argc; i++) {
|
|
<a name="line348">348 |</a> fprintf(newfileptr, " %s", argv[i]);
|
|
<a name="line349">349 |</a> final_list_num++;
|
|
<a name="line350">350 |</a> }
|
|
<a name="line351">351 |</a> }
|
|
<a name="line352">352 |</a>
|
|
<a name="line353">353 |</a> if ((g_flags & (M_LOAD | M_REMOVE | M_SWITCH))) {
|
|
<a name="line354">354 |</a> /**
|
|
<a name="line355">355 |</a> ** DUMP LIST
|
|
<a name="line356">356 |</a> **/
|
|
<a name="line357">357 |</a> for (j = 0; j < nummods; j++) {
|
|
<a name="line358">358 |</a> if (modlist[j]) {
|
|
<a name="line359">359 |</a> fprintf(newfileptr, " %s", modlist[j]);
|
|
<a name="line360">360 |</a> final_list_num++;
|
|
<a name="line361">361 |</a> }
|
|
<a name="line362">362 |</a> }
|
|
<a name="line363">363 |</a> }
|
|
<a name="line364">364 |</a> if ((new_file) && (g_flags & M_LOAD)
|
|
<a name="line365">365 |</a> && !(g_flags & M_PREPEND)) {
|
|
<a name="line366">366 |</a> /**
|
|
<a name="line367">367 |</a> ** ADDING
|
|
<a name="line368">368 |</a> **/
|
|
<a name="line369">369 |</a> for (i = 0; i < argc; i++) {
|
|
<a name="line370">370 |</a> fprintf(newfileptr, " %s", argv[i]);
|
|
<a name="line371">371 |</a> final_list_num++;
|
|
<a name="line372">372 |</a> }
|
|
<a name="line373">373 |</a> }
|
|
<a name="line374">374 |</a> /* always place a null if an empty list */
|
|
<a name="line375">375 |</a> if (!final_list_num)
|
|
<a name="line376">376 |</a> fprintf(newfileptr, " %s", "null");
|
|
<a name="line377">377 |</a>
|
|
<a name="line378">378 |</a> FreeList(modlist, nummods);
|
|
<a name="line379">379 |</a>
|
|
<a name="line380">380 |</a> } else { /** if( M_CLEAR) **/
|
|
<a name="line381">381 |</a> /**
|
|
<a name="line382">382 |</a> ** Clear out the list, but leave a "null"
|
|
<a name="line383">383 |</a> **/
|
|
<a name="line384">384 |</a> fprintf(newfileptr, " %s", "null");
|
|
<a name="line385">385 |</a> }
|
|
<a name="line386">386 |</a> /**
|
|
<a name="line387">387 |</a> ** Restore any comments at the end of the line...
|
|
<a name="line388">388 |</a> **/
|
|
<a name="line389">389 |</a> (void) Tcl_RegExpRange(modcmdPtr, 4,
|
|
<a name="line390">390 |</a> (CONST84 char **) &startp,
|
|
<a name="line391">391 |</a> (CONST84 char **) &endp);
|
|
<a name="line392">392 |</a> (void) out_substr(newfileptr, startp, endp);
|
|
<a name="line393">393 |</a> new_file = 0;
|
|
<a name="line394">394 |</a> } else { /* not module load line */
|
|
<a name="line395">395 |</a> if (!(g_flags & M_DISPLAY))
|
|
<a name="line396">396 |</a> fputs(buffer, newfileptr);
|
|
<a name="line397">397 |</a> }
|
|
<a name="line398">398 |</a> } /** while (fgets) **/
|
|
<a name="line399">399 |</a> if (g_flags & M_DISPLAY) {
|
|
<a name="line400">400 |</a> fputs("\n",stderr);
|
|
<a name="line401">401 |</a> }
|
|
<a name="line402">402 |</a>
|
|
<a name="line403">403 |</a> if (!found_modload_flag) {
|
|
<a name="line404">404 |</a> /**
|
|
<a name="line405">405 |</a> ** If not found...
|
|
<a name="line406">406 |</a> **/
|
|
<a name="line407">407 |</a> if (EOF == fclose(fileptr))
|
|
<a name="line408">408 |</a> if (OK != ErrorLogger(ERR_CLOSE, LOC, home_pathname, NULL))
|
|
<a name="line409">409 |</a> goto unwind3;
|
|
<a name="line410">410 |</a>
|
|
<a name="line411">411 |</a> if (!(g_flags & M_DISPLAY)) {
|
|
<a name="line412">412 |</a> if (EOF == fclose(newfileptr))
|
|
<a name="line413">413 |</a> if (OK != ErrorLogger(ERR_CLOSE, LOC, home_pathname, NULL))
|
|
<a name="line414">414 |</a> goto unwind3;
|
|
<a name="line415">415 |</a>
|
|
<a name="line416">416 |</a> if (0 > unlink(home_pathname))
|
|
<a name="line417">417 |</a> if (OK != ErrorLogger(ERR_UNLINK, LOC, home_pathname, NULL))
|
|
<a name="line418">418 |</a> goto unwind3;
|
|
<a name="line419">419 |</a> }
|
|
<a name="line420">420 |</a> } else { /* found_modload_flag */
|
|
<a name="line421">421 |</a> /**
|
|
<a name="line422">422 |</a> ** Don't need these any more
|
|
<a name="line423">423 |</a> **/
|
|
<a name="line424">424 |</a> if (EOF == fclose(fileptr))
|
|
<a name="line425">425 |</a> if (OK != ErrorLogger(ERR_CLOSE, LOC, home_pathname, NULL))
|
|
<a name="line426">426 |</a> goto unwind3;
|
|
<a name="line427">427 |</a>
|
|
<a name="line428">428 |</a> if (g_flags & M_DISPLAY)
|
|
<a name="line429">429 |</a> goto unwhile0; /** while( shell_startups) ... **/
|
|
<a name="line430">430 |</a>
|
|
<a name="line431">431 |</a> if (EOF == fclose(newfileptr))
|
|
<a name="line432">432 |</a> if (OK != ErrorLogger(ERR_CLOSE, LOC, home_pathname, NULL))
|
|
<a name="line433">433 |</a> goto unwind3;
|
|
<a name="line434">434 |</a>
|
|
<a name="line435">435 |</a> /**
|
|
<a name="line436">436 |</a> ** Truncate -NEW from home_pathname and Create a -OLD name
|
|
<a name="line437">437 |</a> ** Move ~/.startup to ~/.startup-OLD
|
|
<a name="line438">438 |</a> **/
|
|
<a name="line439">439 |</a> home_pathname[path_end] = '\0';
|
|
<a name="line440">440 |</a>
|
|
<a name="line441">441 |</a> if ((char *) NULL == stringer(home_pathname2, homelen,
|
|
<a name="line442">442 |</a> home_pathname, "-OLD", NULL))
|
|
<a name="line443">443 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line444">444 |</a> goto unwind3;
|
|
<a name="line445">445 |</a>
|
|
<a name="line446">446 |</a> if (0 > rename(home_pathname, home_pathname2))
|
|
<a name="line447">447 |</a> if (OK !=
|
|
<a name="line448">448 |</a> ErrorLogger(ERR_RENAME, LOC, home_pathname, home_pathname2,
|
|
<a name="line449">449 |</a> NULL))
|
|
<a name="line450">450 |</a> goto unwind3;
|
|
<a name="line451">451 |</a>
|
|
<a name="line452">452 |</a> /**
|
|
<a name="line453">453 |</a> ** Create a -NEW name
|
|
<a name="line454">454 |</a> ** Move ~/.startup-NEW to ~/.startup
|
|
<a name="line455">455 |</a> **/
|
|
<a name="line456">456 |</a> if ((char *) NULL == stringer(home_pathname2, homelen,
|
|
<a name="line457">457 |</a> home_pathname, "-NEW", NULL))
|
|
<a name="line458">458 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line459">459 |</a> goto unwind3;
|
|
<a name="line460">460 |</a>
|
|
<a name="line461">461 |</a> if (0 > rename(home_pathname2, home_pathname)) {
|
|
<a name="line462">462 |</a> if (OK !=
|
|
<a name="line463">463 |</a> ErrorLogger(ERR_RENAME, LOC, home_pathname2, home_pathname,
|
|
<a name="line464">464 |</a> NULL)) {
|
|
<a name="line465">465 |</a> /**
|
|
<a name="line466">466 |</a> ** Put the -OLD one back if I can't rename it
|
|
<a name="line467">467 |</a> **/
|
|
<a name="line468">468 |</a> if ((char *) NULL == stringer(home_pathname2, homelen,
|
|
<a name="line469">469 |</a> home_pathname, "-OLD", NULL))
|
|
<a name="line470">470 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line471">471 |</a> goto unwind3;
|
|
<a name="line472">472 |</a>
|
|
<a name="line473">473 |</a> if (0 > rename(home_pathname2, home_pathname))
|
|
<a name="line474">474 |</a> ErrorLogger(ERR_RENAME, LOC, home_pathname2,
|
|
<a name="line475">475 |</a> home_pathname, NULL);
|
|
<a name="line476">476 |</a>
|
|
<a name="line477">477 |</a> goto unwind3;
|
|
<a name="line478">478 |</a> }
|
|
<a name="line479">479 |</a> }
|
|
<a name="line480">480 |</a>
|
|
<a name="line481">481 |</a> /**
|
|
<a name="line482">482 |</a> ** So far we're successful so
|
|
<a name="line483">483 |</a> ** Create a -OLD name
|
|
<a name="line484">484 |</a> ** Unlink ~/.startup-OLD
|
|
<a name="line485">485 |</a> **/
|
|
<a name="line486">486 |</a> if ((char *) NULL == stringer(home_pathname2, homelen,
|
|
<a name="line487">487 |</a> home_pathname, "-OLD", NULL))
|
|
<a name="line488">488 |</a> if (OK != ErrorLogger(ERR_STRING, LOC, NULL))
|
|
<a name="line489">489 |</a> goto unwind3;
|
|
<a name="line490">490 |</a>
|
|
<a name="line491">491 |</a> if ((g_flags & (M_CLEAR | M_LOAD | M_REMOVE | M_SWITCH)))
|
|
<a name="line492">492 |</a> if (0 > unlink(home_pathname2)) {
|
|
<a name="line493">493 |</a> ErrorLogger(ERR_UNLINK, LOC, home_pathname2, NULL);
|
|
<a name="line494">494 |</a> goto unwind3;
|
|
<a name="line495">495 |</a> }
|
|
<a name="line496">496 |</a> }
|
|
<a name="line497">497 |</a> unwhile0:
|
|
<a name="line498">498 |</a> shell_num++;
|
|
<a name="line499">499 |</a> } /** while( shell_startups) **/
|
|
<a name="line500">500 |</a>
|
|
<a name="line501">501 |</a> /**
|
|
<a name="line502">502 |</a> ** Free up internal I/O buffers
|
|
<a name="line503">503 |</a> **/
|
|
<a name="line504">504 |</a> null_free((void *) &buffer);
|
|
<a name="line505">505 |</a>
|
|
<a name="line506">506 |</a> if (!found_module_command)
|
|
<a name="line507">507 |</a> if (OK != ErrorLogger(ERR_INIT_STUP, LOC, shell_name, NULL))
|
|
<a name="line508">508 |</a> goto unwind2;
|
|
<a name="line509">509 |</a>
|
|
<a name="line510">510 |</a> #if WITH_DEBUGGING_MODULECMD
|
|
<a name="line511">511 |</a> ErrorLogger(NO_ERR_END, LOC, _proc_ModuleCmd_Init, NULL);
|
|
<a name="line512">512 |</a> #endif
|
|
<a name="line513">513 |</a>
|
|
<a name="line514">514 |</a> /**
|
|
<a name="line515">515 |</a> ** Free up memory
|
|
<a name="line516">516 |</a> **/
|
|
<a name="line517">517 |</a> null_free((void *) &home_pathname2);
|
|
<a name="line518">518 |</a> null_free((void *) &home_pathname);
|
|
<a name="line519">519 |</a>
|
|
<a name="line520">520 |</a> success0:
|
|
<a name="line521">521 |</a> return (TCL_OK); /** -------- EXIT (SUCCESS) -------> **/
|
|
<a name="line522">522 |</a>
|
|
<a name="line523">523 |</a> unwind3:
|
|
<a name="line524">524 |</a> null_free((void *) &buffer);
|
|
<a name="line525">525 |</a> unwind2:
|
|
<a name="line526">526 |</a> null_free((void *) &home_pathname2);
|
|
<a name="line527">527 |</a> unwind1:
|
|
<a name="line528">528 |</a> null_free((void *) &home_pathname);
|
|
<a name="line529">529 |</a> unwind0:
|
|
<a name="line530">530 |</a> return (TCL_ERROR); /** -------- EXIT (FAILURE) -------> **/
|
|
<a name="line531">531 |</a>
|
|
<a name="line532">532 |</a> } /** end of 'ModuleCmd_Init' **/
|
|
</pre>
|
|
|
|
</BODY>
|
|
</HTML>
|