Add the scanf functions.
This commit is contained in:
steve
parent
5bcf083662
commit
382c4d74fd
|
|
@ -16,7 +16,7 @@
|
||||||
# 59 Temple Place - Suite 330
|
# 59 Temple Place - Suite 330
|
||||||
# Boston, MA 02111-1307, USA
|
# Boston, MA 02111-1307, USA
|
||||||
#
|
#
|
||||||
#ident "$Id: Makefile.in,v 1.58 2004/10/04 01:09:22 steve Exp $"
|
#ident "$Id: Makefile.in,v 1.59 2006/08/03 05:06:04 steve Exp $"
|
||||||
#
|
#
|
||||||
#
|
#
|
||||||
SHELL = /bin/sh
|
SHELL = /bin/sh
|
||||||
|
|
@ -65,7 +65,7 @@ dep:
|
||||||
|
|
||||||
O = sys_table.o sys_convert.o sys_deposit.o sys_display.o sys_fileio.o \
|
O = sys_table.o sys_convert.o sys_deposit.o sys_display.o sys_fileio.o \
|
||||||
sys_finish.o sys_plusargs.o sys_random.o sys_random_mti.o \
|
sys_finish.o sys_plusargs.o sys_random.o sys_random_mti.o \
|
||||||
sys_readmem.o sys_readmem_lex.o \
|
sys_readmem.o sys_readmem_lex.o sys_scanf.o \
|
||||||
sys_time.o sys_vcd.o sys_vcdoff.o vcd_priv.o mt19937int.o priv.o stringheap.o
|
sys_time.o sys_vcd.o sys_vcdoff.o vcd_priv.o mt19937int.o priv.o stringheap.o
|
||||||
|
|
||||||
ifeq (@HAVE_LIBZ@,yes)
|
ifeq (@HAVE_LIBZ@,yes)
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,378 @@
|
||||||
|
/*
|
||||||
|
* Copyright (c) 2006 Stephen Williams (steve@icarus.com)
|
||||||
|
*
|
||||||
|
* This source code is free software; you can redistribute it
|
||||||
|
* and/or modify it in source code form 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, write to the Free Software
|
||||||
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
||||||
|
*/
|
||||||
|
#ifdef HAVE_CVS_IDENT
|
||||||
|
#ident "$Id: sys_scanf.c,v 1.1 2006/08/03 05:06:04 steve Exp $"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
# include "vpi_user.h"
|
||||||
|
# include "sys_priv.h"
|
||||||
|
# include <ctype.h>
|
||||||
|
# include <string.h>
|
||||||
|
# include <stdio.h>
|
||||||
|
# include <stdlib.h>
|
||||||
|
# include <assert.h>
|
||||||
|
|
||||||
|
struct byte_source {
|
||||||
|
const char*str;
|
||||||
|
FILE*fd;
|
||||||
|
};
|
||||||
|
|
||||||
|
static int byte_getc(struct byte_source*byte)
|
||||||
|
{
|
||||||
|
if (byte->str) {
|
||||||
|
if (byte->str[0] == 0)
|
||||||
|
return EOF;
|
||||||
|
else
|
||||||
|
return *(byte->str)++;
|
||||||
|
}
|
||||||
|
|
||||||
|
return fgetc(byte->fd);
|
||||||
|
}
|
||||||
|
|
||||||
|
static void byte_ungetc(struct byte_source*src, int ch)
|
||||||
|
{
|
||||||
|
if (ch == EOF)
|
||||||
|
return;
|
||||||
|
|
||||||
|
if (src->str) {
|
||||||
|
src->str -= 1;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
assert(src->fd);
|
||||||
|
ungetc(ch, src->fd);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
* The $fscanf and $sscanf functions are the same except for the first
|
||||||
|
* argument, which is the source. The wrapper functions below peel off
|
||||||
|
* the first argument and make a byte_source object that then gets
|
||||||
|
* passed to this function, which processes the rest of the function.
|
||||||
|
*/
|
||||||
|
static int scan_format(vpiHandle sys, struct byte_source*src, vpiHandle argv)
|
||||||
|
{
|
||||||
|
s_vpi_value val;
|
||||||
|
vpiHandle item;
|
||||||
|
|
||||||
|
char*fmt, *fmtp;
|
||||||
|
int rc = 0;
|
||||||
|
int ch;
|
||||||
|
|
||||||
|
item = vpi_scan(argv);
|
||||||
|
assert(item);
|
||||||
|
|
||||||
|
val.format = vpiStringVal;
|
||||||
|
vpi_get_value(item, &val);
|
||||||
|
fmtp = fmt = strdup(val.value.str);
|
||||||
|
|
||||||
|
while ( fmtp && *fmtp != 0 ) {
|
||||||
|
|
||||||
|
if (isspace(*fmtp)) {
|
||||||
|
/* White space matches a string of white space in
|
||||||
|
the input. The number of spaces is not
|
||||||
|
relevent, and the match may be 0 or more
|
||||||
|
spaces. */
|
||||||
|
while (*fmtp && isspace(*fmtp))
|
||||||
|
fmtp += 1;
|
||||||
|
|
||||||
|
ch = byte_getc(src);
|
||||||
|
while (isspace(ch))
|
||||||
|
ch = byte_getc(src);
|
||||||
|
|
||||||
|
if (ch != EOF)
|
||||||
|
byte_ungetc(src, ch);
|
||||||
|
|
||||||
|
} else if (*fmtp != '%') {
|
||||||
|
/* Characters other then % match themselves. */
|
||||||
|
ch = byte_getc(src);
|
||||||
|
if (ch != *fmtp) {
|
||||||
|
byte_ungetc(src, ch);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
fmtp += 1;
|
||||||
|
|
||||||
|
} else {
|
||||||
|
|
||||||
|
/* We are at a pattern character. The pattern has
|
||||||
|
the format %<N>x no matter what the x code, so
|
||||||
|
parse it generically first. */
|
||||||
|
|
||||||
|
int suppress_flag = 0;
|
||||||
|
int length_field = -1;
|
||||||
|
int code = 0;
|
||||||
|
int sign_flag = 1;
|
||||||
|
PLI_INT32 value;
|
||||||
|
|
||||||
|
char*tmp;
|
||||||
|
|
||||||
|
fmtp += 1;
|
||||||
|
if (*fmtp == '*') {
|
||||||
|
suppress_flag = 1;
|
||||||
|
fmtp += 1;
|
||||||
|
}
|
||||||
|
if (isdigit(*fmtp)) {
|
||||||
|
length_field = 0;
|
||||||
|
while (isdigit(*fmtp)) {
|
||||||
|
length_field *= 10;
|
||||||
|
length_field += *fmtp - '0';
|
||||||
|
fmtp += 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
code = *fmtp;
|
||||||
|
fmtp += 1;
|
||||||
|
|
||||||
|
switch (code) {
|
||||||
|
case '%':
|
||||||
|
ch = byte_getc(src);
|
||||||
|
if (ch != '%') {
|
||||||
|
byte_ungetc(src, ch);
|
||||||
|
fmtp = 0;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'b':
|
||||||
|
/* binary integer */
|
||||||
|
tmp = malloc(2);
|
||||||
|
value = 0;
|
||||||
|
tmp[0] = 0;
|
||||||
|
|
||||||
|
ch = byte_getc(src);
|
||||||
|
while (strchr("01xXzZ?_", ch)) {
|
||||||
|
if (ch == '?')
|
||||||
|
ch = 'x';
|
||||||
|
if (ch != '_') {
|
||||||
|
ch = tolower(ch);
|
||||||
|
tmp[value++] = ch;
|
||||||
|
tmp = realloc(tmp, value+1);
|
||||||
|
tmp[value] = 0;
|
||||||
|
}
|
||||||
|
ch = byte_getc(src);
|
||||||
|
}
|
||||||
|
byte_ungetc(src, ch);
|
||||||
|
|
||||||
|
item = vpi_scan(argv);
|
||||||
|
assert(item);
|
||||||
|
|
||||||
|
val.format = vpiBinStrVal;
|
||||||
|
val.value.str = tmp;
|
||||||
|
vpi_put_value(item, &val, 0, vpiNoDelay);
|
||||||
|
|
||||||
|
free(tmp);
|
||||||
|
rc += 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
|
||||||
|
case 'd':
|
||||||
|
/* Decimal integer */
|
||||||
|
ch = byte_getc(src);
|
||||||
|
if (ch == '-') {
|
||||||
|
sign_flag = -1;
|
||||||
|
ch = byte_getc(src);
|
||||||
|
}
|
||||||
|
value = 0;
|
||||||
|
while ( isdigit(ch) ) {
|
||||||
|
value *= 10;
|
||||||
|
value += ch - '0';
|
||||||
|
ch = byte_getc(src);
|
||||||
|
}
|
||||||
|
item = vpi_scan(argv);
|
||||||
|
assert(item);
|
||||||
|
|
||||||
|
val.format = vpiIntVal;
|
||||||
|
val.value.integer = value;
|
||||||
|
vpi_put_value(item, &val, 0, vpiNoDelay);
|
||||||
|
rc += 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'h':
|
||||||
|
case 'x':
|
||||||
|
/* Hex integer */
|
||||||
|
tmp = malloc(2);
|
||||||
|
value = 0;
|
||||||
|
tmp[0] = 0;
|
||||||
|
|
||||||
|
ch = byte_getc(src);
|
||||||
|
while (strchr("0123456789abcdefABCDEFxXzZ?_", ch)) {
|
||||||
|
if (ch == '?')
|
||||||
|
ch = 'x';
|
||||||
|
if (ch != '_') {
|
||||||
|
ch = tolower(ch);
|
||||||
|
tmp[value++] = ch;
|
||||||
|
tmp = realloc(tmp, value+1);
|
||||||
|
tmp[value] = 0;
|
||||||
|
}
|
||||||
|
ch = byte_getc(src);
|
||||||
|
}
|
||||||
|
byte_ungetc(src, ch);
|
||||||
|
|
||||||
|
item = vpi_scan(argv);
|
||||||
|
assert(item);
|
||||||
|
|
||||||
|
val.format = vpiHexStrVal;
|
||||||
|
val.value.str = tmp;
|
||||||
|
vpi_put_value(item, &val, 0, vpiNoDelay);
|
||||||
|
free(tmp);
|
||||||
|
rc += 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'o':
|
||||||
|
/* binary integer */
|
||||||
|
tmp = malloc(2);
|
||||||
|
value = 0;
|
||||||
|
tmp[0] = 0;
|
||||||
|
|
||||||
|
ch = byte_getc(src);
|
||||||
|
while (strchr("01234567xXzZ?_", ch)) {
|
||||||
|
if (ch == '?')
|
||||||
|
ch = 'x';
|
||||||
|
if (ch != '_') {
|
||||||
|
ch = tolower(ch);
|
||||||
|
tmp[value++] = ch;
|
||||||
|
tmp = realloc(tmp, value+1);
|
||||||
|
tmp[value] = 0;
|
||||||
|
}
|
||||||
|
ch = byte_getc(src);
|
||||||
|
}
|
||||||
|
byte_ungetc(src, ch);
|
||||||
|
|
||||||
|
item = vpi_scan(argv);
|
||||||
|
assert(item);
|
||||||
|
|
||||||
|
val.format = vpiOctStrVal;
|
||||||
|
val.value.str = tmp;
|
||||||
|
vpi_put_value(item, &val, 0, vpiNoDelay);
|
||||||
|
free(tmp);
|
||||||
|
rc += 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
vpi_printf("$scanf: Unknown format code: %c\n", code);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
free(fmt);
|
||||||
|
|
||||||
|
vpi_free_object(argv);
|
||||||
|
|
||||||
|
val.format = vpiIntVal;
|
||||||
|
val.value.integer = rc;
|
||||||
|
vpi_put_value(sys, &val, 0, vpiNoDelay);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
static int sys_fscanf_compiletf(char*name)
|
||||||
|
{
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
static int sys_fscanf_calltf(char*name)
|
||||||
|
{
|
||||||
|
s_vpi_value val;
|
||||||
|
vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
|
||||||
|
vpiHandle argv = vpi_iterate(vpiArgument, sys);
|
||||||
|
vpiHandle item;
|
||||||
|
|
||||||
|
struct byte_source src;
|
||||||
|
FILE*fd;
|
||||||
|
|
||||||
|
item = vpi_scan(argv);
|
||||||
|
assert(item);
|
||||||
|
|
||||||
|
val.format = vpiIntVal;
|
||||||
|
vpi_get_value(item, &val);
|
||||||
|
|
||||||
|
fd = vpi_get_file(val.value.integer);
|
||||||
|
assert(fd);
|
||||||
|
|
||||||
|
src.str = 0;
|
||||||
|
src.fd = fd;
|
||||||
|
scan_format(sys, &src, argv);
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
static int sys_sscanf_compiletf(char*name)
|
||||||
|
{
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
static int sys_sscanf_calltf(char*name)
|
||||||
|
{
|
||||||
|
s_vpi_value val;
|
||||||
|
vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
|
||||||
|
vpiHandle argv = vpi_iterate(vpiArgument, sys);
|
||||||
|
vpiHandle item;
|
||||||
|
|
||||||
|
struct byte_source src;
|
||||||
|
char*str;
|
||||||
|
|
||||||
|
item = vpi_scan(argv);
|
||||||
|
assert(item);
|
||||||
|
|
||||||
|
val.format = vpiStringVal;
|
||||||
|
vpi_get_value(item, &val);
|
||||||
|
str = strdup(val.value.str);
|
||||||
|
|
||||||
|
src.str = str;
|
||||||
|
src.fd = 0;
|
||||||
|
scan_format(sys, &src, argv);
|
||||||
|
|
||||||
|
free(str);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* All the Xscanf functions return a 32bit value.
|
||||||
|
*/
|
||||||
|
static int sys_fscanf_sizetf(char*x)
|
||||||
|
{
|
||||||
|
return 32;
|
||||||
|
}
|
||||||
|
|
||||||
|
void sys_scanf_register()
|
||||||
|
{
|
||||||
|
s_vpi_systf_data tf_data;
|
||||||
|
|
||||||
|
//============================== fscanf
|
||||||
|
tf_data.type = vpiSysFunc;
|
||||||
|
tf_data.tfname = "$fscanf";
|
||||||
|
tf_data.calltf = sys_fscanf_calltf;
|
||||||
|
tf_data.compiletf = sys_fscanf_compiletf;
|
||||||
|
tf_data.sizetf = sys_fscanf_sizetf;
|
||||||
|
tf_data.user_data = "$fscanf";
|
||||||
|
vpi_register_systf(&tf_data);
|
||||||
|
|
||||||
|
//============================== sscanf
|
||||||
|
tf_data.type = vpiSysFunc;
|
||||||
|
tf_data.tfname = "$sscanf";
|
||||||
|
tf_data.calltf = sys_sscanf_calltf;
|
||||||
|
tf_data.compiletf = sys_sscanf_compiletf;
|
||||||
|
tf_data.sizetf = sys_fscanf_sizetf;
|
||||||
|
tf_data.user_data = "$sscanf";
|
||||||
|
vpi_register_systf(&tf_data);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* $Log $
|
||||||
|
*/
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
|
||||||
*/
|
*/
|
||||||
#ifdef HAVE_CVS_IDENT
|
#ifdef HAVE_CVS_IDENT
|
||||||
#ident "$Id: sys_table.c,v 1.25 2004/06/09 22:14:10 steve Exp $"
|
#ident "$Id: sys_table.c,v 1.26 2006/08/03 05:06:04 steve Exp $"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
# include "vpi_config.h"
|
# include "vpi_config.h"
|
||||||
|
|
@ -35,6 +35,7 @@ extern void sys_plusargs_register();
|
||||||
extern void sys_random_register();
|
extern void sys_random_register();
|
||||||
extern void sys_random_mti_register();
|
extern void sys_random_mti_register();
|
||||||
extern void sys_readmem_register();
|
extern void sys_readmem_register();
|
||||||
|
extern void sys_scanf_register();
|
||||||
extern void sys_time_register();
|
extern void sys_time_register();
|
||||||
extern void sys_vcd_register();
|
extern void sys_vcd_register();
|
||||||
extern void sys_vcdoff_register();
|
extern void sys_vcdoff_register();
|
||||||
|
|
@ -150,6 +151,7 @@ void (*vlog_startup_routines[])() = {
|
||||||
sys_random_register,
|
sys_random_register,
|
||||||
sys_random_mti_register,
|
sys_random_mti_register,
|
||||||
sys_readmem_register,
|
sys_readmem_register,
|
||||||
|
sys_scanf_register,
|
||||||
sys_time_register,
|
sys_time_register,
|
||||||
sys_lxt_or_vcd_register,
|
sys_lxt_or_vcd_register,
|
||||||
0
|
0
|
||||||
|
|
@ -158,6 +160,9 @@ void (*vlog_startup_routines[])() = {
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* $Log: sys_table.c,v $
|
* $Log: sys_table.c,v $
|
||||||
|
* Revision 1.26 2006/08/03 05:06:04 steve
|
||||||
|
* Add the scanf functions.
|
||||||
|
*
|
||||||
* Revision 1.25 2004/06/09 22:14:10 steve
|
* Revision 1.25 2004/06/09 22:14:10 steve
|
||||||
* Move Mersenne Twister to $mti_random, and make
|
* Move Mersenne Twister to $mti_random, and make
|
||||||
* the standard $random standard. Also, add $dist_poisson.
|
* the standard $random standard. Also, add $dist_poisson.
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue