"{ 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:'MapOfClasses'

	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

    MapOfClasses := nil

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

!

slotNames:names values:slotValues

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

    |subclass inst|

    MapOfClasses isNil ifTrue:[

        MapOfClasses := Dictionary new.

    ].

    (subclass := MapOfClasses 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'.

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

                         categorized:'accessing'.

            ].

        ].

        MapOfClasses at:names put:subclass.

    ].

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

    ^ inst

    "

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

    "

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

    "Modified: / 22-01-2019 / 17:01:42 / 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])

    "

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

    "

    "Created: / 21-01-2019 / 13:15:46 / 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

    i32 := something.

!

i33

    ^ i33

!

i33:something

    i33 := something.

!

i34

    ^ i34

!

i34:something

    i34 := something.

!

i35

    ^ i35

!

i35:something

    i35 := something.

!

i36

    ^ i36

!

i36:something

    i36 := something.

!

i37

    ^ i37

!

i37:something

    i37 := something.

!

i38

    ^ i38

!

i38:something

    i38 := something.

!

i39

    ^ i39

!

i39:something

    i39 := something.

!

i3:something

    i3 := something.

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

!

i4

    ^ i4

!

i40

    ^ i40

!

i40:something

    i40 := something.

!

i41

    ^ i41

!

i41:something