fortrancode.cpp File Reference

#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <stdlib.h>
#include <assert.h>
#include <ctype.h>
#include <qregexp.h>
#include <qdir.h>
#include <qstringlist.h>
#include "entry.h"
#include "doxygen.h"
#include "message.h"
#include "outputlist.h"
#include "util.h"
#include "membername.h"
#include "searchindex.h"
#include "defargs.h"
#include "memberlist.h"
#include "config.h"
#include "groupdef.h"
#include "classlist.h"
#include "filedef.h"
#include "namespacedef.h"
#include "tooltip.h"
#include "fortrancode.h"

Go to the source code of this file.

Classes
struct	yy_buffer_state
struct	yy_trans_info
class	UseEntry
class	UseSDict
class	Scope

Macros
#define	YY_INT_ALIGNED   short int
#define	yy_create_buffer   fortrancodeYY_create_buffer
#define	yy_delete_buffer   fortrancodeYY_delete_buffer
#define	yy_flex_debug   fortrancodeYY_flex_debug
#define	yy_init_buffer   fortrancodeYY_init_buffer
#define	yy_flush_buffer   fortrancodeYY_flush_buffer
#define	yy_load_buffer_state   fortrancodeYY_load_buffer_state
#define	yy_switch_to_buffer   fortrancodeYY_switch_to_buffer
#define	yyin   fortrancodeYYin
#define	yyleng   fortrancodeYYleng
#define	yylex   fortrancodeYYlex
#define	yylineno   fortrancodeYYlineno
#define	yyout   fortrancodeYYout
#define	yyrestart   fortrancodeYYrestart
#define	yytext   fortrancodeYYtext
#define	yywrap   fortrancodeYYwrap
#define	yyalloc   fortrancodeYYalloc
#define	yyrealloc   fortrancodeYYrealloc
#define	yyfree   fortrancodeYYfree
#define	FLEX_SCANNER
#define	YY_FLEX_MAJOR_VERSION   2
#define	YY_FLEX_MINOR_VERSION   5
#define	YY_FLEX_SUBMINOR_VERSION   35
#define	FLEX_BETA
#define	FLEXINT_H
#define	INT8_MIN   (-128)
#define	INT16_MIN   (-32767-1)
#define	INT32_MIN   (-2147483647-1)
#define	INT8_MAX   (127)
#define	INT16_MAX   (32767)
#define	INT32_MAX   (2147483647)
#define	UINT8_MAX   (255U)
#define	UINT16_MAX   (65535U)
#define	UINT32_MAX   (4294967295U)
#define	yyconst
#define	YY_NULL   0
#define	YY_SC_TO_UI(c)   ((unsigned int) (unsigned char) c)
#define	BEGIN   (yy_start) = 1 + 2 *
#define	YY_START   (((yy_start) - 1) / 2)
#define	YYSTATE   YY_START
#define	YY_STATE_EOF(state)   (YY_END_OF_BUFFER + state + 1)
#define	YY_NEW_FILE   fortrancodeYYrestart(fortrancodeYYin )
#define	YY_END_OF_BUFFER_CHAR   0
#define	YY_BUF_SIZE   16384
#define	YY_STATE_BUF_SIZE   ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
#define	YY_TYPEDEF_YY_BUFFER_STATE
#define	EOB_ACT_CONTINUE_SCAN   0
#define	EOB_ACT_END_OF_FILE   1
#define	EOB_ACT_LAST_MATCH   2
#define	YY_LESS_LINENO(n)
#define	yyless(n)
#define	unput(c)   yyunput( c, (yytext_ptr) )
#define	YY_TYPEDEF_YY_SIZE_T
#define	YY_STRUCT_YY_BUFFER_STATE
#define	YY_BUFFER_NEW   0
#define	YY_BUFFER_NORMAL   1
#define	YY_BUFFER_EOF_PENDING   2
#define	YY_CURRENT_BUFFER
#define	YY_CURRENT_BUFFER_LVALUE   (yy_buffer_stack)[(yy_buffer_stack_top)]
#define	YY_FLUSH_BUFFER   fortrancodeYY_flush_buffer(YY_CURRENT_BUFFER )
#define	yy_new_buffer   fortrancodeYY_create_buffer
#define	yy_set_interactive(is_interactive)
#define	yy_set_bol(at_bol)
#define	YY_AT_BOL()   (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
#define	fortrancodeYYwrap(n)   1
#define	YY_SKIP_YYWRAP
#define	yytext_ptr   fortrancodeYYtext
#define	YY_DO_BEFORE_ACTION
#define	YY_NUM_RULES   66
#define	YY_END_OF_BUFFER   67
#define	YY_TRAILING_MASK   0x2000
#define	YY_TRAILING_HEAD_MASK   0x4000
#define	REJECT
#define	yymore()   yymore_used_but_not_detected
#define	YY_MORE_ADJ   0
#define	YY_RESTORE_YY_MORE_OFFSET
#define	DBG_CTX(x)   do { } while(0)
#define	YY_NO_TOP_STATE   1
#define	YY_NO_INPUT   1
#define	YY_NO_UNISTD_H   1
#define	YY_USER_ACTION   {yy_old_start = yy_my_start; yy_my_start = yy_end; yy_end += fortrancodeYYleng;}
#define	YY_FTN_RESET   {yy_old_start = 0; yy_my_start = 0; yy_end = 1;}
#define	YY_FTN_REJECT   {yy_end = yy_my_start; yy_my_start = yy_old_start; REJECT;}
#define	YY_INPUT(buf, result, max_size)   result=yyread(buf,max_size);
#define	INITIAL   0
#define	Start   1
#define	SubCall   2
#define	FuncDef   3
#define	ClassName   4
#define	ClassVar   5
#define	Subprog   6
#define	DocBlock   7
#define	Use   8
#define	UseOnly   9
#define	Import   10
#define	Declaration   11
#define	DeclarationBinding   12
#define	DeclContLine   13
#define	Parameterlist   14
#define	String   15
#define	Subprogend   16
#define	YY_EXTRA_TYPE   void *
#define	YY_READ_BUF_SIZE   8192
#define	ECHO   do { if (fwrite( fortrancodeYYtext, fortrancodeYYleng, 1, fortrancodeYYout )) {} } while (0)
#define	yyterminate()   return YY_NULL
#define	YY_START_STACK_INCR   25
#define	YY_FATAL_ERROR(msg)   yy_fatal_error( msg )
#define	YY_DECL_IS_OURS   1
#define	YY_DECL   int fortrancodeYYlex (void)
#define	YY_BREAK   break;
#define	YY_RULE_SETUP
#define	YY_EXIT_FAILURE   2
#define	yyless(n)
#define	YYTABLES_NAME   "yytables"

Typedefs
typedef signed char	flex_int8_t
typedef short int	flex_int16_t
typedef int	flex_int32_t
typedef unsigned char	flex_uint8_t
typedef unsigned short int	flex_uint16_t
typedef unsigned int	flex_uint32_t
typedef struct yy_buffer_state *	YY_BUFFER_STATE
typedef size_t	yy_size_t
typedef unsigned char	YY_CHAR
typedef int	yy_state_type

Functions
void	fortrancodeYYrestart (FILE *input_file)
void	fortrancodeYY_switch_to_buffer (YY_BUFFER_STATE new_buffer)
YY_BUFFER_STATE	fortrancodeYY_create_buffer (FILE *file, int size)
void	fortrancodeYY_delete_buffer (YY_BUFFER_STATE b)
void	fortrancodeYY_flush_buffer (YY_BUFFER_STATE b)
void	fortrancodeYYpush_buffer_state (YY_BUFFER_STATE new_buffer)
void	fortrancodeYYpop_buffer_state (void)
static void	fortrancodeYYensure_buffer_stack (void)
static void	fortrancodeYY_load_buffer_state (void)
static void	fortrancodeYY_init_buffer (YY_BUFFER_STATE b, FILE *file)
YY_BUFFER_STATE	fortrancodeYY_scan_buffer (char *base, yy_size_t size)
YY_BUFFER_STATE	fortrancodeYY_scan_string (yyconst char *yy_str)
YY_BUFFER_STATE	fortrancodeYY_scan_bytes (yyconst char *bytes, int len)
void *	fortrancodeYYalloc (yy_size_t)
void *	fortrancodeYYrealloc (void *, yy_size_t)
void	fortrancodeYYfree (void *)
static yy_state_type	yy_get_previous_state (void)
static yy_state_type	yy_try_NUL_trans (yy_state_type current_state)
static int	yy_get_next_buffer (void)
static void	yy_fatal_error (yyconst char msg[])
static bool	recognizeFixedForm (const char *contents, FortranFormat format)
static void	endFontClass ()
static void	startFontClass (const char *s)
static void	setCurrentDoc (const QCString &anchor)
static void	addToSearchIndex (const char *text)
static void	startCodeLine ()
static void	endCodeLine ()
static void	codifyLines (char *text)
static void	codifyLines (QCString str)
static void	writeMultiLineCodeLink (CodeOutputInterface &ol, Definition *d, const char *text)
static bool	getFortranNamespaceDefs (const QCString &mname, NamespaceDef *&cd)
static bool	getFortranTypeDefs (const QCString &tname, const QCString &moduleName, ClassDef *&cd, UseSDict *usedict=0)
static bool	getFortranDefs (const QCString &memberName, const QCString &moduleName, MemberDef *&md, UseSDict *usedict=0)
static bool	getGenericProcedureLink (const ClassDef *cd, const char *memberText, CodeOutputInterface &ol)
static bool	getLink (UseSDict *usedict, const char *memberText, CodeOutputInterface &ol, const char *text)
static void	generateLink (CodeOutputInterface &ol, char *lname)
static int	countLines ()
static void	startScope ()
static void	endScope ()
static void	addUse (const QCString &moduleName)
static void	addLocalVar (const QCString &varName)
static int	yyread (char *buf, int max_size)
static int	yy_init_globals (void)
int	fortrancodeYYlex_destroy (void)
int	fortrancodeYYget_debug (void)
void	fortrancodeYYset_debug (int debug_flag)
YY_EXTRA_TYPE	fortrancodeYYget_extra (void)
void	fortrancodeYYset_extra (YY_EXTRA_TYPE user_defined)
FILE *	fortrancodeYYget_in (void)
void	fortrancodeYYset_in (FILE *in_str)
FILE *	fortrancodeYYget_out (void)
void	fortrancodeYYset_out (FILE *out_str)
int	fortrancodeYYget_leng (void)
char *	fortrancodeYYget_text (void)
int	fortrancodeYYget_lineno (void)
void	fortrancodeYYset_lineno (int line_number)
static void	yyunput (int c, char *buf_ptr)
static void	yy_push_state (int new_state)
static void	yy_pop_state (void)
static int	yy_top_state (void)
int	fortrancodeYYlex (void)
	if (!(yy_init))
	while (1)
static void	yyunput (int c, register char *yy_bp)
static void	yy_fatal_error (yyconst char *msg)
void	resetFortranCodeParserState ()
void	parseFortranCode (CodeOutputInterface &od, const char *className, const QCString &s, bool exBlock, const char *exName, FileDef *fd, int startLine, int endLine, bool inlineFragment, MemberDef *memberDef, bool, Definition *searchCtx, bool collectXRefs, FortranFormat format)
void	fortrancodeYYdummy ()

Variables
int	fortrancodeYYleng
FILE *	fortrancodeYYin = (FILE *) 0
FILE *	fortrancodeYYout = (FILE *) 0
static size_t	yy_buffer_stack_top = 0
static size_t	yy_buffer_stack_max = 0
static YY_BUFFER_STATE *	yy_buffer_stack = 0
static char	yy_hold_char
static int	yy_n_chars
static char *	yy_c_buf_p = (char *) 0
static int	yy_init = 0
static int	yy_start = 0
static int	yy_did_buffer_switch_on_eof
int	fortrancodeYYlineno = 1
char *	fortrancodeYYtext
static yyconst flex_int16_t	yy_acclist [6342]
static yyconst flex_int16_t	yy_accept [10606]
static yyconst flex_int32_t	yy_ec [256]
static yyconst flex_int32_t	yy_meta [74]
static yyconst flex_int32_t	yy_base [12566]
static yyconst flex_int16_t	yy_def [12566]
static yyconst flex_int16_t	yy_nxt [99369]
static yyconst flex_int16_t	yy_chk [99369]
int	fortrancodeYY_flex_debug = 0
static yy_state_type *	yy_state_buf =0
static yy_state_type *	yy_state_ptr =0
static char *	yy_full_match
static int	yy_lp
static int	yy_looking_for_trail_begin = 0
static int	yy_full_lp
static int *	yy_full_state
int	yy_old_start = 0
int	yy_my_start = 0
int	yy_end = 1
static QCString	docBlock
	contents of all lines of a documentation block More...
static QCString	currentModule =0
	name of the current enclosing module More...
static QCString	currentClass =0
	name of the current enclosing class More...
static UseSDict *	useMembers = new UseSDict
	info about used modules More...
static UseEntry *	useEntry = 0
	current use statement info More...
static QList< Scope >	scopeStack
static QCString	str =""
static CodeOutputInterface *	g_code
	contents of fortran string More...
static QCString	g_parmType
static QCString	g_parmName
static const char *	g_inputString
	the code fragment as text More...
static int	g_inputPosition
	read offset during parsing More...
static int	g_inputLines
	number of line in the code fragment More...
static int	g_yyLineNr
	current line number More...
static bool	g_needsTermination
static Definition *	g_searchCtx
static bool	g_collectXRefs
static bool	g_isFixedForm
static bool	g_insideBody
	inside subprog/program body? => create links More...
static const char *	g_currentFontClass
static bool	g_exampleBlock
static QCString	g_exampleName
static QCString	g_exampleFile
static FileDef *	g_sourceFileDef
static Definition *	g_currentDefinition
static MemberDef *	g_currentMemberDef
static bool	g_includeCodeFragment
static char	stringStartSymbol
static int	bracketCount = 0
static bool	g_endComment
static int	yy_start_stack_ptr = 0
static int	yy_start_stack_depth = 0
static int *	yy_start_stack = NULL
	YY_DECL
register char *	yy_cp
register char *	yy_bp
register int	yy_act

Macro Definition Documentation

#define BEGIN   (yy_start) = 1 + 2 *

Definition at line 144 of file fortrancode.cpp.

#define ClassName   4

Definition at line 27707 of file fortrancode.cpp.

#define ClassVar   5

Definition at line 27708 of file fortrancode.cpp.

#define DBG_CTX

(

x

)

do { } while(0)

Todo:

• continutation lines not always recognized
  • merging of use-statements with same module name and different only-names
  • rename part of use-statement
  • links to interface functions
  • references to variables

Definition at line 27032 of file fortrancode.cpp.

#define Declaration   11

Definition at line 27714 of file fortrancode.cpp.

#define DeclarationBinding   12

Definition at line 27715 of file fortrancode.cpp.

#define DeclContLine   13

Definition at line 27716 of file fortrancode.cpp.

#define DocBlock   7

Definition at line 27710 of file fortrancode.cpp.

#define ECHO   do { if (fwrite( fortrancodeYYtext, fortrancodeYYleng, 1, fortrancodeYYout )) {} } while (0)

Definition at line 27816 of file fortrancode.cpp.

#define EOB_ACT_CONTINUE_SCAN   0

Definition at line 179 of file fortrancode.cpp.

#define EOB_ACT_END_OF_FILE   1

Definition at line 180 of file fortrancode.cpp.

#define EOB_ACT_LAST_MATCH   2

Definition at line 181 of file fortrancode.cpp.

#define FLEX_BETA

Definition at line 33 of file fortrancode.cpp.

#define FLEX_SCANNER

Definition at line 28 of file fortrancode.cpp.

#define FLEXINT_H

Definition at line 49 of file fortrancode.cpp.

#define fortrancodeYYwrap

(

n

)

1

Definition at line 354 of file fortrancode.cpp.

#define FuncDef   3

Definition at line 27706 of file fortrancode.cpp.

#define Import   10

Definition at line 27713 of file fortrancode.cpp.

#define INITIAL   0

Definition at line 27703 of file fortrancode.cpp.

#define INT16_MAX   (32767)

Definition at line 92 of file fortrancode.cpp.

#define INT16_MIN   (-32767-1)

Definition at line 83 of file fortrancode.cpp.

#define INT32_MAX   (2147483647)

Definition at line 95 of file fortrancode.cpp.

#define INT32_MIN   (-2147483647-1)

Definition at line 86 of file fortrancode.cpp.

#define INT8_MAX   (127)

Definition at line 89 of file fortrancode.cpp.

#define INT8_MIN   (-128)

Definition at line 80 of file fortrancode.cpp.

#define Parameterlist   14

Definition at line 27717 of file fortrancode.cpp.

#define REJECT

Value:

{ \
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */ \
yy_cp = (yy_full_match); /* restore poss. backed-over text */ \
(yy_lp) = (yy_full_lp); /* restore orig. accepting pos. */ \
(yy_state_ptr) = (yy_full_state); /* restore orig. state */ \
yy_current_state = *(yy_state_ptr); /* restore curr. state */ \
++(yy_lp); \
goto find_rule; \
}

Definition at line 26962 of file fortrancode.cpp.

#define Start   1

Definition at line 27704 of file fortrancode.cpp.

#define String   15

Definition at line 27718 of file fortrancode.cpp.

#define SubCall   2

Definition at line 27705 of file fortrancode.cpp.

#define Subprog   6

Definition at line 27709 of file fortrancode.cpp.

#define Subprogend   16

Definition at line 27719 of file fortrancode.cpp.

#define UINT16_MAX   (65535U)

Definition at line 101 of file fortrancode.cpp.

#define UINT32_MAX   (4294967295U)

Definition at line 104 of file fortrancode.cpp.

#define UINT8_MAX   (255U)

Definition at line 98 of file fortrancode.cpp.

#define unput

(

c

)

yyunput( c, (yytext_ptr) )

Definition at line 199 of file fortrancode.cpp.

#define Use   8

Definition at line 27711 of file fortrancode.cpp.

#define UseOnly   9

Definition at line 27712 of file fortrancode.cpp.

#define YY_AT_BOL

(

)

(YY_CURRENT_BUFFER_LVALUE->yy_at_bol)

Definition at line 350 of file fortrancode.cpp.

#define YY_BREAK   break;

Definition at line 27895 of file fortrancode.cpp.

#define YY_BUF_SIZE   16384

Definition at line 163 of file fortrancode.cpp.

#define YY_BUFFER_EOF_PENDING   2

Definition at line 266 of file fortrancode.cpp.

#define YY_BUFFER_NEW   0

Definition at line 254 of file fortrancode.cpp.

#define YY_BUFFER_NORMAL   1

Definition at line 255 of file fortrancode.cpp.

#define yy_create_buffer   fortrancodeYY_create_buffer

Definition at line 9 of file fortrancode.cpp.

#define YY_CURRENT_BUFFER

Value:

( (yy_buffer_stack) \
                          ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
                          : NULL)

Definition at line 282 of file fortrancode.cpp.

#define YY_CURRENT_BUFFER_LVALUE   (yy_buffer_stack)[(yy_buffer_stack_top)]

Definition at line 289 of file fortrancode.cpp.

#define YY_DECL   int fortrancodeYYlex (void)

Definition at line 27883 of file fortrancode.cpp.

#define YY_DECL_IS_OURS   1

Definition at line 27879 of file fortrancode.cpp.

#define yy_delete_buffer   fortrancodeYY_delete_buffer

Definition at line 10 of file fortrancode.cpp.

#define YY_DO_BEFORE_ACTION

Value:

(yytext_ptr) = yy_bp; \
	fortrancodeYYleng = (size_t) (yy_cp - yy_bp); \
        (yy_hold_char) = *yy_cp; \
        *yy_cp = '\0'; \
        (yy_c_buf_p) = yy_cp;

Definition at line 378 of file fortrancode.cpp.

#define YY_END_OF_BUFFER   67

Definition at line 386 of file fortrancode.cpp.

#define YY_END_OF_BUFFER_CHAR   0

Definition at line 159 of file fortrancode.cpp.

#define YY_EXIT_FAILURE   2

Definition at line 29599 of file fortrancode.cpp.

#define YY_EXTRA_TYPE   void *

Definition at line 27730 of file fortrancode.cpp.

#define YY_FATAL_ERROR

(

msg

)

yy_fatal_error( msg )

Definition at line 27870 of file fortrancode.cpp.

#define yy_flex_debug   fortrancodeYY_flex_debug

Definition at line 11 of file fortrancode.cpp.

#define YY_FLEX_MAJOR_VERSION   2

Definition at line 29 of file fortrancode.cpp.

#define YY_FLEX_MINOR_VERSION   5

Definition at line 30 of file fortrancode.cpp.

#define YY_FLEX_SUBMINOR_VERSION   35

Definition at line 31 of file fortrancode.cpp.

#define yy_flush_buffer   fortrancodeYY_flush_buffer

Definition at line 13 of file fortrancode.cpp.

#define YY_FLUSH_BUFFER   fortrancodeYY_flush_buffer(YY_CURRENT_BUFFER )

Definition at line 318 of file fortrancode.cpp.

#define YY_FTN_REJECT   {yy_end = yy_my_start; yy_my_start = yy_old_start; REJECT;}

Definition at line 27050 of file fortrancode.cpp.

#define YY_FTN_RESET   {yy_old_start = 0; yy_my_start = 0; yy_end = 1;}

Definition at line 27049 of file fortrancode.cpp.

#define yy_init_buffer   fortrancodeYY_init_buffer

Definition at line 12 of file fortrancode.cpp.

#define YY_INPUT	(		buf,
			result,
			max_size
	)		result=yyread(buf,max_size);

Definition at line 27669 of file fortrancode.cpp.

#define YY_INT_ALIGNED   short int

Definition at line 5 of file fortrancode.cpp.

#define YY_LESS_LINENO

(

n

)

Definition at line 183 of file fortrancode.cpp.

#define yy_load_buffer_state   fortrancodeYY_load_buffer_state

Definition at line 14 of file fortrancode.cpp.

#define YY_MORE_ADJ   0

Definition at line 26974 of file fortrancode.cpp.

#define yy_new_buffer   fortrancodeYY_create_buffer

Definition at line 328 of file fortrancode.cpp.

#define YY_NEW_FILE   fortrancodeYYrestart(fortrancodeYYin )

Definition at line 157 of file fortrancode.cpp.

#define YY_NO_INPUT   1

Definition at line 27035 of file fortrancode.cpp.

#define YY_NO_TOP_STATE   1

Definition at line 27034 of file fortrancode.cpp.

#define YY_NO_UNISTD_H   1

Definition at line 27036 of file fortrancode.cpp.

#define YY_NULL   0

Definition at line 131 of file fortrancode.cpp.

#define YY_NUM_RULES   66

Definition at line 385 of file fortrancode.cpp.

#define YY_READ_BUF_SIZE   8192

Definition at line 27808 of file fortrancode.cpp.

#define YY_RESTORE_YY_MORE_OFFSET

Definition at line 26975 of file fortrancode.cpp.

#define YY_RULE_SETUP

Value:

if ( fortrancodeYYleng > 0 ) \
		YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
                                (fortrancodeYYtext[fortrancodeYYleng - 1] == '\n'); \
	YY_USER_ACTION

Definition at line 27898 of file fortrancode.cpp.

#define YY_SC_TO_UI

(

c

)

((unsigned int) (unsigned char) c)

Definition at line 138 of file fortrancode.cpp.

#define yy_set_bol

(

at_bol

)

Value:

{ \
	if ( ! YY_CURRENT_BUFFER ){\
        fortrancodeYYensure_buffer_stack (); \
		YY_CURRENT_BUFFER_LVALUE =    \
            fortrancodeYY_create_buffer(fortrancodeYYin,YY_BUF_SIZE ); \
        } \
	YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
        }

Definition at line 340 of file fortrancode.cpp.

#define yy_set_interactive

(

is_interactive

)

Value:

{ \
	if ( ! YY_CURRENT_BUFFER ){ \
        fortrancodeYYensure_buffer_stack (); \
		YY_CURRENT_BUFFER_LVALUE =    \
            fortrancodeYY_create_buffer(fortrancodeYYin,YY_BUF_SIZE ); \
        } \
	YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
        }

Definition at line 330 of file fortrancode.cpp.

#define YY_SKIP_YYWRAP

Definition at line 355 of file fortrancode.cpp.

#define YY_START   (((yy_start) - 1) / 2)

Definition at line 150 of file fortrancode.cpp.

#define YY_START_STACK_INCR   25

Definition at line 27865 of file fortrancode.cpp.

#define YY_STATE_BUF_SIZE   ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))

Definition at line 168 of file fortrancode.cpp.

#define YY_STATE_EOF

(

state

)

(YY_END_OF_BUFFER + state + 1)

Definition at line 154 of file fortrancode.cpp.

#define YY_STRUCT_YY_BUFFER_STATE

Definition at line 207 of file fortrancode.cpp.

#define yy_switch_to_buffer   fortrancodeYY_switch_to_buffer

Definition at line 15 of file fortrancode.cpp.

#define YY_TRAILING_HEAD_MASK   0x4000

Definition at line 26961 of file fortrancode.cpp.

#define YY_TRAILING_MASK   0x2000

Definition at line 26960 of file fortrancode.cpp.

#define YY_TYPEDEF_YY_BUFFER_STATE

Definition at line 171 of file fortrancode.cpp.

#define YY_TYPEDEF_YY_SIZE_T

Definition at line 202 of file fortrancode.cpp.

#define YY_USER_ACTION   {yy_old_start = yy_my_start; yy_my_start = yy_end; yy_end += fortrancodeYYleng;}

Definition at line 27048 of file fortrancode.cpp.

#define yyalloc   fortrancodeYYalloc

Definition at line 24 of file fortrancode.cpp.

#define yyconst

Definition at line 127 of file fortrancode.cpp.

#define yyfree   fortrancodeYYfree

Definition at line 26 of file fortrancode.cpp.

#define yyin   fortrancodeYYin

Definition at line 16 of file fortrancode.cpp.

#define yyleng   fortrancodeYYleng

Definition at line 17 of file fortrancode.cpp.

#define yyless

(

n

)

Value:

do \
                { \
                /* Undo effects of setting up fortrancodeYYtext. */ \
        int yyless_macro_arg = (n); \
        YY_LESS_LINENO(yyless_macro_arg);\
                *yy_cp = (yy_hold_char); \
		YY_RESTORE_YY_MORE_OFFSET \
                (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
		YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */ \
                } \
	while ( 0 )

Definition at line 29611 of file fortrancode.cpp.

#define yyless

(

n

)

Value:

do \
                { \
                /* Undo effects of setting up fortrancodeYYtext. */ \
        int yyless_macro_arg = (n); \
        YY_LESS_LINENO(yyless_macro_arg);\
		fortrancodeYYtext[fortrancodeYYleng] = (yy_hold_char); \
                (yy_c_buf_p) = fortrancodeYYtext + yyless_macro_arg; \
                (yy_hold_char) = *(yy_c_buf_p); \
                *(yy_c_buf_p) = '\0'; \
		fortrancodeYYleng = yyless_macro_arg; \
                } \
	while ( 0 )

Definition at line 29611 of file fortrancode.cpp.

#define yylex   fortrancodeYYlex

Definition at line 18 of file fortrancode.cpp.

#define yylineno   fortrancodeYYlineno

Definition at line 19 of file fortrancode.cpp.

#define yymore

(

)

yymore_used_but_not_detected

Definition at line 26973 of file fortrancode.cpp.

#define yyout   fortrancodeYYout

Definition at line 20 of file fortrancode.cpp.

#define yyrealloc   fortrancodeYYrealloc

Definition at line 25 of file fortrancode.cpp.

#define yyrestart   fortrancodeYYrestart

Definition at line 21 of file fortrancode.cpp.

#define YYSTATE   YY_START

Definition at line 151 of file fortrancode.cpp.

#define YYTABLES_NAME   "yytables"

Definition at line 29817 of file fortrancode.cpp.

#define yyterminate

(

)

return YY_NULL

Definition at line 27860 of file fortrancode.cpp.

#define yytext   fortrancodeYYtext

Definition at line 22 of file fortrancode.cpp.

#define yytext_ptr   fortrancodeYYtext

Definition at line 368 of file fortrancode.cpp.

#define yywrap   fortrancodeYYwrap

Definition at line 23 of file fortrancode.cpp.

Typedef Documentation

typedef short int flex_int16_t

Definition at line 71 of file fortrancode.cpp.

typedef int flex_int32_t

Definition at line 72 of file fortrancode.cpp.

typedef signed char flex_int8_t

Definition at line 70 of file fortrancode.cpp.

typedef unsigned short int flex_uint16_t

Definition at line 74 of file fortrancode.cpp.

typedef unsigned int flex_uint32_t

Definition at line 75 of file fortrancode.cpp.

typedef unsigned char flex_uint8_t

Definition at line 73 of file fortrancode.cpp.

typedef struct yy_buffer_state* YY_BUFFER_STATE

Definition at line 172 of file fortrancode.cpp.

typedef unsigned char YY_CHAR

Definition at line 357 of file fortrancode.cpp.

typedef size_t yy_size_t

Definition at line 203 of file fortrancode.cpp.

typedef int yy_state_type

Definition at line 361 of file fortrancode.cpp.

Function Documentation

static void addLocalVar ( const QCString &  varName )

static

Definition at line 27659 of file fortrancode.cpp.

{
  if (!scopeStack.isEmpty())
    scopeStack.getLast()->localVars.insert(varName, (void*)1);
}

static void addToSearchIndex ( const char *  text )

static

Definition at line 27215 of file fortrancode.cpp.

{
  if (Doxygen::searchIndex)
  {
    Doxygen::searchIndex->addWord(text,FALSE);
  }
}

static void addUse ( const QCString &  moduleName )

static

Definition at line 27653 of file fortrancode.cpp.

{
  if (!scopeStack.isEmpty())
    scopeStack.getLast()->useNames.append(moduleName);
}

static void codifyLines ( char *  text )

static

write a code fragment `text' that may span multiple lines, inserting line numbers for each line.

Definition at line 27285 of file fortrancode.cpp.

{
  //printf("codifyLines(%d,\"%s\")\n",g_yyLineNr,text);
  char *p=text,*sp=p;
  char c;
  bool done=FALSE;
  const char *  tmp_currentFontClass = g_currentFontClass;
  while (!done)
  {
    sp=p;
    while ((c=*p++) && c!='\n') { }
    if (c=='\n')
    {
      g_yyLineNr++;
      *(p-1)='\0';
      g_code->codify(sp);
      endCodeLine();
      if (g_yyLineNr<g_inputLines) 
      {
        startCodeLine();
      }
      if (tmp_currentFontClass)
      {
        startFontClass(tmp_currentFontClass);
      }
    }
    else
    {
      g_code->codify(sp);
      done=TRUE;
    }
  }
}

static void codifyLines ( QCString  str )

static

Definition at line 27319 of file fortrancode.cpp.

{
  char *tmp= (char *) malloc(str.length()+1);
  strcpy(tmp, str);
  codifyLines(tmp);
  free(tmp);
}

static int countLines ( )

static

counts the number of lines in the input

Definition at line 27606 of file fortrancode.cpp.

{
  const char *p=g_inputString;
  char c;
  int count=1;
  while ((c=*p)) 
  { 
    p++ ; 
    if (c=='\n') count++;  
  }
  if (p>g_inputString && *(p-1)!='\n') 
  { // last line does not end with a \n, so we add an extra
    // line and explicitly terminate the line after parsing.
    count++, 
    g_needsTermination=TRUE; 
  } 
  return count;
}

static void endCodeLine ( )

static

Definition at line 27276 of file fortrancode.cpp.

{
  endFontClass();
  g_code->endCodeLine();
}

static void endFontClass ( )

static

Definition at line 27179 of file fortrancode.cpp.

{
  if (g_currentFontClass)
  {
    g_code->endFontClass();
    g_currentFontClass=0;
  }
}

static void endScope ( )

static

end scope

Definition at line 27635 of file fortrancode.cpp.

{
  DBG_CTX((stderr,"===> endScope %s",fortrancodeYYtext));
  if (scopeStack.isEmpty()) 
  {
    DBG_CTX((stderr,"WARNING: fortrancode.l: stack empty!\n")); 
    return;
  }

  Scope *scope = scopeStack.getLast();
  scopeStack.removeLast();
  for ( QStringList::Iterator it = scope->useNames.begin(); it != scope->useNames.end(); ++it) 
  {
    useMembers->remove((*it).utf8());
  }
  delete scope;
}

YY_BUFFER_STATE fortrancodeYY_create_buffer	(	FILE *	file,
		int	size
	)

Allocate and initialize an input buffer state.

Parameters

file	A readable stream.
size	The character buffer size in bytes. When in doubt, use YY_BUF_SIZE.

Returns

the allocated buffer state.

Definition at line 29279 of file fortrancode.cpp.

{
        YY_BUFFER_STATE b;
    
        b = (YY_BUFFER_STATE) fortrancodeYYalloc(sizeof( struct yy_buffer_state )  );
        if ( ! b )
                YY_FATAL_ERROR( "out of dynamic memory in fortrancodeYY_create_buffer()" );

        b->yy_buf_size = size;

        /* yy_ch_buf has to be 2 characters longer than the size given because
         * we need to put in 2 end-of-buffer characters.
         */
        b->yy_ch_buf = (char *) fortrancodeYYalloc(b->yy_buf_size + 2  );
        if ( ! b->yy_ch_buf )
                YY_FATAL_ERROR( "out of dynamic memory in fortrancodeYY_create_buffer()" );

        b->yy_is_our_buffer = 1;

        fortrancodeYY_init_buffer(b,file );

        return b;
}

void fortrancodeYY_delete_buffer

(

YY_BUFFER_STATE

b

)

Destroy the buffer.

Parameters

b	a buffer created with fortrancodeYY_create_buffer()

Definition at line 29307 of file fortrancode.cpp.

{
    
        if ( ! b )
                return;

        if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
                YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;

        if ( b->yy_is_our_buffer )
                fortrancodeYYfree((void *) b->yy_ch_buf  );

        fortrancodeYYfree((void *) b  );
}

void fortrancodeYY_flush_buffer

(

YY_BUFFER_STATE

b

)

Discard all buffered characters. On the next scan, YY_INPUT will be called.

Parameters

b	the buffer state to be flushed, usually YY_CURRENT_BUFFER.

Definition at line 29354 of file fortrancode.cpp.

{
        if ( ! b )
                return;

        b->yy_n_chars = 0;

        /* We always need two end-of-buffer characters.  The first causes
         * a transition to the end-of-buffer state.  The second causes
         * a jam in that state.
         */
        b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
        b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;

        b->yy_buf_pos = &b->yy_ch_buf[0];

        b->yy_at_bol = 1;
        b->yy_buffer_status = YY_BUFFER_NEW;

        if ( b == YY_CURRENT_BUFFER )
                fortrancodeYY_load_buffer_state( );
}

static void fortrancodeYY_init_buffer ( YY_BUFFER_STATE  b, FILE *  file  )

static

Definition at line 29326 of file fortrancode.cpp.

{
        int oerrno = errno;
    
        fortrancodeYY_flush_buffer(b );

        b->yy_input_file = file;
        b->yy_fill_buffer = 1;

    /* If b is the current buffer, then fortrancodeYY_init_buffer was _probably_
     * called from fortrancodeYYrestart() or through yy_get_next_buffer.
     * In that case, we don't want to reset the lineno or column.
     */
    if (b != YY_CURRENT_BUFFER){
        b->yy_bs_lineno = 1;
        b->yy_bs_column = 0;
    }

        b->yy_is_interactive = 0;
    
        errno = oerrno;
}

static void fortrancodeYY_load_buffer_state ( void  )

static

Definition at line 29265 of file fortrancode.cpp.

{
        (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
        (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
        fortrancodeYYin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
        (yy_hold_char) = *(yy_c_buf_p);
}

YY_BUFFER_STATE fortrancodeYY_scan_buffer	(	char *	base,
		yy_size_t	size
	)

Setup the input buffer state to scan directly from a user-specified character buffer.

Parameters

base	the character buffer
size	the size in bytes of the character buffer

Returns

the newly allocated buffer state object.

Definition at line 29481 of file fortrancode.cpp.

{
        YY_BUFFER_STATE b;
    
        if ( size < 2 ||
             base[size-2] != YY_END_OF_BUFFER_CHAR ||
             base[size-1] != YY_END_OF_BUFFER_CHAR )
                /* They forgot to leave room for the EOB's. */
                return 0;

        b = (YY_BUFFER_STATE) fortrancodeYYalloc(sizeof( struct yy_buffer_state )  );
        if ( ! b )
                YY_FATAL_ERROR( "out of dynamic memory in fortrancodeYY_scan_buffer()" );

        b->yy_buf_size = size - 2;      /* "- 2" to take care of EOB's */
        b->yy_buf_pos = b->yy_ch_buf = base;
        b->yy_is_our_buffer = 0;
        b->yy_input_file = 0;
        b->yy_n_chars = b->yy_buf_size;
        b->yy_is_interactive = 0;
        b->yy_at_bol = 1;
        b->yy_fill_buffer = 0;
        b->yy_buffer_status = YY_BUFFER_NEW;

        fortrancodeYY_switch_to_buffer(b  );

        return b;
}

YY_BUFFER_STATE fortrancodeYY_scan_bytes	(	yyconst char *	yybytes,
		int	_yybytes_len
	)

Setup the input buffer state to scan the given bytes. The next call to fortrancodeYYlex() will scan from a copy of bytes.

Parameters

bytes	the byte buffer to scan
len	the number of bytes in the buffer pointed to by bytes.

Returns

the newly allocated buffer state object.

Definition at line 29531 of file fortrancode.cpp.

{
        YY_BUFFER_STATE b;
        char *buf;
        yy_size_t n;
        int i;
    
        /* Get memory for full buffer, including space for trailing EOB's. */
        n = _yybytes_len + 2;
        buf = (char *) fortrancodeYYalloc(n  );
        if ( ! buf )
                YY_FATAL_ERROR( "out of dynamic memory in fortrancodeYY_scan_bytes()" );

        for ( i = 0; i < _yybytes_len; ++i )
                buf[i] = yybytes[i];

        buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;

        b = fortrancodeYY_scan_buffer(buf,n );
        if ( ! b )
                YY_FATAL_ERROR( "bad buffer in fortrancodeYY_scan_bytes()" );

        /* It's okay to grow etc. this buffer, and we should throw it
         * away when we're done.
         */
        b->yy_is_our_buffer = 1;

        return b;
}

YY_BUFFER_STATE fortrancodeYY_scan_string

(

yyconst char *

yystr

)

Setup the input buffer state to scan a string. The next call to fortrancodeYYlex() will scan from a copy of str.

Parameters

yystr

a NUL-terminated string to scan

Returns

the newly allocated buffer state object.

Note

If you want to scan bytes that may contain NUL values, then use fortrancodeYY_scan_bytes() instead.

Definition at line 29518 of file fortrancode.cpp.

{
    
        return fortrancodeYY_scan_bytes(yystr,strlen(yystr) );
}

void fortrancodeYY_switch_to_buffer

(

YY_BUFFER_STATE

new_buffer

)

Switch to a different input buffer.

Parameters

new_buffer

The new input buffer.

Definition at line 29234 of file fortrancode.cpp.

{
    
        /* TODO. We should be able to replace this entire function body
         * with
         *              fortrancodeYYpop_buffer_state();
         *              fortrancodeYYpush_buffer_state(new_buffer);
     */
        fortrancodeYYensure_buffer_stack ();
        if ( YY_CURRENT_BUFFER == new_buffer )
                return;

        if ( YY_CURRENT_BUFFER )
                {
                /* Flush out information for old buffer. */
                *(yy_c_buf_p) = (yy_hold_char);
                YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
                YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
                }

        YY_CURRENT_BUFFER_LVALUE = new_buffer;
        fortrancodeYY_load_buffer_state( );

        /* We don't actually know whether we did this switch during
         * EOF (fortrancodeYYwrap()) processing, but the only time this flag
         * is looked at is after fortrancodeYYwrap() is called, so it's safe
         * to go ahead and always set it.
         */
        (yy_did_buffer_switch_on_eof) = 1;
}

void * fortrancodeYYalloc

(

yy_size_t

size

)

Definition at line 29795 of file fortrancode.cpp.

{
        return (void *) malloc( size );
}

void fortrancodeYYdummy

(

)

Definition at line 29916 of file fortrancode.cpp.

{ yy_top_state(); } 

static void fortrancodeYYensure_buffer_stack ( void  )

static

Definition at line 29432 of file fortrancode.cpp.

{
        int num_to_alloc;
    
        if (!(yy_buffer_stack)) {

                /* First allocation is just for 2 elements, since we don't know if this
                 * scanner will even need a stack. We use 2 instead of 1 to avoid an
                 * immediate realloc on the next call.
         */
                num_to_alloc = 1;
                (yy_buffer_stack) = (struct yy_buffer_state**)fortrancodeYYalloc
                                                                (num_to_alloc * sizeof(struct yy_buffer_state*)
                                                                );
                if ( ! (yy_buffer_stack) )
                        YY_FATAL_ERROR( "out of dynamic memory in fortrancodeYYensure_buffer_stack()" );
                                                                  
                memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
                                
                (yy_buffer_stack_max) = num_to_alloc;
                (yy_buffer_stack_top) = 0;
                return;
        }

        if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){

                /* Increase the buffer to prepare for a possible push. */
                int grow_size = 8 /* arbitrary grow size */;

                num_to_alloc = (yy_buffer_stack_max) + grow_size;
                (yy_buffer_stack) = (struct yy_buffer_state**)fortrancodeYYrealloc
                                                                ((yy_buffer_stack),
                                                                num_to_alloc * sizeof(struct yy_buffer_state*)
                                                                );
                if ( ! (yy_buffer_stack) )
                        YY_FATAL_ERROR( "out of dynamic memory in fortrancodeYYensure_buffer_stack()" );

                /* zero only the new slots.*/
                memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
                (yy_buffer_stack_max) = num_to_alloc;
        }
}

void fortrancodeYYfree

(

void *

ptr

)

Definition at line 29812 of file fortrancode.cpp.

{
        free( (char *) ptr );   /* see fortrancodeYYrealloc() for (char *) cast */
}

int fortrancodeYYget_debug

(

void

)

Definition at line 29695 of file fortrancode.cpp.

{
        return fortrancodeYY_flex_debug;
}

YY_EXTRA_TYPE fortrancodeYYget_extra

(

void

)

FILE * fortrancodeYYget_in

(

void

)

Get the input stream.

Definition at line 29639 of file fortrancode.cpp.

{
        return fortrancodeYYin;
}

int fortrancodeYYget_leng

(

void

)

Get the length of the current token.

Definition at line 29655 of file fortrancode.cpp.

{
        return fortrancodeYYleng;
}

int fortrancodeYYget_lineno

(

void

)

Get the current line number.

Definition at line 29630 of file fortrancode.cpp.

{
        
    return fortrancodeYYlineno;
}

FILE * fortrancodeYYget_out

(

void

)

Get the output stream.

Definition at line 29647 of file fortrancode.cpp.

{
        return fortrancodeYYout;
}

char * fortrancodeYYget_text

(

void

)

Get the current token.

Definition at line 29664 of file fortrancode.cpp.

{
        return fortrancodeYYtext;
}

int fortrancodeYYlex

(

void

)

int fortrancodeYYlex_destroy

(

void

)

Definition at line 29743 of file fortrancode.cpp.

{
    
    /* Pop the buffer stack, destroying each element. */
        while(YY_CURRENT_BUFFER){
                fortrancodeYY_delete_buffer(YY_CURRENT_BUFFER  );
                YY_CURRENT_BUFFER_LVALUE = NULL;
                fortrancodeYYpop_buffer_state();
        }

        /* Destroy the stack itself. */
        fortrancodeYYfree((yy_buffer_stack) );
        (yy_buffer_stack) = NULL;

    /* Destroy the start condition stack. */
        fortrancodeYYfree((yy_start_stack)  );
        (yy_start_stack) = NULL;

    fortrancodeYYfree ( (yy_state_buf) );
    (yy_state_buf)  = NULL;

    /* Reset the globals. This is important in a non-reentrant scanner so the next time
     * fortrancodeYYlex() is called, initialization will occur. */
    yy_init_globals( );

    return 0;
}

void fortrancodeYYpop_buffer_state

(

void

)

Removes and deletes the top of the stack, if present. The next element becomes the new top.

Definition at line 29413 of file fortrancode.cpp.

{
        if (!YY_CURRENT_BUFFER)
                return;

        fortrancodeYY_delete_buffer(YY_CURRENT_BUFFER );
        YY_CURRENT_BUFFER_LVALUE = NULL;
        if ((yy_buffer_stack_top) > 0)
                --(yy_buffer_stack_top);

        if (YY_CURRENT_BUFFER) {
                fortrancodeYY_load_buffer_state( );
                (yy_did_buffer_switch_on_eof) = 1;
        }
}

void fortrancodeYYpush_buffer_state

(

YY_BUFFER_STATE

new_buffer

)

Pushes the new state onto the stack. The new state becomes the current state. This function will allocate the stack if necessary.

Parameters

new_buffer

The new state.

Definition at line 29383 of file fortrancode.cpp.

{
        if (new_buffer == NULL)
                return;

        fortrancodeYYensure_buffer_stack();

        /* This block is copied from fortrancodeYY_switch_to_buffer. */
        if ( YY_CURRENT_BUFFER )
                {
                /* Flush out information for old buffer. */
                *(yy_c_buf_p) = (yy_hold_char);
                YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
                YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
                }

        /* Only push if top exists. Otherwise, replace top. */
        if (YY_CURRENT_BUFFER)
                (yy_buffer_stack_top)++;
        YY_CURRENT_BUFFER_LVALUE = new_buffer;

        /* copied from fortrancodeYY_switch_to_buffer. */
        fortrancodeYY_load_buffer_state( );
        (yy_did_buffer_switch_on_eof) = 1;
}

void * fortrancodeYYrealloc	(	void *	ptr,
		yy_size_t	size
	)

Definition at line 29800 of file fortrancode.cpp.

{
        /* The cast to (char *) in the following accommodates both
         * implementations that use char* generic pointers, and those
         * that use void* generic pointers.  It works with the latter
         * because both ANSI C and C++ allow castless assignment from
         * any pointer type to void*, and deal with argument conversions
         * as though doing an assignment.
         */
        return (void *) realloc( (char *) ptr, size );
}

void fortrancodeYYrestart

(

FILE *

input_file

)

Immediately switch to a different input stream.

Parameters

input_file

A readable stream.

Note

This function does not reset the start condition to INITIAL .

Definition at line 29217 of file fortrancode.cpp.

{
    
        if ( ! YY_CURRENT_BUFFER ){
        fortrancodeYYensure_buffer_stack ();
                YY_CURRENT_BUFFER_LVALUE =
            fortrancodeYY_create_buffer(fortrancodeYYin,YY_BUF_SIZE );
        }

        fortrancodeYY_init_buffer(YY_CURRENT_BUFFER,input_file );
        fortrancodeYY_load_buffer_state( );
}

void fortrancodeYYset_debug

(

int

debug_flag

)

Definition at line 29700 of file fortrancode.cpp.

{
        fortrancodeYY_flex_debug = bdebug ;
}

void fortrancodeYYset_extra

(

YY_EXTRA_TYPE

user_defined

)

void fortrancodeYYset_in

(

FILE *

in_str

)

Set the input stream. This does not discard the current input buffer.

Parameters

in_str

A readable stream.

See also

fortrancodeYY_switch_to_buffer

Definition at line 29685 of file fortrancode.cpp.

{
        fortrancodeYYin = in_str ;
}

void fortrancodeYYset_lineno

(

int

line_number

)

Set the current line number.

Parameters

line_number

Definition at line 29673 of file fortrancode.cpp.

{
    
    fortrancodeYYlineno = line_number;
}

void fortrancodeYYset_out

(

FILE *

out_str

)

Definition at line 29690 of file fortrancode.cpp.

{
        fortrancodeYYout = out_str ;
}

static void generateLink ( CodeOutputInterface &  ol, char *  lname  )

static

Definition at line 27563 of file fortrancode.cpp.

{
  ClassDef *cd=0;
  NamespaceDef *nsd=0;
  QCString tmp = lname;
  tmp = removeRedundantWhiteSpace(tmp.lower());
 
  // check if lowercase lname is a linkable type or interface
  if ( (getFortranTypeDefs(tmp, currentModule, cd, useMembers)) && cd->isLinkable() )
  {
    if ( (cd->compoundType() == ClassDef::Class) && // was  Entry::INTERFACE_SEC) &&
         (getGenericProcedureLink(cd, tmp, ol)) ) 
    {
      //cout << "=== generic procedure resolved" << endl; 
    } 
    else 
    { // write type or interface link
      writeMultiLineCodeLink(ol,cd,tmp);
      addToSearchIndex(tmp.data());
    }
  }
  // check for module
  else if ( (getFortranNamespaceDefs(tmp, nsd)) && nsd->isLinkable() )
  { // write module link
    writeMultiLineCodeLink(ol,nsd,tmp);
    addToSearchIndex(tmp.data());
  }
  // check for function/variable
  else if (getLink(useMembers, tmp, ol, tmp)) 
  {
    //cout << "=== found link for lowercase " << lname << endl;
  }
  else 
  {
    // nothing found, just write out the word
    //startFontClass("charliteral"); //test
    codifyLines(tmp);
    //endFontClass(); //test
    addToSearchIndex(tmp.data());
  }
}

static bool getFortranDefs ( const QCString &  memberName, const QCString &  moduleName, MemberDef *&  md, UseSDict *  usedict = 0  )

static

searches for definition of function memberName

Parameters

memberName	the name of the function/variable
moduleName	name of enclosing module or null, if global entry
md	the entry, if found or null
usedict	array of data of USE-statement

Returns

true, if found

Definition at line 27439 of file fortrancode.cpp.

{
  if (memberName.isEmpty()) return FALSE; /* empty name => nothing to link */

  // look in local variables
  QListIterator<Scope> it(scopeStack);
  Scope *scope;
  for (it.toLast();(scope=it.current());--it)
  {
    if (scope->localVars.find(memberName))
      return FALSE;
  }

  // search for function
  MemberName *mn = Doxygen::functionNameSDict->find(memberName);
  if (!mn)
  {
    mn = Doxygen::memberNameSDict->find(memberName);
  }

  if (mn) // name is known
  {
      MemberListIterator mli(*mn);
      for (mli.toFirst();(md=mli.current());++mli) // all found functions with given name
      {
        FileDef  *fd=md->getFileDef();
        GroupDef *gd=md->getGroupDef();
        ClassDef *cd=md->getClassDef();

 //cout << "found link with same name: " << fd->fileName() << "  " <<  memberName;
 //if (md->getNamespaceDef() != 0) cout << " in namespace " << md->getNamespaceDef()->name();cout << endl;

        if ((gd && gd->isLinkable()) || (fd && fd->isLinkable()))
        {
           NamespaceDef *nspace= md->getNamespaceDef();

           if (nspace == 0) 
           { // found function in global scope
             if(cd == 0) { // Skip if bound to type
                return TRUE;
              }
           }
           else if (moduleName == nspace->name()) 
           { // found in local scope
             return TRUE;
           }
           else 
           { // else search in used modules
             QCString moduleName= nspace->name();
             UseEntry *ue= usedict->find(moduleName);
             if (ue) 
             {
               // check if only-list exists and if current entry exists is this list
               QStringList &only= ue->onlyNames;
               if (only.isEmpty()) 
               {
               //cout << " found in module " << moduleName << " entry " << memberName <<  endl;
                 return TRUE; // whole module used
               }
               else
               {
                 for ( QStringList::Iterator it = only.begin(); it != only.end(); ++it)
                 {
                   //cout << " search in only: " << moduleName << ":: " << memberName << "==" << (*it)<<  endl;
                   if (memberName == (*it).utf8())
                   {
                     return TRUE; // found in ONLY-part of use list
                   }
                 }
               }
             }
           }
        } // if linkable
      } // for
  }
  return FALSE;
}

static bool getFortranNamespaceDefs ( const QCString &  mname, NamespaceDef *&  cd  )

static

searches for definition of a module (Namespace)

Parameters

mname	the name of the module
cd	the entry, if found or null

Returns

true, if module is found

Definition at line 27378 of file fortrancode.cpp.

{
  if (mname.isEmpty()) return FALSE; /* empty name => nothing to link */

  // search for module
  if ((cd=Doxygen::namespaceSDict->find(mname))) return TRUE;

  return FALSE;
}

static bool getFortranTypeDefs ( const QCString &  tname, const QCString &  moduleName, ClassDef *&  cd, UseSDict *  usedict = 0  )

static

searches for definition of a type

Parameters

tname	the name of the type
moduleName	name of enclosing module or null, if global entry
cd	the entry, if found or null
useDict	dictionary of data of USE-statement

Returns

true, if type is found

Definition at line 27397 of file fortrancode.cpp.

{
  if (tname.isEmpty()) return FALSE; /* empty name => nothing to link */

  //cout << "=== search for type: " << tname << endl;

  // search for type  
  if ((cd=Doxygen::classSDict->find(tname))) 
  {
    //cout << "=== type found in global module" << endl;
    return TRUE;
  }
  else if (moduleName && (cd= Doxygen::classSDict->find(moduleName+"::"+tname))) 
  {
    //cout << "=== type found in local module" << endl;
    return TRUE;
  }
  else 
  {
    UseEntry *use;
    for (UseSDict::Iterator di(*usedict); (use=di.current()); ++di)
    {
      if ((cd= Doxygen::classSDict->find(use->module+"::"+tname)))
      {
        //cout << "===  type found in used module" << endl;
        return TRUE;
      }
    }
  }

  return FALSE;
}

static bool getGenericProcedureLink ( const ClassDef *  cd, const char *  memberText, CodeOutputInterface &  ol  )

static

gets the link to a generic procedure which depends not on the name, but on the parameter list

Todo:

implementation

Definition at line 27522 of file fortrancode.cpp.

{
  (void)cd;
  (void)memberText;
  (void)ol;
  return FALSE;
}

static bool getLink ( UseSDict *  usedict, const char *  memberText, CodeOutputInterface &  ol, const char *  text  )

static

Definition at line 27532 of file fortrancode.cpp.

{
  MemberDef *md=0;
  QCString memberName= removeRedundantWhiteSpace(memberText);

  if (getFortranDefs(memberName, currentModule, md, usedict) && md->isLinkable())
  { 
    //if (md->isVariable()) return FALSE; // variables aren't handled yet       

    Definition *d = md->getOuterScope()==Doxygen::globalScope ?
                    md->getBodyDef() : md->getOuterScope();
    if (md->getGroupDef()) d = md->getGroupDef();
    if (d && d->isLinkable())
    {
      if (g_currentDefinition && g_currentMemberDef && 
          md!=g_currentMemberDef && g_insideBody && g_collectXRefs)
      { 
        addDocCrossReference(g_currentMemberDef,md); 
      }     
      writeMultiLineCodeLink(ol,md,text ? text : memberText);
      addToSearchIndex(text ? text : memberText);
      return TRUE;
    } 
  }
  return FALSE;
}

if

(

!

yy_init

)

Definition at line 27920 of file fortrancode.cpp.

                {
                (yy_init) = 1;

#ifdef YY_USER_INIT
                YY_USER_INIT;
#endif

        /* Create the reject buffer large enough to save one state per allowed character. */
        if ( ! (yy_state_buf) )
            (yy_state_buf) = (yy_state_type *)fortrancodeYYalloc(YY_STATE_BUF_SIZE  );
            if ( ! (yy_state_buf) )
                YY_FATAL_ERROR( "out of dynamic memory in fortrancodeYYlex()" );

                if ( ! (yy_start) )
                        (yy_start) = 1; /* first start state */

                if ( ! fortrancodeYYin )
                        fortrancodeYYin = stdin;

                if ( ! fortrancodeYYout )
                        fortrancodeYYout = stdout;

                if ( ! YY_CURRENT_BUFFER ) {
                        fortrancodeYYensure_buffer_stack ();
                        YY_CURRENT_BUFFER_LVALUE =
                                fortrancodeYY_create_buffer(fortrancodeYYin,YY_BUF_SIZE );
                }

                fortrancodeYY_load_buffer_state( );
                }

void parseFortranCode	(	CodeOutputInterface &	od,
		const char *	className,
		const QCString &	s,
		bool	exBlock,
		const char *	exName,
		FileDef *	fd,
		int	startLine,
		int	endLine,
		bool	inlineFragment,
		MemberDef *	memberDef,
		bool	,
		Definition *	searchCtx,
		bool	collectXRefs,
		FortranFormat	format
	)

Definition at line 29831 of file fortrancode.cpp.

{
  //printf("***parseCode() exBlock=%d exName=%s fd=%p\n",exBlock,exName,fd);

  // used parameters
  (void)memberDef;
  (void)className;

  if (s.isEmpty()) return;
  printlex(fortrancodeYY_flex_debug, TRUE, __FILE__, fd ? fd->fileName().data(): NULL);
  TooltipManager::instance()->clearTooltips();
  g_code = &od;
  g_inputString   = s;
  g_inputPosition = 0;
  g_isFixedForm = recognizeFixedForm((const char*)s,format);
  g_currentFontClass = 0;
  g_needsTermination = FALSE;
  g_searchCtx = searchCtx;
  g_collectXRefs = collectXRefs;
  if (endLine!=-1)
    g_inputLines  = endLine+1;
  else
    g_inputLines  = countLines();

  if (startLine!=-1)
    g_yyLineNr    = startLine;
  else
    g_yyLineNr    = 1;

  g_exampleBlock  = exBlock; 
  g_exampleName   = exName;
  g_sourceFileDef = fd;
  if (exBlock && fd==0)
  {
    // create a dummy filedef for the example
    g_sourceFileDef = new FileDef("",exName);
  }
  if (g_sourceFileDef) 
  {
    setCurrentDoc("l00001");
  }
  g_currentDefinition = 0;
  g_currentMemberDef = 0;
  if (!g_exampleName.isEmpty())
  {
    g_exampleFile = convertNameToFile(g_exampleName+"-example");
  }
  g_includeCodeFragment = inlineFragment;
  startCodeLine();
  g_parmName.resize(0);
  g_parmType.resize(0);
  fortrancodeYYrestart( fortrancodeYYin );
  BEGIN( Start );
  fortrancodeYYlex();
  if (g_needsTermination)
  {
    endFontClass();
    g_code->endCodeLine();
  }
  if (fd)
  {
    TooltipManager::instance()->writeTooltips(*g_code);
  }
  if (exBlock && g_sourceFileDef)
  {
    // delete the temporary file definition used for this example
    delete g_sourceFileDef;
    g_sourceFileDef=0;
  }
  printlex(fortrancodeYY_flex_debug, FALSE, __FILE__, fd ? fd->fileName().data(): NULL);
  return;
}

static bool recognizeFixedForm ( const char *  contents, FortranFormat  format  )

static

Definition at line 27136 of file fortrancode.cpp.

{
  int column=0;
  bool skipLine=FALSE;

  if (format == FortranFormat_Fixed) return TRUE;
  if (format == FortranFormat_Free)  return FALSE;
  for (int i=0;;i++)
  {
    column++;

    switch(contents[i]) 
    {
      case '\n':
        column=0;
        skipLine=FALSE;
        break;
      case ' ':
        break;
      case '#':
        skipLine=TRUE;
        break;
      case '\000':
        return FALSE;
      case 'C':
      case 'c':
      case '*':
        if(column==1) return TRUE;
        if(skipLine) break;
        return FALSE;
      case '!':
        if(column>1 && column<7) return FALSE;
        skipLine=TRUE;
        break;
      default:
        if(skipLine) break;
        if(column==7) return TRUE;
        return FALSE;
    }
  }
  return FALSE;
}

void resetFortranCodeParserState

(

)

Definition at line 29829 of file fortrancode.cpp.

{}

static void setCurrentDoc ( const QCString &  anchor )

static

Definition at line 27200 of file fortrancode.cpp.

{
  if (Doxygen::searchIndex)
  {
    if (g_searchCtx)
    {
      Doxygen::searchIndex->setCurrentDoc(g_searchCtx,g_searchCtx->anchor(),FALSE);
    }
    else
    {
      Doxygen::searchIndex->setCurrentDoc(g_sourceFileDef,anchor,TRUE);
    }
  }
}

static void startCodeLine ( )

static

start a new line of code, inserting a line number if g_sourceFileDef is TRUE. If a definition starts at the current line, then the line number is linked to the documentation of that definition.

Definition at line 27227 of file fortrancode.cpp.

{
  if (g_sourceFileDef)
  {
    //QCString lineNumber,lineAnchor;
    //lineNumber.sprintf("%05d",g_yyLineNr);
    //lineAnchor.sprintf("l%05d",g_yyLineNr);
   
    Definition *d   = g_sourceFileDef->getSourceDefinition(g_yyLineNr);
    //printf("startCodeLine %d d=%s\n", g_yyLineNr,d ? d->name().data() : "<null>");
    if (!g_includeCodeFragment && d)
    {
      g_currentDefinition = d;
      g_currentMemberDef = g_sourceFileDef->getSourceMember(g_yyLineNr);
      g_insideBody = FALSE;
      g_endComment = FALSE;
      g_parmType.resize(0);
      g_parmName.resize(0);
      QCString lineAnchor;
      lineAnchor.sprintf("l%05d",g_yyLineNr);
      if (g_currentMemberDef)
      {
        g_code->writeLineNumber(g_currentMemberDef->getReference(),
                                g_currentMemberDef->getOutputFileBase(),
                                g_currentMemberDef->anchor(),g_yyLineNr);
        setCurrentDoc(lineAnchor);
      }
      else if (d->isLinkableInProject())
      {
        g_code->writeLineNumber(d->getReference(),
                                d->getOutputFileBase(),
                                0,g_yyLineNr);
        setCurrentDoc(lineAnchor);
      }
    }
    else
    {
      g_code->writeLineNumber(0,0,0,g_yyLineNr);
    }
  }
  g_code->startCodeLine(g_sourceFileDef); 
  if (g_currentFontClass)
  {
    g_code->startFontClass(g_currentFontClass);
  }
}

static void startFontClass ( const char *  s )

static

Definition at line 27188 of file fortrancode.cpp.

{
  // if font class is already set don't stop and start it.
  // strcmp does not like null pointers as input.
  if (!g_currentFontClass || !s || strcmp(g_currentFontClass,s))
  {
    endFontClass();
    g_code->startFontClass(s);
    g_currentFontClass=s;
  }
}

static void startScope ( )

static

start scope

Definition at line 27627 of file fortrancode.cpp.

{
  DBG_CTX((stderr, "===> startScope %s",fortrancodeYYtext));
  Scope *scope = new Scope;
  scopeStack.append(scope);
}

while

(

1

)

Definition at line 27952 of file fortrancode.cpp.

                {
                yy_cp = (yy_c_buf_p);

                /* Support of fortrancodeYYtext. */
                *yy_cp = (yy_hold_char);

                /* yy_bp points to the position in yy_ch_buf of the start of
                 * the current run.
                 */
                yy_bp = yy_cp;

                yy_current_state = (yy_start);
                yy_current_state += YY_AT_BOL();

                (yy_state_ptr) = (yy_state_buf);
                *(yy_state_ptr)++ = yy_current_state;

yy_match:
                do
                        {
                        register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
                        while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
                                {
                                yy_current_state = (int) yy_def[yy_current_state];
                                if ( yy_current_state >= 10605 )
                                        yy_c = yy_meta[(unsigned int) yy_c];
                                }
                        yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
                        *(yy_state_ptr)++ = yy_current_state;
                        ++yy_cp;
                        }
                while ( yy_current_state != 10604 );

yy_find_action:
                yy_current_state = *--(yy_state_ptr);
                (yy_lp) = yy_accept[yy_current_state];
find_rule: /* we branch to this label when backing up */
                for ( ; ; ) /* until we find what rule we matched */
                        {
                        if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] )
                                {
                                yy_act = yy_acclist[(yy_lp)];
                                if ( yy_act & YY_TRAILING_HEAD_MASK ||
                                     (yy_looking_for_trail_begin) )
                                        {
                                        if ( yy_act == (yy_looking_for_trail_begin) )
                                                {
                                                (yy_looking_for_trail_begin) = 0;
                                                yy_act &= ~YY_TRAILING_HEAD_MASK;
                                                break;
                                                }
                                        }
                                else if ( yy_act & YY_TRAILING_MASK )
                                        {
                                        (yy_looking_for_trail_begin) = yy_act & ~YY_TRAILING_MASK;
                                        (yy_looking_for_trail_begin) |= YY_TRAILING_HEAD_MASK;
                                        (yy_full_match) = yy_cp;
                                        (yy_full_state) = (yy_state_ptr);
                                        (yy_full_lp) = (yy_lp);
                                        }
                                else
                                        {
                                        (yy_full_match) = yy_cp;
                                        (yy_full_state) = (yy_state_ptr);
                                        (yy_full_lp) = (yy_lp);
                                        break;
                                        }
                                ++(yy_lp);
                                goto find_rule;
                                }
                        --yy_cp;
                        yy_current_state = *--(yy_state_ptr);
                        (yy_lp) = yy_accept[yy_current_state];
                        }

                YY_DO_BEFORE_ACTION;

do_action:      /* This label is used only to access EOF actions. */

                switch ( yy_act )
        { /* beginning of action switch */
case 1:
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp = yy_bp + 4;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 767 "fortrancode.l"
{ // do not search keywords, intrinsics... TODO: complete list
                                          codifyLines(fortrancodeYYtext);
                                        }
        YY_BREAK
/*-------- inner construct ---------------------------------------------------*/
case 2:
/* rule 2 can match eol */
YY_RULE_SETUP
#line 772 "fortrancode.l"
{  // highlight
                                          /* font class is defined e.g. in doxygen.css */
                                          startFontClass("keyword");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
case 3:
/* rule 3 can match eol */
YY_RULE_SETUP
#line 778 "fortrancode.l"
{
                                          if (g_isFixedForm)
                                          {
                                            if ((yy_my_start == 1) && ((fortrancodeYYtext[0] == 'c') || (fortrancodeYYtext[0] == 'C'))) YY_FTN_REJECT;
                                          }
                                          /* font class is defined e.g. in doxygen.css */
                                          startFontClass("keywordflow");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
case 4:
YY_RULE_SETUP
#line 788 "fortrancode.l"
{
                                          startFontClass("keywordflow");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
case 5:
/* rule 5 can match eol */
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 793 "fortrancode.l"
{ // list is a bit long as not all have possible end
                                          startFontClass("keywordflow");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
case 6:
/* rule 6 can match eol */
YY_RULE_SETUP
#line 798 "fortrancode.l"
{ 
                                          startFontClass("keywordtype"); 
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
case 7:
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 803 "fortrancode.l"
{  // Namelist specification
                                          startFontClass("keywordtype");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
/*-------- use statement -------------------------------------------*/
case 8:
YY_RULE_SETUP
#line 809 "fortrancode.l"
{ 
                                          startFontClass("keywordtype"); 
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                          yy_push_state(YY_START);
                                          BEGIN(Use);     
                                        }
        YY_BREAK
case 9:
YY_RULE_SETUP
#line 816 "fortrancode.l"
{
                                          QCString tmp = fortrancodeYYtext;
                                          tmp = tmp.lower();
                                          g_insideBody=TRUE;
                                          generateLink(*g_code, fortrancodeYYtext);
                                          g_insideBody=FALSE;

                                          /* append module name to use dict */
                                          useEntry = new UseEntry();
                                          //useEntry->module = fortrancodeYYtext;
                                          //useMembers->append(fortrancodeYYtext, useEntry);
                                          //addUse(fortrancodeYYtext);
                                          useEntry->module = tmp;
                                          useMembers->append(tmp, useEntry);
                                          addUse(tmp);
                                        }           
        YY_BREAK
case 10:
YY_RULE_SETUP
#line 832 "fortrancode.l"
{ // TODO: rename
                                          startFontClass("keywordtype"); 
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                          yy_push_state(YY_START);
                                          BEGIN(UseOnly);     
                                        }           
        YY_BREAK
case 11:
YY_RULE_SETUP
#line 839 "fortrancode.l"
{ codifyLines(fortrancodeYYtext); }
        YY_BREAK
case 12:
/* rule 12 can match eol */
YY_RULE_SETUP
#line 840 "fortrancode.l"
{ codifyLines(fortrancodeYYtext); YY_FTN_RESET}
        YY_BREAK
case 13:
YY_RULE_SETUP
#line 841 "fortrancode.l"
{
                                          QCString tmp = fortrancodeYYtext;
                                          tmp = tmp.lower();
                                          useEntry->onlyNames.append(tmp);
                                          g_insideBody=TRUE;
                                          generateLink(*g_code, fortrancodeYYtext);
                                          g_insideBody=FALSE;
                                        }
        YY_BREAK
case 14:
/* rule 14 can match eol */
YY_RULE_SETUP
#line 849 "fortrancode.l"
{
                                          unput(*fortrancodeYYtext);
                                          yy_pop_state();YY_FTN_RESET
                                        }
        YY_BREAK
case 15:
YY_RULE_SETUP
#line 853 "fortrancode.l"
{
                                          startFontClass("keywordtype");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                          yy_push_state(YY_START);
                                          BEGIN(Import);
                                        }
        YY_BREAK
case 16:
YY_RULE_SETUP
#line 860 "fortrancode.l"
{
                                          g_insideBody=TRUE;
                                          generateLink(*g_code, fortrancodeYYtext);
                                          g_insideBody=FALSE;
                                        }
        YY_BREAK
/*-------- fortran module  -----------------------------------------*/
case 17:
/* rule 17 can match eol */
YY_RULE_SETUP
#line 866 "fortrancode.l"
{  //
                                          startScope();
                                          startFontClass("keyword"); 
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                          yy_push_state(YY_START);
                                          BEGIN(ClassName); 
                                          if (!qstricmp(fortrancodeYYtext,"module")) currentModule="module";
                                        }
        YY_BREAK
case 18:
/* rule 18 can match eol */
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp = yy_bp + 4;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 875 "fortrancode.l"
{  //
            startScope();
              startFontClass("keyword");
              codifyLines(fortrancodeYYtext);
            endFontClass();
                                          yy_push_state(YY_START);
            BEGIN(ClassName);
            currentClass="class";
          }
        YY_BREAK
case 19:
YY_RULE_SETUP
#line 884 "fortrancode.l"
{
                                          if (currentModule == "module")
                                          {
                                            currentModule=fortrancodeYYtext;
                                            currentModule = currentModule.lower();
                                          }
                                          generateLink(*g_code,fortrancodeYYtext);
                                          yy_pop_state();
                                        }
        YY_BREAK
case 20:
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 893 "fortrancode.l"
{ //| variable deklaration
              startFontClass("keyword");
            g_code->codify(fortrancodeYYtext);
            endFontClass();
            }
        YY_BREAK
case 21:
/* rule 21 can match eol */
YY_RULE_SETUP
#line 898 "fortrancode.l"
{ // interface may be without name
                                          yy_pop_state();
                                          YY_FTN_REJECT;
                                        }
        YY_BREAK
case 22:
YY_RULE_SETUP
#line 902 "fortrancode.l"
{ // just reset currentClass, rest is done in following rule
                                          currentClass=0;
            YY_FTN_REJECT;
                                        }
        YY_BREAK
case 23:
YY_RULE_SETUP
#line 906 "fortrancode.l"
{ // just reset currentModule, rest is done in following rule
                                          currentModule=0;
                                          YY_FTN_REJECT;
                                        }
        YY_BREAK
/*-------- subprog definition -------------------------------------*/
case 24:
/* rule 24 can match eol */
YY_RULE_SETUP
#line 911 "fortrancode.l"
{   // TYPE_SPEC is for old function style function result
                                          startFontClass("keyword");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                       }              
        YY_BREAK
case 25:
YY_RULE_SETUP
#line 916 "fortrancode.l"
{  // Fortran subroutine or function found
                                          startFontClass("keyword");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                          yy_push_state(YY_START);
                                          BEGIN(Subprog);
                                        }
        YY_BREAK
case 26:
YY_RULE_SETUP
#line 923 "fortrancode.l"
{ // subroutine/function name
                                          DBG_CTX((stderr, "===> start subprogram %s\n", fortrancodeYYtext));
                                          startScope();
                                          generateLink(*g_code,fortrancodeYYtext);
                                        }
        YY_BREAK
case 27:
YY_RULE_SETUP
#line 928 "fortrancode.l"
{ // ignore rest of line 
                                          codifyLines(fortrancodeYYtext);
                                        }
        YY_BREAK
case 28:
/* rule 28 can match eol */
YY_RULE_SETUP
#line 931 "fortrancode.l"
{ codifyLines(fortrancodeYYtext);
                                          yy_pop_state();
                                          YY_FTN_RESET
                                        }
        YY_BREAK
case 29:
YY_RULE_SETUP
#line 935 "fortrancode.l"
{  // Fortran subroutine or function ends
                                          //cout << "===> end function " << fortrancodeYYtext << endl;
                                          endScope();
                                          startFontClass("keyword");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                          yy_push_state(YY_START);
                                          BEGIN(Subprogend);
                                        }
        YY_BREAK
case 30:
/* rule 30 can match eol */
YY_RULE_SETUP
#line 944 "fortrancode.l"
{
                                          generateLink(*g_code,fortrancodeYYtext);
                                          yy_pop_state();
                                        }
        YY_BREAK
case 31:
/* rule 31 can match eol */
YY_RULE_SETUP
#line 948 "fortrancode.l"
{  // Fortran subroutine or function ends
                                          //cout << "===> end function " << fortrancodeYYtext << endl;
                                          endScope();
                                          startFontClass("keyword");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
/*-------- variable declaration ----------------------------------*/
case 32:
/* rule 32 can match eol */
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 956 "fortrancode.l"
{ 
                                          yy_push_state(YY_START);
                                          BEGIN(Declaration);
                                          startFontClass("keywordtype");
                                          g_code->codify(fortrancodeYYtext);
                                          endFontClass();
                                       }
        YY_BREAK
case 33:
/* rule 33 can match eol */
YY_RULE_SETUP
#line 963 "fortrancode.l"
{ 
                                          startFontClass("keywordtype");
                                          g_code->codify(fortrancodeYYtext);
                                          endFontClass();
                                       }
        YY_BREAK
case 34:
/* rule 34 can match eol */
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 968 "fortrancode.l"
{ //| variable deklaration
                                          startFontClass("keywordtype");
                                          g_code->codify(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
case 35:
YY_RULE_SETUP
#line 973 "fortrancode.l"
{ // local var
                                          if (g_currentMemberDef && g_currentMemberDef->isFunction() && bracketCount==0)
                                          {
                                            g_code->codify(fortrancodeYYtext);
                                            addLocalVar(fortrancodeYYtext);
                                          }
                                           else
                                          {
                                            generateLink(*g_code, fortrancodeYYtext);
                                          }
                                        }
        YY_BREAK
case 36:
YY_RULE_SETUP
#line 984 "fortrancode.l"
{ // Procedure binding
            BEGIN(DeclarationBinding);
            g_code->codify(fortrancodeYYtext);
          }
        YY_BREAK
case 37:
YY_RULE_SETUP
#line 988 "fortrancode.l"
{ // Type bound procedure link
                                          generateLink(*g_code, fortrancodeYYtext);
                                          yy_pop_state();
          }
        YY_BREAK
case 38:
YY_RULE_SETUP
#line 992 "fortrancode.l"
{ // start of array specification
                                          bracketCount++;
                                          g_code->codify(fortrancodeYYtext);
                                        }
        YY_BREAK
case 39:
YY_RULE_SETUP
#line 997 "fortrancode.l"
{ // end array specification
                                          bracketCount--;
                                          g_code->codify(fortrancodeYYtext);
                                        }
        YY_BREAK
case 40:
YY_RULE_SETUP
#line 1002 "fortrancode.l"
{ // continuation line
                                          g_code->codify(fortrancodeYYtext);
                                          yy_push_state(YY_START);
                                          BEGIN(DeclContLine);                                    
                                        }
        YY_BREAK
case 41:
/* rule 41 can match eol */
YY_RULE_SETUP
#line 1007 "fortrancode.l"
{ // declaration not yet finished
                                          codifyLines(fortrancodeYYtext);
                                          bracketCount = 0;
                                          yy_pop_state();
                                          YY_FTN_RESET
                                        }
        YY_BREAK
case 42:
/* rule 42 can match eol */
YY_RULE_SETUP
#line 1013 "fortrancode.l"
{ // end declaration line
                                          if (g_endComment)
            {
            g_endComment=FALSE;
            }
            else
            {
            codifyLines(fortrancodeYYtext);
            }
                                          bracketCount = 0;
                                          yy_pop_state();
                                          YY_FTN_RESET
                                        }
        YY_BREAK
/*-------- subprog calls  -----------------------------------------*/
case 43:
YY_RULE_SETUP
#line 1029 "fortrancode.l"
{
                                          startFontClass("keyword");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                          yy_push_state(YY_START);
                                          BEGIN(SubCall);
                                        }
        YY_BREAK
case 44:
YY_RULE_SETUP
#line 1036 "fortrancode.l"
{ // subroutine call
                                          g_insideBody=TRUE;
                                          generateLink(*g_code, fortrancodeYYtext);
                                          g_insideBody=FALSE;
                                          yy_pop_state();
                                        }
        YY_BREAK
case 45:
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 1042 "fortrancode.l"
{ // function call
                                          if (g_isFixedForm && yy_my_start == 6)
                                          {
                                            // fixed form continuation line
                                            YY_FTN_REJECT;
                                          }
                                          else
                                          {
                                            g_insideBody=TRUE;
                                            generateLink(*g_code, fortrancodeYYtext);
                                            g_insideBody=FALSE;
                                          }
                                        }
        YY_BREAK
/*-------- comments ---------------------------------------------------*/
case 46:
/* rule 46 can match eol */
YY_RULE_SETUP
#line 1057 "fortrancode.l"
{ // start comment line or comment block
                                          if (fortrancodeYYtext[0] == '\n')
                                          {
                                            yy_old_start = 0;
                                            yy_my_start = 1;
                                            yy_end = fortrancodeYYleng;
                                          }
                                          // Actually we should see if ! on position 6, can be continuation
                                          // but the chance is very unlikely, so no effort to solve it here
                                          yy_push_state(YY_START);
                                          BEGIN(DocBlock);
                                          docBlock=fortrancodeYYtext;
                                        }
        YY_BREAK
case 47:
YY_RULE_SETUP
#line 1070 "fortrancode.l"
{ // start comment line or comment block
                                          yy_push_state(YY_START);
                                          BEGIN(DocBlock);
                                          docBlock=fortrancodeYYtext;
                                        }
        YY_BREAK
case 48:
YY_RULE_SETUP
#line 1076 "fortrancode.l"
{ // contents of current comment line
                                          docBlock+=fortrancodeYYtext;
                                        }
        YY_BREAK
case 49:
/* rule 49 can match eol */
YY_RULE_SETUP
#line 1079 "fortrancode.l"
{ // comment block (next line is also comment line)
                                          yy_old_start = 0;
                                          yy_my_start = 1;
                                          yy_end = fortrancodeYYleng;
                                          // Actually we should see if ! on position 6, can be continuation
                                          // but the chance is very unlikely, so no effort to solve it here
                                          docBlock+=fortrancodeYYtext; 
                                        }
        YY_BREAK
case 50:
/* rule 50 can match eol */
YY_RULE_SETUP
#line 1087 "fortrancode.l"
{ // comment block ends at the end of this line
                                          // remove special comment (default config)
                                          if (Config_getBool("STRIP_CODE_COMMENTS"))
                                          {
                                            g_yyLineNr+=((QCString)docBlock).contains('\n');
              g_yyLineNr+=1;
                                            endCodeLine();
                                            if (g_yyLineNr<g_inputLines)
                                            {
                                              startCodeLine();
                                            }
              g_endComment=TRUE;
                                          }
                                          else // do not remove comment
                                          {
                                            startFontClass("comment");
                                            codifyLines(docBlock);
                                            endFontClass();
                                          }
            unput(*fortrancodeYYtext);
                                         yy_pop_state();
                                          YY_FTN_RESET
                                        }
        YY_BREAK
case 51:
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrancodeYYtext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrancodeYYtext again */
YY_RULE_SETUP
#line 1111 "fortrancode.l"
{ // normal comment
                                          if(YY_START == String) YY_FTN_REJECT; // ignore in strings
                                          if (g_isFixedForm && yy_my_start == 6) YY_FTN_REJECT;
                                          startFontClass("comment");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
case 52:
YY_RULE_SETUP
#line 1119 "fortrancode.l"
{ // normal comment
                                          if(! g_isFixedForm) YY_FTN_REJECT;

                                          startFontClass("comment");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                        }
        YY_BREAK
/*------ preprocessor  --------------------------------------------*/ 
case 53:
/* rule 53 can match eol */
YY_RULE_SETUP
#line 1128 "fortrancode.l"
{
                                          if (g_isFixedForm && yy_my_start == 6) YY_FTN_REJECT;
                                          startFontClass("preprocessor");
                                          codifyLines(fortrancodeYYtext);
                                          endFontClass();
                                          YY_FTN_RESET
                                        }
        YY_BREAK
/*------ variable references?  -------------------------------------*/ 
case 54:
YY_RULE_SETUP
#line 1137 "fortrancode.l"
{ // ignore references to elements 
                                          g_code->codify(fortrancodeYYtext);
                                        }
        YY_BREAK
case 55:
YY_RULE_SETUP
#line 1140 "fortrancode.l"
{   
                                            g_insideBody=TRUE;
                                            generateLink(*g_code, fortrancodeYYtext);
                                            g_insideBody=FALSE;
                                        }
        YY_BREAK
/*------ strings --------------------------------------------------*/ 
case 56:
YY_RULE_SETUP
#line 1146 "fortrancode.l"
{ str+=fortrancodeYYtext; /* ignore \\  */}
        YY_BREAK
case 57:
YY_RULE_SETUP
#line 1147 "fortrancode.l"
{ str+=fortrancodeYYtext; /* ignore \"  */}
        YY_BREAK
case 58:
/* rule 58 can match eol */
YY_RULE_SETUP
#line 1149 "fortrancode.l"
{ // string with \n inside
                                          str+=fortrancodeYYtext;
                                          startFontClass("stringliteral");
                                          codifyLines(str);
                                          endFontClass();
                                          str = "";
                                          YY_FTN_RESET
                                        }           
        YY_BREAK
case 59:
YY_RULE_SETUP
#line 1157 "fortrancode.l"
{ // string ends with next quote without previous backspace 
                                          if(fortrancodeYYtext[0]!=stringStartSymbol) YY_FTN_REJECT; // single vs double quote
                                          str+=fortrancodeYYtext;
                                          startFontClass("stringliteral");
                                          codifyLines(str);
                                          endFontClass();
                                          yy_pop_state();
                                        }           
        YY_BREAK
case 60:
YY_RULE_SETUP
#line 1165 "fortrancode.l"
{str+=fortrancodeYYtext;}
        YY_BREAK
case 61:
YY_RULE_SETUP
#line 1167 "fortrancode.l"
{ /* string starts */
                                          /* if(YY_START == StrIgnore) YY_FTN_REJECT; // ignore in simple comments */
                                          if (g_isFixedForm && yy_my_start == 6) YY_FTN_REJECT;
                                          yy_push_state(YY_START);
                                          stringStartSymbol=fortrancodeYYtext[0]; // single or double quote
                                          BEGIN(String);
                                          str=fortrancodeYYtext;
                                        }
        YY_BREAK
/*-----------------------------------------------------------------------------*/
case 62:
/* rule 62 can match eol */
YY_RULE_SETUP
#line 1177 "fortrancode.l"
{
                                        if (g_endComment)
            {
            g_endComment=FALSE;
            }
            else
            {
            codifyLines(fortrancodeYYtext);
            }
                                          YY_FTN_RESET
                                        }
        YY_BREAK
case 63:
YY_RULE_SETUP
#line 1188 "fortrancode.l"
{ g_code->codify(fortrancodeYYtext); }
        YY_BREAK
case 64:
YY_RULE_SETUP
#line 1190 "fortrancode.l"
{ 
                                          if (g_isFixedForm && yy_my_start > fixedCommentAfter)
                                          {
                                            //yy_push_state(YY_START);
                                            //BEGIN(DocBlock);
                                            //docBlock=fortrancodeYYtext;
                                            startFontClass("comment");
                                            codifyLines(fortrancodeYYtext);
                                          }
                                          else
                                          {
                                            g_code->codify(fortrancodeYYtext);
                                          }
                                        }
        YY_BREAK
case 65:
YY_RULE_SETUP
#line 1204 "fortrancode.l"
{ // Fortran logical comparison keywords
                                          g_code->codify(fortrancodeYYtext);
                                        }
        YY_BREAK
case YY_STATE_EOF(INITIAL):
case YY_STATE_EOF(Start):
case YY_STATE_EOF(SubCall):
case YY_STATE_EOF(FuncDef):
case YY_STATE_EOF(ClassName):
case YY_STATE_EOF(ClassVar):
case YY_STATE_EOF(Subprog):
case YY_STATE_EOF(DocBlock):
case YY_STATE_EOF(Use):
case YY_STATE_EOF(UseOnly):
case YY_STATE_EOF(Import):
case YY_STATE_EOF(Declaration):
case YY_STATE_EOF(DeclarationBinding):
case YY_STATE_EOF(DeclContLine):
case YY_STATE_EOF(Parameterlist):
case YY_STATE_EOF(String):
case YY_STATE_EOF(Subprogend):
#line 1207 "fortrancode.l"
{
                                          if (YY_START == DocBlock) {
                                            if (!Config_getBool("STRIP_CODE_COMMENTS"))
                                            {
                                              startFontClass("comment");
                                              codifyLines(docBlock);
                                              endFontClass();
                                            }
                                          }
                                          yyterminate();
                                        }
        YY_BREAK
case 66:
YY_RULE_SETUP
#line 1218 "fortrancode.l"
ECHO;
        YY_BREAK
#line 28806 "/nova/app/home/novasoft/doxygen/doxygen-1.8.11/build/generated_src/fortrancode.cpp"

        case YY_END_OF_BUFFER:
                {
                /* Amount of text matched not including the EOB char. */
                int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;

                /* Undo the effects of YY_DO_BEFORE_ACTION. */
                *yy_cp = (yy_hold_char);
                YY_RESTORE_YY_MORE_OFFSET

                if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
                        {
                        /* We're scanning a new file or input source.  It's
                         * possible that this happened because the user
                         * just pointed fortrancodeYYin at a new source and called
                         * fortrancodeYYlex().  If so, then we have to assure
                         * consistency between YY_CURRENT_BUFFER and our
                         * globals.  Here is the right place to do so, because
                         * this is the first action (other than possibly a
                         * back-up) that will match for the new input source.
                         */
                        (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
                        YY_CURRENT_BUFFER_LVALUE->yy_input_file = fortrancodeYYin;
                        YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
                        }

                /* Note that here we test for yy_c_buf_p "<=" to the position
                 * of the first EOB in the buffer, since yy_c_buf_p will
                 * already have been incremented past the NUL character
                 * (since all states make transitions on EOB to the
                 * end-of-buffer state).  Contrast this with the test
                 * in input().
                 */
                if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
                        { /* This was really a NUL. */
                        yy_state_type yy_next_state;

                        (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;

                        yy_current_state = yy_get_previous_state(  );

                        /* Okay, we're now positioned to make the NUL
                         * transition.  We couldn't have
                         * yy_get_previous_state() go ahead and do it
                         * for us because it doesn't know how to deal
                         * with the possibility of jamming (and we don't
                         * want to build jamming into it because then it
                         * will run more slowly).
                         */

                        yy_next_state = yy_try_NUL_trans( yy_current_state );

                        yy_bp = (yytext_ptr) + YY_MORE_ADJ;

                        if ( yy_next_state )
                                {
                                /* Consume the NUL. */
                                yy_cp = ++(yy_c_buf_p);
                                yy_current_state = yy_next_state;
                                goto yy_match;
                                }

                        else
                                {
                                yy_cp = (yy_c_buf_p);
                                goto yy_find_action;
                                }
                        }

                else switch ( yy_get_next_buffer(  ) )
                        {
                        case EOB_ACT_END_OF_FILE:
                                {
                                (yy_did_buffer_switch_on_eof) = 0;

                                if ( fortrancodeYYwrap( ) )
                                        {
                                        /* Note: because we've taken care in
                                         * yy_get_next_buffer() to have set up
                                         * fortrancodeYYtext, we can now set up
                                         * yy_c_buf_p so that if some total
                                         * hoser (like flex itself) wants to
                                         * call the scanner after we return the
                                         * YY_NULL, it'll still work - another
                                         * YY_NULL will get returned.
                                         */
                                        (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;

                                        yy_act = YY_STATE_EOF(YY_START);
                                        goto do_action;
                                        }

                                else
                                        {
                                        if ( ! (yy_did_buffer_switch_on_eof) )
                                                YY_NEW_FILE;
                                        }
                                break;
                                }

                        case EOB_ACT_CONTINUE_SCAN:
                                (yy_c_buf_p) =
                                        (yytext_ptr) + yy_amount_of_matched_text;

                                yy_current_state = yy_get_previous_state(  );

                                yy_cp = (yy_c_buf_p);
                                yy_bp = (yytext_ptr) + YY_MORE_ADJ;
                                goto yy_match;

                        case EOB_ACT_LAST_MATCH:
                                (yy_c_buf_p) =
                                &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];

                                yy_current_state = yy_get_previous_state(  );

                                yy_cp = (yy_c_buf_p);
                                yy_bp = (yytext_ptr) + YY_MORE_ADJ;
                                goto yy_find_action;
                        }
                break;
                }

        default:
                YY_FATAL_ERROR(
                        "fatal flex scanner internal error--no action found" );
        } /* end of action switch */
                } /* end of scanning one token */

static void writeMultiLineCodeLink ( CodeOutputInterface &  ol, Definition *  d, const char *  text  )

static

writes a link to a fragment text that may span multiple lines, inserting line numbers for each line. If text contains newlines, the link will be split into multiple links with the same destination, one for each line.

Definition at line 27331 of file fortrancode.cpp.

{
  static bool sourceTooltips = Config_getBool("SOURCE_TOOLTIPS");
  TooltipManager::instance()->addTooltip(d);
  QCString ref  = d->getReference();
  QCString file = d->getOutputFileBase();
  QCString anchor = d->anchor();
  QCString tooltip; 
  if (!sourceTooltips) // fall back to simple "title" tooltips
  {
    tooltip = d->briefDescriptionAsTooltip();
  }
  bool done=FALSE;
  char *p=(char *)text;
  while (!done)
  {
    char *sp=p;
    char c;
    while ((c=*p++) && c!='\n') { }
    if (c=='\n')
    {
      g_yyLineNr++;
      *(p-1)='\0';
      //printf("writeCodeLink(%s,%s,%s,%s)\n",ref,file,anchor,sp);
      ol.writeCodeLink(ref,file,anchor,sp,tooltip);
      endCodeLine();
      if (g_yyLineNr<g_inputLines) 
      {
        startCodeLine();
      }
    }
    else
    {
      //printf("writeCodeLink(%s,%s,%s,%s)\n",ref,file,anchor,sp);
      ol.writeCodeLink(ref,file,anchor,sp,tooltip);
      done=TRUE;
    }
  }
}

static void yy_fatal_error ( yyconst char  msg[] )

static

static void yy_fatal_error ( yyconst char *  msg )

static

Definition at line 29602 of file fortrancode.cpp.

{
        (void) fprintf( stderr, "%s\n", msg );
        exit( YY_EXIT_FAILURE );
}

static int yy_get_next_buffer ( void  )

static

Definition at line 28943 of file fortrancode.cpp.

{
        register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
        register char *source = (yytext_ptr);
        register int number_to_move, i;
        int ret_val;

        if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
                YY_FATAL_ERROR(
                "fatal flex scanner internal error--end of buffer missed" );

        if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
                { /* Don't try to fill the buffer, so this is an EOF. */
                if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
                        {
                        /* We matched a single character, the EOB, so
                         * treat this as a final EOF.
                         */
                        return EOB_ACT_END_OF_FILE;
                        }

                else
                        {
                        /* We matched some text prior to the EOB, first
                         * process it.
                         */
                        return EOB_ACT_LAST_MATCH;
                        }
                }

        /* Try to read more data. */

        /* First move last chars to start of buffer. */
        number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;

        for ( i = 0; i < number_to_move; ++i )
                *(dest++) = *(source++);

        if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
                /* don't do the read, it's not guaranteed to return an EOF,
                 * just force an EOF
                 */
                YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;

        else
                {
                        int num_to_read =
                        YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;

                while ( num_to_read <= 0 )
                        { /* Not enough room in the buffer - grow it. */

                        YY_FATAL_ERROR(
"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );

                        }

                if ( num_to_read > YY_READ_BUF_SIZE )
                        num_to_read = YY_READ_BUF_SIZE;

                /* Read in more data. */
                YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
                        (yy_n_chars), (size_t) num_to_read );

                YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
                }

        if ( (yy_n_chars) == 0 )
                {
                if ( number_to_move == YY_MORE_ADJ )
                        {
                        ret_val = EOB_ACT_END_OF_FILE;
                        fortrancodeYYrestart(fortrancodeYYin  );
                        }

                else
                        {
                        ret_val = EOB_ACT_LAST_MATCH;
                        YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
                                YY_BUFFER_EOF_PENDING;
                        }
                }

        else
                ret_val = EOB_ACT_CONTINUE_SCAN;

        if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
                /* Extend the array by 50%, plus the number we really need. */
                yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
                YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) fortrancodeYYrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size  );
                if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
                        YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
        }

        (yy_n_chars) += number_to_move;
        YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
        YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;

        (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];

        return ret_val;
}

static yy_state_type yy_get_previous_state ( void  )

static

Definition at line 29048 of file fortrancode.cpp.

{
        register yy_state_type yy_current_state;
        register char *yy_cp;
    
        yy_current_state = (yy_start);
        yy_current_state += YY_AT_BOL();

        (yy_state_ptr) = (yy_state_buf);
        *(yy_state_ptr)++ = yy_current_state;

        for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
                {
                register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
                while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
                        {
                        yy_current_state = (int) yy_def[yy_current_state];
                        if ( yy_current_state >= 10605 )
                                yy_c = yy_meta[(unsigned int) yy_c];
                        }
                yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
                *(yy_state_ptr)++ = yy_current_state;
                }

        return yy_current_state;
}

static int yy_init_globals ( void  )

static

Definition at line 29705 of file fortrancode.cpp.

{
        /* Initialization is the same as for the non-reentrant scanner.
     * This function is called from fortrancodeYYlex_destroy(), so don't allocate here.
     */

    (yy_buffer_stack) = 0;
    (yy_buffer_stack_top) = 0;
    (yy_buffer_stack_max) = 0;
    (yy_c_buf_p) = (char *) 0;
    (yy_init) = 0;
    (yy_start) = 0;

    (yy_start_stack_ptr) = 0;
    (yy_start_stack_depth) = 0;
    (yy_start_stack) =  NULL;

    (yy_state_buf) = 0;
    (yy_state_ptr) = 0;
    (yy_full_match) = 0;
    (yy_lp) = 0;

/* Defined in main.c */
#ifdef YY_STDINIT
    fortrancodeYYin = stdin;
    fortrancodeYYout = stdout;
#else
    fortrancodeYYin = (FILE *) 0;
    fortrancodeYYout = (FILE *) 0;
#endif

    /* For future reference: Set errno on error, since we are called by
     * fortrancodeYYlex_init()
     */
    return 0;
}

static void yy_pop_state ( void  )

static

Definition at line 29585 of file fortrancode.cpp.

{
        if ( --(yy_start_stack_ptr) < 0 )
                YY_FATAL_ERROR( "start-condition stack underflow" );

        BEGIN((yy_start_stack)[(yy_start_stack_ptr)]);
}

static void yy_push_state ( int  new_state )

static

Definition at line 29561 of file fortrancode.cpp.

{
        if ( (yy_start_stack_ptr) >= (yy_start_stack_depth) )
                {
                yy_size_t new_size;

                (yy_start_stack_depth) += YY_START_STACK_INCR;
                new_size = (yy_start_stack_depth) * sizeof( int );

                if ( ! (yy_start_stack) )
                        (yy_start_stack) = (int *) fortrancodeYYalloc(new_size  );

                else
                        (yy_start_stack) = (int *) fortrancodeYYrealloc((void *) (yy_start_stack),new_size  );

                if ( ! (yy_start_stack) )
                        YY_FATAL_ERROR( "out of memory expanding start-condition stack" );
                }

        (yy_start_stack)[(yy_start_stack_ptr)++] = YY_START;

        BEGIN(new_state);
}

static int yy_top_state ( void  )

static

Definition at line 29593 of file fortrancode.cpp.

{
        return (yy_start_stack)[(yy_start_stack_ptr) - 1];
}

static yy_state_type yy_try_NUL_trans ( yy_state_type  current_state )

static

Definition at line 29080 of file fortrancode.cpp.

{
        register int yy_is_jam;
    
        register YY_CHAR yy_c = 1;
        while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
                {
                yy_current_state = (int) yy_def[yy_current_state];
                if ( yy_current_state >= 10605 )
                        yy_c = yy_meta[(unsigned int) yy_c];
                }
        yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
        yy_is_jam = (yy_current_state == 10604);
        if ( ! yy_is_jam )
                *(yy_state_ptr)++ = yy_current_state;

        return yy_is_jam ? 0 : yy_current_state;
}

static int yyread ( char *  buf, int  max_size  )

static

Definition at line 27671 of file fortrancode.cpp.

{
    int c=0;
    while( c < max_size && g_inputString[g_inputPosition] )
    {
        *buf = g_inputString[g_inputPosition++] ;
        c++; buf++;
    }
    return c;
}

static void yyunput ( int  c, char *  buf_ptr  )

static

static void yyunput ( int  c, register char *  yy_bp  )

static

Definition at line 29099 of file fortrancode.cpp.

{
        register char *yy_cp;
    
    yy_cp = (yy_c_buf_p);

        /* undo effects of setting up fortrancodeYYtext */
        *yy_cp = (yy_hold_char);

        if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
                { /* need to shift things up to make room */
                /* +2 for EOB chars. */
                register int number_to_move = (yy_n_chars) + 2;
                register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
                                        YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
                register char *source =
                                &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];

                while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
                        *--dest = *--source;

                yy_cp += (int) (dest - source);
                yy_bp += (int) (dest - source);
                YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
                        (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;

                if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
                        YY_FATAL_ERROR( "flex scanner push-back overflow" );
                }

        *--yy_cp = (char) c;

        (yytext_ptr) = yy_bp;
        (yy_hold_char) = *yy_cp;
        (yy_c_buf_p) = yy_cp;
}

Variable Documentation

int bracketCount = 0

static

Definition at line 27130 of file fortrancode.cpp.

QCString currentClass =0

static

name of the current enclosing class

Definition at line 27093 of file fortrancode.cpp.

QCString currentModule =0

static

name of the current enclosing module

Definition at line 27092 of file fortrancode.cpp.

QCString docBlock

static

contents of all lines of a documentation block

Definition at line 27091 of file fortrancode.cpp.

int fortrancodeYY_flex_debug = 0

Definition at line 26952 of file fortrancode.cpp.

FILE * fortrancodeYYin = (FILE *) 0

Definition at line 359 of file fortrancode.cpp.

int fortrancodeYYleng

Definition at line 294 of file fortrancode.cpp.

int fortrancodeYYlineno = 1

Definition at line 365 of file fortrancode.cpp.

FILE * fortrancodeYYout = (FILE *) 0

Definition at line 359 of file fortrancode.cpp.

char * fortrancodeYYtext

Definition at line 26976 of file fortrancode.cpp.

CodeOutputInterface* g_code

static

contents of fortran string

Definition at line 27100 of file fortrancode.cpp.

bool g_collectXRefs

static

Definition at line 27112 of file fortrancode.cpp.

Definition* g_currentDefinition

static

Definition at line 27123 of file fortrancode.cpp.

const char* g_currentFontClass

static

Definition at line 27116 of file fortrancode.cpp.

MemberDef* g_currentMemberDef

static

Definition at line 27124 of file fortrancode.cpp.

bool g_endComment

static

Definition at line 27132 of file fortrancode.cpp.

bool g_exampleBlock

static

Definition at line 27118 of file fortrancode.cpp.

QCString g_exampleFile

static

Definition at line 27120 of file fortrancode.cpp.

QCString g_exampleName

static

Definition at line 27119 of file fortrancode.cpp.

bool g_includeCodeFragment

static

Definition at line 27125 of file fortrancode.cpp.

int g_inputLines

static

number of line in the code fragment

Definition at line 27108 of file fortrancode.cpp.

int g_inputPosition

static

read offset during parsing

Definition at line 27107 of file fortrancode.cpp.

const char* g_inputString

static

the code fragment as text

Definition at line 27106 of file fortrancode.cpp.

bool g_insideBody

static

inside subprog/program body? => create links

Definition at line 27115 of file fortrancode.cpp.

bool g_isFixedForm

static

Definition at line 27113 of file fortrancode.cpp.

bool g_needsTermination

static

Definition at line 27110 of file fortrancode.cpp.

QCString g_parmName

static

Definition at line 27104 of file fortrancode.cpp.

QCString g_parmType

static

Definition at line 27103 of file fortrancode.cpp.

Definition* g_searchCtx

static

Definition at line 27111 of file fortrancode.cpp.

FileDef* g_sourceFileDef

static

Definition at line 27122 of file fortrancode.cpp.

int g_yyLineNr

static

current line number

Definition at line 27109 of file fortrancode.cpp.

QList<Scope> scopeStack

static

Definition at line 27096 of file fortrancode.cpp.

QCString str =""

static

Definition at line 27098 of file fortrancode.cpp.

char stringStartSymbol

static

Definition at line 27127 of file fortrancode.cpp.

UseEntry* useEntry = 0

static

current use statement info

Definition at line 27095 of file fortrancode.cpp.

UseSDict* useMembers = new UseSDict

static

info about used modules

Definition at line 27094 of file fortrancode.cpp.

yyconst flex_int16_t yy_accept[10606]

static

Definition at line 1096 of file fortrancode.cpp.

yyconst flex_int16_t yy_acclist[6342]

static

Definition at line 394 of file fortrancode.cpp.

register int yy_act

Definition at line 27910 of file fortrancode.cpp.

yyconst flex_int32_t yy_base[12566]

static

Definition at line 2311 of file fortrancode.cpp.

register char * yy_bp

Definition at line 27909 of file fortrancode.cpp.

YY_BUFFER_STATE* yy_buffer_stack = 0

static

Stack as an array.

Definition at line 274 of file fortrancode.cpp.

size_t yy_buffer_stack_max = 0

static

capacity of stack.

Definition at line 273 of file fortrancode.cpp.

size_t yy_buffer_stack_top = 0

static

index of top of stack.

Definition at line 272 of file fortrancode.cpp.

char* yy_c_buf_p = (char *) 0

static

Definition at line 297 of file fortrancode.cpp.

yyconst flex_int16_t yy_chk[99369]

static

Definition at line 16017 of file fortrancode.cpp.

register char* yy_cp

Definition at line 27909 of file fortrancode.cpp.

YY_DECL

Initial value:

{
        register yy_state_type yy_current_state

The main scanner function which does all the work.

Definition at line 27907 of file fortrancode.cpp.

yyconst flex_int16_t yy_def[12566]

static

Definition at line 3697 of file fortrancode.cpp.

int yy_did_buffer_switch_on_eof

static

Definition at line 304 of file fortrancode.cpp.

yyconst flex_int32_t yy_ec[256]

static

Definition at line 2267 of file fortrancode.cpp.

int yy_end = 1

Definition at line 27047 of file fortrancode.cpp.

int yy_full_lp

static

Definition at line 26958 of file fortrancode.cpp.

char* yy_full_match

static

Definition at line 26955 of file fortrancode.cpp.

int* yy_full_state

static

Definition at line 26959 of file fortrancode.cpp.

char yy_hold_char

static

Definition at line 292 of file fortrancode.cpp.

int yy_init = 0

static

Definition at line 298 of file fortrancode.cpp.

int yy_looking_for_trail_begin = 0

static

Definition at line 26957 of file fortrancode.cpp.

int yy_lp

static

Definition at line 26956 of file fortrancode.cpp.

yyconst flex_int32_t yy_meta[74]

static

Initial value:

=
    {   0,
        1,    2,    3,    4,    5,    1,    1,    1,    1,    1,
        6,    1,    7,    8,    1,    1,    9,    8,   10,    1,
       10,   11,   11,   11,   11,   11,   11,   11,   11,   11,
       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
       11,   11,   11,   11,   11,   11,   11,    1,   11,   11,
       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
       11,   11,   11
    }

Definition at line 2299 of file fortrancode.cpp.

int yy_my_start = 0

Definition at line 27046 of file fortrancode.cpp.

int yy_n_chars

static

Definition at line 293 of file fortrancode.cpp.

yyconst flex_int16_t yy_nxt[99369]

static

Definition at line 5083 of file fortrancode.cpp.

int yy_old_start = 0

Definition at line 27045 of file fortrancode.cpp.

int yy_start = 0

static

Definition at line 299 of file fortrancode.cpp.

int* yy_start_stack = NULL

static

Definition at line 27798 of file fortrancode.cpp.

int yy_start_stack_depth = 0

static

Definition at line 27797 of file fortrancode.cpp.

int yy_start_stack_ptr = 0

static

Definition at line 27796 of file fortrancode.cpp.

yy_state_type* yy_state_buf =0

static

Definition at line 26954 of file fortrancode.cpp.

yy_state_type * yy_state_ptr =0

static

Definition at line 26954 of file fortrancode.cpp.