![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ch6.r CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / lisplib / manual|
Return to ch6.r CVS log | Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / lisplib / manual |
1.1 ! root 1: ! 2: ! 3: ! 4: ! 5: ! 6: ! 7: ! 8: CHAPTER 6 ! 9: ! 10: ! 11: System Functions ! 12: ! 13: ! 14: ! 15: ! 16: This chapter describes the functions used to interact ! 17: with internal components of the Lisp system and operating ! 18: system. ! 19: ! 20: (allocate 's_type 'x_pages) ! 21: ! 22: WHERE: s_type is one of the FRANZ LISP data types ! 23: described in 1.3. ! 24: ! 25: RETURNS: x_pages. ! 26: ! 27: SIDE EFFECT: FRANZ LISP attempts to allocate x_pages of ! 28: type s_type. If there aren't x_pages of ! 29: memory left, no space will be allocated ! 30: and an error will occur. The storage that ! 31: is allocated is not given to the caller, ! 32: instead it is added to the free storage ! 33: list of s_type. The functions _s_e_g_m_e_n_t and ! 34: _s_m_a_l_l-_s_e_g_m_e_n_t allocate blocks of storage ! 35: and return it to the caller. ! 36: ! 37: (argv 'x_argnumb) ! 38: ! 39: RETURNS: a symbol whose pname is the x_argnumb_t_h argu- ! 40: ment (starting at 0) on the command line which ! 41: invoked the current lisp. ! 42: ! 43: NOTE: if x_argnumb is less than zero, a fixnum whose ! 44: value is the number of arguments on the command ! 45: line is returned. (_a_r_g_v _0) returns the name of ! 46: the lisp you are running. ! 47: ! 48: (baktrace) ! 49: ! 50: RETURNS: nil ! 51: ! 52: SIDE EFFECT: the lisp runtime stack is examined and the ! 53: name of (most) of the functions currently ! 54: in execution are printed, most active ! 55: first. ! 56: ! 57: NOTE: this will occasionally miss the names of compiled ! 58: lisp functions due to incomplete information on ! 59: the stack. If you are tracing compiled code, ! 60: then _b_a_k_t_r_a_c_e won't be able to interpret the ! 61: ! 62: ! 63: System Functions 6-1 ! 64: ! 65: ! 66: ! 67: ! 68: ! 69: ! 70: ! 71: System Functions 6-2 ! 72: ! 73: ! 74: stack unless (_s_s_t_a_t_u_s _t_r_a_n_s_l_i_n_k _n_i_l) was done. ! 75: See the function _s_h_o_w_s_t_a_c_k for another way of ! 76: printing the lisp runtime stack. ! 77: ! 78: (boundp 's_name) ! 79: ! 80: RETURNS: nil if s_name is unbound, that is it has ! 81: never be given a value. If x_name has the ! 82: value g_val, then (nil . g_val) is returned. ! 83: ! 84: (chdir 's_path) ! 85: ! 86: RETURNS: t iff the system call succeeds. ! 87: ! 88: SIDE EFFECT: the current directory set to s_path. Among ! 89: other things, this will affect the default ! 90: location where the input/output functions ! 91: look for and create files. ! 92: ! 93: NOTE: _c_h_d_i_r follows the standard UNIX conventions, if ! 94: s_path does not begin with a slash, the default ! 95: path is changed to the current path with s_path ! 96: appended. _C_h_d_i_r employs tilde-expansion (dis- ! 97: cussed in Chapter 5). ! 98: ! 99: (command-line-args) ! 100: ! 101: RETURNS: a list of the arguments typed on the command ! 102: line, either to the lisp interpreter, or saved ! 103: lisp dump, or application compiled with the ! 104: autorun option (liszt -r). ! 105: ! 106: (deref 'x_addr) ! 107: ! 108: RETURNS: The contents of x_addr, when thought of as a ! 109: longword memory location. ! 110: ! 111: NOTE: This may be useful in constructing arguments to C ! 112: functions out of `dangerous' areas of memory. ! 113: ! 114: (dumplisp s_name) ! 115: ! 116: RETURNS: nil ! 117: ! 118: SIDE EFFECT: the current lisp is dumped to the named ! 119: file. When s_name is executed, you will ! 120: be in a lisp in the same state as when the ! 121: dumplisp was done. ! 122: ! 123: NOTE: dumplisp will fail if one tries to write over the ! 124: current running file. UNIX does not allow you to ! 125: modify the file you are running. ! 126: 9 ! 127: ! 128: 9 Printed: August 5, 1983 ! 129: ! 130: ! 131: ! 132: ! 133: ! 134: ! 135: ! 136: System Functions 6-3 ! 137: ! 138: ! 139: (eval-when l_time g_exp1 ...) ! 140: ! 141: SIDE EFFECT: l_time may contain any combination of the ! 142: symbols _l_o_a_d, _e_v_a_l, and _c_o_m_p_i_l_e. The ! 143: effects of load and compile is discussed ! 144: in 12.3.2.1 compiler. If eval is present ! 145: however, this simply means that the ! 146: expressions g_exp1 and so on are evaluated ! 147: from left to right. If eval is not ! 148: present, the forms are not evaluated. ! 149: ! 150: (exit ['x_code]) ! 151: ! 152: RETURNS: nothing (it never returns). ! 153: ! 154: SIDE EFFECT: the lisp system dies with exit code x_code ! 155: or 0 if x_code is not specified. ! 156: ! 157: (fake 'x_addr) ! 158: ! 159: RETURNS: the lisp object at address x_addr. ! 160: ! 161: NOTE: This is intended to be used by people debugging ! 162: the lisp system. ! 163: ! 164: (fork) ! 165: ! 166: RETURNS: nil to the child process and the process ! 167: number of the child to the parent. ! 168: ! 169: SIDE EFFECT: A copy of the current lisp system is made ! 170: in memory and both lisp systems now begin ! 171: to run. This function can be used ! 172: interactively to temporarily save the ! 173: state of Lisp (as shown below), but you ! 174: must be careful that only one of the ! 175: lisp's interacts with the terminal after ! 176: the fork. The _w_a_i_t function is useful for ! 177: this. ! 178: ! 179: ! 180: ! 181: ! 182: ! 183: ! 184: ! 185: ! 186: ! 187: ! 188: ! 189: ! 190: ! 191: 9 ! 192: ! 193: 9 Printed: August 5, 1983 ! 194: ! 195: ! 196: ! 197: ! 198: ! 199: ! 200: ! 201: System Functions 6-4 ! 202: ! 203: ! 204: ! 205: ____________________________________________________ ! 206: ! 207: -> (_s_e_t_q _f_o_o '_b_a_r) ;; set a variable ! 208: bar ! 209: -> (_c_o_n_d ((_f_o_r_k)(_w_a_i_t))) ;; duplicate the lisp system and ! 210: nil ;; make the parent wait ! 211: -> _f_o_o ;; check the value of the variable ! 212: bar ! 213: -> (_s_e_t_q _f_o_o '_b_a_z) ;; give it a new value ! 214: baz ! 215: -> _f_o_o ;; make sure it worked ! 216: baz ! 217: -> (_e_x_i_t) ;; exit the child ! 218: (5274 . 0) ;; the _w_a_i_t function returns this ! 219: -> _f_o_o ;; we check to make sure parent was ! 220: bar ;; not modified. ! 221: ____________________________________________________ ! 222: ! 223: ! 224: ! 225: ! 226: (gc) ! 227: ! 228: RETURNS: nil ! 229: ! 230: SIDE EFFECT: this causes a garbage collection. ! 231: ! 232: NOTE: The function _g_c_a_f_t_e_r is not called automatically ! 233: after this function finishes. Normally the user ! 234: doesn't have to call _g_c since garbage collection ! 235: occurs automatically whenever internal free lists ! 236: are exhausted. ! 237: ! 238: (gcafter s_type) ! 239: ! 240: WHERE: s_type is one of the FRANZ LISP data types ! 241: listed in 1.3. ! 242: ! 243: NOTE: this function is called by the garbage collector ! 244: after a garbage collection which was caused by ! 245: running out of data type s_type. This function ! 246: should determine if more space need be allocated ! 247: and if so should allocate it. There is a default ! 248: gcafter function but users who want control over ! 249: space allocation can define their own -- but note ! 250: that it must be an nlambda. ! 251: ! 252: ! 253: ! 254: ! 255: ! 256: 9 ! 257: ! 258: 9 Printed: August 5, 1983 ! 259: ! 260: ! 261: ! 262: ! 263: ! 264: ! 265: ! 266: System Functions 6-5 ! 267: ! 268: ! 269: (getenv 's_name) ! 270: ! 271: RETURNS: a symbol whose pname is the value of s_name in ! 272: the current UNIX environment. If s_name ! 273: doesn't exist in the current environment, a ! 274: symbol with a null pname is returned. ! 275: ! 276: (hashtabstat) ! 277: ! 278: RETURNS: a list of fixnums representing the number of ! 279: symbols in each bucket of the oblist. ! 280: ! 281: NOTE: the oblist is stored a hash table of buckets. ! 282: Ideally there would be the same number of symbols ! 283: in each bucket. ! 284: ! 285: (help [sx_arg]) ! 286: ! 287: SIDE EFFECT: If sx_arg is a symbol then the portion of ! 288: this manual beginning with the description ! 289: of sx_arg is printed on the terminal. If ! 290: sx_arg is a fixnum or the name of one of ! 291: the appendicies, that chapter or appendix ! 292: is printed on the terminal. If no argu- ! 293: ment is provided, _h_e_l_p prints the options ! 294: that it recognizes. The program `more' is ! 295: used to print the manual on the terminal; ! 296: it will stop after each page and will con- ! 297: tinue after the space key is pressed. ! 298: ! 299: (include s_filename) ! 300: ! 301: RETURNS: nil ! 302: ! 303: SIDE EFFECT: The given filename is _l_o_a_ded into the ! 304: lisp. ! 305: ! 306: NOTE: this is similar to load except the argument is ! 307: not evaluated. Include means something special ! 308: to the compiler. ! 309: ! 310: (include-if 'g_predicate s_filename) ! 311: ! 312: RETURNS: nil ! 313: ! 314: SIDE EFFECT: This has the same effect as include, but ! 315: is only actuated if the predicate is non- ! 316: nil. ! 317: ! 318: ! 319: ! 320: ! 321: 9 ! 322: ! 323: 9 Printed: August 5, 1983 ! 324: ! 325: ! 326: ! 327: ! 328: ! 329: ! 330: ! 331: System Functions 6-6 ! 332: ! 333: ! 334: (includef 's_filename) ! 335: ! 336: RETURNS: nil ! 337: ! 338: SIDE EFFECT: this is the same as _i_n_c_l_u_d_e except the ! 339: argument is evaluated. ! 340: ! 341: (includef-if 'g_predicate s_filename) ! 342: ! 343: RETURNS: nil ! 344: ! 345: SIDE EFFECT: This has the same effect as includef, but ! 346: is only actuated if the predicate is non- ! 347: nil. ! 348: ! 349: (maknum 'g_arg) ! 350: ! 351: RETURNS: the address of its argument converted into a ! 352: fixnum. ! 353: ! 354: (monitor ['xs_maxaddr]) ! 355: ! 356: RETURNS: t ! 357: ! 358: SIDE EFFECT: If xs_maxaddr is t then profiling of the ! 359: entire lisp system is begun. If ! 360: xs_maxaddr is a fixnum then profiling is ! 361: done only up to address xs_maxaddr. If ! 362: xs_maxaddr is not given, then profiling is ! 363: stopped and the data obtained is written ! 364: to the file 'mon.out' where it can be ! 365: analyzed with the UNIX 'prof' program. ! 366: ! 367: NOTE: this function only works if the lisp system has ! 368: been compiled in a special way, otherwise, an ! 369: error is invoked. ! 370: ! 371: (opval 's_arg ['g_newval]) ! 372: ! 373: RETURNS: the value associated with s_arg before the ! 374: call. ! 375: ! 376: SIDE EFFECT: If g_newval is specified, the value asso- ! 377: ciated with s_arg is changed to g_newval. ! 378: ! 379: NOTE: _o_p_v_a_l keeps track of storage allocation. If s_arg ! 380: is one of the data types then _o_p_v_a_l will return a ! 381: list of three fixnums representing the number of ! 382: items of that type in use, the number of pages ! 383: allocated and the number of items of that type ! 384: per page. You should never try to change the ! 385: value _o_p_v_a_l associates with a data type using ! 386: _o_p_v_a_l. ! 387: ! 388: ! 389: Printed: August 5, 1983 ! 390: ! 391: ! 392: ! 393: ! 394: ! 395: ! 396: ! 397: System Functions 6-7 ! 398: ! 399: ! 400: If s_arg is _p_a_g_e_l_i_m_i_t then _o_p_v_a_l will return (and ! 401: set if g_newval is given) the maximum amount of ! 402: lisp data pages it will allocate. This limit ! 403: should remain small unless you know your program ! 404: requires lots of space as this limit will catch ! 405: programs in infinite loops which gobble up ! 406: memory. ! 407: ! 408: (*process 'st_command ['g_readp ['g_writep]]) ! 409: ! 410: RETURNS: either a fixnum if one argument is given, or a ! 411: list of two ports and a fixnum if two or three ! 412: arguments are given. ! 413: ! 414: NOTE: *_p_r_o_c_e_s_s starts another process by passing ! 415: st_command to the shell (it first tries /bin/csh, ! 416: then it tries /bin/sh if /bin/csh doesn't exist). ! 417: If only one argument is given to *_p_r_o_c_e_s_s, *_p_r_o_- ! 418: _c_e_s_s waits for the new process to die and then ! 419: returns the exit code of the new process. If ! 420: more two or three arguments are given, *_p_r_o_c_e_s_s ! 421: starts the process and then returns a list which, ! 422: depending on the value of g_readp and g_writep, ! 423: may contain i/o ports for communcating with the ! 424: new process. If g_writep is non-null, then a ! 425: port will be created which the lisp program can ! 426: use to send characters to the new process. If ! 427: g_readp is non-null, then a port will be created ! 428: which the lisp program can use to read characters ! 429: from the new process. The value returned by ! 430: *_p_r_o_c_e_s_s is (readport writeport pid) where read- ! 431: port and writeport are either nil or a port based ! 432: on the value of g_readp and g_writep. Pid is the ! 433: process id of the new process. Since it is hard ! 434: to remember the order of g_readp and g_writep, ! 435: the functions *_p_r_o_c_e_s_s-_s_e_n_d and *_p_r_o_c_e_s_s-_r_e_c_e_i_v_e ! 436: were written to perform the common functions. ! 437: ! 438: (*process-receive 'st_command) ! 439: ! 440: RETURNS: a port which can be read. ! 441: ! 442: SIDE EFFECT: The command st_command is given to the ! 443: shell and it is started running in the ! 444: background. The output of that command is ! 445: available for reading via the port ! 446: returned. The input of the command pro- ! 447: cess is set to /dev/null. ! 448: ! 449: ! 450: ! 451: ! 452: 9 ! 453: ! 454: 9 Printed: August 5, 1983 ! 455: ! 456: ! 457: ! 458: ! 459: ! 460: ! 461: ! 462: System Functions 6-8 ! 463: ! 464: ! 465: (*process-send 'st_command) ! 466: ! 467: RETURNS: a port which can be written to. ! 468: ! 469: SIDE EFFECT: The command st_command is given to the ! 470: shell and it is started runing in the ! 471: background. The lisp program can provide ! 472: input for that command by sending charac- ! 473: ters to the port returned by this func- ! 474: tion. The output of the command process ! 475: is set to /dev/null. ! 476: ! 477: (process s_pgrm [s_frompipe s_topipe]) ! 478: ! 479: RETURNS: if the optional arguments are not present a ! 480: fixnum which is the exit code when s_prgm ! 481: dies. If the optional arguments are present, ! 482: it returns a fixnum which is the process id of ! 483: the child. ! 484: ! 485: NOTE: This command is obsolete. New programs should ! 486: use one of the *_p_r_o_c_e_s_s commands given above. ! 487: ! 488: SIDE EFFECT: If s_frompipe and s_topipe are given, they ! 489: are bound to ports which are pipes which ! 490: direct characters from FRANZ LISP to the ! 491: new process and to FRANZ LISP from the new ! 492: process respectively. _P_r_o_c_e_s_s forks a ! 493: process named s_prgm and waits for it to ! 494: die iff there are no pipe arguments given. ! 495: ! 496: (ptime) ! 497: ! 498: RETURNS: a list of two elements, the first is the ! 499: amount of processor time used by the lisp sys- ! 500: tem so far, the second is the amount of time ! 501: used by the garbage collector so far. ! 502: ! 503: NOTE: the time is measured in those units used by the ! 504: _t_i_m_e_s(2) system call, usually 60_t_hs of a second. ! 505: The first number includes the second number. The ! 506: amount of time used by garbage collection is not ! 507: recorded until the first call to ptime. This is ! 508: done to prevent overhead when the user is not ! 509: interested in garbage collection times. ! 510: ! 511: ! 512: ! 513: ! 514: ! 515: ! 516: ! 517: 9 ! 518: ! 519: 9 Printed: August 5, 1983 ! 520: ! 521: ! 522: ! 523: ! 524: ! 525: ! 526: ! 527: System Functions 6-9 ! 528: ! 529: ! 530: (reset) ! 531: ! 532: SIDE EFFECT: the lisp runtime stack is cleared and the ! 533: system restarts at the top level by exe- ! 534: cuting a (_f_u_n_c_a_l_l _t_o_p-_l_e_v_e_l _n_i_l). ! 535: ! 536: (restorelisp 's_name) ! 537: ! 538: SIDE EFFECT: this reads in file s_name (which was ! 539: created by _s_a_v_e_l_i_s_p) and then does a ! 540: (_r_e_s_e_t). ! 541: ! 542: NOTE: This is only used on VMS systems where _d_u_m_p_l_i_s_p ! 543: cannot be used. ! 544: ! 545: (retbrk ['x_level]) ! 546: ! 547: WHERE: x_level is a small integer of either sign. ! 548: ! 549: SIDE EFFECT: The default error handler keeps a notion ! 550: of the current level of the error caught. ! 551: If x_level is negative, control is thrown ! 552: to this default error handler whose level ! 553: is that many less than the present, or to ! 554: _t_o_p-_l_e_v_e_l if there aren't enough. If ! 555: x_level is non-negative, control is passed ! 556: to the handler at that level. If x_level ! 557: is not present, the value -1 is taken by ! 558: default. ! 559: ! 560: (*rset 'g_flag) ! 561: ! 562: RETURNS: g_flag ! 563: ! 564: SIDE EFFECT: If g_flag is non nil then the lisp system ! 565: will maintain extra information about ! 566: calls to _e_v_a_l and _f_u_n_c_a_l_l. This record ! 567: keeping slows down the evaluation but this ! 568: is required for the functions _e_v_a_l_h_o_o_k, ! 569: _f_u_n_c_a_l_l_h_o_o_k, and _e_v_a_l_f_r_a_m_e to work. To ! 570: debug compiled lisp code the transfer ! 571: tables should be unlinked: ! 572: (_s_s_t_a_t_u_s _t_r_a_n_s_l_i_n_k _n_i_l) ! 573: ! 574: ! 575: ! 576: ! 577: ! 578: ! 579: ! 580: ! 581: ! 582: 9 ! 583: ! 584: 9 Printed: August 5, 1983 ! 585: ! 586: ! 587: ! 588: ! 589: ! 590: ! 591: ! 592: System Functions 6-10 ! 593: ! 594: ! 595: (savelisp 's_name) ! 596: ! 597: RETURNS: t ! 598: ! 599: SIDE EFFECT: the state of the Lisp system is saved in ! 600: the file s_name. It can be read in by ! 601: _r_e_s_t_o_r_e_l_i_s_p. ! 602: ! 603: NOTE: This is only used on VMS systems where _d_u_m_p_l_i_s_p ! 604: cannot be used. ! 605: ! 606: (segment 's_type 'x_size) ! 607: ! 608: WHERE: s_type is one of the data types given in 1.3 ! 609: ! 610: RETURNS: a segment of contiguous lispvals of type ! 611: s_type. ! 612: ! 613: NOTE: In reality, _s_e_g_m_e_n_t returns a new data cell of ! 614: type s_type and allocates space for x_size - 1 ! 615: more s_type's beyond the one returned. _S_e_g_m_e_n_t ! 616: always allocates new space and does so in 512 ! 617: byte chunks. If you ask for 2 fixnums, segment ! 618: will actually allocate 128 of them thus wasting ! 619: 126 fixnums. The function _s_m_a_l_l-_s_e_g_m_e_n_t is a ! 620: smarter space allocator and should be used when- ! 621: ever possible. ! 622: ! 623: (shell) ! 624: ! 625: RETURNS: the exit code of the shell when it dies. ! 626: ! 627: SIDE EFFECT: this forks a new shell and returns when ! 628: the shell dies. ! 629: ! 630: (showstack) ! 631: ! 632: RETURNS: nil ! 633: ! 634: SIDE EFFECT: all forms currently in evaluation are ! 635: printed, beginning with the most recent. ! 636: For compiled code the most that showstack ! 637: will show is the function name and it may ! 638: miss some functions. ! 639: ! 640: ! 641: ! 642: ! 643: ! 644: ! 645: ! 646: ! 647: 9 ! 648: ! 649: 9 Printed: August 5, 1983 ! 650: ! 651: ! 652: ! 653: ! 654: ! 655: ! 656: ! 657: System Functions 6-11 ! 658: ! 659: ! 660: (signal 'x_signum 's_name) ! 661: ! 662: RETURNS: nil if no previous call to signal has been ! 663: made, or the previously installed s_name. ! 664: ! 665: SIDE EFFECT: this declares that the function named ! 666: s_name will handle the signal number ! 667: x_signum. If s_name is nil, the signal is ! 668: ignored. Presently only four UNIX signals ! 669: are caught, they and their numbers are: ! 670: Interrupt(2), Floating exception(8), ! 671: Alarm(14), and Hang-up(1). ! 672: ! 673: (sizeof 'g_arg) ! 674: ! 675: RETURNS: the number of bytes required to store one ! 676: object of type g_arg, encoded as a fixnum. ! 677: ! 678: (small-segment 's_type 'x_cells) ! 679: ! 680: WHERE: s_type is one of fixnum, flonum and value. ! 681: ! 682: RETURNS: a segment of x_cells data objects of type ! 683: s_type. ! 684: ! 685: SIDE EFFECT: This may call _s_e_g_m_e_n_t to allocate new ! 686: space or it may be able to fill the ! 687: request on a page already allocated. The ! 688: value returned by _s_m_a_l_l-_s_e_g_m_e_n_t is usually ! 689: stored in the data subpart of an array ! 690: object. ! 691: ! 692: (sstatus g_type g_val) ! 693: ! 694: RETURNS: g_val ! 695: ! 696: SIDE EFFECT: If g_type is not one of the special ! 697: sstatus codes described in the next few ! 698: pages this simply sets g_val as the value ! 699: of status type g_type in the system status ! 700: property list. ! 701: ! 702: ! 703: ! 704: ! 705: ! 706: ! 707: ! 708: ! 709: ! 710: ! 711: ! 712: 9 ! 713: ! 714: 9 Printed: August 5, 1983 ! 715: ! 716: ! 717: ! 718: ! 719: ! 720: ! 721: ! 722: System Functions 6-12 ! 723: ! 724: ! 725: (sstatus appendmap g_val) ! 726: ! 727: RETURNS: g_val ! 728: ! 729: SIDE EFFECT: If g_val is non-null when _f_a_s_l is told to ! 730: create a load map, it will append to the ! 731: file name given in the _f_a_s_l command, ! 732: rather than creating a new map file. The ! 733: initial value is nil. ! 734: ! 735: (sstatus automatic-reset g_val) ! 736: ! 737: RETURNS: g_val ! 738: ! 739: SIDE EFFECT: If g_val is non-null when an error occurs ! 740: which no one wants to handle, a _r_e_s_e_t will ! 741: be done instead of entering a primitive ! 742: internal break loop. The initial value is ! 743: t. ! 744: ! 745: (sstatus chainatom g_val) ! 746: ! 747: RETURNS: g_val ! 748: ! 749: SIDE EFFECT: If g_val is non nil and a _c_a_r or _c_d_r of a ! 750: symbol is done, then nil will be returned ! 751: instead of an error being signaled. This ! 752: only affects the interpreter, not the com- ! 753: piler. The initial value is nil. ! 754: ! 755: (sstatus dumpcore g_val) ! 756: ! 757: RETURNS: g_val ! 758: ! 759: SIDE EFFECT: If g_val is nil, FRANZ LISP tells UNIX ! 760: that a segmentation violation or bus error ! 761: should cause a core dump. If g_val is non ! 762: nil then FRANZ LISP will catch those ! 763: errors and print a message advising the ! 764: user to reset. ! 765: ! 766: NOTE: The initial value for this flag is nil, and only ! 767: those knowledgeable of the innards of the lisp ! 768: system should ever set this flag non nil. ! 769: ! 770: ! 771: ! 772: ! 773: ! 774: ! 775: ! 776: ! 777: 9 ! 778: ! 779: 9 Printed: August 5, 1983 ! 780: ! 781: ! 782: ! 783: ! 784: ! 785: ! 786: ! 787: System Functions 6-13 ! 788: ! 789: ! 790: (sstatus dumpmode x_val) ! 791: ! 792: RETURNS: x_val ! 793: ! 794: SIDE EFFECT: All subsequent _d_u_m_p_l_i_s_p's will be done in ! 795: mode x_val. x_val may be either 413 or ! 796: 410 (decimal). ! 797: ! 798: NOTE: the advantage of mode 413 is that the dumped Lisp ! 799: can be demand paged in when first started, which ! 800: will make it start faster and disrupt other users ! 801: less. The initial value is 413. ! 802: ! 803: (sstatus evalhook g_val) ! 804: ! 805: RETURNS: g_val ! 806: ! 807: SIDE EFFECT: When g_val is non nil, this enables the ! 808: evalhook and funcallhook traps in the ! 809: evaluator. See 14.4 for more details. ! 810: ! 811: (sstatus feature g_val) ! 812: ! 813: RETURNS: g_val ! 814: ! 815: SIDE EFFECT: g_val is added to the (_s_t_a_t_u_s _f_e_a_t_u_r_e_s) ! 816: list, ! 817: ! 818: (sstatus gcstrings g_val) ! 819: ! 820: RETURNS: g_val ! 821: ! 822: SIDE EFFECT: if g_val is non-null, and if string gar- ! 823: bage collection was enabled when the lisp ! 824: system was compiled, string space will be ! 825: garbage collected. ! 826: ! 827: NOTE: the default value for this is nil since in most ! 828: applications garbage collecting strings is a ! 829: waste of time. ! 830: ! 831: (sstatus ignoreeof g_val) ! 832: ! 833: RETURNS: g_val ! 834: ! 835: SIDE EFFECT: If g_val is non-null when an end of file ! 836: (CNTL-D on UNIX) is typed to the standard ! 837: top-level interpreter, it will be ignored ! 838: rather then cause the lisp system to exit. ! 839: If the the standard input is a file or ! 840: pipe then this has no effect, an EOF will ! 841: always cause lisp to exit. The initial ! 842: value is nil. ! 843: ! 844: ! 845: Printed: August 5, 1983 ! 846: ! 847: ! 848: ! 849: ! 850: ! 851: ! 852: ! 853: System Functions 6-14 ! 854: ! 855: ! 856: (sstatus nofeature g_val) ! 857: ! 858: RETURNS: g_val ! 859: ! 860: SIDE EFFECT: g_val is removed from the status features ! 861: list if it was present. ! 862: ! 863: (sstatus translink g_val) ! 864: ! 865: RETURNS: g_val ! 866: ! 867: SIDE EFFECT: If g_val is nil then all transfer tables ! 868: are cleared and further calls through the ! 869: transfer table will not cause the fast ! 870: links to be set up. If g_val is the sym- ! 871: bol _o_n then all possible transfer table ! 872: entries will be linked and the flag will ! 873: be set to cause fast links to be set up ! 874: dynamically. Otherwise all that is done ! 875: is to set the flag to cause fast links to ! 876: be set up dynamically. The initial value ! 877: is nil. ! 878: ! 879: NOTE: For a discussion of transfer tables, see 12.8. ! 880: ! 881: (sstatus uctolc g_val) ! 882: ! 883: RETURNS: g_val ! 884: ! 885: SIDE EFFECT: If g_val is not nil then all unescaped ! 886: capital letters in symbols read by the ! 887: reader will be converted to lower case. ! 888: ! 889: NOTE: This allows FRANZ LISP to be compatible with sin- ! 890: gle case lisp systems (e.g. Maclisp, Interlisp ! 891: and UCILisp). ! 892: ! 893: (status g_code) ! 894: ! 895: RETURNS: the value associated with the status code ! 896: g_code if g_code is not one of the special ! 897: cases given below ! 898: ! 899: ! 900: ! 901: ! 902: ! 903: ! 904: ! 905: ! 906: ! 907: ! 908: 9 ! 909: ! 910: 9 Printed: August 5, 1983 ! 911: ! 912: ! 913: ! 914: ! 915: ! 916: ! 917: ! 918: System Functions 6-15 ! 919: ! 920: ! 921: (status ctime) ! 922: ! 923: RETURNS: a symbol whose print name is the current time ! 924: and date. ! 925: ! 926: EXAMPLE: (_s_t_a_t_u_s _c_t_i_m_e) = |Sun Jun 29 16:51:26 1980| ! 927: ! 928: NOTE: This has been made obsolete by _t_i_m_e-_s_t_r_i_n_g, ! 929: described below. ! 930: ! 931: (status feature g_val) ! 932: ! 933: RETURNS: t iff g_val is in the status features list. ! 934: ! 935: (status features) ! 936: ! 937: RETURNS: the value of the features code, which is a ! 938: list of features which are present in this ! 939: system. You add to this list with ! 940: (_s_s_t_a_t_u_s _f_e_a_t_u_r_e '_g__v_a_l) and test if feature ! 941: g_feat is present with ! 942: (_s_t_a_t_u_s _f_e_a_t_u_r_e '_g__f_e_a_t). ! 943: ! 944: (status isatty) ! 945: ! 946: RETURNS: t iff the standard input is a terminal. ! 947: ! 948: (status localtime) ! 949: ! 950: RETURNS: a list of fixnums representing the current ! 951: time. ! 952: ! 953: EXAMPLE: (_s_t_a_t_u_s _l_o_c_a_l_t_i_m_e) = (3 51 13 31 6 81 5 211 ! 954: 1) ! 955: means 3_r_d second, 51_s_t minute, 13_t_h hour (1 ! 956: p.m), 31_s_t day, month 6 (0 = January), year 81 ! 957: (0 = 1900), day of the week 5 (0 = Sunday), ! 958: 211_t_h day of the year and daylight savings ! 959: time is in effect. ! 960: ! 961: (status syntax s_char) ! 962: ! 963: NOTE: This function should not be used. See the ! 964: description of _g_e_t_s_y_n_t_a_x (in Chapter 7) for a ! 965: replacement. ! 966: ! 967: ! 968: ! 969: ! 970: ! 971: ! 972: ! 973: 9 ! 974: ! 975: 9 Printed: August 5, 1983 ! 976: ! 977: ! 978: ! 979: ! 980: ! 981: ! 982: ! 983: System Functions 6-16 ! 984: ! 985: ! 986: (status undeffunc) ! 987: ! 988: RETURNS: a list of all functions which transfer table ! 989: entries point to but which are not defined at ! 990: this point. ! 991: ! 992: NOTE: Some of the undefined functions listed could be ! 993: arrays which have yet to be created. ! 994: ! 995: (status version) ! 996: ! 997: RETURNS: a string which is the current lisp version ! 998: name. ! 999: ! 1000: EXAMPLE: (_s_t_a_t_u_s _v_e_r_s_i_o_n) = "Franz Lisp, Opus 38.61" ! 1001: ! 1002: (syscall 'x_index ['xst_arg1 ...]) ! 1003: ! 1004: RETURNS: the result of issuing the UNIX system call ! 1005: number x_index with arguments xst_arg_i. ! 1006: ! 1007: NOTE: The UNIX system calls are described in section 2 ! 1008: of the UNIX Programmer's manual. If xst_arg_i is a ! 1009: fixnum, then its value is passed as an argument, ! 1010: if it is a symbol then its pname is passed and ! 1011: finally if it is a string then the string itself ! 1012: is passed as an argument. Some useful syscalls ! 1013: are: ! 1014: (_s_y_s_c_a_l_l _2_0) returns process id. ! 1015: (_s_y_s_c_a_l_l _1_3) returns the number of seconds since ! 1016: Jan 1, 1970. ! 1017: (_s_y_s_c_a_l_l _1_0 '_f_o_o) will unlink (delete) the file ! 1018: foo. ! 1019: ! 1020: (sys:access 'st_filename 'x_mode) ! 1021: (sys:chmod 'st_filename 'x_mode) ! 1022: (sys:gethostname) ! 1023: (sys:getpid) ! 1024: (sys:getpwnam 'st_username) ! 1025: (sys:link 'st_oldfilename 'st_newfilename) ! 1026: (sys:time) ! 1027: (sys:unlink 'st_filename) ! 1028: ! 1029: NOTE: We have been warned that the actual system call ! 1030: numbers may vary among different UNIX systems. ! 1031: Users concerned about portability may wish to use ! 1032: this group of functions. Another advantage is ! 1033: that tilde-expansion is performed on all filename ! 1034: arguments. These functions do what is described ! 1035: in the system call section of your UNIX manual. ! 1036: ! 1037: _s_y_s:_g_e_t_p_w_n_a_m_e returns a vector of four entries ! 1038: from the password file, being the user name, user ! 1039: ! 1040: ! 1041: Printed: August 5, 1983 ! 1042: ! 1043: ! 1044: ! 1045: ! 1046: ! 1047: ! 1048: ! 1049: System Functions 6-17 ! 1050: ! 1051: ! 1052: id, group id, and home directory. ! 1053: ! 1054: (time-string ['x_seconds]) ! 1055: ! 1056: RETURNS: an ascii string, giving the time and date ! 1057: which was x_seconds after UNIX's idea of crea- ! 1058: tion (Midnight, Jan 1, 1970 GMT). If no argu- ! 1059: ment is given, time-string returns the current ! 1060: date. This supplants (_s_t_a_t_u_s _c_t_i_m_e), and may ! 1061: be used to make the results of _f_i_l_e_s_t_a_t more ! 1062: intelligible. ! 1063: ! 1064: (top-level) ! 1065: ! 1066: RETURNS: nothing (it never returns) ! 1067: ! 1068: NOTE: This function is the top-level read-eval-print ! 1069: loop. It never returns any value. Its main ! 1070: utility is that if you redefine it, and do a ! 1071: (reset) then the redefined (top-level) is then ! 1072: invoked. The default top-level for Franz, allow ! 1073: one to specify his own printer or reader, by ! 1074: binding the symbols top-level-printer and top- ! 1075: level-reader. One can let the default top-level ! 1076: do most of the drudgery in catching _r_e_s_e_t's, and ! 1077: reading in .lisprc files, by binding the symbol ! 1078: user-top-level, to a routine that concerns itself ! 1079: only with the read-eval-print loop. ! 1080: ! 1081: (wait) ! 1082: ! 1083: RETURNS: a dotted pair (_p_r_o_c_e_s_s_i_d . _s_t_a_t_u_s) when the ! 1084: next child process dies. ! 1085: ! 1086: ! 1087: ! 1088: ! 1089: ! 1090: ! 1091: ! 1092: ! 1093: ! 1094: ! 1095: ! 1096: ! 1097: ! 1098: ! 1099: ! 1100: ! 1101: ! 1102: ! 1103: ! 1104: 9 ! 1105: ! 1106: 9 Printed: August 5, 1983 ! 1107: ! 1108: ! 1109:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.