$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;