From: Eric S. Raymond Date: Wed, 7 Jun 2017 10:47:01 +0000 (-0400) Subject: Change name of dungeon maker - dual use of "compile" was confusing. X-Git-Tag: 1.1~581 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=3ba084480ae0743234b24d93617a12784b4f4035;p=open-adventure.git Change name of dungeon maker - dual use of "compile" was confusing. --- diff --git a/.gitignore b/.gitignore index 4a8fcd6..a2fd689 100644 --- a/.gitignore +++ b/.gitignore @@ -1,5 +1,5 @@ advent -compile +dungeon *.gcda *.gcno *.o diff --git a/Makefile b/Makefile index 24759f7..a29ae4d 100644 --- a/Makefile +++ b/Makefile @@ -11,7 +11,7 @@ ifeq ($(UNAME_S),Linux) endif OBJS=main.o init.o actions1.o actions2.o score.o misc.o -SOURCES=$(OBJS:.o=.c) compile.c advent.h funcs.h sizes.h adventure.text Makefile control +SOURCES=$(OBJS:.o=.c) dungeon.c advent.h funcs.h sizes.h adventure.text Makefile control .c.o: $(CC) $(CCFLAGS) $(DBX) -c $< @@ -33,15 +33,15 @@ misc.o: advent.h database.h sizes.h database.o: database.h sizes.h -compile: compile.c +dungeon: dungeon.c $(CC) $(CCFLAGS) -o $@ $< -database.c database.h: compile adventure.text - ./compile +database.c database.h: dungeon adventure.text + ./dungeon $(CC) $(CCFLAGS) $(DBX) -c database.c clean: - rm -f *.o advent *.html database.[ch] compile *.gcno *.gcda + rm -f *.o advent *.html database.[ch] dungeon *.gcno *.gcda rm -f README advent.6 MANIFEST *.tar.gz cd tests; $(MAKE) --quiet clean diff --git a/compile.c b/compile.c deleted file mode 100644 index 7f6d8ed..0000000 --- a/compile.c +++ /dev/null @@ -1,621 +0,0 @@ -/* - * 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 LINSIZ 12600 -#define TRNSIZ 5 -#define TABSIZ 330 -#define VRBSIZ 35 -#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 -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; -long TRVS; -long CLSSES; -long TRNVLS; -long TABNDX; -long HNTMAX; -long PTEXT[NOBJECTS+1]; -long RTEXT[RTXSIZ + 1]; -long CTEXT[CLSMAX + 1]; -long OBJSND[NOBJECTS+1]; -long OBJTXT[NOBJECTS+1]; -long STEXT[LOCSIZ + 1]; -long LTEXT[LOCSIZ + 1]; -long COND[LOCSIZ + 1]; -long KEY[LOCSIZ + 1]; -long LOCSND[LOCSIZ + 1]; -long LINES[LINSIZ + 1]; -long CVAL[CLSMAX + 1]; -long TTEXT[TRNSIZ + 1]; -long TRNVAL[TRNSIZ + 1]; -long TRAVEL[TRVSIZ + 1]; -long KTAB[TABSIZ + 1]; -long ATAB[TABSIZ + 1]; -long PLAC[NOBJECTS+1]; -long FIXD[NOBJECTS+1]; -long ACTSPK[VRBSIZ + 1]; -long HINTS[HNTSIZ + 1][HINTLEN]; - -bool is_set(long, long); -long GETTXT(long, long, long); -void BUG(long); -void MAPLIN(FILE*); -long GETNUM(FILE*); -int read_database(FILE*); -void read_messages(FILE*, long); -void read_section3_stuff(FILE*); -void read_vocabulary(FILE*); -void read_initial_locations(FILE*); -void read_action_verb_message_nr(FILE*); -void read_conditions(FILE*); -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[][HINTLEN], long, long, char*); -void write_files(FILE*, FILE*); - -bool is_set(long var, long position) -{ - long mask = 1l << position; - bool result = (var & mask) == mask; - return(result); -} - -long GETTXT(long SKIP,long ONEWRD, long UPPER) { -/* Take characters from an input line and pack them into 30-bit words. - * Skip says to skip leading blanks. ONEWRD says stop if we come to a - * blank. UPPER says to map all letters to uppercase. If we reach the - * 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 TEXT; - static long SPLITTING = -1; - - if(LNPOSN != SPLITTING) - SPLITTING = -1; - TEXT= -1; - while (true) { - if(LNPOSN > LNLENG) - return(TEXT); - if((!SKIP) || INLINE[LNPOSN] != 0) - break; - LNPOSN=LNPOSN+1; - } - - TEXT=0; - for (int I=1; I<=TOKLEN; I++) { - TEXT=TEXT*64; - if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0)) - continue; - char current=INLINE[LNPOSN]; - if(current < 63) { - SPLITTING = -1; - if(UPPER && current >= 37) - current=current-26; - TEXT=TEXT+current; - LNPOSN=LNPOSN+1; - continue; - } - if(SPLITTING != LNPOSN) { - TEXT=TEXT+63; - SPLITTING = LNPOSN; - continue; - } - - TEXT=TEXT+current-63; - SPLITTING = -1; - LNPOSN=LNPOSN+1; - } - - return(TEXT); -} - -void BUG(long NUM) { - -/* The following conditions are currently considered fatal bugs. Numbers < 20 - * are detected while reading the database; the others occur at "run time". - * 0 Message line > 70 characters - * 1 Null line in message - * 2 Too many words of messages - * 3 Too many travel options - * 4 Too many vocabulary words - * 5 Required vocabulary word not found - * 6 Too many RTEXT messages - * 7 Too many hints - * 8 Location has cond bit being set twice - * 9 Invalid section number in database - * 10 Too many locations - * 11 Too many class or turn messages - * 20 Special travel (500>L>300) exceeds goto list - * 21 Ran off end of vocabulary table - * 22 Vocabulary type (N/1000) not between 0 and 3 - * 23 Intransitive action verb exceeds goto list - * 24 Transitive action verb exceeds goto list - * 25 Conditional travel entry with no alternative - * 26 Location has no travel entries - * 27 Hint number exceeds goto list - * 28 Invalid month returned by date function - * 29 Too many parameters given to SETPRM */ - - fprintf(stderr, "Fatal error %ld. See source code for interpretation.\n", NUM); - exit(EXIT_FAILURE); -} - -void MAPLIN(FILE *OPENED) { -/* Read a line of input, from the specified input source, - * translate the chars to integers in the range 0-126 and store - * them in the common array "INLINE". Integer values are as follows: - * 0 = space [ASCII CODE 40 octal, 32 decimal] - * 1-2 = !" [ASCII 41-42 octal, 33-34 decimal] - * 3-10 = '()*+,-. [ASCII 47-56 octal, 39-46 decimal] - * 11-36 = upper-case letters - * 37-62 = lower-case letters - * 63 = percent (%) [ASCII 45 octal, 37 decimal] - * 64-73 = digits, 0 through 9 - * Remaining characters can be translated any way that is convenient; - * The "TYPE" routine below is used to map them back to characters when - * necessary. The above mappings are required so that certain special - * characters are known to fit in 6 bits and/or can be easily spotted. - * Array elements beyond the end of the line should be filled with 0, - * and LNLENG should be set to the index of the last character. - * - * If the data file uses a character other than space (e.g., tab) to - * separate numbers, that character should also translate to 0. - * - * This procedure may use the map1,map2 arrays to maintain static data for - * the mapping. MAP2(1) is set to 0 when the program starts - * and is not changed thereafter unless the routines on this page choose - * to do so. */ - - do { - fgets(INLINE + 1, sizeof(INLINE) - 1, OPENED); - } - while (!feof(OPENED) && INLINE[1] == '#'); - - LNLENG = 0; - for (size_t i = 1; i <= sizeof(INLINE) && INLINE[i] != 0; ++i) - { - char val = INLINE[i] + 1; - INLINE[i] = ascii_to_advent[(unsigned)val]; - if (INLINE[i] != 0) - LNLENG = i; - } - LNPOSN = 1; -} - -long GETNUM(FILE *source) { -/* Obtain the next integer from an input line. If K>0, we first read a - * new input line from a file; if K<0, we read a line from the keyboard; - * if K=0 we use a line that has already been read (and perhaps partially - * scanned). If we're at the end of the line or encounter an illegal - * character (not a digit, hyphen, or blank), we return 0. */ - - long DIGIT, GETNUM, SIGN; - - if(source != NULL) MAPLIN(source); - GETNUM = 0; - - while (INLINE[LNPOSN] == 0) { - if (LNPOSN > LNLENG) return(GETNUM); - ++LNPOSN; - } - - if(INLINE[LNPOSN] != 9) - { - SIGN=1; - } - else - { - SIGN= -1; - LNPOSN=LNPOSN+1; - } - while (!(LNPOSN > LNLENG || INLINE[LNPOSN] == 0)) - { - DIGIT=INLINE[LNPOSN]-64; - if(DIGIT < 0 || DIGIT > 9) - { - GETNUM=0; - break; - } - GETNUM=GETNUM*10+DIGIT; - LNPOSN=LNPOSN+1; - } - - GETNUM=GETNUM*SIGN; - LNPOSN=LNPOSN+1; - return(GETNUM); -} - -int read_database(FILE* database) { - -/* Clear out the various text-pointer arrays. All text is stored in array - * lines; each line is preceded by a word pointing to the next pointer (i.e. - * the word following the end of the line). The pointer is negative if this is - * first line of a message. The text-pointer arrays contain indices of - * pointer-words in lines. STEXT(N) is short description of location N. - * LTEXT(N) is long description. PTEXT(N) points to message for PROP(N)=0. - * Successive prop messages are found by chasing pointers. RTEXT contains - * 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<=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; - KEY[I] = 0; - LOCSND[I] = 0; - } - - LINUSE = 1; - TRVS = 1; - CLSSES = 0; - TRNVLS = 0; - -/* Start new data section. Sect is the section number. */ - - while(true) - { - long SECT=GETNUM(database); - OLDLOC= -1; - switch (SECT) - { - case 0: return(0); - case 1: read_messages(database, SECT); break; - case 2: read_messages(database, SECT); break; - case 3: read_section3_stuff(database); break; - case 4: read_vocabulary(database); break; - case 5: read_messages(database, SECT); break; - case 6: read_messages(database, SECT); break; - case 7: read_initial_locations(database); break; - case 8: read_action_verb_message_nr(database); break; - case 9: read_conditions(database); break; - case 10: read_messages(database, SECT); break; - case 11: read_hints(database); break; - case 12: break; - case 13: read_sound_text(database); break; - case 14: read_messages(database, SECT); break; - default: BUG(9); - } - } -} - - -/* Sections 1, 2, 5, 6, 10, 14. Read messages and set up pointers. */ -void read_messages(FILE* database, long SECT) - { - long KK=LINUSE; - while(true) - { - long LOC; - LINUSE=KK; - LOC=GETNUM(database); - if(LNLENG >= LNPOSN+70)BUG(0); - if(LOC == -1) return; - if(LNLENG < LNPOSN)BUG(1); - do { - KK=KK+1; - if(KK >= LINSIZ)BUG(2); - LINES[KK]=GETTXT(false,false,false); - } - while(LINES[KK] != -1); - LINES[LINUSE]=KK; - if(LOC == OLDLOC) continue; - OLDLOC=LOC; - LINES[LINUSE]= -KK; - if(SECT == 14) - { - TRNVLS=TRNVLS+1; - if(TRNVLS > TRNSIZ)BUG(11); - TTEXT[TRNVLS]=LINUSE; - TRNVAL[TRNVLS]=LOC; - continue; - } - if(SECT == 10) - { - CLSSES=CLSSES+1; - if(CLSSES > CLSMAX)BUG(11); - CTEXT[CLSSES]=LINUSE; - CVAL[CLSSES]=LOC; - continue; - } - if(SECT == 6) - { - if(LOC > RTXSIZ)BUG(6); - RTEXT[LOC]=LINUSE; - continue; - } - if(SECT == 5) - { - if(LOC > 0 && LOC <= NOBJECTS)PTEXT[LOC]=LINUSE; - continue; - } - if(LOC > LOCSIZ)BUG(10); - if(SECT == 1) - { - LTEXT[LOC]=LINUSE; - continue; - } - - STEXT[LOC]=LINUSE; - } - } - - -/* The stuff for section 3 is encoded here. Each "from-location" gets a - * contiguous section of the "TRAVEL" array. Each entry in travel is - * NEWLOC*1000 + KEYWORD (from section 4, motion verbs), and is negated if - * this is the last entry for this location. KEY(N) is the index in travel - * of the first option at location N. */ -void read_section3_stuff(FILE* database) - { - long LOC; - while((LOC=GETNUM(database)) != -1) - { - long NEWLOC=GETNUM(NULL); - long L; - if(KEY[LOC] == 0) - { - KEY[LOC]=TRVS; - } - else - { - TRAVEL[TRVS-1]= -TRAVEL[TRVS-1]; - } - while((L=GETNUM(NULL)) != 0) - { - TRAVEL[TRVS]=NEWLOC*1000+L; - TRVS=TRVS+1; - if(TRVS == TRVSIZ)BUG(3); - } - TRAVEL[TRVS-1]= -TRAVEL[TRVS-1]; - } - } - - -/* Here we read in the vocabulary. KTAB(N) is the word number, ATAB(N) is - * the corresponding word. The -1 at the end of section 4 is left in KTAB - * as an end-marker. */ -void read_vocabulary(FILE* database) - { - for (TABNDX=1; TABNDX<=TABSIZ; TABNDX++) - { - KTAB[TABNDX]=GETNUM(database); - if(KTAB[TABNDX] == -1) return; - ATAB[TABNDX]=GETTXT(true,true,true); - } /* end loop */ - BUG(4); - } - - -/* Read in the initial locations for each object. Also the immovability info. - * plac contains initial locations of objects. FIXD is -1 for immovable - * objects (including the snake), or = second loc for two-placed objects. */ -void read_initial_locations(FILE* database) - { - long OBJ; - while((OBJ=GETNUM(database)) != -1) - { - PLAC[OBJ]=GETNUM(NULL); - FIXD[OBJ]=GETNUM(NULL); - } - } - - -/* Read default message numbers for action verbs, store in ACTSPK. */ -void read_action_verb_message_nr(FILE* database) - { - long VERB; - while((VERB=GETNUM(database)) != -1) - { - ACTSPK[VERB]=GETNUM(NULL); - } - } - - -/* Read info about available liquids and other conditions, store in COND. */ -void read_conditions(FILE* database) - { - long K; - while((K=GETNUM(database)) != -1) - { - long LOC; - while((LOC=GETNUM(NULL)) != 0) - { - if(is_set(COND[LOC],K)) BUG(8); - COND[LOC]=COND[LOC] + (1l << K); - } - } - } - - -/* Read data for hints. */ -void read_hints(FILE* database) - { - long K; - HNTMAX=0; - while((K=GETNUM(database)) != -1) - { - if(K <= 0 || K > HNTSIZ)BUG(7); - for (int I=1; I<=4; I++) - { - HINTS[K][I] =GETNUM(NULL); - } /* end loop */ - HNTMAX=(HNTMAX>K ? HNTMAX : K); - } - } - - -/* Read the sound/text info, store in OBJSND, OBJTXT, LOCSND. */ -void read_sound_text(FILE* database) - { - long K; - while((K=GETNUM(database)) != -1) - { - long KK=GETNUM(NULL); - long I=GETNUM(NULL); - if(I != 0) - { - OBJSND[K]=(KK>0 ? KK : 0); - OBJTXT[K]=(I>0 ? I : 0); - continue; - } - - LOCSND[K]=KK; - } - } - -/* 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 game.atloc(N) as the first object at location N, and - * game.link(OBJ) as the next object at the same location as OBJ. - * (OBJ>NOBJECTS indicates that game.fixed(OBJ-NOBJECTS)=LOC; game.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) -{ - fprintf(c_file, "long %s = %ld;\n", varname, single); - fprintf(header_file, "extern long %s;\n", varname); -} - -void write_1d(FILE* c_file, FILE* header_file, long array[], long dim, char* varname) -{ - fprintf(c_file, "long %s[] = {\n", varname); - for (int i = 0; i < dim; ++i) - { - if (i % 10 == 0) - { - if (i > 0) - fprintf(c_file, "\n"); - fprintf(c_file, " "); - } - fprintf(c_file, "%ld, ", array[i]); - } - fprintf(c_file, "\n};\n"); - fprintf(header_file, "extern long %s[%ld];\n", varname, dim); -} - -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) - { - fprintf(c_file, " {"); - for (int j = 0; j < dim2; ++j) - { - fprintf(c_file, "%ld, ", matrix[i][j]); - } - fprintf(c_file, "},\n"); - } - fprintf(c_file, "};\n"); - fprintf(header_file, "extern long %s[%ld][%ld];\n", varname, dim1, dim2); -} - -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 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 - fprintf(c_file, "#include \"database.h\"\n"); - fprintf(c_file, "\n"); - - // content variables - write_0d(c_file, header_file, LINUSE, "LINUSE"); - write_0d(c_file, header_file, TRVS, "TRVS"); - write_0d(c_file, header_file, CLSSES, "CLSSES"); - 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, 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, 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"); - write_1d(c_file, header_file, KEY, LOCSIZ + 1, "KEY"); - write_1d(c_file, header_file, LOCSND, LOCSIZ + 1, "LOCSND"); - write_1d(c_file, header_file, LINES, LINSIZ + 1, "LINES"); - write_1d(c_file, header_file, CVAL, CLSMAX + 1, "CVAL"); - write_1d(c_file, header_file, TTEXT, TRNSIZ + 1, "TTEXT"); - write_1d(c_file, header_file, TRNVAL, TRNSIZ + 1, "TRNVAL"); - 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, 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"); -} - -int main() -{ - FILE* database = fopen("adventure.text", "r"); - read_database(database); - fclose(database); - - FILE* c_file = fopen("database.c", "w"); - FILE* header_file = fopen("database.h", "w"); - write_files(c_file, header_file); - fclose(c_file); - fclose(header_file); - - return(EXIT_SUCCESS); -} diff --git a/dungeon.c b/dungeon.c new file mode 100644 index 0000000..7f6d8ed --- /dev/null +++ b/dungeon.c @@ -0,0 +1,621 @@ +/* + * 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 LINSIZ 12600 +#define TRNSIZ 5 +#define TABSIZ 330 +#define VRBSIZ 35 +#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 +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; +long TRVS; +long CLSSES; +long TRNVLS; +long TABNDX; +long HNTMAX; +long PTEXT[NOBJECTS+1]; +long RTEXT[RTXSIZ + 1]; +long CTEXT[CLSMAX + 1]; +long OBJSND[NOBJECTS+1]; +long OBJTXT[NOBJECTS+1]; +long STEXT[LOCSIZ + 1]; +long LTEXT[LOCSIZ + 1]; +long COND[LOCSIZ + 1]; +long KEY[LOCSIZ + 1]; +long LOCSND[LOCSIZ + 1]; +long LINES[LINSIZ + 1]; +long CVAL[CLSMAX + 1]; +long TTEXT[TRNSIZ + 1]; +long TRNVAL[TRNSIZ + 1]; +long TRAVEL[TRVSIZ + 1]; +long KTAB[TABSIZ + 1]; +long ATAB[TABSIZ + 1]; +long PLAC[NOBJECTS+1]; +long FIXD[NOBJECTS+1]; +long ACTSPK[VRBSIZ + 1]; +long HINTS[HNTSIZ + 1][HINTLEN]; + +bool is_set(long, long); +long GETTXT(long, long, long); +void BUG(long); +void MAPLIN(FILE*); +long GETNUM(FILE*); +int read_database(FILE*); +void read_messages(FILE*, long); +void read_section3_stuff(FILE*); +void read_vocabulary(FILE*); +void read_initial_locations(FILE*); +void read_action_verb_message_nr(FILE*); +void read_conditions(FILE*); +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[][HINTLEN], long, long, char*); +void write_files(FILE*, FILE*); + +bool is_set(long var, long position) +{ + long mask = 1l << position; + bool result = (var & mask) == mask; + return(result); +} + +long GETTXT(long SKIP,long ONEWRD, long UPPER) { +/* Take characters from an input line and pack them into 30-bit words. + * Skip says to skip leading blanks. ONEWRD says stop if we come to a + * blank. UPPER says to map all letters to uppercase. If we reach the + * 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 TEXT; + static long SPLITTING = -1; + + if(LNPOSN != SPLITTING) + SPLITTING = -1; + TEXT= -1; + while (true) { + if(LNPOSN > LNLENG) + return(TEXT); + if((!SKIP) || INLINE[LNPOSN] != 0) + break; + LNPOSN=LNPOSN+1; + } + + TEXT=0; + for (int I=1; I<=TOKLEN; I++) { + TEXT=TEXT*64; + if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0)) + continue; + char current=INLINE[LNPOSN]; + if(current < 63) { + SPLITTING = -1; + if(UPPER && current >= 37) + current=current-26; + TEXT=TEXT+current; + LNPOSN=LNPOSN+1; + continue; + } + if(SPLITTING != LNPOSN) { + TEXT=TEXT+63; + SPLITTING = LNPOSN; + continue; + } + + TEXT=TEXT+current-63; + SPLITTING = -1; + LNPOSN=LNPOSN+1; + } + + return(TEXT); +} + +void BUG(long NUM) { + +/* The following conditions are currently considered fatal bugs. Numbers < 20 + * are detected while reading the database; the others occur at "run time". + * 0 Message line > 70 characters + * 1 Null line in message + * 2 Too many words of messages + * 3 Too many travel options + * 4 Too many vocabulary words + * 5 Required vocabulary word not found + * 6 Too many RTEXT messages + * 7 Too many hints + * 8 Location has cond bit being set twice + * 9 Invalid section number in database + * 10 Too many locations + * 11 Too many class or turn messages + * 20 Special travel (500>L>300) exceeds goto list + * 21 Ran off end of vocabulary table + * 22 Vocabulary type (N/1000) not between 0 and 3 + * 23 Intransitive action verb exceeds goto list + * 24 Transitive action verb exceeds goto list + * 25 Conditional travel entry with no alternative + * 26 Location has no travel entries + * 27 Hint number exceeds goto list + * 28 Invalid month returned by date function + * 29 Too many parameters given to SETPRM */ + + fprintf(stderr, "Fatal error %ld. See source code for interpretation.\n", NUM); + exit(EXIT_FAILURE); +} + +void MAPLIN(FILE *OPENED) { +/* Read a line of input, from the specified input source, + * translate the chars to integers in the range 0-126 and store + * them in the common array "INLINE". Integer values are as follows: + * 0 = space [ASCII CODE 40 octal, 32 decimal] + * 1-2 = !" [ASCII 41-42 octal, 33-34 decimal] + * 3-10 = '()*+,-. [ASCII 47-56 octal, 39-46 decimal] + * 11-36 = upper-case letters + * 37-62 = lower-case letters + * 63 = percent (%) [ASCII 45 octal, 37 decimal] + * 64-73 = digits, 0 through 9 + * Remaining characters can be translated any way that is convenient; + * The "TYPE" routine below is used to map them back to characters when + * necessary. The above mappings are required so that certain special + * characters are known to fit in 6 bits and/or can be easily spotted. + * Array elements beyond the end of the line should be filled with 0, + * and LNLENG should be set to the index of the last character. + * + * If the data file uses a character other than space (e.g., tab) to + * separate numbers, that character should also translate to 0. + * + * This procedure may use the map1,map2 arrays to maintain static data for + * the mapping. MAP2(1) is set to 0 when the program starts + * and is not changed thereafter unless the routines on this page choose + * to do so. */ + + do { + fgets(INLINE + 1, sizeof(INLINE) - 1, OPENED); + } + while (!feof(OPENED) && INLINE[1] == '#'); + + LNLENG = 0; + for (size_t i = 1; i <= sizeof(INLINE) && INLINE[i] != 0; ++i) + { + char val = INLINE[i] + 1; + INLINE[i] = ascii_to_advent[(unsigned)val]; + if (INLINE[i] != 0) + LNLENG = i; + } + LNPOSN = 1; +} + +long GETNUM(FILE *source) { +/* Obtain the next integer from an input line. If K>0, we first read a + * new input line from a file; if K<0, we read a line from the keyboard; + * if K=0 we use a line that has already been read (and perhaps partially + * scanned). If we're at the end of the line or encounter an illegal + * character (not a digit, hyphen, or blank), we return 0. */ + + long DIGIT, GETNUM, SIGN; + + if(source != NULL) MAPLIN(source); + GETNUM = 0; + + while (INLINE[LNPOSN] == 0) { + if (LNPOSN > LNLENG) return(GETNUM); + ++LNPOSN; + } + + if(INLINE[LNPOSN] != 9) + { + SIGN=1; + } + else + { + SIGN= -1; + LNPOSN=LNPOSN+1; + } + while (!(LNPOSN > LNLENG || INLINE[LNPOSN] == 0)) + { + DIGIT=INLINE[LNPOSN]-64; + if(DIGIT < 0 || DIGIT > 9) + { + GETNUM=0; + break; + } + GETNUM=GETNUM*10+DIGIT; + LNPOSN=LNPOSN+1; + } + + GETNUM=GETNUM*SIGN; + LNPOSN=LNPOSN+1; + return(GETNUM); +} + +int read_database(FILE* database) { + +/* Clear out the various text-pointer arrays. All text is stored in array + * lines; each line is preceded by a word pointing to the next pointer (i.e. + * the word following the end of the line). The pointer is negative if this is + * first line of a message. The text-pointer arrays contain indices of + * pointer-words in lines. STEXT(N) is short description of location N. + * LTEXT(N) is long description. PTEXT(N) points to message for PROP(N)=0. + * Successive prop messages are found by chasing pointers. RTEXT contains + * 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<=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; + KEY[I] = 0; + LOCSND[I] = 0; + } + + LINUSE = 1; + TRVS = 1; + CLSSES = 0; + TRNVLS = 0; + +/* Start new data section. Sect is the section number. */ + + while(true) + { + long SECT=GETNUM(database); + OLDLOC= -1; + switch (SECT) + { + case 0: return(0); + case 1: read_messages(database, SECT); break; + case 2: read_messages(database, SECT); break; + case 3: read_section3_stuff(database); break; + case 4: read_vocabulary(database); break; + case 5: read_messages(database, SECT); break; + case 6: read_messages(database, SECT); break; + case 7: read_initial_locations(database); break; + case 8: read_action_verb_message_nr(database); break; + case 9: read_conditions(database); break; + case 10: read_messages(database, SECT); break; + case 11: read_hints(database); break; + case 12: break; + case 13: read_sound_text(database); break; + case 14: read_messages(database, SECT); break; + default: BUG(9); + } + } +} + + +/* Sections 1, 2, 5, 6, 10, 14. Read messages and set up pointers. */ +void read_messages(FILE* database, long SECT) + { + long KK=LINUSE; + while(true) + { + long LOC; + LINUSE=KK; + LOC=GETNUM(database); + if(LNLENG >= LNPOSN+70)BUG(0); + if(LOC == -1) return; + if(LNLENG < LNPOSN)BUG(1); + do { + KK=KK+1; + if(KK >= LINSIZ)BUG(2); + LINES[KK]=GETTXT(false,false,false); + } + while(LINES[KK] != -1); + LINES[LINUSE]=KK; + if(LOC == OLDLOC) continue; + OLDLOC=LOC; + LINES[LINUSE]= -KK; + if(SECT == 14) + { + TRNVLS=TRNVLS+1; + if(TRNVLS > TRNSIZ)BUG(11); + TTEXT[TRNVLS]=LINUSE; + TRNVAL[TRNVLS]=LOC; + continue; + } + if(SECT == 10) + { + CLSSES=CLSSES+1; + if(CLSSES > CLSMAX)BUG(11); + CTEXT[CLSSES]=LINUSE; + CVAL[CLSSES]=LOC; + continue; + } + if(SECT == 6) + { + if(LOC > RTXSIZ)BUG(6); + RTEXT[LOC]=LINUSE; + continue; + } + if(SECT == 5) + { + if(LOC > 0 && LOC <= NOBJECTS)PTEXT[LOC]=LINUSE; + continue; + } + if(LOC > LOCSIZ)BUG(10); + if(SECT == 1) + { + LTEXT[LOC]=LINUSE; + continue; + } + + STEXT[LOC]=LINUSE; + } + } + + +/* The stuff for section 3 is encoded here. Each "from-location" gets a + * contiguous section of the "TRAVEL" array. Each entry in travel is + * NEWLOC*1000 + KEYWORD (from section 4, motion verbs), and is negated if + * this is the last entry for this location. KEY(N) is the index in travel + * of the first option at location N. */ +void read_section3_stuff(FILE* database) + { + long LOC; + while((LOC=GETNUM(database)) != -1) + { + long NEWLOC=GETNUM(NULL); + long L; + if(KEY[LOC] == 0) + { + KEY[LOC]=TRVS; + } + else + { + TRAVEL[TRVS-1]= -TRAVEL[TRVS-1]; + } + while((L=GETNUM(NULL)) != 0) + { + TRAVEL[TRVS]=NEWLOC*1000+L; + TRVS=TRVS+1; + if(TRVS == TRVSIZ)BUG(3); + } + TRAVEL[TRVS-1]= -TRAVEL[TRVS-1]; + } + } + + +/* Here we read in the vocabulary. KTAB(N) is the word number, ATAB(N) is + * the corresponding word. The -1 at the end of section 4 is left in KTAB + * as an end-marker. */ +void read_vocabulary(FILE* database) + { + for (TABNDX=1; TABNDX<=TABSIZ; TABNDX++) + { + KTAB[TABNDX]=GETNUM(database); + if(KTAB[TABNDX] == -1) return; + ATAB[TABNDX]=GETTXT(true,true,true); + } /* end loop */ + BUG(4); + } + + +/* Read in the initial locations for each object. Also the immovability info. + * plac contains initial locations of objects. FIXD is -1 for immovable + * objects (including the snake), or = second loc for two-placed objects. */ +void read_initial_locations(FILE* database) + { + long OBJ; + while((OBJ=GETNUM(database)) != -1) + { + PLAC[OBJ]=GETNUM(NULL); + FIXD[OBJ]=GETNUM(NULL); + } + } + + +/* Read default message numbers for action verbs, store in ACTSPK. */ +void read_action_verb_message_nr(FILE* database) + { + long VERB; + while((VERB=GETNUM(database)) != -1) + { + ACTSPK[VERB]=GETNUM(NULL); + } + } + + +/* Read info about available liquids and other conditions, store in COND. */ +void read_conditions(FILE* database) + { + long K; + while((K=GETNUM(database)) != -1) + { + long LOC; + while((LOC=GETNUM(NULL)) != 0) + { + if(is_set(COND[LOC],K)) BUG(8); + COND[LOC]=COND[LOC] + (1l << K); + } + } + } + + +/* Read data for hints. */ +void read_hints(FILE* database) + { + long K; + HNTMAX=0; + while((K=GETNUM(database)) != -1) + { + if(K <= 0 || K > HNTSIZ)BUG(7); + for (int I=1; I<=4; I++) + { + HINTS[K][I] =GETNUM(NULL); + } /* end loop */ + HNTMAX=(HNTMAX>K ? HNTMAX : K); + } + } + + +/* Read the sound/text info, store in OBJSND, OBJTXT, LOCSND. */ +void read_sound_text(FILE* database) + { + long K; + while((K=GETNUM(database)) != -1) + { + long KK=GETNUM(NULL); + long I=GETNUM(NULL); + if(I != 0) + { + OBJSND[K]=(KK>0 ? KK : 0); + OBJTXT[K]=(I>0 ? I : 0); + continue; + } + + LOCSND[K]=KK; + } + } + +/* 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 game.atloc(N) as the first object at location N, and + * game.link(OBJ) as the next object at the same location as OBJ. + * (OBJ>NOBJECTS indicates that game.fixed(OBJ-NOBJECTS)=LOC; game.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) +{ + fprintf(c_file, "long %s = %ld;\n", varname, single); + fprintf(header_file, "extern long %s;\n", varname); +} + +void write_1d(FILE* c_file, FILE* header_file, long array[], long dim, char* varname) +{ + fprintf(c_file, "long %s[] = {\n", varname); + for (int i = 0; i < dim; ++i) + { + if (i % 10 == 0) + { + if (i > 0) + fprintf(c_file, "\n"); + fprintf(c_file, " "); + } + fprintf(c_file, "%ld, ", array[i]); + } + fprintf(c_file, "\n};\n"); + fprintf(header_file, "extern long %s[%ld];\n", varname, dim); +} + +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) + { + fprintf(c_file, " {"); + for (int j = 0; j < dim2; ++j) + { + fprintf(c_file, "%ld, ", matrix[i][j]); + } + fprintf(c_file, "},\n"); + } + fprintf(c_file, "};\n"); + fprintf(header_file, "extern long %s[%ld][%ld];\n", varname, dim1, dim2); +} + +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 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 + fprintf(c_file, "#include \"database.h\"\n"); + fprintf(c_file, "\n"); + + // content variables + write_0d(c_file, header_file, LINUSE, "LINUSE"); + write_0d(c_file, header_file, TRVS, "TRVS"); + write_0d(c_file, header_file, CLSSES, "CLSSES"); + 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, 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, 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"); + write_1d(c_file, header_file, KEY, LOCSIZ + 1, "KEY"); + write_1d(c_file, header_file, LOCSND, LOCSIZ + 1, "LOCSND"); + write_1d(c_file, header_file, LINES, LINSIZ + 1, "LINES"); + write_1d(c_file, header_file, CVAL, CLSMAX + 1, "CVAL"); + write_1d(c_file, header_file, TTEXT, TRNSIZ + 1, "TTEXT"); + write_1d(c_file, header_file, TRNVAL, TRNSIZ + 1, "TRNVAL"); + 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, 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"); +} + +int main() +{ + FILE* database = fopen("adventure.text", "r"); + read_database(database); + fclose(database); + + FILE* c_file = fopen("database.c", "w"); + FILE* header_file = fopen("database.h", "w"); + write_files(c_file, header_file); + fclose(c_file); + fclose(header_file); + + return(EXIT_SUCCESS); +}