Subversion Repositories tms1000

/*

casm.l: lexical analyzer specification

CASM is an assembler for the TMS1000 processor.

*/

%{

#include "y.tab.h"

#include "symtab.h"

#include "casm.h"

#ifdef OLD_FLEX

#undef yywrap

/* Only needed for versions of flex prior to 2.4.1. */

int yywrap (void);

#endif /* OLD_FLEX */

#undef YY_INPUT

#define YY_INPUT(buf,result,max_size) \

  { \

    int r = strlen (lineptr); \

    if (r > max_size) \

      r = max_size; \

    memcpy (buf, lineptr, r); \

    lineptr += r; \

    result = r; \

  }

#if 0

    fprintf (stderr, "yy_input: '%s', %d\n", lineptr, r); \

#endif

%}

octaldig        [0-7]

hexdigit    [0-9a-fA-F]

digit           [0-9]

alpha           [a-zA-Z]

alphanum        [a-zA-Z0-9_]

%%

{digit}+        { yylval.integer = atoi (yytext); return INTEGER; }

@{hexdigit}     { sscanf (yytext+1, "%x", &yylval.integer); return INTEGER; }

{alpha}{alphanum}*      {

                          if (yylval.integer = keyword (yytext))

                            return yylval.integer;

                          yylval.string = newstr (yytext);

                          return IDENT;

                        }

\;.*            ;

[ \t]+          ;

\n              ;

.               { return yytext [0]; }

%%

struct keyword

{

  char *name;

  int value;

}

keywords [] =

{

   "br",     BR ,

   "call",   CALL ,

   "calll",  CALLL,

   "clo",    CLO ,

   "comx",   COMX ,

   "ldp",    LDP  ,

   "ldx",    LDX  ,

   "sbit",   SBIT ,

   "rbit",   RBIT ,

   "retn",   RETN ,

   "rstr",   RSTR ,

   "setr",   SETR ,

   "tdo",    TDO  ,

   "alec",   ALEC ,

   "alem",   ALEM ,

   "amaac",  AMAAC,

   "a6aac",  A6AAC,

   "a8aac",  A8AAC,

   "a10aac", A10AAC,

   "cla",    CLA  ,

   "cpaiz",  CPAIZ,

   "dan",    DAN  ,

   "dman",   DMAN ,

   "dyn",    DYN  ,

   "ia",     IA   ,

   "imac",   IMAC ,

   "iyc",    IYC  ,

   "knez",   KNEZ ,

   "mnez",   MNEZ ,

   "saman",  SAMAN,

   "tam",    TAM  ,

   "tamiy",  TAMIY,

   "tamza",  TAMZA,

   "tay",    TAY  ,

   "tbit1",  TBIT1,

   "tcy",    TCY  ,

   "tcmiy",  TCMIY,

   "tka",    TKA  ,

   "tma",    TMA  ,

   "tmy",    TMY  ,

   "tya",    TYA  ,

   "xma",    XMA  ,

   "ynea",   YNEA ,

   "ynec",   YNEC ,

   "bl",     BL ,

   "rom",    ROM ,

   "symtab", SYMTAB,

    NULL,        0,

};

int keyword (char *string)

{

  struct keyword *ptr;

  for (ptr = keywords; ptr->name; ptr++)

    if (stricmp (string, ptr->name) == 0)

      return ptr->value;

  return 0;

}

int yywrap (void)

{

#ifdef OLD_FLEX

/* Only needed for versions of flex prior to 2.4.1. */

  yyrestart (yyin);

#endif /* OLD_FLEX */

  return (1);

}