Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 3362 → Rev 3363

/programs/cmm/kolibrin/compile.bat
0,0 → 1,5
..\C--\C-- kolibrin.c
@del kolibrin
@rename kolibrin.com kolibrin
@pause
@del warning.txt
/programs/cmm/kolibrin/kolibrin.c
0,0 → 1,47
#define MEMSIZE 0x9000
#include "..\lib\kolibri.h"
#include "..\lib\strings.h"
#include "..\lib\mem.h"
#include "..\lib\file_system.h"
 
 
void main()
{
dword dirbuf, fcount, filename, i;
dword dirbuf2, fcount2, filename2, j;
char cd_path[4096];
char install_path[4096];
signed int result;
 
mem_Init();
GetDir(#dirbuf, #fcount, "/");
 
for (i=0; i<fcount; i++)
{
filename = i*304+dirbuf+72;
if (!strstr(filename, "fd"))
{
strcpy(#cd_path, "/");
strcat(#cd_path, filename);
free(dirbuf2);
GetDir(#dirbuf2, #fcount2, #cd_path);
 
for (j=0; j<fcount2; j++)
{
filename2 = j*304+dirbuf2+72;
strcpy(#install_path, #cd_path);
strcat(#install_path, "/");
strcat(#install_path, filename2);
strcat(#install_path, "/installer.kex");
result = RunProgram(#install_path, NULL);
if (result>0) ExitProcess();
}
}
}
if (GetSystemLanguage()==4) notify("¥ ¬®£ã ­ ©â¨ installer.kex ­¨ ¢ ®¤­®¬ ª®à­¥ ¤¨áª ! ®¯à®¡ã©â¥ ­ ©â¨ ¨ § ¯ãáâ¨âì ¥£® ¢àãç­ãî.");
else notify("Can't find installer.kex at the root of all disks! Try to find and run it manually."w);
ExitProcess();
}
 
 
stop:
/programs/cmm/kolibrin/.
Property changes:
Added: tsvn:logminsize
+5
\ No newline at end of property