1 02/23/89  find_source_file_
 2 
 3 This program is used by translators and debugger to find source files.
 4 
 5 
 6 Entry points in find_source_file_:
 7    (List is generated by the help command)
 8 
 9 
10 :Entry: find_source_file_: 02/13/84  find_source_file_
11 
12 
13 Function:  finds a file given a pathname and an optional suffix.
14 Translators use this to find source programs.
15 
16 
17 Syntax:
18 declare find_source_file_ entry (char(*), char(*), char(*), ptr,
19      fixed bin(24), fixed bin(35));
20 call find_source_file_ (pathname, suffix, sourcename, source_ptr,
21      bit_count, code);
22 
23 
24 Arguments:
25 pathname
26    is the pathname of the source program.  (Input)
27 suffix
28    is the suffix to be added to the pathname (if one does not already
29    exist).  (Input)
30 sourcename
31    is the sourcename of the source program.  (Output)
32 source_ptr
33    is a pointer to the base of the source program.  It is null if the
34    source could not be found.  (Output)
35 bit_count
36    is the bit count of the source program.  (Output)
37 code
38    is a standard system status code.  (Output)