%{
/*
 * Copyright (C) 1999-2005, Lorenzo Bettini, http://www.lorenzobettini.it
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <sstream>
#include "outlangdefparser.h"
#include "outlangdefscanner.h"
#include "fileutil.h"
#include "ioexception.h"
#include <stack>
#include <stdlib.h>
using namespace srchilite;
//#define DEBUG_SCANNER
#ifdef DEBUG_SCANNER
#include <iostream> // for debug
#define DEB(s) std::cerr << s << std::endl; #define DEB2(s,s2) std::cerr << s << ": " << s2 << std::endl; #else #define DEB(s) #define DEB2(s,s2) #endif #define PUSH(s) yy_push_state(s); #define POP() yy_pop_state(); static std::ostringstream buff; static void buffer(const char *s); static void buffer(const char c); static void buffer_escape(const char *c); static const std::string *flush_buffer(); static void open_include_file(const char *file); static void close_include_file(); ParseStructPtr outlang_parsestruct; typedef std::stack<parsestructptr> ParseStructStack;
static ParseStructStack parsestructstack;
%}
%option prefix="outlangdef_"
%option noyywrap
ws [ ]+
tabs [\t]+
nl \n
cr \r
IDE [a-zA-Z_]([a-zA-Z0-9_])*
STRING \"[^\n"]+\"
%option stack
%s COMMENT_STATE STRING_STATE INCLUDE_STATE TRANSLATION_STATE REGEX_STATE LITERAL_STATE TRANSLATED_STATE
%%
<initial,translation_state,translated_state>[ \t] {}
\r {}
<initial,translation_state>"#" { PUSH(COMMENT_STATE); }
<comment_state>[^\n] {}
<comment_state>\n { ++(outlang_parsestruct->line); POP(); }
<initial>"nodoctemplate" { return NODOC_TEMPLATE_T ; }
<initial>"doctemplate" { return DOC_TEMPLATE_T ; }
<initial>"styletemplate" { return STYLE_TEMPLATE_T ; }
<initial>"styleseparator" { return STYLE_SEPARATOR_T ; }
<initial>"bold" { return BOLD_T ; }
<initial>"italics" { return ITALICS_T ; }
<initial>"underline" { return UNDERLINE_T ; }
<initial>"notfixed" { return NOTFIXED_T ; }
<initial>"fixed" { return FIXED_T ; }
<initial>"colormap" { return COLORMAP_T ; }
<initial>"bgcolor" { return BG_COLOR_T ; }
<initial>"color" { return COLOR_T ; }
<initial>"default" { return DEFAULT_T ; }
<initial>"onestyle" { return ONESTYLE_T ; }
<initial>"extension" { return EXTENSION_T ; }
<initial>"anchor" { return ANCHOR_T ; }
<initial>"inline_reference" { return INLINE_REFERENCE_T ; }
<initial>"postline_reference" { return POSTLINE_REFERENCE_T ; }
<initial>"postdoc_reference" { return POSTDOC_REFERENCE_T ; }
<initial>"reference" { return REFERENCE_T ; }
<initial>"lineprefix" { return LINE_PREFIX_T; }
<initial>"linenum" { return LINENUM_T; }
<initial>"translations" { BEGIN(TRANSLATION_STATE); return TRANSLATIONS_T ; }
<initial>"begin" { return BEGIN_T ; }
<initial,translation_state>"end" { BEGIN(INITIAL); return END_T ; }
<initial>"include"[ \t] { BEGIN(INCLUDE_STATE); }
<include_state>{STRING} {
 char *file_name = &yytext[1];
 file_name[strlen(file_name)-1] = '0円';
 try {
 open_include_file(file_name);
 } catch (IOException &e) {
 outlangdef_lval.string = new std::string(e.filename);
 return WRONG_INCLUDE_FILE;
 }
 yypush_buffer_state(yy_create_buffer( outlangdef_in, YY_BUF_SIZE));
 BEGIN(INITIAL);
}
<<eof>> {
 fclose(outlangdef_in);
 outlangdef_in = 0;
 yypop_buffer_state();
 if ( !YY_CURRENT_BUFFER )
 {
 yyterminate();
 }
 else
 close_include_file();
}
<initial>{IDE} { DEB2("KEY",yytext); outlangdef_lval.string = new std::string(yytext) ; return KEY ; }
<initial>"=" { return '=' ; }
<initial>"," { return ',' ; }
<initial>"+" { return '+' ; }
<initial>\" { BEGIN(STRING_STATE) ; }
<string_state>"\\x"[0-9a-zA-Z][0-9a-zA-Z] {
 string s = &yytext[1];
 s = "0" + s;
 int i = strtol(s.c_str(), (char **)NULL, 0);
 buffer( (char)i ) ;
}
<string_state>\\\\ { buffer( yytext ) ; }
<string_state>"\\\"" { buffer( "\"" ) ; }
<string_state>\" { BEGIN(INITIAL) ; outlangdef_lval.string = flush_buffer() ; DEB2("STRINGDEF",outlangdef_lval.string); return STRINGDEF; }
<string_state>[^\n]&#124;" " { buffer( yytext ) ; }
<string_state>\n { buffer( "\n" ) ; }
<div class="naked_tr">\" { BEGIN(LITERAL_STATE) ; }
<literal_state>("*"&#124;"."&#124;"?"&#124;"+"&#124;"("&#124;")"&#124;"{"&#124;"}"&#124;"["&#124;"]"&#124;"^"&#124;"$"&#124;"&#124;") { buffer_escape( yytext ) ; }
<literal_state>\\\\ { buffer( yytext ) ; }
<literal_state>"\\\"" { buffer( yytext ) ; }
<literal_state>\" { BEGIN(TRANSLATION_STATE) ; outlangdef_lval.string = flush_buffer() ; DEB2("STRINGDEF",loutlangdef_lval.string); return REGEXDEF; }
<literal_state>[^\n]&#124;" " { buffer( yytext ) ; }
<div class="naked_tr">\' { BEGIN(REGEX_STATE) ; }
<regex_state>\\\\ { buffer( yytext ) ; }
<regex_state>"\\'" { buffer( "'" ) ; }
<regex_state>\' {
 BEGIN(TRANSLATED_STATE) ;
 // entering TRANSLATED_STATE makes sure that 'regex' is used only
 // for specifying the sequence to be translated, and not the translated sequence
 outlangdef_lval.string = flush_buffer() ;
 DEB2("STRINGDEF",outlangdef_lval.string); return REGEXDEF;
}
<regex_state>[^\n] { buffer( yytext ) ; }
<initial,translation_state>{nl} { DEB("NEWLINE"); ++(outlang_parsestruct->line) ; }
<initial>. { return yytext[0] ; }
%%
void buffer(const char *s)
{
 buff << s; } void buffer(const char s) { buff << s; } void buffer_escape(const char *s) { buff << "\\" << s; } const std::string *flush_buffer() { const std::string *ret = new std::string(buff.str()); buff.str(""); return ret; } void open_include_file(const char *name) { string file_name = name; string path = outlang_parsestruct->path;
 if (! contains_path(name) &&
 contains_path(outlang_parsestruct->file_name))
 path = get_file_path(outlang_parsestruct->file_name);
 parsestructstack.push(outlang_parsestruct);
 outlang_parsestruct = ParseStructPtr(new ParseStruct(path, file_name));
 open_outlang_file_to_scan(path.c_str(), file_name.c_str());
}
void close_include_file()
{
 outlang_parsestruct = parsestructstack.top();
 parsestructstack.pop();
}
namespace srchilite {
void open_outlang_file_to_scan(const string &path, const string &name)
{
 outlangdef_in = open_data_file_stream(path, name);
}
void clear_outlangdefscanner() {
	//delete stringTable;
	outlangdef_lex_destroy();
}
void close_outlangdefinputfile() {
	// also close possible open files due to inclusions
	do {
	 if (outlangdef_in)
	 	fclose(outlangdef_in);
 	 yypop_buffer_state();
 } while ( YY_CURRENT_BUFFER );
}
}
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://cgit.git.savannah.gnu.org/cgit/src-highlite.git/plain/lib/srchilite/outlangdefscanner.ll">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://cgit.git.savannah.gnu.org/cgit/src-highlite.git/plain/lib/srchilite/outlangdefscanner.ll" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>