p2c.proto

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

/* Declarations created by "makeproto" on Tue Dec  7 20:57:09 1993 */



/* Declarations from trans.c */
#ifdef PROTO_TRANS_C
Static void     initrc             PV();
Static int      readrc             PP( (char *rcname, int need) );
Static void     postrc             PV();
Static void     openlogfile        PV();
#endif /*PROTO_TRANS_C*/

/* Declarations from stuff.c */
#ifdef PROTO_STUFF_C
Static void     cvcase             PP( (char *buf, int flags) );
#endif /*PROTO_STUFF_C*/

/* Declarations from out.c */
#ifdef PROTO_OUT_C
Static void     leading_tab        PP( (int col) );
Static void     flush_outbuf       PP( (int numbreaks, int *breakpos,
                                        int *breakindent, int numedits,
                                        int *editpos, char *editold,
                                        char *editnew) );
Static int      readquotes         PP( (int *posp, int err) );
Static int      readparens         PP( (int *posp, int err) );
Static int      measurechars       PP( (int first, int last) );
Static void     makeedit           PP( (int pos, int ch) );
Static void     unedit             PV();
Static int      parencount         PP( (Paren *par) );
Static int      trybreakline       PP( (int pos, int count, int indent,
                                        double badness, int flags, Paren *parens) );
#endif /*PROTO_OUT_C*/

/* Declarations from comment.c */
#ifdef PROTO_COMMENT_C
Static void     attach_mark        PP( (Stmt *sp) );
#endif /*PROTO_COMMENT_C*/

/* Declarations from lex.c */
#ifdef PROTO_LEX_C
Static void     makekeyword        PP( (char *name) );
Static void     makeglobword       PP( (char *name) );
Static void     makekeywords       PV();
Static Symbol  *Pkeyword           PP( (char *name, Token tok) );
Static Symbol  *Pkeywordposs       PP( (char *name, Token tok) );
Static void     makePascalwords    PV();
Static void     deterministic      PP( (char *name) );
Static void     nosideeff          PP( (char *name) );
Static void     recordsideeffects  PV();
Static void     push_input         PV();
Static int      parsecomment       PP( (int p2c_only, int starparen) );
Static void     comment            PP( (int starparen) );
Static int      getflag            PV();
#endif /*PROTO_LEX_C*/

/* Declarations from parse.c */
#ifdef PROTO_PARSE_C
Static void     forward_decl       PP( (Meaning *func, int isextern) );
Static Stmt    *p_stmt             PP( (Stmt *slist, int sflags) );
Static int      usebraces          PP( (Stmt *sp, int opts) );
Static void     outnl              PP( (int serial) );
Static void     out_block          PP( (Stmt *spbase, int opts, int serial) );
Static int      checkreturns       PP( (Stmt **spp, int nearret) );
Static int      isescape           PP( (Expr *ex) );
Static int      deadendblock       PP( (Stmt *sp, int breaks) );
Static int      propcheckexprokay  PP( (Expr *ex) );
Static int      findpropexpr       PP( (Expr *ex, int prop, int add) );
Static void     findpropchecksexpr PP( (Expr *ex) );
Static void     findpropchecks     PP( (Stmt *sp) );
Static void     checkpropzero      PP( (Expr *ex, long *truep, long *falsep,
                                        int nonzero) );
Static void     checkpropsexpr     PP( (Expr *ex, Stmt *sp, long *truep,
                                        long *falsep) );
Static void     checkprops         PP( (Stmt *sp, long *truep, long *falsep) );
Static int      checkelimexpr      PP( (Expr *ex, Expr *ex2) );
Static int      checkelims         PP( (Stmt *sp, Expr *ex, int depth, int last) );
Static int      checkcomma_expr    PP( (Stmt **spp, Expr **exp) );
Static void     checkcommas        PP( (Stmt **spp) );
Static int      checkvarchangeable PP( (Expr *ex, Meaning *mp) );
Static void     findinitsexpr      PP( (Expr *ex) );
Static int      findinitscheckexpr PP( (Expr *ex, Meaning *mp) );
Static int      findinitscheckstmt PP( (Stmt *sp, Meaning *mp) );
Static int      anygotos           PP( (Stmt *sp) );
Static void     findinits          PP( (Stmt *sp, int depth, int okay) );
Static Stmt    *p_body             PV();
Static void     out_function       PP( (Meaning *func) );
Static void     scanfwdparams      PP( (Meaning *mp) );
Static void     p_function         PP( (int isfunc) );
Static void     out_include        PP( (char *name, int quoted) );
Static void     cleanheadername    PP( (char *dest, char *name) );
Static int      tryimport          PP( (Symbol *sym, char *fname, char *ext,
                                        int need) );
Static void     p_import           PP( (int inheader) );
Static void     skipunitheader     PV();
Static void     skiptomodule       PV();
Static void     p_moduleinit       PP( (Meaning *mod) );
Static void     p_nested_module    PV();
Static int      p_module           PP( (int ignoreit, int isdefn) );
#endif /*PROTO_PARSE_C*/

/* Declarations from decl.c */
#ifdef PROTO_DECL_C
Static Meaning *findstandardmeaning PP( (enum meaningkind kind, char *name) );
Static Meaning *makestandardmeaning PP( (enum meaningkind kind, char *name) );
Static Type    *makestandardtype   PP( (enum typekind kind, Meaning *mp) );
Static Stmt    *nullspecialproc    PP( (Meaning *mp) );
Static Stmt    *nullstandardproc   PP( (Expr *ex) );
Static Expr    *nullspecialfunc    PP( (Meaning *mp) );
Static Expr    *nullstandardfunc   PP( (Expr *ex) );
Static Expr    *nullspecialvar     PP( (Meaning *mp) );
Static void     initmeaning        PP( (Meaning *mp) );
Static void     declare_args       PP( (Type *type, int isheader, int isforward) );
Static int      checkstructconst   PP( (Meaning *mp) );
Static int      mixable            PP( (Meaning *mp1, Meaning *mp2, int args,
                                        int flags) );
Static int      checkvarmacdef     PP( (Expr *ex, Meaning *mp) );
Static void     fielddecl          PP( (Meaning *mp, Type **type, Type **tp2,
                                        long *val, int ispacked, int *aligned) );
Static void     realignfields      PP( (Meaning *firstmp, Meaning *stopmp) );
static void     tryrealignfields   PP( (Meaning *firstmp) );
Static void     p_fieldlist        PP( (Type *tp, Meaning **flast, int ispacked,
                                        Meaning *tname) );
Static Type    *p_arraydecl        PP( (char *tname, int ispacked,
                                        Meaning ***confp) );
Static Type    *p_conformant_array PP( (char *tname, Meaning ***confp) );
Static void     nameexternalvar    PP( (Meaning *mp, char *name) );
Static void     handlebrackets     PP( (Meaning *mp, int skip, int wasaliased) );
Static void     handleabsolute     PP( (Meaning *mp, int skip) );
#endif /*PROTO_DECL_C*/

/* Declarations from expr.c */
#ifdef PROTO_EXPR_C
Static Expr    *docast             PP( (Expr *a, Type *type) );
Static Expr    *dolongcast         PP( (Expr *a, int tolong) );
Static Expr    *commute            PP( (Expr *a, Expr *b, enum exprkind kind) );
Static Value    eval_expr_either   PP( (Expr *ex, int pasc) );
#endif /*PROTO_EXPR_C*/

/* Declarations from pexpr.c */
#ifdef PROTO_PEXPR_C
Static void     bindnames          PP( (Expr *ex) );
Static Expr    *makesmallsetconst  PP( (long bits, Type *type) );
Static Expr    *p_factor           PP( (Type *target) );
Static Expr    *p_powterm          PP( (Type *target) );
Static Expr    *p_term             PP( (Type *target) );
Static int      incompat           PP( (Expr *ex, int num, int prec) );
Static void     outop3             PP( (int breakbefore, char *name) );
Static void     out_ctx            PP( (Meaning *ctx, int address) );
Static int      scanfield          PP( (Meaning **variants, short *unions,
                                        int lev, Meaning *mp, Meaning *field) );
Static void     wrexpr             PP( (Expr *ex, int prec) );
#endif /*PROTO_PEXPR_C*/

/* Declarations from funcs.c */
#ifdef PROTO_FUNCS_C
Static Expr    *func_abs           PV();
Static Expr    *func_addr          PV();
Static Expr    *func_iaddress      PV();
Static Expr    *func_addtopointer  PV();
Static Expr    *checkfilename      PP( (Expr *nex) );
Static Stmt    *assignfilename     PP( (Expr *fex, Expr *nex) );
Static Stmt    *proc_assign        PV();
Static Stmt    *handleopen         PP( (int code) );
Static Stmt    *proc_append        PV();
Static Expr    *func_arccos        PP( (Expr *ex) );
Static Expr    *func_arcsin        PP( (Expr *ex) );
Static Expr    *func_arctan        PP( (Expr *ex) );
Static Expr    *func_arctanh       PP( (Expr *ex) );
Static Stmt    *proc_argv          PV();
Static Expr    *func_asr           PV();
Static Expr    *func_lsl           PV();
Static Expr    *func_lsr           PV();
Static Expr    *func_bin           PV();
Static Expr    *func_binary        PP( (Expr *ex) );
Static Expr    *handle_bitsize     PP( (int next) );
Static Expr    *func_bitsize       PV();
Static Expr    *func_bitnext       PV();
Static Expr    *func_blockread     PV();
Static Expr    *func_blockwrite    PV();
Static Stmt    *proc_blockread     PV();
Static Stmt    *proc_blockwrite    PV();
Static Stmt    *proc_bclr          PV();
Static Stmt    *proc_bset          PV();
Static Expr    *func_bsl           PV();
Static Expr    *func_bsr           PV();
Static Expr    *func_btst          PV();
Static Expr    *func_byteread      PV();
Static Expr    *func_bytewrite     PV();
Static Expr    *func_byte_offset   PV();
Static Stmt    *proc_call          PV();
Static Expr    *func_chr           PV();
Static Stmt    *proc_close         PV();
Static Expr    *func_concat        PV();
Static Expr    *func_copy          PP( (Expr *ex) );
Static Expr    *func_cos           PP( (Expr *ex) );
Static Expr    *func_cosh          PP( (Expr *ex) );
Static Stmt    *proc_cycle         PV();
Static Stmt    *proc_date          PV();
Static Stmt    *proc_dec           PV();
Static Expr    *func_dec           PV();
Static Stmt    *proc_delete        PP( (Expr *ex) );
Static Expr    *parse_constructor  PP( (Type *type, Expr *var) );
Static char    *choose_free_func   PP( (Expr *ex) );
Static int      usenewdelete       PP( (Type *tp) );
Static Stmt    *proc_dispose       PV();
Static Expr    *func_exp           PP( (Expr *ex) );
Static Expr    *func_expo          PP( (Expr *ex) );
Static Expr    *iofunc             PP( (Expr *ex, int code) );
Static Expr    *func_eof           PV();
Static Expr    *func_eoln          PV();
Static Stmt    *proc_escape        PV();
Static Stmt    *proc_excl          PV();
Static Expr    *file_iofunc        PP( (int code, long base) );
Static Expr    *func_fcall         PV();
Static Expr    *func_filepos       PV();
Static Expr    *func_filesize      PV();
Static Stmt    *proc_fillchar      PV();
Static Expr    *func_sngl          PV();
Static Expr    *func_float         PV();
Static Stmt    *proc_flush         PV();
Static Expr    *func_frac          PP( (Expr *ex) );
Static Stmt    *proc_freemem       PP( (Expr *ex) );
Static Stmt    *proc_get           PV();
Static Stmt    *proc_getmem        PP( (Expr *ex) );