Subversion Repositories Kolibri OS

Rev

Rev 8762 | Rev 9413 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8762 Rev 9174
Line 19... Line 19...
19 
 
 19 
 
Line 20... Line 20...
20 
MODULE Ini;
 20 
MODULE Ini;
Line 21... Line 21...
21 
 
 21 
 
Line 22... Line 22...
22 
IMPORT
 22 
IMPORT
Line 23... Line 23...
23 
 
 23 
 
Line 44... Line 44...
44 
    END;
 44 
    END;
Line 45... Line 45...
45 
 
 45 
 
Line 46... Line 46...
46 
 
 46 
 
47 
VAR
 47 
VAR
48 
 
 48 
 
Line 49... Line 49...
49 
    get_color: PROCEDURE [stdcall] (f_name: RW.tFileName; sec_name: tASCIISectionName; key_name: tString; def_val: INTEGER): INTEGER;
 49 
    get_color, get_int: PROCEDURE [stdcall] (f_name: RW.tFileName; sec_name: tASCIISectionName; key_name: tString; def_val: INTEGER): INTEGER;
50 
    get_str: PROCEDURE [stdcall] (f_name, sec_name, key_name, buffer, buf_len, def_val: INTEGER): INTEGER;
 50 
    get_str: PROCEDURE [stdcall] (f_name, sec_name, key_name, buffer, buf_len, def_val: INTEGER): INTEGER;
Line 51... Line 51...
51 
    enum_sections: PROCEDURE [stdcall] (f_name: RW.tFileName; callback: INTEGER);
 51 
    enum_sections: PROCEDURE [stdcall] (f_name: RW.tFileName; callback: INTEGER);
52 
 
 52 
 
- 
 
 53 
    IniFileName: RW.tFileName;
Line 53... Line 54...
53 
    IniFileName: RW.tFileName;
 54 
    sections*: List.tList;
54 
    sections*: List.tList;
 55 
 
55 
 
 56 
    curSection*: tASCIISectionName;
Line 143... Line 144...
143 
    Text.setColors(text, back, seltext, selback, modified, saved, curline, numtext, numback,
 144 
    Text.setColors(text, back, seltext, selback, modified, saved, curline, numtext, numback,
144 
        comment, string, num, delim, key1, key2, key3);
 145 
        comment, string, num, delim, key1, key2, key3);
145 
END selectSection;
 146 
END selectSection;
Line -... Line 147...
- 
 
 147 
 
- 
 
 148 
 
- 
 
 149 
PROCEDURE getSettings* (VAR build, run, debug: RW.tFileName);
- 
 
 150 
BEGIN
- 
 
 151 
	Lines.setTabs(get_int(IniFileName, "settings", "tab", 4));
- 
 
 152 
	blink := get_int(IniFileName, "settings", "blink", 70);
- 
 
 153 
	IF blink = 0 THEN
- 
 
 154 
		blink := -1
- 
 
 155 
	ELSE
- 
 
 156 
		blink := MIN(MAX(blink, 1), 1000)
- 
 
 157 
	END;
- 
 
 158 
    getStr("settings", "build", build);
- 
 
 159 
    getStr("settings", "run",   run);
- 
 
 160 
    getStr("settings", "debug", debug)
- 
 
 161 
END getSettings;
146 
 
 162 
 
147 
 
 163 
 
148 
PROCEDURE load* (path: RW.tFileName);
 164 
PROCEDURE load* (path: RW.tFileName);
Line 149... Line 165...
149 
VAR
 165 
VAR
Line 158... Line 174...
158 
        SYSTEM.PUT(v, a)
 174 
        SYSTEM.PUT(v, a)
159 
    END GetProc;
 175 
    END GetProc;
Line 160... Line 176...
160 
 
 176 
 
161 
BEGIN
 177 
BEGIN
162 
    sections := List.create(NIL);
 - 
 
163 
    IF File.Exists("/rd/1/settings/cedit.ini") THEN
 - 
 
164 
        IniFileName := "/rd/1/settings/cedit.ini"
 178 
    sections := List.create(NIL);
165 
    ELSE
 179 
 
166 
        Utils.getPath(path, IniFileName);
 180 
    Utils.getPath(path, IniFileName);
167 
        Utils.append8(IniFileName, Utils.SLASH);
 181 
    Utils.append8(IniFileName, Utils.SLASH);
- 
 
 182 
    Utils.append8(IniFileName, fileName);
- 
 
 183 
 
- 
 
 184 
    IF ~File.Exists(IniFileName) THEN
168 
        Utils.append8(IniFileName, fileName);
 185 
    	IniFileName := "/rd/1/settings/cedit.ini"
Line 169... Line 186...
169 
    END;
 186 
    END;
170 
 
 187 
 
- 
 
 188 
    Lib := KOSAPI.LoadLib("/rd/1/Lib/Libini.obj");
171 
    Lib := KOSAPI.LoadLib("/rd/1/Lib/Libini.obj");
 189 
    GetProc(Lib, SYSTEM.ADR(get_color), "ini_get_color");
172 
    GetProc(Lib, SYSTEM.ADR(get_color), "ini_get_color");
 190 
    GetProc(Lib, SYSTEM.ADR(get_int), "ini_get_int");
Line 173... Line 191...
173 
    GetProc(Lib, SYSTEM.ADR(get_str), "ini_get_str");
 191 
    GetProc(Lib, SYSTEM.ADR(get_str), "ini_get_str");
174 
    GetProc(Lib, SYSTEM.ADR(enum_sections), "ini_enum_sections");
 192 
    GetProc(Lib, SYSTEM.ADR(enum_sections), "ini_enum_sections");