pgplot.rb

class Pgplot < Formula
  desc "Device-independent graphics package for making simple scientific graphs"
  homepage "https://www.astro.caltech.edu/~tjp/pgplot/"
  url "ftp://ftp.astro.caltech.edu/pub/pgplot/pgplot522.tar.gz"
  mirror "https://distfiles.macports.org/pgplot/pgplot522.tar.gz"
  mirror "https://gentoo.osuosl.org/distfiles/pgplot522.tar.gz"
  version "5.2.2"
  sha256 "a5799ff719a510d84d26df4ae7409ae61fe66477e3f1e8820422a9a4727a5be4"
  revision 13

  depends_on "gawk" # for makedocs (apparently system-defaul awk won't work after catalina)
  depends_on "gcc"  # for gfortran
  depends_on "libpng"
  depends_on "libx11"

  # from MacPorts: https://trac.macports.org/browser/trunk/dports/graphics/pgplot/files
  patch :p0 do
    url "https://raw.githubusercontent.com/kazuakiyama/hb-pgplot-patches/5eba73c0f42daba2d6404550244cc74280d10c4a/patch-makemake.diff"
    sha256 "1af44204240dd91a59c899714b4f6012ff1eccfcad8f2133765beec34d6f1423"
  end

  patch :p0 do
    url "https://raw.githubusercontent.com/kazuakiyama/hb-pgplot-patches/5eba73c0f42daba2d6404550244cc74280d10c4a/patch-proccom.c.diff"
    sha256 "93c55078389c660407c0052569d3ed543c92107c139c765d207b90687cfb7a0c"
  end

  patch :p0 do
    url "https://raw.githubusercontent.com/kazuakiyama/hb-pgplot-patches/5eba73c0f42daba2d6404550244cc74280d10c4a/patch-grtermio.c.diff"
    sha256 "b5ef1672509c04b29629b7f4e8ff298a2c5b2900f7c971e3f4fe322285e1cab7"
  end

  patch :p0 do
    url "https://raw.githubusercontent.com/kazuakiyama/hb-pgplot-patches/5eba73c0f42daba2d6404550244cc74280d10c4a/patch-grfileio.c.diff"
    sha256 "83af4d3bce3c00dd97cd42628985d78e9c1783885bed1e7f46c6f91719439ab4"
  end

  def install
    ENV.deparallelize
    ENV.append "CPPFLAGS", "-DPG_PPU"

    if MacOS.version >= :ventura
      ENV.append "CPPFLAGS", "-mmacosx-version-min=12.4"
    end

    # re-hardcode the share dir
    inreplace "src/grgfil.f", "/usr/local/pgplot", share
    # perl may not be in /usr/local
    inreplace "makehtml", "/usr/local/bin/perl", which("perl")
    # use gawk instead of awk
    inreplace "makedoc", "awk", which("gawk")
    # prevent a "dereferencing pointer to incomplete type" in libpng
    inreplace "drivers/pndriv.c", "setjmp(png_ptr->jmpbuf)", "setjmp(png_jmpbuf(png_ptr))"

    # configure options
    (buildpath/"sys_darwin/homebrew.conf").write <<~EOS
      XINCL="#{ENV.cppflags}"
      MOTIF_INCL=""
      ATHENA_INCL=""
      TK_INCL=""
      RV_INCL=""
      FCOMPL="gfortran"
      FFLAGC="-ffixed-line-length-none -fallow-argument-mismatch"
      FFLAGD=""
      CCOMPL="#{ENV.cc}"
      CFLAGC="#{ENV.cppflags}"
      CFLAGD="#{ENV.cppflags}"
      PGBIND_FLAGS="bsd"
      LIBS="#{ENV.ldflags} -lX11"
      MOTIF_LIBS=""
      ATHENA_LIBS=""
      TK_LIBS=""
      RANLIB="#{which "ranlib"}"
      SHARED_LIB="libpgplot.dylib"
      SHARED_LD="gfortran -dynamiclib -single_module $LDFLAGS -lX11 -install_name libpgplot.dylib"
      SHARED_LIB_LIBS="#{ENV.ldflags} -lpng -lX11"
      MCOMPL=""
      MFLAGC=""
      SYSDIR="$SYSDIR"
      CSHARED_LIB="libcpgplot.dylib"
      CSHARED_LD="gfortran -dynamiclib -single_module $LDFLAGS -lX11"
    EOS

    mkdir "build" do
      # activate drivers
      cp "../drivers.list", "."
      %w[GIF VGIF LATEX PNG TPNG PS
         VPS CPS VCPS XWINDOW XSERVE].each do |drv|
        inreplace "drivers.list", %r{^! (.*/#{drv} .*)}, '  \1'
      end

      # make everything
      system "../makemake", "..", "darwin"
      system "make"
      system "make", "cpg"
      system "make", "pgplot.html"

      # install
      bin.install "pgxwin_server", "pgbind"
      lib.install Dir["*.dylib", "*.a"]
      include.install Dir["*.h"]
      share.install Dir["*.txt", "*.dat"]
      doc.install Dir["*.doc", "*.html"]
      (share/"examples").install Dir["*demo*", "../examples/pgdemo*.f", "../cpg/cpgdemo*.c",
"../drivers/*/pg*demo.*"]
    end
  end

  test do
    # build Fortran version of test program
    (testpath/"pgtest.f90").write <<~EOS
         PROGRAM SIMPLE
         INTEGER I, IER, PGBEG
         REAL XR(100), YR(100)
         REAL XS(5), YS(5)
         data XS/1.,2.,3.,4.,5./
         data YS/1.,4.,9.,16.,25./
         IER = PGOPEN('pgtest.png/PNG')
         IF (IER.LE.0) STOP
         CALL PGENV(0.,10.,0.,20.,0,1)
         CALL PGLAB('(x)', '(y)', 'A Simple Graph')
         CALL PGPT(5,XS,YS,9)
         DO 10 I=1,60
             XR(I) = 0.1*I
             YR(I) = XR(I)**2
      10 CONTINUE
         CALL PGLINE(60,XR,YR)
         CALL PGCLOS
         END
    EOS
    system "gfortran", "-o", "pgtest", "pgtest.f90", "-L#{lib}", "-lpgplot"

    # build C version of test program
    (testpath/"cpgtest.c").write <<~EOS
              #include "cpgplot.h"
      #{"  "}
              #include <stdio.h>
              #include <stdlib.h>
              #include <math.h>
      #{"  "}
              int main()
              {
                int i;
                static float xs[] = {1.0, 2.0, 3.0, 4.0, 5.0 };
                static float ys[] = {1.0, 4.0, 9.0, 16.0, 25.0 };
                float xr[60], yr[60];
                int n = sizeof(xr) / sizeof(xr[0]);
                if(cpgopen("cpgtest.png/PNG") <= 0)
                  return EXIT_FAILURE;
                cpgenv(0.0, 10.0, 0.0, 20.0, 0, 1);
                cpglab("(x)", "(y)", "A Simple Graph");
                cpgpt(5, xs, ys, 9);
                for(i=0; i<n; i++) {
                  xr[i] = 0.1*i;
                  yr[i] = xr[i]*xr[i];
                }
                cpgline(n, xr, yr);
                cpgclos();
                return EXIT_SUCCESS;
              }
    EOS
    system ENV.cc, "-c", "-I#{include}", "cpgtest.c"
    system "gfortran", "-o", "cpgtest", "cpgtest.o",
           "-L#{lib}", "-lcpgplot", "-lpgplot"

    # Produce PNG output with both programs and check if identical
    system "./pgtest"
    system "./cpgtest"
    assert_predicate testpath/"pgtest.png", :exist?
    assert_predicate testpath/"cpgtest.png", :exist?
    assert_equal (testpath/"pgtest.png").read, (testpath/"cpgtest.png").read
  end
end