d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Changed name from .c to .r and now in format required by awk.

Browse source
This commit is contained in:
bruce 1987-02-06 14:21:04 +00:00
parent 8248a41994
commit dd673a426f
1 changed files with 58 additions and 355 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

413
modules/src/em_opt/pseudo.r
View file

@ -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);
}