From: bruce Date: Fri, 6 Feb 1987 14:21:04 +0000 (+0000) Subject: Changed name from .c to .r and now in format required by awk. X-Git-Tag: release-5-5~4729 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=dd673a426ffddd84ed3f89a437041489c3b70d6e;p=ack.git Changed name from .c to .r and now in format required by awk. --- diff --git a/modules/src/em_opt/pseudo.r b/modules/src/em_opt/pseudo.r index 5e4d60992..a758cb4b7 100644 --- a/modules/src/em_opt/pseudo.r +++ b/modules/src/em_opt/pseudo.r @@ -1,471 +1,174 @@ -#ifndef NORCSID -static char rcsid[] = "$Header$"; -#endif - -#include "nopt.h" - -C_df_dlb(l) - label l; -{ +df_dlb | label:l | FLUSHDFA(); O_df_dlb(l); -} - -C_df_dnam(s) - char * s; -{ +df_dnam | char *:s | FLUSHDFA(); O_df_dnam(s); -} - -C_pro(s,l) - char * s; - arith l; -{ +pro | char *:s arith:l | FLUSHDFA(); O_pro(s,l); -} - -C_pro_narg(s) - char * s; -{ +pro_narg | char *:s | FLUSHDFA(); O_pro_narg(s); -} - -C_end(l) - arith l; -{ +end | arith:l | FLUSHDFA(); O_end(l); -} - -C_end_narg() -{ +end_narg | | FLUSHDFA(); O_end_narg(); -} - -C_exa_dnam(s) - char * s; -{ +exa_dnam | char *:s | FLUSHDFA(); O_exa_dnam(s); -} - -C_exa_dlb(l) - label l; -{ +exa_dlb | label:l | FLUSHDFA(); O_exa_dlb(l); -} - -C_exp(s) - char * s; -{ +exp | char *:s | FLUSHDFA(); O_exp(s); -} - -C_ina_dnam(s) - char * s; -{ +ina_dnam | char *:s | FLUSHDFA(); O_ina_dnam(s); -} - -C_ina_dlb(l) - label l; -{ +ina_dlb | label:l | FLUSHDFA(); O_ina_dlb(l); -} - -C_inp(s) - char * s; -{ +inp | char *:s | FLUSHDFA(); O_inp(s); -} - -C_bss_cst(n,w,i) - arith n; - arith w; - int i; -{ +bss_cst | arith:n arith:w int:i | FLUSHDFA(); O_bss_cst(n,w,i); -} - -C_bss_icon(n,s,sz,i) - arith n; - char * s; - arith sz; - int i; -{ +bss_icon | arith:n char *:s arith:sz int:i | FLUSHDFA(); O_bss_icon(n,s,sz,i); -} - -C_bss_ucon(n,s,sz,i) - arith n; - char * s; - arith sz; - int i; -{ +bss_ucon | arith:n char *:s arith:sz int:i | FLUSHDFA(); O_bss_ucon(n,s,sz,i); -} - -C_bss_fcon(n,s,sz,i) - arith n; - char * s; - arith sz; - int i; -{ +bss_fcon | arith:n char *:s arith:sz int:i | FLUSHDFA(); O_bss_fcon(n,s,sz,i); -} - -C_bss_dnam(n,s,offs,i) - arith n; - char * s; - arith offs; - int i; -{ +bss_dnam | arith:n char *:s arith:offs int:i | FLUSHDFA(); O_bss_dnam(n,s,offs,i); -} - -C_bss_dlb(n,l,offs,i) - arith n; - label l; - arith offs; - int i; -{ +bss_dlb | arith:n label:l arith:offs int:i | FLUSHDFA(); O_bss_dlb(n,l,offs,i); -} - -C_bss_ilb(n,l,i) - arith n; - label l; - int i; -{ +bss_ilb | arith:n label:l int:i | FLUSHDFA(); O_bss_ilb(n,l,i); -} - -C_bss_pnam(n,s,i) - arith n; - char * s; - int i; -{ +bss_pnam | arith:n char *:s int:i | FLUSHDFA(); O_bss_pnam(n,s,i); -} - -C_hol_cst(n,w,i) - arith n; - arith w; - int i; -{ +hol_cst | arith:n arith:w int:i | FLUSHDFA(); O_hol_cst(n,w,i); -} - -C_hol_icon(n,s,sz,i) - arith n; - char * s; - arith sz; - int i; -{ +hol_icon | arith:n char *:s arith:sz int:i | FLUSHDFA(); O_hol_icon(n,s,sz,i); -} - -C_hol_ucon(n,s,sz,i) - arith n; - char * s; - arith sz; - int i; -{ +hol_ucon | arith:n char *:s arith:sz int:i | FLUSHDFA(); O_hol_ucon(n,s,sz,i); -} - -C_hol_fcon(n,s,sz,i) - arith n; - char * s; - arith sz; - int i; -{ +hol_fcon | arith:n char *:s arith:sz int:i | FLUSHDFA(); O_hol_fcon(n,s,sz,i); -} - -C_hol_dnam(n,s,offs,i) - arith n; - char * s; - arith offs; - int i; -{ +hol_dnam | arith:n char *:s arith:offs int:i | FLUSHDFA(); O_hol_dnam(n,s,offs,i); -} - -C_hol_dlb(n,l,offs,i) - arith n; - label l; - arith offs; - int i; -{ +hol_dlb | arith:n label:l arith:offs int:i | FLUSHDFA(); O_hol_dlb(n,l,offs,i); -} - -C_hol_ilb(n,l,i) - arith n; - label l; - int i; -{ +hol_ilb | arith:n label:l int:i | FLUSHDFA(); O_hol_ilb(n,l,i); -} - -C_hol_pnam(n,s,i) - arith n; - char * s; - int i; -{ +hol_pnam | arith:n char *:s int:i | FLUSHDFA(); O_hol_pnam(n,s,i); -} - -C_con_cst(l) - arith l; -{ +con_cst | arith:l | FLUSHDFA(); O_con_cst(l); -} - -C_con_icon(val,siz) - char * val; - arith siz; -{ +con_icon | char *:val arith:siz | FLUSHDFA(); O_con_icon(val,siz); -} - -C_con_ucon(val,siz) - char * val; - arith siz; -{ +con_ucon | char *:val arith:siz | FLUSHDFA(); O_con_ucon(val,siz); -} - -C_con_fcon(val,siz) - char * val; - arith siz; -{ +con_fcon | char *:val arith:siz | FLUSHDFA(); O_con_fcon(val,siz); -} - -C_con_scon(str,siz) - char * str; - arith siz; -{ +con_scon | char *:str arith:siz | FLUSHDFA(); O_con_scon(str,siz); -} - -C_con_dnam(str,val) - char * str; - arith val; -{ +con_dnam | char *:str arith:val | FLUSHDFA(); O_con_dnam(str,val); -} - -C_con_dlb(l,val) - label l; - arith val; -{ +con_dlb | label:l arith:val | FLUSHDFA(); O_con_dlb(l,val); -} - -C_con_ilb(l) - label l; -{ +con_ilb | label:l | FLUSHDFA(); O_con_ilb(l); -} - -C_con_pnam(str) - char * str; -{ +con_pnam | char *:str | FLUSHDFA(); O_con_pnam(str); -} - -C_rom_cst(l) - arith l; -{ +rom_cst | arith:l | FLUSHDFA(); O_rom_cst(l); -} - -C_rom_icon(val,siz) - char * val; - arith siz; -{ +rom_icon | char *:val arith:siz | FLUSHDFA(); O_rom_icon(val,siz); -} - -C_rom_ucon(val,siz) - char * val; - arith siz; -{ +rom_ucon | char *:val arith:siz | FLUSHDFA(); O_rom_ucon(val,siz); -} - -C_rom_fcon(val,siz) - char * val; - arith siz; -{ +rom_fcon | char *:val arith:siz | FLUSHDFA(); O_rom_fcon(val,siz); -} - -C_rom_scon(str,siz) - char * str; - arith siz; -{ +rom_scon | char *:str arith:siz | FLUSHDFA(); O_rom_scon(str,siz); -} - -C_rom_dnam(str,val) - char * str; - arith val; -{ +rom_dnam | char *:str arith:val | FLUSHDFA(); O_rom_dnam(str,val); -} - -C_rom_dlb(l,val) - label l; - arith val; -{ +rom_dlb | label:l arith:val | FLUSHDFA(); O_rom_dlb(l,val); -} - -C_rom_ilb(l) - label l; -{ +rom_ilb | label:l | FLUSHDFA(); O_rom_ilb(l); -} - -C_rom_pnam(str) - char * str; -{ +rom_pnam | char *:str | FLUSHDFA(); O_rom_pnam(str); -} - -C_cst(l) - arith l; -{ +cst | arith:l | FLUSHDFA(); O_cst(l); -} - -C_icon(val,siz) - char * val; - arith siz; -{ +icon | char *:val arith:siz | FLUSHDFA(); O_icon(val,siz); -} - -C_ucon(val,siz) - char * val; - arith siz; -{ +ucon | char *:val arith:siz | FLUSHDFA(); O_ucon(val,siz); -} - -C_fcon(val,siz) - char * val; - arith siz; -{ +fcon | char *:val arith:siz | FLUSHDFA(); O_fcon(val,siz); -} - -C_scon(str,siz) - char * str; - arith siz; -{ +scon | char *:str arith:siz | FLUSHDFA(); O_scon(str,siz); -} - -C_dnam(str,val) - char * str; - arith val; -{ +dnam | char *:str arith:val | FLUSHDFA(); O_dnam(str,val); -} - -C_dlb(l,val) - label l; - arith val; -{ +dlb | label:l arith:val | FLUSHDFA(); O_dlb(l,val); -} - -C_ilb(l) - label l; -{ +ilb | label:l | FLUSHDFA(); O_ilb(l); -} - -C_pnam(str) - char * str; -{ +pnam | char *:str | FLUSHDFA(); O_pnam(str); -} - -C_mes_begin(ms) - int ms; -{ +mes_begin | int:ms | FLUSHDFA(); O_mes_begin(ms); -} - -C_mes_end() -{ +mes_end | | FLUSHDFA(); O_mes_end(); -} - -C_exc(c1,c2) - arith c1; - arith c2; -{ +exc | arith:c1 arith:c2 | FLUSHDFA(); O_exc(c1,c2); -}