int main(int argc, char *argv[]) {
char *s;
printf("kitten test with dev86/bcc\r\n\r\n");
kittenopen("KIT_TEST.DE");
s = kittengets(1, 1, "Hello World!");
printf("opening KIT_TEST.DE, message 1.1: '%s'\r\n", s);
kittenclose();
return 0;
}
/*
* Returns 1 for failure, 0 for success
*/
int main(int argc, char **argv) {
char *dosdir,
*fdauto,
*fdconfig,
dd[_MAX_PATH],
fa[_MAX_PATH],
fc[_MAX_PATH],
temp[12],
executestring[_MAX_PATH];
int ret = -1;
FILE *fp;
kittenopen("FDPKG");
if((argc&&argv[1][0]=='/'||argv[1][0]=='-')&&(argv[1][1]=='?'||tolower(argv[1][1])=='h'))
{
help();
kittenclose();
return 1;
}
sprintf(temp, "%s.BAT", _mktemp("XXXXXX"));
while(access(temp, 0) == 0) sprintf(temp, "%s.BAT", _mktemp("XXXXXX"));
if((fp = fopen(temp, "w")) == NULL) {
kitten_printf(5,4,"Could not open temp files\n");
return -1;
}
while(kbhit()) getch();
sprintf(executestring, "%s\r", temp);
kb_stuff(executestring);
fprintf(fp, "@echo off\n");
if((dosdir = getenv("DOSDIR")) == NULL) {
if (access("C:\\FDOS" , 0) == 0) {
ret = find_dir("C:\\FDOS");
if(ret == 0) strcpy(dd, "C:\\FDOS");
}
if(ret != 0 && access("C:\\FREEDOS", 0) == 0) {
ret = find_dir("C:\\FREEDOS");
if(ret == 0) strcpy(dd, "C:\\FREEDOS");
}
if(ret != 0 && access("C:\\DOS" , 0) == 0) {
ret = find_dir("C:\\DOS");
if(ret == 0) strcpy(dd, "C:\\DOS");
}
if(ret != 0 && access("D\\FDOS" , 0) == 0) {
ret = find_dir("D:\\FDOS");
if(ret == 0) strcpy(dd, "D:\\FDOS");
}
if(ret != 0 && access("D\\FREEDOS" , 0) == 0) {
ret = find_dir("D:\\FREEDOS");
if(ret == 0) strcpy(dd, "D:\\FREEDOS");
}
if(ret != 0 && access("D\\DOS" , 0) == 0) {
ret = find_dir("D:\\DOS");
if(ret == 0) strcpy(dd, "D:\\DOS");
}
if(ret != 0) {
kitten_printf(5,5,"Could not find suitable directory for %%DOSDIR%%\n");
fclose(fp);
return -1;
} else fprintf(fp, "SET DOSDIR=%s\n", dd);
}
if((fdauto = getenv("AUTOFILE")) == NULL) {
if( access("C:\\FDAUTO.BAT", 0) == 0) strcpy(fa, "C:\\FDAUTO.BAT");
else if(access("C:\\AUTOEXEC.BAT", 0) == 0) strcpy(fa, "C:\\AUTOEXEC.BAT");
else {
kitten_printf(5,6,"Could not find suitable autoexec.bat\n");
fprintf(fp, "DEL %s\x1a", temp);
fclose(fp);
return -1;
}
fprintf(fp, "SET AUTOFILE=%s\necho SET AUTOFILE=%s >> %s\n", fa, fa, fa);
if(dosdir == NULL) fprintf(fp, "echo SET DOSDIR=%s >> %s\n", dd, fa);
} else if(dosdir == NULL) fprintf(fp, "echo SET DOSDIR=%s >> %s\n", dd, fdauto);
if((fdconfig = getenv("CFGFILE")) == NULL) {
if( access("C:\\FDCONFIG.SYS", 0) == 0) strcpy(fc, "C:\\FDCONFIG.SYS");
else if(access("C:\\CONFIG.SYS" , 0) == 0) strcpy(fc, "C:\\CONFIG.SYS");
else {
kitten_printf(5,7,"Could not find suitable config.sys\n");
fprintf(fp, "DEL %s\x1a", temp);
fclose(fp);
return -1;
}
fprintf(fp, "SET CFGFILE=%s\necho SET CFGFILE=%s >> %s\n",
fc, fc, (fdauto == NULL) ? fa : fdauto);
}
fprintf(fp, "DEL %s\x1a", temp);
fclose(fp);
return 0;
}
