/drivers/scsi/aic7xxx/aicasm/aicasm_macro_scan.l

http://github.com/mirrors/linux · LEX · 153 lines · 90 code · 9 blank · 54 comment · 0 complexity · 3c1aa7144931ae9c67ff85f627385792 MD5 · raw file

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