1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133
|
<!-- Generator: GNU source-highlight
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
<pre><tt><b><font color="#000080">%{</font></b>
<i><font color="#9A1900">/*</font></i>
<i><font color="#9A1900"> * Copyright (C) 1999, 2000, 2001 Lorenzo Bettini </font></i><u><font color="#0000FF"><http://www.lorenzobettini.it></font></u>
<i><font color="#9A1900"> *</font></i>
<i><font color="#9A1900"> * This program is free software; you can redistribute it and/or modify</font></i>
<i><font color="#9A1900"> * it under the terms of the GNU General Public License as published by</font></i>
<i><font color="#9A1900"> * the Free Software Foundation; either version 2 of the License, or</font></i>
<i><font color="#9A1900"> * (at your option) any later version.</font></i>
<i><font color="#9A1900"> *</font></i>
<i><font color="#9A1900"> * This program is distributed in the hope that it will be useful,</font></i>
<i><font color="#9A1900"> * but WITHOUT ANY WARRANTY; without even the implied warranty of</font></i>
<i><font color="#9A1900"> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</font></i>
<i><font color="#9A1900"> * GNU General Public License for more details.</font></i>
<i><font color="#9A1900"> *</font></i>
<i><font color="#9A1900"> * You should have received a copy of the GNU General Public License</font></i>
<i><font color="#9A1900"> * along with this program; if not, write to the Free Software</font></i>
<i><font color="#9A1900"> * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.</font></i>
<i><font color="#9A1900"> *</font></i>
<i><font color="#9A1900"> */</font></i>
<b><font color="#000080">#include</font></b> <font color="#FF0000"><stdio.h></font>
<b><font color="#000080">#include</font></b> <font color="#FF0000"><stdlib.h></font>
<b><font color="#000080">#include</font></b> <font color="#FF0000"><string.h></font>
<b><font color="#000080">#include</font></b> <font color="#FF0000"><iostream></font>
<b><font color="#000080">#include</font></b> <font color="#FF0000">"my_sstream.h"</font>
<b><font color="#000080">#include</font></b> <font color="#FF0000">"tags.h"</font>
<b><font color="#000080">#include</font></b> <font color="#FF0000">"colors.h"</font>
<b><font color="#000080">#include</font></b> <font color="#FF0000">"keys.h"</font>
<b><font color="#000080">#include</font></b> <font color="#FF0000">"messages.h"</font>
<b><font color="#000080">#include</font></b> <font color="#FF0000">"parsetags.h"</font>
<b><font color="#000080">#include</font></b> <font color="#FF0000">"fileutil.h"</font>
<b><font color="#0000FF">using</font></b> std<font color="#990000">::</font>cerr<font color="#990000">;</font>
<b><font color="#0000FF">static</font></b> <font color="#009900">int</font> <b><font color="#000000">yyparse</font></b><font color="#990000">()</font> <font color="#990000">;</font>
<b><font color="#0000FF">static</font></b> <font color="#009900">void</font> <b><font color="#000000">yyerror</font></b><font color="#990000">(</font> <font color="#009900">char</font> <font color="#990000">*</font>s <font color="#990000">)</font> <font color="#990000">;</font>
<font color="#009900">int</font> line <font color="#990000">=</font> <font color="#993399">1</font> <font color="#990000">;</font>
<b><font color="#0000FF">static</font></b> <font color="#009900">void</font> <b><font color="#000000">add_tag</font></b><font color="#990000">(</font><font color="#008080">Tags</font> <font color="#990000">*</font>tags<font color="#990000">,</font> <font color="#008080">Tag</font> <font color="#990000">*</font>t<font color="#990000">);</font>
<b><font color="#0000FF">extern</font></b> <font color="#009900">int</font> <b><font color="#000000">opsc_lex</font></b><font color="#990000">()</font> <font color="#990000">;</font>
<b><font color="#0000FF">extern</font></b> <font color="#008080">FILE</font> <font color="#990000">*</font>opsc_in <font color="#990000">;</font>
<b><font color="#000080">%}</font></b>
%<b><font color="#000080">union</font></b> {
<b><font color="#000080">int</font></b> tok <font color="#990000">;</font> <font color="#990000">/*</font> command <font color="#990000">*/</font>
<b><font color="#000080">char</font></b> <font color="#990000">*</font> string <font color="#990000">;</font> <font color="#990000">/*</font> string <font color="#990000">:</font> id<font color="#990000">,</font> <font color="#990000">...</font> <font color="#990000">*/</font>
<b><font color="#000080">int</font></b> flag <font color="#990000">;</font>
<b><font color="#000080">Tag</font></b> <font color="#990000">*</font>tag <font color="#990000">;</font>
<b><font color="#000080">Tags</font></b> <font color="#990000">*</font>tags <font color="#990000">;</font>
} ;
%<b><font color="#000080">token</font></b> <font color="#990000"><</font>flag<font color="#990000">></font> BOLD ITALICS UNDERLINE
%<b><font color="#000080">token</font></b> <font color="#990000"><</font>string<font color="#990000">></font> KEY COLOR
%<b><font color="#000080">type</font></b> <font color="#990000"><</font>tag<font color="#990000">></font> option
%<b><font color="#000080">type</font></b> <font color="#990000"><</font>tags<font color="#990000">></font> options
%<b><font color="#000080">type</font></b> <font color="#990000"><</font>flag<font color="#990000">></font> values value
<b><font color="#000080">%%</font></b>
globaltags <font color="#990000">:</font> options <font color="#FF0000">{</font> <b><font color="#000000">setTags</font></b><font color="#990000">(</font> <font color="#009900">$1</font> <font color="#990000">)</font> <font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#990000">;</font>
options <font color="#990000">:</font> options option <font color="#FF0000">{</font> <b><font color="#000000">add_tag</font></b><font color="#990000">(</font> <font color="#009900">$1</font><font color="#990000">,</font> <font color="#009900">$2</font> <font color="#990000">)</font> <font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#990000">|</font> option <font color="#FF0000">{</font> <font color="#009900">$$</font> <font color="#990000">=</font> <b><font color="#0000FF">new</font></b> <b><font color="#000000">Tags</font></b><font color="#990000">()</font> <font color="#990000">;</font> <font color="#009900">$$</font><font color="#990000">-></font><b><font color="#000000">AddTag</font></b><font color="#990000">(</font> <font color="#009900">$1</font> <font color="#990000">)</font> <font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#990000">;</font>
option <font color="#990000">:</font> KEY COLOR
<font color="#FF0000">{</font>
<b><font color="#000000">printMessage</font></b><font color="#990000">(</font> <font color="#009900">$1</font> <font color="#990000">)</font> <font color="#990000">;</font>
<b><font color="#000000">printMessage</font></b><font color="#990000">(</font> <font color="#009900">$2</font> <font color="#990000">)</font> <font color="#990000">;</font>
<font color="#FF0000">}</font>
values '<font color="#990000">;</font>'
<font color="#FF0000">{</font>
<font color="#009900">$$</font> <font color="#990000">=</font> <b><font color="#0000FF">new</font></b> <b><font color="#000000">Tag</font></b><font color="#990000">(</font> <font color="#009900">$1</font><font color="#990000">,</font> <font color="#009900">$2</font> <font color="#990000">)</font> <font color="#990000">;</font>
<font color="#009900">$$</font><font color="#990000">-></font><b><font color="#000000">SetFlags</font></b><font color="#990000">(</font><font color="#009900">$4</font><font color="#990000">)</font> <font color="#990000">;</font>
<font color="#FF0000">}</font>
<font color="#990000">;</font>
values <font color="#990000">:</font> values '<font color="#990000">,</font>' value <font color="#FF0000">{</font> <font color="#009900">$$</font> <font color="#990000">=</font> <font color="#009900">$1</font> <font color="#990000">|</font> <font color="#009900">$3</font> <font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#990000">|</font> value
<font color="#990000">;</font>
value <font color="#990000">:</font> <font color="#FF0000">{</font> <font color="#009900">$$</font> <font color="#990000">=</font> <font color="#993399">0</font> <font color="#990000">;</font> <b><font color="#000000">printMessage</font></b><font color="#990000">(</font> <font color="#FF0000">" (no options) "</font> <font color="#990000">)</font> <font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#990000">|</font> BOLD <font color="#FF0000">{</font> <b><font color="#000000">printMessage</font></b><font color="#990000">(</font> <font color="#FF0000">" - bold"</font> <font color="#990000">)</font> <font color="#990000">;</font> <font color="#009900">$$</font> <font color="#990000">=</font> ISBOLD <font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#990000">|</font> ITALICS <font color="#FF0000">{</font> <b><font color="#000000">printMessage</font></b><font color="#990000">(</font> <font color="#FF0000">" - italics"</font> <font color="#990000">)</font> <font color="#990000">;</font> <font color="#009900">$$</font> <font color="#990000">=</font> ISITALIC <font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#990000">|</font> UNDERLINE <font color="#FF0000">{</font> <b><font color="#000000">printMessage</font></b><font color="#990000">(</font> <font color="#FF0000">" - underline"</font> <font color="#990000">)</font> <font color="#990000">;</font> <font color="#009900">$$</font> <font color="#990000">=</font> ISUNDERLINE <font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#990000">;</font>
<b><font color="#000080">%%</font></b>
<font color="#009900">char</font> <font color="#990000">*</font>current_file <font color="#990000">=</font> <font color="#993399">0</font><font color="#990000">;</font>
<font color="#009900">void</font>
<b><font color="#000000">parseTags</font></b><font color="#990000">(</font><b><font color="#0000FF">const</font></b> <font color="#008080">string</font> <font color="#990000">&</font>path<font color="#990000">,</font> <b><font color="#0000FF">const</font></b> <font color="#008080">string</font> <font color="#990000">&</font>name<font color="#990000">)</font>
<font color="#FF0000">{</font>
<i><font color="#9A1900">// opens the file for yylex</font></i>
opsc_in <font color="#990000">=</font> <b><font color="#000000">open_data_file_stream</font></b><font color="#990000">(</font>path<font color="#990000">,</font> name<font color="#990000">);</font>
<b><font color="#000000">printMessage_noln</font></b><font color="#990000">(</font> <font color="#FF0000">"Parsing "</font><font color="#990000">,</font> cerr <font color="#990000">)</font> <font color="#990000">;</font>
<b><font color="#000000">printMessage_noln</font></b> <font color="#990000">(</font>name<font color="#990000">,</font> cerr<font color="#990000">);</font>
<b><font color="#000000">printMessage</font></b><font color="#990000">(</font> <font color="#FF0000">" file ..."</font><font color="#990000">,</font> cerr <font color="#990000">)</font> <font color="#990000">;</font>
<b><font color="#000000">yyparse</font></b><font color="#990000">()</font> <font color="#990000">;</font>
<b><font color="#000000">printMessage</font></b><font color="#990000">(</font> <font color="#FF0000">"Parsing done!"</font><font color="#990000">,</font> cerr <font color="#990000">)</font> <font color="#990000">;</font>
<font color="#FF0000">}</font>
<font color="#009900">void</font>
<b><font color="#000000">yyerror</font></b><font color="#990000">(</font> <font color="#009900">char</font> <font color="#990000">*</font>s <font color="#990000">)</font>
<font color="#FF0000">{</font>
<font color="#008080">ostringstream</font> str <font color="#990000">;</font>
str <font color="#990000"><<</font> current_file <font color="#990000"><<</font> <font color="#FF0000">":"</font> <font color="#990000"><<</font> line <font color="#990000"><<</font> <font color="#FF0000">": "</font> <font color="#990000"><<</font> s <font color="#990000"><<</font> <font color="#FF0000">", in option declaration"</font><font color="#990000">;</font>
<b><font color="#000000">printError</font></b><font color="#990000">(</font> str<font color="#990000">.</font><b><font color="#000000">str</font></b><font color="#990000">().</font><b><font color="#000000">c_str</font></b><font color="#990000">(),</font> cerr <font color="#990000">)</font> <font color="#990000">;</font>
<b><font color="#000000">exit</font></b><font color="#990000">(</font>EXIT_FAILURE<font color="#990000">);</font>
<font color="#FF0000">}</font>
<font color="#009900">void</font>
<b><font color="#000000">add_tag</font></b><font color="#990000">(</font><font color="#008080">Tags</font> <font color="#990000">*</font>tags<font color="#990000">,</font> <font color="#008080">Tag</font> <font color="#990000">*</font>t<font color="#990000">)</font>
<font color="#FF0000">{</font>
<b><font color="#0000FF">if</font></b> <font color="#990000">(!</font> tags<font color="#990000">-></font><b><font color="#000000">AddTag</font></b><font color="#990000">(</font>t<font color="#990000">))</font>
<font color="#FF0000">{</font>
<b><font color="#000000">yyerror</font></b><font color="#990000">(</font><font color="#FF0000">"already defined"</font><font color="#990000">);</font>
<font color="#FF0000">}</font>
<font color="#FF0000">}</font>
</tt></pre>
|