/*      $NetBSD: fgen.h,v 1.9 2010/02/08 20:14:55 eeh Exp $     */
/*
* fgen.h -- stuff for the fcode tokenizer.
*
* Copyright (c) 1998 Eduardo Horvath.
* All rights reserved.
*
* 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.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/

/* Type of a Cell */
typedef int64_t Cell;

/* Token from the scanner. */
struct tok {
       int type;
       char *text;
};

#define TOKEN struct tok
#define YY_DECL TOKEN* yylex(void)

#define FCODE   0x000FC0DE
#define MACRO   0x0000F00D

/* Defined fcode and string. */
struct fcode {
       const char *name;
       long num;
       int type;
       struct fcode *l;
       struct fcode *r;
};

/* macro instruction as separate words */
struct macro {
       const char *name;
       const char *equiv;
       int type;
       struct macro *l;
       struct macro *r;
};

/*
* FCode header -- assumes big-endian machine,
*      otherwise the bits need twiddling.
*/
struct fcode_header {
       char    header;
       char    format;
       short   checksum;
       int     length;
};

/* Tokenizer tokens */
enum toktypes {
       TOK_OCTAL = 8,
       TOK_DECIMAL = 10,
       TOK_HEX = 16,

       TOK_NUMBER,
       TOK_STRING_LIT,
       TOK_C_LIT,
       TOK_PSTRING,
       TOK_TOKENIZE,
       TOK_COMMENT,
       TOK_COLON,
       TOK_SEMICOLON,
       TOK_TOSTRING,

       /* These are special */
       TOK_ABORT_S,
       TOK_AGAIN,
       TOK_ALIAS,
       TOK_GETTOKEN,
       TOK_ASCII,
       TOK_BEGIN,
       TOK_BUFFER,
       TOK_CASE,
       TOK_CONSTANT,
       TOK_CONTROL,
       TOK_CREATE,
       TOK_DEFER,
       TOK_DO,
       TOK_ELSE,
       TOK_END0,
       TOK_ENDCASE,
       TOK_ENDOF,
       TOK_EXTERNAL,
       TOK_FCODE_VERSION2,
       TOK_FCODE_END,
       TOK_FIELD,
       TOK_HEADERLESS,
       TOK_HEADERS,
       TOK_IF,
       TOK_LEAVE,
       TOK_LOOP,
       TOK_OF,
       TOK_OFFSET16,
       TOK_REPEAT,
       TOK_STARTX,
       TOK_THEN,
       TOK_TO,
       TOK_UNTIL,
       TOK_VALUE,
       TOK_VARIABLE,
       TOK_VERSION1,
       TOK_WHILE,

       /* Tokenizer directives */
       TOK_BEGTOK,
       TOK_EMIT_BYTE,
       TOK_ENDTOK,
       TOK_FLOAD,

       TOK_OTHER
};