diff --git a/src/files.c b/src/files.c
index ab39a62c3909ca93a753929c157fa3eb9c6739f4..ef33a03d24265c6228e6a8a39f6b1987cfc90e04 100644 (file)
--- a/src/files.c
+++ b/src/files.c
#include "glob.h"
#include <stdio.h>
-//#include <conio.h>
-#include <malloc.h>
-//#include <dos.h>
#include <string.h>
#include <stdlib.h>
-//#include <sys\stat.h>
-#include "vga.h"
+#include <sys/stat.h>
#include "error.h"
-#include "sound.h"
-//#include "snddrv.h"
-#include "memory.h"
#include "view.h"
#include "items.h"
#include "switch.h"
#include "files.h"
#include "map.h"
-
char *S_getinfo(void);
extern void *snd_drv;
memset(wads,0,sizeof(wads));
}
-void F_getsavnames(void) {
+char *getsavfpname(int n, int ro)
+{
+ static char fn[]="savgame0.dat";
+ fn[7]=n+'0';
+#ifndef WIN32
+ static char p[100];
+ char *e = getenv("HOME");
+ strncpy(p,e,60);
+ strcat(p,"/.doom2d-rembo");
+ if (!ro) mkdir(p, S_IRWXU | S_IRWXG | S_IROTH | S_IXOTH);
+ strcat(p,"/");
+ strcat(p,fn);
+#else
+ strcpy(p,fn);
+#endif
+ return p;
+}
- int i; FILE *h;
- static char n[]="SAVGAME0.DAT";
+void F_getsavnames (void) {
+ int i;
+ FILE *h;
short ver;
-
- for(i=0;i<7;++i) {
- n[7]=i+'0';memset(savname[i],0,24);savok[i]=0;
- if((h=fopen(n,"rb"))==NULL) continue; //if((h=open(n,O_RDONLY|O_BINARY))==-1) continue;
- myfread(savname[i],1,24,h);ver=-1;myfread(&ver,1,2,h);
- fclose(h);savname[i][23]=0;savok[i]=(ver==3)?1:0;//savok[i]=(ver==2)?1:0;
+ char *p;
+ for (i = 0; i < 7; ++i) {
+ p = getsavfpname(i, 1);
+ memset(savname[i], 0, 24);
+ savok[i] = 0;
+ h = fopen(p, "rb");
+ if (h != NULL) {
+ ver = -1;
+ myfread(savname[i], 24, 1, h);
+ myfread16(&ver, h);
+ savname[i][23] = 0;
+ savok[i] = (ver == 3) ? 1 : 0;
+ fclose(h);
+ }
}
}
-void F_savegame(int n,char *s) {
-
- FILE* h;
- static char fn[]="SAVGAME0.DAT";
-
- fn[7]=n+'0';
- if((h=fopen(fn,"wb"))==NULL) return;
- myfwrite(s,1,24,h);myfwrite("\3\0",1,2,h);//myfwrite("\2\0",1,2,h);
- G_savegame(h);
- W_savegame(h);
- DOT_savegame(h);
- SMK_savegame(h);
- FX_savegame(h);
- IT_savegame(h);
- MN_savegame(h);
- PL_savegame(h);
- SW_savegame(h);
- WP_savegame(h);
- fclose(h);
-
+void F_savegame (int n, char *s) {
+ char *p = getsavfpname(n, 0);
+ FILE *h = fopen(p, "wb");
+ if (h != NULL) {
+ myfwrite(s, 24, 1, h); // slot name
+ myfwrite16(3, h); // version
+ G_savegame(h);
+ W_savegame(h);
+ DOT_savegame(h);
+ SMK_savegame(h);
+ FX_savegame(h);
+ IT_savegame(h);
+ MN_savegame(h);
+ PL_savegame(h);
+ SW_savegame(h);
+ WP_savegame(h);
+ fclose(h);
+ }
}
-void F_loadgame(int n) {
- FILE* h;
- static char fn[]="SAVGAME0.DAT";
+void F_loadgame (int n) {
short ver;
-
- fn[7]=n+'0';
- if((h=fopen(fn,"rb"))==NULL) return;//if((h=open(fn,O_BINARY|O_RDONLY))==-1) return;
- fseek(h,24,SEEK_SET);myfread(&ver,1,2,h);if(ver!=3) return;//if(ver!=2) return;
- G_loadgame(h);
- W_loadgame(h);
- DOT_loadgame(h);
- SMK_loadgame(h);
- FX_loadgame(h);
- IT_loadgame(h);
- MN_loadgame(h);
- PL_loadgame(h);
- SW_loadgame(h);
- WP_loadgame(h);
- fclose(h);
+ char *p = getsavfpname(n, 1);
+ FILE *h = fopen(p, "rb");
+ if (h != NULL) {
+ fseek(h, 24, SEEK_SET); // skip name
+ myfread16(&ver, h); // version
+ if (ver == 3) {
+ G_loadgame(h);
+ W_loadgame(h);
+ DOT_loadgame(h);
+ SMK_loadgame(h);
+ FX_loadgame(h);
+ IT_loadgame(h);
+ MN_loadgame(h);
+ PL_loadgame(h);
+ SW_loadgame(h);
+ WP_loadgame(h);
+ }
+ fclose(h);
+ }
}
void F_addwad(char *fn) {
extern void mysplitpath(const char* path, char* drv, char* dir, char* name, char* ext);
+static int myread_int32 (FILE *f) {
+ int x;
+ myfread(&x, 4, 1, f);
+ return int2host(x);
+}
+
// build wad directory
-void F_initwads(void) {
- int i,j,k,p;
+void F_initwads (void) {
+ int i, j, k, p;
FILE *h;
char s[4];
- int n,o;
+ int n, o;
wad_t w;
logo("F_initwads: подключение WAD-файлов\n");
- for(i=0;i<MAX_WAD;++i) wad[i].n[0]=0;
- logo(" подключается %s\n",wads[0]);
- if((wadh[0]=h=fopen(wads[0],"rb"))==NULL)//if((wadh[0]=h=open(wads[0],O_RDWR|O_BINARY))==-1)
- ERR_failinit("Не могу открыть файл: %s",wads[0]);//sys_errlist[errno]);
- *s=0;myfread(s,1,4,h);
- if(strncmp(s,"IWAD",4)!=0 && strncmp(s,"PWAD",4)!=0)
- ERR_failinit("Нет подписи IWAD или PWAD");
- myfread(&n,1,4,h);myfread(&o,1,4,h);fseek(h,o,SEEK_SET);
- for(j=0,p=0;j<n;++j) {
- myfread(&w,1,16,h);
- if(p>=MAX_WAD) ERR_failinit("Слишком много элементов WAD'а");
- memcpy(wad[p].n,w.n,8);
- wad[p].o=w.o;wad[p].l=w.l;wad[p].f=0;
- ++p;
+ for (i = 0; i < MAX_WAD; ++i) {
+ wad[i].n[0] = 0;
+ }
+
+ logo(" подключается %s\n", wads[0]);
+ if ((wadh[0] = h = fopen(wads[0], "rb")) == NULL) {
+ ERR_failinit("Не могу открыть файл: %s", wads[0]);
+ }
+
+ s[0] = '\0';
+ myfread(s, 1, 4, h);
+ if (strncmp(s, "IWAD", 4) != 0 && strncmp(s, "PWAD", 4) != 0) {
+ ERR_failinit("Нет подписи IWAD или PWAD (1)");
+ }
+
+ p = 0; // wad number
+ n = myread_int32(h); // num
+ o = myread_int32(h); // offset
+ fseek(h, o, SEEK_SET);
+ for (j = 0; j < n; ++j) {
+ w.o = myread_int32(h); // offset
+ w.l = myread_int32(h); // len
+ myfread(w.n, 1, 8, h); // name
+ if (p >= MAX_WAD) {
+ ERR_failinit("Слишком много элементов WAD'а");
+ }
+ wad[p].o = w.o;
+ wad[p].l = w.l;
+ memcpy(wad[p].n, w.n, 8);
+ wad[p].f = 0;
+ ++p;
}
+
//fclose(h);
- for(i=1;i<MAX_WADS;++i) if(wads[i][0]!=0) {
-
- logo(" подключается %s\n",wads[i]);
- if((wadh[i]=h=fopen(wads[i], "rb"))==NULL) //if((wadh[i]=h=open(wads[i],O_RDONLY|O_BINARY))==-1)
- ERR_failinit("Не могу открыть файл2: %s",wads[i]);//sys_errlist[errno]);
- mysplitpath(wads[i],f_drive,f_dir,f_name,f_ext);
- if(strcasecmp(f_ext,".lmp")==0) {
- for(k=0;k<MAX_WAD;++k) if(strncasecmp(wad[k].n,f_name,8)==0)
- {wad[k].o=0L;wad[k].l=myfilelength(h);wad[k].f=i;break;}
- if(k>=MAX_WAD) {
- if(p>=MAX_WAD) ERR_failinit("Слишком много элементов WAD'а");
- memset(wad[p].n,0,8);
- strncpy(wad[p].n,f_name,8);
- wad[p].o=0L;wad[p].l=myfilelength(h);wad[p].f=i;
- ++p;
- }
- continue;
- }
- *s=0;myfread(s,1,4,h);
- if(strncmp(s,"IWAD",4)!=0 && strncmp(s,"PWAD",4)!=0)
- ERR_failinit("Нет подписи IWAD или PWAD");
- myfread(&n,1,4,h);myfread(&o,1,4,h);fseek(h,o,SEEK_SET);
- for(j=0;j<n;++j) {
- myfread(&w,1,16,h);
- for(k=0;k<MAX_WAD;++k) if(strncasecmp(wad[k].n,w.n,8)==0)
- {wad[k].o=w.o;wad[k].l=w.l;wad[k].f=i;break;}
- if(k>=MAX_WAD) {
- if(p>=MAX_WAD) ERR_failinit("Слишком много элементов WAD'а");
- memcpy(wad[p].n,w.n,8);
- wad[p].o=w.o;wad[p].l=w.l;wad[p].f=i;
- ++p;
+
+ for (i = 1; i < MAX_WADS; ++i) {
+ if (wads[i][0] != 0) {
+ logo(" подключается %s\n", wads[i]);
+ if ((wadh[i] = h = fopen(wads[i], "rb")) == NULL) {
+ ERR_failinit("Не могу открыть файл2: %s", wads[i]);
+ }
+ mysplitpath(wads[i], f_drive, f_dir, f_name, f_ext);
+ if (strcasecmp(f_ext, ".lmp") == 0) {
+ for (k = 0; k < MAX_WAD; ++k) {
+ if (strncasecmp(wad[k].n, f_name, 8) == 0) {
+ wad[k].o = 0;
+ wad[k].l = myfilelength(h);
+ wad[k].f = i;
+ break;
+ }
+ if (k >= MAX_WAD) {
+ if (p >= MAX_WAD) {
+ ERR_failinit("Слишком много элементов WAD'а");
+ }
+ memset(wad[p].n, 0, 8);
+ strncpy(wad[p].n, f_name, 8);
+ wad[p].o = 0;
+ wad[p].l = myfilelength(h);
+ wad[p].f = i;
+ ++p;
+ }
+ }
+
+ s[0] = '\0';
+ myfread(s, 1, 4, h);
+ if (strncmp(s, "IWAD", 4) != 0 && strncmp(s, "PWAD", 4) != 0) {
+ ERR_failinit("Нет подписи IWAD или PWAD (2)");
+ }
+ n = myread_int32(h); // num
+ o = myread_int32(h); // offset
+ fseek(h, o, SEEK_SET);
+ for (j = 0; j < n; ++j) {
+ w.o = myread_int32(h); // offset
+ w.l = myread_int32(h); // len
+ myfread(w.n, 1, 8, h); // name
+ for (k = 0; k < MAX_WAD; ++k) {
+ if (strncasecmp(wad[k].n, w.n, 8) == 0) {
+ wad[k].o = w.o;
+ wad[k].l = w.l;
+ wad[k].f = i;
+ break;
+ }
+ if (k >= MAX_WAD) {
+ if (p >= MAX_WAD) {
+ ERR_failinit("Слишком много элементов WAD'а");
+ }
+ memcpy(wad[p].n, w.n, 8);
+ wad[p].o = w.o;
+ wad[p].l = w.l;
+ wad[p].f = i;
+ ++p;
+ }
+ }
+ }
}
}
- }
- wad_num=p;
-
+ }
+
+ wad_num = p;
}
// allocate resources
}
// reads bytes from file until CR
-void F_readstr(FILE* h,char *s,int m) {
- int i;
- static char c;
-
- for(i=0;;) {
- c=13;
- myfreadc(&c,1,1,h);
- if(c==13) break;
- if(i<m) s[i++]=c;
+void F_readstr(FILE* h, char *s, int m) {
+ int i = 0;
+ size_t len = 0;
+ static char c = 0;
+ while (i < m) {
+ c = 13;
+ len = myfreadc(&c, 1, 1, h);
+ if (len == 0 || c == 13 || c == 10) {
+ break;
+ }
+ s[i] = c;
+ i++;
}
- s[i]=0;
+ s[i] = 0;
}
// reads bytes from file until NUL
void F_readstrz(FILE* h,char *s,int m) {
- int i;
- static char c;
-
- for(i=0;;) {
- c=0;
- myfreadc(&c,1,1,h);
- if(c==0) break;
- if(i<m) s[i++]=c;
+ int i = 0;
+ size_t len = 0;
+ static char c = 0;
+ while (i < m) {
+ c = 0;
+ len = myfreadc(&c, 1, 1, h);
+ if (len == 0 || c == 0) {
+ break;
+ }
+ s[i] = c;
+ i++;
}
- s[i]=0;
+ s[i] = 0;
}
map_block_t blk;
void F_loadmap(char n[8]) {
-
- int r;
+ int r, o;
FILE *h;
map_header_t hdr;
- int o;
-
W_init();
- r=F_getresid(n);
- fseek(h=wadh[wad[r].f],wad[r].o,SEEK_SET);
- myfread(&hdr,1,sizeof(hdr),h);
- if(memcmp(hdr.id,"Doom2D\x1A",8)!=0)
- ERR_fatal("%.8s не является уровнем",n);
+ r = F_getresid(n);
+ h = wadh[wad[r].f];
+ fseek(h, wad[r].o, SEEK_SET);
+ myfread(hdr.id, 8, 1, h);
+ myfread16(&hdr.ver, h);
+ if (memcmp(hdr.id, "Doom2D\x1A", 8) != 0) {
+ ERR_fatal("%.8s не является уровнем", n);
+ }
for(;;) {
- myfread(&blk,1,sizeof(blk),h);
- if(blk.t==MB_END) break;
- if(blk.t==MB_COMMENT)
- {fseek(h,blk.sz,SEEK_CUR);continue;}
- o=ftell(h)+blk.sz;
- if(!G_load(h))
- if(!W_load(h))
- if(!IT_load(h))
- if(!SW_load(h))
- ERR_fatal("Неизвестный блок %d(%d) в уровне %.8s",blk.t,blk.st,n);
- fseek(h,o,SEEK_SET);
+ myfread16(&blk.t, h);
+ myfread16(&blk.st, h);
+ myfread32(&blk.sz, h);
+ if(blk.t == MB_END) {
+ break;
+ }
+ if(blk.t == MB_COMMENT) {
+ fseek(h, blk.sz, SEEK_CUR);
+ continue;
+ }
+ o = ftell(h) + blk.sz;
+ if(!G_load(h)) {
+ if(!W_load(h)) {
+ if(!IT_load(h)) {
+ if(!SW_load(h)) {
+ ERR_fatal("Неизвестный блок %d(%d) в уровне %.8s", blk.t, blk.st, n);
+ }
+ }
+ }
+ }
+ fseek(h, o, SEEK_SET);
}
-
}
/*void F_freemus(void) {