ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/h/att_ext.h

This is att_ext.h in view mode; [Download] [Up]

/*
(c) Copyright Taiichi Yuasa and Masami Hagiya, 1984.  All rights reserved.
Copying of this file is authorized to users who have executed the true and
proper "License Agreement for Kyoto Common LISP" with SIGLISP.
*/
#ifndef COM_LENG
#define COM_LENG
#endif

/*  alloc.c  */
char *alloc_page();
object alloc_object();
char *alloc_contblock();
char *alloc_relblock();

/*  array.c  */
enum aelttype array_elttype();
object aref();
object aset();
object aref1();
object aset1();

/*  assignment.s  */

/*  backq.c  */
int backq_level;

/*  bds.c  */

/*  big.c  */
object stretch_big();
object copy_big();
object copy_to_big();
object big_minus();
object big_plus();
object big_times();
object normalize_big_to_object();
double big_to_double();

/* bind.c */
object ANDoptional;
object ANDrest;
object ANDkey;
object ANDallow_other_keys;
object ANDaux;
object Kallow_other_keys;
object find_special();
object let_bind();
object letA_bind();

/* block.c */

/*  cfun.c  */
object make_cfun();
object MF();
object MM();
object make_function();
object make_si_function();
object make_special_form();
object make_macro();

/*  character.d  */
object STreturn;
object STspace;
object STrubout;
object STpage;
object STtab;
object STbackspace;
object STlinefeed;
object STnewline;
object coerce_to_character();

/*  catch.c  */

/*  cmpaux.c  */
char object_to_char();
float object_to_float();
double object_to_double();

/*  error.c  */
object Kerror;
object Kwrong_type_argument;
object Kcatch;
object Kprotect;
object Kcatchall;
object Ktoo_few_arguments;
object Ktoo_many_arguments;
object Kunexpected_keyword;
object Kinvalid_form;
object Kunbound_variable;
object Kinvalid_variable;
object Kundefined_function;
object Kinvalid_function;
object wrong_type_argument();

/*  eval.c  */
object Sapply;
object Sfuncall;
object simple_lispcall();
object simple_lispcall_no_event();
object simple_symlispcall();
object simple_symlispcall_no_event();
object Vevalhook;
object Vapplyhook;
object ieval();
object ifuncall1();
object ifuncall2();
object ifuncall3();

/*  unixfasl.c  fasload.c  */

/*  file.d  */
object Vstandard_input;
object Vstandard_output;
object Verror_output;
object Vquery_io;
object Vdebug_io;
object Vterminal_io;
object Vtrace_output;
object Kabort;
object Kdirection;
object Kinput;
object Koutput;
object Kio;
object Kprobe;
object Kelement_type;
object Kdefault;
object Kif_exists;
object Knew_version;
object Krename;
object Krename_and_delete;
object Koverwrite;
object Kappend;
object Ksupersede;
object Kif_does_not_exist;
object Kcreate;
object Kprint;
object Kverbose;
object Kset_default_pathname;
object Vload_verbose;
object FASL_string;
object stream_element_type();
object open_stream();
object make_two_way_stream();
object make_echo_stream();
object make_string_input_stream();
object make_string_output_stream();
object get_output_stream_string();
object read_fasl_data();

#ifdef UNIX
/*  unixfsys.c  */
FILE *backup_fopen();
#else
/*  filesystem.c  */
FILE *backup_fopen();
#endif

/*  frame.c  */
frame_ptr frs_sch();
frame_ptr frs_sch_catch();

/*  gbc.c  */
bool GBC_enable;

/*  let.c  */

/*  lex.c  */
object assoc_eq();
object lex_tag_sch();
object lex_block_sch();

/*  list.d  */
object Ktest;
object Ktest_not;
object Kkey;
object car();
object cdr();
object kar();
object kdr();
object caar();
object cadr();
object cdar();
object cddr();
object caaar();
object caadr();
object cadar();
object caddr();
object cdaar();
object cdadr();
object cddar();
object cdddr();
object caaaar();
object caaadr();
object caadar();
object caaddr();
object cadaar();
object cadadr();
object caddar();
object cadddr();
object cdaaar();
object cdaadr();
object cdadar();
object cdaddr();
object cddaar();
object cddadr();
object cdddar();
object cddddr();
object nth();
object nthcdr();
object make_cons();
object list();
object listA();
object append();
object copy_list();
object nconc();

/*  macros.c  */
object Vmacroexpand_hook;
object siSdefmacroA;
object macro_expand();

/*  main.c  */
int ARGC;
char **ARGV;
#ifdef UNIX
char **ENVP;
#endif


object siVsystem_directory;
#ifdef UNIX
char *kcl_self;
#endif
#if !defined(IN_MAIN) || !defined(ATT)
extern char lisp_implementation_version[COM_LENG];
extern char system_directory[COM_LENG];
bool initflag;
#endif
char *merge_system_directory();

/*  mapfun.c  */

/*  multival.c  */

/*  number.c  */
object shortfloat_zero;
object longfloat_zero;
object make_fixnum();
object make_ratio();
object make_shortfloat();
object make_longfloat();
object make_complex();
double number_to_double();

/*  num_pred.c  */

/*  num_comp.c  */

/*  num_arith  */
object bignum2();
object bignum3();
object number_to_complex();
object complex_plus();
object number_plus();
object number_negate();
object number_minus();
object number_times();
object number_divide();
object integer_divide1();
object get_gcd();
object get_lcm();
object one_plus();
object one_minus();

/*  num_co.c  */
object double_to_integer();
object remainder();

/*  num_log.c  */
object shift_integer();

/*  package.d  */
object lisp_package;
object user_package;
object keyword_package;
object system_package;
object Vpackage;
object Kinternal;
object Kexternal;
object Kinherited;
object Knicknames;
object Kuse;
int intern_flag;
object uninterned_list;
object make_package();
object in_package();
object rename_package();
object find_package();
object coerce_to_package();
object current_package();
object intern();
object find_symbol();

/*  pathname.d  */
object Vdefault_pathname_defaults;
object Kwild;
object Knewest;
object Kstart;
object Kend;
object Kjunk_allowed;
object Khost;
object Kdevice;
object Kdirectory;
object Kname;
object Ktype;
object Kversion;
object Kdefaults;
object Kroot;
object Kcurrent;
object Kparent;
object Kper;
object parse_namestring();
object coerce_to_pathname();
object default_device();
object merge_pathnames();
object namestring();
object coerce_to_namestring();

/*  prediate.c  */

/*  print.d  */
object Kupcase;
object Kdowncase;
object Kcapitalize;
object Kstream;
object Kescape;
object Kpretty;
object Kcircle;
object Kbase;
object Kradix;
object Kcase;
object Kgensym;
object Klevel;
object Klength;
object Karray;
object Vprint_escape;
object Vprint_pretty;
object Vprint_circle;
object Vprint_base;
object Vprint_radix;
object Vprint_case;
object Vprint_gensym;
object Vprint_level;
object Vprint_length;
object Vprint_array;
object *PRINTvs_top;
object *PRINTvs_limit;
object PRINTstream;
bool PRINTescape;
bool PRINTpretty;
bool PRINTcircle;
int PRINTbase;
bool PRINTradix;
object PRINTcase;
bool PRINTgensym;
int PRINTlevel;
int PRINTlength;
bool PRINTarray;
int (*write_ch_fun)();
object princ();
object prin1();
object print();
object terpri();
object siSpretty_print_format;

/*  read.d  */
object standard_readtable;
object Vreadtable;
object Vread_default_float_format;
object Vread_base;
object Vread_suppress;
object READtable;
int READdefault_float_format;
int READbase;
bool READsuppress;
object siSsharp_comma;
bool escape_flag;
object delimiting_char;
bool detect_eos_flag;
bool in_list_flag;
bool dot_flag;
bool preserving_whitespace_flag;
object default_dispatch_macro;
object big_register_0;
int sharp_eq_context_max;
object read_char();
object peek_char();
object read_object_recursive();
object read_object_non_recursive();
object standard_read_object_non_recursive();
object read_object();
object parse_number();
object parse_integer();
object copy_readtable();
object current_readtable();
object patch_sharp();
object read_fasl_vector();

/*  reference.c  */
object symbol_function();


/*  sequence.d  */
object alloc_simple_vector();
object alloc_simple_bitvector();
object elt();
object elt_set();
object reverse();
object nreverse();

/*  structure.c  */
object siLs_data;
object structure_ref();
object structure_set();
object structure_to_list();

/*  string.d  */
object alloc_simple_string();
object make_simple_string();
object copy_simple_string();
object coerce_to_string();

/*  symbol.d  */
object string_register;
object gensym_prefix;
int gensym_counter;
object gentemp_prefix;
int gentemp_counter;
object token;
object make_symbol();
object make_ordinary();
object make_special();
object make_constant();
object make_si_ordinary();
object make_si_special();
object make_si_constant();
object make_keyword();
object symbol_value();
object getf();
object get();
object putf();
object putprop();
object remprop();
object gensym();		/*  to be deleted  */

#ifdef UNIX
/*  unixsys.c  */
#else
/*  sys.c  */
#endif

#ifdef UNIX
/*  unixtime.c  */
object unix_time_to_universal_time();
#else
/*  time.c  */
#endif

/*  toplevel.c  */
object Sspecial,Sdeclare;
object siSvariable_documentation;
object siSfunction_documentation;

/*  typespec.c  */
object
St,		Snil,		Scommon,
Snull,		Scons,		Slist,		Ssymbol,
Sarray,		Svector,	Sbit_vector,	Sstring,
Ssequence,
Ssimple_array,	Ssimple_vector,	Ssimple_bit_vector,
						Ssimple_string,
Scompiled_function,
				Spathname,	Scharacter,
Snumber,	Srational,	Sfloat,		Sstring_char,
Sinteger,	Sratio,		Sshort_float,	Sstandard_char,
Sfixnum,	Scomplex,	Ssingle_float,	Spackage,
Sbignum,	Srandom_state,	Sdouble_float,	Sstream,
Sbit,		Sreadtable,	Slong_float,	Shash_table;
object Sstructure;
object Ssatisfies;
object Smember;
object Snot;
object Sor;
object Sand;
object Svalues;
object Smod;
object Ssigned_byte;
object Sunsigned_byte;
object Ssigned_char;
object Sunsigned_char;
object Ssigned_short;
object Sunsigned_short;
object SA;
object Splusp;
object TSor_symbol_string;
object TSor_string_symbol;
object TSor_symbol_string_package;
object TSnon_negative_integer;
object TSpositive_number;
object TSor_integer_float;
object TSor_rational_float;
#ifdef UNIX
object TSor_pathname_string_symbol;
#endif
object TSor_pathname_string_symbol_stream;

int interrupt_flag;		/* console interupt flag */
int interrupt_enable;		/* console interupt enable */

/*  CMPtemp  */
object CMPtemp;
object CMPtemp1;
object CMPtemp2;
object CMPtemp3;

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.