1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
%{ /* -*- C -*- */
/*
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2006 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "opal_config.h"
#include <stdio.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include "opal/mca/carto/file/carto_file_lex.h"
/*
* local functions
*/
BEGIN_C_DECLS
int carto_file_wrap(void);
END_C_DECLS
int carto_file_wrap(void)
{
carto_file_done = true;
return 1;
}
/*
* global variables
*/
int carto_file_line=1;
orte_rds_value_t carto_file_value;
bool carto_file_done = false;
%}
WHITE [\f\t\v ]
%x comment
%%
{WHITE}*\n { carto_file_line++;
return OPAL_CARTO_FILE_NEWLINE; }
#.*\n { carto_file_line++;
return OPAL_CARTO_FILE_NEWLINE; }
"//".*\n { carto_file_line++;
return OPAL_CARTO_FILE_NEWLINE; }
"/*" { BEGIN(comment);
return OPAL_CARTO_FILE_NEWLINE; }
<comment>[^*\n]* ; /* Eat up non '*'s */
<comment>"*"+[^*/\n]* ; /* Eat '*'s not followed by a '/' */
<comment>\n { carto_file_line++;
return OPAL_CARTO_FILE_NEWLINE; }
<comment>"*"+"/" { BEGIN(INITIAL); /* Done with Block Comment */
return OPAL_CARTO_FILE_NEWLINE; }
{WHITE}+ ; /* whitespace */
EDGE { carto_file_value.sval = yytext;
return OPAL_CARTO_FILE_NODE_DECELERATION; }
BRANCH { carto_file_value.sval = yytext;
return OPAL_CARTO_FILE_CONNECTION_DECELERATION; }
BRANCH_BI_DIR { carto_file_value.sval = yytext;
return OPAL_CARTO_FILE_BIDIRECTION_CONNECTION; }
[0-9] { carto_file_value.ival = atol(yytext);
return OPAL_CARTO_FILE_INT; }
[A-Za-z0-9_-]* { carto_file_value.sval = yytext;
return OPAL_CARTO_FILE_NAME; }
([[A-Za-z0-9_\-]*)+":"([0-9]*) { carto_file_value.sval = yytext;
return OPAL_CARTO_FILE_NODE_CONNECTION; }
%%
|
