Lines Matching refs:ap

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