convert to run on 20.04; add writeTopazFormat.solo script; create gemstone/gitmapcharacterset.gs

Author: dalehenrich

.github/workflows/ci.yml

@@ -10,13 +10,12 @@ on:
 
 jobs:
   build:
-    runs-on: ubuntu-18.04
     strategy:
       fail-fast: false
       matrix:
-        smalltalk: [ GemStone64-3.6.1, GemStone64-3.5.6, GemStone64-3.4.5, GemStone64-3.3.9, GemStone64-3.2.17, GemStone64-3.1.0.6 ]
-        experimental: [ false ]
-    continue-on-error: ${{ matrix.experimental }}
+        os: [ ubuntu-20.04, macos-latest ]
+        smalltalk: [ GemStone64-3.5.3, GemStone64-3.5.8,  GemStone64-3.6.0, GemStone64-3.6.5 ]
+    runs-on: ${{ matrix.os }}
     name: ${{ matrix.smalltalk }}
     steps:
       - uses: actions/checkout@v2
@@ -32,7 +31,7 @@ jobs:
     name: Post Workflow Status To Slack
     needs:
       - build
-    runs-on: ubuntu-18.04
+    runs-on: ubuntu-20.04
     steps:
        - name: Slack Workflow Notification
          uses: Gamesight/slack-workflow-status@master

bin/writeTopazFormat.solo

@@ -0,0 +1,54 @@
+#!/usr/bin/env superdoit_solo
+options
+{
+	SuperDoitOptionalOptionWithRequiredArg long: 'directory'.
+}
+%
+usage
+-----
+USAGE $basename [--help | -h] [--debug | -D] [--debugGem] [--directory=<gemstone-directory>]
+
+DESCRIPTION
+  Read from filetree repository and write project to a single topaz format .gs file.
+
+	With no options, the output will be written to gemstone/'bitmapcharacterset.gs. 
+
+OPTIONS
+  -h, --help      display usage message
+  -D, --debug     bring up topaz debugger in the event of a script error
+  --debugGem      If terminal is connected to stdout, bring up debugger. If not,
+                  dump stack to stdout and wait for topaz to attach using topaz
+                  DEBUGGEM command.
+  --directory=<gemstone-directory>
+                  Write xml-xmlparser.gs source file to <gemstone-directory>.
+
+EXAMPLES
+  $basename --help
+  $basename -D
+  $basename --debugGem
+
+  $basename  
+  $basename --directory=$HOME/dhenrich/
+-----
+%
+doit
+	| dirRef project t2f2tRoot |
+	self directory
+		ifNil: [ dirRef := self dirname parent / 'gemstone' ]
+		ifNotNil: [:path | dirRef := path asFileReference ].
+	dirRef ensureCreateDirectory.
+	t2f2tRoot := self dirname parent / 't2f2t'.
+	project := Rowan
+		projectFromUrl: 'file://' , (t2f2tRoot / 'specs' / 'filetree.ston') pathString
+		diskUrl: 'file://', self dirname parent pathString.
+	project
+		readPackageNamesBlock:[ :packageName | 
+			"exclude 31x, Baseline, ConfigurationOf GT and Pharo packages"
+			(packageName includesString: '31x') not and: [ (packageName includesString: 'Pharo') not and: [(packageName includesString: 'GT') not and: [(packageName includesString: 'Baseline') not and: [(packageName includesString: 'ConfigurationOf') not]]]]].
+	project 
+		exportTopazFormatTo: (dirRef / 'bitmapcharacterset.gs') pathString
+		logClassCreation: false 
+		excludeClassInitializers: false 
+		excludeRemoveAllMethods: true.
+	^ true
+%