Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 68K/cpm68k_pgms/snobol4/QUEST.C

/* -*-c,save-*- */

/*

 * quest.c - QUEST function

 * Robert Heller. Created: Wed Mar 5, 1986 19:35:17.95

 * Last Mod: 

 * 

 * (c) Copyright 1986 by Robert Heller

 *     All Rights Reserved

 * 

 * 

 */



#include <stdio.h>



#include "patdef.h"



#define LOCAL static



/* #define DEBUG /* debuging */



#ifdef DEBUG

#define LOCAL /* static */

#endif



LOCAL PATTERN_NODE *NEUT,*QUEST_QPA,*ID_V;

LOCAL PATTERN_NODE *BRA_QP1,*BRA_QN,*BRA_QVP_QL,*LO_HI,*BRASL;

ARG_DESCR *acons();

LOCAL STRING_DESCR QPA,V,QP1,QN,QVP,QL,QLOW,QHI;

char *malloc();

#include "phrase.h"



que_init()

{

    ph_init();

    NEUT = breakk_c("|()");

    QUEST_QPA = concat(NEUT,

		       concat(c_lit_string("("),

			      concat(cassign(NEUT,acons(STRING,&QPA)),

				     concat(c_lit_string(")"),

					    alt(NEUT,REM)))));

    ID_V = cassign(alt(span_c("0123456789"),NIL),acons(STRING,&V));

    BRA_QP1 = concat(cassign(breakk_c("|"),acons(STRING,&QP1)),

		     c_lit_string("|"));

    BRA_QN =  concat(cassign(breakk_c("("),acons(STRING,&QN)),

		     c_lit_string("("));

    BRA_QVP_QL = concat(cassign(breakk_c(")"),acons(STRING,&QVP)),

			concat(c_lit_string(")"),

			       cassign(REM,acons(STRING,&QL))));

    LO_HI = concat(cassign(breakk_c("."),acons(STRING,&QLOW)),

		   concat(c_lit_string("..."),

			  cassign(REM,acons(STRING,&QHI))));

    BRASL = breakk_c("/");

    }

quest(qs,argv)

register char *qs;

long int argv;

{

    static STRING_DESCR matched;

    register char *qp;

    static char qmess[132],qi[132],qp1[132],fool[256];

    register int len,stat;



    if (pmatch(qs,BRASL,&matched) != MATCH_SUCCESS) return(-1);

    len = matched.length;

    if (len > 131) len = 131;

    strncpy(qmess,matched.base+matched.offset,len);

    qmess[len] = '\0';

    qp = matched.base+matched.offset+matched.length+1;

    for (;;) {

	printf("\n%s? ",qmess);

	gets(qi);

	stat = questp(qi,qp,&argv);

	if (stat >= 0) return(stat);

	strcpy(qp1,qp);

	while (pmatch(qp1,QUEST_QPA,&matched) == MATCH_SUCCESS) {

	    strncpy(matched.base+matched.offset,QPA.base+QPA.offset,

		    QPA.length);

	    strcpy(matched.base+matched.offset+QPA.length,

		   matched.base+matched.offset+matched.length);

	    }

	if (strcmp(qi,"?") != 0) {

	    rsentence("Bad input, you <STUPID> <FOOL>.",fool);

	    printf("%s\n",fool);

	    }

	printf("The correct form is %s\n",qp1);

	}

    }

LOCAL questp(qs,qp,argv)

register char *qs,*qp;

register long int *argv;

{

    STRING_DESCR matched;

    char qp1[132],qvp[132];

    register int len,stat,qnn,qln;

    register int qsn,qlown,qhin;

    register int *qnp;



    while (pmatch(qp,BRA_QP1,&matched) == MATCH_SUCCESS) {

	len = QP1.length;

	if (len > 131) len = 131;

	strncpy(qp1,QP1.base+QP1.offset,len);

	qp1[len] = '\0';

	qp = matched.base+matched.offset+matched.length;

	stat = questp(qs,qp1,argv);

	if (stat >= 0) return(stat);

	}

    if (pmatch(qp,BRA_QN,&matched) != MATCH_SUCCESS) return(-1);

    qp = matched.base+matched.offset+matched.length;

    if (QN.length == 0) qnn = -1;

    else qnn = atoi(QN.base+QN.offset);

    pmatch(qp,BRA_QVP_QL,&matched);

    strncpy(qvp,QVP.base+QVP.offset,QVP.length);

    qvp[QVP.length] = '\0';

    if (QL.length > 0) qln = atoi(QL.base+QL.offset);

    else qln = 0;

    if (strcmp(qvp,"ARB") == 0) {

	if (qnn != -1) strcpy(argv[qnn],qs);

	return(qln);

	}

    else if (pmatch(qvp,LO_HI,&matched) == MATCH_SUCCES) {

	if (!isnumber(qs,strlen(qs))) return(-1);

	qsn = atoi(qs);

	if (!isnumber(QLOW.base+QLOW.offset,QLOW.length)) return(-1);

#ifdef DEBUG

printf("***In questp(): &qvp[0] = %08X, QLOW(base = %08X, offset = %d, length = %d\n",

       qvp,QLOW.base,QLOW.offset,QLOW.length);

#endif

	qlown = atoi(QLOW.base+QLOW.offset);

	if (!isnumber(QHI.base+QHI.offset,QHI.length)) return(-1);

	qhin = atoi(QHI.base+QHI.offset);

#ifdef DEBUG

	printf("***In questp(): qvp=%s,qsn=%d,qlown=%d,qhin=%d\n",qvp,qsn,

		qlown,qhin);

#endif

	if (qlown > qsn) return(-1);

	if (qsn > qhin) return(-1);

	if (qnn != -1) {

	    qnp = (short int *) argv[qnn];

	    *qnp = qsn;

	    }

	return(qln);

	}

    else if (strcmp(qs,qvp) == 0) {

	if (qnn != -1) strcpy(argv[qnn],qs);

	return(qln);

	}

    else return(-1);

    }

LOCAL isnumber(s,l)

register char *s;

register int l;

{

    char *index();



    while (l-- > 0) {

	if (index("0123456789",*s) == 0L) return(0);

	s++;

	}

    return(1);

    }