view release on metacpan or  search on metacpan

configure.com  view on Meta::CPAN

$   WS "#else"
$   WS "     printf(""undef\n"");"
$   WS "#endif"
$   WS "}"
$   CS
$   GOSUB link_ok
$   IF compile_status .EQ. good_compile .AND. link_status .EQ. good_link
$   THEN
$     GOSUB just_mcr_it
$     IF tmp .EQS. "define"
$     THEN
$       echo4 "Yes, it seems to work."
$     ELSE
$       echo4 "Nope, it didn't work."
$     ENDIF
$   ELSE
$     echo4 "I'm unable to compile the test program, so I'll assume not."
$     tmp = "undef"
$   ENDIF
$ ELSE
$   echo4 "Nope, since you don't even have fcntl()."
$ ENDIF
$ d_fcntl_can_lock = tmp
$!
$! Check to see if isblank exists
$!
$ OS
$ WS "#include <stdlib.h>"
$ WS "#include <ctype.h>"
$ WS "int main()"
$ WS "{"
$ WS "int c = ' ';"
$ WS "if(isblank(c))"
$ WS "    exit(EXIT_SUCCESS);"
$ WS "else"
$ WS "    exit(EXIT_FAILURE);"
$ WS "}"
$ CS
$ tmp = "isblank"
$ GOSUB inlibc
$ d_isblank = tmp
$!
$! Check to see if isless exists
$!
$ OS
$ WS "#include <stdlib.h>"
$ WS "#include <math.h>"
$ WS "int main() { return isless(1.0, 2.0) ? EXIT_SUCCESS : EXIT_FAILURE; }"
$ CS
$ tmp = "isless"
$ GOSUB inlibc
$ d_isless = tmp
$!
$! Check to see if pre-C99 isnanl exists
$!
$ OS
$ WS "#include <stdlib.h>"
$ WS "#include <math.h>"
$ WS "int main()"
$ WS "{"
$ WS "  long double x = NaN;"
$ WS "  return isnanl(x) ? EXIT_SUCCESS : EXIT_FAILURE;"
$ WS "}"
$ CS
$ tmp = "isnanl"
$ GOSUB inlibc
$ d_isnanl = tmp
$!
$! Check to see if llrint exists
$!
$ OS
$ WS "#include <stdlib.h>"
$ WS "#include <math.h>"
$ WS "int main()"
$ WS "{"
$ WS "  long long x = llrint(1.5);"
$ WS "  return x == 2 ? EXIT_SUCCESS : EXIT_FAILURE;"
$ WS "}"
$ CS
$ tmp = "llrint"
$ GOSUB inlibc
$ d_llrint = tmp
$!
$! Check to see if llrintl exists
$!
$ OS
$ WS "#include <stdlib.h>"
$ WS "#include <math.h>"
$ WS "int main()"
$ WS "{"
$ WS "  long long x = llrintl(1.5);"
$ WS "  return x == 2 ? EXIT_SUCCESS : EXIT_FAILURE;"
$ WS "}"
$ CS
$ tmp = "llrintl"
$ GOSUB inlibc
$ d_llrintl = tmp
$!
$! Check to see if llround exists
$!
$ OS
$ WS "#include <stdlib.h>"
$ WS "#include <math.h>"
$ WS "int main()"
$ WS "{"
$ WS "  long long x = llround(1.5);"
$ WS "  return x == 2 ? EXIT_SUCCESS : EXIT_FAILURE;"
$ WS "}"
$ CS
$ tmp = "llround"
$ GOSUB inlibc
$ d_llround = tmp
$!
$! Check to see if llroundl exists
$!
$ OS
$ WS "#include <stdlib.h>"
$ WS "#include <math.h>"
$ WS "int main()"
$ WS "{"
$ WS "  long long x = llroundl(1.5);"