#if 0 # define TGSOURCE "nan.c" #include "_tgmath.h" #include #include #include #define strtodf strtof #define strtodl strtold TYPE TGFN(nan)(const char *tagp) { SIGNAL_SAFE(0); if (tagp) { char ncharseq[strlen(tagp) + 6]; strcpy(ncharseq, "NAN("); strcat(ncharseq, tagp); strcat(ncharseq, ")"); return TGFN(strtod)(ncharseq, (char**)NULL); } return TGFN(strtod)("NAN", (char**)NULL); } /* STDC(199901) LINK(m) */ #endif