void SendInt( intstar4 num ) {
//===============================
char num_buff[MAX_INT_SIZE+1];
ltoa( num, num_buff, 10 );
SendWSLStr( num_buff );
}
static void NmlOut( void ) {
//========================
byte PGM *nml;
byte len;
byte info;
PTYPE typ;
unsigned_32 num_elts;
byte PGM *data;
string scb;
lg_adv PGM *adv_ptr;
nml = (byte PGM *)(IOCB->fmtptr);
len = *nml; // get length of NAMELIST name
++nml;
Drop( ' ' );
Drop( '&' );
SendStr( (char *)nml, len );
nml += len;
SendEOR();
for(;;) {
len = *nml;
if( len == 0 ) break;
++nml;
Drop( ' ' );
SendStr( (char *)nml, len );
nml += len;
SendWSLStr( " = " );
info = *nml;
++nml;
typ = _GetNMLType( info );
IOCB->typ = typ;
if( _GetNMLSubScrs( info ) ) {
if( info & NML_LG_ADV ) {
adv_ptr = *(lg_adv PGM * PGM *)nml;
num_elts = adv_ptr->num_elts;
if( typ == PT_CHAR ) {
scb.len = adv_ptr->elt_size;
scb.strptr = (char PGM *)adv_ptr->origin;
} else {
data = (byte PGM *)adv_ptr->origin;
}
} else {
num_elts = *(unsigned_32 PGM *)nml;
nml += sizeof( unsigned_32 ) + _GetNMLSubScrs( info ) *
( sizeof( unsigned_32 ) + sizeof( int ) );
if( typ == PT_CHAR ) {
scb.len = *(uint PGM *)nml;
nml += sizeof( uint );
scb.strptr = *(char PGM * PGM *)nml;
} else {
void F_SendData( char *str, uint width ) {
//===========================================
int blanks;
ftnfile *fcb;
fcb = IOCB->fileinfo;
if( fcb->col + width > fcb->bufflen ) {
SendEOR();
}
blanks = width - strlen( str );
if( blanks < 0 ) {
SendChar( '*', width );
} else {
SendChar( ' ', blanks );
SendWSLStr( str );
}
}
void SendLine( char *str ) {
//=============================
SendWSLStr( str );
SendEOR();
}
