83 char *
sub_str(
char *s,
long p,
long n);
138 void perr(
char *str);
139 void perr_s(
char *s1,
char *s2);
140 void perr_s2(
char *s1,
char *s2,
char *s3);
141 void perr_i(
char *str,
long i);
215 long in_set(
char *str,
long set);
229 void WFInit(
long argc,
char **argv);
240 int main(
int argc,
char *argv[]);
384 void show(
long limit);
396 void crunch(
long prec,
long limit);
425 long strpos(
long pos,
char *str);
523 long intcmp(
long a,
long b);
524 long is_int(
char **s,
long *len,
long *sgn);
525 long featcmp(
char *str1,
char *str2);
592 extern void x_set_gc (Display *, GC,
long,
unsigned long,
long,Font);
594 extern void x_record_arc (
ListHeader *, Action,
long,
long,
long,
long,
long,
long,
unsigned long,
unsigned long,
unsigned long);
610 void x_set_gc (Display *display,GC gc,
long function,
unsigned long color,
long linewidth,Font font);
611 void x_record_line (
ListHeader *displaylist,Action action,
long x0,
long y0,
long x1,
long y1,
unsigned long function,
unsigned long color,
unsigned long linewidth);
612 void x_record_arc (
ListHeader *displaylist,Action action,
long x,
long y,
long width,
long height,
long startangle,
long arcangle,
unsigned long function,
unsigned long color,
unsigned long linewidth);
614 void x_record_rectangle (
ListHeader *displaylist,Action action,
long x,
long y,
long width,
long height,
unsigned long function,
unsigned long color,
unsigned long linewidth);
616 void x_record_polygon (
ListHeader *displaylist,Action action,XPoint *points,
long npoints,
unsigned long function,
unsigned long color,
unsigned long linewidth);
619 void x_record_string (
ListHeader *displaylist,Action action,
long x,
long y,
char *str,Font font,
unsigned long function,
unsigned long color);
void mark_quote_new(ptr_psi_term t)
mark_quote_new
void list_special(ptr_psi_term t)
list_special
long hidden_type(ptr_definition t)
hidden_type
long xcPointsAlloc()
xcPointsAlloc
long x_exist_event()
x_exist_event
long intcmp(long a, long b)
intcmp
int isSubTypeValue(ptr_psi_term arg1, ptr_psi_term arg2)
isSubTypeValue
void check_disj(ptr_psi_term t)
check_disj
long opcheck(ptr_psi_term t, long *prec, long *type)
opcheck
void mark_quote_c(ptr_psi_term t, long heap_flag)
mark_quote_c
void persistent_tree(ptr_node n)
persistent_tree
long f_check_out(ptr_psi_term t)
f_check_out
psi_term list_nil(ptr_definition type)
list_nil
ptr_keyword hash_lookup(ptr_hash_table table, char *symbol)
HASH_LOOKUP.
void unify_bool_result(ptr_psi_term t, long v)
unify_bool_result
void psi_term_error()
psi_term_error
char * string_val(ptr_psi_term term)
string_val
long trail_condition(psi_term *Q)
trail_condition
void hash_expand(ptr_hash_table table, int new_size)
HASH_EXPAND.
void report_warning2(ptr_psi_term g, char *s)
report_warning2
void print_undo_stack()
print_undo_stack
long psi_to_string(ptr_psi_term t, char **fn)
psi_to_string
void get_two_args(ptr_node t, ptr_psi_term *a, ptr_psi_term *b)
get_two_args
void init_trace()
init_trace
void push_ptr_value(type_ptr t, GENERIC *p)
push_ptr_value
long glb_value(long result, long f, GENERIC c, GENERIC value1, GENERIC value2, GENERIC *value)
glb_value
void List_InsertAhead(RefListHeader header, Ref atom)
List_InsertAhead.
long count_features(ptr_node t)
count_features
long open_output_file(char *file)
void undo(ptr_stack limit)
undo
long xcCreateSimpleWindow()
xcCreateSimpleWindow
psi_term read_psi_term()
read_psi_term
ptr_goal makeGoal(ptr_psi_term p)
makeGoal
void get_one_arg_addr(ptr_node t, ptr_psi_term **a)
get_one_arg_addr
long xcGetWindowGeometry()
xcGetWindowGeometry
void insert_math_builtins()
insert math builtins into table
int global_unify(ptr_psi_term u, ptr_psi_term v)
global_unify
psi_term make_life_form(ptr_psi_term tok, ptr_psi_term arg1, ptr_psi_term arg2)
make_life_form
GENERIC unitListNext()
set unitListElement to NULL & return NULL
long do_residuation()
do_residuation
ptr_psi_term list_car(ptr_psi_term lst)
list_car
void interrupt()
INTERRUPT()
void show(long limit)
show
void main_display_psi_term(ptr_psi_term t)
main_display_psi_term
long xcDrawString()
xcDrawString
long strict_matches(ptr_psi_term t1, ptr_psi_term t2, long *smaller)
strict_matches
void heap_add_str_attr(ptr_psi_term t, char *attrname, char *str)
heap_add_str_attr
void push2_ptr_value(type_ptr t, GENERIC *p, GENERIC v)
push2_ptr_value
void put_back_char(long c)
put_back_char
ptr_node general_insert(long comp, char *keystr, ptr_node *tree, GENERIC info, long heapflag, long copystr, long bkflag)
ptr_node general_insert
long c_append_file()
c_append_file
ptr_psi_term exact_copy(ptr_psi_term t, long heap_flag)
exact_copy
void residuate(ptr_psi_term t)
residuate
void listing_pred_write(ptr_node n, long fflag)
listing_pred_write
long precedence(psi_term tok, long typ)
precedence
psi_term read_life_form(char ch1, char ch2)
read_life_form
long check_out(ptr_psi_term t)
void read_token(ptr_psi_term tok)
read_token
ptr_psi_term unitListValue()
make psi term from unitListElement
long xcRefreshWindow()
xcRefreshWindow
FILE * get_stream(ptr_psi_term t)
get_stream
long do_residuation_user()
do_residuation_user()
void restore_resid(ptr_resid_block rb, ptr_psi_term *match_date)
restore_resid
void exit_if_true(long exitflag)
exit_if_true
void mark_quote_new2(ptr_psi_term t)
mark_quote_new2
long xcMoveWindow()
xcMoveWindow
char * WFGetString(ptr_psi_term psi, int *ok)
WFGetString.
long yes_or_no()
yes_or_no
void report_warning(ptr_psi_term g, char *s)
report_warning
long c_display_modules()
c_display_modules
long glb(ptr_definition t1, ptr_definition t2, ptr_definition *t3, ptr_int_list *c3)
glb
long List_EnumFrom(RefListHeader header, Ref atom, RefListEnumProc proc, Ref closure)
List_EnumFrom.
void mark_quote_tree_c(ptr_node n, long heap_flag)
mark_quote_tree_c
PsiTerm WFGetFeature(ptr_psi_term ps, char *feature)
WFGetFeature.
void x_record_arc(ListHeader *displaylist, Action action, long x, long y, long width, long height, long startangle, long arcangle, unsigned long function, unsigned long color, unsigned long linewidth)
x_record_arc
void persistent_error_check(ptr_node n, int *error)
persistent_error_check
long bounds_undo_stack()
bounds_undo_stack
void text_buffer_push(struct text_buffer **buf, char c)
text_buffer_push
ptr_psi_term list_last_cdr(ptr_psi_term lst)
list_last_cdr
psi_term parse_list(ptr_definition typ, char e, char s)
parse_list
void x_show_subwindow(Display *display, long window)
x_show_subwindow
ptr_psi_term real_stack_psi_term(long stat, REAL thereal)
real_stack_psi_term
void check_resid_block(ptr_resid_block *rb)
check_resid_block
long xcDrawArc()
xcDrawArc
int text_buffer_next(struct text_buffer *buf, int idx, char c, struct text_buffer **rbuf, int *ridx)
text_buffer_next
void push_choice_point(goals t, ptr_psi_term a, ptr_psi_term b, GENERIC c)
push_choice_point
void push_goal(goals t, ptr_psi_term a, ptr_psi_term b, GENERIC c)
push_goal
ptr_module create_module(char *module)
ptr_module create_module(char *module)
psi_term parse(long *q)
parse
ptr_node bk_stack_insert(long comp, char *keystr, ptr_node *tree, GENERIC info)
bk_stack_insert
void clear_copy()
clear_copy
void write_attributes(ptr_node n, ptr_tab_brk tab)
write_attributes
long xcRequestNamedColor()
xcRequestNamedColor
GENERIC unique_name()
unique_name
long xcGetEvent()
xcGetEvent
void main_pred_write(ptr_node n)
main_pred_write
long xcLoadFont()
xcLoadFont
long xcSelectInput()
xcSelectInput
void List_Concat(RefListHeader header1, RefListHeader header2)
List_Concat.
long legal_in_name(long c)
legal_in_name
int is_ipaddr(char *s)
is_ipaddr
long make_public(ptr_psi_term term, long bool)
make_public
void init_system()
init_system
void heap_mod_str_attr(ptr_psi_term t, char *attrname, char *str)
heap_mod_str_attr
void x_hide_subwindow(Display *display, long window)
x_hide_subwindow
ptr_psi_term intListValue(ptr_int_list p)
ptr_psi_term intListValue
ptr_node find_data(GENERIC p, ptr_node t)
find_data
void reset_step()
reset_step
void rec_replace(ptr_definition old, ptr_definition new, ptr_psi_term term)
rec_replace
ptr_psi_term inc_heap_copy(ptr_psi_term t)
inc_heap_copy
void stack_add_str_attr(ptr_psi_term t, char *attrname, char *str)
stack_add_str_attr
int WFfeature_count_loop(ptr_node n)
WFfeature_count_loop.
void assert_type(ptr_psi_term t)
assert_type
void pretty_attr(ptr_node t, long depth)
pretty_attr
long only_arg1(ptr_psi_term t, ptr_psi_term *arg1)
only_arg1
long check_real(ptr_psi_term t, REAL *v, long *n)
check_real
void do_pretty_attr(ptr_node t, ptr_tab_brk tab, long *cnt, long two, long depth)
do_pretty_attr
void save_parse_state(ptr_parse_block pb)
save_parse_state
long xcStringWidth()
xcStringWidth
void TOKEN_ERROR(ptr_psi_term p)
TOKEN_ERROR.
long c_string_length()
c_string_length
void read_string(ptr_psi_term tok, long e)
read_string
long bit_length(ptr_int_list c)
bit_length
void merge_unify(ptr_node *u, ptr_node v)
merge_unify
void global_tree(ptr_node n)
global_tree
ptr_psi_term heap_psi_term(long stat)
heap_psi_term
void delete_attr(char *s, ptr_node *n)
delete_attr
ptr_int_list decode(ptr_int_list c)
decode
long xcDrawRectangle()
xcDrawRectangle
ptr_psi_term stack_pair(ptr_psi_term left, ptr_psi_term right)
stack_pair
void display_psi(FILE *s, ptr_psi_term t)
display_psi
void push_ptr_value_global(type_ptr t, GENERIC *p)
push_ptr_value_global
void mark_quote(ptr_psi_term t)
mark_quote
char * heap_ncopy_string(char *s, int n)
heap_ncopy_string
long reportAndAbort(ptr_psi_term g, char *s)
reportAndAbort
long redefine(ptr_psi_term t)
redefine
void deref2_rec_eval(ptr_psi_term t)
deref2_rec_eval
void push_psi_ptr_value(ptr_psi_term q, GENERIC *p)
push_psi_ptr_value
void read_name(ptr_psi_term tok, long ch, long(*f)(), ptr_definition typ)
long c_module_access()
c_module_access
ptr_psi_term makePsiTerm(ptr_definition x)
ptr_psi_term makePsiTerm
void replace_attr(ptr_node old_attr, ptr_psi_term term, ptr_definition old, ptr_definition new)
replace_attr
long c_concatenate()
c_concatenate
void push(psi_term tok, long prec, long op)
push
int WFInput(char *query)
WFInput.
void restore_parse_state(ptr_parse_block pb)
restore_parse_state
long c_isa_subsort()
long c_isa_subsort
long has_non_alpha(char *s)
has_non_alpha
ptr_node one_attr()
one_attr
void display_psi_stream(ptr_psi_term t)
display_psi_stream
long List_IsUnlink(RefListLinks links)
List_IsUnlink.
long xcCoordPut()
xcCoordPut
void x_show_window(Display *display, long window)
x_show_window
void pretty_symbol(ptr_keyword k)
pretty_symbol
long unify_aim()
unify_aim
char * sub_str(char *s, long p, long n)
sub_str
long xcDrawLine()
xcDrawLine
int hash_find(ptr_hash_table table, char *symbol)
hash_find
long c_set_module()
c_set_module
void prettyf_quoted_string(char *s)
prettyf_quoted_string
ptr_node distinct_tree(ptr_node t)
distinct_tree
void x_record_rectangle(ListHeader *displaylist, Action action, long x, long y, long width, long height, unsigned long function, unsigned long color, unsigned long linewidth)
x_record_rectangle
ptr_psi_term stack_int(long n)
stack_int
long List_EnumBackFrom(RefListHeader header, Ref atom, RefListEnumProc proc, Ref closure)
List_EnumBackFrom.
void list_set_car(ptr_psi_term lst, ptr_psi_term value)
list_set_car
long xcPointsFree()
xcPointsFree
void or_codes(ptr_int_list u, ptr_int_list v)
or_codes
long matches(ptr_definition t1, ptr_definition t2, long *smaller)
matches
void assert_protected(ptr_node n, long prot)
assert_protected
ptr_psi_term fileptr2stream(FILE *fp, ptr_definition typ)
fileptr2stream
void replace(ptr_definition old, ptr_definition new, ptr_psi_term term)
replace
int GetIntOption(char *name, int def)
GetIntOption.
long residuateGoalOnVar(ptr_goal g, ptr_psi_term var, ptr_psi_term othervar)
residuateGoalOnVar
long xcDefaultRootWindow()
xcDefaultRootWindow
void pretty_output()
pretty_output
void deref2_eval(ptr_psi_term t)
deref2_eval
void nonnum_warning(ptr_psi_term t, ptr_psi_term arg1, ptr_psi_term arg2)
nonnum_warning
char * strip_module_name(char *str)
strip_module_name
void toggle_step()
toggle_step
void feature_insert(char *keystr, ptr_node *tree, ptr_psi_term psi)
feature_insert
long x_postscript_window(Display *display, Window window, ListHeader *displaylist, char *filename)
x_postscript_window
void append_resid(ptr_psi_term u, ptr_psi_term v)
append_resid
ptr_hash_table hash_create(int size)
HASH_CREATE.
void get_one_arg(ptr_node t, ptr_psi_term *a)
get_one_arg
long pred_clause(ptr_psi_term t, long r, ptr_psi_term g)
pred_clause
long bit_not_warning(ptr_psi_term arg, REAL val)
bit_not_warning
void assert_complicated_type(ptr_psi_term t)
assert_complicated_type
long starts_nonlower(char *s)
starts_nonlower
long unify_int_result(ptr_psi_term t, long v)
unify_int_result
long xcGetScreenAttribute()
xcGetScreenAttribute
long unify_aim_noeval()
unify_aim_noeval
void perr_sort_cycle(ptr_int_list anc)
perr_sort_cycle
void perr_s(char *s1, char *s2)
perr_s
long xcUnmapWindow()
xcUnmapWindow
void display_psi_stdout(ptr_psi_term t)
display_psi_stdout
ptr_node bk2_stack_insert(long comp, char *keystr, ptr_node *tree, GENERIC info)
bk2_stack_insert
ptr_psi_term eval_copy(ptr_psi_term t, long heap_flag)
eval_copy
void show_count()
show_count
void * PsiTerm
Type for psi-terms, hidden from users.
void setUnitList(GENERIC x)
setUnitList(GENERIC x)
void init_built_in_types()
init_built_in_types
void backtrack()
backtrack
void WFInit(long argc, char **argv)
void make_sys_type_links()
make_sys_type_links
#define REAL
Which C type to use to represent reals and integers in Wild_Life.
ptr_psi_term GetPsiAttr(ptr_psi_term psiTerm, char *attributeName)
GetPsiAttr.
long no_choices()
no_choices
void report_error2(ptr_psi_term g, char *s)
report_error2
long xcFillArc()
xcFillArc
long c_open_module()
c_open_module
void mark_nonstrict(ptr_psi_term t)
mark_nonstrict
void read_token_main(ptr_psi_term tok, long for_parser)
read_token_main
ptr_psi_term append_to_list(ptr_psi_term lst, ptr_psi_term value)
append_to_list
void display_psi_stderr(ptr_psi_term t)
display_psi_stderr
void List_Append(RefListHeader header, Ref atom)
void List_Append
long assert_less(ptr_psi_term t1, ptr_psi_term t2)
assert_less
void perr_sort_list(ptr_int_list anc)
perr_sort_list
void eval_global_var(ptr_psi_term t)
eval_global_var
long overlap_type(ptr_definition t1, ptr_definition t2)
overlap_type
void print_bin(long b)
print_bin
void pretty_psi_term(ptr_psi_term t, long sprec, long depth)
pretty_psi_term
void put_back_token(psi_term t)
put_back_token
long xcQueryPointer()
xcQueryPointer
long xcRequestColor()
xcRequestColor
void insert_system_builtins()
insert_system_builtins
ptr_psi_term copy(ptr_psi_term t, long copy_flag, long heap_flag)
copy
long xcDestroyWindow()
xcDestroyWindow
ptr_definition update_symbol(ptr_module module, char *symbol)
update_symbol
void insert_own_prop(ptr_definition d)
insert_own_prop
void read_number(ptr_psi_term tok, long c)
read_number
void perr_s2(char *s1, char *s2, char *s3)
perr_s2
long pop(ptr_psi_term tok, long *op)
pop
ptr_node heap_insert(long comp, char *keystr, ptr_node *tree, GENERIC info)
heap_insert
ptr_psi_term stack_cons(ptr_psi_term head, ptr_psi_term tail)
stack_cons
int get_module(ptr_psi_term psi, ptr_module *module)
get_module
long get_real_value(ptr_psi_term t, REAL *v, long *n)
get_real_value
char * print_symbol(ptr_keyword k)
print_symbol
ptr_int_list two_to_the(long p)
two_to_the
void stack_add_psi_attr(ptr_psi_term t, char *attrname, ptr_psi_term g)
stack_add_psi_attr
void hash_display(ptr_hash_table table)
HASH_DISPLAY.
long xcDrawPolygon()
xcDrawPolygon
void init_io()
void init_io
void release_resid(ptr_psi_term t)
release_resid
void mark_eval_tree_new(ptr_node n)
mark_eval_tree_new
void heap_add_int_attr(ptr_psi_term t, char *attrname, long value)
heap_add_int_attr
void insert_prop(ptr_definition d, ptr_triple_list prop)
insert_prop
char * str_conc(char *s1, char *s2)
str_conc
void pretty_list(ptr_psi_term t, long depth)
pretty_list
void deref_rec_body(ptr_psi_term t)
deref_rec_body
void deref_rec_args(ptr_node n)
deref_rec_args
long sub_type(ptr_definition t1, ptr_definition t2)
sub_type
void traceline(char *format,...)
traceline
void x_record_polygon(ListHeader *displaylist, Action action, XPoint *points, long npoints, unsigned long function, unsigned long color, unsigned long linewidth)
x_record_polygon
void List_Swap(RefListHeader header, Ref first, Ref second)
List_Swap.
long xcMapWindow()
xcMapWindow
void fetch_def(ptr_psi_term u, long allflag)
fetch_def
ptr_psi_term new_psi_term(long numargs, ptr_definition typ, ptr_psi_term **a1, ptr_psi_term **a2)
new_psi_term
long c_reset_window_flag()
long c_display_persistent()
c_display_persistent
void fetch_def_lazy(ptr_psi_term u, ptr_definition old1, ptr_definition old2, ptr_node old1attr, ptr_node old2attr, long old1stat, long old2stat)
fetch_def_lazy
char * WFType(ptr_psi_term psi)
WFType.
void check_hash_table(ptr_hash_table table)
check_hash_table
ptr_psi_term distinct_copy(ptr_psi_term t)
distinct_copy
long eval_args(ptr_node n)
eval_args
void match_attr(ptr_node *u, ptr_node v, ptr_resid_block rb)
match_attr
RefListLinks(* RefListGetLinksProc)()
void Errorline(char *format,...)
Errorline.
void pretty_quote_symbol(ptr_keyword k)
pretty_quote_symbol
unsigned long * GENERIC
unsigned long *GENERIC
long xcDestroyGC()
xcDestroyGC
void type_disj_aim()
type_disj_aim
long xcFreeColor()
xcFreeColor
void assert_delay_check(ptr_node n)
assert_delay_check
int WFFeatureCount(ptr_psi_term psi)
WFFeatureCount.
long is_int(char **s, long *len, long *sgn)
is_int
ptr_int_list cons(GENERIC v, ptr_int_list l)
cons
void end_terminal_io()
end_terminal_io
void forbid_variables(ptr_node n)
void stack_add_int_attr(ptr_psi_term t, char *attrname, long value)
stack_add_int_attr
ptr_psi_term stack_nil()
stack_nil
void one_pass_always_check(long *ch)
one_pass_always_check
long get_arg(ptr_psi_term g, ptr_psi_term *arg, char *number)
get_arg
void print_gc_info(long timeflag)
print_gc_info
ptr_psi_term makePsiList(GENERIC head, ptr_psi_term(*valueFunc)(), GENERIC(*nextFunc)())
makePsiList
void List_Reverse(RefListHeader header)
List_Reverse.
void bk_stack_add_psi_attr(ptr_psi_term t, char *attrname, ptr_psi_term g)
bk_stack_add_psi_attr
long x_read_stdin_or_event(long *ptreventflag)
x_read_stdin_or_event
void residuate2(ptr_psi_term u, ptr_psi_term v)
residuate2
ptr_node stack_insert(long comp, char *keystr, ptr_node *tree, GENERIC info)
stack_insert
void set_trace_to_prove()
set_trace_to_prove
void infoline(char *format,...)
infoline
int hash_code(ptr_hash_table table, char *symbol)
HASH_CODE.
void x_set_gc(Display *display, GC gc, long function, unsigned long color, long linewidth, Font font)
x_set_gc
char * heap_copy_string(char *s)
heap_copy_string
void print_resid_message(ptr_psi_term t, ptr_resid_list r)
print_resid_message
void print_codes()
print_codes
long count_sorts(long c0)
count_sorts
void prettyf_inner(char *s, long q, char c)
prettyf_inner
void print_code(FILE *s, ptr_int_list c)
print_code
void do_currying()
do_currying
long xcSetGCAttribute()
xcSetGCAttribute
void global_one(ptr_psi_term t)
global_one
void insert_sys_builtins()
insert_sys_builtins
void insert_type_builtins()
void insert_type_builtins
long goals
int - formerly enum
long xcGetWindowAttribute()
xcGetWindowAttribute
void hash_insert(ptr_hash_table table, char *symbol, ptr_keyword keyword)
HASH_INSERT.
void assert_attributes(ptr_psi_term t)
assert_attributes
void begin_terminal_io()
begin_terminal_io
void perr_sort(ptr_definition d)
perr_sort
void Syntaxerrorline(char *format,...)
Syntaxerrorline.
void init_copy()
init_copy
void work_out_length()
work_out_length
long nonint_warning(ptr_psi_term arg, REAL val, char *msg)
nonint_warning
void release_resid_main(ptr_psi_term t, long trailflag)
release_resid_main
void display_couple(ptr_psi_term u, char *s, ptr_psi_term v)
display_couple
void check_gamma_code()
check_gamma_code
void print_def_type(def_type t)
print_def_type
void check_pointer(ptr_psi_term p)
check_pointer
long call_primitive(long(*fun)(), int num, psi_arg argi[], GENERIC info)
call_primitive
void crunch(long prec, long limit)
crunch
long declare_operator(ptr_psi_term t)
declare_operator
ptr_psi_term quotedStackCopy(psi_term p)
void residuate_double(ptr_psi_term t, ptr_psi_term u)
residuate_double
void make_type_link(ptr_definition t1, ptr_definition t2)
make_type_link
long num_vars(ptr_node vt)
num_vars
long what_next_cut()
what_next_cut
long prove_aim()
prove_aim
void least_sorts()
void least_sorts()
long no_quote(char *s)
no_quote
void start_chrono()
start_chrono
void init_global_vars()
init_global_vars
void release_resid_notrail(ptr_psi_term t)
release_resid_notrail
void pretty_tag_or_psi_term(ptr_psi_term p, long sprec, long depth)
pretty_tag_or_psi_term
long abort_life(int nlflag)
abort_life
void insert_variables(ptr_node vars, long force)
insert_variables
long xcSetWindowGeometry()
xcSetWindowGeometry
void merge(ptr_node *u, ptr_node v)
merge
void push_def_ptr_value(ptr_psi_term q, GENERIC *p)
push_def_ptr_value
ptr_int_list lub(ptr_psi_term a, ptr_psi_term b, ptr_psi_term *pp)
long xcCreateGC()
xcCreateGC
void exit_life(long nl_flag)
exit_life
void pretty_variables(ptr_node n, ptr_tab_brk tab)
pretty_variables
void merge2(ptr_node *u, ptr_node v)
merge2
long c_initrandom()
c_initrandom
ptr_psi_term heap_copy_psi_term(psi_term t)
heap_copy_psi_term
void init_print()
init_print
void match_attr3(ptr_node *u, ptr_node v, ptr_resid_block rb)
match_attr3
void list_set_cdr(ptr_psi_term lst, ptr_psi_term value)
list_set_cdr
long map_funct_over_list(ptr_psi_term lst, long(*proc)(), long *closure)
map_funct_over_list
void insert_translation(ptr_psi_term a, ptr_psi_term b, long info)
insert_translation
void init_memory()
init_memory ()
ptr_psi_term stack_psi_term(long stat)
stack_psi_term
void heap_insert_copystr(char *keystr, ptr_node *tree, GENERIC info)
heap_insert_copystr
void propagate_definitions()
propagate_definitions
long deref_rec_eval(ptr_psi_term t)
deref_rec_eval
void x_hide_window(Display *display, long window)
x_hide_window
long clause_aim(long r)
clause_aim
char * expand_file_name(char *s)
expand_file_name
ptr_definition new_definition(ptr_keyword key)
new_definition
void toggle_trace()
toggle_trace
char * heap_nice_name()
heap_nice_name
ptr_module extract_module_from_name(char *str)
extract_module_from_name
void report_error(ptr_psi_term g, char *s)
report_error
long c_current_module()
c_current_module
long check_type(ptr_psi_term t)
check_type
long map_funct_over_cars(ptr_psi_term lst, long(*proc)(), long *closure)
map_funct_over_cars
long shift_warning(long dir, ptr_psi_term arg, REAL val)
shift_warning
void init_parse_state()
init_parse_state
void pred_write(ptr_node n)
pred_write
ptr_psi_term residListGoalQuote(ptr_residuation p)
residListGoalQuote
void residuate3(ptr_psi_term u, ptr_psi_term v, ptr_psi_term w)
residuate3
long xcOpenConnection()
xcOpenConnection
void List_SetLinkProc(RefListHeader header, RefListGetLinksProc getLinks)
List_SetLinkProc.
long file_exists(char *s)
file_exists
void report_error2_main(ptr_psi_term g, char *s, char *s2)
report_error2_main
long symbolic(long c)
symbolic
char * GetStrOption(char *name, char *def)
GetStrOption.
long all_symbol(char *s)
all_symbol
void reset_stacks()
reset_stacks
void clean_undo_window(long disp, long wind)
clean_undo_window
void insert_dbm_builtins()
void find_adults()
find_adults
long c_private_feature()
c_private_feature
long type_member(ptr_definition t, ptr_int_list tlst)
type_member
long bit_or_warning(ptr_psi_term arg, REAL val)
bit_or_warning
long strpos(long pos, char *str)
strpos
long xcDrawImageString()
xcDrawImageString
void read_comment(ptr_psi_term tok)
read_comment
ptr_node find(long comp, char *keystr, ptr_node tree)
find
char ** group_features(char **f, ptr_node n)
group_features
long xcCloseConnection()
xcCloseConnection
int dummy_printf(char *f, char *s, char *t)
dummy_printf
long xcFillPolygon()
xcFillPolygon
void match_attr1(ptr_node *u, ptr_node v, ptr_resid_block rb)
void match_attr1
void save_resid(ptr_resid_block rb, ptr_psi_term match_date)
save_resid
void x_record_string(ListHeader *displaylist, Action action, long x, long y, char *str, Font font, unsigned long function, unsigned long color)
x_record_string
ptr_psi_term stack_copy_psi_term(psi_term t)
stack_copy_psi_term
long featcmp(char *str1, char *str2)
featcmp
void bk_change_psi_attr(ptr_psi_term t, char *attrname, ptr_psi_term value)
bk_change_psi_attr
void mark_eval(ptr_psi_term t)
mark_eval
void deref_rec_args_exc(ptr_node n, long set)
deref_rec_args_exc
void restore_state(ptr_psi_term t)
restore_state
long xcGetGCAttribute()
xcGetGCAttribute
void outputline(char *format,...)
void outputline(char *format,...)
int base2int(int n)
base2int
long c_trace_input()
c_trace_input
long str_to_int(char *s)
str_to_int
long unify_real_result(ptr_psi_term t, REAL v)
unify_real_result
long xcUnmapSubwindows()
xcUnmapSubwindows
void push_window(long type, long disp, long wind)
push_window
void prettyf(char *s)
prettyf
void encode_types()
encode_types
long deref_eval(ptr_psi_term t)
deref_eval
void merge3(ptr_node *u, ptr_node v)
merge3
void check_definition(ptr_definition *d)
check_definition
ptr_int_list copyTypeCode(ptr_int_list u)
copyTypeCode
int main(int argc, char *argv[])
main
long list_is_nil(ptr_psi_term lst)
void List_Cut(RefListHeader header, Ref atom, RefListHeader newHeader)
List_Cut.
long xcFillRectangle()
xcFillRectangle
void propagate_always_check(ptr_definition d, long *ch)
propagate_always_check
long i_eval_args(ptr_node n)
i_eval_args
void List_InsertBefore(RefListHeader header, Ref atom, Ref mark)
List_InsertBefore.
GENERIC residListNext(ptr_residuation p)
residListNext
long xcGetConnectionAttribute()
xcGetConnectionAttribute
void clear_already_loaded(ptr_node n)
clear_already_loaded
long is_integer(char *s)
is_integer
long List_EnumBack(RefListHeader header, RefListEnumProc proc, Ref closure)
List_EnumBack.
long isValue(ptr_psi_term p)
isValue(p)
void main_prove()
main_prove
long deref_args_eval(ptr_psi_term t, long set)
deref_args_eval
void x_free_display_list(ListHeader *displaylist)
x_free_display_list
ptr_psi_term quote_copy(ptr_psi_term t, long heap_flag)
quote_copy
void new_state(ptr_psi_term *t)
new_state
ptr_choice_point topmost_what_next()
topmost_what_next
void mark_ancestors(ptr_definition def, long *flags)
mark_ancestors
char * make_module_token(ptr_module module, char *str)
make_module_token
void handle_interrupt()
HANDLE_INTERRUPT.
void read_token_b(ptr_psi_term tok)
read_token_b
void raw_setup_builtins()
raw_setup_builtins
long xcResizeWindowPixmap()
xcResizeWindowPixmap
void save_state(ptr_psi_term t)
save_state
void bk_stack_add_int_attr(ptr_psi_term t, char *attrname, long value)
bk_stack_add_int_attr
void stack_info(FILE *outfile)
stack_info
void go_through(ptr_psi_term t)
go_through
void x_setup_builtins()
x_setup_builtins
void new_built_in(ptr_module m, char *s, def_type t, long(*r)())
new_built_in
void check_func(ptr_psi_term t)
check_func
long sub_CodeType(ptr_int_list c1, ptr_int_list c2)
sub_CodeType
long c_private()
c_private
long print_variables(long printflag)
print_variables
void mark_quote_tree(ptr_node t)
mark_quote_tree
long List_Enum(RefListHeader header, RefListEnumProc proc, Ref closure)
List_Enum.
long read_char()
read_char
void global_error_check(ptr_node n, int *error, int *eval2)
global_error_check
ptr_psi_term list_cdr(ptr_psi_term lst)
list_cdr
long c_deref_length()
c_deref_length
long mod_warning(ptr_psi_term arg, REAL val, int zero)
mod_warning
ptr_psi_term translate(ptr_psi_term a, long **infoptr)
translate
void new_step(long newstep)
new_step
long c_replace()
c_replace
void report_error_main(ptr_psi_term g, char *s, char *s2)
report_error_main
void text_buffer_free(struct text_buffer *buf)
text_buffer_free
double WFGetDouble(ptr_psi_term psi, int *ok)
WFGetDouble.
long xcRaiseWindow()
xcRaiseWindow
long xcPostScriptWindow()
xcPostScriptWindow
void undo_actions()
undo_actions
long glb_code(long f1, GENERIC c1, long f2, GENERIC c2, long *f3, GENERIC *c3)
glb_code
void mark_tab(ptr_tab_brk t)
mark_tab
char * text_buffer_cmp(struct text_buffer *buf, int idx, char *str)
text_buffer_cmp
void inherit_always_check()
inherit_always_check
void check_psi_term(ptr_psi_term *t)
check_psi_term
void assert_rule(psi_term t, def_type typ)
assert_rule
GENERIC get_attr(ptr_psi_term t, char *attrname)
get_attr
void open_module_tree(ptr_node n, int *onefailed)
open_module_tree
ptr_definition update_feature(ptr_module module, char *feature)
update_feature
void add_rule(ptr_psi_term head, ptr_psi_term body, def_type typ)
add_rule
long type_ptr
Used to identify the object on the undo_stack.
ptr_psi_term stack_bytes(char *s, int n)
stack_bytes
void List_Remove(RefListHeader header, Ref atom)
List_Remove.
long check_opargs(ptr_node n)
check_opargs
void warningline(char *format,...)
warningline
ptr_module find_module(char *module)
find_module
void init_modules()
init_modules
void equalize_codes(int len)
equalize_codes
long xcClearWindow()
xcClearWindow
long disjunct_aim()
disjunct_aim
void go_through_tree(ptr_node t)
go_through_tree
void traverse_tree(ptr_node n, int flag)
traverse_tree
void heap_mod_int_attr(ptr_psi_term t, char *attrname, long value)
heap_mod_int_attr
long xcFlushEvents()
xcFlushEvents
ptr_int_list appendIntList(ptr_int_list tail, ptr_int_list more)
appendIntList
long memory_check()
memory_check
void check_sys_definitions()
check_sys_definitions
ListHeader * x_display_list()
x_display_list
void stdin_cleareof()
stdin_cleareof
void prettyf_quote(char *s)
prettyf_quote
int global_unify_attr(ptr_node u, ptr_node v)
global_unify_attr
long has_rules(ptr_pair_list r)
has_rules
long xcUnloadFont()
xcUnloadFont
long match_aim()
match_aim
long xcSetWindowAttribute()
xcSetWindowAttribute
long c_sub_string()
c_sub_string
long int_div_warning(ptr_psi_term arg, REAL val)
int_div_warning
long num_choices()
num_choices
PsiTerm WFGetVar(char *name)
WFGetVar.
void mark_eval_new(ptr_psi_term t)
mark_eval_new
int bad_psi_term(ptr_psi_term t)
bad_psi_term
void bk_mark_quote(ptr_psi_term t)
bk_mark_quote
void merge1(ptr_node *u, ptr_node v)
merge1
void match_attr2(ptr_node *u, ptr_node v, ptr_resid_block rb)
match_attr2
void x_record_line(ListHeader *displaylist, Action action, long x0, long y0, long x1, long y1, unsigned long function, unsigned long color, unsigned long linewidth)
x_record_line
void list_remove_value(ptr_psi_term lst, ptr_psi_term value)
list_remove_value
void heap_add_psi_attr(ptr_psi_term t, char *attrname, ptr_psi_term g)
heap_add_psi_attr
void new_trace(long newtrace)
new_trace
long GetIntAttr(ptr_psi_term psiTerm, char *attributeName)
GetIntAttr.
void x_refresh_window(Display *display, Window window, Pixmap pixmap, GC pixmapgc, ListHeader *displaylist)
x_refresh_window
long all_public_symbols()
all_public_symbols
void mark_quote_tree_new(ptr_node n)
mark_quote_tree_new
long check_legal_cons(ptr_psi_term t, ptr_definition t_type)
check_legal_cons
long xcMapSubwindows()
xcMapSubwindows
void check_definition_list()
check_definition_list
long open_input_file(char *file)
open_input_file
void remove_cycles(ptr_definition d, ptr_int_list *dl)
remove_cycles
long is_built_in(ptr_pair_list r)
is_built_in
ptr_module set_current_module(ptr_module module)
set_current_module
long append_files(char *s1, char *s2)
append_files
void vinfoline(char *format, FILE *outfile,...)
void assert_clause(ptr_psi_term t)
assert_clause
void check_attr(ptr_node *n)
check_attr
void print_operator_kind(FILE *s, long kind)
print_operator_kind
long xcSetStandardProperties()
xcSetStandardProperties
long xcQueryTextExtents()
xcQueryTextExtents
ptr_goal GoalFromPsiTerm(ptr_psi_term psiTerm)
GoalFromPsiTerm.
void perr_i(char *str, long i)
perr_i
long what_next_aim()
what_next_aim
void persistent_one(ptr_psi_term t)
persistent_one
long i_check_out(ptr_psi_term t)
i_check_out
void all_sorts()
all_sorts
void init_interrupt()
INIT_INTERRUPT.
GENERIC heap_alloc(long s)
heap_alloc
GENERIC intListNext(ptr_int_list p)
intListNext
long bit_and_warning(ptr_psi_term arg, REAL val)
bit_and_warning
void stack_insert_copystr(char *keystr, ptr_node *tree, GENERIC info)
stack_insert_copystr
long List_Card(RefListHeader header)
List_Card.
GENERIC stack_alloc(long s)
stack_alloc
int GetBoolOption(char *name)
GetBoolOption.
ptr_psi_term collect_symbols(long sel)
collect_symbols
void open_module_one(ptr_psi_term t, int *onefailed)
open_module_one
long unify_body(long eval_flag)
unify_body
long pretty_psi_with_ops(ptr_psi_term t, long sprec, long depth)
pretty_psi_with_ops
char * stack_copy_string(char *s)
stack_copy_string
long in_set(char *str, long set)
in_set
void x_destroy_window(Display *display, Window window)
x_destroy_window
long two_or_more(ptr_node t)
two_or_more
void assert_args_not_eval(ptr_node n)
assert_args_not_eval
void new_tab(ptr_tab_brk *t)
new_tab
void clear_coding()
clear_coding
ptr_psi_term make_feature_list(ptr_node tree, ptr_psi_term tail, ptr_module module, int val)
make_feature_list
int make_feature_private(ptr_psi_term term)
make_feature_private
char ** WFFeatures(ptr_psi_term psi)
WFFeatures.
void List_InsertAfter(RefListHeader header, Ref atom, Ref mark)
List_InsertAfter.
long type_cyclicity(ptr_definition d, ptr_int_list anc)
type_cyclicity
void read_string_error(int n)
read_string_error
void bk_mark_quote_tree(ptr_node t)
bk_mark_quote_tree
ptr_psi_term stack_string(char *s)
stack_string