From 3a285a4d8649868eba1d34c20c9b560bebcdbd77 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sat, 3 Feb 2024 00:26:12 +0900 Subject: [PATCH 01/13] Added MpPortableUtil class >> detectDialogSpecificClass for detecting the dialog specific portableUtil subclass on Pharo 11 --- .../Array.extension/methodProperties.json | 6 -- .../Behavior.extension/methodProperties.json | 7 -- .../ByteArray.extension/methodProperties.json | 6 -- .../methodProperties.json | 6 -- .../False.extension/methodProperties.json | 6 -- .../methodProperties.json | 7 -- .../Integer.extension/methodProperties.json | 6 -- .../MpConstants.class/methodProperties.json | 37 -------- .../methodProperties.json | 28 ------ .../MpDecoder.class/methodProperties.json | 87 ------------------- .../methodProperties.json | 28 ------ .../MpEncoder.class/methodProperties.json | 78 ----------------- .../MpError.class/methodProperties.json | 10 --- .../MpExtValue.class/methodProperties.json | 14 --- .../MpFixextValue.class/methodProperties.json | 6 -- .../methodProperties.json | 29 ------- .../MpMessagePack.class/methodProperties.json | 8 -- .../class/detectDialogSpecificClass.st | 4 + .../class/dialectSpecificClass.st | 2 +- .../methodProperties.json | 36 -------- .../MpSettings.class/methodProperties.json | 31 ------- .../MpTypeMapper.class/methodProperties.json | 16 ---- .../Object.extension/methodProperties.json | 10 --- .../Symbol.extension/methodProperties.json | 6 -- .../True.extension/methodProperties.json | 6 -- .../methodProperties.json | 6 -- .../monticello.meta/version | 1 - 27 files changed, 5 insertions(+), 482 deletions(-) delete mode 100644 repository/MessagePack-Core.package/Array.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/Behavior.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/ByteArray.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/Dictionary.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/False.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/IdentityDictionary.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/Integer.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpConstants.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpDecodeTypeMapper.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpDecoder.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpEncodeTypeMapper.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpEncoder.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpError.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpExtValue.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpFixextValue.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpMemoryWriteStream.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpMessagePack.class/methodProperties.json create mode 100644 repository/MessagePack-Core.package/MpPortableUtil.class/class/detectDialogSpecificClass.st delete mode 100644 repository/MessagePack-Core.package/MpPortableUtil.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpSettings.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/MpTypeMapper.class/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/Object.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/Symbol.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/True.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/UndefinedObject.extension/methodProperties.json delete mode 100644 repository/MessagePack-Core.package/monticello.meta/version diff --git a/repository/MessagePack-Core.package/Array.extension/methodProperties.json b/repository/MessagePack-Core.package/Array.extension/methodProperties.json deleted file mode 100644 index 03ad1cb..0000000 --- a/repository/MessagePack-Core.package/Array.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "mpWriteSelector" : "mu 10/10/2011 16:10" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/Behavior.extension/methodProperties.json b/repository/MessagePack-Core.package/Behavior.extension/methodProperties.json deleted file mode 100644 index 9a75bda..0000000 --- a/repository/MessagePack-Core.package/Behavior.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "fromMessagePack:" : "mu 5/1/2011 21:27", - "fromMessagePack:setting:" : "MasashiUmezawa 2/1/2013 23:14" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/ByteArray.extension/methodProperties.json b/repository/MessagePack-Core.package/ByteArray.extension/methodProperties.json deleted file mode 100644 index cd1e9f2..0000000 --- a/repository/MessagePack-Core.package/ByteArray.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "mpWriteSelector" : "mu 8/19/2013 00:56" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/Dictionary.extension/methodProperties.json b/repository/MessagePack-Core.package/Dictionary.extension/methodProperties.json deleted file mode 100644 index e04efbe..0000000 --- a/repository/MessagePack-Core.package/Dictionary.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "mpWriteSelector" : "mu 10/10/2011 16:11" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/False.extension/methodProperties.json b/repository/MessagePack-Core.package/False.extension/methodProperties.json deleted file mode 100644 index 9ebab2f..0000000 --- a/repository/MessagePack-Core.package/False.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "mpWriteSelector" : "mu 10/10/2011 16:12" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/IdentityDictionary.extension/methodProperties.json b/repository/MessagePack-Core.package/IdentityDictionary.extension/methodProperties.json deleted file mode 100644 index f070043..0000000 --- a/repository/MessagePack-Core.package/IdentityDictionary.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "mpWriteSelector" : "mu 10/10/2011 16:31", - "asMpMap" : "MasashiUmezawa 2/2/2013 00:25" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/Integer.extension/methodProperties.json b/repository/MessagePack-Core.package/Integer.extension/methodProperties.json deleted file mode 100644 index dbc8982..0000000 --- a/repository/MessagePack-Core.package/Integer.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "mpWriteSelector" : "mu 10/10/2011 16:31" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpConstants.class/methodProperties.json b/repository/MessagePack-Core.package/MpConstants.class/methodProperties.json deleted file mode 100644 index 00e95b0..0000000 --- a/repository/MessagePack-Core.package/MpConstants.class/methodProperties.json +++ /dev/null @@ -1,37 +0,0 @@ -{ - "instance" : { }, - "class" : { - "array32" : "mu 6/23/2011 12:00", - "fixext8" : "mu 8/11/2013 23:54", - "boolFalse" : "MasashiUmezawa 5/18/2015 10:49", - "ext16" : "mu 9/22/2013 00:33", - "bin16" : "mu 8/11/2013 23:51", - "fixext1" : "mu 8/11/2013 23:54", - "boolTrue" : "MasashiUmezawa 5/18/2015 10:47", - "fixext16" : "mu 8/11/2013 23:54", - "int16" : "mu 6/23/2011 12:01", - "int64" : "mu 6/23/2011 12:02", - "int8" : "mu 6/23/2011 12:02", - "map16" : "mu 6/23/2011 12:02", - "str8" : "mu 8/11/2013 23:48", - "int32" : "mu 6/23/2011 12:02", - "float" : "mu 6/23/2011 12:01", - "fixext4" : "mu 8/11/2013 23:54", - "bin8" : "mu 8/11/2013 23:51", - "str16" : "mu 8/11/2013 23:46", - "timestamp" : "MasashiUmezawa 8/11/2017 14:40", - "uint32" : "mu 6/23/2011 12:02", - "array16" : "mu 6/23/2011 12:00", - "uint8" : "mu 6/23/2011 12:03", - "fixext2" : "mu 8/11/2013 23:54", - "undefinedNil" : "MasashiUmezawa 5/18/2015 10:45", - "bin32" : "mu 8/11/2013 23:52", - "uint16" : "mu 6/23/2011 12:02", - "ext32" : "mu 9/22/2013 00:34", - "uint64" : "mu 6/23/2011 12:03", - "double" : "mu 6/23/2011 12:01", - "ext8" : "mu 9/22/2013 00:33", - "map32" : "mu 6/23/2011 12:02", - "str32" : "mu 8/11/2013 23:47" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/methodProperties.json b/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/methodProperties.json deleted file mode 100644 index c976c5b..0000000 --- a/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/methodProperties.json +++ /dev/null @@ -1,28 +0,0 @@ -{ - "instance" : { - "isBytesAsString:" : "MasashiUmezawa 2/2/2013 01:08", - "bytesAsRaw" : "mu 8/26/2013 00:20", - "bytesAsString" : "MasashiUmezawa 5/23/2015 23:26", - "decoder:" : "mu 4/29/2011 23:40", - "readObjectOf:ifNotApplied:" : "mu 4/30/2011 22:58", - "isBytesAsString" : "MasashiUmezawa 2/2/2013 01:09", - "decoder" : "mu 4/29/2011 23:40" - }, - "class" : { - "defineDoubleActionTo:" : "mu 4/30/2011 22:44", - "defineBinBytesActionTo:" : "mu 8/12/2013 00:43", - "defineTrueActionTo:" : "MasashiUmezawa 5/18/2015 10:47", - "on:" : "mu 11/20/2011 16:50", - "defineStrBytesActionTo:" : "mu 8/12/2013 00:14", - "defineIntegerActionTo:" : "mu 4/30/2011 22:47", - "definePrimitivesActionsTo:" : "MasashiUmezawa 2/4/2017 21:49", - "defineMapActionTo:" : "mu 4/30/2011 22:51", - "defineCompoundsActionsTo:" : "mu 4/30/2011 22:33", - "defineFloatActionTo:" : "mu 4/30/2011 22:43", - "defineFalseActionTo:" : "MasashiUmezawa 5/18/2015 10:49", - "defineArrayActionTo:" : "mu 4/30/2011 22:51", - "defineExtsActionsTo:" : "mu 12/8/2013 15:35", - "defineNilActionTo:" : "MasashiUmezawa 5/18/2015 10:45", - "defineUnsignedIntegerActionTo:" : "mu 4/30/2011 22:46" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpDecoder.class/methodProperties.json b/repository/MessagePack-Core.package/MpDecoder.class/methodProperties.json deleted file mode 100644 index 6abbabc..0000000 --- a/repository/MessagePack-Core.package/MpDecoder.class/methodProperties.json +++ /dev/null @@ -1,87 +0,0 @@ -{ - "instance" : { - "readFixStr:" : "mu 8/25/2013 23:55", - "readFixext1" : "mu 12/8/2013 15:41", - "readFloat" : "mu 6/2/2011 12:24", - "settingsClass" : "mu 6/2/2011 17:41", - "readFalse" : "mu 4/30/2011 23:15", - "readFixext16" : "mu 11/5/2013 00:02", - "typeMapper" : "mu 8/26/2013 00:14", - "readString32" : "MasashiUmezawa 11/12/2016 23:18", - "readUint16" : "mu 4/30/2011 23:31", - "readUint32" : "mu 4/30/2011 23:32", - "readStr32" : "mu 8/25/2013 23:58", - "readString16" : "MasashiUmezawa 11/12/2016 23:18", - "signalError" : "mu 5/2/2011 14:15", - "next" : "mu 6/7/2011 17:54", - "readType" : "mu 4/30/2011 23:33", - "readTimestamp64:" : "MasashiUmezawa 8/11/2017 17:11", - "readStr16" : "mu 8/25/2013 23:58", - "readTrue" : "mu 4/30/2011 23:16", - "readFixext8" : "mu 11/5/2013 00:02", - "readObjectOf:" : "mu 5/8/2011 23:11", - "readArraySized:" : "mu 4/30/2011 23:46", - "readObject" : "mu 5/8/2011 23:12", - "readFixRaw:" : "mu 11/9/2018 22:50", - "readFixext4" : "mu 11/5/2013 00:02", - "readInt16" : "mu 5/1/2011 16:06", - "readInt32" : "mu 5/1/2011 16:06", - "readBin8" : "mu 8/12/2013 00:42", - "readDouble" : "mu 5/29/2011 23:59", - "decodeFrom:setting:" : "MasashiUmezawa 2/1/2013 23:13", - "readArray16" : "mu 4/30/2011 23:45", - "readArray32" : "mu 4/30/2011 23:45", - "readExt32" : "mu 11/4/2013 23:39", - "readFixext:as:" : "MasashiUmezawa 8/11/2017 15:28", - "decode:" : "mu 4/29/2011 23:40", - "readExt16" : "mu 11/4/2013 23:39", - "readRaw16" : "mu 8/25/2013 23:59", - "readRaw32" : "mu 8/25/2013 23:59", - "buildTypeMapper:" : "MasashiUmezawa 5/23/2015 23:02", - "readStream:" : "mu 4/29/2011 23:40", - "readObjectOf:ifNotApplied:" : "mu 8/25/2013 23:54", - "signalError:" : "mu 5/2/2011 14:15", - "decodeFrom:" : "mu 4/29/2011 23:40", - "createOrderedCollection:" : "mu 4/29/2011 23:40", - "readTimestamp32:" : "MasashiUmezawa 8/13/2017 12:59", - "readInt8" : "mu 5/1/2011 16:50", - "readUint64" : "mu 4/30/2011 23:32", - "readString8" : "MasashiUmezawa 11/12/2016 23:18", - "readFixArray:" : "mu 6/7/2011 21:00", - "readUint8" : "mu 4/30/2011 23:30", - "atEnd" : "mu 6/7/2011 17:53", - "readMapSized:" : "mu 10/10/2011 16:32", - "readPositiveFixNum:" : "mu 4/30/2011 23:18", - "readFixedTimestamp:" : "MasashiUmezawa 8/11/2017 17:06", - "settings" : "mu 4/29/2011 23:40", - "readExtSized:as:" : "MasashiUmezawa 8/11/2017 17:19", - "readMap16" : "mu 4/30/2011 23:46", - "readMap32" : "mu 4/30/2011 23:46", - "readNil" : "mu 4/29/2011 23:40", - "decode" : "mu 5/2/2011 14:15", - "readInt64" : "mu 5/1/2011 16:03", - "readFixext2" : "mu 11/5/2013 00:02", - "readExt8" : "mu 11/4/2013 23:39", - "readStr8" : "mu 8/26/2013 00:04", - "readTimestamp96:" : "MasashiUmezawa 8/11/2017 17:21", - "readNegativeFixNum:" : "mu 7/15/2011 23:47", - "createArray:" : "mu 11/9/2018 23:01", - "readBin16" : "mu 8/12/2013 00:43", - "readBin32" : "mu 8/12/2013 00:43", - "readFixString:" : "mu 11/9/2018 22:58", - "readStream" : "mu 4/29/2011 23:40", - "decode:setting:" : "MasashiUmezawa 2/1/2013 23:13", - "createDictionary:" : "mu 4/29/2011 23:40", - "read" : "mu 4/30/2011 23:43", - "readFixMap:" : "mu 6/7/2011 21:00", - "typeMapperClass" : "mu 4/29/2011 23:42" - }, - "class" : { - "on:" : "mu 5/15/2011 00:40", - "onBytes:" : "mu 4/29/2011 23:40", - "decodeFrom:" : "mu 4/29/2011 23:40", - "decode:" : "mu 4/29/2011 23:40", - "decodeFrom:setting:" : "MasashiUmezawa 2/1/2013 23:14", - "decode:setting:" : "MasashiUmezawa 2/1/2013 23:14" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpEncodeTypeMapper.class/methodProperties.json b/repository/MessagePack-Core.package/MpEncodeTypeMapper.class/methodProperties.json deleted file mode 100644 index 27651d7..0000000 --- a/repository/MessagePack-Core.package/MpEncodeTypeMapper.class/methodProperties.json +++ /dev/null @@ -1,28 +0,0 @@ -{ - "instance" : { - "encoder" : "mu 4/29/2011 15:15", - "stringAsError" : "mu 8/19/2013 01:31", - "stringAsBytes" : "mu 5/2/2012 12:19", - "bytesAsRaw" : "mu 8/19/2013 00:59", - "encoder:" : "mu 4/29/2011 15:15", - "writeObject:ifNotApplied:" : "MasashiUmezawa 2/1/2013 23:52" - }, - "class" : { - "defineDoubleActionTo:" : "mu 4/29/2011 23:11", - "defineTimestampActionTo:" : "MasashiUmezawa 8/11/2017 12:28", - "defineBinBytesActionTo:" : "mu 8/19/2013 00:17", - "defineTrueActionTo:" : "mu 4/29/2011 15:15", - "on:" : "mu 10/10/2011 17:27", - "defineStrBytesActionTo:" : "mu 8/19/2013 00:25", - "defineIntegerActionTo:" : "mu 4/29/2011 15:15", - "definePrimitivesActionsTo:" : "MasashiUmezawa 2/4/2017 21:49", - "defineMapActionTo:" : "mu 4/29/2011 23:29", - "defineCompoundsActionsTo:" : "mu 4/29/2011 22:38", - "defineFloatActionTo:" : "mu 4/29/2011 23:12", - "defineFalseActionTo:" : "mu 4/29/2011 15:15", - "defineArrayActionTo:" : "mu 4/29/2011 23:25", - "defineExtsActionsTo:" : "MasashiUmezawa 8/11/2017 12:26", - "defineNilActionTo:" : "mu 4/29/2011 15:15", - "defineSymbolActionTo:" : "MasashiUmezawa 2/4/2017 22:13" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpEncoder.class/methodProperties.json b/repository/MessagePack-Core.package/MpEncoder.class/methodProperties.json deleted file mode 100644 index b9084af..0000000 --- a/repository/MessagePack-Core.package/MpEncoder.class/methodProperties.json +++ /dev/null @@ -1,78 +0,0 @@ -{ - "instance" : { - "createWriteStream" : "mu 10/29/2011 23:25", - "writeTimestamp32:" : "MasashiUmezawa 8/11/2017 14:42", - "contents" : "mu 4/29/2011 15:07", - "typeMapper" : "mu 8/19/2013 00:41", - "writeFalse:" : "MasashiUmezawa 5/18/2015 10:49", - "writeInt16:" : "mu 4/29/2011 15:51", - "writeUint64:" : "mu 4/29/2011 15:49", - "writeUint8:" : "mu 4/29/2011 15:38", - "writeFloat:" : "mu 4/29/2011 16:22", - "writeFixext2:as:" : "mu 9/22/2013 01:02", - "writeTimestamp64:" : "MasashiUmezawa 8/11/2017 14:43", - "buildTypeMapper:" : "MasashiUmezawa 6/4/2016 14:09", - "writeTrue:" : "MasashiUmezawa 5/18/2015 10:47", - "writeWideString:" : "MasashiUmezawa 11/12/2016 23:00", - "writeMapSize:" : "mu 5/3/2011 23:27", - "writeExt:as:" : "mu 9/22/2013 01:20", - "writeTimestamp:" : "MasashiUmezawa 8/11/2017 14:49", - "nextPutAll:" : "mu 6/7/2011 17:56", - "encode:on:" : "mu 4/29/2011 15:07", - "writeInteger:" : "mu 5/2/2011 14:14", - "settingsClass" : "mu 4/29/2011 15:13", - "writeUint16:" : "mu 4/29/2011 15:38", - "settings" : "mu 4/29/2011 15:07", - "encode:on:setting:" : "MasashiUmezawa 2/1/2013 22:30", - "writeRawBytes:" : "mu 8/19/2013 01:13", - "writeUnknown:withHandler:" : "MasashiUmezawa 2/2/2013 00:37", - "writeFixext4:as:" : "mu 9/22/2013 01:02", - "writeExt:" : "mu 11/5/2013 00:16", - "buildTypeMapperFor2013:" : "MasashiUmezawa 2/4/2017 21:51", - "writeStream:" : "mu 4/29/2011 15:07", - "writeBinBytesSize:" : "mu 8/19/2013 01:10", - "writeObject:ifNotApplied:" : "mu 4/29/2011 15:07", - "typeMapperClass" : "mu 4/29/2011 15:08", - "writeFixext1:as:" : "mu 12/8/2013 15:32", - "nextPut:" : "mu 6/7/2011 17:50", - "buildTypeMapperFor2008:" : "MasashiUmezawa 6/4/2016 14:07", - "writeExt16:as:" : "mu 9/22/2013 01:10", - "writeInt32:" : "mu 4/29/2011 15:51", - "writeFixext16:as:" : "mu 9/22/2013 01:02", - "writePositiveFixNum:" : "mu 4/29/2011 15:27", - "writeStrBytes:" : "mu 8/19/2013 01:11", - "writeArray:" : "mu 5/3/2011 23:24", - "writeExt32:as:" : "mu 9/22/2013 01:10", - "write:on:" : "mu 4/29/2011 15:12", - "writeStrBytesSize:" : "mu 8/19/2013 01:16", - "writeFixext:" : "mu 11/5/2013 00:17", - "writeArraySize:" : "mu 5/3/2011 23:24", - "writeExt8:as:" : "mu 9/22/2013 01:07", - "writeInt64:" : "mu 4/29/2011 15:51", - "writeNegativeFixNum:" : "mu 7/15/2011 23:47", - "writeFixext:as:" : "mu 9/22/2013 01:19", - "writeDouble:" : "mu 4/29/2011 16:23", - "writeObject:" : "mu 5/2/2011 14:14", - "writeString:" : "MasashiUmezawa 10/11/2017 12:24", - "writeTimestamp96:nanos:" : "MasashiUmezawa 8/11/2017 14:43", - "signalError" : "mu 5/2/2011 14:13", - "writeFixext8:as:" : "mu 9/22/2013 01:02", - "writeBinBytes:" : "mu 8/19/2013 01:10", - "encode:setting:" : "MasashiUmezawa 2/1/2013 22:34", - "writeStream" : "mu 10/29/2011 22:47", - "encode:" : "mu 4/29/2011 15:07", - "signalError:" : "mu 5/2/2011 14:13", - "writeNil:" : "MasashiUmezawa 5/18/2015 10:45", - "writeMap:" : "mu 5/3/2011 23:28", - "writeUint32:" : "mu 4/29/2011 15:39", - "writeInt8:" : "mu 5/1/2011 16:54" - }, - "class" : { - "on:" : "mu 4/29/2011 15:07", - "encode:on:" : "mu 4/29/2011 15:07", - "onBytes:" : "mu 4/29/2011 15:07", - "encode:on:setting:" : "MasashiUmezawa 2/1/2013 22:31", - "encode:setting:" : "MasashiUmezawa 2/1/2013 22:33", - "encode:" : "mu 4/29/2011 15:07" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpError.class/methodProperties.json b/repository/MessagePack-Core.package/MpError.class/methodProperties.json deleted file mode 100644 index 1b51ee5..0000000 --- a/repository/MessagePack-Core.package/MpError.class/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "instance" : { - "type:" : "mu 5/2/2011 14:11", - "type" : "mu 5/2/2011 14:11" - }, - "class" : { - "encode" : "mu 5/2/2011 14:11", - "decode" : "mu 5/2/2011 14:11" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpExtValue.class/methodProperties.json b/repository/MessagePack-Core.package/MpExtValue.class/methodProperties.json deleted file mode 100644 index 792a543..0000000 --- a/repository/MessagePack-Core.package/MpExtValue.class/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "instance" : { - "printDescriptionOn:" : "mu 12/8/2013 15:29", - "size" : "mu 12/8/2013 15:03", - "printOn:" : "mu 12/8/2013 15:29", - "data:" : "mu 11/4/2013 23:51", - "typeCode" : "mu 11/4/2013 23:27", - "typeCode:" : "mu 11/4/2013 23:27", - "data" : "mu 11/4/2013 23:51" - }, - "class" : { - "typeCode:data:" : "mu 11/4/2013 23:51" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpFixextValue.class/methodProperties.json b/repository/MessagePack-Core.package/MpFixextValue.class/methodProperties.json deleted file mode 100644 index 3b5f204..0000000 --- a/repository/MessagePack-Core.package/MpFixextValue.class/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "printOn:" : "mu 12/8/2013 15:30" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpMemoryWriteStream.class/methodProperties.json b/repository/MessagePack-Core.package/MpMemoryWriteStream.class/methodProperties.json deleted file mode 100644 index 1e3f030..0000000 --- a/repository/MessagePack-Core.package/MpMemoryWriteStream.class/methodProperties.json +++ /dev/null @@ -1,29 +0,0 @@ -{ - "instance" : { - "chunkPosition:" : "22/10/11 23:23", - "chunkSize:" : "22/10/11 23:23", - "initialize" : "22/10/11 23:23", - "nextPutAll:" : "22/10/11 23:23", - "contents" : "22/10/11 23:23", - "asByteArray" : "22/10/11 23:23", - "chunks:" : "22/10/11 23:23", - "chunkPosition" : "22/10/11 23:23", - "position" : "22/10/11 23:23", - "chunks" : "22/10/11 23:23", - "lastSize:" : "22/10/11 23:23", - "size" : "22/10/11 23:23", - "moveToNext" : "22/10/11 23:23", - "lastSize" : "22/10/11 23:23", - "chunkSize" : "22/10/11 23:23", - "prepareCurrentChunk" : "22/10/11 23:23", - "makeSpace" : "22/10/11 23:23", - "currentChunk:" : "22/10/11 23:23", - "currentChunk" : "22/10/11 23:23", - "putBytes:sized:" : "22/10/11 23:23", - "nextPut:" : "22/10/11 23:23" - }, - "class" : { - "chunkSized:" : "22/10/11 23:23", - "new" : "22/10/11 23:23" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpMessagePack.class/methodProperties.json b/repository/MessagePack-Core.package/MpMessagePack.class/methodProperties.json deleted file mode 100644 index 55b6696..0000000 --- a/repository/MessagePack-Core.package/MpMessagePack.class/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "instance" : { }, - "class" : { - "packUnpack:" : "mu 5/1/2011 21:16", - "pack:" : "mu 5/1/2011 15:44", - "unpack:" : "mu 5/1/2011 15:44" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpPortableUtil.class/class/detectDialogSpecificClass.st b/repository/MessagePack-Core.package/MpPortableUtil.class/class/detectDialogSpecificClass.st new file mode 100644 index 0000000..088ee21 --- /dev/null +++ b/repository/MessagePack-Core.package/MpPortableUtil.class/class/detectDialogSpecificClass.st @@ -0,0 +1,4 @@ +factory +detectDialogSpecificClass + "Try to detect most specific subclass for this platform" + ^ self allSubclasses detect: [ :eachSub | eachSub subclasses isEmpty ] ifNone: [ self subclasses at: 1 ] \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpPortableUtil.class/class/dialectSpecificClass.st b/repository/MessagePack-Core.package/MpPortableUtil.class/class/dialectSpecificClass.st index 3fa079d..9396ab3 100644 --- a/repository/MessagePack-Core.package/MpPortableUtil.class/class/dialectSpecificClass.st +++ b/repository/MessagePack-Core.package/MpPortableUtil.class/class/dialectSpecificClass.st @@ -1,3 +1,3 @@ factory dialectSpecificClass - ^DialectSpecificClass ifNil: [DialectSpecificClass := self subclasses at: 1] \ No newline at end of file + ^DialectSpecificClass ifNil: [DialectSpecificClass := self detectDialogSpecificClass] \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpPortableUtil.class/methodProperties.json b/repository/MessagePack-Core.package/MpPortableUtil.class/methodProperties.json deleted file mode 100644 index 40669ef..0000000 --- a/repository/MessagePack-Core.package/MpPortableUtil.class/methodProperties.json +++ /dev/null @@ -1,36 +0,0 @@ -{ - "instance" : { - "readUint64From:" : "mu 4/30/2011 23:35", - "writeInt64:to:" : "mu 4/30/2011 23:35", - "collectionEquals:with:" : "mu 6/23/2011 12:36", - "encodeTypeMapperClass" : "mu 4/29/2011 23:24", - "stringFromBytes:" : "MasashiUmezawa 11/12/2016 23:19", - "bytesFromString:" : "mu 5/2/2012 12:35", - "timestampFromSeconds:nanos:" : "MasashiUmezawa 8/11/2017 15:30", - "writeInt16:to:" : "mu 4/30/2011 23:35", - "writeUint32:to:" : "mu 4/29/2011 15:08", - "unixSecondsWithNanosecondsFrom:" : "MasashiUmezawa 8/11/2017 13:15", - "readDoubleFrom:" : "mu 5/29/2011 23:56", - "readUint16From:" : "mu 4/29/2011 15:08", - "writeUint16:to:" : "mu 4/29/2011 15:08", - "readFloatFrom:" : "mu 5/29/2011 23:56", - "randomClass" : "mu 6/23/2011 12:33", - "writeUint64:to:" : "mu 4/30/2011 23:35", - "readInt16From:" : "mu 4/30/2011 23:35", - "readUint32From:" : "mu 4/29/2011 15:08", - "newCollection:sized:withAll:" : "mu 6/23/2011 12:34", - "useFastBulkWrite" : "mu 10/29/2011 23:23", - "writeInt32:to:" : "mu 4/29/2011 15:08", - "writeDouble:to:" : "mu 4/29/2011 16:16", - "writeFloat:to:" : "mu 4/29/2011 16:16", - "readInt32From:" : "mu 4/29/2011 15:08", - "signalException:" : "mu 5/2/2011 13:53", - "readInt64From:" : "mu 4/30/2011 23:35" - }, - "class" : { - "initialize" : "mu 4/29/2011 15:08", - "dialectSpecificClass" : "mu 5/5/2011 22:14", - "dialectSpecificClass:" : "mu 4/29/2011 15:08", - "default" : "mu 4/29/2011 15:08" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpSettings.class/methodProperties.json b/repository/MessagePack-Core.package/MpSettings.class/methodProperties.json deleted file mode 100644 index d256862..0000000 --- a/repository/MessagePack-Core.package/MpSettings.class/methodProperties.json +++ /dev/null @@ -1,31 +0,0 @@ -{ - "instance" : { - "printOn:" : "MasashiUmezawa 2/2/2013 00:18", - "stringAsBytes:" : "mu 5/2/2012 12:04", - "symbolAsString:" : "MasashiUmezawa 6/3/2016 18:29", - "symbolAsString" : "MasashiUmezawa 6/4/2016 14:09", - "initialize" : "mu 4/29/2011 15:12", - "formatVersion:" : "mu 8/19/2013 00:37", - "at:ifAbsentPut:" : "mu 4/29/2011 15:12", - "settingsDict" : "mu 4/29/2011 15:12", - "includesKey:" : "mu 4/29/2011 15:12", - "stringAsBytes" : "mu 5/2/2012 12:04", - "bytesAsString:" : "MasashiUmezawa 2/2/2013 00:45", - "defaultStreamSize:" : "mu 4/29/2011 15:12", - "defaultStreamSize" : "mu 4/29/2011 15:12", - "fastBulkWrite:" : "mu 10/29/2011 22:52", - "decodeMode" : "MasashiUmezawa 2/1/2013 23:33", - "at:" : "mu 4/29/2011 15:12", - "encodeMode" : "MasashiUmezawa 2/1/2013 23:22", - "fastBulkWrite" : "mu 10/29/2011 23:24", - "at:put:" : "mu 5/11/2011 23:24", - "bytesAsString" : "MasashiUmezawa 2/2/2013 00:45", - "decodeMode:" : "MasashiUmezawa 2/2/2013 00:31", - "at:ifAbsent:" : "mu 4/29/2011 15:12", - "encodeMode:" : "MasashiUmezawa 2/2/2013 00:30", - "formatVersion" : "MasashiUmezawa 6/21/2015 16:12", - "keys" : "mu 4/29/2011 15:12", - "legacyFormat" : "MasashiUmezawa 6/21/2015 16:20" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpTypeMapper.class/methodProperties.json b/repository/MessagePack-Core.package/MpTypeMapper.class/methodProperties.json deleted file mode 100644 index f2885b6..0000000 --- a/repository/MessagePack-Core.package/MpTypeMapper.class/methodProperties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "instance" : { - "actionMap" : "mu 4/29/2011 15:15", - "initActionMaps" : "mu 4/29/2011 15:15", - "defaultActionMap" : "mu 4/29/2011 15:15" - }, - "class" : { - "initializeAll" : "mu 4/29/2011 22:19", - "definePrimitivesActionsTo:" : "mu 4/29/2011 15:15", - "defineCompoundsActionsTo:" : "mu 4/29/2011 15:15", - "initialize" : "mu 4/29/2011 22:38", - "defineExtsActionsTo:" : "mu 11/4/2013 23:58", - "actionMap" : "mu 4/29/2011 15:15", - "createActionMap" : "mu 11/4/2013 23:59" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/Object.extension/methodProperties.json b/repository/MessagePack-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index b866712..0000000 --- a/repository/MessagePack-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,10 +0,0 @@ -{ - "instance" : { - "messagePacked:" : "MasashiUmezawa 2/2/2013 00:41", - "asMpConverted" : "MasashiUmezawa 2/2/2013 00:35", - "asMpMap" : "MasashiUmezawa 2/2/2013 00:32", - "mpWriteSelector" : "mu 10/10/2011 16:34", - "messagePacked" : "mu 5/1/2011 21:26" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/Symbol.extension/methodProperties.json b/repository/MessagePack-Core.package/Symbol.extension/methodProperties.json deleted file mode 100644 index 2890fa8..0000000 --- a/repository/MessagePack-Core.package/Symbol.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "asMpConverted" : "MasashiUmezawa 2/2/2013 00:36" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/True.extension/methodProperties.json b/repository/MessagePack-Core.package/True.extension/methodProperties.json deleted file mode 100644 index a363fd9..0000000 --- a/repository/MessagePack-Core.package/True.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "mpWriteSelector" : "mu 10/10/2011 16:35" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/UndefinedObject.extension/methodProperties.json b/repository/MessagePack-Core.package/UndefinedObject.extension/methodProperties.json deleted file mode 100644 index a363fd9..0000000 --- a/repository/MessagePack-Core.package/UndefinedObject.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "mpWriteSelector" : "mu 10/10/2011 16:35" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Core.package/monticello.meta/version b/repository/MessagePack-Core.package/monticello.meta/version deleted file mode 100644 index 113724d..0000000 --- a/repository/MessagePack-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'MessagePack-Core-mu.42' message 'Optimized zero-sized collection decoding' id '150b48a4-9d36-0d00-9f25-f5ad0931b5fd' date '9 November 2018' time '11:09:51.189123 pm' author 'mu' ancestors ((name 'MessagePack-Core-MasashiUmezawa.41' message 'Changed writeString: to use MpPortableUtil' id 'c01e4ecf-9e17-0d00-86b6-71f00cd037ad' date '11 October 2017' time '12:32:27.514078 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.40' message 'Fixed readTimestamp32:' id '43ec3ea1-fd12-0d00-961d-9dd50ade5bf7' date '13 August 2017' time '2:33:58.520426 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.39' message 'Added Timestamp decoding' id '561706d2-d712-0d00-ab4d-9685014acda9' date '11 August 2017' time '5:27:28.122221 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.38' message 'Added Timestamp encoding' id '5c465aa7-d512-0d00-99f6-811d006f5111' date '11 August 2017' time '2:52:22.284571 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.37' message 'Optimized MpEncoder''s type mapper creation ' id '60238847-3a2c-4a3d-86c2-9378dc5b091a' date '4 February 2017' time '10:18:06.75242 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.36' message 'MpDecoder now assumes strings are utf8 encoded' id 'eed3c7c0-24a6-cf46-9bba-1dd6b7bf4e83' date '12 November 2016' time '11:26:28.400191 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.35' message 'Added symbolAsString setting' id '42ae866c-30b7-1a45-a197-a005b7e5fa90' date '4 June 2016' time '2:22:42.063615 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.34' message 'MpSettings>>formatVersion -> 2013 is now default' id '51579c03-5587-47f1-9ebf-8a5ef7470230' date '21 June 2015' time '4:34:16.532914 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.33' message 'Fixed a mapping bug in MpDecodeTypeMapper>>bytesAsString' id 'd6135ce8-d710-444d-b3b0-2a6c24168765' date '23 May 2015' time '11:36:39.85456 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.32' message 'Renamed MpConstants typecode methods for compatibility with GemStone. https://github.com/msgpack/msgpack-smalltalk/issues/4' id '7672363c-2b3d-422c-a18d-63de7ceb21ba' date '18 May 2015' time '10:54:43.647181 am' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-mu.31' message '- Ext and Fixext encoding/decoding are now working' id '958b6113-8b9b-214c-a28e-38c991a8b70b' date '8 December 2013' time '3:47:05.753 pm' author 'mu' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file From dbb0fca701710e600a6131c760226c6f2a92a2a3 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sat, 3 Feb 2024 16:14:19 +0900 Subject: [PATCH 02/13] Create main.yml --- .github/workflows/main.yml | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 .github/workflows/main.yml diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml new file mode 100644 index 0000000..f145c1c --- /dev/null +++ b/.github/workflows/main.yml @@ -0,0 +1,25 @@ +name: smalltalkCI + +on: [push] + +jobs: + test: + runs-on: ubuntu-22.04 + strategy: + fail-fast: false + matrix: + smalltalk: [Pharo64-11, Squeak64-6.0] + experimental: [false] + continue-on-error: ${{ matrix.experimental }} + name: ${{ matrix.smalltalk }} + steps: + - uses: actions/checkout@v3 + - uses: hpi-swa/setup-smalltalkCI@v1 + with: + smalltalk-image: ${{ matrix.smalltalk }} + - name: Run tests + run: smalltalkci -s ${{ matrix.smalltalk }} + env: + GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }} + shell: bash + timeout-minutes: 20 From 6d650e916fd9332dce25f6ef23ecbbfef1390afd Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sat, 3 Feb 2024 16:16:16 +0900 Subject: [PATCH 03/13] Added .smalltalk.ston --- smalltalk.ston | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 smalltalk.ston diff --git a/smalltalk.ston b/smalltalk.ston new file mode 100644 index 0000000..1b1dfbf --- /dev/null +++ b/smalltalk.ston @@ -0,0 +1,13 @@ +SmalltalkCISpec { + #loading : [ + SCIMetacelloLoadSpec { + #baseline : 'MessagePack', + #directory : 'repository', + #load : [ 'default' ], + #onConflict : #useLoaded, + #useLatestMetacello : false, + #onWarningLog : true, + #platforms : [ #pharo, #squeak ] + } + ] +} \ No newline at end of file From 6bc32531aaedba0f555a450f58c175cc423fe9f3 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sat, 3 Feb 2024 16:17:07 +0900 Subject: [PATCH 04/13] Added .smalltalk.ston --- smalltalk.ston => .smalltalk.ston | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename smalltalk.ston => .smalltalk.ston (100%) diff --git a/smalltalk.ston b/.smalltalk.ston similarity index 100% rename from smalltalk.ston rename to .smalltalk.ston From b2a90aab953fca1ea261cef1d8146adfa6b39425 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sat, 3 Feb 2024 16:42:09 +0900 Subject: [PATCH 05/13] Renamed MpSqPortableUtil class >> initialize to activate --- .../instance/preLoadForPharo.st | 2 +- .../methodProperties.json | 7 ----- .../monticello.meta/version | 1 - .../methodProperties.json | 6 ---- .../methodProperties.json | 17 ----------- .../methodProperties.json | 12 -------- .../class/{initialize.st => activate.st} | 4 +-- .../methodProperties.json | 28 ------------------- .../methodProperties.json | 9 ------ .../monticello.meta/version | 1 - 10 files changed, 3 insertions(+), 84 deletions(-) delete mode 100644 repository/BaselineOfMessagePack.package/BaselineOfMessagePack.class/methodProperties.json delete mode 100644 repository/BaselineOfMessagePack.package/monticello.meta/version delete mode 100644 repository/MessagePack-Squeak-Core.package/DateAndTime.extension/methodProperties.json delete mode 100644 repository/MessagePack-Squeak-Core.package/MpMemoryWriteStream.extension/methodProperties.json delete mode 100644 repository/MessagePack-Squeak-Core.package/MpSqEncodeTypeMapper.class/methodProperties.json rename repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/class/{initialize.st => activate.st} (66%) delete mode 100644 repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/methodProperties.json delete mode 100644 repository/MessagePack-Squeak-Core.package/PositionableStream.extension/methodProperties.json delete mode 100644 repository/MessagePack-Squeak-Core.package/monticello.meta/version diff --git a/repository/BaselineOfMessagePack.package/BaselineOfMessagePack.class/instance/preLoadForPharo.st b/repository/BaselineOfMessagePack.package/BaselineOfMessagePack.class/instance/preLoadForPharo.st index 5a4cdd3..2e06ab9 100644 --- a/repository/BaselineOfMessagePack.package/BaselineOfMessagePack.class/instance/preLoadForPharo.st +++ b/repository/BaselineOfMessagePack.package/BaselineOfMessagePack.class/instance/preLoadForPharo.st @@ -1,3 +1,3 @@ doits preLoadForPharo - Smalltalk globals at: #MpPhPortableUtil ifPresent: [ :cls | cls initialize]. \ No newline at end of file + Smalltalk globals at: #MpPhPortableUtil ifPresent: [ :cls | cls activate]. \ No newline at end of file diff --git a/repository/BaselineOfMessagePack.package/BaselineOfMessagePack.class/methodProperties.json b/repository/BaselineOfMessagePack.package/BaselineOfMessagePack.class/methodProperties.json deleted file mode 100644 index f99b6f9..0000000 --- a/repository/BaselineOfMessagePack.package/BaselineOfMessagePack.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "instance" : { - "preLoadForPharo" : "MasashiUmezawa 8/12/2018 14:37", - "baseline:" : "MasashiUmezawa 8/12/2018 14:36" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/BaselineOfMessagePack.package/monticello.meta/version b/repository/BaselineOfMessagePack.package/monticello.meta/version deleted file mode 100644 index d9fb3d0..0000000 --- a/repository/BaselineOfMessagePack.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'BaselineOfMessagePack-MasashiUmezawa.1' message 'Added BaselineOfMessagePack' id '44154d34-982f-0d00-83a3-2e6a0a3ec998' date '12 August 2018' time '2:44:16.240166 pm' author 'MasashiUmezawa' ancestors () stepChildren ()) \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/methodProperties.json b/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/methodProperties.json deleted file mode 100644 index 113d47c..0000000 --- a/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "instance" : { - "setNanoSeconds:" : "MasashiUmezawa 8/11/2017 17:15" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/MpMemoryWriteStream.extension/methodProperties.json b/repository/MessagePack-Squeak-Core.package/MpMemoryWriteStream.extension/methodProperties.json deleted file mode 100644 index f8c4979..0000000 --- a/repository/MessagePack-Squeak-Core.package/MpMemoryWriteStream.extension/methodProperties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "instance" : { - "int16:" : "mu 10/22/2011 23:42", - "uint64:" : "mu 10/22/2011 23:44", - "int32" : "mu 10/22/2011 23:42", - "uint16:" : "mu 10/22/2011 23:43", - "int64" : "mu 10/22/2011 23:43", - "uint32:" : "mu 10/22/2011 23:43", - "uint64" : "mu 10/22/2011 23:43", - "uint32" : "mu 10/22/2011 23:43", - "int64:" : "mu 10/22/2011 23:43", - "int16" : "mu 10/22/2011 23:42", - "uint16" : "mu 10/22/2011 23:43", - "int32:" : "mu 10/22/2011 23:43" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/MpSqEncodeTypeMapper.class/methodProperties.json b/repository/MessagePack-Squeak-Core.package/MpSqEncodeTypeMapper.class/methodProperties.json deleted file mode 100644 index 6d968fd..0000000 --- a/repository/MessagePack-Squeak-Core.package/MpSqEncodeTypeMapper.class/methodProperties.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "instance" : { - "symbolAsError" : "MasashiUmezawa 6/3/2016 18:32", - "symbolAsString" : "MasashiUmezawa 6/3/2016 18:32", - "stringAsBytes" : "mu 5/2/2012 12:55", - "stringAsError" : "mu 8/19/2013 01:34" - }, - "class" : { - "defineStrBytesActionTo:" : "mu 8/19/2013 01:24", - "defineDoubleActionTo:" : "MU 12/19/2015 23:10" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/class/initialize.st b/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/class/activate.st similarity index 66% rename from repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/class/initialize.st rename to repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/class/activate.st index 6b380ff..40e6084 100644 --- a/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/class/initialize.st +++ b/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/class/activate.st @@ -1,5 +1,5 @@ class initialization -initialize - "MpSqPortableUtil initialize" +activate + "MpSqPortableUtil activate" super initialize. MpPortableUtil dialectSpecificClass: self \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/methodProperties.json b/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/methodProperties.json deleted file mode 100644 index 9e1062a..0000000 --- a/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/methodProperties.json +++ /dev/null @@ -1,28 +0,0 @@ -{ - "instance" : { - "readUint64From:" : "mu 4/29/2011 15:41", - "writeInt64:to:" : "mu 4/29/2011 15:55", - "encodeTypeMapperClass" : "mu 5/1/2011 15:28", - "stringFromBytes:" : "MasashiUmezawa 11/12/2016 23:27", - "bytesFromString:" : "MasashiUmezawa 10/11/2017 13:45", - "timestampFromSeconds:nanos:" : "MasashiUmezawa 8/11/2017 17:24", - "writeInt16:to:" : "mu 4/29/2011 15:51", - "writeUint32:to:" : "mu 4/29/2011 15:41", - "unixSecondsWithNanosecondsFrom:" : "MasashiUmezawa 8/14/2017 23:21", - "readDoubleFrom:" : "mu 5/30/2011 00:00", - "readUint16From:" : "mu 4/29/2011 15:41", - "writeUint16:to:" : "mu 4/29/2011 15:41", - "readFloatFrom:" : "mu 5/30/2011 00:03", - "writeUint64:to:" : "mu 4/29/2011 15:49", - "readInt16From:" : "mu 4/30/2011 23:35", - "readUint32From:" : "mu 4/29/2011 15:41", - "writeInt32:to:" : "mu 4/29/2011 15:41", - "writeDouble:to:" : "mu 5/1/2011 15:53", - "writeFloat:to:" : "mu 5/1/2011 15:23", - "readInt32From:" : "mu 4/29/2011 15:41", - "readInt64From:" : "mu 4/30/2011 23:36" - }, - "class" : { - "initialize" : "mu 4/29/2011 23:36" - } -} \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/PositionableStream.extension/methodProperties.json b/repository/MessagePack-Squeak-Core.package/PositionableStream.extension/methodProperties.json deleted file mode 100644 index 7496666..0000000 --- a/repository/MessagePack-Squeak-Core.package/PositionableStream.extension/methodProperties.json +++ /dev/null @@ -1,9 +0,0 @@ -{ - "instance" : { - "int64:" : "mu 5/1/2011 21:33", - "uint64" : "mu 5/1/2011 15:57", - "int64" : "mu 5/1/2011 17:03", - "uint64:" : "mu 4/29/2011 15:48" - }, - "class" : { } -} \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/monticello.meta/version b/repository/MessagePack-Squeak-Core.package/monticello.meta/version deleted file mode 100644 index f6e6511..0000000 --- a/repository/MessagePack-Squeak-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'MessagePack-Squeak-Core-MasashiUmezawa.12' message 'Optimized string encoding by isAsciiString check' id 'd01599e1-9f17-0d00-86b8-30ec0cd037ad' date '11 October 2017' time '1:49:09.384085 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Squeak-Core-MasashiUmezawa.11' message 'Fixed a unicode encoding bug' id 'caba1893-9e17-0d00-86a6-eb5c0cd037ad' date '11 October 2017' time '12:15:37.381967 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Squeak-Core-MasashiUmezawa.10' message 'Fixing encoding of timestamp before Unix Epoch' id '3026ba2d-1913-0d00-bf27-80cf069d6816' date '14 August 2017' time '11:25:59.52342 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Squeak-Core-MasashiUmezawa.9' message 'Added MpSqPortableUtil>>timestampFromSeconds:nanos:' id 'af77c9cf-d712-0d00-ab4c-55d3014acda9' date '11 August 2017' time '5:26:50.59475 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Squeak-Core-MasashiUmezawa.8' message 'Added unixSecondsWithNanosecondsFrom:' id '1331c15e-d512-0d00-99f5-fc61006f5111' date '11 August 2017' time '2:32:04.293869 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Squeak-Core-MasashiUmezawa.7' message 'Implemented MpSqPortableUtil>>stringFromBytes: for decoding utf8 strings' id '9a4fd85e-597d-794e-8a6a-e633e2e63e8e' date '12 November 2016' time '11:28:33.274191 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Squeak-Core-MasashiUmezawa.6' message 'Added #symbolAsString/symbolAsError for changing Symbol encoding behavior' id 'b0371b80-07e7-8d4c-88db-748d7a17ce1f' date '4 June 2016' time '2:26:03.490615 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Squeak-Core-MU.5' message '- Fixed MpSqEncodeTypeMapper class>>defineDoubleActionTo: - BoxedFloat64 and SmallFloat64 encode mappings were added for Spur VM.' id 'bdd0165b-4dc7-444a-a30c-98087488bede' date '19 December 2015' time '11:25:14.479 pm' author 'MU' ancestors ((name 'MessagePack-Squeak-Core-mu.4' message '- Adding encoder support for new specification (https://github.com/msgpack/msgpack/blob/master/spec.md). - MpSettings >> formatVersion will be used for switching new/old formats' id 'b611d926-78c1-d044-a2dd-7b61d7b780a2' date '19 August 2013' time '1:38:43.346 am' author 'mu' ancestors ((name 'MessagePack-Squeak-Core-mu.3' message 'Added #stringAsBytes setting. If true, String will be enceded as MessagePack raw bytes.' id '8a797bfd-5150-4e42-8655-7db9019c69f1' date '2 May 2012' time '12:59:10.973 pm' author 'mu' ancestors ((name 'MessagePack-Squeak-Core-mu.2' message 'Added MpMemoryWriteStream for bulk write performance tuning' id '42d08a68-5df4-2b4f-98d8-4b26e4b58470' date '23 October 2011' time '12:06:45.085 am' author 'mu' ancestors ((name 'MessagePack-Squeak-Core-mu.1' message 'Isolated package' id 'a44b229c-f324-7e44-b25a-09386b468ebe' date '2 June 2011' time '10:58:25.013 am' author 'mu' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file From da5228ac4a716734a0756905aa3ea4a39c85f6ac Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sat, 3 Feb 2024 23:26:02 +0900 Subject: [PATCH 06/13] Changed MpSqPortableUtil >> timestampFromSeconds: seconds nanos: nanoSeconds --- .../DateAndTime.extension/instance/setNanoSeconds..st | 3 --- .../DateAndTime.extension/properties.json | 3 --- .../instance/timestampFromSeconds.nanos..st | 6 +++--- 3 files changed, 3 insertions(+), 9 deletions(-) delete mode 100644 repository/MessagePack-Squeak-Core.package/DateAndTime.extension/instance/setNanoSeconds..st delete mode 100644 repository/MessagePack-Squeak-Core.package/DateAndTime.extension/properties.json diff --git a/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/instance/setNanoSeconds..st b/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/instance/setNanoSeconds..st deleted file mode 100644 index dd6a193..0000000 --- a/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/instance/setNanoSeconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*MessagePack-Squeak-Core -setNanoSeconds: nanoSeconds - nanos := nanoSeconds \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/properties.json b/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/properties.json deleted file mode 100644 index 2237b11..0000000 --- a/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "DateAndTime" -} \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st b/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st index 270fc07..d0e6c7f 100644 --- a/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st +++ b/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st @@ -1,6 +1,6 @@ actions timestampFromSeconds: seconds nanos: nanoSeconds - | ts | - ts := DateAndTime fromSeconds: seconds + 2177452800 offset: 0. - nanoSeconds > 0 ifTrue: [ ts setNanoSeconds: nanoSeconds]. + | microseconds ts | + microseconds := (seconds * 1000000) + (nanoSeconds * 0.001). + ts := DateAndTime utcMicroseconds: microseconds offset: 0. ^ts \ No newline at end of file From 3cc46310c344b8c039fedfd3b943241477d033ff Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sat, 3 Feb 2024 23:34:37 +0900 Subject: [PATCH 07/13] Override MpPhPortableUtil >> timestampFromSeconds: seconds nanos: nanoSeconds. This implementation no longer works in Squeak 5+. --- .../instance/timestampFromSeconds.nanos..st | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 repository/MessagePack-Pharo-Core.package/MpPhPortableUtil.class/instance/timestampFromSeconds.nanos..st diff --git a/repository/MessagePack-Pharo-Core.package/MpPhPortableUtil.class/instance/timestampFromSeconds.nanos..st b/repository/MessagePack-Pharo-Core.package/MpPhPortableUtil.class/instance/timestampFromSeconds.nanos..st new file mode 100644 index 0000000..270fc07 --- /dev/null +++ b/repository/MessagePack-Pharo-Core.package/MpPhPortableUtil.class/instance/timestampFromSeconds.nanos..st @@ -0,0 +1,6 @@ +actions +timestampFromSeconds: seconds nanos: nanoSeconds + | ts | + ts := DateAndTime fromSeconds: seconds + 2177452800 offset: 0. + nanoSeconds > 0 ifTrue: [ ts setNanoSeconds: nanoSeconds]. + ^ts \ No newline at end of file From 31c9c5f1cee6a488434fd115b8496e22322355e5 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sat, 3 Feb 2024 23:53:34 +0900 Subject: [PATCH 08/13] Salvaged DateAndTime >> setNanoSeconds: --- .../DateAndTime.extension/instance/setNanoSeconds..st | 3 +++ .../DateAndTime.extension/properties.json | 3 +++ 2 files changed, 6 insertions(+) create mode 100644 repository/MessagePack-Pharo-Core.package/DateAndTime.extension/instance/setNanoSeconds..st create mode 100644 repository/MessagePack-Pharo-Core.package/DateAndTime.extension/properties.json diff --git a/repository/MessagePack-Pharo-Core.package/DateAndTime.extension/instance/setNanoSeconds..st b/repository/MessagePack-Pharo-Core.package/DateAndTime.extension/instance/setNanoSeconds..st new file mode 100644 index 0000000..ca2a76e --- /dev/null +++ b/repository/MessagePack-Pharo-Core.package/DateAndTime.extension/instance/setNanoSeconds..st @@ -0,0 +1,3 @@ +*MessagePack-Pharo-Core +setNanoSeconds: nanoSeconds + nanos := nanoSeconds \ No newline at end of file diff --git a/repository/MessagePack-Pharo-Core.package/DateAndTime.extension/properties.json b/repository/MessagePack-Pharo-Core.package/DateAndTime.extension/properties.json new file mode 100644 index 0000000..2237b11 --- /dev/null +++ b/repository/MessagePack-Pharo-Core.package/DateAndTime.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "DateAndTime" +} \ No newline at end of file From 39660b00a8f816ff121b6e730da8dd4ad3e4f4f2 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sun, 4 Feb 2024 00:01:31 +0900 Subject: [PATCH 09/13] Update main.yml - Removed Squeak64-6.0 build setting temporaly --- .github/workflows/main.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml index f145c1c..6473239 100644 --- a/.github/workflows/main.yml +++ b/.github/workflows/main.yml @@ -8,7 +8,7 @@ jobs: strategy: fail-fast: false matrix: - smalltalk: [Pharo64-11, Squeak64-6.0] + smalltalk: [Pharo64-11, Pharo64-12] experimental: [false] continue-on-error: ${{ matrix.experimental }} name: ${{ matrix.smalltalk }} From a2873e9d0a7087f7cf5f7df043b1d1507d672166 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sun, 4 Feb 2024 00:04:16 +0900 Subject: [PATCH 10/13] Update main.yml Removed Pharo12 build --- .github/workflows/main.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml index 6473239..a0bb6a7 100644 --- a/.github/workflows/main.yml +++ b/.github/workflows/main.yml @@ -8,7 +8,7 @@ jobs: strategy: fail-fast: false matrix: - smalltalk: [Pharo64-11, Pharo64-12] + smalltalk: [Pharo64-11] experimental: [false] continue-on-error: ${{ matrix.experimental }} name: ${{ matrix.smalltalk }} From 3de6e8ea4f3be6cee942bc6d4babc84ccb2f87a9 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sun, 4 Feb 2024 00:24:29 +0900 Subject: [PATCH 11/13] Updated README --- README.md | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index 417afba..c1cf6c8 100644 --- a/README.md +++ b/README.md @@ -1,5 +1,6 @@ msgpack-smalltalk ================= +[![CI](https://github.com/msgpack/msgpack-smalltalk/actions/workflows/main.yml/badge.svg)](https://github.com/msgpack/msgpack-smalltalk/actions/workflows/main.yml) MessagePack serialization library for various Smalltalk dialects. @@ -8,7 +9,7 @@ MessagePack serialization library for various Smalltalk dialects. - VisualWorks - VA Smalltalk - Dolphin Smalltalk -- GNU Smalltalk (Beta) +- GNU Smalltalk (Beta) - [Cuis](https://github.com/mumez/Cuis-Smalltalk-MessagePack) Sources are put as [Cypress](https://github.com/CampSmalltalk/Cypress/blob/master/README.md) for the neutral accesses from various Smalltalk dialects. @@ -63,7 +64,7 @@ Please read [HowToInstall.md]( Date: Sun, 4 Feb 2024 00:31:24 +0900 Subject: [PATCH 12/13] Updated HowToInstall.md --- README.md | 2 +- doc/HowToInstall.md | 50 ++++++++++++++++++++++----------------------- 2 files changed, 26 insertions(+), 26 deletions(-) diff --git a/README.md b/README.md index c1cf6c8..b4a7fe0 100644 --- a/README.md +++ b/README.md @@ -75,8 +75,8 @@ Installer squeaksource #### Pharo & Squeak 5+ ```Smalltalk Metacello new - repository: 'github://msgpack/msgpack-smalltalk/repository'; baseline: 'MessagePack'; + repository: 'github://msgpack/msgpack-smalltalk:develop/repository'; load. ``` diff --git a/doc/HowToInstall.md b/doc/HowToInstall.md index f267abe..6f7f4b2 100644 --- a/doc/HowToInstall.md +++ b/doc/HowToInstall.md @@ -1,6 +1,26 @@ # How to install -## Squeak: +## Pharo & Squeak 5 + +You can use Metacello: + +```smalltalk +Metacello new + baseline: 'MessagePack'; + repository: 'github://msgpack/msgpack-smalltalk/repository'; + load. +``` + +If you prefer development branch: + +```smalltalk +Metacello new + baseline: 'MessagePack'; + repository: 'github://msgpack/msgpack-smalltalk:develop/repository'; + load. +``` + +## Squeak 4 Hosted on SqueakSource Repository. (http://www.squeaksource.com/MessagePack.html). @@ -23,27 +43,7 @@ Installer squeaksource (Smalltalk at: #ConfigurationOfMessagePack) perform: #load. ``` -## Pharo: - -You can use Metacello: - -```smalltalk -Metacello new - baseline: 'MessagePack'; - repository: 'github://msgpack/msgpack-smalltalk/repository'; - load. -``` - -If you prefer development branch: - -```smalltalk -Metacello new - baseline: 'MessagePack'; - repository: 'github://msgpack/msgpack-smalltalk:develop/repository'; - load. -``` - -## VisualWorks: +## VisualWorks Hosted on [Public Store Repository](http://www.cincomsmalltalk.com/CincomSmalltalkWiki/PostgreSQL+Access+Page). http://www.cincomsmalltalk.com/publicRepository/MessagePack-All(Bundle).html @@ -51,7 +51,7 @@ http://www.cincomsmalltalk.com/publicRepository/MessagePack-All(Bundle).html You can also download parcels: http://code.google.com/p/messagepack-st/source/browse/#hg%2FVisualWorks -## VA Smalltalk: +## VA Smalltalk Hosted on [VAStGoodies.com](http://vastgoodies.com). @@ -61,11 +61,11 @@ Tests: [MessagePackTests](http://vastgoodies.com/maps/MessagePack%20Tests). You can also download .dat files: http://code.google.com/p/messagepack-st/source/browse/#hg%2FVA%20Smalltalk -## Dolphin Smalltalk: +## Dolphin Smalltalk Hosted on [Google Code site]() (old version). Zipped: [MessagePack-Dolphin.zip](http://messagepack-st.googlecode.com/hg/Dolphin%20Smalltalk/MessagePack-Dolphin.zip). Sources: [MessagePack](http://code.google.com/p/messagepack-st/source/browse/#hg%2FDolphin%20Smalltalk%2FMessagePack). -Download the zipped pac file: MessagePack-Dolphin.zip and follow the instruction on README file. \ No newline at end of file +Download the zipped pac file: MessagePack-Dolphin.zip and follow the instruction on README file. From 3623d084bab0ba60189599fbfccf728b08f45761 Mon Sep 17 00:00:00 2001 From: Masashi Umezawa Date: Sun, 4 Feb 2024 01:39:34 +0900 Subject: [PATCH 13/13] - Use bitAnd: , bitOr: for compatibility --- .../MpDecoder.class/instance/readTimestamp64..st | 2 +- .../MpEncoder.class/instance/writeTimestamp..st | 2 +- .../instance/timestampFromSeconds.nanos..st | 11 ++++++++++- 3 files changed, 12 insertions(+), 3 deletions(-) diff --git a/repository/MessagePack-Core.package/MpDecoder.class/instance/readTimestamp64..st b/repository/MessagePack-Core.package/MpDecoder.class/instance/readTimestamp64..st index 4a2cc71..5678d7e 100644 --- a/repository/MessagePack-Core.package/MpDecoder.class/instance/readTimestamp64..st +++ b/repository/MessagePack-Core.package/MpDecoder.class/instance/readTimestamp64..st @@ -3,5 +3,5 @@ readTimestamp64: aStream | nanosAndSeconds nanos seconds | nanosAndSeconds := MpPortableUtil default readUint64From: aStream. nanos := nanosAndSeconds >> 34. - seconds := nanosAndSeconds & 16r00000003ffffffff. + seconds := nanosAndSeconds bitAnd: 16r00000003ffffffff. ^MpPortableUtil default timestampFromSeconds: seconds nanos: nanos \ No newline at end of file diff --git a/repository/MessagePack-Core.package/MpEncoder.class/instance/writeTimestamp..st b/repository/MessagePack-Core.package/MpEncoder.class/instance/writeTimestamp..st index d53ffc5..d8d0011 100644 --- a/repository/MessagePack-Core.package/MpEncoder.class/instance/writeTimestamp..st +++ b/repository/MessagePack-Core.package/MpEncoder.class/instance/writeTimestamp..st @@ -6,5 +6,5 @@ writeTimestamp: timestamp nanos := secondsArray at: 2. (seconds >> 34) == 0 ifFalse: [ ^ self writeTimestamp96: seconds nanos: nanos ]. (nanos == 0 and: [seconds < 4294967296]) ifTrue: [ ^self writeTimestamp32: seconds ]. - nanosAndSeconds := (nanos << 34) | seconds. + nanosAndSeconds := (nanos << 34) bitOr: seconds. ^self writeTimestamp64: nanosAndSeconds \ No newline at end of file diff --git a/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st b/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st index d0e6c7f..ea826a6 100644 --- a/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st +++ b/repository/MessagePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st @@ -1,6 +1,15 @@ actions timestampFromSeconds: seconds nanos: nanoSeconds | microseconds ts | - microseconds := (seconds * 1000000) + (nanoSeconds * 0.001). + microseconds := seconds * 1000000. + nanoSeconds isZero ifFalse: [ | microsPart rem | + rem := nanoSeconds rem: 1000. + rem = 0 ifTrue: [ + microsPart := nanoSeconds / 1000. + ] ifFalse: [ + microsPart := nanoSeconds * 0.001. + ]. + microseconds := microseconds + microsPart. + ]. ts := DateAndTime utcMicroseconds: microseconds offset: 0. ^ts \ No newline at end of file