|
Packit |
f00812 |
/*
|
|
Packit |
f00812 |
* This file is part of flex.
|
|
Packit |
f00812 |
*
|
|
Packit |
f00812 |
* Redistribution and use in source and binary forms, with or without
|
|
Packit |
f00812 |
* modification, are permitted provided that the following conditions
|
|
Packit |
f00812 |
* are met:
|
|
Packit |
f00812 |
*
|
|
Packit |
f00812 |
* 1. Redistributions of source code must retain the above copyright
|
|
Packit |
f00812 |
* notice, this list of conditions and the following disclaimer.
|
|
Packit |
f00812 |
* 2. Redistributions in binary form must reproduce the above copyright
|
|
Packit |
f00812 |
* notice, this list of conditions and the following disclaimer in the
|
|
Packit |
f00812 |
* documentation and/or other materials provided with the distribution.
|
|
Packit |
f00812 |
*
|
|
Packit |
f00812 |
* Neither the name of the University nor the names of its contributors
|
|
Packit |
f00812 |
* may be used to endorse or promote products derived from this software
|
|
Packit |
f00812 |
* without specific prior written permission.
|
|
Packit |
f00812 |
*
|
|
Packit |
f00812 |
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
|
Packit |
f00812 |
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
|
Packit |
f00812 |
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
|
Packit |
f00812 |
* PURPOSE.
|
|
Packit |
f00812 |
*/
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
%{
|
|
Packit |
f00812 |
/* A file to build "scanner.c". */
|
|
Packit |
f00812 |
/* This tests that we can use "yyextra".
|
|
Packit |
f00812 |
We buffer all input into a growable array, then print it.
|
|
Packit |
f00812 |
We run diff on the input and output.
|
|
Packit |
f00812 |
*/
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
#include <stdio.h>
|
|
Packit |
f00812 |
#include <stdlib.h>
|
|
Packit |
f00812 |
#include "config.h"
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
/* We'll store the entire input in this buffer, growing as necessary. */
|
|
Packit |
f00812 |
struct Check {
|
|
Packit |
f00812 |
char foo;
|
|
Packit |
f00812 |
char *bar;
|
|
Packit |
f00812 |
char qux;
|
|
Packit |
f00812 |
};
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
/* Save char into junk array at next position. */
|
|
Packit |
f00812 |
static void check_extra ( yyscan_t scanner );
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
/* Special yyalloc */
|
|
Packit |
f00812 |
void *yyalloc ( size_t size, yyscan_t scanner );
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
%}
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
%option 8bit prefix="test"
|
|
Packit |
f00812 |
%option nounput nomain noyywrap nodefault noinput
|
|
Packit |
f00812 |
%option warn
|
|
Packit |
f00812 |
%option extra-type="struct Check *"
|
|
Packit |
f00812 |
%option reentrant
|
|
Packit |
f00812 |
%option noyyalloc
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
%%
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
.|\r|\n { check_extra (yyscanner); }
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
%%
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
int main(void);
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
int
|
|
Packit |
f00812 |
main ()
|
|
Packit |
f00812 |
{
|
|
Packit |
f00812 |
yyscan_t scanner;
|
|
Packit |
f00812 |
struct Check check;
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
check.foo = 'a';
|
|
Packit |
f00812 |
check.bar = NULL;
|
|
Packit |
f00812 |
check.qux = 'z';
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
testlex_init_extra(&check, &scanner);
|
|
Packit |
f00812 |
testset_in(stdin, scanner);
|
|
Packit |
f00812 |
testset_out(stdout, scanner);
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
/* Test to confirm that yyalloc was called from
|
|
Packit |
f00812 |
* yylex_init_extra with the yyextra argument.
|
|
Packit |
f00812 |
*/
|
|
Packit |
f00812 |
check_extra(scanner);
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
testlex(scanner);
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
testlex_destroy(scanner);
|
|
Packit |
f00812 |
return 0;
|
|
Packit |
f00812 |
}
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
void *yyalloc(size_t size, yyscan_t scanner)
|
|
Packit |
f00812 |
{
|
|
Packit |
f00812 |
struct Check *check;
|
|
Packit |
f00812 |
check = testget_extra(scanner);
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
if (!check->bar)
|
|
Packit |
f00812 |
check->bar = "Hello World";
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
check_extra(scanner);
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
return malloc(size);
|
|
Packit |
f00812 |
}
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
/* Save char into junk array at next position. */
|
|
Packit |
f00812 |
static void check_extra(yyscan_t scanner)
|
|
Packit |
f00812 |
{
|
|
Packit |
f00812 |
struct Check *check;
|
|
Packit |
f00812 |
check = testget_extra(scanner);
|
|
Packit |
f00812 |
|
|
Packit |
f00812 |
if (check->foo != 'a') {
|
|
Packit |
f00812 |
fprintf(stderr, "foo is not 'a'\n");
|
|
Packit |
f00812 |
exit(1);
|
|
Packit |
f00812 |
}
|
|
Packit |
f00812 |
if (strcmp(check->bar, "Hello World") != 0) {
|
|
Packit |
f00812 |
fprintf(stderr, "bar is not Hello World\n");
|
|
Packit |
f00812 |
exit(1);
|
|
Packit |
f00812 |
}
|
|
Packit |
f00812 |
if (check->qux != 'z') {
|
|
Packit |
f00812 |
fprintf(stderr, "qux is not 'z'\n");
|
|
Packit |
f00812 |
exit(1);
|
|
Packit |
f00812 |
}
|
|
Packit |
f00812 |
}
|