ildg.h

Go to the documentation of this file.

/* =============
 * apeNEXT/nlibc
 * =============
 *
 * Functions needed to read binary files conforming to ILDG stanards
 *
 * $Id: ildg.h,v 1.2 2006/06/15 18:25:26 pleiter Exp $
 * -------------------------------------------------------------------------- */

#ifndef _NLIBC_OS1_ILDG_H
#define _NLIBC_OS1_ILDG_H

#include <nsys.h>
#include <lime.h>
#include <string.h>

// ILDG specific constants
#define ILDG_FIELD_UNKNOWN      _ILDG_FIELD_UNKNOWN
#define ILDG_FIELD_SU3GAUGE     _ILDG_FIELD_SU3GAUGE

typedef struct {
  uint64_t field;               
  uint64_t precision;           
  uint64_t lx, ly, lz, lt;      
} IldgFormat;


//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
#ifndef __HAS_MAIN
extern int ildgWriteFormat(LimeWriter *, int, int, IldgFormat *);
#else
#if !defined(__cflow_processed) || defined(_uses_ildgWriteFormat_ildg_h)
int ildgWriteFormat(LimeWriter *w, int mbflg, int meflg, IldgFormat *f)
{
  LimeRecordHeader *h;
  struct {
    LimeRecordHeader h;
    IldgFormat f;
  } msg;
  int msglen;
  vector int sys_rval;

  if (w == NULL || w->fp == NULL || f == NULL) {
    return LIME_ERR_PARAM;
  }

  // Create lime header (dummy value for number of bytes)
  h = limeCreateHeader(mbflg, meflg, "ildg-format", -1);

  // Create message to be sent to frontend
  memcpy(&(msg.h), h, sizeof(LimeRecordHeader));
  memcpy(&(msg.f), f, 96);
  msglen = sizeof(msg);

  // Perform system service
  asm("\t$io_start\n"
      "\t$io_fd(0.%1)\n"
      "\t\\equl $cmd   $SYS_IOCMD_ILDG_FWR\n"
      "\t\\equl $fmt   $SYS_IOFMT_BIN\n"
      "\t\\equl $dev   $SYS_IODEV_MEM\n"
      "\t\\equl $l     %2 >> 4\n"
      "\t\\equl $bs    $SYS_IOBS_V\n"
      "\t\\equl $rdflg $SYS_IORDFLG_NOP\n"
      "\t\\equl $addr  0.%3\n"
      "\t$io_packet($cmd, $fmt, $rdflg, $dev, $l, $bs, $addr)\n"
      "\t$io_end\n"
      "\tlmtr %0 $MEM_SYS_RVAL\n"
      : "=r" (sys_rval) : "r" (w->fp->fd), "r" (msglen), "r" (&msg));

  return (int) sys_rval.lo;
}
#endif
#endif


//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
#ifndef __HAS_MAIN
extern int ildgReadFormat(LimeReader *, IldgFormat *);
#else
#if !defined(__cflow_processed) || defined(_uses_ildgReadFormat_ildg_h)
int ildgReadFormat(LimeReader *r, IldgFormat *f)
{
  int nword;
  vector int sys_rval;

  if (r == NULL || r->fp == NULL) {
    return LIME_ERR_PARAM;
  }

  // Perform system service
  nword = sizeof(IldgFormat) >> 4;
  asm("\t$io_start\n"
      "\t$io_fd(0.%1)\n"
      "\t\\equl $cmd   $SYS_IOCMD_ILDG_FRD\n"
      "\t\\equl $fmt   $SYS_IOFMT_BIN\n"
      "\t\\equl $dev   $SYS_IODEV_MEM\n"
      "\t\\equl $l     0.%2\n"
      "\t\\equl $bs    $SYS_IOBS_V\n"
      "\t\\equl $rdflg $SYS_IORDFLG_NOP\n"
      "\t\\equl $addr  0.%3\n"
      "\t$io_packet($cmd, $fmt, $rdflg, $dev, $l, $bs, $addr)\n"
      "\t$io_end\n"
      "\tlmtr %0 $MEM_SYS_RVAL\n"
      : "=r" (sys_rval)
      : "r" (r->fp->fd), "r" (nword), "r" (f));

  return (int) sys_rval.lo;
}
#endif
#endif

#endif /* _NLIBC_OS1_ILDG_H */

---