static void
output_citeparts( fields *f, FILE *outptr, int level, int max )
{
int orig_level;
output_title( f, outptr, level );
output_names( f, outptr, level );
output_origin( f, outptr, level );
output_type( f, outptr, level );
output_language( f, outptr, level );
output_description( f, outptr, level );
if ( level >= 0 && level < max ) {
output_tag( outptr, lvl2indent(level), "relatedItem", NULL, TAG_OPEN, TAG_NEWLINE, "type", "host", NULL );
output_citeparts( f, outptr, incr_level(level,1), max );
output_tag( outptr, lvl2indent(level), "relatedItem", NULL, TAG_CLOSE, TAG_NEWLINE, NULL );
}
/* Look for original item things */
orig_level = original_items( f, level );
if ( orig_level ) {
output_tag( outptr, lvl2indent(level), "relatedItem", NULL, TAG_OPEN, TAG_NEWLINE, "type", "original", NULL );
output_citeparts( f, outptr, orig_level, max );
output_tag( outptr, lvl2indent(level), "relatedItem", NULL, TAG_CLOSE, TAG_NEWLINE, NULL );
}
output_abs( f, outptr, level );
output_notes( f, outptr, level );
output_toc( f, outptr, level );
output_key( f, outptr, level );
output_sn( f, outptr, level );
output_url( f, outptr, level );
output_part( f, outptr, level );
output_recordInfo( f, outptr, level );
}
static void
wordout_write( fields *info, FILE *outptr, param *p, unsigned long numrefs )
{
int max = fields_maxlevel( info );
int type = get_type( info );
fprintf( outptr, "<b:Source>\n" );
output_citeparts( info, outptr, -1, max, type );
fprintf( outptr, "</b:Source>\n" );
fflush( outptr );
}
void
modsout_write( fields *f, FILE *outptr, param *p, unsigned long numrefs )
{
int max, dropkey;
max = fields_maxlevel( f );
dropkey = ( p->format_opts & MODSOUT_DROPKEY );
output_head( f, outptr, dropkey, numrefs );
output_citeparts( f, outptr, 0, max );
modsout_report_unused_tags( f, p, numrefs );
fprintf( outptr, "</mods>\n" );
fflush( outptr );
}
