手机短信编程

开发平台：
Unix_Linux

server.l：源码内容
							%{
/*==========================================================
 * Program : server.l                      Project : smslink
 * Author  : Philippe Andersson.
 * Date    : 02/12/99
 * Version : 0.11b
 * Notice  : (c) Les Ateliers du Heron, 1998 for Scitex Europe, S.A.
 * Comment : Lexer module for the parser (server.y).
 *
 * Modification History :
 * - 0.01a (19/08/98) : Initial release.
 * - 0.02a (21/08/98) : Made it recognize text type for some
 *   returned token value (T_PHNUM & T_TEXT).
 * - 0.03a (22/08/98) : Added recognition for '+' in PHNUM,
 *   and for "he" as short for "help".
 * - 0.04a (28/08/98) : Removed inclusion of server.h (was
 *   useless anyway), since was merged into sms_serv.h.
 * - 0.05a (30/08/98) : Added handling for both [LF] and [CR][LF]
 *   sequences ("rn"), cause [return] translates to rn when
 *   sent through telnet. Moved yyerror () from server.y to here.
 * - 0.06a (24/09/98) : Changed [LF] to [CR][LF] in messages
 *   sent through the socket.
 * - 0.07a (20/10/98) : Added support for 'devicelist' command.
 * ++++ Switched to Beta ++++
 * - 0.08b (21/10/98) : Noticed quoted 'phnum' were considered
 *   'text'. So added optional quote-endquote sequence in 'phnum'
 *   syntax and moved 'phnum' pattern before 'text', otherwize
 *   'text' would play catch-all and hide it.
 * - 0.09b (23/10/98) : Added ' ' as a legal char. in a 'phnum'.
 * - 0.10b (16/05/99) : Added "uptime" command.
 * - 0.11b (02/12/99) : Added "aclist" command.
 *========================================================*/
#include "server.tab.h"
#include "sms_serv.h"
#undef YY_INPUT
#define YY_INPUT(b, r, ms)  (r = my_yyinput(b, ms))
/*-------------------------------------External variables */
/* program specific */
extern int csfd;                      /* client socket FD */
extern char *buffer;    /* scratch space for C/S dialogue */
int yyparse ();
%}
%s PARAM
%s ASSIG
WS		[ t]+
PHNUM		(")?(+)?[0-9]+[/.- 0-9]*(")?
TEXT		"[^"n]*"
VIDENT		[a-zA-Z][a-zA-Z0-9]+
%%
{WS}		;
^he |
^help		{
		BEGIN PARAM;
		return T_HELP;
		}
^clear		{
		BEGIN PARAM;
		return T_CLEAR;
		}
^send		{ return T_SEND; }
^dl |
^devicelist	{ return T_DEVLIST; }
^ut |
^uptime		{ return T_UPTIME; }
^acl |
^aclist		{ return T_ACLIST; }
^quit |
^exit |
^bye		{ return T_QUIT; }
^stats		{ return T_STATS; }
^sh |
^show		{
		BEGIN PARAM;
		return T_SHOW;
		}
^set		{
		BEGIN ASSIG;
		return T_SET;
		}
<PARAM>[a-zA-Z]+ { return T_PARAM; }
<ASSIG>{VIDENT}	{ return T_NAME; }
{PHNUM}		{
		yylval.string = (char *) strdup (yytext);
		return T_PHNUM;
		}
{TEXT}		{
		yylval.string = (char *) strdup (yytext);
		return T_TEXT;
		}
rn |
n		{ return (0); }
.		{ return (yytext[0]); }
%%
/*========================================================*/
void yyerror (msg)
const char *msg;
{
  sprintf (buffer, "ERROR: %s near <%s>rn", msg, yytext);
  tellsock (csfd, buffer);
}
/*==========================================================
 * EOF : server.l
 *===================*/

						