/* $NetBSD: scanner.l,v 1.1.1.1 2009/10/26 00:29:52 christos Exp $ */ /* * 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. */ %{ /* A file to build "scanner.c". */ /* This tests that we can use "yyextra". We buffer all input into a growable array, then print it. We run diff on the input and output. */ #include #include #include "config.h" /* We'll store the entire input in this buffer, growing as necessary. */ struct Check { char foo; char *bar; char qux; }; /* Save char into junk array at next position. */ static void check_extra ( yyscan_t scanner ); /* Special yyalloc */ void *yyalloc ( size_t size, yyscan_t scanner ); %} %option 8bit outfile="scanner.c" prefix="test" %option nounput nomain noyywrap nodefault %option warn %option extra-type="struct Check *" %option reentrant %option noyyalloc %% .|\r|\n { check_extra (yyscanner); } %% int main(void); int main () { yyscan_t scanner; struct Check check; check.foo = 'a'; check.bar = NULL; check.qux = 'z'; testlex_init_extra(&check, &scanner); testset_in(stdin, scanner); testset_out(stdout, scanner); /* Test to confirm that yyalloc was called from * yylex_init_extra with the yyextra argument. */ check_extra(scanner); testlex(scanner); testlex_destroy(scanner); return 0; } void *yyalloc(size_t size, yyscan_t scanner) { struct Check *check; check = testget_extra(scanner); if (!check->bar) check->bar = "Hello World"; check_extra(scanner); return malloc(size); } /* Save char into junk array at next position. */ static void check_extra(yyscan_t scanner) { struct Check *check; check = testget_extra(scanner); if (check->foo != 'a') { fprintf(stderr, "foo is not 'a'\n"); exit(1); } if (strcmp(check->bar, "Hello World") != 0) { fprintf(stderr, "bar is not Hello World\n"); exit(1); } if (check->qux != 'z') { fprintf(stderr, "qux is not 'z'\n"); exit(1); } }