Subversion Repositories gelsvn

Rev

Rev 228 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 228 Rev 231
Line 16... Line 16...
16 
  Local $envloc = "HKCU\Environment"
 16 
  Local $envloc = "HKCU\Environment"
17 
  If $scope = "System" Then
 17 
  If $scope = "System" Then
18 
    $envloc = "HKLM\System\ControlSet001\Control\Session Manager\Environment"
 18 
    $envloc = "HKLM\System\ControlSet001\Control\Session Manager\Environment"
19 
  EndIf
 19 
  EndIf
20 
  return $envloc
 20 
  return $envloc
- 
 
 21 
 
21 
Endfunc
 22 
Endfunc
22 
 
 23 
 
23 
Func updatePath(ByRef $inpubox)
24 
Func updatePath(ByRef $inpubox)
24 
    Local $text = FileSelectFolder ( "Select folder", "" , 1 )
 25 
    Local $text = FileSelectFolder ( "Select folder", "" , 1 )
25 
 
 26 
 
Line 30... Line 31...
30 
 
 31 
 
31 
Func installLibs($GELpath, $scope)
 32 
Func installLibs($GELpath, $scope)
32
33
33 
  $envloc = EnvLocal($scope)
 34 
  $envloc = EnvLocal($scope)
34 
 
 35 
 
35 
  RegWrite($envloc,"GEL_INCLUDE","REG_EXPAND_SZ",$GELPath & "\include")
 36 
  RegWrite($envloc,"GEL_INCLUDE","REG_EXPAND_SZ",$GELpath & "\include")
- 
 
 37 
  RegWrite($envloc,"GEL_LIB","REG_EXPAND_SZ",$GELpath & "\lib")
- 
 
 38 
  RegWrite($envloc,"GEL_BIN","REG_EXPAND_SZ",$GELpath & "\bin")
- 
 
 39 
 
- 
 
 40 
  $Path = RegREad($envloc,"Path")
- 
 
 41 
  ;RegWrite($envloc,"Path","REG_EXPAND_SZ",$Path & ";" & "%GEL_BIN%")
- 
 
 42 
 
- 
 
 43 
  DirCreate($GELpath)
- 
 
 44 
  FileInstall("externals.exe", $GELpath, 1)
- 
 
 45 
 
- 
 
 46 
  FileChangeDir ( $GELpath )
- 
 
 47 
  RunWait("externals.exe")
- 
 
 48 
  FileDelete("externals.exe")
- 
 
 49 
EndFunc
- 
 
 50 
 
- 
 
 51 
Func installAll($GELpath, $scope)
- 
 
 52
- 
 
 53 
  $envloc = EnvLocal($scope)
- 
 
 54 
 
- 
 
 55 
  RegWrite($envloc,"GEL_INCLUDE","REG_EXPAND_SZ",$GELpath & "\include")
36 
  RegWrite($envloc,"GEL_LIB","REG_EXPAND_SZ",$GELPath & "\lib")
 56 
  RegWrite($envloc,"GEL_LIB","REG_EXPAND_SZ",$GELpath & "\lib")
37 
  RegWrite($envloc,"GEL_BIN","REG_EXPAND_SZ",$GELPath & "\bin")
 57 
  RegWrite($envloc,"GEL_BIN","REG_EXPAND_SZ",$GELpath & "\bin")
38 
 
 58 
 
39 
  $Path = RegREad($envloc,"Path")
 59 
  $Path = RegREad($envloc,"Path")
40 
  RegWrite($envloc,"Path","REG_EXPAND_SZ",$Path & ";" & "%GEL_BIN%")
 60 
  ;RegWrite($envloc,"Path","REG_EXPAND_SZ",$Path & ";" & "%GEL_BIN%")
41 
  MsgBox(0,"Info","Added " & $GELpath & " to path",5)
 - 
 
42 
 
 61 
 
- 
 
 62 
  DirCreate($GELpath)
- 
 
 63 
  FileInstall("externals.exe", $GELpath, 1)
- 
 
 64 
  FileInstall("gel.exe", $GELpath, 1)
- 
 
 65 
 
- 
 
 66 
  FileChangeDir ( $GELpath )
- 
 
 67 
  RunWait("externals.exe")
- 
 
 68 
  RunWait("gel.exe")
- 
 
 69 
  ;FileChangeDir ( $GELpath )
- 
 
 70 
  FileDelete("externals.exe")
- 
 
 71 
  FileDelete("gel.exe")
- 
 
 72
43 
EndFunc
 73 
EndFunc
44 
 
 74 
 
45 
Func makeSolution($GELpath, $msvcVer, $libType, $scope)
 75 
Func makeSolution($GELpath, $msvcVer, $libType, $scope)
46
76
47 
  $envloc = EnvLocal($scope)
 77 
  $envloc = EnvLocal($scope)
48 
 
 78 
 
- 
 
 79 
  $vcver = "vc71"
- 
 
 80 
  $tlib = "msvc"
- 
 
 81 
  $texe = "msvcexe"
- 
 
 82 
  If $msvcVer = "2005" Then
- 
 
 83 
    $vcver = "vc8"
- 
 
 84 
    $tlib = "msvc8lib"
- 
 
 85 
    $texe = "msvc8exe"
- 
 
 86 
  EndIf
- 
 
 87
- 
 
 88 
  $mwcfile="GEL.mwc"
- 
 
 89 
  If $libType = "Single Library" Then
- 
 
 90 
    $mwcfile="GEL_single.mwc"
- 
 
 91 
  EndIf
- 
 
 92 
 
- 
 
 93 
  Run("perl MPC\mwc.pl -type " & $vcver & " -include makefiles -relative GEL_ROOT= -ti lib:" & $tlib & " -ti dll_exe:" & $texe & " " & $mwcfile)
- 
 
 94 
 
49
95
50
96
51 
 
 97 
 
52 
EndFunc
 98 
EndFunc
53 
 
 99