![[BACK]](/icons/back.gif){kind=icon}
Return to aicasm_macro_scan.l CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / sys / dev / microcode / aic7xxx|
Return to aicasm_macro_scan.l CVS log | Up to [local] / sys / dev / microcode / aic7xxx |
1.1 nbrk 1: %{
2: /*
3: /* $OpenBSD: aicasm_macro_scan.l,v 1.4 2004/09/18 19:51:53 mickey Exp $ */
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: * $Id: aicasm_macro_scan.l,v 1.4 2004/09/18 19:51:53 mickey Exp $
44: *
45: * $FreeBSD: src/sys/dev/aic7xxx/aicasm/aicasm_macro_scan.l,v 1.5 2003/12/16 23:54:07 gibbs Exp $
46: */
47:
48: #include <sys/types.h>
49:
50: #include <inttypes.h>
51: #include <limits.h>
52: #include <regex.h>
53: #include <stdio.h>
54: #include <string.h>
55: #include <sysexits.h>
56: #ifdef __linux__
57: #include "../queue.h"
58: #else
59: #include <sys/queue.h>
60: #endif
61:
62: #include "aicasm.h"
63: #include "aicasm_symbol.h"
64: #include "aicasm_macro_gram.h"
65:
66: #define MAX_STR_CONST 4096
67: static char string_buf[MAX_STR_CONST];
68: static char *string_buf_ptr;
69: static int parren_count;
70: static char buf[255];
71: %}
72:
73: WORD [A-Za-z_][-A-Za-z_0-9]*
74: SPACE [ \t]+
75: MCARG [^(), \t]+
76:
77: %x ARGLIST
78:
79: %%
80: \n {
81: ++yylineno;
82: }
83: \r ;
84: <ARGLIST>{SPACE} ;
85: <ARGLIST>\( {
86: parren_count++;
87: if (parren_count == 1) {
88: string_buf_ptr = string_buf;
89: return ('(');
90: }
91: *string_buf_ptr++ = '(';
92: }
93: <ARGLIST>\) {
94: if (parren_count == 1) {
95: if (string_buf_ptr != string_buf) {
96: /*
97: * Return an argument and
98: * rescan this parren so we
99: * can return it as well.
100: */
101: *string_buf_ptr = '\0';
102: mmlval.str = string_buf;
103: string_buf_ptr = string_buf;
104: unput(')');
105: return T_ARG;
106: }
107: BEGIN INITIAL;
108: return (')');
109: }
110: parren_count--;
111: *string_buf_ptr++ = ')';
112: }
113: <ARGLIST>{MCARG} {
114: char *yptr;
115:
116: yptr = mmtext;
117: while (*yptr)
118: *string_buf_ptr++ = *yptr++;
119: }
120: <ARGLIST>\, {
121: if (string_buf_ptr != string_buf) {
122: /*
123: * Return an argument and
124: * rescan this comma so we
125: * can return it as well.
126: */
127: *string_buf_ptr = '\0';
128: mmlval.str = string_buf;
129: string_buf_ptr = string_buf;
130: unput(',');
131: return T_ARG;
132: }
133: return ',';
134: }
135: {WORD}[(] {
136: /* May be a symbol or a macro invocation. */
137: mmlval.sym = symtable_get(mmtext);
138: if (mmlval.sym->type != MACRO) {
139: stop("Expecting Macro Name",
140: EX_DATAERR);
141: }
142: unput('(');
143: parren_count = 0;
144: BEGIN ARGLIST;
145: return T_SYMBOL;
146: }
147: . {
148: snprintf(buf, sizeof(buf), "Invalid character "
149: "'%c'", mmtext[0]);
150: stop(buf, EX_DATAERR);
151: }
152: %%
153:
154: int
155: mmwrap()
156: {
157: stop("EOF encountered in macro call", EX_DATAERR);
158: }