15.8.2. Vytvoření a odstranění databáze

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.