org.fife.ui.rsyntaxtextarea.modes.FortranTokenMaker.flex Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of ui4j-ide Show documentation
Web Automation for Java
The newest version!
/*
 * 03/23/2005
 *
 * FortranTokenMaker.java - Scanner for the Fortran programming language.
 * 
 * This library is distributed under a modified BSD license.  See the included
 * RSyntaxTextArea.License.txt file for details.
 */
package org.fife.ui.rsyntaxtextarea.modes;

import java.io.*;
import javax.swing.text.Segment;

import org.fife.ui.rsyntaxtextarea.*;


/**
 * Scanner for the Fortran programming language.
 *
 * This implementation was created using
 * JFlex 1.4.1; however, the generated file
 * was modified for performance.  Memory allocation needs to be almost
 * completely removed to be competitive with the handwritten lexers (subclasses
 * of AbstractTokenMaker, so this class has been modified so that
 * Strings are never allocated (via yytext()), and the scanner never has to
 * worry about refilling its buffer (needlessly copying chars around).
 * We can achieve this because RText always scans exactly 1 line of tokens at a
 * time, and hands the scanner this line as an array of characters (a Segment
 * really).  Since tokens contain pointers to char arrays instead of Strings
 * holding their contents, there is no need for allocating new memory for
 * Strings.
 *
 * The actual algorithm generated for scanning has, of course, not been
 * modified.

 *
 * If you wish to regenerate this file yourself, keep in mind the following:
 * 
 *   The generated FortranTokenMaker.java file will contain two
 *       definitions of both zzRefill and yyreset.
 *       You should hand-delete the second of each definition (the ones
 *       generated by the lexer), as these generated methods modify the input
 *       buffer, which we'll never have to do.
 *   You should also change the declaration/definition of zzBuffer to NOT
 *       be initialized.  This is a needless memory allocation for us since we
 *       will be pointing the array somewhere else anyway.
 *   You should NOT call yylex() on the generated scanner
 *       directly; rather, you should use getTokenList as you would
 *       with any other TokenMaker instance.
 * 
 *
 * @author Robert Futrell
 * @version 0.4
 *
 */
%%

%public
%class FortranTokenMaker
%extends AbstractJFlexTokenMaker
%unicode
%ignorecase
%type org.fife.ui.rsyntaxtextarea.Token


%{


	/**
	 * Constructor.  We must have this here as there is no default,
	 * no-parameter constructor generated by JFlex.
	 */
	public FortranTokenMaker() {
		super();
	}


	/**
	 * Adds the token specified to the current linked list of tokens.
	 *
	 * @param tokenType The token's type.
	 */
	private void addToken(int tokenType) {
		addToken(zzStartRead, zzMarkedPos-1, tokenType);
	}


	/**
	 * Adds the token specified to the current linked list of tokens.
	 *
	 * @param tokenType The token's type.
	 */
	private void addToken(int start, int end, int tokenType) {
		int so = start + offsetShift;
		addToken(zzBuffer, start,end, tokenType, so);
	}


	/**
	 * Adds the token specified to the current linked list of tokens.
	 *
	 * @param array The character array.
	 * @param start The starting offset in the array.
	 * @param end The ending offset in the array.
	 * @param tokenType The token's type.
	 * @param startOffset The offset in the document at which this token
	 *                    occurs.
	 */
	@Override
	public void addToken(char[] array, int start, int end, int tokenType, int startOffset) {
		super.addToken(array, start,end, tokenType, startOffset);
		zzStartRead = zzMarkedPos;
	}


	/**
	 * {@inheritDoc}
	 */
	@Override
	public String[] getLineCommentStartAndEnd(int languageIndex) {
		return new String[] { "!", null };
	}


	/**
	 * Returns the first token in the linked list of tokens generated
	 * from text.  This method must be implemented by
	 * subclasses so they can correctly implement syntax highlighting.
	 *
	 * @param text The text from which to get tokens.
	 * @param initialTokenType The token type we should start with.
	 * @param startOffset The offset into the document at which
	 *        text starts.
	 * @return The first Token in a linked list representing
	 *         the syntax highlighted text.
	 */
	public Token getTokenList(Segment text, int initialTokenType, int startOffset) {

		resetTokenList();
		this.offsetShift = -text.offset + startOffset;

		// Start off in the proper state.
		int state = Token.NULL;
		switch (initialTokenType) {
			case Token.LITERAL_STRING_DOUBLE_QUOTE:
				state = STRING;
				start = text.offset;
				break;
			case Token.LITERAL_CHAR:
				state = CHAR;
				start = text.offset;
				break;
			default:
				state = Token.NULL;
		}

		s = text;
		try {
			yyreset(zzReader);
			yybegin(state);
			return yylex();
		} catch (IOException ioe) {
			ioe.printStackTrace();
			return new TokenImpl();
		}

	}


	/**
	 * Refills the input buffer.
	 *
	 * @return      true if EOF was reached, otherwise
	 *              false.
	 * @exception   IOException  if any I/O-Error occurs.
	 */
	private boolean zzRefill() throws java.io.IOException {
		return zzCurrentPos>=s.offset+s.count;
	}


	/**
	 * Resets the scanner to read from a new input stream.
	 * Does not close the old reader.
	 *
	 * All internal variables are reset, the old input stream 
	 * cannot be reused (internal buffer is discarded and lost).
	 * Lexical state is set to YY_INITIAL.
	 *
	 * @param reader   the new input stream 
	 */
	public final void yyreset(java.io.Reader reader) throws java.io.IOException {
		// 's' has been updated.
		zzBuffer = s.array;
		/*
		 * We replaced the line below with the two below it because zzRefill
		 * no longer "refills" the buffer (since the way we do it, it's always
		 * "full" the first time through, since it points to the segment's
		 * array).  So, we assign zzEndRead here.
		 */
		//zzStartRead = zzEndRead = s.offset;
		zzStartRead = s.offset;
		zzEndRead = zzStartRead + s.count - 1;
		zzCurrentPos = zzMarkedPos = zzPushbackPos = s.offset;
		zzLexicalState = YYINITIAL;
		zzReader = reader;
		zzAtBOL  = true;
		zzAtEOF  = false;
	}


%}

LineTerminator			= (\n)
WhiteSpace			= ([ \t\f])

Column1CommentBegin		= ([C\*])
Column1Comment2Begin	= (D)
AnywhereCommentBegin	= (\!)

Identifier			= ([A-Za-z0-9_$]+)

StringDelimiter		= (\")
CharDelimiter			= (\')

Operators1			= ("<"|">"|"<="|">="|"&"|"/="|"==")
Operators2			= (\.(lt|gt|eq|ne|le|ge|and|or)\.)
Operator				= ({Operators1}|{Operators2})

Boolean				= (\.(true|false)\.)

%state STRING
%state CHAR

%%

/* Keywords */
 "INCLUDE"				{ addToken(Token.RESERVED_WORD); }
 "PROGRAM"				{ addToken(Token.RESERVED_WORD); }
 "MODULE"				{ addToken(Token.RESERVED_WORD); }
 "SUBROUTINE"				{ addToken(Token.RESERVED_WORD); }
 "FUNCTION"				{ addToken(Token.RESERVED_WORD); }
 "CONTAINS"				{ addToken(Token.RESERVED_WORD); }
 "USE"					{ addToken(Token.RESERVED_WORD); }
 "CALL"					{ addToken(Token.RESERVED_WORD); }
 "RETURN"				{ addToken(Token.RESERVED_WORD); }
 "IMPLICIT"				{ addToken(Token.RESERVED_WORD); }
 "EXPLICIT"				{ addToken(Token.RESERVED_WORD); }
 "NONE"					{ addToken(Token.RESERVED_WORD); }
 "DATA"					{ addToken(Token.RESERVED_WORD); }
 "PARAMETER"				{ addToken(Token.RESERVED_WORD); }
 "ALLOCATE"				{ addToken(Token.RESERVED_WORD); }
 "ALLOCATABLE"			{ addToken(Token.RESERVED_WORD); }
 "ALLOCATED"				{ addToken(Token.RESERVED_WORD); }
 "DEALLOCATE"				{ addToken(Token.RESERVED_WORD); }
 "INTEGER"				{ addToken(Token.RESERVED_WORD); }
 "REAL"					{ addToken(Token.RESERVED_WORD); }
 "DOUBLE"				{ addToken(Token.RESERVED_WORD); }
 "PRECISION"				{ addToken(Token.RESERVED_WORD); }
 "COMPLEX"				{ addToken(Token.RESERVED_WORD); }
 "LOGICAL"				{ addToken(Token.RESERVED_WORD); }
 "CHARACTER"				{ addToken(Token.RESERVED_WORD); }
 "DIMENSION"				{ addToken(Token.RESERVED_WORD); }
 "KIND"					{ addToken(Token.RESERVED_WORD); }
 "CASE"					{ addToken(Token.RESERVED_WORD); }
 "SELECT"				{ addToken(Token.RESERVED_WORD); }
 "DEFAULT"				{ addToken(Token.RESERVED_WORD); }
 "CONTINUE"				{ addToken(Token.RESERVED_WORD); }
 "CYCLE"					{ addToken(Token.RESERVED_WORD); }
 "DO"					{ addToken(Token.RESERVED_WORD); }
 "WHILE"					{ addToken(Token.RESERVED_WORD); }
 "ELSE"					{ addToken(Token.RESERVED_WORD); }
 "IF"					{ addToken(Token.RESERVED_WORD); }
 "ELSEIF"				{ addToken(Token.RESERVED_WORD); }
 "THEN"					{ addToken(Token.RESERVED_WORD); }
 "ELSEWHERE"				{ addToken(Token.RESERVED_WORD); }
 "END"					{ addToken(Token.RESERVED_WORD); }
 "ENDIF"					{ addToken(Token.RESERVED_WORD); }
 "ENDDO"					{ addToken(Token.RESERVED_WORD); }
 "FORALL"				{ addToken(Token.RESERVED_WORD); }
 "WHERE"					{ addToken(Token.RESERVED_WORD); }
 "EXIT"					{ addToken(Token.RESERVED_WORD); }
 "GOTO"					{ addToken(Token.RESERVED_WORD); }
 "PAUSE"					{ addToken(Token.RESERVED_WORD); }
 "STOP"					{ addToken(Token.RESERVED_WORD); }
 "BACKSPACE"				{ addToken(Token.RESERVED_WORD); }
 "CLOSE"					{ addToken(Token.RESERVED_WORD); }
 "ENDFILE"				{ addToken(Token.RESERVED_WORD); }
 "INQUIRE"				{ addToken(Token.RESERVED_WORD); }
 "OPEN"					{ addToken(Token.RESERVED_WORD); }
 "PRINT"					{ addToken(Token.RESERVED_WORD); }
 "READ"					{ addToken(Token.RESERVED_WORD); }
 "REWIND"				{ addToken(Token.RESERVED_WORD); }
 "WRITE"					{ addToken(Token.RESERVED_WORD); }
 "FORMAT"				{ addToken(Token.RESERVED_WORD); }
 "AIMAG"					{ addToken(Token.RESERVED_WORD); }
 "AINT"					{ addToken(Token.RESERVED_WORD); }
 "AMAX0"					{ addToken(Token.RESERVED_WORD); }
 "AMIN0"					{ addToken(Token.RESERVED_WORD); }
 "ANINT"					{ addToken(Token.RESERVED_WORD); }
 "CEILING"				{ addToken(Token.RESERVED_WORD); }
 "CMPLX"					{ addToken(Token.RESERVED_WORD); }
 "CONJG"					{ addToken(Token.RESERVED_WORD); }
 "DBLE"					{ addToken(Token.RESERVED_WORD); }
 "DCMPLX"				{ addToken(Token.RESERVED_WORD); }
 "DFLOAT"				{ addToken(Token.RESERVED_WORD); }
 "DIM"					{ addToken(Token.RESERVED_WORD); }
 "DPROD"					{ addToken(Token.RESERVED_WORD); }
 "FLOAT"					{ addToken(Token.RESERVED_WORD); }
 "FLOOR"					{ addToken(Token.RESERVED_WORD); }
 "IFIX"					{ addToken(Token.RESERVED_WORD); }
 "IMAG"					{ addToken(Token.RESERVED_WORD); }
 "INT"					{ addToken(Token.RESERVED_WORD); }
 "LOGICAL"				{ addToken(Token.RESERVED_WORD); }
 "MODULO"				{ addToken(Token.RESERVED_WORD); }
 "NINT"					{ addToken(Token.RESERVED_WORD); }
 "REAL"					{ addToken(Token.RESERVED_WORD); }
 "SIGN"					{ addToken(Token.RESERVED_WORD); }
 "SNGL"					{ addToken(Token.RESERVED_WORD); }
 "TRANSFER"				{ addToken(Token.RESERVED_WORD); }
 "ZEXT"					{ addToken(Token.RESERVED_WORD); }
 "ABS"					{ addToken(Token.RESERVED_WORD); }
 "ACOS"					{ addToken(Token.RESERVED_WORD); }
 "AIMAG"					{ addToken(Token.RESERVED_WORD); }
 "AINT"					{ addToken(Token.RESERVED_WORD); }
 "ALOG"					{ addToken(Token.RESERVED_WORD); }
 "ALOG10"				{ addToken(Token.RESERVED_WORD); }
 "AMAX0"					{ addToken(Token.RESERVED_WORD); }
 "AMAX1"					{ addToken(Token.RESERVED_WORD); }
 "AMIN0"					{ addToken(Token.RESERVED_WORD); }
 "AMIN1"					{ addToken(Token.RESERVED_WORD); }
 "AMOD"					{ addToken(Token.RESERVED_WORD); }
 "ANINT"					{ addToken(Token.RESERVED_WORD); }
 "ASIN"					{ addToken(Token.RESERVED_WORD); }
 "ATAN"					{ addToken(Token.RESERVED_WORD); }
 "ATAN2"					{ addToken(Token.RESERVED_WORD); }
 "CABS"					{ addToken(Token.RESERVED_WORD); }
 "CCOS"					{ addToken(Token.RESERVED_WORD); }
 "CHAR"					{ addToken(Token.RESERVED_WORD); }
 "CLOG"					{ addToken(Token.RESERVED_WORD); }
 "CMPLX"					{ addToken(Token.RESERVED_WORD); }
 "CONJG"					{ addToken(Token.RESERVED_WORD); }
 "COS"					{ addToken(Token.RESERVED_WORD); }
 "COSH"					{ addToken(Token.RESERVED_WORD); }
 "CSIN"					{ addToken(Token.RESERVED_WORD); }
 "CSQRT"					{ addToken(Token.RESERVED_WORD); }
 "DABS"					{ addToken(Token.RESERVED_WORD); }
 "DACOS"					{ addToken(Token.RESERVED_WORD); }
 "DASIN"					{ addToken(Token.RESERVED_WORD); }
 "DATAN"					{ addToken(Token.RESERVED_WORD); }
 "DATAN2"				{ addToken(Token.RESERVED_WORD); }
 "DBLE"					{ addToken(Token.RESERVED_WORD); }
 "DCOS"					{ addToken(Token.RESERVED_WORD); }
 "DCOSH"					{ addToken(Token.RESERVED_WORD); }
 "DDIM"					{ addToken(Token.RESERVED_WORD); }
 "DEXP"					{ addToken(Token.RESERVED_WORD); }
 "DIM"					{ addToken(Token.RESERVED_WORD); }
 "DINT"					{ addToken(Token.RESERVED_WORD); }
 "DLOG"					{ addToken(Token.RESERVED_WORD); }
 "DLOG10"				{ addToken(Token.RESERVED_WORD); }
 "DMAX1"					{ addToken(Token.RESERVED_WORD); }
 "DMIN1"					{ addToken(Token.RESERVED_WORD); }
 "DMOD"					{ addToken(Token.RESERVED_WORD); }
 "DNINT"					{ addToken(Token.RESERVED_WORD); }
 "DPROD"					{ addToken(Token.RESERVED_WORD); }
 "DREAL"					{ addToken(Token.RESERVED_WORD); }
 "DSIGN"					{ addToken(Token.RESERVED_WORD); }
 "DSIN"					{ addToken(Token.RESERVED_WORD); }
 "DSINH"					{ addToken(Token.RESERVED_WORD); }
 "DSQRT"					{ addToken(Token.RESERVED_WORD); }
 "DTAN"					{ addToken(Token.RESERVED_WORD); }
 "DTANH"					{ addToken(Token.RESERVED_WORD); }
 "EXP"					{ addToken(Token.RESERVED_WORD); }
 "FLOAT"					{ addToken(Token.RESERVED_WORD); }
 "IABS"					{ addToken(Token.RESERVED_WORD); }
 "ICHAR"					{ addToken(Token.RESERVED_WORD); }
 "IDIM"					{ addToken(Token.RESERVED_WORD); }
 "IDINT"					{ addToken(Token.RESERVED_WORD); }
 "IDNINT"				{ addToken(Token.RESERVED_WORD); }
 "IFIX"					{ addToken(Token.RESERVED_WORD); }
 "INDEX"					{ addToken(Token.RESERVED_WORD); }
 "INT"					{ addToken(Token.RESERVED_WORD); }
 "ISIGN"					{ addToken(Token.RESERVED_WORD); }
 "LEN"					{ addToken(Token.RESERVED_WORD); }
 "LGE"					{ addToken(Token.RESERVED_WORD); }
 "LGT"					{ addToken(Token.RESERVED_WORD); }
 "LLE"					{ addToken(Token.RESERVED_WORD); }
 "LLT"					{ addToken(Token.RESERVED_WORD); }
 "LOG"					{ addToken(Token.RESERVED_WORD); }
 "LOG10"					{ addToken(Token.RESERVED_WORD); }
 "MAX"					{ addToken(Token.RESERVED_WORD); }
 "MAX0"					{ addToken(Token.RESERVED_WORD); }
 "MAX1"					{ addToken(Token.RESERVED_WORD); }
 "MIN"					{ addToken(Token.RESERVED_WORD); }
 "MIN0"					{ addToken(Token.RESERVED_WORD); }
 "MIN1"					{ addToken(Token.RESERVED_WORD); }
 "MOD"					{ addToken(Token.RESERVED_WORD); }
 "NINT"					{ addToken(Token.RESERVED_WORD); }
 "REAL"					{ addToken(Token.RESERVED_WORD); }
 "SIGN"					{ addToken(Token.RESERVED_WORD); }
 "SIN"					{ addToken(Token.RESERVED_WORD); }
 "SINH"					{ addToken(Token.RESERVED_WORD); }
 "SNGL"					{ addToken(Token.RESERVED_WORD); }
 "SQRT"					{ addToken(Token.RESERVED_WORD); }
 "TAN"					{ addToken(Token.RESERVED_WORD); }
 "TANH"					{ addToken(Token.RESERVED_WORD); }

 {

	{LineTerminator}				{ addNullToken(); return firstToken; }

	{WhiteSpace}+					{ addToken(Token.WHITESPACE); }

	/* String/Character Literals. */
	{CharDelimiter}				{ start = zzMarkedPos-1; yybegin(CHAR); }
	{StringDelimiter}				{ start = zzMarkedPos-1; yybegin(STRING); }

	/* Comment Literals. */
	/* Note that we cannot combine these as JFLex doesn't like combining an */
	/* expression containing the beginning-of-line character '^'. */
	{Column1CommentBegin}	{
							// Since we change zzStartRead, we have the unfortunate
							// side-effect of not being able to use the '^' operator.
							// So we must check whether we're really at the beginning
							// of the line ourselves...
							if (zzStartRead==s.offset) {
								addToken(zzStartRead,zzEndRead, Token.COMMENT_EOL);
								addNullToken();
								return firstToken;
							}
							else {
								addToken(Token.IDENTIFIER);
							}
						}
	{Column1Comment2Begin}	{
							// Since we change zzStartRead, we have the unfortunate
							// side-effect of not being able to use the '^' operator.
							// So we must check whether we're really at the beginning
							// of the line ourselves...
							if (zzStartRead==s.offset) {
								addToken(zzStartRead,zzEndRead, Token.COMMENT_DOCUMENTATION);
								addNullToken();
								return firstToken;
							}
							else {
								addToken(Token.IDENTIFIER);
							}
						}
	{AnywhereCommentBegin}	{ addToken(zzStartRead,zzEndRead, Token.COMMENT_EOL); addNullToken(); return firstToken; }

	/* Operators. */
	{Operator}					{ addToken(Token.OPERATOR); }

	/* Boolean literals. */
	{Boolean}						{ addToken(Token.LITERAL_BOOLEAN); }

	{Identifier}					{ addToken(Token.IDENTIFIER); }

	/* Ended with a line not in a string or char literal. */
	<>						{ addNullToken(); return firstToken; }

	/* Catch any other (unhandled) characters. */
	.							{ addToken(Token.IDENTIFIER); }

}

 {
	[^\'\n]*						{}
	\'							{ yybegin(YYINITIAL); addToken(start,zzStartRead, Token.LITERAL_CHAR); }
	\n							{ addToken(start,zzStartRead-1, Token.LITERAL_CHAR); return firstToken; }
	<>						{ addToken(start,zzStartRead-1, Token.LITERAL_CHAR); return firstToken; }
}

 {
	[^\"\n]*						{}
	\"							{ yybegin(YYINITIAL); addToken(start,zzStartRead, Token.LITERAL_STRING_DOUBLE_QUOTE); }
	\n							{ addToken(start,zzStartRead-1, Token.LITERAL_STRING_DOUBLE_QUOTE); return firstToken; }
	<>						{ addToken(start,zzStartRead-1, Token.LITERAL_STRING_DOUBLE_QUOTE); return firstToken; }
}