lisp.h

Go to the documentation of this file.

/* Definitions for Lisp objects in Xconq.
   Copyright (C) 1989, 1991-2000 Stanley T. Shebs.
   Copyright (C) 2004-2005 Eric A. McDonald.

Xconq is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.  See the file COPYING.  */

#ifndef LISP_H
#define LISP_H

#include "parambox.h"

enum lisptype {
  NIL,          
  CONS,         
  NUMBER,       
  STRING,       
  SYMBOL,       
  UTYPE,        
  MTYPE,        
  TTYPE,        
  ATYPE,        
  POINTER,      
  EOFOBJ        
  };

struct a_cons {
    struct a_obj *car;  
    struct a_obj *cdr;  
};

struct a_symbol {
    struct a_symentry *symentry;        
    struct a_obj *value;                
};

struct a_pointer {
    struct a_obj *sym;  
    char *data;                 
};

typedef struct a_obj {
    enum lisptype type;         
    union {
        int num;                        
        char *str;                      
        struct a_symbol sym;    
        struct a_cons cons;             
        struct a_pointer ptr;   
    } v;                                
} Obj;

typedef struct a_symentry {
    char *name;                         
    struct a_obj *symbol;               
    char constantp;                     
    struct a_symentry *next;            
} Symentry;


#define CONTEXTSIZE 129

enum strmtype { 
    stringstrm,     
    filestrm            
};

typedef struct a_strm {
        enum strmtype type;                     
        union {
                char *sp;                               
                FILE *fp;                               
        } ptr;
        char lastread[CONTEXTSIZE];     
        int numread;                                    
} Strm;

#undef  DEF_KWD
#define DEF_KWD(name,CODE)  CODE,

enum keywords {

#include "keyword.def"

    LAST_KEYWORD    
};

#define match_keyword(ob,key) \
  (symbolp(ob) && strcmp(c_string(ob), keyword_name(key)) == 0)

#define for_all_list(lis,rest)  \
  for (rest = (lis); rest != lispnil; rest = cdr(rest))

#define for_both_lists(lis1,lis2,rest1,rest2)  \
   for (rest1 = (lis1), rest2 = (lis2);  \
        rest1 != lispnil && rest2 != lispnil;  \
        rest1 = cdr(rest1), rest2 = cdr(rest2))

/* All the Lisp interface declarations. */

extern Obj *lispnil;
extern Obj *lispeof;

extern void init_lisp(void);
extern Obj *read_form(FILE *fp, int *p1, int *p2);
extern Obj *read_form_from_string(char *str, int *p1, int *p2, char **endstr);
extern int length(Obj *list);
extern Obj *new_string(char *str);
extern Obj *new_number(int num);
extern Obj *new_utype(int u);
extern Obj *new_mtype(int r);
extern Obj *new_ttype(int t);
extern Obj *new_atype(int s);

extern Obj *new_pointer(Obj *sym, char *ptr);
extern Obj *cons(Obj *x, Obj *y);
extern void type_warning(char *funname, Obj *x, char *errtype, Obj *subst);
extern Obj *car(Obj *x);
extern Obj *cdr(Obj *x);
extern Obj *cadr(Obj *x);
extern Obj *cddr(Obj *x);
extern Obj *caddr(Obj *x);
extern Obj *cdddr(Obj *x);
extern void set_cdr(Obj *x, Obj *v);
extern char *c_string(Obj *x);
extern int c_number(Obj *x);
extern Obj *intern_symbol(char *str);
extern Obj *symbol_value(Obj *sym);
extern Obj *setq(Obj *sym, Obj *x);
extern void makunbound(Obj *sym);
extern void flag_as_constant(Obj *sym);
extern int constantp(Obj *sym);
extern int numberp(Obj *x);
extern int stringp(Obj *x);
extern int symbolp(Obj *x);
extern int consp(Obj *x);
extern int utypep(Obj *x);
extern int mtypep(Obj *x);
extern int ttypep(Obj *x);
extern int atypep(Obj *x);
extern int pointerp(Obj *x);
extern int boundp(Obj *sym);
extern int numberishp(Obj *x);
extern int listp(Obj *x);
extern int equal(Obj *x, Obj *y);
extern int member(Obj *x, Obj *lis);
extern Obj *elt(Obj *lis, int n);
extern Obj *reverse(Obj *lis);
extern Obj *find_at_key(Obj *lis, char *key);
extern Obj *replace_at_key(Obj *lis, char *key, Obj *newval);
extern int is_quoted_lisp(Obj *x);

namespace Xconq {

extern void dice1_desc(char *buf, DiceRep dice);
extern void dice2_desc(char *buf, DiceRep dice);

}

extern void fprint_num_or_dice(FILE *fp, int x, int valtype);
extern void fprinttable(FILE *fp, int n);
extern void fprintlisp(FILE *fp, Obj *oobj);
extern void fprint_list(FILE *fp, Obj *obj);
extern void sprintlisp(char *buf, Obj *obj, int maxlen);
extern void sprint_list(char *buf, Obj *obj, int maxlen);
extern void dlisp(Obj *x);
extern void print_form_and_value(FILE *fp, Obj *form);
extern Obj *append_two_lists(Obj *x1, Obj *x2);
extern Obj *append_lists(Obj *lis);
extern Obj *remove_from_list(Obj *element, Obj *lis);
extern Obj *remove_list_from_list(Obj *rlist, Obj *slist);
extern void push_binding(Obj **lis, Obj *key, Obj *val);
extern void push_cdr_binding(Obj **lis, Obj *key, Obj *val);
extern void push_int_binding(Obj **lis, Obj *key, int val);
extern void push_key_binding(Obj **lis, int key, Obj *val);
extern void push_key_cdr_binding(Obj **lis, int key, Obj *val);
extern void push_key_int_binding(Obj **lis, int key, int val);
extern Obj *eval(Obj *x);
extern Obj *eval_symbol(Obj *x);
extern Obj *eval_list(Obj *x);
extern Obj* eval_boolean_expression(Obj *expr);
extern int eval_boolean_expression(Obj *expr, int (*fn)(Obj *), int dflt);
extern int eval_boolean_expression(Obj *expr, int (*fn)(Obj *, ParamBox *), 
                                   int dflt, ParamBox *pbox);
extern Obj* eval_arithmetic_expression(Obj *expr);
extern Obj* eval_arithmetic_comparison_expression(Obj *expr);
extern Obj *choose_from_weighted_list(Obj *lis, int *totalweightp, int flat);
extern int interpolate_in_list(int val, Obj *lis, int *rslt);
extern int interpolate_in_list_ext(int val, Obj *lis,
                        int mindo, int minval, int minrslt,
                        int maxdo, int maxval, int maxrslt,
                        int *rslt);

extern char *escaped_symbol(char *str);
extern char *escaped_string(char *str);
extern char *safe_escaped_string(char *str, int len);
extern void interp_short_array(short *arr, Obj *lis, int n);
extern void interp_long_array(long *arr, Obj *lis, int n);
extern int eval_number(Obj *val, int *isnumber);
extern char *get_string(Obj *lis);

/* Functions that the Lisp code needs to have defined. */

extern void init_warning(char *str, ...);
extern void low_init_warning(char *str);
extern void init_error(char *str, ...);
extern void low_init_error(char *str);
extern void run_warning(char *str, ...);
extern void low_run_warning(char *str);
extern void run_error(char *str, ...);
extern void low_run_error(char *str);
extern void announce_read_progress(void);
extern int keyword_code(char *str);
extern char *keyword_name(enum keywords k);
extern int lazy_bind(Obj *sym);
extern void init_predefined_symbols(void);
extern void syntax_error(Obj *x, char *msg);

#endif /* LISP_H */

---