[openrtm-commit:01517] r726 - in trunk/jp.go.aist.rtm.RTC: Source/examples installer/resources/Source/examples

[openrtm ＠ openrtm.org]

Author: kawauchi
Date: 2015-02-05 11:10:42 +0900 (Thu, 05 Feb 2015)
New Revision: 726

Modified:
   trunk/jp.go.aist.rtm.RTC/Source/examples/start-orbd.vbs
   trunk/jp.go.aist.rtm.RTC/installer/resources/Source/examples/start-orbd.vbs
Log:
[compat] Registry key confirmation of Java has been changed. Character code has been changed to utf-8.

Modified: trunk/jp.go.aist.rtm.RTC/Source/examples/start-orbd.vbs
===================================================================
--- trunk/jp.go.aist.rtm.RTC/Source/examples/start-orbd.vbs	2015-01-21 06:37:32 UTC (rev 725)
+++ trunk/jp.go.aist.rtm.RTC/Source/examples/start-orbd.vbs	2015-02-05 02:10:42 UTC (rev 726)
@@ -1,42 +1,48 @@
-'orbd‹N“®—pƒXƒNƒŠƒvƒg
-'–{ƒXƒNƒŠƒvƒg‚͊‹«•Ï”TEMP‚ªÝ’肳‚ê‚Ä‚¢‚邱‚Æ‚ð‘O’ñ‚Æ‚µ‚Ü‚·
-'‚È‚¨AŠÂ‹«•Ï”TEMP‚Í’Ê—áOS‚É‚æ‚èƒfƒtƒHƒ‹ƒg‚Őݒ肳‚ê‚Ä‚¢‚Ü‚·
+'orbd起動用スクリプト
+'本スクリプトは環境変数TEMPが設定されていることを前提とします
+'なお、環境変数TEMPは通例OSによりデフォルトで設定されています
 
 
-'‹N“®—pƒIƒuƒWƒFƒNƒg‚̎擾
+'起動用オブジェクトの取得
 Set objShell = WScript.CreateObject("WScript.Shell")
 
 strMode = objShell.Environment("Process").Item("PROCESSOR_ARCHITECTURE")
 
-'JDK‚̃ŒƒWƒXƒgƒŠƒL[‚ðƒZƒbƒg
-If UCase(strMode) = "X86" Then
-	regJDKkey  = "HKLM\SOFTWARE\JavaSoft\Java Development Kit"
-Else
-	regJDKkey  = "HKLM\SOFTWARE\Wow6432Node\JavaSoft\Java Development Kit"
+'JDKのレジストリキーをセット
+regJDKkey  = "HKLM\SOFTWARE\JavaSoft\Java Development Kit"
+If not (UCase(strMode) = "X86") Then
+  '64bit OS
+  On Error Resume Next
+  regJDKkey = regJDKkey + "\"
+  If IsNull(objShell.RegRead(regJDKkey)) Then
+    'キーが存在しない
+    '64bitのOS上に32bit版のJavaがインストールされている
+    regJDKkey  = "HKLM\SOFTWARE\Wow6432Node\JavaSoft\Java Development Kit"
+  End If
 End If
 
-'ƒŒƒWƒXƒgƒŠ‚©‚çJDKƒJƒŒƒ“ƒgƒo[ƒWƒ‡ƒ“‚ðŽæ“¾
+'レジストリからJDKカレントバージョンを取得
 'objShell.RegRead("HKLM\SOFTWARE\JavaSoft\Java Development Kit\CurrentVersion")
 
-'‚±‚ꂪA—Ⴆ‚Î"1.5"‚¾‚Æ‚·‚é‚ƁA
+'これが、例えば"1.5"だとすると、
 'HKLM\SOFTWARE\JavaSoft\Java Development Kit\1.5\JavaHome
-'‚ÉJDKƒJƒŒƒ“ƒgƒo[ƒWƒ‡ƒ“‚̃‹[ƒgƒtƒHƒ‹ƒ_‚ª‹LÚ‚³‚ê‚Ä‚¢‚é
+'にJDKカレントバージョンのルートフォルダが記載されている
 Javahome  = regJDKkey & "\" & objShell.RegRead(regJDKkey & "\CurrentVersion") & "\JavaHome"
 
-'JDKƒJƒŒƒ“ƒgƒo[ƒWƒ‡ƒ“‚̃‹[ƒgƒtƒHƒ‹ƒ_Javahome‚̉º‚Ìbin\orbd.exe‚ª–Ú“I‚ÌŽÀsƒtƒ@ƒCƒ‹
+'JDKカレントバージョンのルートフォルダJavahomeの下のbin\orbd.exeが目的の実行ファイル
 targetexe = """" & objShell.RegRead(Javahome) & "\bin\orbd.exe"""
 
-'–Ú“I‚ÌŽÀsƒtƒ@ƒCƒ‹targetexe‚ð“KØ‚ȃIƒvƒVƒ‡ƒ“‚ð‚‚¯‚ÄŽÀs‚³‚¹‚é
+'目的の実行ファイルtargetexeを適切なオプションをつけて実行させる
 objShell.Run targetexe & " -ORBInitialPort 2809 -ORBInitialHost localhost -defaultdb ""%TEMP%""\orb.db"
-'‚±‚ê‚͗Ⴆ‚΁AŽŸ‚̂悤‚È‚±‚Æ‚ð‚â‚Á‚Ä‚éB‚½‚¾‚µAì‹ÆƒfƒBƒŒƒNƒgƒŠ‚ðƒ†[ƒU[‚ÌtempƒtƒHƒ‹ƒ_‚ÉŽw’èB
+'これは例えば、次のようなことをやってる。ただし、作業ディレクトリをユーザーのtempフォルダに指定。
 'cf:objShell.Run """C:\Program Files\Java\jdk1.5.0_14\bin\orbd.exe"" -ORBInitialPort 2809 -ORBInitialHost localhost"
 
-'ˆê‰žƒIƒuƒWƒFƒNƒg‚ðŠJ•ú
+'一応オブジェクトを開放
 Set objShell = Nothing
 
 
 ' **********************************************************
-' OS ƒo[ƒWƒ‡ƒ“‚̎擾
+' OS バージョンの取得
 ' **********************************************************
 Function GetOSVersion()
 
@@ -55,4 +61,4 @@
 
         GetOSVersion = CDbl( strWork )
 
-End Function
\ No newline at end of file
+End Function

Modified: trunk/jp.go.aist.rtm.RTC/installer/resources/Source/examples/start-orbd.vbs
===================================================================
--- trunk/jp.go.aist.rtm.RTC/installer/resources/Source/examples/start-orbd.vbs	2015-01-21 06:37:32 UTC (rev 725)
+++ trunk/jp.go.aist.rtm.RTC/installer/resources/Source/examples/start-orbd.vbs	2015-02-05 02:10:42 UTC (rev 726)
@@ -1,42 +1,48 @@
-'orbd‹N“®—pƒXƒNƒŠƒvƒg
-'–{ƒXƒNƒŠƒvƒg‚͊‹«•Ï”TEMP‚ªÝ’肳‚ê‚Ä‚¢‚邱‚Æ‚ð‘O’ñ‚Æ‚µ‚Ü‚·
-'‚È‚¨AŠÂ‹«•Ï”TEMP‚Í’Ê—áOS‚É‚æ‚èƒfƒtƒHƒ‹ƒg‚Őݒ肳‚ê‚Ä‚¢‚Ü‚·
+'orbd起動用スクリプト
+'本スクリプトは環境変数TEMPが設定されていることを前提とします
+'なお、環境変数TEMPは通例OSによりデフォルトで設定されています
 
 
-'‹N“®—pƒIƒuƒWƒFƒNƒg‚̎擾
+'起動用オブジェクトの取得
 Set objShell = WScript.CreateObject("WScript.Shell")
 
 strMode = objShell.Environment("Process").Item("PROCESSOR_ARCHITECTURE")
 
-'JDK‚̃ŒƒWƒXƒgƒŠƒL[‚ðƒZƒbƒg
-If UCase(strMode) = "X86" Then
-	regJDKkey  = "HKLM\SOFTWARE\JavaSoft\Java Development Kit"
-Else
-	regJDKkey  = "HKLM\SOFTWARE\Wow6432Node\JavaSoft\Java Development Kit"
+'JDKのレジストリキーをセット
+regJDKkey  = "HKLM\SOFTWARE\JavaSoft\Java Development Kit"
+If not (UCase(strMode) = "X86") Then
+  '64bit OS
+  On Error Resume Next
+  regJDKkey = regJDKkey + "\"
+  If IsNull(objShell.RegRead(regJDKkey)) Then
+    'キーが存在しない
+    '64bitのOS上に32bit版のJavaがインストールされている
+    regJDKkey  = "HKLM\SOFTWARE\Wow6432Node\JavaSoft\Java Development Kit"
+  End If
 End If
 
-'ƒŒƒWƒXƒgƒŠ‚©‚çJDKƒJƒŒƒ“ƒgƒo[ƒWƒ‡ƒ“‚ðŽæ“¾
+'レジストリからJDKカレントバージョンを取得
 'objShell.RegRead("HKLM\SOFTWARE\JavaSoft\Java Development Kit\CurrentVersion")
 
-'‚±‚ꂪA—Ⴆ‚Î"1.5"‚¾‚Æ‚·‚é‚ƁA
+'これが、例えば"1.5"だとすると、
 'HKLM\SOFTWARE\JavaSoft\Java Development Kit\1.5\JavaHome
-'‚ÉJDKƒJƒŒƒ“ƒgƒo[ƒWƒ‡ƒ“‚̃‹[ƒgƒtƒHƒ‹ƒ_‚ª‹LÚ‚³‚ê‚Ä‚¢‚é
+'にJDKカレントバージョンのルートフォルダが記載されている
 Javahome  = regJDKkey & "\" & objShell.RegRead(regJDKkey & "\CurrentVersion") & "\JavaHome"
 
-'JDKƒJƒŒƒ“ƒgƒo[ƒWƒ‡ƒ“‚̃‹[ƒgƒtƒHƒ‹ƒ_Javahome‚̉º‚Ìbin\orbd.exe‚ª–Ú“I‚ÌŽÀsƒtƒ@ƒCƒ‹
+'JDKカレントバージョンのルートフォルダJavahomeの下のbin\orbd.exeが目的の実行ファイル
 targetexe = """" & objShell.RegRead(Javahome) & "\bin\orbd.exe"""
 
-'–Ú“I‚ÌŽÀsƒtƒ@ƒCƒ‹targetexe‚ð“KØ‚ȃIƒvƒVƒ‡ƒ“‚ð‚‚¯‚ÄŽÀs‚³‚¹‚é
+'目的の実行ファイルtargetexeを適切なオプションをつけて実行させる
 objShell.Run targetexe & " -ORBInitialPort 2809 -ORBInitialHost localhost -defaultdb ""%TEMP%""\orb.db"
-'‚±‚ê‚͗Ⴆ‚΁AŽŸ‚̂悤‚È‚±‚Æ‚ð‚â‚Á‚Ä‚éB‚½‚¾‚µAì‹ÆƒfƒBƒŒƒNƒgƒŠ‚ðƒ†[ƒU[‚ÌtempƒtƒHƒ‹ƒ_‚ÉŽw’èB
+'これは例えば、次のようなことをやってる。ただし、作業ディレクトリをユーザーのtempフォルダに指定。
 'cf:objShell.Run """C:\Program Files\Java\jdk1.5.0_14\bin\orbd.exe"" -ORBInitialPort 2809 -ORBInitialHost localhost"
 
-'ˆê‰žƒIƒuƒWƒFƒNƒg‚ðŠJ•ú
+'一応オブジェクトを開放
 Set objShell = Nothing
 
 
 ' **********************************************************
-' OS ƒo[ƒWƒ‡ƒ“‚̎擾
+' OS バージョンの取得
 ' **********************************************************
 Function GetOSVersion()
 
@@ -55,4 +61,4 @@
 
         GetOSVersion = CDbl( strWork )
 
-End Function
\ No newline at end of file
+End Function