Lines Matching refs:op
257 int op;
941 ppfsm __PARAM__((int op, register char* s), (op, s)) __OTORP__(int op; register char* s;){
952 switch (op)
1308 char* op;
2533 init __PARAM__((struct proto* proto, char* op, int flags), (proto, op, flags)) __OTORP__(struct proto* proto; char* op; int flags;){
2538 op = strcopy(op, "\
2600 op = strcopy(op, "\
2632 switch (*op++ = *s++)
2635 op--;
2638 op = strcopy(op - 1, proto->package);
2646 return op;
2693 register char* op;
2729 do{(ip=proto->ip);(op=proto->op);call=proto->call;}while(0);
2731 if (flags & (1L<<5)) (ko=op);
2748 do switch( n) { default : memcopy( op, ip, n); op += n; ip += n; break; case 7 : * op++ = * ip++; case 6 : * op++ = * ip++; case 5 : * op++ = * ip++; case 4 : * op++ = * ip++; case 3 : * op++ = * ip++; case 2 : * op++ = * ip++; case 1 : * op++ = * ip++; case 0 : break; } while (0);
2756 if (op > proto->ob && *(op - 1) == '=' && (op == proto->ob + 1 || *(op - 2) != '=')) switch (c)
2762 (*op++=( ' '));
2765 (*op++=( c));
2770 c = (*(op-1));
2778 (*op++=( c));
2784 if ((flags & ((1L<<5)|(1L<<15))) == (1L<<5)) (op=ko);
2787 (*op++=( c));
2798 if ((flags & ((1L<<5)|(1L<<15))) == (1L<<5)) (op=ko);
2801 (*op++=( c));
2813 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
2870 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
2878 for (n = 0, t = qe + 1; t < op && (*t == ' ' || *t == '\t' || *t == '\n' && ++n || *t >= 'A' && *t <= 'Z' || *t == '_'); t++);
2879 if (t == op)
2881 op = qe;
2885 else (*op++=( c));
2889 (*op++=( c));
2899 qe = (c == '"') ? op : (char*)0;
2901 (*op++=( c));
2906 (*op++=( '\n'));
2912 (*op++=( c));
2922 (*op++=( '\n'));
2932 if (flags & (1L<<0)) (*op++=( c));
2947 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
2970 (*op++=( ((n >> 6) & 07) + '0'));
2971 (*op++=( ((n >> 3) & 07) + '0'));
2972 (*op++=( (n & 07) + '0'));
2975 (*op++=( c));
3002 if (op != proto->ob && (*(op-1)) != ' ' && (*(op-1)) != '\n')
3003 (*op++=( ' '));
3007 (*op++=( c));
3013 if (flags & (1L<<5)) (op=ko);
3017 op = strcopy(om, "/* ");
3018 op = strcopy(op, im);
3019 op = strcopy(op, " */\n");
3029 op = strcopy(om, "#if defined(__STDC__) || defined(__STDPP__)\n");
3030 op = strcopy(op, im);
3031 op = strcopy(op, "\n#else\n");
3034 *op++ = *ip++;
3035 while (*op = *ip++)
3036 if (*op++ == '#' && *ip != '(')
3038 op--;
3039 while (*--op == ' ' || *op == '\t');
3042 op = strcopy(op + 1, "/**/");
3047 if (*op != '"') *++op = '"';
3048 op++;
3050 while ((c = *ip) >= 'A' && c <= 'Z' || c >= 'a' && c <= 'z' || c >= '0' && c <= '9' || c == '_') *op++ = *ip++;
3053 else *op++ = '"';
3057 op = strcopy(op, "\n#endif\n");
3058 op = linesync(proto, op, proto->line);
3070 if (flags & (1L<<5)) (op=ko);
3072 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
3078 (*op++=( c));
3084 (*op++=( c));
3130 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
3132 op = strcopy(op - 6, "__INLINE__");
3133 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
3146 proto->ox = op - 6;
3166 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
3170 memcopy(op - 4, "__V_", 4);
3175 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
3202 while (op > proto->ob && (*(op - 1) == ' ' || *(op - 1) == '\t'))
3203 op--;
3204 if (op > proto->ob && *(op - 1) != '\n') *op++ = ' ';
3224 (*op++=( '\\'));
3225 (*op++=( '\n'));
3236 (*op++=( c));
3262 om = op - 1;
3277 aom = op - 1;
3371 om = op + (ip - bp);
3391 om = op - 1;
3403 op = strcopy(op, "\
3412 op = linesync(proto, op, proto->line);
3429 op = strcopy(op, "undef __MANGLE__\n");
3430 op = linesync(proto, op, proto->line);
3431 op = strcopy(op, "#define __MANGLE__ __LINKAGE__");
3437 om = op - 1;
3444 op = strcopy(op, "undef __MANGLE__\n");
3445 op = linesync(proto, op, proto->line);
3446 op = strcopy(op, "#define __MANGLE__ __LINKAGE__");
3451 om = op - 1;
3472 v = number(op, args < 0 ? -args : args);
3477 proto_error((char*)proto + sizeof(struct proto), 2, op, ((char*)0));
3507 op = om++;
3510 v = op;
3514 om = (v = (op += 4)) + 1;
3529 om = (e = ++op) + 1;
3537 om = (v = (op += 7)) + 1;
3545 (*op++=( '('));
3546 t = op;
3555 if (c != '*' && op > om) (*op++=( ' '));
3561 m = op;
3562 while (op > om && ((c = *(op - 1)) == '(' || c == ')' || c == '[' || c == ']'))
3563 op--;
3564 v = op;
3565 while (op > om && (c = *(op - 1)) != ' ' && c != '*')
3566 op--;
3567 while (*(op - 1) == ' ')
3568 op--;
3571 e = op;
3579 if (op <= om)
3580 op = strcopy(op, "int");
3581 else if (*(op - 1) == ',')
3582 op = strcopy(op, " int");
3585 (*op++=( *v++));
3587 (*op++=( ','));
3590 if (x = !e) e = op - 1;
3591 (*op++=( ' '));
3594 (*op++=( *m++));
3600 op -= m - e;
3604 if (ie >= ip) (op--);
3605 else (*op++=( ' '));
3608 t = op;
3614 if (op > om && (c = *(op - 1)) == ' ') op--;
3615 while (*ie == '*') (*op++=( *ie++));
3617 if (c != '(') (*op++=( ' '));
3621 if (op > om && *(op - 1) == ' ') op--;
3622 (*op++=( *ie++));
3627 if (op > om && *(op - 1) == '(')
3629 (*op++=( *ie++));
3632 else if ((flags & (1L<<5)) && (op == om || *(op - 1) == ' ') && *ie == 'r' && !sstrncmp( ie, "register", 8) && (*(ie + 8) == ' ' || *(ie + 8) == '\t' || *(ie + 8) == '\n'))
3635 if (op > om) (op--);
3637 else (*op++=( *ie++));
3640 if (op <= om) op = strcopy(op, "void");
3641 (*op++=( ')'));
3644 (*op++=( ';'));
3645 (*op++=( '\n'));
3646 (proto->op=op);
3647 (ko=op);
3651 (*op++=( '\n'));
3652 (*op++=( *ip));
3662 op = strcopy(om, " __PARAM__(");
3663 op = memcopy(op, im, ie - im);
3664 (*op++=( ','));
3665 (*op++=( ' '));
3666 (*op++=( '('));
3672 op = strcopy(op, "va_alist)) __OTORP__(va_dcl)\n{");
3678 proto->op = op;
3701 op = memcopy(op, m, e - m);
3713 op = memcopy(op, m, e - m);
3715 (*op++=( ','));
3716 (*op++=( ' '));
3717 proto->op = op;
3733 (*op++=( ')'));
3734 (*op++=( ')'));
3739 proto->op = strcopy(op, " __OTORP__(");
3749 op = proto->op;
3750 (*op++=( ')'));
3753 op = linesync(proto, op, proto->line = line);
3757 (*op++=( '\n'));
3758 (*op++=( '#'));
3760 else if (!(flags & (1L<<27))) (*op++=( '{'));
3773 if (flags & (1L<<5)) (op=ko);
3801 if (paren == 0 && (flags & (1L<<1))) *(op - 1) = c = ';';
3818 if (flags & (1L<<5)) (op=ko);
3821 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
3829 (op=ko);
3858 ko = op;
3860 v = op += n;
3883 op = om;
3884 while (*--op == ' ' || *op == '\t' || *op == '\n');
3885 if (*op != ')')
3887 op = om += 14;
3888 *--op = ')';
3889 while ((x = *(op - 14)) >= 'A' && x <= 'Z' || x >= 'a' && x <= 'z' || x >= '0' && x <= '9' || x == '_')
3890 *--op = x;
3891 memcopy(op - 13, "(__OTORP__(*)", 13);
3898 op = om;
3899 if (!(flags & (1L<<25))) op = strcopy(op, "(...)");
3900 else op = memcopy(op, im, ie - im);
3901 (*op++=( c));
3905 if (flags & (1L<<1)) op = strcopy(om, "()");
3906 else if (!(flags & (1L<<25))) op = strcopy(om, "(__VARARG__)");
3909 op = strcopy(om, " __PROTO__(");
3910 op = memcopy(op, im, ie - im);
3911 (*op++=( ')'));
3914 (*op++=( c));
3931 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
3959 op = strcopy(op, " __MANGLE__");
3962 op = strcopy(op - 1, proto->package);
3963 func = op + 1;
3964 op = strcopy(op, "_DATA__");
3974 op -= 3;
3975 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
3989 op = strcopy(op - 8, "__VA_START__");
3990 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
4011 do{(ip=proto->ip);(op=proto->op);call=proto->call;}while(0);
4022 op = strcopy(op, " __OTORP__(");
4024 proto->op = op;
4044 op = memcopy(op, m, e - m);
4045 op = strcopy(op, " = ");
4047 op = strcopy(op, "va_arg(");
4048 op = memcopy(op, v, n);
4049 (*op++=( ','));
4050 (*op++=( ' '));
4051 if (m > bp) op = memcopy(op, bp, m - bp);
4052 else op = strcopy(op, "int ");
4053 if (group > 1) op = strcopy(op, ")()");
4054 else op = memcopy(op, e, proto->ip - e - 1);
4055 (*op++=( ')'));
4056 (*op++=( ';'));
4070 op = memcopy(op, m, e - m);
4071 op = strcopy(op, " = ");
4073 op = strcopy(op, "va_arg(");
4074 op = memcopy(op, v, n);
4075 (*op++=( ','));
4076 (*op++=( ' '));
4077 if (m > bp) op = memcopy(op, bp, m - bp);
4078 else op = strcopy(op, "int ");
4079 if (group > 1) op = strcopy(op, ")()");
4080 else op = memcopy(op, e, proto->ip - e - 1);
4081 (*op++=( ')'));
4082 (*op++=( ';'));
4087 proto->op = op;
4103 op = strcopy(op, ")");
4137 for (;; op--)
4139 switch (*(op - 1))
4143 t = op;
4146 op--;
4154 t = op;
4159 op--;
4172 *op++ = 'L';
4175 m = op;
4176 t = op = m + 10;
4204 (op=proto->op);
4207 (proto->op=op);
4231 op = proto->op;
4233 else while (*ip != '\n') *op++ = *ip++;
4234 op = init(proto, op, flags);
4235 op = linesync(proto, op, proto->line);
4240 do{(proto->ip=ip);(proto->op=op);proto->flags&=~((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->flags|=flags&((1L<<5)|(1L<<9)|(1L<<17)|(1L<<27)|(1L<<28));proto->call=call;}while(0);
4321 proto->op = proto->ob = iob;
4468 proto->op = memcopy(proto->op, proto->ip, m);
4475 if ((comlen = astlicense(proto->op, proto->oz, notice, options, proto->cc[0], proto->cc[1], proto->cc[2])) < 0)
4476 proto_error((char*)proto + sizeof(struct proto), 1, proto->op, ((char*)0));
4478 proto->op += comlen;
4482 proto->op = linesync(proto, proto->op, 1);
4483 proto->iz += proto->op - proto->ob;
4485 memcopy(proto->op, proto->ip, n);
4503 if ((comlen = astlicense(proto->op, proto->oz, notice, options, proto->cc[0], proto->cc[1], proto->cc[2])) < 0)
4504 proto_error((char*)proto + sizeof(struct proto), 1, proto->op, ((char*)0));
4506 proto->op += comlen;
4521 *proto->op++ = '#';
4522 proto->op = strcopy(proto->op, "pragma");
4523 *proto->op++ = ' ';
4524 proto->op = strcopy(proto->op, "prototyped");
4525 *proto->op++ = '\n';
4536 proto->op = strcopy(proto->op, "\n%{\n"+ !notice);
4537 proto->op = strcopy(proto->op, "/* : : generated by proto : : */\n");
4538 proto->op = strcopy(proto->op, "%}\n");
4543 *proto->op++ = '\n';
4544 proto->op = strcopy(proto->op, "/* : : generated by proto : : */\n");
4546 proto->op = linesync(proto, proto->op, proto->line);
4548 proto->op = init(proto, proto->op, proto->flags);
4591 if (proto->op == proto->ob)
4598 register char* op = proto->ob;
4618 *op++ = *ip++;
4624 while (op < ep && (n = *op++ = *ip))
4631 *op++ = *ip++;
4638 *op++ = '%';
4645 proto->op = memcopy(proto->ob, proto->ip, ip - proto->ip);
4652 proto->op = strcopy(proto->op, "/* NOTE: some constructs may not have been converted */\n");
4654 n = proto->op - proto->ob;
4655 proto->op = proto->ob;
4862 char* op;
4925 options = op = opt;
4926 oe = op + sizeof(opt) - 1;
4929 if ((n + 1) >= (oe - op))
4933 *op++ = '\n';
4934 memcopy( op, b, n + 1);
4935 op += n;