#include <p2c/p2c.h>
char *wrapc_strtime (void)
{
long clock = time((long *)0) ;
char *string = ctime(&clock);
string[24] = (char) 0;
return( string );
}
int wrapc_filesize (int f)
{
struct stat s;
if (fstat(f, (struct stat *) &s) == 0) {
return( s.st_size );
} else {
return( -1 );
}
}
int wrapc_filemtime (int f)
{
struct stat s;
if (fstat(f, (struct stat *) &s) == 0) {
return( s.st_mtime );
} else {
return( -1 );
}
}
int wrapc_getrand (int n)
{
return( rand() % n );
}
#include <pwd.h>
char *wrapc_getusername (void)
{
return( getpwuid(getuid()) -> pw_gecos );
}
void wrapc_getnameuidgid (char *name, int *uid, int *gid)
{
struct passwd *p=getpwnam(name);
if (p == NULL) {
*uid = -1;
*gid = -1;
} else {
*uid = p->pw_uid;
*gid = p->pw_gid;
}
}
void _M2_wrapc_init() {}