/* $FreeBSD$ */

#include <errno.h>
#include <sys/stat.h>
#include <sys/types.h>

#include <stand.h>

#include "ficl.h"
#include "sysdep.h"

void  ficlCallbackDefaultTextOut(ficlCallback *callback, char *message)
{
    FICL_IGNORE(callback);
    ficlTextOutLocal(NULL, message, 0);
    return;
}

void ficlSystemCompilePlatform(ficlSystem *system)
{
    ficlCompilePlatform(system);
    return;
}

#if (FICL_WANT_FILE)
int ficlFileTruncate(ficlFile *ff, ficlUnsigned size)
{
	return ftruncate(fileno(ff->f), size);
}

int ficlFileStatus(char *filename, int *status)
{
    struct stat statbuf;
    if (stat(filename, &statbuf) == 0)
    {
        *status = statbuf.st_mode;
        return 0;
    }
    *status = ENOENT;
    return -1;
}


long ficlFileSize(ficlFile *ff)
{
    struct stat statbuf;
    if (ff == NULL)
        return -1;
	
    statbuf.st_size = -1;
    if (fstat(fileno(ff->f), &statbuf) != 0)
        return -1;
	
    return statbuf.st_size;
}
#endif