Pharo-users

By thread

pharo-users@lists.pharo.org

August 2017

84 participants
840 messages

Re: [Pharo-users] What is proper fix for this? (was: Re: Big Glorp problem w/ type coercion, pls help)

by Herby VojÄÃk

Herby VojÄÃk wrote: > Esteban Lorenzano wrote: >> but if he is using Glorp for Pharo and cincom takes the bug and fixes >> it, it still will not hit Pharo until someone ports it. >> So, while I have literally no idea of what Herby is asking for, I >> encourage to keep discussion also here, then solution can hit both >> platforms. > > Thank you. > > In short, if there is DirectMapping with converter in the field used to > foreign-key to other table's primary key (and I put one there as I use > UUID which needs to be converted to/from ByteArray; in FK as well as in > other side's PK), a relation is created with > expressionFor:basedOn:relation: (as is done for other mappings in case > relation like #= is used). Mapping has generic one, which correctly > takes stValue(s) of the left side(s), and converts it to dbValue(s). Errata: right side(s) > DirectMapping's one was heavily optimized (probablly for perf reasons) > and the conversion was thus lost in the process, I presume. > > The fix adds the conversion back, so I can do > > where: [ :one | one agent = anA > gentObject ] and have it correctly translated to WHERE table.agentfield > = converted_to_dbvalue(anAgentObject primaryKey). > > Herby > >> >> Esteban >> >>> On 16 Aug 2017, at 00:07, herby(a)mailbox.sk wrote: >>> >>> BTW I took the latter way (as method tries to be as optimized as >>> possible), it is in >>> http://smalltalkhub.com/#!/~herby/Glorp/versions/Glorp-HerbyVojcik.127, >>> consider merging in. Thanks. >>> >>> Herby VojÄÃk wrote: >>>> Hello! >>>> >>>> I think I found the culprit. Few methods posted here: >>>> >>>> >>>> Mapping>> expressionFor: anObject basedOn: anExpression relation: >>>> aSymbol >>>> "Return our expression using the object's values. e.g. if this was a >>>> direct mapping from id->ID and the object had id: 3, then return >>>> TABLE.ID=3. Used when rewriting object=object into field=field" >>>> >>>> | myValue result | >>>> myValue := self expressionFor: anObject. >>>> result := nil. >>>> myValue with: self join allTargetFields do: [:eachValue :eachField | >>>> | source | >>>> source > := anExpression get: self attribute name. >>>> source hasDescriptor ifTrue: [source := source getField: eachField]. >>>> result := (source get: aSymbol withArguments: (Array with: eachValue)) >>>> AND: result]. >>>> ^result >>>> >>>> >>>> >>>> DirectMapping>> expressionFor: anObject basedOn: anExpression relation: >>>> aSymbol >>>> "Return our expression using the object's values. e.g. if this was a >>>> direct mapping from id->ID and the object had id: 3, then return >>>> TABLE.ID=3" >>>> >>>> | value | >>>> value := anObject isNil >>>> ifTrue: [nil] >>>> ifFalse: >>>> [anObject isGlorpExpression >>>> ifTrue: [anObject getMapping: self named: self attributeName] >>>> ifFalse: [anObject glorpIsCollection >>>> ifTrue: [anObject collect: [:each | attribute getValueFrom: each]] >>>> ifFalse: [attribute getValueFrom: anObject]]]. >>>> ^(anExpression get: self attribute name) get: aSymbol withArguments: >>>> (Array with: value) >>>> >>>> >>>> >>>> Mapping>> expressionFor: anObject >>>> "Return an expression > representing the value of the object. This can be >>>> nil, an object value or values, an expression, or a collection of >>>> expressions (for a composite key, if we're passed an expression)" >>>> >>>> anObject isNil ifTrue: [^#(nil)]. >>>> anObject isGlorpExpression ifFalse: [ >>>> ^self mappedFields collect: [:each | >>>> self valueOfField: each fromObject: anObject]]. >>>> ^self mappedFields >>>> collect: [:each | (anObject getField: each)] >>>> >>>> >>>> >>>> Mapping>> getValueFrom: anObject >>>> >>>> ^self attribute getValueFrom: anObject >>>> >>>> >>>> >>>> DirectMapping>> valueOfField: aField fromObject: anObject >>>> field = aField ifFalse: [self error: 'Mapping doesn''t describe >>>> field']. >>>> ^self convertedDbValueOf: (self getValueFrom: anObject) >>>> >>>> >>>> >>>> DirectMapping>> mappedFields >>>> "Return a collection of fields that this mapping will write into any of >>>> the containing object's rows" >>>> >>>> ^Array with: self field >>>> >>>> >>>> The thing is, both Mapping>> expressionF > or:basedOn:relation: and the >>>> overridden DirectMapping's version eventually send >>>> >>>> someSource get: aSymbol withArguments: (Array with: eachValue) >>>> >>>> but in Mapping's code, the value is taken from `myValue := self >>>> expressionFor: anObject`. which, as seen in #expressionFor: code, gets >>>> the value via >>>> >>>> self valueOfField: aMappedField fromObject: anObject >>>> >>>> and indeed, if tried aDirectMapping expressionFor: anObject in >>>> debugger, >>>> it gets the value of the primary key converted in the below case (that >>>> is, as a ByteArray). This is clear from the DirectMapping>> >>>> valueOfField:fromObject: code above, which does `self getValueFrom: >>>> anObject` (which passes it to `attribute getValueFrom: anObject`) >>>> _and_converts_it_. >>>> >>>> But in the overridden DirectMapping>> expressionFor:basedOn:relation:, >>>> the value to be passed in the >>>> >>>> someSource get: aSymbol withArguments: (Array with: value) >>>> >>>> is obtained by direct >>>> >>>> attri > bute getValueFrom: anObject >>>> >>>> but _is_not_converted_. IOW, it seems this method was heavily optimized >>>> (`attribute getValueFrom:` instead of `self getValueFrom:`, for >>>> example), but the conversion, normally present via expressionFor: and >>>> ultimately valueOfField:fromObject: was optimized away as well. >>>> >>>> >>>> >>>> >>>> Now, what is the correct way to fix the method (I hope you agree it >>>> is a >>>> bug)? >>>> >>>> >>>> This? >>>> >>>> DirectMapping>> expressionFor: anObject basedOn: anExpression relation: >>>> aSymbol >>>> "Return our expression using the object's values. e.g. if this was a >>>> direct mapping from id->ID and the object had id: 3, then return >>>> TABLE.ID=3" >>>> >>>> | value | >>>> value := anObject isNil >>>> ifTrue: [nil] >>>> ifFalse: >>>> [anObject isGlorpExpression >>>> ifTrue: [anObject getMapping: self named: self attributeName] >>>> ifFalse: [anObject glorpIsCollection >>>> ifTrue: [anObject collect: [:each | self valueOfField: aField >>>> fromObject: ea > ch]] >>>> ifFalse: [self valueOfField: aField fromObject: anObject]]]. >>>> ^(anExpression get: self attribute name) get: aSymbol withArguments: >>>> (Array with: value) >>>> >>>> >>>> >>>> or this? >>>> >>>> DirectMapping>> expressionFor: anObject basedOn: anExpression relation: >>>> aSymbol >>>> "Return our expression using the object's values. e.g. if this was a >>>> direct mapping from id->ID and the object had id: 3, then return >>>> TABLE.ID=3" >>>> >>>> | value | >>>> value := anObject isNil >>>> ifTrue: [nil] >>>> ifFalse: >>>> [anObject isGlorpExpression >>>> ifTrue: [anObject getMapping: self named: self attributeName] >>>> ifFalse: [anObject glorpIsCollection >>>> ifTrue: [anObject collect: [:each | self convertedDbValueOf: (attribute >>>> getValueFrom: each)]] >>>> ifFalse: [self convertedDbValueOf: (attribute getValueFrom: >>>> anObject)]]]. >>>> ^(anExpression get: self attribute name) get: aSymbol withArguments: >>>> (Array with: value) >>>> >>>> >>>> >>>> Or something completely different? >>>> > >>>> >>>> Thanks, Herby >>>> >>>> Herby VojÄÃk wrote: >>>>> Hello! >>>>> >>>>> I encountered a problem with OneToOneMapping and type coercion. When >>>>> writing data, thing work; when reading data, the right child of >>>>> relation >>>>> fails to convert. >>>>> >>>>> I tried everything possible to inject converters (even subclassing >>>>> GlorpBlobType), but to no avail. RelationExpression passes >>>>> conversion to >>>>> its left child: >>>>> >>>>> convertedDbValueOf: anObject >>>>> "Assume that our types match, so we can ask either child to do the >>>>> conversion. That isn't guaranteed, but should at least work for the >>>>> common cases." >>>>> ^leftChild convertedDbValueOf: anObject. >>>>> >>>>> but the left child is FieldExpression in case of OneToOneMapping, >>>>> which: >>>>> >>>>> convertedDbValueOf: anObject >>>>> "We don't do any conversion" >>>>> ^anObject >>>>> >>>>> What is strange, writing works (even the OneToOneMapping, I opened the >>>>> sqlite file with an explorer), but second SELECT, one using th > e relation >>>>> (`state := self dao findStateByAgent: agent` in clientSync), fails >>>>> with >>>>> "GlorpDatabaseReadError: Could not coerce arguments". FWIW, the first >>>>> one _does_ convert when creating bindings, as it uses >>>>> MappingExpression >>>>> as left child (stepped over it in debugger). >>>>> >>>>> >>>>> >>>>> Is it meant to be a strange case that primary key is something >>>>> non-primitive needing coercion (in this case, it is a UUID which needs >>>>> coercion to ByteArray, even if it is its subclass)? >>>>> >>>>> >>>>> >>>>> Here's the stack of running the test which fails: >>>>> >>>>> PharoDatabaseAccessor(DatabaseAccessor)>>handleError:for: >>>>> [ :ex | self handleError: ex for: command ] in [ | result | >>>>> self checkPermissionFor: command. >>>>> result := [ (self useBinding and: [ command useBinding ]) >>>>> ifTrue: [ command executeBoundIn: self ] >>>>> ifFalse: [ command executeUnboundIn: self ] ] >>>>> on: Dialect error >>>>> do: [ :ex | self handleError: ex for: command ]. >>>>> > aBoolean >>>>> ifTrue: [ result ] >>>>> ifFalse: [ result upToEnd ] ] in >>>>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>>>> BlockClosure>>cull: >>>>> Context>>evaluateSignal: >>>>> Context>>handleSignal: >>>>> Error(Exception)>>signal >>>>> Error(Exception)>>signal: >>>>> ExternalLibraryFunction(Object)>>error: >>>>> ExternalLibraryFunction(Object)>>externalCallFailed >>>>> ExternalLibraryFunction(ExternalFunction)>>invokeWithArguments: >>>>> UDBCSQLite3Library>>apiBindBlob:atColumn:with:with:with: >>>>> UDBCSQLite3Library>>with:at:putBlob: >>>>> UDBCSQLite3Statement>>at:putByteArray: >>>>> UDBCSQLite3ResultSet>>execute:withIndex:withValue: >>>>> [ :v | i := self execute: statement withIndex: i withValue: v ] in >>>>> UDBCSQLite3ResultSet>>execute:withCollection: >>>>> OrderedCollection>>do: >>>>> UDBCSQLite3ResultSet>>execute:withCollection: >>>>> UDBCSQLite3ResultSet>>execute:with:on: >>>>> UDBCSQLite3Connection>>execute:with: >>>>> GlorpSQLite3Driver>>basicExecute > SQLString:binding: >>>>> PharoDatabaseAccessor>>executeCommandBound: >>>>> QuerySelectCommand(DatabaseCommand)>>executeBoundIn: >>>>> [ (self useBinding and: [ command useBinding ]) >>>>> ifTrue: [ command executeBoundIn: self ] >>>>> ifFalse: [ command executeUnboundIn: self ] ] in [ | result | >>>>> self checkPermissionFor: command. >>>>> result := [ (self useBinding and: [ command useBinding ]) >>>>> ifTrue: [ command executeBoundIn: self ] >>>>> ifFalse: [ command executeUnboundIn: self ] ] >>>>> on: Dialect error >>>>> do: [ :ex | self handleError: ex for: command ]. >>>>> aBoolean >>>>> ifTrue: [ result ] >>>>> ifFalse: [ result upToEnd ] ] in >>>>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>>>> BlockClosure>>on:do: >>>>> [ | result | >>>>> self checkPermissionFor: command. >>>>> result := [ (self useBinding and: [ command useBinding ]) >>>>> ifTrue: [ command executeBoundIn: self ] >>>>> ifFalse: [ command executeUnboundIn: self ] ] >>>>> on: Dialect error >>>>> > do: [ :ex | self handleError: ex for: command ]. >>>>> aBoolean >>>>> ifTrue: [ result ] >>>>> ifFalse: [ result upToEnd ] ] in >>>>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>>>> [ caught := true. >>>>> self wait. >>>>> blockValue := mutuallyExcludedBlock value ] in Semaphore>>critical: >>>>> BlockClosure>>ensure: >>>>> Semaphore>>critical: >>>>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>>>> [ session accessor executeCommand: command returnCursor: true ] in >>>>> SimpleQuery>>rowsFromDatabaseWithParameters: >>>>> BlockClosure>>on:do: >>>>> SimpleQuery>>rowsFromDatabaseWithParameters: >>>>> SimpleQuery(AbstractReadQuery)>>readFromDatabaseWithParameters: >>>>> SimpleQuery(AbstractReadQuery)>>executeWithParameters:in: >>>>> GlorpSession>>execute: >>>>> GlorpSession>>readOneOf:where: >>>>> TowergameDao>>findStateByAgent: >>>>> [ | agent state | >>>>> agent := self dao findAgentById: anObject agentId. >>>>> state := self dao findStateByAgent: > agent. >>>>> ^ NeoJSONObject new >>>>> agentId: agent id; >>>>> stateVersion: state version; >>>>> totalAnsweredQuestions: >>>>> (NeoJSONObject new >>>>> good: 0; >>>>> bad: 0; >>>>> yourself); >>>>> yourself ] in Towergame>>clientSync: >>>>> [ myUnitOfWork := self hasUnitOfWork not. >>>>> myUnitOfWork >>>>> ifTrue: [ self beginUnitOfWork ]. >>>>> result := aBlock numArgs = 1 >>>>> ifTrue: [ aBlock value: self ] >>>>> ifFalse: [ aBlock value ]. >>>>> myUnitOfWork >>>>> ifTrue: [ self commitUnitOfWork ] ] in GlorpSession>>inUnitOfWorkDo: >>>>> BlockClosure>>ifCurtailed: >>>>> GlorpSession>>inUnitOfWorkDo: >>>>> TowergameDao>>inUnitOfWorkDo: >>>>> Towergame>>clientSync: >>>>> TowergameSyncTests>>testPlayerChecksStateVersion >>>>> TowergameSyncTests(TestCase)>>performTest >>>>> [ self setUp. >>>>> self performTest ] in TowergameSyncTests(TestCase)>>runCase >>>>> BlockClosure>>ensure: >>>>> TowergameSyncTests(TestCase)>>runCase >>>>> [ aTestCase runCase ] in [ [ aTestCase runCase ] >>>>> on: Halt >>>>> do: [ > :halt | >>>>> "if test was halted we should resume all background failures >>>>> to debug all of them together with test process" >>>>> failedProcesses keysDo: #resume. >>>>> halt pass ] ] in TestExecutionEnvironment>>runTestCaseSafelly: >>>>> BlockClosure>>on:do: >>>>> [ [ aTestCase runCase ] >>>>> on: Halt >>>>> do: [ :halt | >>>>> "if test was halted we should resume all background failures >>>>> to debug all of them together with test process" >>>>> failedProcesses keysDo: #resume. >>>>> halt pass ] ] in TestExecutionEnvironment>>runTestCaseSafelly: >>>>> BlockClosure>>on:do: >>>>> TestExecutionEnvironment>>runTestCaseSafelly: >>>>> [ self runTestCaseSafelly: aTestCase ] in [ [ self runTestCaseSafelly: >>>>> aTestCase ] >>>>> ensure: [ testCompleted := true. >>>>> watchDogSemaphore signal ]. "signal that test case completes" >>>>> self checkForkedProcesses ] in TestExecutionEnvironment>>runTestCase: >>>>> BlockClosure>>ensure: >>>>> [ [ self runTestCaseSafelly: aTestCase ] >>>>> ensure: [ tes > tCompleted := true. >>>>> watchDogSemaphore signal ]. "signal that test case completes" >>>>> self checkForkedProcesses ] in TestExecutionEnvironment>>runTestCase: >>>>> BlockClosure>>ifCurtailed: >>>>> TestExecutionEnvironment>>runTestCase: >>>>> [ testEnv runTestCase: aTestCase ] in >>>>> DefaultExecutionEnvironment>>runTestCase: >>>>> [ self value: anExecutionEnvironment. >>>>> anExecutionEnvironment activated. >>>>> aBlock value ] in CurrentExecutionEnvironment class>>activate:for: >>>>> BlockClosure>>ensure: >>>>> CurrentExecutionEnvironment class>>activate:for: >>>>> TestExecutionEnvironment(ExecutionEnvironment)>>beActiveDuring: >>>>> DefaultExecutionEnvironment>>runTestCase: >>>>> CurrentExecutionEnvironment class>>runTestCase: >>>>> TowergameSyncTests(TestCase)>>runCaseManaged >>>>> [ aTestCase announce: TestCaseStarted withResult: self. >>>>> aTestCase runCaseManaged. >>>>> aTestCase announce: TestCaseEnded withResult: self. >>>>> self addPass: aTestCase ] in TestResult>>runCaseForDeb > ug: >>>>> BlockClosure>>on:do: >>>>> TestResult>>runCaseForDebug: >>>>> [ result runCaseForDebug: self ] in >>>>> TowergameSyncTests(TestCase)>>debug >>>>> BlockClosure>>ensure: >>>>> TowergameSyncTests(TestCase)>>debug >>>>> [ :each | >>>>> each debug. >>>>> self announceTest: each. >>>>> self changed: each ] in [ self tests >>>>> do: [ :each | >>>>> each debug. >>>>> self announceTest: each. >>>>> self changed: each ] ] in TestSuite>>debug >>>>> OrderedCollection>>do: >>>>> [ self tests >>>>> do: [ :each | >>>>> each debug. >>>>> self announceTest: each. >>>>> self changed: each ] ] in TestSuite>>debug >>>>> BlockClosure>>ensure: >>>>> TestSuite>>debug >>>>> [ :aSuite | aSuite debug ] in TestRunner>>debugSuite: >>>>> BlockClosure>>cull: >>>>> BlockClosure>>cull:cull: >>>>> [ aBlock cull: aTestSuite cull: result ] in >>>>> TestRunner>>executeSuite:as: >>>>> BlockClosure>>ensure: >>>>> TestRunner>>executeSuite:as: >>>>> TestRunner>>debugSuite: >>>>> TestRunner>>debug: >>>>> TestRunner>>errorSelected: >>>>> PluggableLi > stMorph>>changeModelSelection: >>>>> PluggableListMorph>>mouseUpOnSingle: >>>>> PluggableListMorph>>mouseUp: >>>>> PluggableListMorph(Morph)>>handleMouseUp: >>>>> MouseButtonEvent>>sentTo: >>>>> PluggableListMorph(Morph)>>handleEvent: >>>>> MorphicEventDispatcher>>dispatchDefault:with: >>>>> MorphicEventDispatcher>>handleMouseUp: >>>>> MouseButtonEvent>>sentTo: >>>>> [ ^ anEvent sentTo: self ] in >>>>> MorphicEventDispatcher>>dispatchEvent:with: >>>>> BlockClosure>>ensure: >>>>> MorphicEventDispatcher>>dispatchEvent:with: >>>>> PluggableListMorph(Morph)>>processEvent:using: >>>>> PluggableListMorph(Morph)>>processEvent: >>>>> PluggableListMorph>>handleFocusEvent: >>>>> [ ActiveHand := self. >>>>> ActiveEvent := anEvent. >>>>> result := focusHolder >>>>> handleFocusEvent: (anEvent transformedBy: (focusHolder >>>>> transformedFrom: >>>>> self)) ] in HandMorph>>sendFocusEvent:to:clear: >>>>> BlockClosure>>on:do: >>>>> WorldMorph(PasteUpMorph)>>becomeActiveDuring: >>>>> HandMorph>>sendFocusEvent:to:clear: >>> >>> HandMorph>>sendEvent:focus:clear: >>>>> HandMorph>>sendMouseEvent: >>>>> HandMorph>>handleEvent: >>>>> HandMorph>>processEventsFromQueue: >>>>> HandMorph>>processEvents >>>>> [ :h | >>>>> self activeHand: h. >>>>> h processEvents. >>>>> self activeHand: nil ] in WorldState>>doOneCycleNowFor: >>>>> Array(SequenceableCollection)>>do: >>>>> WorldState>>handsDo: >>>>> WorldState>>doOneCycleNowFor: >>>>> WorldState>>doOneCycleFor: >>>>> WorldMorph>>doOneCycle >>>>> WorldMorph class>>doOneCycle >>>>> [ [ WorldMorph doOneCycle. >>>>> Processor yield. >>>>> false ] whileFalse: [ ] ] in MorphicUIManager>>spawnNewProcess >>>>> [ self value. >>>>> Processor terminateActive ] in BlockClosure>>newProcess >>>>> >>>>> >>>>> >>>>> And here's the code: >>>>> >>>>> >>>>> Towergame.st: >>>>> >>>>> GlorpBlobType subclass: #GlorpBlob2Type >>>>> instanceVariableNames: '' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> >>>>> !GlorpBlob2Type methodsFor: 'types' stamp: 'HerbertVojÃÂÃÂ > k 8/14/2017 >>>>> 18:09:53'! >>>>> converterForStType: aClass >>>>> aClass = UUID ifTrue: [ ^ UuidConverter new ]. >>>>> ^ super converterForStType: aClass! ! >>>>> >>>>> >>>>> Object subclass: #TgAct >>>>> instanceVariableNames: 'agent tool timestamp' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> !TgAct commentStamp: 'HerbyVojcik 8/5/2017 19:23' prior: 0! >>>>> I represent a relationship between a player (TgAgent) >>>>> and a device (TgTool). >>>>> >>>>> In particular, I am created whenever a player logs in to the game from >>>>> different device >>>>> than it was last time (or first time, ever).! >>>>> >>>>> >>>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> agent >>>>> ^ agent! ! >>>>> >>>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> agent: anObject >>>>> agent := anObject! ! >>>>> >>>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:0 > 9:53'! >>>>> timestamp: anObject >>>>> timestamp := anObject! ! >>>>> >>>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> tool >>>>> ^ tool! ! >>>>> >>>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> tool: anObject >>>>> tool := anObject! ! >>>>> >>>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> timestamp >>>>> ^ timestamp! ! >>>>> >>>>> >>>>> !TgAct methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> initialize >>>>> >>>>> super initialize. >>>>> >>>>> agent := nil. >>>>> timestamp := DateAndTime now asUTC. >>>>> tool := nil.! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TgAct class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TgAct class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> agent: aTgAgent tool: aTgTool >>>>> ^ self new >>>>> agent: aTgAgent; > >>>>> tool: aTgTool; >>>>> yourself! ! >>>>> >>>>> >>>>> Object subclass: #TgAgent >>>>> instanceVariableNames: 'id' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> !TgAgent commentStamp: 'HerbyVojcik 8/5/2017 19:22' prior: 0! >>>>> I represent a towergame player. >>>>> >>>>> I only contain player-related information; >>>>> the game state itself is in TgState.! >>>>> >>>>> >>>>> !TgAgent methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 >>>>> 18:09:53'! >>>>> initialize >>>>> >>>>> super initialize. >>>>> >>>>> id := nil.! ! >>>>> >>>>> >>>>> !TgAgent methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> id: anObject >>>>> id := anObject! ! >>>>> >>>>> !TgAgent methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> id >>>>> ^ id! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TgAgent class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TgAgent class methodsFor: > 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> id: aString >>>>> ^ self new >>>>> id: aString; >>>>> yourself! ! >>>>> >>>>> >>>>> Object subclass: #TgAnswers >>>>> instanceVariableNames: 'good bad' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> !TgAnswers commentStamp: 'HerbyVojcik 8/5/2017 20:23' prior: 0! >>>>> I represent the answered question stats. >>>>> >>>>> I know how many good / bad answered questions there is.! >>>>> >>>>> >>>>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> good >>>>> ^ good! ! >>>>> >>>>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> bad: anObject >>>>> bad := anObject! ! >>>>> >>>>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> bad >>>>> ^ bad! ! >>>>> >>>>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> good > : anObject >>>>> good := anObject! ! >>>>> >>>>> >>>>> !TgAnswers methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> initialize >>>>> >>>>> super initialize. >>>>> >>>>> bad := 0. >>>>> good := 0.! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TgAnswers class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TgAnswers class methodsFor: 'instance creation' stamp: >>>>> 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> good: anInteger bad: anInteger2 >>>>> ^ self new >>>>> good: anInteger; >>>>> bad: anInteger2; >>>>> yourself! ! >>>>> >>>>> >>>>> Object subclass: #TgFloors >>>>> instanceVariableNames: 'total reinforced' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> !TgFloors commentStamp: 'HerbyVojcik 8/5/2017 20:22' prior: 0! >>>>> I represent the floor building status. >>>>> >>>>> I know how many floors are build and how many of them is reinforced.! >>>>> >>>>> >>>>> !TgFloors methodsFor: 'accessin > g' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> total >>>>> ^ total! ! >>>>> >>>>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> total: anObject >>>>> total := anObject! ! >>>>> >>>>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> reinforced >>>>> ^ reinforced! ! >>>>> >>>>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> reinforced: anObject >>>>> reinforced := anObject! ! >>>>> >>>>> >>>>> !TgFloors methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 >>>>> 18:09:53'! >>>>> initialize >>>>> >>>>> super initialize. >>>>> >>>>> reinforced := 0. >>>>> total := 0.! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TgFloors class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TgFloors class methodsFor: 'instance creation' stamp: >>>>> 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> total: anInteger >>>>> ^ self t > otal: anInteger reinforced: 0! ! >>>>> >>>>> !TgFloors class methodsFor: 'instance creation' stamp: >>>>> 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> total: anInteger reinforced: anInteger2 >>>>> ^ self new >>>>> total: anInteger; >>>>> reinforced: anInteger2; >>>>> yourself! ! >>>>> >>>>> >>>>> Object subclass: #TgState >>>>> instanceVariableNames: 'agent version packs valuables score bestScore >>>>> answers' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> !TgState commentStamp: 'HerbyVojcik 8/5/2017 20:20' prior: 0! >>>>> I represent the game state. >>>>> >>>>> I have relation to a player (TgAgent) and have a version. >>>>> Then, I contain (directly or indirectly) other parts that >>>>> make up the player's game state. >>>>> >>>>> Whenever I am changed by game progress, my version is changed as >>>>> well.! >>>>> >>>>> >>>>> !TgState methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 >>>>> 18:09:53'! >>>>> initialize >>>>> >>>>> super initialize. >> >>>> >>>>> agent := nil. >>>>> answers := nil. >>>>> bestScore := nil. >>>>> packs := Set new. >>>>> score := nil. >>>>> valuables := nil. >>>>> version := nil.! ! >>>>> >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> score: anObject >>>>> score := anObject! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> bestScore: anObject >>>>> bestScore := anObject! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> agent: anObject >>>>> agent := anObject! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> score >>>>> ^ score! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> packs >>>>> ^ packs! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> version >>>>> ^ version! ! >>>>> >>>>> !Tg > State methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> bestScore >>>>> ^ bestScore! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> agent >>>>> ^ agent! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> answers: anObject >>>>> answers := anObject! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> valuables: anObject >>>>> valuables := anObject! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> valuables >>>>> ^ valuables! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> version: anObject >>>>> version := anObject! ! >>>>> >>>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> answers >>>>> ^ answers! ! >>>>> >>>>> !TgState methodsFor: 'accessi > ng' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> packs: anObject >>>>> packs := anObject! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TgState class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TgState class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> agent: aTgAgent version: aString >>>>> ^ self new >>>>> agent: aTgAgent; >>>>> version: aString; >>>>> yourself! ! >>>>> >>>>> >>>>> Object subclass: #TgTool >>>>> instanceVariableNames: 'id' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> !TgTool commentStamp: 'HerbyVojcik 8/5/2017 19:26' prior: 0! >>>>> I represent the device (mobile phone, web browser, ..) >>>>> that player uses to connect to game.! >>>>> >>>>> >>>>> !TgTool methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> initialize >>>>> >>>>> super initialize. >>>>> >>>>> id := nil.! ! >>>>> >>>>> >>>>> !TgTool methodsFor: ' > accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> id: anObject >>>>> id := anObject! ! >>>>> >>>>> !TgTool methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> id >>>>> ^ id! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TgTool class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TgTool class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> id: aString >>>>> ^ self new >>>>> id: aString; >>>>> yourself! ! >>>>> >>>>> >>>>> Object subclass: #TgValuables >>>>> instanceVariableNames: 'coins gems' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> !TgValuables commentStamp: 'HerbyVojcik 8/5/2017 20:22' prior: 0! >>>>> I represent a purse. >>>>> >>>>> I know how many coins and gems there is.! >>>>> >>>>> >>>>> !TgValuables methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> initialize >>>>> >>>>> super initia > lize. >>>>> >>>>> coins := 0. >>>>> gems := 0.! ! >>>>> >>>>> >>>>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> gems: anObject >>>>> gems := anObject! ! >>>>> >>>>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> coins: anObject >>>>> coins := anObject! ! >>>>> >>>>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> gems >>>>> ^ gems! ! >>>>> >>>>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> coins >>>>> ^ coins! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TgValuables class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TgValuables class methodsFor: 'instance creation' stamp: >>>>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>>>> coins: anInteger gems: anInteger2 >>>>> ^ self new >>>>> coins: anInteger; >>>>> gems: anInteger2; >>>>> yourself! ! >>>>> >>>>> >>>>> Object subclas > s: #Towergame >>>>> instanceVariableNames: 'dao' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> !Towergame commentStamp: 'HerbyVojcik 5/17/2017 17:19' prior: 0! >>>>> I am the Towergame app class. >>>>> >>>>> I configure and start towergame server processing.! >>>>> >>>>> >>>>> !Towergame methodsFor: 'actions' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> clientSync: anObject >>>>> self dao inUnitOfWorkDo: [ >>>>> | agent state | >>>>> agent := self dao findAgentById: anObject agentId. >>>>> state := self dao findStateByAgent: agent. >>>>> ^ NeoJSONObject new >>>>> agentId: agent id; >>>>> stateVersion: state version; >>>>> totalAnsweredQuestions: (NeoJSONObject new good: 0; bad: 0; yourself); >>>>> yourself ]! ! >>>>> >>>>> >>>>> !Towergame methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> initialize >>>>> >>>>> super initialize. >>>>> >>>>> dao := nil. >>>>> ! ! >>>>> >>>>> >>>>> !Towergame methodsFor: 'accessi > ng' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> dao: anObject >>>>> dao := anObject! ! >>>>> >>>>> !Towergame methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> dao >>>>> ^ dao! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> Towergame class >>>>> instanceVariableNames: 'default'! >>>>> >>>>> !Towergame class methodsFor: 'instance creation' stamp: >>>>> 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> dao: aDao >>>>> ^ self new >>>>> dao: aDao; >>>>> yourself! ! >>>>> >>>>> >>>>> !Towergame class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> defaultDbLogin >>>>> | databaseFile | >>>>> databaseFile := Smalltalk imageDirectory asFileReference / >>>>> 'towergame.db'. >>>>> ^ Login new >>>>> database: UDBCSQLite3Platform new; >>>>> host: ''; >>>>> port: ''; >>>>> username: ''; >>>>> password: ''; >>>>> databaseName: databaseFile fullPath asZnUrl asString; >>>>> yourself ! ! >>>>> >>>>> !Towerga > me class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> default >>>>> ^ default ifNil: [ default := self >>>>> dao: (self daoForLogin: self defaultDbLogin) >>>>> ]! ! >>>>> >>>>> !Towergame class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> defaultPort >>>>> ^ 4998! ! >>>>> >>>>> >>>>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> configureServer >>>>> (self serverFor: self default on: self defaultPort) start; register >>>>> ! ! >>>>> >>>>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> configureSqlite3 >>>>> >>>>> PharoDatabaseAccessor DefaultDriver: GlorpSQLite3Driver! ! >>>>> >>>>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> configure >>>>> self configureSqlite3. >>>>> self configureServer.! ! >>>>> >>>>> >>>>> !Towergame class methodsFor: 'factory' > stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> daoForLogin: aLogin >>>>> ^ TowergameDao forLogin: aLogin! ! >>>>> >>>>> !Towergame class methodsFor: 'factory' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 >>>>> 18:09:53'! >>>>> serverFor: aTowergame on: port >>>>> ^ (ZnServer on: port) >>>>> delegate: (TowergameDelegate on: aTowergame); >>>>> yourself! ! >>>>> >>>>> >>>>> Object subclass: #TowergameDao >>>>> instanceVariableNames: 'glorpSession glorpLogin' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> >>>>> !TowergameDao methodsFor: 'transactions' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> inUnitOfWorkDo: aBlock >>>>> ^ self glorpSession inUnitOfWorkDo: aBlock! ! >>>>> >>>>> >>>>> !TowergameDao methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> initialize >>>>> >>>>> super initialize. >>>>> >>>>> glorpLogin := nil. >>>>> glorpSession := nil.! ! >>>>> >>>>> >>>>> !TowergameDao methodsFor: 'initialize-rele > ase' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> reset >>>>> glorpSession := nil.! ! >>>>> >>>>> >>>>> !TowergameDao methodsFor: 'query' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> findStateByAgent: anAgent >>>>> ^ self glorpSession readOneOf: TgState where: [ :one | one agent = >>>>> anAgent ]! ! >>>>> >>>>> !TowergameDao methodsFor: 'query' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> findAgentById: anUUID >>>>> ^ self glorpSession readOneOf: TgAgent where: [ :one | one id = anUUID >>>>> ]! ! >>>>> >>>>> >>>>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 >>>>> 18:09:53'! >>>>> glorpLogin: anObject >>>>> glorpLogin := anObject! ! >>>>> >>>>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 >>>>> 18:09:53'! >>>>> glorpLogin >>>>> ^ glorpLogin! ! >>>>> >>>>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 >>>>> 18:09:53'! >>>>> glorpSession >>>>> glorpSession ifNil: [ >>>>> g > lorpSession := TowergameDescriptorSystem sessionForLogin: self >>>>> glorpLogin ]. >>>>> glorpSession accessor isLoggedIn ifFalse: [ >>>>> glorpSession accessor login ]. >>>>> ^ glorpSession! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TowergameDao class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TowergameDao class methodsFor: 'instance creation' stamp: >>>>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>>>> forLogin: aLogin >>>>> ^ self new >>>>> glorpLogin: aLogin; >>>>> yourself! ! >>>>> >>>>> >>>>> ZnDispatcherDelegate subclass: #TowergameDelegate >>>>> instanceVariableNames: 'towergame' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> >>>>> !TowergameDelegate methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> towergame >>>>> ^ towergame! ! >>>>> >>>>> !TowergameDelegate methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> towergame: anObject >>>>> towergame > := anObject! ! >>>>> >>>>> >>>>> !TowergameDelegate methodsFor: 'initialization' stamp: >>>>> 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> initialize >>>>> super initialize. >>>>> towergame := nil. >>>>> self >>>>> map: '/api/v1/sync' >>>>> to: [ :request :response | self syncRequest: request toResponse: >>>>> response ]! ! >>>>> >>>>> >>>>> !TowergameDelegate methodsFor: 'action' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> syncRequest: request toResponse: response >>>>> | requestPayload responsePayload uuidKeys | >>>>> uuidKeys := #(agentId stateVersion deviceId). >>>>> request method == #POST ifFalse: [ ^ ZnResponse methodNotAllowed: >>>>> request ]. >>>>> requestPayload := NeoJSONObject fromString: request contents. >>>>> requestPayload ifNotNil: [ >>>>> uuidKeys do: [ :each | requestPayload at: each ifPresentPut: [ :s | >>>>> UUID >>>>> fromString: s ] ] ]. >>>>> responsePayload := self towergame clientSync: requestPayload. >>>>> responsePayload ifNotNil: [ >>>>> uuidKeys do: [ :each > | responsePayload at: each ifPresentPut: #asString >>>>> ] ]. >>>>> ^ response >>>>> entity: (ZnEntity >>>>> with: (NeoJSONWriter toString: responsePayload) >>>>> type: ZnMimeType applicationJson); >>>>> yourself! ! >>>>> >>>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>>> >>>>> TowergameDelegate class >>>>> instanceVariableNames: ''! >>>>> >>>>> !TowergameDelegate class methodsFor: 'instance creation' stamp: >>>>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>>>> on: aTowergame >>>>> ^ self new towergame: aTowergame; yourself! ! >>>>> >>>>> >>>>> DescriptorSystem subclass: #TowergameDescriptorSystem >>>>> instanceVariableNames: 'uuidConverter' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> tableForAGENT: aTable >>>>> >>>>> (aTable createFieldNamed: 'id' type: platform blob2) bePrimaryKey. >>>>> ! ! >>>>> >>>>> !TowergameDescriptorSyst > em methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> classModelForTgAgent: aClassModel >>>>> aClassModel >>>>> newAttributeNamed: #id type: UUID! ! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbyVojcik >>>>> 8/14/2017 18:24'! >>>>> tableForSTATE: aTable >>>>> >>>>> (aTable createFieldNamed: 'agent' type: platform blob2) in: [ >>>>> :agentField | >>>>> agentField bePrimaryKey. >>>>> aTable addForeignKeyFrom: agentField to: ((self tableNamed: 'AGENT') >>>>> fieldNamed: 'id') ]. >>>>> (aTable createFieldNamed: 'version' type: platform blob) beIndexed. >>>>> ! ! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> descriptorForTgAgent: aDescriptor >>>>> | table | >>>>> table := self tableNamed: 'AGENT'. >>>>> aDescriptor table: table. >>>>> (aDescriptor newMapping: DirectMapping) >>>>> from: #id to: (table fieldNamed: 'id').! ! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' > stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> tableForACT: aTable >>>>> >>>>> (aTable createFieldNamed: 'agent' type: platform blob2) beIndexed. >>>>> (aTable createFieldNamed: 'tool' type: platform blob2) beIndexed. >>>>> (aTable createFieldNamed: 'timestamp' type: platform timestamp) >>>>> beIndexed. >>>>> ! ! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> descriptorForTgState: aDescriptor >>>>> | table | >>>>> table := self tableNamed: 'STATE'. >>>>> aDescriptor table: table. >>>>> (aDescriptor newMapping: OneToOneMapping) attributeName: #agent. >>>>> (aDescriptor newMapping: DirectMapping) >>>>> from: #version to: (table fieldNamed: 'version').! ! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> converterBetweenStType: aClass andField: aField >>>>> (aClass = UUID and: [ aField impliedSmalltalkType = ByteArray]) >>>>> ifTrue: [ ^ self uuid > Converter ]. >>>>> ^ super converterBetweenStType: aClass andField: aField! ! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> classModelForTgState: aClassModel >>>>> "agent version packs valuables score bestScore answers" >>>>> aClassModel >>>>> newAttributeNamed: #agent type: TgAgent; >>>>> newAttributeNamed: #version type: UUID! ! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> classModelForTgTool: aClassModel >>>>> aClassModel >>>>> newAttributeNamed: #id >>>>> ! ! >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> classModelForTgAct: aClassModel >>>>> aClassModel >>>>> newAttributeNamed: #timestamp; >>>>> newAttributeNamed: #agent type: TgAgent; >>>>> newAttributeNamed: #tool type: TgTool! ! >>>>> >>>>> >>>>> !TowergameDescriptorSystem methodsFor: 'accessing' stamp: >>>>> 'HerbertVojÃÂÃï¿½ > ï¿½k 8/14/2017 18:09:53'! >>>>> uuidConverter >>>>> ^ uuidConverter ifNil: [ uuidConverter := UuidConverter new name: >>>>> 'uuid'; yourself ]! ! >>>>> >>>>> >>>>> DatabaseConverter subclass: #UuidConverter >>>>> instanceVariableNames: '' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame'! >>>>> >>>>> !UuidConverter methodsFor: 'converting' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> convert: anObject toDatabaseRepresentationAs: aDatabaseType >>>>> ^ anObject ifNotNil: [ ByteArray withAll: anObject ]! ! >>>>> >>>>> !UuidConverter methodsFor: 'converting' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> convert: anObject fromDatabaseRepresentationAs: aDatabaseType >>>>> ^ anObject ifNotNil: [ UUID withAll: anObject ]! ! >>>>> 'From Pharo6.0 of 13 May 2016 [Latest update: #60510] on 14 August >>>>> 2017 >>>>> at 6:26:30.67905 pm'! >>>>> >>>>> !DatabasePlatform methodsFor: '*Towergame' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> blob2 > >>>>> ^self typeNamed: #blob ifAbsentPut: [GlorpBlob2Type new].! ! >>>>> 'From Pharo6.0 of 13 May 2016 [Latest update: #60510] on 14 August >>>>> 2017 >>>>> at 6:26:30.68005 pm'! >>>>> >>>>> !Dictionary methodsFor: '*Towergame' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>>> 18:09:53'! >>>>> at: key ifPresentPut: aBlock >>>>> "Lookup the given key in the receiver. If it is present, update it >>>>> with the value of evaluating the given block with the value associated >>>>> with the key. Otherwise, answer nil." >>>>> >>>>> ^ self at: key ifPresent: [ :value | self at: key put: (aBlock cull: >>>>> value) ]! ! >>>>> >>>>> >>>>> >>>>> >>>>> TowergameTests.st: >>>>> >>>>> TestCase subclass: #TowergameServerTests >>>>> instanceVariableNames: 'randomPort towergame server' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame-Tests'! >>>>> >>>>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> uidy: aString >>>>> ^ UUID fromString36: aSt > ring ! ! >>>>> >>>>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> setUp >>>>> randomPort := 1700 + 32 atRandom. >>>>> towergame := Mock new. >>>>> server := Towergame serverFor: towergame on: randomPort. >>>>> server start. >>>>> self >>>>> assert: server isRunning& server isListening >>>>> description: ('Failed to start server on port {1}. Is there one >>>>> already?' format: { server port }) >>>>> ! ! >>>>> >>>>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> tearDown >>>>> server stop! ! >>>>> >>>>> >>>>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> testEmptySyncRequest >>>>> | znClient response | >>>>> (towergame stub clientSync: Arg payload) willReturn: nil. >>>>> znClient := self znClientForSync: 'null'. >>>>> response := znClient timeout: 1; post; response. >>>>> response should satisfy: #isSuccess. >>>>> response contentTy > pe should equal: ZnMimeType applicationJson. >>>>> (STON fromString: response entity contents) should equal: nil. >>>>> Arg payload should equal: nil! ! >>>>> >>>>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> testRejectEmptyGetSyncRequest >>>>> | znClient response | >>>>> (towergame stub clientSync: Arg payload) willReturn: nil. >>>>> znClient := self znClientForSync: 'null'. >>>>> response := znClient timeout: 1; get; response. >>>>> response code should equal: ZnStatusLine methodNotAllowed code. >>>>> towergame should not receive clientSync: Any! ! >>>>> >>>>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> testNonEmptySyncRequest >>>>> | znClient response | >>>>> (towergame stub clientSync: Arg payload) willReturn: { #agentId -> >>>>> (self >>>>> uidy: '007') } asDictionary. >>>>> znClient := self znClientForSync: >>>>> ('\{"deviceId":"{1}","agentAnsweredQuestions":\{"good":1,"bad":2\}\ > }' >>>>> format: { self uidy: 'Q' }). >>>>> response := znClient timeout: 1; post; response. >>>>> response should satisfy: #isSuccess. >>>>> response contentType should equal: ZnMimeType applicationJson. >>>>> (STON fromString: response entity contents) should equal: { >>>>> 'agentId' -> >>>>> (self uidy: '007') asString } asDictionary. >>>>> Arg payload in: [ :arg | >>>>> arg deviceId should equal: (self uidy: 'Q'). >>>>> arg agentAnsweredQuestions should satisfy: #notNil. >>>>> arg agentAnsweredQuestions good should equal: 1. >>>>> arg agentAnsweredQuestions bad should equal: 2 ] >>>>> ! ! >>>>> >>>>> >>>>> !TowergameServerTests methodsFor: 'private' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> znClientForSync: jsonString >>>>> ^ ZnClient new >>>>> url: server localUrl; >>>>> path: '/api/v1/sync'; >>>>> entity: >>>>> (ZnEntity >>>>> with: jsonString >>>>> type: ZnMimeType applicationJson) >>>>> ! ! >>>>> >>>>> >>>>> TestCase subclass: #TowergameSyncTests >>>>> instanceVariableNames: 'towerga > me session dao' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'Towergame-Tests'! >>>>> >>>>> !TowergameSyncTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> testPlayerChecksStateVersionAndIsBehind >>>>> | result payload | >>>>> session createTables. >>>>> session inUnitOfWorkDo: [ >>>>> | agent state | >>>>> agent := TgAgent id: (self uidy: '007'). >>>>> state := (TgState agent: agent version: (self uidy: '18-eff')) >>>>> packs: #('foopack' 'barpack') asSet; >>>>> valuables: (TgValuables coins: 20 gems: 3); >>>>> score: (TgFloors total: 4 reinforced: 1); >>>>> bestScore: (TgFloors total: 18); >>>>> answers: (TgAnswers good: 2 bad: 3); >>>>> yourself. >>>>> session registerAll: {state. TgAct agent: agent tool: (TgTool id: >>>>> (self >>>>> uidy: 'Q7') ) } ]. >>>>> towergame := Towergame dao: dao. >>>>> payload := NeoJSONObject new >>>>> agentId: (self uidy: '007'); stateVersion: (self uidy: '23-fefe'); >>>>> deviceId: (self uidy: 'Q7'). >>>>> res > ult := towergame clientSync: payload. >>>>> result where agentId should equal: (self uidy: '007'). >>>>> result where stateVersion should equal: (self uidy: '18-eff'). >>>>> result where purchasedPacks should satisfy: [ :x | x asSet should >>>>> equal: >>>>> #('foopack' 'barpack') asSet ]. >>>>> result where valuables coins should equal: 20. >>>>> result where valuables gems should equal: 3. >>>>> result where floorsNumber current should equal: 4. >>>>> result where floorsNumber best should equal: 18. >>>>> result where floorsNumber reinforced should equal: 1. >>>>> result where agentAnsweredQuestions good should equal: 2. >>>>> result where agentAnsweredQuestions bad should equal: 3. >>>>> result where totalAnsweredQuestions good should equal: 2. >>>>> result where totalAnsweredQuestions bad should equal: 3! ! >>>>> >>>>> !TowergameSyncTests methodsFor: 'tests' stamp: 'HerbyVojcik 8/14/2017 >>>>> 18:18'! >>>>> testPlayerChecksStateVersion >>>>> | result payload | >>>>> session createTables. >>>>> ses > sion inUnitOfWorkDo: [ >>>>> | agent state | >>>>> agent := TgAgent id: (self uidy: '007'). >>>>> state := TgState agent: agent version: (self uidy: '23-fefe'). >>>>> session registerAll: {state. TgAct agent: agent tool: (TgTool id: >>>>> (self >>>>> uidy: 'Q7') ) } ]. >>>>> towergame := Towergame dao: dao. >>>>> payload := NeoJSONObject new >>>>> agentId: (self uidy: '007'); stateVersion: (self uidy: '23-fefe'); >>>>> deviceId: (self uidy: 'Q7'). >>>>> result := towergame clientSync: payload. >>>>> result where agentId should equal: (self uidy: '007'). >>>>> result where stateVersion should equal: (self uidy: '23-fefe'). >>>>> result where totalAnsweredQuestions good should equal: 0. >>>>> result where totalAnsweredQuestions bad should equal: 0! ! >>>>> >>>>> >>>>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> uidy: aString >>>>> ^ UUID fromString36: aString ! ! >>>>> >>>>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>> >> 8/14/2017 18:09:53'! >>>>> setUp >>>>> dao := Towergame daoForLogin: self loginToTemporaryDatabase. >>>>> session := dao glorpSession. >>>>> ! ! >>>>> >>>>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> tearDown >>>>> session logout! ! >>>>> >>>>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbyVojcik >>>>> 8/14/2017 >>>>> 18:16'! >>>>> loginToTemporaryDatabase >>>>> ^ Login new >>>>> database: UDBCSQLite3Platform new; >>>>> host: ''; >>>>> port: ''; >>>>> username: ''; >>>>> password: ''; >>>>> databaseName: ''; >>>>> yourself! ! >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> BaselineOfTowergame.st: >>>>> BaselineOf subclass: #BaselineOfTowergame >>>>> instanceVariableNames: '' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: 'BaselineOfTowergame'! >>>>> >>>>> !BaselineOfTowergame methodsFor: 'baseline' stamp: 'HerbertVojÃÂÃÂk >>>>> 8/14/2017 18:09:53'! >>>>> baseline: spec >>>>> <baseline> >>>>> spec for: #common do: [ spec >>>>> >>>>> pa > ckage: 'Towergame' with: [ spec >>>>> requires: #('GlorpSQLite' 'NeoJSON') ]; >>>>> package: 'Towergame-Tests' with: [ spec >>>>> requires: #('Towergame' 'Mocketry') ]; >>>>> >>>>> configuration: 'GlorpSQLite' with: [ spec >>>>> version: #stable; >>>>> repository: >>>>> 'http://smalltalkhub.com/mc/Pharo/MetaRepoForPharo60/main' ]; >>>>> configuration: 'NeoJSON' with: [ spec >>>>> version: #stable; >>>>> repository: >>>>> 'http://smalltalkhub.com/mc/Pharo/MetaRepoForPharo60/main' ]; >>>>> baseline: 'Mocketry' with: [ spec >>>>> repository: 'github://dionisiydk/Mocketry:v4.0.x' ]; >>>>> >>>>> group: 'default' with: #('Core'); >>>>> group: 'development' with: #('Core' 'Tests'); >>>>> group: 'Core' with: #('Towergame'); >>>>> group: 'Tests' with: #('Towergame-Tests') ] >>>>> ! ! >>>>> >>>>> >>>>> >>>> >>>> >>> >> >> > > >

Aug. 16, 2017

Re: [Pharo-users] What is proper fix for this? (was: Re: Big Glorp problem w/ type coercion, pls help)

by Herby VojÄÃk

Esteban Lorenzano wrote: > but if he is using Glorp for Pharo and cincom takes the bug and fixes it, it still will not hit Pharo until someone ports it. > So, while I have literally no idea of what Herby is asking for, I encourage to keep discussion also here, then solution can hit both platforms. Thank you. In short, if there is DirectMapping with converter in the field used to foreign-key to other table's primary key (and I put one there as I use UUID which needs to be converted to/from ByteArray; in FK as well as in other side's PK), a relation is created with expressionFor:basedOn:relation: (as is done for other mappings in case relation like #= is used). Mapping has generic one, which correctly takes stValue(s) of the left side(s), and converts it to dbValue(s). DirectMapping's one was heavily optimized (probablly for perf reasons) and the conversion was thus lost in the process, I presume. The fix adds the conversion back, so I can do where: [ :one | one agent = anA gentObject ] and have it correctly translated to WHERE table.agentfield = converted_to_dbvalue(anAgentObject primaryKey). Herby > > Esteban > >> On 16 Aug 2017, at 00:07, herby(a)mailbox.sk wrote: >> >> BTW I took the latter way (as method tries to be as optimized as >> possible), it is in >> http://smalltalkhub.com/#!/~herby/Glorp/versions/Glorp-HerbyVojcik.127, >> consider merging in. Thanks. >> >> Herby VojÄÃk wrote: >>> Hello! >>> >>> I think I found the culprit. Few methods posted here: >>> >>> >>> Mapping>> expressionFor: anObject basedOn: anExpression relation: >>> aSymbol >>> "Return our expression using the object's values. e.g. if this was a >>> direct mapping from id->ID and the object had id: 3, then return >>> TABLE.ID=3. Used when rewriting object=object into field=field" >>> >>> | myValue result | >>> myValue := self expressionFor: anObject. >>> result := nil. >>> myValue with: self join allTargetFields do: [:eachValue :eachField | >>> | source | >>> source := anExpression get: self attribute name. >>> source hasDescriptor ifTrue: [source := source getField: eachField]. >>> result := (source get: aSymbol withArguments: (Array with: eachValue)) >>> AND: result]. >>> ^result >>> >>> >>> >>> DirectMapping>> expressionFor: anObject basedOn: anExpression relation: >>> aSymbol >>> "Return our expression using the object's values. e.g. if this was a >>> direct mapping from id->ID and the object had id: 3, then return >>> TABLE.ID=3" >>> >>> | value | >>> value := anObject isNil >>> ifTrue: [nil] >>> ifFalse: >>> [anObject isGlorpExpression >>> ifTrue: [anObject getMapping: self named: self attributeName] >>> ifFalse: [anObject glorpIsCollection >>> ifTrue: [anObject collect: [:each | attribute getValueFrom: each]] >>> ifFalse: [attribute getValueFrom: anObject]]]. >>> ^(anExpression get: self attribute name) get: aSymbol withArguments: >>> (Array with: value) >>> >>> >>> >>> Mapping>> expressionFor: anObject >>> "Return an expression representing the value of the object. This can be >>> nil, an object value or values, an expression, or a collection of >>> expressions (for a composite key, if we're passed an expression)" >>> >>> anObject isNil ifTrue: [^#(nil)]. >>> anObject isGlorpExpression ifFalse: [ >>> ^self mappedFields collect: [:each | >>> self valueOfField: each fromObject: anObject]]. >>> ^self mappedFields >>> collect: [:each | (anObject getField: each)] >>> >>> >>> >>> Mapping>> getValueFrom: anObject >>> >>> ^self attribute getValueFrom: anObject >>> >>> >>> >>> DirectMapping>> valueOfField: aField fromObject: anObject >>> field = aField ifFalse: [self error: 'Mapping doesn''t describe field']. >>> ^self convertedDbValueOf: (self getValueFrom: anObject) >>> >>> >>> >>> DirectMapping>> mappedFields >>> "Return a collection of fields that this mapping will write into any of >>> the containing object's rows" >>> >>> ^Array with: self field >>> >>> >>> The thing is, both Mapping>> expressionF or:basedOn:relation: and the >>> overridden DirectMapping's version eventually send >>> >>> someSource get: aSymbol withArguments: (Array with: eachValue) >>> >>> but in Mapping's code, the value is taken from `myValue := self >>> expressionFor: anObject`. which, as seen in #expressionFor: code, gets >>> the value via >>> >>> self valueOfField: aMappedField fromObject: anObject >>> >>> and indeed, if tried aDirectMapping expressionFor: anObject in debugger, >>> it gets the value of the primary key converted in the below case (that >>> is, as a ByteArray). This is clear from the DirectMapping>> >>> valueOfField:fromObject: code above, which does `self getValueFrom: >>> anObject` (which passes it to `attribute getValueFrom: anObject`) >>> _and_converts_it_. >>> >>> But in the overridden DirectMapping>> expressionFor:basedOn:relation:, >>> the value to be passed in the >>> >>> someSource get: aSymbol withArguments: (Array with: value) >>> >>> is obtained by direct >>> >>> attri bute getValueFrom: anObject >>> >>> but _is_not_converted_. IOW, it seems this method was heavily optimized >>> (`attribute getValueFrom:` instead of `self getValueFrom:`, for >>> example), but the conversion, normally present via expressionFor: and >>> ultimately valueOfField:fromObject: was optimized away as well. >>> >>> >>> >>> >>> Now, what is the correct way to fix the method (I hope you agree it is a >>> bug)? >>> >>> >>> This? >>> >>> DirectMapping>> expressionFor: anObject basedOn: anExpression relation: >>> aSymbol >>> "Return our expression using the object's values. e.g. if this was a >>> direct mapping from id->ID and the object had id: 3, then return >>> TABLE.ID=3" >>> >>> | value | >>> value := anObject isNil >>> ifTrue: [nil] >>> ifFalse: >>> [anObject isGlorpExpression >>> ifTrue: [anObject getMapping: self named: self attributeName] >>> ifFalse: [anObject glorpIsCollection >>> ifTrue: [anObject collect: [:each | self valueOfField: aField >>> fromObject: ea ch]] >>> ifFalse: [self valueOfField: aField fromObject: anObject]]]. >>> ^(anExpression get: self attribute name) get: aSymbol withArguments: >>> (Array with: value) >>> >>> >>> >>> or this? >>> >>> DirectMapping>> expressionFor: anObject basedOn: anExpression relation: >>> aSymbol >>> "Return our expression using the object's values. e.g. if this was a >>> direct mapping from id->ID and the object had id: 3, then return >>> TABLE.ID=3" >>> >>> | value | >>> value := anObject isNil >>> ifTrue: [nil] >>> ifFalse: >>> [anObject isGlorpExpression >>> ifTrue: [anObject getMapping: self named: self attributeName] >>> ifFalse: [anObject glorpIsCollection >>> ifTrue: [anObject collect: [:each | self convertedDbValueOf: (attribute >>> getValueFrom: each)]] >>> ifFalse: [self convertedDbValueOf: (attribute getValueFrom: anObject)]]]. >>> ^(anExpression get: self attribute name) get: aSymbol withArguments: >>> (Array with: value) >>> >>> >>> >>> Or something completely different? >>> >>> >>> Thanks, Herby >>> >>> Herby VojÄÃk wrote: >>>> Hello! >>>> >>>> I encountered a problem with OneToOneMapping and type coercion. When >>>> writing data, thing work; when reading data, the right child of relation >>>> fails to convert. >>>> >>>> I tried everything possible to inject converters (even subclassing >>>> GlorpBlobType), but to no avail. RelationExpression passes conversion to >>>> its left child: >>>> >>>> convertedDbValueOf: anObject >>>> "Assume that our types match, so we can ask either child to do the >>>> conversion. That isn't guaranteed, but should at least work for the >>>> common cases." >>>> ^leftChild convertedDbValueOf: anObject. >>>> >>>> but the left child is FieldExpression in case of OneToOneMapping, which: >>>> >>>> convertedDbValueOf: anObject >>>> "We don't do any conversion" >>>> ^anObject >>>> >>>> What is strange, writing works (even the OneToOneMapping, I opened the >>>> sqlite file with an explorer), but second SELECT, one using th e relation >>>> (`state := self dao findStateByAgent: agent` in clientSync), fails with >>>> "GlorpDatabaseReadError: Could not coerce arguments". FWIW, the first >>>> one _does_ convert when creating bindings, as it uses MappingExpression >>>> as left child (stepped over it in debugger). >>>> >>>> >>>> >>>> Is it meant to be a strange case that primary key is something >>>> non-primitive needing coercion (in this case, it is a UUID which needs >>>> coercion to ByteArray, even if it is its subclass)? >>>> >>>> >>>> >>>> Here's the stack of running the test which fails: >>>> >>>> PharoDatabaseAccessor(DatabaseAccessor)>>handleError:for: >>>> [ :ex | self handleError: ex for: command ] in [ | result | >>>> self checkPermissionFor: command. >>>> result := [ (self useBinding and: [ command useBinding ]) >>>> ifTrue: [ command executeBoundIn: self ] >>>> ifFalse: [ command executeUnboundIn: self ] ] >>>> on: Dialect error >>>> do: [ :ex | self handleError: ex for: command ]. >>>> aBoolean >>>> ifTrue: [ result ] >>>> ifFalse: [ result upToEnd ] ] in >>>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>>> BlockClosure>>cull: >>>> Context>>evaluateSignal: >>>> Context>>handleSignal: >>>> Error(Exception)>>signal >>>> Error(Exception)>>signal: >>>> ExternalLibraryFunction(Object)>>error: >>>> ExternalLibraryFunction(Object)>>externalCallFailed >>>> ExternalLibraryFunction(ExternalFunction)>>invokeWithArguments: >>>> UDBCSQLite3Library>>apiBindBlob:atColumn:with:with:with: >>>> UDBCSQLite3Library>>with:at:putBlob: >>>> UDBCSQLite3Statement>>at:putByteArray: >>>> UDBCSQLite3ResultSet>>execute:withIndex:withValue: >>>> [ :v | i := self execute: statement withIndex: i withValue: v ] in >>>> UDBCSQLite3ResultSet>>execute:withCollection: >>>> OrderedCollection>>do: >>>> UDBCSQLite3ResultSet>>execute:withCollection: >>>> UDBCSQLite3ResultSet>>execute:with:on: >>>> UDBCSQLite3Connection>>execute:with: >>>> GlorpSQLite3Driver>>basicExecute SQLString:binding: >>>> PharoDatabaseAccessor>>executeCommandBound: >>>> QuerySelectCommand(DatabaseCommand)>>executeBoundIn: >>>> [ (self useBinding and: [ command useBinding ]) >>>> ifTrue: [ command executeBoundIn: self ] >>>> ifFalse: [ command executeUnboundIn: self ] ] in [ | result | >>>> self checkPermissionFor: command. >>>> result := [ (self useBinding and: [ command useBinding ]) >>>> ifTrue: [ command executeBoundIn: self ] >>>> ifFalse: [ command executeUnboundIn: self ] ] >>>> on: Dialect error >>>> do: [ :ex | self handleError: ex for: command ]. >>>> aBoolean >>>> ifTrue: [ result ] >>>> ifFalse: [ result upToEnd ] ] in >>>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>>> BlockClosure>>on:do: >>>> [ | result | >>>> self checkPermissionFor: command. >>>> result := [ (self useBinding and: [ command useBinding ]) >>>> ifTrue: [ command executeBoundIn: self ] >>>> ifFalse: [ command executeUnboundIn: self ] ] >>>> on: Dialect error >>>> do: [ :ex | self handleError: ex for: command ]. >>>> aBoolean >>>> ifTrue: [ result ] >>>> ifFalse: [ result upToEnd ] ] in >>>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>>> [ caught := true. >>>> self wait. >>>> blockValue := mutuallyExcludedBlock value ] in Semaphore>>critical: >>>> BlockClosure>>ensure: >>>> Semaphore>>critical: >>>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>>> [ session accessor executeCommand: command returnCursor: true ] in >>>> SimpleQuery>>rowsFromDatabaseWithParameters: >>>> BlockClosure>>on:do: >>>> SimpleQuery>>rowsFromDatabaseWithParameters: >>>> SimpleQuery(AbstractReadQuery)>>readFromDatabaseWithParameters: >>>> SimpleQuery(AbstractReadQuery)>>executeWithParameters:in: >>>> GlorpSession>>execute: >>>> GlorpSession>>readOneOf:where: >>>> TowergameDao>>findStateByAgent: >>>> [ | agent state | >>>> agent := self dao findAgentById: anObject agentId. >>>> state := self dao findStateByAgent: agent. >>>> ^ NeoJSONObject new >>>> agentId: agent id; >>>> stateVersion: state version; >>>> totalAnsweredQuestions: >>>> (NeoJSONObject new >>>> good: 0; >>>> bad: 0; >>>> yourself); >>>> yourself ] in Towergame>>clientSync: >>>> [ myUnitOfWork := self hasUnitOfWork not. >>>> myUnitOfWork >>>> ifTrue: [ self beginUnitOfWork ]. >>>> result := aBlock numArgs = 1 >>>> ifTrue: [ aBlock value: self ] >>>> ifFalse: [ aBlock value ]. >>>> myUnitOfWork >>>> ifTrue: [ self commitUnitOfWork ] ] in GlorpSession>>inUnitOfWorkDo: >>>> BlockClosure>>ifCurtailed: >>>> GlorpSession>>inUnitOfWorkDo: >>>> TowergameDao>>inUnitOfWorkDo: >>>> Towergame>>clientSync: >>>> TowergameSyncTests>>testPlayerChecksStateVersion >>>> TowergameSyncTests(TestCase)>>performTest >>>> [ self setUp. >>>> self performTest ] in TowergameSyncTests(TestCase)>>runCase >>>> BlockClosure>>ensure: >>>> TowergameSyncTests(TestCase)>>runCase >>>> [ aTestCase runCase ] in [ [ aTestCase runCase ] >>>> on: Halt >>>> do: [ :halt | >>>> "if test was halted we should resume all background failures >>>> to debug all of them together with test process" >>>> failedProcesses keysDo: #resume. >>>> halt pass ] ] in TestExecutionEnvironment>>runTestCaseSafelly: >>>> BlockClosure>>on:do: >>>> [ [ aTestCase runCase ] >>>> on: Halt >>>> do: [ :halt | >>>> "if test was halted we should resume all background failures >>>> to debug all of them together with test process" >>>> failedProcesses keysDo: #resume. >>>> halt pass ] ] in TestExecutionEnvironment>>runTestCaseSafelly: >>>> BlockClosure>>on:do: >>>> TestExecutionEnvironment>>runTestCaseSafelly: >>>> [ self runTestCaseSafelly: aTestCase ] in [ [ self runTestCaseSafelly: >>>> aTestCase ] >>>> ensure: [ testCompleted := true. >>>> watchDogSemaphore signal ]. "signal that test case completes" >>>> self checkForkedProcesses ] in TestExecutionEnvironment>>runTestCase: >>>> BlockClosure>>ensure: >>>> [ [ self runTestCaseSafelly: aTestCase ] >>>> ensure: [ tes tCompleted := true. >>>> watchDogSemaphore signal ]. "signal that test case completes" >>>> self checkForkedProcesses ] in TestExecutionEnvironment>>runTestCase: >>>> BlockClosure>>ifCurtailed: >>>> TestExecutionEnvironment>>runTestCase: >>>> [ testEnv runTestCase: aTestCase ] in >>>> DefaultExecutionEnvironment>>runTestCase: >>>> [ self value: anExecutionEnvironment. >>>> anExecutionEnvironment activated. >>>> aBlock value ] in CurrentExecutionEnvironment class>>activate:for: >>>> BlockClosure>>ensure: >>>> CurrentExecutionEnvironment class>>activate:for: >>>> TestExecutionEnvironment(ExecutionEnvironment)>>beActiveDuring: >>>> DefaultExecutionEnvironment>>runTestCase: >>>> CurrentExecutionEnvironment class>>runTestCase: >>>> TowergameSyncTests(TestCase)>>runCaseManaged >>>> [ aTestCase announce: TestCaseStarted withResult: self. >>>> aTestCase runCaseManaged. >>>> aTestCase announce: TestCaseEnded withResult: self. >>>> self addPass: aTestCase ] in TestResult>>runCaseForDeb ug: >>>> BlockClosure>>on:do: >>>> TestResult>>runCaseForDebug: >>>> [ result runCaseForDebug: self ] in TowergameSyncTests(TestCase)>>debug >>>> BlockClosure>>ensure: >>>> TowergameSyncTests(TestCase)>>debug >>>> [ :each | >>>> each debug. >>>> self announceTest: each. >>>> self changed: each ] in [ self tests >>>> do: [ :each | >>>> each debug. >>>> self announceTest: each. >>>> self changed: each ] ] in TestSuite>>debug >>>> OrderedCollection>>do: >>>> [ self tests >>>> do: [ :each | >>>> each debug. >>>> self announceTest: each. >>>> self changed: each ] ] in TestSuite>>debug >>>> BlockClosure>>ensure: >>>> TestSuite>>debug >>>> [ :aSuite | aSuite debug ] in TestRunner>>debugSuite: >>>> BlockClosure>>cull: >>>> BlockClosure>>cull:cull: >>>> [ aBlock cull: aTestSuite cull: result ] in TestRunner>>executeSuite:as: >>>> BlockClosure>>ensure: >>>> TestRunner>>executeSuite:as: >>>> TestRunner>>debugSuite: >>>> TestRunner>>debug: >>>> TestRunner>>errorSelected: >>>> PluggableLi stMorph>>changeModelSelection: >>>> PluggableListMorph>>mouseUpOnSingle: >>>> PluggableListMorph>>mouseUp: >>>> PluggableListMorph(Morph)>>handleMouseUp: >>>> MouseButtonEvent>>sentTo: >>>> PluggableListMorph(Morph)>>handleEvent: >>>> MorphicEventDispatcher>>dispatchDefault:with: >>>> MorphicEventDispatcher>>handleMouseUp: >>>> MouseButtonEvent>>sentTo: >>>> [ ^ anEvent sentTo: self ] in >>>> MorphicEventDispatcher>>dispatchEvent:with: >>>> BlockClosure>>ensure: >>>> MorphicEventDispatcher>>dispatchEvent:with: >>>> PluggableListMorph(Morph)>>processEvent:using: >>>> PluggableListMorph(Morph)>>processEvent: >>>> PluggableListMorph>>handleFocusEvent: >>>> [ ActiveHand := self. >>>> ActiveEvent := anEvent. >>>> result := focusHolder >>>> handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: >>>> self)) ] in HandMorph>>sendFocusEvent:to:clear: >>>> BlockClosure>>on:do: >>>> WorldMorph(PasteUpMorph)>>becomeActiveDuring: >>>> HandMorph>>sendFocusEvent:to:clear: >> >> HandMorph>>sendEvent:focus:clear: >>>> HandMorph>>sendMouseEvent: >>>> HandMorph>>handleEvent: >>>> HandMorph>>processEventsFromQueue: >>>> HandMorph>>processEvents >>>> [ :h | >>>> self activeHand: h. >>>> h processEvents. >>>> self activeHand: nil ] in WorldState>>doOneCycleNowFor: >>>> Array(SequenceableCollection)>>do: >>>> WorldState>>handsDo: >>>> WorldState>>doOneCycleNowFor: >>>> WorldState>>doOneCycleFor: >>>> WorldMorph>>doOneCycle >>>> WorldMorph class>>doOneCycle >>>> [ [ WorldMorph doOneCycle. >>>> Processor yield. >>>> false ] whileFalse: [ ] ] in MorphicUIManager>>spawnNewProcess >>>> [ self value. >>>> Processor terminateActive ] in BlockClosure>>newProcess >>>> >>>> >>>> >>>> And here's the code: >>>> >>>> >>>> Towergame.st: >>>> >>>> GlorpBlobType subclass: #GlorpBlob2Type >>>> instanceVariableNames: '' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> >>>> !GlorpBlob2Type methodsFor: 'types' stamp: 'HerbertVojÃÂÃÂ k 8/14/2017 >>>> 18:09:53'! >>>> converterForStType: aClass >>>> aClass = UUID ifTrue: [ ^ UuidConverter new ]. >>>> ^ super converterForStType: aClass! ! >>>> >>>> >>>> Object subclass: #TgAct >>>> instanceVariableNames: 'agent tool timestamp' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> !TgAct commentStamp: 'HerbyVojcik 8/5/2017 19:23' prior: 0! >>>> I represent a relationship between a player (TgAgent) >>>> and a device (TgTool). >>>> >>>> In particular, I am created whenever a player logs in to the game from >>>> different device >>>> than it was last time (or first time, ever).! >>>> >>>> >>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> agent >>>> ^ agent! ! >>>> >>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> agent: anObject >>>> agent := anObject! ! >>>> >>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:0 9:53'! >>>> timestamp: anObject >>>> timestamp := anObject! ! >>>> >>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> tool >>>> ^ tool! ! >>>> >>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> tool: anObject >>>> tool := anObject! ! >>>> >>>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> timestamp >>>> ^ timestamp! ! >>>> >>>> >>>> !TgAct methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> initialize >>>> >>>> super initialize. >>>> >>>> agent := nil. >>>> timestamp := DateAndTime now asUTC. >>>> tool := nil.! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TgAct class >>>> instanceVariableNames: ''! >>>> >>>> !TgAct class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> agent: aTgAgent tool: aTgTool >>>> ^ self new >>>> agent: aTgAgent; >>>> tool: aTgTool; >>>> yourself! ! >>>> >>>> >>>> Object subclass: #TgAgent >>>> instanceVariableNames: 'id' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> !TgAgent commentStamp: 'HerbyVojcik 8/5/2017 19:22' prior: 0! >>>> I represent a towergame player. >>>> >>>> I only contain player-related information; >>>> the game state itself is in TgState.! >>>> >>>> >>>> !TgAgent methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> initialize >>>> >>>> super initialize. >>>> >>>> id := nil.! ! >>>> >>>> >>>> !TgAgent methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> id: anObject >>>> id := anObject! ! >>>> >>>> !TgAgent methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> id >>>> ^ id! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TgAgent class >>>> instanceVariableNames: ''! >>>> >>>> !TgAgent class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> id: aString >>>> ^ self new >>>> id: aString; >>>> yourself! ! >>>> >>>> >>>> Object subclass: #TgAnswers >>>> instanceVariableNames: 'good bad' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> !TgAnswers commentStamp: 'HerbyVojcik 8/5/2017 20:23' prior: 0! >>>> I represent the answered question stats. >>>> >>>> I know how many good / bad answered questions there is.! >>>> >>>> >>>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> good >>>> ^ good! ! >>>> >>>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> bad: anObject >>>> bad := anObject! ! >>>> >>>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> bad >>>> ^ bad! ! >>>> >>>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> good : anObject >>>> good := anObject! ! >>>> >>>> >>>> !TgAnswers methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> initialize >>>> >>>> super initialize. >>>> >>>> bad := 0. >>>> good := 0.! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TgAnswers class >>>> instanceVariableNames: ''! >>>> >>>> !TgAnswers class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> good: anInteger bad: anInteger2 >>>> ^ self new >>>> good: anInteger; >>>> bad: anInteger2; >>>> yourself! ! >>>> >>>> >>>> Object subclass: #TgFloors >>>> instanceVariableNames: 'total reinforced' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> !TgFloors commentStamp: 'HerbyVojcik 8/5/2017 20:22' prior: 0! >>>> I represent the floor building status. >>>> >>>> I know how many floors are build and how many of them is reinforced.! >>>> >>>> >>>> !TgFloors methodsFor: 'accessin g' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> total >>>> ^ total! ! >>>> >>>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> total: anObject >>>> total := anObject! ! >>>> >>>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> reinforced >>>> ^ reinforced! ! >>>> >>>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> reinforced: anObject >>>> reinforced := anObject! ! >>>> >>>> >>>> !TgFloors methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> initialize >>>> >>>> super initialize. >>>> >>>> reinforced := 0. >>>> total := 0.! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TgFloors class >>>> instanceVariableNames: ''! >>>> >>>> !TgFloors class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> total: anInteger >>>> ^ self t otal: anInteger reinforced: 0! ! >>>> >>>> !TgFloors class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> total: anInteger reinforced: anInteger2 >>>> ^ self new >>>> total: anInteger; >>>> reinforced: anInteger2; >>>> yourself! ! >>>> >>>> >>>> Object subclass: #TgState >>>> instanceVariableNames: 'agent version packs valuables score bestScore >>>> answers' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> !TgState commentStamp: 'HerbyVojcik 8/5/2017 20:20' prior: 0! >>>> I represent the game state. >>>> >>>> I have relation to a player (TgAgent) and have a version. >>>> Then, I contain (directly or indirectly) other parts that >>>> make up the player's game state. >>>> >>>> Whenever I am changed by game progress, my version is changed as well.! >>>> >>>> >>>> !TgState methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> initialize >>>> >>>> super initialize. > >>> >>>> agent := nil. >>>> answers := nil. >>>> bestScore := nil. >>>> packs := Set new. >>>> score := nil. >>>> valuables := nil. >>>> version := nil.! ! >>>> >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> score: anObject >>>> score := anObject! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> bestScore: anObject >>>> bestScore := anObject! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> agent: anObject >>>> agent := anObject! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> score >>>> ^ score! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> packs >>>> ^ packs! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> version >>>> ^ version! ! >>>> >>>> !Tg State methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> bestScore >>>> ^ bestScore! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> agent >>>> ^ agent! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> answers: anObject >>>> answers := anObject! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> valuables: anObject >>>> valuables := anObject! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> valuables >>>> ^ valuables! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> version: anObject >>>> version := anObject! ! >>>> >>>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> answers >>>> ^ answers! ! >>>> >>>> !TgState methodsFor: 'accessi ng' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> packs: anObject >>>> packs := anObject! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TgState class >>>> instanceVariableNames: ''! >>>> >>>> !TgState class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> agent: aTgAgent version: aString >>>> ^ self new >>>> agent: aTgAgent; >>>> version: aString; >>>> yourself! ! >>>> >>>> >>>> Object subclass: #TgTool >>>> instanceVariableNames: 'id' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> !TgTool commentStamp: 'HerbyVojcik 8/5/2017 19:26' prior: 0! >>>> I represent the device (mobile phone, web browser, ..) >>>> that player uses to connect to game.! >>>> >>>> >>>> !TgTool methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> initialize >>>> >>>> super initialize. >>>> >>>> id := nil.! ! >>>> >>>> >>>> !TgTool methodsFor: ' accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> id: anObject >>>> id := anObject! ! >>>> >>>> !TgTool methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> id >>>> ^ id! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TgTool class >>>> instanceVariableNames: ''! >>>> >>>> !TgTool class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> id: aString >>>> ^ self new >>>> id: aString; >>>> yourself! ! >>>> >>>> >>>> Object subclass: #TgValuables >>>> instanceVariableNames: 'coins gems' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> !TgValuables commentStamp: 'HerbyVojcik 8/5/2017 20:22' prior: 0! >>>> I represent a purse. >>>> >>>> I know how many coins and gems there is.! >>>> >>>> >>>> !TgValuables methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> initialize >>>> >>>> super initia lize. >>>> >>>> coins := 0. >>>> gems := 0.! ! >>>> >>>> >>>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> gems: anObject >>>> gems := anObject! ! >>>> >>>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> coins: anObject >>>> coins := anObject! ! >>>> >>>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> gems >>>> ^ gems! ! >>>> >>>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> coins >>>> ^ coins! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TgValuables class >>>> instanceVariableNames: ''! >>>> >>>> !TgValuables class methodsFor: 'instance creation' stamp: >>>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>>> coins: anInteger gems: anInteger2 >>>> ^ self new >>>> coins: anInteger; >>>> gems: anInteger2; >>>> yourself! ! >>>> >>>> >>>> Object subclas s: #Towergame >>>> instanceVariableNames: 'dao' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> !Towergame commentStamp: 'HerbyVojcik 5/17/2017 17:19' prior: 0! >>>> I am the Towergame app class. >>>> >>>> I configure and start towergame server processing.! >>>> >>>> >>>> !Towergame methodsFor: 'actions' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> clientSync: anObject >>>> self dao inUnitOfWorkDo: [ >>>> | agent state | >>>> agent := self dao findAgentById: anObject agentId. >>>> state := self dao findStateByAgent: agent. >>>> ^ NeoJSONObject new >>>> agentId: agent id; >>>> stateVersion: state version; >>>> totalAnsweredQuestions: (NeoJSONObject new good: 0; bad: 0; yourself); >>>> yourself ]! ! >>>> >>>> >>>> !Towergame methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> initialize >>>> >>>> super initialize. >>>> >>>> dao := nil. >>>> ! ! >>>> >>>> >>>> !Towergame methodsFor: 'accessi ng' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> dao: anObject >>>> dao := anObject! ! >>>> >>>> !Towergame methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> dao >>>> ^ dao! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> Towergame class >>>> instanceVariableNames: 'default'! >>>> >>>> !Towergame class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> dao: aDao >>>> ^ self new >>>> dao: aDao; >>>> yourself! ! >>>> >>>> >>>> !Towergame class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> defaultDbLogin >>>> | databaseFile | >>>> databaseFile := Smalltalk imageDirectory asFileReference / >>>> 'towergame.db'. >>>> ^ Login new >>>> database: UDBCSQLite3Platform new; >>>> host: ''; >>>> port: ''; >>>> username: ''; >>>> password: ''; >>>> databaseName: databaseFile fullPath asZnUrl asString; >>>> yourself ! ! >>>> >>>> !Towerga me class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> default >>>> ^ default ifNil: [ default := self >>>> dao: (self daoForLogin: self defaultDbLogin) >>>> ]! ! >>>> >>>> !Towergame class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> defaultPort >>>> ^ 4998! ! >>>> >>>> >>>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> configureServer >>>> (self serverFor: self default on: self defaultPort) start; register >>>> ! ! >>>> >>>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> configureSqlite3 >>>> >>>> PharoDatabaseAccessor DefaultDriver: GlorpSQLite3Driver! ! >>>> >>>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> configure >>>> self configureSqlite3. >>>> self configureServer.! ! >>>> >>>> >>>> !Towergame class methodsFor: 'factory' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> daoForLogin: aLogin >>>> ^ TowergameDao forLogin: aLogin! ! >>>> >>>> !Towergame class methodsFor: 'factory' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> serverFor: aTowergame on: port >>>> ^ (ZnServer on: port) >>>> delegate: (TowergameDelegate on: aTowergame); >>>> yourself! ! >>>> >>>> >>>> Object subclass: #TowergameDao >>>> instanceVariableNames: 'glorpSession glorpLogin' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> >>>> !TowergameDao methodsFor: 'transactions' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> inUnitOfWorkDo: aBlock >>>> ^ self glorpSession inUnitOfWorkDo: aBlock! ! >>>> >>>> >>>> !TowergameDao methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> initialize >>>> >>>> super initialize. >>>> >>>> glorpLogin := nil. >>>> glorpSession := nil.! ! >>>> >>>> >>>> !TowergameDao methodsFor: 'initialize-rele ase' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> reset >>>> glorpSession := nil.! ! >>>> >>>> >>>> !TowergameDao methodsFor: 'query' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> findStateByAgent: anAgent >>>> ^ self glorpSession readOneOf: TgState where: [ :one | one agent = >>>> anAgent ]! ! >>>> >>>> !TowergameDao methodsFor: 'query' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> findAgentById: anUUID >>>> ^ self glorpSession readOneOf: TgAgent where: [ :one | one id = anUUID >>>> ]! ! >>>> >>>> >>>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> glorpLogin: anObject >>>> glorpLogin := anObject! ! >>>> >>>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> glorpLogin >>>> ^ glorpLogin! ! >>>> >>>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> glorpSession >>>> glorpSession ifNil: [ >>>> g lorpSession := TowergameDescriptorSystem sessionForLogin: self >>>> glorpLogin ]. >>>> glorpSession accessor isLoggedIn ifFalse: [ >>>> glorpSession accessor login ]. >>>> ^ glorpSession! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TowergameDao class >>>> instanceVariableNames: ''! >>>> >>>> !TowergameDao class methodsFor: 'instance creation' stamp: >>>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>>> forLogin: aLogin >>>> ^ self new >>>> glorpLogin: aLogin; >>>> yourself! ! >>>> >>>> >>>> ZnDispatcherDelegate subclass: #TowergameDelegate >>>> instanceVariableNames: 'towergame' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> >>>> !TowergameDelegate methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> towergame >>>> ^ towergame! ! >>>> >>>> !TowergameDelegate methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> towergame: anObject >>>> towergame := anObject! ! >>>> >>>> >>>> !TowergameDelegate methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> initialize >>>> super initialize. >>>> towergame := nil. >>>> self >>>> map: '/api/v1/sync' >>>> to: [ :request :response | self syncRequest: request toResponse: >>>> response ]! ! >>>> >>>> >>>> !TowergameDelegate methodsFor: 'action' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> syncRequest: request toResponse: response >>>> | requestPayload responsePayload uuidKeys | >>>> uuidKeys := #(agentId stateVersion deviceId). >>>> request method == #POST ifFalse: [ ^ ZnResponse methodNotAllowed: >>>> request ]. >>>> requestPayload := NeoJSONObject fromString: request contents. >>>> requestPayload ifNotNil: [ >>>> uuidKeys do: [ :each | requestPayload at: each ifPresentPut: [ :s | UUID >>>> fromString: s ] ] ]. >>>> responsePayload := self towergame clientSync: requestPayload. >>>> responsePayload ifNotNil: [ >>>> uuidKeys do: [ :each | responsePayload at: each ifPresentPut: #asString >>>> ] ]. >>>> ^ response >>>> entity: (ZnEntity >>>> with: (NeoJSONWriter toString: responsePayload) >>>> type: ZnMimeType applicationJson); >>>> yourself! ! >>>> >>>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>>> >>>> TowergameDelegate class >>>> instanceVariableNames: ''! >>>> >>>> !TowergameDelegate class methodsFor: 'instance creation' stamp: >>>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>>> on: aTowergame >>>> ^ self new towergame: aTowergame; yourself! ! >>>> >>>> >>>> DescriptorSystem subclass: #TowergameDescriptorSystem >>>> instanceVariableNames: 'uuidConverter' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> tableForAGENT: aTable >>>> >>>> (aTable createFieldNamed: 'id' type: platform blob2) bePrimaryKey. >>>> ! ! >>>> >>>> !TowergameDescriptorSyst em methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> classModelForTgAgent: aClassModel >>>> aClassModel >>>> newAttributeNamed: #id type: UUID! ! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbyVojcik >>>> 8/14/2017 18:24'! >>>> tableForSTATE: aTable >>>> >>>> (aTable createFieldNamed: 'agent' type: platform blob2) in: [ >>>> :agentField | >>>> agentField bePrimaryKey. >>>> aTable addForeignKeyFrom: agentField to: ((self tableNamed: 'AGENT') >>>> fieldNamed: 'id') ]. >>>> (aTable createFieldNamed: 'version' type: platform blob) beIndexed. >>>> ! ! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> descriptorForTgAgent: aDescriptor >>>> | table | >>>> table := self tableNamed: 'AGENT'. >>>> aDescriptor table: table. >>>> (aDescriptor newMapping: DirectMapping) >>>> from: #id to: (table fieldNamed: 'id').! ! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> tableForACT: aTable >>>> >>>> (aTable createFieldNamed: 'agent' type: platform blob2) beIndexed. >>>> (aTable createFieldNamed: 'tool' type: platform blob2) beIndexed. >>>> (aTable createFieldNamed: 'timestamp' type: platform timestamp) >>>> beIndexed. >>>> ! ! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> descriptorForTgState: aDescriptor >>>> | table | >>>> table := self tableNamed: 'STATE'. >>>> aDescriptor table: table. >>>> (aDescriptor newMapping: OneToOneMapping) attributeName: #agent. >>>> (aDescriptor newMapping: DirectMapping) >>>> from: #version to: (table fieldNamed: 'version').! ! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> converterBetweenStType: aClass andField: aField >>>> (aClass = UUID and: [ aField impliedSmalltalkType = ByteArray]) >>>> ifTrue: [ ^ self uuid Converter ]. >>>> ^ super converterBetweenStType: aClass andField: aField! ! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> classModelForTgState: aClassModel >>>> "agent version packs valuables score bestScore answers" >>>> aClassModel >>>> newAttributeNamed: #agent type: TgAgent; >>>> newAttributeNamed: #version type: UUID! ! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> classModelForTgTool: aClassModel >>>> aClassModel >>>> newAttributeNamed: #id >>>> ! ! >>>> >>>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> classModelForTgAct: aClassModel >>>> aClassModel >>>> newAttributeNamed: #timestamp; >>>> newAttributeNamed: #agent type: TgAgent; >>>> newAttributeNamed: #tool type: TgTool! ! >>>> >>>> >>>> !TowergameDescriptorSystem methodsFor: 'accessing' stamp: >>>> 'HerbertVojÃÂÃï¿½ ï¿½k 8/14/2017 18:09:53'! >>>> uuidConverter >>>> ^ uuidConverter ifNil: [ uuidConverter := UuidConverter new name: >>>> 'uuid'; yourself ]! ! >>>> >>>> >>>> DatabaseConverter subclass: #UuidConverter >>>> instanceVariableNames: '' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame'! >>>> >>>> !UuidConverter methodsFor: 'converting' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> convert: anObject toDatabaseRepresentationAs: aDatabaseType >>>> ^ anObject ifNotNil: [ ByteArray withAll: anObject ]! ! >>>> >>>> !UuidConverter methodsFor: 'converting' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> convert: anObject fromDatabaseRepresentationAs: aDatabaseType >>>> ^ anObject ifNotNil: [ UUID withAll: anObject ]! ! >>>> 'From Pharo6.0 of 13 May 2016 [Latest update: #60510] on 14 August 2017 >>>> at 6:26:30.67905 pm'! >>>> >>>> !DatabasePlatform methodsFor: '*Towergame' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> blob2 >>>> ^self typeNamed: #blob ifAbsentPut: [GlorpBlob2Type new].! ! >>>> 'From Pharo6.0 of 13 May 2016 [Latest update: #60510] on 14 August 2017 >>>> at 6:26:30.68005 pm'! >>>> >>>> !Dictionary methodsFor: '*Towergame' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>>> 18:09:53'! >>>> at: key ifPresentPut: aBlock >>>> "Lookup the given key in the receiver. If it is present, update it >>>> with the value of evaluating the given block with the value associated >>>> with the key. Otherwise, answer nil." >>>> >>>> ^ self at: key ifPresent: [ :value | self at: key put: (aBlock cull: >>>> value) ]! ! >>>> >>>> >>>> >>>> >>>> TowergameTests.st: >>>> >>>> TestCase subclass: #TowergameServerTests >>>> instanceVariableNames: 'randomPort towergame server' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame-Tests'! >>>> >>>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> uidy: aString >>>> ^ UUID fromString36: aSt ring ! ! >>>> >>>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> setUp >>>> randomPort := 1700 + 32 atRandom. >>>> towergame := Mock new. >>>> server := Towergame serverFor: towergame on: randomPort. >>>> server start. >>>> self >>>> assert: server isRunning& server isListening >>>> description: ('Failed to start server on port {1}. Is there one >>>> already?' format: { server port }) >>>> ! ! >>>> >>>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> tearDown >>>> server stop! ! >>>> >>>> >>>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> testEmptySyncRequest >>>> | znClient response | >>>> (towergame stub clientSync: Arg payload) willReturn: nil. >>>> znClient := self znClientForSync: 'null'. >>>> response := znClient timeout: 1; post; response. >>>> response should satisfy: #isSuccess. >>>> response contentTy pe should equal: ZnMimeType applicationJson. >>>> (STON fromString: response entity contents) should equal: nil. >>>> Arg payload should equal: nil! ! >>>> >>>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> testRejectEmptyGetSyncRequest >>>> | znClient response | >>>> (towergame stub clientSync: Arg payload) willReturn: nil. >>>> znClient := self znClientForSync: 'null'. >>>> response := znClient timeout: 1; get; response. >>>> response code should equal: ZnStatusLine methodNotAllowed code. >>>> towergame should not receive clientSync: Any! ! >>>> >>>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> testNonEmptySyncRequest >>>> | znClient response | >>>> (towergame stub clientSync: Arg payload) willReturn: { #agentId -> (self >>>> uidy: '007') } asDictionary. >>>> znClient := self znClientForSync: >>>> ('\{"deviceId":"{1}","agentAnsweredQuestions":\{"good":1,"bad":2\}\ }' >>>> format: { self uidy: 'Q' }). >>>> response := znClient timeout: 1; post; response. >>>> response should satisfy: #isSuccess. >>>> response contentType should equal: ZnMimeType applicationJson. >>>> (STON fromString: response entity contents) should equal: { 'agentId' -> >>>> (self uidy: '007') asString } asDictionary. >>>> Arg payload in: [ :arg | >>>> arg deviceId should equal: (self uidy: 'Q'). >>>> arg agentAnsweredQuestions should satisfy: #notNil. >>>> arg agentAnsweredQuestions good should equal: 1. >>>> arg agentAnsweredQuestions bad should equal: 2 ] >>>> ! ! >>>> >>>> >>>> !TowergameServerTests methodsFor: 'private' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> znClientForSync: jsonString >>>> ^ ZnClient new >>>> url: server localUrl; >>>> path: '/api/v1/sync'; >>>> entity: >>>> (ZnEntity >>>> with: jsonString >>>> type: ZnMimeType applicationJson) >>>> ! ! >>>> >>>> >>>> TestCase subclass: #TowergameSyncTests >>>> instanceVariableNames: 'towerga me session dao' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'Towergame-Tests'! >>>> >>>> !TowergameSyncTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> testPlayerChecksStateVersionAndIsBehind >>>> | result payload | >>>> session createTables. >>>> session inUnitOfWorkDo: [ >>>> | agent state | >>>> agent := TgAgent id: (self uidy: '007'). >>>> state := (TgState agent: agent version: (self uidy: '18-eff')) >>>> packs: #('foopack' 'barpack') asSet; >>>> valuables: (TgValuables coins: 20 gems: 3); >>>> score: (TgFloors total: 4 reinforced: 1); >>>> bestScore: (TgFloors total: 18); >>>> answers: (TgAnswers good: 2 bad: 3); >>>> yourself. >>>> session registerAll: {state. TgAct agent: agent tool: (TgTool id: (self >>>> uidy: 'Q7') ) } ]. >>>> towergame := Towergame dao: dao. >>>> payload := NeoJSONObject new >>>> agentId: (self uidy: '007'); stateVersion: (self uidy: '23-fefe'); >>>> deviceId: (self uidy: 'Q7'). >>>> res ult := towergame clientSync: payload. >>>> result where agentId should equal: (self uidy: '007'). >>>> result where stateVersion should equal: (self uidy: '18-eff'). >>>> result where purchasedPacks should satisfy: [ :x | x asSet should equal: >>>> #('foopack' 'barpack') asSet ]. >>>> result where valuables coins should equal: 20. >>>> result where valuables gems should equal: 3. >>>> result where floorsNumber current should equal: 4. >>>> result where floorsNumber best should equal: 18. >>>> result where floorsNumber reinforced should equal: 1. >>>> result where agentAnsweredQuestions good should equal: 2. >>>> result where agentAnsweredQuestions bad should equal: 3. >>>> result where totalAnsweredQuestions good should equal: 2. >>>> result where totalAnsweredQuestions bad should equal: 3! ! >>>> >>>> !TowergameSyncTests methodsFor: 'tests' stamp: 'HerbyVojcik 8/14/2017 >>>> 18:18'! >>>> testPlayerChecksStateVersion >>>> | result payload | >>>> session createTables. >>>> ses sion inUnitOfWorkDo: [ >>>> | agent state | >>>> agent := TgAgent id: (self uidy: '007'). >>>> state := TgState agent: agent version: (self uidy: '23-fefe'). >>>> session registerAll: {state. TgAct agent: agent tool: (TgTool id: (self >>>> uidy: 'Q7') ) } ]. >>>> towergame := Towergame dao: dao. >>>> payload := NeoJSONObject new >>>> agentId: (self uidy: '007'); stateVersion: (self uidy: '23-fefe'); >>>> deviceId: (self uidy: 'Q7'). >>>> result := towergame clientSync: payload. >>>> result where agentId should equal: (self uidy: '007'). >>>> result where stateVersion should equal: (self uidy: '23-fefe'). >>>> result where totalAnsweredQuestions good should equal: 0. >>>> result where totalAnsweredQuestions bad should equal: 0! ! >>>> >>>> >>>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> uidy: aString >>>> ^ UUID fromString36: aString ! ! >>>> >>>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>> > 8/14/2017 18:09:53'! >>>> setUp >>>> dao := Towergame daoForLogin: self loginToTemporaryDatabase. >>>> session := dao glorpSession. >>>> ! ! >>>> >>>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> tearDown >>>> session logout! ! >>>> >>>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbyVojcik 8/14/2017 >>>> 18:16'! >>>> loginToTemporaryDatabase >>>> ^ Login new >>>> database: UDBCSQLite3Platform new; >>>> host: ''; >>>> port: ''; >>>> username: ''; >>>> password: ''; >>>> databaseName: ''; >>>> yourself! ! >>>> >>>> >>>> >>>> >>>> >>>> BaselineOfTowergame.st: >>>> BaselineOf subclass: #BaselineOfTowergame >>>> instanceVariableNames: '' >>>> classVariableNames: '' >>>> poolDictionaries: '' >>>> category: 'BaselineOfTowergame'! >>>> >>>> !BaselineOfTowergame methodsFor: 'baseline' stamp: 'HerbertVojÃÂÃÂk >>>> 8/14/2017 18:09:53'! >>>> baseline: spec >>>> <baseline> >>>> spec for: #common do: [ spec >>>> >>>> pa ckage: 'Towergame' with: [ spec >>>> requires: #('GlorpSQLite' 'NeoJSON') ]; >>>> package: 'Towergame-Tests' with: [ spec >>>> requires: #('Towergame' 'Mocketry') ]; >>>> >>>> configuration: 'GlorpSQLite' with: [ spec >>>> version: #stable; >>>> repository: >>>> 'http://smalltalkhub.com/mc/Pharo/MetaRepoForPharo60/main' ]; >>>> configuration: 'NeoJSON' with: [ spec >>>> version: #stable; >>>> repository: >>>> 'http://smalltalkhub.com/mc/Pharo/MetaRepoForPharo60/main' ]; >>>> baseline: 'Mocketry' with: [ spec >>>> repository: 'github://dionisiydk/Mocketry:v4.0.x' ]; >>>> >>>> group: 'default' with: #('Core'); >>>> group: 'development' with: #('Core' 'Tests'); >>>> group: 'Core' with: #('Towergame'); >>>> group: 'Tests' with: #('Towergame-Tests') ] >>>> ! ! >>>> >>>> >>>> >>> >>> >> > >

Aug. 16, 2017

Re: [Pharo-users] Pharo 6.0 and 6.1 64 bit freeze on MacMini

by Esteban Lorenzano

> On 16 Aug 2017, at 16:55, Stephan Eggermont <stephan(a)stack.nl> wrote: > > Please try starting your Pharo image with a new squeak vm. I remember Tobias posting something on a full screen bug fix about a year ago, and don't know what happened with it. It was around the same time as his hiDPI fix, which triggered some garbage collection issue at the time. Some part of that was then reverted. anything that is in the squeak vm is also in the pharo vm now (since we merged). so this recommendation is obsolete (thanks to the gods :P). Esteban > > Stephan >

Aug. 16, 2017

Re: [Pharo-users] What is proper fix for this? (was: Re: Big Glorp problem w/ type coercion, pls help)

by Esteban Lorenzano

but if he is using Glorp for Pharo and cincom takes the bug and fixes it, it still will not hit Pharo until someone ports it. So, while I have literally no idea of what Herby is asking for, I encourage to keep discussion also here, then solution can hit both platforms. Esteban > On 16 Aug 2017, at 00:07, herby(a)mailbox.sk wrote: > > BTW I took the latter way (as method tries to be as optimized as > possible), it is in > http://smalltalkhub.com/#!/~herby/Glorp/versions/Glorp-HerbyVojcik.127, > consider merging in. Thanks. > > Herby VojÄÃk wrote: >> Hello! >> >> I think I found the culprit. Few methods posted here: >> >> >> Mapping >> expressionFor: anObject basedOn: anExpression relation: >> aSymbol >> "Return our expression using the object's values. e.g. if this was a >> direct mapping from id->ID and the object had id: 3, then return >> TABLE.ID=3. Used when rewriting object=object into field=field" >> >> | myValue result | >> myValue := self expressionFor: anObject. >> result := nil. >> myValue with: self join allTargetFields do: [:eachValue :eachField | >> | source | >> source := anExpression get: self attribute name. >> source hasDescriptor ifTrue: [source := source getField: eachField]. >> result := (source get: aSymbol withArguments: (Array with: eachValue)) >> AND: result]. >> ^result >> >> >> >> DirectMapping >> expressionFor: anObject basedOn: anExpression relation: >> aSymbol >> "Return our expression using the object's values. e.g. if this was a >> direct mapping from id->ID and the object had id: 3, then return >> TABLE.ID=3" >> >> | value | >> value := anObject isNil >> ifTrue: [nil] >> ifFalse: >> [anObject isGlorpExpression >> ifTrue: [anObject getMapping: self named: self attributeName] >> ifFalse: [anObject glorpIsCollection >> ifTrue: [anObject collect: [:each | attribute getValueFrom: each]] >> ifFalse: [attribute getValueFrom: anObject]]]. >> ^(anExpression get: self attribute name) get: aSymbol withArguments: >> (Array with: value) >> >> >> >> Mapping >> expressionFor: anObject >> "Return an expression representing the value of the object. This can be >> nil, an object value or values, an expression, or a collection of >> expressions (for a composite key, if we're passed an expression)" >> >> anObject isNil ifTrue: [^#(nil)]. >> anObject isGlorpExpression ifFalse: [ >> ^self mappedFields collect: [:each | >> self valueOfField: each fromObject: anObject]]. >> ^self mappedFields >> collect: [:each | (anObject getField: each)] >> >> >> >> Mapping >> getValueFrom: anObject >> >> ^self attribute getValueFrom: anObject >> >> >> >> DirectMapping >> valueOfField: aField fromObject: anObject >> field = aField ifFalse: [self error: 'Mapping doesn''t describe field']. >> ^self convertedDbValueOf: (self getValueFrom: anObject) >> >> >> >> DirectMapping >> mappedFields >> "Return a collection of fields that this mapping will write into any of >> the containing object's rows" >> >> ^Array with: self field >> >> >> The thing is, both Mapping >> expressionFor:basedOn:relation: and the >> overridden DirectMapping's version eventually send >> >> someSource get: aSymbol withArguments: (Array with: eachValue) >> >> but in Mapping's code, the value is taken from `myValue := self >> expressionFor: anObject`. which, as seen in #expressionFor: code, gets >> the value via >> >> self valueOfField: aMappedField fromObject: anObject >> >> and indeed, if tried aDirectMapping expressionFor: anObject in debugger, >> it gets the value of the primary key converted in the below case (that >> is, as a ByteArray). This is clear from the DirectMapping >> >> valueOfField:fromObject: code above, which does `self getValueFrom: >> anObject` (which passes it to `attribute getValueFrom: anObject`) >> _and_converts_it_. >> >> But in the overridden DirectMapping >> expressionFor:basedOn:relation:, >> the value to be passed in the >> >> someSource get: aSymbol withArguments: (Array with: value) >> >> is obtained by direct >> >> attribute getValueFrom: anObject >> >> but _is_not_converted_. IOW, it seems this method was heavily optimized >> (`attribute getValueFrom:` instead of `self getValueFrom:`, for >> example), but the conversion, normally present via expressionFor: and >> ultimately valueOfField:fromObject: was optimized away as well. >> >> >> >> >> Now, what is the correct way to fix the method (I hope you agree it is a >> bug)? >> >> >> This? >> >> DirectMapping >> expressionFor: anObject basedOn: anExpression relation: >> aSymbol >> "Return our expression using the object's values. e.g. if this was a >> direct mapping from id->ID and the object had id: 3, then return >> TABLE.ID=3" >> >> | value | >> value := anObject isNil >> ifTrue: [nil] >> ifFalse: >> [anObject isGlorpExpression >> ifTrue: [anObject getMapping: self named: self attributeName] >> ifFalse: [anObject glorpIsCollection >> ifTrue: [anObject collect: [:each | self valueOfField: aField >> fromObject: each]] >> ifFalse: [self valueOfField: aField fromObject: anObject]]]. >> ^(anExpression get: self attribute name) get: aSymbol withArguments: >> (Array with: value) >> >> >> >> or this? >> >> DirectMapping >> expressionFor: anObject basedOn: anExpression relation: >> aSymbol >> "Return our expression using the object's values. e.g. if this was a >> direct mapping from id->ID and the object had id: 3, then return >> TABLE.ID=3" >> >> | value | >> value := anObject isNil >> ifTrue: [nil] >> ifFalse: >> [anObject isGlorpExpression >> ifTrue: [anObject getMapping: self named: self attributeName] >> ifFalse: [anObject glorpIsCollection >> ifTrue: [anObject collect: [:each | self convertedDbValueOf: (attribute >> getValueFrom: each)]] >> ifFalse: [self convertedDbValueOf: (attribute getValueFrom: anObject)]]]. >> ^(anExpression get: self attribute name) get: aSymbol withArguments: >> (Array with: value) >> >> >> >> Or something completely different? >> >> >> Thanks, Herby >> >> Herby VojÄÃk wrote: >>> Hello! >>> >>> I encountered a problem with OneToOneMapping and type coercion. When >>> writing data, thing work; when reading data, the right child of relation >>> fails to convert. >>> >>> I tried everything possible to inject converters (even subclassing >>> GlorpBlobType), but to no avail. RelationExpression passes conversion to >>> its left child: >>> >>> convertedDbValueOf: anObject >>> "Assume that our types match, so we can ask either child to do the >>> conversion. That isn't guaranteed, but should at least work for the >>> common cases." >>> ^leftChild convertedDbValueOf: anObject. >>> >>> but the left child is FieldExpression in case of OneToOneMapping, which: >>> >>> convertedDbValueOf: anObject >>> "We don't do any conversion" >>> ^anObject >>> >>> What is strange, writing works (even the OneToOneMapping, I opened the >>> sqlite file with an explorer), but second SELECT, one using the relation >>> (`state := self dao findStateByAgent: agent` in clientSync), fails with >>> "GlorpDatabaseReadError: Could not coerce arguments". FWIW, the first >>> one _does_ convert when creating bindings, as it uses MappingExpression >>> as left child (stepped over it in debugger). >>> >>> >>> >>> Is it meant to be a strange case that primary key is something >>> non-primitive needing coercion (in this case, it is a UUID which needs >>> coercion to ByteArray, even if it is its subclass)? >>> >>> >>> >>> Here's the stack of running the test which fails: >>> >>> PharoDatabaseAccessor(DatabaseAccessor)>>handleError:for: >>> [ :ex | self handleError: ex for: command ] in [ | result | >>> self checkPermissionFor: command. >>> result := [ (self useBinding and: [ command useBinding ]) >>> ifTrue: [ command executeBoundIn: self ] >>> ifFalse: [ command executeUnboundIn: self ] ] >>> on: Dialect error >>> do: [ :ex | self handleError: ex for: command ]. >>> aBoolean >>> ifTrue: [ result ] >>> ifFalse: [ result upToEnd ] ] in >>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>> BlockClosure>>cull: >>> Context>>evaluateSignal: >>> Context>>handleSignal: >>> Error(Exception)>>signal >>> Error(Exception)>>signal: >>> ExternalLibraryFunction(Object)>>error: >>> ExternalLibraryFunction(Object)>>externalCallFailed >>> ExternalLibraryFunction(ExternalFunction)>>invokeWithArguments: >>> UDBCSQLite3Library>>apiBindBlob:atColumn:with:with:with: >>> UDBCSQLite3Library>>with:at:putBlob: >>> UDBCSQLite3Statement>>at:putByteArray: >>> UDBCSQLite3ResultSet>>execute:withIndex:withValue: >>> [ :v | i := self execute: statement withIndex: i withValue: v ] in >>> UDBCSQLite3ResultSet>>execute:withCollection: >>> OrderedCollection>>do: >>> UDBCSQLite3ResultSet>>execute:withCollection: >>> UDBCSQLite3ResultSet>>execute:with:on: >>> UDBCSQLite3Connection>>execute:with: >>> GlorpSQLite3Driver>>basicExecuteSQLString:binding: >>> PharoDatabaseAccessor>>executeCommandBound: >>> QuerySelectCommand(DatabaseCommand)>>executeBoundIn: >>> [ (self useBinding and: [ command useBinding ]) >>> ifTrue: [ command executeBoundIn: self ] >>> ifFalse: [ command executeUnboundIn: self ] ] in [ | result | >>> self checkPermissionFor: command. >>> result := [ (self useBinding and: [ command useBinding ]) >>> ifTrue: [ command executeBoundIn: self ] >>> ifFalse: [ command executeUnboundIn: self ] ] >>> on: Dialect error >>> do: [ :ex | self handleError: ex for: command ]. >>> aBoolean >>> ifTrue: [ result ] >>> ifFalse: [ result upToEnd ] ] in >>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>> BlockClosure>>on:do: >>> [ | result | >>> self checkPermissionFor: command. >>> result := [ (self useBinding and: [ command useBinding ]) >>> ifTrue: [ command executeBoundIn: self ] >>> ifFalse: [ command executeUnboundIn: self ] ] >>> on: Dialect error >>> do: [ :ex | self handleError: ex for: command ]. >>> aBoolean >>> ifTrue: [ result ] >>> ifFalse: [ result upToEnd ] ] in >>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>> [ caught := true. >>> self wait. >>> blockValue := mutuallyExcludedBlock value ] in Semaphore>>critical: >>> BlockClosure>>ensure: >>> Semaphore>>critical: >>> PharoDatabaseAccessor(DatabaseAccessor)>>executeCommand:returnCursor: >>> [ session accessor executeCommand: command returnCursor: true ] in >>> SimpleQuery>>rowsFromDatabaseWithParameters: >>> BlockClosure>>on:do: >>> SimpleQuery>>rowsFromDatabaseWithParameters: >>> SimpleQuery(AbstractReadQuery)>>readFromDatabaseWithParameters: >>> SimpleQuery(AbstractReadQuery)>>executeWithParameters:in: >>> GlorpSession>>execute: >>> GlorpSession>>readOneOf:where: >>> TowergameDao>>findStateByAgent: >>> [ | agent state | >>> agent := self dao findAgentById: anObject agentId. >>> state := self dao findStateByAgent: agent. >>> ^ NeoJSONObject new >>> agentId: agent id; >>> stateVersion: state version; >>> totalAnsweredQuestions: >>> (NeoJSONObject new >>> good: 0; >>> bad: 0; >>> yourself); >>> yourself ] in Towergame>>clientSync: >>> [ myUnitOfWork := self hasUnitOfWork not. >>> myUnitOfWork >>> ifTrue: [ self beginUnitOfWork ]. >>> result := aBlock numArgs = 1 >>> ifTrue: [ aBlock value: self ] >>> ifFalse: [ aBlock value ]. >>> myUnitOfWork >>> ifTrue: [ self commitUnitOfWork ] ] in GlorpSession>>inUnitOfWorkDo: >>> BlockClosure>>ifCurtailed: >>> GlorpSession>>inUnitOfWorkDo: >>> TowergameDao>>inUnitOfWorkDo: >>> Towergame>>clientSync: >>> TowergameSyncTests>>testPlayerChecksStateVersion >>> TowergameSyncTests(TestCase)>>performTest >>> [ self setUp. >>> self performTest ] in TowergameSyncTests(TestCase)>>runCase >>> BlockClosure>>ensure: >>> TowergameSyncTests(TestCase)>>runCase >>> [ aTestCase runCase ] in [ [ aTestCase runCase ] >>> on: Halt >>> do: [ :halt | >>> "if test was halted we should resume all background failures >>> to debug all of them together with test process" >>> failedProcesses keysDo: #resume. >>> halt pass ] ] in TestExecutionEnvironment>>runTestCaseSafelly: >>> BlockClosure>>on:do: >>> [ [ aTestCase runCase ] >>> on: Halt >>> do: [ :halt | >>> "if test was halted we should resume all background failures >>> to debug all of them together with test process" >>> failedProcesses keysDo: #resume. >>> halt pass ] ] in TestExecutionEnvironment>>runTestCaseSafelly: >>> BlockClosure>>on:do: >>> TestExecutionEnvironment>>runTestCaseSafelly: >>> [ self runTestCaseSafelly: aTestCase ] in [ [ self runTestCaseSafelly: >>> aTestCase ] >>> ensure: [ testCompleted := true. >>> watchDogSemaphore signal ]. "signal that test case completes" >>> self checkForkedProcesses ] in TestExecutionEnvironment>>runTestCase: >>> BlockClosure>>ensure: >>> [ [ self runTestCaseSafelly: aTestCase ] >>> ensure: [ testCompleted := true. >>> watchDogSemaphore signal ]. "signal that test case completes" >>> self checkForkedProcesses ] in TestExecutionEnvironment>>runTestCase: >>> BlockClosure>>ifCurtailed: >>> TestExecutionEnvironment>>runTestCase: >>> [ testEnv runTestCase: aTestCase ] in >>> DefaultExecutionEnvironment>>runTestCase: >>> [ self value: anExecutionEnvironment. >>> anExecutionEnvironment activated. >>> aBlock value ] in CurrentExecutionEnvironment class>>activate:for: >>> BlockClosure>>ensure: >>> CurrentExecutionEnvironment class>>activate:for: >>> TestExecutionEnvironment(ExecutionEnvironment)>>beActiveDuring: >>> DefaultExecutionEnvironment>>runTestCase: >>> CurrentExecutionEnvironment class>>runTestCase: >>> TowergameSyncTests(TestCase)>>runCaseManaged >>> [ aTestCase announce: TestCaseStarted withResult: self. >>> aTestCase runCaseManaged. >>> aTestCase announce: TestCaseEnded withResult: self. >>> self addPass: aTestCase ] in TestResult>>runCaseForDebug: >>> BlockClosure>>on:do: >>> TestResult>>runCaseForDebug: >>> [ result runCaseForDebug: self ] in TowergameSyncTests(TestCase)>>debug >>> BlockClosure>>ensure: >>> TowergameSyncTests(TestCase)>>debug >>> [ :each | >>> each debug. >>> self announceTest: each. >>> self changed: each ] in [ self tests >>> do: [ :each | >>> each debug. >>> self announceTest: each. >>> self changed: each ] ] in TestSuite>>debug >>> OrderedCollection>>do: >>> [ self tests >>> do: [ :each | >>> each debug. >>> self announceTest: each. >>> self changed: each ] ] in TestSuite>>debug >>> BlockClosure>>ensure: >>> TestSuite>>debug >>> [ :aSuite | aSuite debug ] in TestRunner>>debugSuite: >>> BlockClosure>>cull: >>> BlockClosure>>cull:cull: >>> [ aBlock cull: aTestSuite cull: result ] in TestRunner>>executeSuite:as: >>> BlockClosure>>ensure: >>> TestRunner>>executeSuite:as: >>> TestRunner>>debugSuite: >>> TestRunner>>debug: >>> TestRunner>>errorSelected: >>> PluggableListMorph>>changeModelSelection: >>> PluggableListMorph>>mouseUpOnSingle: >>> PluggableListMorph>>mouseUp: >>> PluggableListMorph(Morph)>>handleMouseUp: >>> MouseButtonEvent>>sentTo: >>> PluggableListMorph(Morph)>>handleEvent: >>> MorphicEventDispatcher>>dispatchDefault:with: >>> MorphicEventDispatcher>>handleMouseUp: >>> MouseButtonEvent>>sentTo: >>> [ ^ anEvent sentTo: self ] in >>> MorphicEventDispatcher>>dispatchEvent:with: >>> BlockClosure>>ensure: >>> MorphicEventDispatcher>>dispatchEvent:with: >>> PluggableListMorph(Morph)>>processEvent:using: >>> PluggableListMorph(Morph)>>processEvent: >>> PluggableListMorph>>handleFocusEvent: >>> [ ActiveHand := self. >>> ActiveEvent := anEvent. >>> result := focusHolder >>> handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: >>> self)) ] in HandMorph>>sendFocusEvent:to:clear: >>> BlockClosure>>on:do: >>> WorldMorph(PasteUpMorph)>>becomeActiveDuring: >>> HandMorph>>sendFocusEvent:to:clear: >>> HandMorph>>sendEvent:focus:clear: >>> HandMorph>>sendMouseEvent: >>> HandMorph>>handleEvent: >>> HandMorph>>processEventsFromQueue: >>> HandMorph>>processEvents >>> [ :h | >>> self activeHand: h. >>> h processEvents. >>> self activeHand: nil ] in WorldState>>doOneCycleNowFor: >>> Array(SequenceableCollection)>>do: >>> WorldState>>handsDo: >>> WorldState>>doOneCycleNowFor: >>> WorldState>>doOneCycleFor: >>> WorldMorph>>doOneCycle >>> WorldMorph class>>doOneCycle >>> [ [ WorldMorph doOneCycle. >>> Processor yield. >>> false ] whileFalse: [ ] ] in MorphicUIManager>>spawnNewProcess >>> [ self value. >>> Processor terminateActive ] in BlockClosure>>newProcess >>> >>> >>> >>> And here's the code: >>> >>> >>> Towergame.st: >>> >>> GlorpBlobType subclass: #GlorpBlob2Type >>> instanceVariableNames: '' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> >>> !GlorpBlob2Type methodsFor: 'types' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> converterForStType: aClass >>> aClass = UUID ifTrue: [ ^ UuidConverter new ]. >>> ^ super converterForStType: aClass! ! >>> >>> >>> Object subclass: #TgAct >>> instanceVariableNames: 'agent tool timestamp' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> !TgAct commentStamp: 'HerbyVojcik 8/5/2017 19:23' prior: 0! >>> I represent a relationship between a player (TgAgent) >>> and a device (TgTool). >>> >>> In particular, I am created whenever a player logs in to the game from >>> different device >>> than it was last time (or first time, ever).! >>> >>> >>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> agent >>> ^ agent! ! >>> >>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> agent: anObject >>> agent := anObject! ! >>> >>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> timestamp: anObject >>> timestamp := anObject! ! >>> >>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> tool >>> ^ tool! ! >>> >>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> tool: anObject >>> tool := anObject! ! >>> >>> !TgAct methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> timestamp >>> ^ timestamp! ! >>> >>> >>> !TgAct methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> agent := nil. >>> timestamp := DateAndTime now asUTC. >>> tool := nil.! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TgAct class >>> instanceVariableNames: ''! >>> >>> !TgAct class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> agent: aTgAgent tool: aTgTool >>> ^ self new >>> agent: aTgAgent; >>> tool: aTgTool; >>> yourself! ! >>> >>> >>> Object subclass: #TgAgent >>> instanceVariableNames: 'id' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> !TgAgent commentStamp: 'HerbyVojcik 8/5/2017 19:22' prior: 0! >>> I represent a towergame player. >>> >>> I only contain player-related information; >>> the game state itself is in TgState.! >>> >>> >>> !TgAgent methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> id := nil.! ! >>> >>> >>> !TgAgent methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> id: anObject >>> id := anObject! ! >>> >>> !TgAgent methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> id >>> ^ id! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TgAgent class >>> instanceVariableNames: ''! >>> >>> !TgAgent class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> id: aString >>> ^ self new >>> id: aString; >>> yourself! ! >>> >>> >>> Object subclass: #TgAnswers >>> instanceVariableNames: 'good bad' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> !TgAnswers commentStamp: 'HerbyVojcik 8/5/2017 20:23' prior: 0! >>> I represent the answered question stats. >>> >>> I know how many good / bad answered questions there is.! >>> >>> >>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> good >>> ^ good! ! >>> >>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> bad: anObject >>> bad := anObject! ! >>> >>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> bad >>> ^ bad! ! >>> >>> !TgAnswers methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> good: anObject >>> good := anObject! ! >>> >>> >>> !TgAnswers methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> bad := 0. >>> good := 0.! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TgAnswers class >>> instanceVariableNames: ''! >>> >>> !TgAnswers class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> good: anInteger bad: anInteger2 >>> ^ self new >>> good: anInteger; >>> bad: anInteger2; >>> yourself! ! >>> >>> >>> Object subclass: #TgFloors >>> instanceVariableNames: 'total reinforced' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> !TgFloors commentStamp: 'HerbyVojcik 8/5/2017 20:22' prior: 0! >>> I represent the floor building status. >>> >>> I know how many floors are build and how many of them is reinforced.! >>> >>> >>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> total >>> ^ total! ! >>> >>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> total: anObject >>> total := anObject! ! >>> >>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> reinforced >>> ^ reinforced! ! >>> >>> !TgFloors methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> reinforced: anObject >>> reinforced := anObject! ! >>> >>> >>> !TgFloors methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> reinforced := 0. >>> total := 0.! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TgFloors class >>> instanceVariableNames: ''! >>> >>> !TgFloors class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> total: anInteger >>> ^ self total: anInteger reinforced: 0! ! >>> >>> !TgFloors class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> total: anInteger reinforced: anInteger2 >>> ^ self new >>> total: anInteger; >>> reinforced: anInteger2; >>> yourself! ! >>> >>> >>> Object subclass: #TgState >>> instanceVariableNames: 'agent version packs valuables score bestScore >>> answers' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> !TgState commentStamp: 'HerbyVojcik 8/5/2017 20:20' prior: 0! >>> I represent the game state. >>> >>> I have relation to a player (TgAgent) and have a version. >>> Then, I contain (directly or indirectly) other parts that >>> make up the player's game state. >>> >>> Whenever I am changed by game progress, my version is changed as well.! >>> >>> >>> !TgState methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> agent := nil. >>> answers := nil. >>> bestScore := nil. >>> packs := Set new. >>> score := nil. >>> valuables := nil. >>> version := nil.! ! >>> >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> score: anObject >>> score := anObject! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> bestScore: anObject >>> bestScore := anObject! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> agent: anObject >>> agent := anObject! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> score >>> ^ score! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> packs >>> ^ packs! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> version >>> ^ version! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> bestScore >>> ^ bestScore! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> agent >>> ^ agent! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> answers: anObject >>> answers := anObject! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> valuables: anObject >>> valuables := anObject! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> valuables >>> ^ valuables! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> version: anObject >>> version := anObject! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> answers >>> ^ answers! ! >>> >>> !TgState methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> packs: anObject >>> packs := anObject! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TgState class >>> instanceVariableNames: ''! >>> >>> !TgState class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> agent: aTgAgent version: aString >>> ^ self new >>> agent: aTgAgent; >>> version: aString; >>> yourself! ! >>> >>> >>> Object subclass: #TgTool >>> instanceVariableNames: 'id' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> !TgTool commentStamp: 'HerbyVojcik 8/5/2017 19:26' prior: 0! >>> I represent the device (mobile phone, web browser, ..) >>> that player uses to connect to game.! >>> >>> >>> !TgTool methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> id := nil.! ! >>> >>> >>> !TgTool methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> id: anObject >>> id := anObject! ! >>> >>> !TgTool methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> id >>> ^ id! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TgTool class >>> instanceVariableNames: ''! >>> >>> !TgTool class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> id: aString >>> ^ self new >>> id: aString; >>> yourself! ! >>> >>> >>> Object subclass: #TgValuables >>> instanceVariableNames: 'coins gems' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> !TgValuables commentStamp: 'HerbyVojcik 8/5/2017 20:22' prior: 0! >>> I represent a purse. >>> >>> I know how many coins and gems there is.! >>> >>> >>> !TgValuables methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> coins := 0. >>> gems := 0.! ! >>> >>> >>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> gems: anObject >>> gems := anObject! ! >>> >>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> coins: anObject >>> coins := anObject! ! >>> >>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> gems >>> ^ gems! ! >>> >>> !TgValuables methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> coins >>> ^ coins! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TgValuables class >>> instanceVariableNames: ''! >>> >>> !TgValuables class methodsFor: 'instance creation' stamp: >>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>> coins: anInteger gems: anInteger2 >>> ^ self new >>> coins: anInteger; >>> gems: anInteger2; >>> yourself! ! >>> >>> >>> Object subclass: #Towergame >>> instanceVariableNames: 'dao' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> !Towergame commentStamp: 'HerbyVojcik 5/17/2017 17:19' prior: 0! >>> I am the Towergame app class. >>> >>> I configure and start towergame server processing.! >>> >>> >>> !Towergame methodsFor: 'actions' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> clientSync: anObject >>> self dao inUnitOfWorkDo: [ >>> | agent state | >>> agent := self dao findAgentById: anObject agentId. >>> state := self dao findStateByAgent: agent. >>> ^ NeoJSONObject new >>> agentId: agent id; >>> stateVersion: state version; >>> totalAnsweredQuestions: (NeoJSONObject new good: 0; bad: 0; yourself); >>> yourself ]! ! >>> >>> >>> !Towergame methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> dao := nil. >>> ! ! >>> >>> >>> !Towergame methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> dao: anObject >>> dao := anObject! ! >>> >>> !Towergame methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> dao >>> ^ dao! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> Towergame class >>> instanceVariableNames: 'default'! >>> >>> !Towergame class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> dao: aDao >>> ^ self new >>> dao: aDao; >>> yourself! ! >>> >>> >>> !Towergame class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> defaultDbLogin >>> | databaseFile | >>> databaseFile := Smalltalk imageDirectory asFileReference / >>> 'towergame.db'. >>> ^ Login new >>> database: UDBCSQLite3Platform new; >>> host: ''; >>> port: ''; >>> username: ''; >>> password: ''; >>> databaseName: databaseFile fullPath asZnUrl asString; >>> yourself ! ! >>> >>> !Towergame class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> default >>> ^ default ifNil: [ default := self >>> dao: (self daoForLogin: self defaultDbLogin) >>> ]! ! >>> >>> !Towergame class methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> defaultPort >>> ^ 4998! ! >>> >>> >>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> configureServer >>> (self serverFor: self default on: self defaultPort) start; register >>> ! ! >>> >>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> configureSqlite3 >>> >>> PharoDatabaseAccessor DefaultDriver: GlorpSQLite3Driver! ! >>> >>> !Towergame class methodsFor: 'configuration' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> configure >>> self configureSqlite3. >>> self configureServer.! ! >>> >>> >>> !Towergame class methodsFor: 'factory' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> daoForLogin: aLogin >>> ^ TowergameDao forLogin: aLogin! ! >>> >>> !Towergame class methodsFor: 'factory' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> serverFor: aTowergame on: port >>> ^ (ZnServer on: port) >>> delegate: (TowergameDelegate on: aTowergame); >>> yourself! ! >>> >>> >>> Object subclass: #TowergameDao >>> instanceVariableNames: 'glorpSession glorpLogin' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> >>> !TowergameDao methodsFor: 'transactions' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> inUnitOfWorkDo: aBlock >>> ^ self glorpSession inUnitOfWorkDo: aBlock! ! >>> >>> >>> !TowergameDao methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> initialize >>> >>> super initialize. >>> >>> glorpLogin := nil. >>> glorpSession := nil.! ! >>> >>> >>> !TowergameDao methodsFor: 'initialize-release' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> reset >>> glorpSession := nil.! ! >>> >>> >>> !TowergameDao methodsFor: 'query' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> findStateByAgent: anAgent >>> ^ self glorpSession readOneOf: TgState where: [ :one | one agent = >>> anAgent ]! ! >>> >>> !TowergameDao methodsFor: 'query' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> findAgentById: anUUID >>> ^ self glorpSession readOneOf: TgAgent where: [ :one | one id = anUUID >>> ]! ! >>> >>> >>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> glorpLogin: anObject >>> glorpLogin := anObject! ! >>> >>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> glorpLogin >>> ^ glorpLogin! ! >>> >>> !TowergameDao methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> glorpSession >>> glorpSession ifNil: [ >>> glorpSession := TowergameDescriptorSystem sessionForLogin: self >>> glorpLogin ]. >>> glorpSession accessor isLoggedIn ifFalse: [ >>> glorpSession accessor login ]. >>> ^ glorpSession! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TowergameDao class >>> instanceVariableNames: ''! >>> >>> !TowergameDao class methodsFor: 'instance creation' stamp: >>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>> forLogin: aLogin >>> ^ self new >>> glorpLogin: aLogin; >>> yourself! ! >>> >>> >>> ZnDispatcherDelegate subclass: #TowergameDelegate >>> instanceVariableNames: 'towergame' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> >>> !TowergameDelegate methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> towergame >>> ^ towergame! ! >>> >>> !TowergameDelegate methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> towergame: anObject >>> towergame := anObject! ! >>> >>> >>> !TowergameDelegate methodsFor: 'initialization' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> initialize >>> super initialize. >>> towergame := nil. >>> self >>> map: '/api/v1/sync' >>> to: [ :request :response | self syncRequest: request toResponse: >>> response ]! ! >>> >>> >>> !TowergameDelegate methodsFor: 'action' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> syncRequest: request toResponse: response >>> | requestPayload responsePayload uuidKeys | >>> uuidKeys := #(agentId stateVersion deviceId). >>> request method == #POST ifFalse: [ ^ ZnResponse methodNotAllowed: >>> request ]. >>> requestPayload := NeoJSONObject fromString: request contents. >>> requestPayload ifNotNil: [ >>> uuidKeys do: [ :each | requestPayload at: each ifPresentPut: [ :s | UUID >>> fromString: s ] ] ]. >>> responsePayload := self towergame clientSync: requestPayload. >>> responsePayload ifNotNil: [ >>> uuidKeys do: [ :each | responsePayload at: each ifPresentPut: #asString >>> ] ]. >>> ^ response >>> entity: (ZnEntity >>> with: (NeoJSONWriter toString: responsePayload) >>> type: ZnMimeType applicationJson); >>> yourself! ! >>> >>> "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! >>> >>> TowergameDelegate class >>> instanceVariableNames: ''! >>> >>> !TowergameDelegate class methodsFor: 'instance creation' stamp: >>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>> on: aTowergame >>> ^ self new towergame: aTowergame; yourself! ! >>> >>> >>> DescriptorSystem subclass: #TowergameDescriptorSystem >>> instanceVariableNames: 'uuidConverter' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> tableForAGENT: aTable >>> >>> (aTable createFieldNamed: 'id' type: platform blob2) bePrimaryKey. >>> ! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> classModelForTgAgent: aClassModel >>> aClassModel >>> newAttributeNamed: #id type: UUID! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbyVojcik >>> 8/14/2017 18:24'! >>> tableForSTATE: aTable >>> >>> (aTable createFieldNamed: 'agent' type: platform blob2) in: [ >>> :agentField | >>> agentField bePrimaryKey. >>> aTable addForeignKeyFrom: agentField to: ((self tableNamed: 'AGENT') >>> fieldNamed: 'id') ]. >>> (aTable createFieldNamed: 'version' type: platform blob) beIndexed. >>> ! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> descriptorForTgAgent: aDescriptor >>> | table | >>> table := self tableNamed: 'AGENT'. >>> aDescriptor table: table. >>> (aDescriptor newMapping: DirectMapping) >>> from: #id to: (table fieldNamed: 'id').! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> tableForACT: aTable >>> >>> (aTable createFieldNamed: 'agent' type: platform blob2) beIndexed. >>> (aTable createFieldNamed: 'tool' type: platform blob2) beIndexed. >>> (aTable createFieldNamed: 'timestamp' type: platform timestamp) >>> beIndexed. >>> ! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> descriptorForTgState: aDescriptor >>> | table | >>> table := self tableNamed: 'STATE'. >>> aDescriptor table: table. >>> (aDescriptor newMapping: OneToOneMapping) attributeName: #agent. >>> (aDescriptor newMapping: DirectMapping) >>> from: #version to: (table fieldNamed: 'version').! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> converterBetweenStType: aClass andField: aField >>> (aClass = UUID and: [ aField impliedSmalltalkType = ByteArray]) >>> ifTrue: [ ^ self uuidConverter ]. >>> ^ super converterBetweenStType: aClass andField: aField! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> classModelForTgState: aClassModel >>> "agent version packs valuables score bestScore answers" >>> aClassModel >>> newAttributeNamed: #agent type: TgAgent; >>> newAttributeNamed: #version type: UUID! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> classModelForTgTool: aClassModel >>> aClassModel >>> newAttributeNamed: #id >>> ! ! >>> >>> !TowergameDescriptorSystem methodsFor: 'glorp' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> classModelForTgAct: aClassModel >>> aClassModel >>> newAttributeNamed: #timestamp; >>> newAttributeNamed: #agent type: TgAgent; >>> newAttributeNamed: #tool type: TgTool! ! >>> >>> >>> !TowergameDescriptorSystem methodsFor: 'accessing' stamp: >>> 'HerbertVojÃÂÃÂk 8/14/2017 18:09:53'! >>> uuidConverter >>> ^ uuidConverter ifNil: [ uuidConverter := UuidConverter new name: >>> 'uuid'; yourself ]! ! >>> >>> >>> DatabaseConverter subclass: #UuidConverter >>> instanceVariableNames: '' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame'! >>> >>> !UuidConverter methodsFor: 'converting' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> convert: anObject toDatabaseRepresentationAs: aDatabaseType >>> ^ anObject ifNotNil: [ ByteArray withAll: anObject ]! ! >>> >>> !UuidConverter methodsFor: 'converting' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> convert: anObject fromDatabaseRepresentationAs: aDatabaseType >>> ^ anObject ifNotNil: [ UUID withAll: anObject ]! ! >>> 'From Pharo6.0 of 13 May 2016 [Latest update: #60510] on 14 August 2017 >>> at 6:26:30.67905 pm'! >>> >>> !DatabasePlatform methodsFor: '*Towergame' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> blob2 >>> ^self typeNamed: #blob ifAbsentPut: [GlorpBlob2Type new].! ! >>> 'From Pharo6.0 of 13 May 2016 [Latest update: #60510] on 14 August 2017 >>> at 6:26:30.68005 pm'! >>> >>> !Dictionary methodsFor: '*Towergame' stamp: 'HerbertVojÃÂÃÂk 8/14/2017 >>> 18:09:53'! >>> at: key ifPresentPut: aBlock >>> "Lookup the given key in the receiver. If it is present, update it >>> with the value of evaluating the given block with the value associated >>> with the key. Otherwise, answer nil." >>> >>> ^ self at: key ifPresent: [ :value | self at: key put: (aBlock cull: >>> value) ]! ! >>> >>> >>> >>> >>> TowergameTests.st: >>> >>> TestCase subclass: #TowergameServerTests >>> instanceVariableNames: 'randomPort towergame server' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame-Tests'! >>> >>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> uidy: aString >>> ^ UUID fromString36: aString ! ! >>> >>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> setUp >>> randomPort := 1700 + 32 atRandom. >>> towergame := Mock new. >>> server := Towergame serverFor: towergame on: randomPort. >>> server start. >>> self >>> assert: server isRunning & server isListening >>> description: ('Failed to start server on port {1}. Is there one >>> already?' format: { server port }) >>> ! ! >>> >>> !TowergameServerTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> tearDown >>> server stop! ! >>> >>> >>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> testEmptySyncRequest >>> | znClient response | >>> (towergame stub clientSync: Arg payload) willReturn: nil. >>> znClient := self znClientForSync: 'null'. >>> response := znClient timeout: 1; post; response. >>> response should satisfy: #isSuccess. >>> response contentType should equal: ZnMimeType applicationJson. >>> (STON fromString: response entity contents) should equal: nil. >>> Arg payload should equal: nil! ! >>> >>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> testRejectEmptyGetSyncRequest >>> | znClient response | >>> (towergame stub clientSync: Arg payload) willReturn: nil. >>> znClient := self znClientForSync: 'null'. >>> response := znClient timeout: 1; get; response. >>> response code should equal: ZnStatusLine methodNotAllowed code. >>> towergame should not receive clientSync: Any! ! >>> >>> !TowergameServerTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> testNonEmptySyncRequest >>> | znClient response | >>> (towergame stub clientSync: Arg payload) willReturn: { #agentId -> (self >>> uidy: '007') } asDictionary. >>> znClient := self znClientForSync: >>> ('\{"deviceId":"{1}","agentAnsweredQuestions":\{"good":1,"bad":2\}\}' >>> format: { self uidy: 'Q' }). >>> response := znClient timeout: 1; post; response. >>> response should satisfy: #isSuccess. >>> response contentType should equal: ZnMimeType applicationJson. >>> (STON fromString: response entity contents) should equal: { 'agentId' -> >>> (self uidy: '007') asString } asDictionary. >>> Arg payload in: [ :arg | >>> arg deviceId should equal: (self uidy: 'Q'). >>> arg agentAnsweredQuestions should satisfy: #notNil. >>> arg agentAnsweredQuestions good should equal: 1. >>> arg agentAnsweredQuestions bad should equal: 2 ] >>> ! ! >>> >>> >>> !TowergameServerTests methodsFor: 'private' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> znClientForSync: jsonString >>> ^ ZnClient new >>> url: server localUrl; >>> path: '/api/v1/sync'; >>> entity: >>> (ZnEntity >>> with: jsonString >>> type: ZnMimeType applicationJson) >>> ! ! >>> >>> >>> TestCase subclass: #TowergameSyncTests >>> instanceVariableNames: 'towergame session dao' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'Towergame-Tests'! >>> >>> !TowergameSyncTests methodsFor: 'tests' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> testPlayerChecksStateVersionAndIsBehind >>> | result payload | >>> session createTables. >>> session inUnitOfWorkDo: [ >>> | agent state | >>> agent := TgAgent id: (self uidy: '007'). >>> state := (TgState agent: agent version: (self uidy: '18-eff')) >>> packs: #('foopack' 'barpack') asSet; >>> valuables: (TgValuables coins: 20 gems: 3); >>> score: (TgFloors total: 4 reinforced: 1); >>> bestScore: (TgFloors total: 18); >>> answers: (TgAnswers good: 2 bad: 3); >>> yourself. >>> session registerAll: {state. TgAct agent: agent tool: (TgTool id: (self >>> uidy: 'Q7') ) } ]. >>> towergame := Towergame dao: dao. >>> payload := NeoJSONObject new >>> agentId: (self uidy: '007'); stateVersion: (self uidy: '23-fefe'); >>> deviceId: (self uidy: 'Q7'). >>> result := towergame clientSync: payload. >>> result where agentId should equal: (self uidy: '007'). >>> result where stateVersion should equal: (self uidy: '18-eff'). >>> result where purchasedPacks should satisfy: [ :x | x asSet should equal: >>> #('foopack' 'barpack') asSet ]. >>> result where valuables coins should equal: 20. >>> result where valuables gems should equal: 3. >>> result where floorsNumber current should equal: 4. >>> result where floorsNumber best should equal: 18. >>> result where floorsNumber reinforced should equal: 1. >>> result where agentAnsweredQuestions good should equal: 2. >>> result where agentAnsweredQuestions bad should equal: 3. >>> result where totalAnsweredQuestions good should equal: 2. >>> result where totalAnsweredQuestions bad should equal: 3! ! >>> >>> !TowergameSyncTests methodsFor: 'tests' stamp: 'HerbyVojcik 8/14/2017 >>> 18:18'! >>> testPlayerChecksStateVersion >>> | result payload | >>> session createTables. >>> session inUnitOfWorkDo: [ >>> | agent state | >>> agent := TgAgent id: (self uidy: '007'). >>> state := TgState agent: agent version: (self uidy: '23-fefe'). >>> session registerAll: {state. TgAct agent: agent tool: (TgTool id: (self >>> uidy: 'Q7') ) } ]. >>> towergame := Towergame dao: dao. >>> payload := NeoJSONObject new >>> agentId: (self uidy: '007'); stateVersion: (self uidy: '23-fefe'); >>> deviceId: (self uidy: 'Q7'). >>> result := towergame clientSync: payload. >>> result where agentId should equal: (self uidy: '007'). >>> result where stateVersion should equal: (self uidy: '23-fefe'). >>> result where totalAnsweredQuestions good should equal: 0. >>> result where totalAnsweredQuestions bad should equal: 0! ! >>> >>> >>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> uidy: aString >>> ^ UUID fromString36: aString ! ! >>> >>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> setUp >>> dao := Towergame daoForLogin: self loginToTemporaryDatabase. >>> session := dao glorpSession. >>> ! ! >>> >>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> tearDown >>> session logout! ! >>> >>> !TowergameSyncTests methodsFor: 'running' stamp: 'HerbyVojcik 8/14/2017 >>> 18:16'! >>> loginToTemporaryDatabase >>> ^ Login new >>> database: UDBCSQLite3Platform new; >>> host: ''; >>> port: ''; >>> username: ''; >>> password: ''; >>> databaseName: ''; >>> yourself! ! >>> >>> >>> >>> >>> >>> BaselineOfTowergame.st: >>> BaselineOf subclass: #BaselineOfTowergame >>> instanceVariableNames: '' >>> classVariableNames: '' >>> poolDictionaries: '' >>> category: 'BaselineOfTowergame'! >>> >>> !BaselineOfTowergame methodsFor: 'baseline' stamp: 'HerbertVojÃÂÃÂk >>> 8/14/2017 18:09:53'! >>> baseline: spec >>> <baseline> >>> spec for: #common do: [ spec >>> >>> package: 'Towergame' with: [ spec >>> requires: #('GlorpSQLite' 'NeoJSON') ]; >>> package: 'Towergame-Tests' with: [ spec >>> requires: #('Towergame' 'Mocketry') ]; >>> >>> configuration: 'GlorpSQLite' with: [ spec >>> version: #stable; >>> repository: >>> 'http://smalltalkhub.com/mc/Pharo/MetaRepoForPharo60/main' ]; >>> configuration: 'NeoJSON' with: [ spec >>> version: #stable; >>> repository: >>> 'http://smalltalkhub.com/mc/Pharo/MetaRepoForPharo60/main' ]; >>> baseline: 'Mocketry' with: [ spec >>> repository: 'github://dionisiydk/Mocketry:v4.0.x' ]; >>> >>> group: 'default' with: #('Core'); >>> group: 'development' with: #('Core' 'Tests'); >>> group: 'Core' with: #('Towergame'); >>> group: 'Tests' with: #('Towergame-Tests') ] >>> ! ! >>> >>> >>> >> >> >> > >

Aug. 16, 2017

Re: [Pharo-users] [Ann] Blog entry about using Pharo / Smalltalk to build a bot

by Esteban Lorenzano

nice! thanks :) > On 15 Aug 2017, at 20:23, sergio ruiz <sergio.rrd(a)gmail.com> wrote: > > Hey, all.. > > I just released a blog entry entitled: > > "Why I chose Pharo Smalltalk to build my Bot project" > > which can be viewed here: > > http://www.codeandmusic.com/why-i-chose-pharo-smalltalk-to-build-my-bot/?ut… <http://www.codeandmusic.com/why-i-chose-pharo-smalltalk-to-build-my-bot/?ut…> > > I would appreciate (and probably create new posts about) any input.. > > Thanks! > > > ---- > peace, > sergio > photographer, journalist, visionary > > Public Key: http://bit.ly/29z9fG0 <http://bit.ly/29z9fG0> > #BitMessage BM-NBaswViL21xqgg9STRJjaJaUoyiNe2dV > http://www.Village-Buzz.com <http://www.village-buzz.com/> > http://www.ThoseOptimizeGuys.com <http://www.thoseoptimizeguys.com/> > http://www.coffee-black.com <http://www.coffee-black.com/> > http://www.painlessfrugality.com <http://www.painlessfrugality.com/> > http://www.twitter.com/sergio_101 <http://www.twitter.com/sergio_101> > http://www.facebook.com/sergio101 <http://www.facebook.com/sergio101>

Aug. 16, 2017

Raffle Results of "Live Programming in Smalltalk development environments survey + raffle"

by Juraj Kubelka

Dear Smalltalkers, thank you again for participating in our survey. We are currently analyzing the results. Here, we would like to announce winners of the survey raffleâ¦ and winners are: - Craig Latta, and - Gabriel Omar Cotelli Congratulations! :-) The raffle draw was recorded and is available at: https://youtu.be/cRfPAAeF-xw <https://youtu.be/cRfPAAeF-xw> We will contact the winners in a private email in order to deliver the books to them. Regards, Juraj Kubelka, Romain Robbes, and Alexandre Bergel

Aug. 16, 2017

Re: [Pharo-users] Pharo 6.0 and 6.1 64 bit freeze on MacMini

by Stephan Eggermont

Please try starting your Pharo image with a new squeak vm. I remember Tobias posting something on a full screen bug fix about a year ago, and don't know what happened with it. It was around the same time as his hiDPI fix, which triggered some garbage collection issue at the time. Some part of that was then reverted. Stephan

Aug. 16, 2017

Re: [Pharo-users] YAML parser (2017)

by H. Hirzel

Are there any news about a YAML parser for Pharo 5 / 6.1? --Hannes On 5/29/17, Peter Uhnak <i.uhnak(a)gmail.com> wrote: > Hi, > > do we have a working parser for YAML? > > There's PPYAMLGrammar (in PetitParser), however it doesn't seem to work in > Pharo 6 at all (not even tests pass). > In Pharo 5 the tests are green, but using it on YAML content still fails... > with small fix I managed it to "pass", however the output seems to be a very > fine-grained AST decomposition and not the expected output > (dictionaries/arrays). > > So do we have some else/working? > > YAML specs have BNF descriptions, so maybe SmaCC can generate it? (I don't > know SmaCC, so maybe this is not how it works.) > > Thanks, > Peter > >

Aug. 16, 2017

Re: [Pharo-users] Pharo 6.0 and 6.1 64 bit freeze on MacMini

by TedVanGaalen

Aha! similar here! Didn't do that before: resizing after freezing. So almost sure it has to do with resizing only? 1: after maximizing to full screen parts are not redrawn but still can drag windows around: <http://forum.world.st/file/n4961655/Scr2017-08-161429.png> 2: then after coming back and reentering full screen the everthing is redrawn again,(can't remembering opening a Test Window probably clicked on a non refreshed part in window) But when dragging windows parts are not redrawn (you can see almost exactly where I dragged because the gradient background reveals differences if you'd look closely. Still, Pharo is still alive. but doesn't redraw the parts when e.g. evaluating something in a Playground as can be seen in the last 3rd screen dump. <http://forum.world.st/file/n4961655/Scr2017-08-161432.png> <http://forum.world.st/file/n4961655/Scr2017-08-161436.png> So, in summary: resizing the screen in any way can freeze/unfreeze Pharo again and screen redrawing is in error. TedvG -- View this message in context: http://forum.world.st/Pharo-6-0-and-6-1-64-bit-freeze-on-MacMini-tp4957969p… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Aug. 16, 2017

Re: [Pharo-users] Pharo 6.0 and 6.1 64 bit freeze on MacMini

by Tim Mackinnon

Actually this reminds me of a similar problem Iâve seen on my MacBook Pro (retina) - if I stretch the desktop to try and use the full space of the screen (not maximising it) I have on occasion frozen - however its not actually frozen it seems that drawing on screen has stopped, and if I resize the window a bit smaller drawing restarts and is fine. It seems to be when I try and drag the pharo desktop down to cover the last 5 or so pixels at the bottom. Might be something totally different, but I mention it in case it rings any bells. Tim > On 16 Aug 2017, at 12:13, TedVanGaalen <tedvga(a)gmail.com> wrote: > > here's a screenshot. notice the white band in the content area after > maximizing the window. It freezed, can't move the inner windows anymore and > ctrl '.' user interrupt doesn't work and have to force quit Pharo. No idea > what happens but Pharo 5.0 runs as stable as ever. > Kind Regards > TedvG > <http://forum.world.st/file/n4961631/Screen_Shot_2017-08-15_at_18.png> > > > > -- > View this message in context: http://forum.world.st/Pharo-6-0-and-6-1-64-bit-freeze-on-MacMini-tp4957969p… > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. >

Aug. 16, 2017

← Newer
1
...
51
52
53
54
55
56
57
...
84
Older →

Jump to page: