-+-+-+-+-+-+-+-+ START OF PART 234 -+-+-+-+-+-+-+-+ X case PTKEINQVIEWREP: do_pinqviewrep(); X break; X `20 X case PTKEINQWSCATEGORY: do_pinqwscategory(); X break; X `20 X case PTKEINQWSCLASS: do_pinqwsclass(); X break; X `20 X case PTKEINQWSCONNTYPE: do_pinqwsconntype(); X break; X `20 X case PTKEINQSETWSPOSTED: do_pinqsetwsposted(); X break; X `20 X case PTKEINQWSST: do_pinqwsst(); X break; X `20 X case PTKEINQWSSTTABLE: do_pinqwssttable(); X break; X `20 X case PTKEINQWSTRAN: do_pinqwstran(); X break; X `20 X case PTKEINQWSTRAN3: do_pinqwstran3(); X break; X X case PTKEINTERPRET: do_pinterpret(); X break; X `20 X case PTKELABEL: do_plabel(); X break; X `20 X case PTKEMESSAGE: do_pmessage(); X break; X `20 X case PTKEOFFSETELEMPTR: do_poffsetelemptr(); X break; X `20 X case PTKEOPENARFILE: do_popenarfile(); X break; X `20 X case PTKEOPENPHIGS: do_popenphigs(); X break; X `20 X case PTKEOPENSTRUCT: do_popenstruct(); X break; X `20 X case PTKEOPENWS: do_popenws(); X break; X `20 X case PTKEPOLYLINE: do_ppolyline(); X break; X `20 X case PTKEPOLYLINE3: do_ppolyline3(); X break; X `20 X case PTKEPOLYMARKER: do_ppolymarker(); X break; X `20 X case PTKEPOLYMARKER3: do_ppolymarker3(); X break; X `20 X case PTKEPOSTSTRUCT: do_ppoststruct(); X break; X X case PTKEREADMF: do_preadmf(); X break; X `20 X case PTKEREDRAWALLSTRUCT: do_predrawallstruct(); X break; X `20 X case PTKEREMOVENAMESET: do_premovenameset(); X break; X `20 X case PTKEREQCHOICE: do_preqchoice(); X break; X `20 X case PTKEREQLOC: do_preqloc(); X break; X `20 X case PTKEREQLOC3: do_preqloc3(); X break; X `20 X case PTKEREQPICK: do_preqpick(); X break; X `20 X case PTKEREQSTRING: do_preqstring(); X break; X `20 X case PTKEREQSTROKE: do_preqstroke(); X break; X `20 X case PTKEREQSTROKE3: do_preqstroke3(); X break; X `20 X case PTKEREQVAL: do_preqval(); X break; X X case PTKERESTOREMODELCLIPVOLUME: do_prestoremodelclipvolume(); X break; X X case PTKERETRIEVEALLSTRUCT: do_pretrieveallstruct(); X break; X X case PTKERETRIEVEANCESSTRUCT: do_pretrieveancesstruct(); X break; X X case PTKERETRIEVEDESCSTRUCT: do_pretrievedescstruct(); X break; X `20 X case PTKERETRIEVESTRUCTIDS: do_pretrievestructids(); X break; X `20 X case PTKERETRIEVESTRUCT: do_pretrievestruct(); X break; X `20 X case PTKERETRIEVESTRUCTNET: do_pretrievestructnet(); X break; X `20 X case PTKEROTATE: do_protate(); X break; X `20 X case PTKEROTATEX: do_protatex(); X break; X `20 X case PTKEROTATEY: do_protatey(); X break; X `20 X case PTKEROTATEZ: do_protatez(); X break; X `20 X case PTKESAMPLECHOICE: do_psamplechoice(); X break; X `20 X case PTKESAMPLELOC: do_psampleloc(); X break; X `20 X case PTKESAMPLELOC3: do_psampleloc3(); X break; X `20 X case PTKESAMPLEPICK: do_psamplepick(); X break; X `20 X case PTKESAMPLESTRING: do_psamplestring(); X break; X `20 X case PTKESAMPLESTROKE: do_psamplestroke(); X break; X `20 X case PTKESAMPLESTROKE3: do_psamplestroke3(); X break; X `20 X case PTKESAMPLEVAL: do_psampleval(); X break; X `20 X case PTKESCALE: do_pscale(); X break; X `20 X case PTKESCALE3: do_pscale3(); X break; X `20 X case PTKESETANNOTATIONALIGN: do_psetannotationalign(); X break; X `20 X case PTKESETANNOTATIONCHARHEIGHT: do_psetannotationcharheight(); X break; X `20 X case PTKESETANNOTATIONCHARUP: do_psetannotationcharup(); X break; X `20 X case PTKESETANNOTATIONPATH: do_psetannotationpath(); X break; X `20 X case PTKESETANNOTATIONSTYLE: do_psetannotationstyle(); X break; X `20 X case PTKESETCHAREXPAN: do_psetcharexpan(); X break; X `20 X case PTKESETCHARHEIGHT: do_psetcharheight(); X break; X `20 X case PTKESETCHARSPACE: do_psetcharspace(); X break; X `20 X case PTKESETCHARUP: do_psetcharup(); X break; X `20 X case PTKESETCHOICEMODE: do_psetchoicemode(); X break; X `20 X case PTKESETCOLOURMODEL: do_psetcolourmodel(); X break; X `20 X case PTKESETCOLOURREP: do_psetcolourrep(); X break; X `20 X case PTKESETCONFRES: do_psetconfres(); X break; X `20 X case PTKESETDISPLAYUPDATEST: do_psetdisplayupdatest(); X break; X `20 X case PTKESETEDGECOLOURIND: do_psetedgecolourind(); X break; X `20 X case PTKESETEDGEFLAG: do_psetedgeflag(); X break; X `20 X case PTKESETEDGEIND: do_psetedgeind(); X break; X `20 X case PTKESETEDGEREP: do_psetedgerep(); X break; X `20 X case PTKESETEDGEWIDTH: do_psetedgewidth(); X break; X `20 X case PTKESETEDGETYPE: do_psetedgetype(); X break; X `20 X case PTKESETEDITMODE: do_pseteditmode(); X break; X `20 X case PTKESETELEMPTR: do_psetelemptr(); X break; X `20 X case PTKESETELEMPTRLABEL: do_psetelemptrlabel(); X break; X `20 X case PTKESETERRORHANDMODE: do_pseterrorhandmode(); X break; X `20 X case PTKESETGLOBALTRAN: do_psetglobaltran(); X break; X `20 X case PTKESETGLOBALTRAN3: do_psetglobaltran3(); X break; X `20 X case PTKESETHLHSRID: do_psethlhsrid(); X break; X `20 X case PTKESETHLHSRMODE: do_psethlhsrmode(); X break; X `20 X case PTKESETHILIGHTFILTER: do_psethilightfilter(); X break; X `20 X case PTKESETINDIVASF: do_psetindivasf(); X break; X `20 X case PTKESETINTCOLOURIND: do_psetintcolourind(); X break; X X case PTKESETINTIND: do_psetintind(); X break; X `20 X case PTKESETINTREP: do_psetintrep(); X break; X `20 X case PTKESETINTSTYLE: do_psetintstyle(); X break; X `20 X case PTKESETINTSTYLEIND: do_psetintstyleind(); X break; X `20 X case PTKESETINVISFILTER: do_psetinvisfilter(); X break; X `20 X case PTKESETLINECOLOURIND: do_psetlinecolourind(); X break; X `20 X case PTKESETLINEWIDTH: do_psetlinewidth(); X break; X `20 X case PTKESETLINETYPE: do_psetlinetype(); X break; X `20 X case PTKESETLOCALTRAN: do_psetlocaltran(); X break; X `20 X case PTKESETLOCALTRAN3: do_psetlocaltran3(); X break; X `20 X case PTKESETLOCMODE: do_psetlocmode(); X break; X `20 X case PTKESETMARKERCOLOURIND: do_psetmarkercolourind(); X break; X `20 X case PTKESETMARKERSIZE: do_psetmarkersize(); X break; X `20 X case PTKESETMARKERTYPE: do_psetmarkertype(); X break; X X case PTKESETMODELCLIPINDICATOR: do_psetmodelclipindicator(); X break; X X case PTKESETMODELCLIPVOLUME: do_psetmodelclipvolume(); X break; X X case PTKESETMODELCLIPVOLUME3: do_psetmodelclipvolume3(); X break; X `20 X case PTKESETPATREFPT: do_psetpatrefpt(); X break; X X case PTKESETPATREFPTVECTORS: do_psetpatrefptvectors(); X break; X X case PTKESETPATREP: do_psetpatrep(); X break; X X case PTKESETPATSIZE: do_psetpatsize(); X break; X X case PTKESETPICKFILTER: do_psetpickfilter(); X break; X `20 X case PTKESETPICKID: do_psetpickid(); X break; X `20 X case PTKESETPICKMODE: do_psetpickmode(); X break; X `20 X case PTKESETLINEIND: do_psetlineind(); X break; X `20 X case PTKESETLINEREP: do_psetlinerep(); X break; X `20 X case PTKESETMARKERIND: do_psetmarkerind(); X break; X `20 X case PTKESETMARKERREP: do_psetmarkerrep(); X break; X `20 X case PTKESETSTRINGMODE: do_psetstringmode(); X break; X `20 X case PTKESETSTROKEMODE: do_psetstrokemode(); X break; X `20 X case PTKESETTEXTALIGN: do_psettextalign(); X break; X `20 X case PTKESETTEXTCOLOURIND: do_psettextcolourind(); X break; X `20 X case PTKESETTEXTFONT: do_psettextfont(); X break; X `20 X case PTKESETTEXTIND: do_psettextind(); X break; X `20 X case PTKESETTEXTPATH: do_psettextpath(); X break; X `20 X case PTKESETTEXTPREC: do_psettextprec(); X break; X `20 X case PTKESETTEXTREP: do_psettextrep(); X break; X `20 X case PTKESETVALMODE: do_psetvalmode(); X break; X `20 X case PTKESETVIEWIND: do_psetviewind(); X break; X `20 X case PTKESETVIEWREP: do_psetviewrep(); X break; X `20 X case PTKESETVIEWREP3: do_psetviewrep3(); X break; X `20 X case PTKESETVIEWTRANINPUTPRI: do_psetviewtraninputpri(); X break; X `20 X case PTKESETWSVIEWPORT: do_psetwsviewport(); X break; X `20 X case PTKESETWSVIEWPORT3: do_psetwsviewport3(); X break; X `20 X case PTKESETWSWINDOW: do_psetwswindow(); X break; X `20 X case PTKESETWSWINDOW3: do_psetwswindow3(); X break; X `20 X case PTKETEXT: do_ptext(); X break; X `20 X case PTKETEXT3: do_ptext3(); X break; X `20 X case PTKETRANPT: do_ptranpt(); X break; X `20 X case PTKETRANPT3: do_ptranpt3(); X break; X `20 X case PTKETRANSLATE: do_ptranslate(); X break; X `20 X case PTKETRANSLATE3: do_ptranslate3(); X break; X `20 X case PTKEUNPOSTALLSTRUCT: do_punpostallstruct(); X break; X `20 X case PTKEUNPOSTSTRUCT: do_punpoststruct(); X break; X `20 X case PTKEUPDATEWS: do_pupdatews(); X break; X X case PTKEWRITEMF: do_pwritemf(); X break; X `20 X default: phintererror(2, "function unknown.\n", INFORM);`20 X break; X `7D X /* finish the line on the output script, if required */ X if (writingscript) X phinprintf(PTKEOUTPUT, "\n"); X`7D /* process_phigs_function */ X X/*-------------------------------------------------------------------------- V*/ X Xstatic ptkephigsnames look_up_n(C(Pchar *) n) XPreANSI(Pchar *n) X/* X** description:`20 X** input params:`20 X** output params:`20 X** return value:`20 X*/ X`7B X /* Searches namelist for the name n. X If found in the Phigs list, the index is returned. X If not found at all, 0 is returned */ X Pint i; X ptkboolean found; X X /* first look in the internal namelist */ X found = FALSE; X i = 1; X while (!found && i <= MAXPHIGSNAMES)`20 X `7B X if (!strcmp(n, phigsnamelist`5Bi - 1`5D)) X found = TRUE; X else X i++; X `7D X if (found) /* didn't find it in either list */ X return i; /* found it in phigs list */ X else X return 0; X`7D /* look_up_n */ X X/*-------------------------------------------------------------------------- V*/ X Xstatic void process_comment_line(C(Pchar *) l) XPreANSI(Pchar *l) X/* X** processes a comment line of the form X** ! This is a comment X** and writes it to an output script if required. X*/ X`7B X Pchar ch, str`5B80`5D, *ptr; X Pint i; X `20 X str`5B0`5D = '\0'; X ptr = strchr(l, '\n'); X if (ptr == NULL) X ptr = strchr(l, EOF); X if (ptr == NULL) X `7B X if (fileswitch) X `7B X i = 0; `20 X ch = getc(inputscript); X while ((ch != '\n') && (ch != EOF)) X `7B X str`5Bi`5D = ch; X ch = getc(inputscript); X i++; X `7D X str`5Bi`5D = '\0'; X `7D X `7D X else X *ptr = '\0'; X if (writingscript) X phinprintf(PTKEOUTPUT, "%s %s\n", l, str); X`7D /* process_comment_line */ X X/*-------------------------------------------------------------------------- V*/ X Xstatic void make_lower_case(C(Pchar *) s) XPreANSI(Pchar *s) X/* X** description:`20 X** input params:`20 X** output params:`20 X** return value:`20 X*/ X`7B X /* forces all characters in s to be lower case */ X Pint i, len; X X len = strlen(s); X for (i = 0; i < len; i++)`20 X `7B X if (isupper(s`5Bi`5D)) +-+-+-+-+-+-+-+- END OF PART 234 +-+-+-+-+-+-+-+-