diff options
Diffstat (limited to 'colm/debug.c')
-rw-r--r-- | colm/debug.c | 78 |
1 files changed, 0 insertions, 78 deletions
diff --git a/colm/debug.c b/colm/debug.c deleted file mode 100644 index 6d9689e0..00000000 --- a/colm/debug.c +++ /dev/null @@ -1,78 +0,0 @@ -/* - * Copyright 2010-2012 Adrian Thurston <thurston@complang.org> - */ - -/* This file is part of Colm. - * - * Colm is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * Colm 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 General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Colm; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - */ - -#include <colm/debug.h> -#include <stdarg.h> -#include <stdio.h> -#include <stdlib.h> - -long colmActiveRealm = 0; -const char *colmRealmNames[REALMS] = - { - "BYTECODE", - "PARSE", - "MATCH", - "COMPILE", - "POOL", - "PRINT", - "INPUT", - "SCAN", - }; - -int _debug( long realm, const char *fmt, ... ) -{ - int result = 0; - if ( colmActiveRealm & realm ) { - /* Compute the index by shifting. */ - int ind = 0; - while ( (realm & 0x1) != 0x1 ) { - realm >>= 1; - ind += 1; - } - - fprintf( stderr, "%s: ", colmRealmNames[ind] ); - va_list args; - va_start( args, fmt ); - result = vfprintf( stderr, fmt, args ); - va_end( args ); - } - - return result; -} - -void fatal( const char *fmt, ... ) -{ - va_list args; - fprintf( stderr, "fatal: " ); - va_start( args, fmt ); - vfprintf( stderr, fmt, args ); - va_end( args ); - exit(1); -} - -void message( const char *fmt, ... ) -{ - va_list args; - fprintf( stderr, "message: " ); - va_start( args, fmt ); - vfprintf( stderr, fmt, args ); - va_end( args ); -} |