void generate_interface(std::string interfacename, std::string paramlist, PinList &ilist)
{
fprintf(outfile, "__interface %s {\n", (options.ifprefix + interfacename + paramlist).c_str());
for (auto item : ilist) {
if (item.dir != "input" && item.dir != "output" && item.dir != "inout" && item.dir != "parameter" && item.dir != "interface")
continue;
std::string typ = item.type;
if (isdigit(typ[0]))
typ = "__uint(" + typ + ")";
else if (typ == "integer" || typ == "logic")
typ = "int";
else if (typ == "real" || typ == "DOUBLE")
typ = "float";
else if (typ == "GENERIC")
typ = "const char *";
std::string outp;
if (item.dir == "input")
outp = "__input ";
if (item.dir == "inout")
outp = "__inout ";
if (item.dir == "output")
outp = "__output ";
if (item.dir == "parameter")
outp = "__parameter ";
fprintf(outfile, " %s%s %s;\n", outp.c_str(), ljust(typ,16).c_str(), item.name.c_str());
}
fprintf(outfile, "};\n");
}
/**
* Append an integer to the current message
*
* \param integr
* Integer to append to the current message
*
* \return Nothing
*
* \see ncvita ljust apcmsg
*
* \bug This could be better served by sprintf
*
* \date 830916: Original version.
* \date 830916: Documented/Reviewed
*/
void
apimsg(int integr)
{
char kalpha[9];
/* - Convert integer to alphanumeric. */
cnvita( integr, kalpha,9 );
ljust( kalpha,9 );
/* - Append alphanumeric representation to message. */
apcmsg( kalpha,9 );
return;
}
void
xlinax() {
char ktemp[9];
int lpower;
int ia, ib, igdlog, jdiv, jpower, jstep, jtick,
mds, nds, ndsu, ntick, nxdivu;
float divlog, divtry, factor, grdlog, power, skfudge,
value, valuei, xdivu, xgrdmn, xgrdmx, xref, xrefi, xtick, xticki,
xvpmax, xvpmin, yloc, ypow, yvpmax, yvpmin;
static char kvalue[17] = " ";
static char kpower[9] = " ";
/*=====================================================================
* PURPOSE: To produce a linearly-scaled axis at the bottom and/or
* top of the current plot window.
*=====================================================================
* MODULE/LEVEL: gem/4
*=====================================================================
* GLOBAL INPUT:
* MACH: VSMALL
* GEM: LXDIV, XDIV, LNXDIV, NXDIV, CHHT, CHWID, LXREV,
* XPMNU, XPMXU, XIMNZ, XIMXZ,
* LBOTAX, LBOTTC, LTOPAX, LTOPTC,
* IHORZ, IVERT, XMPIP1, XMPIP2,
* LXGRD, IXGRD, IWIDTH, ISKWIDTH, ITHIN, SKDEVFUDGE
*=====================================================================
* GLOBAL OUTPUT:
* GEM: AXWBOT, AXWTOP
*=====================================================================
* SUBROUTINES CALLED:
* SACLIB: CNVITA, LJUST, SETLINESTYLE, LINE, PLTEXT, CNVFTA,
* SETTEXTJUST, SETLINEWIDTH, GETVPORT
*=====================================================================
* LOCAL VARIABLES:
* xdivu: Divison spacing used.
* lpower: Set to .TRUE. if there is a multiplying scale factor.
* power: Multiplying scale factor.
* kpower: Character string containing formatted scale factor.
* ypow: Y location in plot coordinates of scale factor.
* divtry: Trial division spacing.
* jstep: Integer trial step size (constrained to be 10, 5 or 2).
* xgrdmn: Minimum labeled grid value (including scale factor).
* xgrdmx: Maximum labeled grid value (including scale factor).
* value: Labeled grid value excluding scale factor.
* valuei: Increment in VALUE.
* kvalue: Character string containing formatted label value.
* xref: Location of labeled grid value in plot coordinates.
* xrefi: Increment in XREF.
*=====================================================================
* ASSUMPTIONS:
* - plmap has set up world to plot coordiate mapping.
* - Text orientation is horizontal.
*=====================================================================
* MODIFICATION HISTORY:
* 920526: Added line-width. TEXT is always line-width THIN!
* 830929: Added secondary tick marks.
* 830927: Moved grid drawing logic into its own do loop.
* 830223: Fixed logic in computing annotation format.
* 820928: Cleaned up and documented.
* 810120: Original PRIME version.
*===================================================================== */
/* PROCEDURE: */
settextangle(TEXT_HORIZONTAL);
/* - Determine division spacing. There are three possibilities:
* (1) The division spacing is set by user (LXDIV=.TRUE.).
* (2) The (approximate) number of divsions is set (LNXDIV=.TRUE.).
* (3) "Nice" division spacings are calculated. */
if( cmgem.xdiv_spacing_on ){
xdivu = cmgem.xdiv_spacing;
power = log10( xdivu );
if( power < 0. )
power = power - 1.;
jpower = power;
} else {
if( cmgem.xdiv_number_on ){
nxdivu = cmgem.xdiv_number;
} else {
nxdivu = (fabs( cmgem.uplot.xmax - cmgem.uplot.xmin )/(FDIVSP*cmgem.chht)) + .001;
if( nxdivu < 5 )
nxdivu = 5;
}
divtry = (cmgem.zdata.xmax - cmgem.zdata.xmin)/nxdivu;
if( divtry > 0. ){
power = log10( divtry );
} else {
power = 0.;
}
if( power < 0. )
power = power - 1.;
jpower = power;
/* -- Limit divison spacings to steps of 10, 5, or 2 [cases (2) and (3)]. */
jstep = divtry*(powi(10.,-jpower));
if( jstep > 5 ){
jstep = 1;
jpower = jpower + 1;
/* power = power + 1.; */
} else if( jstep > 2 ) {
jstep = 5;
} else {
jstep = 2;
}
xdivu = jstep*(powi(10.,jpower));
}
/* - Determine "nice-numbered" starting and ending values. */
ia = cmgem.zdata.xmin/xdivu;
xgrdmn = xdivu*ia;
if( xgrdmn < cmgem.zdata.xmin ){
ia = ia + 1;
xgrdmn = xgrdmn + xdivu;
}
ib = cmgem.zdata.xmax/xdivu;
xgrdmx = xdivu*ib;
if( xgrdmx > cmgem.zdata.xmax ){
ib = ib - 1;
xgrdmx = xgrdmx - xdivu;
}
nxdivu = ib - ia + 1;
/* - Determine the format (Fn.m) of the labels.
* The variable NDS assumes the role of "n" and MDS the role of "m". */
/* - The "magic numbers" used in this algorithm generate good division
* spacings almost all of the time. Modify them at your own risk. */
grdlog = log10( fmax( fabs( xgrdmn ), fabs( xgrdmx ) ) + 0.001 );
if( grdlog >= 0. ){
grdlog = grdlog + 1.001;
}
else{
grdlog = grdlog - 0.999;
}
divlog = log10( xdivu );
if( divlog >= 0. ){
divlog = divlog + 1.001;
}
else{
divlog = divlog - 0.999;
}
lpower = FALSE;
factor = 1.;
if( grdlog*divlog >= 0. ){
if( grdlog < 0. ){
igdlog = grdlog;
}
else{
igdlog = divlog;
}
if( labs( igdlog ) >= 3 && cmgem.lxpowr ){
mds = 0;
nds = max( 4, (int)( grdlog ) - (int)( divlog ) + 2 );
cnvita( jpower, ktemp,9 );
ljust( ktemp,9 );
if( jpower >= 0 ){
fstrncpy( kpower, 8, "X 10+", 5);
fstrncpy( kpower+5, 8-5, ktemp, strlen(ktemp));
}
else{
fstrncpy( kpower, 8, "X 10", 4);
fstrncpy( kpower+4, 8-4, ktemp, strlen(ktemp));
}
factor = powi(10.,-jpower);
lpower = TRUE;
}
else{
mds = labs( minfi( 0., divlog ) );
nds = maxfi( 1., grdlog );
if( mds > 0 )
nds = nds + mds + 2;
}
}
else{
mds = labs( minfi( 0., divlog ) );
nds = maxfi( 0., grdlog );
if( mds > 0 )
nds = nds + mds + 2;
}
/* - Determine axes fudge factor for thick axes lines. */
getvport( &xvpmin, &xvpmax, &yvpmin, &yvpmax );
skfudge = cmgem.skdevfudge*((yvpmin - yvpmax)/(xvpmin - xvpmax));
/* - Draw the bottom axis. */
setlinestyle( LINE_STYLE_SOLID );
setlinewidth( cmgem.iskwidth );
if( cmgem.axis[BOTTOM].annotate || cmgem.axis[BOTTOM].ticks ){
/* -- Bottom Axes line. */
if( cmgem.iskwidth > LINE_WIDTH_THIN ){
line( cmgem.uplot.xmin - cmgem.iskwidth*skfudge, cmgem.uplot.ymin,
cmgem.uplot.xmax + cmgem.iskwidth*skfudge, cmgem.uplot.ymin );
}
else{
line( cmgem.uplot.xmin, cmgem.uplot.ymin, cmgem.uplot.xmax, cmgem.uplot.ymin );
}
/* -- Label for multiplying scale factor. */
if( lpower && cmgem.axis[BOTTOM].annotate ){
ypow = fmax( cmgem.uplot.ymin - 2.2*cmgem.chht, 0.1*cmgem.chht );
if( cmgem.lxrev ){
settextjust( "RIGHT", "BOTTOM" );
}
else{
settextjust( "LEFT", "BOTTOM" );
}
pltext( kpower,9, cmgem.uplot.xmin, ypow );
setlinewidth( cmgem.iskwidth );
}
/* -- Calculate constants for labeled tick marks. */
value = xgrdmn*factor;
xref = xgrdmn*cmgem.xmpip1 + cmgem.xmpip2;
valuei = xdivu*factor;
xrefi = xdivu*cmgem.xmpip1;
strcpy( kvalue, " " );
/* -- Draw secondary tick marks before first labeled one. */
ntick = 1;
if( xrefi >= 0.10 ){
ntick = 3;
if( jstep == 5 )
ntick = 4;
}
if( xrefi >= 0.25 )
ntick = 9;
xticki = xrefi/(float)( ntick + 1 );
xtick = xref - xrefi;
for( jtick = 1; jtick <= ntick; jtick++ ){
xtick = xtick + xticki;
if( xtick >= cmgem.uplot.xmin ){
line( xtick, cmgem.uplot.ymin, xtick, cmgem.uplot.ymin +
0.5*cmgem.chwid );
}
}
/* -- Loop on labeled tick marks. */
for( jdiv = 1; jdiv <= nxdivu; jdiv++ ){
line( xref, cmgem.uplot.ymin, xref, cmgem.uplot.ymin +
cmgem.chwid );
if( cmgem.axis[BOTTOM].annotate ){
if( value >= 0 ){
ndsu = nds;
}
else{
ndsu = nds + 1;
}
cnvfta( value, ndsu, mds, kvalue,17 );
ljust( kvalue,17 );
yloc = cmgem.uplot.ymin - 0.1*cmgem.chht;
settextjust( "CENTER", "TOP" );
pltext( kvalue,17, xref, yloc );
setlinewidth( cmgem.iskwidth );
}
/* --- Loop on secondary tick marks. */
xtick = xref;
for( jtick = 1; jtick <= ntick; jtick++ ){
xtick = xtick + xticki;
if( xtick <= cmgem.uplot.xmax ){
line( xtick, cmgem.uplot.ymin, xtick, cmgem.uplot.ymin +
0.5*cmgem.chwid );
}
}
value = value + valuei;
xref = xref + xrefi;
}
/* -- Save axes widths. */
if( cmgem.axis[BOTTOM].annotate ){
cmgem.axis[BOTTOM].width = 1.1*cmgem.chht;
if( lpower )
cmgem.axis[BOTTOM].width = cmgem.uplot.ymin - ypow;
}
else{
cmgem.axis[BOTTOM].width = 0.;
}
}
/* - Top axis: */
if( cmgem.axis[TOP].annotate || cmgem.axis[TOP].ticks ){
/* -- Top Axes line. */
if( cmgem.iskwidth > LINE_WIDTH_THIN ){
line( cmgem.uplot.xmin - cmgem.iskwidth*skfudge, cmgem.uplot.ymax,
cmgem.uplot.xmax + cmgem.iskwidth*skfudge, cmgem.uplot.ymax );
}
else{
line( cmgem.uplot.xmin, cmgem.uplot.ymax, cmgem.uplot.xmax, cmgem.uplot.ymax );
}
/* -- Label for multiplying scale factor. */
if( lpower && cmgem.axis[TOP].annotate ){
ypow = fmin( cmgem.uplot.ymax + 2.2*cmgem.chht, cmgem.view.ymax -
0.1*cmgem.chht );
if( cmgem.lxrev ){
settextjust( "RIGHT", "TOP" );
}
else{
settextjust( "LEFT", "TOP" );
}
pltext( kpower,9, cmgem.uplot.xmin, ypow );
setlinewidth( cmgem.iskwidth );
}
/* -- Calculate constants for labeled tick marks. */
value = xgrdmn*factor;
xref = xgrdmn*cmgem.xmpip1 + cmgem.xmpip2;
valuei = xdivu*factor;
xrefi = xdivu*cmgem.xmpip1;
strcpy( kvalue, " " );
/* -- Draw secondary tick marks before first labeled one. */
ntick = 1;
if( xrefi >= 0.10 ){
ntick = 3;
if( jstep == 5 )
ntick = 4;
}
if( xrefi >= 0.25 )
ntick = 9;
xticki = xrefi/(float)( ntick + 1 );
xtick = xref - xrefi;
for( jtick = 1; jtick <= ntick; jtick++ ){
xtick = xtick + xticki;
if( xtick >= cmgem.uplot.xmin ){
line( xtick, cmgem.uplot.ymax, xtick, cmgem.uplot.ymax -
0.5*cmgem.chwid );
}
}
/* -- Loop on labeled tick marks. */
for( jdiv = 1; jdiv <= nxdivu; jdiv++ ){
line( xref, cmgem.uplot.ymax, xref, cmgem.uplot.ymax -
cmgem.chwid );
if( cmgem.axis[TOP].annotate ){
if( value >= 0. ){
ndsu = nds;
}
else{
ndsu = nds + 1;
}
cnvfta( value, ndsu, mds, kvalue,17 );
ljust( kvalue,17 );
yloc = cmgem.uplot.ymax + 0.1*cmgem.chht;
settextjust( "CENTER", "BOTTOM" );
pltext( kvalue,17, xref, yloc );
setlinewidth( cmgem.iskwidth );
}
/* --- Loop on secondary tick marks. */
xtick = xref;
for( jtick = 1; jtick <= ntick; jtick++ ){
xtick = xtick + xticki;
if( xtick <= cmgem.uplot.xmax ){
line( xtick, cmgem.uplot.ymax, xtick, cmgem.uplot.ymax -
0.5*cmgem.chwid );
}
}
value = value + valuei;
xref = xref + xrefi;
}
/* -- Save axes widths. */
if( cmgem.axis[TOP].annotate ){
cmgem.axis[TOP].width = 1.1*cmgem.chht;
if( lpower )
cmgem.axis[TOP].width = ypow - cmgem.uplot.ymax;
}
else{
cmgem.axis[TOP].width = 0.;
}
}
/* - Grid lines. */
if( cmgem.lxgrd ){
setlinewidth( LINE_WIDTH_THIN );
xref = xgrdmn*cmgem.xmpip1 + cmgem.xmpip2;
xrefi = xdivu*cmgem.xmpip1;
setlinestyle( cmgem.ixgrd );
for( jdiv = 1; jdiv <= nxdivu; jdiv++ ){
line( xref, cmgem.uplot.ymin, xref, cmgem.uplot.ymax );
xref = xref + xrefi;
}
setlinestyle( LINE_STYLE_SOLID );
setlinewidth( cmgem.iskwidth );
}
return;
} /* end of function */