/ast/src/cmd/builtin/ |
H A D | pr.c | 150 register Pr_t *pp; local 151 if(!(pp = (Pr_t*)stakalloc(DATESZ+sizeof(Pr_t)))) 153 pp->columns = 1; 154 pp->pageskip = pp->pageno = 0; 155 pp->pagelen = PAGESZ; 156 pp->numwidth = 0; 157 pp->flags = 0; 158 pp->igap = pp 171 prheader(register Pr_t *pp) argument 190 prtrailer(register Pr_t *pp,int line) argument 216 prpage(register Pr_t *pp) argument 245 outspaces(register Pr_t* pp,register int spaces, register int col) argument 272 outcol(register Pr_t *pp,char *buff, register int size, int spaces) argument 361 prline(register Pr_t *pp) argument 406 outpage(register Pr_t *pp,int n) argument 477 prcol(register Pr_t *pp) argument 546 register Pr_t* pp = (Pr_t*)dp; local 597 register Pr_t* pp = (Pr_t*)dp; local 651 register Pr_t *pp; local [all...] |
/ast/src/lib/libpp/ |
H A D | ppline.c | 36 if (pp.flags & PP_lineignore) 38 pp.flags &= ~PP_lineignore; 39 if (!(pp.flags & PP_linetype) || *pp.lineid) 47 else if (file != pp.lastfile) 49 if (!pp.firstfile) 50 pp.firstfile = file; 51 type[1] = ((pp.flags & PP_linetype) && !*pp.lineid && pp [all...] |
H A D | ppmisc.c | 39 if (!(sym = ppsymget(pp.symtab, name)) && (ref <= REF_NORMAL && pp.macref || ref == REF_CREATE || ref == REF_DELETE && (pp.mode & (INIT|READONLY)))) 41 if ((pp.state & COMPILE) && pp.truncate && strlen(name) > pp.truncate) 42 name[pp.truncate] = 0; 43 sym = ppsymset(pp.symtab, NiL); 47 if (pp.macref) (*pp [all...] |
H A D | ppbuiltin.c | 55 number = pp.state; 56 pp.state |= DISABLE|FILEPOP|NOSPACE; 57 token = pp.token; 58 p = pp.token = pp.tmpbuf; 59 *(a = pp.args) = 0; 65 switch (op = (int)hashget(pp.strtab, p)) 69 p = pp.token = pp.valbuf; 75 pp [all...] |
H A D | ppcall.c | 66 if ((sym->flags & SYM_PREDICATE) && (pp.state & (CONDITIONAL|WARN)) == (CONDITIONAL|WARN)) 70 if ((pp.state & (COMPATIBILITY|TRANSITION)) != COMPATIBILITY || !mac->arity) 73 pp.mode |= MARKMACRO; 75 if ((pp.state & (COMPATIBILITY|STRICT)) == (COMPATIBILITY|STRICT)) 80 if ((sym->flags & SYM_PREDEFINED) && !(pp.mode & (HOSTED|INACTIVE))) 83 if (*sym->name != '_' && !(pp.state & COMPATIBILITY)) 88 if (pp.state & STRICT) 93 error(1, "%s: obsolete predefined symbol expanded%s", sym->name, (pp.state & DIRECTIVE) ? "" : " outside of directive"); 95 else if (!(pp.state & DIRECTIVE) && mac->value && (ppisdig(*mac->value) || *mac->value == '#')) 99 if (pp [all...] |
H A D | ppop.c | 33 #define REFONE (pp.truncate?(Hash_table_t*)0:pp.symtab) 34 #define REFALL (pp.truncate?pp.dirtab:pp.symtab) 48 r = p == &pp.state ? &pp.ro_state : p == &pp.mode ? &pp.ro_mode : &pp [all...] |
H A D | ppcontrol.c | 72 if (a = (struct pplist*)hashget(pp.prdtab, pred)) 94 hashput(pp.prdtab, pred, a); 95 if (sym = ppsymref(pp.symtab, pred)) 105 hashput(pp.prdtab, NiL, p); 107 if ((pp.state & COMPILE) && pp.truncate) return; 108 if (sym = ppsymset(pp.symtab, pred)) 136 pp.state &= ~NOSPACE; 138 pp.state |= NOSPACE; 141 ppop(op, (flags & TOKOP_DUP) ? strdup(pp [all...] |
H A D | ppinput.c | 97 if (pp.option & NATIVE) 101 cur->hide = ++pp.hide; 104 if ((pp.mode & (DUMP|INIT)) == DUMP) 107 if (pp.lastindex) pp.lastindex->next = cur->index; 108 else pp.firstindex = cur->index; 109 pp.lastindex = cur->index; 110 cur->index->file = pp.original; 116 if (!(pp.mode & DUMP)) 118 if (!cur->prev->prev && !(pp [all...] |
H A D | ppexpr.c | 51 state = (pp.state & ~DISABLE); 53 pptoken = pp.token; 54 pp.token = file; 55 pp.state |= HEADER|PASSEOF; 57 pp.state &= ~HEADER; 58 pp.token = pptoken; 75 if (pathaccess(pp.token, file, NiL, 0, pp.path, MAXTOKEN + 1)) 77 pathcanon(pp.path, 0, 0); 78 message((-2, "%s: %s found", pred, pp [all...] |
H A D | ppmacref.c | 37 p = (pp.state & (DIRECTIVE|JOINING)) == DIRECTIVE ? pp.outp : pp.addp; 38 p += sfsprintf(p, MAXTOKEN, "\n#%s %d", pp.lineid, error_info.line); 39 p += sfsprintf(p, MAXTOKEN, "\n#%s %s:%s %s %d", dirname(PRAGMA), pp.pass, keyname(X_MACREF), sym->name, type); 46 if ((pp.state & (DIRECTIVE|JOINING)) == DIRECTIVE) 48 pp.outp = p; 54 pp.addp = p; 55 pp.state |= ADD; 57 pp [all...] |
H A D | pplex.c | 51 #define CACHE() do{CACHEINX();CACHEOUTX();st=pp.state;if(!pp.hidden)spliced=0;}while(0) 52 #define CACHEIN() do{CACHEINX();st=pp.state;if(!pp.hidden)spliced=0;}while(0) 53 #define CACHEINX() do{ip=pp.in->nextchr;}while(0) 54 #define CACHEOUT() do{CACHEOUTX();st=pp.state;if(!pp.hidden)spliced=0;}while(0) 55 #define CACHEOUTX() do{tp=op=pp.outp;xp=pp.oute;if(sp)sp=op;}while(0) 58 #define LASTOUT() ((op>pp [all...] |
H A D | ppsearch.c | 75 message((-3, "search: %s: status=%s%s test=%s", fp->name, status == INC_CLEAR ? "[CLEAR]" : status == INC_TEST ? "[ONCE]" : status == INC_IGNORE ? "[IGNORE]" : status->name, (pp.mode & HOSTED) ? "[HOSTED]" : "", test == INC_CLEAR ? "[CLEAR]" : test == INC_TEST ? "[TEST]" : test->name)); 78 message((-2, "%s: ignored [%s]", fp->name, pp.ignore)); 87 if ((pp.mode & (ALLMULTIPLE|LOADING)) == LOADING) 89 if ((pp.state & WARN) && (pp.mode & (HOSTED|MARKHOSTED|RELAX|PEDANTIC)) == PEDANTIC) 97 if ((pp.mode & (ALLMULTIPLE|LOADING)) == LOADING) 123 if (!(pp.option & PREFIX)) 197 variant = sfsprintf(pp.tmpbuf, MAXTOKEN, "%c%s%c%s:archive", VDB_DELIMITER, VDB_MAGIC, VDB_DELIMITER, pp.pass); 198 if (!(s = sfgetr(sp, '\n', 1)) || !strneq(s, pp [all...] |
H A D | pp.h | 71 #define PPWRITE(n) do{if(write(1,pp.outbuf,n)!=(n))pperror(ERROR_SYSTEM|3,"%s: write error",pp.outfile);pp.offset+=(n);pp.lastout=pp.outbuf[(n)-1];}while(0) 73 #define pplastout() ((pp.outp>pp.outbuf)?*(pp.outp-1):pp.lastout) 74 #define ppoffset() (pp [all...] |
/ast/src/lib/libcs/ |
H A D | cspoll.c | 46 register Cspoll_t* pp; local 74 for (mp = (pp = fds) + num; pp < mp; pp++) 75 if (pp->fd >= 0) 77 if (pp->fd > width) 78 width = pp->fd; 79 if (pp->events & CS_POLL_READ) 82 FD_SET(pp->fd, rp); 84 if (pp [all...] |
/ast/src/lib/libmam/ |
H A D | mam.c | 64 register struct proc* pp; local 66 for (pp = mp->procs; pp; pp = pp->next) 67 if (pp->pid == pid) return(pp); 68 if (!(pp = newof(0, struct proc, 1, 0)) || 69 !(pp->bp = pp 111 register struct proc* pp; local 133 alias(struct proc* pp, const char* name) argument 151 attributes(struct proc* pp, struct rule* r, char* s) argument 179 register struct proc* pp; local 372 mamrule(register struct proc* pp, const char* name) argument 388 mamvar(register struct proc* pp, const char* name, const char* value) argument 406 mamprereq(struct proc* pp, struct rule* r, struct rule* x, struct list** p) argument [all...] |
/ast/src/lib/libpz/ |
H A D | pzpart.c | 67 * return the next partition after pp 68 * first call should set pp to 0 73 pzpartnext(Pz_t* pz, Pzpart_t* pp) argument 76 return pp ? (Pzpart_t*)dtnext(pz->partdict, pp) : (Pzpart_t*)dtfirst(pz->partdict); 77 return pp ? (Pzpart_t*)0 : pz->mainpart; 81 * set the current partition to pp 86 pzpartset(Pz_t* pz, Pzpart_t* pp) argument 94 pz->part = pp; 107 range(Pz_t* pz, register Pzpart_t* pp, cha argument 200 fixed(Pz_t* pz, register Pzpart_t* pp, int n, int m, int k) argument 229 pzpartmap(Pz_t* pz, register Pzpart_t* pp) argument 272 pzpartinit(Pz_t* pz, Pzpart_t* pp, const char* name) argument 432 pzoptions(register Pz_t* pz, register Pzpart_t* pp, char* options, int must) argument 690 register Pzpart_t* pp; local 1036 array(register Pz_t* pz, Pzpart_t* pp, size_t** pv, size_t* pn, size_t check) argument 1077 buffer(register Pz_t* pz, Pzpart_t* pp, char** pv, size_t* pn) argument 1109 register Pzpart_t* pp; local 1253 register Pzpart_t* pp; local 1323 pzpartprint(Pz_t* pz, register Pzpart_t* pp, register Sfio_t* op) argument [all...] |
H A D | pzwrite.c | 37 register Pzpart_t* pp; local 67 pp = pz->part; 73 k = sizeof(Dtlink_t) + roundof(pp->row, sizeof(Dtlink_t)); 77 pz->sort.orderdisc.size = pp->row; 78 if (!(elt = (Pzelt_t*)vmnewof(pz->vm, 0, char, pp->col * k, 0)) || !(pz->sort.order = dtnew(pz->vm, &pz->sort.orderdisc, Dtobag)) || !(pz->sort.free = dtnew(pz->vm, &pz->sort.freedisc, Dtlist))) 80 for (i = 0; i < pp->col; i++) 101 x = pp->row; 123 if (pz->ws.pc || n < pp->row) 125 if (!pz->ws.pb && !(pz->ws.pb = vmnewof(pz->vm, 0, unsigned char, pp->row, 0))) 127 x = pp [all...] |
H A D | pzdeflate.c | 31 register Pzpart_t* pp; local 111 pp = pz->part; 116 low = pp->low; 123 m = sizeof(Dtlink_t) + roundof(pp->row, sizeof(Dtlink_t)); 127 pz->sort.orderdisc.size = pp->row; 128 if (!(elt = (Pzelt_t*)vmnewof(pz->vm, 0, char, pp->col * m, 0)) || !(pz->sort.order = dtnew(pz->vm, &pz->sort.orderdisc, Dtobag)) || !(pz->sort.free = dtnew(pz->vm, &pz->sort.freedisc, Dtlist))) 130 for (i = 0; i < pp->col; i++) 144 else if ((r = readf ? (*readf)(pz, pz->io, pat, pz->disc) : sfread(pz->io, pat, pp->row)) != pp->row) 162 memcpy(elt->buf, pat, pp [all...] |
H A D | pzsync.c | 36 Pzpart_t* pp; local 51 pp = pz->part; 56 n = pp->row; 84 if (pp->nmap) 86 pp->mix[0] = buf = pz->wrk; 88 for (j = 1; j < pp->nmap; j++) 91 pp->mix[j] = (pp->lab[j] == pp->lab[j - 1]) ? (pp [all...] |
/ast/src/cmd/mam/ |
H A D | mamtst.c | 42 dumpproc(register struct proc* pp) argument 47 if (pp->parent) sfputc(sfstdout, '\n'); 48 sfprintf(sfstdout, "process %s pid %d ppid %d start %lu finish %lu status %d\n", pp->pwd, pp->pid, pp->parent ? pp->parent->pid : 0, pp->start, pp->finish, pp->status); 49 for (p = pp [all...] |
/ast/src/cmd/ksh93/sh/ |
H A D | path.c | 294 register Pathcomp_t *pp=first, *old=0, *ppnext; local 295 while(pp) 297 ppnext = pp->next; 298 if(--pp->refcount<=0) 300 if(pp->lib) 301 free((void*)pp->lib); 302 if(pp->bbuf) 303 free((void*)pp->bbuf); 304 free((void*)pp); 309 old = pp; 318 path_lib(Shell_t *shp,Pathcomp_t *pp, char *path) argument 367 path_checkdup(Shell_t *shp,register Pathcomp_t *pp) argument 408 path_nextcomp(Shell_t *shp,register Pathcomp_t *pp, const char *name, Pathcomp_t *last) argument 453 Pathcomp_t *pp = (void*)path_addpath(shp,(Pathcomp_t*)0,(std_path),PATH_PATH); local 460 Pathcomp_t *pp; local 484 register Pathcomp_t *pp=0; local 504 path_opentype(Shell_t *shp,const char *name, register Pathcomp_t *pp, int fun) argument 545 path_open(Shell_t *shp,const char *name, register Pathcomp_t *pp) argument 659 Pathcomp_t *pp=0; local 732 path_absolute(Shell_t *shp,register const char *name, Pathcomp_t *pp) argument 1003 Pathcomp_t *libpath, *pp=0; local 1450 register Pathcomp_t *pp, *oldpp; local 1501 path_chkpaths(Shell_t *shp,Pathcomp_t *first, Pathcomp_t* old,Pathcomp_t *pp, int offset) argument 1617 Pathcomp_t *pp = (Pathcomp_t*)shp->defpathlist; local 1638 register Pathcomp_t *pp=first; local 1652 register Pathcomp_t *pp=first, *next, *pq; local 1707 register Pathcomp_t *pp=first, *old=0; local 1751 register Pathcomp_t *pp=first; local 1766 Pathcomp_t *pp = (Pathcomp_t*)np->nvalue.cp; local 1780 Pathcomp_t *pp = (Pathcomp_t*)np->nvalue.cp; local 1793 path_alias(register Namval_t *np,register Pathcomp_t *pp) argument [all...] |
/ast/src/cmd/dsslib/netflow/ |
H A D | flow-dumpv9.c | 56 Netflow_file_t* pp; local 58 if (!(pp = vmnewof(file->vm, 0, Netflow_file_t, 1, (file->flags & DSS_FILE_WRITE) ? NETFLOW_PACKET : 0))) 64 file->data = pp; 65 pp->data = pp->last = 0; 66 pp->data++; 77 register Netflow_file_t* pp = (Netflow_file_t*)file->data; local 79 register Netflow_t* rp = &pp->record; 89 if ((pp->data += pp [all...] |
/ast/src/cmd/3d/ |
H A D | sysent3d.c | 32 __STDPP__directive pragma pp:hide lseek 40 __STDPP__directive pragma pp:nohide lseek
|
/ast/src/cmd/ksh93/tests/ |
H A D | pointtype.sh | 62 Pt_t pp=( ( x=3 y=4) ( x=5 y=12) (y=2) ) 63 (( pp[0].len == 5 )) || err_exit 'pp[0].len != 5' 64 (( pp[1].len == 13 )) || err_exit 'pp[0].len != 12' 65 (( (pp[2].len - sqrt(5)) < 10e-10 )) || err_exit 'pp[2].len != sqrt(5)' 66 [[ ${pp[1]} == $'(\n\ttypeset -l -E x=5\n\ttypeset -l -E y=12\n)' ]] || err_exit '${pp[1] is not correct' 67 [[ ${!pp[ [all...] |
/ast/src/cmd/cs/ |
H A D | pid.c | 98 register Pid_t* pp; local 138 while (pp = (Pid_t*)hashnext(pos)) 140 n += sfsprintf(m + n, sizeof(state->buf) - n, "%6d %ld", pp->pid, pp->expire - cs.time); 141 for (np = pp->notify; np; np = np->next) 163 else if (pp = (Pid_t*)hashlook(state->pids, (char*)&pid, HASH_LOOKUP, NiL)) 168 np = pp->notify; 186 np->next = pp->notify; 187 pp->notify = np; 192 else if (pp 220 register Pid_t* pp; local [all...] |