blob: a83d8253053c9792166ea867691237f7f36c08ae (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
{*
*
* $Id: SwordAPI.pas,v 1.1.1.1 1999/05/04 22:03:36 scribe Exp $
*
* Copyright 1998 CrossWire Bible Society (http://www.crosswire.org)
* CrossWire Bible Society
* P. O. Box 2528
* Tempe, AZ 85280-2528
*
* This program is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
* Free Software Foundation version 2.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
*}
unit SwordAPI;
interface
const
DLLNAME = 'sword32.dll';
type
paramt = record
path, name, disc: pchar;
end;
pparamt = ^paramt;
function NewModule(modtype: PChar; params: pparamt): integer; stdcall; external DLLNAME;
procedure DeleteModule(hmod: integer); stdcall; external DLLNAME;
function ModGetTextLen(hmod: integer): integer; stdcall; external DLLNAME;
procedure ModGetText(hmod: integer; buf: PChar; size: integer); stdcall; external DLLNAME;
procedure ModGetKeyText(hmod: integer; buf: PChar; size: integer); stdcall; external DLLNAME;
function ModGetKey(hmod: integer):integer; stdcall; external DLLNAME;
function ModSetKeyText(hmod: integer; keytext: PChar):char; stdcall; external DLLNAME;
function ModSetKeyKey(hmod: integer; hkey: integer):char; stdcall; external DLLNAME;
function ModSearch(hmod: integer; stext: PChar):integer; stdcall; external DLLNAME;
procedure YoYo(x:integer; y:integer); stdcall; external DLLNAME;
procedure ModInc(hmod: integer); stdcall; external DLLNAME;
procedure ModDec(hmod: integer); stdcall; external DLLNAME;
function ModError(hmod:integer): integer; stdcall; external DLLNAME;
function NewKey(keytype:PChar):integer;stdcall; external DLLNAME;
procedure DeleteKey(hkey: integer); stdcall; external DLLNAME;
function KeyGetPersist(hkey: integer): integer; stdcall; external DLLNAME;
procedure KeySetPersist(hkey: integer; value: integer); stdcall; external DLLNAME;
function KeyError(hkey:integer): integer; stdcall; external DLLNAME;
procedure KeyGetText(hkey: integer; buf: PChar; size: integer); stdcall; external DLLNAME;
procedure KeySetText(hkey: integer; keytext: PChar); stdcall; external DLLNAME;
procedure KeySetKey(hkey: integer; hkey: integer); stdcall; external DLLNAME;
procedure KeyInc(hkey: integer); stdcall; external DLLNAME;
procedure KeyDec(hkey: integer); stdcall; external DLLNAME;
function VerseKeyGetTestament(hkey: integer): integer; stdcall; external DLLNAME;
function VerseKeyGetBook(hkey: integer): integer; stdcall; external DLLNAME;
function VerseKeyGetChapter(hkey: integer): integer; stdcall; external DLLNAME;
function VerseKeyGetVerse(hkey: integer): integer; stdcall; external DLLNAME;
procedure VerseKeySetTestament(hkey: integer; value: integer); stdcall; external DLLNAME;
procedure VerseKeySetBook(hkey: integer; value: integer); stdcall; external DLLNAME;
procedure VerseKeySetChapter(hkey: integer; value: integer); stdcall; external DLLNAME;
procedure VerseKeySetVerse(hkey: integer; value: integer); stdcall; external DLLNAME;
function VerseKeyGetAutoNormalize(hkey: integer): integer; stdcall; external DLLNAME;
procedure VerseKeySetAutoNormalize(hkey: integer; value: integer); stdcall; external DLLNAME;
procedure VerseKeyNormalize(hkey: integer); stdcall; external DLLNAME;
implementation
end.
|
