home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / src / subr.d < prev    next >
Encoding:
Text File  |  1996-04-27  |  36.2 KB  |  1,108 lines
  1. # Liste aller SUBRs
  2. # Bruno Haible 13.6.1995
  3.  
  4. # Eine C-compilierte LISP-Funktion wird definiert durch eine Deklaration
  5. #   LISPFUN(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)
  6. # in diesem File.
  7. # > name: der Funktionsname (ein C-Identifier)
  8. # > req_anz: die Anzahl der required-Parameter (eine Zahl)
  9. # > opt_anz: die Anzahl der optional-Parameter (eine Zahl)
  10. # > rest_flag: entweder norest oder rest
  11. # > key_flag: entweder nokey oder key oder key_allow
  12. # > key_anz: eine Zahl (0 falls nokey)
  13. # > keywords: entweder NIL oder ein Ausdruck der Form (kw(keyword1),...,kw(keywordn))
  14. #             (NIL falls nokey)
  15.  
  16. # Eine C-compilierte LISP-Funktion mit einer festen Anzahl Argumente
  17. # wird definiert durch die akkürzende Deklaration
  18. #   LISPFUNN(name,req_anz)
  19. # > name: der Funktionsname (ein C-Identifier)
  20. # > req_anz: die (feste) Anzahl der Argumente (eine Zahl)
  21.   #define LISPFUNN(name,req_anz)  \
  22.     LISPFUN(name,req_anz,0,norest,nokey,0,NIL)
  23.  
  24. # Zusätzlich muß in einem C-File dieselbe Deklaration samt C-Body stehen.
  25.  
  26.  
  27. # Expander für die Konstruktion der extern-Deklarationen:
  28.   #define LISPFUN_A(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  29.     extern subr_##rest_flag##_function C_##name;
  30.  
  31. # Expander für die Konstruktion der Deklaration der C-Funktion:
  32.   #define LISPFUN_B(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  33.     global Values C_##name subr_##rest_flag##_function_args
  34.   #ifdef ANSI
  35.     #define subr_norest_function_args  (void)
  36.     #define subr_rest_function_args  (reg4 uintC argcount, reg3 object* rest_args_pointer)
  37.   #else
  38.     #define subr_norest_function_args  ()
  39.     #define subr_rest_function_args  (argcount,rest_args_pointer) \
  40.       var reg4 uintC argcount; var reg3 object* rest_args_pointer;
  41.   #endif
  42.  
  43. # Expander für die Deklaration der SUBR-Tabelle:
  44.   #define LISPFUN_C(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  45.     subr_ D_##name;
  46.  
  47. # Expander für die Initialisierung der SUBR-Tabelle:
  48.   #define LISPFUN_D(name_,req_anz_,opt_anz_,rest_flag_,key_flag_,key_anz_,keywords_)  \
  49.     ptr->function = (lisp_function)(&C_##name_);  \
  50.     ptr->name = S_help_(S_##name_);               \
  51.     ptr->keywords = NIL; # vorläufig              \
  52.     ptr->argtype = (uintW)subr_argtype(req_anz_,opt_anz_,subr_##rest_flag_,subr_##key_flag_); \
  53.     ptr->req_anz = req_anz_;                      \
  54.     ptr->opt_anz = opt_anz_;                      \
  55.     ptr->rest_flag = (uintB)subr_##rest_flag_;    \
  56.     ptr->key_flag = (uintB)subr_##key_flag_;      \
  57.     ptr->key_anz = key_anz_;                      \
  58.     ptr++;
  59.   #define LISPFUN_E(name_,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  60.     ptr->name = S_help_(S_##name_); \
  61.     ptr++;
  62.   #define LISPFUN_F(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  63.     { (lisp_function)(&C_##name), \
  64.       0, # vorläufig              \
  65.       0, # vorläufig              \
  66.       0, # vorläufig              \
  67.       req_anz,                    \
  68.       opt_anz,                    \
  69.       (uintB)subr_##rest_flag,    \
  70.       (uintB)subr_##key_flag,     \
  71.       key_anz,                    \
  72.     },
  73.   #define LISPFUN_G(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  74.     { (lisp_function)(&C_##name), \
  75.       S_help_(S_##name),          \
  76.       NIL, # vorläufig            \
  77.       0, # vorläufig              \
  78.       req_anz,                    \
  79.       opt_anz,                    \
  80.       (uintB)subr_##rest_flag,    \
  81.       (uintB)subr_##key_flag,     \
  82.       key_anz,                    \
  83.     },
  84.  
  85. # Expander für die zweite Initialisierung der SUBR-Tabelle:
  86.   #define LISPFUN_H(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords_)  \
  87.     (subr_##key_flag==subr_key) ?            \
  88.       subr_tab.D_##name.keywords =           \
  89.         (vec = allocate_vector(key_anz),     \
  90.          vecptr = &TheSvector(vec)->data[0], \
  91.          (keywords_),                        \
  92.          vec                                 \
  93.         ) : 0;
  94.  
  95. # Welcher Expander benutzt wird, muß vom Hauptfile aus eingestellt werden.
  96. # Default ist   #define LISPFUN LISPFUN_B
  97.  
  98.  
  99. # ---------- SPVW ----------
  100. # keine SUBRs
  101. # ---------- EVAL ----------
  102. LISPFUNN(funtabref,1)
  103. LISPFUNN(subr_info,1)
  104. LISPFUNN(find_subr,1)
  105. #ifdef VCODE
  106. # ---------- VCODE ---------
  107. LISPFUNN(vcode_compile,1)
  108. #endif
  109. # ---------- ARRAY ----------
  110. LISPFUN(vector,0,0,rest,nokey,0,NIL)
  111. LISPFUN(aref,1,0,rest,nokey,0,NIL)
  112. LISPFUN(store,2,0,rest,nokey,0,NIL)
  113. LISPFUNN(svref,2)
  114. LISPFUNN(svstore,3)
  115. LISPFUNN(psvstore,3)
  116. LISPFUNN(row_major_aref,2)
  117. LISPFUNN(row_major_store,3)
  118. LISPFUNN(array_element_type,1)
  119. LISPFUNN(array_rank,1)
  120. LISPFUNN(array_dimension,2)
  121. LISPFUNN(array_dimensions,1)
  122. LISPFUNN(array_total_size,1)
  123. LISPFUN(array_in_bounds_p,1,0,rest,nokey,0,NIL)
  124. LISPFUN(array_row_major_index,1,0,rest,nokey,0,NIL)
  125. LISPFUNN(adjustable_array_p,1)
  126. LISPFUN(bit,1,0,rest,nokey,0,NIL)
  127. LISPFUN(sbit,1,0,rest,nokey,0,NIL)
  128. LISPFUN(bit_and,2,1,norest,nokey,0,NIL)
  129. LISPFUN(bit_ior,2,1,norest,nokey,0,NIL)
  130. LISPFUN(bit_xor,2,1,norest,nokey,0,NIL)
  131. LISPFUN(bit_eqv,2,1,norest,nokey,0,NIL)
  132. LISPFUN(bit_nand,2,1,norest,nokey,0,NIL)
  133. LISPFUN(bit_nor,2,1,norest,nokey,0,NIL)
  134. LISPFUN(bit_andc1,2,1,norest,nokey,0,NIL)
  135. LISPFUN(bit_andc2,2,1,norest,nokey,0,NIL)
  136. LISPFUN(bit_orc1,2,1,norest,nokey,0,NIL)
  137. LISPFUN(bit_orc2,2,1,norest,nokey,0,NIL)
  138. LISPFUN(bit_not,1,1,norest,nokey,0,NIL)
  139. LISPFUNN(array_has_fill_pointer_p,1)
  140. LISPFUNN(fill_pointer,1)
  141. LISPFUNN(set_fill_pointer,2)
  142. LISPFUNN(vector_push,2)
  143. LISPFUNN(vector_pop,1)
  144. LISPFUN(vector_push_extend,2,1,norest,nokey,0,NIL)
  145. LISPFUNN(initial_contents_aux,1)
  146. LISPFUN(make_array,1,0,norest,key,7,
  147.         (kw(adjustable),kw(element_type),kw(initial_element),
  148.          kw(initial_contents),kw(fill_pointer),
  149.          kw(displaced_to),kw(displaced_index_offset)) )
  150. LISPFUN(adjust_array,2,0,norest,key,6,
  151.         (kw(element_type),kw(initial_element),
  152.          kw(initial_contents),kw(fill_pointer),
  153.          kw(displaced_to),kw(displaced_index_offset)) )
  154. LISPFUNN(vector_init,1)
  155. LISPFUNN(vector_upd,2)
  156. LISPFUNN(vector_endtest,2)
  157. LISPFUNN(vector_fe_init,1)
  158. LISPFUNN(vector_fe_upd,2)
  159. LISPFUNN(vector_fe_endtest,2)
  160. LISPFUNN(vector_length,1)
  161. LISPFUNN(vector_init_start,2)
  162. LISPFUNN(vector_fe_init_end,2)
  163. LISPFUNN(make_bit_vector,1)
  164. # ---------- CHARSTRG ----------
  165. LISPFUNN(standard_char_p,1)
  166. LISPFUNN(graphic_char_p,1)
  167. LISPFUNN(string_char_p,1)
  168. LISPFUNN(alpha_char_p,1)
  169. LISPFUNN(upper_case_p,1)
  170. LISPFUNN(lower_case_p,1)
  171. LISPFUNN(both_case_p,1)
  172. LISPFUN(digit_char_p,1,1,norest,nokey,0,NIL)
  173. LISPFUNN(alphanumericp,1)
  174. LISPFUN(char_gleich,1,0,rest,nokey,0,NIL)
  175. LISPFUN(char_ungleich,1,0,rest,nokey,0,NIL)
  176. LISPFUN(char_kleiner,1,0,rest,nokey,0,NIL)
  177. LISPFUN(char_groesser,1,0,rest,nokey,0,NIL)
  178. LISPFUN(char_klgleich,1,0,rest,nokey,0,NIL)
  179. LISPFUN(char_grgleich,1,0,rest,nokey,0,NIL)
  180. LISPFUN(char_equal,1,0,rest,nokey,0,NIL)
  181. LISPFUN(char_not_equal,1,0,rest,nokey,0,NIL)
  182. LISPFUN(char_lessp,1,0,rest,nokey,0,NIL)
  183. LISPFUN(char_greaterp,1,0,rest,nokey,0,NIL)
  184. LISPFUN(char_not_greaterp,1,0,rest,nokey,0,NIL)
  185. LISPFUN(char_not_lessp,1,0,rest,nokey,0,NIL)
  186. LISPFUNN(char_code,1)
  187. LISPFUNN(char_bits,1)
  188. LISPFUNN(char_font,1)
  189. LISPFUN(code_char,1,2,norest,nokey,0,NIL)
  190. LISPFUN(make_char,1,2,norest,nokey,0,NIL)
  191. LISPFUNN(character,1)
  192. LISPFUNN(char_upcase,1)
  193. LISPFUNN(char_downcase,1)
  194. LISPFUN(digit_char,1,2,norest,nokey,0,NIL)
  195. LISPFUNN(char_int,1)
  196. LISPFUNN(int_char,1)
  197. LISPFUNN(char_name,1)
  198. LISPFUNN(char_bit,2)
  199. LISPFUNN(set_char_bit,3)
  200. LISPFUNN(char,2)
  201. LISPFUNN(schar,2)
  202. LISPFUNN(store_char,3)
  203. LISPFUNN(store_schar,3)
  204. LISPFUN(string_gleich,2,0,norest,key,4,
  205.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  206. LISPFUN(string_ungleich,2,0,norest,key,4,
  207.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  208. LISPFUN(string_kleiner,2,0,norest,key,4,
  209.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  210. LISPFUN(string_groesser,2,0,norest,key,4,
  211.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  212. LISPFUN(string_klgleich,2,0,norest,key,4,
  213.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  214. LISPFUN(string_grgleich,2,0,norest,key,4,
  215.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  216. LISPFUN(string_equal,2,0,norest,key,4,
  217.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  218. LISPFUN(string_not_equal,2,0,norest,key,4,
  219.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  220. LISPFUN(string_lessp,2,0,norest,key,4,
  221.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  222. LISPFUN(string_greaterp,2,0,norest,key,4,
  223.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  224. LISPFUN(string_not_greaterp,2,0,norest,key,4,
  225.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  226. LISPFUN(string_not_lessp,2,0,norest,key,4,
  227.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  228. LISPFUN(search_string_gleich,2,0,norest,key,4,
  229.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  230. LISPFUN(search_string_equal,2,0,norest,key,4,
  231.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  232. LISPFUN(make_string,1,0,norest,key,1, (kw(initial_element)) )
  233. LISPFUNN(string_both_trim,3)
  234. LISPFUN(nstring_upcase,1,0,norest,key,2, (kw(start),kw(end)) )
  235. LISPFUN(string_upcase,1,0,norest,key,2, (kw(start),kw(end)) )
  236. LISPFUN(nstring_downcase,1,0,norest,key,2, (kw(start),kw(end)) )
  237. LISPFUN(string_downcase,1,0,norest,key,2, (kw(start),kw(end)) )
  238. LISPFUN(nstring_capitalize,1,0,norest,key,2, (kw(start),kw(end)) )
  239. LISPFUN(string_capitalize,1,0,norest,key,2, (kw(start),kw(end)) )
  240. LISPFUNN(string,1)
  241. LISPFUNN(name_char,1)
  242. LISPFUN(substring,2,1,norest,nokey,0,NIL)
  243. LISPFUN(string_concat,0,0,rest,nokey,0,NIL)
  244. # ---------- CONTROL ----------
  245. LISPFUN(exit,0,1,norest,nokey,0,NIL)
  246. LISPFUNN(psymbol_value,1)
  247. LISPFUNN(symbol_value,1)
  248. LISPFUNN(symbol_function,1)
  249. LISPFUNN(fdefinition,1)
  250. LISPFUNN(boundp,1)
  251. LISPFUNN(fboundp,1)
  252. LISPFUNN(special_form_p,1)
  253. LISPFUNN(set,2)
  254. LISPFUNN(makunbound,1)
  255. LISPFUNN(fmakunbound,1)
  256. LISPFUN(apply,2,0,rest,nokey,0,NIL)
  257. LISPFUN(pfuncall,1,0,rest,nokey,0,NIL)
  258. LISPFUN(funcall,1,0,rest,nokey,0,NIL)
  259. LISPFUN(mapcar,2,0,rest,nokey,0,NIL)
  260. LISPFUN(maplist,2,0,rest,nokey,0,NIL)
  261. LISPFUN(mapc,2,0,rest,nokey,0,NIL)
  262. LISPFUN(mapl,2,0,rest,nokey,0,NIL)
  263. LISPFUN(mapcan,2,0,rest,nokey,0,NIL)
  264. LISPFUN(mapcon,2,0,rest,nokey,0,NIL)
  265. LISPFUN(values,0,0,rest,nokey,0,NIL)
  266. LISPFUNN(values_list,1)
  267. LISPFUNN(driver,1)
  268. LISPFUNN(unwind_to_driver,0)
  269. LISPFUNN(macro_function,1)
  270. LISPFUN(macroexpand,1,1,norest,nokey,0,NIL)
  271. LISPFUN(macroexpand_1,1,1,norest,nokey,0,NIL)
  272. LISPFUNN(proclaim,1)
  273. LISPFUNN(eval,1)
  274. LISPFUN(evalhook,3,1,norest,nokey,0,NIL)
  275. LISPFUN(applyhook,4,1,norest,nokey,0,NIL)
  276. LISPFUNN(constantp,1)
  277. LISPFUNN(function_name_p,1)
  278. LISPFUN(parse_body,1,2,norest,nokey,0,NIL)
  279. LISPFUNN(keyword_test,2)
  280. # ---------- DEBUG ----------
  281. LISPFUN(read_form,1,1,norest,nokey,0,NIL)
  282. LISPFUN(read_eval_print,1,1,norest,nokey,0,NIL)
  283. LISPFUNN(load,1)
  284. LISPFUNN(frame_up_1,2)
  285. LISPFUNN(frame_up,2)
  286. LISPFUNN(frame_down_1,2)
  287. LISPFUNN(frame_down,2)
  288. LISPFUNN(the_frame,0)
  289. LISPFUNN(same_env_as,2)
  290. LISPFUNN(eval_at,2)
  291. LISPFUNN(eval_frame_p,1)
  292. LISPFUNN(driver_frame_p,1)
  293. LISPFUNN(trap_eval_frame,2)
  294. LISPFUNN(redo_eval_frame,1)
  295. LISPFUNN(return_from_eval_frame,2)
  296. LISPFUNN(describe_frame,2)
  297. LISPFUNN(show_stack,0)
  298. LISPFUNN(debug,0)
  299. LISPFUNN(room,0)
  300. LISPFUNN(gc,0)
  301. # ---------- ERROR ----------
  302. LISPFUN(error,1,0,rest,nokey,0,NIL)
  303. LISPFUNN(defclcs,1)
  304. LISPFUN(error_of_type,2,0,rest,nokey,0,NIL)
  305. LISPFUNN(invoke_debugger,1)
  306. LISPFUN(clcs_signal,1,0,rest,nokey,0,NIL)
  307. # ---------- HASHTABL ----------
  308. LISPFUN(make_hash_table,0,0,norest,key,5,
  309.         (kw(initial_contents),
  310.          kw(test),kw(size),kw(rehash_size),kw(rehash_threshold)) )
  311. LISPFUN(gethash,2,1,norest,nokey,0,NIL)
  312. LISPFUNN(puthash,3)
  313. LISPFUNN(remhash,2)
  314. LISPFUNN(maphash,2)
  315. LISPFUNN(clrhash,1)
  316. LISPFUNN(hash_table_count,1)
  317. LISPFUNN(hash_table_rehash_size,1)
  318. LISPFUNN(hash_table_rehash_threshold,1)
  319. LISPFUNN(hash_table_size,1)
  320. LISPFUNN(hash_table_test,1)
  321. LISPFUNN(hash_table_iterator,1)
  322. LISPFUNN(hash_table_iterate,1)
  323. LISPFUNN(class_gethash,2)
  324. LISPFUN(class_tuple_gethash,2,0,rest,nokey,0,NIL)
  325. LISPFUNN(sxhash,1)
  326. # ---------- IO ----------
  327. LISPFUN(copy_readtable,0,2,norest,nokey,0,NIL)
  328. LISPFUN(set_syntax_from_char,2,2,norest,nokey,0,NIL)
  329. LISPFUN(set_macro_character,2,2,norest,nokey,0,NIL)
  330. LISPFUN(get_macro_character,1,1,norest,nokey,0,NIL)
  331. LISPFUN(make_dispatch_macro_character,1,2,norest,nokey,0,NIL)
  332. LISPFUN(set_dispatch_macro_character,3,1,norest,nokey,0,NIL)
  333. LISPFUN(get_dispatch_macro_character,2,1,norest,nokey,0,NIL)
  334. LISPFUNN(readtable_case,1)
  335. LISPFUNN(set_readtable_case,2)
  336. LISPFUNN(lpar_reader,2)
  337. LISPFUNN(rpar_reader,2)
  338. LISPFUNN(string_reader,2)
  339. LISPFUNN(quote_reader,2)
  340. LISPFUNN(line_comment_reader,2)
  341. LISPFUNN(function_reader,3)
  342. LISPFUNN(comment_reader,3)
  343. LISPFUNN(char_reader,3)
  344. LISPFUNN(binary_reader,3)
  345. LISPFUNN(octal_reader,3)
  346. LISPFUNN(hexadecimal_reader,3)
  347. LISPFUNN(radix_reader,3)
  348. LISPFUNN(complex_reader,3)
  349. LISPFUNN(uninterned_reader,3)
  350. LISPFUNN(bit_vector_reader,3)
  351. LISPFUNN(vector_reader,3)
  352. LISPFUNN(array_reader,3)
  353. LISPFUNN(read_eval_reader,3)
  354. LISPFUNN(load_eval_reader,3)
  355. LISPFUNN(label_definition_reader,3)
  356. LISPFUNN(label_reference_reader,3)
  357. LISPFUNN(not_readable_reader,3)
  358. LISPFUNN(syntax_error_reader,3)
  359. LISPFUNN(feature_reader,3)
  360. LISPFUNN(not_feature_reader,3)
  361. LISPFUNN(structure_reader,3)
  362. LISPFUNN(closure_reader,3)
  363. LISPFUNN(pathname_reader,3)
  364. LISPFUN(read,0,4,norest,nokey,0,NIL)
  365. LISPFUN(read_preserving_whitespace,0,4,norest,nokey,0,NIL)
  366. LISPFUN(read_delimited_list,1,2,norest,nokey,0,NIL)
  367. LISPFUN(read_line,0,4,norest,nokey,0,NIL)
  368. LISPFUN(read_char,0,4,norest,nokey,0,NIL)
  369. LISPFUN(unread_char,1,1,norest,nokey,0,NIL)
  370. LISPFUN(peek_char,0,5,norest,nokey,0,NIL)
  371. LISPFUN(listen,0,1,norest,nokey,0,NIL)
  372. LISPFUN(read_char_no_hang,0,4,norest,nokey,0,NIL)
  373. LISPFUN(clear_input,0,1,norest,nokey,0,NIL)
  374. LISPFUN(read_from_string,1,2,norest,key,3,
  375.         (kw(preserve_whitespace),kw(start),kw(end)) )
  376. LISPFUN(parse_integer,1,0,norest,key,4,
  377.         (kw(start),kw(end),kw(radix),kw(junk_allowed)) )
  378. LISPFUN(write,1,0,norest,key,13,
  379.         (kw(case),kw(level),kw(length),kw(gensym),kw(escape),kw(radix),
  380.          kw(base),kw(array),kw(circle),kw(pretty),kw(closure),kw(readably),
  381.          kw(stream)) )
  382. LISPFUN(prin1,1,1,norest,nokey,0,NIL)
  383. LISPFUN(print,1,1,norest,nokey,0,NIL)
  384. LISPFUN(pprint,1,1,norest,nokey,0,NIL)
  385. LISPFUN(princ,1,1,norest,nokey,0,NIL)
  386. LISPFUN(write_to_string,1,0,norest,key,12,
  387.         (kw(case),kw(level),kw(length),kw(gensym),kw(escape),kw(radix),
  388.          kw(base),kw(array),kw(circle),kw(pretty),kw(closure),kw(readably)) )
  389. LISPFUNN(prin1_to_string,1)
  390. LISPFUNN(princ_to_string,1)
  391. LISPFUN(write_char,1,1,norest,nokey,0,NIL)
  392. LISPFUN(write_string,1,1,norest,key,2, (kw(start),kw(end)) )
  393. LISPFUN(write_line,1,1,norest,key,2, (kw(start),kw(end)) )
  394. LISPFUN(terpri,0,1,norest,nokey,0,NIL)
  395. LISPFUN(fresh_line,0,1,norest,nokey,0,NIL)
  396. LISPFUN(finish_output,0,1,norest,nokey,0,NIL)
  397. LISPFUN(force_output,0,1,norest,nokey,0,NIL)
  398. LISPFUN(clear_output,0,1,norest,nokey,0,NIL)
  399. LISPFUN(write_unreadable,3,0,norest,key,2, (kw(type),kw(identity)) )
  400. LISPFUN(line_position,0,1,norest,nokey,0,NIL)
  401. # ---------- LIST ----------
  402. LISPFUNN(car,1)
  403. LISPFUNN(cdr,1)
  404. LISPFUNN(caar,1)
  405. LISPFUNN(cadr,1)
  406. LISPFUNN(cdar,1)
  407. LISPFUNN(cddr,1)
  408. LISPFUNN(caaar,1)
  409. LISPFUNN(caadr,1)
  410. LISPFUNN(cadar,1)
  411. LISPFUNN(caddr,1)
  412. LISPFUNN(cdaar,1)
  413. LISPFUNN(cdadr,1)
  414. LISPFUNN(cddar,1)
  415. LISPFUNN(cdddr,1)
  416. LISPFUNN(caaaar,1)
  417. LISPFUNN(caaadr,1)
  418. LISPFUNN(caadar,1)
  419. LISPFUNN(caaddr,1)
  420. LISPFUNN(cadaar,1)
  421. LISPFUNN(cadadr,1)
  422. LISPFUNN(caddar,1)
  423. LISPFUNN(cadddr,1)
  424. LISPFUNN(cdaaar,1)
  425. LISPFUNN(cdaadr,1)
  426. LISPFUNN(cdadar,1)
  427. LISPFUNN(cdaddr,1)
  428. LISPFUNN(cddaar,1)
  429. LISPFUNN(cddadr,1)
  430. LISPFUNN(cdddar,1)
  431. LISPFUNN(cddddr,1)
  432. LISPFUNN(cons,2)
  433. LISPFUN(tree_equal,2,0,norest,key,2, (kw(test),kw(test_not)) )
  434. LISPFUNN(endp,1)
  435. LISPFUNN(list_length,1)
  436. LISPFUNN(nth,2)
  437. LISPFUNN(first,1)
  438. LISPFUNN(second,1)
  439. LISPFUNN(third,1)
  440. LISPFUNN(fourth,1)
  441. LISPFUNN(fifth,1)
  442. LISPFUNN(sixth,1)
  443. LISPFUNN(seventh,1)
  444. LISPFUNN(eighth,1)
  445. LISPFUNN(ninth,1)
  446. LISPFUNN(tenth,1)
  447. LISPFUNN(rest,1)
  448. LISPFUNN(nthcdr,2)
  449. LISPFUN(last,1,1,norest,nokey,0,NIL)
  450. LISPFUN(list,0,0,rest,nokey,0,NIL)
  451. LISPFUN(liststern,1,0,rest,nokey,0,NIL)
  452. LISPFUN(make_list,1,0,norest,key,1, (kw(initial_element)) )
  453. LISPFUN(append,0,0,rest,nokey,0,NIL)
  454. LISPFUNN(copy_list,1)
  455. LISPFUNN(copy_alist,1)
  456. LISPFUNN(copy_tree,1)
  457. LISPFUNN(revappend,2)
  458. LISPFUN(nconc,0,0,rest,nokey,0,NIL)
  459. LISPFUNN(nreconc,2)
  460. LISPFUNN(list_nreverse,1)
  461. LISPFUN(butlast,1,1,norest,nokey,0,NIL)
  462. LISPFUN(nbutlast,1,1,norest,nokey,0,NIL)
  463. LISPFUNN(ldiff,2)
  464. LISPFUNN(rplaca,2)
  465. LISPFUNN(prplaca,2)
  466. LISPFUNN(rplacd,2)
  467. LISPFUNN(prplacd,2)
  468. LISPFUN(subst,3,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  469. LISPFUN(subst_if,3,0,norest,key,1, (kw(key)) )
  470. LISPFUN(subst_if_not,3,0,norest,key,1, (kw(key)) )
  471. LISPFUN(nsubst,3,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  472. LISPFUN(nsubst_if,3,0,norest,key,1, (kw(key)) )
  473. LISPFUN(nsubst_if_not,3,0,norest,key,1, (kw(key)) )
  474. LISPFUN(sublis,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  475. LISPFUN(nsublis,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  476. LISPFUN(member,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  477. LISPFUN(member_if,2,0,norest,key,1, (kw(key)) )
  478. LISPFUN(member_if_not,2,0,norest,key,1, (kw(key)) )
  479. LISPFUNN(tailp,2)
  480. LISPFUN(adjoin,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  481. LISPFUNN(acons,3)
  482. LISPFUN(pairlis,2,1,norest,nokey,0,NIL)
  483. LISPFUN(assoc,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  484. LISPFUN(assoc_if,2,0,norest,key,1, (kw(key)) )
  485. LISPFUN(assoc_if_not,2,0,norest,key,1, (kw(key)) )
  486. LISPFUN(rassoc,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  487. LISPFUN(rassoc_if,2,0,norest,key,1, (kw(key)) )
  488. LISPFUN(rassoc_if_not,2,0,norest,key,1, (kw(key)) )
  489. LISPFUNN(list_upd,2)
  490. LISPFUNN(list_endtest,2)
  491. LISPFUNN(list_fe_init,1)
  492. LISPFUNN(list_access,2)
  493. LISPFUNN(list_access_set,3)
  494. LISPFUNN(list_llength,1)
  495. LISPFUNN(list_elt,2)
  496. LISPFUNN(list_set_elt,3)
  497. LISPFUNN(list_init_start,2)
  498. LISPFUNN(list_fe_init_end,2)
  499. # ---------- MISC ----------
  500. LISPFUNN(lisp_implementation_type,0)
  501. LISPFUNN(lisp_implementation_version,0)
  502. LISPFUN(version,0,1,norest,nokey,0,NIL)
  503. #ifdef MACHINE_KNOWN
  504. LISPFUNN(machinetype,0)
  505. LISPFUNN(machine_version,0)
  506. LISPFUNN(machine_instance,0)
  507. #endif
  508. #ifdef HAVE_ENVIRONMENT
  509. LISPFUNN(get_env,1)
  510. #endif
  511. LISPFUNN(software_type,0)
  512. LISPFUNN(software_version,0)
  513. #ifdef ENABLE_NLS
  514. LISPFUNN(gettext,1)
  515. #endif
  516. LISPFUNN(language,3)
  517. LISPFUNN(identity,1)
  518. LISPFUNN(address_of,1)
  519. #ifdef HAVE_DISASSEMBLER
  520. LISPFUNN(code_address_of,1)
  521. LISPFUNN(program_id,0)
  522. #endif
  523. # ---------- TIME ----------
  524. LISPFUNN(get_universal_time,0)
  525. #if defined(UNIX) || defined(WIN32_UNIX)
  526. LISPFUN(default_time_zone,0,1,norest,nokey,0,NIL)
  527. #endif
  528. LISPFUNN(get_internal_run_time,0)
  529. LISPFUNN(get_internal_real_time,0)
  530. #ifdef SLEEP_1
  531. LISPFUNN(sleep,1)
  532. #endif
  533. #ifdef SLEEP_2
  534. LISPFUNN(sleep,2)
  535. #endif
  536. LISPFUNN(time,0)
  537. # ---------- PACKAGE ----------
  538. LISPFUNN(use_package_aux,1)
  539. LISPFUNN(make_symbol,1)
  540. LISPFUNN(find_package,1)
  541. LISPFUNN(pfind_package,1)
  542. LISPFUNN(package_name,1)
  543. LISPFUNN(package_nicknames,1)
  544. LISPFUN(rename_package,2,1,norest,nokey,0,NIL)
  545. LISPFUNN(package_use_list,1)
  546. LISPFUNN(package_used_by_list,1)
  547. LISPFUNN(package_shadowing_symbols,1)
  548. LISPFUNN(list_all_packages,0)
  549. LISPFUN(intern,1,1,norest,nokey,0,NIL)
  550. LISPFUN(find_symbol,1,1,norest,nokey,0,NIL)
  551. LISPFUN(unintern,1,1,norest,nokey,0,NIL)
  552. LISPFUN(export,1,1,norest,nokey,0,NIL)
  553. LISPFUN(unexport,1,1,norest,nokey,0,NIL)
  554. LISPFUN(import,1,1,norest,nokey,0,NIL)
  555. LISPFUN(shadowing_import,1,1,norest,nokey,0,NIL)
  556. LISPFUN(shadow,1,1,norest,nokey,0,NIL)
  557. LISPFUN(use_package,1,1,norest,nokey,0,NIL)
  558. LISPFUN(unuse_package,1,1,norest,nokey,0,NIL)
  559. LISPFUN(make_package,1,0,norest,key,2, (kw(nicknames),kw(use)) )
  560. LISPFUN(pin_package,1,0,norest,key,2, (kw(nicknames),kw(use)) )
  561. LISPFUN(in_package,1,0,norest,key,2, (kw(nicknames),kw(use)) )
  562. LISPFUNN(delete_package,1)
  563. LISPFUNN(delete_package_aux,1)
  564. LISPFUNN(find_all_symbols,1)
  565. LISPFUNN(map_symbols,2)
  566. LISPFUNN(map_symbols_aux,1)
  567. LISPFUNN(map_external_symbols,2)
  568. LISPFUNN(map_all_symbols,1)
  569. LISPFUNN(package_iterator,2)
  570. LISPFUNN(package_iterate,1)
  571. # ---------- PATHNAME ----------
  572. LISPFUN(parse_namestring,1,2,norest,key,3,
  573.         (kw(start),kw(end),kw(junk_allowed)) )
  574. LISPFUNN(pathname,1)
  575. LISPFUN(pathnamehost,1,0,norest,key,1, (kw(case)))
  576. LISPFUN(pathnamedevice,1,0,norest,key,1, (kw(case)))
  577. LISPFUN(pathnamedirectory,1,0,norest,key,1, (kw(case)))
  578. LISPFUN(pathnamename,1,0,norest,key,1, (kw(case)))
  579. LISPFUN(pathnametype,1,0,norest,key,1, (kw(case)))
  580. LISPFUNN(pathnameversion,1)
  581. #ifdef LOGICAL_PATHNAMES
  582. LISPFUNN(logical_pathname,1)
  583. LISPFUN(translate_logical_pathname,1,0,norest,key,0,_EMA_)
  584. #endif
  585. LISPFUNN(file_namestring,1)
  586. LISPFUNN(directory_namestring,1)
  587. LISPFUNN(host_namestring,1)
  588. LISPFUN(merge_pathnames,1,2,norest,key,1, (kw(wild)))
  589. LISPFUN(enough_namestring,1,1,norest,nokey,0,NIL)
  590. LISPFUN(make_pathname,0,0,norest,key,8,
  591.         (kw(defaults),kw(case),kw(host),kw(device),kw(directory),kw(name),kw(type),kw(version)) )
  592. #ifdef LOGICAL_PATHNAMES
  593. LISPFUN(make_logical_pathname,0,0,norest,key,8,
  594.         (kw(defaults),kw(case),kw(host),kw(device),kw(directory),kw(name),kw(type),kw(version)) )
  595. #endif
  596. #ifdef USER_HOMEDIR
  597. LISPFUN(user_homedir_pathname,0,1,norest,nokey,0,NIL)
  598. #endif
  599. LISPFUN(wild_pathname_p,1,1,norest,nokey,0,NIL)
  600. LISPFUNN(pathname_match_p,2)
  601. LISPFUN(translate_pathname,3,0,norest,key,2, (kw(all),kw(merge)))
  602. LISPFUN(namestring,1,1,norest,nokey,0,NIL)
  603. LISPFUNN(truename,1)
  604. LISPFUNN(probe_file,1)
  605. LISPFUNN(delete_file,1)
  606. LISPFUNN(rename_file,2)
  607. LISPFUN(open,1,0,norest,key,4,
  608.         (kw(direction),kw(element_type),kw(if_exists),kw(if_does_not_exist)) )
  609. LISPFUN(directory,0,1,norest,key,2, (kw(circle),kw(full)) )
  610. LISPFUN(cd,0,1,norest,nokey,0,NIL)
  611. LISPFUNN(make_dir,1)
  612. LISPFUNN(delete_dir,1)
  613. LISPFUNN(file_write_date,1)
  614. LISPFUNN(file_author,1)
  615. #if defined(UNIX) || defined(MSDOS) || defined(RISCOS) || defined(WIN32_UNIX)
  616. LISPFUN(execute,1,0,rest,nokey,0,NIL)
  617. #endif
  618. #if defined(AMIGAOS)
  619. LISPFUN(execute,1,0,norest,nokey,0,NIL)
  620. #endif
  621. #ifdef HAVE_SHELL
  622. LISPFUN(shell,0,1,norest,nokey,0,NIL)
  623. #endif
  624. LISPFUNN(savemem,1)
  625. #ifdef HAVE_DISASSEMBLER
  626. LISPFUNN(program_name,0)
  627. #endif
  628. # ---------- PREDTYPE ----------
  629. LISPFUNN(eq,2)
  630. LISPFUNN(eql,2)
  631. LISPFUNN(equal,2)
  632. LISPFUNN(equalp,2)
  633. LISPFUNN(consp,1)
  634. LISPFUNN(atom,1)
  635. LISPFUNN(symbolp,1)
  636. LISPFUNN(stringp,1)
  637. LISPFUNN(numberp,1)
  638. LISPFUNN(compiled_function_p,1)
  639. LISPFUNN(null,1)
  640. LISPFUNN(not,1)
  641. LISPFUNN(closurep,1)
  642. LISPFUNN(listp,1)
  643. LISPFUNN(integerp,1)
  644. LISPFUNN(fixnump,1)
  645. LISPFUNN(rationalp,1)
  646. LISPFUNN(floatp,1)
  647. LISPFUNN(short_float_p,1)
  648. LISPFUNN(single_float_p,1)
  649. LISPFUNN(double_float_p,1)
  650. LISPFUNN(long_float_p,1)
  651. LISPFUNN(realp,1)
  652. LISPFUNN(complexp,1)
  653. LISPFUNN(streamp,1)
  654. LISPFUNN(random_state_p,1)
  655. LISPFUNN(readtablep,1)
  656. LISPFUNN(hash_table_p,1)
  657. LISPFUNN(pathnamep,1)
  658. LISPFUNN(logical_pathname_p,1)
  659. LISPFUNN(characterp,1)
  660. LISPFUNN(functionp,1)
  661. LISPFUNN(generic_function_p,1)
  662. LISPFUNN(packagep,1)
  663. LISPFUNN(arrayp,1)
  664. LISPFUNN(simple_array_p,1)
  665. LISPFUNN(bit_vector_p,1)
  666. LISPFUNN(vectorp,1)
  667. LISPFUNN(simple_vector_p,1)
  668. LISPFUNN(simple_string_p,1)
  669. LISPFUNN(simple_bit_vector_p,1)
  670. LISPFUNN(commonp,1)
  671. LISPFUNN(type_of,1)
  672. LISPFUNN(defclos,2)
  673. LISPFUNN(class_p,1)
  674. LISPFUNN(class_of,1)
  675. LISPFUN(find_class,1,2,norest,nokey,0,NIL)
  676. LISPFUNN(coerce,2)
  677. # ---------- RECORD ----------
  678. LISPFUNN(record_ref,2)
  679. LISPFUNN(record_store,3)
  680. LISPFUNN(record_length,1)
  681. LISPFUNN(structure_ref,3)
  682. LISPFUNN(structure_store,4)
  683. LISPFUNN(make_structure,2)
  684. LISPFUNN(copy_structure,1)
  685. LISPFUNN(structure_type_p,2)
  686. LISPFUNN(closure_name,1)
  687. LISPFUNN(closure_codevec,1)
  688. LISPFUNN(closure_consts,1)
  689. LISPFUNN(make_code_vector,1)
  690. LISPFUNN(make_closure,3)
  691. LISPFUNN(make_load_time_eval,1)
  692. LISPFUNN(make_symbol_macro,1)
  693. LISPFUNN(symbol_macro_p,1)
  694. LISPFUNN(symbol_macro_expand,1)
  695. LISPFUN(finalize,2,1,norest,nokey,0,NIL)
  696. LISPFUNN(std_instance_p,1)
  697. LISPFUNN(allocate_std_instance,2)
  698. LISPFUNN(slot_value,2)
  699. LISPFUNN(set_slot_value,3)
  700. LISPFUNN(slot_boundp,2)
  701. LISPFUNN(slot_makunbound,2)
  702. LISPFUNN(slot_exists_p,2)
  703. LISPFUN(shared_initialize,2,0,rest,nokey,0,NIL)
  704. LISPFUN(reinitialize_instance,1,0,rest,nokey,0,NIL)
  705. LISPFUN(initialize_instance,1,0,rest,nokey,0,NIL)
  706. LISPFUN(make_instance,1,0,rest,nokey,0,NIL)
  707. # ---------- SEQUENCE ----------
  708. LISPFUNN(sequencep,1)
  709. LISPFUNN(defseq,1)
  710. LISPFUNN(elt,2)
  711. LISPFUNN(setelt,3)
  712. LISPFUN(subseq,2,1,norest,nokey,0,NIL)
  713. LISPFUNN(copy_seq,1)
  714. LISPFUNN(length,1)
  715. LISPFUNN(reverse,1)
  716. LISPFUNN(nreverse,1)
  717. LISPFUN(make_sequence,2,0,norest,key,2,
  718.         (kw(initial_element),kw(update)) )
  719. LISPFUN(concatenate,1,0,rest,nokey,0,NIL)
  720. LISPFUN(map,3,0,rest,nokey,0,NIL)
  721. LISPFUN(map_into,2,0,rest,nokey,0,NIL)
  722. LISPFUN(some,2,0,rest,nokey,0,NIL)
  723. LISPFUN(every,2,0,rest,nokey,0,NIL)
  724. LISPFUN(notany,2,0,rest,nokey,0,NIL)
  725. LISPFUN(notevery,2,0,rest,nokey,0,NIL)
  726. LISPFUN(reduce,2,0,norest,key,5,
  727.         (kw(from_end),kw(start),kw(end),kw(key),kw(initial_value)) )
  728. LISPFUN(fill,2,0,norest,key,2, (kw(start),kw(end)) )
  729. LISPFUN(replace,2,0,norest,key,4,
  730.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  731. LISPFUN(remove,2,0,norest,key,7,
  732.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not),kw(count)) )
  733. LISPFUN(remove_if,2,0,norest,key,5,
  734.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  735. LISPFUN(remove_if_not,2,0,norest,key,5,
  736.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  737. LISPFUN(delete,2,0,norest,key,7,
  738.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not),kw(count)) )
  739. LISPFUN(delete_if,2,0,norest,key,5,
  740.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  741. LISPFUN(delete_if_not,2,0,norest,key,5,
  742.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  743. LISPFUN(remove_duplicates,1,0,norest,key,6,
  744.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  745. LISPFUN(delete_duplicates,1,0,norest,key,6,
  746.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  747. LISPFUN(substitute,3,0,norest,key,7,
  748.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not),kw(count)) )
  749. LISPFUN(substitute_if,3,0,norest,key,5,
  750.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  751. LISPFUN(substitute_if_not,3,0,norest,key,5,
  752.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  753. LISPFUN(nsubstitute,3,0,norest,key,7,
  754.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not),kw(count)) )
  755. LISPFUN(nsubstitute_if,3,0,norest,key,5,
  756.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  757. LISPFUN(nsubstitute_if_not,3,0,norest,key,5,
  758.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  759. LISPFUN(find,2,0,norest,key,6,
  760.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  761. LISPFUN(find_if,2,0,norest,key,4,
  762.         (kw(from_end),kw(start),kw(end),kw(key)) )
  763. LISPFUN(find_if_not,2,0,norest,key,4,
  764.         (kw(from_end),kw(start),kw(end),kw(key)) )
  765. LISPFUN(position,2,0,norest,key,6,
  766.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  767. LISPFUN(position_if,2,0,norest,key,4,
  768.         (kw(from_end),kw(start),kw(end),kw(key)) )
  769. LISPFUN(position_if_not,2,0,norest,key,4,
  770.         (kw(from_end),kw(start),kw(end),kw(key)) )
  771. LISPFUN(count,2,0,norest,key,6,
  772.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  773. LISPFUN(count_if,2,0,norest,key,4,
  774.         (kw(from_end),kw(start),kw(end),kw(key)) )
  775. LISPFUN(count_if_not,2,0,norest,key,4,
  776.         (kw(from_end),kw(start),kw(end),kw(key)) )
  777. LISPFUN(mismatch,2,0,norest,key,8,
  778.         (kw(start1),kw(end1),kw(start2),kw(end2),kw(from_end),
  779.          kw(key),kw(test),kw(test_not)) )
  780. LISPFUN(search,2,0,norest,key,8,
  781.         (kw(start1),kw(end1),kw(start2),kw(end2),kw(from_end),
  782.          kw(key),kw(test),kw(test_not)) )
  783. LISPFUN(sort,2,0,norest,key,3, (kw(key),kw(start),kw(end)) )
  784. LISPFUN(stable_sort,2,0,norest,key,3, (kw(key),kw(start),kw(end)) )
  785. LISPFUN(merge,4,0,norest,key,1, (kw(key)) )
  786. LISPFUN(read_char_sequence,2,0,norest,key,2, (kw(start),kw(end)) )
  787. LISPFUN(write_char_sequence,2,0,norest,key,2, (kw(start),kw(end)) )
  788. LISPFUN(read_byte_sequence,2,0,norest,key,2, (kw(start),kw(end)) )
  789. LISPFUN(write_byte_sequence,2,0,norest,key,2, (kw(start),kw(end)) )
  790. # ---------- STREAM ----------
  791. LISPFUN(symbol_stream,1,1,norest,nokey,0,NIL)
  792. LISPFUN(terminal_raw,2,1,norest,nokey,0,NIL)
  793. #ifdef SCREEN
  794. LISPFUNN(make_window,0)
  795. LISPFUNN(window_size,1)
  796. LISPFUNN(window_cursor_position,1)
  797. LISPFUNN(set_window_cursor_position,3)
  798. LISPFUNN(clear_window,1)
  799. LISPFUNN(clear_window_to_eot,1)
  800. LISPFUNN(clear_window_to_eol,1)
  801. LISPFUNN(delete_window_line,1)
  802. LISPFUNN(insert_window_line,1)
  803. LISPFUNN(highlight_on,1)
  804. LISPFUNN(highlight_off,1)
  805. LISPFUNN(window_cursor_on,1)
  806. LISPFUNN(window_cursor_off,1)
  807. #endif
  808. LISPFUNN(file_stream_p,1)
  809. LISPFUNN(make_synonym_stream,1)
  810. LISPFUNN(synonym_stream_p,1)
  811. LISPFUNN(synonym_stream_symbol,1)
  812. LISPFUN(make_broadcast_stream,0,0,rest,nokey,0,NIL)
  813. LISPFUNN(broadcast_stream_p,1)
  814. LISPFUNN(broadcast_stream_streams,1)
  815. LISPFUN(make_concatenated_stream,0,0,rest,nokey,0,NIL)
  816. LISPFUNN(concatenated_stream_p,1)
  817. LISPFUNN(concatenated_stream_streams,1)
  818. LISPFUNN(make_two_way_stream,2)
  819. LISPFUNN(two_way_stream_p,1)
  820. LISPFUNN(two_way_stream_input_stream,1)
  821. LISPFUNN(two_way_stream_output_stream,1)
  822. LISPFUNN(make_echo_stream,2)
  823. LISPFUNN(echo_stream_p,1)
  824. LISPFUNN(echo_stream_input_stream,1)
  825. LISPFUNN(echo_stream_output_stream,1)
  826. LISPFUN(make_string_input_stream,1,2,norest,nokey,0,NIL)
  827. LISPFUNN(string_input_stream_index,1)
  828. LISPFUN(make_string_output_stream,0,1,norest,nokey,0,NIL)
  829. LISPFUNN(get_output_stream_string,1)
  830. LISPFUNN(make_string_push_stream,1)
  831. LISPFUNN(string_stream_p,1)
  832. LISPFUNN(make_buffered_input_stream,2)
  833. LISPFUNN(buffered_input_stream_index,1)
  834. LISPFUN(make_buffered_output_stream,1,1,norest,nokey,0,NIL)
  835. #ifdef PRINTER_AMIGAOS
  836. LISPFUNN(make_printer_stream,0)
  837. #endif
  838. #ifdef PIPES
  839. LISPFUNN(make_pipe_input_stream,1)
  840. LISPFUNN(make_pipe_output_stream,1)
  841. #ifdef PIPES2
  842. LISPFUNN(make_pipe_io_stream,1)
  843. #endif
  844. #endif
  845. #ifdef XSOCKETS
  846. LISPFUNN(make_xsocket_stream,2)
  847. LISPFUNN(read_n_bytes,4)
  848. LISPFUNN(write_n_bytes,4)
  849. #endif
  850. #ifdef GENERIC_STREAMS
  851. LISPFUNN(generic_stream_controller,1)
  852. LISPFUNN(make_generic_stream,1)
  853. LISPFUNN(generic_stream_p,1)
  854. #endif
  855. #ifdef SOCKET_STREAMS
  856. LISPFUN(socket_server,0,1,norest,nokey,0,NIL)
  857. LISPFUNN(socket_server_close,1)
  858. LISPFUNN(socket_server_port,1)
  859. LISPFUN(socket_wait,1,2,norest,nokey,0,NIL)
  860. LISPFUNN(socket_accept,1)
  861. LISPFUN(socket_connect,1,1,norest,nokey,0,NIL)
  862. LISPFUNN(socket_service_port,1)
  863. LISPFUNN(socket_stream_port,1)
  864. LISPFUNN(socket_stream_host,1)
  865. LISPFUNN(socket_stream_peer_host,1)
  866. LISPFUNN(socket_stream_handle,1)
  867. #endif
  868. LISPFUNN(open_stream_p,1)
  869. LISPFUNN(input_stream_p,1)
  870. LISPFUNN(output_stream_p,1)
  871. LISPFUNN(stream_element_type,1)
  872. LISPFUNN(interactive_stream_p,1)
  873. LISPFUN(close,1,0,norest,key,1, (kw(abort)) )
  874. LISPFUN(read_byte,1,2,norest,nokey,0,NIL)
  875. LISPFUNN(write_byte,2)
  876. LISPFUN(file_position,1,1,norest,nokey,0,NIL)
  877. LISPFUNN(file_length,1)
  878. LISPFUNN(line_number,1)
  879. # ---------- SYMBOL ----------
  880. LISPFUNN(putd,2)
  881. LISPFUNN(proclaim_constant,2)
  882. LISPFUN(get,2,1,norest,nokey,0,NIL)
  883. LISPFUN(getf,2,1,norest,nokey,0,NIL)
  884. LISPFUNN(get_properties,2)
  885. LISPFUNN(putplist,2)
  886. LISPFUNN(put,3)
  887. LISPFUNN(remprop,2)
  888. LISPFUNN(symbol_package,1)
  889. LISPFUNN(symbol_plist,1)
  890. LISPFUNN(symbol_name,1)
  891. LISPFUNN(keywordp,1)
  892. LISPFUNN(special_variable_p,1)
  893. LISPFUN(gensym,0,1,norest,nokey,0,NIL)
  894. # ---------- LISPARIT ----------
  895. LISPFUNN(decimal_string,1)
  896. LISPFUNN(zerop,1)
  897. LISPFUNN(plusp,1)
  898. LISPFUNN(minusp,1)
  899. LISPFUNN(oddp,1)
  900. LISPFUNN(evenp,1)
  901. LISPFUN(gleich,1,0,rest,nokey,0,NIL)
  902. LISPFUN(ungleich,1,0,rest,nokey,0,NIL)
  903. LISPFUN(kleiner,1,0,rest,nokey,0,NIL)
  904. LISPFUN(groesser,1,0,rest,nokey,0,NIL)
  905. LISPFUN(klgleich,1,0,rest,nokey,0,NIL)
  906. LISPFUN(grgleich,1,0,rest,nokey,0,NIL)
  907. LISPFUN(max,1,0,rest,nokey,0,NIL)
  908. LISPFUN(min,1,0,rest,nokey,0,NIL)
  909. LISPFUN(plus,0,0,rest,nokey,0,NIL)
  910. LISPFUN(minus,1,0,rest,nokey,0,NIL)
  911. LISPFUN(mal,0,0,rest,nokey,0,NIL)
  912. LISPFUN(durch,1,0,rest,nokey,0,NIL)
  913. LISPFUNN(einsplus,1)
  914. LISPFUNN(einsminus,1)
  915. LISPFUNN(conjugate,1)
  916. LISPFUN(gcd,0,0,rest,nokey,0,NIL)
  917. LISPFUN(xgcd,0,0,rest,nokey,0,NIL)
  918. LISPFUN(lcm,0,0,rest,nokey,0,NIL)
  919. LISPFUNN(exp,1)
  920. LISPFUNN(expt,2)
  921. LISPFUN(log,1,1,norest,nokey,0,NIL)
  922. LISPFUNN(sqrt,1)
  923. LISPFUNN(isqrt,1)
  924. LISPFUNN(abs,1)
  925. LISPFUNN(phase,1)
  926. LISPFUNN(signum,1)
  927. LISPFUNN(sin,1)
  928. LISPFUNN(cos,1)
  929. LISPFUNN(tan,1)
  930. LISPFUNN(cis,1)
  931. LISPFUNN(asin,1)
  932. LISPFUNN(acos,1)
  933. LISPFUN(atan,1,1,norest,nokey,0,NIL)
  934. LISPFUNN(sinh,1)
  935. LISPFUNN(cosh,1)
  936. LISPFUNN(tanh,1)
  937. LISPFUNN(asinh,1)
  938. LISPFUNN(acosh,1)
  939. LISPFUNN(atanh,1)
  940. LISPFUN(float,1,1,norest,nokey,0,NIL)
  941. LISPFUNN(rational,1)
  942. LISPFUNN(rationalize,1)
  943. LISPFUNN(numerator,1)
  944. LISPFUNN(denominator,1)
  945. LISPFUN(floor,1,1,norest,nokey,0,NIL)
  946. LISPFUN(ceiling,1,1,norest,nokey,0,NIL)
  947. LISPFUN(truncate,1,1,norest,nokey,0,NIL)
  948. LISPFUN(round,1,1,norest,nokey,0,NIL)
  949. LISPFUNN(mod,2)
  950. LISPFUNN(rem,2)
  951. LISPFUN(ffloor,1,1,norest,nokey,0,NIL)
  952. LISPFUN(fceiling,1,1,norest,nokey,0,NIL)
  953. LISPFUN(ftruncate,1,1,norest,nokey,0,NIL)
  954. LISPFUN(fround,1,1,norest,nokey,0,NIL)
  955. LISPFUNN(decode_float,1)
  956. LISPFUNN(scale_float,2)
  957. LISPFUNN(float_radix,1)
  958. LISPFUN(float_sign,1,1,norest,nokey,0,NIL)
  959. LISPFUN(float_digits,1,1,norest,nokey,0,NIL)
  960. LISPFUNN(float_precision,1)
  961. LISPFUNN(integer_decode_float,1)
  962. LISPFUN(complex,1,1,norest,nokey,0,NIL)
  963. LISPFUNN(realpart,1)
  964. LISPFUNN(imagpart,1)
  965. LISPFUN(logior,0,0,rest,nokey,0,NIL)
  966. LISPFUN(logxor,0,0,rest,nokey,0,NIL)
  967. LISPFUN(logand,0,0,rest,nokey,0,NIL)
  968. LISPFUN(logeqv,0,0,rest,nokey,0,NIL)
  969. LISPFUNN(lognand,2)
  970. LISPFUNN(lognor,2)
  971. LISPFUNN(logandc1,2)
  972. LISPFUNN(logandc2,2)
  973. LISPFUNN(logorc1,2)
  974. LISPFUNN(logorc2,2)
  975. LISPFUNN(boole,3)
  976. LISPFUNN(lognot,1)
  977. LISPFUNN(logtest,2)
  978. LISPFUNN(logbitp,2)
  979. LISPFUNN(ash,2)
  980. LISPFUNN(logcount,1)
  981. LISPFUNN(integer_length,1)
  982. LISPFUNN(byte,2)
  983. LISPFUNN(bytesize,1)
  984. LISPFUNN(byteposition,1)
  985. LISPFUNN(ldb,2)
  986. LISPFUNN(ldb_test,2)
  987. LISPFUNN(mask_field,2)
  988. LISPFUNN(dpb,3)
  989. LISPFUNN(deposit_field,3)
  990. LISPFUN(random,1,1,norest,nokey,0,NIL)
  991. LISPFUN(make_random_state,0,1,norest,nokey,0,NIL)
  992. LISPFUNN(fakultaet,1)
  993. LISPFUNN(exquo,2)
  994. LISPFUNN(long_float_digits,0)
  995. LISPFUNN(set_long_float_digits,1)
  996. LISPFUNN(log2,1)
  997. LISPFUNN(log10,1)
  998. # ---------- REXX ----------
  999. #ifdef REXX
  1000. LISPFUN(rexx_put,1,0,norest,key,6,
  1001.         (kw(result),kw(string),kw(token),kw(async),kw(io),kw(return)) )
  1002. LISPFUNN(rexx_wait_input,0)
  1003. LISPFUNN(rexx_get,0)
  1004. LISPFUNN(rexx_reply,3)
  1005. #endif
  1006. # ---------- GRAPH ----------
  1007. #ifdef GRAPHICS
  1008. LISPFUN(gr_init,0,3,norest,nokey,0,NIL)
  1009. LISPFUNN(gr_show,0)
  1010. LISPFUN(gr_clear,0,1,norest,nokey,0,NIL)
  1011. LISPFUNN(gr_dims,0)
  1012. LISPFUN(gr_dot,2,1,norest,nokey,0,NIL)
  1013. LISPFUNN(gr_box,5)
  1014. LISPFUNN(gr_line,5)
  1015. LISPFUNN(gr_text,5)
  1016. #endif
  1017. # ---------- FOREIGN ----------
  1018. #ifdef DYNAMIC_FFI
  1019. LISPFUNN(validp,1)
  1020. LISPFUNN(sizeof,1)
  1021. LISPFUNN(bitsizeof,1)
  1022. LISPFUNN(lookup_foreign_variable,2)
  1023. LISPFUNN(foreign_value,1)
  1024. LISPFUNN(set_foreign_value,2)
  1025. LISPFUNN(foreign_type,1)
  1026. LISPFUNN(foreign_size,1)
  1027. LISPFUN(element,1,0,rest,nokey,0,NIL)
  1028. LISPFUNN(deref,1)
  1029. LISPFUNN(slot,2)
  1030. LISPFUNN(cast,2)
  1031. LISPFUNN(lookup_foreign_function,2)
  1032. LISPFUN(foreign_call_out,1,0,rest,nokey,0,NIL)
  1033. #ifdef AMIGAOS
  1034. LISPFUN(foreign_library,1,1,norest,nokey,0,NIL)
  1035. LISPFUNN(foreign_library_variable,4)
  1036. LISPFUNN(foreign_library_function,4)
  1037. #endif
  1038. #endif
  1039. # ---------- STDWIN ----------
  1040. #ifdef STDWIN
  1041. LISPFUNN(stdwin_init,0)
  1042. LISPFUNN(stdwin_done,0)
  1043. LISPFUNN(stdwin_drawproc_alist,0)
  1044. LISPFUNN(stdwin_wopen,2)
  1045. LISPFUNN(stdwin_wclose,1)
  1046. LISPFUNN(stdwin_scrollbar_p,0)
  1047. LISPFUNN(stdwin_set_scrollbar_p,2)
  1048. LISPFUNN(stdwin_default_window_size,0)
  1049. LISPFUNN(stdwin_set_default_window_size,2)
  1050. LISPFUNN(stdwin_default_window_position,0)
  1051. LISPFUNN(stdwin_set_default_window_position,2)
  1052. LISPFUNN(stdwin_screen_size,0)
  1053. LISPFUNN(stdwin_window_size,1)
  1054. LISPFUNN(stdwin_window_position,1)
  1055. LISPFUNN(stdwin_window_document_size,1)
  1056. LISPFUNN(stdwin_set_window_document_size,3)
  1057. LISPFUNN(stdwin_window_title,1)
  1058. LISPFUNN(stdwin_set_window_title,2)
  1059. LISPFUNN(stdwin_set_window_cursor,2)
  1060. LISPFUNN(stdwin_window_show,5)
  1061. LISPFUNN(stdwin_window_origin,1)
  1062. LISPFUNN(stdwin_set_window_origin,3)
  1063. LISPFUNN(stdwin_window_change,5)
  1064. LISPFUNN(stdwin_window_update,1)
  1065. LISPFUNN(stdwin_begin_drawing,1)
  1066. LISPFUNN(stdwin_end_drawing,1)
  1067. LISPFUNN(stdwin_draw_line,4)
  1068. LISPFUNN(stdwin_xor_line,4)
  1069. LISPFUNN(stdwin_draw_box,4)
  1070. LISPFUNN(stdwin_paint,4)
  1071. LISPFUNN(stdwin_invert,4)
  1072. LISPFUNN(stdwin_erase,4)
  1073. LISPFUNN(stdwin_shade,5)
  1074. LISPFUNN(stdwin_draw_circle,3)
  1075. LISPFUNN(stdwin_xor_circle,3)
  1076. LISPFUNN(stdwin_fill_circle,3)
  1077. LISPFUNN(stdwin_draw_arc,6)
  1078. LISPFUNN(stdwin_xor_arc,6)
  1079. LISPFUNN(stdwin_fill_arc,6)
  1080. LISPFUNN(stdwin_draw_char,3)
  1081. LISPFUNN(stdwin_draw_text,3)
  1082. LISPFUNN(stdwin_line_height,0)
  1083. LISPFUNN(stdwin_char_width,1)
  1084. LISPFUNN(stdwin_text_width,1)
  1085. LISPFUNN(stdwin_text_break,2)
  1086. LISPFUNN(stdwin_set_text_font,3)
  1087. LISPFUNN(stdwin_window_set_timer,2)
  1088. LISPFUNN(stdwin_get_event,0)
  1089. LISPFUNN(stdwin_get_event_no_hang,0)
  1090. LISPFUNN(stdwin_active_window,0)
  1091. LISPFUNN(stdwin_set_active_window,1)
  1092. LISPFUNN(stdwin_menu_create,1)
  1093. LISPFUNN(stdwin_menu_delete,1)
  1094. LISPFUNN(stdwin_menu_attach,2)
  1095. LISPFUNN(stdwin_menu_detach,2)
  1096. LISPFUNN(stdwin_menu_size,1)
  1097. LISPFUN(stdwin_menu_add_item,2,1,norest,nokey,0,NIL)
  1098. LISPFUNN(stdwin_set_menu_item_label,3)
  1099. LISPFUNN(stdwin_menu_item_enable,2)
  1100. LISPFUNN(stdwin_menu_item_disable,2)
  1101. LISPFUNN(stdwin_set_menu_item_checkmark,3)
  1102. LISPFUNN(stdwin_window_set_caret,3)
  1103. LISPFUNN(stdwin_window_no_caret,1)
  1104. LISPFUNN(stdwin_user_message,1)
  1105. LISPFUN(stdwin_user_ask,1,1,norest,nokey,0,NIL)
  1106. #endif
  1107.  
  1108.