/*
  function block
  name: Peekword
*/

#include <tasy0def.h>
#include <grfb0017.h>

typedef
   struct {

   } str_data;

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

void FBACT_peekword (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_peekword (uint16 hinstance, str_data *data,
      uint16 parno, void *value)
{
}

ABP fbldef_peekword (char *name, IBP *initproc, RBP *readproc)
 {
   sys_strcpy (name, "PEEKWORD");
   *initproc = (IBP)FBINIT_peekword;
   *readproc = (RBP)FBREAD_peekword;
   return ((ABP)FBACT_peekword);
}
