21,7 → 21,7 |
|
IMPORT |
|
KOSAPI, SYSTEM, RW, Text, Utils, File, List, Languages, KolibriOS, Lines; |
SYSTEM, RW, Text, Utils, File, List, Languages, KolibriOS, Lines; |
|
|
CONST |
46,10 → 46,6 |
|
VAR |
|
get_color, get_int: PROCEDURE [stdcall] (f_name: RW.tFileName; sec_name: tASCIISectionName; key_name: tString; def_val: INTEGER): INTEGER; |
get_str: PROCEDURE [stdcall] (f_name, sec_name, key_name, buffer, buf_len, def_val: INTEGER): INTEGER; |
enum_sections: PROCEDURE [stdcall] (f_name: RW.tFileName; callback: INTEGER); |
|
IniFileName: RW.tFileName; |
sections*: List.tList; |
|
58,6 → 54,11 |
blink*: INTEGER; |
|
|
PROCEDURE [stdcall, "libini.obj", "ini_get_color"] get_color (f_name: RW.tFileName; sec_name: tASCIISectionName; key_name: tString; def_val: INTEGER): INTEGER; END; |
PROCEDURE [stdcall, "libini.obj", "ini_get_int"] get_int (f_name: RW.tFileName; sec_name: tASCIISectionName; key_name: tString; def_val: INTEGER): INTEGER; END; |
PROCEDURE [stdcall, "libini.obj", "ini_get_str"] get_str (f_name, sec_name, key_name, buffer, buf_len, def_val: INTEGER): INTEGER; END; |
PROCEDURE [stdcall, "libini.obj", "ini_enum_sections"] enum_sections (f_name: RW.tFileName; callback: INTEGER); END; |
|
PROCEDURE getColor (key: tString; def: INTEGER): INTEGER; |
RETURN get_color(IniFileName, curSection, key, def) |
END getColor; |
158,19 → 159,7 |
|
|
PROCEDURE load* (path: RW.tFileName); |
VAR |
Lib: INTEGER; |
|
PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR); |
VAR |
a: INTEGER; |
BEGIN |
a := KOSAPI.GetProcAdr(name, Lib); |
ASSERT(a # 0); |
SYSTEM.PUT(v, a) |
END GetProc; |
|
BEGIN |
sections := List.create(NIL); |
|
Utils.getPath(path, IniFileName); |
181,12 → 170,6 |
IniFileName := "/sys/settings/cedit.ini" |
END; |
|
Lib := KOSAPI.LoadLib("/sys/Lib/Libini.obj"); |
GetProc(Lib, SYSTEM.ADR(get_color), "ini_get_color"); |
GetProc(Lib, SYSTEM.ADR(get_int), "ini_get_int"); |
GetProc(Lib, SYSTEM.ADR(get_str), "ini_get_str"); |
GetProc(Lib, SYSTEM.ADR(enum_sections), "ini_enum_sections"); |
|
enum_sections(IniFileName, SYSTEM.ADR(section_callback)); |
Languages.init(getStr); |
selectSection(0); |