object *getglobals PROTO((void));
object *getlocals PROTO((void));
object *getowner PROTO((void));
-void mergelocals PROTO((void));
void printtraceback PROTO((object *));
void flushline PROTO((void));
extern long getlongvalue PROTO((object *));
extern double dgetlongvalue PROTO((object *));
-object *long_format PROTO((object *, int));
object *long_scan PROTO((char *, int));
#ifdef __cplusplus
#endif
extern void listtree PROTO((node *));
-extern void listnode PROTO((FILE *, node *));
#ifdef __cplusplus
}
int parse_string PROTO((char *, int, struct _node **));
int parse_file PROTO((FILE *, char *, int, struct _node **));
-object *eval_node PROTO((struct _node *, char *, object *, object *));
-
object *run_string PROTO((char *, int, object *, object *));
object *run_file PROTO((FILE *, char *, int, object *, object *));
-object *run_err_node PROTO((int, struct _node *, char *, object *, object *));
-object *run_node PROTO((struct _node *, char *, object *, object *));
object *compile_string PROTO((char *, char *, int));
#define is_arrayobject(op) ((op)->ob_type == &Arraytype)
+/* Forward */
extern object *newarrayobject PROTO((int, struct arraydescr *));
extern int getarraysize PROTO((object *));
extern object *getarrayitem PROTO((object *, int));
-extern int setarrayitem PROTO((object *, int, object *));
+static int setarrayitem PROTO((object *, int, object *));
extern int insarrayitem PROTO((object *, int, object *));
extern int addarrayitem PROTO((object *, object *));
static longobject *mul1 PROTO((longobject *, wdigit));
static longobject *muladd1 PROTO((longobject *, wdigit, wdigit));
static longobject *divrem1 PROTO((longobject *, wdigit, digit *));
+static object *long_format PROTO((object *aa, int base));
static int ticker; /* XXX Could be shared with ceval? */
meth_hash, /*tp_hash*/
};
-object *listmethods PROTO((struct methodlist *)); /* Forward */
+static object *listmethods PROTO((struct methodlist *)); /* Forward */
static object *
listmethods(ml)
/* Forward */
static void list1node PROTO((FILE *, node *));
+static void listnode PROTO((FILE *, node *));
void
listtree(n)
static void fast_2_locals PROTO((frameobject *));
static int access_statement PROTO((object *, object *, frameobject *));
static int exec_statement PROTO((object *, object *, object *));
+static void mergelocals PROTO(());
/* Pointer to current frame, used to link new frames to */
extern grammar gram; /* From graminit.c */
-void initsigs(); /* Forward */
+/* Forward */
+static object *run_err_node PROTO((int err, node *n, char *filename,
+ object *globals, object *locals));
+static object *run_node PROTO((node *n, char *filename,
+ object *globals, object *locals));
+static object *eval_node PROTO((node *n, char *filename,
+ object *globals, object *locals));
+void initsigs PROTO(());
int debugging; /* Needed by parser.c */
int verbose; /* Needed by import.c */