Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Started rewrite of storage system.

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@1299 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
aaron
2020-07-17 22:30:36 +00:00
parent 984b6a89c8
commit d4234225d1
3 changed files with 114 additions and 365 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/prog/edit.pas
View File

@ -75,7 +75,7 @@ begin
//writeintlnWND(info.key_code, getTerminalHWND());
if (info.CTRL_DOWN and (info.key_code = 115)) then begin
//SAVE FILE
storagemanagement.writeNewFile(fileName, extension, puint32(chars), stringSize(chars));
// storagemanagement.writeNewFile(fileName, extension, puint32(chars), stringSize(chars));
writestringlnWND('saved', getTerminalHWND());
//writeintlnWND(stringSize(chars), getTerminalHWND());
end else begin
@ -125,7 +125,7 @@ begin
bytes := puint32(kalloc(4));
bytes^ := 0;
buffer := kalloc(4);
error := storagemanagement.readfile(fileName, extension, buffer, bytes);
// error := storagemanagement.readfile(fileName, extension, buffer, bytes);
if error^ = 1 then begin
//file doesn't exists, make new