diff --git a/graphics/pgplot/Makefile b/graphics/pgplot/Makefile new file mode 100644 index 000000000000..035cf5474f4b --- /dev/null +++ b/graphics/pgplot/Makefile @@ -0,0 +1,20 @@ +# New ports collection makefile for: pgplot +# Version required: 5.1 +# Date created: 21 December 1996 +# Whom: jmz +# +# $Id$ +# + +DISTNAME= pgplot5.1 +CATEGORIES= graphics +MASTER_SITES= ftp://astro.caltech.edu/pub/pgplot/ + +MAINTAINER= jmz@FreeBSD.org + +WRKSRC= ${WRKDIR}/pgplot + +post-install: + /sbin/ldconfig -m ${PREFIX}/lib + +.include diff --git a/graphics/pgplot/distinfo b/graphics/pgplot/distinfo new file mode 100644 index 000000000000..a5579cf28883 --- /dev/null +++ b/graphics/pgplot/distinfo @@ -0,0 +1 @@ +MD5 (pgplot5.1.tar.gz) = 20734bdd545d5970eb30c868965e3a70 diff --git a/graphics/pgplot/files/Makefile b/graphics/pgplot/files/Makefile new file mode 100644 index 000000000000..cd7411375516 --- /dev/null +++ b/graphics/pgplot/files/Makefile @@ -0,0 +1,16 @@ +D=examples/ +all: + make -f Makefile.flib + make -f Makefile.clib + make -f Makefile.bin + make -f Makefile.doc + +install: + install -c *.a *.so.5.1 ${PREFIX}/lib + mkdir -p ${PREFIX}/share/pgplot + install -c grfont.dat rgb.txt pgplot.doc pgplot.html pgplot-routines.tex cpg/cpgplot.doc ${PREFIX}/share/pgplot + install -c cpgplot.h ${PREFIX}/include + install -c Makefile.demo examples/pgdemo*.f cpg/cpgdemo.c ${PREFIX}/share/pgplot + cp pgdispd/aaaread.me ${PREFIX}/share/pgplot/readme.pgdisp + install -c -s pgxwin_server pgdisp ${PREFIX}/bin + diff --git a/graphics/pgplot/files/Makefile.bin b/graphics/pgplot/files/Makefile.bin new file mode 100644 index 000000000000..fe8a92f51745 --- /dev/null +++ b/graphics/pgplot/files/Makefile.bin @@ -0,0 +1,22 @@ +DRVDIR=./drivers + +LIBS=-L/usr/X11R6/lib -lX11 -lm +XINCL=-I/usr/X11R6/include + +CFLAGS+= $(XINCL) -DPGDISP +.PATH: . ./pgdispd + +PGDISP_ROUTINES= cleanup.o pgdisp.o figcurs.o getdata.o getvisuals.o handlexevent.o proccom.o resdb.o exposelgwin.o getcolors.o initlgluts.o initlgwin.o initlock.o initwmattr.o mainloop.o resizelgwin.o returnbuf.o waitevent.o updatelgtitle.o + + +all: grfont.dat pgxwin_server pgdisp + +grfont.dat: fonts/grfont.txt fonts/pgpack.f + f77 -o pgpack fonts/pgpack.f + ./pgpack diff --git a/graphics/pgplot/files/Makefile.demo b/graphics/pgplot/files/Makefile.demo new file mode 100644 index 000000000000..5e278ef3db69 --- /dev/null +++ b/graphics/pgplot/files/Makefile.demo @@ -0,0 +1,39 @@ +PGPLOT_LIB = -L/usr/local/lib -lpgplot +CPGPLOT_LIB = -L/usr/local/lib -lcpgplot +LIBS= -L/usr/X11R6/lib -lX11 -lm + +all: cpgdemo pgdemo1 pgdemo2 pgdemo3 pgdemo4 pgdemo5 pgdemo6 pgdemo7 pgdemo8 \ + pgdemo9 pgdemo10 pgdemo11 pgdemo12 pgdemo13 pgdemo14 + +pgdemo1: pgdemo1.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo1 pgdemo1.f $(PGPLOT_LIB) $(LIBS) +pgdemo2: pgdemo2.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo2 pgdemo2.f $(PGPLOT_LIB) $(LIBS) +pgdemo3: pgdemo3.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo3 pgdemo3.f $(PGPLOT_LIB) $(LIBS) +pgdemo4: pgdemo4.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo4 pgdemo4.f $(PGPLOT_LIB) $(LIBS) +pgdemo5: pgdemo5.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo5 pgdemo5.f $(PGPLOT_LIB) $(LIBS) +pgdemo6: pgdemo6.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo6 pgdemo6.f $(PGPLOT_LIB) $(LIBS) +pgdemo7: pgdemo7.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo7 pgdemo7.f $(PGPLOT_LIB) $(LIBS) +pgdemo8: pgdemo8.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo8 pgdemo8.f $(PGPLOT_LIB) $(LIBS) +pgdemo9: pgdemo9.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo9 pgdemo9.f $(PGPLOT_LIB) $(LIBS) +pgdemo10: pgdemo10.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo10 pgdemo10.f $(PGPLOT_LIB) $(LIBS) +pgdemo11: pgdemo11.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo11 pgdemo11.f $(PGPLOT_LIB) $(LIBS) +pgdemo12: pgdemo12.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo12 pgdemo12.f $(PGPLOT_LIB) $(LIBS) +pgdemo13: pgdemo13.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo13 pgdemo13.f $(PGPLOT_LIB) $(LIBS) +pgdemo14: pgdemo14.f libpgplot.a + $(FC) $(FFLAGS) -o pgdemo14 pgdemo14.f $(PGPLOT_LIB) $(LIBS) + +cpgdemo: cpgdemo.c + $(CC) $(CFLAGS) -c -I/usr/local/include cpgdemo.c + $(FC) -o cpgdemo cpgdemo.o $(PGPLOT_LIB) $(CPGPLOT_LIB) $(LIBS) diff --git a/graphics/pgplot/files/Makefile.doc b/graphics/pgplot/files/Makefile.doc new file mode 100644 index 000000000000..866c343f8f47 --- /dev/null +++ b/graphics/pgplot/files/Makefile.doc @@ -0,0 +1,11 @@ +SRCDIR=./src +PG_SOURCE= $(SRCDIR)/pgarro.f $(SRCDIR)/pgask.f $(SRCDIR)/pgband.f $(SRCDIR)/pgbbuf.f $(SRCDIR)/pgbeg.f $(SRCDIR)/pgbin.f $(SRCDIR)/pgbox.f $(SRCDIR)/pgbox1.f $(SRCDIR)/pgcirc.f $(SRCDIR)/pgcl.f $(SRCDIR)/pgclos.f $(SRCDIR)/pgcn01.f $(SRCDIR)/pgcnsc.f $(SRCDIR)/pgconb.f $(SRCDIR)/pgconl.f $(SRCDIR)/pgcons.f $(SRCDIR)/pgcont.f $(SRCDIR)/pgconx.f $(SRCDIR)/pgcp.f $(SRCDIR)/pgctab.f $(SRCDIR)/pgcurs.f $(SRCDIR)/pgdraw.f $(SRCDIR)/pgebuf.f $(SRCDIR)/pgend.f $(SRCDIR)/pgenv.f $(SRCDIR)/pgeras.f $(SRCDIR)/pgerrb.f $(SRCDIR)/pgerrx.f $(SRCDIR)/pgerry.f $(SRCDIR)/pgetxt.f $(SRCDIR)/pgfunt.f $(SRCDIR)/pgfunx.f $(SRCDIR)/pgfuny.f $(SRCDIR)/pggray.f $(SRCDIR)/pghi2d.f $(SRCDIR)/pghis1.f $(SRCDIR)/pghist.f $(SRCDIR)/pghtch.f $(SRCDIR)/pgiden.f $(SRCDIR)/pgimag.f $(SRCDIR)/pginit.f $(SRCDIR)/pglab.f $(SRCDIR)/pglcur.f $(SRCDIR)/pgldev.f $(SRCDIR)/pglen.f $(SRCDIR)/pgline.f $(SRCDIR)/pgmove.f $(SRCDIR)/pgmtxt.f $(SRCDIR)/pgncur.f $(SRCDIR)/pgnoto.f $(SRCDIR)/pgnpl.f $(SRCDIR)/pgnumb.f $(SRCDIR)/pgolin.f $(SRCDIR)/pgopen.f $(SRCDIR)/pgpage.f $(SRCDIR)/pgpanl.f $(SRCDIR)/pgpap.f $(SRCDIR)/pgpixl.f $(SRCDIR)/pgpnts.f $(SRCDIR)/pgpoly.f $(SRCDIR)/pgpt.f $(SRCDIR)/pgptxt.f $(SRCDIR)/pgqah.f $(SRCDIR)/pgqcf.f $(SRCDIR)/pgqch.f $(SRCDIR)/pgqci.f $(SRCDIR)/pgqcir.f $(SRCDIR)/pgqcol.f $(SRCDIR)/pgqcr.f $(SRCDIR)/pgqcs.f $(SRCDIR)/pgqfs.f $(SRCDIR)/pgqhs.f $(SRCDIR)/pgqid.f $(SRCDIR)/pgqinf.f $(SRCDIR)/pgqitf.f $(SRCDIR)/pgqls.f $(SRCDIR)/pgqlw.f $(SRCDIR)/pgqpos.f $(SRCDIR)/pgqtbg.f $(SRCDIR)/pgqtxt.f $(SRCDIR)/pgqvp.f $(SRCDIR)/pgqvsz.f $(SRCDIR)/pgqwin.f $(SRCDIR)/pgrect.f $(SRCDIR)/pgrnd.f $(SRCDIR)/pgrnge.f $(SRCDIR)/pgsah.f $(SRCDIR)/pgsave.f $(SRCDIR)/pgscf.f $(SRCDIR)/pgsch.f $(SRCDIR)/pgsci.f $(SRCDIR)/pgscir.f $(SRCDIR)/pgscr.f $(SRCDIR)/pgscrn.f $(SRCDIR)/pgsfs.f $(SRCDIR)/pgshls.f $(SRCDIR)/pgshs.f $(SRCDIR)/pgsitf.f $(SRCDIR)/pgslct.f $(SRCDIR)/pgsls.f $(SRCDIR)/pgslw.f $(SRCDIR)/pgstbg.f $(SRCDIR)/pgsubp.f $(SRCDIR)/pgsvp.f $(SRCDIR)/pgswin.f $(SRCDIR)/pgtbox.f $(SRCDIR)/pgtext.f $(SRCDIR)/pgupdt.f $(SRCDIR)/pgvect.f $(SRCDIR)/pgvsiz.f $(SRCDIR)/pgvstd.f $(SRCDIR)/pgvw.f $(SRCDIR)/pgwedg.f $(SRCDIR)/pgwnad.f $(SRCDIR)/pgadvance.f $(SRCDIR)/pgbegin.f $(SRCDIR)/pgcurse.f $(SRCDIR)/pglabel.f $(SRCDIR)/pgmtext.f $(SRCDIR)/pgncurse.f $(SRCDIR)/pgpaper.f $(SRCDIR)/pgpoint.f $(SRCDIR)/pgptext.f $(SRCDIR)/pgvport.f $(SRCDIR)/pgvsize.f $(SRCDIR)/pgvstand.f $(SRCDIR)/pgwindow.f + +all: pgplot.doc pgplot.html pgplot-routines.tex + +pgplot.doc: $(PG_SOURCE) + ./makedoc $(PG_SOURCE) > pgplot.doc +pgplot.html: $(PG_SOURCE) + ./makehtml $(PG_SOURCE) > pgplot.html +pgplot-routines.tex: $(PG_SOURCE) + ./maketex $(PG_SOURCE) > pgplot-routines.tex diff --git a/graphics/pgplot/files/Makefile.flib b/graphics/pgplot/files/Makefile.flib new file mode 100644 index 000000000000..5cbf532d028f --- /dev/null +++ b/graphics/pgplot/files/Makefile.flib @@ -0,0 +1,21 @@ +LIB=pgplot + +SHLIB_MAJOR= 5 +SHLIB_MINOR= 1 +NOPROFILE= no_way + +PG_ROUTINES= pgarro.f pgask.f pgband.f pgbbuf.f pgbeg.f pgbin.f pgbox.f pgbox1.f pgcirc.f pgcl.f pgclos.f pgcn01.f pgcnsc.f pgconb.f pgconl.f pgcons.f pgcont.f pgconx.f pgcp.f pgctab.f pgcurs.f pgdraw.f pgebuf.f pgend.f pgenv.f pgeras.f pgerrb.f pgerrx.f pgerry.f pgetxt.f pgfunt.f pgfunx.f pgfuny.f pggray.f pghi2d.f pghis1.f pghist.f pghtch.f pgiden.f pgimag.f pginit.f pglab.f pglcur.f pgldev.f pglen.f pgline.f pgmove.f pgmtxt.f pgncur.f pgnoto.f pgnpl.f pgnumb.f pgolin.f pgopen.f pgpage.f pgpanl.f pgpap.f pgpixl.f pgpnts.f pgpoly.f pgpt.f pgptxt.f pgqah.f pgqcf.f pgqch.f pgqci.f pgqcir.f pgqcol.f pgqcr.f pgqcs.f pgqfs.f pgqhs.f pgqid.f pgqinf.f pgqitf.f pgqls.f pgqlw.f pgqpos.f pgqtbg.f pgqtxt.f pgqvp.f pgqvsz.f pgqwin.f pgrect.f pgrnd.f pgrnge.f pgsah.f pgsave.f pgscf.f pgsch.f pgsci.f pgscir.f pgscr.f pgscrn.f pgsfs.f pgshls.f pgshs.f pgsitf.f pgslct.f pgsls.f pgslw.f pgstbg.f pgsubp.f pgsvp.f pgswin.f pgtbox.f pgtext.f pgupdt.f pgvect.f pgvsiz.f pgvstd.f pgvw.f pgwedg.f pgwnad.f +PG_NON_STANDARD= pgadvance.f pgbegin.f pgcurse.f pglabel.f pgmtext.f pgncurse.f pgpaper.f pgpoint.f pgptext.f pgvport.f pgvsize.f pgvstand.f pgwindow.f +GR_ROUTINES= grarea.f grbpic.f grchsz.f grclip.f grclos.f grclpl.f grctoi.f grcurs.f grdot0.f grdtyp.f gresc.f grepic.f gretxt.f grfa.f grfao.f grgfil.f grgray.f grimg0.f grimg1.f grimg2.f grimg3.f grinit.f gritoc.f grldev.f grlen.f grlin0.f grlin1.f grlin2.f grlin3.f grlina.f grmcur.f grmker.f grmova.f grmsg.f gropen.f grpage.f grpars.f grpixl.f grpocl.f grprom.f grpxpo.f grpxps.f grpxpx.f grpxre.f grqcap.f grqci.f grqcol.f grqcr.f grqdev.f grqdt.f grqfnt.f grqls.f grqlw.f grqpos.f grqtxt.f grqtyp.f grquit.f grrec0.f grrect.f grsci.f grscr.f grsetc.f grsets.f grsfnt.f grsize.f grskpb.f grslct.f grsls.f grslw.f grsyds.f grsymk.f grsyxd.f grterm.f grtext.f grtoup.f grtrim.f grtrn0.f grtxy0.f grvct0.f grwarn.f grxhls.f grxrgb.f +SYSTEM_ROUTINES= grdate.c grfileio.c grflun.f grgcom.f grgenv.f grgetc.c grglun.f grgmem.c grgmsg.f grlgtr.f groptx.f grsy00.f grtermio.c grtrml.f grtter.f gruser.f iand.c +DRIVERS=gidriv.f gldriv.f hgdriv.f lxdriv.f nudriv.f ppdriv.f psdriv.f ttdriv.f wddriv.f x2driv.c figdisp_comm.c xwdriv.c + +.PATH:./src ./examples ./fonts ./drivers ./sys_freebsd ./pgdispd ./sys + +SRCS= ${PG_ROUTINES} ${PG_NON_STANDARD} ${GR_ROUTINES} ${SYSTEM_ROUTINES} \ + ${DRIVERS} grexec.f + +FC = ./xf77 +CFLAGS+=-DPG_PPU -I/usr/X11R6/include + +.include diff --git a/graphics/pgplot/files/drivers.list b/graphics/pgplot/files/drivers.list new file mode 100644 index 000000000000..7a72eb7836a4 --- /dev/null +++ b/graphics/pgplot/files/drivers.list @@ -0,0 +1,92 @@ +! PGPLOT drivers. +!------------------------------------------------------------------------------ +! To configure PGPLOT, ensure that drivers you do not want are +! commented out (place ! in column 1). N.B. Many device-drivers are +! available on selected operating systems only. +!------------------------------------------------------------------------------ +! File Code Description Restrictions +! BCDRIV 0 /BCANON Canon Laser printer (bitmap version), landscape +! CADRIV 0 /CANON Canon Laser printer, LBP-8/A2, landscape +! CCDRIV 0 /CCP DEC LJ250 Color Companion printer +! CWDRIV 0 /CW6320 Gould/Bryans Colourwriter 6320 pen plotter Std F77 +! EPDRIV 0 /EPSON Epson FX100 dot matrix printer +! EXDRIV 1 /EXCL Talaris/EXCL printers, landscape +! EXDRIV 2 /EXCL Talaris/EXCL printers, portrait +! GCDRIV 0 /GENICOM Genicom 4410 dot-matrix printer, landscape +! Caution: use of GIDRIV may require a license from Unisys: + GIDRIV 1 /GIF GIF-format file, landscape + GIDRIV 2 /VGIF GIF-format file, portrait + GLDRIV 1 /HPGL Hewlett-Packard HP-GL plotters, landscape Std F77 + GLDRIV 2 /VHPGL Hewlett-Packard HP-GL plotters, portrait Std F77 +! GODRIV 0 /GOC GOC Sigma T5670 terminal VMS +! GVDRIV 0 /GVENICOM Genicom 4410 dot-matrix printer, portrait + HGDRIV 0 /HPGL2 Hewlett-Packard graphics language +! HIDRIV 0 /HIDMP Houston Instruments HIDMP pen plotter +! HJDRIV 0 /HJ Hewlett-Packard Desk/Laserjet printer +! HPDRIV 0 /HP7221 Hewlett-Packard HP7221 pen plotter Std F77 +! IMDRIV 0 /IMPRESS Imagen printers (Impress language), landscape +! IRDRIV 0 /IRIS SiliconGraphics Console SGI (C) +! LADRIV 0 /LA50 Dec LA50 and other sixel printers +! LJDRIV 0 /LJ Hewlett-Packard LaserJet printers +! LSDRIV 1 /LIPS2 Canon LaserShot printer (landscape) +! LSDRIV 2 /VLIPS2 Canon LaserShot printer (portrait) +! LNDRIV 0 /LN03 Dec LN03-PLUS Laser printer (landscape) VMS +! LVDRIV 0 /LVN03 Dec LN03-PLUS Laser printer (portrait) VMS + LXDRIV 0 /LATEX LaTeX picture environment +! MFDRIV 0 /FILE PGPLOT graphics metafile +! NEDRIV 0 /NEXT Computers running NeXTstep operating system + NUDRIV 0 /NULL Null device (no output) Std F77 + PPDRIV 1 /PPM Portable Pixel Map file, landscape + PPDRIV 2 /VPPM Portable PIxel Map file, portrait + PSDRIV 1 /PS PostScript printers, monochrome, landscape Std F77 + PSDRIV 2 /VPS Postscript printers, monochrome, portrait Std F77 + PSDRIV 3 /CPS PostScript printers, color, landscape Std F77 + PSDRIV 4 /VCPS PostScript printers, color, portrait Std F77 +! PXDRIV 0 /PRINTRONI Printronix P300 or P600 dot-matrix printer +! QMDRIV 1 /QMS QUIC devices (QMS and Talaris), landscape Std F77 +! QMDRIV 2 /VQMS QUIC devices (QMS and Talaris), portrait Std F77 +! SVDRIV 0 /SUNVIEW Sun workstations running SunView SunOS C +! TFDRIV 0 /TFILE Tektronix-format disk file VMS +! TODRIV 0 /TOSHIBA Toshiba "3-in-one" printer, model P351 +! TTDRIV 1 /TEK4010 Tektronix 4006/4010 storage-tube terminal Std F77 +! TTDRIV 2 /GF GraphOn terminal Std F77 +! TTDRIV 3 /RETRO RetroGraphics terminal Std F77 + TTDRIV 4 /GTERM GTERM Tektronix terminal emulator Std F77 + TTDRIV 5 /XTERM XTERM Tektronix terminal emulator Std F77 +! TTDRIV 6 /ZSTEM ZSTEM terminal emulator Std F77 +! TTDRIV 7 /V603 Visual 603 terminal Std F77 +! TTDRIV 8 /KRM3 Kermit 3 on IBM-PC Std F77 + TTDRIV 9 /TK4100 Tektronix 4100-series terminals Std F77 +! TXDRIV 0 /TX TeX PK Font Output files +! VADRIV 0 /VCANON Canon Laser printer, LBP-8/A2, portrait +! VBDRIV 0 /VBCANON Canon Laser printer (bitmap version), portrait +! VIDRIV 0 /VIPRESS Imagen printers (Impress language), portrait +! VTDRIV 0 /VT125 Dec Regis terminals (VT125 etc.) Std F77 + WDDRIV 1 /WD X Window dump file, landscape + WDDRIV 2 /VWD X Window dump file, portrait +! WSDRIV 0 /WS VAX workstations running VWS software VMS + X2DRIV 0 /XDISP PGDISP or FIGDISP server for X workstations C + XWDRIV 1 /XWINDOW Workstations running X Window System C + XWDRIV 2 /XSERVE Persistent window on X Window System C +! ZEDRIV 0 /ZETA Zeta 8 Digital Plotter +! +! The following drivers can only be used in PGPLOT installations on MS-DOS +! systems with appropriate hardware and software. Do not select these +! on UNIX or VMS systems. +! +! LHDRIV 0 /LH IBM PCs and clones, Lahey F77 32-bit Fortran v5.0 +! MSDRIV 0 /MSOFT IBM PCs and clones running Microsoft Fortran 5.0 +! SSDRIV 0 /SS IBM PCs and clones, MS-DOS, Salford Software FTN +! +! The following driver can only be used in PGPLOT installations on Acorn +! Archimedes systems with appropriate hardware and software. +! +! ACDRIV 0 /ARC Acorn Archimedes computer +! +! Selection of the XMOTIF driver causes a stub driver to be placed in +! the main PGPLOT library. The real driver is placed in libXmPgplot.a. +! Applications that need the Motif driver should link with libXmPgplot.a +! before the PGPLOT library. This treatment means that only Motif +! applications have to be linked with Motif libraries. +! +! XMDRIV 0 /XMOTIF Motif applications containing XmPgplot widgets. C diff --git a/graphics/pgplot/files/grexec.f b/graphics/pgplot/files/grexec.f new file mode 100644 index 000000000000..0ef7e91010a0 --- /dev/null +++ b/graphics/pgplot/files/grexec.f @@ -0,0 +1,66 @@ +C*GREXEC -- PGPLOT device handler dispatch routine +C+ + SUBROUTINE GREXEC(IDEV,IFUNC,RBUF,NBUF,CHR,LCHR) + INTEGER IDEV, IFUNC, NBUF, LCHR + REAL RBUF(*) + CHARACTER*(*) CHR +C--- + INTEGER NDEV + PARAMETER (NDEV=21) + CHARACTER*10 MSG +C--- + GOTO(1,2,3,4,5,6,7,8,9,10,11,12,13,14, + + 15,16,17,18,19,20,21) IDEV + IF (IDEV.EQ.0) THEN + RBUF(1) = NDEV + NBUF = 1 + ELSE + WRITE (MSG,'(I10)') IDEV + CALL GRWARN('Unknown device code in GREXEC: '//MSG) + END IF + RETURN +C--- +1 CALL GIDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1) + RETURN +2 CALL GIDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2) + RETURN +3 CALL GLDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1) + RETURN +4 CALL GLDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2) + RETURN +5 CALL HGDRIV(IFUNC,RBUF,NBUF,CHR,LCHR) + RETURN +6 CALL LXDRIV(IFUNC,RBUF,NBUF,CHR,LCHR) + RETURN +7 CALL NUDRIV(IFUNC,RBUF,NBUF,CHR,LCHR) + RETURN +8 CALL PPDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1) + RETURN +9 CALL PPDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2) + RETURN +10 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1) + RETURN +11 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2) + RETURN +12 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,3) + RETURN +13 CALL PSDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4) + RETURN +14 CALL TTDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,4) + RETURN +15 CALL TTDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,5) + RETURN +16 CALL TTDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,9) + RETURN +17 CALL WDDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1) + RETURN +18 CALL WDDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2) + RETURN +19 CALL X2DRIV(IFUNC,RBUF,NBUF,CHR,LCHR) + RETURN +20 CALL XWDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,1) + RETURN +21 CALL XWDRIV(IFUNC,RBUF,NBUF,CHR,LCHR,2) + RETURN +C + END diff --git a/graphics/pgplot/files/xf77 b/graphics/pgplot/files/xf77 new file mode 100644 index 000000000000..cd8a80e475c9 --- /dev/null +++ b/graphics/pgplot/files/xf77 @@ -0,0 +1,70 @@ +#!/usr/bin/perl + +$ftxt = "ipercent_val"; +$ctxt = $ftxt . "__"; +$myname = $0; + +@names = (); +$count = 0; + +while ($ARGV[0] =~ /^-/) { + $opt . = " $ARGV[0]"; + if ($ARGV[0] eq "-o") { + shift; + $opt . = " $ARGV[0]"; + } + shift; +} +if ("$opt" eq " -1") {&phase1;} +elsif ("$opt" eq " -2") {&phase2;} +else { + $src = $ARGV[0]; + $tmp = $src; + $tmp =~ s:.*/::; + $tmp =~ s:f$:c:; + $tmp = "/tmp/$tmp"; + system "$myname -1 < $src | f2c -f | $myname -2 > $tmp"; + system "cc -c $opt $tmp"; + unlink $tmp; +} +exit 0; + +sub phase1 { + while (<>) { + s/%[Vv][Aa][Ll]/$ftxt/g; + print $_; + } +} +sub phase2 { + while (<>) { + if (/(\s*)(\w*)(\s*=\s*)($ctxt)/) { + s/$ctxt\(&/\(/; + $names[$count] = $2; + $count++; + print $_; + } else { + if ($count && /(\s*)(\w*)_\(/) { + &repl ($_); + } else { + print $_; + } + } + } +} + +sub repl { + $l = shift; + while ($l) { + foreach (@names) { + $l =~ s/&$_/$_/g; + } + print $l; + if ($l =~ /\);/) { + @names = (); + $count = 0; + return; + } + $l = <>; + } +} + diff --git a/graphics/pgplot/pkg-comment b/graphics/pgplot/pkg-comment new file mode 100644 index 000000000000..ad99137a30b1 --- /dev/null +++ b/graphics/pgplot/pkg-comment @@ -0,0 +1 @@ +A C/FORTRAN library for drawing graphs on a variety of display devices. \ No newline at end of file diff --git a/graphics/pgplot/pkg-descr b/graphics/pgplot/pkg-descr new file mode 100644 index 000000000000..62d9bc3576e8 --- /dev/null +++ b/graphics/pgplot/pkg-descr @@ -0,0 +1,12 @@ +PGPLOT is a Fortran subroutine package for drawing graphs on a variety +of display devices. For more details, see the manual ``PGPLOT Graphics +Subroutine Library'' available from T. J. Pearson +(tjp@astro.caltech.edu). + +The CPGPLOT library adds an intermediate level of wrapper functions +between C programs and the PGPLOT library. These functions hide the +system dependencies of calling PGPLOT behind a system independent +interface. + +Documentation and demo programs are available in the /usr/local/share/pgplot +directory. diff --git a/graphics/pgplot/pkg-plist b/graphics/pgplot/pkg-plist new file mode 100644 index 000000000000..35733230ca5c --- /dev/null +++ b/graphics/pgplot/pkg-plist @@ -0,0 +1,30 @@ +bin/pgxwin_server +bin/pgdisp +include/cpgplot.h +lib/libcpgplot.a +lib/libcpgplot.so.5.1 +lib/libpgplot.a +lib/libpgplot.so.5.1 +share/pgplot/Makefile.demo +share/pgplot/cpgdemo.c +share/pgplot/cpgplot.doc +share/pgplot/grfont.dat +share/pgplot/pgplot.doc +share/pgplot/pgplot.html +share/pgplot/pgplot-routines.tex +share/pgplot/readme.pgdisp +share/pgplot/rgb.txt +share/pgplot/pgdemo1.f +share/pgplot/pgdemo2.f +share/pgplot/pgdemo3.f +share/pgplot/pgdemo4.f +share/pgplot/pgdemo5.f +share/pgplot/pgdemo6.f +share/pgplot/pgdemo7.f +share/pgplot/pgdemo8.f +share/pgplot/pgdemo9.f +share/pgplot/pgdemo10.f +share/pgplot/pgdemo11.f +share/pgplot/pgdemo12.f +share/pgplot/pgdemo13.f +share/pgplot/pgdemo14.f diff --git a/graphics/pgplot/scripts/configure b/graphics/pgplot/scripts/configure new file mode 100644 index 000000000000..267020654340 --- /dev/null +++ b/graphics/pgplot/scripts/configure @@ -0,0 +1,11 @@ +#!/bin/sh + +cd $WRKSRC/src || exit 1 +mv grgfil.f grgfil.f.orig +sed -e s:/usr/local/pgplot/:$PREFIX/share/pgplot/: < grgfil.f.orig >grgfil.f + +cp $FILESDIR/Makefile* $FILESDIR/drivers.list $FILESDIR/grexec.f $FILESDIR/xf77 $WRKSRC +chmod u+x $WRKSRC/xf77 +cp $WRKSRC/src/*.inc $WRKSRC +exit 0 +