An error occurred while loading the file. Please try again.
-
Dorchies David authoredd914b168
<?xml version="1.0"?><st-source><time-stamp>From VisualWorks® NonCommercial, 7.6 of lundi 3 mars 2008 on mardi 15 octobre 2019 at 6:46:00</time-stamp><class><name>DataTransfR</name><environment>CormasNS.Kernel</environment><super>Core.Object</super><private>false</private><indexed-type>none</indexed-type><inst-vars>myCormas entityType attribute ids values </inst-vars><class-inst-vars></class-inst-vars><imports></imports><category></category><attributes><package>Cormas</package></attributes></class><!-- - - - - - - - - - - - - - - - - - - --><methods><class-id>CormasNS.Kernel.DataTransfR class</class-id> <category>instance creation</category><body package="Cormas" selector="new">new "Answer a newly created and initialized instance." ^super new initialize</body><body package="Cormas" selector="newData:cormas:">newData: classAttIdsValues cormas: aCormasInstance "Answer a newly created and initialized instance."| newBe idsValues data| newBe:= self new. newBe myCormas: aCormasInstance. data := classAttIdsValues asArrayOfSubstringsSeparatedBy: $;. newBe entityType: data first. newBe attribute: (data at: 2). idsValues:= (data at: 3) asArrayOfSubstringsSeparatedBy: $,. idsValues size > 0 ifTrue: [ newBe ids: (idsValues asOrderedCollection collect: [: string | string asInteger]). newBe values: ( ( (data at: 4) asArrayOfSubstringsSeparatedBy: $,) asOrderedCollection collect: [: string | string asNumber asFloat]). ]. ^newBe</body></methods><!-- - - - - - - - - - - - - - - - - - - --><methods><class-id>CormasNS.Kernel.DataTransfR</class-id> <category>initialize-release</category><body package="Cormas" selector="initialize">initialize "Initialize a newly created instance. This method must answer the receiver." " *** Replace this comment with the appropriate initialization code *** " ^self</body></methods><methods><class-id>CormasNS.Kernel.DataTransfR</class-id> <category>accessing</category><body package="Cormas" selector="attribute">attribute ^attribute</body><body package="Cormas" selector="attribute:">attribute: anObject attribute := anObject</body>7172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137
<body package="Cormas" selector="entityType">entityType
^entityType</body>
<body package="Cormas" selector="entityType:">entityType: anObject
entityType := anObject</body>
<body package="Cormas" selector="ids">ids
^ids</body>
<body package="Cormas" selector="ids:">ids: anObject
ids := anObject</body>
<body package="Cormas" selector="myCormas">myCormas
^myCormas</body>
<body package="Cormas" selector="myCormas:">myCormas: anObject
myCormas := anObject</body>
<body package="Cormas" selector="values">values
^values</body>
<body package="Cormas" selector="values:">values: anObject
values := anObject</body>
</methods>
<methods>
<class-id>CormasNS.Kernel.DataTransfR</class-id> <category>transfer</category>
<body package="Cormas" selector="getData">getData
| sortedEntities |
sortedEntities := (self myCormas cormasModel
perform: ('the' , self entityType , 's') asSymbol) asOrderedCollection
asSortedCollection: [:e1 :e2 | e1 idRTransfer < e2 idRTransfer].
self ids: ''.
self values: ''.
sortedEntities
do:
[:entity |
self ids: self ids, entity idRTransfer asString , ','.
self values: self values, (entity perform: self attribute asSymbol) asString, ','].
^self ids,';', self values</body>
<body package="Cormas" selector="setData">setData
| sortedEntities nb args |
sortedEntities := (self myCormas cormasModel
perform: ('the' , self entityType , 's') asSymbol) asOrderedCollection
asSortedCollection: [:e1 :e2 | e1 idRTransfer < e2 idRTransfer ].
nb := 1.
sortedEntities
do:
[:entity |
(entity idRTransfer = (self ids at: nb))
ifTrue:
[
args := Array new: 1.
args at: 1 put: (self values at: nb).
entity
perform: (self attribute , ':') asSymbol
withArguments: args]
ifFalse: [self halt].
nb := nb + 1]</body>
</methods>
</st-source>