1 01/30/89  translator_info_
  2 
  3 The translator_info_ subroutine contains utility routines needed by the
  4 various system translators.  They are centralized here to avoid
  5 repetitions in each of the individual translators.
  6 
  7 
  8 Entry points in translator_info_:
  9 (List is generated by the help command)
 10 
 11 
 12 :Entry: get_source_info: 07/21/83  translator_info_$get_source_info
 13 
 14 
 15 Function:  This entry point returns the information about a specified
 16 source segment that is needed for the standard object segment:  storage
 17 system location, date-time last modified, unique ID.
 18 
 19 
 20 Syntax:
 21 declare translator_info_$get_source_info entry (ptr, char(*), char(*),
 22      fixed bin(71), bit(36) aligned, fixed bin(35));
 23 
 24 call translator_info_$get_source_info entry (source_ptr, dir_name,
 25      entryname, date_time_mod, unique_id, code);
 26 
 27 
 28 Arguments:
 29 source_ptr
 30    is a pointer to the source segment about which information is
 31    desired.  (Input)
 32 dir_name
 33    is a pathname of the directory in which the source segment is
 34    located.  (Output)
 35 entryname
 36    is the primary name of the source segment.  (Output)
 37 
 38 
 39 date_time_mod
 40    is the date-time modified of the source segment as obtained from the
 41    storage system.  (Output)
 42 unique_id
 43    is the unique ID of the source segment as obtained from the storage
 44    system.  (Output)
 45 code
 46    is a storage system status code.  (Output)
 47 
 48 
 49 Notes on status code:
 50 A status code of zero indicates that all information has been returned
 51 normally.
 52 
 53 A nonzero status code returned by this entry is a storage system status
 54 code.  Because the interface to this procedure is a pointer to the
 55 source segment, the presence of a nonzero status code probably
 56 indicates that the storage system entry for the source segment has been
 57 altered since the segment was initiated, i.e., the segment has been
 58 deleted, or this process no longer has access to the segment.
 59 
 60 
 61 Notes:
 62 The entryname returned by this procedure is the primary name on the
 63 source segment.  It is not necessarily the same name as that by which
 64 the translator initiated it.
 65 
 66 
 67 :Entry: component_get_source_info:
 68   01/30/88  translator_info_$component_get_source_info
 69 
 70 
 71 Function:  This entry point returns the information about a specified
 72 source program that is needed for the standard object program:  storage
 73 system location, date-time last modified, unique ID.
 74 
 75 
 76 Syntax:
 77 declare translator_info_$component_get_source_info entry (ptr, char(*),
 78      char(*), char(*), fixed bin(71), bit(36) aligned, fixed bin(35));
 79 
 80 call translator_info_$component_get_source_info (source_ptr, dir_name,
 81      entry_name, component_name, date_time_mod, unique_id, code);
 82 
 83 
 84 Arguments:
 85 source_ptr
 86    is a pointer to the source program about which information is
 87    desired.  (Input)
 88 dir_name
 89    is a pathname of the directory in which the source segment is
 90    located.  (Output)
 91 entry_name
 92    is the primary name of the source segment.  (Output)
 93 component_name
 94    is the name of the archive component. If the source program is not
 95    a component of an archive, then this value is null "".  (Output)
 96 
 97 
 98 date_time_mod
 99    is the date_time modified of the source program as obtained from the
100    storage system.  (Output)
101 unique_id
102    is the unique ID of the source segment as obtained from the storage
103    system.  (Output)
104 code
105    is a storage system status code.  (Output)
106 
107 
108 Notes on status code:
109 A status code of zero indicates that all information has been returned
110 normally.
111 
112 A nonzero status code returned by this entry is a storage system status
113 code.  Because the interface to this procedure is a pointer to the
114 source program, the presence of a nonzero status code probably
115 indicates that the storage system entry for the source segment has been
116 altered since the segment was initiated, i.e., the segment has been
117 deleted, or this process no longer has access to the segment.
118 
119 
120 Notes:
121 The entryname returned by this procedure is the primary name on the
122 source segment.  It is not necessarily the same name as that by which
123 the translator initiated it.