source: tags/arb_5.2/CONVERTALN/util.c

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <stdlib.h>
#include "convert.h"
#include "global.h"

int warning_out = 1;

/* --------------------------------------------------------------
 *   Function Cmpstr().
 *       Compare string s1 and string s2, if eq. return 1
 *           else return 0.
 */
int Cmpcasestr(s1, s2)
     const char *s1, *s2;
{
    int indi;

    for(indi=0; s1[indi]!='\0'&&s2[indi]!='\0'; indi++)
        if(!same_char(s1[indi], s2[indi])) return(0);

    return(same_char(s1[indi], s2[indi]));
}
/* --------------------------------------------------------------
 *   Function Cmpstr().
 *       Compare string s1 and string s2, if eq. return 1
 *           else return 0.
 */
int Cmpstr(s1, s2)
     const char *s1, *s2;
{
    if(strcmp(s1,s2)==0) return(1);
    else return(0);
}
/* --------------------------------------------------------------- *
 *   Function Freespace().
 *   Free the pointer if not NULL.
 */
void Freespace(pointer)
     void   *pointer;
{
    char **the_pointer = (char**)pointer;

    if((*the_pointer)!=NULL)    {
        free((*the_pointer));
    }
    (*the_pointer) = NULL;
}
/* ---------------------------------------------------------------
 *   Function error()
 *   Syntax error in prolog input file, print out error and exit.
 */
void error(error_num, error_message)
     int   error_num;
     const char *error_message;
{
    fprintf(stderr, "ERROR(%d): %s\n", error_num, error_message);
    exit(error_num);
}
/* --------------------------------------------------------------
 *  Function warning()
 *      print out warning_message and continue execution.
 */
/* ------------------------------------------------------------- */
void warning(warning_num, warning_message)
     int         warning_num;
     const char *warning_message;
{
    if(warning_out)
        fprintf(stderr, "WARNING(%d): %s\n", warning_num, warning_message);
}
/* ------------------------------------------------------------
 *   Function Reallspace().
 *       Realloc a continue space, expand or shrink the
 *       original space.
 */
char *Reallocspace(block, size)
     void *block;
     unsigned size;
{
    char *temp, answer;
    /*  void warning(); */

    if((block==NULL&&size<=0)||size<=0) return(NULL);
    if(block==NULL) {
        temp=(char*)calloc(1,size);
    } else  {
        temp=(char*)realloc(block, size);
    }
    if(temp==NULL)  {
        warning(999, "Run out of memory");
        fprintf(stderr, "Are you converting to Paup or Phylip?(y/n) ");
        scanf("%c", &answer);
        if(answer=='y') return(NULL);
        else exit(999);
    }
    return(temp);
}
/* -------------------------------------------------------------------
 *   Function Dupstr().
 *       Duplicate string and return the address of string.
 */
char *Dupstr(string)
     const char *string;
{

    char    *temp,  answer;
    /*  void    warning(); */
    unsigned size;

    if(string==NULL) return(NULL);
    else    {
        size = strlen(string);
        if((temp=(char*)calloc(1,size+1))==NULL)    {
            warning(888, "Run out of memory");
            fprintf(stderr, "Are you converting to Paup or Phylip?(y/n) ");
            scanf("%c", &answer);
            if(answer=='y') return(NULL);
            else exit(888);
        }
        strcpy(temp, string);
        return(temp);
    }
}
/* ------------------------------------------------------------
 *  Function Catstr().
 *      Append string s2 to string s1.
 */
char *Catstr(s1, s2)
     char       *s1;
     const char *s2;
{
    return((char*)strcat(s1, s2));
}
/* ------------------------------------------------------------
 *   Function Lenstr().
 *       Length of the string s1.
 */
int Lenstr(s1)
     const char *s1;
{
    if(s1==NULL)     return(0);
    else return(strlen(s1));
}
/* --------------------------------------------------------
 *  Function Cpystr().
 *      Copy string s2 to string s1.
 */
void Cpystr(s1, s2)
     char       *s1;
     const char *s2;
{
    strcpy(s1, s2);
}
/* ---------------------------------------------------------
 *   Function Skip_white_space().
 *       Skip white space from (index)th char of string line.
 */
int Skip_white_space(line, index)
     char   *line;
     int    index;
{
    /* skip white space */

    while (line[index] == ' ' || line[index] == '\t') ++index;
    /*     for(; */
    /*         line[index]                          == ' ' || line[index]=='\t' && line[index]!='\0'; */
    /*         index++) ; */
    return(index);
}
/* ----------------------------------------------------------------
 *   Function Reach_white_space().
 *       Reach the next available white space of string line.
 */
int Reach_white_space(line, index)
     char   *line;
     int    index;
{
    int length;

    length = Lenstr(line);

    /* skip to white space */
    for(; line[index]!=' '&&line[index]!='\t'
            &&index<length; index++) ;

    return(index);
}
/* ---------------------------------------------------------------
 *   Function Fgetline().
 *       Get a line from assigned file, also checking for buffer
 *           overflow.
 */

char *Fgetline(char *line, size_t maxread, FILE_BUFFER fb) {
    size_t      len;
    const char *fullLine = FILE_BUFFER_read(fb, &len);
    if (!fullLine) return 0;

    if (len <= (maxread-2)) {
        memcpy(line, fullLine, len);
        line[len] = '\n';
        line[len+1] = 0;
        return line;
    }

    fprintf(stderr, "Error(148): OVERFLOW LINE: %s\n", fullLine);
    return 0;
}

/* ------------------------------------------------------------
 *   Function Getstr().
 *       Get input string from terminal.
 */
void Getstr(line, linenum)
     char   *line;
     int    linenum;
{

    char    c;
    int indi=0;

    for(; (c=getchar())!='\n'&&indi<(linenum-1); line[indi++]=c) ;

    line[indi]='\0';
}
/* ----------------------------------------------------------------
 *   Function Append_char().
 *       Append a char before '\n' if there is no such char.
 *           (Assume there is '\n' at the end of string
 *           already and length of string except '\n' must
 *           greater than 1.)
 */
void Append_char(string, ch)
     char   **string, ch;
{
    /*  int Lenstr(); */
    /*  void    Append_rm_eoln(); */
    char    temp[10];

    if(Lenstr((*string))<=0||(*string)[0]=='\n') return;

    if((*string)[Lenstr((*string))-2]!=ch)  {
        sprintf(temp, "%c\n", ch);
        Append_rm_eoln(string, temp);
    }
}
/* ----------------------------------------------------------------
 *  Function Append_rm_eoln().
 *      Remove the eoln of string1 and then append string2
 *      to string1.
 */
void Append_rm_eoln(string1, string2)
     char       **string1;
     const char  *string2;
{
    int length;
    /*  char    *Reallocspace(); */
    /*  char    *Catstr(); */

    length = Lenstr(*string1);

    if(((length>1)&&(*string1)[length-1]=='\n') ||(*string1)[0]=='\n')
        length--;

    (*string1)=(char*)Reallocspace((*string1),
                                   (unsigned int)(sizeof(char)*(Lenstr(string2)+length+1)));

    (*string1)[length]='\0';

    Catstr((*string1), string2);
}
/* ----------------------------------------------------------------
 *   Function Append_rp_eoln().
 *       Replace the eoln by a blank in string1 and then append
 *       string2 to string1.
 */
void Append_rp_eoln(string1, string2)
     char   **string1, *string2;
{
    int length;
    /*  char    *Reallocspace(); */
    /*  char    *Catstr(); */

    length = Lenstr(*string1);
    if((length>1)&&(*string1)[length-1]=='\n')
        (*string1)[length-1]=' ';
    (*string1)=(char*)Reallocspace((*string1),
                                   (unsigned int)(sizeof(char) *(Lenstr(string2)+Lenstr(*string1)+1)));
    (*string1)[length]='\0';
    Catstr((*string1), string2);
}
/* ----------------------------------------------------------------
 *   Function Append().
 *       Append string2 to string1.
 */
void Append(string1, string2)
     char   **string1;
     const char *string2;
{
    int length;
    /*  char    *Reallocspace(); */
    /*  char    *Catstr(); */

    length = Lenstr(*string1);
    if(length==0&&Lenstr(string2)==0)   return;

    (*string1)=(char*)Reallocspace((*string1),
                                   (unsigned int)(sizeof(char)* (Lenstr(string2)+Lenstr(*string1)+1)));
    (*string1)[length]='\0';

    Catstr((*string1), string2);
}
/* ----------------------------------------------------------
 *   Function find_pattern()
 *   Return TRUE if the desired pattern in the input text
 */
int find_pattern(text, pattern)
     const char *text, *pattern;
{
    int indi, index, indj;
    int stop;

    stop = Lenstr(text)-Lenstr(pattern)+1;
    for(indi=0; indi<stop; indi++)
    {
        index = -2;
        for(indj=0; index==-2&&pattern[indj]!='\0'; indj++)
            if(same_char(text[indi+indj],
                         pattern[indj])==0)
                index = -1;
        if(index == -2) return(indi);
        /* find PARTIALLY matched pattern */
    }
    return(-1);
}
/* --------------------------------------------------------------
 *   Function not_ending_mark().
 *       Return true if the char is not a '.' nor ';'.
 */
int not_ending_mark(ch)
     char   ch;
{
    return((ch!='.'&&ch!=';'));
}
/* ----------------------------------------------------------------
 *   Function last_word().
 *       return true if the char is not white space.
 */
int last_word(ch)
     char   ch;
{
    int true;

    switch(ch)  {
        case ',':

        case '.':

        case ';':

        case ' ':

        case '?':

        case ':':

        case '!':

        case ')':

        case ']':

        case '}':
            true=1;
            break;
        default: true=0;
    }
    return(true);
}
/* ----------------------------------------------------------------
 *   Function is_separator().
 *       Return 1 if ch is a separator in string separators.
 */
int is_separator(ch, separators)
     char   ch;
     const char *separators;
{
    int indi, len, index;

    for(indi=index=0, len=Lenstr(separators); indi<len&&index==0;
        indi++)
        if(ch==separators[indi]) index=1;

    return(index);
}
/* ------------------------------------------------------------
 *   Function same_char()
 *   Return TRUE if two characters are the same.
 *   case insensitive or not is decided by buffer.charcase.
 */
int same_char(ch1, ch2)
     char   ch1, ch2;
{
    if(ch1 == ch2) return(1);
    if((ch1-'a')>=0) ch1 = ch1-'a'+'A';
    if((ch2-'a')>=0) ch2 = ch2-'a'+'A';
    if(ch1 == ch2) return(1);
    else return(0);
}
/* --------------------------------------------------------------
 *   Function Upper_case().
 *       Capitalize all char in the string.
 */
void Upper_case(string)
     char   *string;
{
    int len, indi;

    len=Lenstr(string);
    for(indi=0; indi<len; indi++)   {
        if(string[indi]>='a'&&string[indi]<='z')
            string[indi] = string[indi]-'a'+'A';
    }
}
/* ---------------------------------------------------------------
 *   Function Blank_num().
 *       Count the number of blanks at the beginning of
 *           the string.
 */
int Blank_num(string)
     char   *string;
{
    int index;

    for(index=0;string[index]==' ';index++);

    return(index);
}