Lines Matching refs:ap
39 #define arg(n) (c < (n) ? nullstr: ap[n])
47 dochcom(wchar_t **ap, int c) in dochcom() argument
60 docq(wchar_t **ap, int c) in docq() argument
81 dodecr(wchar_t **ap, int c) in dodecr() argument
87 dodef(wchar_t **ap, int c) in dodef() argument
89 def(ap, c, NOPUSH); in dodef()
93 def(wchar_t **ap, int c, int mode) in def() argument
100 s = ap[1]; in def()
106 if (*s || s == ap[1]) in def()
109 if ((ap[2] != NULL) && (wcscmp(ap[1], ap[2]) == 0)) in def()
112 install(ap[1], arg(2), mode); in def()
116 dodefn(wchar_t **ap, int c) in dodefn() argument
121 if ((d = lookup(ap[c--])->def) != NULL) { in dodefn()
130 dodiv(wchar_t **ap, int c) in dodiv() argument
149 dodivnum(wchar_t **ap, int c) in dodivnum() argument
156 dodnl(wchar_t **ap, int c) in dodnl() argument
165 dodump(wchar_t **ap, int c) in dodump() argument
172 if ((np = lookup(*++ap))->name != NULL) in dodump()
211 doerrp(wchar_t **ap, int c) in doerrp() argument
215 (void) fprintf(stderr, "%ws", ap[1]); in doerrp()
223 doeval(wchar_t **ap, int c) in doeval() argument
231 pe = ap[1]; in doeval()
245 doexit(wchar_t **ap, int c) in doexit() argument
251 doif(wchar_t **ap, int c) in doif() argument
256 if (wcscmp(ap[1], ap[2]) == 0) { in doif()
257 pbstr(ap[3]); in doif()
261 ap += 3; in doif()
264 pbstr(ap[1]); in doif()
268 doifdef(wchar_t **ap, int c) in doifdef() argument
274 if (lookup(ap[1])->name != NULL) { in doifdef()
275 pbstr(ap[2]); in doifdef()
279 ap += 2; in doifdef()
283 pbstr(ap[1]); in doifdef()
287 doincl(wchar_t **ap, int c) in doincl() argument
289 incl(ap, c, 1); in doincl()
293 incl(wchar_t **ap, int c, int noisy) in incl() argument
295 if (c > 0 && wcslen(ap[1]) > 0) { in incl()
299 if ((ifile[++ifx] = fopen(wstr2str(ap[1], 0), "r")) == NULL) { in incl()
306 setfname(wstr2str(ap[1], 0)); in incl()
312 doincr(wchar_t **ap, int c) in doincr() argument
318 doindex(wchar_t **ap, int c) in doindex() argument
344 dolen(wchar_t **ap, int c) in dolen() argument
350 domake(wchar_t **ap, int c) in domake() argument
355 path = wstr2str(ap[1], 1); in domake()
363 dopopdef(wchar_t **ap, int c) in dopopdef() argument
368 (void) undef(ap[i]); in dopopdef()
372 dopushdef(wchar_t **ap, int c) in dopushdef() argument
374 def(ap, c, PUSH); in dopushdef()
378 doshift(wchar_t **ap, int c) in doshift() argument
385 pbstr(ap[c--]); in doshift()
396 dosincl(wchar_t **ap, int c) in dosincl() argument
398 incl(ap, c, 0); in dosincl()
402 dosubstr(wchar_t **ap, int c) in dosubstr() argument
414 outlen = c >= 3 ? wstoi(ap[3]) : inlen; in dosubstr()
422 dosyscmd(wchar_t **ap, int c) in dosyscmd() argument
427 sysrval = system(wstr2str(ap[1], 0)); in dosyscmd()
433 dosysval(wchar_t **ap, int c) in dosysval() argument
441 dotransl(wchar_t **ap, int c) in dotransl() argument
449 sink = ap[1]; in dotransl()
453 for (source = ap[1]; *source; source++) { in dotransl()
469 pbstr(ap[1]); in dotransl()
473 dotroff(wchar_t **ap, int c) in dotroff() argument
480 if ((np = lookup(ap[c--]))->name) in dotroff()
485 dotron(wchar_t **ap, int c) in dotron() argument
492 if ((np = lookup(ap[c--]))->name) in dotron()
497 doundef(wchar_t **ap, int c) in doundef() argument
502 while (undef(ap[i])) in doundef()
529 doundiv(wchar_t **ap, int c) in doundiv() argument
538 undiv(wstoi(*++ap), OK); in doundiv()
547 dowrap(wchar_t **ap, int c) in dowrap() argument