-+-+-+-+-+-+-+-+ START OF PART 242 -+-+-+-+-+-+-+-+
X      writelimit3(PTKEINFORM, &state.e_volume);
X#endif
X#ifdef VMS
X      writelimit3(PTKEINFORM, &state.e_area);
X#endif
X      writelocrec(PTKEINFORM, dev, state.pet, &state.record);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqlocst3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqmarkerfacil()
X`7B
X  Pwstype wstype;
X  Pint start, err, totlength, i;
X  Pmkfac facil;
X
X  readwstype(&wstype);
X  start = readinteger("starting position ? ");
X  pinqmarkerfacil(wstype, 0, start, &err, &totlength, &facil);
X  facil.types.integers = (Pint *)calloc(totlength, sizeof(Pint));
X  facil.types.number = totlength;
X  pinqmarkerfacil(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, "marker facilities:\n");
X      phinprintf(PTKEINFORM, "marker types:\n");
X      writeintlst(PTKEINFORM, &facil.types, PTKENOTABLE);
X      phinprintf(PTKEINFORM, "number of available sizes = ");
X      writeinteger(PTKEINFORM, facil.sizes);
X      phinprintf(PTKEINFORM, "nominal size = ");
X      writereal(PTKEINFORM, facil.nom);
X      phinprintf(PTKEINFORM, "minimum size = ");
X      writereal(PTKEINFORM, facil.min);
X      phinprintf(PTKEINFORM, "maximum size = ");
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_pinqmarkerfacil */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqmarkerrep()
X`7B
X  Pint wsid, index, err;
X  Pinqtype type;
X  Pmkbundl rep;
X
X  wsid = readinteger("workstation identifier ? ");
X  index = readinteger("marker index ? ");
X  type = readphigsenum(PTKEINQTYPE, "type of value ? ");
X  pinqmarkerrep(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, "marker representation:\n");
X      writemkbundl(PTKEINFORM, &rep);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqmarkerrep */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqmodelclipfacil()
X`7B
X#ifdef SUN
X  Pint start, err, totlength, num;
X  Pintlst ops;
X
X  start = readinteger("starting position ? ");
X  pinqmodelclipfacil(0, start, &err, &num, &ops, &totlength);
X  ops.integers = (Pint *)calloc(totlength, sizeof(Pint));
X  ops.number = totlength;
X  pinqmodelclipfacil(totlength, start, &err, &num, &ops, &totlength);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM,
X              "number of distinct planes in modelling clipping volume = ");
X      writeinteger(PTKEINFORM, num);`20
X      phinprintf(PTKEINFORM, "modelling clip operators:\n");
X      writeintlst(PTKEINFORM, &ops, PTKENOTABLE);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(ops.integers);
X#endif
X#ifdef VMS
X  phintererror(1, (Pchar *)NULL, INFORM);
X#endif
X`7D  /* do_pinqmodelclipfacil */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqmoreevents()
X`7B
X  Pint err;
X  Psimultev events;
X
X  pinqmoreevents(&err, &events);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "simultaneous events = ");
X      writephigsenum(PTKEINFORM, PTKESIMULTEV, events);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqmoreevents */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqnuminput()
X`7B
X  Pwstype wstype;
X  Pint err;
X  Pnumdev numbers;
X
X  readwstype(&wstype);
X  pinqnuminput(wstype, &err, &numbers);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "locator = ");
X      writeinteger(PTKEINFORM, numbers.locator);
X      phinprintf(PTKEINFORM, "stroke = ");
X      writeinteger(PTKEINFORM, numbers.stroke);
X      phinprintf(PTKEINFORM, "valuator = ");
X      writeinteger(PTKEINFORM, numbers.valuator);
X      phinprintf(PTKEINFORM, "choice = ");
X      writeinteger(PTKEINFORM, numbers.choice);
X      phinprintf(PTKEINFORM, "pick = ");
X      writeinteger(PTKEINFORM, numbers.pick);
X      phinprintf(PTKEINFORM, "string = ");
X      writeinteger(PTKEINFORM, numbers.string);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqnuminput */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqnumdisplaypri()
X`7B
X  Pwstype wstype;
X  Pint err, numpri;
X
X  readwstype(&wstype);
X  pinqnumdisplaypri(wstype, &err, &numpri);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "number of display priorities = ");
X      writeinteger(PTKEINFORM, numpri);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* do_pinqnumdisplaypri */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqopenstruct()
X`7B
X  Pint name, err;
X  Popenstructstatus status;
X
X  pinqopenstruct(&err, &status, &name);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "open structure status = ");
X      writephigsenum(PTKEINFORM, PTKEOPENSTRUCTSTATUS, status);
X      if (status == PSTRUCT_OPEN)
X      `7B
X        phinprintf(PTKEINFORM, "open structure = ");
X        writeintvalue(PTKEINFORM, name, PTKESTRUCTID);
X      `7D
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X`7D  /* pinqopenstruct */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqpatfacil()
X`7B
X#ifdef SUN
X  Pwstype wstype;
X  Pint err, predefined;
X
X  readwstype(&wstype);
X  pinqpatfacil(wstype, &err, &predefined);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM,
X              "number of predefined pattern indices = ");
X      writeinteger(PTKEINFORM, predefined);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X#endif
X#ifdef VMS
X  phintererror(1, (Pchar *)NULL, INFORM);
X#endif
X`7D  /* do_pinqpatfacil */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqpatrep()
X`7B
X#ifdef SUN
X  Pint wsid, index, err, totsize, numcols, i;
X  Pinqtype type;
X  Pptbundl rep;
X  Pchar *buffer;
X
X  wsid = readinteger("workstation identifier ? ");
X  index = readinteger("pattern index ? ");
X  type = readphigsenum(PTKEINQTYPE, "type of value ? ");
X  pinqpatrep(wsid, index, type, 0, &err, buffer, &rep, &totsize);
X  buffer = (Pchar *)malloc(totsize);
X  pinqpatrep(wsid, index, type, totsize, &err, buffer, &rep, &totsize);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "pattern representation:\n");
X      phinprintf(PTKEINFORM, "dimensions, x = %d, y = %d\n",
X              rep.dim.x_dim, rep.dim.y_dim);
X      numcols = rep.dim.x_dim * rep.dim.y_dim;
X      phinprintf(PTKEINFORM, "colour indicies:\n");
X      writeintarray(PTKEINFORM, numcols, rep.array, PTKECOLOURIND);
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X#endif
X#ifdef VMS
X  phintererror(1, (Pchar *)NULL, INFORM);
X#endif
X`7D  /* do_pinqpatrep */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqphigsfacil()
X`7B
X  Pint start, err, openws, openar, numnames, normfilt, invfilt, totlength, i
V;
X  Pintlst charsets;
X
X  start = readinteger("starting position ? ");
X#ifdef SUN
X  pinqphigsfacil(0, start, &err, &openws, &openar, &numnames, &charsets,
X                 &normfilt, &invfilt, &totlength);
X  charsets.integers = (Pint *)calloc(totlength, sizeof(Pint));
X  charsets.number = totlength;
X  pinqphigsfacil(totlength, start, &err, &openws, &openar, &numnames,`20
X                 &charsets, &normfilt, &invfilt, &totlength);
X#endif
X#ifdef VMS
X  pinqphigsfacil(0, start, &err, &openws, &openar, &charsets,
X                 &totlength);
X  charsets.integers = (Pint *)calloc(totlength, sizeof(Pint));
X  charsets.number = totlength;
X  pinqphigsfacil(totlength, start, &err, &openws, &openar, &charsets,`20
X                 &totlength);
X#endif
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "PHIGS facilities:\n");
X      phinprintf(PTKEINFORM,`20
X              "maximum number of simultaneously open workstations = ");
X      writeinteger(PTKEINFORM, openws);
X      phinprintf(PTKEINFORM,`20
X              "maximum number of simultaneously open archive files = ");
X      writeinteger(PTKEINFORM, openar);
X#ifdef SUN
X      phinprintf(PTKEINFORM,`20
X              "number of available names for namesets = ");
X      writeinteger(PTKEINFORM, numnames);
X#endif
X      phinprintf(PTKEINFORM, "character sets:\n");
X      writeintlst(PTKEINFORM, &charsets, PTKENOTABLE);
X#ifdef SUN
X      phinprintf(PTKEINFORM,`20
X              "maximum length of normal filter list for ISS = ");
X      writeinteger(PTKEINFORM, normfilt);
X      phinprintf(PTKEINFORM,`20
X              "maximum length of inverted filter list for ISS = ");
X      writeinteger(PTKEINFORM, invfilt);
X#endif
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(charsets.integers);
X`7D  /* do_pinqphigsfacil */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqpickst()
X`7B
X  Pint ws, dev, err, totsize, i;
X  Pchar *buffer;
X  Ppickst state;
X  Pinqtype type;
X
X  ws = readinteger("workstation identifier ? ");
X  dev = readinteger("pick device number ? ");
X  type = readphigsenum(PTKEINQTYPE, "type of value ? ");
X  pinqpickst(ws, dev, type, 0, &err, buffer, &totsize, &state);
X  buffer = (Pchar *)malloc(totsize);
X  pinqpickst(ws, dev, type, totsize, &err, buffer, &totsize, &state);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "pick device state:\n");
X      phinprintf(PTKEINFORM, "operating mode = ");
X      writephigsenum(PTKEINFORM, PTKEIMODE, state.mode);
X      phinprintf(PTKEINFORM, "echo switch = ");
X      writephigsenum(PTKEINFORM, PTKEESW, state.esw);
X      phinprintf(PTKEINFORM, "pick inclusion filter:\n");
X      writeintlst(PTKEINFORM, &state.inclusion_filter, PTKENAME);
X      phinprintf(PTKEINFORM, "pick exclusion filter:\n");
X      writeintlst(PTKEINFORM, &state.exclusion_filter, PTKENAME);
X      phinprintf(PTKEINFORM, "pick status = ");
X      writephigsenum(PTKEINFORM, PTKEPICKSTATUS,`20
X                     state.pick.status);
X      phinprintf(PTKEINFORM, "pick path:\n");
X      writepickpath(PTKEINFORM, &state.pick.pick_path);
X      phinprintf(PTKEINFORM, "prompt/echo type = ");
X      writeinteger(PTKEINFORM, state.pet);
X      phinprintf(PTKEINFORM, "limits:\n");
X      writelimit(PTKEINFORM, &state.e_area);
X      writepickrec(PTKEINFORM, dev, state.pet, &state.record);
X      phinprintf(PTKEINFORM, "path order = ");
X#ifdef SUN
X      writephigsenum(PTKEINFORM, PTKEPATHORDER, state.order);
X#endif
X#ifdef VMS
X      writephigsenum(PTKEINFORM, PTKEPATHORDER,`20
X                     state.path_order);
X#endif
X    `7D
X    else
X      phigserror(PTKEINFORM, err);
X  `7D
X  free(buffer);
X`7D  /* do_pinqpickst */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pinqpickst3()
X`7B
X  Pint ws, dev, err, totsize, i;
X  Pchar *buffer;
X  Ppickst3 state;
X  Pinqtype type;
X
X  ws = readinteger("workstation identifier ? ");
X  dev = readinteger("pick device number ? ");
X  type = readphigsenum(PTKEINQTYPE, "type of value ? ");
X  pinqpickst3(ws, dev, type, 0, &err, buffer, &totsize, &state);
X  buffer = (Pchar *)malloc(totsize);
X  pinqpickst3(ws, dev, type, totsize, &err, buffer, &totsize, &state);
X  if (writeinform)
X  `7B
X    phinprintf(PTKEINFORM, "--- %s ---\n", phigsnamelist`5Bactivefunction`5D
V);
X    if (err == 0)
X    `7B
X      phinprintf(PTKEINFORM, "operating mode = ");
X      writephigsenum(PTKEINFORM, PTKEIMODE, state.mode);
X      phinprintf(PTKEINFORM, "echo switch = ");
X      writephigsenum(PTKEINFORM, PTKEESW, state.esw);
X      phinprintf(PTKEINFORM, "pick inclusion filter:\n");
X      writeintlst(PTKEINFORM, &state.inclusion_filter, PTKENAME);
X      phinprintf(PTKEINFORM, "pick exclusion filter:\n");
X      writeintlst(PTKEINFORM, &state.exclusion_filter, PTKENAME);
X      phinprintf(PTKEINFORM, "pick status = ");
X      writephigsenum(PTKEINFORM, PTKEPICKSTATUS,`20
X                     state.pick.status);
X      phinprintf(PTKEINFORM, "pick path:\n");
X      writepickpath(PTKEINFORM, &state.pick.pick_path);
X      phinprintf(PTKEINFORM, "prompt/echo type = ");
X      writeinteger(PTKEINFORM, state.pet);
X      phinprintf(PTKEINFORM, "limits:\n");
X#ifdef SUN
X      writelimit3(PTKEINFORM, &state.e_volume);
X      writepickrec(PTKEINFORM, dev, state.pet, &state.record);
X      phinprintf(PTKEINFORM, "path order = ");
X      writephigsenum(PTKEINFORM, PTKEPATHORDER, state.order);
X#endif
X#ifdef VMS
+-+-+-+-+-+-+-+-  END  OF PART 242 +-+-+-+-+-+-+-+-