p2c.hdrs

把pascal程序转成C语言程序 把pascal程序转成C语言程序

extern int      exprsame           PP( (Expr *a, Expr *b, int strict) );
extern int      exprequiv          PP( (Expr *a, Expr *b) );
extern void     deletearg          PP( (Expr **ex, int n) );
extern void     insertarg          PP( (Expr **ex, int n, Expr *arg) );
extern Expr    *grabarg            PP( (Expr *ex, int n) );
extern void     delsimparg         PP( (Expr **ep, int n) );
extern Expr    *resimplify         PP( (Expr *ex) );
extern int      realzero           PP( (char *s) );
extern int      realint            PP( (char *s, int i) );
extern int      checkconst         PP( (Expr *ex, long val) );
extern int      isliteralconst     PP( (Expr *ex, Value *valp) );
extern int      isconstexpr        PP( (Expr *ex, long *valp) );
extern int      isconstantexpr     PP( (Expr *ex) );
extern Expr    *makeexpr_actcast   PP( (Expr *a, Type *type) );
extern Expr    *makeexpr_cast      PP( (Expr *a, Type *type) );
extern Expr    *gentle_cast        PP( (Expr *a, Type *type) );
extern Expr    *makeexpr_charcast  PP( (Expr *ex) );
extern Expr    *makeexpr_stringcast PP( (Expr *ex) );
extern int      exprlongness       PP( (Expr *ex) );
extern Expr    *makeexpr_longcast  PP( (Expr *a, int tolong) );
extern Expr    *makeexpr_arglong   PP( (Expr *a, int tolong) );
extern Expr    *makeexpr_unlongcast PP( (Expr *a) );
extern Expr    *makeexpr_forcelongness PP( (Expr *a) );
extern Expr    *makeexpr_ord       PP( (Expr *ex) );
extern int      expr_looks_neg     PP( (Expr *ex) );
extern int      expr_is_neg        PP( (Expr *ex) );
extern int      expr_neg_cost      PP( (Expr *a) );
extern Expr    *enum_to_int        PP( (Expr *a) );
extern Expr    *neg_inside_sum     PP( (Expr *a) );
extern Expr    *makeexpr_neg       PP( (Expr *a) );
extern Type    *true_type          PP( (Expr *ex) );
extern int      ischartype         PP( (Expr *ex) );
extern Expr    *makeexpr_plus      PP( (Expr *a, Expr *b) );
extern Expr    *makeexpr_minus     PP( (Expr *a, Expr *b) );
extern Expr    *makeexpr_inc       PP( (Expr *a, Expr *b) );
extern Expr    *distribute_plus    PP( (Expr *ex) );
extern Expr    *makeexpr_times     PP( (Expr *a, Expr *b) );
extern Expr    *makeexpr_sqr       PP( (Expr *ex, int cube) );
extern Expr    *makeexpr_divide    PP( (Expr *a, Expr *b) );
extern int      gcd                PP( (int a, int b) );
extern int      negsigns           PP( (int mask) );
extern int      possiblesigns      PP( (Expr *ex) );
extern Expr    *dodivmod           PP( (char *funcname, enum exprkind ekind,
                                        Expr *a, Expr *b) );
extern Expr    *makeexpr_div       PP( (Expr *a, Expr *b) );
extern Expr    *makeexpr_mod       PP( (Expr *a, Expr *b) );
extern Expr    *makeexpr_rem       PP( (Expr *a, Expr *b) );
extern int      expr_not_cost      PP( (Expr *a) );
extern Expr    *makeexpr_not       PP( (Expr *a) );
extern Type    *mixsets            PP( (Expr **ep1, Expr **ep2) );
extern Meaning *istempprocptr      PP( (Expr *ex) );
extern Expr    *makeexpr_stringify PP( (Expr *ex) );
extern Expr    *makeexpr_rel       PP( (enum exprkind rel, Expr *a, Expr *b) );
extern Expr    *makeexpr_and       PP( (Expr *a, Expr *b) );
extern Expr    *makeexpr_or        PP( (Expr *a, Expr *b) );
extern Expr    *makeexpr_range     PP( (Expr *ex, Expr *exlow, Expr *exhigh,
                                        int higheq) );
extern Expr    *makeexpr_cond      PP( (Expr *c, Expr *a, Expr *b) );
extern int      expr_is_lvalue     PP( (Expr *ex) );
extern int      expr_has_address   PP( (Expr *ex) );
extern Expr    *checknil           PP( (Expr *ex) );
extern int      checkvarinlists    PP( (Strlist *yes, Strlist *no, int def,
                                        Meaning *mp) );
extern void     requirefilebuffer  PP( (Expr *ex) );
extern Expr    *makeexpr_hat       PP( (Expr *a, int check) );
extern Expr    *un_sign_extend     PP( (Expr *a) );
extern Expr    *makeexpr_addr      PP( (Expr *a) );
extern Expr    *makeexpr_addrstr   PP( (Expr *a) );
extern Expr    *makeexpr_addrf     PP( (Expr *a) );
extern Expr    *makeexpr_index     PP( (Expr *a, Expr *b, Expr *offset) );
extern Expr    *makeexpr_type      PP( (Type *type) );
extern Expr    *makeexpr_sizeof    PP( (Expr *ex, int incskipped) );
extern int      exprspeed          PP( (Expr *ex) );
extern int      noargdependencies  PP( (Expr *ex, int vars) );
extern int      nodependencies     PP( (Expr *ex, int vars) );
extern int      exprdependsvar     PP( (Expr *ex, Meaning *mp) );
extern int      exprdepends        PP( (Expr *ex, Expr *ex2) );
extern int      nosideeffects_func PP( (Expr *ex) );
extern int      deterministic_func PP( (Expr *ex) );
extern int      noargsideeffects   PP( (Expr *ex, int mode) );
extern int      nosideeffects      PP( (Expr *ex, int mode) );
extern int      exproccurs         PP( (Expr *ex, Expr *ex2) );
extern Expr    *singlevar          PP( (Expr *ex) );
extern int      structuredfunc     PP( (Expr *ex) );
extern int      strlapfunc         PP( (Expr *ex) );
extern Meaning *istempvar          PP( (Expr *ex) );
extern Meaning *totempvar          PP( (Expr *ex) );
extern Meaning *isretvar           PP( (Expr *ex) );
extern Expr    *bumpstring         PP( (Expr *ex, Expr *index, int offset) );
extern long     po2m1              PP( (int n) );
extern int      isarithkind        PP( (enum exprkind kind) );
extern Expr    *makeexpr_assign    PP( (Expr *a, Expr *b) );
extern Expr    *makeexpr_comma     PP( (Expr *a, Expr *b) );
extern int      strmax             PP( (Expr *ex) );
extern int      strhasnull         PP( (Value val) );
extern int      istempsprintf      PP( (Expr *ex) );
extern Expr    *makeexpr_sprintfify PP( (Expr *ex) );
extern Expr    *makeexpr_unsprintfify PP( (Expr *ex) );
extern int      sprintflength      PP( (Expr *ex, int allownulls) );
extern Expr    *makeexpr_concat    PP( (Expr *a, Expr *b, int usesprintf) );
extern Expr    *cleansprintf       PP( (Expr *ex) );
extern Expr    *makeexpr_substring PP( (Expr *vex, Expr *ex, Expr *exi,
                                        Expr *exj) );
extern Expr    *makeexpr_dot       PP( (Expr *ex, Meaning *mp) );
extern Expr    *makeexpr_dotq      PP( (Expr *ex, char *name, Type *type) );
extern Expr    *strmax_func        PP( (Expr *ex) );
extern Expr    *makeexpr_nil       PV();
extern Expr    *makeexpr_ctx       PP( (Meaning *ctx) );
extern Expr    *force_signed       PP( (Expr *ex) );
extern Expr    *force_unsigned     PP( (Expr *ex) );
extern long     type_sizeof        PP( (Type *type, int pasc) );
extern Value    eval_expr          PP( (Expr *ex) );
extern Value    eval_expr_consts   PP( (Expr *ex) );
extern Value    eval_expr_pasc     PP( (Expr *ex) );
extern int      expr_is_const      PP( (Expr *ex) );
extern Expr    *eatcasts           PP( (Expr *ex) );

/* Declarations from pexpr.c */
extern Expr    *dots_n_hats        PP( (Expr *ex, Type *target) );
extern Expr    *p_index            PP( (Expr *ex, Expr *ex2) );
extern Expr    *fake_dots_n_hats   PP( (Expr *ex) );
extern void     var_reference      PP( (Meaning *mp) );
extern Expr    *expr_reference     PP( (Expr *ex) );
extern Expr    *p_variable         PP( (Type *target) );
extern Expr    *p_ord_expr         PV();
extern Expr    *packset            PP( (Expr *ex, Type *type) );
extern Expr    *p_setfactor        PP( (Type *target, int sure) );
extern Expr    *p_funcarglist      PP( (Expr *ex, Meaning *args, int firstarg,
                                        int ismacro) );
extern Expr    *replacemacargs     PP( (Expr *ex, Expr *fex) );
extern Expr    *p_noarglist        PP( (Expr *ex, Meaning *mp, Meaning *args) );
extern void     func_reference     PP( (Meaning *func) );
extern Expr    *p_memcall          PP( (Expr *expr, Meaning *mp) );
extern Expr    *p_funccall         PP( (Meaning *mp) );
extern Expr    *accumulate_strlit  PV();
extern Expr    *pascaltypecast     PP( (Type *type, Expr *ex2) );
extern Expr    *p_sexpr            PP( (Type *target) );
extern Expr    *p_rexpr            PP( (Type *target) );
extern Expr    *p_andexpr          PP( (Type *target) );
extern Expr    *p_expr             PP( (Type *target) );
extern Type    *nametotype         PP( (char *name) );
extern int      istypespec         PP( (int iscast) );
extern Expr    *pc_parentype       PP( (char *cp) );
extern Expr    *pc_typename        PV();
extern Expr    *pc_factor          PV();
extern Expr    *pc_expr2           PP( (int prec) );
extern Expr    *pc_expr            PV();
extern Expr    *pc_expr_str        PP( (char *buf) );
extern Expr    *fixexpr            PP( (Expr *ex, int env) );
extern void     out_var            PP( (Meaning *mp, int prec) );
extern void     out_field          PP( (Meaning *mp) );
extern void     out_expr           PP( (Expr *ex) );
extern void     out_expr_top       PP( (Expr *ex) );
extern void     out_expr_factor    PP( (Expr *ex) );
extern void     out_expr_parens    PP( (Expr *ex) );
extern void     out_expr_stmt      PP( (Expr *ex) );
extern void     out_expr_bool      PP( (Expr *ex) );

/* Declarations from funcs.c */
extern void     setup_funcs        PV();
extern int      isvar              PP( (Expr *ex, Meaning *mp) );
extern char    *getstring          PP( (Expr *ex) );
extern Expr    *p_parexpr          PP( (Type *target) );
extern Type    *argbasetype        PP( (Expr *ex) );
extern Type    *choosetype         PP( (Type *t1, Type *t2) );
extern Expr    *convert_offset     PP( (Type *type, Expr *ex2) );
extern Expr    *convert_size       PP( (Type *type, Expr *ex, char *name) );
extern Stmt    *proc_assert        PV();
extern Stmt    *wrapopencheck      PP( (Stmt *sp, Expr *fex) );
extern void     parse_special_variant PP( (Type *tp, char *buf) );
extern char    *find_special_variant PP( (char *buf, char *spname,
                                          Strlist *splist, int need) );
extern int      is_std_file        PP( (Expr *ex) );
extern Stmt    *proc_exit          PV();
extern Stmt    *doseek             PP( (Expr *fex, Expr *ex) );
extern Expr    *writeelement       PP( (Expr *ex, Expr *wid, Expr *prec,
                                        int base) );
extern void     decl_builtins      PV();

/* Declarations from dir.c */
extern void     init_dir           PV();
extern void     setup_dir          PV();
extern void     setup_module       PP( (char *name, int defn) );
extern void     fix_parameters     PV();
extern Stmt    *fix_statement      PP( (Stmt *sp) );
extern Expr    *fix_expression     PP( (Expr *ex, int env) );
extern Expr    *fix_bicall         PP( (Expr *ex, int env) );
extern int      boolean_bicall     PP( (char *name) );
extern unsigned int safemask_bicall PP( (char *name) );
extern int      sideeffects_bicall PP( (char *name) );

/* Declarations from hpmods.c */
extern void     hpmods             PP( (char *name, int defn) );

/* Declarations from citmods.c */
extern void     citmods            PP( (char *name, int defn) );


/* End. */