Home | History | Annotate | Line # | Download | only in aic7xxx 
      1 %{
      2 /*	$NetBSD: aicasm_macro_scan.l,v 1.3 2005/12/11 12:22:18 christos Exp $	*/
      3 
      4 /*
      5  * Sub-Lexical Analyzer for macro invokation in
      6  * the Aic7xxx SCSI Host adapter sequencer assembler.
      7  *
      8  * Copyright (c) 2001 Adaptec Inc.
      9  * All rights reserved.
     10  *
     11  * Redistribution and use in source and binary forms, with or without
     12  * modification, are permitted provided that the following conditions
     13  * are met:
     14  * 1. Redistributions of source code must retain the above copyright
     15  *    notice, this list of conditions, and the following disclaimer,
     16  *    without modification.
     17  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
     18  *    substantially similar to the "NO WARRANTY" disclaimer below
     19  *    ("Disclaimer") and any redistribution must be conditioned upon
     20  *    including a substantially similar Disclaimer requirement for further
     21  *    binary redistribution.
     22  * 3. Neither the names of the above-listed copyright holders nor the names
     23  *    of any contributors may be used to endorse or promote products derived
     24  *    from this software without specific prior written permission.
     25  *
     26  * Alternatively, this software may be distributed under the terms of the
     27  * GNU General Public License ("GPL") version 2 as published by the Free
     28  * Software Foundation.
     29  *
     30  * NO WARRANTY
     31  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
     32  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
     33  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
     34  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
     35  * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     36  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     37  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     38  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
     39  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
     40  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     41  * POSSIBILITY OF SUCH DAMAGES.
     42  *
     43  * $FreeBSD: src/sys/dev/aic7xxx/aicasm/aicasm_macro_scan.l,v 1.4 2002/09/27 03:23:02 gibbs Exp $
     44  */
     45 
     46 #include <sys/types.h>
     47 
     48 #include <inttypes.h>
     49 #include <limits.h>
     50 #include <regex.h>
     51 #include <stdio.h>
     52 #include <string.h>
     53 #include <sysexits.h>
     54 #ifdef __linux__
     55 #include "../queue.h"
     56 #else
     57 #include <sys/queue.h>
     58 #endif
     59 
     60 #include "aicasm.h"
     61 #include "aicasm_symbol.h"
     62 #include "aicasm_macro_gram.h"
     63 
     64 #define MAX_STR_CONST 4096
     65 static char string_buf[MAX_STR_CONST];
     66 static char *string_buf_ptr;
     67 static int  parren_count;
     68 static char buf[255];
     69 %}
     70 
     71 WORD		[A-Za-z_][-A-Za-z_0-9]*
     72 SPACE		[ \t]+
     73 MCARG		[^(), \t]+
     74 
     75 %x ARGLIST
     76 
     77 %%
     78 \n			{
     79 				++yylineno;
     80 			}
     81 <ARGLIST>{SPACE}	;
     82 <ARGLIST>\(		{
     83 				parren_count++;
     84 				if (parren_count == 1) {
     85 					string_buf_ptr = string_buf;
     86 					return ('(');
     87 				}
     88 				*string_buf_ptr++ = '(';
     89 			}
     90 <ARGLIST>\)		{
     91 				if (parren_count == 1) {
     92 					if (string_buf_ptr != string_buf) {
     93 						/*
     94 						 * Return an argument and
     95 						 * rescan this parren so we
     96 						 * can return it as well.
     97 						 */
     98 						*string_buf_ptr = '\0';
     99 						mmlval.str = string_buf;
    100 						string_buf_ptr = string_buf;
    101 						unput(')');
    102 						return T_ARG;
    103 					}
    104 					BEGIN INITIAL;
    105 					return (')');
    106 				}
    107 				parren_count--;
    108 				*string_buf_ptr++ = ')';
    109 			}
    110 <ARGLIST>{MCARG}	{
    111 				char *yptr;
    112 
    113 				yptr = yytext;
    114 				while (*yptr)
    115 					*string_buf_ptr++ = *yptr++;
    116 			}
    117 <ARGLIST>\,		{
    118 				if (string_buf_ptr != string_buf) {
    119 					/*
    120 					 * Return an argument and
    121 					 * rescan this comma so we
    122 					 * can return it as well.
    123 					 */
    124 					*string_buf_ptr = '\0';
    125 					mmlval.str = string_buf;
    126 					string_buf_ptr = string_buf;
    127 					unput(',');
    128 					return T_ARG;
    129 				}
    130 				return ',';
    131 			}
    132 {WORD}[(]		{
    133 				/* May be a symbol or a macro invocation. */
    134 				mmlval.sym = symtable_get(yytext);
    135 				if (mmlval.sym->type != MACRO) {
    136 					stop("Expecting Macro Name",
    137 					     EX_DATAERR);
    138 				}
    139 				unput('(');
    140 				parren_count = 0;
    141 				BEGIN ARGLIST;
    142 				return T_SYMBOL;
    143 			}
    144 .			{
    145 				snprintf(buf, sizeof(buf), "Invalid character "
    146 					 "'%c'", yytext[0]);
    147 				stop(buf, EX_DATAERR);
    148 			}
    149 %%
    150 
    151 int
    152 mmwrap()
    153 {
    154 	stop("EOF encountered in macro call", EX_DATAERR);
    155 }
    156