![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ch5.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 ch5.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 5 ! 9: ! 10: ! 11: Input/Output ! 12: ! 13: ! 14: ! 15: ! 16: The following functions are used to read from and write ! 17: to external devices (e.g. files) and programs (through ! 18: pipes). All I/O goes through the lisp data type called the ! 19: port. A port may be open for either reading or writing, but ! 20: usually not both simultaneously (see _f_i_l_e_o_p_e_n ). There are ! 21: only a limited number of ports (20) and they will not be ! 22: reclaimed unless they are _c_l_o_s_ed. All ports are reclaimed ! 23: by a _r_e_s_e_t_i_o call, but this drastic step won't be necessary ! 24: if the program closes what it uses. ! 25: ! 26: If a port argument is not supplied to a function which ! 27: requires one or if a bad port argument (such as nil) is ! 28: given, then FRANZ LISP will use the default port according ! 29: to this scheme: If input is being done then the default port ! 30: is the value of the symbol piport and if output is being ! 31: done then the default port is the value of the symbol ! 32: poport. Furthermore, if the value of piport or poport is ! 33: not a valid port, then the standard input or standard output ! 34: will be used, respectively. ! 35: ! 36: The standard input and standard output are usually the ! 37: keyboard and terminal display unless your job is running in ! 38: the background and its input or output is connected to a ! 39: pipe. All output which goes to the standard output will ! 40: also go to the port ptport if it is a valid port. Output ! 41: destined for the standard output will not reach the standard ! 42: output if the symbol ^w is non nil (although it will still ! 43: go to ptport if ptport is a valid port). ! 44: ! 45: Some of the functions listed below reference files ! 46: directly. FRANZ LISP has borrowed a convenient shorthand ! 47: notation from /_b_i_n/_c_s_h, concerning naming files. If a file ! 48: name begins with ~ (tilde), and the symbol tilde-expansion ! 49: ! 50: is bound to something other than nil, then FRANZ LISP ! 51: expands the file name. It takes the string of characters ! 52: between the leading tilde, and the first slash as a user- ! 53: name. Then, that initial segment of the filename is ! 54: replaced by the home directory of the user. The null user- ! 55: name is taken to be the current user. ! 56: ! 57: Having gone to the effort of searching the password ! 58: file, FRANZ LISP remembers the user directory, in case it ! 59: gets asked to do so again. Tilde-expansion is performed in ! 60: the following functions: _c_f_a_s_l, _c_h_d_i_r, _f_a_s_l, _f_f_a_s_l, ! 61: ! 62: ! 63: Input/Output 5-1 ! 64: ! 65: ! 66: ! 67: ! 68: ! 69: ! 70: ! 71: Input/Output 5-2 ! 72: ! 73: ! 74: _f_i_l_e_o_p_e_n, _i_n_f_i_l_e, _l_o_a_d, _o_u_t_f_i_l_e, _p_r_o_b_e_f, _s_y_s:_a_c_c_e_s_s, ! 75: _s_y_s:_u_n_l_i_n_k. ! 76: ! 77: (cfasl 'st_file 'st_entry 'st_funcname ['st_disc ! 78: ['st_library]]) ! 79: ! 80: RETURNS: t ! 81: ! 82: SIDE EFFECT: This is used to load in a foreign function ! 83: (see 8.4). The object file st_file is ! 84: loaded into the lisp system. St_entry ! 85: should be an entry point in the file just ! 86: loaded. The function binding of the sym- ! 87: bol s_funcname will be set to point to ! 88: st_entry, so that when the lisp function ! 89: s_funcname is called, st_entry will be ! 90: run. st_disc is the discipline to be ! 91: given to s_funcname. st_disc defaults to ! 92: "subroutine" if it is not given or if it ! 93: is given as nil. If st_library is non- ! 94: null, then after st_file is loaded, the ! 95: libraries given in st_library will be ! 96: searched to resolve external references. ! 97: The form of st_library should be something ! 98: like "-lS -lm". The C library (" -lc " ) ! 99: is always searched so when loading in a C ! 100: file you probably won't need to specify a ! 101: library. For Fortran files, you should ! 102: specify "-lF77" and if you are doing any ! 103: I/O, the library entry should be "-lI77 ! 104: -lF77". For Pascal files "-lpc" is ! 105: required. ! 106: ! 107: NOTE: This function may be used to load the output of ! 108: the assembler, C compiler, Fortran compiler, and ! 109: Pascal compiler but NOT the lisp compiler (use ! 110: _f_a_s_l for that). If a file has more than one ! 111: entry point, then use _g_e_t_a_d_d_r_e_s_s to locate and ! 112: setup other foreign functions. ! 113: It is an error to load in a file which has a glo- ! 114: bal entry point of the same name as a global ! 115: entry point in the running lisp. As soon as you ! 116: load in a file with _c_f_a_s_l, its global entry ! 117: points become part of the lisp's entry points. ! 118: Thus you cannot _c_f_a_s_l in the same file twice ! 119: unless you use _r_e_m_o_v_e_a_d_d_r_e_s_s to change certain ! 120: global entry points to local entry points. ! 121: ! 122: ! 123: ! 124: ! 125: ! 126: 9 ! 127: ! 128: 9 Printed: July 25, 1983 ! 129: ! 130: ! 131: ! 132: ! 133: ! 134: ! 135: ! 136: Input/Output 5-3 ! 137: ! 138: ! 139: (close 'p_port) ! 140: ! 141: RETURNS: t ! 142: ! 143: SIDE EFFECT: the specified port is drained and closed, ! 144: releasing the port. ! 145: ! 146: NOTE: The standard defaults are not used in this case ! 147: since you probably never want to close the stan- ! 148: dard output or standard input. ! 149: ! 150: (cprintf 'st_format 'xfst_val ['p_port]) ! 151: ! 152: RETURNS: xfst_val ! 153: ! 154: SIDE EFFECT: The UNIX formatted output function printf ! 155: is called with arguments st_format and ! 156: xfst_val. If xfst_val is a symbol then ! 157: its print name is passed to printf. The ! 158: format string may contain characters which ! 159: are just printed literally and it may con- ! 160: tain special formatting commands preceded ! 161: by a percent sign. The complete set of ! 162: formatting characters is described in the ! 163: UNIX manual. Some useful ones are %d for ! 164: printing a fixnum in decimal, %f or %e for ! 165: printing a flonum, and %s for printing a ! 166: character string (or print name of a sym- ! 167: bol). ! 168: ! 169: EXAMPLE: (_c_p_r_i_n_t_f "_P_i _e_q_u_a_l_s %_f" _3._1_4_1_5_9) prints `Pi ! 170: equals 3.14159' ! 171: ! 172: (drain ['p_port]) ! 173: ! 174: RETURNS: nil ! 175: ! 176: SIDE EFFECT: If this is an output port then the charac- ! 177: ters in the output buffer are all sent to ! 178: the device. If this is an input port then ! 179: all pending characters are flushed. The ! 180: default port for this function is the ! 181: default output port. ! 182: ! 183: ! 184: ! 185: ! 186: ! 187: ! 188: ! 189: ! 190: ! 191: 9 ! 192: ! 193: 9 Printed: July 25, 1983 ! 194: ! 195: ! 196: ! 197: ! 198: ! 199: ! 200: ! 201: Input/Output 5-4 ! 202: ! 203: ! 204: (ex [s_filename]) ! 205: (vi [s_filename]) ! 206: (exl [s_filename]) ! 207: (vil [s_filename]) ! 208: ! 209: RETURNS: ! 210: ! 211: SIDE EFFECT: The lisp system starts up an editor on the ! 212: file named as the argument. It will try ! 213: appending .l to the file if it can't find ! 214: it. The functions _e_x_l and _v_i_l will load ! 215: the file after you finish editing it. ! 216: These functions will also remember the ! 217: name of the file so that on subsequent ! 218: invocations, you don't need to provide the ! 219: argument. ! 220: ! 221: NOTE: These functions do not evaluate their argument. ! 222: ! 223: (fasl 'st_name ['st_mapf ['g_warn]]) ! 224: ! 225: WHERE: st_mapf and g_warn default to nil. ! 226: ! 227: RETURNS: t if the function succeeded, nil otherwise. ! 228: ! 229: SIDE EFFECT: this function is designed to load in an ! 230: object file generated by the lisp compiler ! 231: Liszt. File names for object files usu- ! 232: ally end in `.o', so _f_a_s_l will append `.o' ! 233: to st_name (if it is not already present). ! 234: If st_mapf is non nil, then it is the name ! 235: of the map file to create. _F_a_s_l writes in ! 236: the map file the names and addresses of ! 237: the functions it loads and defines. Nor- ! 238: mally the map file is created (i.e. trun- ! 239: cated if it exists), but if ! 240: (_s_s_t_a_t_u_s _a_p_p_e_n_d_m_a_p _t) is done then the map ! 241: file will be appended. If g_warn is non ! 242: nil and if a function is loaded from the ! 243: file which is already defined, then a ! 244: warning message will be printed. ! 245: ! 246: NOTE: _f_a_s_l only looks in the current directory for the ! 247: file to load. The function _l_o_a_d looks through a ! 248: user-supplied search path and will call _f_a_s_l if ! 249: it finds a file with the same root name and a ! 250: `.o' extension. In most cases the user would be ! 251: better off using the function _l_o_a_d rather than ! 252: calling _f_a_s_l directly. ! 253: ! 254: ! 255: ! 256: 9 ! 257: ! 258: 9 Printed: July 25, 1983 ! 259: ! 260: ! 261: ! 262: ! 263: ! 264: ! 265: ! 266: Input/Output 5-5 ! 267: ! 268: ! 269: (ffasl 'st_file 'st_entry 'st_funcname ['st_discipline ! 270: ['st_library]]) ! 271: ! 272: RETURNS: the binary object created. ! 273: ! 274: SIDE EFFECT: the Fortran object file st_file is loaded ! 275: into the lisp system. St_entry should be ! 276: an entry point in the file just loaded. A ! 277: binary object will be created and its ! 278: entry field will be set to point to ! 279: st_entry. The discipline field of the ! 280: binary will be set to st_discipline or ! 281: "subroutine" by default. If st_library is ! 282: present and non-null, then after st_file ! 283: is loaded, the libraries given in ! 284: st_library will be searched to resolve ! 285: external references. The form of ! 286: st_library should be something like "-lS ! 287: -ltermcap". In any case, the standard ! 288: Fortran libraries will be searched also to ! 289: resolve external references. ! 290: ! 291: NOTE: in F77 on Unix, the entry point for the fortran ! 292: function foo is named `_foo_'. ! 293: ! 294: (filepos 'p_port ['x_pos]) ! 295: ! 296: RETURNS: the current position in the file if x_pos is ! 297: not given or else x_pos if x_pos is given. ! 298: ! 299: SIDE EFFECT: If x_pos is given, the next byte to be ! 300: read or written to the port will be at ! 301: position x_pos. ! 302: ! 303: (filestat 'st_filename) ! 304: ! 305: RETURNS: a vector containing various numbers which the ! 306: UNIX operating system assigns to files. if ! 307: the file doesn't exist, an error is invoked. ! 308: Use _p_r_o_b_e_f to determine if the file exists. ! 309: ! 310: NOTE: The individual entries can be accesed by mnemonic ! 311: functions of the form filestat:_f_i_e_l_d, where field ! 312: may be any of atime, ctime, dev, gid, ino, ! 313: mode,mtime, nlink, rdev, size, type, uid. See ! 314: the UNIX programmers manual for a more detailed ! 315: description of these quantities. ! 316: ! 317: ! 318: ! 319: ! 320: ! 321: 9 ! 322: ! 323: 9 Printed: July 25, 1983 ! 324: ! 325: ! 326: ! 327: ! 328: ! 329: ! 330: ! 331: Input/Output 5-6 ! 332: ! 333: ! 334: (flatc 'g_form ['x_max]) ! 335: ! 336: RETURNS: the number of characters required to print ! 337: g_form using _p_a_t_o_m. If x_max is given, and if ! 338: _f_l_a_t_c determines that it will return a value ! 339: greater than x_max, then it gives up and ! 340: returns the current value it has computed. ! 341: This is useful if you just want to see if an ! 342: expression is larger than a certain size. ! 343: ! 344: (flatsize 'g_form ['x_max]) ! 345: ! 346: RETURNS: the number of characters required to print ! 347: g_form using _p_r_i_n_t. The meaning of x_max is ! 348: the same as for flatc. ! 349: ! 350: NOTE: Currently this just _e_x_p_l_o_d_e's g_form and checks ! 351: its length. ! 352: ! 353: (fileopen 'st_filename 'st_mode) ! 354: ! 355: RETURNS: a port for reading or writing (depending on ! 356: st_mode) the file st_name. ! 357: ! 358: SIDE EFFECT: the given file is opened (or created if ! 359: opened for writing and it doesn't yet ! 360: exist). ! 361: ! 362: NOTE: this function call provides a direct interface to ! 363: the operating system's fopen function. The mode ! 364: may be more than just "r" for read, "w" for write ! 365: or "a" for append. The modes "r+", "w+" and "a+" ! 366: permit both reading and writing on a port pro- ! 367: vided that _f_s_e_e_k is done between changes in ! 368: direction. See the UNIX manual description of ! 369: fopen for more details. This routine does not ! 370: look through a search path for a given file. ! 371: ! 372: (fseek 'p_port 'x_offset 'x_flag) ! 373: ! 374: RETURNS: the position in the file after the function is ! 375: performed. ! 376: ! 377: SIDE EFFECT: this function positions the read/write ! 378: pointer before a certain byte in the file. ! 379: If x_flag is 0 then the pointer is set to ! 380: x_offset bytes from the beginning of the ! 381: file. If x_flag is 1 then the pointer is ! 382: set to x_offset bytes from the current ! 383: location in the file. If x_flag is 2 then ! 384: the pointer is set to x_offset bytes from ! 385: the end of the file. ! 386: 9 ! 387: ! 388: 9 Printed: July 25, 1983 ! 389: ! 390: ! 391: ! 392: ! 393: ! 394: ! 395: ! 396: Input/Output 5-7 ! 397: ! 398: ! 399: (infile 's_filename) ! 400: ! 401: RETURNS: a port ready to read s_filename. ! 402: ! 403: SIDE EFFECT: this tries to open s_filename and if it ! 404: cannot or if there are no ports available ! 405: it gives an error message. ! 406: ! 407: NOTE: to allow your program to continue on a file-not- ! 408: found error, you can use something like: ! 409: (_c_o_n_d ((_n_u_l_l (_s_e_t_q _m_y_p_o_r_t (_c_a_r (_e_r_r_s_e_t (_i_n_f_i_l_e ! 410: _n_a_m_e) _n_i_l)))) ! 411: (_p_a_t_o_m '"_c_o_u_l_d_n'_t _o_p_e_n _t_h_e _f_i_l_e"))) ! 412: which will set myport to the port to read from if ! 413: the file exists or will print a message if it ! 414: couldn't open it and also set myport to nil. To ! 415: simply determine if a file exists, there is a ! 416: function named _p_r_o_b_e_f. ! 417: ! 418: (load 's_filename ['st_map ['g_warn]]) ! 419: ! 420: RETURNS: t ! 421: ! 422: NOTE: The function of _l_o_a_d has changed since previous ! 423: releases of FRANZ LISP and the following descrip- ! 424: tion should be read carefully. ! 425: ! 426: SIDE EFFECT: _l_o_a_d now serves the function of both _f_a_s_l ! 427: and the old _l_o_a_d. _L_o_a_d will search a user ! 428: defined search path for a lisp source or ! 429: object file with the filename s_filename ! 430: (with the extension .l or .o added as ! 431: appropriate). The search path which _l_o_a_d ! 432: uses is the value of (_s_t_a_t_u_s _l_o_a_d-_s_e_a_r_c_h- ! 433: _p_a_t_h). The default is (|.| /usr/lib/lisp) ! 434: which means look in the current directory ! 435: first and then /usr/lib/lisp. The file ! 436: which _l_o_a_d looks for depends on the last ! 437: two characters of s_filename. If ! 438: s_filename ends with ".l" then _l_o_a_d will ! 439: only look for a file name s_filename and ! 440: will assume that this is a FRANZ LISP ! 441: source file. If s_filename ends with ".o" ! 442: then _l_o_a_d will only look for a file named ! 443: s_filename and will assume that this is a ! 444: FRANZ LISP object file to be _f_a_s_led in. ! 445: Otherwise, _l_o_a_d will first look for ! 446: s_filename.o, then s_filename.l and ! 447: finally s_filename itself. If it finds ! 448: s_filename.o it will assume that this is ! 449: an object file, otherwise it will assume ! 450: that it is a source file. An object file ! 451: is loaded using _f_a_s_l and a source file is ! 452: ! 453: ! 454: Printed: July 25, 1983 ! 455: ! 456: ! 457: ! 458: ! 459: ! 460: ! 461: ! 462: Input/Output 5-8 ! 463: ! 464: ! 465: loaded by reading and evaluating each form ! 466: in the file. The optional arguments ! 467: st_map and g_warn are passed to _f_a_s_l ! 468: should _f_a_s_l be called. ! 469: ! 470: NOTE: _l_o_a_d requires a port to open the file s_filename. ! 471: It then lambda binds the symbol piport to this ! 472: port and reads and evaluates the forms. ! 473: ! 474: (makereadtable ['s_flag]) ! 475: ! 476: WHERE: if s_flag is not present it is assumed to be ! 477: nil. ! 478: ! 479: RETURNS: a readtable equal to the original readtable if ! 480: s_flag is non-null, or else equal to the ! 481: current readtable. See chapter 7 for a ! 482: description of readtables and their uses. ! 483: ! 484: (msg [l_option ...] ['g_msg ...]) ! 485: ! 486: NOTE: This function is intended for printing short mes- ! 487: sages. Any of the arguments or options presented ! 488: can be used any number of times, in any order. ! 489: The messages themselves (g_msg) are evaluated, ! 490: and then they are transmitted to _p_a_t_o_m. Typi- ! 491: cally, they are strings, which evaluate to them- ! 492: selves. The options are interpreted specially: ! 493: ! 494: ! 495: ____________________________________________________ ! 496: ! 497: _m_s_g _O_p_t_i_o_n _S_u_m_m_a_r_y ! 498: ! 499: (_P _p__p_o_r_t_n_a_m_e) causes subsequent output to go to the port p_portname ! 500: (port should be opened previously) ! 501: ! 502: _B print a single blank. ! 503: ! 504: (_B '_n__b) evaluate n_b and print that many blanks. ! 505: ! 506: _N print a single by calling _t_e_r_p_r. ! 507: ! 508: (_N '_n__n) evaluate n_n and transmit ! 509: that many newlines to the stream. ! 510: ! 511: _D _d_r_a_i_n the current port. ! 512: ____________________________________________________ ! 513: ! 514: ! 515: ! 516: ! 517: 9 ! 518: ! 519: 9 Printed: July 25, 1983 ! 520: ! 521: ! 522: ! 523: ! 524: ! 525: ! 526: ! 527: Input/Output 5-9 ! 528: ! 529: ! 530: (nwritn ['p_port]) ! 531: ! 532: RETURNS: the number of characters in the buffer of the ! 533: given port but not yet written out to the file ! 534: or device. The buffer is flushed automati- ! 535: cally when filled, or when _t_e_r_p_r is called. ! 536: ! 537: (outfile 's_filename ['st_type]) ! 538: ! 539: RETURNS: a port or nil ! 540: ! 541: SIDE EFFECT: this opens a port to write s_filename. If ! 542: st_type is given and if it is a symbol or ! 543: string whose name begins with `a', then ! 544: the file will be opened in append mode, ! 545: that is the current contents will not be ! 546: lost and the next data will be written at ! 547: the end of the file. Otherwise, the file ! 548: opened is truncated by _o_u_t_f_i_l_e if it ! 549: existed beforehand. If there are no free ! 550: ports, outfile returns nil. If one cannot ! 551: write on s_filename, an error is sig- ! 552: nalled. ! 553: ! 554: (patom 'g_exp ['p_port]) ! 555: ! 556: RETURNS: g_exp ! 557: ! 558: SIDE EFFECT: g_exp is printed to the given port or the ! 559: default port. If g_exp is a symbol or ! 560: string, the print name is printed without ! 561: any escape characters around special char- ! 562: acters in the print name. If g_exp is a ! 563: list then _p_a_t_o_m has the same effect as ! 564: _p_r_i_n_t. ! 565: ! 566: (pntlen 'xfs_arg) ! 567: ! 568: RETURNS: the number of characters needed to print ! 569: xfs_arg. ! 570: ! 571: (portp 'g_arg) ! 572: ! 573: RETURNS: t iff g_arg is a port. ! 574: ! 575: ! 576: ! 577: ! 578: ! 579: ! 580: ! 581: ! 582: 9 ! 583: ! 584: 9 Printed: July 25, 1983 ! 585: ! 586: ! 587: ! 588: ! 589: ! 590: ! 591: ! 592: Input/Output 5-10 ! 593: ! 594: ! 595: (pp [l_option] s_name1 ...) ! 596: ! 597: RETURNS: t ! 598: ! 599: SIDE EFFECT: If s_name_i has a function binding, it is ! 600: pretty-printed, otherwise if s_name_i has a ! 601: value then that is pretty-printed. Nor- ! 602: mally the output of the pretty-printer ! 603: goes to the standard output port poport. ! 604: The options allow you to redirect it. ! 605: ! 606: ! 607: ____________________________________________________ ! 608: ! 609: _P_P _O_p_t_i_o_n _S_u_m_m_a_r_y ! 610: ! 611: (_F _s__f_i_l_e_n_a_m_e) direct future printing to s_filename ! 612: ! 613: (_P _p__p_o_r_t_n_a_m_e) causes output to go to the port p_portname ! 614: (port should be opened previously) ! 615: ! 616: (_E _g__e_x_p_r_e_s_s_i_o_n) evaluate g_expression and don't print ! 617: ____________________________________________________ ! 618: ! 619: ! 620: ! 621: ! 622: (princ 'g_arg ['p_port]) ! 623: ! 624: EQUIVALENT TO: patom. ! 625: ! 626: (print 'g_arg ['p_port]) ! 627: ! 628: RETURNS: nil ! 629: ! 630: SIDE EFFECT: prints g_arg on the port p_port or the ! 631: default port. ! 632: ! 633: (probef 'st_file) ! 634: ! 635: RETURNS: t iff the file st_file exists. ! 636: ! 637: NOTE: Just because it exists doesn't mean you can read ! 638: it. ! 639: ! 640: ! 641: ! 642: ! 643: ! 644: ! 645: ! 646: ! 647: 9 ! 648: ! 649: 9 Printed: July 25, 1983 ! 650: ! 651: ! 652: ! 653: ! 654: ! 655: ! 656: ! 657: Input/Output 5-11 ! 658: ! 659: ! 660: (pp-form 'g_form ['p_port]) ! 661: ! 662: RETURNS: t ! 663: ! 664: SIDE EFFECT: g_form is pretty-printed to the port ! 665: p_port (or poport if p_port is not given). ! 666: This is the function which _p_p uses. _p_p- ! 667: _f_o_r_m does not look for function defini- ! 668: tions or values of variables, it just ! 669: prints out the form it is given. ! 670: ! 671: NOTE: This is useful as a top-level-printer, c.f. _t_o_p- ! 672: _l_e_v_e_l in Chapter 6. ! 673: ! 674: (ratom ['p_port ['g_eof]]) ! 675: ! 676: RETURNS: the next atom read from the given or default ! 677: port. On end of file, g_eof (default nil) is ! 678: returned. ! 679: ! 680: (read ['p_port ['g_eof]]) ! 681: ! 682: RETURNS: the next lisp expression read from the given ! 683: or default port. On end of file, g_eof ! 684: (default nil) is returned. ! 685: ! 686: NOTE: An error will occur if the reader is given an ill ! 687: formed expression. The most common error is too ! 688: many right parentheses (note that this is not ! 689: considered an error in Maclisp). ! 690: ! 691: (readc ['p_port ['g_eof]]) ! 692: ! 693: RETURNS: the next character read from the given or ! 694: default port. On end of file, g_eof (default ! 695: nil) is returned. ! 696: ! 697: (readlist 'l_arg) ! 698: ! 699: RETURNS: the lisp expression read from the list of ! 700: characters in l_arg. ! 701: ! 702: ! 703: ! 704: ! 705: ! 706: ! 707: ! 708: ! 709: ! 710: ! 711: ! 712: 9 ! 713: ! 714: 9 Printed: July 25, 1983 ! 715: ! 716: ! 717: ! 718: ! 719: ! 720: ! 721: ! 722: Input/Output 5-12 ! 723: ! 724: ! 725: (removeaddress 's_name1 ['s_name2 ...]) ! 726: ! 727: RETURNS: nil ! 728: ! 729: SIDE EFFECT: the entries for the s_name_i in the Lisp ! 730: symbol table are removed. This is useful ! 731: if you wish to _c_f_a_s_l or _f_f_a_s_l in a file ! 732: twice, since it is illegal for a symbol in ! 733: the file you are loading to already exist ! 734: in the lisp symbol table. ! 735: ! 736: (resetio) ! 737: ! 738: RETURNS: nil ! 739: ! 740: SIDE EFFECT: all ports except the standard input, out- ! 741: put and error are closed. ! 742: ! 743: (setsyntax 's_symbol 's_synclass ['ls_func]) ! 744: ! 745: RETURNS: t ! 746: ! 747: SIDE EFFECT: this sets the code for s_symbol to sx_code ! 748: in the current readtable. If s_synclass ! 749: is _m_a_c_r_o or _s_p_l_i_c_i_n_g then ls_func is the ! 750: associated function. See Chapter 7 on ! 751: the reader for more details. ! 752: ! 753: (sload 's_file) ! 754: ! 755: SIDE EFFECT: the file s_file (in the current directory) ! 756: is opened for reading and each form is ! 757: read, printed and evaluated. If the form ! 758: is recognizable as a function definition, ! 759: only its name will be printed, otherwise ! 760: the whole form is printed. ! 761: ! 762: NOTE: This function is useful when a file refuses to ! 763: load because of a syntax error and you would like ! 764: to narrow down where the error is. ! 765: ! 766: (tab 'x_col ['p_port]) ! 767: ! 768: SIDE EFFECT: enough spaces are printed to put the cur- ! 769: sor on column x_col. If the cursor is ! 770: beyond x_col to start with, a _t_e_r_p_r is ! 771: done first. ! 772: ! 773: ! 774: ! 775: ! 776: ! 777: 9 ! 778: ! 779: 9 Printed: July 25, 1983 ! 780: ! 781: ! 782: ! 783: ! 784: ! 785: ! 786: ! 787: Input/Output 5-13 ! 788: ! 789: ! 790: (terpr ['p_port]) ! 791: ! 792: RETURNS: nil ! 793: ! 794: SIDE EFFECT: a terminate line character sequence is ! 795: sent to the given port or the default ! 796: port. This will also drain the port. ! 797: ! 798: (terpri ['p_port]) ! 799: ! 800: EQUIVALENT TO: terpr. ! 801: ! 802: (tilde-expand 'st_filename) ! 803: ! 804: RETURNS: a symbol whose pname is the tilde-expansion of ! 805: the argument, (as discussed at the beginning ! 806: of this chapter). If the argument does not ! 807: begin with a tilde, the argument itself is ! 808: returned. ! 809: ! 810: (tyi ['p_port]) ! 811: ! 812: RETURNS: the fixnum representation of the next charac- ! 813: ter read. On end of file, -1 is returned. ! 814: ! 815: (tyipeek ['p_port]) ! 816: ! 817: RETURNS: the fixnum representation of the next charac- ! 818: ter to be read. ! 819: ! 820: NOTE: This does not actually read the character, it ! 821: just peeks at it. ! 822: ! 823: (tyo 'x_char ['p_port]) ! 824: ! 825: RETURNS: x_char. ! 826: ! 827: SIDE EFFECT: the character whose fixnum representation ! 828: is x_code, is printed as a on the given ! 829: output port or the default output port. ! 830: ! 831: (untyi 'x_char ['p_port]) ! 832: ! 833: SIDE EFFECT: x_char is put back in the input buffer so ! 834: a subsequent _t_y_i or _r_e_a_d will read it ! 835: first. ! 836: ! 837: NOTE: a maximum of one character may be put back. ! 838: ! 839: ! 840: ! 841: ! 842: 9 ! 843: ! 844: 9 Printed: July 25, 1983 ! 845: ! 846: ! 847: ! 848: ! 849: ! 850: ! 851: ! 852: Input/Output 5-14 ! 853: ! 854: ! 855: (username-to-dir 'st_name) ! 856: ! 857: RETURNS: the home directory of the given user. The ! 858: result is stored, to avoid unnecessarily ! 859: searching the password file. ! 860: ! 861: (zapline) ! 862: ! 863: RETURNS: nil ! 864: ! 865: SIDE EFFECT: all characters up to and including the ! 866: line termination character are read and ! 867: discarded from the last port used for ! 868: input. ! 869: ! 870: NOTE: this is used as the macro function for the semi- ! 871: colon character when it acts as a comment charac- ! 872: ter. ! 873: ! 874: ! 875: ! 876: ! 877: ! 878: ! 879: ! 880: ! 881: ! 882: ! 883: ! 884: ! 885: ! 886: ! 887: ! 888: ! 889: ! 890: ! 891: ! 892: ! 893: ! 894: ! 895: ! 896: ! 897: ! 898: ! 899: ! 900: ! 901: ! 902: ! 903: ! 904: ! 905: ! 906: ! 907: 9 ! 908: ! 909: 9 Printed: July 25, 1983 ! 910: ! 911: ! 912:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.