2.11BSD#431 - /usr/ingres/source/equel/runtime/IIwrite.c

   1: # include   "../../ingres.h"
   2: # include   "../../symbol.h"
   3: # include   "../../pipes.h"
   4: # include   "IIglobals.h"
   5: 
   6: /*
   7: **	IIwrite is used to write a string to the
   8: **	quel parser
   9: */
  10: 
  11: IIwrite(str)
  12: char    *str;
  13: {
  14:     register char   *s;
  15:     register int    i;
  16: 
  17:     s = str;
  18: #	ifdef xETR1
  19:     if (IIdebug)
  20:         printf("write:string='%s'\n", s);
  21: #	endif
  22:     if (!IIingpid)
  23:         IIsyserr("no preceding ##ingres statement");
  24:     if (IIin_retrieve)
  25:         IIsyserr("IIwrite:you cannot call ingres while in a retrieve");
  26: 
  27:     if((i = IIlength(s)) != 0)
  28:         if (IIwrpipe(P_NORM, &IIoutpipe, IIw_down, s, i) != i)
  29:             IIsyserr("IIwrite:can't write to parser(3) %d", i);
  30: }

Defined functions