X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=compile.c;h=4360d97b767b317484592741cadef7cae4c7b76c;hb=60a3a6d1fe65dd15507d0e9e9472df4d1e097b89;hp=e383fbfe587938b979552c5e14496ce388faddca;hpb=5632f5eba4206c944c1b1dac2636200039ac6ff5;p=open-adventure.git diff --git a/compile.c b/compile.c index e383fbf..4360d97 100644 --- a/compile.c +++ b/compile.c @@ -1,29 +1,40 @@ +/* + * The dungeon compiler. Turns adventure.text into a set of C initializers + * defining (mostly) invariant state. A couple of slots are messed with + * at runtime. + */ +#include "sizes.h" + #define LINESIZE 100 #define RTXSIZ 277 #define CLSMAX 12 -#define LOCSIZ 185 -#define LINSIZ 12500 +#define LINSIZ 12600 #define TRNSIZ 5 #define TABSIZ 330 #define VRBSIZ 35 #define HNTSIZ 20 #define TRVSIZ 885 +#define TOKLEN 5 +#define HINTLEN 5 #include #include #include #include +/* hard limit, will be propagated to database.h */ +#define NOBJECTS 100 + const char advent_to_ascii[] = {0, 32, 33, 34, 39, 40, 41, 42, 43, 44, 45, 46, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 37, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 0, 1, 2, 3, 4, 5, 6, 7, 8, 0, 0, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 35, 36, 38, 47, 58, 59, 60, 61, 62, 63, 64, 91, 92, 93, 94, 95, 96, 123, 124, 125, 126, 0}; /* Rendered from the now-gone MPINIT() function */ const char ascii_to_advent[] = {0, 74, 75, 76, 77, 78, 79, 80, 81, 82, 0, 0, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 0, 1, 2, 106, 107, 63, 108, 3, 4, 5, 6, 7, 8, 9, 10, 109, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 110, 111, 112, 113, 114, 115, 116, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 117, 118, 119, 120, 121, 122, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 123, 124, 125, 126, 83}; // Global variables for use in functions below that can gradually disappear as code is cleaned up -long LNLENG; -long LNPOSN; -char INLINE[LINESIZE+1]; -long NEWLOC; -long OLDLOC; +static long LNLENG; +static long LNPOSN; +static char INLINE[LINESIZE+1]; +static long NEWLOC; +static long OLDLOC; // Storage for what comes out of the database long LINUSE; @@ -32,11 +43,11 @@ long CLSSES; long TRNVLS; long TABNDX; long HNTMAX; -long PTEXT[101]; +long PTEXT[NOBJECTS+1]; long RTEXT[RTXSIZ + 1]; long CTEXT[CLSMAX + 1]; -long OBJSND[101]; -long OBJTXT[101]; +long OBJSND[NOBJECTS+1]; +long OBJTXT[NOBJECTS+1]; long STEXT[LOCSIZ + 1]; long LTEXT[LOCSIZ + 1]; long COND[LOCSIZ + 1]; @@ -49,10 +60,10 @@ long TRNVAL[TRNSIZ + 1]; long TRAVEL[TRVSIZ + 1]; long KTAB[TABSIZ + 1]; long ATAB[TABSIZ + 1]; -long PLAC[101]; -long FIXD[101]; +long PLAC[NOBJECTS+1]; +long FIXD[NOBJECTS+1]; long ACTSPK[VRBSIZ + 1]; -long HINTS[HNTSIZ + 1][5]; +long HINTS[HNTSIZ + 1][HINTLEN]; bool is_set(long, long); long GETTXT(long, long, long); @@ -70,7 +81,7 @@ void read_hints(FILE*); void read_sound_text(FILE*); void write_0d(FILE*, FILE*, long, char*); void write_1d(FILE*, FILE*, long[], long, char*); -void write_hints(FILE*, FILE*, long[][5], long, long, char*); +void write_hints(FILE*, FILE*, long[][HINTLEN], long, long, char*); void write_files(FILE*, FILE*); bool is_set(long var, long position) @@ -87,47 +98,46 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) { * end of the line, the word is filled up with blanks (which encode as 0's). * If we're already at end of line when GETTXT is called, we return -1. */ - long CHAR; - long GETTXT; + long TEXT; static long SPLITTING = -1; if(LNPOSN != SPLITTING) SPLITTING = -1; - GETTXT= -1; + TEXT= -1; while (true) { if(LNPOSN > LNLENG) - return(GETTXT); + return(TEXT); if((!SKIP) || INLINE[LNPOSN] != 0) break; LNPOSN=LNPOSN+1; } - GETTXT=0; - for (int I=1; I<=5; I++) { - GETTXT=GETTXT*64; + TEXT=0; + for (int I=1; I<=TOKLEN; I++) { + TEXT=TEXT*64; if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0)) continue; - CHAR=INLINE[LNPOSN]; - if(CHAR < 63) { + char current=INLINE[LNPOSN]; + if(current < 63) { SPLITTING = -1; - if(UPPER && CHAR >= 37) - CHAR=CHAR-26; - GETTXT=GETTXT+CHAR; + if(UPPER && current >= 37) + current=current-26; + TEXT=TEXT+current; LNPOSN=LNPOSN+1; continue; } if(SPLITTING != LNPOSN) { - GETTXT=GETTXT+63; + TEXT=TEXT+63; SPLITTING = LNPOSN; continue; } - GETTXT=GETTXT+CHAR-63; + TEXT=TEXT+current-63; SPLITTING = -1; LNPOSN=LNPOSN+1; } - return(GETTXT); + return(TEXT); } void BUG(long NUM) { @@ -258,13 +268,18 @@ int read_database(FILE* database) { * section 6's stuff. CTEXT(N) points to a player-class message. TTEXT is for * section 14. We also clear COND (see description of section 9 for details). */ - for (int I=1; I<=300; I++) { - if(I <= 100) PTEXT[I] = 0; - if(I <= RTXSIZ) RTEXT[I] = 0; - if(I <= CLSMAX) CTEXT[I] = 0; - if(I <= 100) OBJSND[I] = 0; - if(I <= 100) OBJTXT[I] = 0; - if(I > LOCSIZ) break; + for (int I=1; I<=NOBJECTS; I++) { + PTEXT[I] = 0; + OBJSND[I] = 0; + OBJTXT[I] = 0; + } + for (int I=1; I<=RTXSIZ; I++) { + RTEXT[I] = 0; + } + for (int I=1; I<=CLSMAX; I++) { + CTEXT[I] = 0; + } + for (int I=1; I<=LOCSIZ; I++) { STEXT[I] = 0; LTEXT[I] = 0; COND[I] = 0; @@ -352,7 +367,7 @@ void read_messages(FILE* database, long SECT) } if(SECT == 5) { - if(LOC > 0 && LOC <= 100)PTEXT[LOC]=LINUSE; + if(LOC > 0 && LOC <= NOBJECTS)PTEXT[LOC]=LINUSE; continue; } if(LOC > LOCSIZ)BUG(10); @@ -492,13 +507,15 @@ void read_sound_text(FILE* database) /* Finish constructing internal data format */ -/* Having read in the database, certain things are now constructed. PROPS are - * set to zero. We finish setting up COND by checking for forced-motion travel - * entries. The PLAC and FIXD arrays are used to set up ATLOC(N) as the first - * object at location N, and LINK(OBJ) as the next object at the same location - * as OBJ. (OBJ>100 indicates that FIXED(OBJ-100)=LOC; LINK(OBJ) is still the - * correct link to use.) ABB is zeroed; it controls whether the abbreviated - * description is printed. Counts modulo 5 unless "LOOK" is used. */ +/* Having read in the database, certain things are now constructed. + * PROPS are set to zero. We finish setting up COND by checking for + * forced-motion travel entries. The PLAC and FIXD arrays are used + * to set up ATLOC(N) as the first object at location N, and + * LINK(OBJ) as the next object at the same location as OBJ. + * (OBJ>NOBJECTS indicates that FIXED(OBJ-NOBJECTS)=LOC; LINK(OBJ) is + * still the correct link to use.) game.abbrev is zeroed; it controls + * whether the abbreviated description is printed. Counts modulo 5 + * unless "LOOK" is used. */ void write_0d(FILE* c_file, FILE* header_file, long single, char* varname) { @@ -523,7 +540,7 @@ void write_1d(FILE* c_file, FILE* header_file, long array[], long dim, char* var fprintf(header_file, "extern long %s[%ld];\n", varname, dim); } -void write_hints(FILE* c_file, FILE* header_file, long matrix[][5], long dim1, long dim2, char* varname) +void write_hints(FILE* c_file, FILE* header_file, long matrix[][HINTLEN], long dim1, long dim2, char* varname) { fprintf(c_file, "long %s[][%ld] = {\n", varname, dim2); for (int i = 0; i < dim1; ++i) @@ -542,15 +559,17 @@ void write_hints(FILE* c_file, FILE* header_file, long matrix[][5], long dim1, l void write_files(FILE* c_file, FILE* header_file) { // preprocessor defines for the header + fprintf(header_file, "#include \"sizes.h\"\n"); fprintf(header_file, "#define RTXSIZ 277\n"); fprintf(header_file, "#define CLSMAX 12\n"); - fprintf(header_file, "#define LOCSIZ 185\n"); - fprintf(header_file, "#define LINSIZ 12500\n"); + fprintf(header_file, "#define LINSIZ %d\n", LINSIZ); fprintf(header_file, "#define TRNSIZ 5\n"); fprintf(header_file, "#define TABSIZ 330\n"); fprintf(header_file, "#define VRBSIZ 35\n"); fprintf(header_file, "#define HNTSIZ 20\n"); fprintf(header_file, "#define TRVSIZ 885\n"); + fprintf(header_file, "#define TOKLEN %d\n", TOKLEN); + fprintf(header_file, "#define HINTLEN %d\n", HINTLEN); fprintf(header_file, "\n"); // include the header in the C file @@ -564,11 +583,11 @@ void write_files(FILE* c_file, FILE* header_file) write_0d(c_file, header_file, TRNVLS, "TRNVLS"); write_0d(c_file, header_file, TABNDX, "TABNDX"); write_0d(c_file, header_file, HNTMAX, "HNTMAX"); - write_1d(c_file, header_file, PTEXT, 100 + 1, "PTEXT"); + write_1d(c_file, header_file, PTEXT, NOBJECTS + 1, "PTEXT"); write_1d(c_file, header_file, RTEXT, RTXSIZ + 1, "RTEXT"); write_1d(c_file, header_file, CTEXT, CLSMAX + 1, "CTEXT"); - write_1d(c_file, header_file, OBJSND, 100 + 1, "OBJSND"); - write_1d(c_file, header_file, OBJTXT, 100 + 1, "OBJTXT"); + write_1d(c_file, header_file, OBJSND, NOBJECTS + 1, "OBJSND"); + write_1d(c_file, header_file, OBJTXT, NOBJECTS + 1, "OBJTXT"); write_1d(c_file, header_file, STEXT, LOCSIZ + 1, "STEXT"); write_1d(c_file, header_file, LTEXT, LOCSIZ + 1, "LTEXT"); write_1d(c_file, header_file, COND, LOCSIZ + 1, "COND"); @@ -581,8 +600,8 @@ void write_files(FILE* c_file, FILE* header_file) write_1d(c_file, header_file, TRAVEL, TRVSIZ + 1, "TRAVEL"); write_1d(c_file, header_file, KTAB, TABSIZ + 1, "KTAB"); write_1d(c_file, header_file, ATAB, TABSIZ + 1, "ATAB"); - write_1d(c_file, header_file, PLAC, 100 + 1, "PLAC"); - write_1d(c_file, header_file, FIXD, 100 + 1, "FIXD"); + write_1d(c_file, header_file, PLAC, NOBJECTS + 1, "PLAC"); + write_1d(c_file, header_file, FIXD, NOBJECTS + 1, "FIXD"); write_1d(c_file, header_file, ACTSPK, VRBSIZ + 1, "ACTSPK"); write_hints(c_file, header_file, HINTS, HNTSIZ + 1, 5, "HINTS"); }