Repatch (from linux) of OSX IRAF

1 files changed, 142 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibf/gfnarg.f b/unix/boot/spp/rpp/ratlibf/gfnarg.f
new file mode 100644
index 00000000..19d4655d
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibf/gfnarg.f
@@ -0,0 +1,142 @@
+      integer function gfnarg (name, state)
+      integer name (100)
+      integer state (4)
+      integer l
+      integer getarg, getlin
+      integer fd
+      integer rfopen
+      integer in1(12)
+      integer in2(12)
+      integer in3(12)
+      data in1(1)/47/,in1(2)/100/,in1(3)/101/,in1(4)/118/,in1(5)/47/,in1
+     *(6)/115/,in1(7)/116/,in1(8)/100/,in1(9)/105/,in1(10)/110/,in1(11)/
+     *49/,in1(12)/-2/
+      data in2(1)/47/,in2(2)/100/,in2(3)/101/,in2(4)/118/,in2(5)/47/,in2
+     *(6)/115/,in2(7)/116/,in2(8)/100/,in2(9)/105/,in2(10)/110/,in2(11)/
+     *50/,in2(12)/-2/
+      data in3(1)/47/,in3(2)/100/,in3(3)/101/,in3(4)/118/,in3(5)/47/,in3
+     *(6)/115/,in3(7)/116/,in3(8)/100/,in3(9)/105/,in3(10)/110/,in3(11)/
+     *51/,in3(12)/-2/
+23000 continue
+      if (.not.(state (1) .eq. 1))goto 23003
+      state (1) = 2
+      state (2) = 1
+      state (3) = -3
+      state (4) = 0
+      goto 23004
+23003 continue
+      if (.not.(state (1) .eq. 2))goto 23005
+      if (.not.(getarg (state (2), name, 128) .ne. -1))goto 23007
+      state (1) = 2
+      state (2) = state (2) + 1
+      if (.not.(name (1) .ne. 45))goto 23009
+      state (4) = state (4) + 1
+      gfnarg=(-2)
+      return
+23009 continue
+      if (.not.(name (2) .eq. -2))goto 23011
+      call scopy (in1, 1, name, 1)
+      state (4) = state (4) + 1
+      gfnarg=(-2)
+      return
+23011 continue
+      if (.not.(name (2) .eq. 49 .and. name (3) .eq. -2))goto 23013
+      call scopy (in1, 1, name, 1)
+      state (4) = state (4) + 1
+      gfnarg=(-2)
+      return
+23013 continue
+      if (.not.(name (2) .eq. 50 .and. name (3) .eq. -2))goto 23015
+      call scopy (in2, 1, name, 1)
+      state (4) = state (4) + 1
+      gfnarg=(-2)
+      return
+23015 continue
+      if (.not.(name (2) .eq. 51 .and. name (3) .eq. -2))goto 23017
+      call scopy (in3, 1, name, 1)
+      state (4) = state (4) + 1
+      gfnarg=(-2)
+      return
+23017 continue
+      if (.not.(name (2) .eq. 110 .or. name (2) .eq. 78))goto 23019
+      state (1) = 3
+      if (.not.(name (3) .eq. -2))goto 23021
+      state (3) = 0
+      goto 23022
+23021 continue
+      if (.not.(name (3) .eq. 49 .and. name (4) .eq. -2))goto 23023
+      state (3) = stdin1
+      goto 23024
+23023 continue
+      if (.not.(name (3) .eq. 50 .and. name (4) .eq. -2))goto 23025
+      state (3) = stdin2
+      goto 23026
+23025 continue
+      if (.not.(name (3) .eq. 51 .and. name (4) .eq. -2))goto 23027
+      state (3) = stdin3
+      goto 23028
+23027 continue
+      state (3) = rfopen(name (3), 1)
+      if (.not.(state (3) .eq. -3))goto 23029
+      call putlin (name, 2)
+      call remark (14H:  can't open.)
+      state (1) = 2
+23029 continue
+23028 continue
+23026 continue
+23024 continue
+23022 continue
+      goto 23020
+23019 continue
+      gfnarg=(-3)
+      return
+23020 continue
+23018 continue
+23016 continue
+23014 continue
+23012 continue
+23010 continue
+      goto 23008
+23007 continue
+      state (1) = 4
+23008 continue
+      goto 23006
+23005 continue
+      if (.not.(state (1) .eq. 3))goto 23031
+      l = getlin (name, state (3))
+      if (.not.(l .ne. -1))goto 23033
+      name (l) = -2
+      state (4) = state (4) + 1
+      gfnarg=(-2)
+      return
+23033 continue
+      if (.not.(fd .ne. -3 .and. fd .ne. 0))goto 23035
+      call rfclos(state (3))
+23035 continue
+      state (1) = 2
+      goto 23032
+23031 continue
+      if (.not.(state (1) .eq. 4))goto 23037
+      state (1) = 5
+      if (.not.(state (4) .eq. 0))goto 23039
+      call scopy (in1, 1, name, 1)
+      gfnarg=(-2)
+      return
+23039 continue
+      goto 23002
+23037 continue
+      if (.not.(state (1) .eq. 5))goto 23041
+      goto 23002
+23041 continue
+      call error (32Hin gfnarg:  bad state (1) value.)
+23042 continue
+23038 continue
+23032 continue
+23006 continue
+23004 continue
+23001 goto 23000
+23002 continue
+      name (1) = -2
+      gfnarg=(-1)
+      return
+      end