[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]

{*****************************************************************************
 * Function ...... GetMask()
 * Purpose ....... To return the mask from a path/mask string
 * Parameters .... Path       String to extract the mask from
 * Returns ....... The file mask portion of <Path>
 * Notes ......... None
 * Author ........ Martin Richardson
 * Date .......... May 13, 1992
 *****************************************************************************}
TYPE
     String13 = STRING[13];
FUNCTION GetMask( Path: DirStr ): String13;
VAR dir  : DirStr;
    name : NameStr;
    ext  : ExtStr;
BEGIN
     FSPLIT( path, dir, name, ext );
     GetMask := name + ext;
END;

[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]