diff options
| author | danglassey <danglassey> | 2002-10-18 13:01:37 +0000 |
|---|---|---|
| committer | danglassey <danglassey> | 2002-10-18 13:01:37 +0000 |
| commit | 3233d36c65606df0336f45ff6d832d842798d349 (patch) | |
| tree | 91643ab40d8adf13a54d1ae8db9fb14680ab5de4 /bindings/clx/Sword.pas | |
| parent | 0b335070bc76a5dcd320c4f6a0d509b0c0850a3e (diff) | |
| download | sword-sf-cvs-3233d36c65606df0336f45ff6d832d842798d349.tar.gz | |
sync with crosswire 20021018-1300
Diffstat (limited to 'bindings/clx/Sword.pas')
| -rw-r--r-- | bindings/clx/Sword.pas | 40 |
1 files changed, 21 insertions, 19 deletions
diff --git a/bindings/clx/Sword.pas b/bindings/clx/Sword.pas index 239f932..9fecc17 100644 --- a/bindings/clx/Sword.pas +++ b/bindings/clx/Sword.pas @@ -1,25 +1,27 @@ unit Sword; + interface - function SWMgr_getPrefixPath(h: integer): PChar; cdecl; external 'libsword.so'; - function SWMgr_new: integer; cdecl; external 'libsword.so'; - procedure SWMgr_delete(h: integer); cdecl; external 'libsword.so'; - function SWMgr_getModulesIterator(h: integer) : integer; cdecl; external 'libsword.so'; - function SWMgr_getModuleByName(h: integer; name: PChar) : integer; cdecl; external 'libsword.so'; - - procedure ModList_iterator_next(h: integer); cdecl; external 'libsword.so'; - function ModList_iterator_val(h: integer) : integer; cdecl; external 'libsword.so'; - - function SWModule_getType(h: integer) : PChar; cdecl; external 'libsword.so'; - function SWModule_getName(h: integer) : PChar; cdecl; external 'libsword.so'; - function SWModule_getDescription(h: integer) : PChar; cdecl; external 'libsword.so'; - function SWModule_getStripText(h: integer) : PChar; cdecl; external 'libsword.so'; - function SWModule_getRenderText(h: integer) : PChar; cdecl; external 'libsword.so'; - function SWModule_getKeyText(h: integer) : PChar; cdecl; external 'libsword.so'; - procedure SWModule_setKeyText(h: integer; key: PChar); cdecl; external 'libsword.so'; - procedure SWModule_begin(h: integer); cdecl; external 'libsword.so'; - procedure SWModule_next(h: integer); cdecl; external 'libsword.so'; - procedure SWModule_previous(h: integer); cdecl; external 'libsword.so'; + const LIBNAME = 'sword.dll'; + function SWMgr_getPrefixPath(h: integer): PChar; cdecl; external libname; + function SWMgr_new: integer; cdecl; external LIBNAME; + procedure SWMgr_delete(h: integer); cdecl; external LIBNAME; + function SWMgr_getModulesIterator(h: integer) : integer; cdecl; external LIBNAME; + function SWMgr_getModuleByName(h: integer; name: PChar) : integer; cdecl; external LIBNAME; + + procedure ModList_iterator_next(h: integer); cdecl; external LIBNAME; + function ModList_iterator_val(h: integer) : integer; cdecl; external LIBNAME; + + function SWModule_getType(h: integer) : PChar; cdecl; external LIBNAME; + function SWModule_getName(h: integer) : PChar; cdecl; external LIBNAME; + function SWModule_getDescription(h: integer) : PChar; cdecl; external LIBNAME; + function SWModule_getStripText(h: integer) : PChar; cdecl; external LIBNAME; + function SWModule_getRenderText(h: integer) : PChar; cdecl; external LIBNAME; + function SWModule_getKeyText(h: integer) : PChar; cdecl; external LIBNAME; + procedure SWModule_setKeyText(h: integer; key: PChar); cdecl; external LIBNAME; + procedure SWModule_begin(h: integer); cdecl; external LIBNAME; + procedure SWModule_next(h: integer); cdecl; external LIBNAME; + procedure SWModule_previous(h: integer); cdecl; external LIBNAME; type SWModule = class(TObject) |