| author | Claus Gittinger <cg@exept.de> |
| Fri, 11 Jun 1999 11:21:28 +0200 | |
| changeset 363 | 9d31dcdffe95 |
| parent 357 | dc01b7bc319e |
| child 366 | 397c5e4955e6 |
| permissions | -rw-r--r-- |
|
331
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1 |
"* |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2 |
* $Header$ |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
3 |
* |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
4 |
* ST/X startup configuration file - for win95, win98 and winNT OS. |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
5 |
* |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
6 |
* DONT add site specific things here - use your own h_xxx.rc file instead |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
7 |
* where xxx stands for your hostname(s) |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
8 |
*" |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
9 |
|
|
357
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
10 |
"/ look in registry for LibDir ... |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
11 |
|k rel curr| |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
12 |
|
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
13 |
rel := Smalltalk versionString. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
14 |
k := Win32OperatingSystem::RegistryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel).
|
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
15 |
k isNil ifTrue:[ |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
16 |
k := Win32OperatingSystem::RegistryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
17 |
k notNil ifTrue:[ |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
18 |
curr := k valueNamed:'CurrentVersion'. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
19 |
curr isString ifTrue:[ |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
20 |
k close. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
21 |
k := Win32OperatingSystem::RegistryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',curr).
|
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
22 |
] |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
23 |
] |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
24 |
]. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
25 |
k notNil ifTrue:[ |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
26 |
libDir := k valueNamed:'LibDir'. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
27 |
libDir notNil ifTrue:[ |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
28 |
Smalltalk systemPath addFirst:libDir. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
29 |
Smalltalk flushPathCaches |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
30 |
]. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
31 |
k close. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
32 |
]. |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
33 |
! |
|
dc01b7bc319e
add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents:
331
diff
changeset
|
34 |
|
|
331
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
35 |
"/ |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
36 |
"/ right now, stx can only be used with a |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
37 |
"/ borland C-compiler. |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
38 |
"/ |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
39 |
|
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
40 |
"/ msc |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
41 |
"/ Compiler ccPath:'cl'. |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
42 |
"/ Compiler ccCompilationOptions:'/O1'. |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
43 |
|
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
44 |
"/ borland |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
45 |
Compiler ccPath:'bcc32'. |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
46 |
Compiler ccCompilationOptions:''. |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
47 |
|
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
48 |
! |
|
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
49 |