First draft of a CommandLineHandler subclass for Cinic

Cinic-Core.package/CinicCommandLineHandler.class/class/commandName.st

@@ -0,0 +1,3 @@
+accessing
+commandName
+	^ 'cinic'

Cinic-Core.package/CinicCommandLineHandler.class/class/description.st

@@ -0,0 +1,3 @@
+accessing
+description
+	^ 'Loads a Cinic configuration from a json cinic configuration file'

Cinic-Core.package/CinicCommandLineHandler.class/instance/activate.st

@@ -0,0 +1,8 @@
+validation
+activate
+	self activateHelp ifTrue: [ ^ self ].
+	self validateConfigurationFile.
+	self createConfigurationFromFile.
+	(self hasOption: 'save')
+		ifTrue: [ Smalltalk snapshot: true andQuit: false ].
+	self exitSuccess

Cinic-Core.package/CinicCommandLineHandler.class/instance/createConfigurationFromFile.st

@@ -0,0 +1,5 @@
+validation
+createConfigurationFromFile
+	| file cinicConfig |
+	file := self firstJsonFileArgument.
+	cinicConfig := Cinic readFileNamed:  file asFileReference.

Cinic-Core.package/CinicCommandLineHandler.class/instance/firstJsonFileArgument.st

@@ -0,0 +1,4 @@
+validation
+firstJsonFileArgument
+	^ self arguments detect: [ :arg|
+		arg endsWith: '.json' ]

Cinic-Core.package/CinicCommandLineHandler.class/instance/validateConfigurationFile.st

@@ -0,0 +1,5 @@
+validation
+validateConfigurationFile
+	"The command line handle should have one .json file"
+	(self commandLine hasFileWithExtension: '.json')
+			ifFalse: [ ^ self exitFailure: 'There should be one JSON file as argument' ]

Cinic-Core.package/CinicCommandLineHandler.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "CommandLineHandler",
+	"category" : "Cinic-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "CinicCommandLineHandler",
+	"type" : "normal"
+}