mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-14 19:07:09 +03:00
67 lines
1.6 KiB
Plaintext
67 lines
1.6 KiB
Plaintext
|
//INI parser in C--, GPL licence.
|
|||
|
|
//Copyright 2008 by Leency
|
|||
|
|
|
|||
|
|
#define COMMENT 0
|
|||
|
|
#define SECTION 1
|
|||
|
|
#define PARAM 2
|
|||
|
|
#define OPTION 3
|
|||
|
|
|
|||
|
|
void GetIni(dword inipath)
|
|||
|
|
{
|
|||
|
|
byte section[32]='', parametr[32]='', option[256]='', InfType=0;
|
|||
|
|
word bukva[1];
|
|||
|
|
dword buff, fsize, tj;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
buff = malloc(1048576);
|
|||
|
|
ReadFile(0, 1048576, buff, inipath);
|
|||
|
|
IF (EAX<>6) {WriteDebug("INI-file not found. Defaults will be used."); goto INI_END;}
|
|||
|
|
fsize=EBX;
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
|||
|
|
for (tj=0; tj<fsize; tj++;)
|
|||
|
|
{
|
|||
|
|
bukva = ESBYTE[buff+tj];
|
|||
|
|
switch (bukva)
|
|||
|
|
{
|
|||
|
|
case ';':
|
|||
|
|
InfType=COMMENT;
|
|||
|
|
break;
|
|||
|
|
case '[':
|
|||
|
|
InfType=SECTION;
|
|||
|
|
section='';
|
|||
|
|
break;
|
|||
|
|
case ']':
|
|||
|
|
InfType=PARAM;
|
|||
|
|
break;
|
|||
|
|
case '=':
|
|||
|
|
InfType=OPTION;
|
|||
|
|
break;
|
|||
|
|
case 0x0a:
|
|||
|
|
case 0x0d:
|
|||
|
|
InfType=PARAM;
|
|||
|
|
//IF (strcmp(#parametr,"select_color")==0) videlenie=StrToCol(#option);
|
|||
|
|
IF (parametr) && (!strcmp(#file_name+find_symbol(#file_name,'.'),#parametr)) {RunProgram(#option,#file_path); return;}
|
|||
|
|
parametr=option='';
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
IF (InfType==SECTION) copystr(#bukva,#section+strlen(#section));
|
|||
|
|
IF (InfType==PARAM) copystr(#bukva,#parametr+strlen(#parametr));
|
|||
|
|
IF (InfType==OPTION) copystr(#bukva,#option+strlen(#option));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
INI_END:
|
|||
|
|
IF (file_path) RunProgram(#file_path,'');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*inline fastcall void OpenFile(ESI)
|
|||
|
|
{
|
|||
|
|
byte ext_n_progs="ext|tinypad|ext2|Eolite|"; //=ESI
|
|||
|
|
byte str;
|
|||
|
|
do{
|
|||
|
|
$lodsb
|
|||
|
|
IF(AL=='|') str='';
|
|||
|
|
copystr(ESBYTE[AL],str);
|
|||
|
|
} while(AL!=0);
|
|||
|
|
//RunProgram(fpath, #fparam); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
|
|||
|
|
}*/
|