Return to anal.h CVS log

Up to [local] / OpenXM_contrib / pari / src / language

Annotation of OpenXM_contrib/pari/src/language/anal.h, Revision 1.1.1.1

1.1       maekawa     1: /*************************************************************************/
                      2: /*                                                                       */
                      3: /*                 Declarations specific to the analyzer                 */
                      4: /*                                                                       */
                      5: /*************************************************************************/
                      6: /* $Id: anal.h,v 1.1.1.1 1999/09/16 13:48:02 karim Exp $ */
                      7:
                      8: typedef struct default_type {
                      9:   char *name;
                     10:   void *fun;
                     11: } default_type;
                     12:
                     13: typedef struct gp_args {
                     14:   int nloc, narg;
                     15:   GEN *arg;
                     16: } gp_args;
                     17:
                     18: typedef struct module {
                     19:   entree *func;
                     20:   char **help;
                     21: } module;
                     22:
                     23: entree *do_alias(entree *ep);
                     24: int    is_identifier(char *s);
                     25: entree *is_entry_intern(char *s, entree **table, long *hash);
                     26: long   is_keyword_char(char c);
                     27: char   *readstring(char *src, char *s);
                     28: long   loop_break();
                     29: long   did_break();
                     30: void   print_prefixed_text(char *s, char *prefix, char *str);
                     31:
                     32: void term_color(int c);
                     33: char *term_get_color(int c);
                     34:
                     35: void push_val(entree *ep, GEN a);
                     36: void pop_val(entree *ep);
                     37:
                     38: extern long prec;
                     39: extern GEN gnil;
                     40:
                     41: extern char *current_function;
                     42: extern GEN  (*gp_history_fun)(long, long, char *, char *);
                     43: extern int  (*whatnow_fun)(char *, int);
                     44: extern void *foreignHandler;
                     45: extern GEN  (*foreignExprHandler)(char*);
                     46: extern char foreignExprSwitch;
                     47: extern entree * (*foreignAutoload)(char*, long);
                     48: extern void (*foreignFuncFree)(entree *);
                     49:
                     50: /* Variables containing the list of PARI functions */
                     51: extern int    functions_tblsz;     /* hashcodes table size */
                     52: extern module *pari_modules;       /* list of functions modules */
                     53: extern entree **functions_hash;    /* functions hashtable */
                     54: extern entree **members_hash;      /* members hashtable */
                     55: extern char   *helpmessages_basic[];
                     56: extern entree functions_basic[];
                     57:
                     58: /* Variables containing the list of specific GP functions */
                     59: extern char   *helpmessages_gp[];
                     60: extern entree  functions_gp[];
                     61: extern entree  gp_member_list[];
                     62: extern char   *helpmessages_highlevel[];
                     63: extern entree  functions_highlevel[];
                     64: extern int    gp_colors[];
                     65: extern int     disable_color,added_newline;
                     66:
                     67: /* Variables containing the list of old PARI fonctions (up to 1.39.15) */
                     68: extern module *pari_oldmodules;    /* list of functions modules */
                     69: extern entree **funct_old_hash;    /* hashtable */
                     70: extern char   *oldhelpmessage[], *helpmessages_oldgp[];
                     71: extern entree  oldfonctions[], functions_oldgp[];
                     72:
                     73: /* backward compatibility */
                     74: extern long compatible;
                     75: enum { NONE, WARN, OLDFUN, OLDALL };
                     76: #define new_fun_set (compatible == NONE || compatible == WARN)
                     77:
                     78: /* return type for GP functions */
                     79: enum { RET_GEN, RET_INT, RET_VOID };
                     80:
                     81: /* are we under emacs ? (might change output) */
                     82: extern int under_emacs;
                     83:
                     84: /* entrees */
                     85: #define Epstatic 0x100
                     86: #define EpVALENCE(ep) ((ep)->valence & 0xFF)
                     87: #define EpSTATIC(ep) ((ep)->valence & 0x100)
                     88: #define EpSETSTATIC(ep) ((ep)->valence |= 0x100)
                     89: #define PARAMSHIFT 9
                     90: #define EpNPARAM(ep) ((ep)->valence >> PARAMSHIFT)
                     91: #define EpPREDEFINED(ep) (EpVALENCE(ep) < EpUSER)
                     92:
                     93: #define EpINSTALL 200
                     94: #define EpMEMBER  105
                     95: #define EpGVAR    104
                     96: #define EpVAR     103
                     97: #define EpALIAS   102
                     98: #define EpNEW     101
                     99: #define EpUSER    100
                    100:
                    101: #define NOT_CREATED_YET (entree *)1 /* for check_new_fun */
                    102: #define initial_value(ep) ((ep)+1)
                    103:
                    104: #define is_entry(s) (is_entry_intern(s,functions_hash,NULL))
                    105:
                    106: /* blocs */
                    107: #define BL_HEAD 3
                    108: #define bl_base(x) ((x) - BL_HEAD)
                    109: #define bl_next(x) (((GEN)x)[-3])
                    110: #define bl_prev(x) (((GEN)x)[-2])
                    111: #define bl_num(x)  (((GEN)x)[-1])
                    112:
                    113: /* break */
                    114: enum { br_NONE, br_BREAK, br_NEXT, br_RETURN }; /* break status */
                    115:
                    116: /* formatted printing */
                    117: #ifndef LONG_IS_64BIT
                    118: #  define VOIR_STRING1 "[&=%08lx] "
                    119: #  define VOIR_STRING2 "%08lx  "
                    120: #  define VOIR_STRING3 "  %08lx  :  "
                    121: #else
                    122: #  define VOIR_STRING1 "[&=%08x%08x] "
                    123: #  define VOIR_STRING2 "%08x%08x  "
                    124: #  define VOIR_STRING3 "  %08x%08x  :  "
                    125: #endif
                    126:
                    127: /* signals */
                    128: #define INIT_JMPm 1
                    129: #define INIT_SIGm 2
                    130: #define INIT_JMP     (init_opts & INIT_JMPm)
                    131: #define INIT_SIG     (init_opts & INIT_SIGm)
                    132: #define INIT_JMP_on  (init_opts |= INIT_JMPm)
                    133: #define INIT_SIG_on  (init_opts |= INIT_SIGm)
                    134: #define INIT_JMP_off (init_opts &= ~INIT_JMPm)
                    135: #define INIT_SIG_off (init_opts &= ~INIT_SIGm)
                    136:
                    137: /* gp_colors */
                    138: void decode_color(int n, int *c);
                    139: #define c_NONE 0xffffUL
                    140: enum { c_ERR, c_HIST, c_PROMPT, c_INPUT, c_OUTPUT, c_HELP, c_TIME, c_LAST };
                    141:
                    142: /* general printing */
                    143: #define print_text(s) print_prefixed_text((s),NULL,NULL);
                    144:
                    145: /* infiles */
                    146: #define MAX_BUFFER 64
                    147: #define mf_IN    1
                    148: #define mf_PIPE  2
                    149: #define mf_FALSE 4
                    150:
                    151: /* for filtre */
                    152: #define f_COMMENT  0
                    153: #define f_INIT     1
                    154: #define f_KEEPCASE 2
                    155: #define f_READL    4
                    156: #define f_REG      8
                    157: #define f_ENDFILE 16