Před tím, než budeme s databází pracovat, musíme ji vytvořit. Jediný způsob jak to udělat je voláním DmCreateDatabase
. Volání vrací příznak chyby Err
. Je-li nenulový, nastala chyba. Uveďme si krátky příklad.
1 # $Id: example.createDict.ses,v 1.1 2003/12/28 18:21:58 radek Exp $ needs zstring : createDict ( -- Err ) 5 FALSE [ID] Dict [ID] SFth z" SFDictionary" DROP >ABS 0 10 DmCreateDatabase ;
Příznak na řádku 3 určuje vytvoříme li databázi zdrojů, nebo obyčejnou databázi. Je-li true
bude vytvořena databáze zdrojů (Resource Database), je-li false
bude vytvořena obyčejná databáze.