1 03/31/83  strip
 2 
 3 Syntax:  strip path {STR}
 4 
 5 
 6 Syntax as active function:  [strip path {STR}]
 7 
 8 
 9 Function:  returns the absolute pathname of the specified entry, with
10 the last component removed if the entryname portion has more than one
11 component.  If an archive component pathname is specified, the
12 components are stripped off the archive component name if it has more
13 than one component.
14 
15 
16 Arguments:
17 path
18    is the pathname from which the trailing name component is removed.
19 STR
20    is the character string to be stripped.  If STR is not specified,
21    the last component is removed.  If STR is specified, the last
22    components are removed only if they match STR and STR does not equal
23    path.
24 
25 
26 Notes:  Since the pathname is returned in quotes, the command processor
27 treats it as a single argument regardless of special characters in the
28 name.