rhodes 3.2.0.beta.5 → 3.2.0.beta.6

data/CHANGELOG

@@ -7,6 +7,9 @@
 * RhoSimulator for OSX Lion
 * iOS 5 support
 * Fix Symbian emulator build
+* Make sdk in application build.yml optional, use latest Rhodes by default
+* Add hmac ruby extension
+* Symbian: build unsigned sis-file
 
 ## 3.1
 * Symbian support(Beta)

data/Manifest.txt

@@ -46,11 +46,14 @@ ext/extconf.rb
 installer/EnvVarUpdate.nsh
 installer/icon.ico
 installer/instant-rhodes.nsi
+installer/jake.rb
 installer/OLD-README.html
+installer/Rakefile
 installer/README.html
 installer/RHOSTUDIO-LICENSE.txt
 installer/rhostudio.nsi
 installer/RHOSYNC-LICENSE.txt
+installer/ServiceLib.nsh
 lib/build/compileERB/bb.rb
 lib/build/compileERB/default.rb
 lib/build/compileRB/compileRB.rb
@@ -533,6 +536,12 @@ lib/extensions/fcntl/ext/fcntl.vcproj
 lib/extensions/fcntl/ext/Rakefile
 lib/extensions/fcntl/ext.yml
 lib/extensions/fileutils/fileutils.rb
+lib/extensions/hmac/hmac-md5.rb
+lib/extensions/hmac/hmac-rmd160.rb
+lib/extensions/hmac/hmac-sha1.rb
+lib/extensions/hmac/hmac-sha2.rb
+lib/extensions/hmac/hmac.rb
+lib/extensions/hmac/ruby_hmac.rb
 lib/extensions/json/json/common.rb
 lib/extensions/json/json/pure/generator.rb
 lib/extensions/json/json/pure.rb
@@ -4682,11 +4691,11 @@ res/generators/templates/application/public/jqmobile/images/icons-18-black.png
 res/generators/templates/application/public/jqmobile/images/icons-18-white.png
 res/generators/templates/application/public/jqmobile/images/icons-36-black.png
 res/generators/templates/application/public/jqmobile/images/icons-36-white.png
+res/generators/templates/application/public/jqmobile/jquery-mobile-iphone.css
 res/generators/templates/application/public/jqmobile/jquery.mobile-1.0rc1.css
 res/generators/templates/application/public/jqmobile/jquery.mobile-1.0rc1.js
 res/generators/templates/application/public/jqmobile/jquery.mobile-1.0rc1.min.css
 res/generators/templates/application/public/jqmobile/jquery.mobile-1.0rc1.min.js
-res/generators/templates/application/public/jqmobile/jquery.mobile.iphone.css
 res/generators/templates/application/public/jquery/jquery-1.6.4.js
 res/generators/templates/application/public/jquery/jquery-1.6.4.min.js
 res/generators/templates/application/public/js/application.js

data/Rakefile

@@ -1098,6 +1098,12 @@ namespace "run" do
         $appname = $app_config["name"].nil? ? "Rhodes" : $app_config["name"]
         if !File.exists?($path)
             puts "Cannot find RhoSimulator: '#{$path}' does not exists"
+            puts "Check sdk path in build.yml - it should point to latest rhodes (run set-rhodes-sdk in application folder) OR"
+
+            if $config['env']['paths']['rhosimulator'] and $config['env']['paths']['rhosimulator'].length() > 0
+                puts "Check 'env:paths:rhosimulator' path in '<rhodes>/rhobuild.yml' OR"
+            end
+            
             puts "Install Rhodes gem OR"
             puts "Install RhoSimulator and modify 'env:paths:rhosimulator' section in '<rhodes>/rhobuild.yml'"
             exit 1

data/bin/get-rhodes-info

@@ -1,34 +1,11 @@
 #!/usr/bin/env ruby
 
-require 'rubygems'
-require 'templater'
-require File.join(File.dirname(__FILE__), '..', 'res', 'generators', 'rhogen')
-require File.join(File.dirname(__FILE__), '..', 'lib', 'rhodes')
-
-# Stub this method to force 1.8 compatibility (come on templater!)
-class Encoding
-  def find
-    "utf-8"
-  end
-
-  def dummy?
-    false
-  end
+if ARGV && ARGV.size > 0 && ARGV[0] == "--rhodes-path"
+    puts File.dirname(__FILE__)
+    exit(0)    
 end
 
-class String
-  def force_encoding(enc)
-    return self
-  end
-
-  def encoding
-    if RUBY_VERSION =~ /1\.8/ and Encoding.responds_to?('new')
-      Encoding.new
-    else
-      Encoding.default_external
-    end
-  end
-end
+require File.join(File.dirname(__FILE__), '..', 'lib', 'rhodes')
 
 params = ["--rhodes-ver"]
 

data/bin/set-rhodes-sdk

@@ -9,10 +9,13 @@ if File.exists? "build.yml"
   $app_config = YAML::load_file("build.yml")
 
   unless $app_config["sdk"].nil?
-    $app_config["sdk"] = File.expand_path(File.dirname(__FILE__) + "/../")
+    $app_config["sdk"] = nil
 
     File.open(  'build.yml', 'w' ) do |out|
       YAML.dump( $app_config, out )
     end
+
+    rakefilepath = File.join( File.dirname(`get-rhodes-info --rhodes-path`), 'res/generators/templates/application/Rakefile' )
+    cp rakefilepath, '.'
   end
 end

data/doc/build.txt

@@ -46,17 +46,23 @@ You don't have to do it if you cloned sources, but if you want to build a Rhodes
 
 ## Setting Up build.yml
 
-Before you build your application from Rhodes source code, its build.yml file must have the sdk set to your Rhodes source code root folder. For example, your build.yml file could have the following line:
+By default application use latest Rhodes gem installed on computer. 
+
+If you wish to use special version of Rhodes or use Rhodes git sources :
 
 	:::term
 	sdk: /Library/Ruby/Gems/1.8/gems/rhodes-3.0.2
+ 
+    OR for Rhodes sources:
+    
+    sdk: ~/Projects/rhodes
 
-This line in build.yml has likely already been set when you generated your Rhodes application. However, you can also open a command line window, navigate to the directory of your Rhodes application, and set it by running the following command:
+After installing new Rhodes gem(3.2.x over any version less then 3.2.x), you can also open a command line window, navigate to the directory of your Rhodes application, and run the following command:
 
 	:::term
 	$ set-rhodes-sdk
 
-The set-rhodes-sdk command will set the sdk line in your build.yml file to point to your Rhodes source code root folder.
+The set-rhodes-sdk command will remove sdk line from your build.yml to use latest Rhodes gem, it also upgrade application Rakefile.
 
 ## Building a Rhodes Application for iPhone/iPad
 
@@ -709,6 +715,9 @@ Add pathes to Qt SDK and MS Visual Studio 2005 to rhobuild.yml in the Rhodes fol
 
 	:::term
 	$ rake device:symbian:production
+
+NOTE: This command creates two sis-files: signed for testing and unsigned for production signing. See <app_root>/bin/target/sym folder for sis-files.
+
 	
 ### To clean all binaries run:
 

data/doc/extensions.txt

@@ -194,6 +194,32 @@ Add to build.yml:
 
 See details [here](device-caps#barcode).
 
+### net/http
+
+Add to build.yml:
+	
+	extensions: ["net-http", "thread", "timeout", "uri"]
+
+### hmac
+
+Add to build.yml:
+	
+	extensions: ["hmac", "digest", "digest-sha1"]
+
+Example:
+	:::ruby	
+    require 'base64'
+    require 'hmac-sha1'
+
+    def test_hmac
+      key = '1234'
+      signature = 'abcdef'
+      hmac = HMAC::SHA1.new(key)
+      hmac.update(signature)
+   
+      puts Rho::RhoSupport.url_encode(Base64.encode64("#{hmac.digest}\n"))
+    end
+    
 ### FileUtils
 
 Add to build.yml:

data/installer/Rakefile

@@ -0,0 +1,156 @@
+# rake script
+
+require 'date'
+require 'fileutils'
+require 'jake.rb'
+
+$majorVer = "1"
+$minorVer = "2"
+$miniVer  = "0"
+$betaVer  = "7"
+
+$isRhodesBeta = true
+$isConnBeta = false
+$isAdapterBeta = false
+
+$nsisPath        = "C:/Program Files (x86)/NSIS/makensis.exe"
+$rubyPath        = "C:/Android/RhoSync/ruby"
+$rubyInstallPath = "C:/Android/Installer/ruby"
+$macImage        = "/Users/antonvisnevski/rho/RhoStudioDMG.dmg"
+$installScript   = "rhostudio.nsi"
+$commonName      = "RhoStudioInstaller"
+$extWinExe       = '.exe'
+$extOsxExe       = '.dmg'
+
+namespace "installer" do
+
+    def renameInstaller(installerPrefix)
+      installerName = ""
+      currTime = Time.now
+      currDate = currTime.strftime("%d%m%Y%H%M")
+
+      if RUBY_PLATFORM =~ /(win|w)32$/
+        # Windows
+        installerName = $commonName + $majorVer.to_s + "." + $minorVer.to_s + "." + $miniVer +  installerPrefix + $extWinExe
+        puts 'new installer file name: ' + installerName
+        File.rename($commonName + $extWinExe, installerName) 
+      else
+        installerName = $commonName + $majorVer.to_s + "." + $minorVer.to_s + "." + $miniVer +  installerPrefix + $extOsxExe  
+        puts 'new installer file name: ' + installerName
+        Jake.run2 "hdiutil", ["convert", $macImage, "-format", "UDZO", "-o", installerName], {:nowait => false} 
+      end
+    end
+
+    def changeRubyFolder()
+      if RUBY_PLATFORM =~ /(win|w)32$/
+        #copy ruby folder
+        FileUtils.rm_rf $rubyInstallPath      
+        FileUtils.cp_r $rubyPath, $rubyInstallPath
+      else
+        return
+      end
+    end
+
+    def installGems(isRhodesBeta, isConnBeta, isAdapterBeta)
+        if RUBY_PLATFORM =~ /(win|w)32$/
+        else
+          return
+        end
+
+        Jake.run2 "gem", ["uninstall", "rhomobile-debug", "-a"], {:nowait => false} 
+        Jake.run2 "gem", ["uninstall", "rhodes", "-a"], {:nowait => false} 
+        Jake.run2 "gem", ["uninstall", "rhoconnect", "-a"], {:nowait => false}       
+        Jake.run2 "gem", ["uninstall", "rhoconnect-adapters", "-a"], {:nowait => false} 
+
+        Jake.run2 "gem", ["install", "rhomobile-debug"], {:nowait => false} 
+
+	if isRhodesBeta == false
+          Jake.run2 "gem", ["install", "rhodes"], {:nowait => false} 
+        else
+          Jake.run2 "gem", ["install", "rhodes", "--pre"], {:nowait => false} 
+        end
+
+	if $isConnBeta == false
+          Jake.run2 "gem", ["install", "rhoconnect"], {:nowait => false}       
+        else
+          Jake.run2 "gem", ["install", "rhoconnect", "--pre"], {:nowait => false}       
+        end
+
+        if $isAdapterBeta == false
+          Jake.run2 "gem", ["install", "rhoconnect-adapters"], {:nowait => false} 
+        else
+          Jake.run2 "gem", ["install", "rhoconnect-adapters", "--pre"], {:nowait => false} 
+        end
+
+        changeRubyFolder()
+    end
+
+    def runInstallerScript
+        if RUBY_PLATFORM =~ /(win|w)32$/
+          puts 'start build nsis script: ' +  $installScript
+          Jake.run2 $nsisPath, [$installScript], {:nowait => false}
+        else
+          return
+        end
+    end
+
+    namespace "release" do
+      task :gems do
+        puts 'release - reinstall gems task'
+        installGems(false, false, false)
+      end
+
+      task :nsis => "gems" do 
+        runInstallerScript
+      end
+
+      task :rename => "nsis" do
+        puts 'release - start rename task'
+        renameInstaller("")
+      end
+
+    end
+
+    namespace "beta" do
+
+      task :gems do
+        installGems(true, true, true)
+      end
+
+      task :nsis => "gems" do 
+        runInstallerScript
+      end
+
+      task :rename => "nsis" do
+        renameInstaller(".beta" + $betaVer)
+      end
+
+    end
+
+    namespace "user" do
+      task :gems do
+        installGems($isRhodesBeta, $isConnBeta, $isAdapterBeta)
+      end
+
+      task :nsis => "gems" do 
+        runInstallerScript
+      end
+
+      task :rename => "nsis" do
+        renameInstaller(".beta" + $betaVer)
+      end
+
+    end
+
+    ########################################################
+
+    task :release => "release:rename" do
+    end
+
+    task :beta => "beta:rename" do
+    end
+
+    task :user => "user:rename" do
+    end
+
+end

data/installer/ServiceLib.nsh

@@ -0,0 +1,369 @@
+; NSIS SERVICE LIBRARY - servicelib.nsh
+; Version 1.5 - Jun 25th, 2008
+; Questions/Comments - dselkirk@hotmail.com
+;
+; Description:
+;   Provides an interface to window services
+;
+; Inputs:
+;   action     - systemlib action ie. create, delete, start, stop, pause,
+;              continue, installed, running, status
+;   name       - name of service to manipulate
+;   param      - action parameters; usage: var1=value1;var2=value2;...etc.
+;                 (don't forget to add a ';' after the last value!)
+;
+; Actions:
+;   create     - creates a new windows service
+;              Parameters:
+;                path        - path to service executable
+;                autostart   - automatically start with system ie. 1|0
+;                interact    - interact with the desktop ie. 1|0
+;                depend      - service dependencies
+;                user        - user that runs the service
+;                password    - password of the above user
+;                display     - display name in service's console
+;                description - Description of service
+;
+;   delete     - deletes a windows service
+;   start      - start a stopped windows service
+;   stop       - stops a running windows service
+;   pause      - pauses a running windows service
+;   continue   - continues a paused windows service
+;   installed  - is the provided service installed
+;              Parameters:
+;                action      - if true then invokes the specified action
+;   running    - is the provided service running
+;              Parameters:
+;                action      - if true then invokes the specified action
+;   status     - check the status of the provided service
+;
+; If run from uninstall define "UN" as "un." before running.
+;
+; Usage:
+;   Method 1:
+;     Push "action"
+;     Push "name"
+;     Push "param"
+;     Call Service
+;     Pop $0 ;response
+;
+;   Method 2:
+;     !insertmacro SERVICE "action" "name" "param"
+;
+; History:
+;   1.0 - 09/15/2003 - Initial release
+;   1.1 - 09/16/2003 - Changed &l to i, thx brainsucker
+;   1.2 - 02/29/2004 - Fixed documentation.
+;   1.3 - 01/05/2006 - Fixed interactive flag and pop order (Kichik)
+;   1.4 - 12/07/2006 - Added display and depend, fixed datatypes (Vitoco)
+;   1.5 - 06/25/2008 - Added description of service.(DeSafe.com/liuqixing#gmail.com)
+ 
+!ifndef SERVICELIB
+  !define SERVICELIB
+
+  !define SC_MANAGER_ALL_ACCESS 0x3F
+  !define SERVICE_ALL_ACCESS 0xF01FF
+
+  !define SERVICE_CONTROL_STOP  1
+  !define SERVICE_CONTROL_PAUSE  2
+  !define SERVICE_CONTROL_CONTINUE  3
+
+  !define SERVICE_STOPPED 0x1
+  !define SERVICE_START_PENDING 0x2
+  !define SERVICE_STOP_PENDING 0x3
+  !define SERVICE_RUNNING 0x4
+  !define SERVICE_CONTINUE_PENDING 0x5
+  !define SERVICE_PAUSE_PENDING 0x6
+  !define SERVICE_PAUSED 0x7
+
+  !ifndef UN
+    !define UN ""
+  !endif
+
+  !macro SERVICE ACTION NAME PARAM
+    Push '${ACTION}'
+    Push '${NAME}'
+    Push '${PARAM}'
+    Call ${UN}Service
+  !macroend
+
+  !macro FUNC_GETPARAM
+    Push $0
+    Push $1
+    Push $2
+    Push $3
+    Push $4
+    Push $5
+    Push $6
+    Push $7
+    Exch 8
+    Pop $1 ;name
+    Exch 8
+    Pop $2 ;source
+    StrCpy $0 ""
+    StrLen $7 $2
+    StrCpy $3 0
+    lbl_loop:
+      IntCmp $3 $7 0 0 lbl_done
+      StrLen $4 "$1="
+      StrCpy $5 $2 $4 $3
+      StrCmp $5 "$1=" 0 lbl_next
+      IntOp $5 $3 + $4
+      StrCpy $3 $5
+      lbl_loop2:
+        IntCmp $3 $7 0 0 lbl_done
+        StrCpy $6 $2 1 $3
+        StrCmp $6 ";" 0 lbl_next2
+        IntOp $6 $3 - $5
+        StrCpy $0 $2 $6 $5
+        Goto lbl_done
+        lbl_next2:
+        IntOp $3 $3 + 1
+        Goto lbl_loop2
+      lbl_next:
+      IntOp $3 $3 + 1
+      Goto lbl_loop
+    lbl_done:
+    Pop $5
+    Pop $4
+    Pop $3
+    Pop $2
+    Pop $1
+    Exch 2
+    Pop $6
+    Pop $7
+    Exch $0
+  !macroend
+
+  !macro CALL_GETPARAM VAR NAME DEFAULT LABEL
+    Push $1
+    Push ${NAME}
+    Call ${UN}GETPARAM
+    Pop $6
+    StrCpy ${VAR} "${DEFAULT}"
+    StrCmp $6 "" "${LABEL}" 0
+    StrCpy ${VAR} $6
+  !macroend
+
+  !macro FUNC_SERVICE UN
+    Push $0
+    Push $1
+    Push $2
+    Push $3
+    Push $4
+    Push $5
+    Push $6
+    Push $7
+    Exch 8
+    Pop $1 ;param
+    Exch 8
+    Pop $2 ;name
+    Exch 8
+    Pop $3 ;action
+    ;$0 return
+    ;$4 OpenSCManager
+    ;$5 OpenService
+
+    StrCpy $0 "false"
+    System::Call 'advapi32::OpenSCManagerA(n, n, i ${SC_MANAGER_ALL_ACCESS}) i.r4'
+    IntCmp $4 0 lbl_done
+    StrCmp $3 "create" lbl_create
+    System::Call 'advapi32::OpenServiceA(i r4, t r2, i ${SERVICE_ALL_ACCESS}) i.r5'
+    IntCmp $5 0 lbl_done
+
+    lbl_select:
+    StrCmp $3 "delete" lbl_delete
+    StrCmp $3 "start" lbl_start
+    StrCmp $3 "stop" lbl_stop
+    StrCmp $3 "pause" lbl_pause
+    StrCmp $3 "continue" lbl_continue
+    StrCmp $3 "installed" lbl_installed
+    StrCmp $3 "running" lbl_running
+    StrCmp $3 "status" lbl_status
+    Goto lbl_done
+
+    ; create service
+    lbl_create:
+      Push $R1 ;depend
+      Push $R2 ;user
+      Push $R3 ;password
+      Push $R4 ;interact
+      Push $R5 ;autostart
+      Push $R6 ;path
+      Push $R7 ;display
+      Push $R8 ;description
+
+      !insertmacro CALL_GETPARAM $R1 "depend" "n" "lbl_depend"
+        StrCpy $R1 't "$R1"'
+      lbl_depend:
+      StrCmp $R1 "n" 0 lbl_machine ;old name of depend param
+      !insertmacro CALL_GETPARAM $R1 "machine" "n" "lbl_machine"
+        StrCpy $R1 't "$R1"'
+      lbl_machine:
+
+      !insertmacro CALL_GETPARAM $R2 "user" "n" "lbl_user"
+        StrCpy $R2 't "$R2"'
+      lbl_user:
+
+      !insertmacro CALL_GETPARAM $R3 "password" "n" "lbl_password"
+        StrCpy $R3 't "$R3"'
+      lbl_password:
+
+      !insertmacro CALL_GETPARAM $R4 "interact" "0x10" "lbl_interact"
+        StrCpy $6 0x10
+        IntCmp $R4 0 +2
+        IntOp $6 $6 | 0x100
+        StrCpy $R4 $6
+      lbl_interact:
+
+      !insertmacro CALL_GETPARAM $R5 "autostart" "0x3" "lbl_autostart"
+        StrCpy $6 0x3
+        IntCmp $R5 0 +2
+        StrCpy $6 0x2
+        StrCpy $R5 $6
+      lbl_autostart:
+
+      !insertmacro CALL_GETPARAM $R6 "path" "n" "lbl_path"
+      lbl_path:
+
+      !insertmacro CALL_GETPARAM $R7 "display" "$2" "lbl_display"
+      lbl_display:
+
+      !insertmacro CALL_GETPARAM $R8 "description" "$2" "lbl_description"
+      lbl_description:
+
+      System::Call 'advapi32::CreateServiceA(i r4, t r2, t R7, i ${SERVICE_ALL_ACCESS}, \
+                                             i R4, i R5, i 0, t R6, n, n, $R1, $R2, $R3) i.r6'
+
+      ;	write description of service
+      WriteRegStr HKLM "SYSTEM\ControlSet001\Services\$2" "Description" $R8
+
+      Pop $R8
+      Pop $R7
+      Pop $R6
+      Pop $R5
+      Pop $R4
+      Pop $R3
+      Pop $R2
+      Pop $R1
+      StrCmp $6 0 lbl_done lbl_good
+
+    ; delete service
+    lbl_delete:
+      System::Call 'advapi32::DeleteService(i r5) i.r6'
+      StrCmp $6 0 lbl_done lbl_good
+
+    ; start service
+    lbl_start:
+      System::Call 'advapi32::StartServiceA(i r5, i 0, i 0) i.r6'
+      StrCmp $6 0 lbl_done lbl_good
+
+    ; stop service
+    lbl_stop:
+      Push $R1
+      System::Call '*(i,i,i,i,i,i,i) i.R1'
+      System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_STOP}, i $R1) i'
+      System::Free $R1
+      Pop $R1
+      StrCmp $6 0 lbl_done lbl_good
+
+    ; pause service
+    lbl_pause:
+      Push $R1
+      System::Call '*(i,i,i,i,i,i,i) i.R1'
+      System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_PAUSE}, i $R1) i'
+      System::Free $R1
+      Pop $R1
+      StrCmp $6 0 lbl_done lbl_good
+
+    ; continue service
+    lbl_continue:
+      Push $R1
+      System::Call '*(i,i,i,i,i,i,i) i.R1'
+      System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_CONTINUE}, i $R1) i'
+      System::Free $R1
+      Pop $R1
+      StrCmp $6 0 lbl_done lbl_good
+
+    ; is installed
+    lbl_installed:
+      !insertmacro CALL_GETPARAM $7 "action" "" "lbl_good"
+        StrCpy $3 $7
+        Goto lbl_select
+
+    ; is service running
+    lbl_running:
+      Push $R1
+      System::Call '*(i,i,i,i,i,i,i) i.R1'
+      System::Call 'advapi32::QueryServiceStatus(i r5, i $R1) i'
+      System::Call '*$R1(i, i.r6)'
+      System::Free $R1
+      Pop $R1
+      IntFmt $6 "0x%X" $6
+      StrCmp $6 ${SERVICE_RUNNING} 0 lbl_done
+      !insertmacro CALL_GETPARAM $7 "action" "" "lbl_good"
+        StrCpy $3 $7
+        Goto lbl_select
+
+    lbl_status:
+      Push $R1
+      System::Call '*(i,i,i,i,i,i,i) i.R1'
+      System::Call 'advapi32::QueryServiceStatus(i r5, i $R1) i'
+      System::Call '*$R1(i, i .r6)'
+      System::Free $R1
+      Pop $R1
+      IntFmt $6 "0x%X" $6
+      StrCpy $0 "running"
+      IntCmp $6 ${SERVICE_RUNNING} lbl_done
+      StrCpy $0 "stopped"
+      IntCmp $6 ${SERVICE_STOPPED} lbl_done
+      StrCpy $0 "start_pending"
+      IntCmp $6 ${SERVICE_START_PENDING} lbl_done
+      StrCpy $0 "stop_pending"
+      IntCmp $6 ${SERVICE_STOP_PENDING} lbl_done
+      StrCpy $0 "running"
+      IntCmp $6 ${SERVICE_RUNNING} lbl_done
+      StrCpy $0 "continue_pending"
+      IntCmp $6 ${SERVICE_CONTINUE_PENDING} lbl_done
+      StrCpy $0 "pause_pending"
+      IntCmp $6 ${SERVICE_PAUSE_PENDING} lbl_done
+      StrCpy $0 "paused"
+      IntCmp $6 ${SERVICE_PAUSED} lbl_done
+      StrCpy $0 "unknown"
+      Goto lbl_done
+
+    lbl_good:
+    StrCpy $0 "true"
+    lbl_done:
+    IntCmp $5 0 +2
+    System::Call 'advapi32::CloseServiceHandle(i r5) n'
+    IntCmp $4 0 +2
+    System::Call 'advapi32::CloseServiceHandle(i r4) n'
+    Pop $4
+    Pop $3
+    Pop $2
+    Pop $1
+    Exch 3
+    Pop $5
+    Pop $7
+    Pop $6
+    Exch $0
+  !macroend
+
+  Function Service
+    !insertmacro FUNC_SERVICE ""
+  FunctionEnd
+
+  Function un.Service
+    !insertmacro FUNC_SERVICE "un."
+  FunctionEnd
+
+  Function GetParam
+    !insertmacro FUNC_GETPARAM
+  FunctionEnd
+
+  Function un.GetParam
+    !insertmacro FUNC_GETPARAM
+  FunctionEnd
+
+!endif