2010-02-08 23:14:55 +03:00
|
|
|
/* $NetBSD: fgen.h,v 1.9 2010/02/08 20:14:55 eeh Exp $ */
|
1998-10-31 21:14:53 +03:00
|
|
|
/*
|
|
|
|
* fgen.h -- stuff for the fcode tokenizer.
|
1998-11-02 01:27:11 +03:00
|
|
|
*
|
|
|
|
* 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.
|
1998-10-31 21:14:53 +03:00
|
|
|
*/
|
|
|
|
|
|
|
|
/* Type of a Cell */
|
2001-10-06 02:36:02 +04:00
|
|
|
typedef int64_t Cell;
|
1998-10-31 21:14:53 +03:00
|
|
|
|
|
|
|
/* Token from the scanner. */
|
|
|
|
struct tok {
|
|
|
|
int type;
|
|
|
|
char *text;
|
|
|
|
};
|
|
|
|
|
|
|
|
#define TOKEN struct tok
|
2009-04-12 07:13:09 +04:00
|
|
|
#define YY_DECL TOKEN* yylex(void)
|
1998-10-31 21:14:53 +03:00
|
|
|
|
2010-02-08 23:14:55 +03:00
|
|
|
#define FCODE 0x000FC0DE
|
|
|
|
#define MACRO 0x0000F00D
|
1998-10-31 21:14:53 +03:00
|
|
|
|
|
|
|
/* Defined fcode and string. */
|
|
|
|
struct fcode {
|
2009-04-12 07:35:43 +04:00
|
|
|
const char *name;
|
1998-10-31 21:14:53 +03:00
|
|
|
long num;
|
|
|
|
int type;
|
|
|
|
struct fcode *l;
|
|
|
|
struct fcode *r;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* macro instruction as separate words */
|
|
|
|
struct macro {
|
2009-04-12 07:35:43 +04:00
|
|
|
const char *name;
|
|
|
|
const char *equiv;
|
1998-10-31 21:14:53 +03:00
|
|
|
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 */
|
2010-02-08 23:14:55 +03:00
|
|
|
TOK_ABORT_S,
|
1998-10-31 21:14:53 +03:00
|
|
|
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,
|
2010-02-08 23:14:55 +03:00
|
|
|
TOK_END0,
|
1998-10-31 21:14:53 +03:00
|
|
|
TOK_ENDCASE,
|
|
|
|
TOK_ENDOF,
|
|
|
|
TOK_EXTERNAL,
|
2010-02-08 23:14:55 +03:00
|
|
|
TOK_FCODE_VERSION2,
|
|
|
|
TOK_FCODE_END,
|
1998-10-31 21:14:53 +03:00
|
|
|
TOK_FIELD,
|
|
|
|
TOK_HEADERLESS,
|
|
|
|
TOK_HEADERS,
|
|
|
|
TOK_IF,
|
|
|
|
TOK_LEAVE,
|
|
|
|
TOK_LOOP,
|
|
|
|
TOK_OF,
|
2010-02-08 23:14:55 +03:00
|
|
|
TOK_OFFSET16,
|
1998-10-31 21:14:53 +03:00
|
|
|
TOK_REPEAT,
|
2010-02-08 23:14:55 +03:00
|
|
|
TOK_STARTX,
|
1998-10-31 21:14:53 +03:00
|
|
|
TOK_THEN,
|
|
|
|
TOK_TO,
|
|
|
|
TOK_UNTIL,
|
|
|
|
TOK_VALUE,
|
|
|
|
TOK_VARIABLE,
|
2010-02-08 23:14:55 +03:00
|
|
|
TOK_VERSION1,
|
1998-10-31 21:14:53 +03:00
|
|
|
TOK_WHILE,
|
|
|
|
|
|
|
|
/* Tokenizer directives */
|
|
|
|
TOK_BEGTOK,
|
|
|
|
TOK_EMIT_BYTE,
|
|
|
|
TOK_ENDTOK,
|
|
|
|
TOK_FLOAD,
|
|
|
|
|
|
|
|
TOK_OTHER
|
|
|
|
};
|