$DEBUG PAGEWIDTH(80) PAGELENGTH(50) /****************************************************/ /* */ /* MODULE NAME - M$DELIMITER */ /* */ /* FUNCTION - CONTAINES 'DELIMITER' PROCEDURE */ /* */ /****************************************************/ M$DELIMITER: DO; $NOLIST $INCLUDE ( COMMON.DCL ) $LIST $EJECT /****************************************************/ /* */ /* PROCEDURE NAME - DELIMITER */ /* */ /* FUNCTION - CHECKS IF A CHARACTER IS A */ /* DELIMITER, I.E. ANYTHING ELSE BUT */ /* 'A' TO 'Z', '0' TO '9', ':' OR */ /* '.', AND OPTIONALLY '*' OR '?' */ /* */ /* */ /* INPUT - CHAR : BYTE, THE CHARACTER TO BE */ /* CHECKED. */ /* WILDCARD : BOOLEAN, CAUSES '*' AND */ /* '?' TO NOT BE RECOGNIZED AS */ /* DELIMITERS. */ /* */ /* OUTPUT - BOOLEAN, RETURNS TRUE IF CHAR IS A */ /* DELIMITER. */ /* */ /* LAST UPDATED - 4.4.82 DROR */ /* */ /****************************************************/ DELIMITER: PROCEDURE (CHAR,WILDCARD) BOOLEAN PUBLIC; DECLARE CHAR BYTE, WILDCARD BOOLEAN; IF WILDCARD AND ((CHAR='?') OR (CHAR='*')) THEN RETURN FALSE; ELSE RETURN NOT( ((CHAR>='A') AND (CHAR<='Z')) OR ((CHAR>='a') AND (CHAR<='z')) OR ((CHAR>='0') AND (CHAR<='9')) OR (CHAR=':') OR (CHAR='.') ); END DELIMITER; END M$DELIMITER;