bridge/class-master/depend/pari/src/language/es.c
/* return 1 if valid binary file */
return 1 if valid binary file
return 1 if valid binary file
static int
check_magic(const char *name, FILE *f)
{
  if (!is_magic_ok(f))
    pari_warn(warner, "%s is not a GP binary file",name);
  else if (!is_sizeoflong_ok(f))
    pari_warn(warner, "%s not written for a %ld bit architecture",
               name, sizeof(long)*8);
  else if (!is_long_ok(f, ENDIAN_CHECK))
    pari_warn(warner, "unexpected endianness in %s",name);
  else if (!is_long_ok(f, BINARY_VERSION))
    pari_warn(warner, "%s written by an incompatible version of GP",name);
  else return 1;
  return 0;
}
static int check_magic ( const char * name , FILE * f ) { if ( ! is_magic_ok ( f ) ) pari_warn ( warner , " " , name ) ; else if ( ! is_sizeoflong_ok ( f ) ) pari_warn ( warner , " " , name , sizeof ( long ) * 8 ) ; else if ( ! is_long_ok ( f , ENDIAN_CHECK ) ) pari_warn ( warner , " " , name ) ; else if ( ! is_long_ok ( f , BINARY_VERSION ) ) pari_warn ( warner , " " , name ) ; else return 1 ; return 0 ; }
return 1 if valid binary file
return 1 if valid binary file