diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Concurrency/CC_command.l')
-rw-r--r-- | TAO/orbsvcs/tests/Concurrency/CC_command.l | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/Concurrency/CC_command.l b/TAO/orbsvcs/tests/Concurrency/CC_command.l new file mode 100644 index 00000000000..57ff98ea222 --- /dev/null +++ b/TAO/orbsvcs/tests/Concurrency/CC_command.l @@ -0,0 +1,58 @@ +/* $id$ + * ============================================================================ + * + * = LIBRARY + * TAO/orbsvcs/tests + * + * = FILENAME + * CC_command.l + * + * = DESCRIPTION + * This is the lex file for the concurrency service script language. + * + * = AUTHORS + * Torben Worm <tworm@cs.wustl.edu> + * + * ============================================================================ + */ +%option noyywrap nounput noinput always-interactive +%{ +#include "CC_command.h" +#include "CC_command.tab.h" +#include "ace/ACE.h" + +extern int line_no; +extern char line_buf[500]; +%} + +%% + +; return T_TERM; +start return T_START_CMD; +create return T_CREATE_CMD; +lock return T_LOCK_CMD; +unlock return T_UNLOCK_CMD; +try_lock return T_TRYLOCK_CMD; +change_mode return T_CHANGEMODE_CMD; +sleep return T_SLEEP_CMD; +wait return T_WAIT_CMD; +print return T_PRINT_CMD; +repeat return T_REPEAT_CMD; +exception return T_EXCEP_CMD; +lookup return T_LOOKUP_CMD; +read return T_READ; +intention_read return T_IREAD; +upgrade return T_UPGRADE; +write return T_WRITE; +intention_write return T_IWRITE; +\".*\" { yylval.id = ACE_OS::strdup(&yytext[1]); + yylval.id[yyleng-2]='\0'; + return Q_STRING; } +[0-9]+ { yylval.num = atoi(yytext); return T_NUM; } +[A-Za-z][A-Za-z_0-9\.:/]* { yylval.id = ACE_OS::strdup(yytext); + return T_IDENT; } +^\/\/.*\n { } +[ ]+ { } +\n.* { line_no ++; + ACE_OS::strcpy(line_buf, yytext+1); + yyless(1); } |