/* WINCE.C - stuff for Windows CE
*
- * Time-stamp: <01/08/01 19:29:57 keuchel@w2k>
+ * Time-stamp: <26/10/01 15:25:20 keuchel@keuchelnt>
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
return fseek(pf, offset, origin);
}
-// fpos_t seems to be int64 on hpc pro! Really stupid.
-// But maybe someday there will be such large disks in a hpc...
+/* fpos_t seems to be int64 on hpc pro! Really stupid. */
+/* But maybe someday there will be such large disks in a hpc... */
DllExport int
win32_fgetpos(FILE *pf, fpos_t *p)
{
return hModule;
}
-// this is needed by Cwd.pm...
+/* this is needed by Cwd.pm... */
static
XS(w32_GetCwd)
EXTEND(SP,1);
SvPOK_on(sv);
ST(0) = sv;
+#ifndef INCOMPLETE_TAINTS
+ SvTAINTED_on(ST(0));
+#endif
XSRETURN(1);
}
XPUSHs(newSViv(osver.dwMajorVersion));
XPUSHs(newSViv(osver.dwMinorVersion));
XPUSHs(newSViv(osver.dwBuildNumber));
- // WINCE = 3
+ /* WINCE = 3 */
XPUSHs(newSViv(osver.dwPlatformId));
PUTBACK;
}
return;
}
-//////////////////////////////////////////////////////////////////////
+/* //////////////////////////////////////////////////////////////////// */
void
win32_argv2utf8(int argc, char** argv)
{
- // do nothing...
+ /* do nothing... */
}
void
# endif
}
+/* //////////////////////////////////////////////////////////////////// */
+
+#undef getcwd
+
+char *
+getcwd(char *buf, size_t size)
+{
+ return xcegetcwd(buf, size);
+}
+
+int
+isnan(double d)
+{
+ return _isnan(d);
+}
+