author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Tue, 14 Jan 2020 22:47:55 +0000 | |
branch | jv |
changeset 1625 | 2425cb5d073e |
parent 1435 | 9a1f18933e40 |
permissions | -rw-r--r-- |
1435
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
Smalltalk isStandAloneApp ifFalse:[ |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
| userHome stxUserHome stxUserPackageDir | |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
userHome := Filename homeDirectory. |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
(userHome exists not or:[userHome isWritable not]) ifTrue: |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
[('User home directory does not exists or is not writable (' |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
,userHome name |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
,'). Exitting') errorPrintCR. |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
Smalltalk exit: 1]. |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
|
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
stxUserHome := userHome / '.smalltalk'. |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
|
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
stxUserHome exists ifFalse: |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
[stxUserHome makeDirectory. |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
(stxUserHome / ('p_',OperatingSystem getLoginName,'.rc')) writeStream |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
nextPutAll:'"User-specific startup script"'; |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
cr; |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
close]. |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
|
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
|
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
stxUserHome isDirectory ifFalse: |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
[(stxUserHome name,' is not directory. Exitting') |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
errorPrintCR. |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
Smalltalk exit: 1]. |
9a1f18933e40
Merged code from jv-branch's 'distutils' package
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
] |