[deliverable/titan.core.git] / repgen / parser.l

/******************************************************************************
 * Copyright (c) 2000-2016 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 *
 * Contributors:
 *   Balasko, Jeno
 *   Beres, Szabolcs
 *   Raduly, Csaba
 *   Szabados, Kristof
 *   Szabo, Janos Zoltan – initial implementation
 *   Zalanyi, Balazs Andor
 *
 ******************************************************************************/
%option noyywrap
%option yylineno
%option never-interactive
%option nounput
%{

/* #define  CHK_ACCESS */
#include <string.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include "../common/version_internal.h"
#include "repgen.h"

#ifdef LICENSE
#include "../common/license.h"
#endif

#define		T_TITLE		199
#define		T_NAME		200
#define		T_SHORT		201
#define		T_LONG		202
#define		T_STR		203
#define		T_CODE		204
#define		T_LOGS		205
#define		T_DUMP		206
#define		T_DEST		207
#define		T_TABLEN	208
#define		T_FILLCOL	209
#define		T_ERROR		210

int			token, tok;
struct listentry	*first, *tclist;
char			*str;
static char		title[MAXLEN];
static char		code_srcdir[MAXLEN], log_srcdir[MAXLEN], dump_srcdir[MAXLEN];
static char		tcname[MAXLEN], dstdir[MAXLEN];
static int		tablen, fillcol;
char			ch;
%}

%x PP TITLE NAME SHORT LONG CODE LOGS DUMP DEST TABLEN FILLCOL ERROR

digit		[0-9]
octdigit	[0-7]
hexdigit	[0-9a-fA-F]
digits          {digit}+
alpha		[a-zA-Z_]
alphanum	{alpha}|{digit}
whitespace      [ \t\f\v]
allwhite        [ \t\f\b\v\r\n]
whitespace2      [ \t\f\v]
path        [./~a-zA-Z_0-9\-]

pp_title        ^{allwhite}*"#Title"{allwhite}*
pp_name         ^{allwhite}*"#Testcase"{allwhite}*
pp_short        ^{allwhite}*"#Purpose"{whitespace}*[\n]*
pp_long         ^{allwhite}*"#Description"{whitespace}*[\n]*
pp_code         ^{allwhite}*"#TTCN-3 code"{allwhite}*
pp_logs         ^{allwhite}*"#TTCN-3 log"{allwhite}*
pp_dump         ^{allwhite}*"#Other log"{allwhite}*
pp_dest         ^{allwhite}*"#Destination"{allwhite}*
pp_tablen       ^{allwhite}*"#Tab length"{allwhite}*
pp_fillcol      ^{allwhite}*"#Column width"{allwhite}*
pp_error	^{allwhite}*"#"{alphanum}*

%%

<INITIAL>{pp_title}         { BEGIN(TITLE); }
<TITLE>{alpha}*{alphanum}*  { strcat(title, yytext); }
<TITLE>{whitespace}*        { strcat(title, " "); }
<TITLE>[\n]*                { BEGIN(INITIAL); return T_TITLE; }

<INITIAL>{pp_name}         { BEGIN(NAME); }
<NAME>{alpha}*{alphanum}*  { strcpy(tcname, yytext); return T_NAME; }
<NAME>{allwhite}*          { BEGIN(INITIAL); }

<INITIAL>{pp_code}         { BEGIN(CODE); }
<CODE>{path}*{alphanum}*   { strcpy(code_srcdir, yytext); return T_CODE; }
<CODE>{allwhite}*          { BEGIN(INITIAL); }

<INITIAL>{pp_logs}         { BEGIN(LOGS); }
<LOGS>{path}*{alphanum}*   { strcpy(log_srcdir, yytext); return T_LOGS; }
<LOGS>{allwhite}*          { BEGIN(INITIAL); }

<INITIAL>{pp_dump}         { BEGIN(DUMP); }
<DUMP>{path}*{alphanum}*   { strcpy(dump_srcdir, yytext); return T_DUMP; }
<DUMP>{allwhite}*          { BEGIN(INITIAL); }

<INITIAL>{pp_dest}         { BEGIN(DEST); }
<DEST>{path}*{alphanum}*   { strcpy(dstdir, yytext); return T_DEST; }
<DEST>{allwhite}*          { BEGIN(INITIAL); }

<INITIAL>{pp_short}        { return T_SHORT; }

<INITIAL>{pp_long}         { return T_LONG; }

<INITIAL>{pp_tablen}       { BEGIN(TABLEN); }
<TABLEN>{digit}*           { tablen = atoi(yytext); return T_TABLEN; }
<TABLEN>{allwhite}*        { BEGIN(INITIAL); }

<INITIAL>{pp_fillcol}      { BEGIN(FILLCOL); }
<FILLCOL>{digit}*          { fillcol = atoi(yytext); return T_FILLCOL; }
<FILLCOL>{allwhite}*       { BEGIN(INITIAL); }

<INITIAL>.|\n              { ch = yytext[0]; return T_STR; }

<INITIAL>{pp_error}        |
<*>.|\n                    { return T_ERROR; }

%%
int	main ( int argc, char *argv[] )
{
 char	sname[MAXLEN];
 char	lname[MAXLEN];
 FILE	*sfh = NULL;
 FILE	*lfh = NULL;
 size_t i, offset;
#ifndef MINGW
 mode_t	mode = S_IRWXU | S_IRGRP | S_IXGRP | S_IROTH | S_IXOTH;
#endif
#ifdef LICENSE
 license_struct lstr;
#endif

 if ( argc != 2 )
	{
	 fprintf ( stderr, "Usage: %s inputfile [-h]\n", argv[0] );
	 return -1;
	}

 if ( strcmp ( argv[1], "-h" ) == 0 )
	{

	 fputs("HTML Report Generator for the TTCN-3 Test Executor\n"
	    "Product number: " PRODUCT_NUMBER "\n"
	    "Build date: " __DATE__ " " __TIME__ "\n"
	    "Compiled with: " C_COMPILER_VERSION "\n\n"
	     COPYRIGHT_STRING "\n\n"
	     "Example input file is printed to standard output.\n", stderr);

	 puts ("#Title Sample\n"
	     "#Tab length 8\n"
	     "#Column width 80\n"
	     "#TTCN-3 code ./\n"
	     "#TTCN-3 log ./\n"
	     "#Other log ./\n"
	     "#Destination ./\n"
	     "\n"
	     "#Testcase testcase1\n"
	     "#Purpose\n"
	     "The purpose of the test case comes here.\n"
	     "#Description\n"
	     "This section describes the test case in detail.\n"
	     "\n"
	     "#Testcase testcase2\n"
	     "#Purpose\n"
	     "The purpose of the test case comes here.\n"
	     "#Description\n"
	     "This section describes the test case in detail.\n" );

	 return 0;
	}

#ifdef LICENSE
	init_openssl();
	load_license(&lstr);
	if (!verify_license(&lstr)) {
		free_license(&lstr);
		free_openssl();
		exit(EXIT_FAILURE);
	}
	if (!check_feature(&lstr, FEATURE_LOGFORMAT)) {
	        fputs("The license key does not allow the usage of HTML "
		    "report generator.\n", stderr);
		return 2;
	}
	free_license(&lstr);
	free_openssl();
#endif

 if ( ( yyin = fopen ( argv[1], "r" ) ) == 0 )
	{
	 perror ( argv[1] );
	 exit ( 1 );
	}

 sprintf ( dstdir, "./" );

 tclist = (struct listentry *)malloc ( sizeof ( struct listentry ) );
 tclist->next = NULL;
 first = tclist;

 while ( ( token = yylex() ) )
	{
	 switch(token)
		{
		 case T_TITLE:
			 tok = token;
			 break;

		 case T_NAME:
			 strcpy ( tclist->tcname, tcname );
			 tclist->next = (struct listentry *)malloc ( sizeof ( struct listentry ) );
			 tclist = tclist->next;
			 tclist->next = NULL;

			 sprintf ( sname, "%s/%s.short", dstdir, tcname );
			 sprintf ( lname, "%s/%s.long",  dstdir, tcname );

			 if ( sfh ) fclose ( sfh );
			 if ( ! ( sfh = fopen ( sname, "wt" ) ) )
				{
				 perror ( sname );
				 return -1;
				}

			 if ( lfh ) fclose ( lfh );
			 if ( ! ( lfh = fopen ( lname, "wt" ) ) )
				{
				 perror ( lname );
				 return -1;
				}
			 break;

		 case T_SHORT:
		 case T_LONG:
			 tok = token;
			 break;

		 case T_STR:
			 switch ( tok )
				{
				 case T_SHORT:
					 putc(ch, sfh);
					 break;

				 case T_LONG:
					 putc(ch, lfh);
					 break;

				 case T_STR:
				 default:
					 break;
				}
			 break;

		 case T_CODE:
		 case T_LOGS:
		 case T_DUMP:
		 case T_TABLEN:
		 case T_FILLCOL:
			 break;

		 case T_DEST:
			 if ( dstdir[strlen(dstdir)-1] != '/' ) dstdir[strlen(dstdir)] = '/';

			 if ( mkdir ( dstdir
#ifndef MINGW
					    , mode
#endif
						   ) == -1 )
				{
				 if ( errno != EEXIST )
					{
					 fprintf ( stderr, "Cannot create directory: %s\n", dstdir );
					 return -1;
					}
				/* else fprintf ( stderr, "Directory already exists: %s\n", dstdir ); */
				}

			 offset = strlen ( dstdir );
			 for ( i = 0; i < strlen ( title ); i++ )
				{
				 if ( title[i] == ' ' ) dstdir[offset+i] = '_';
				 else dstdir[offset+i] = title[i];
				}
			 strcat ( dstdir, "-report" );

			 mkdir ( dstdir
#ifndef MINGW
				       , mode
#endif
				              );

			 break;

		 case T_ERROR:
		 default:
			 if ( yytext[strlen(yytext)-1] == '\n' ) yytext[strlen(yytext)-1] = '\0';
			 fprintf ( stderr, "Parse error at line %d: %s\n", yylineno, yytext );
		 	 return -1;
		}
	}

 if ( sfh ) fclose ( sfh );
 if ( lfh ) fclose ( lfh );

 fclose ( yyin );

 WriteCode ( first, code_srcdir, dstdir, tablen, fillcol );
 WriteLog ( first, log_srcdir, dstdir );
 WriteDump ( first, dump_srcdir, dstdir, tablen, fillcol );

 Genhtml ( first, title, dstdir );

 return 0;
}
Commit	Line	Data
970ed795	1	/******************************************************************************
d44e3c4f	2	* Copyright (c) 2000-2016 Ericsson Telecom AB
970ed795 EL	3	* All rights reserved. This program and the accompanying materials
	4	* are made available under the terms of the Eclipse Public License v1.0
	5	* which accompanies this distribution, and is available at
	6	* http://www.eclipse.org/legal/epl-v10.html
d44e3c4f	7	*
	8	* Contributors:
	9	* Balasko, Jeno
	10	* Beres, Szabolcs
	11	* Raduly, Csaba
	12	* Szabados, Kristof
	13	* Szabo, Janos Zoltan – initial implementation
	14	* Zalanyi, Balazs Andor
	15	*
970ed795 EL	16	******************************************************************************/
	17	%option noyywrap
	18	%option yylineno
	19	%option never-interactive
	20	%option nounput
	21	%{
	22
	23	/* #define CHK_ACCESS */
	24	#include <string.h>
	25	#include <stdlib.h>
	26	#include <sys/types.h>
	27	#include <sys/stat.h>
	28	#include <errno.h>
	29	#include "../common/version_internal.h"
	30	#include "repgen.h"
	31
	32	#ifdef LICENSE
	33	#include "../common/license.h"
	34	#endif
	35
	36	#define T_TITLE 199
	37	#define T_NAME 200
	38	#define T_SHORT 201
	39	#define T_LONG 202
	40	#define T_STR 203
	41	#define T_CODE 204
	42	#define T_LOGS 205
	43	#define T_DUMP 206
	44	#define T_DEST 207
	45	#define T_TABLEN 208
	46	#define T_FILLCOL 209
	47	#define T_ERROR 210
	48
	49	int token, tok;
	50	struct listentry first, tclist;
	51	char *str;
	52	static char title[MAXLEN];
	53	static char code_srcdir[MAXLEN], log_srcdir[MAXLEN], dump_srcdir[MAXLEN];
	54	static char tcname[MAXLEN], dstdir[MAXLEN];
	55	static int tablen, fillcol;
	56	char ch;
	57	%}
	58
	59	%x PP TITLE NAME SHORT LONG CODE LOGS DUMP DEST TABLEN FILLCOL ERROR
	60
	61	digit [0-9]
	62	octdigit [0-7]
	63	hexdigit [0-9a-fA-F]
	64	digits {digit}+
	65	alpha [a-zA-Z_]
	66	alphanum {alpha}\|{digit}
	67	whitespace [ \t\f\v]
	68	allwhite [ \t\f\b\v\r\n]
	69	whitespace2 [ \t\f\v]
	70	path [./~a-zA-Z_0-9\-]
	71
	72	pp_title ^{allwhite}"#Title"{allwhite}
	73	pp_name ^{allwhite}"#Testcase"{allwhite}
	74	pp_short ^{allwhite}"#Purpose"{whitespace}[\n]*
	75	pp_long ^{allwhite}"#Description"{whitespace}[\n]*
	76	pp_code ^{allwhite}"#TTCN-3 code"{allwhite}
	77	pp_logs ^{allwhite}"#TTCN-3 log"{allwhite}
	78	pp_dump ^{allwhite}"#Other log"{allwhite}
	79	pp_dest ^{allwhite}"#Destination"{allwhite}
80	pp_tablen ^{allwhite}"#Tab length"{allwhite}
81	pp_fillcol ^{allwhite}"#Column width"{allwhite}
82	pp_error ^{allwhite}"#"{alphanum}
83
84	%%
85
86	<INITIAL>{pp_title} { BEGIN(TITLE); }
87	<TITLE>{alpha}{alphanum} { strcat(title, yytext); }
88	<TITLE>{whitespace}* { strcat(title, " "); }
89	<TITLE>[\n]* { BEGIN(INITIAL); return T_TITLE; }
90
91	<INITIAL>{pp_name} { BEGIN(NAME); }
92	<NAME>{alpha}{alphanum} { strcpy(tcname, yytext); return T_NAME; }
93	<NAME>{allwhite}* { BEGIN(INITIAL); }
94
95	<INITIAL>{pp_code} { BEGIN(CODE); }
96	<CODE>{path}{alphanum} { strcpy(code_srcdir, yytext); return T_CODE; }
97	<CODE>{allwhite}* { BEGIN(INITIAL); }
98
99	<INITIAL>{pp_logs} { BEGIN(LOGS); }
100	<LOGS>{path}{alphanum} { strcpy(log_srcdir, yytext); return T_LOGS; }
101	<LOGS>{allwhite}* { BEGIN(INITIAL); }
102
103	<INITIAL>{pp_dump} { BEGIN(DUMP); }
104	<DUMP>{path}{alphanum} { strcpy(dump_srcdir, yytext); return T_DUMP; }
105	<DUMP>{allwhite}* { BEGIN(INITIAL); }
106
107	<INITIAL>{pp_dest} { BEGIN(DEST); }
108	<DEST>{path}{alphanum} { strcpy(dstdir, yytext); return T_DEST; }
109	<DEST>{allwhite}* { BEGIN(INITIAL); }
110
111	<INITIAL>{pp_short} { return T_SHORT; }
112
113	<INITIAL>{pp_long} { return T_LONG; }
114
115	<INITIAL>{pp_tablen} { BEGIN(TABLEN); }
116	<TABLEN>{digit}* { tablen = atoi(yytext); return T_TABLEN; }
117	<TABLEN>{allwhite}* { BEGIN(INITIAL); }
118
119	<INITIAL>{pp_fillcol} { BEGIN(FILLCOL); }
120	<FILLCOL>{digit}* { fillcol = atoi(yytext); return T_FILLCOL; }
121	<FILLCOL>{allwhite}* { BEGIN(INITIAL); }
122
123	<INITIAL>.\|\n { ch = yytext[0]; return T_STR; }
124
125	<INITIAL>{pp_error} \|
126	<*>.\|\n { return T_ERROR; }
127
128	%%
129	int main ( int argc, char *argv[] )
130	{
131	char sname[MAXLEN];
132	char lname[MAXLEN];
133	FILE *sfh = NULL;
134	FILE *lfh = NULL;
135	size_t i, offset;
136	#ifndef MINGW
137	mode_t mode = S_IRWXU \| S_IRGRP \| S_IXGRP \| S_IROTH \| S_IXOTH;
138	#endif
139	#ifdef LICENSE
140	license_struct lstr;
141	#endif
142
143	if ( argc != 2 )
144	{
145	fprintf ( stderr, "Usage: %s inputfile [-h]\n", argv[0] );
146	return -1;
147	}
148
149	if ( strcmp ( argv[1], "-h" ) == 0 )
150	{
151
152	fputs("HTML Report Generator for the TTCN-3 Test Executor\n"
153	"Product number: " PRODUCT_NUMBER "\n"
154	"Build date: " __DATE__ " " __TIME__ "\n"
155	"Compiled with: " C_COMPILER_VERSION "\n\n"
156	COPYRIGHT_STRING "\n\n"
157	"Example input file is printed to standard output.\n", stderr);
158
159	puts ("#Title Sample\n"
160	"#Tab length 8\n"
161	"#Column width 80\n"
162	"#TTCN-3 code ./\n"
163	"#TTCN-3 log ./\n"
164	"#Other log ./\n"
165	"#Destination ./\n"
166	"\n"
167	"#Testcase testcase1\n"
168	"#Purpose\n"
169	"The purpose of the test case comes here.\n"
170	"#Description\n"
171	"This section describes the test case in detail.\n"
172	"\n"
173	"#Testcase testcase2\n"
174	"#Purpose\n"
175	"The purpose of the test case comes here.\n"
176	"#Description\n"
177	"This section describes the test case in detail.\n" );
178
179	return 0;
180	}
181
182	#ifdef LICENSE
183	init_openssl();
184	load_license(&lstr);
185	if (!verify_license(&lstr)) {
186	free_license(&lstr);
187	free_openssl();
188	exit(EXIT_FAILURE);
189	}
190	if (!check_feature(&lstr, FEATURE_LOGFORMAT)) {
191	fputs("The license key does not allow the usage of HTML "
192	"report generator.\n", stderr);
193	return 2;
194	}
195	free_license(&lstr);
196	free_openssl();
197	#endif
198
199	if ( ( yyin = fopen ( argv[1], "r" ) ) == 0 )
200	{
201	perror ( argv[1] );
202	exit ( 1 );
203	}
204
205	sprintf ( dstdir, "./" );
206
207	tclist = (struct listentry *)malloc ( sizeof ( struct listentry ) );
208	tclist->next = NULL;
209	first = tclist;
210
211	while ( ( token = yylex() ) )
212	{
213	switch(token)
214	{
215	case T_TITLE:
216	tok = token;
217	break;
218
219	case T_NAME:
220	strcpy ( tclist->tcname, tcname );
221	tclist->next = (struct listentry *)malloc ( sizeof ( struct listentry ) );
222	tclist = tclist->next;
223	tclist->next = NULL;
224
225	sprintf ( sname, "%s/%s.short", dstdir, tcname );
226	sprintf ( lname, "%s/%s.long", dstdir, tcname );
227
228	if ( sfh ) fclose ( sfh );
229	if ( ! ( sfh = fopen ( sname, "wt" ) ) )
230	{
231	perror ( sname );
232	return -1;
233	}
234
235	if ( lfh ) fclose ( lfh );
236	if ( ! ( lfh = fopen ( lname, "wt" ) ) )
237	{
238	perror ( lname );
239	return -1;
240	}
241	break;
242
243	case T_SHORT:
244	case T_LONG:
245	tok = token;
246	break;
247
248	case T_STR:
249	switch ( tok )
250	{
251	case T_SHORT:
252	putc(ch, sfh);
253	break;
254
255	case T_LONG:
256	putc(ch, lfh);
257	break;
258
259	case T_STR:
260	default:
261	break;
262	}
263	break;
264
265	case T_CODE:
266	case T_LOGS:
267	case T_DUMP:
268	case T_TABLEN:
269	case T_FILLCOL:
270	break;
271
272	case T_DEST:
273	if ( dstdir[strlen(dstdir)-1] != '/' ) dstdir[strlen(dstdir)] = '/';
274
275	if ( mkdir ( dstdir
276	#ifndef MINGW
277	, mode
278	#endif
279	) == -1 )
280	{
281	if ( errno != EEXIST )
282	{
283	fprintf ( stderr, "Cannot create directory: %s\n", dstdir );
284	return -1;
285	}
286	/* else fprintf ( stderr, "Directory already exists: %s\n", dstdir ); */
287	}
288
289	offset = strlen ( dstdir );
290	for ( i = 0; i < strlen ( title ); i++ )
291	{
292	if ( title[i] == ' ' ) dstdir[offset+i] = '_';
293	else dstdir[offset+i] = title[i];
294	}
295	strcat ( dstdir, "-report" );
296
297	mkdir ( dstdir
298	#ifndef MINGW
299	, mode
300	#endif
301	);
302
303	break;
304
305	case T_ERROR:
306	default:
307	if ( yytext[strlen(yytext)-1] == '\n' ) yytext[strlen(yytext)-1] = '\0';
308	fprintf ( stderr, "Parse error at line %d: %s\n", yylineno, yytext );
309	return -1;
310	}
311	}
312
313	if ( sfh ) fclose ( sfh );
314	if ( lfh ) fclose ( lfh );
315
316	fclose ( yyin );
317
318	WriteCode ( first, code_srcdir, dstdir, tablen, fillcol );
319	WriteLog ( first, log_srcdir, dstdir );
320	WriteDump ( first, dump_srcdir, dstdir, tablen, fillcol );
321
322	Genhtml ( first, title, dstdir );
323
324	return 0;
325	}