mirror of
https://github.com/puma/puma.git
synced 2022-11-09 13:48:40 -05:00
60 lines
2 KiB
Text
60 lines
2 KiB
Text
|
'##################################################################
|
||
|
|
'#
|
||
|
|
'# 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__
|