Advertisement
Guest User

Untitled

a guest
Feb 21st, 2019
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.43 KB | None | 0 0
  1. 'From Pharo7.0.1 of 22 January 2019 [Build information: Pharo-7.0.1+build.142.sha.b8825954d0dcff883bf4f47ea5c516c9cfc2fe4b (64 Bit)] on 19 February 2019 at 7:31:08.552874 am'!^M!PhLImage methodsFor: 'action' stamp: 'tomooda 2/19/2019 07:30'!^MlaunchCommandWith: vmCommand useSettings: usePharoSettings^M | imagePath vmDirectoryPath command basicCommand |^M imagePath := file pathString.^M vmDirectoryPath := vmCommand asFileReference parent fullName.^M command := String^M streamContents: [ :cmd | ^M cmd << 'cd ' << file parent pathString surroundedByDoubleQuotes << ' && '.^M Smalltalk os isUnix^M ifTrue: [ cmd << (self exportLDLibraryPathCommandWith: vmDirectoryPath) << ' && export SQUEAK_PLUGINS="" && ' ].^M cmd << vmCommand surroundedByDoubleQuotes.^M Smalltalk os isUnix ifTrue: [ cmd << ' -compositioninput'].^M cmd << ' ' << imagePath surroundedByDoubleQuotes.^M usePharoSettings ifFalse: [ cmd << ' --no-default-preferences End of statement list encountered ->' ] ].^M basicCommand := self class launchInALoginShell^M ifTrue: [ Smalltalk os isWindows^M ifTrue: [ 'cmd /C ' , command ]^M ifFalse: [ 'bash -l -c ''' , command , '''' ] ]^M ifFalse: [ command ].^M ^ basicCommand utf8Encoded asString! !
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement