Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/runtime/c-libs/posix-filesys/stat_64.c
ViewVC logotype

View of /sml/trunk/src/runtime/c-libs/posix-filesys/stat_64.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1715 - (download) (as text) (annotate)
Wed Nov 24 20:27:30 2004 UTC (15 years, 1 month ago) by mblume
File size: 4151 byte(s)
support for 64-bit Position.int (not enabled by default)
/* stat_64.c
 *
 *   Version of stat.c with 64-bit positions passed as pairs of 32-bit values.
 *
 * Copyright (c) 2004 by The Fellowship of SML/NJ
 */
#include "ml-unixdep.h"
#include <sys/types.h>
#include <sys/stat.h>
#include "ml-base.h"
#include "ml-values.h"
#include "ml-objects.h"
#include "ml-c.h"
#include "cfun-proto-list.h"

#define MODE_BITS (S_IRWXU | S_IRWXG | S_IRWXO | S_ISUID | S_ISGID)

/* mkStatRep:
 *
 * This makes a representation of the struct stat to be returned
 * to the SML side. It is a tuple with the following fields:
 *
 *    file_type : int
 *    mode      : word
 *    ino       : word
 *    dev       : word
 *    nlink     : word
 *    uid       : word
 *    gid       : word
 *    sizehi    : word
 *    sizelo    : word
 *    atime     : Int32.int
 *    mtime     : Int32.int
 *    ctime     : Int32.int
 */
PVT ml_val_t mkStatRep (ml_state_t *msp, struct stat *buf)
{
    int		    ftype;
    ml_val_t        mode, ino, dev, uid, gid, nlink, sr, atime, mtime, ctime,
                    szhi, szlo;

#if ((S_IFDIR != 0x4000) || (S_IFCHR != 0x2000) || (S_IFBLK != 0x6000) || (S_IFREG != 0x8000) || (S_IFIFO != 0x1000) || (S_IFLNK != 0xA000) || (S_IFSOCK != 0xC000))
    if (S_ISDIR(buf->st_mode)) ftype = 0x4000;
    else if (S_ISCHR(buf->st_mode)) ftype = 0x2000;
    else if (S_ISBLK(buf->st_mode)) ftype = 0x6000;
    else if (S_ISREG(buf->st_mode)) ftype = 0x8000;
    else if (S_ISFIFO(buf->st_mode)) ftype = 0x1000;
#ifdef S_ISLNK
    else if (S_ISLNK(buf->st_mode)) ftype = 0xA000;
#endif
#ifdef S_ISSOCK
    else if (S_ISSOCK(buf->st_mode)) ftype = 0xC000;
#endif
    else ftype = 0;
#else
    ftype = buf->st_mode & 0xF000;
#endif

    WORD_ALLOC (msp, mode, (Word_t)((buf->st_mode) & MODE_BITS));
    WORD_ALLOC (msp, ino, (Word_t)(buf->st_ino));
    WORD_ALLOC (msp, dev, (Word_t)(buf->st_dev));
    WORD_ALLOC (msp, nlink, (Word_t)(buf->st_nlink));
    WORD_ALLOC (msp, uid, (Word_t)(buf->st_uid));
    WORD_ALLOC (msp, gid, (Word_t)(buf->st_gid));
    if (sizeof(buf->st_size)>4) {
      WORD_ALLOC (msp, szhi, (Word_t)(buf->st_size >> 32));
    } else {
      WORD_ALLOC (msp, szhi, (Word_t)0);
    }
    WORD_ALLOC (msp, szlo, (Word_t)(buf->st_size));
    INT32_ALLOC (msp, atime, buf->st_atime);
    INT32_ALLOC (msp, mtime, buf->st_mtime);
    INT32_ALLOC (msp, ctime, buf->st_ctime);

  /* allocate the stat record */
    ML_AllocWrite(msp,  0, MAKE_DESC(12, DTAG_record));
    ML_AllocWrite(msp,  1, INT_CtoML(ftype));
    ML_AllocWrite(msp,  2, mode);
    ML_AllocWrite(msp,  3, ino);
    ML_AllocWrite(msp,  4, dev);
    ML_AllocWrite(msp,  5, nlink);
    ML_AllocWrite(msp,  6, uid);
    ML_AllocWrite(msp,  7, gid);
    ML_AllocWrite(msp,  8, szhi);
    ML_AllocWrite(msp,  9, szlo);
    ML_AllocWrite(msp, 10, atime);
    ML_AllocWrite(msp, 11, mtime);
    ML_AllocWrite(msp, 12, ctime);
    sr = ML_Alloc(msp, 12);

    return sr;

} /* end of mkStatRep */

/* _ml_P_FileSys_stat_64 : string -> statrep
 *
 * Query file status given file name.
 */
ml_val_t _ml_P_FileSys_stat_64 (ml_state_t *msp, ml_val_t arg)
{
    char            *path = STR_MLtoC(arg);
    int		    sts;
    struct stat     buf;

    sts = stat(path, &buf);

    if (sts < 0)
	return RAISE_SYSERR(msp, sts);

    return (mkStatRep(msp, &buf));

} /* end of _ml_P_FileSys_stat_64 */

/* _ml_P_FileSys_fstat_64 : word -> statrep
 *
 * Query file status given file descriptor.
 */
ml_val_t _ml_P_FileSys_fstat_64 (ml_state_t *msp, ml_val_t arg)
{
    int             fd = INT_MLtoC(arg);
    int		    sts;
    struct stat     buf;

    sts = fstat(fd, &buf);

    if (sts < 0)
	return RAISE_SYSERR(msp, sts);

    return (mkStatRep(msp, &buf));

} /* end of _ml_P_FileSys_fstat_64 */

/* _ml_P_FileSys_lstat_64 : string -> statrep
 *
 * Query file status given file name, but do not follow
 * symbolic links.
 */
ml_val_t _ml_P_FileSys_lstat_64 (ml_state_t *msp, ml_val_t arg)
{
    char            *path = STR_MLtoC(arg);
    int		    sts;
    struct stat     buf;

    sts = lstat(path, &buf);

    if (sts < 0)
	return RAISE_SYSERR(msp, sts);

    return (mkStatRep(msp, &buf));

} /* end of _ml_P_FileSys_lstat_64 */

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0