blob: 85edb9d7142320d1c6d835cb02accf72b1fe1ba3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
include <ctype.h>
# ISBLANK -- Return true if the string is entirely white space
#
# B.Simon 11-Nov-87 First Code
bool procedure isblank (str)
char str[ARB] # i: string to be tested
int ip
begin
do ip = 1, ARB
if (str[ip] == EOS)
return (true)
else if (! IS_WHITE(str[ip]) )
return (false)
end
|
