Mercurial > octave
annotate libinterp/corefcn/oct-tex-lexer.in.ll @ 21772:72bf7fbc8210
Allow comma in \color[rgb] specification for text objects (bug #48003).
* oct-tex-lexer.in.ll: Add ',' to list of ignored characters in NUM_MODE.
author | Rik <rik@octave.org> |
---|---|
date | Tue, 24 May 2016 12:14:38 -0700 |
parents | aba2e6293dd8 |
children | 4d723ba06b4a |
rev | line source |
---|---|
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
1 /* |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
2 |
19697
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
17634
diff
changeset
|
3 Copyright (C) 2013-2015 Michael Goffioul |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
4 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
5 This file is part of Octave. |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
6 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
7 Octave is free software; you can redistribute it and/or modify it |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
8 under the terms of the GNU General Public License as published by the |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
9 Free Software Foundation; either version 3 of the License, or (at your |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
10 option) any later version. |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
11 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
12 Octave is distributed in the hope that it will be useful, but WITHOUT |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
15 for more details. |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
16 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
17 You should have received a copy of the GNU General Public License |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
18 along with Octave; see the file COPYING. If not, see |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
19 <http://www.gnu.org/licenses/>. |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
20 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
21 */ |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
22 |
21023
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
23 %top { |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
24 #if defined (HAVE_CONFIG_H) |
21301
40de9f8f23a6
Use '#include "config.h"' rather than <config.h>.
Rik <rik@octave.org>
parents:
21023
diff
changeset
|
25 #include "config.h" |
21023
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
26 #endif |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
27 |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
28 #if defined (HAVE_PRAGMA_GCC_DIAGNOSTIC) |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
29 // This one needs to be global. |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
30 #pragma GCC diagnostic ignored "-Wunused-function" |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
31 |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
32 // Disable this warning for code that is generated by flex, including |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
33 // pattern rules. Push the current state so we can restore the warning |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
34 // state prior to functions we define at the bottom of the file. |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
35 #pragma GCC diagnostic push |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
36 #pragma GCC diagnostic ignored "-Wold-style-cast" |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
37 #endif |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
38 |
21332
db574711df78
eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents:
21301
diff
changeset
|
39 // Define away the deprecated register storage class specifier to avoid |
db574711df78
eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents:
21301
diff
changeset
|
40 // potential warnings about it. |
db574711df78
eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents:
21301
diff
changeset
|
41 #if ! defined (register) |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
42 # define register |
21332
db574711df78
eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents:
21301
diff
changeset
|
43 #endif |
db574711df78
eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents:
21301
diff
changeset
|
44 |
21023
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
45 } |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
46 |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
47 %option prefix = "octave_tex_" |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
48 %option noyywrap |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
49 %option reentrant |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
50 %option bison-bridge |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
51 |
19784
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
52 %option noyyalloc |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
53 %option noyyrealloc |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
54 %option noyyfree |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
55 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
56 %x NUM_MODE |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
57 %x MAYBE_NUM_MODE |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
58 |
17634
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
59 %{ |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
60 |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
61 // The generated code may include unistd.h. We need that to happen |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
62 // before defining isatty to be prefixed with the gnulib namespace |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
63 // identifier. |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
64 |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
65 #include <sys/types.h> |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
66 #include <unistd.h> |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
67 |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
68 #include "txt-eng.h" |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
69 #include "oct-tex-parser.h" |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
70 |
19775
a941a65c7cb8
handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents:
19697
diff
changeset
|
71 // FIXME: with bison 3.x, OCTAVE_TEX_STYPE appears in the generated |
a941a65c7cb8
handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents:
19697
diff
changeset
|
72 // oct-parse.h file, but there is no definition for YYSTYPE, which is |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
73 // needed by the code that is generated by flex. I can't seem to find |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
74 // a way to tell flex to use OCTAVE_TEX_STYPE instead of YYSTYPE in |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
75 // the code it generates, or to tell bison to provide the definition |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
76 // of YYSTYPE in the generated oct-parse.h file. |
19775
a941a65c7cb8
handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents:
19697
diff
changeset
|
77 |
a941a65c7cb8
handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents:
19697
diff
changeset
|
78 #if defined (OCTAVE_TEX_STYPE_IS_DECLARED) && ! defined YYSTYPE |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
79 # define YYSTYPE OCTAVE_TEX_STYPE |
19775
a941a65c7cb8
handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents:
19697
diff
changeset
|
80 #endif |
a941a65c7cb8
handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents:
19697
diff
changeset
|
81 |
17634
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
82 #if defined (GNULIB_NAMESPACE) |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
83 // Calls to the following functions appear in the generated output |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
84 // from flex without the namespace tag. Redefine them so we will use |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
85 // them via the gnulib namespace. |
21724
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
86 # define fprintf GNULIB_NAMESPACE::fprintf |
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
87 # define fread GNULIB_NAMESPACE::fread |
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
88 # define fwrite GNULIB_NAMESPACE::fwrite |
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
89 # define getc GNULIB_NAMESPACE::getc |
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
90 # define isatty GNULIB_NAMESPACE::isatty |
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
91 # define malloc GNULIB_NAMESPACE::malloc |
aba2e6293dd8
use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents:
21332
diff
changeset
|
92 # define realloc GNULIB_NAMESPACE::realloc |
17634
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
93 #endif |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
94 |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
95 %} |
bdbf91c0a1a4
avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents:
17327
diff
changeset
|
96 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
97 D [0-9] |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
98 NUM (({D}+\.?{D}*)|(\.{D}+)) |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
99 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
100 %% |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
101 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
102 %{ |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
103 // Numeric values. |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
104 %} |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
105 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
106 <NUM_MODE>{NUM} { |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
107 int nread = sscanf (yytext, "%lf", &(yylval->num)); |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
108 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
109 if (nread == 1) |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
110 return NUM; |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
111 } |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
112 |
21772
72bf7fbc8210
Allow comma in \color[rgb] specification for text objects (bug #48003).
Rik <rik@octave.org>
parents:
21724
diff
changeset
|
113 <NUM_MODE>[, \t]+ { } |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
114 |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
115 <NUM_MODE>"\n"|. { |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
116 yyless (0); |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
117 BEGIN (INITIAL); |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
118 } |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
119 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
120 <MAYBE_NUM_MODE>"{" { |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
121 BEGIN (NUM_MODE); |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
122 return START; |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
123 } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
124 |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
125 <MAYBE_NUM_MODE>"\n"|. { |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
126 yyless (0); |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
127 BEGIN (INITIAL); |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
128 } |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
129 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
130 %{ |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
131 // Simple commands. |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
132 %} |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
133 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
134 "\\bf" { return BF; } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
135 "\\it" { return IT; } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
136 "\\sl" { return SL; } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
137 "\\rm" { return RM; } |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
138 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
139 %{ |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
140 // Generic font commands. |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
141 %} |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
142 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
143 "\\fontname" { return FONTNAME; } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
144 |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
145 "\\fontsize" { |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
146 BEGIN (MAYBE_NUM_MODE); |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
147 return FONTSIZE; |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
148 } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
149 |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
150 "\\color[rgb]" { |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
151 BEGIN (MAYBE_NUM_MODE); |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
152 return COLOR_RGB; |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
153 } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
154 |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
155 "\\color" { return COLOR; } |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
156 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
157 %{ |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
158 // Special characters. |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
159 %} |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
160 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
161 "{" { return START; } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
162 "}" { return END; } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
163 "^" { return SUPER; } |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
164 "_" { return SUB; } |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
165 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
166 "\\{" | |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
167 "\\}" | |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
168 "\\^" | |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
169 "\\_" | |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
170 "\\\\" { |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
171 yylval->ch = yytext[1]; |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
172 return CH; |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
173 } |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
174 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
175 %{ |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
176 // Symbols. |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
177 %} |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
178 |
17327
fe6518a1d87c
Move TeX symbol decoding into the lexer (bug #39831).
Michael Goffioul <michael.goffioul@gmail.com>
parents:
17320
diff
changeset
|
179 @SYMBOL_RULES@ |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
180 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
181 %{ |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
182 // Generic character. |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
183 %} |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
184 |
20541
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
185 "\n" | |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
186 . { |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
187 yylval->ch = yytext[0]; |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
188 return CH; |
e3c0fee87493
style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents:
19784
diff
changeset
|
189 } |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
190 |
21023
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
191 %{ |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
192 #if defined (HAVE_PRAGMA_GCC_DIAGNOSTIC) |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
193 // Also disable this warning for functions that is generated by flex |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
194 // after the pattern rules. |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
195 #pragma GCC diagnostic ignored "-Wunused-parameter" |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
196 #endif |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
197 %} |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
198 |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
199 %% |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
200 |
21023
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
201 #if defined (HAVE_PRAGMA_GCC_DIAGNOSTIC) |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
202 // Restore prevailing warning state for remainder of the file. |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
203 #pragma GCC diagnostic pop |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
204 #endif |
ec532a439c6f
rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents:
20541
diff
changeset
|
205 |
19784
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
206 void * |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
207 octave_tex_alloc (yy_size_t size, yyscan_t) |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
208 { |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
209 return malloc (size); |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
210 } |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
211 |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
212 void * |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
213 octave_tex_realloc (void *ptr, yy_size_t size, yyscan_t) |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
214 { |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
215 return realloc (ptr, size); |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
216 } |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
217 |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
218 void |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
219 octave_tex_free (void *ptr, yyscan_t) |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
220 { |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
221 free (ptr); |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
222 } |
a3577622952c
avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents:
19775
diff
changeset
|
223 |
17269
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
224 bool |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
225 text_parser_tex::init_lexer (const std::string& s) |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
226 { |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
227 if (! scanner) |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
228 octave_tex_lex_init (&scanner); |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
229 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
230 if (scanner) |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
231 { |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
232 if (buffer_state) |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
233 { |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
234 octave_tex__delete_buffer (reinterpret_cast<YY_BUFFER_STATE> (buffer_state), |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
235 scanner); |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
236 buffer_state = 0; |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
237 } |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
238 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
239 buffer_state = octave_tex__scan_bytes (s.data (), s.length (), scanner); |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
240 } |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
241 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
242 return (scanner && buffer_state); |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
243 } |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
244 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
245 void |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
246 text_parser_tex::destroy_lexer (void) |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
247 { |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
248 if (buffer_state) |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
249 { |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
250 octave_tex__delete_buffer (reinterpret_cast<YY_BUFFER_STATE> (buffer_state), |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
251 scanner); |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
252 buffer_state = 0; |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
253 } |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
254 |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
255 if (scanner) |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
256 { |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
257 octave_tex_lex_destroy (scanner); |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
258 scanner = 0; |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
259 } |
5b088598df1d
Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff
changeset
|
260 } |