about summary refs log tree commit homepage
path: root/projects/mongrel_service/native/_debug.bi
diff options
context:
space:
mode:
Diffstat (limited to 'projects/mongrel_service/native/_debug.bi')
-rw-r--r--projects/mongrel_service/native/_debug.bi59
1 files changed, 0 insertions, 59 deletions
diff --git a/projects/mongrel_service/native/_debug.bi b/projects/mongrel_service/native/_debug.bi
deleted file mode 100644
index 277de2e..0000000
--- a/projects/mongrel_service/native/_debug.bi
+++ /dev/null
@@ -1,59 +0,0 @@
-'##################################################################
-'#
-'# mongrel_service: Win32 native implementation for mongrel
-'#                  (using ServiceFB and FreeBASIC)
-'#
-'# Copyright (c) 2006 Multimedia systems
-'# (c) and code by Luis Lavena
-'#
-'#  mongrel_service (native) and mongrel_service gem_pluing are licensed
-'#  in the same terms as mongrel, please review the mongrel license at
-'#  http://mongrel.rubyforge.org/license.html
-'#  
-'##################################################################
-
-'##################################################################
-'# Requirements:
-'# - FreeBASIC 0.17, Win32 CVS Build (as for November 09, 2006).
-'#
-'##################################################################
-
-#ifndef __Debug_bi__
-#define __Debug_bi__
-
-#ifdef DEBUG_LOG
-    #include once "vbcompat.bi"
-    #ifndef DEBUG_LOG_FILE
-        #define DEBUG_LOG_FILE EXEPATH + "\debug.log"
-    #endif
-
-    '# this procedure is only used for debugging purposed, will be removed from
-    '# final compilation
-    private sub debug_to_file(byref message as string, byref file as string, byval linenumber as uinteger, byref func as string)
-        dim handle as integer
-        static first_time as integer
-        
-        handle = freefile
-        open DEBUG_LOG_FILE for append as #handle
-        
-        if (first_time = 0) then
-            print #handle, "# Logfile created on "; format(now(), "dd/mm/yyyy HH:mm:ss")
-            print #handle, ""
-            first_time = 1
-        end if
-        
-        '# src/module.bas:123, namespace.function:
-        '#   message
-        '#
-        print #handle, file; ":"; str(linenumber); ", "; lcase(func); ":"
-        print #handle, space(2); message
-        print #handle, ""
-        
-        close #handle
-    end sub
-    #define debug(message) debug_to_file(message, __FILE__, __LINE__, __FUNCTION__)
-#else
-    #define debug(message)
-#endif '# DEBUG_LOG
-
-#endif '# __Debug_bi__