1/*
2 * strings - implementation of some of the macros in ctype.h
3 *
4 * Copyright (C) 2013 Christoph Zurnieden
5 *
6 * Calc is open software; you can redistribute it and/or modify it under
7 * the terms of the version 2.1 of the GNU Lesser General Public License
8 * as published by the Free Software Foundation.
9 *
10 * Calc is distributed in the hope that it will be useful, but WITHOUT
11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
12 * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
13 * Public License for more details.
14 *
15 * A copy of version 2.1 of the GNU Lesser General Public License is
16 * distributed with calc under the filename COPYING-LGPL.  You should have
17 * received a copy with calc; if not, write to Free Software Foundation, Inc.
18 * 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
19 */
20
21
22static resource_debug_level;
23resource_debug_level = config("resource_debug", 0);
24
25define isascii(c){
26  c = ord(c);
27  return (c >= 0 && c< 128);
28}
29
30define isblank(c){
31  c = ord(c);
32  return ( c == 32 || c == 9 );
33}
34
35
36config("resource_debug", resource_debug_level),;
37if (config("resource_debug") & 3) {
38    print "isascii(c)";
39    print "isblank(c)";
40}
41
42