Lines Matching refs:op

257 	int		op;		   member
942 ppfsm __PARAM__((int op, register char* s), (op, s)) __OTORP__(int op; register char* s;){ in __OTORP__()
953 switch (op)
1317 char* op; member
2684 init __PARAM__((Proto_t* proto, char* op, int flags), (proto, op, flags)) __OTORP__(Proto_t* proto;… in __OTORP__()
2689 op = strcopy(op, "\
2751 op = strcopy(op, "\
2783 switch (*op++ = *s++)
2786 op--;
2789 op = strcopy(op - 1, proto->package);
2797 return op;
2844 register char* op; local
2880 do{(ip=proto->ip);(op=proto->op);call=proto->call;}while(0);
2882 if (flags & (1L<<5)) (ko=op);
2899op, ip, n); op += n; ip += n; break; case 7 : * op++ = * ip++; case 6 : * op++ = * ip++; case 5 : …
2907 if (op > proto->ob && *(op - 1) == '=' && (op == proto->ob + 1 || *(op - 2) != '=')) switch (c)
2913 (*op++=( ' '));
2916 (*op++=( c));
2921 c = (*(op-1));
2929 (*op++=( c));
2935 if ((flags & ((1L<<5)|(1L<<15))) == (1L<<5)) (op=ko);
2938 (*op++=( c));
2949 if ((flags & ((1L<<5)|(1L<<15))) == (1L<<5)) (op=ko);
2952 (*op++=( c));
2964 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3021 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3029 …for (n = 0, t = qe + 1; t < op && (*t == ' ' || *t == '\t' || *t == '\n' && ++n || *t >= 'A' && *t…
3030 if (t == op)
3032 op = qe;
3036 else (*op++=( c));
3040 (*op++=( c));
3050 qe = (c == '"') ? op : (char*)0;
3052 (*op++=( c));
3057 (*op++=( '\n'));
3063 (*op++=( c));
3073 (*op++=( '\n'));
3083 if (flags & (1L<<0)) (*op++=( c));
3098 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3121 (*op++=( ((n >> 6) & 07) + '0'));
3122 (*op++=( ((n >> 3) & 07) + '0'));
3123 (*op++=( (n & 07) + '0'));
3126 (*op++=( c));
3153 if (op != proto->ob && (*(op-1)) != ' ' && (*(op-1)) != '\n')
3154 (*op++=( ' '));
3158 (*op++=( c));
3164 if (flags & (1L<<5)) (op=ko);
3168 op = strcopy(om, "/* ");
3169 op = strcopy(op, im);
3170 op = strcopy(op, " */\n");
3180 op = strcopy(om, "#if defined(__STDC__) || defined(__STDPP__)\n");
3181 op = strcopy(op, im);
3182 op = strcopy(op, "\n#else\n");
3185 *op++ = *ip++;
3186 while (*op = *ip++)
3187 if (*op++ == '#' && *ip != '(')
3189 op--;
3190 while (*--op == ' ' || *op == '\t');
3193 op = strcopy(op + 1, "/**/");
3198 if (*op != '"') *++op = '"';
3199 op++;
3201 …*ip) >= 'A' && c <= 'Z' || c >= 'a' && c <= 'z' || c >= '0' && c <= '9' || c == '_') *op++ = *ip++;
3204 else *op++ = '"';
3208 op = strcopy(op, "\n#endif\n");
3209 op = linesync(proto, op, proto->line);
3221 if (flags & (1L<<5)) (op=ko);
3223 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3229 (*op++=( c));
3235 (*op++=( c));
3281 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3283 op = strcopy(op - 6, "__INLINE__");
3284 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3297 proto->ox = op - 6;
3317 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3321 memcopy(op - 4, "__V_", 4);
3326 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3353 while (op > proto->ob && (*(op - 1) == ' ' || *(op - 1) == '\t'))
3354 op--;
3355 if (op > proto->ob && *(op - 1) != '\n') *op++ = ' ';
3375 (*op++=( '\\'));
3376 (*op++=( '\n'));
3387 (*op++=( c));
3413 om = op - 1;
3428 aom = op - 1;
3522 om = op + (ip - bp);
3542 om = op - 1;
3554 op = strcopy(op, "\
3563 op = linesync(proto, op, proto->line);
3580 op = strcopy(op, "undef __MANGLE__\n");
3581 op = linesync(proto, op, proto->line);
3582 op = strcopy(op, "#define __MANGLE__ __LINKAGE__");
3588 om = op - 1;
3595 op = strcopy(op, "undef __MANGLE__\n");
3596 op = linesync(proto, op, proto->line);
3597 op = strcopy(op, "#define __MANGLE__ __LINKAGE__");
3602 om = op - 1;
3623 v = number(op, args < 0 ? -args : args);
3628 proto_error((char*)proto + sizeof(Proto_t), 2, op, ((char*)0));
3658 op = om++;
3661 v = op;
3665 om = (v = (op += 4)) + 1;
3680 om = (e = ++op) + 1;
3688 om = (v = (op += 7)) + 1;
3696 (*op++=( '('));
3697 t = op;
3706 if (c != '*' && op > om) (*op++=( ' '));
3712 m = op;
3713 while (op > om && ((c = *(op - 1)) == '(' || c == ')' || c == '[' || c == ']'))
3714 op--;
3715 v = op;
3716 while (op > om && (c = *(op - 1)) != ' ' && c != '*')
3717 op--;
3718 while (*(op - 1) == ' ')
3719 op--;
3722 e = op;
3730 if (op <= om)
3731 op = strcopy(op, "int");
3732 else if (*(op - 1) == ',')
3733 op = strcopy(op, " int");
3736 (*op++=( *v++));
3738 (*op++=( ','));
3741 if (x = !e) e = op - 1;
3742 (*op++=( ' '));
3745 (*op++=( *m++));
3751 op -= m - e;
3755 if (ie >= ip) (op--);
3756 else (*op++=( ' '));
3759 t = op;
3765 if (op > om && (c = *(op - 1)) == ' ') op--;
3766 while (*ie == '*') (*op++=( *ie++));
3768 if (c != '(') (*op++=( ' '));
3772 if (op > om && *(op - 1) == ' ') op--;
3773 (*op++=( *ie++));
3778 if (op > om && *(op - 1) == '(')
3780 (*op++=( *ie++));
3783 …else if ((flags & (1L<<5)) && (op == om || *(op - 1) == ' ') && *ie == 'r' && !sstrncmp( ie, "regi…
3786 if (op > om) (op--);
3788 else (*op++=( *ie++));
3791 if (op <= om) op = strcopy(op, "void");
3792 (*op++=( ')'));
3795 (*op++=( ';'));
3796 (*op++=( '\n'));
3797 (proto->op=op);
3798 (ko=op);
3802 (*op++=( '\n'));
3803 (*op++=( *ip));
3813 op = strcopy(om, " __PARAM__(");
3814 op = memcopy(op, im, ie - im);
3815 (*op++=( ','));
3816 (*op++=( ' '));
3817 (*op++=( '('));
3823 op = strcopy(op, "va_alist)) __OTORP__(va_dcl)\n{");
3829 proto->op = op;
3852 op = memcopy(op, m, e - m);
3864 op = memcopy(op, m, e - m);
3866 (*op++=( ','));
3867 (*op++=( ' '));
3868 proto->op = op;
3884 (*op++=( ')'));
3885 (*op++=( ')'));
3890 proto->op = strcopy(op, " __OTORP__(");
3900 op = proto->op;
3901 (*op++=( ')'));
3904 op = linesync(proto, op, proto->line = line);
3908 (*op++=( '\n'));
3909 (*op++=( '#'));
3911 else if (!(flags & (1L<<27))) (*op++=( '{'));
3924 if (flags & (1L<<5)) (op=ko);
3952 if (paren == 0 && (flags & (1L<<1))) *(op - 1) = c = ';';
3969 if (flags & (1L<<5)) (op=ko);
3972 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
3980 (op=ko);
4009 ko = op;
4011 v = op += n;
4034 op = om;
4035 while (*--op == ' ' || *op == '\t' || *op == '\n');
4036 if (*op != ')')
4038 op = om += 14;
4039 *--op = ')';
4040 …while ((x = *(op - 14)) >= 'A' && x <= 'Z' || x >= 'a' && x <= 'z' || x >= '0' && x <= '9' || x ==…
4041 *--op = x;
4042 memcopy(op - 13, "(__OTORP__(*)", 13);
4049 op = om;
4050 if (!(flags & (1L<<25))) op = strcopy(op, "(...)");
4051 else op = memcopy(op, im, ie - im);
4052 (*op++=( c));
4056 if (flags & (1L<<1)) op = strcopy(om, "()");
4057 else if (!(flags & (1L<<25))) op = strcopy(om, "(__VARARG__)");
4060 op = strcopy(om, " __PROTO__(");
4061 op = memcopy(op, im, ie - im);
4062 (*op++=( ')'));
4065 (*op++=( c));
4082 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
4110 op = strcopy(op, " __MANGLE__");
4113 op = strcopy(op - 1, proto->package);
4114 func = op + 1;
4115 op = strcopy(op, "_DATA__");
4125 op -= 3;
4126 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
4140 op = strcopy(op - 8, "__VA_START__");
4141 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
4162 do{(ip=proto->ip);(op=proto->op);call=proto->call;}while(0);
4173 op = strcopy(op, " __OTORP__(");
4175 proto->op = op;
4195 op = memcopy(op, m, e - m);
4196 op = strcopy(op, " = ");
4198 op = strcopy(op, "va_arg(");
4199 op = memcopy(op, v, n);
4200 (*op++=( ','));
4201 (*op++=( ' '));
4202 if (m > bp) op = memcopy(op, bp, m - bp);
4203 else op = strcopy(op, "int ");
4204 if (group > 1) op = strcopy(op, ")()");
4205 else op = memcopy(op, e, proto->ip - e - 1);
4206 (*op++=( ')'));
4207 (*op++=( ';'));
4221 op = memcopy(op, m, e - m);
4222 op = strcopy(op, " = ");
4224 op = strcopy(op, "va_arg(");
4225 op = memcopy(op, v, n);
4226 (*op++=( ','));
4227 (*op++=( ' '));
4228 if (m > bp) op = memcopy(op, bp, m - bp);
4229 else op = strcopy(op, "int ");
4230 if (group > 1) op = strcopy(op, ")()");
4231 else op = memcopy(op, e, proto->ip - e - 1);
4232 (*op++=( ')'));
4233 (*op++=( ';'));
4238 proto->op = op;
4254 op = strcopy(op, ")");
4288 for (;; op--)
4290 switch (*(op - 1))
4294 t = op;
4297 op--;
4305 t = op;
4310 op--;
4323 *op++ = 'L';
4326 m = op;
4327 t = op = m + 10;
4355 (op=proto->op);
4358 (proto->op=op);
4389 op -= n;
4397 *op++ = *ip++;
4398 op = init(proto, op, flags);
4399 op = linesync(proto, op, proto->line);
4404 …do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto…
4490 proto->op = proto->ob = iob;
4647 proto->op = memcopy(proto->op, proto->ip, m);
4654 …if ((comlen = astlicense(proto->op, proto->oz, notice, options, proto->cc[0], proto->cc[1], proto-…
4655 proto_error((char*)proto + sizeof(Proto_t), 1, proto->op, ((char*)0));
4657 proto->op += comlen;
4661 proto->op = linesync(proto, proto->op, 1);
4662 proto->iz += proto->op - proto->ob;
4664 memcopy(proto->op, proto->ip, n);
4682 …if ((comlen = astlicense(proto->op, proto->oz, notice, options, proto->cc[0], proto->cc[1], proto-…
4683 proto_error((char*)proto + sizeof(Proto_t), 1, proto->op, ((char*)0));
4685 proto->op += comlen;
4700 *proto->op++ = '#';
4701 proto->op = strcopy(proto->op, "pragma");
4702 *proto->op++ = ' ';
4703 proto->op = strcopy(proto->op, pragmas[0].name);
4704 *proto->op++ = '\n';
4715 proto->op = strcopy(proto->op, "\n%{\n"+ !notice);
4716 proto->op = strcopy(proto->op, "/* : : generated by proto : : */\n");
4717 proto->op = strcopy(proto->op, "%}\n");
4722 *proto->op++ = '\n';
4723 proto->op = strcopy(proto->op, "/* : : generated by proto : : */\n");
4725 proto->op = linesync(proto, proto->op, proto->line);
4727 proto->op = init(proto, proto->op, proto->flags);
4770 if (proto->op == proto->ob)
4777 register char* op = proto->ob; local
4797 *op++ = *ip++;
4803 while (op < ep && (n = *op++ = *ip))
4810 *op++ = *ip++;
4817 *op++ = '%';
4824 proto->op = memcopy(proto->ob, proto->ip, ip - proto->ip);
4831 proto->op = strcopy(proto->op, "/* NOTE: some constructs may not have been converted */\n");
4833 n = proto->op - proto->ob;
4834 proto->op = proto->ob;
5041 char* op; local
5104 options = op = opt;
5105 oe = op + sizeof(opt) - 1;
5108 if ((n + 1) >= (oe - op))
5112 *op++ = '\n';
5113 memcopy( op, b, n + 1);
5114 op += n;