mirror of
https://github.com/nunuhara/xsystem4.git
synced 2026-10-08 06:48:16 +03:00
Nunuhara Cabbage
59eb85245f
.LOCALINC2/.LOCALDEC2 are semantically identical to .LOCALINC/.LOCALDEC except that they represent an uglier instruction sequence which is frequently used in Rance 10. .LOCALPLUSA/.LOCALMINUSA and .STRING_LOCALASSIGN do what you would expect.
82 lines
2.1 KiB
Plaintext
82 lines
2.1 KiB
Plaintext
/* Copyright (C) 2019 Nunuhara Cabbage <nunuhara@haniwa.technology>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, see <http://gnu.org/licenses/>.
|
|
*/
|
|
|
|
%{
|
|
|
|
#pragma GCC diagnostic ignored "-Wunused-function"
|
|
|
|
#include <stdio.h>
|
|
#include "asm_parser.tab.h"
|
|
#include "system4.h"
|
|
#include "system4/string.h"
|
|
|
|
#define SAVE_TOKEN asm_lval.string = makes_string(asm_text, asm_leng)
|
|
|
|
char string_buf[65536];
|
|
char *string_buf_ptr;
|
|
|
|
unsigned long asm_line = 1;
|
|
extern void asm_error(const char *s);
|
|
|
|
%}
|
|
|
|
%option noyywrap
|
|
%option prefix="asm_"
|
|
|
|
%x str
|
|
|
|
id_char [^ \t\r\n:;\"]
|
|
|
|
%%
|
|
|
|
[ \t] ;
|
|
;[^\n]*\n asm_line++; return NEWLINE;
|
|
\n asm_line++; return NEWLINE;
|
|
[a-zA-Z0-9_-]+: asm_lval.string = make_string(asm_text, asm_leng-1); return LABEL;
|
|
({id_char}|:)*{id_char}+ asm_lval.string = make_string(asm_text, asm_leng); return IDENTIFIER;
|
|
|
|
|
|
\" string_buf_ptr = string_buf; BEGIN(str);
|
|
|
|
<str>{
|
|
\" {
|
|
BEGIN(INITIAL);
|
|
*string_buf_ptr = '\0';
|
|
asm_lval.string = make_string(string_buf, strlen(string_buf));
|
|
return IDENTIFIER;
|
|
}
|
|
|
|
\n asm_error("Unterminated string literal");
|
|
|
|
\\n *string_buf_ptr++ = '\n';
|
|
\\t *string_buf_ptr++ = '\t';
|
|
\\r *string_buf_ptr++ = '\r';
|
|
\\b *string_buf_ptr++ = '\b';
|
|
\\f *string_buf_ptr++ = '\f';
|
|
|
|
\\(.|\n) *string_buf_ptr++ = asm_text[1];
|
|
|
|
[^\\\n\"]+ {
|
|
char *yptr = asm_text;
|
|
while (*yptr)
|
|
*string_buf_ptr++ = *yptr++;
|
|
}
|
|
}
|
|
|
|
. return INVALID_TOKEN;
|
|
|
|
%%
|