mongrel_service 0.1 → 0.4.beta1

data/src/mongrel_service/console_process.bi

@@ -0,0 +1,75 @@
+'#--
+'# Copyright (c) 2006-2007 Luis Lavena, Multimedia systems
+'#
+'# This source code is released under the MIT License.
+'# See MIT-LICENSE file for details
+'#++
+
+#ifndef __CONSOLE_PROCESS_BI__
+#define __CONSOLE_PROCESS_BI__
+
+#include once "windows.bi"
+#include once "boolean.bi"
+
+enum ProcessStdEnum
+    ProcessStdOut   = 1 
+    ProcessStdErr   = 2
+    ProcessStdBoth  = 3
+end enum
+
+type ConsoleProcess
+    '# this class provide basic functionality
+    '# to control child processes
+    
+    '# new ConsoleProcess(Filename, Parameters)
+    declare constructor(byref as string = "", byref as string = "")
+    
+    '# delete
+    declare destructor()
+    
+    '# properties (only getters)
+    declare property filename as string
+    declare property filename(byref as string)
+    
+    declare property arguments as string
+    declare property arguments(byref as string)
+    
+    '# stdout and stderr allow you redirect
+    '# console output and errors to files
+    declare property redirected_stdout as string
+    declare property redirected_stderr as string
+    
+    '# evaluate if the process is running
+    declare property running as boolean
+    
+    '# pid will return the current Process ID, or 0 if no process is running
+    declare property pid as uinteger
+    
+    '# exit_code is the value set by the process prior exiting.
+    declare property exit_code as uinteger
+    
+    '# methods
+    declare function redirect(byval as ProcessStdEnum, byref as string) as boolean
+    declare function start() as boolean
+    declare function terminate(byval as boolean = false) as boolean
+    
+    private:
+        _filename as string
+        _arguments as string
+        _pid as uinteger
+        _process_info as PROCESS_INFORMATION
+        _show_console as boolean = false
+        
+        _redirect_stdout as boolean
+        _stdout_filename as string
+        
+        _redirect_stderr as boolean
+        _stderr_filename as string
+        
+        '# this fake console handler
+        '# is used to trap ctrl-c
+        declare static function _console_handler(byval as DWORD) as BOOL
+        
+end type 'ConsoleProcess
+
+#endif '__CONSOLE_PROCESS_BI__

data/src/mongrel_service/mongrel_service.bas

@@ -0,0 +1,198 @@
+'##################################################################
+'# 
+'# 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.18
+'# 
+'##################################################################
+
+#include once "mongrel_service.bi"
+#define DEBUG_LOG_FILE EXEPATH + "\mongrel_service.log"
+#include once "_debug.bi"
+
+namespace mongrel_service
+    constructor SingleMongrel()
+        dim redirect_path as string = EXEPATH
+        dim redirect_file as string = "mongrel.default.log"
+        dim flag as string
+        dim idx as integer = 1
+
+        '# determine supplied logfile
+        flag = command(idx)
+        do while (len(flag) > 0)
+            '# application directory
+            if (flag = "-c") or (flag = "--chdir") then
+                redirect_path = command(idx + 1)
+            end if
+
+            '# log file
+            if (flag = "-l") or (flag = "--log") then
+                redirect_file = command(idx + 1)
+            end if
+            idx += 1
+
+            flag = command(idx)
+        loop
+
+        with this.__service
+            .name = "single"
+            .description = "Mongrel Single Process service"
+            
+            '# disabling shared process
+            .shared_process = FALSE
+            
+            '# TODO: fix inheritance here
+            .onInit = @single_onInit
+            .onStart = @single_onStart
+            .onStop = @single_onStop
+        end with
+        
+        with this.__console
+            debug("redirecting to: " + redirect_path + "/" + redirect_file)
+            .redirect(ProcessStdBoth, (redirect_path + "/" + redirect_file))
+        end with
+        
+        '# TODO: fix inheritance here
+        single_mongrel_ref = @this
+    end constructor
+    
+    destructor SingleMongrel()
+        '# TODO: fin inheritance here
+    end destructor
+    
+    function single_onInit(byref self as ServiceProcess) as integer
+        dim result as integer
+        dim mongrel_cmd as string
+        
+        debug("single_onInit()")
+        
+        '# ruby.exe must be in the path, which we guess is already there.
+        '# because mongrel_service executable (.exe) is located in the same
+        '# folder than mongrel_rails ruby script, we complete the path with
+        '# EXEPATH + "\mongrel_rails" to make it work.
+        '# FIXED ruby installation outside PATH and inside folders with spaces
+        mongrel_cmd = !"\"" + EXEPATH + !"\\ruby.exe" + !"\" " + !"\"" + EXEPATH + !"\\mongrel_rails" + !"\"" + " start"
+        
+        '# due lack of inheritance, we use single_mongrel_ref as pointer to 
+        '# SingleMongrel instance. now we should call StillAlive
+        self.StillAlive()
+        if (len(self.commandline) > 0) then
+            '# assign the program
+            single_mongrel_ref->__console.filename = mongrel_cmd
+            single_mongrel_ref->__console.arguments = self.commandline
+            
+            '# fix commandline, it currently contains params to be passed to
+            '# mongrel_rails, and not ruby.exe nor the script to be run.
+            self.commandline = mongrel_cmd + " " + self.commandline
+            
+            '# now launch the child process
+            debug("starting child process with cmdline: " + self.commandline)
+            single_mongrel_ref->__child_pid = 0
+            if (single_mongrel_ref->__console.start() = true) then
+                single_mongrel_ref->__child_pid = single_mongrel_ref->__console.pid
+            end if
+            self.StillAlive()
+            
+            '# check if pid is valid
+            if (single_mongrel_ref->__child_pid > 0) then
+                '# it worked
+                debug("child process pid: " + str(single_mongrel_ref->__child_pid))
+                result = not FALSE
+            end if
+        else
+            '# if no param, no service!
+            debug("no parameters was passed to this service!")
+            result = FALSE
+        end if
+        
+        debug("single_onInit() done")
+        return result
+    end function
+    
+    sub single_onStart(byref self as ServiceProcess)
+        debug("single_onStart()")
+        
+        do while (self.state = Running) or (self.state = Paused)
+            '# instead of sitting idle here, we must monitor the pid
+            '# and re-spawn a new process if needed
+            if not (single_mongrel_ref->__console.running = true) then
+                '# check if we aren't terminating
+                if (self.state = Running) or (self.state = Paused) then
+                    debug("child process terminated!, re-spawning a new one")
+                    
+                    single_mongrel_ref->__child_pid = 0
+                    if (single_mongrel_ref->__console.start() = true) then
+                        single_mongrel_ref->__child_pid = single_mongrel_ref->__console.pid
+                    end if
+                    
+                    if (single_mongrel_ref->__child_pid > 0) then
+                        debug("new child process pid: " + str(single_mongrel_ref->__child_pid))
+                    end if
+                end if
+            end if
+            
+            '# wait for 5 seconds
+            sleep 5000
+        loop
+        
+        debug("single_onStart() done")
+    end sub
+    
+    sub single_onStop(byref self as ServiceProcess)
+        debug("single_onStop()")
+        
+        '# now terminates the child process
+        if not (single_mongrel_ref->__child_pid = 0) then
+            debug("trying to kill pid: " + str(single_mongrel_ref->__child_pid))
+            if not (single_mongrel_ref->__console.terminate() = true) then
+                debug("Terminate() reported a problem when terminating process " + str(single_mongrel_ref->__child_pid))
+            else
+                debug("child process terminated with success.")
+                single_mongrel_ref->__child_pid = 0
+            end if
+        end if
+        
+        debug("single_onStop() done")
+    end sub
+    
+    sub application()
+        dim simple as SingleMongrel
+        dim host as ServiceHost
+        dim ctrl as ServiceController = ServiceController("Mongrel Windows Service", "version " + VERSION, _
+                                                            "(c) 2006-2010 The Mongrel development team.")
+        
+        '# add SingleMongrel (service)
+        host.Add(simple.__service)
+        select case ctrl.RunMode()
+            '# call from Service Control Manager (SCM)
+            case RunAsService:
+                debug("ServiceHost RunAsService")
+                host.Run()
+                
+            '# call from console, useful for debug purposes.
+            case RunAsConsole:
+                debug("ServiceController Console")
+                ctrl.Console()
+                
+            case else:
+                ctrl.Banner()
+                print "mongrel_service is not designed to run form commandline,"
+                print "please use mongrel_rails service:: commands to create a win32 service."
+        end select
+    end sub
+end namespace
+
+'# MAIN: start native mongrel_service here
+mongrel_service.application()

data/src/mongrel_service/mongrel_service.bi

@@ -0,0 +1,61 @@
+'##################################################################
+'# 
+'# 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.18.
+'# 
+'##################################################################
+
+#define SERVICEFB_INCLUDE_UTILS
+#include once "ServiceFB.bi"
+#include once "console_process.bi"
+
+'# use for debug versions
+#if not defined(GEM_VERSION)
+  #define GEM_VERSION (debug mode)
+#endif
+
+'# preprocessor stringize
+#define PPSTR(x) #x
+
+namespace mongrel_service
+    const VERSION as string = PPSTR(GEM_VERSION)
+    
+    '# namespace include
+    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
+        __console       as ConsoleProcess
+        __child_pid     as uinteger
+    end type
+    
+    '# TODO: replace with inheritance here
+    dim shared single_mongrel_ref as SingleMongrel ptr
+end namespace

data/tasks/gem.rake

@@ -0,0 +1,17 @@
+require 'hoe'
+
+# compile takes higher importance in packaging
+task :package => [:compile]
+task :gem => [:compile]
+
+HOE = Hoe.spec 'mongrel_service' do
+  self.rubyforge_name = "mongrel"
+  self.version = '0.4.beta1'
+
+  developer 'Luis Lavena', 'luislavena@gmail.com'
+
+  extra_deps << ['gem_plugin', '~> 0.2.3']
+  extra_deps << ['mongrel', '~> 1.1.5']
+
+  self.need_tar = false
+end

data/tasks/native_lib.rake

@@ -0,0 +1,40 @@
+require 'tools/freebasic'
+
+# ServiceFB namespace (lib)
+namespace :lib do
+  lib_options = {
+    :debug => false,
+    :profile => false,
+    :errorchecking => :ex,
+    :mt => true,
+    :pedantic => true
+  }
+
+  lib_options[:debug] = true          if ENV['DEBUG']
+  lib_options[:profile] = true        if ENV['PROFILE']
+  lib_options[:errorchecking] = :exx  if ENV['EXX']
+  lib_options[:pedantic] = false      if ENV['NOPEDANTIC']
+
+  project_task 'servicefb' do
+    lib       'ServiceFB'
+    build_to  'builds'
+
+    define    'SERVICEFB_DEBUG_LOG' if ENV['LOG']
+    source    'src/ServiceFB/ServiceFB.bas'
+
+    option    lib_options
+  end
+
+  project_task 'servicefb_utils' do
+    lib       'ServiceFB_Utils'
+    build_to  'builds'
+
+    define    'SERVICEFB_DEBUG_LOG' if ENV['LOG']
+    source    'src/ServiceFB/ServiceFB_Utils.bas'
+
+    option    lib_options
+  end
+end
+
+task :native_lib => ["lib:build"]
+task :clean => ["lib:clobber"]

data/tasks/native_service.rake

@@ -0,0 +1,42 @@
+require 'tools/freebasic'
+
+# mongrel_service (native)
+namespace :native do
+  exe_options = {
+    :debug => false,
+    :profile => false,
+    :errorchecking => :ex,
+    :mt => true,
+    :pedantic => true
+  }
+
+  exe_options[:debug] = true          if ENV['DEBUG']
+  exe_options[:profile] = true        if ENV['PROFILE']
+  exe_options[:errorchecking] = :exx  if ENV['EXX']
+  exe_options[:pedantic] = false      if ENV['NOPEDANTIC']
+
+  project_task  'mongrel_service' do
+    executable  'mongrel_service'
+    build_to    'resources'
+
+    define      'DEBUG_LOG' if ENV['LOG']
+    define      "GEM_VERSION=\"#{HOE.spec.version}\""
+
+    main        'src/mongrel_service/mongrel_service.bas'
+    source      'src/mongrel_service/console_process.bas'
+
+    search_path 'src/ServiceFB'
+
+    lib_path    'builds'
+    library     'ServiceFB', 'ServiceFB_Utils'
+    library     'user32', 'advapi32', 'psapi'
+
+    option      exe_options
+  end
+end
+
+task :clean => ['native:clobber']
+task :native_service => [:native_lib, 'native:build']
+
+desc "Compile native code"
+task :compile => [:native_service]

data/tasks/tests.rake

@@ -0,0 +1,55 @@
+require 'tools/freebasic'
+
+# global options shared by all the project in this Rakefile
+options = {
+  :debug => false,
+  :profile => false,
+  :errorchecking => :ex,
+  :mt => true,
+  :pedantic => true
+}
+
+options[:debug] = true          if ENV['DEBUG']
+options[:profile] = true        if ENV['PROFILE']
+options[:errorchecking] = :exx  if ENV['EXX']
+options[:pedantic] = false      if ENV['NOPEDANTIC']
+
+project_task :mock_process do
+  executable  :mock_process
+  build_to    'tests'
+
+  main        'tests/fixtures/mock_process.bas'
+
+  option      options
+end 
+
+task "all_tests:build" => ["lib:build"]
+
+project_task :all_tests do
+  executable  :all_tests
+  build_to    'tests'
+
+  search_path 'src/mongrel_service'
+  lib_path    'builds'
+
+  main        'tests/all_tests.bas'
+
+  # this temporally fix the inverse namespace ctors of FB
+  source      Dir.glob("tests/test_*.bas").reverse
+
+  library     'testly'
+
+  source      'native/console_process.bas'
+
+  option      options
+end
+
+desc "Run all the internal tests for the library"
+task "all_tests:run" => ["mock_process:build", "all_tests:build"] do
+  Dir.chdir('tests') do
+    sh %{all_tests}
+  end
+end
+
+desc "Run all the test for this project"
+task :test => "all_tests:run"