Examples/data_control/delforlazarus/delforinterf.pas at master · PascalCorpsman/Examples · GitHub

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
(*
  Modified by Corpsman, to Support Lazarus Linux. 01.09.2009
*)
Unit delforinterf;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

Interface

Uses Classes, delfortypes;

Procedure Formatter_Destroy;
Procedure Formatter_Create;
Procedure Formatter_LoadFromFile(AFileName: PChar; ASettings: PSettings;
  SizeOfSettings: Integer);
Procedure Formatter_LoadFromList(AList: TStringList; ASettings: PSettings;
  SizeOfSettings: Integer);
Function Formatter_Parse(ASettings: PSettings; SizeOfSettings: Integer): Boolean;
Procedure Formatter_Clear;
Procedure Formatter_WriteToFile(AFileName: PChar);
Function Formatter_GetTextStr: PChar;
Procedure Formatter_SetTextStr(AText: PChar);
Procedure Formatter_SetOnProgress(AOnProgress: TProgressEvent);
Procedure Formatter_LoadCapFile(ACapFile: PChar);
Procedure Formatter_SaveCapFile(ACapFile: PChar);
Function Formatter_Version: Integer;

Implementation

Uses delforengine;

Procedure Formatter_Destroy;
Begin
  DelforParser.Free;
  DelforParser := Nil;
End;

Procedure Formatter_Create;
Begin
  If assigned(DelforParser) Then DelforParser.free;
  DelforParser := TDelforParser.Create;
End;

Procedure CopySettings(ASettings: PSettings; SizeOfSettings: Integer);
Var
  TheSettings: TSettings;
Begin
  {Some measures to improve future compatibility}
  If SizeOfSettings < SizeOf(TSettings) Then Begin
    FillChar(TheSettings, sizeof(TheSettings), 0);
    Move(ASettings^, TheSettings, SizeOfSettings);
    DelforParser.Settings := TheSettings;
  End
  Else
    DelforParser.Settings := ASettings^;
End;

Procedure Formatter_LoadFromFile(AFileName: PChar; ASettings: PSettings;
  SizeOfSettings: Integer);
Begin
  CopySettings(ASettings, SizeOFSettings);
  DelforParser.LoadFromFile(AFileName);
End;

Procedure Formatter_LoadFromList(AList: TStringList; ASettings: PSettings;
  SizeOfSettings: Integer);
Begin
  CopySettings(ASettings, SizeOFSettings);
  DelforParser.LoadFromList(AList);
End;

Function Formatter_Parse(ASettings: PSettings; SizeOfSettings: Integer): Boolean;
Begin
  CopySettings(ASettings, SizeOFSettings);
  Result := DelforParser.Parse;
End;

Procedure Formatter_Clear;
Begin
  DelforParser.Clear;
End;

Procedure Formatter_WriteToFile(AFileName: PChar);
Begin
  DelforParser.WriteToFile(AFileName);
End;

Function Formatter_GetTextStr: PChar;
Begin
  Result := DelforParser.Text;
End;

Procedure Formatter_SetTextStr(AText: PChar);
Begin
  DelforParser.Text := AText;
End;

Procedure Formatter_SetOnProgress(AOnProgress: TProgressEvent);
Begin
  DelforParser.OnProgress := AOnProgress;
End;

Procedure Formatter_LoadCapFile(ACapFile: PChar);
Begin
  DelforParser.LoadCapFile(ACapFile)
End;

Procedure Formatter_SaveCapFile(ACapFile: PChar);
Begin
  DelforParser.SaveCapFile(ACapFile)
End;

Function Formatter_Version: Integer;
Begin
  Result := CurrentDllVersion;
  {Change this version number only if the new version
  is not backwards compatible}
End;

End.