1 Class { 2 #name : 'MFTUtils', 3 #superclass : 'Object', 4 #classInstVars : [ 5 'version' 6 ], 7 #category : 'MyFitnessTracker-Utils', 8 #package : 'MyFitnessTracker-Utils' 9 } 10 11 { #category : 'utilities' } 12 MFTUtils class >> createDeploymentImage [ 13 14 | stdout | 15 version := (IceRepository repositoryNamed: 'my-fitness-tracker') 16 headCommit id copyFrom: 1 to: 6. 17 18 stdout := NonInteractiveTranscript stdout. 19 stdout crShow: 'Creating MFT deployment image...'. 20 stdout crShow: 'Setting the image in server mode...'. 21 WorldState serverMode: true. 22 23 stdout crShow: 24 'The following handlers are registered with the default dispatcher:'. 25 stdout crShow: WAAdmin defaultDispatcher handlers keys asString. 26 stdout crShow: 'Clearing default dispatcher, caches, and sessions...'. 27 WAAdmin clearAll. 28 stdout crShow: 'Disabling development tools...'. 29 WAAdmin disableDevelopmentTools. 30 stdout crShow: 'Initializing MFTRootComponent...'. 31 MFTRootComponent initialize. 32 stdout crShow: 'Setting default dispatcher to ''mft''...'. 33 WAAdmin defaultDispatcher defaultName: 'mft'. 34 35 stdout crShow: 'Cleaning up image for release...'. 36 ImageCleaner cleanUpForRelease. 37 stdout crShow: 'MFT deployment image created successfully.'. 38 stdout crShow: 39 'The following handlers are registered with the default dispatcher:'. 40 stdout crShow: WAAdmin defaultDispatcher handlers keys asString. 41 stdout crShow: 'Saving and exiting from image.'. 42 stdout cr. 43 stdout close. 44 Smalltalk cleanUp. 45 SmalltalkImage current snapshot: true andQuit: true 46 ] 47 48 { #category : 'as yet unclassified' } 49 MFTUtils class >> isDevelopmentImage [ 50 "If the current MFT image has no version, it is a development version." 51 52 version ifNil: [ ^ true ] ifNotNil: [ ^ false ] 53 ] 54 55 { #category : 'versions' } 56 MFTUtils class >> version [ 57 58 ^ version 59 ] 60