Mercurial > octave

annotate libinterp/corefcn/oct-tex-lexer.in.ll @ 25643:afb5288a25ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
move text engine classes inside octave namespace * text-engine.cc: Rename from txt-eng.cc. * text-engine.h: Rename from txt-eng.h. Change all uses. * txt-eng.h: Provide for backward-compatibility. * libinterp/corefcn/module.mk: Update. * text-engine.cc, text-engine.h: Move classes inside octave namespace. Change all uses.
author John W. Eaton <jwe@octave.org>
date Thu, 19 Jul 2018 13:28:51 -0400
parents 6652d3823428
children 00f796120a6d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
25054
6652d3823428 maint: Update copyright dates in all source files.
John W. Eaton <jwe@octave.org>
parents: 24534
diff changeset
3 Copyright (C) 2013-2018 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
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24444
diff changeset
7 Octave is free software: you can redistribute it and/or modify it
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
8 under the terms of the GNU General Public License as published by
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24444
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
10 (at your option) any later version.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
11
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
15 GNU General Public License for more details.
17269
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
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24444
diff changeset
19 <https://www.gnu.org/licenses/>.
17269
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)
22003
2d3972b802ff use consistent style for including config.h in source files
John W. Eaton <jwe@octave.org>
parents: 21995
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)
24444
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
29 // This one needs to be global.
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
30 # pragma GCC diagnostic ignored "-Wunused-function"
21023
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
31
24444
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
32 // Disable these warnings for code that is generated by flex, including
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
33 // pattern rules. Push the current state so we can restore the warning
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
34 // state prior to functions we define at the bottom of the file.
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
35 # pragma GCC diagnostic push
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
36 # pragma GCC diagnostic ignored "-Wold-style-cast"
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
37 # pragma GCC diagnostic ignored "-Wsign-compare"
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
38 # pragma GCC diagnostic ignored "-Wzero-as-null-pointer-constant"
21023
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
39 #endif
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
40
21332
db574711df78 eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents: 21301
diff changeset
41 // 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
42 // potential warnings about it.
db574711df78 eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents: 21301
diff changeset
43 #if ! defined (register)
21724
aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents: 21332
diff changeset
44 # define register
21332
db574711df78 eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents: 21301
diff changeset
45 #endif
db574711df78 eliminate deprecated register storage class specifier
John W. Eaton <jwe@octave.org>
parents: 21301
diff changeset
46
21023
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
47 }
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
48
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
49 %option prefix = "octave_tex_"
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
50 %option noyywrap
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
51 %option reentrant
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
52 %option bison-bridge
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
53
19784
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
54 %option noyyalloc
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
55 %option noyyrealloc
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
56 %option noyyfree
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
57
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
58 %x NUM_MODE
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
59 %x MAYBE_NUM_MODE
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
60
17634
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
61 %{
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
62
21910
4d723ba06b4a provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents: 21772
diff changeset
63 #include "unistd-wrappers.h"
17634
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
64
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
65 #include "text-engine.h"
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
66
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
67 // oct-tex-parser.h must be included after text-engine.h
17634
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
68 #include "oct-tex-parser.h"
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
69
19775
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
70 // 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
71 // 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
72 // 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
73 // 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
74 // 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
75 // 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
76
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
77 #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
78 # define YYSTYPE OCTAVE_TEX_STYPE
19775
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
79 #endif
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19697
diff changeset
80
21910
4d723ba06b4a provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents: 21772
diff changeset
81 #define YY_NO_UNISTD_H 1
4d723ba06b4a provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents: 21772
diff changeset
82 #define isatty octave_isatty_wrapper
21995
66f3c4e81721 Rename bison/flex internal symbol names to silence "one definition rule" warning
Robert Jenssen <robertjenssen@ozemail.com.au>
parents: 21987
diff changeset
83 #define yyguts_t octave_tex_yyguts_t
21910
4d723ba06b4a provide wrappers for some unistd.h functions
John W. Eaton <jwe@octave.org>
parents: 21772
diff changeset
84
17634
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
85 %}
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
86
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
87 D [0-9]
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
88 NUM (({D}+\.?{D}*)|(\.{D}+))
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
89
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
90 %%
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
91
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
92 %{
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
93 // Numeric values.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
94 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
95
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
96 <NUM_MODE>{NUM} {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
97 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
98
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
99 if (nread == 1)
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
100 return NUM;
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
101 }
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
102
21772
72bf7fbc8210 Allow comma in \color[rgb] specification for text objects (bug #48003).
Rik <rik@octave.org>
parents: 21724
diff changeset
103 <NUM_MODE>[, \t]+ { }
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
104
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
105 <NUM_MODE>"\n"|. {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
106 yyless (0);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
107 BEGIN (INITIAL);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
108 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
109
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
110 <MAYBE_NUM_MODE>"{" {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
111 BEGIN (NUM_MODE);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
112 return START;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
113 }
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 <MAYBE_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
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
120 %{
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
121 // Simple commands.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
122 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
123
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
124 "\\bf" { return BF; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
125 "\\it" { return IT; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
126 "\\sl" { return SL; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
127 "\\rm" { return RM; }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
128
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
129 %{
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
130 // Generic font commands.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
131 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
132
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
133 "\\fontname" { return FONTNAME; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
134
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
135 "\\fontsize" {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
136 BEGIN (MAYBE_NUM_MODE);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
137 return FONTSIZE;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
138 }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
139
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
140 "\\color[rgb]" {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
141 BEGIN (MAYBE_NUM_MODE);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
142 return COLOR_RGB;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
143 }
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 "\\color" { return COLOR; }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
146
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
147 %{
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
148 // Special characters.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
149 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
150
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
151 "{" { return START; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
152 "}" { return END; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
153 "^" { return SUPER; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
154 "_" { return SUB; }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
155
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
156 "\\{" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
157 "\\}" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
158 "\\^" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
159 "\\_" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
160 "\\\\" {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
161 yylval->ch = yytext[1];
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
162 return CH;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
163 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
164
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 // Symbols.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
167 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
168
17327
fe6518a1d87c Move TeX symbol decoding into the lexer (bug #39831).
Michael Goffioul <michael.goffioul@gmail.com>
parents: 17320
diff changeset
169 @SYMBOL_RULES@
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
170
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
171 %{
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
172 // Generic character.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
173 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
174
20541
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
175 "\n" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
176 . {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
177 yylval->ch = yytext[0];
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
178 return CH;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19784
diff changeset
179 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
180
21023
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
181 %{
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
182 #if defined (HAVE_PRAGMA_GCC_DIAGNOSTIC)
24444
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
183 // Also disable this warning for functions that are generated by flex
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
184 // after the pattern rules.
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
185 # pragma GCC diagnostic ignored "-Wunused-parameter"
21023
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
186 #endif
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
187 %}
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
188
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
189 %%
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 #if defined (HAVE_PRAGMA_GCC_DIAGNOSTIC)
24444
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
192 // Restore prevailing warning state for remainder of the file.
53ca76c5cc8d maint: Indent pragmas as other preprocessor directives.
John W. Eaton <jwe@octave.org>
parents: 23796
diff changeset
193 # pragma GCC diagnostic pop
21023
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
194 #endif
ec532a439c6f rework method of disabling warnings from GCC
John W. Eaton <jwe@octave.org>
parents: 20541
diff changeset
195
19784
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
196 void *
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
197 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
198 {
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
199 return malloc (size);
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
200 }
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
201
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
202 void *
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
203 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
204 {
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
205 return realloc (ptr, size);
19784
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
206 }
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
207
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
208 void
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
209 octave_tex_free (void *ptr, yyscan_t)
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 free (ptr);
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
212 }
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19775
diff changeset
213
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
214 namespace octave
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
215 {
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
216 bool text_parser_tex::init_lexer (const std::string& s)
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
217 {
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
218 if (! scanner)
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
219 octave_tex_lex_init (&scanner);
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
220
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
221 if (scanner)
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
222 {
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
223 if (buffer_state)
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
224 {
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
225 octave_tex__delete_buffer (reinterpret_cast<YY_BUFFER_STATE> (buffer_state),
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
226 scanner);
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
227 buffer_state = nullptr;
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
228 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
229
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
230 buffer_state = octave_tex__scan_bytes (s.data (), s.length (), scanner);
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
231 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
232
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
233 return (scanner && buffer_state);
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
234 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
235
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
236 void text_parser_tex::destroy_lexer (void)
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
237 {
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
238 if (buffer_state)
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
239 {
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
240 octave_tex__delete_buffer (reinterpret_cast<YY_BUFFER_STATE> (buffer_state),
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
241 scanner);
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
242 buffer_state = nullptr;
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
243 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
244
25643
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
245 if (scanner)
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
246 {
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
247 octave_tex_lex_destroy (scanner);
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
248 scanner = nullptr;
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
249 }
afb5288a25ad move text engine classes inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
250 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
251 }