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

    {*****************************************************************************
     * Function ...... IsSwitch()
     * Purpose ....... To test for the presence of a switch on the command line
     * Parameters .... sSwitch     Switch to scan the command line for
     * Returns ....... .T. if the switch was found
     * Notes ......... Uses functions Command and UpperCase
     * Author ........ Martin Richardson
     * Date .......... September 28, 1992
     *****************************************************************************}
    FUNCTION IsSwitch( sSwitch: STRING ): BOOLEAN;
    BEGIN
         IsSwitch := (POS( '/'+sSwitch, UpperCase(Command) ) <> 0) OR
                     (POS( '-'+sSwitch, UpperCase(Command) ) <> 0);
    END;

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