| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122 |
- Smalltalk current createPackage: 'Nemo' properties: #{}!
- Object subclass: #NemoConnection
- instanceVariableNames: 'socket'
- package: 'Nemo'!
- !NemoConnection methodsFor: 'not yet classified'!
- close
- socket close.
- socket := nil
- !
- createDefaultSocket
-
- self createSocketOn: self defaultURL.
- !
- createLocalSocketOn: aPort
- ^ self createSocketOn: 'ws://localhost:',aPort asString,'/nemo'
- !
- createSocketOn: uri
- socket := <new WebSocket(uri)>.
- socket at: 'onmessage' put: [ :message | self handleMessage: message ].
- socket at: 'onerror' put: [ :err | console log: err ]
- !
- defaultURL
- ^ self class defaultURL
- !
- handleMessage: aMessage
- | string result |
- string := aMessage data.
- string isString ifFalse: [ ^ self ].
- Transcript show: string.
- result := Compiler new evaluateExpression: string.
- console log: result.
- console log: result asNemoString.
- socket send: result asNemoString
- !
- send: aString
- socket send: aString
- ! !
- NemoConnection class instanceVariableNames: 'default'!
- !NemoConnection class methodsFor: 'not yet classified'!
- default
- ^ default ifNil: [ default := self new ]
- !
- defaultURL
- ^ 'ws://localhost:8010/nemo'
- ! !
- !Object methodsFor: '*Nemo'!
- asNemo
- ^ self asJSON
- !
- asNemoString
- ^JSON stringify: self asNemo
- ! !
- !Class methodsFor: '*Nemo'!
- asNemo
- ^ Dictionary new
- at: 'name' put: self name;
- at: 'superclass' put: (self superclass ifNotNil: [ self superclass name ]);
- at: 'classComment' put: self comment;
- at: 'definition' put: self definition;
- at: 'package' put: self category;
- asNemo
- ! !
- !Collection methodsFor: '*Nemo'!
- asNemo
- ^self asArray collect: [:each | each asNemo]
- ! !
- !HashedCollection methodsFor: '*Nemo'!
- asNemo
- | c |
- c := self class new.
- self keysAndValuesDo: [:key :value |
- c at: key put: value asNemo].
- ^c
- ! !
- !Dictionary methodsFor: '*Nemo'!
- asNemo
- ^self asHashedCollection asNemo
- ! !
- !String methodsFor: '*Nemo'!
- asNemo
- ^ self
- ! !
- !Package methodsFor: '*Nemo'!
- asNemo
- ^ Dictionary new
- at: 'name' put: self name;
- asNemo
- ! !
|
