-+-+-+-+-+-+-+-+ START OF PART 239 -+-+-+-+-+-+-+-+
X      writelimit3(PTKEINFORM, &data.e_volume);
X#endif
X#ifdef VMS
X      writelimit3(PTKEINFORM, &data.e_area);
X#endif
X      /* write pet 1 data record */
X      writestrokerec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefstrokedata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefvaldata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefval data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefvaldata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)calloc(totsize, sizeof(Pchar));
X  pinqdefvaldata(wstype, dev, totsize, &err, buffer, &totsize, &data);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "default valuator data:\n");
X      phinprintf(PTKEINFORM, "initial value = ");
X      writereal(PTKEINFORM, data.value);
X      phinprintf(PTKEINFORM, "prompt/echo types:\n");
X      writeintlst(PTKEINFORM, &data.pets, PTKENOTABLE);
X      phinprintf(PTKEINFORM, "limits:\n");
X      writelimit(PTKEINFORM, &data.e_area);
X      /* write pet 1 data record */
X      writevalrec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefvaldata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefvaldata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefval3 data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefvaldata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefvaldata3(wstype, dev, totsize, &err, buffer, &totsize, &data);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "default valuator data 3:\n");
X      phinprintf(PTKEINFORM, "initial value = ");
X      writereal(PTKEINFORM, data.value);
X      phinprintf(PTKEINFORM, "prompt/echo types:\n");
X      writeintlst(PTKEINFORM, &data.pets, PTKENOTABLE);
X      phinprintf(PTKEINFORM, "limits:\n");
X#ifdef SUN
X      writelimit3(PTKEINFORM, &data.e_volume);
X#endif
X#ifdef VMS
X      writelimit3(PTKEINFORM, &data.e_area);
X#endif
X      /* write pet 1 data record */
X      writevalrec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefvaldata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdescstruct()
X`7B
X  Pint stid, depth, err, totsize, i, j;
X  Ppathorder order;
X  Pchar *buffer;
X  Pexecreflstlst paths;
X
X  stid = readintvalue("structure identifier ? ", PTKESTRUCTID);
X  order = readphigsenum(PTKEPATHORDER, "path order ? ");
X  depth = readinteger("path depth ? ");
X  pinqdescstruct(stid, order, depth, 0, &err, buffer, &totsize, &paths);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdescstruct(stid, order, depth, totsize, &err, buffer, &totsize,`20
X                  &paths);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "descendant paths of structure %d:\n",
V              stid);
X      for (i = 0; i < paths.number; i++)
X      `7B
X        phinprintf(PTKEINFORM, "path %d:\n", i);
X        for (j = 0; j < paths.erls`5Bi`5D.number; j++)
X        `7B
X          phinprintf(PTKEINFORM, "structure identifier = ");
X          writeintvalue(PTKEINFORM, paths.erls`5Bi`5D.ers`5Bj`5D.struct_id,
X                       PTKESTRUCTID);
X          phinprintf(PTKEINFORM, "element number = ");
X          writeinteger(PTKEINFORM,`20
X                       paths.erls`5Bi`5D.ers`5Bj`5D.elem_num);
X        `7D
X      `7D
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdescstruct */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdisplayspacesize()
X`7B
X  Pwstype wstype;
X  Pint err;
X  Pdspsize size;
X
X  readwstype(&wstype);
X  pinqdisplayspacesize(wstype, &err, &size);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "display space size:\n");
X      phinprintf(PTKEINFORM, "device coordinate units = ");
X      writephigsenum(PTKEINFORM, PTKEDEVUNITS, size.units);
X      phinprintf(PTKEINFORM, "device volume:\n");
X      writepoint(PTKEINFORM, &size.device);
X      phinprintf(PTKEINFORM, "addressable units:\n");
X      writeipoint(PTKEINFORM, &size.raster);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqdisplayspacesize */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdisplayspacesize3()
X`7B
X  Pwstype wstype;
X  Pint err;
X#ifdef SUN
X  Pdspsize3 size;
X#endif
X#ifdef VMS
X  Pdspvolume size;
X#endif
X
X  readwstype(&wstype);
X  pinqdisplayspacesize3(wstype, &err, &size);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "display space size:\n");
X      phinprintf(PTKEINFORM, "device coordinate units = ");
X      writephigsenum(PTKEINFORM, PTKEDEVUNITS, size.units);
X      phinprintf(PTKEINFORM, "device volume:\n");
X      writepoint3(PTKEINFORM, &size.device);
X      phinprintf(PTKEINFORM, "addressable units:\n");
X      writeipoint3(PTKEINFORM, &size.raster);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqdisplayspacesize */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdisplayupdatest()
X`7B
X  Pint wsid, err;
X  Pdefmode defmode;
X  Pmod modmode;
X  Pdspsurf dspsurf;
X  Pvisualrep state;
X
X  wsid = readinteger("workstation identifier ? ");
X  pinqdisplayupdatest(wsid, &err, &defmode, &modmode, &dspsurf, &state);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "current display update state:\n");
X      phinprintf(PTKEINFORM, "deferral mode = ");
X      writephigsenum(PTKEINFORM, PTKEDEFMODE, defmode);
X      phinprintf(PTKEINFORM, "modification mode = ");
X      writephigsenum(PTKEINFORM, PTKEMOD, modmode);
X      phinprintf(PTKEINFORM, "display surface empty = ");
X      writephigsenum(PTKEINFORM, PTKEDSPSURF, dspsurf);
X      phinprintf(PTKEINFORM, "visual representation = ");
X      writephigsenum(PTKEINFORM, PTKEVISUALREP, state);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqdisplayupdatest */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdynstruct()
X`7B
X  Pwstype wstype;
X  Pint err;
X  Pmodstruct dynamics;
X
X  readwstype(&wstype);
X  pinqdynstruct(wstype, &err, &dynamics);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "structure dynamics:\n");
X      phinprintf(PTKEINFORM, "content = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, dynamics.content);
X#ifdef VMS
X      phinprintf(PTKEINFORM, "priority = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE,`20
X                     dynamics.priority);
X#endif
X      phinprintf(PTKEINFORM, "post = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, dynamics.post);
X      phinprintf(PTKEINFORM, "unpost = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, dynamics.unpost);
X      phinprintf(PTKEINFORM, "delete = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, dynamics.delete);
X      phinprintf(PTKEINFORM, "reference = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE,`20
X                     dynamics.reference);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqdynstruct */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdynwsattr()
X`7B
X  Pwstype wstype;
X  Pint err;
X  Pmodws attr;
X
X  readwstype(&wstype);
X  pinqdynwsattr(wstype, &err, &attr);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "attribute dynamics:\n");
X      phinprintf(PTKEINFORM, "line = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.line);
X      phinprintf(PTKEINFORM, "marker = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.marker);
X      phinprintf(PTKEINFORM, "text = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.text);
X      phinprintf(PTKEINFORM, "interior = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.interior);
X      phinprintf(PTKEINFORM, "edge = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.edge);
X      phinprintf(PTKEINFORM, "pattern = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.pattern);
X      phinprintf(PTKEINFORM, "colour = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.colour);
X      phinprintf(PTKEINFORM, "view = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.view);
X      phinprintf(PTKEINFORM, "wstran = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.wstran);
X      phinprintf(PTKEINFORM, "highlight = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.highlight);
X      phinprintf(PTKEINFORM, "invis = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.invis);
X#ifdef SUN
X      phinprintf(PTKEINFORM, "hlhsr = ");
X      writephigsenum(PTKEINFORM, PTKEMODTYPE, attr.hlhsr);
X#endif
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqdynwsattr */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqedgefacil()
X`7B
X  Pwstype wstype;
X  Pint start, err, totlength, i;
X  Pedgefac facil;
X
X  readwstype(&wstype);
X  start = readinteger("starting position ? ");
X  pinqedgefacil(wstype, 0, start, &err, &totlength, &facil);
X  facil.types.integers = (Pint *)calloc(totlength, sizeof(Pint));
X  facil.types.number = totlength;
X  pinqedgefacil(wstype, totlength, start, &err, &totlength, &facil);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "edge facilities:\n");
X      phinprintf(PTKEINFORM, "edgetypes:\n");
X      writeintlst(PTKEINFORM, &facil.types, PTKENOTABLE);
X      phinprintf(PTKEINFORM, "number of available widths = ");
X      writeinteger(PTKEINFORM, facil.widths);
X      phinprintf(PTKEINFORM, "nominal width = ");
X      writereal(PTKEINFORM, facil.nom);
X      phinprintf(PTKEINFORM, "minimum width = ");
X      writereal(PTKEINFORM, facil.min);
X      phinprintf(PTKEINFORM, "maximum width = ");
X      writereal(PTKEINFORM, facil.max);
X      phinprintf(PTKEINFORM, "number of predefined bundles = ");
X      writeinteger(PTKEINFORM, facil.predefined);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(facil.types.integers);
X`7D  /* do_pinqedgefacil */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqedgerep()
X`7B
X  Pint wsid, err, totlength, index;
X  Pinqtype type;
X  Pedgebundl rep;
X
X  wsid = readinteger("workstation identifier ? ");
X  index = readinteger("edge index ? ");
X  type = readphigsenum(PTKEINQTYPE, "value type ?");
X  pinqedgerep(wsid, index, type, &err, &rep);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "edge representation:\n");
X      writeedgebundl(PTKEINFORM, &rep);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqedgerep */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqeditmode()
X`7B
X  Pint err;
X  Peditmode mode;
X
X  pinqeditmode(&err, &mode);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "edit mode = ");
X      writephigsenum(PTKEINFORM, PTKEEDITMODE, mode);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqeditmode */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqelemcontent()
X`7B
X  Pint stid, elptr, err; `20
X  Pchar *buffer;
X  ptkselcontent elcont;
X
X  stid = readintvalue("structure identifier ? ", PTKESTRUCTID);
X  elptr = readinteger("element pointer ? ");
X  ptk_inqelemtypesizecontent(stid, elptr, &err, &buffer, &elcont);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n",`20
X            phigsnamelist`5Bactivefunction`5D);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "element content:\n");
X      writeelemcontent(PTKEINFORM, &elcont);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqelemcontent */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqelemptr()
X`7B
X  Pint elptr, err;
X
X  pinqelemptr(&err, &elptr);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n",`20
X            phigsnamelist`5Bactivefunction`5D);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "current element pointer = ");
X      writeinteger(PTKEINFORM, elptr);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqelemptr */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqelemtypesize()
X`7B
X  Pint stid, elptr, err;
X  Peltype eltype;
+-+-+-+-+-+-+-+-  END  OF PART 239 +-+-+-+-+-+-+-+-