1 04/21/82  system_type
 2 
 3 Syntax:  system_type {SystemName}
 4 
 5 
 6 Syntax as active function:  [system_type {SystemName}]
 7 
 8 
 9 Function:  prints the canonical system type name either for the running
10 system or for a user-specified system type.  As an active function, it
11 returns the system type name, rather than printing it.
12 
13 
14 Arguments:
15 SystemName
16    is a system type name acceptable to the system_type_ subroutine.
17    Its canonical name is printed.  If SystemName is not supplied, the
18    canonical name for the system type of the running system is printed.
19 
20 
21 Notes:  In order to avoid embedding knowledge of the canonical names
22 for system types in exec_coms, the system_type active function should
23 always be used first to canonicalize any name being compared with.  For
24 instance, in this example, system_type is used to compare the canonical
25 name for "6180" against the type of the running system:
26 
27      &if [equal [system_type] [system_type 6180]] &then logout -brief