/**

 *  $Id: proser_interface.c 53 2008-01-10 00:19:41Z mbroeker $

 * $URL: http://localhost/svn/c/VirtualReader/trunk/src/proser_interface.c $

 */

#ifdef PROSER

#include <proser_interface.h>

ttshandles interface_init (tts_options propt)

{

    ttshandles pr_handle;

    // initialize Proser options and set default values for a given voice

    if (init_ProserOpt (&propt.ProserOpt, propt.Voice)) {

        fprintf (stderr, "Fatal error occurred in set_ProserOpt: %s\n", GetLastNlpErrorDescription (NULL));

        exit (-1);

    }

    // the path to the TTS input data like dictionaries and prosodic stuff has to be set

    propt.ProserOpt.Path = strdup (propt.Path);

    // here some more manipulations of the standard settings can be done

    propt.ProserOpt.PreEmphasis = propt.PreEmphasis;

    propt.ProserOpt.Speed = propt.Speed;

    // initialize channel //

    if (!(pr_handle.GermanNlp = OpenNlp (&propt.ProserOpt))) {

        fprintf (stderr, "Fatal error occurred in OpenNlp: %s (%d)\n",

                 GetLastNlpErrorDescription (pr_handle.GermanNlp), (int)GetLastNlpError (pr_handle.GermanNlp));

        exit (-1);

    }

    // delete structure for Proser Options //

    if (delete_ProserOpt (&propt.ProserOpt)) {

        fprintf (stderr, "Fatal error occurred in delete_ProserOpt: %s\n", GetLastNlpErrorDescription (NULL));

        exit (-1);

    }

    return pr_handle;

}

int interface_write_to_wav (char *Filename, char *Text, ttshandles prosh, tts_options propt)

{

    // write Text to a file

    if (ProserSynthText (prosh.GermanNlp, Text, Filename, propt.FileType, propt.Stype)) {

        fprintf (stderr, "Fatal error occurred in ProserSynthText: %s\n", GetLastNlpErrorDescription (prosh.GermanNlp));

        return (-1);

    }

    return (0);

}

long *interface_get_timing (ttshandles prosh, char *Text)

{

    // analyze given text, return array with long values containing

    // time in ms when each word of the given text will start in the

    // output

    long *timings = NULL;

    LPPHONEME PhoneticSentenceDescription;

    long NumberOfPhoneticUnits;

    int i = 0, WordNum = 0;

    PhoneticSentenceDescription = TextToPho (prosh.GermanNlp, Text, &NumberOfPhoneticUnits);

#ifdef DEBUG

    printf ("\n[S] %s\n", Text);

#endif

    while (i < (NumberOfPhoneticUnits - 1)) {

        if (PhoneticSentenceDescription[i + 1].Event != 0) {

            timings = realloc (timings, (WordNum + 2) * sizeof (long));

            timings[WordNum] = PhoneticSentenceDescription[i + 1].Offset;

#ifdef DEBUG

            printf ("Wort:\t %i \t Time: %ld ms\n", WordNum, PhoneticSentenceDescription[i + 1].Offset);

#endif

            WordNum++;

        }

        i++;

    }

    timings[WordNum] = 0;

    return timings;

}

tts_options interface_get_cl_opts (int argc, char **argv)

{

    int i, j;

    tts_options propt;

    propt.TextFile = propt.AudioFile = propt.Voice = propt.Path = NULL;

    j = 0;

    propt.PreEmphasis = 0.0f;

    propt.Speed = 1.0f;

    propt.Stype = LIN16;

    propt.FileType = WAV;

    for (i = 1; i < argc; i++) {

        if (!strcmp (argv[i], "-i")) {

            propt.TextFile = argv[++i];

            continue;

        } else if (!strcmp (argv[i], "-o")) {

            propt.AudioFile = argv[++i];

            continue;

        } else if (!strcmp (argv[i], "-v")) {

            propt.Voice = argv[++i];

            continue;

        } else if (!strcmp (argv[i], "-p")) {

            propt.Path = argv[++i];

            continue;

        } else if (!strcmp (argv[i], "-pre")) {

            propt.PreEmphasis = atof (argv[++i]);

            continue;

        } else if (!strcmp (argv[i], "-speed")) {

            propt.Speed = atof (argv[++i]);

            continue;

        } else if (!strcmp (argv[i], "-format")) {

            i++;

            for (j = 0; j < (int)strlen (argv[i]); j++)

                argv[i][j] = toupper (argv[i][j]);

            if (!strcmp (argv[i], "RAW")) {

                propt.FileType = RAW;

                continue;

            } else if (!strcmp (argv[i], "WAV")) {

                propt.FileType = WAV;

                continue;

            } else if (!strcmp (argv[i], "AU")) {

                propt.FileType = AU;

                continue;

            } else {

                fprintf (stderr, "Unknown output type %s\n", argv[i]);

                fprintf (stderr, "Supported output types: RAW - AU - WAV\n");

                exit (-1);

            }

        }

        if (strcmp (argv[i], "-audio") == 0) {

            i++;

            for (j = 0; j < strlen (argv[i]); j++)

                argv[i][j] = toupper (argv[i][j]);

            if (!strcmp (argv[i], "LIN16")) {

                propt.Stype = LIN16;

                continue;

            } else if (!strcmp (argv[i], "LIN8")) {

                propt.Stype = LIN8;

                continue;

            } else if (!strcmp (argv[i], "ULAW")) {

                propt.Stype = ULAW;

                continue;

            } else if (!strcmp (argv[i], "ALAW")) {

                propt.Stype = ALAW;

                continue;

            }

        } else {

            fprintf (stderr, "Unknown option: %s\n", argv[i]);

            exit (-1);

        }

    }

    if (!propt.TextFile) {

        fprintf (stderr, "It's substantial to give a text file by -i <text file>!\n");

        exit (-1);

    } else if (!propt.Voice) {

        fprintf (stderr, "It's substantial to give a voice database by -v <voice>!\n");

        exit (-1);

    } else if (!propt.Path) {

        fprintf (stderr, "It's substantial to give a path for the prosodic stuff by -p <path>!\n");

        exit (-1);

    }

    return (propt);

}

#endif