modules/FvwmScript/scanner.l

   1 %{
   2 /* This program is free software; you can redistribute it and/or modify
   3  * it under the terms of the GNU General Public License as published by
   4  * the Free Software Foundation; either version 2 of the License, or
   5  * (at your option) any later version.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program; if not, write to the Free Software
  14  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  15  */
  16 # include "config.h"
  17 # include "script.h"
  18 # include "types.h"
  19 # include "libs/Parse.h"
  20
  21 /* Suppress definition of yyunput() and yyinput(), as we do not use it. */
  22 #define YY_NO_UNPUT
  23 #define YY_NO_INPUT
  24
  25 int numligne=1;
  26 %}
  27
  28
  29 bl              [ \t]*
  30 nl              \n
  31 commentaire     #.*
  32 nb              [-+]?[0-9]*
  33 str             [^ = \t \n \( \) \< \> \} \{]+
  34 gstr            \{[^\{\}\n]*[\}\n]
  35 inf             <
  36 infeq           <=
  37 equal           ==
  38 supeq           >=
  39 sup             >
  40 diff            <>
  41 get             =
  42
  43 %%
  44 {bl}            ;
  45 {commentaire}   ;
  46
  47 ^{bl}+UseGettext               { return USEGETTEXT; }
  48 ^{bl}+WindowTitle              { return WINDOWTITLE; }
  49 ^{bl}+ChangeWindowTitle        { return CHWINDOWTITLE; }
  50 ^{bl}+ChangeWindowTitleFromArg { return CHWINDOWTITLEFARG; }
  51 ^{bl}+WindowLocaleTitle        { return WINDOWLOCALETITLE; }
  52 ^{bl}+WindowSize               { return WINDOWSIZE; }
  53 ^{bl}+WindowPosition           { return WINDOWPOSITION; }
  54 ^{bl}+ForeColor                { return FORECOLOR; }
  55 ^{bl}+BackColor                { return BACKCOLOR; }
  56 ^{bl}+ShadowColor              { return SHADCOLOR; }
  57 ^{bl}+HilightColor             { return LICOLOR; }
  58 ^{bl}+Colorset                 { return COLORSET; }
  59 ^{bl}+Widget                   { return OBJECT; }
  60 ^{bl}+Property                 { return PROP; }
  61 ^{bl}+Main                     { return MAIN; }
  62 ^{bl}+End                      { return END; }
  63 ^{bl}+Font.* {
  64   char *tmp,*rest;
  65
  66   rest = GetNextToken(yytext, &tmp); /* skip Font */
  67   GetNextToken(rest, &yylval.str); /* get the font */
  68   if (tmp != NULL)
  69     free(tmp);
  70   return FONT;
  71 }
  72
  73 ^{bl}+Type              { return TYPE; }
  74 ^{bl}+Size              { return SIZE; }
  75 ^{bl}+Position          { return POSITION; }
  76 ^{bl}+Value             { return VALUE; }
  77 ^{bl}+MinValue          { return VALUEMIN; }
  78 ^{bl}+MaxValue          { return VALUEMAX; }
  79 ^{bl}+Title             { return TITLE; }
  80 ^{bl}+LocaleTitle       { return LOCALETITLE; }
  81 ^{bl}+SwallowExec       { return SWALLOWEXEC; }
  82 ^{bl}+Icon              { return ICON; }
  83 ^{bl}+Flags             { return FLAGS; }
  84 Hidden                  { return HIDDEN; }
  85 NoFocus                 { return NOFOCUS; }
  86 NoReliefString          { return NORELIEFSTRING; }
  87 Center                  { return CENTER; }
  88 Left                    { return LEFT; }
  89 Right                   { return RIGHT; }
  90
  91 ^{bl}+Do                { return EXEC; }
  92 ^{bl}+HideWidget        { return HIDE; }
  93 ^{bl}+ShowWidget        { return SHOW; }
  94 ^{bl}+ChangeValue       { return CHVALUE; }
  95 ^{bl}+ChangeMaxValue    { return CHVALUEMAX; }
  96 ^{bl}+ChangeMinValue    { return CHVALUEMIN; }
  97 GetTitle                { return GETTITLE; }
  98 GetValue                { return GETVALUE; }
  99 GetMinValue             { return GETMINVALUE; }
 100 GetMaxValue             { return GETMAXVALUE; }
 101 GetFore                 { return GETFORE; }
 102 GetBack                 { return GETBACK; }
 103 GetHilight              { return GETHILIGHT; }
 104 GetShadow               { return GETSHADOW; }
 105 GetOutput               { return GETOUTPUT; }
 106 NumToHex                { return NUMTOHEX; }
 107 HexToNum                { return HEXTONUM; }
 108 Add                     { return ADD;}
 109 Mult                    { return MULT;}
 110 Div                     { return DIV;}
 111 StrCopy                 { return STRCOPY; }
 112 LaunchScript            { return LAUNCHSCRIPT; }
 113 GetScriptFather         { return GETSCRIPTFATHER; }
 114 ReceivFromScript        { return RECEIVFROMSCRIPT; }
 115 RemainderOfDiv          { return REMAINDEROFDIV; }
 116 GetTime                 { return GETTIME; }
 117 GetScriptArgument       { return GETSCRIPTARG; }
 118 GetPid                  { return GETPID; }
 119 SendMsgAndGet           { return SENDMSGANDGET; }
 120 Parse                   { return PARSE; }
 121 LastString              { return LASTSTRING; }
 122 Gettext                 { return GETTEXT; }
 123 ^{bl}+ChangePosition    { return POSITION; }
 124 ^{bl}+ChangeSize        { return SIZE; }
 125 ^{bl}+ChangeTitle       { return TITLE; }
 126 ^{bl}+ChangeLocaleTitle { return LOCALETITLE; }
 127 ^{bl}+ChangeIcon        { return ICON; }
 128 ^{bl}+ChangeFont        { return CHFONT; }
 129 ^{bl}+ChangeForeColor   { return CHFORECOLOR; }
 130 ^{bl}+ChangeBackColor   { return CHBACKCOLOR; }
 131 ^{bl}+ChangeColorset    { return CHCOLORSET; }
 132 ^{bl}+Set               { return SET; }
 133 ^{bl}+SendSignal        { return SENDSIGN; }
 134 ^{bl}+Quit              { return QUIT; }
 135 ^{bl}+Init              { return INIT; }
 136 ^{bl}+PeriodicTasks     { return PERIODICTASK; }
 137 ^{bl}+QuitFunc          { return QUITFUNC; }
 138 ^{bl}+For               { return FOR; }
 139 ^{bl}+WarpPointer       { return WARP; }
 140 ^{bl}+WriteToFile       { return WRITETOFILE; }
 141 ^{bl}+SendToScript      { return SENDTOSCRIPT; }
 142 ^{bl}+SingleClic        { return SINGLECLIC; }
 143 ^{bl}+DoubleClic        { return DOUBLECLIC; }
 144 ^{bl}+Key               { return KEY; }
 145 To                      { return TO; }
 146 Do                      { return DO; }
 147 ^{bl}+If                { return IF; }
 148 Then                    { return THEN; }
 149 Else                    { return ELSE; }
 150
 151 {inf}                   { return INF; }
 152 {infeq}                 { return INFEQ; }
 153 {supeq}                 { return SUPEQ; }
 154 {sup}                   { return SUP; }
 155 {diff}                  { return DIFF; }
 156 {equal}                 { return EQUAL; }
 157 {get}                   { return GET; }
 158
 159 ^{bl}+While             { return WHILE; }
 160 ^{bl}+Case+[ \t]+message+[ \t]of { return CASE; }
 161 ^{bl}+Begin             { return BEG; }
 162 :                       { return POINT; }
 163 [\(]                    { return BEGF; }
 164 [\)]                    { return ENDF; }
 165
 166
 167 {nb}            { yylval.number=atoi(yytext);
 168                   return NUMBER;
 169                 }
 170
 171 [\$]+{str}      {
 172                   yylval.str=(char*) safestrdup(yytext+1);
 173                   yylval.str[yyleng-1]='\0';
 174                   return VAR;
 175                 }
 176
 177 {gstr}          { /* Str entre "" */
 178                   yylval.str=(char*) safestrdup(yytext+1);
 179                   yylval.str[yyleng-2]='\0';
 180                   return GSTR;
 181                 }
 182
 183 {str}           { yylval.str=(char*) safestrdup(yytext);
 184                   yylval.str[yyleng]='\0';
 185                   return STR;
 186                 }
 187
 188 {nl}            { numligne++; }