Testando o Magma

Instalei (com o SqueakMap Package Loader) o Magma server usando em cópia do arquivo de imagem onde depois instalei o client. A definição da localização do repositório e do objeto root foram feitas com o comando:

MagmaRepositoryController
create: ‘/home/chicoary/playground/Squeak3.9-final-7067/MagmaData’
root: Dictionary new.

O server foi iniciado apontando para o repositório criado e na porta 9090 com o comando:

server _ MagmaServerConsole new
open: ‘/home/chicoary/playground/Squeak3.9-final-7067/MagmaData’ ;
processOn: 9090.

Colocando uma janela Transcript no World as mensagens aparecem nela como abaixo:

initializing network drivers
creating server socket
now listening on 9090
Ready to queue sockets
ready to extract requests
ready to process requests

Para shutdown usei o comando:

server shutdown.

Obtive as seguintes mensagens:

new sockets no longer accepted.
deallocating resources.
a MagmaRepositoryController closed.

Na imagem client executei os comandos abaixo para armazenar objetos no Magma:

|mySession conta1 conta2|
mySession := MagmaSession
host: ‘localhost’
port: 9090.
mySession connectAs: ‘chico’.
conta1 _ BankAccount new.
conta1 deposit: 1000.
conta2 _ BankAccount new.
conta2 deposit: 2000.
mySession commit:
[ mySession root
at: 'conta1'
put: (conta1).
mySession root
at: 'conta2'
put: (conta2) ].
mySession disconnect.

Para recuperar os objetos e imprimir o seu conteúdo usei os comandos:

|mySession root|
mySession := MagmaSession
host: ‘localhost’
port: 9090.
mySession connectAs: ‘chico’.
root _ mySession root.
Transcript show: (root at: ‘conta1′) balance.
Transcript cr; show: (root at: ‘conta2′) balance.
mySession disconnect.

Fonte: Getting started with Magma