Skip to content

Commit 60a3b8f

Browse files
mumezmumez
committed
Added STIG derived sources for VisualWorks Smalltalk.
1 parent 13e5dca commit 60a3b8f

29 files changed

+124
-0
lines changed

‎repository/MessagePack-VW.package/Double.extension/instance/mpWriteSelector.st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
*MessagePack-VW-optimization
2+
mpWriteSelector
3+
^#writeDouble:

‎repository/MessagePack-VW.package/Double.extension/properties.json‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
{ "name" : "Double" }

‎repository/MessagePack-VW.package/MpVwEncodeTypeMapper.class/class/defineDoubleActionTo..st‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
actions for primitives
2+
defineDoubleActionTo: map
3+
"Some dialect does not support Double"
4+
map at: Double put: #writeDouble:

‎repository/MessagePack-VW.package/MpVwEncodeTypeMapper.class/class/defineFloatActionTo..st‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
actions for primitives
2+
defineFloatActionTo: map
3+
"Suppose 32 bit float - Some dialect does not support it"
4+
map at: Float put: #writeFloat:

‎repository/MessagePack-VW.package/MpVwEncodeTypeMapper.class/instance/stringAsBytes.st‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
encode customization
2+
stringAsBytes
3+
self actionMap at: ByteString put: #writeString:.
4+
self actionMap at: TwoByteString put: #writeWideString:.
5+
self actionMap at: FourByteString put: #writeWideString:.
6+
self actionMap at: ByteSymbol put: #writeString:.
7+
self actionMap at: TwoByteSymbol put: #writeWideString:.
8+
self actionMap at: FourByteString put: #writeWideString:.

‎repository/MessagePack-VW.package/MpVwEncodeTypeMapper.class/properties.json‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
{ "name" : "MpVwEncodeTypeMapper",
2+
"super" : "MpEncodeTypeMapper" }

‎repository/MessagePack-VW.package/MpVwPortableUtil.class/class/initialize.st‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
class initialization
2+
initialize
3+
"MpVwPortableUtil initialize"
4+
super initialize.
5+
MpPortableUtil dialectSpecificClass: self

‎repository/MessagePack-VW.package/MpVwPortableUtil.class/instance/bytesFromString..st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
actions
2+
bytesFromString: aString
3+
^aString asByteArrayEncoding: #utf8

‎repository/MessagePack-VW.package/MpVwPortableUtil.class/instance/encodeTypeMapperClass.st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
factory
2+
encodeTypeMapperClass
3+
^MpVwEncodeTypeMapper

‎repository/MessagePack-VW.package/MpVwPortableUtil.class/instance/readDoubleFrom..st‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
actions-stream
2+
readDoubleFrom: stream
3+
| bytes |
4+
bytes := stream next: 8.
5+
UninterpretedBytes isBigEndian ifFalse: [ bytes := bytes reverse].
6+
^ bytes changeClassTo: Double.

0 commit comments

Comments
 (0)