1
0
mirror of synced 2026-01-13 15:37:38 +00:00
Interlisp.medley/internal/envos/SOURCELOOKUP.TEDIT

6 lines
2.4 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

SOURCELOOKUP
INTRODUCTION
This module provides a mechanism to locate the source file and floppy in which a particular system function is defined. It is designed for use with the set of Xerox LISP source files distributed on floppy with the Lyric release. This module uses the WHEREIS module distributed with Lisp Library documented in Section 23 of the Interlisp Reference Manual.
LOADING THE MODULE
SOURCELOOKUP requires WHEREIS.DCOM and HASH.DCOM to be loaded. The variable WHEREIS.HASH must be set to the hash file LYRICSOURCES.WHEREIS. All these files are distributed on the floppy labeled Lyric Sources #10. The hash file must reside on a random access device. To use the hash file on FLOPPY do the following:
(SETQ WHEREIS.HASH '({FLOPPY}LYRICSOURCES.WHEREIS))
The variable LyricSourceIndex will be set to a list where each element is a list whose CAR is the name of a Lyric Source floppy and CDR is the list of files contained on the floppy.
USER FUNCTION
(LOCATE.FUNCTION function)
If function is defined in a distributed source file prints out the appropriate file name and floppy and returns the file name; else prints "function not found" and returns NIL.
EXAMPLES
(LOCATE.FUNCTION 'SETQ)
The function SETQ is defined in the file LLINTERP located on floppy Lyric Source #5.
(LLINTERP)
(LOCATE.FUNCTION 'UNDEFINED)
UNDEFINED not found.
NIL
(((MODERN
MODERN
MODERN
MODERN
  H?4¸
  
   
qezº