1 /* tpl_mpfr.c -- Helper functions for data with native types. 2 3 Copyright (C) 2012, 2013 INRIA 4 5 This file is part of GNU MPC. 6 7 GNU MPC is free software; you can redistribute it and/or modify it under 8 the terms of the GNU Lesser General Public License as published by the 9 Free Software Foundation; either version 3 of the License, or (at your 10 option) any later version. 11 12 GNU MPC is distributed in the hope that it will be useful, but WITHOUT ANY 13 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 14 FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for 15 more details. 16 17 You should have received a copy of the GNU Lesser General Public License 18 along with this program. If not, see http://www.gnu.org/licenses/ . 19 */ 20 21 #include "mpc-tests.h" 22 23 24 /* int */ 25 26 void 27 tpl_read_int (mpc_datafile_context_t* datafile_context, int *nread, const char *name) 28 { 29 int n = 0; 30 31 if (datafile_context->nextchar == EOF) 32 { 33 printf ("Error: Unexpected EOF when reading int " 34 "in file '%s' line %lu\n", 35 datafile_context->pathname, datafile_context->line_number); 36 exit (1); 37 } 38 ungetc (datafile_context->nextchar, datafile_context->fd); 39 n = fscanf (datafile_context->fd, "%i", nread); 40 if (ferror (datafile_context->fd) || n == 0 || n == EOF) 41 { 42 printf ("Error: Cannot read %s in file '%s' line %lu\n", 43 name, datafile_context->pathname, datafile_context->line_number); 44 exit (1); 45 } 46 datafile_context->nextchar = getc (datafile_context->fd); 47 tpl_skip_whitespace_comments (datafile_context); 48 } 49 50 void 51 tpl_copy_int (int *dest, const int * const src) 52 { 53 *dest = *src; 54 } 55 56 /* unsigned long int */ 57 58 void 59 tpl_read_ui (mpc_datafile_context_t* datafile_context, unsigned long int *ui) 60 { 61 int n = 0; 62 63 if (datafile_context->nextchar == EOF) 64 { 65 printf ("Error: Unexpected EOF when reading uint " 66 "in file '%s' line %lu\n", 67 datafile_context->pathname, datafile_context->line_number); 68 exit (1); 69 } 70 ungetc (datafile_context->nextchar, datafile_context->fd); 71 n = fscanf (datafile_context->fd, "%lu", ui); 72 if (ferror (datafile_context->fd) || n == 0 || n == EOF) 73 { 74 printf ("Error: Cannot read uint in file '%s' line %lu\n", 75 datafile_context->pathname, datafile_context->line_number); 76 exit (1); 77 } 78 datafile_context->nextchar = getc (datafile_context->fd); 79 tpl_skip_whitespace_comments (datafile_context); 80 } 81 82 void 83 tpl_copy_ui (unsigned long int *dest, const unsigned long int * const src) 84 { 85 *dest = *src; 86 } 87 88 89 /* long int */ 90 91 void 92 tpl_read_si (mpc_datafile_context_t* datafile_context, long int *si) 93 { 94 int n = 0; 95 96 if (datafile_context->nextchar == EOF) 97 { 98 printf ("Error: Unexpected EOF when reading sint " 99 "in file '%s' line %lu\n", 100 datafile_context->pathname, datafile_context->line_number); 101 exit (1); 102 } 103 ungetc (datafile_context->nextchar, datafile_context->fd); 104 n = fscanf (datafile_context->fd, "%li", si); 105 if (ferror (datafile_context->fd) || n == 0 || n == EOF) 106 { 107 printf ("Error: Cannot read sint in file '%s' line %lu\n", 108 datafile_context->pathname, datafile_context->line_number); 109 exit (1); 110 } 111 datafile_context->nextchar = getc (datafile_context->fd); 112 tpl_skip_whitespace_comments (datafile_context); 113 } 114 115 void 116 tpl_copy_si (long int *dest, const long int * const src) 117 { 118 *dest = *src; 119 } 120 121 /* double */ 122 123 void 124 tpl_copy_d (double *dest, const double * const src) 125 { 126 *dest = *src; 127 } 128