festival.c

#define GITKR_SPEECH_FESTIVAL_C

#include "gitkrincludes.h"

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netdb.h>
#include <netinet/in.h>
#include <arpa/inet.h>


static gboolean festival_open(FT_Info *info) {
  return(((info->server_fd=festival_socket_open(info->server_host, info->server_port))!=-1));
}

FT_Info *festival_initialize(char *host, int port, char *mode) {
  FT_Info *info;

  info=calloc(1,sizeof(FT_Info));

  info->server_host=((host!=NULL)?host:FESTIVAL_DEFAULT_SERVER_HOST);
  info->server_port=((port!=-1  )?port:FESTIVAL_DEFAULT_SERVER_PORT);
  info->text_mode  =((mode!=NULL)?mode:FESTIVAL_DEFAULT_TEXT_MODE  );

  if(!festival_open(info)) {
    gitk_log("!! can't connect to festival speech service, try starting it");
    if(!system("festival >/tmp/festival.log --server &")) {
      sleep(1);
      if(!festival_open(info)) {
        gitk_log("!! can't connect to festival speech service, giving up");
        festival_done(info);return(NULL);
      }
    }
    else {
      gitk_log("!! can't start festival speech service");
      festival_done(info);return(NULL);
    }
  }
  
  return(info);
}

void festival_done(FT_Info *info) {
  if(!info) return;

  if(info->server_fd!=-1) close(info->server_fd);

  free(info);
}

void festival__say_text(FT_Info *info, const char *text) {
  FILE *fd;
  const char *p;
  char str[1024];
  guint sl;

  if(!info) return;
  if(info->server_fd == -1) return;

  gitk_log_intro();
  
  fd=fdopen(dup(info->server_fd),"wb");

  //-- copy text over to server, escaping any quotes
  fprintf(fd,"(SayText \"");
  for(p=text;(p && (*p!='\0'));p++) {
    //-- escape chars like '"' '\' with another '\' 
    if((*p=='"')||(*p=='\\')) putc('\\',fd);
    putc(*p,fd);
  }
  fputs("\")",fd);
  //fprintf(fd,"\" \"%s\")\n",info->text_mode);
  fclose(fd);
  
  fd=fdopen(dup(info->server_fd),"rb");
  
  while(TRUE) {
    // read response code
    fgets(str,1024,fd);
    sl=strlen(str);
    if(sl<3) break;
    // get last three chars (if there are at least three available
    p=&str[sl-3];
    if(!strncmp(p,"WV\n",3)) {
      gitk_log("festival response : waveform");
    }
    else if(!strncmp(p,"LP\n",3)) {
      gitk_log("festival response : expression");
      fgets(str,1024,fd);
      sl=strlen(str);
      if(sl>0) {
        str[sl-1]='\0';
        gitk_log1("  expression : \"%s\"",str);
      }
    }
    else if(!strncmp(p,"ER\n",3)) {
      gitk_log("festival response : error");
    }
    else if(!strncmp(p,"OK\n",3)) {
      gitk_log("festival response : okay");
      break;
    }
    else {
      gitk_log1("unknown festival response : \"%s\"",str);
    }
  }
  fclose(fd);
  gitk_log_outro();
}

//-- private helper

static int festival_socket_open(const char *host, int port) {   
  struct sockaddr_in serv_addr;
  struct hostent *serverhost;
  int fd;

  fd = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

  if (fd < 0) {
    gitk_log("festival_client: can't get socket");
    return -1;
  }
  memset(&serv_addr, 0, sizeof(serv_addr));
  if ((serv_addr.sin_addr.s_addr = inet_addr(host)) == -1) {
    /* its a name rather than an ipnum */
    serverhost = gethostbyname(host);
    if (serverhost == (struct hostent *)0) {
      gitk_log("festival_client: gethostbyname failed");
      return -1;
    }
    memmove(&serv_addr.sin_addr,serverhost->h_addr, serverhost->h_length);
  }
  serv_addr.sin_family = AF_INET;
  serv_addr.sin_port = htons(port);

  if (connect(fd, (struct sockaddr *)&serv_addr, sizeof(serv_addr)) != 0) {
    gitk_log("festival_client: connect to server failed");
    return -1;
  }

  return fd;
}

---