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
