/*
  function block
  name: Peek
*/

#include <tasy0def.h>
#include <grfb0014.h>

typedef
   struct {

   } str_data;

uint16 FBINIT_peek (uint16 hinstance)
{
   return (sizeof (str_data));
}

void FBACT_peek (uint16 hinstance, str_data *data, str_arg *arg)
{
}

#define BOO_VALUE   ((T_BOO *)value)
#define ANA_VALUE   ((T_ANA *)value)
#define REAL_VALUE  ((T_REAL *)value)
#define TMR_VALUE   ((T_TMR *)value)
#define MSG_VALUE   ((T_MSG *)value)

void FBREAD_peek (uint16 hinstance, str_data *data,
      uint16 parno, void *value)
{
}

ABP fbldef_peek (char *name, IBP *initproc, RBP *readproc)
 {
   sys_strcpy (name, "PEEK");
   *initproc = (IBP)FBINIT_peek;
   *readproc = (RBP)FBREAD_peek;
   return ((ABP)FBACT_peek);
}
