SmallScript & SSharp

SmallScript example application: Currency Converter

sDB

Based on SMALLdb, a database implementation build with SmalltalkAgents, I've started an experimental database for SmallScript.

The sDB library is not available yet, but I'll release it as soon as possible.

# SmallScript sDB Test "Test01.sts"
# Create a db, fill it with data and read the data

Load module: SDB.

Class
name: FirstTestClass
extends: SDBObject "" The SuperClass
fields: one,two,three
{
Method [setOne: aValue
one := aValue.
]
Method [one
^one
]
}

Eval [
|myDB dbName dbFileName testData|

dbName := 'test01'.
dbFileName := 'testDbFile01.sdb'.
testData := {'a test string'. 'second string'. 'third string'. (FirstTestClass new setOne: 'var string').}.


"" Create the database
myDB := SDBDatabase init.
myDB createDB: dbName.
myDB addNewSlot: 'myFirstSlot' ."" Like a Table in SQL-dbs
myDB close.

"" Adding some data
myDB open.
myDB at: 'myFirstSlot' put: testData.
myDB close.

"" Read data
myDB := SDBDatabase open: dbName.
|readData| := myDB getSlot: 'myFirstSlot'. "" Read all
|partData| := myDB useSlot: 'myFirstSlot'. "" Access to slot

"" Read data part
stdout << '`npart: ' << (partData at:2)value.

""Test
stdout << '`nStart test!'.
readData = testData ifTrue:[
stdout << '`nOK'.
]ifFalse:[
stdout << '`nFailed'.
].
myDB close.

stdout << '`nReady'.
stdout << 'break'.
]

Here are 2 obsolete Macintosh (MacOS 9) programs created with QKS SmalltalkAgents and the database engine SMALLdb.

WordCoach

ScribblingWorks

The included email, web adress and register informations are NOT correct. But I can't change the installer. Both apps can't buyed !