home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / LISP / PDLISP.ZIP / PDINIT.L < prev    next >
Encoding:
Text File  |  1986-08-14  |  12.5 KB  |  411 lines
  1. ;     UNXINIT.L - Copyright (c) 1985 by David Morein.
  2. ;     This is the initialization file for unxlisp,
  3. ;     is read by unxlisp.exe upon boot-up, and
  4. ;     contains the definitions of all of the built-in
  5. ;     csubrs and cnsubrs.
  6. (global '=)      ; create /= symbol
  7. (mcdq sys)       ; create system command directory
  8. (mcdq cmd)       ; which is /sys/cmd
  9. ;
  10. ; define user csubrs & cnsubrs:
  11. (putd 'BLICS     '(csubr . 0x0))
  12. (global 'BLICS)
  13. (putd 'ALLOC     '(csubr . 0xF2F06B3))
  14. (global 'ALLOC)
  15. (putd 'AND     '(cnsubr . 0x1327000E))
  16. (global 'AND)
  17. (putd 'APPEND     '(csubr . 0x12600002))
  18. (global 'APPEND)
  19. (putd 'APPLY     '(csubr . 0x1327007E))
  20. (global 'APPLY)
  21. (putd 'ATOM     '(csubr . 0x12910006))
  22. (global 'ATOM)
  23. (putd 'BAKTRCE     '(csubr . 0x29600B5))
  24. (global 'BAKTRCE)
  25. (putd 'BAK_N     '(csubr . 0x296000F))
  26. (global 'BAK_N)
  27. (putd 'BLOCK     '(cnsubr . 0xB4200B9))
  28. (global 'BLOCK)
  29. (putd 'BOUNDP     '(csubr . 0x12910036))
  30. (global 'BOUNDP)
  31. (putd 'BREAK     '(csubr . 0xF60BA2))
  32. (global 'BREAK)
  33. (putd 'CAAAR     '(csubr . 0x11B10222))
  34. (global 'CAAAR)
  35. (putd 'CAADR     '(csubr . 0x11B1027F))
  36. (global 'CAADR)
  37. (putd 'CAAR     '(csubr . 0x11B100B8))
  38. (global 'CAAR)
  39. (putd 'CADAR     '(csubr . 0x11B102DC))
  40. (global 'CADAR)
  41. (putd 'CADDDR     '(csubr . 0x11B10507))
  42. (global 'CADDDR)
  43. (putd 'CADDR     '(csubr . 0x11B10336))
  44. (global 'CADDR)
  45. (putd 'CADR     '(csubr . 0x11B1016B))
  46. (global 'CADR)
  47. (putd 'CAR     '(csubr . 0x11B10004))
  48. (global 'CAR)
  49. (putd 'CATCH     '(cnsubr . 0x4320076))
  50. (global 'CATCH)
  51. (putd 'CD     '(csubr . 0x12070004))
  52. (global 'CD)
  53. (putd 'CDAAR     '(csubr . 0x11B10393))
  54. (global 'CDAAR)
  55. (putd 'CDADR     '(csubr . 0x11B103F0))
  56. (global 'CDADR)
  57. (putd 'CDAR     '(csubr . 0x11B10111))
  58. (global 'CDAR)
  59. (putd 'CDDAR     '(csubr . 0x11B1044D))
  60. (global 'CDDAR)
  61. (putd 'CDDDR     '(csubr . 0x11B104AA))
  62. (global 'CDDDR)
  63. (putd 'CDDR     '(csubr . 0x11B101C8))
  64. (global 'CDDR)
  65. (putd 'CDR     '(csubr . 0x11B1005E))
  66. (global 'CDR)
  67. (putd 'CLOSE     '(csubr . 0xFF50A98))
  68. (global 'CLOSE)
  69. (putd 'COND     '(cnsubr . 0xF60412))
  70. (global 'COND)
  71. (putd 'CONS     '(csubr . 0x1260013D))
  72. (global 'CONS)
  73. (putd 'CONSP     '(csubr . 0x12910070))
  74. (global 'CONSP)
  75. (putd 'COPY-LIST     '(csubr . 0x132701D9))
  76. (global 'COPY-LIST)
  77. (putd 'COPY-TREE     '(csubr . 0x132701F6))
  78. (global 'COPY-TREE)
  79. (putd 'DECLARE     '(cnsubr . 0xB420179))
  80. (global 'DECLARE)
  81. (putd 'DEF$     '(cnsubr . 0x13270213))
  82. (global 'DEF$)
  83. (putd 'DELETE     '(csubr . 0x1260010B))
  84. (global 'DELETE)
  85. (putd 'DIRP     '(csubr . 0x129100A8))
  86. (global 'DIRP)
  87. (putd 'DIV     '(csubr . 0x13270241))
  88. (global 'DIV)
  89. (putd '%     '(csubr . 0x1BF0C3F))
  90. (global '%)
  91. (putd 'EQ     '(csubr . 0x129100C9))
  92. (global 'EQ)
  93. (putd 'EQL     '(csubr . 0x12910104))
  94. (global 'EQL)
  95. (putd 'EQUAL     '(csubr . 0x12910136))
  96. (global 'EQUAL)
  97. (putd 'EVAL     '(csubr . 0x13270326))
  98. (global 'EVAL)
  99. (putd 'EVLIST     '(csubr . 0x132702C7))
  100. (global 'EVLIST)
  101. (putd 'EXIT     '(csubr . 0x132702E4))
  102. (global 'EXIT)
  103. (putd 'EXPLODE     '(csubr . 0x12C70009))
  104. (global 'EXPLODE)
  105. (putd 'FBOUNDP     '(csubr . 0x12910053))
  106. (global 'FBOUNDP)
  107. (putd 'FIXTOST     '(csubr . 0x10BE032E))
  108. (global 'FIXTOST)
  109. (putd 'FLATSIZE     '(csubr . 0x12600197))
  110. (global 'FLATSIZE)
  111. (putd 'FLOATP     '(csubr . 0x12910198))
  112. (global 'FLOATP)
  113. (putd 'FUNCALL     '(cnsubr . 0x13270343))
  114. (global 'FUNCALL)
  115. (putd 'GC     '(csubr . 0x5A50834))
  116. (global 'GC)
  117. (putd 'GENSTRING     '(csubr . 0x12C701C1))
  118. (global 'GENSTRING)
  119. (putd 'GET     '(csubr . 0xA160007))
  120. (global 'GET)
  121. (putd 'GETD     '(csubr . 0x132703A0))
  122. (global 'GETD)
  123. (putd 'SYMBOL-FUNCTION     '(csubr . 0x132703A0))
  124. (global 'SYMBOL-FUNCTION)
  125. (putd 'GETMODE     '(csubr . 0x120704BF))
  126. (global 'GETMODE)
  127. (putd 'GO     '(cnsubr . 0x4320241))
  128. (global 'GO)
  129. (putd '>     '(csubr . 0x1BF063A))
  130. (global '>)
  131. (putd '>=     '(csubr . 0x1BF0655))
  132. (global '>=)
  133. (putd 'IF     '(cnsubr . 0x13270429))
  134. (global 'IF)
  135. (putd 'IMPLODE-TO-STRING     '(csubr . 0x12C700EF))
  136. (global 'IMPLODE-TO-STRING)
  137. (putd 'INITAMP     '(csubr . 0x629072B))
  138. (global 'INITAMP)
  139. (putd 'INITKWD     '(csubr . 0x629018F))
  140. (global 'INITKWD)
  141. (putd 'INITSPL     '(csubr . 0x6290B8C))
  142. (global 'INITSPL)
  143. (putd 'INITTYP     '(csubr . 0x62907D3))
  144. (global 'INITTYP)
  145. (putd 'INTEGERP     '(csubr . 0x12910168))
  146. (global 'INTEGERP)
  147. (putd 'INTERNC     '(csubr . 0x12C702C2))
  148. (global 'INTERNC)
  149. (putd 'LAST     '(csubr . 0x126001BD))
  150. (global 'LAST)
  151. (putd 'LENGTH     '(csubr . 0x1260022B))
  152. (global 'LENGTH)
  153. (putd 'LET     '(cnsubr . 0xB420190))
  154. (global 'LET)
  155. (putd 'LET*     '(cnsubr . 0xB4201AA))
  156. (global 'LET*)
  157. (putd 'LIST     '(csubr . 0x1260020E))
  158. (global 'LIST)
  159. (putd 'LISTP     '(csubr . 0x129101F8))
  160. (global 'LISTP)
  161. (putd 'LN     '(csubr . 0x12070102))
  162. (global 'LN)
  163. (putd 'LOAD     '(csubr . 0x132704C6))
  164. (global 'LOAD)
  165. (putd 'LOADV     '(csubr . 0x132704E6))
  166. (global 'LOADV)
  167. (putd 'LOOP1     '(cnsubr . 0xB42017E))
  168. (global 'LOOP1)
  169. (putd 'LQ     '(cnsubr . 0x13270507))
  170. (global 'LQ)
  171. (putd '<     '(csubr . 0x1BF0604))
  172. (global '<)
  173. (putd '<=     '(csubr . 0x1BF061F))
  174. (global '<=)
  175. (putd 'MACXPND     '(csubr . 0xF60A51))
  176. (global 'MACXPND)
  177. (putd 'MAKE-SYMBOL     '(csubr . 0x12C702E9))
  178. (global 'MAKE-SYMBOL)
  179. (putd 'MAPC     '(csubr . 0x7A800CB))
  180. (global 'MAPC)
  181. (putd 'MAPCAN     '(csubr . 0x7A8006A))
  182. (global 'MAPCAN)
  183. (putd 'MAPCAR     '(csubr . 0x7A80007))
  184. (global 'MAPCAR)
  185. (putd 'MAPCON     '(csubr . 0x7A8009A))
  186. (global 'MAPCON)
  187. (putd 'MAPL     '(csubr . 0x7A8010D))
  188. (global 'MAPL)
  189. (putd 'MAPLIST     '(csubr . 0x7A80038))
  190. (global 'MAPLIST)
  191. (putd 'MCD     '(csubr . 0x12070193))
  192. (global 'MCD)
  193. (putd 'MD     '(csubr . 0x120701B0))
  194. (global 'MD)
  195. (putd 'MDQ     '(cnsubr . 0x120701EB))
  196. (global 'MDQ)
  197. (putd 'MEMBER     '(csubr . 0x12600258))
  198. (global 'MEMBER)
  199. (putd 'MEMBQ     '(csubr . 0x1260028A))
  200. (global 'MEMBQ)
  201. (putd 'MEMMAP     '(csubr . 0x7FD0C7F))
  202. (global 'MEMMAP)
  203. (putd 'MOD     '(csubr . 0x1327075A))
  204. (global 'MOD)
  205. (putd 'MULTIPLE-VALUE-BIND     '(cnsubr . 0xF6068F))
  206. (global 'MULTIPLE-VALUE-BIND)
  207. (putd 'MULTIPLE-VALUE-PROG1     '(cnsubr . 0xF606F2))
  208. (global 'MULTIPLE-VALUE-PROG1)
  209. (putd 'MULTIPLE-VALUE-SETQ     '(cnsubr . 0xF6077F))
  210. (global 'MULTIPLE-VALUE-SETQ)
  211. (putd 'MULTIPLE-VALUE-CALL     '(cnsubr . 0xF6058B))
  212. (global 'MULTIPLE-VALUE-CALL)
  213. (putd 'MULTIPLE-VALUE-LIST     '(cnsubr . 0xF60516))
  214. (global 'MULTIPLE-VALUE-LIST)
  215. (putd 'NCONC     '(csubr . 0x126002BC))
  216. (global 'NCONC)
  217. (putd 'NEQ     '(csubr . 0x1291027F))
  218. (global 'NEQ)
  219. (putd 'NULL     '(csubr . 0x129102AF))
  220. (global 'NULL)
  221. (putd 'NUMBERP     '(csubr . 0x129102DE))
  222. (global 'NUMBERP)
  223. (putd '=     '(csubr . 0x1BF05CF))
  224. (global '=)
  225. (putd '/=     '(csubr . 0x1BF05E9))
  226. (global '/=)
  227. (putd 'OPEN     '(csubr . 0xFF502FA))
  228. (global 'OPEN)
  229. (putd 'OR     '(cnsubr . 0x132707F1))
  230. (global 'OR)
  231. (putd 'PARENT     '(csubr . 0x1207005C))
  232. (global 'PARENT)
  233. (putd 'PATHLST     '(csubr . 0x12070080))
  234. (global 'PATHLST)
  235. (putd 'PATHNME     '(csubr . 0x120700C1))
  236. (global 'PATHNME)
  237. (putd 'PATHSTR     '(csubr . 0x12070021))
  238. (global 'PATHSTR)
  239. (putd 'PLIST     '(csubr . 0xA160581))
  240. (global 'PLIST)
  241. (putd 'SYMBOL-PLIST     '(csubr . 0xA160581))
  242. (global 'SYMBOL-PLIST)
  243. (putd 'POPPROP     '(csubr . 0xA160038))
  244. (global 'POPPROP)
  245. (putd 'PRIN1     '(csubr . 0xA7901ED))
  246. (global 'PRIN1)
  247. (putd 'PRINC     '(csubr . 0xA79021B))
  248. (global 'PRINC)
  249. (putd 'PRINT     '(csubr . 0xA7901BA))
  250. (global 'PRINT)
  251. (putd 'PRNTFLP     '(csubr . 0xA7904CF))
  252. (global 'PRNTFLP)
  253. (putd 'PROG1     '(cnsubr . 0xB420027))
  254. (global 'PROG1)
  255. (putd 'PROGN     '(cnsubr . 0xB42000F))
  256. (global 'PROGN)
  257. (putd 'PUSHPROP     '(csubr . 0xA16026D))
  258. (global 'PUSHPROP)
  259. (putd 'PTOSTR     '(csubr . 0xA79000B))
  260. (global 'PTOSTR)
  261. (putd 'PUTPROP     '(csubr . 0xA160069))
  262. (global 'PUTPROP)
  263. (putd 'READ     '(csubr . 0x13270963))
  264. (global 'READ)
  265. (putd 'REMOB     '(csubr . 0x12070208))
  266. (global 'REMOB)
  267. (putd 'REMOBQ     '(cnsubr . 0x12070208))
  268. (global 'REMOBQ)
  269. (putd 'RM     '(csubr . 0x12070208))
  270. (global 'RM)
  271. (putd 'RMQ     '(cnsubr . 0x12070208))
  272. (global 'RMQ)
  273. (putd 'REMPROP     '(csubr . 0xA1600B6))
  274. (global 'REMPROP)
  275. (putd 'RESTORE     '(csubr . 0x13270ADB))
  276. (global 'RESTORE)
  277. (putd 'RETURN     '(csubr . 0x432033C))
  278. (global 'RETURN)
  279. (putd 'REVERSE     '(csubr . 0x13270982))
  280. (global 'REVERSE)
  281. (putd 'RFRMSTR     '(csubr . 0xB910082))
  282. (global 'RFRMSTR)
  283. (putd 'RPLACA     '(csubr . 0x1327086B))
  284. (global 'RPLACA)
  285. (putd 'RPLACD     '(csubr . 0x132708E7))
  286. (global 'RPLACD)
  287. (putd 'SAVE     '(csubr . 0x1327099F))
  288. (global 'SAVE)
  289. (putd 'SET     '(csubr . 0x13270A33))
  290. (global 'SET)
  291. (putd 'SETMODE     '(csubr . 0x1207050C))
  292. (global 'SETMODE)
  293. (putd 'SETPLIST     '(csubr . 0xA1605C7))
  294. (global 'SETPLIST)
  295. (putd 'SETQ     '(cnsubr . 0x13270A65))
  296. (global 'SETQ)
  297. (putd 'SHELL     '(csubr . 0x13270B56))
  298. (global 'SHELL)
  299. (putd 'SRMDIR     '(csubr . 0x12070371))
  300. (global 'SRMDIR)
  301. (putd 'STATUS     '(csubr . 0xED20009))
  302. (global 'STATUS)
  303. (putd 'STRCAT     '(csubr . 0x12C70306))
  304. (global 'STRCAT)
  305. (putd 'STRCMP     '(csubr . 0x12C703EC))
  306. (global 'STRCMP)
  307. (putd 'STREQ     '(csubr . 0x12C703B4))
  308. (global 'STREQ)
  309. (putd 'STRINGP     '(csubr . 0x129101C8))
  310. (global 'STRINGP)
  311. (putd 'STRLEN     '(csubr . 0x12C70482))
  312. (global 'STRLEN)
  313. (putd 'STRXTRC     '(csubr . 0x12C70540))
  314. (global 'STRXTRC)
  315. (putd 'SYMBOLP     '(csubr . 0x129102FB))
  316. (global 'SYMBOLP)
  317. (putd 'SYMBOL-NAME     '(csubr . 0x12C704D3))
  318. (global 'SYMBOL-NAME)
  319. (putd 'SYSTRCE     '(csubr . 0xF601C7))
  320. (global 'SYSTRCE)
  321. (putd 'TAGBODY     '(cnsubr . 0xB42026D))
  322. (global 'TAGBODY)
  323. (putd 'TERPRI     '(csubr . 0x1327085C))
  324. (global 'TERPRI)
  325. (putd 'THROW     '(cnsubr . 0x432009A))
  326. (global 'THROW)
  327. (putd '*     '(csubr . 0x1BF0079))
  328. (global '*)
  329. (putd 'TRUE-LISTP     '(csubr . 0x12910252))
  330. (global 'TRUE-LISTP)
  331. (putd 'TYPE-OF     '(csubr . 0x11A60003))
  332. (global 'TYPE-OF)
  333. (putd 'UNPRINC     '(csubr . 0xA790152))
  334. (global 'UNPRINC)
  335. (putd 'UNPRINT     '(csubr . 0xA7900F5))
  336. (global 'UNPRINT)
  337. (putd 'VALUES-LIST     '(csubr . 0xF604FA))
  338. (global 'VALUES-LIST)
  339. (putd 'VALUES     '(csubr . 0xF60880))
  340. (global 'VALUES)
  341. (putd 'VARP     '(csubr . 0x1291032B))
  342. (global 'VARP)
  343. (putd 'ZEROP     '(csubr . 0x1291034C))
  344. (global 'ZEROP)
  345. (initspl)               ;initialize special symbols
  346. (cd $$)                 ;get back to /sys
  347. (/sys/cmd/mdq const)    ;create /sys/const
  348. (/sys/cmd/status 400 '(/sys/cmd /sys/const)); set rsp
  349. (cdq /sys/const)        ;get back into /sys/const
  350. (global 'conwidth 'conheight 'top_level_hook 'pp_hook 'smash_hook)
  351. (global 'break_hook 'control_c_hook 'eval_hook 'full_path_flag)
  352. (global 'dir_prefix_flag 'error_hook 'gc_verbosity 'float_format )
  353. (global 'comma_hook 'comma_at_hook 'error_label 'current_dir)
  354. (global 'break_level 'x_position 'y_position 'reader_search_path)
  355. (global 'back_quote_hook 'control_c_label 'pcount_flag)
  356. (global 'multiple-values-limit)
  357. (setq conwidth 80)      ;set console width to 80 chars
  358. (setq conheight 25)     ;set console height to 25 lines
  359. (setq multiple-values-limit 40) ;
  360. (setq top_level_hook  0)  ;top level vector
  361. (setq pp_hook         1)  ;pp_hook vector
  362. (setq smash_hook      2)  ;smash vector
  363. (setq break_hook      3)  ;break hook vector
  364. (setq eval_hook       4)  ;eval hook vector
  365. (setq full_path_flag  5)  ;full path vector
  366. (setq dir_prefix_flag 6)  ;dir prefix vector
  367. (setq error_hook      7)  ;error hook vector
  368. (setq gc_verbosity    8)  ;gc verbosity vector
  369. (setq control_c_hook  9)  ;^C vector
  370. (setq back_quote_hook 10) ;backquote vector
  371. (setq comma_hook      11) ;comma vector
  372. (setq comma_at_hook   12) ;comma at vector
  373. (setq error_label     13) ;error label vector
  374. (setq pcount_flag     14) ;paren counting flag
  375. (setq current_dir   100)  ;current dir vector
  376. (setq break_level   200)  ;break level vector
  377. (setq x_position    201)  ;x-position of cursor
  378. (setq y_position    202)  ;y-position of cursor
  379. (setq reader_search_path 400)  ;rsp vector
  380. (setq float_format  500)  ;floating format vector
  381. (/sys/cmd/mdq lambda-list-keywords)   ;make ampersand directory
  382. (cdq lambda-list-keywords)            ;change to it
  383. (initamp)               ;initialize ampersand symbols
  384. (cdq /)                 ;get back to root
  385. (mdq keyword)           ;make keyword directory
  386. (cdq keyword)           ;change to it
  387. (initkwd)               ;initialize keyword symbols
  388. (status reader_search_path
  389.   '(/sys/const/lambda-list-keywords /sys/cmd /sys/const)); set rsp
  390. (cdq /sys/const)            ;change to const directory.
  391. (setq type-size (inittyp))  ;initialize type property
  392. (cdq /)                     ;return to root
  393. (cdq /sys/cmd)              ;get back to /sys
  394. (putd 'not (getd 'null))    ;not & null are synonyms
  395. (global 'not 'def)
  396. (putd 'def '(nlambda (x y)
  397.   (progn
  398.     (putd x y)
  399.     x)))
  400. (load "bakquote.l")    ;load backquote macros
  401. (load "misc.l")        ;load miscellaneous functions
  402. (load "dirlib.l")      ;load directory functions
  403. (load "error.l")       ;load error handler
  404. (load "setf.l")        ;load SETF macros
  405. (load "fmtio.l")       ;load formatted i/o
  406. (load "debug.l")       ;load debugger
  407. (cdq /)                  ;get back to root
  408. (mcdq usr)               ;create /usr directory
  409. (mcdq login)             ;create /usr/login directory
  410. (fin)
  411.