/*grammar.c v3.0*/

/*printf("This minigrammar will generate nothing more than a verb,
a complement of the verb, a complement of the verbal complement, 
and a complement of that. It also includes the tense operator and the progressive 
aspect operator. This is a statement of the grammar. A later statement will
spell out the operators after lexical items have been enterred. This
has not been programmed into the grammar yet. There is one NP loop, but currently no more.
Each head is optionally intransitive depending on the choice of the user. dr. d.\n\n\n";
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <iostream.h>
#include <sioux.h>

void strcatleft(char *dest, char *source)
{
char temp[256];
	strcpy(temp,source);
	strcat(temp,dest);
	strcpy(dest,temp);
}

void initialize(void)
{
/*
#if macintosh
 SIOUXSettings.setupmenus=FALSE;
 SIOUXSettings.autocloseonquit=TRUE;
 SIOUXSettings.asktosaveonclose=FALSE;
 SIOUXSettings.showstatusline=FALSE;
#endif
*/
}

//void isa_head (char *head)
void isa_head(void)

#define head (verb || noun || det || P || A || adv)

{
//  char *verb, *det, *P, *comp, *A, *noun1, *det1,* adv, *lba, *advv, *past, *pres;
}

int main(void)
{
  char lba[256] = "[A ]";
  char verb[256];
  char noun[256];
  char det[256];
  char P[256];
  //char comp[256];
  //char A[256];
  char noun1[256];
  char det1[256];
  char adv[256];
  //char advv[256];
  char past_table[2][6] = {"-Past","+Past"};
  char prog_table[2][6] = {"-Prog","+Prog"};
  char passive_table[2][6] = {"-Pass","+Pass"};
  int past; //0 = [-Past]; 1= [+Past]
  int prog; //0 = [-Prog; 1= [+Prog]
  int pass; //0 = [-Pass]; 1= [+Pass]

  char ans;
  char s[256];
  char p[256];
  char v[256];

  initialize();
 	printf("This minigrammar will generate nothing more than a verb,");
	printf("a complement of the verb, a complement of the verbal complement, ");
	printf("and a complement of that. It also includes the tense operator and the progressive ");
	printf("aspect operator. This is a statement of the grammar. A later statement will");
	printf("spell out the operators after lexical items have been enterred. This");
	printf("has not been programmed into the grammar yet. There is one NP loop, but currently no more.");
	printf("Each head is optionally intransitive depending on the choice of the user. dr. d.");
	printf("Each operator has a binary value. Many minus value operators are phonetically null.\n\n");

 /*
 strcpy(verb,"Main Verb");
 
 strcatleft(verb,"[V ");
 strcat(verb," ]");
 
 printf("%s\n",verb);

	strcpy(noun,"");
*/
	{
		strcpy(s,"");
		while((strcmp(s,past_table[0])!=0)&&(strcmp(s,past_table[1])!=0))
		{
			printf("Select a feature of tense. If you want the past tense , type in '+Past'; otherwise type in '-Past' for the present tense: \n");
			cin>>s;
		}
		if(strcmp(s,past_table[0])==0)
		past=0;
		else 
		past=1;
		printf("[T %s] is the tense operator.\n\n", past_table[past]);
	}

	{
		strcpy(p,"");
		while((strcmp(p,prog_table[0])!=0)&&(strcmp(p,prog_table[1])!=0))
		{
			printf("Select a feature of aspect. If you want the progressive aspect , type in '+Prog'; otherwise type in '-Prog' for the non-progressive aspect. Note, we do not consider the perfect to be aspect: \n");
			cin>>p;
		}
		if(strcmp(p,prog_table[0])==0)
			prog=0;
		else 
			prog=1;
		printf("[Asp %s]\n", prog_table[prog]);
			printf("[T %s [Asp %s]] is the tense operator plus the progressive operator.\n\n", prog_table[prog], past_table[past]);

	}
	{
		strcpy(v,"");
		while((strcmp(v,passive_table[0])!=0)&&(strcmp(v,passive_table[1])!=0))
		{
			printf("Select a feature of voice. If you want the past tense, type in '+Pass'; otherwise type in '-Pass' for the active voice: \n\n");
			cin>>v;
		}
		if(strcmp(v,passive_table[0])==0)
			pass=0;
		else 
			pass=1;
		printf("[T %s] is the voice operator.\n\n", passive_table[pass]);
			printf("[T %s [Asp %s [Vce %s]]] is the tense operator plus the aspect operator plus the voice operator.\n\n", prog_table[prog], past_table[past], passive_table[pass]);

	}
	{
		printf("Enter a verb.\n\n");
		cin >> verb;
		cout << "[V " <<verb << "] is a verb." <<endl;
 		printf("[V %s is a verb.\n",verb); // %d %s\n",verb,i,blah);
 	cout << "[TP [T " <<s << "] [V " << verb << "]] is an incomplete tense phrase, written as VP rather than TP.\n\n";
// scanf("%s %d",verb,number);
}
  {
	cout << "Is this verb modified by an adverb? Type in 'y' or 'n' (only)\n";
	cin >> ans;
	if (ans == 'N' || ans == 'n')
		goto vp;

	else 
		cout <<"Type in the adverb:\n";
		cin >> adv;
		cout << "[A " <<adv << "] is an adverb.\n";
  }

	vp:
	cout <<  "Does this verb take a complement? (y/n): "<<endl;
	cin >> ans;
	if (ans == 'N' || ans == 'n' )
	{
		cout << "[TP [T" <<s <<"] [AspP [Asp "<<p <<"] [VceP [Vce "<<v  <<"] [VP [V "<< verb << "]]]] is a tense phrase. We normally consider TP to be VP with the head T. \n";
		cout << "or\n";
		cout << "[TP [T "<<s <<"] [AspP [Asp "<<p <<"] [VceP [Vce "<<v <<"] [VP [Adv "<<adv<<"] [VP [V "<< verb << "]]]]]. One of these is the right one. This is as far as she goes.";
	}
		if (ans == 'n') exit(1);
		
	else
	//np:;
		cout <<  "Determine the head of the complement and type it in: " <<endl;
		cin >> noun;
		cout << "[N " <<noun << "] is a noun." <<endl;	
	{
		cout <<  "Does '"<<noun<< " ' take a determiner? (y/n): "<<endl;
		cin >> ans;
		if (ans == 'N' || ans == 'n' )
		{
			cout << "[NP [N "<< noun << "]] is a noun phrase.\n";
			goto np2;
			
		}
	else 
		{
		cout << "Enter the determiner." <<det <<endl;
		cin >> det;
		cout << "[D "<<det << "] is a determiner." <<endl;
		cout << "[NP [NP [D "<< det << " ] [N "<< noun << "]]] is a noun phrase."<<endl;
		}
		np2:;
	{
		//Embedded PP
		cout << "Does '" <<noun <<"' take a complement? (y, n)"<<endl;
		cin >> ans;
		if (ans == 'N' || ans == 'n' ) 
		{
			cout << "[VP [V " <<verb<< "] [NP [D " <<det << "] [N "<< noun << "]]] is a verb phrase."<<endl;
			cout << "[TP [T " <<s <<"] [AspP [Asp " << p<< "] [Vce " <<v<< "[VP [V " <<verb<< "] [NP [D " <<det << "] [N "<< noun << "]]]]]]\n\n";
			goto end;
		}
		else
	
	{
		cout << "What is the head of the complement of '"<<noun <<"' ?\n";
		cin >> P;
		cout << "[P " <<P<< "] is a preposition.\n";
		cout <<"Does '"<<P << "' take a complement?\n";
		cin >> ans;
			if (ans == 'N' || ans == 'n')
			{
				cout << "[PP [P " << P << " ]] is an intransitive preposition.\n";
				goto end;
			}
	
		else	
		
		//goto np;
		//embedded NP	
		{
			cout << "Please enter the head of the complement of '"<<P<< "' here:"<<endl;
			cin >> noun1;
			cout << "[N " << noun1 << " ] is a noun."<<endl;
		}
		cout << "Does '"<<noun1<< "' take a determiner? ('y' or 'n')\n";
		cin >> ans;
		if (ans == 'N' || ans == 'n')
		{
			cout << "[NP [NP "<<noun1 <<" ]] is a noun phrase.\n";
			goto np1;
		}
		else
		{
			cout <<"Enter the determiner here:\n";
			cin >> det1;
			cout << "[NP [D "<<det1 << "] [NP [N " << noun1 << "]]]. is an embedded noun phrase."<<endl;
			cout << "[PP [P " <<P << "] [NP "<< " [D "<< det1 << " ] [NP [N "<< noun1 << " ]]]]]] is a prepositional phrase."<<endl;
		}
	}
}
		np1:	
		esc:
		cout << "[VP [V "<<verb << "] [NP [D "<<det << " ] [NP [N " <<noun << "]] [PP [P "<<P <<" ] [[NP [D " <<det1<< "] [NP [NP " << noun1 <<" ]]]]]]] is a verb phrase."<<endl;
		cout << verb << " " <<det <<" "<< noun <<" "<< P <<" "<<det1 <<" "<< noun1<<"."<<endl;
		cout << "Good work!"<<endl;
	}
	//esc: cout << endl;
		end: 
		cout << "Good work!"<<endl;
	
}