diff options
author | Adrian Thurston <thurston@complang.org> | 2013-06-08 09:38:26 -0400 |
---|---|---|
committer | Adrian Thurston <thurston@complang.org> | 2013-06-08 09:38:26 -0400 |
commit | cf47ae207efbf6727cc883c2a8309ff061060f3e (patch) | |
tree | 29e5209e9280b4d05c65b74a5ad94d413ea47cca /colm/debug.c | |
parent | 7002bb72bda6c59e247df51bcf93d39bc40ecb30 (diff) | |
download | colm-cf47ae207efbf6727cc883c2a8309ff061060f3e.tar.gz |
renamed colm dir to src
Renamed 'colm' dir to 'src'. To allow colm to work out of the installed
location or the source tree, while the installed includes reference
<colm/include.h>, a symlink to '..' is placed at src/include/colm.
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 c43f5a68..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 <colm/program.h> -#include <stdarg.h> -#include <stdio.h> -#include <stdlib.h> - -const char *const colmRealmNames[REALMS] = - { - "BYTECODE", - "PARSE", - "MATCH", - "COMPILE", - "POOL", - "PRINT", - "INPUT", - "SCAN", - }; - -int _debug( struct colm_program *prg, long realm, const char *fmt, ... ) -{ - int result = 0; - if ( prg->activeRealm & 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 ); -} |