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