Mercurial > octave-nkf

annotate libinterp/corefcn/oct-tex-lexer.in.ll @ 20573:e3c0fee87493

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes for tex lexer and parser * oct-tex-lexer.in.ll, oct-tex-parser.in.yy: Eliminate tabs and reindent.
author John W. Eaton <jwe@octave.org>
date Fri, 02 Oct 2015 12:25:39 -0400
parents a3577622952c
children
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
19731
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
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
23 %option prefix = "octave_tex_"
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
24 %option noyywrap
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
25 %option reentrant
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
26 %option bison-bridge
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
27
19818
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
28 %option noyyalloc
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
29 %option noyyrealloc
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
30 %option noyyfree
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
31
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
32 %top {
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
33 #ifdef HAVE_CONFIG_H
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
34 #include <config.h>
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
35 #endif
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
36
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
37 }
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
38
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
39 %x NUM_MODE
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
40 %x MAYBE_NUM_MODE
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
41
17634
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
42 %{
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
43
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
44 // 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
45 // 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
46 // identifier.
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
47
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
48 #include <sys/types.h>
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
49 #include <unistd.h>
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
50
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
51 #include "txt-eng.h"
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
52 #include "oct-tex-parser.h"
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
53
19809
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19731
diff changeset
54 // 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: 19731
diff changeset
55 // oct-parse.h file, but there is no definition for YYSTYPE, which is
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
56 // 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: 19818
diff changeset
57 // 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: 19818
diff changeset
58 // 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: 19818
diff changeset
59 // of YYSTYPE in the generated oct-parse.h file.
19809
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19731
diff changeset
60
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19731
diff changeset
61 #if defined (OCTAVE_TEX_STYPE_IS_DECLARED) && ! defined YYSTYPE
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19731
diff changeset
62 #define YYSTYPE OCTAVE_TEX_STYPE
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19731
diff changeset
63 #endif
a941a65c7cb8 handle bison syntax changes in TeX parser
John W. Eaton <jwe@octave.org>
parents: 19731
diff changeset
64
17634
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
65 #if defined (GNULIB_NAMESPACE)
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
66 // 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: 19818
diff changeset
67 // 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: 19818
diff changeset
68 // them via the gnulib namespace.
17634
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
69 #define fprintf GNULIB_NAMESPACE::fprintf
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
70 #define fread GNULIB_NAMESPACE::fread
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
71 #define fwrite GNULIB_NAMESPACE::fwrite
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
72 #define getc GNULIB_NAMESPACE::getc
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
73 #define isatty GNULIB_NAMESPACE::isatty
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
74 #define malloc GNULIB_NAMESPACE::malloc
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
75 #define realloc GNULIB_NAMESPACE::realloc
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
76 #endif
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
77
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
78 %}
bdbf91c0a1a4 avoid warnings about symbols without gnulib:: namespace tag
John W. Eaton <jwe@octave.org>
parents: 17327
diff changeset
79
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
80 D [0-9]
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
81 NUM (({D}+\.?{D}*)|(\.{D}+))
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
82
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
83 %%
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
84
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
85 %{
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
86 // Numeric values.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
87 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
88
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
89 <NUM_MODE>{NUM} {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
90 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
91
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
92 if (nread == 1)
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
93 return NUM;
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
94 }
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
95
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
96 <NUM_MODE>[ \t]+ { }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
97
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
98 <NUM_MODE>"\n"|. {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
99 yyless (0);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
100 BEGIN (INITIAL);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
101 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
102
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
103 <MAYBE_NUM_MODE>"{" {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
104 BEGIN (NUM_MODE);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
105 return START;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
106 }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
107
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
108 <MAYBE_NUM_MODE>"\n"|. {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
109 yyless (0);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
110 BEGIN (INITIAL);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
111 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
112
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
113 %{
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
114 // Simple commands.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
115 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
116
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
117 "\\bf" { return BF; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
118 "\\it" { return IT; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
119 "\\sl" { return SL; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
120 "\\rm" { return RM; }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
121
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
122 %{
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
123 // Generic font commands.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
124 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
125
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
126 "\\fontname" { return FONTNAME; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
127
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
128 "\\fontsize" {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
129 BEGIN (MAYBE_NUM_MODE);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
130 return FONTSIZE;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
131 }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
132
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
133 "\\color[rgb]" {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
134 BEGIN (MAYBE_NUM_MODE);
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
135 return COLOR_RGB;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
136 }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
137
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
138 "\\color" { return COLOR; }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
139
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
140 %{
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
141 // Special characters.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
142 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
143
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
144 "{" { return START; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
145 "}" { return END; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
146 "^" { return SUPER; }
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
147 "_" { return SUB; }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
148
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
149 "\\{" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
150 "\\}" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
151 "\\^" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
152 "\\_" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
153 "\\\\" {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
154 yylval->ch = yytext[1];
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
155 return CH;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
156 }
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
157
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
158 %{
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
159 // Symbols.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
160 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
161
17327
fe6518a1d87c Move TeX symbol decoding into the lexer (bug #39831).
Michael Goffioul <michael.goffioul@gmail.com>
parents: 17320
diff changeset
162 @SYMBOL_RULES@
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
163
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
164 %{
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
165 // Generic character.
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
166 %}
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
167
20573
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
168 "\n" |
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
169 . {
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
170 yylval->ch = yytext[0];
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
171 return CH;
e3c0fee87493 style fixes for tex lexer and parser
John W. Eaton <jwe@octave.org>
parents: 19818
diff changeset
172 }
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 %%
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
175
19818
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
176 void *
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
177 octave_tex_alloc (yy_size_t size, yyscan_t)
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
178 {
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
179 return malloc (size);
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
180 }
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
181
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
182 void *
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
183 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: 19809
diff changeset
184 {
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
185 return realloc (ptr, size);
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
186 }
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
187
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
188 void
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
189 octave_tex_free (void *ptr, yyscan_t)
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
190 {
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
191 free (ptr);
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
192 }
a3577622952c avoid some GCC unused parameter warnings
John W. Eaton <jwe@octave.org>
parents: 19809
diff changeset
193
17269
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
194 bool
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
195 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
196 {
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
197 if (! scanner)
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
198 octave_tex_lex_init (&scanner);
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 if (scanner)
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
201 {
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
202 if (buffer_state)
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
203 {
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
204 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
205 scanner);
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
206 buffer_state = 0;
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
207 }
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
208
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
209 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
210 }
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
211
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
212 return (scanner && buffer_state);
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
213 }
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
214
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
215 void
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
216 text_parser_tex::destroy_lexer (void)
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
217 {
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
218 if (buffer_state)
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
219 {
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
220 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
221 scanner);
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
222 buffer_state = 0;
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
223 }
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
224
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
225 if (scanner)
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 octave_tex_lex_destroy (scanner);
5b088598df1d Add simple TeX parser based on flex/bison.
Michael Goffioul <michael.goffioul@gmail.com>
parents:
diff changeset
228 scanner = 0;
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 }