/* * strings - implementation of some of the macros in ctype.h * * Copyright (C) 2013 Christoph Zurnieden * * Calc is open software; you can redistribute it and/or modify it under * the terms of the version 2.1 of the GNU Lesser General Public License * as published by the Free Software Foundation. * * Calc is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General * Public License for more details. * * A copy of version 2.1 of the GNU Lesser General Public License is * distributed with calc under the filename COPYING-LGPL. You should have * received a copy with calc; if not, write to Free Software Foundation, Inc. * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ static resource_debug_level; resource_debug_level = config("resource_debug", 0); define isascii(c){ c = ord(c); return (c >= 0 && c< 128); } define isblank(c){ c = ord(c); return ( c == 32 || c == 9 ); } config("resource_debug", resource_debug_level),; if (config("resource_debug") & 3) { print "isascii(c)"; print "isblank(c)"; }