STXInstaller.st
author Claus Gittinger <cg@exept.de>
Sat, 21 Jul 2012 18:58:03 +0200
changeset 2898 c7f6c498df6a
parent 1779 f3237e4844d9
permissions -rw-r--r--
category of:15 methods
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1503
fc8bbc760d17 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
     1
"{ Package: 'stx:libtool2' }"
fc8bbc760d17 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
     2
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
Object subclass:#STXInstaller
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
     4
	instanceVariableNames:'stxLibDir stxLibBinDir stxBinDir stxPkgDir stxDocDir stxTopDir
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
     5
		installDocFiles installSourceFiles installSTCFiles
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
     6
		installGoodyFiles fullDir actionPercentageHolder actionTextHolder
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
     7
		commandTraceView resources dfHolder copyProcess installWhat'
1139
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
     8
	classVariableNames:'LastPartialDir LastFullDir'
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	poolDictionaries:''
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
	category:'eXept-tools'
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
28
b3a8378dd626 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 27
diff changeset
    14
!STXInstaller class methodsFor:'startup'!
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
open
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
    ^ self new open
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
    19
    "
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
    20
     STXInstaller open
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
    21
    "
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    22
! !
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    23
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    24
!STXInstaller methodsFor:'defaults'!
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    25
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    26
defaultBinDirs
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    27
    |dirs stxRel|
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    28
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    29
    stxRel := self smalltalkRelease.
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    30
    dirs := OrderedCollection new.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    31
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    32
    OperatingSystem isMSWINDOWSlike ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    33
        dirs add:'c:\Programme\eXept\SmalltalkX\' , stxRel , '\bin'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    34
        dirs add:'c:\Programme\SmalltalkX\' , stxRel , '\bin'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    35
        dirs add:'c:\SmalltalkX\' , stxRel , '\bin'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    36
    ] ifFalse:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    37
        dirs add:'/opt/smalltalk/' , stxRel , '/bin'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    38
        dirs add:'/usr/local/bin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    39
        dirs add:'/usr/bin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    40
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    41
        dirs add:(Filename homeDirectory constructString:'bin').
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    42
        dirs add:((Filename homeDirectory construct:'stx') constructString:'bin').
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    43
        dirs add:'/tmp/stxbin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    44
        ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    45
            dirs add:'/home/stx/bin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    46
        ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    47
        ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    48
            dirs add:'/home2/stx/bin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    49
        ].
3
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    50
    ].
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    51
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    52
"/    dirs := dirs select:[:path | 
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    53
"/                            |f|
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    54
"/
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    55
"/                            f := path asFilename.
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    56
"/                            f exists and:[f isDirectory]].
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
    57
    ^ dirs "sort"
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    58
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    59
    "Created: / 18.7.1996 / 19:43:00 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    60
    "Modified: / 31.5.1999 / 12:11:48 / cg"
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    61
!
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    62
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    63
defaultFullDirs
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    64
    |dirs|
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    65
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    66
    dirs := OrderedCollection new.
1515
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    67
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    68
    dirs add:((Filename homeDirectory constructString:'stxDevelop')).
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    69
    dirs add:((Filename homeDirectory constructString:'develop')).
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    70
    dirs add:((Filename homeDirectory constructString:'work')).
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    71
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    72
"/    ('/home' asFilename exists 
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    73
"/    and:['/home' asFilename isDirectory]) ifTrue:[
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    74
"/        dirs add:'/home/work'.
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
    75
"/    ].
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    76
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
    77
    ^ dirs "sort"
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    78
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    79
    "Modified: / 18.7.1996 / 19:45:08 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    80
    "Created: / 25.2.1998 / 17:14:43 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    81
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    82
1139
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    83
defaultInstDirs
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    84
    |dirs d stxRel|
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    85
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    86
    stxRel := self smalltalkRelease.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    87
    dirs := OrderedCollection new.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    88
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    89
    OperatingSystem isMSWINDOWSlike ifTrue:[
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    90
        dirs add:'c:\Programme\eXept\SmalltalkX\' , stxRel.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    91
        dirs add:'c:\Programme\SmalltalkX\' , stxRel.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    92
        dirs add:'c:\SmalltalkX\' , stxRel.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    93
    ] ifFalse:[
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    94
        dirs add:'/opt/smalltalk/' , stxRel.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    95
        dirs add:'/usr/local/smalltalkX'.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    96
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    97
        d := (Filename homeDirectory constructString:'smalltalkX').
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    98
        (dirs includes:d) ifFalse:[dirs add:d].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
    99
        d := (Filename homeDirectory constructString:'stx').
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   100
        (dirs includes:d) ifFalse:[dirs add:d].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   101
        d := '/tmp/stx'.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   102
        (dirs includes:d) ifFalse:[dirs add:d].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   103
        ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   104
            d := '/home/stx'.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   105
            (dirs includes:d) ifFalse:[dirs add:d].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   106
        ].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   107
        ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   108
            d := '/home2/stx'.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   109
            (dirs includes:d) ifFalse:[dirs add:d].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   110
        ].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   111
    ].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   112
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   113
"/    dirs := dirs select:[:path | 
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   114
"/                            |f|
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   115
"/
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   116
"/                            f := path asFilename.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   117
"/                            f exists and:[f isDirectory]].
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   118
    ^ dirs "sort"
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   119
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   120
    "Created: / 18.7.1996 / 19:43:00 / cg"
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   121
    "Modified: / 31.5.1999 / 18:32:17 / cg"
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   122
!
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   123
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   124
defaultLibBinDirs
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   125
    |dirs stxRel|
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   126
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   127
    stxRel := self smalltalkRelease.
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   128
    dirs := OrderedCollection new.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   129
    OperatingSystem isMSWINDOWSlike ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   130
        dirs add:'c:\Programme\eXept\SmalltalkX\' , stxRel , '\lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   131
        dirs add:'c:\Programme\SmalltalkX\' , stxRel , '\lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   132
        dirs add:'c:\SmalltalkX\' , stxRel , '\lib'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   133
    ] ifFalse:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   134
        dirs add:'/opt/smalltalk/' , stxRel , '/lib'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   135
        dirs add:'/usr/local/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   136
        dirs add:'/usr/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   137
        dirs add:'/lib'.
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   138
        dirs add:(Filename homeDirectory constructString:'lib').
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   139
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   140
        dirs add:((Filename homeDirectory construct:'stx') constructString:'lib').
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   141
        dirs add:'/tmp/stxlib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   142
        dirs add:'/home/stx/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   143
        dirs add:'/home2/stx/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   144
    ].
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   145
    ^ dirs sort
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   146
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   147
    "Created: / 18.7.1996 / 19:43:21 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   148
    "Modified: / 31.5.1999 / 12:12:17 / cg"
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   149
!
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   150
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   151
defaultLibDirs
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   152
    |dirs stxRel|
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   153
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   154
    stxRel := self smalltalkRelease.
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   155
    dirs := OrderedCollection new.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   156
    OperatingSystem isMSWINDOWSlike ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   157
        dirs add:'c:\Programme\eXept\SmalltalkX\' , stxRel , '\lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   158
        dirs add:'c:\Programme\SmalltalkX\' , stxRel , '\lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   159
        dirs add:'c:\SmalltalkX\' , stxRel , '\lib'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   160
    ] ifFalse:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   161
        dirs add:'/opt/smalltalk/' , stxRel , '/lib'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   162
        dirs add:'/usr/local/lib/smalltalk'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   163
        dirs add:'/usr/lib/smalltalk'.
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   164
        dirs add:((Filename homeDirectory construct:'lib') constructString:'smalltalk').
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   165
        dirs add:((Filename homeDirectory construct:'stx') constructString:'lib').
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   166
        dirs add:'/tmp/stxlib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   167
        dirs add:'/home/stx/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   168
        dirs add:'/home2/stx/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   169
    ].
3
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   170
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   171
"/    dirs := dirs select:[:path | 
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   172
"/                            |f|
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   173
"/
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   174
"/                            f := path asFilename.
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   175
"/                            f exists and:[f isDirectory]].
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   176
    ^ dirs "sort"
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   177
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   178
    "Created: / 18.7.1996 / 19:43:21 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   179
    "Modified: / 31.5.1999 / 12:12:30 / cg"
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   180
!
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   182
directoriesToMake
1138
66190ee44a6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1137
diff changeset
   183
    |dirsToMake docDir docOnlineDir|
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   185
    dirsToMake := OrderedCollection new.
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   186
    installWhat == #full ifTrue:[
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   187
        dirsToMake add:fullDir.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   188
    ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   189
        dirsToMake add:stxBinDir.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   190
        dirsToMake add:stxLibDir.
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   191
        stxLibDir ~= stxLibBinDir ifTrue:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   192
            dirsToMake add:stxLibBinDir.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   193
        ].
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   194
        dirsToMake add:stxDocDir.
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   195
        docOnlineDir := stxDocDir asFilename construct:'online'.
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   196
        dirsToMake add:docOnlineDir name.
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   197
        dirsToMake add:(docOnlineDir constructString:'english').
1138
66190ee44a6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1137
diff changeset
   198
        dirsToMake add:(docOnlineDir constructString:'german').
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   199
        installDocFiles ifTrue:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   200
            dirsToMake add:(docOnlineDir constructString:'french').
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   201
            dirsToMake add:(docOnlineDir constructString:'italian').
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   202
        ]
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   203
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   204
    ^ dirsToMake
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
1138
66190ee44a6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1137
diff changeset
   206
    "Modified: / 31.5.1999 / 17:52:03 / cg"
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   207
!
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   208
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   209
listOfOptionalPackages
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   210
    ^ #(
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   211
        'libDB'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   212
        'clients/CBrowser'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   213
        'libcompat'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   214
        'libxt'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   215
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   216
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   217
        "/ mhmh - these should not be needed here ...
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   218
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   219
        'projects/smalltalk/bitmaps/javaImages'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   220
        'doc/online/english/overview/icons'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   221
      )
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   222
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   223
    "Created: 2.3.1997 / 12:39:59 / cg"
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   224
    "Modified: 2.3.1997 / 13:24:41 / cg"
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   225
!
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   226
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   227
smalltalkRelease
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   228
    ^ Smalltalk majorVersionNr printString 
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   229
               , '.' , Smalltalk minorVersionNr printString
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   230
               , '.' , Smalltalk revisionNr printString.
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   231
!
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   232
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   233
specOfCommonFilesToCopy
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   234
    |fileSpec|
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   235
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   236
    fileSpec := #(
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   237
                "/ name                             destination  subDir             required mode      
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   238
                ( 'projects/smalltalk/include'          #lib     nil                  true  '644' )
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   239
                ( 'projects/smalltalk/*.rc'             #lib     nil                  true  '644' )
1519
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   240
                ( 'projects/smalltalk/*.wsp'            #lib     nil                  true  '644' )
1368
ce2820258d1b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1367
diff changeset
   241
                ( 'projects/smalltalk/banner*.xpm'      #lib     nil                  true  '644' )
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   242
                ( 'projects/smalltalk/patches'          #lib     nil                  true  '644' )
1284
9f4ba1b3b604 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
   243
                ( 'COPYRIGHT'                           nil      nil                  true  '644' )
1519
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   244
                ( 'RELEASE'                             nil      nil                  true  '644' )
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   245
                ( 'doc/online/german/LICENCE_STX.html'  nil           'doc/online/german'      true  '644' )
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   246
                ( 'doc/online/english/LICENCE_STX.html' nil           'doc/online/english'     true  '644' )
1284
9f4ba1b3b604 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
   247
                ( 'doc/online/german/LICENCE_DEMO_STX.html'  nil      'doc/online/german'      true  '644' )
9f4ba1b3b604 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
   248
                ( 'doc/online/english/LICENCE_DEMO_STX.html' nil      'doc/online/english'     true  '644' )
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   249
    ).
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   250
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   251
    installDocFiles ifTrue:[
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   252
        fileSpec := fileSpec , #(
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   253
                ( 'doc'                                  nil     nil        false '644' )
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   254
        ).
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   255
    ].
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   256
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   257
    installSTCFiles ifTrue:[
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   258
        fileSpec := fileSpec , #(
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   259
                ( 'include'                                  #lib        nil              false '644' )
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   260
                ( 'configurations'                           #lib        nil              false '644' )
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   261
                ( 'configurations/PACKS'                     #lib        'configurations' false '644' )
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   262
                ( 'configurations/my*'                       #lib        'configurations' false '644' )
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   263
                ( 'configurations/vendor*'                   #lib        'configurations' false '644' )
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   264
                ( 'rules'                                    #lib        nil              false '644' )
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   265
        ).
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   266
    ].
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   267
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   268
    installGoodyFiles ifTrue:[
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   269
        fileSpec := fileSpec , #(
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   270
                ( 'goodies/*.st'                  #pkg     'stx/goodies/source'       false '644' )
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   271
                ( 'goodies/*.chg'                 #pkg     'stx/goodies/source'       false '644' )
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   272
        ).
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   273
    ].
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   274
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   275
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   276
    ^ fileSpec
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   277
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   278
    "Created: / 2.5.1999 / 13:17:37 / cg"
1284
9f4ba1b3b604 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
   279
    "Modified: / 24.12.1999 / 01:16:42 / cg"
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   280
!
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   281
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   282
specOfFilesToCopy
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   283
    OperatingSystem isMSWINDOWSlike ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   284
        ^ self specOfWindowsFilesToCopy
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   285
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   286
    ^ self specOfUnixFilesToCopy
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   287
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   288
    "Modified: / 2.5.1999 / 13:17:59 / cg"
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   289
!
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   290
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   291
specOfUnixFilesToCopy
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   292
    |fileSpec|
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   294
    fileSpec := self specOfCommonFilesToCopy.
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   295
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   296
    fileSpec := fileSpec , #(
27
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   297
                "/ name                             destination  subDir             required mode      
12
6cb00d713d4d LICENSE texts must always be installed
Claus Gittinger <cg@exept.de>
parents: 11
diff changeset
   298
                ( 'projects/smalltalk/smalltalk'        #bin     nil                  true  '755' )
27
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   299
                ( 'projects/smalltalk/stx'              #bin     nil                  true  '755' )
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   300
                ( 'librun/librun.so'                    #lib     'lib'                true  '644' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   301
    ).
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   303
    installSTCFiles ifTrue:[
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   304
        fileSpec := fileSpec , #(
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   305
                ( 'stc/stc'                                  #bin        nil              false '755' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   306
                ( 'rules/stmkmp'                             #bin        nil              false '755' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   307
                ( 'rules/stmkmf'                             #bin        nil              false '755' )
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   308
                ( 'configurations/COMMON'                    #lib        'configurations' false '644' )
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   309
                ( 'configurations/PACKS'                     #lib        'configurations' false '644' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   310
                ( 'configurations/my*'                       #lib        'configurations' false '644' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   311
                ( 'configurations/vendor*'                   #lib        'configurations' false '644' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   312
276
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   313
                ( 'support/VGL/vogl/src/libvogl.*'           #lib        'lib'            false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   314
                ( 'support/VGL/vogl/src/*.h'                 #lib        'include'        false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   315
                ( 'support/DLD/dld-3.2.5/libdld.*'           #lib        'lib'            false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   316
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   317
                ( 'goodies/persistency/db-1.6/PORT/libdb.*'  #libBin     'lib'            false '644' )
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   319
"/                ( 'librun/librun.o'                          #libBin     nil              false '644' )
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   320
"/                ( 'librun/librun.a'                          #libBin     nil              false '644' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   321
        ).
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   322
    ].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   324
    installGoodyFiles ifTrue:[
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   325
        fileSpec := fileSpec , #(
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   326
                ( 'goodies/rdoit/rdoit'           #bin     nil        false '755' )
1707
ad52b5abf849 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1519
diff changeset
   327
                ( 'goodies/xml/indelv/abbrev.stc' #pkg     'stx/goodies/xml/indelv'   true  )
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   328
        ).
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   329
    ] ifFalse:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   330
        fileSpec := fileSpec , #(
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   331
                ( 'goodies/persistency/libdbase.so'  #pkg     'stx/goodies/persistency' true '644' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   332
        ).
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   333
    ].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   335
    ^ fileSpec
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   336
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   337
    "Modified: / 30.4.1999 / 18:02:22 / cg"
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   338
    "Created: / 2.5.1999 / 13:17:37 / cg"
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   339
!
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   340
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   341
specOfWindowsFilesToCopy
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   342
    |fileSpec|
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   343
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   344
    fileSpec := self specOfCommonFilesToCopy.
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   345
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   346
    fileSpec := fileSpec , #(
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   347
                "/ name                             destination  subDir             required       
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   348
                ( 'projects\smalltalk\smalltalk.bat'    #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   349
                ( 'projects\smalltalk\stx.exe'          #bin     nil                  true   )
1503
fc8bbc760d17 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
   350
                ( 'projects\smalltalk\winstx.exe'       #bin     nil                  true   )
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   351
                ( 'projects\smalltalk\stxspawn.exe'     #bin     nil                  true   )
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   352
                ( 'projects\smalltalk\*.dll'            #bin     nil                  true   )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   353
    ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   354
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   355
    installSTCFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   356
        fileSpec := fileSpec , #(
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   357
                ( 'projects\smalltalk\stc.exe'           #bin        nil              false  )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   358
                ( 'libbc\*.lib'                          #lib        nil              false  )
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   359
                ( 'rules'                                #lib        nil              false  )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   360
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   361
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   362
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   363
    installGoodyFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   364
        fileSpec := fileSpec , #(
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   365
                ( 'goodies/rdoit/rdoit.exe'              #bin     nil                 false )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   366
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   367
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   368
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   369
    ^ fileSpec
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   370
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   371
    "Created: / 2.5.1999 / 13:23:06 / cg"
1503
fc8bbc760d17 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
   372
    "Modified: / 16.10.2001 / 12:25:58 / cg"
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   373
! !
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   374
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   375
!STXInstaller methodsFor:'installing'!
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   376
1519
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   377
add:specEntry toFileSpec:fileSpec
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   378
    (specEntry first startsWith:'./') ifTrue:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   379
        specEntry at:1 put:(specEntry first copyFrom:3).
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   380
    ].
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   381
    (specEntry first startsWith:'.\') ifTrue:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   382
        specEntry at:1 put:(specEntry first copyFrom:3).
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   383
    ].
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   384
    (fileSpec includes:specEntry) ifFalse:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   385
        fileSpec add:specEntry
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   386
    ] ifTrue:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   387
        "/ self halt
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   388
    ]
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   389
!
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   390
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   391
addFilesToSpec:fileSpec relativeTo:rel fromINSTALLSpec:f
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   392
    |s entry t cond dst|
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   393
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   394
    s := f asFilename readStream.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   395
    s isNil ifTrue:[^  self].
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   396
    [s atEnd] whileFalse:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   397
        entry := s nextLine.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   398
        (entry startsWith:$#) ifFalse:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   399
            t := entry asCollectionOfWords.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   400
            t size >= 2 ifTrue:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   401
                cond := t at:3 ifAbsent:nil.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   402
                (cond ~= 'optionalSource' 
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   403
                 or:[installSourceFiles]) ifTrue:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   404
                    ((rel startsWith:'goodies/') not
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   405
                    or:[installGoodyFiles]) ifTrue:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   406
                        dst := t at:2.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   407
                        (dst startsWith:'packages/stx/') ifTrue:[
1519
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   408
                            self add:(Array 
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   409
                                            with:(rel asFilename constructString:(t at:1))
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   410
                                            with:#pkg
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   411
                                            with:('stx' asFilename constructString:(dst copyFrom:'packages/stx/' size+1))
1519
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   412
                                            with:true)
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   413
                                 toFileSpec:fileSpec.
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   414
                        ] ifFalse:[
1519
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   415
                            ((dst = 'bin') or:[dst startsWith:'bin/']) ifTrue:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   416
                                (dst = 'bin') ifTrue:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   417
                                    self add:(Array 
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   418
                                                    with:(rel asFilename constructString:(t at:1))
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   419
                                                    with:#bin
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   420
                                                    with:nil
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   421
                                                    with:true)
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   422
                                         toFileSpec:fileSpec.
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   423
                                ] ifFalse:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   424
                                    self add:(Array 
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   425
                                                    with:(rel asFilename constructString:(t at:1))
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   426
                                                    with:#bin
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   427
                                                    with:(dst copyFrom:'bin/' size+1)
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   428
                                                    with:true)
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   429
                                         toFileSpec:fileSpec.
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   430
                                ].
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   431
                            ] ifFalse:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   432
                                ((dst = 'lib') or:[dst startsWith:'lib/']) ifTrue:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   433
                                    (dst = 'lib') ifTrue:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   434
                                        self add:(Array 
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   435
                                                        with:(rel asFilename constructString:(t at:1))
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   436
                                                        with:#lib
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   437
                                                        with:nil
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   438
                                                        with:true)
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   439
                                             toFileSpec:fileSpec.
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   440
                                    ] ifFalse:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   441
                                        self add:(Array 
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   442
                                                        with:(rel asFilename constructString:(t at:1))
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   443
                                                        with:#lib
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   444
                                                        with:(dst copyFrom:'lib/' size+1)
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   445
                                                        with:true)
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   446
                                             toFileSpec:fileSpec.
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   447
                                    ]
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   448
                                ] ifFalse:[
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   449
                                    self halt:'unhandled destination: ' , dst.
6196930f9a1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1518
diff changeset
   450
                                ]
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   451
                            ]
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   452
                        ]
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   453
                    ]
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   454
                ].
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   455
            ].
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   456
        ].
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   457
    ].
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   458
    s close.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   459
!
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   460
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   461
changeWritability
791
108f933f9385 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 790
diff changeset
   462
    |msg|
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   463
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   464
    installWhat == #full ifTrue:[
792
bffad322b0bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 791
diff changeset
   465
        msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   466
792
bffad322b0bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 791
diff changeset
   467
        commandTraceView showCR:(resources string:'making target dir writable ...').
bffad322b0bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 791
diff changeset
   468
        commandTraceView endEntry.
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   469
        OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)').
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   470
    ].
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   471
791
108f933f9385 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 790
diff changeset
   472
    "Created: / 17.7.1996 / 15:24:19 / cg"
792
bffad322b0bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 791
diff changeset
   473
    "Modified: / 20.4.1998 / 15:40:00 / cg"
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   474
!
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   475
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   476
copyFiles
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   477
    |msg fileSpec filesToCopy numFiles nDone cmd topDir topDirPrefix|
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   478
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   479
    msg := (resources array:#('ST/X Installation' '' 'copying:' '' 'to:' '')) asStringCollection.
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   480
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   481
    OperatingSystem isUNIXlike ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   482
        topDir := '../..'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   483
        topDirPrefix := '../../'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   484
    ] ifFalse:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   485
        topDir := '..\..'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   486
        topDirPrefix := '..\..\'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   487
    ].
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   488
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   489
    installWhat == #full ifTrue:[
1515
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
   490
        "/ MUST be under stx (for packagePath stuff)
1516
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   491
        fullDir asFilename baseName ~= 'stx' ifTrue:[
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   492
            fullDir := fullDir asFilename constructString:'stx'.
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   493
        ].
1517
3f0c8ccd0c33 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1516
diff changeset
   494
        fullDir asFilename recursiveMakeDirectory.
3f0c8ccd0c33 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1516
diff changeset
   495
        fullDir asFilename exists ifFalse:[
3f0c8ccd0c33 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1516
diff changeset
   496
            self warn:'Oops - failed to create directory: ' , fullDir.
3f0c8ccd0c33 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1516
diff changeset
   497
            ^ false
3f0c8ccd0c33 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1516
diff changeset
   498
        ].
1516
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   499
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   500
        msg at:4 put:('    all from CD' asText allBold).
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   501
        msg at:6 put:'    ' , (fullDir asText allBold).
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   502
        actionTextHolder value:nil.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   503
        actionTextHolder value:msg.
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   504
1512
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   505
        actionPercentageHolder value:-1.
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   506
        OperatingSystem isUNIXlike ifTrue:[
1516
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   507
            cmd := '(cd ' , topDir , '/doc/online ; find . -type s -exec rm {} \; )'.
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   508
            commandTraceView showCR:'removing symbolic links ...'.
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   509
            commandTraceView endEntry.
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   510
            self executeCommandAndShowOutput:cmd emphasize:false.
1518
85114c70d811 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1517
diff changeset
   511
1512
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   512
            cmd := '(cd ' , topDir , ' ; tar cf - .) | (cd ' , fullDir , ' ; tar xvf -)'.
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   513
            commandTraceView showCR:'copying ...'.
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   514
            commandTraceView endEntry.
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   515
            cmd := cmd , ' 2>&1' .
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   516
1512
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   517
            self executeCommandAndShowOutput:cmd emphasize:false.
1516
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   518
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   519
            cmd := '(cd ' , fullDir , '/doc/online ; make )'.
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   520
            commandTraceView showCR:'creating symbolic links ...'.
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   521
            commandTraceView endEntry.
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   522
            self executeCommandAndShowOutput:cmd emphasize:false.
8becf2e11b69 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1515
diff changeset
   523
1512
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   524
        ] ifFalse:[
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   525
            fullDir asFilename exists ifFalse:[
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   526
                commandTraceView showCR:(resources string:'creating %1 ...' with:fullDir asFilename pathName).
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   527
                commandTraceView endEntry.
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   528
                OperatingSystem recursiveCreateDirectory:fullDir asFilename pathName
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   529
            ].
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   530
            self recursiveCopy:(topDir , '\*') to:fullDir.
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   531
        ].
aa8927693ebf full installation under win32 (there is no tar )
Claus Gittinger <cg@exept.de>
parents: 1511
diff changeset
   532
        actionPercentageHolder value:100.
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   533
        ^ true
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   534
    ].
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   535
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   536
    fileSpec := self specOfFilesToCopy asOrderedCollection.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   537
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   538
    actionPercentageHolder value:0.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   539
    "/ search for INSTALL.files specs, and add to list ...
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   540
    actionTextHolder value:nil.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   541
    actionTextHolder value:(resources array:#('ST/X Installation' '' 'searching for packages to install...' '' '' '')) asStringCollection.
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   542
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   543
    topDir asFilename recursiveDirectoryContentsDo:[:f |
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   544
        f asFilename baseName = 'INSTALL.files' ifTrue:[
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   545
            self addFilesToSpec:fileSpec relativeTo:f asFilename directoryName fromINSTALLSpec:(topDir asFilename construct:f).
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   546
        ]
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   547
    ].
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   548
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
    filesToCopy := OrderedCollection new.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
    fileSpec do:[:entry |
8
88df33224360 oops - did not copy file*
Claus Gittinger <cg@exept.de>
parents: 7
diff changeset
   552
        |fileNames dest subDir required destDir|
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
8
88df33224360 oops - did not copy file*
Claus Gittinger <cg@exept.de>
parents: 7
diff changeset
   554
        fileNames := entry at:1.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
        dest := entry at:2.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
        subDir := entry at:3.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
        required := entry at:4.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
        dest == #bin ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
            destDir := stxBinDir
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
        ] ifFalse:[
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   562
            dest == #libBin ifTrue:[
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   563
                destDir := stxLibBinDir
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   564
            ] ifFalse:[
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   565
                dest == #pkg ifTrue:[
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   566
                    destDir := stxPkgDir
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   567
                ] ifFalse:[
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   568
                    dest == nil ifTrue:[
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   569
                        destDir := stxTopDir
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   570
                    ] ifFalse:[
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   571
                        destDir := stxLibDir
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   572
                    ]
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   573
                ]
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   574
            ]
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
        
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
        destDir := destDir asFilename.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
        subDir notNil ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
            destDir := destDir construct:subDir
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
8
88df33224360 oops - did not copy file*
Claus Gittinger <cg@exept.de>
parents: 7
diff changeset
   582
        filesToCopy add:(fileNames -> destDir pathName)
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
    numFiles := filesToCopy size.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
    nDone := 0.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
    filesToCopy do:[:entry |
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   589
        |fileName destDir cmd|
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
        fileName := entry key.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
        destDir := entry value.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
8
88df33224360 oops - did not copy file*
Claus Gittinger <cg@exept.de>
parents: 7
diff changeset
   594
        ((fileName includes:$*)
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   595
        or:[(topDirPrefix , fileName) asFilename exists])ifTrue:[
4
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   596
            actionPercentageHolder value:(nDone / numFiles * 100) rounded.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
4
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   598
            msg at:4 put:'    ' , (fileName asText allBold).
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   599
            msg at:6 put:'    ' , (destDir asText allBold).
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   600
            actionTextHolder value:nil.
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   601
            actionTextHolder value:msg.
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   602
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   603
            ((fileName includes:$*) not
1136
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   604
            and:[(topDirPrefix , fileName) asFilename exists not]) ifTrue:[
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   605
                (self listOfOptionalPackages includes:fileName) ifFalse:[
117
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   606
                    commandTraceView showCR:('cannot copy ' , fileName , ' - not included in distribution').
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   607
                    commandTraceView endEntry.
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   608
                ]
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   609
            ] ifFalse:[
1136
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   610
                destDir asFilename exists ifFalse:[
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   611
                    commandTraceView showCR:(resources string:'creating %1 ...' with:destDir asFilename pathName).
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   612
                    commandTraceView endEntry.
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   613
                    OperatingSystem recursiveCreateDirectory:destDir asFilename pathName
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   614
                ].
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   615
                self recursiveCopy:(topDirPrefix , fileName) to:destDir.
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   616
            ]
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   617
        ].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
        nDone := nDone + 1
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
    ^ true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   624
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   625
     STXInstaller open
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   626
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   627
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   628
    "Created: / 17.7.1996 / 15:16:20 / cg"
1138
66190ee44a6a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1137
diff changeset
   629
    "Modified: / 31.5.1999 / 18:07:33 / cg"
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
!
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
createDirectories
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
    |msg dirsToMake numDirs nDone|
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   635
    msg := (resources array:#('ST/X Installation' '' 'creating directory:' '' '' '')) asStringCollection.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   637
    dirsToMake := self directoriesToMake.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
    numDirs := dirsToMake size.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
    nDone := 0.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   641
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
    dirsToMake do:[:dirName |
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
        |d errMsg stop box|
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
        actionPercentageHolder value:(nDone / numDirs * 100) rounded.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
4
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   647
        msg at:4 put:'    ' , (dirName asText allBold).
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
        actionTextHolder value:nil.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
        actionTextHolder value:msg.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
        d := dirName asFilename.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   653
        commandTraceView showCR:(resources string:'creating %1 ...' with:d pathName).
117
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   654
        commandTraceView endEntry.
4
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   655
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
        d exists ifFalse:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
            OperatingSystem recursiveCreateDirectory:d pathName
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
        d exists ifFalse:[
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   661
            errMsg := (resources string:'failed to create directory: %1\\Please check your permissions.' with:dirName) withCRs.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
            stop := true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
        ] ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
            d isDirectory ifFalse:[
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   665
                errMsg := resources string:'not a directory: %1' with:dirName.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
                stop := true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
            ] ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
                (d isReadable
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
                and:[d isWritable]) ifFalse:[
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   670
                    errMsg := resources string:'no read/write access to directory: %1' with:dirName.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
                    stop := false
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
                ] ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
                    errMsg := nil
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
                ]
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
            ]
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
        errMsg notNil ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
            box := WarningBox new.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
            box title:errMsg.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
            box showAtPointerNotCovering:(WindowGroup activeGroup topViews first).
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   682
            stop ifTrue:[^ false].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
        Delay waitForSeconds:0.25.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
        nDone := nDone + 1.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
    ^ true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
    "Created: 17.7.1996 / 15:24:19 / cg"
117
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   691
    "Modified: 22.5.1997 / 15:06:41 / cg"
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   692
!
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   693
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   694
createRegistryEntries
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   695
    |release msg k|
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   696
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   697
    msg := (resources array:#('ST/X Installation' '' 'creating registry entries' '' '' '')) asStringCollection.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   698
    actionTextHolder value:nil.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   699
    actionTextHolder value:msg.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   700
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   701
    commandTraceView showCR:(resources string:'creating registry entries...').
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   702
    commandTraceView endEntry.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   703
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   704
    release := self smalltalkRelease.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   705
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   706
    k := Win32OperatingSystem::RegistryEntry key:'HKEY_LOCAL_MACHINE\Software'.
1282
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   707
    k isNil ifTrue:[
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   708
        self warn:'cannot update registry under HKEY_LOCAL_MACHINE\Software\eXept'.
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   709
        ^ self.
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   710
    ].
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   711
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   712
    k := k createSubKeyNamed:'eXept'.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   713
    k := k createSubKeyNamed:'Smalltalk/X'.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   714
    k valueNamed:'CurrentVersion' put:release.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   715
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   716
    k := k createSubKeyNamed:release.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   717
    k valueNamed:'LibDir' put:stxLibDir.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   718
    k valueNamed:'BinDir' put:stxBinDir.
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   719
    k valueNamed:'DocDir' put:stxDocDir.
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   720
    k valueNamed:'PackageDirPath' put:stxPkgDir.
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   721
1282
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   722
    "Modified: / 23.12.1999 / 22:21:18 / cg"
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   723
!
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   724
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   725
createSymbolicLinks
1367
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   726
    |msg dirsToMake numDirs nDone languages cmd|
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   727
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   728
    OperatingSystem isUNIXlike ifFalse:[^ self].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   729
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   730
    msg := (resources array:#('ST/X Installation' '' 'creating symbolic links' '' '' '')) asStringCollection.
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   731
    actionTextHolder value:nil.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   732
    actionTextHolder value:msg.
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   733
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   734
    installWhat == #full ifTrue:[
1511
f62b52f0bb20 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1510
diff changeset
   735
        commandTraceView showCR:(resources string:'setting up symbolic links in doc...'); endEntry.
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   736
        OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)').
1511
f62b52f0bb20 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1510
diff changeset
   737
f62b52f0bb20 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1510
diff changeset
   738
        commandTraceView showCR:(resources string:'setting up symbolic links in projects/smalltalk...'); endEntry.
f62b52f0bb20 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1510
diff changeset
   739
        OperatingSystem executeCommand:('(cd ' , fullDir , '/projects/smalltalk ; ln -s ../../lib*/*.so .)').
f62b52f0bb20 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1510
diff changeset
   740
        OperatingSystem executeCommand:('(cd ' , fullDir , '/projects/smalltalk ; ln -s ../../goodies/*/*.so .)').
1508
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   741
        ^ self.
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   742
    ].
1367
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   743
"/        OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   744
1511
f62b52f0bb20 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1510
diff changeset
   745
    commandTraceView showCR:(resources string:'setting up symbolic links in lib...'); endEntry.
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   746
1508
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   747
    #(
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   748
        'libbasic/libbasic.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   749
        'libbasic2/libbasic2.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   750
        'libbasic3/libbasic3.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   751
        'libcomp/libcomp.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   752
        'libboss/libboss.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   753
        'libview/*.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   754
        'libview2/libview2.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   755
        'libwidg/libwidg.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   756
        'libwidg2/libwidg2.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   757
        'libwidg3/libwidg3.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   758
        'libhtml/libhtml.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   759
        'libui/libui.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   760
        'libtool/libtool.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   761
        'libtool2/libtool2.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   762
        'goodies/persistency/libdbase.so'
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   763
    ) do:[:src |  |cmd|
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   764
        cmd := '(cd ' , stxLibDir , '/lib ; ln -s ../../packages/stx/' , src , ' . )'.
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   765
        commandTraceView showCR:cmd; endEntry.
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   766
        OperatingSystem executeCommand:cmd.
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   767
    ].
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   768
1367
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   769
    installDocFiles ifTrue:[
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   770
        msg := (resources array:#('ST/X Installation' '' 'creating symbolic links' '' '' '')) asStringCollection.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   771
        actionTextHolder value:nil.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   772
        actionTextHolder value:msg.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   773
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   774
        commandTraceView showCR:(resources string:'setting up symbolic links in doc/online ...'); endEntry.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   775
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   776
        languages := #(
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   777
                        'english'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   778
                        'german'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   779
                        'french'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   780
                        'italian'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   781
                        'spanish'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   782
                        'japanese'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   783
                      ).
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   784
        languages := languages select:[:l | (stxDocDir , '/online/' , l) asFilename exists].
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   785
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   786
        languages do:[:thisLang |
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   787
            |langDir|
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   788
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   789
            langDir := stxDocDir , '/online/' , thisLang.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   790
            languages do:[:otherLang |
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   791
                otherLang ~= thisLang ifTrue:[
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   792
                    cmd := '(cd ' , langDir , ' ; ln -s ../' , otherLang , ' .)'.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   793
                    commandTraceView showCR:cmd; endEntry.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   794
                    OperatingSystem executeCommand:cmd.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   795
                ]
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   796
            ].
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   797
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   798
            cmd := '(cd ' , langDir , ' ; ln -s ../icons .)'.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   799
            commandTraceView showCR:cmd; endEntry.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   800
             OperatingSystem executeCommand:cmd.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   801
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   802
            cmd := '(cd ' , langDir , ' ; ln -s ../pictures .)'.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   803
            commandTraceView showCR:cmd; endEntry.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   804
             OperatingSystem executeCommand:cmd.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   805
        ]
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   806
    ]
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   807
    "Created: / 17.7.1996 / 15:24:19 / cg"
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   808
    "Modified: / 31.5.1999 / 14:46:36 / cg"
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   809
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   810
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   811
executeCommandAndShowOutput:cmd
1508
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   812
    ^ self executeCommandAndShowOutput:cmd emphasize:true
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   813
!
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   814
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   815
executeCommandAndShowOutput:cmd emphasize:doEmphasize
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   816
    |doneSemaphore line p|
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   817
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   818
    OperatingSystem isMSWINDOWSlike ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   819
        ^ self
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   820
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   821
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   822
    doneSemaphore := Semaphore new.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   823
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   824
    copyProcess := [   
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   825
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   826
        p := PipeStream readingFrom:cmd.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   827
        p isNil ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   828
            self warn:('command error. Could not execute:\\' , cmd) withCRs.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   829
        ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   830
            [
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   831
                [p atEnd] whileFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   832
                    (p readWaitWithTimeout:0.1) ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   833
                        line := p nextLine.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   834
                        (line notNil and:[line notEmpty]) ifTrue:[
1508
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   835
                            doEmphasize ifTrue:[
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   836
                                line := line asText emphasizeAllWith:(#color->Color red).
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   837
                            ].
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
   838
                            commandTraceView showCR:('  ' , line).
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   839
                            commandTraceView endEntry.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   840
                        ]
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   841
                    ]
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   842
                ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   843
                p close.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   844
            ] valueOnUnwindDo:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   845
                p shutDown
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   846
            ]
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   847
        ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   848
        doneSemaphore signal.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   849
        copyProcess := nil.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   850
    ] forkAt:4.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   851
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   852
    doneSemaphore wait.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   853
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   854
    "Created: / 25.2.1998 / 17:46:06 / cg"
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   855
    "Modified: / 30.4.1999 / 18:00:43 / cg"
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   856
!
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   857
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   858
outputInitialMessage
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   859
^ self.
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   860
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   861
    #(
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   862
    'Notice:'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   863
    ''
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   864
    'During the installation, you may get error messages'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   865
    'complaining that some files where not found'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   866
    'and could therefore not be copied.'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   867
    ) do:[:line |
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   868
        commandTraceView showCR:((resources string:line) asText emphasizeAllWith:(#color->Color blue)).
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   869
        commandTraceView endEntry. 
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   870
    ].
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   871
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   872
    Delay waitForSeconds:2.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   873
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   874
    #(
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   875
    ''
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   876
    'This is normal behavior; since the CD may contain'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   877
    'broken symbolic links to non-existing packages'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   878
    'which are either not contained on your ordered'
276
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   879
    'package (i.e. non-commercial) or are not required'
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   880
    'for your architecture (and therefore not contained'
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   881
    'on the CD).'
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   882
    ''
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   883
    ) do:[:line |
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   884
        commandTraceView showCR:((resources string:line) asText emphasizeAllWith:(#color->Color blue)).
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   885
        commandTraceView endEntry.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   886
    ].
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   887
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   888
    Delay waitForSeconds:2.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   889
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   890
    #(
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   891
    ''
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   892
    'Please excuse this inconvenience.'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   893
    ''
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   894
    ) do:[:line |
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   895
        commandTraceView showCR:((resources string:line) asText emphasizeAllWith:(#color->Color blue)).
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   896
        commandTraceView endEntry.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   897
    ].
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   898
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   899
    Delay waitForSeconds:2.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   900
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   901
    "Created: 2.3.1997 / 12:49:52 / cg"
276
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   902
    "Modified: 8.8.1997 / 17:47:06 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   903
!
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   904
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   905
recursiveCopy:src to:dst
1281
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   906
    self recursiveCopy:src to:dst print:true
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   907
!
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   908
e83c14253471 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
   909
recursiveCopy:src to:dst print:doPrint
1282
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   910
    |cmd srcBaseName srcF dstF d|
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   911
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   912
    srcF := src asFilename.
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   913
    dstF := dst asFilename.
1282
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   914
1779
f3237e4844d9 fix recursive copy
Michael Beyl <mb@exept.de>
parents: 1707
diff changeset
   915
    srcF directory exists ifFalse:[
f3237e4844d9 fix recursive copy
Michael Beyl <mb@exept.de>
parents: 1707
diff changeset
   916
        ^ self
f3237e4844d9 fix recursive copy
Michael Beyl <mb@exept.de>
parents: 1707
diff changeset
   917
    ].
f3237e4844d9 fix recursive copy
Michael Beyl <mb@exept.de>
parents: 1707
diff changeset
   918
1514
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   919
    srcBaseName := srcF baseName.
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   920
    (srcBaseName startsWith:'.#') ifTrue:[^ self].
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   921
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   922
    (#(
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   923
        'CVS'
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   924
        'not_delivered'
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   925
        '.cvsignore'
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   926
        '.dir.info'
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   927
    ) includes:srcBaseName) ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   928
        ^ self
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   929
    ].
1282
7fa3b3c668f3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   930
1514
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   931
    srcBaseName includesMatchCharacters ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   932
        doPrint ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   933
            OperatingSystem isUNIXlike ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   934
                commandTraceView showCR:('cp ' , srcF pathName , ' ' , dstF pathName).
1279
b531a4cf201a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1152
diff changeset
   935
            ] ifFalse:[
1514
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   936
                commandTraceView showCR:('copy ' , srcF pathName , ' ' , dstF pathName).
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   937
            ].
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   938
            commandTraceView endEntry.
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   939
        ].
1779
f3237e4844d9 fix recursive copy
Michael Beyl <mb@exept.de>
parents: 1707
diff changeset
   940
1514
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   941
        (srcF directory directoryContents ? #()) do:[:fileName |
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   942
            (srcBaseName match:fileName) ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   943
                (#(
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   944
                    'CVS'
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   945
                    'not_delivered'
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   946
                ) includes:fileName) ifFalse:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   947
                    self 
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   948
                        recursiveCopy:(srcF directory construct:fileName) 
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   949
                        to:dstF
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   950
                        print:doPrint
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   951
                ]
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   952
            ]
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   953
        ]
1514
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   954
    ] ifFalse:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   955
        srcF isDirectory ifFalse:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   956
            (dstF exists and:[dstF isDirectory]) ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   957
                dstF := dstF construct:srcBaseName.
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   958
            ].
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   959
            "/ special check for windows bug
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   960
            "/ (lists trans.tbl files, but wont find it later)
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   961
            srcF exists ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   962
                Object errorSignal handle:[:ex |
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   963
                    commandTraceView showCR:('*** Error: ' , ex errorString)
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   964
                ] do:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   965
                    srcF copyTo:dstF.
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   966
                ]
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   967
            ].
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   968
            OperatingSystem isUNIXlike ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   969
                srcF isExecutable ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   970
                    dstF makeExecutableForAll
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   971
                ]
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   972
            ]
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   973
        ] ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   974
            doPrint ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   975
                OperatingSystem isUNIXlike ifTrue:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   976
                    commandTraceView showCR:('cp ' , srcF pathName , ' ' , dstF pathName).
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   977
                ] ifFalse:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   978
                    commandTraceView showCR:('copy ' , srcF pathName , ' ' , dstF pathName).
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   979
                ].
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   980
                commandTraceView endEntry.
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   981
            ].
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   982
            d := dstF asFilename construct:srcBaseName.
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   983
            (d exists) ifFalse:[
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   984
                d makeDirectory.
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   985
            ].
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   986
            (srcF directoryContents ? #()) do:[:fileName |
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   987
                self recursiveCopy:(srcF construct:fileName) 
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   988
                     to:d
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   989
                     print:doPrint
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   990
            ]
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   991
        ]
84373804a29f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1513
diff changeset
   992
    ]
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   993
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   994
    "Created: / 31.5.1999 / 13:05:09 / cg"
1369
2e0f974abecc catch error during copy
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
   995
    "Modified: / 3.3.2000 / 01:51:54 / cg"
1367
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   996
!
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   997
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   998
removeMakefilesInDoc
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
   999
    |cmd msg|
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1000
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1001
    OperatingSystem isUNIXlike ifFalse:[ ^ self ].
1509
e00cdf43c001 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1508
diff changeset
  1002
    installWhat == #full ifTrue:[^ self].
1367
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1003
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1004
    installDocFiles ifTrue:[
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1005
        msg := (resources array:#('ST/X Installation' '' 'removing useless makefiles in doc' '' '' '')) asStringCollection.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1006
        actionTextHolder value:nil.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1007
        actionTextHolder value:msg.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1008
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1009
        commandTraceView showCR:(resources string:'removing useless makefiles in doc ...'); endEntry.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1010
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1011
        #(
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1012
            'Make.proto'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1013
            'nt.mak'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1014
            'vms.mak'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1015
            'Makefile'
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1016
        ) do:[:toRemove |
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1017
            cmd := '(cd ' , stxDocDir , ' ; find . -name ''' , toRemove , ''' -exec rm {} \; )'.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1018
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1019
            commandTraceView showCR:cmd; endEntry.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1020
             OperatingSystem executeCommand:cmd.
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1021
        ]
e761ba85d5ac symbolic links in doc;
Claus Gittinger <cg@exept.de>
parents: 1284
diff changeset
  1022
    ]
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
! !
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
!STXInstaller methodsFor:'startup'!
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
askAndInstall
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
    "/ check, if we are in the projects/smalltalk directory
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
  1030
    |answer here|
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1031
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1032
    resources := ResourcePack for:self class.
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1033
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1034
    (((here := Filename currentDirectory pathName) endsWith:'projects/smalltalk') not
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1035
    and:[(here asLowercase endsWith:'stx\binbc') not
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1036
    and:[(here asLowercase endsWith:'projects\smalltalk') not
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1037
    ]]) ifTrue:[
1150
a3879a40eb37 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  1038
        "/ double - check if some of my expected files exists here ...
1151
4e43271cc266 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1150
diff changeset
  1039
        ('../../libbasic' asFilename exists
4e43271cc266 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1150
diff changeset
  1040
        and:['../../libbasic' asFilename isDirectory]) ifTrue:[
1150
a3879a40eb37 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  1041
            self warn:(resources string:'Oops - current directories name seems to not end with ''/projects/smalltalk''\\Assume its OK.' withCRs).
a3879a40eb37 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  1042
        ] ifFalse:[
a3879a40eb37 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  1043
            self warn:(resources string:'must be in the ''projects/smalltalk'' directory').
a3879a40eb37 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  1044
            ^ self
a3879a40eb37 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  1045
        ]
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1048
    answer := self askForFullInstallation.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1049
    answer ifFalse:[^ self].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1050
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
    [self askForDestination] whileTrue:[
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1052
        self checkForExistingInstallationAndConfirm ifTrue:[
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1053
            self preInstall.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1054
            self doInstall ifTrue:[
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1055
                self postInstall.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1056
                ^ self
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1057
            ].
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1058
            (self confirm:(resources string:'installation failed or aborted - retry ?'))
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1059
            ifFalse:[
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1060
                ^ self
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1061
            ]
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
        ]
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1065
    "Modified: / 31.5.1999 / 12:04:14 / cg"
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
!
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
askForDestination
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
    "open a dialog to enter destination directories"
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
  1071
    installWhat == #full ifTrue:[
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1072
        ^ self askForDestinationForFullInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1073
    ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1074
        ^ self askForDestinationForPartialInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1075
    ]
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1076
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1077
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1078
     STXInstaller open
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1079
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1080
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1081
    "Modified: / 25.2.1998 / 17:12:45 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1082
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1083
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1084
askForDestinationForFullInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1085
    "open a dialog to enter destination directories"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1086
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1087
    |d cm l green dark img
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1088
     fullDirHolder|
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1089
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1090
    LastFullDir isNil ifTrue:[
1515
ef8a4a252a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
  1091
        LastFullDir := (Filename homeDirectory construct:'work') constructString:'stx'
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1092
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1093
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1094
    fullDirHolder := LastFullDir asValue.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1095
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1096
    Screen current hasColors ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1097
        green := (Color red:0 green:80 blue:20) "darkened".
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1098
        dark := Color grey:10.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1099
    ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1100
        green := Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1101
        dark := Color black.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1102
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1103
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1104
    d := DialogBox new.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1105
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1106
    d label:(resources string:'ST/X Full Installation').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1107
    img := Image fromFile:'SmalltalkX.xbm'.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1108
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1109
    l := d addTextLabel:img.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1110
    l adjust:#left; foregroundColor:green backgroundColor:dark.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1111
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1112
    l := d addTextLabel:(resources string:'Smalltalk/X CD installation (full).').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1113
    l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
1508
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
  1114
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
  1115
    l := d addTextLabel:(resources string:'\Notice: this simply copies all of the CD to the destination directory below.\If any problem is encountered, manually copy the CD to your harddisk.') withCRs.
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
  1116
    l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
ee75546c6820 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1503
diff changeset
  1117
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1118
    d addVerticalSpace.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1119
    d addVerticalSpace.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1120
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1121
    d addHorizontalLine.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1122
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1123
    l := d addTextLabel:(resources string:'ST/X development directory:').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1124
    l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1125
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1126
    cm := ComboBoxView on:fullDirHolder.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1127
    cm list:self defaultFullDirs.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1128
    d 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1129
        addLabelledField:cm 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1130
        label:(resources string:'stx develop')
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1131
        adjust:#left 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1132
        tabable:true 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1133
        from:0.0 to:1.0 separateAtX:0.25
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1134
        nameAs:'fullBox'.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1135
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1136
    (d componentAt:'fullBox.label') backgroundColor:dark; foregroundColor:Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1137
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1138
    d addVerticalSpace.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1139
    d addHorizontalLine.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1140
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1141
    d addHelpButtonFor:'STXInstaller/installHelp.html';
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1142
      addAbortButton; 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1143
      addOkButtonLabelled:(resources string:'install').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1144
    d extent:500@400.
1151
4e43271cc266 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1150
diff changeset
  1145
    d resize. "/ compute best size
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1146
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1147
    d allViewBackground:dark.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1148
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1149
    d openAtCenter.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1150
    d accepted ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1151
        fullDir := LastFullDir := fullDirHolder value.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1152
        d destroy.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1153
        ^ true
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1154
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1155
    d destroy.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1156
    ^ false
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1157
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1158
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1159
     STXInstaller open
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1160
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1161
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1162
    "Created: / 25.2.1998 / 17:11:37 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1163
    "Modified: / 25.2.1998 / 17:29:07 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1164
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1165
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1166
askForDestinationForPartialInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1167
    "open a dialog to enter destination directories"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1168
2
936a4407697b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1
diff changeset
  1169
    |d cm l green dark img
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1170
     stxInstDirHolder stxLibDirHolder stxLibBinDirHolder stxBinDirHolder
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1171
     installDocHolder installSourceHolder installSTCHolder installGoodiesHolder
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1172
     binMegabytes libMegabytes docMegabytes stcMegabytes srcMegabytes
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1173
     goodyMegabytes stxRel list stxInstDir
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
    |
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
1139
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
  1176
    binMegabytes := 20.
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1177
    libMegabytes := 30.
1139
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
  1178
    docMegabytes := 12.
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
  1179
    stcMegabytes := 2.
1139
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
  1180
    srcMegabytes := 20.
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
  1181
    goodyMegabytes := 10.
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1182
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1183
    stxRel := self smalltalkRelease.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1184
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
  1185
    OperatingSystem isMSWINDOWSlike ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1186
        LastPartialDir isNil ifTrue:[
1139
c5940bfd4ce2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
  1187
            LastPartialDir := 'c:\Programme\eXept\SmalltalkX\' , stxRel 
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
  1188
        ].
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1189
"/        LastLibDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1190
"/            LastLibDir := 'c:\Programme\SmalltalkX\' , stxRel , '\lib'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1191
"/        ].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1192
"/        LastLibBinDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1193
"/            LastLibBinDir := 'c:\Programme\SmalltalkX\' , stxRel , '\lib'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1194
"/        ].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1195
"/        LastBinDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1196
"/            LastBinDir := 'c:\Programme\SmalltalkX\' , stxRel , '\bin'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1197
"/        ].
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
  1198
    ] ifFalse:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1199
        LastPartialDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1200
            LastPartialDir := '/opt/smalltalk/' , stxRel
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
  1201
        ].
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1202
"/        LastLibDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1203
"/            LastLibDir := '/opt/smalltalk/' , stxRel , '/lib'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119