blob: 01c947551729a8061cb701aadafc7c826c8d957f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
PhLVmProvider subclass: #PhLVmProviderArchlinux90
instanceVariableNames: ''
classVariableNames: ''
package: 'PharoLauncher-Core-Download-Arch'.
PhLVmProviderArchlinux90 compile: 'urlTemplate
^ ''https://badetitou.github.io/files/archlinux/90-x64-Arch.zip'''.
PhLVmProviderArchlinux90 compile: 'urlForStable: useStableVm
^ self urlTemplate'.
PhLVmProviderArchlinux90 compile: 'urlForPharo: pharoVersion stable: useStableVm
^ self urlTemplate'.
PhLVmProvider subclass: #PhLVmProviderArchlinux110
instanceVariableNames: ''
classVariableNames: ''
package: 'PharoLauncher-Core-Download-Arch'.
PhLVmProviderArchlinux110 compile: 'urlTemplate
^ ''https://badetitou.github.io/files/archlinux/110-x64-Arch.zip'''.
PhLVmProviderArchlinux110 compile: 'urlForStable: useStableVm
^ self urlTemplate'.
PhLVmProviderArchlinux110 compile: 'urlForPharo: pharoVersion stable: useStableVm
^ self urlTemplate'.
PhLVmProvider class compile: 'for: aPhLVirtualMachineOrManager
| class |
class := aPhLVirtualMachineOrManager pharoVersion asInteger < 90
ifTrue: [ PhLVmProviderUntilPharo80 ]
ifFalse: [ aPhLVirtualMachineOrManager pharoVersion asInteger = 90
ifTrue: [ PhLVmProviderArchlinux90 ]
ifFalse: [ aPhLVirtualMachineOrManager pharoVersion asInteger = 110
ifTrue: [ PhLVmProviderArchlinux110 ]
ifFalse: [ self ] ] ].
^ class new
vmManager: aPhLVirtualMachineOrManager;
yourself'.
Smalltalk snapshot: true andQuit: true
|