From 60b064c7eacfde9dcf6abac3f552e81fba4c0542 Mon Sep 17 00:00:00 2001 From: Dale Henrichs Date: Fri, 9 Oct 2020 09:55:22 -0700 Subject: [PATCH] Issue #111: better all around solution for the gemstone kernel overrides needed by 3.5.4 and 3.6.0 --- .../instance/baselineGemStone..st | 19 +++++++--- .../Class.extension/instance/comment.st | 9 +++++ .../Class.extension/properties.json | 0 .../Class.extension/instance/comment.st | 9 +++++ .../Class.extension/properties.json | 2 + .../instance/messageText.st | 4 +- .../Exception.extension/properties.json | 0 .../Grease-GemStone360-Core.package/.filetree | 4 -- .../Class.extension/instance/comment.st | 9 ----- .../instance/greaseString.st | 4 -- .../instance/argumentCount.st | 4 -- .../instance/ifCurtailed..st | 11 ------ .../instance/valueWithPossibleArguments..st | 9 ----- .../ExecBlock.extension/properties.json | 2 - .../instance/gemstoneExceptionSelector.st | 4 -- .../instance/generateHardBreak.st | 5 --- .../handlesAlmostOutOfStackException..st | 4 -- .../instance/handlesBreakpointException..st | 4 -- .../instance/handlesHaltException..st | 4 -- .../properties.json | 2 - .../GRUtf8CodecStream.class/README.md | 0 .../class/initialize.st | 12 ------ .../GRUtf8CodecStream.class/instance/crlf.st | 9 ----- .../instance/invalidUtf8.st | 3 -- .../GRUtf8CodecStream.class/instance/next..st | 37 ------------------- .../instance/nextPut..st | 17 --------- .../instance/nextPutAll..st | 5 --- .../GRUtf8CodecStream.class/properties.json | 14 ------- .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - 32 files changed, 36 insertions(+), 174 deletions(-) create mode 100644 repository/Grease-GemStone-Kernelv354.package/Class.extension/instance/comment.st rename repository/{Grease-GemStone360-Core.package => Grease-GemStone-Kernelv354.package}/Class.extension/properties.json (100%) create mode 100644 repository/Grease-GemStone-Kernelv360.package/Class.extension/instance/comment.st create mode 100644 repository/Grease-GemStone-Kernelv360.package/Class.extension/properties.json rename repository/{Grease-GemStone360-Core.package => Grease-GemStone-Kernelv360.package}/Exception.extension/instance/messageText.st (77%) rename repository/{Grease-GemStone360-Core.package => Grease-GemStone-Kernelv360.package}/Exception.extension/properties.json (100%) delete mode 100644 repository/Grease-GemStone360-Core.package/.filetree delete mode 100644 repository/Grease-GemStone360-Core.package/Class.extension/instance/comment.st delete mode 100644 repository/Grease-GemStone360-Core.package/Exception.extension/instance/greaseString.st delete mode 100644 repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/argumentCount.st delete mode 100644 repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/ifCurtailed..st delete mode 100644 repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-GemStone360-Core.package/ExecBlock.extension/properties.json delete mode 100644 repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st delete mode 100644 repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st delete mode 100644 repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st delete mode 100644 repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st delete mode 100644 repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st delete mode 100644 repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/properties.json delete mode 100644 repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/class/initialize.st delete mode 100644 repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/crlf.st delete mode 100644 repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-GemStone360-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-GemStone360-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-GemStone360-Core.package/monticello.meta/package delete mode 100644 repository/Grease-GemStone360-Core.package/properties.json diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st index d3f9429b..cecf6cea 100644 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st +++ b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st @@ -79,7 +79,7 @@ baselineGemStone: spec requires: #('Grease-GemStone-Core'); postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. spec - for: #(#'gs3.3.x' #'gs3.4.x' #'gs3.5.x') + for: #(#'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x') do: [ spec package: 'Grease-GemStone-Core' @@ -89,17 +89,26 @@ baselineGemStone: spec spec requires: #('Grease-GemStone-Core'); postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. + spec + for: #( #'gs3.5.4.x' #'gs3.5.5.x') + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone-Kernelv354') ]; + package: 'Grease-GemStone-Kernelv354' + with: [ + spec + requires: #('Grease-GemStone-Core') ] ]. spec for: #( #'gs3.6.x') do: [ spec package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone360-Core') ]; - package: 'Grease-GemStone360-Core' + with: [ spec includes: #('Grease-GemStone-Kernelv360') ]; + package: 'Grease-GemStone-Kernelv360' with: [ spec - requires: #('Grease-GemStone-Core'); - postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. + requires: #('Grease-GemStone-Core') ] ]. spec for: #(#'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x') do: [ diff --git a/repository/Grease-GemStone-Kernelv354.package/Class.extension/instance/comment.st b/repository/Grease-GemStone-Kernelv354.package/Class.extension/instance/comment.st new file mode 100644 index 00000000..ddd31e16 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv354.package/Class.extension/instance/comment.st @@ -0,0 +1,9 @@ +*grease-gemstone-kernelv354 +comment + "override new 3.5.4 comment implementation (answers default GemStone class comment for + class instead of nil) and restore pre-3.5.4 behavior (answer '' if no comment + defined)" + + "https://github.com/SeasideSt/Grease/issues/111" + + ^ self commentForFileout ifNil: [ '' ] diff --git a/repository/Grease-GemStone360-Core.package/Class.extension/properties.json b/repository/Grease-GemStone-Kernelv354.package/Class.extension/properties.json similarity index 100% rename from repository/Grease-GemStone360-Core.package/Class.extension/properties.json rename to repository/Grease-GemStone-Kernelv354.package/Class.extension/properties.json diff --git a/repository/Grease-GemStone-Kernelv360.package/Class.extension/instance/comment.st b/repository/Grease-GemStone-Kernelv360.package/Class.extension/instance/comment.st new file mode 100644 index 00000000..6f7cec18 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv360.package/Class.extension/instance/comment.st @@ -0,0 +1,9 @@ +*grease-gemstone-kernelv360 +comment + "override new 3.6.0 comment implementation (answers default GemStone class comment for + class instead of nil) and restore pre-3.6.0 behavior (answer '' if no comment + defined)" + + "https://github.com/SeasideSt/Grease/issues/111" + + ^ self commentForFileout ifNil: [ '' ] diff --git a/repository/Grease-GemStone-Kernelv360.package/Class.extension/properties.json b/repository/Grease-GemStone-Kernelv360.package/Class.extension/properties.json new file mode 100644 index 00000000..239813a4 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv360.package/Class.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Class" } diff --git a/repository/Grease-GemStone360-Core.package/Exception.extension/instance/messageText.st b/repository/Grease-GemStone-Kernelv360.package/Exception.extension/instance/messageText.st similarity index 77% rename from repository/Grease-GemStone360-Core.package/Exception.extension/instance/messageText.st rename to repository/Grease-GemStone-Kernelv360.package/Exception.extension/instance/messageText.st index 739ca1e4..8cd04ca0 100644 --- a/repository/Grease-GemStone360-Core.package/Exception.extension/instance/messageText.st +++ b/repository/Grease-GemStone-Kernelv360.package/Exception.extension/instance/messageText.st @@ -1,5 +1,5 @@ -*grease-gemstone360-core +*grease-gemstone-kernelv360 messageText "override new 3.6.0 messageText implementation to restore pre-3.6.0 behavior" "https://github.com/SeasideSt/Grease/issues/111" - ^ gsDetails \ No newline at end of file + ^ gsDetails diff --git a/repository/Grease-GemStone360-Core.package/Exception.extension/properties.json b/repository/Grease-GemStone-Kernelv360.package/Exception.extension/properties.json similarity index 100% rename from repository/Grease-GemStone360-Core.package/Exception.extension/properties.json rename to repository/Grease-GemStone-Kernelv360.package/Exception.extension/properties.json diff --git a/repository/Grease-GemStone360-Core.package/.filetree b/repository/Grease-GemStone360-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-GemStone360-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-GemStone360-Core.package/Class.extension/instance/comment.st b/repository/Grease-GemStone360-Core.package/Class.extension/instance/comment.st deleted file mode 100644 index e1f21144..00000000 --- a/repository/Grease-GemStone360-Core.package/Class.extension/instance/comment.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-gemstone360-core -comment - "override new 3.6.0 comment implementation (answers default GemSTone class comment for - class instead of nil) and restore pre-3.6.0 behavior (answer nil if no comment - defined)" - - "https://github.com/SeasideSt/Grease/issues/111" - - ^ self commentForFileout \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/Exception.extension/instance/greaseString.st b/repository/Grease-GemStone360-Core.package/Exception.extension/instance/greaseString.st deleted file mode 100644 index 6728cdfa..00000000 --- a/repository/Grease-GemStone360-Core.package/Exception.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone360-core -greaseString - - ^self description \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/argumentCount.st b/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/argumentCount.st deleted file mode 100644 index b2db46a7..00000000 --- a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/argumentCount.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone360-core -argumentCount - - ^self numArgs. \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/ifCurtailed..st b/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/ifCurtailed..st deleted file mode 100644 index 088ae8e6..00000000 --- a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/ifCurtailed..st +++ /dev/null @@ -1,11 +0,0 @@ -*grease-gemstone360-core -ifCurtailed: aBlock - - | wasCurtailed | - wasCurtailed := true. - [ - self value. - wasCurtailed := false. - ] ensure: [ - wasCurtailed ifTrue: aBlock. - ]. \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st b/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 0bcb5c01..00000000 --- a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-gemstone360-core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver with the arguments provided." - | n args | - (n := self numArgs) == 0 ifTrue: [^self value]. - args := anArray copy - size: n; - yourself. - ^ self valueWithArguments: args. \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/properties.json b/repository/Grease-GemStone360-Core.package/ExecBlock.extension/properties.json deleted file mode 100644 index d8195e28..00000000 --- a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ExecBlock" } diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st deleted file mode 100644 index ecd27c2c..00000000 --- a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone360-core -gemstoneExceptionSelector - - ^ (ExceptionSet new) , Halt, AlmostOutOfStack, Breakpoint \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st deleted file mode 100644 index 696a9e9c..00000000 --- a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone360-core -generateHardBreak - "Generate a GemStone hard break" - - ^Break signal: 'interrupted for Seaside debugging' \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st deleted file mode 100644 index 4d285df0..00000000 --- a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone360-core -handlesAlmostOutOfStackException: anException - - ^AlmostOutOfStack handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st deleted file mode 100644 index c983e7d9..00000000 --- a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone360-core -handlesBreakpointException: anException - - ^Breakpoint handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st deleted file mode 100644 index 05602c45..00000000 --- a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone360-core -handlesHaltException: anException - - ^Halt handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/properties.json b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/properties.json deleted file mode 100644 index eab5d9b5..00000000 --- a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRGemStonePlatform" } diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/README.md b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/class/initialize.st b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index fa779537..00000000 --- a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,12 +0,0 @@ -initialization -initialize - "self initialize" - - Latin1ToUtf8Encodings := Array new: 256. - 1 to: 256 do: [ :index | - index > 128 - ifTrue: [ - Latin1ToUtf8Encodings - at: index - put: - (String with: (Character codePoint: index - 1)) encodeAsUTF8 asString ] ] \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/crlf.st b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index e5bb258a..00000000 --- a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,9 +0,0 @@ -streaming -crlf - binary - ifTrue: [ - stream nextPut: 13. - stream nextPut: 10 ] - ifFalse: [ - stream nextPut: Character cr. - stream nextPut: Character lf ] \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index d38b2f3b..00000000 --- a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/next..st b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 2f2af983..00000000 --- a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,37 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode count | - outStream := WriteStream on: (String new: anInteger). - count := 0. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63)]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63)]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode). - count := count + 1 ]. - unicode := nil ]. - ^outStream contents \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index 1f98bba7..00000000 --- a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,17 +0,0 @@ -streaming -nextPut: aCharacter - "old implementation is very slow !!" - - " self nextPutAll: (String with: aCharacter)" - - | codePoint | - codePoint := aCharacter codePoint. - codePoint > 127 - ifTrue: [ - codePoint > 255 - ifTrue: [ - | str | - str := (String with: aCharacter) encodeAsUTF8intoString. - stream nextPutAll: str ] - ifFalse: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] ] - ifFalse: [ stream nextPut: aCharacter ] \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index d43ab2ef..00000000 --- a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - binary - ifTrue: [ stream nextPutAll: aString asString ] - ifFalse: [ stream nextPutAll: aString _encodeAsUTF8intoString ] \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/properties.json b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/properties.json deleted file mode 100644 index c174e72b..00000000 --- a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone360-Core", - "classinstvars" : [ - ], - "classvars" : [ - "Latin1ToUtf8Encodings" ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUtf8CodecStream", - "pools" : [ - ], - "super" : "GRTextOrBinaryCodecStream", - "type" : "normal" } diff --git a/repository/Grease-GemStone360-Core.package/monticello.meta/categories.st b/repository/Grease-GemStone360-Core.package/monticello.meta/categories.st deleted file mode 100644 index cb035a16..00000000 --- a/repository/Grease-GemStone360-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-GemStone360-Core'! diff --git a/repository/Grease-GemStone360-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone360-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone360-Core.package/monticello.meta/package b/repository/Grease-GemStone360-Core.package/monticello.meta/package deleted file mode 100644 index 7ced6c0d..00000000 --- a/repository/Grease-GemStone360-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone360-Core') \ No newline at end of file diff --git a/repository/Grease-GemStone360-Core.package/properties.json b/repository/Grease-GemStone360-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-GemStone360-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - }