home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH24EX06.C < prev    next >
Encoding:
Text File  |  1990-03-26  |  415 b   |  22 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. void *alloc_gstack(unsigned);
  6.  
  7. typedef struct {
  8.    char functor;  /* Type of functor */
  9.    int ival;  /* Value of the functor */
  10.    char cval;
  11.    double rval;
  12. } mydom;
  13.  
  14. pack_0(int P1, char P2, double P3, mydom **P4 )
  15. {
  16.    mydom *p=*P4=alloc_gstack(sizeof(mydom));
  17.    p->functor=1;
  18.    p->ival=P1;
  19.    p->cval=P2;
  20.    p->rval=P3;
  21. }
  22.