Mercurial Mercurial > hg > stx-projects-smalltalk / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
h_win32.rc
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 08 Jun 2016 00:20:44 +0100
branchjv
changeset 1440 b822d6dc20e7
parent 1423 f30fc933e35e
parent 1430 b02e9366f9fc
child 1443 b18e4c988c35
permissions -rw-r--r--
Merge
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
331
a0be330a1f43 moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
     1
 
"*
609
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 578
diff changeset 
     2
 
 * Encoding: iso8859-1
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 578
diff changeset 
     3
 
 *
331
a0be330a1f43 moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
     4
 
 * $Header$
a0be330a1f43 moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
     5
 
 *
399
5a842f5d7196 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 366
diff changeset 
     6
 
 * MIMEType: application/x-smalltalk-source
5a842f5d7196 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 366
diff changeset 
     7
 
 *
331
a0be330a1f43 moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
     8
 
 * 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 
     9
 
 *
a0be330a1f43 moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
    10
 
 * 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 
    11
 
 * where xxx stands for your hostname(s)
a0be330a1f43 moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
    12
 
 *"
1243
1fc6b3f01e48 End chung after initial comment / encoding spec
Stefan Vogel <sv@exept.de>
parents: 921
diff changeset 
    13
 
!
357
dc01b7bc319e add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents: 331
diff changeset 
    14
 
"/ look in registry for LibDir ...
723
e308a2b1775b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 707
diff changeset 
    15
 
|k rel curr libDir|
357
dc01b7bc319e add LibDir setting from registry to systemPath
Claus Gittinger <cg@exept.de>
parents: 331
diff changeset 
    16
 












dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    17


rel := Smalltalk versionString.








672






43a67655f4f2
*** empty log message ***



Claus Gittinger <cg@exept.de>


parents: 
670

diff
changeset




    18


k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel).








357






dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    19


k isNil ifTrue:[








672






43a67655f4f2
*** empty log message ***



Claus Gittinger <cg@exept.de>


parents: 
670

diff
changeset




    20


    k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.








357






dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    21


    k notNil ifTrue:[













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    22


	curr := k valueNamed:'CurrentVersion'.













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    23


	curr isString ifTrue:[













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    24


	    k close.








672






43a67655f4f2
*** empty log message ***



Claus Gittinger <cg@exept.de>


parents: 
670

diff
changeset




    25


	    k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',curr).








357






dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    26


	]













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    27


    ]













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    28


].













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    29


k notNil ifTrue:[













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    30


    libDir := k valueNamed:'LibDir'.








410






abb01ec3a9b6
*** empty log message ***



Claus Gittinger <cg@exept.de>


parents: 
399

diff
changeset




    31


    (libDir notNil and:[libDir asFilename exists]) ifTrue:[








670






7f89ef33a8cf
*** empty log message ***



Claus Gittinger <cg@exept.de>


parents: 
669

diff
changeset




    32


	(Smalltalk systemPath includes:(libDir asFilename pathName)) ifFalse:[













7f89ef33a8cf
*** empty log message ***



Claus Gittinger <cg@exept.de>


parents: 
669

diff
changeset




    33


	    Smalltalk systemPath addFirst:(libDir asFilename pathName).













7f89ef33a8cf
*** empty log message ***



Claus Gittinger <cg@exept.de>


parents: 
669

diff
changeset




    34


	    Smalltalk flushPathCaches













7f89ef33a8cf
*** empty log message ***



Claus Gittinger <cg@exept.de>


parents: 
669

diff
changeset




    35


	]








357






dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    36


    ].













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    37


    k close.













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    38


].













dc01b7bc319e
add LibDir setting from registry to systemPath



Claus Gittinger <cg@exept.de>


parents: 
331

diff
changeset




    39


!








1430






b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    40


				'C:\Programme\mingw-w64\mingw64\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    41


				'C:\Programme\mingw-w64\mingw\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    42


				'C:\Programs\mingw-w64\mingw64\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    43


				'C:\Programs\mingw-w64\mingw\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    44


				'C:\Program Files\mingw-w64\mingw64\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    45


				'C:\Program Files\mingw-w64\mingw\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    46


				'C:\mingw-w64\mingw64\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    47


				'C:\Programme\mingw-w32\mingw32\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    48


				'C:\Programme\mingw-w32\mingw\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    49


				'C:\Programs\mingw-w32\mingw32\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    50


				'C:\Programs\mingw-w32\mingw\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    51


				'C:\Program Files\mingw-w32\mingw32\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    52


				'C:\Program Files\mingw-w32\mingw\bin'













b02e9366f9fc
compiler setup



Claus Gittinger <cg@exept.de>


parents: 
1418

diff
changeset




    53


				'C:\mingw-w32\mingw32\bin'








1440





Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
1423
1430

diff
changeset




    54


				'C:\mingw-w32\mingw\bin'














hg/stx-projects-smalltalk