Skip to content

Commit

Permalink
Added STON-Text support
Browse files Browse the repository at this point in the history
Sync a fix in Unicode encoding
  • Loading branch information
Sven Van Caekenberghe committed Nov 24, 2016
1 parent 0416d86 commit e17fdd0
Show file tree
Hide file tree
Showing 22 changed files with 52 additions and 9 deletions.
@@ -1,6 +1,6 @@
private
escapeUnicode: codePoint
codePoint <= 16rFFF
codePoint <= 16rFFFF
ifTrue: [ self escapeUnicode4: codePoint ]
ifFalse: [
codePoint <= 16r10FFFF
Expand Down
Expand Up @@ -16,7 +16,7 @@
"encodeStringKeepingNewLines:" : "SvenVanCaekenberghe 4/26/2015 23:16",
"error:" : "SvenVanCaekenberghe 5/28/2015 15:02",
"escapeUnicode4:" : "SvenVanCaekenberghe 2/24/2016 21:06",
"escapeUnicode:" : "SvenVanCaekenberghe 2/24/2016 21:06",
"escapeUnicode:" : "SvenVanCaekenberghe 11/24/2016 11:26",
"indentedDo:" : "SvenVanCaekenberghe 1/23/2012 11:12",
"initialize" : "SvenVanCaekenberghe 7/2/2015 15:11",
"isSimpleSymbol:" : "SvenVanCaekenberghe 4/15/2014 13:35",
Expand Down
2 changes: 1 addition & 1 deletion repository/STON-Core.package/monticello.meta/version

Large diffs are not rendered by default.

Expand Up @@ -5,7 +5,7 @@ testDeepStructure
holder := Array with: 42.
deepest := Array with: holder.
structure := deepest.
64 * 1024 timesRepeat: [ structure := Array with: structure ].
1 * 1024 timesRepeat: [ structure := Array with: structure ].
structure := Array with: holder with: structure.
writer := STON writer optimizeForLargeStructures.
ston := String streamContents: [ :out | (writer on: out) nextPut: structure ].
Expand Down
Expand Up @@ -11,7 +11,7 @@
"testConvertingNewLines" : "SvenVanCaekenberghe 4/26/2015 23:03",
"testDate" : "SvenVanCaekenberghe 1/23/2012 09:37",
"testDateAndTime" : "SvenVanCaekenberghe 1/19/2012 10:01",
"testDeepStructure" : "SvenVanCaekenberghe 4/6/2016 13:37",
"testDeepStructure" : "SvenVanCaekenberghe 11/24/2016 11:26",
"testDictionary" : "SvenVanCaekenberghe 5/5/2012 20:09",
"testDictionaryWithComplexKeys" : "SvenVanCaekenberghe 10/24/2016 10:28",
"testDictionaryWithIndirectReferenceKeys" : "SvenVanCaekenberghe 10/24/2016 10:28",
Expand Down
@@ -1,5 +1,11 @@
tests
testStrings
| strings |
strings := Collection allSubclasses collect: [ :each | each name asString ].
self serializeAndMaterialize: strings
strings := Collection allSubclasses
collect: [ :each | each name asString ].
self serializeAndMaterialize: strings.
strings := {
'foo'. 'Foo BAR'. ''. ' \\'''.
'élève en Français'.
String with: (Character codePoint: 12354) "HIRAGANA LETTER A" }.
self serializeAndMaterialize: strings.
Expand Up @@ -24,7 +24,7 @@
"testSmallDictionary" : "SvenVanCaekenberghe 4/10/2015 20:21",
"testSmallIntegers" : "SvenVanCaekenberghe 1/24/2012 10:17",
"testSpecialCharacters" : "SvenVanCaekenberghe 11/19/2016 21:39",
"testStrings" : "SvenVanCaekenberghe 1/23/2012 12:23",
"testStrings" : "SvenVanCaekenberghe 11/24/2016 11:23",
"testSymbols" : "SvenVanCaekenberghe 4/15/2014 13:36",
"testTextAndRunArray" : "SvenVanCaekenberghe 3/24/2014 13:23",
"testUser" : "SvenVanCaekenberghe 1/24/2012 10:17",
Expand Down
2 changes: 1 addition & 1 deletion repository/STON-Tests.package/monticello.meta/version

Large diffs are not rendered by default.

4 changes: 4 additions & 0 deletions repository/STON-Text support.package/.filetree
@@ -0,0 +1,4 @@
{
"noMethodMetaData" : true,
"separateMethodMetaAndSource" : false,
"useCypressPropertiesFile" : true }
@@ -0,0 +1,3 @@
*STON-Text support
fromSton: stonReader
stonReader parseNamedInstVarsFor: self
@@ -0,0 +1,3 @@
*STON-Text support
stonOn: stonWriter
stonWriter writeObject: self
@@ -0,0 +1,6 @@
{
"class" : {
},
"instance" : {
"fromSton:" : "SvenVanCaekenberghe 5/28/2015 15:33",
"stonOn:" : "SvenVanCaekenberghe 3/23/2014 18:52" } }
@@ -0,0 +1,2 @@
{
"name" : "RunArray" }
@@ -0,0 +1,3 @@
*STON-Text support
fromSton: stonReader
stonReader parseNamedInstVarsFor: self
@@ -0,0 +1,3 @@
*STON-Text support
stonOn: stonWriter
stonWriter writeObject: self
@@ -0,0 +1,6 @@
{
"class" : {
},
"instance" : {
"fromSton:" : "SvenVanCaekenberghe 5/28/2015 15:33",
"stonOn:" : "SvenVanCaekenberghe 3/23/2014 18:47" } }
@@ -0,0 +1,2 @@
{
"name" : "Text" }
@@ -0,0 +1 @@
SystemOrganization addCategory: #'STON-Text support'!
Empty file.
@@ -0,0 +1 @@
(name 'STON-Text support')
@@ -0,0 +1 @@
(name 'STON-Text support-TheIntegrator.2' message '18368 Move Rubric Shout support into standalone package https://pharo.fogbugz.com/f/cases/1836818358 Integrate Ephemeron Registry https://pharo.fogbugz.com/f/cases/1835818382 STON should not extent RunArray and Text https://pharo.fogbugz.com/f/cases/18382' id '96405f84-1e24-412c-9036-b7bbc2483c51' date '3 June 2016' time '2:20:45.41162 pm' author 'TheIntegrator' ancestors ((name 'STON-Text support-PavelKrivanek.1' message '- initial standalone version of Text support' id 'da400f35-3eb5-420e-ac19-b3b7278ad396' date '1 June 2016' time '12:03:21.097602 pm' author 'PavelKrivanek' ancestors () stepChildren ())) stepChildren ())
Expand Down
2 changes: 2 additions & 0 deletions repository/STON-Text support.package/properties.json
@@ -0,0 +1,2 @@
{
}

0 comments on commit e17fdd0

Please sign in to comment.