2010-06-03 21:24:43 +08:00
|
|
|
/*********************************************************************
|
2018-12-07 06:40:43 +08:00
|
|
|
* Copyright 2018, UCAR/Unidata
|
2010-06-03 21:24:43 +08:00
|
|
|
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
|
|
|
*********************************************************************/
|
|
|
|
|
|
|
|
#include "includes.h"
|
2023-11-25 02:20:52 +08:00
|
|
|
#include <stddef.h>
|
2010-06-03 21:24:43 +08:00
|
|
|
|
|
|
|
#ifdef ENABLE_C
|
|
|
|
|
2012-02-14 08:25:32 +08:00
|
|
|
#include <math.h>
|
2018-12-06 10:20:43 +08:00
|
|
|
#ifndef isnan
|
|
|
|
extern int isnan(double);
|
|
|
|
#endif
|
2010-11-10 06:53:03 +08:00
|
|
|
|
2012-02-14 08:25:32 +08:00
|
|
|
static int c_uid = 0;
|
2010-11-10 06:53:03 +08:00
|
|
|
|
2012-02-14 08:25:32 +08:00
|
|
|
static int
|
2016-11-18 06:29:32 +08:00
|
|
|
c_charconstant(Generator* generator, Symbol* sym, Bytebuffer* codebuf, ...)
|
2010-06-03 21:24:43 +08:00
|
|
|
{
|
2012-02-14 08:25:32 +08:00
|
|
|
/* Escapes and quoting will be handled in genc_write */
|
|
|
|
/* Just transfer charbuf to codebuf */
|
|
|
|
Bytebuffer* charbuf;
|
|
|
|
va_list ap;
|
2018-11-16 01:00:38 +08:00
|
|
|
va_start(ap,codebuf);
|
2012-02-14 08:25:32 +08:00
|
|
|
charbuf = va_arg(ap, Bytebuffer*);
|
|
|
|
va_end(ap);
|
|
|
|
bbNull(charbuf);
|
|
|
|
bbCatbuf(codebuf,charbuf);
|
|
|
|
return 1;
|
2010-06-03 21:24:43 +08:00
|
|
|
}
|
|
|
|
|
2012-02-14 08:25:32 +08:00
|
|
|
static int
|
2016-11-18 06:29:32 +08:00
|
|
|
c_constant(Generator* generator, Symbol* sym, NCConstant* con, Bytebuffer* buf,...)
|
2010-06-03 21:24:43 +08:00
|
|
|
{
|
|
|
|
Bytebuffer* codetmp = bbNew();
|
2012-02-14 08:25:32 +08:00
|
|
|
char* special = NULL;
|
2010-06-03 21:24:43 +08:00
|
|
|
|
2012-02-14 08:25:32 +08:00
|
|
|
switch (con->nctype) {
|
2012-02-18 02:50:25 +08:00
|
|
|
case NC_CHAR:
|
|
|
|
if(con->value.charv == '\'')
|
|
|
|
bbprintf(codetmp,"'\\''");
|
|
|
|
else
|
2013-09-24 07:08:50 +08:00
|
|
|
bbprintf(codetmp,"'%s'",cescapifychar(con->value.charv,'\''));
|
2012-02-18 02:50:25 +08:00
|
|
|
break;
|
2010-06-03 21:24:43 +08:00
|
|
|
case NC_BYTE:
|
2012-02-14 08:25:32 +08:00
|
|
|
bbprintf(codetmp,"%hhd",con->value.int8v);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_SHORT:
|
2012-02-14 08:25:32 +08:00
|
|
|
bbprintf(codetmp,"%hd",con->value.int16v);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_INT:
|
2012-02-14 08:25:32 +08:00
|
|
|
bbprintf(codetmp,"%d",con->value.int32v);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_FLOAT:
|
2010-11-10 06:53:03 +08:00
|
|
|
/* Special case for nanf */
|
2012-02-14 08:25:32 +08:00
|
|
|
if(isnan(con->value.floatv))
|
2010-11-10 06:53:03 +08:00
|
|
|
bbprintf(codetmp,"nanf");
|
|
|
|
else
|
2012-02-14 08:25:32 +08:00
|
|
|
bbprintf(codetmp,"%f",con->value.floatv);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_DOUBLE:
|
2012-02-14 08:25:32 +08:00
|
|
|
/* Special case for nan */
|
|
|
|
if(isnan(con->value.doublev))
|
2010-11-10 06:53:03 +08:00
|
|
|
bbprintf(codetmp,"nan");
|
|
|
|
else
|
2012-02-14 08:25:32 +08:00
|
|
|
bbprintf(codetmp,"%lf",con->value.doublev);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_UBYTE:
|
2015-11-20 04:44:07 +08:00
|
|
|
bbprintf(codetmp,"%hhuU",con->value.uint8v);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_USHORT:
|
2015-11-20 04:44:07 +08:00
|
|
|
bbprintf(codetmp,"%huU",con->value.uint16v);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_UINT:
|
2012-02-14 08:25:32 +08:00
|
|
|
bbprintf(codetmp,"%uU",con->value.uint32v);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_INT64:
|
2012-02-14 08:25:32 +08:00
|
|
|
bbprintf(codetmp,"%lldLL",con->value.int64v);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_UINT64:
|
2015-11-20 04:44:07 +08:00
|
|
|
bbprintf(codetmp,"%lluULL",con->value.uint64v);
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
|
|
|
case NC_ECONST:
|
2012-02-14 08:25:32 +08:00
|
|
|
bbprintf(codetmp,"%s",cname(con->value.enumv));
|
2010-06-03 21:24:43 +08:00
|
|
|
break;
|
2013-07-11 04:00:48 +08:00
|
|
|
case NC_NIL:
|
2012-02-14 08:25:32 +08:00
|
|
|
case NC_STRING: { /* handle separately */
|
2013-07-11 04:00:48 +08:00
|
|
|
if(con->value.stringv.len == 0 && con->value.stringv.stringv == NULL) {
|
|
|
|
bbprintf(codetmp,"NULL");
|
|
|
|
} else {
|
|
|
|
char* escaped = escapify(con->value.stringv.stringv,
|
2012-02-14 08:25:32 +08:00
|
|
|
'"',con->value.stringv.len);
|
2013-07-11 04:00:48 +08:00
|
|
|
special = poolalloc(1+2+strlen(escaped));
|
|
|
|
strcpy(special,"\"");
|
|
|
|
strcat(special,escaped);
|
|
|
|
strcat(special,"\"");
|
|
|
|
}
|
2012-02-14 08:25:32 +08:00
|
|
|
} break;
|
2010-06-03 21:24:43 +08:00
|
|
|
case NC_OPAQUE: {
|
|
|
|
char* p;
|
2023-12-11 21:41:17 +08:00
|
|
|
size_t bslen = 4*con->value.opaquev.len;
|
2012-02-14 08:25:32 +08:00
|
|
|
special = poolalloc(bslen+2+1);
|
|
|
|
strcpy(special,"\"");
|
|
|
|
p = con->value.opaquev.stringv;
|
2010-06-03 21:24:43 +08:00
|
|
|
while(*p) {
|
2021-05-15 01:33:03 +08:00
|
|
|
strlcat(special,"\\x",bslen+3);
|
|
|
|
strlcat(special,p,bslen+3);
|
2010-06-03 21:24:43 +08:00
|
|
|
p += 2;
|
|
|
|
}
|
2021-05-15 01:33:03 +08:00
|
|
|
strlcat(special,"\"",bslen+3);
|
2010-06-03 21:24:43 +08:00
|
|
|
} break;
|
|
|
|
|
2012-02-14 08:25:32 +08:00
|
|
|
default: PANIC1("ncstype: bad type code: %d",con->nctype);
|
|
|
|
|
2010-06-03 21:24:43 +08:00
|
|
|
}
|
2012-02-14 08:25:32 +08:00
|
|
|
if(special == NULL)
|
|
|
|
bbCatbuf(buf,codetmp);
|
|
|
|
else
|
|
|
|
bbCat(buf,special);
|
2010-06-03 21:24:43 +08:00
|
|
|
bbFree(codetmp);
|
2012-02-14 08:25:32 +08:00
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2016-11-18 06:29:32 +08:00
|
|
|
c_listbegin(Generator* generator, Symbol* sym, void* liststate, ListClass lc, size_t size, Bytebuffer* codebuf, int* uidp, ...)
|
2012-02-14 08:25:32 +08:00
|
|
|
{
|
|
|
|
if(uidp) *uidp = ++c_uid;
|
|
|
|
switch (lc) {
|
|
|
|
case LISTVLEN:
|
|
|
|
case LISTATTR:
|
|
|
|
case LISTDATA:
|
|
|
|
break;
|
|
|
|
case LISTFIELDARRAY:
|
|
|
|
case LISTCOMPOUND:
|
|
|
|
bbAppend(codebuf,'{');
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2016-11-18 06:29:32 +08:00
|
|
|
c_list(Generator* generator, Symbol* sym, void* liststate, ListClass lc, int uid, size_t count, Bytebuffer* codebuf, ...)
|
2012-02-14 08:25:32 +08:00
|
|
|
{
|
|
|
|
switch (lc) {
|
|
|
|
case LISTVLEN:
|
|
|
|
case LISTATTR:
|
|
|
|
if(count > 0) bbCat(codebuf,", ");
|
|
|
|
break;
|
|
|
|
case LISTDATA:
|
|
|
|
case LISTCOMPOUND:
|
|
|
|
case LISTFIELDARRAY:
|
|
|
|
bbAppend(codebuf,' ');
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2016-11-18 06:29:32 +08:00
|
|
|
c_listend(Generator* generator, Symbol* sym, void* liststate, ListClass lc, int uid, size_t count, Bytebuffer* buf, ...)
|
2012-02-14 08:25:32 +08:00
|
|
|
{
|
|
|
|
switch (lc) {
|
|
|
|
case LISTCOMPOUND:
|
|
|
|
case LISTFIELDARRAY:
|
|
|
|
bbAppend(buf,'}');
|
|
|
|
break;
|
|
|
|
case LISTDATA:
|
|
|
|
case LISTVLEN:
|
|
|
|
case LISTATTR:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return 1;
|
2010-06-03 21:24:43 +08:00
|
|
|
}
|
|
|
|
|
2012-02-14 08:25:32 +08:00
|
|
|
static int
|
2016-11-18 06:29:32 +08:00
|
|
|
c_vlendecl(Generator* generator, Symbol* tsym, Bytebuffer* codebuf, int uid, size_t count, ...)
|
2012-02-14 08:25:32 +08:00
|
|
|
{
|
|
|
|
/* Build a bytebuffer to capture the vlen decl */
|
2016-11-18 06:29:32 +08:00
|
|
|
List* declstack = (List*)generator->globalstate;
|
2012-02-14 08:25:32 +08:00
|
|
|
Bytebuffer* decl = bbNew();
|
|
|
|
Bytebuffer* vlenbuf;
|
|
|
|
va_list ap;
|
2018-11-16 01:00:38 +08:00
|
|
|
va_start(ap,count);
|
2012-02-14 08:25:32 +08:00
|
|
|
vlenbuf = va_arg(ap, Bytebuffer*);
|
|
|
|
va_end(ap);
|
|
|
|
bbprintf0(decl,"static const %s vlen_%u[] = {",
|
|
|
|
ctypename(tsym->typ.basetype),
|
|
|
|
uid);
|
|
|
|
commify(vlenbuf);
|
|
|
|
bbCatbuf(decl,vlenbuf);
|
|
|
|
bbCat(decl,"} ;");
|
2012-08-20 05:54:30 +08:00
|
|
|
listpush(declstack,(void*)decl);
|
2012-02-14 08:25:32 +08:00
|
|
|
/* Now generate the reference to buffer */
|
|
|
|
bbprintf(codebuf,"{%u,(void*)vlen_%u}",count,uid);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2016-11-18 06:29:32 +08:00
|
|
|
c_vlenstring(Generator* generator, Symbol* sym, Bytebuffer* vlenmem, int* uidp, size_t* countp,...)
|
2012-02-14 08:25:32 +08:00
|
|
|
{
|
|
|
|
if(uidp) *uidp = ++c_uid;
|
|
|
|
if(countp) *countp = bbLength(vlenmem);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Define the single static bin data generator */
|
|
|
|
static Generator c_generator_singleton = {
|
|
|
|
NULL,
|
|
|
|
c_charconstant,
|
|
|
|
c_constant,
|
|
|
|
c_listbegin,
|
|
|
|
c_list,
|
|
|
|
c_listend,
|
|
|
|
c_vlendecl,
|
|
|
|
c_vlenstring
|
|
|
|
};
|
|
|
|
Generator* c_generator = &c_generator_singleton;
|
|
|
|
|
2010-06-03 21:24:43 +08:00
|
|
|
#endif /*ENABLE_C*/
|