132 lines
4.1 KiB
Plaintext
132 lines
4.1 KiB
Plaintext
/*
|
|
* This file is part of flex.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
*
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* Neither the name of the University nor the names of its contributors
|
|
* may be used to endorse or promote products derived from this software
|
|
* without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
|
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
|
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
|
* PURPOSE.
|
|
*/
|
|
|
|
/* The point of this test is to be sure our M4 madness does not
|
|
* interfere with user code. I particular, we are looking
|
|
* for instances of M4 quotes, [[ and ]], in here to make it through the flex
|
|
* machinery unscathed.
|
|
*/
|
|
|
|
/* sect 1 [ 1 ] TEST_XXX */
|
|
/* sect 1 [[ 2 ]] TEST_XXX */
|
|
/* sect 1 [[[ 3 ]]] TEST_XXX */
|
|
/* sect 1 [[[[ 4 ]]]] TEST_XXX */
|
|
/* sect 1 ]] unmatched [[ TEST_XXX */
|
|
|
|
%{
|
|
/* A template scanner file to build "scanner.c". */
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include "config.h"
|
|
#include <assert.h>
|
|
/*#include "parser.h" */
|
|
|
|
/* sect 1 block [ 1 ] TEST_XXX */
|
|
/* sect 1 block [[ 2 ]] TEST_XXX */
|
|
/* sect 1 block [[[ 3 ]]] TEST_XXX */
|
|
/* sect 1 block [[[[ 4 ]]]] TEST_XXX */
|
|
/* sect 1 block ]] unmatched [[ TEST_XXX */
|
|
|
|
static int a[1] = {0};
|
|
static int b[1] = {0};
|
|
static int c[1] = {0};
|
|
|
|
static int foo (int i){
|
|
return a[b[c[i]]]; /* sect 1 code TEST_XXX */
|
|
}
|
|
%}
|
|
|
|
%option 8bit prefix="test"
|
|
%option nounput nomain noyywrap noinput
|
|
%option warn
|
|
|
|
|
|
%%
|
|
/* indented code [ 1 ] */
|
|
/* indented code [[ 2 ]] */
|
|
/* indented code [[[ 3 ]]] */
|
|
/* indented code [[[[ 4 ]]]] */
|
|
/* indented code ]] unmatched [[ */
|
|
%{
|
|
// non-indented code [ 1 ]
|
|
// non-indented code [[ 2 ]]
|
|
// non-indented code [[[ 3 ]]]
|
|
// non-indented code [[[[ 4 ]]]]
|
|
%}
|
|
|
|
a /* action comment [ 1 ] */ ;
|
|
b /* action comment [[ 2 ]] */ ;
|
|
c /* action comment [[[ 3 ]]] */ ;
|
|
d /* action comment [[[[ 4 ]]]] */ ;
|
|
e /* action comment ]] unmatched [[ */ ;
|
|
f return 1+foo(a[b[c[0]]]);
|
|
.|\n {
|
|
|
|
#if 0
|
|
action code [ 1 ] TEST_XXX
|
|
action code [[ 2 ]] TEST_XXX
|
|
action code [[[ 3 ]]] TEST_XXX
|
|
action code [[[[ 4 ]]]] TEST_XXX
|
|
action code ]] unmatched [[ TEST_XXX
|
|
#endif
|
|
/* action block [ 1 ] TEST_XXX */
|
|
/* action block [[ 2 ]] TEST_XXX */
|
|
/* action block [[[ 3 ]]] TEST_XXX */
|
|
/* action block [[[[ 4 ]]]] TEST_XXX */
|
|
/* action block ]] unmatched [[ TEST_XXX */
|
|
assert(!strcmp("[[ 2 ]]", "[""[ 2 ]""]"));
|
|
assert(!strcmp("[[[ 3 ]]]", "[""[""[ 3 ]""]""]"));
|
|
assert(!strcmp("[[[[ 4 ]]]]", "[""[""[""[ 4 ]""]""]""]"));
|
|
assert(!strcmp("]] unmatched [[", "]""] unmatched [""["));
|
|
assert(!strcmp("]]m4_define(alpha, beta)[[",
|
|
"]""]m4_""define(alpha, beta)[""["));
|
|
return 1+foo(a[b[c[0]]]); /* TEST_XXX */
|
|
}
|
|
%%
|
|
|
|
/* sect 3 [ 1 ] TEST_XXX */
|
|
/* sect 3 [[ 2 ]] TEST_XXX */
|
|
/* sect 3 [[[ 3 ]]] TEST_XXX */
|
|
/* sect 3 [[[[ 4 ]]]] TEST_XXX */
|
|
/* sect 3 ]] unmatched [[ TEST_XXX */
|
|
static int bar (int i){
|
|
return c[b[a[i]]]; /* sect 3 code TEST_XXX */
|
|
}
|
|
int main(void);
|
|
|
|
#define CONCAT_IDENTS(a, b) a##b
|
|
int
|
|
main (void)
|
|
{
|
|
/* m4_m4exit(100) */
|
|
FILE *M4_YY_NOT_IN_HEADER = stdin;
|
|
yyin = CONCAT_IDENTS(M4_, YY_NOT_IN_HEADER);
|
|
yyout = stdout;
|
|
while (yylex())
|
|
;
|
|
assert(!strcmp("YY_G( alpha)", "Y""Y_G( alpha)"));
|
|
printf("TEST RETURNING OK.\n");
|
|
return bar(0);
|
|
}
|
|
|