Chartest

Chartest#

a group of routines which perform various functions and tests on characters.

General Information

Author: OSS,Inc
Language: ACTION!
Compiler/Interpreter: ACTION!
Published: 1984

;												
;
;CHARTEST.ACT - a group of routines
;which perform various functions and
;tests on characters.
;
;	Copyright (c) 1984 by OSS,Inc.
;												

;************************************
;Test if 'c' is alphabetic
;************************************

BYTE FUNC IsAlpha(BYTE c)

  IF ((c>='A) AND (c<='Z)) OR
		 ((c>='a) AND (c<='z)) THEN
	 RETURN(1)
  FI
RETURN(0)

;************************************
;Test if 'c' is uppercase alphabetic
;************************************

BYTE FUNC IsUpper(BYTE c)

  IF (c>='A) AND (c<='Z) THEN
	 RETURN(1)
  FI
RETURN(0)

;************************************
;Test if 'c' is lowercase alphabetic
;************************************

BYTE FUNC IsLower(BYTE c)

  IF (c>='a) AND (c<='z) THEN
	 RETURN(1)
  FI
RETURN(0)

;************************************
;Test if 'c' is a digit (0-9)
;************************************

BYTE FUNC IsDigit(BYTE c)

  IF (c>='0) AND (c<='9) THEN
	 RETURN(1)
  FI
RETURN(0)

;************************************
;Change 'c' to uppercase if necessary
;************************************

BYTE FUNC ToUpper(BYTE c)

  IF IsLower(c) THEN
	 c==-$20
  FI
RETURN(c)

;************************************
;Change 'c' to lowercase if necessary
;************************************

BYTE FUNC ToLower(BYTE c)

  IF IsUpper(c) THEN
	 c==+$20
  FI
RETURN(c)

; End of CHARTEST.ACT 

MODULE