#endif
END
+close OC or die "Error closing opcode.h: $!";
+
+open PP, '>pp_proto.h' or die "Error creating pp_proto.h: $!";
+for (@ops) {
+ next if /^i_(pre|post)(inc|dec)$/;
+ print PP "PPDEF(pp_$_)\n";
+}
+
+close PP or die "Error closing pp_proto.h: $!";
+
###########################################################################
sub tab {
local($l, $t) = @_;
select select ck_select st@ F?
getc getc ck_eof st% F?
-read read ck_sysread imst@ F R S S?
+read read ck_fun imst@ F R S S?
enterwrite write ck_fun dis% F?
leavewrite write exit ck_null 1
sysopen sysopen ck_fun s@ F S S S?
sysseek sysseek ck_fun s@ F S S
-sysread sysread ck_sysread imst@ F R S S?
+sysread sysread ck_fun imst@ F R S S?
syswrite syswrite ck_fun imst@ F S S S?
send send ck_fun imst@ F S S S?
-recv recv ck_sysread imst@ F R S S
+recv recv ck_fun imst@ F R S S
eof eof ck_eof is% F?
tell tell ck_fun st% F?