/*
 * This file was automatically generated with ILU (version 2.0beta1) tools
 * at Tue Sep 21 11:45:54 1999 by `nobody'
 * running "c:/iluwin/bin/c-stubber.exe" of Tue Sep 21 10:50:33 1999
 * on "C:/iluwin/examples/test2/Batcher.isl" of Mon Sep 20 15:53:56 1999,
 * and "c:/iluwin/interfaces/ilu.isl" of Mon Sep 20 15:51:47 1999.
 *
 * ILU is Copyright 1991-1999 Xerox Corporation, All Rights Reserved.
 * ILU information:  ftp://ftp.parc.xerox.com/pub/ilu/ilu.html.
 */

#include "Batcher.h"

void _Batcher_T_Send__clientstub (Batcher_T _handle, Batcher_Time s, ILU_C_ENVIRONMENT *_status)
{
  _ILU_C_ParmDesc __parmsBlock[1];
  __parmsBlock[0].parm_in  = 1;
  __parmsBlock[0].parm_out = 0;
  __parmsBlock[0].parm_needs_assignment   = 0;
  __parmsBlock[0].parm_needs_dereference  = 0;
  __parmsBlock[0].parm_type = TC_Batcher_Time;
  __parmsBlock[0].parm_val  = (void *) &s;
  _ILU_C_VectorCall (_Batcher_T__ILUType, &_Batcher_T__ILUType->cl_methods[0],
                     ILU_NIL, _handle, _status, 1, __parmsBlock);
  return;
}

Batcher_TimeSeq* _Batcher_T_Sync__clientstub (Batcher_T _handle, Batcher_Time s, ILU_C_ENVIRONMENT *_status)
{
  Batcher_TimeSeq* _retvalue;
  _ILU_C_ParmDesc __parmsBlock[2];
  __parmsBlock[0].parm_in  = 0;
  __parmsBlock[0].parm_out = 1;
  __parmsBlock[0].parm_needs_assignment   = 1;
  __parmsBlock[0].parm_needs_dereference  = 0;
  __parmsBlock[0].parm_type = TC_Batcher_TimeSeq;
  __parmsBlock[0].parm_val  = (void *) &_retvalue;
  __parmsBlock[1].parm_in  = 1;
  __parmsBlock[1].parm_out = 0;
  __parmsBlock[1].parm_needs_assignment   = 0;
  __parmsBlock[1].parm_needs_dereference  = 0;
  __parmsBlock[1].parm_type = TC_Batcher_Time;
  __parmsBlock[1].parm_val  = (void *) &s;
  _ILU_C_VectorCall (_Batcher_T__ILUType, &_Batcher_T__ILUType->cl_methods[1],
                     ILU_NIL, _handle, _status, 2, __parmsBlock);
  return _retvalue;
}

static ILU_C_Class _Batcher_T__SurrogateClass = 0;
Batcher_T Batcher_T__CreateFromSBH (char *sbh, ILU_C_ENVIRONMENT * env)
{
  return (Batcher_T) (ILU_C_SBHToObject(sbh, _Batcher_T__ILUType, env));
}

void Batcher__Initialize(void)
{
  extern void _Batcher__GeneralInitialization(void);

  static ilu_boolean initialized = ilu_FALSE;
  if (initialized) return;
  initialized = ilu_TRUE;

  _Batcher__GeneralInitialization();
  _Batcher_T__SurrogateClass = Batcher_T__MakeClass(
    _Batcher_T_Send__clientstub,
    _Batcher_T_Sync__clientstub,
    0 /* no finalization */
    );
  _ILU_C_RegisterSurrogateCType (_Batcher_T__ILUType,
	_Batcher_T__SurrogateClass);
  return;
}
