%token

CONSTRNT PATTERN FLOWP COM

QUOTE THAN FROM UNTIL ON

%union

{

	int integer;

	double real;

	const char* string;

}

%token <integer> INTEGER

%token <integer> TIME

%token <real> 	REAL

%token <string> STRING

%token <integer> IS 

%token <integer> IN 

%token <integer> GREATER 

%token <integer> LESS 

%token <integer> NOT 

%token <integer> AND 

%token <integer> OR 

%token <integer> AT

%token <integer> COPX

%token <integer> ADEP

%token <integer> ADES

%token <integer> RWY

%token <integer> ROUTE

%token <integer> ATYP

%token <integer> FLVL

%token <integer> TAS

%token <integer> FRUL

%token <integer> FTYP

%token <integer> EQUIP

%token <integer> RFL

%token <integer> TRAVEL_TYPE

%token <integer> TIMESEP 

%token <integer> FL

%type <string> string

%type <string> pttrn

%type <string> flowp

%type <string> constrnt

%type <integer> int

%type <integer> string_array

%type <integer> int_array

%type <integer> int_pt

%type <integer> char_pt

%type <integer> string_pt

%type <integer> string_array_pt

%type <integer> char_array_pt

%type <integer> int_op

%type <integer> string_op

%type <integer> string_array_op

%type <integer> string_string_array_op

%type <integer> si_unit

%left OR

%left AND

%right NOT

%%

prog:			| prog rule {  }

				| error ')' { yyerrok; yyclearin;}				

;

rule:			pttrn 		{ if (!pattern($1)) printf("Error: %s\n", last_error()); }

				| constrnt 	{ if (!constraint($1)) printf("Error: %s\n", last_error()); }

				| flowp 	{ if (!flowpoint($1)) printf("Error: %s\n", last_error()); }

				| COM		{ comment(); }

;

flowp:			FLOWP STRING '(' flowp_entry ')'	{ $$ = $2; }

;

flowp_entry:	pttrn_lbl ':' constrnt_lbl					

;

pttrn_lbl:		STRING						{ if (!pattern_id($1)) printf("Error: %s\n", last_error()); }						

;

constrnt_lbl:	STRING	{ if (!constraint_id($1)) printf("Error: %s\n", last_error()); }

;

constrnt:		CONSTRNT STRING '(' cterm ')' 	{ $$ = $2; }

;

cterm:			TIMESEP AT string IS INTEGER si_unit		

				{ intpt_string_int_cterm(PT_TIMESEP, $3, $5 * $6, 0, 0, 0); }				

				| TIMESEP AT string_array IS INTEGER si_unit

				{ intpt_stringarray_int_cterm(PT_TIMESEP, $3, $5 * $6, 0, 0, 0); }		

				| TIMESEP AT string IS INTEGER si_unit FROM INTEGER UNTIL INTEGER	

				{ intpt_string_int_cterm(PT_TIMESEP, $3, $5 * $6, $8, $10, 0); }				

				| TIMESEP AT string_array IS INTEGER si_unit FROM INTEGER UNTIL INTEGER

				{ intpt_stringarray_int_cterm(PT_TIMESEP, $3, $5 * $6, $8, $10, 0); }		

				| TIMESEP AT string IS INTEGER si_unit AT FL int_array

				{ intpt_string_int_cterm(PT_TIMESEP, $3, $5 * $6, 0, 0, $9); }				

				| TIMESEP AT string_array IS INTEGER si_unit AT FL int_array

				{ intpt_stringarray_int_cterm(PT_TIMESEP, $3, $5 * $6, 0, 0, $9); }		

				| TIMESEP AT string IS INTEGER si_unit FROM INTEGER UNTIL INTEGER AT FL int_array	

				{ intpt_string_int_cterm(PT_TIMESEP, $3, $5 * $6, $8, $10, $13); }				

				| TIMESEP AT string_array IS INTEGER si_unit FROM INTEGER UNTIL INTEGER AT FL int_array

				{ intpt_stringarray_int_cterm(PT_TIMESEP, $3, $5 * $6, $8, $10, $13); }	

				| cterm AND cterm							

				{ and_term(); }

;

si_unit:		STRING	

				{ 

					if (!strcmp($1, "s")) { $$ = 1; }

					else if (!strcmp($1, "min")) { $$ = 60; }

				}

;

pttrn: 			PATTERN STRING '(' term ')'	{ $$ = $2; }

				| PATTERN '(' term ')'		{ $$ = get_pattern_id(); }

;

term:			int_pt int_op INTEGER	

				{ intpt_int_term($2, $1, $3); }	

				| char_pt string_op string

				{ charpt_char_term($2, $1, $3); }

				| string_pt string_op string

				{ stringpt_string_term($2, $1, $3); }

				| string_array_pt string_array_op string_array

				{ stringarraypt_stringarray_term($2, $1, $3); }	

				| string_array string_array_op string_array_pt

				{ 

					if ($2 == OT_IN_C)

					{

						$2 = OT_IN_P;

					}

					else if ($2 == OT_NOTIN_C)

					{

						$2 = OT_NOTIN_P;

					}

					stringarraypt_stringarray_term($2, $3, $1); 

				}			

				| string string_string_array_op string_array_pt

				{ 

					if ($2 == OT_IN_C)

					{

						$2 = OT_IN_P;

					}

					else if ($2 == OT_NOTIN_C)

					{

						$2 = OT_NOTIN_P;

					} 

					stringarraypt_string_term($2, $3, $1); 

				}		

				| string string_string_array_op char_array_pt

				{ 

					if ($2 == OT_IN_C)

					{

						$2 = OT_IN_P;

					}

					else if ($2 == OT_NOTIN_C)

					{

						$2 = OT_NOTIN_P;

					} 

					chararraypt_char_term($2, $3, $1); 

				}	

				| term OR term 		

				{ or_term(); }

				| term AND term

				{ and_term(); } 	

				| NOT term						

				| '(' term ')'				

;

int_op:			IS 				{ $$ = OT_IS; }	

				| IS NOT		{ $$ = OT_ISNOT; } 

				| GREATER THAN	{ $$ = OT_GREATER; }

				| LESS THAN		{ $$ = OT_LESS; }

;

string_op:		IS			{ $$ = OT_IS; }	

				| IS NOT	{ $$ = OT_ISNOT; } 

;

string_array_op:IS			{ $$ = OT_IS; }

				| IS NOT 	{ $$ = OT_ISNOT; } 

				| IN 		{ $$ = OT_IN_P; }

				| NOT IN	{ $$ = OT_NOTIN_P; }

;

string_string_array_op: IN 			{ $$ = OT_IN_P; }

						| NOT IN	{ $$ = OT_NOTIN_P; }

;

int_array:		'[' ints ']' { $$ = integer_array(); }

;

ints:			| ints ',' int

				| ints int

;

int:		INTEGER { integer($1); $$ = $1; }

; 

string_array:	'[' strings ']'	{ $$ = string_array(); }

;

strings:		| strings ',' string

				| strings string

;

int_pt:			TAS		{ $$ = PT_TAS; }			

;

char_pt:		FTYP		{ $$ = PT_FTYP; }

string_pt:		ADEP	{ $$ = PT_ADEP; }

				| ADES	{ $$ = PT_ADES; }

				| RWY 	{ $$ = PT_RWY; }

				| ATYP 	{ $$ = PT_ATYP; }

				| COPX	{ $$ = PT_COPX; }				

				| FRUL 	{ $$ = PT_FRUL; }				

				| RFL	{ $$ = PT_RFL; }

				| TRAVEL_TYPE { $$ = PT_TRAVEL_TYPE; }

;

string_array_pt:ROUTE	{ $$ = PT_ROUTE; }				

;

char_array_pt:	EQUIP	{ $$ = PT_EQUIP; }

;

string:			QUOTE STRING QUOTE	{ string($2); $$ = $2; }

;