/ast/src/cmd/re/ |
H A D | sed0.c | 29 " makes editing changes according to a script of editing commands," 30 " and writes the results to standard output. The script is obtained" 31 " from either the script operand string or a combination of the" 36 " the editing command script. \ascript\a may contain more than one" 37 " newline separated command.]:[script]" 39 " the editing command script.]:[script-file]" 101 error(1, "script segment ends with \\"); 130 error(1, "newline appended to script segment"); 235 simply prints the already collected script an 239 compile(Text *script, Text *t) argument 260 static Text script; local [all...] |
H A D | sed2.c | 141 vv(Text *script, unsigned char *pc, Text *data) argument 143 script = script; 151 be(Text *script, unsigned char *pc, Text *data) argument 153 script = script; 155 return script->s + instr(pc)[1]; 159 de(Text *script, unsigned char *pc, Text *data) argument 161 NoP(script); 168 De(Text *script, unsigne argument 182 Ee(Text *script, unsigned char *pc, Text *data) argument 192 Ge(Text *script, unsigned char *pc, Text *data) argument 203 ge(Text *script, unsigned char *pc, Text *data) argument 216 He(Text *script, unsigned char *pc, Text *data) argument 226 he(Text *script, unsigned char *pc, Text *data) argument 235 Ie(Text *script, unsigned char *pc, Text *data) argument 243 ie(Text *script, unsigned char *pc, Text *data) argument 253 Le(Text *script, unsigned char *pc, Text *data) argument 261 Ne(Text *script, unsigned char *pc, Text *data) argument 272 ne(Text *script, unsigned char *pc, Text *data) argument 284 Pe(Text *script, unsigned char *pc, Text *data) argument 300 pe(Text *script, unsigned char *pc, Text *data) argument 308 qe(Text *script, unsigned char *pc, Text *data) argument 317 te(Text *script, unsigned char *pc, Text *data) argument 328 ww(Text *script, unsigned char *pc, Text *data, word offset) argument 344 we(Text *script, unsigned char *pc, Text *data) argument 350 xe(Text *script, unsigned char *pc, Text *data) argument 363 ye(Text *script, unsigned char *pc, Text *data) argument 403 se(Text *script, unsigned char *pc, Text *data) argument 433 le(Text *script, unsigned char *pc, Text *data) argument 482 ae(Text *script, unsigned char *pc, Text *data) argument 493 ce(Text *script, unsigned char *pc, Text *data) argument 546 execute(Text *script, Text *data) argument [all...] |
H A D | sed1.c | 144 addr(Text *script, Text *t) argument 168 putword(script, n); 185 beginning of the script 187 on the first pass, every script ref to a label becomes the 189 it is a branch to the end of script 191 on the second pass (fixlabels), the script ref is replaced 245 Cc(Text *script, Text *t) /* colon */ argument 247 if(getlab(t, script->w - sizeof(word) - script->s) == -1) 252 bc(Text *script, Tex argument 260 fixlabels(Text *script) argument 286 rc(Text *script, Text *t) argument 301 wc(Text *script, Text *t) argument 324 Lc(Text *script, Text *t) argument 331 Rc(Text *script, Text *t) argument 347 fixbrack(Text *script) argument 366 Xc(Text *script, Text *t) argument 376 Ic(Text *script, Text *t) argument 383 Tc(Text *script, Text *t) argument 390 xx(Text *script, Text *t) argument 400 ac(Text *script, Text *t) argument 424 qc(Text *script, Text *t) argument 432 sc(Text *script, Text *t) argument 449 yc(Text *script, Text *t) argument 616 printscript(Text *script) argument 651 execute(Text *script, Text *y) argument 674 compile(Text *script, Text *t) argument [all...] |
/ast/src/lib/libtksh/tcl/ |
H A D | tclPkg.c | 25 char *script; /* Script to invoke to provide this version member in struct:PkgAvail 114 * provided in the interpreter, this procedure invokes a Tcl script 125 * be found, or the script to provide the required version 130 * The script from some previous "package ifneeded" command may 150 char *script; 156 * run the "package unknown" script, one to run the "package ifneeded" 157 * script for a specific version, and a final pass to lookup the 158 * package loaded by the "package ifneeded" script. 169 * versions and invoke the script for the best available version. 193 * We found an ifneeded script fo 148 char *script; local [all...] |
H A D | tclIOCmd.c | 28 char *script; /* Script to invoke. */ member in struct:AcceptCallback 1172 * NULL. This will prevent attempts to eval the accept script 1265 * Whatever the script does. 1283 char *script; 1297 script = acceptCallbackPtr->script; 1300 Tcl_Preserve((ClientData) script); 1305 result = Tcl_VarEval(interp, script, " ", Tcl_GetChannelName(chan), 1312 Tcl_Release((ClientData) script); 1332 * which the accept script i [all...] |
/ast/src/lib/libtk/generic/ |
H A D | tkSelect.c | 298 * invoke a Tcl script that wrecks the current state (e.g. it could 802 char *script = NULL; 817 script = args[1]; 872 script = args[1]; 874 if (script == NULL) { 879 cmdLength = strlen(script); 883 strcpy(lostPtr->command, script); 1308 * A Tcl script is executed; it can do almost anything. 796 char *script = NULL; local
|
H A D | tkSend.c | 141 * -s script 143 * "Script" is the script to be executed. This option must be present. 164 * "Code" is the completion code for the script, in decimal. If the 169 * "Result" is the result string for the script, which may be either 1359 char *interpName, *script, *serial, *end; 1376 script = NULL; 1394 script = p+3; 1404 if ((script == NULL) || (interpName == NULL)) { 1429 * Locate the application, then execute the script. 1450 * We must protect the interpreter because the script ma 1347 char *interpName, *script, *serial, *end; local [all...] |
/ast/src/cmd/ksh93/bltins/ |
H A D | misc.c | 209 register char *script; local 231 script = *argv; 232 if(error_info.errors || !script) 235 errormsg(SH_DICT,ERROR_exit(1),e_toodeep,script); 239 np = nv_search(script,shp->fun_tree,0); 244 path_search(shp,script,NIL(Pathcomp_t**),0); 251 errormsg(SH_DICT,ERROR_exit(1),e_found,script); 258 if((fd=path_open(shp,script,path_get(shp,script))) < 0) 259 errormsg(SH_DICT,ERROR_system(1),e_open,script); [all...] |
/ast/src/cmd/probe/ |
H A D | probe.c | 54 " is generated by a \bsh\b(1) script (\aprobe script\a) specific to" 67 " exists in the same directory as the \bprobe\b script, is sourced" 75 " exists in the same directory as the \bprobe\b script, is sourced" 76 " (via the \b.\b \bsh\b(1) command) before the \bprobe\b script proper." 77 " \bprobe.ini\b may completely override the \bprobe\b script by" 110 " probe script trace (see \bsh\b(1) \b-x\b) to the standard error.]" 284 char* script; local 416 if (!(script = newof(0, char, n, 5))) 418 strcpy(script, pat [all...] |
/ast/src/cmd/tksh/ |
H A D | tkMain.c | 85 * on the script being interpreted. 118 * use it as the name of a script file to process. 184 * Invoke the script specified on the command line, if any. 394 * Issue a prompt on standard output, or invoke a script 401 * A prompt gets output, and a Tcl script may be evaluated 441 "\n (script that generates prompt)"); 473 char *bindscript, *script = NULL, *oldarg; 489 script = (char *) malloc(strlen(bindscript) + BINDPRELEN +1); 490 strcpy(script, (((Interp *) interp)->interpType == INTERP_TCL)? 492 strcpy(script 470 char *bindscript, *script = NULL, *oldarg; local [all...] |
/ast/src/lib/libtksh/src/ |
H A D | eval.c | 275 * can be specified in the script explicitly select a parser. 299 Sfio_t *script; local 307 script = sfopen(NIL(Sfio_t *), fileName, "r"); 308 if (!script) 314 script = sfstdin; 318 cmdBuffer = fileToString(script); 341 sfclose(script); 428 int Tcl_RecordAndEval(Tcl_Interp *interp, char *script, int flags) argument 437 result = Tcl_Eval(interp, script); 446 args[2] = script; [all...] |
H A D | tclIO.c | 104 * invoke the saved script in the interpreter designed in this record. 108 struct Channel *chanPtr; /* The channel for which this script is 111 * script, to delete the handler. */ 112 char *script; /* Script to invoke. */ member in struct:EventScriptRecord 113 Tcl_Interp *interp; /* In what interpreter to invoke script? */ 115 * stored script to be invoked. */ 368 int mask, char *script)); 1369 Tcl_EventuallyFree((ClientData) sPtr->script, TCL_DYNAMIC); 2561 Tcl_EventuallyFree((ClientData)ePtr->script, TCL_DYNAMIC); 4958 Tcl_EventuallyFree((ClientData) sPtr->script, TCL_DYNAMI 5693 char *script; /* Script to eval. */ local [all...] |
/ast/src/cmd/ksh93/include/ |
H A D | shlex.h | 57 unsigned long script; /* script entity number */ member in struct:_shlex_ 58 unsigned long fscript; /* script file entity number */ 62 char *scriptname; /* name of script file */
|
/ast/src/cmd/nmake/ |
H A D | scan.c | 67 char* script; /* script */ member in struct:Action_s 332 if (a->script) 335 free(a->script); 337 a->script = strdup(v); 1058 if (a->script || a->map) 1064 if (a->script) 1067 error(2, "scanmatch: %s %c script `%s'", s, a->type, a->script); 1069 parse(NiL, a->script, labe [all...] |
H A D | make.h | 234 #define ARG_SCRIPT (1<<1) /* command line script arg flag */ 314 #define P_use (1L<<29) /* rule is a .USE script */ 615 Rule_t* script; /* .SCRIPT rule pointer */ member in struct:Internal_s
|
/ast/src/cmd/html/ |
H A D | troff2html.c | 66 "[s:script?Reads \ascript\a as if it came from a file. \b--script='.nr A 123'\b" 67 " is equivalent to \b-rA123\b.]:[script]" 5914 Sfio_t* script; local 5920 script = 0; 5960 if (!script && !(script = sfstropen())) 5961 error(ERROR_SYSTEM|3, "out of space [script]"); 5962 sfputr(script, opt_info.arg, '\n'); 6003 if (script) [all...] |