95 lines
3.5 KiB
PHP
95 lines
3.5 KiB
PHP
save
|
|
listing off ; kein Listing über diesen File
|
|
|
|
;****************************************************************************
|
|
;* *
|
|
;* AS 1.40 - Datei CTYPE.INC *
|
|
;* *
|
|
;* Sinn : enthält Funktionen zur Untersuchung von Zeichen *
|
|
;* *
|
|
;* letzte Änderungen : 20. 3.1993 *
|
|
;* 11. 9.1993 Meldung nur im 1.Pass *
|
|
;* 19. 2.1994 Funktionen vervollständigt, *
|
|
;* isascii dem C-Standard angepaßt *
|
|
;* *
|
|
;* ACHTUNG! isalpha berücksichtigt keine landesspezifischen Sonderzeichen! *
|
|
;* *
|
|
;****************************************************************************
|
|
|
|
ifndef ctypeinc ; verhindert Mehrfacheinbindung
|
|
|
|
ctypeinc equ 1
|
|
|
|
if mompass=1
|
|
message "Standardzeichenfunktionen (C) 1993 Alfred Arnold"
|
|
endif
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument eine Ziffer ist:
|
|
|
|
isdigit function ch,(ch>='0')&&(ch<='9')
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument eine hexadezimale Ziffer ist:
|
|
|
|
isxdigit function ch,(isdigit(ch))||((toupper(ch)>='A')&&(toupper(ch)<='F'))
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument im Bereich normaler ASCII-Zeichen liegt:
|
|
|
|
isascii function ch,(ch>=0)&&(ch<128)
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument ein Großbuchstabe ist:
|
|
|
|
isupper function ch,(ch>='A')&&(ch<='Z')
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument ein Kleinbuchstabe ist:
|
|
|
|
islower function ch,(ch>='a')&&(ch<='z')
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument ein Buchstabe ist:
|
|
|
|
isalpha function ch,(toupper(ch)>='A')&&(toupper(ch)<='Z')
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument Ziffer oder Buchstabe ist:
|
|
|
|
isalnum function ch,isdigit(ch)||isalpha(ch)
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument ein Leerzeichen ist:
|
|
; Hinweis: 11=vertikaler Tabulator
|
|
|
|
isspace function ch,(ch=' ')||(ch=12)||(ch='\n')||(ch='\r')||(ch='\t')||(ch=11)
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument ein druckbares Zeichen ist:
|
|
; strenggenommen müßte man DEL (127) ausnehmen, aber auf dem PC ist das ein
|
|
; druckbares Zeichen
|
|
|
|
isprint function ch,(ch>31)&&(ch<255)
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument ein Steuerzeichen ist:
|
|
|
|
iscntrl function ch,~~isprint(ch)
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument ein druckbares, sichtbares Zeichen ist:
|
|
|
|
isgraph function ch,isprint(ch)&&(~~isspace(ch))
|
|
|
|
;----------------------------------------------------------------------------
|
|
; liefert TRUE, falls das Argument ein Sonderzeichen ist:
|
|
|
|
ispunct function ch,isprint(ch)&&(~~isspace(ch))&&(~~isalnum(ch))
|
|
|
|
endif
|
|
|
|
restore ; wieder erlauben
|
|
|
|
|