/* * Copyright (C) Bull S.A. 2001 * Copyright (c) International Business Machines Corp., 2001 * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See * the GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA */ /******************************************************************************/ /* */ /* Dec-03-2001 Created: Jacky Malcles & Jean Noel Cordenner */ /* These tests are adapted from AIX float PVT tests. */ /* */ /******************************************************************************/ #include #include #include #include #include #include #include #include #include #include #include #include #include #define M_PIl 3.1415926535897932384626433832795029L L #define MAX_FNAME_LEN 16 /***************************************************************** * create file: * * func_name is the name of the trigo function (sin, cos, tan...) * * code can take 2 values: DATA_CREATE to create a input data file * RESULT_CREATE for output result file */ int create_file(char *func_name, int NbVal) { pid_t myproc; if ((myproc = fork()) != 0) return myproc; else { char *arglist[] = { func_name, NULL }; execvp(arglist[0], arglist); fprintf(stderr, "ERROR %s\n", strerror(errno)); abort(); } } int main(int argc, char *argv[]) { char *funct, *bin_path; pid_t child; if (argc != 2) { printf("ERROR: need the path to generation binaries\n"); abort(); } bin_path = argv[1]; funct = malloc(strlen(bin_path) + MAX_FNAME_LEN); sprintf(funct, "%s/gencos", bin_path); child = create_file(funct, 0); waitpid(child, NULL, 0); sprintf(funct, "%s/gensin", bin_path); child = create_file(funct, 0); waitpid(child, NULL, 0); sprintf(funct, "%s/gentan", bin_path); child = create_file(funct, 0); waitpid(child, NULL, 0); sprintf(funct, "%s/genatan", bin_path); child = create_file(funct, 0); waitpid(child, NULL, 0); sprintf(funct, "%s/genatan2", bin_path); child = create_file(funct, 0); waitpid(child, NULL, 0); sprintf(funct, "%s/genacos", bin_path); child = create_file(funct, 0); waitpid(child, NULL, 0); sprintf(funct, "%s/genasin", bin_path); child = create_file(funct, 0); waitpid(child, NULL, 0); return 0; }