/*grammar.c v1.9*/

/*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. There is one NP loop, but currently no more.
Each head is optionally intransitive depending on the choice of the user. dr. d.*/


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

void initialize(void)
{
/*#ifdef pc_os
#define SIOUX 0
#endif
#ifdef mac_os
#define SIOUX 1
#endif*/

#if SIOUX
#include <SIOUX.h>
#endif
#if SIOUX
 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, noun, det, P, comp, A, noun1, det1, adv, advv;
}

int main(void)
{
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];

 initialize();

/* printf("Enter a verb 		 : head");
// strcpy(base,"write");
 printf("-\n");

 printf("Is a verb         	       : [V %s ]\n\n",verb);*/
//"[A"  advv "]" = adv;
cout <<"Enter a verb" <<endl;
cin >> verb;
cout << "[V " <<verb << "] is a verb." <<endl;
char ans;
  {
	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;
		strcpy(advv,adv);
		strcat("[A ",advv);
		strcat(advv," ]");
		cout << "[A " <<advv << "] is an adverb.\n";
  }

	vp:
	cout <<  "Does this verb take a complement? (y/n): "<<endl;
	cin >> ans;
	if (ans == 'N' || ans == 'n' )
		cout << "[VP [V "<< verb << "]] is a verb phrase. 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;
			goto esc;
		}
		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 esc;
			}
	
		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, man!"<<endl;
	}
	//esc: cout << endl;
}