PL/iSQL function and stored procedure

	bool		cancel_semicolon_terminator; /* not send command when semicolon found */

	/*
	 * State to track boundaries of Oracle ANONYMOUS BLOCK.
	 * Case 1: Statements starting with << ident >> is Oracle anonymous block.
	 */
	int		token_count;			/* # of tokens, not blank or newline since start of statement */
	bool		anonymous_label_start;	    /* T if the first token is "<<" */
	bool		anonymous_label_ident;	/* T if the second token is an identifier */
	bool		anonymous_label_end;	    /* T if the third token is ">>" */

	/*
	 * Case 2: DECLARE BEGIN ... END is Oracle anonymous block syntax.
	 * DECLARE can also be a PostgreSQL cursor declaration statement, we need to tell this.
	 */
	bool		maybe_anonymous_declare_start;	/* T if the first token is DECLARE */
	int		token_cursor_idx;		/* the position of keyword CURSOR in SQL statement */

	/*
	 * Case 3: DECLARE BEGIN ... END is Oracle anonymous block syntax.
	 * BEGIN can also be a PostgreSQL transaction statement.
	 */
	bool		maybe_anonymous_begin_start;	/* T if the first token is BEGIN */

{
	if (is_oracle_slash(cur_state, cur_state->scanline))
	{
		/* Terminate lexing temporarily */
		cur_state->cancel_semicolon_terminator = false;
		cur_state->maybe_anonymous_declare_start = false;
		cur_state->maybe_anonymous_begin_start = false;
		cur_state->anonymous_label_start = false;
		cur_state->anonymous_label_ident = false;
		cur_state->anonymous_label_end = false;
		cur_state->start_state = YY_START;
		cur_state->token_count = 0;
		cur_state->token_cursor_idx = 0;
		cur_state->identifier_count = 0;
		cur_state->begin_depth = 0;
		cur_state->ora_plsql_expect_end_symbol = END_SYMBOL_INVALID;
		return LEXRES_SEMI;
	}
	ECHO;

bool
is_oracle_slash(PsqlScanState state, const char *line)
{
	bool result = false;

	switch (state->start_state)
	{
		case INITIAL:
		case xqs:	/* treat these like INITIAL */
			{
				int len, i;
				bool has_slash = false;

				len = strlen(line);
				for (i = 0; i < len; i++)
				{
					/* allow special char */
					if (line[i] == '\t' ||
						line[i] == '\n' ||
						line[i] == '\r' ||
						line[i] == ' ')
						continue;

					if (line[i] == '/')
					{
						if (has_slash)
							break;
						has_slash = true;
						continue;
					}
					/* others */
					break;
				}

				if (i == len && has_slash)
					result = true;
			}
			break;
		default:
			break;
	}

	return result;
}

	/*
	 * The native PG only cache one-token info include yylloc, yylval and token
	 * number in yyextra, IvorySQL cache multiple tokens info using two arrays.
	 */
	int max_pushbacks;		/* the max size of cache array */
	int loc_pushback; 		/* # of used tokens */
	int	num_pushbacks;		/* # of cached tokens */
	int	*pushback_token;			/* token number array */
	TokenAuxData *pushback_auxdata; /* auxdata array */

	OraBodyStyle body_style;
	int          body_start;
	int          body_level;

/*
 * The declaration section of the outermost block in Oracle does not have the DECLARE keyword.
 */
ora_outermost_pl_block: ora_decl_sect K_BEGIN proc_sect exception_sect K_END opt_label
					{
						PLiSQL_stmt_block *new;

						new = palloc0(sizeof(PLiSQL_stmt_block));

						new->cmd_type	= PLISQL_STMT_BLOCK;
						new->lineno		= plisql_location_to_lineno(@2);
						new->stmtid		= ++plisql_curr_compile->nstatements;
						new->label		= $1.label;
						new->n_initvars = $1.n_initvars;
						new->initvarnos = $1.initvarnos;
						new->body		= $3;
						new->exceptions	= $4;

						check_labels($1.label, $6, @6);
						plisql_ns_pop();

						$$ = (PLiSQL_stmt *)new;
					}
				;

ora_decl_sect: opt_block_label opt_ora_decl_start opt_ora_decl_stmts
				{
						if ($2)
						{
								if ($1 == NULL)
								{
										plisql_ns_push(NULL, PLISQL_LABEL_BLOCK);
								}
						}
				}
				opt_ora_decl_stmts
				{
						if ($4)
						{
								plisql_IdentifierLookup = IDENTIFIER_LOOKUP_NORMAL;
								$$.label          = ($1 == NULL ?  plisql_curr_compile->namelabel : $1);
								if ($2 && $1 == NULL)
										$$.popname = true;
								else
										$$.popname = false;
								/* Remember variables declared in decl_stmts */
								$$.n_initvars = plisql_add_initdatums(&($$.initvarnos));
						}
						else
						{
								plisql_IdentifierLookup = IDENTIFIER_LOOKUP_NORMAL;
								$$.label          = ($1 == NULL ?  plisql_curr_compile->namelabel : $1);
								$$.n_initvars = 0;
								if ($2 && $1 == NULL)
										$$.popname = true;
								else
										$$.popname = false;
								$$.initvarnos = NULL;
						}
				}
                ;

opt_ora_decl_start: K_DECLARE
					{
						/* Forget any variables created before block */
						plisql_add_initdatums(NULL);
						/*
						 * Disable scanner lookup of identifiers while
						 * we process the decl_stmts
						 */
						plisql_IdentifierLookup = IDENTIFIER_LOOKUP_DECLARE;
						$$ = true;
					}
				| /*EMPTY*/
					{
						/* Forget any variables created before block */
						plisql_add_initdatums(NULL);
						/*
						 * Disable scanner lookup of identifiers while
						 * we process the decl_stmts
						 */
						plisql_IdentifierLookup = IDENTIFIER_LOOKUP_DECLARE;
						$$ = false;
					}
				;

opt_ora_decl_stmts:
				ora_decl_stmts
					{
						$$ = true;
					}
				| /*EMPTY*/
					{
						$$ = false;
					}

ora_decl_stmts: ora_decl_stmts ora_decl_stmt
				| ora_decl_stmt
				;

ora_decl_stmt: decl_statement
				;