diff options
Diffstat (limited to 'projects/mongrel_service/lib/ServiceFB/ServiceFB.bi')
-rw-r--r-- | projects/mongrel_service/lib/ServiceFB/ServiceFB.bi | 109 |
1 files changed, 0 insertions, 109 deletions
diff --git a/projects/mongrel_service/lib/ServiceFB/ServiceFB.bi b/projects/mongrel_service/lib/ServiceFB/ServiceFB.bi deleted file mode 100644 index dc0acec..0000000 --- a/projects/mongrel_service/lib/ServiceFB/ServiceFB.bi +++ /dev/null @@ -1,109 +0,0 @@ -'#--
-'# Copyright (c) 2006-2007 Luis Lavena, Multimedia systems
-'#
-'# This source code is released under the MIT License.
-'# See MIT-LICENSE file for details
-'#++
-
-#if __FB_VERSION__ < "0.17"
-#error ServiceFB is designed to compile with FreeBASIC version "0.17"
-#else
-
-#ifndef __FB_WIN32__
-#error Platform unsupported. Compiling ServiceFB requires Windows platform.
-#else
-
-#ifndef __ServiceFB_bi__
-#define __ServiceFB_bi__
-
-#include once "windows.bi"
-#inclib "advapi32"
-
-namespace fb
-namespace svc '# fb.svc
-#ifdef SERVICEFB_DEBUG_LOG
- '# debug print
- declare sub _dprint(byref as string)
-#else
- #define _dprint(message)
-#endif
-
- '# service states used by end user with 'state' property
- enum ServiceStateEnum
- Running = SERVICE_RUNNING
- Paused = SERVICE_PAUSED
- Stopped = SERVICE_STOPPED
- end enum
-
-
- '# ServiceProcess type (object)
- '# use this to create new services and reference the on*() methods to perform the related
- '# tasks.
- type ServiceProcess
- '# ctor/dtor
- declare constructor()
- declare constructor(byref as string)
- declare destructor()
-
- '# methods (public)
- declare sub Run()
- declare sub StillAlive(byval as integer = 10)
-
- '# helper methods (private)
- declare sub UpdateState(byval as DWORD, byval as integer = 0, byval as integer = 0)
-
- '# pseudo-events
- '# for onInit you should return FALSE (0) in case you want to abort
- '# service initialization.
- '# If everything was ok, then return TRUE (-1)
- onInit as function(byref as ServiceProcess) as integer
- onStart as sub(byref as ServiceProcess)
- onStop as sub(byref as ServiceProcess)
- onPause as sub(byref as ServiceProcess)
- onContinue as sub(byref as ServiceProcess)
-
- '# call_* are used to avoid the warning arround ThreadCreate
- declare static sub call_onStart(byval as any ptr)
-
- '# properties (public)
- name as string
- description as string
- state as ServiceStateEnum
- commandline as string '# TODO
- shared_process as integer
-
- '# properties (private)
- _svcStatus as SERVICE_STATUS
- _svcHandle as SERVICE_STATUS_HANDLE
- _svcStopEvent as HANDLE
- _threadHandle as any ptr
- end type
-
-
- '# ServiceHost type (object)
- '# use this, beside ServiceProcess, to manage the registration and running of
- '# several services sharing the same process.
- '# NOTE: ServiceHost.Run() and ServiceProcess.Run() are mutually exclusive, that
- '# means don't mix single service with multiple service in the same program!
- type ServiceHost
- '# ctor/dtor()
- declare constructor()
- declare destructor()
-
- '# methods (public)
- declare sub Add(byref as ServiceProcess)
- declare sub Run()
-
- '# properties (public)
- count as integer
- end type
-end namespace '# fb.svc
-end namespace '# fb
-
-#ifdef SERVICEFB_INCLUDE_UTILS
-#include once "ServiceFB_Utils.bi"
-#endif
-
-#endif '# __ServiceFB_bi__
-#endif '# __FB_WIN32__
-#endif '# __FB_VERSION__
\ No newline at end of file |