utek/normalassethelper.pas at master · IRebo/utek · 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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
unit normalassethelper;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,assethelper;

type
TnormalAssetHelper = class(TAssetHelper)
 constructor create;
 destructor destroy;override;
  function createfile( name:string):TFakefile;override;
  function createtextfile( name:string):tfaketextfile;override;
end;

TFakenormalFile = class (TFakeFile)
 manager:TnormalAssetHelper;
 newasset:file;
 constructor create(man:TAssetHelper; name:string);
 destructor destroy;override;
 function filesize:int64;override;
 procedure blockread(var buf;siz:int64);override;
 procedure reset(i:int64);override;
 procedure seek(pos:int64);override;
end;

TFakenormalTextFile = class (TFakeTextFile)
 text:text;
 constructor create(man:TAssetHelper; name:string);
 destructor destroy;override;

  function eof():boolean;override;
 procedure readln(var str:string); override;
 procedure reset;override;
end;

procedure initassets;
procedure destroyassets;


implementation

uses strutils;


constructor TnormalAssetHelper.create;
begin

end;
destructor TnormalAssetHelper.destroy;
begin
Inherited destroy;

end;

procedure initassets;
begin
    assets:=TnormalAssetHelper.Create;
end;
procedure destroyassets;
begin
    assets.free;
end;

function TnormalAssetHelper.createfile( name:string):TFakefile;
begin
    result:=TFakenormalFile.create(self,name);
end;

function TnormalAssetHelper.createtextfile( name:string):tfaketextfile;
begin
 result:=TFakenormaltextFile.create(self,name);
end;

constructor TFakenormalFile.create(man:TAssetHelper; name:string);
var fixedstring:string;
begin

  logw(pchar('opening asset '+name));
  fixedstring:='assets\'+name;
  logw(pchar('opening asset '+fixedstring));
assignfile(newasset,fixedstring);


   logw('asset was found');
end;

destructor TFakenormalFile.Destroy;
begin
   logw('closing asset');

 closefile(newasset);
   logw('closed asset');
       Inherited destroy;


end;

destructor TFakenormaltextFile.Destroy;
begin
 closefile(text);
     Inherited destroy;


end;


procedure TFakenormalFile.blockread(var buf;siz:int64);
begin
    logw('reading from asset');

 system.blockread(newasset, buf, siz);
 logw('finished reading');
end;

procedure TFakenormalFile.reset(i:int64);
begin
  system.reset(newasset,i);
end;

procedure TFakenormalFile.seek(pos:int64);
begin
 system.seek(newasset,pos);
end;

function TFakenormalFile.filesize:int64;
begin

   logw(pchar('getting filesize of asset'));

    result:=system.filesize(newasset);
   logw(pchar('got filesize of asset - '+inttostr(result)));
end;

constructor TFakenormaltextFile.create(man:TAssetHelper; name:string);
begin
 assignfile(text,'assets\'+name);
end;

function TFakenormaltextFile.eof:boolean;
begin
result:= system.eof(text);
 end;

 procedure TFakenormaltextFile.readln(var str:string);
 begin
system.readln(text,str);
 end;

 procedure TFakenormaltextFile.reset;
 begin
system.reset(text);
 end;

end.