|
|
Como conte, estoy probando si es o no posible reemplazr parte o todo Kom +
HV2 como pre-requisitos del NaughtieWiki.
Y experimentando con lo publicado sobre WebServer
Yo tengo una carpeta SqueakRepository y dentro varias como Morph,
Squeaklets, sar,cs, st, etc
La mas importante es package-cache, donde he ido acumulando toneladas de
.mcz y .mcd.
Mi idea es compartir estos recursos,
Asi que cree una carpeta monticello¹ en el directorio local del
SqueakLight3-N-alpha.9641.image
Como Monticello no crea subcarpetas y me parece mejor tenerlas (SqueakSource
las usa) , hice este script que funciono perfeco y comparto.
(MCWebServer reset default)
selDir;
startDebugOn: 8800.
Agregue selDir y startDebugOn: que no estaban
El selDir me quedo como UnixFileDirectory on
'/Users/edgar/SqueakRepository/package-cache',
Con un inspector abierto en el objeto en la parte de codigo
| mDir subDirName pDir sfile dfile |
Transcript open.
subDirName := 'monticello'.
mDir := FileDirectory default directoryNamed: subDirName.
self fileNames do:[:fn | fn = '.DS_Store' ifFalse:[
subDirName := (fn findTokens:'-') at: 1.
pDir := FileDirectory on: mDir pathName,'/', subDirName.
(mDir directoryExists: subDirName)
ifFalse: [mDir createDirectory: subDirName.
Transcript show: subDirName;cr
]
ifTrue:[sfile := (self readOnlyFileNamed: fn) binary.
dfile:= pDir newFileNamed: fn.
dfile nextPutAll: sfile contents .
]]]
Aca tuve el problema que algunos paquetes no estan com
nombre-autor-version¹ y aparentemente hay paquetes con diferente ³case²
Agregar una base de datos de usuarios a la instancia del servidor:
MCWebServer default webServer vault
Aca importe el objeto que tengo del naughtie Users.obj¹
Desde el inspector en el panel de codigo.
self keysAndValuesDo:[:k :v | MCWebServer default addUser: k withPassword:
v last ] a Dictionary(size 169)
|
Locked
