%{
/*
 * Copyright (C) 1999-2009, 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 <cstdlib>
#include <sstream>
#include "stringdef.h"
#include "stringtable.h"
#include "langdefparser.h"
#include "langdefscanner.h"
#include "fileutil.h"
#include "regexpreprocessor.h"
#include "ioexception.h"
#include <stack>
//#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 //using srchilite::StringDef; //using namespace srchilite; static std::ostringstream buff; static srchilite::StringTable *stringTable = 0; static void buffer(const char *s); static void buffer_escape(const char *c); static const std::string *flush_buffer(); static srchilite::StringDef *flush_buffer_preproc(); static void open_include_file(const char *file); static void close_include_file(); srchilite::ParseStructPtr parsestruct; typedef std::stack<srchilite::parsestructptr> ParseStructStack;
static ParseStructStack parsestructstack;
void
updateTokenInfo()
{
 langdef_lloc.first_line = parsestruct->line ;
}
%}
%option prefix="langdef_"
%option noyywrap
ws [ ]+
tabs [\t]+
nl \n
cr \r
IDE [a-zA-Z_]([a-zA-Z0-9_])*
STRING \"[^\n"]+\"
%s COMMENT_STATE STRING_STATE REGEXP_STATE REGEXP_NOPREPROC_STATE INCLUDE_STATE
%%
<initial,comment_state,include_state>[ \t] {}
\r {}
<initial>"#" { BEGIN(COMMENT_STATE); }
<comment_state>[^\n] {}
<comment_state>\n { ++(parsestruct->line); BEGIN(INITIAL); }
<initial>"begin" { return BEGIN_T ; }
<initial>"end" { return END_T ; }
<initial>"environment" { return ENVIRONMENT_T; }
<initial>"state" { return STATE_T; }
<initial>"multiline" { return MULTILINE_T; }
<initial>"delim" { return DELIM_T; }
<initial>"start" { return START_T; }
<initial>"escape" { return ESCAPE_T; }
<initial>"nested" { return NESTED_T; }
<initial>"exitall" { return EXIT_ALL; }
<initial>"exit" { return EXIT_T; }
<initial>"vardef" { return VARDEF_T; }
<initial>"redef" { return REDEF_T; }
<initial>"subst" { return SUBST_T; }
<initial>"nonsensitive" { return NONSENSITIVE_T; }
<initial>"include" { BEGIN(INCLUDE_STATE); }
<include_state>{STRING} {
 DEB2("inclusion of ", yytext);
 
 char *file_name = &yytext[1];
 file_name[strlen(file_name)-1] = '0円';
 try {
 open_include_file(file_name);
 } catch (srchilite::IOException &e) {
 langdef_lval.string = stringTable->newString(e.filename);
 return WRONG_INCLUDE_FILE;
 }
 yypush_buffer_state(yy_create_buffer( langdef_in, YY_BUF_SIZE));
 BEGIN(INITIAL);
}
<<eof>> {
 DEB("END OF FILE");
 
 fclose(langdef_in);
 langdef_in = 0;
 yypop_buffer_state();
 if ( !YY_CURRENT_BUFFER )
 {
 yyterminate();
 }
 else
 close_include_file();
}
<initial>"$"{IDE} { DEB2("VAR",yytext); langdef_lval.string = stringTable->newString(&yytext[1]) ; return VARUSE ; }
<initial>"@{"[[:digit:]]"}" { 
	DEB2("BACKREFVAR",yytext);
	langdef_lval.string = stringTable->newString(yytext); 
	return BACKREFVAR ; 
}
<initial>{IDE} { DEB2("KEY",yytext); langdef_lval.string = stringTable->newString(yytext) ; updateTokenInfo(); return KEY ; }
<initial>"=" { return '=' ; }
<initial>"," { return ',' ; }
<initial>"+" { return '+' ; }
<initial>"(" { updateTokenInfo(); return '(' ; }
<initial>")" { return ')' ; }
<initial>\" { BEGIN(STRING_STATE) ; }
<string_state>("*"&#124;"."&#124;"?"&#124;"+"&#124;"("&#124;")"&#124;"{"&#124;"}"&#124;"["&#124;"]"&#124;"^"&#124;"$"&#124;"@") { buffer_escape( yytext ) ; }
<string_state>\\\&#124; { buffer( yytext ) ; }
<string_state>\\\\ { buffer( yytext ) ; }
<string_state>\\[[:digit:]] { 
	return WRONG_BACKREFERENCE ; 
	}
<string_state>"\\\"" { buffer( yytext ) ; }
<string_state>\" { BEGIN(INITIAL) ; langdef_lval.string = flush_buffer() ; DEB2("STRINGDEF",langdef_lval.string); return STRINGDEF; }
<string_state>[^\n] { buffer( yytext ) ; }
<string_state>{nl} { DEB("NEWLINE"); ++(parsestruct->line) ; }
<initial>\' { BEGIN(REGEXP_STATE) ; }
<regexp_state>"@" { buffer_escape( yytext ) ; }
<regexp_state>\\\\ { buffer( yytext ) ; }
<regexp_state>\\[[:digit:]] { 
	return WRONG_BACKREFERENCE ; 
	}
<regexp_state>"\\'" { buffer( "'" ) ; }
<regexp_state>\' { BEGIN(INITIAL) ; langdef_lval.stringdef = flush_buffer_preproc() ; DEB2("REGEXPDEF",langdef_lval.string); return REGEXPDEF; }
<regexp_state>[^\n] { buffer( yytext ) ; }
<regexp_state>{nl} { DEB("NEWLINE"); ++(parsestruct->line) ; }
<initial>` { BEGIN(REGEXP_NOPREPROC_STATE) ; }
<regexp_nopreproc_state>"@" { buffer_escape( yytext ) ; }
<regexp_nopreproc_state>\\\\ { buffer( yytext ) ; }
<regexp_nopreproc_state>"\\`" { buffer( "'" ) ; }
<regexp_nopreproc_state>` { BEGIN(INITIAL) ; langdef_lval.string = flush_buffer() ; DEB2("REGEXPNOPREPROCDEF",langdef_lval.string); return REGEXPNOPREPROC; }
<regexp_nopreproc_state>[^\n] { buffer( yytext ) ; }
<regexp_nopreproc_state>{nl} { DEB("NEWLINE"); ++(parsestruct->line) ; }
<initial>{nl} { DEB("NEWLINE"); ++(parsestruct->line) ; }
<initial>[[:digit:]]+ { langdef_lval.level = atoi(yytext); return LEVEL ; }
<initial>. { return yytext[0] ; }
%%
void buffer(const char *s)
{
 buff << s; } void buffer_escape(const char *s) { buff << "\\" << s; } const std::string *flush_buffer() { const std::string *ret = stringTable->newString(buff.str());
 buff.str("");
 return ret;
}
srchilite::StringDef *flush_buffer_preproc()
{
 srchilite::StringDef *sd = 
 	new srchilite::StringDef
 		(srchilite::RegexPreProcessor::preprocess(buff.str()), buff.str());
 buff.str("");
 return sd;
}
void _open_file_to_scan(const string &path, const string &name)
{
 langdef_in = srchilite::open_data_file_stream(path, name);
}
void open_include_file(const char *name)
{
 string file_name = name;
 string path = parsestruct->path;
 if (! srchilite::contains_path(name) &&
 srchilite::contains_path(parsestruct->file_name))
 path = srchilite::get_file_path(parsestruct->file_name);
 parsestructstack.push(parsestruct);
 parsestruct = srchilite::ParseStructPtr(new srchilite::ParseStruct(path, file_name));
 _open_file_to_scan(path.c_str(), file_name.c_str());
}
void close_include_file()
{
 parsestruct = parsestructstack.top();
 parsestructstack.pop();
}
namespace srchilite {
void open_file_to_scan(const string &path, const string &name)
{
 stringTable = new StringTable;
 _open_file_to_scan(path, name);
 langdef_restart(langdef_in);
}
void clear_langdefscanner() {
	delete stringTable;
	langdef_lex_destroy();
}
void close_langdefinputfile() {
	// also close possible open files due to inclusions
	do {
	 if (langdef_in)
	 	fclose(langdef_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/langdefscanner.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/langdefscanner.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>