$Header: /home/radek/cvs/forth-book/dictionary/qf/palmos-api/DmDatabaseInfo,v 1.1 2003/12/28 18:21:58 radek Exp $
DmDatabaseInfo — získání atributů databázového souboru
: DmDatabaseInfo ( &creatorP. &typeP. &sortInfoIDP. &appInfoIDP. &modNumP.
&bckUpDateP. &modDateP. &crDateP. &versionP. &attributesP. &nameP. dbID. cardNo → Err ) ;.Získání informací o databázi. Přd voláním vložíme na zásobník ukazatele na paměťové oblasti, id databáze získané například voláním DmGetDatabase a číslo paměťové karty. Získáme zpátky chybovou informaci a paměťové oblasti jsou naplněny získanými informacemi o databázi.
Příklad 114. Netestovaný rozepsaný příklad použíti DmDatabaseInfo
\ Example_DmDatabaseInfo 2variable myCreator 2variable myType 2variable mySortInfoId 2variable myAppInfoId 2variable myModNum 2variable myBckUpDate 2variable myModDate 2variable myCrDate variable myVersion variable myAttributes create myName 32 allot myCreator >abs myType >abs mySortInfoId >abs myAppInfoId >abs myModNum >abs myBckUpDate >abs myModDate >abs myCrDate >abs myVersion >abs myAttributes >abs myName >abs 0 0 DmGetDatabase ( → LocalID. ) 0 DmDatabaseInfo ( → err ) .s .( Version:) myVersion @ . .( Attributes:) myAttributes @ . .( Name:) myName 32 type
Příklad 115. Výpis jmen všech databází
\ Example_ListDatabases
: 5null 0. 0. 0. 0. 0. ;
: 10null 5null 5null ;
create myName 32 allot
: spaceName
myName
32 0 do
1 +
32 over c!
loop
drop
;
: listDatabases
\ naplnit myName mezerama
0 DmNumDatabases 0 do
spaceName
10null myName >abs
i 0 DmGetDatabase
0 DmDatabaseInfo drop
myName 32 type cr
loop
;
listDatabases