X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=blobdiff_plain;f=misc.c;h=8f0a2b21680dc11522f1057e02d5d5da501cf442;hp=baa0d56c70c7a69f05f68c0f894cfe1c22bb651a;hb=040f19adde85fdd78628eb390a685907804f85ae;hpb=19b3e3e65697b39891e69639de460cbcc50f351e

diff --git a/misc.c b/misc.c
index baa0d56..8f0a2b2 100644
--- a/misc.c
+++ b/misc.c
@@ -182,7 +182,8 @@ long JUNK;
 
 
 L10:	if(BLKLIN)TYPE0();
-	MAPLIN(false);
+	MAPLIN(stdin);
+	if(feof(stdin)) score(1);
 	WORD1=GETTXT(true,true,true,0);
 	if(BLKLIN && WORD1 < 0) goto L10;
 	WORD1X=GETTXT(false,true,true,0);
@@ -241,7 +242,7 @@ L20:	YES=false;
 
 #define YES(X,Y,Z) fYES(X,Y,Z)
 #undef GETNUM
-long fGETNUM(long K) {
+long fGETNUM(FILE *source) {
 long DIGIT, GETNUM, SIGN;
 
 /*  Obtain the next integer from an input line.  If K>0, we first read a
@@ -251,7 +252,7 @@ long DIGIT, GETNUM, SIGN;
  *  character (not a digit, hyphen, or blank), we return 0. */
 
 
-	if(K != 0)MAPLIN(K > 0);
+	if(source != NULL)MAPLIN(source);
 	GETNUM=0;
 L10:	if(LNPOSN > LNLENG)return(GETNUM);
 	if(INLINE[LNPOSN] != 0) goto L20;
@@ -853,11 +854,11 @@ void fBUG(long NUM) {
 
 #define BUG(NUM) fBUG(NUM)
 #undef MAPLIN
-void fMAPLIN(long FIL) {
-long I, VAL; static FILE *OPENED = NULL;
+void fMAPLIN(FILE *OPENED) {
+long I, VAL;
 
-/*  Read a line of input, either from a file (if FIL=true) or from the
- *  keyboard, translate the chars to integers in the range 0-126 and store
+/*  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]
@@ -879,42 +880,23 @@ long I, VAL; static FILE *OPENED = NULL;
  *  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.
- *
- *  Note that MAPLIN is expected to open the file the first time it is
- *  asked to read a line from it.  that is, there is no other place where
- *  the data file is opened. */
-
+ *  to do so. */
 
 	if(MAP2[1] == 0)MPINIT();
 
-	if(FIL) goto L15;
-	IGNORE(fgets(INLINE+1, sizeof(INLINE)-1, stdin));
-	if(feof(stdin)) score(1);
-	 goto L20;
-
-L15:	if(!OPENED){
-		OPENED=fopen("adventure.text","r" /* NOT binary */);
-		if(!OPENED){printf("Can't read adventure.text!\n"); exit(0);}
-		}
-	 IGNORE(fgets(INLINE+1,sizeof(INLINE)-1,OPENED));
-
-L20:	LNLENG=0;
-	for (I=1; I<=sizeof(INLINE) && INLINE[I]!=0; I++) {
-	VAL=INLINE[I]+1;
-	INLINE[I]=MAP1[VAL];
-	if(INLINE[I] != 0)LNLENG=I;
-	} /* end loop */
-	LNPOSN=1;
-	if(FIL && LNLENG == 0) goto L15;
-/*  Above is to get around an F40 compiler bug wherein it reads a blank
- *  line whenever a crlf is broken across a record boundary. */
-	return;
+	IGNORE(fgets(INLINE+1,sizeof(INLINE)-1,OPENED));
+	if (!feof(OPENED)) {
+		LNLENG=0;
+		for (I=1; I<=sizeof(INLINE) && INLINE[I]!=0; I++) {
+		VAL=INLINE[I]+1;
+		INLINE[I]=MAP1[VAL];
+		if(INLINE[I] != 0)LNLENG=I;
+		} /* end loop */
+		LNPOSN=1;
+	}
 }
-
-
-
 #define MAPLIN(FIL) fMAPLIN(FIL)
+
 #undef TYPE
 void fTYPE(void) {
 long I, VAL;