archives/open-adventure
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unused code.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-18 13:20:04 -04:00
parent 672ef17d4c
commit ba5c7dacb5
2 changed files with 4 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

2
advent.h
View file

@ -93,7 +93,6 @@ extern bool GETIN(FILE *,token_t*,token_t*,token_t*,token_t*);
extern long YES(FILE *,vocab_t,vocab_t,vocab_t);
extern long GETTXT(bool,bool,bool);
extern token_t MAKEWD(long);
extern void TYPE0(void);
extern long VOCAB(long,long);
extern void JUGGLE(long);
extern void MOVE(long,long);
@ -106,7 +105,6 @@ extern bool TSTBIT(long,int);
extern long RNDVOC(long,long);
extern void BUG(long) __attribute__((noreturn));
extern bool MAPLIN(FILE *);
extern void TYPE(void);
extern void DATIME(long*, long*);
enum termination {endgame, quitgame, scoregame};

42
misc.c
View file

@ -162,7 +162,7 @@ bool GETIN(FILE *input,
for (;;) {
if (game.blklin)
TYPE0();
fputc('\n', stdout);;
if (!MAPLIN(input))
return false;
*pword1 = GETTXT(true, true, true);
@ -206,7 +206,7 @@ long YES(FILE *input, vocab_t x, vocab_t y, vocab_t z)
}
}
/* Line-parsing routines (GETTXT, MAKEWD, PUTTXT, SHFTXT, TYPE0) */
/* Line-parsing routines (GETTXT, MAKEWD, PUTTXT, SHFTXT) */
long GETTXT(bool skip, bool onewrd, bool upper)
/* Take characters from an input line and pack them into 30-bit words.
@ -278,19 +278,6 @@ token_t MAKEWD(long letters)
return word;
}
void TYPE0(void)
/* Type a blank line. This procedure is provided as a convenience for callers
* who otherwise have no use for MAPCOM. */
{
long temp;
temp = LNLENG;
LNLENG = 0;
TYPE();
LNLENG = temp;
return;
}
/* Data structure routines */
long VOCAB(long id, long init)
@ -514,7 +501,7 @@ void BUG(long num)
exit(0);
}
/* Machine dependent routines (MAPLIN, TYPE, SAVEIO) */
/* Machine dependent routines (MAPLIN, SAVEIO) */
bool MAPLIN(FILE *fp)
{
@ -585,8 +572,7 @@ bool MAPLIN(FILE *fp)
* 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
* 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.
@ -610,26 +596,6 @@ bool MAPLIN(FILE *fp)
}
}
void TYPE(void)
/* Type the first "LNLENG" characters stored in inline, mapping them
* from integers to text per the rules described above. INLINE
* may be changed by this routine. */
{
long i;
if (LNLENG == 0) {
printf("\n");
return;
}
for (i = 1; i <= LNLENG; i++) {
INLINE[i] = advent_to_ascii[(int) INLINE[i]];
}
INLINE[LNLENG + 1] = 0;
printf("%s\n", INLINE + 1);
return;
}
void DATIME(long* d, long* t)
{
struct timeval tv;