Sha256: f23d11636b918de58eb8bb363a56e8c89cc120a5d55a9f17005ee36827878019
Contents?: true
Size: 1.97 KB
Versions: 6
Compression:
Stored size: 1.97 KB
Contents
'##################################################################
'#
'# 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__
Version data entries
6 entries across 6 versions & 1 rubygems