-+-+-+-+-+-+-+-+ START OF PART 238 -+-+-+-+-+-+-+-+
X      phinprintf(PTKEINFORM, "current element type = ");
X      writephigsenum(PTKEINFORM, PTKEELTYPE, eltype);
X#ifdef SUN
X      phinprintf(PTKEINFORM, "current element size = ");
X      writeinteger(PTKEINFORM, size);
X#endif
X#ifdef VMS
X      switch(eltype)
X      `7B
X        case PEL_POLYLINE3:
X        case PEL_POLYMARKER3:
X        case PEL_FILL_AREA3:
X          phinprintf(PTKEINFORM, "number of points =");
X          writeinteger(PTKEINFORM, size.number);
X          break;
X `20
X        case PEL_POLYLINE:
X        case PEL_POLYMARKER:
X        case PEL_FILL_AREA:
X          phinprintf(PTKEINFORM, "number of points = ");
X          writeinteger(PTKEINFORM, size.number);
X        break;
X `20
X        case PEL_FILL_AREA_SET3:
X          phinprintf(PTKEINFORM, "total number of points = ");
X          writeinteger(PTKEINFORM, size.fas_size.total_pts);
X          phinprintf(PTKEINFORM, "number of bounds = ");
X          writeinteger(PTKEINFORM, size.fas_size.num_bounds);
X          break;
X `20
X        case PEL_FILL_AREA_SET:
X          phinprintf(PTKEINFORM, "total number of points = ");
X          writeinteger(PTKEINFORM, size.fas_size.total_pts);
X          phinprintf(PTKEINFORM, "number of bounds = ");
X          writeinteger(PTKEINFORM, size.fas_size.num_bounds);
X          break;
X `20
X        default:
X          phinprintf(PTKEINFORM, "element size = ");
X          writeinteger(PTKEINFORM, size.number);
X          break;
X      `7D
X#endif
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqcurelemtypesize */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefchoicedata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefchoice data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefchoicedata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefchoicedata(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 choice data:\n");
X      phinprintf(PTKEINFORM, "maximum number of choices = ");
X      writeinteger(PTKEINFORM, data.choices);
X      phinprintf(PTKEINFORM, "prompt/echo type = ");
X      writeintlst(PTKEINFORM, &data.pets, PTKENOTABLE);
X      phinprintf(PTKEINFORM, "limits:\n");
X      writelimit(PTKEINFORM, &data.e_area);
X      /* write pet 1 data record */
X      writechoicerec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefchoicedata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefchoicedata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefchoice3 data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefchoicedata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefchoicedata3(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 choice data 3:\n");
X      phinprintf(PTKEINFORM, "maximum number of choices = ");
X      writeinteger(PTKEINFORM, data.choices);
X      phinprintf(PTKEINFORM, "prompt/echo type = ");
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      writechoicerec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefchoicedata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefdisplayupdatest()
X`7B
X  Pwstype wstype;
X  Pint err;
X  Pdefupdatest state;
X
X  readwstype(&wstype);
X  pinqdefdisplayupdatest(wstype, &err, &state);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "deferral mode = ");
X      writephigsenum(PTKEINFORM, PTKEDEFMODE, state.def_mode);
X      phinprintf(PTKEINFORM, "modification mode = ");
X      writephigsenum(PTKEINFORM, PTKEMOD, state.mod_mode);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqdefdisplayupdatest */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdeflocdata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefloc data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdeflocdata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdeflocdata(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 locator data:\n");
X      phinprintf(PTKEINFORM, "initial position:\n");
X      writepoint(PTKEINFORM, &data.position);
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      writelocrec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdeflocdata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdeflocdata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefloc3 data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdeflocdata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdeflocdata3(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 locator data 3:\n");
X      phinprintf(PTKEINFORM, "initial position:\n");
X      writepoint3(PTKEINFORM, &data.position);
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      writelocrec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdeflocdata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefpickdata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefpick data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefpickdata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefpickdata(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 pick data:\n");
X#ifdef SUN
X      phinprintf(PTKEINFORM, "pick order = ");
X      writephigsenum(PTKEINFORM, PTKEPATHORDER, data.order);
X#endif
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      writepickrec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefpickdata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefpickdata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefpick3 data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefpickdata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefpickdata3(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 pick data 3:\n");
X#ifdef SUN
X      phinprintf(PTKEINFORM, "pick order = ");
X      writephigsenum(PTKEINFORM, PTKEPATHORDER, data.order);
X#endif
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      writepickrec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefpickdata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefstringdata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefstring data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefstringdata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefstringdata(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 string data:\n");
X      writeinteger(PTKEINFORM, err);
X      phinprintf(PTKEINFORM, "maximum buffer size = ");
X      writeinteger(PTKEINFORM, data.bufsiz);
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      writestringrec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefstringdata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefstringdata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefstring3 data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefstringdata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefstringdata3(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 string data 3:\n");
X      phinprintf(PTKEINFORM, "maximum buffer size = ");
X      writeinteger(PTKEINFORM, data.bufsiz);
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      writestringrec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefstringdata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefstrokedata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefstroke data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefstrokedata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefstrokedata(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 stroke data:\n");
X      phinprintf(PTKEINFORM, "maximum buffer size = ");
X      writeinteger(PTKEINFORM, data.bufsiz);
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      writestrokerec(PTKEINFORM, dev, 1, &data.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqdefstrokedata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqdefstrokedata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefstroke3 data;
X
X  readwstype(&wstype);
X  dev = readinteger("input device number ? ");
X  pinqdefstrokedata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)calloc(totsize, sizeof(Pchar));
X  pinqdefstrokedata3(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 stroke data 3:\n");
X      phinprintf(PTKEINFORM, "maximum buffer size = ");
X      writeinteger(PTKEINFORM, data.bufsiz);
X      phinprintf(PTKEINFORM, "prompt/echo types:\n");
X      writeintlst(PTKEINFORM, &data.pets, PTKENOTABLE);
X      phinprintf(PTKEINFORM, "limits:\n");
X#ifdef SUN
+-+-+-+-+-+-+-+-  END  OF PART 238 +-+-+-+-+-+-+-+-