/ast/src/lib/libast/comp/ |
H A D | basename.c | 35 register char *first, *last; local 36 for(first=last=pathname; *last; last++); 38 if(last>first) 39 while(*--last=='/' && last > first); 40 if(last==first && *last=='/') 43 if(*first=='/') 49 for(first=last++;first>pathname && *first!='/';first [all...] |
/ast/src/lib/libcmd/ |
H A D | basename.c | 71 register char *first, *last; local 73 for(first=last=pathname; *last; last++); 75 if(last>first) 76 while(*--last=='/' && last > first); 77 if(last==first && *last=='/') 80 if(*first=='/') 86 for(first=last++;first>pathname && *first!='/';first [all...] |
H A D | fold.c | 61 "(spaces or tabs), within the first \awidth\a column positions or " 91 register char *cp, *first; local 110 first = cp; 116 while((cp-first) > (width-col)) 119 col = last_space - first; 122 sfwrite(out,first,col); 123 first += col; 126 if(cp>first+1 || (n!=T_NL && n!=T_BS)) 139 if((cp+(--col)-first)>0) 143 n = (TABSIZE-1) - (cp+col-1-first) [all...] |
/ast/src/lib/libcodex/ |
H A D | codexadd.c | 35 meth->next = codexstate.first; 36 codexstate.first = meth;
|
H A D | codexlib.h | 54 Codexmeth_t* first; member in struct:Codexstate_s
|
H A D | codexlist.c | 26 * call with meth==0 to get the first method 44 return codexstate.first;
|
H A D | codexmeth.c | 46 meth = codexstate.first;
|
/ast/src/cmd/std/ |
H A D | seq.sh | 46 [ first [ incr ] ] last 66 function format # first second next_to_last last 83 float first=1 incr=1 last n sign=1 epsilon 99 2) first=$1 last=$2;; 100 3) first=$1 incr=$2 last=$3;; 106 (( n = (last - first) / incr )) 110 fmt=$(format $first $((first+incr)) $((last-incr)) $end) 119 for ((n=first; (sign*n) <= last; n+= incr ))
|
H A D | unexpand.c | 36 "position to be decremented by 1 unless already in the first column.]" "[+?If no \afile\a is given, or if the \afile\a is \b-\b, \bexpand\b " 70 "unless already in the first column.]" 135 register char *cp, *first, *buff; local 148 first = cp-n; 159 if(tabmax==0 || cp==first+1) 165 tabspace -= (cp-first)%tabspace; 214 n = (cp-1)-first; 236 first -= (n-1); 243 if((first+=2) > cp) 244 first [all...] |
/ast/src/lib/libast/sfio/ |
H A D | sffilbuf.c | 26 ** If n == 0, if the buffer is not empty, just return the first byte; 27 ** otherwise fill the buffer and return the first byte. 43 reg int first, local, rcrv, rc, justseek; local 56 for(first = 1;; first = 0, (f->mode &= ~SF_LOCK) ) 64 { /* on first iteration, n is amount beyond current buffer; 66 if((first && n <= 0) || (!first && n <= r) ||
|
/ast/src/cmd/ksh93/sh/ |
H A D | macro.c | 74 unsigned char ifs; /* first char of IFS */ 442 register char *cp,*first; local 455 first = cp = fcseek(0); 484 c = (cp-len) - first; 490 c = (cp-1) - first; 500 sfwrite(stkp,first,c); 503 first = fcseek(cp-first); 526 mac_copy(mp,first,c); 536 first 865 register char *first=cp; local 906 register unsigned char *first,*last,*cp = (unsigned char*)shp->cur_line; local 1768 char *first = fcseek(0); local [all...] |
H A D | expand.c | 279 int first, last, incr, count = 0; local 287 /* first search for {...,...} */ 308 first = strtol(pat,&endc,0); 314 else if(last<first) 354 first = *pat; 362 else if(first>last) 417 pat[0] = first; 423 sfsprintf(pat=tmp,sizeof(tmp),format,first); 427 if(incr*(first+incr) > last*incr) 430 first [all...] |
H A D | path.c | 118 /* system call so we can save us to call access(2) first */ 292 void path_delete(Pathcomp_t *first) argument 294 register Pathcomp_t *pp=first, *old=0, *ppnext; 370 register Pathcomp_t *oldpp,*first; local 384 first = (pp->flags&PATH_CDPATH)?(Pathcomp_t*)shp->cdpathlist:path_get(shp,""); 385 for(oldpp=first; oldpp && oldpp!=pp; oldpp=oldpp->next) 398 path_chkpaths(shp,first,0,pp,offset); 1019 /* find first path that has a library component */ 1448 static Pathcomp_t *path_addcomp(Shell_t *shp,Pathcomp_t *first, Pathcomp_t *old,const char *name, int flag) argument 1464 for(pp=first; p 1501 path_chkpaths(Shell_t *shp,Pathcomp_t *first, Pathcomp_t* old,Pathcomp_t *pp, int offset) argument 1576 path_addpath(Shell_t *shp,Pathcomp_t *first, register const char *path,int type) argument 1636 path_dup(Pathcomp_t *first) argument 1650 path_newdir(Shell_t *shp,Pathcomp_t *first) argument 1706 Pathcomp_t *first = (Pathcomp_t*)shp->pathlist; local 1749 path_dirfind(Pathcomp_t *first,const char *name,int c) argument [all...] |
H A D | string.c | 52 register int first; local 56 if(sp==0 || (first= *sp)==0) 59 while((c= *tp->sh_name) && (CC_NATIVE!=CC_ASCII || c <= first)) 61 if(first == c && strcmp(sp,tp->sh_name)==0) 76 register int first; local 93 if((first= *sp)==0) 104 if(first == c) 195 /* skip to first character which matches start of oldsp */
|
H A D | lex.c | 99 char *first; member in struct:lexdata 145 off_t off = (fcseek(0)-(type+1))-(lp->lexd.first?lp->lexd.first:fcfirst()); 147 if(lp->lexd.first) 149 off = (fcseek(0)-(type+1)) - lp->lexd.first; 150 r=kiaentity(lp,lp->lexd.first+lp->lexd.kiaoff+type,off-lp->lexd.kiaoff,'v',-1,-1,lp->current,'v',0,""); 212 if(lp->lexd.first) 214 size -= (lp->lexd.first-(char*)buff); 215 buff = lp->lexd.first; 225 lp->lexd.first 1560 char *first,*cp=fcseek(0),word[5]; local [all...] |
/ast/src/lib/libpp/ |
H A D | gentab.sh | 30 # %keyword <name> [ prefix=<prefix> ] [ index=<index> ] [ init=<init> ] [ first=<id> ] [ last=<id> ] 49 first="" 130 first="" 168 case $define:$first in 169 1:?*) echo "#define $prefix$first $counter" ;;
|
/ast/src/cmd/tests/ |
H A D | testdate.sh | 71 this month first monday 73 first monday may 2008 105 last month first monday 116 next month first monday
|
/ast/src/lib/libtksh/tcl/ |
H A D | tclCmdIL.c | 60 static int SortCompareProc _ANSI_ARGS_((CONST VOID *first, 391 * Skip over the first "index" elements of the list, then add 545 int first, last, result; 551 " list first last\"", (char *) NULL); 556 first = INT_MAX; 559 if (Tcl_GetInt(interp, argv[2], &first) != TCL_OK) { 563 if (first < 0) { 564 first = 0; 576 if ((first > last) && !firstIsEnd) { 584 for (count = 0, begin = argv[1]; count < first; begi 537 int first, last, result; local 644 int i, first, last, count, result, size, firstIsEnd; local [all...] |
/ast/src/lib/libtk/generic/ |
H A D | tkListbox.c | 27 int lBearing; /* Distance from first character's 276 static void DeleteEls _ANSI_ARGS_((Listbox *listPtr, int first, 297 int first, int last)); 301 int first, int last, int select)); 551 int first, last; 559 if (GetListboxIndex(interp, listPtr, argv[2], 0, &first) != TCL_OK) { 563 last = first; 569 DeleteEls(listPtr, first, last); local 571 int first, last, i; 576 argv[0], " get first 549 int first, last; local 699 int first, last; local 2149 double first, last; local 2212 double first, last; local [all...] |
H A D | tkCanvText.c | 25 char *firstChar; /* Pointer to the first character in this 150 Tk_Item *itemPtr, int first, int last)); 973 * Characters between "first" and "last", inclusive, get 981 TextDeleteChars(canvas, itemPtr, first, last) 984 int first; /* Index of first character to delete. */ 992 if (first < 0) { 993 first = 0; 998 if (first > last) { 1001 count = last + 1 - first; [all...] |
/ast/src/lib/libtk/library/ |
H A D | text.tcl | 55 catch {%W mark set insert sel.first} 60 catch {%W mark set insert sel.first} 209 %W delete sel.first sel.last 217 %W delete sel.first sel.last 254 %W delete sel.first sel.last 471 set first $cur 474 set first anchor 480 set first [$w index "$cur wordstart"] 483 set first [$w index "anchor wordstart"] 489 set first [ [all...] |
H A D | listbox.tcl | 414 set first [$w index anchor] 416 if {$first > $last} { 417 set tmp $first 418 set first $last 421 $w selection clear $first $last 422 while {$first <= $last} { 423 if {[lsearch $tkPriv(listboxSelection) $first] >= 0} { 424 $w selection set $first 426 incr first
|
H A D | entry.tcl | 40 %W delete sel.first sel.last 59 %W delete sel.first sel.last 75 catch {%W icursor sel.first} 160 %W delete sel.first sel.last 453 if {([$w index sel.first] <= $insert) 455 $w delete sel.first sel.last 472 $w delete sel.first sel.last 536 set first [expr $i-2] 537 if {$first < 0} { 540 set new [string index [$w get] [expr $i-1]][string index [$w get] $first] [all...] |
H A D | console.tcl | 185 # This procedure first ensures that the default bindings for the Text 219 %W tag remove sel sel.first promptEnd 228 %W tag remove sel sel.first promptEnd 376 if {[$w compare sel.first <= insert] 378 $w tag remove sel sel.first promptEnd 379 $w delete sel.first sel.last
|
/ast/src/lib/libtk/library/demos/ |
H A D | rmt | 65 catch {.t tag remove sel sel.first promptEnd} 73 catch {.t tag remove sel sel.first promptEnd} 116 if {[$w compare sel.first <= insert] 118 $w tag remove sel sel.first promptEnd 119 $w delete sel.first sel.last
|