substitFun

char* substitFun(
　　char* string
)

string

・har tail[TRANS_SIZE+1];
・*  end =0;
・*  while ( !end ) {
・*   end = 1;
・*   ptr = strsubenD(string,BulFunNames[fun_numb]);
・*   if ( ptr != NULL ) {
・*    if ( *ptr == '(' ) {
・***************************************************************************
・*    i = block_enD(tail,')');
・*    if ( i != 0 ) {
・*     end = 0;
・*     ptr1 =
・*     strsubbeG(string,BulFunNames[fun_numb]);
・*     *ptr1 = '\0';
・*     tail[i] = '\0';
・*     strcpy(tail,tail+1);
・*  /* now: string - begin of line
・*      tail - string to work
・* tail[i+1] - tail
・*     strcpy(temp_line,BulFun(fun_numb,tail));
・*     strcat(string,temp_line);
・*     strcat(string,&tail[i+1]);
・*    }
・****************************************************************************
・*  }
・*  fun_numb++;
・* }
・* return(string);