开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > IP电话/视频会议 > 查看源码
pr_lex.l
资源名称：pwlib_1.1pl17.zip　[点击查看]
上传用户：hzhsqp
上传日期：2007-01-06
资源大小：1600k
文件大小：14k
源码类别：

IP电话/视频会议

开发平台：

Visual C++

pr_lex.l：源码内容
  1. %{
  2. /*
  3.  * pr_lex.l
  4.  *
  5.  * Resource compiler lexical analyser
  6.  *
  7.  * Portable Windows Library
  8.  *
  9.  * Copyright (c) 1993-1998 Equivalence Pty. Ltd.
  10.  *
  11.  * The contents of this file are subject to the Mozilla Public License
  12.  * Version 1.0 (the "License"); you may not use this file except in
  13.  * compliance with the License. You may obtain a copy of the License at
  14.  * http://www.mozilla.org/MPL/
  15.  *
  16.  * Software distributed under the License is distributed on an "AS IS"
  17.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  18.  * the License for the specific language governing rights and limitations
  19.  * under the License.
  20.  *
  21.  * The Original Code is Portable Windows Library.
  22.  *
  23.  * The Initial Developer of the Original Code is Equivalence Pty. Ltd.
  24.  *
  25.  * Portions are Copyright (C) 1993 Free Software Foundation, Inc.
  26.  * All Rights Reserved.
  27.  *
  28.  * Contributor(s): ______________________________________.
  29.  *
  30.  * $Log: pr_lex.l,v $
  31.  * Revision 1.24  1999/10/29 11:44:25  robertj
  32.  * Fixed #ifdef conditional around the wrong way.
  33.  *
  34.  * Revision 1.24  1999/10/29 11:44:25  robertj
  35.  * Fixed #ifdef conditional around the wrong way.
  36.  *
  37.  * Revision 1.23  1999/10/19 07:08:23  robertj
  38.  * Added #ifdef/#ifndef condition compile functionality
  39.  *
  40.  * Revision 1.22  1999/02/06 08:45:33  robertj
  41.  * egcs compatibility
  42.  *
  43.  * Revision 1.21  1998/09/26 01:24:15  robertj
  44.  * Added open source license
  45.  *
  46.  * Revision 1.20  1998/09/26 00:40:27  robertj
  47.  * Fixed linkage mismatch of lex function.
  48.  *
  49.  * Revision 1.19  1998/09/14 13:48:05  robertj
  50.  * Allowed suppression of some warnings.
  51.  *
  52.  * Revision 1.18  1997/12/12 08:44:25  robertj
  53.  * Update to currect version of PWLIB
  54.  *
  55.  * Revision 1.17  1996/01/23 13:32:45  robertj
  56.  * More changes for editor
  57.  *
  58.  * Revision 1.16  1995/12/23 03:53:39  robertj
  59.  * Added extra collections for editor use.
  60.  *
  61.  * Revision 1.15  1995/12/10 12:12:05  robertj
  62.  * Changes to support graphical resource file editor.
  63.  *
  64.  * Revision 1.14  1995/08/24 12:48:13  robertj
  65.  * Added general control type for arbitrary dialog controls.
  66.  *
  67.  * Revision 1.13  1995/07/31 12:30:13  robertj
  68.  * Changed all generated resource IDs to be in the same "number space". This
  69.  *   is to avoid problems with IDs being used for more than one type of resource
  70.  *   eg a menu item and an image for a toolbar.
  71.  * Fixed the generated #line commands to include a relative path instead of an
  72.  *   absolute one.
  73.  *
  74.  * Revision 1.12  1995/01/27 11:25:43  robertj
  75.  * Added pattern resource.
  76.  *
  77.  * Revision 1.11  1994/12/12  13:14:04  robertj
  78.  * Changed RealEdit to FloatEdit.
  79.  *
  80.  * Revision 1.10  1994/12/05  11:38:01  robertj
  81.  * Added #line to generated code.
  82.  *
  83.  * Revision 1.9  1994/10/23  06:07:12  robertj
  84.  * Shortened OS error assert.
  85.  *
  86.  * Revision 1.8  1994/07/02  03:28:52  robertj
  87.  * Fixed accidentaly removed header keyword.
  88.  * Fixed comment parsing problem.
  89.  *
  90.  * Revision 1.6  1994/04/20  12:47:01  robertj
  91.  * *** empty log message ***
  92.  *
  93.  * Revision 1.5  1994/04/01  14:29:16  robertj
  94.  * New format PRC file
  95.  *
  96.  * Revision 1.4  1993/08/20  21:31:56  robertj
  97.  * Included ctype for unix compatibility.
  98.  *
  99.  * Revision 1.3  1993/07/16  12:48:13  robertj
  100.  * Added slash star style comments.
  101.  * General formatting.
  102.  *
  103.  * Revision 1.2  1993/07/15  04:38:31  robertj
  104.  * Rationalised lex.h, parse.h and main.h out of existance.
  105.  * Fixed literal string so can have embedded " characters.
  106.  *
  107.  * Revision 1.1  1993/07/03  06:01:44  robertj
  108.  * Initial revision
  109.  *
  110.  * Revision 1.2  1993/06/24  19:48:57  craigs
  111.  * Added support for hash comments
  112.  *
  113.  * Revision 1.1  1993/06/24  19:23:17  craigs
  114.  * Initial revision
  115.  *
  116.  */
  118. #include <ptlib.h>
  119. #include "pwrc.h"
  120. #include "pr_gramm.h"
  122. #include <ctype.h>
  124. extern FILE * yyin;
  126. extern int yyparse();
  128. extern ResourceFile * current_file;
  129. extern ostream * inline_src;
  130. extern ostream * inline_hdr;
  133. ///////////////////////////////////////////
  134. //
  135. //  handling for "include" files
  136. //
  138. PDECLARE_CLASS(LexState, PObject)
  139.   public:
  140.     LexState(const PFilePath & fn)
  141.       : filename(fn) { line_number = 1; }
  143.     Comparison Compare(const PObject & obj) const
  144.       { return filename.Compare(((const LexState &)obj).filename); }
  146.     YY_BUFFER_STATE yy_state;
  147.     unsigned        line_number;
  148.     PFilePath       filename;
  149.     PDirectory      dir;
  150. };
  152. PSTACK(LexStack, LexState);
  154. static LexStack LexFile;
  156. static int in_define;
  157. static int in_multiline_comment;
  159. PStringArray IncludePath;
  162. ResourceFile::ResourceFile(PFile & prcfile, BOOL suppress,
  163.    const PString & predefinedSymbols)
  164. {
  165.   nextResourceId  = 10000;
  166.   fatals = warnings = 0;
  167.   suppressInfoWarnings = suppress;
  169.   PStringArray symbols = predefinedSymbols.Lines();
  170.   for (PINDEX i = 0; i < symbols.GetSize(); i++)
  171.     defineDict.SetAt(symbols[i], new DefineValue(1, FALSE));
  173.   inline_src = &src_inline;
  174.   inline_hdr = &hdr_inline;
  176.   for (PINDEX type = 0; type < ResourceList::NumResTypes; type++) {
  177.     resources[type].type = (ResourceList::ResTypes)type;
  178.     resources[type].DisallowDeleteObjects();
  179.   }
  181.   resourceDict[ResourceList::StringRes] = &stringDict;
  182.   resourceDict[ResourceList::MenubarRes] = &menubarDict;
  183.   resourceDict[ResourceList::LayoutRes] = &dialogDict;
  184.   resourceDict[ResourceList::IconRes] = &iconDict;
  185.   resourceDict[ResourceList::CursorRes] = &cursorDict;
  186.   resourceDict[ResourceList::PatternRes] = &patternDict;
  187.   resourceDict[ResourceList::ImageRes] = &imageDict;
  188.   resourceDict[ResourceList::DataRes] = &dataDict;
  190.   current_file = this;
  191.   in_define = 0;
  193.   LexFile.Push(new LexState(prcfile.GetFilePath()));
  195.   yyin = _fdopen(prcfile.GetHandle(), "r");
  196.   PAssertNULL(yyin);
  197.   yyparse();
  198. }
  201. ostream & operator<<(ostream & out, const StdError & e)
  202. {
  203.   if (e.e == Info && current_file->suppressInfoWarnings) {
  204.     static PStringStream dummy;
  205.     dummy = "";
  206.     return dummy;
  207.   }
  209.   out << e.l.filename << '(' << e.l.number << ") : ";
  210.   if (e.e == Fatal) {
  211.     current_file->fatals++;
  212.     out << "error";
  213.   }
  214.   else {
  215.     current_file->warnings++;
  216.     out << "warning";
  217.   }
  218.   return out << ": ";
  219. }
  222. void LineNumber::Set()
  223. {
  224.   if (LexFile.IsEmpty()) {
  225.     filename = "";
  226.     number = 0;
  227.   }
  228.   else {
  229.     filename = LexFile.Top().filename;
  230.     number = LexFile.Top().line_number;
  231.   }
  232. }
  235. extern "C" int yywrap()
  236. {
  237.   return 1;
  238. }
  241. %}
  243. %x hash_include hash_inline_src hash_inline_hdr comment_lines conditional_compilation
  245. %%
  248. [Dd][Ee][Ff][Pp][Uu][Ss][Hh][Bb][Uu][Tt][Tt][Oo][Nn]  { return DEFPUSHBUTTON; }
  250. [Aa][Cc][Cc][Ee][Ll][Ee][Rr][Aa][Tt][Oo][Rr][Ss]  { return ACCELERATORS; }
  252. [Pp][Aa][Ss][Ss][Ww][Oo][Rr][Dd][Bb][Oo][Xx]  { return PASSWORDBOX; }
  254. [Mm][Oo][Dd][Aa][Ll][Dd][Ii][Aa][Ll][Oo][Gg]  { return MODALDIALOG; }
  256. [Rr][Aa][Dd][Ii][Oo][Bb][Uu][Tt][Tt][Oo][Nn]  { return RADIOBUTTON; }
  258. [Mm][Uu][Ll][Tt][Ii][Ss][Ee][Ll][Ee][Cc][Tt]  { return MULTISELECT; }
  260. [Mm][Uu][Ll][Tt][Ii][Cc][Oo][Ll][Uu][Mm][Nn]  { return MULTICOLUMN; }
  262. [Ss][Tt][Rr][Ii][Nn][Gg][Ll][Ii][Ss][Tt]  { return STRINGLIST; }
  264. [Pp][Uu][Ss][Hh][Bb][Uu][Tt][Tt][Oo][Nn]  { return PUSHBUTTON; }
  266. [Ss][Tt][Aa][Tt][Ii][Cc][Ii][Cc][Oo][Nn]  { return STATICICON; }
  268. [Cc][Ee][Nn][Tt][Rr][Ee][Tt][Ee][Xx][Tt]  { return CENTRETEXT; }
  269. [Cc][Ee][Nn][Tt][Ee][Rr][Tt][Ee][Xx][Tt]  { return CENTRETEXT; }
  271. [Hh][Ss][Cc][Rr][Oo][Ll][Ll][Bb][Aa][Rr]  { return HSCROLLBAR; }
  273. [Vv][Ss][Cc][Rr][Oo][Ll][Ll][Bb][Aa][Rr]  { return VSCROLLBAR; }
  275. [Tt][Ee][Xx][Tt][Ee][Dd][Ii][Tt][Oo][Rr]  { return TEXTEDITOR; }
  277. [Dd][Ii][Mm][Ee][Nn][Ss][Ii][Oo][Nn][Ss]  { return DIMENSIONS; }
  278. [Dd][Ii][Mm]                              { return DIMENSIONS; }
  280. [Rr][Ii][Gg][Hh][Tt][Tt][Ee][Xx][Tt]  { return RIGHTTEXT; }
  282. [Ss][Tt][Aa][Tt][Ii][Cc][Bb][Oo][Xx]  { return STATICBOX; }
  284. [Ss][Ee][Pp][Aa][Rr][Aa][Tt][Oo][Rr]  { return SEPARATOR; }
  286. [Cc][Hh][Oo][Ii][Cc][Ee][Bb][Oo][Xx]  { return CHOICEBOX; }
  288. [Ff][Ll][Oo][Aa][Tt][Ee][Dd][Ii][Tt]  { return FLOATEDIT; }
  290. [Cc][Hh][Ee][Cc][Kk]3[Ww][Aa][Yy]  { return CHECK3WAY; }
  292. [Cc][Hh][Ee][Cc][Kk][Bb][Oo][Xx]  { return CHECKBOX; }
  294. [Ll][Ee][Ff][Tt][Tt][Ee][Xx][Tt]  { return LEFTTEXT; }
  296. [Pp][Oo][Ss][Ii][Tt][Ii][Oo][Nn]  { return POSITION; }
  297. [Pp][Oo][Ss]                      { return POSITION; }
  299. [Cc][Oo][Mm][Bb][Oo][Bb][Oo][Xx]  { return COMBOBOX; }
  301. [Rr][Ee][Ss][Oo][Uu][Rr][Cc][Ee]  { return RESOURCE; }
  303. [Oo][Pp][Tt][Ii][Oo][Nn][Ss]  { return OPTIONS; }
  305. [Ee][Dd][Ii][Tt][Bb][Oo][Xx]  { return EDITBOX; }
  307. [Ii][Nn][Tt][Ee][Dd][Ii][Tt]  { return INTEDIT; }
  309. [Ll][Ii][Ss][Tt][Bb][Oo][Xx]  { return LISTBOX; }
  311. [Mm][Ee][Nn][Uu][Bb][Aa][Rr]  { return MENUBAR; }
  313. [Pp][Aa][Tt][Tt][Ee][Rr][Nn]  { return PATTERN_token; }
  315. [Hh][Oo][Tt][Ss][Pp][Oo][Tt]  { return HOTSPOT; }
  317. [Aa][Nn][Dd][Mm][Aa][Ss][Kk]  { return ANDMASK; }
  319. [Xx][Oo][Rr][Mm][Aa][Ss][Kk]  { return XORMASK; }
  322. [Cc][Oo][Ll][Oo][Uu][Rr][Ss]  { return COLOURS; }
  323. [Cc][Oo][Ll][Oo][Rr][Ss]      { return COLOURS; }
  325. [Dd][Ee][Ff][Aa][Uu][Ll][Tt]  { return DEFAULT; }
  327. [Cc][Oo][Nn][Tt][Rr][Oo][Ll]  { return CONTROL; }
  329. [Hh][Ee][Aa][Dd][Ee][Rr]  { return HEADER; }
  331. [Ww][Ii][Nn][Dd][Oo][Ww]  { return WINDOW; }
  333. [Nn][Oo][Tt][Ii][Ff][Yy]  { return NOTIFY; }
  335. [Ll][Aa][Yy][Oo][Uu][Tt]  { return LAYOUT; }
  337. [Ss][Tt][Rr][Ii][Nn][Gg]  { return STRING; }
  339. [Dd][Ii][Aa][Ll][Oo][Gg]  { return DIALOG; }
  341. [Ss][Oo][Rr][Tt][Ee][Dd]  { return SORTED; }
  343. [Cc][Uu][Rr][Ss][Oo][Rr]  { return CURSOR; }
  345. [Pp][Ii][Xx][Ee][Ll][Ss]  { return PIXELS; }
  347. [Cc][Aa][Nn][Cc][Ee][Ll]  { return CANCEL; }
  349. [Ll][Ii][Mm][Ii][Tt][Ss]  { return LIMITS; }
  351. [Tt][Ii][Tt][Ll][Ee]  { return TITLE; }
  353. [Ii][Mm][Aa][Gg][Ee]  { return IMAGE; }
  355. [Bb][Ee][Gg][Ii][Nn]  { return BEGIN_token; }
  357. [Vv][Aa][Ll][Uu][Ee]  { return VALUE; }
  359. [Cc][Ll][Aa][Ss][Ss]  { return CLASS; }
  361. [Ff][Ii][Ee][Ll][Dd]  { return FIELD; }
  363. [Ff][Oo][Nn][Tt]  { return FONT; }
  365. [Mm][Ee][Nn][Uu]  { return MENU; }
  367. [Ii][Cc][Oo][Nn]  { return ICON; }
  369. [Ii][Tt][Ee][Mm]  { return ITEM; }
  371. [Hh][Ee][Ll][Pp]  { return HELP; }
  373. [Ee][Nn][Dd]  { return END; }
  375. [Ii][Dd]      { return ID; }
  377. [Oo][Kk]      { return OK; }
  380. ^"#inline"[ t]+"src".*  {
  381.     BEGIN(hash_inline_src);
  382.     *inline_src << LineNumber();
  383.   }
  385. <hash_inline_src>^"#inline"[ t]+"end".*  { BEGIN(0); }
  387. <hash_inline_src>^[^n]*  { *inline_src << yytext; }
  389. <hash_inline_src>n  {
  390.     LexFile.Top().line_number++;
  391.     *inline_src << 'n';
  392.   }
  395. ^"#inline"[ t]+"hdr".*  {
  396.     BEGIN(hash_inline_hdr);
  397.     *inline_hdr << LineNumber();
  398.   }
  400. <hash_inline_hdr>^"#inline"[ t]+"end".*  { BEGIN(0); }
  402. <hash_inline_hdr>^[^n]*  { *inline_hdr << yytext; }
  404. <hash_inline_hdr>n  {
  405.     LexFile.Top().line_number++;
  406.     *inline_hdr << 'n'; 
  407.   }
  410. ^#include  { BEGIN(hash_include); }
  412. <hash_include>[ t]  { }
  414. <hash_include>[^ tn]*  {
  415.     PString text(yytext);
  416.     PINDEX end = P_MAX_INDEX;
  417.     PINDEX start = text.FindOneOf(""<");
  418.     if (start != P_MAX_INDEX)
  419.       end = text.Find(text[start] == '"' ? '"' : '>', start+1);
  420.     if (start == P_MAX_INDEX || end == P_MAX_INDEX)
  421.       PError << StdError(Warning) << "badly formed include.n";
  422.     else {
  423.       PString fname = text(start+1, end-1);
  425.       FILE * file = NULL;
  426.       if (text[start] == '"')
  427.         file = fopen(fname, "r");
  429.       for (PINDEX i = 0; file == NULL && i < IncludePath.GetSize(); i++) {
  430.         if (PDirectory::Change(IncludePath[i]))
  431.           file = fopen(fname, "r");
  432.         else
  433.           PError << StdError(Warning) << "invalid path ""
  434.                  << IncludePath[i] << "".n";
  435.         if (file == NULL)
  436.           PAssertOS(LexFile.Top().dir.Change());
  437.       }
  439.       if (file == NULL)
  440.         PError << StdError(Warning)
  441.                << "include file " << fname << " not found.n";
  442.       else {
  443.         LexFile.Top().yy_state = YY_CURRENT_BUFFER;
  444.         LexFile.Push(new LexState(fname));
  445.         yyin = file;
  446.         yy_switch_to_buffer(yy_create_buffer(yyin,YY_BUF_SIZE));
  447.       }
  448.     }
  449.     BEGIN(INITIAL);
  450.   }
  452. <<EOF>>  {
  453.     delete LexFile.Pop();
  454.     if (LexFile.IsEmpty()) 
  455.       yyterminate();
  456.     else  {
  457.       yy_switch_to_buffer(LexFile.Top().yy_state);
  458.       PAssertOS(LexFile.Top().dir.Change());
  459.     }
  460.   }
  463. ^#define  {
  464.     in_define = 1;
  465.     return HASH_DEFINE;
  466.   }
  469. ^#ifdef[ t]+[^ tn]*  { 
  470.     PString text(yytext);
  471.     if (!current_file->IsNameDefined(text.Mid(text.Find(' ')).Trim()))
  472.       BEGIN(conditional_compilation);
  473.   }
  475. ^#ifndef[ t]+[^ tn]*  {
  476.     PString text(yytext);
  477.     if (current_file->IsNameDefined(text.Mid(text.Find(' ')).Trim()))
  478.       BEGIN(conditional_compilation);
  479.   }
  481. <conditional_compilation>^#endif.*n  {
  482.     BEGIN(INITIAL);
  483.   }
  485. <conditional_compilation>n  {
  486.     LexFile.Top().line_number++;
  487.   }
  489. <conditional_compilation>.  { }
  491. ^#endif.*n  { }
  495. "//"  {
  496.     in_multiline_comment = FALSE;
  497.     BEGIN(comment_lines);
  498.   }
  500. "/*"  {
  501.     in_multiline_comment = TRUE;
  502.     BEGIN(comment_lines);
  503.   }
  505. <comment_lines>"*/"  {
  506.     if (in_multiline_comment)
  507.       BEGIN(INITIAL);
  508.   }
  510. <comment_lines>n  {
  511.     LexFile.Top().line_number++;
  512.     if (!in_multiline_comment)
  513.       BEGIN(INITIAL);
  514.   }
  516. <comment_lines>.  { }
  519. "@"  { return '@'; }
  521. "{"  { return '{'; }
  523. "}"  { return '}'; }
  525. ";"  { return ';'; }
  527. "("  { return '('; }
  529. ")"  { return ')'; }
  531. "+"  { return '+'; }
  533. "-"  { return '-'; }
  535. "*"  { return '*'; }
  537. "/"  { return '/'; }
  539. ","  { return ','; }
  541. ":"  { return ':'; }
  543. "="  { return '='; }
  545. "([^"n]|(\"))*"  {
  546.     yylval.sval = new PString(yytext);
  547.     return LITERAL;
  548.   }
  550. "0x"[0-9a-fA-F][0-9a-fA-F]*  {
  551.     yylval.ival = strtol(yytext+2, NULL, 16);
  552.     return INTEGER;
  553.   }
  555. "0"[0-7]*  {
  556.     yylval.ival = strtol(yytext, NULL, 8);
  557.     return INTEGER;
  558.   }
  560. [1-9][0-9]*  {
  561.     yylval.ival = strtol(yytext, NULL, 10);
  562.     return INTEGER;
  563.   }
  565. [a-zA-Z_][a-zA-Z0-9_]*  {
  566.     PString name = yytext;
  567.     if (in_define ||
  568.         current_file->defineDict.GetAt(name) == NULL ||
  569.         !current_file->defineDict[name].IsString()) {
  570.       yylval.sval = new PString(name);
  571.       return IDENTIFIER;
  572.     }
  573.     else {
  574.       PString tmp_str = current_file->defineDict[name];
  575.       yylval.sval = new PString(tmp_str);
  576.       return LITERAL;
  577.     }
  578.   }
  580. [ tr]  { }
  582. n  {
  583.     LexFile.Top().line_number++;
  584.     if (in_define) {
  585.       in_define = 0;
  586.       return END_DEFINE;
  587.     }
  588.   }
  590. .  { PError << StdError(Warning) << "unknown token " << yytext << endl; }
  593. %%
  594. /* End PR_LEX.L */