"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2009 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.  This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

Object subclass:#InlineObject

	instanceVariableNames:''

	classVariableNames:'MapOfMutableClasses MapOfImmutableClasses'

	poolDictionaries:''

	category:'Kernel-Classes'

!

InlineObject subclass:#InlineObjectPrototype

	instanceVariableNames:'i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18

		i19 i20 i21 i22 i23 i24 i25 i26 i27 i28 i29 i30 i31 i32 i33 i34

		i35 i36 i37 i38 i39 i40 i41 i42 i43 i44 i45 i46 i47 i48 i49 i50

		i51 i52 i53 i54 i55 i56 i57 i58 i59 i60 i61 i62 i63 i64 i65 i66

		i67 i68 i69 i70 i71 i72 i73 i74 i75 i76 i77 i78 i79 i80 i81 i82

		i83 i84 i85 i86 i87 i88 i89 i90 i91 i92 i93 i94 i95 i96 i97 i98

		i99 i100'

	classVariableNames:''

	poolDictionaries:''

	privateIn:InlineObject

!

!InlineObject class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2009 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.  This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    WARNING: InlineObjects are an experimental feature.

    InlineObjects are written as literals of the form:

    #{

        fieldName1: value1.

        fieldName2: value2.

        ...

        fieldNameN: valueN.

    }

    For example:

    #{

        firstName: 'Peter'.

        lastName: 'Miller'.

        age: 25.

    }

    #{

        date:  Date today.

        time:  Time now.

    }

    All inlineObjects will be instances of an anonymous subclass of me,

    and provide getter protocol for their fields (e.g. firstName, lastName and age in the above example.

    InlineObjects are immutable (no setters).

"

! !

!InlineObject class methodsFor:'instance creation'!

flushMapOfClasses

    MapOfMutableClasses := MapOfImmutableClasses := nil

    "Created: / 22-01-2019 / 17:02:59 / Claus Gittinger"

    "Modified: / 25-06-2019 / 16:43:23 / Claus Gittinger"

!

slotNames:names values:slotValues

    "return a new inline object given slot names and slot values"

    ^ self slotNames:names values:slotValues mutable:true

    "

     InlineObject slotNames:#('foo' 'bar' 'baz') values:#(1 2 3)

     InlineObject slotNames:#('foo' 'bar' 'baz') values:#(1 2 3) mutable:false

    "

    "Created: / 21-01-2019 / 13:10:14 / Claus Gittinger"

    "Modified (comment): / 25-06-2019 / 16:43:03 / Claus Gittinger"

!

slotNames:names values:slotValues mutable:mutable

    "return a new inline object given slot names and slot values"

    |map subclass inst|

    mutable ifTrue:[

        (map := MapOfMutableClasses) isNil ifTrue:[

            map := MapOfMutableClasses := Dictionary new.

        ]

    ] ifFalse:[

        (map := MapOfImmutableClasses) isNil ifTrue:[

            map := MapOfImmutableClasses := Dictionary new.

        ]

    ].    

    (subclass := map at:names ifAbsent:nil) isNil ifTrue:[

        Class withoutUpdatingChangesDo:[

            subclass := self 

                            subclass:#someInlineObject

                            instanceVariableNames:names

                            classVariableNames:nil

                            poolDictionaries:nil

                            category:nil

                            inEnvironment:nil.

            names do:[:each |

                subclass compile:('%1 ^ %1' bindWith:each)

                         categorized:'accessing'.

                mutable ifTrue:[

                    subclass compile:('%1:arg %1 := arg.' bindWith:each)

                             categorized:'accessing'.

                ].

            ].

        ].

        map at:names put:subclass.

    ].

    "/ need a new array here, because we changeClassTo:

    inst := (Array withAll:slotValues) changeClassTo:subclass.                

    ^ inst

    "

     InlineObject slotNames:#('foo' 'bar' 'baz') values:#(1 2 3)

    "

    "Created: / 25-06-2019 / 16:40:36 / Claus Gittinger"

!

slotNamesAndValues:namesAndValues

    "return a new inline object given slot names and slot values as alternating elements

     in the argument, namesAndValues"

    ^ self 

        slotNames:(namesAndValues keysAndValuesSelect:[:idx :val | idx odd])

        values:(namesAndValues keysAndValuesSelect:[:idx :val | idx even])

        mutable:true

    "

     InlineObject slotNamesAndValues:#('foo' 10 'bar' 20 'baz' 30)

    "

    "Created: / 21-01-2019 / 13:15:46 / Claus Gittinger"

    "Modified: / 25-06-2019 / 16:55:02 / Claus Gittinger"

!

slotNamesAndValues:namesAndValues mutable:beMutable

    "return a new inline object given slot names and slot values as alternating elements

     in the argument, namesAndValues"

    ^ self 

        slotNames:(namesAndValues keysAndValuesSelect:[:idx :val | idx odd])

        values:(namesAndValues keysAndValuesSelect:[:idx :val | idx even])

        mutable:beMutable

    "

     InlineObject slotNamesAndValues:#('foo' 10 'bar' 20 'baz' 30)

    "

    "Created: / 25-06-2019 / 16:54:47 / Claus Gittinger"

!

slotNamesAndValuesFromDictionary:namesAndValuesDict

    "return a new inline object given slot names and slot values as elements

     in the argument, namesAndValuesDict"

    ^ self slotNamesAndValuesFromDictionary:namesAndValuesDict mutable:true

    "

     InlineObject slotNamesAndValuesFromDictionary:(Dictionary withKeyValuePairs:#(('foo' 10) ('bar' 20) ('baz' 30)))

    "

    "Created: / 25-06-2019 / 16:31:38 / Claus Gittinger"

!

slotNamesAndValuesFromDictionary:namesAndValuesDict mutable:beMutable

    "return a new inline object given slot names and slot values as elements

     in the argument, namesAndValuesDict"

    |sz keys values idx|

    sz := namesAndValuesDict size.

    keys := Array new:sz.

    values := Array new:sz.

    idx := 1.

    namesAndValuesDict keysAndValuesDo:[:k :v |

        keys at:idx put:k.

        values at:idx put:v.

        idx := idx + 1.

    ].

    ^ self slotNames:keys values:values mutable:beMutable

    "

     InlineObject slotNamesAndValuesFromDictionary:(Dictionary withKeyValuePairs:#(('foo' 10) ('bar' 20) ('baz' 30)))

    "

    "Created: / 25-06-2019 / 16:53:50 / Claus Gittinger"

! !

!InlineObject class methodsFor:'prototype access'!

prototype

    ^ InlineObjectPrototype

! !

!InlineObject methodsFor:'printing & storing'!

storeOn:aStream

    aStream nextPutAll:'#{'.

    self class allInstVarNames keysAndValuesDo:[:i :nm |

        aStream nextPutAll:nm; nextPutAll:':'.

        (self instVarAt:i) storeOn:aStream.

        aStream nextPutAll:'. '.

    ].

    aStream nextPutAll:'}'.

! !

!InlineObject::InlineObjectPrototype class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2009 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    All getter/setter methods of all inline objects are actually shared code,

    which is acquired from this prototypeInlineObject class.

"

!

version

    ^ '$Header$'

! !

!InlineObject::InlineObjectPrototype methodsFor:'accessing'!

i1

    ^ i1

    "Created: / 20-01-2019 / 14:49:52 / Claus Gittinger"

!

i10

    ^ i10

!

i100

    ^ i100

!

i100:something

    i100 := something.

!

i10:something

    i10 := something.

!

i11

    ^ i11

!

i11:something

    i11 := something.

!

i12

    ^ i12

!

i12:something

    i12 := something.

!

i13

    ^ i13

!

i13:something

    i13 := something.

!

i14

    ^ i14

!

i14:something

    i14 := something.

!

i15

    ^ i15

!

i15:something

    i15 := something.

!

i16

    ^ i16

!

i16:something

    i16 := something.

!

i17

    ^ i17

!

i17:something

    i17 := something.

!

i18

    ^ i18

!

i18:something

    i18 := something.

!

i19

    ^ i19

!

i19:something

    i19 := something.

!

i1:something

    i1 := something.

    "Created: / 20-01-2019 / 14:49:52 / Claus Gittinger"

!

i2

    ^ i2

    "Created: / 20-01-2019 / 14:49:52 / Claus Gittinger"

!

i20

    ^ i20

!

i20:something

    i20 := something.

!

i21

    ^ i21

!

i21:something

    i21 := something.

!

i22

    ^ i22

!

i22:something

    i22 := something.

!

i23

    ^ i23

!

i23:something

    i23 := something.

!

i24

    ^ i24

!

i24:something

    i24 := something.

!

i25

    ^ i25

!

i25:something

    i25 := something.

!

i26

    ^ i26

!

i26:something

    i26 := something.

!

i27

    ^ i27

!

i27:something

    i27 := something.

!

i28

    ^ i28

!

i28:something

    i28 := something.

!

i29

    ^ i29

!

i29:something

    i29 := something.

!

i2:something

    i2 := something.

    "Created: / 20-01-2019 / 14:49:52 / Claus Gittinger"

!

i3

    ^ i3

    "Created: / 20-01-2019 / 14:49:52 / Claus Gittinger"

!

i30

    ^ i30

!

i30:something

    i30 := something.

!

i31

    ^ i31

!

i31:something

    i31 := something.

!

i32

    ^ i32

!

i32:something