mirror of
https://github.com/puma/puma.git
synced 2022-11-09 13:48:40 -05:00
fecb7c268d
git-svn-id: svn+ssh://rubyforge.org/var/svn/mongrel/trunk@445 19e92222-5c0b-0410-8929-a290d50e31e9
49 lines
1.6 KiB
Text
49 lines
1.6 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).
|
|
'#
|
|
'##################################################################
|
|
|
|
#define SERVICEFB_INCLUDE_UTILS
|
|
#include once "lib/ServiceFB/ServiceFB.bi"
|
|
#include once "process.bi"
|
|
|
|
namespace mongrel_service
|
|
using fb.svc
|
|
using fb.svc.utils
|
|
|
|
declare function single_onInit(byref as ServiceProcess) as integer
|
|
declare sub single_onStart(byref as ServiceProcess)
|
|
declare sub single_onStop(byref as ServiceProcess)
|
|
|
|
'# SingleMongrel
|
|
type SingleMongrel
|
|
declare constructor()
|
|
declare destructor()
|
|
|
|
'# TODO: replace for inheritance here
|
|
'declare function onInit() as integer
|
|
'declare sub onStart()
|
|
'declare sub onStop()
|
|
|
|
__service as ServiceProcess
|
|
__child_pid as uinteger
|
|
end type
|
|
|
|
'# TODO: replace with inheritance here
|
|
dim shared single_mongrel_ref as SingleMongrel ptr
|
|
end namespace
|