/*

 * title.c

 *

 * process titles into title/subtitle pairs for MODS

 *

 * Copyright (c) Chris Putnam 2004-2018

 *

 * Source code released under the GPL version 2

 *

 */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "str.h"

#include "fields.h"

#include "title.h"

#include "is_ws.h"

int

title_process( fields *info, char *tag, char *data, int level, 

	unsigned char nosplittitle )

{

	str title, subtitle;

	char *p, *q;

	int status;

	str_init( &title );

	str_init( &subtitle );

	if ( nosplittitle ) q = NULL;

	else {

		q = strstr( data, ": " );

		if ( !q ) q = strstr( data, "? " );

	}

	if ( !q ) str_strcpyc( &title, data );

	else {

		p = data;

		while ( p!=q ) str_addchar( &title, *p++ );

		if ( *q=='?' ) str_addchar( &title, '?' );

		q++;

		q = skip_ws( q );

		while ( *q ) str_addchar( &subtitle, *q++ );

	}

	if ( strncasecmp( "SHORT", tag, 5 ) ) {

		if ( str_has_value( &title ) ) {

			status = fields_add( info, "TITLE", str_cstr( &title ), level );

			if ( status!=FIELDS_OK ) return 0;

		}

		if ( str_has_value( &subtitle ) ) {

			status = fields_add( info, "SUBTITLE", str_cstr( &subtitle ), level );

			if ( status!=FIELDS_OK ) return 0;

		}

	} else {

		if ( str_has_value( &title ) ) {

			status = fields_add( info, "SHORTTITLE", str_cstr( &title ), level );

			if ( status!=FIELDS_OK ) return 0;

		}

		/* no SHORT-SUBTITLE! */

	}

	str_free( &subtitle );

	str_free( &title );

	return 1;

}

/* title_combine()

 *

 * Combine a main title and a subtitle into a full title.

 *

 * Example:

 * 	Main title = "A Clearing in the Distance"

 * 	Subtitle   = "The Biography of Frederick Law Olmstead"

 * 	Full title = "A Clearing in the Distance: The Biography of Frederick Law Olmstead"

 * Example:

 *	Main title = "What Makes a Good Team Player?"

 *	Subtitle   = "Personality and Team Effectiveness"

 *	Full title = "What Makes a Good Team Player? Personality and Team Effectiveness"

 */

void

title_combine( str *fullttl, str *mainttl, str *subttl )

{

	str_empty( fullttl );

	if ( !mainttl ) return;

	str_strcpy( fullttl, mainttl );

	if ( subttl ) {

		if ( str_has_value( mainttl ) ) {

			if ( mainttl->data[ mainttl->len - 1 ] != '?' && mainttl->data[ mainttl->len - 1] != ':' )

				str_strcatc( fullttl, ": " );

			else

				str_strcatc( fullttl, " " );

		}

		str_strcat( fullttl, subttl );

	}

}