ruby-dcl 1.6.2

data/demo/rakuraku/uxyz/uxyz1.rb

@@ -0,0 +1,37 @@
+#
+# uxyz1.rb
+#   $Id: uxyz1.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include Math
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::grswnd(-180.0, 180.0, -90.0, 90.0)
+DCL::grsvpt(0.2, 0.8, 0.3, 0.7)
+DCL::grstrn(1)
+DCL::grstrf
+
+DCL::uxaxdv('B', 10.0, 60.0)
+DCL::uxaxdv('T', 10.0, 60.0)
+DCL::uxsttl('B', 'LONGITUDE', 0.0)
+DCL::uxsttl('B', '<- WEST      EAST ->', 0.0)
+
+DCL::uyaxdv('L', 10.0, 30.0)
+DCL::uyaxdv('R', 10.0, 30.0)
+DCL::uysttl('L', 'LATITUDE', 0.0)
+DCL::uysttl('L', '<- SH    NH ->', 0.0)
+
+DCL::uxmttl('T', 'UXAXDV/UYAXDV', 0.0)
+
+DCL::grcls
+

data/demo/rakuraku/uxyz/uxyz2.rb

@@ -0,0 +1,35 @@
+#
+# uxyz2.rb
+#   $Id: uxyz2.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include Math
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::grswnd(1.0e0, 1.0e5, 1.0e3, 1.0e0)
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grstrn(4)
+DCL::grstrf
+
+DCL::ulxlog('B', 1, 9)
+DCL::ulxlog('T', 1, 9)
+DCL::uxsttl('B', '[X]', 1.0)
+
+DCL::ulylog('L', 3, 9)
+DCL::ulylog('R', 3, 9)
+DCL::uysttl('L', '[Y]', 1.0)
+
+DCL::uxmttl('T', 'ULXLOG/ULYLOG', 0.0)
+
+DCL::grcls
+

data/demo/rakuraku/uxyz/uxyz3.rb

@@ -0,0 +1,38 @@
+#
+# uxyz3.rb
+#   $Id: uxyz3.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include Math
+
+
+id0 = 19960101
+nd = 90
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::grswnd(0.0, nd, -90.0, 90.0)
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grstrn(1)
+DCL::grstrf
+
+DCL::ucxacl('B', id0, nd)
+DCL::ucxacl('T', id0, nd)
+
+DCL::uyaxdv('L', 10.0, 30.0)
+DCL::uyaxdv('R', 10.0, 30.0)
+DCL::uysttl('L', 'LATITUDE', 0.0)
+
+DCL::uxmttl('T', 'UCXACL/UYAXDV', 0.0)
+
+DCL::grcls
+

data/demo/rakuraku/uxyz/uxyz4.rb

@@ -0,0 +1,36 @@
+#
+# uxyz4.rb
+#   $Id: uxyz4.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include Math
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::grswnd(-50.0, 50.0, 1.0e3, 0.4)
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grstrn(2)
+DCL::grstrf
+
+DCL::uxaxdv('B', 5.0, 20.0)
+DCL::uxaxdv('T', 5.0, 20.0)
+DCL::uxsttl('B', 'LATITUDE (deg)', 0.0)
+
+DCL::uliset('IYTYPE', 3)
+DCL::ulylog('L', 3, 9)
+DCL::ulylog('R', 3, 9)
+DCL::uysttl('L', 'PRESSURE (hPa)', 0.0)
+
+DCL::uxmttl('T', 'UXAXDV/ULYLOG', 0.0)
+
+DCL::grcls
+

data/demo/rakuraku/uxyz/uxyz5.rb

@@ -0,0 +1,57 @@
+#
+# uxyz5.rb
+#   $Id: uxyz5.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include Math
+
+
+nx1 = 21
+nx2 = 5
+ny1 = 0
+ny2 = 18
+
+rx1 = NArray.sfloat(nx1)
+rx1.indgen(-50.0, 5.0)
+
+rx2 = NArray.sfloat(nx2)
+rx2.indgen(-40.0, 20.0)
+
+cx2 = ['40S ','20S ','EQ  ','20N ','40N ']
+
+ry2 = NArray[1000.0, 850.0, 700.0, 500.0, 400.0, 300.0, 250.0, 200.0,
+               150.0, 100.0, 70.0, 50.0, 30.0, 10.0, 5.0, 2.0, 1.0, 0.4]
+
+cy2 = ['1000','    ','    ','500 ','    ','    ','    ','200 ','    ',
+       '100 ','    ','50  ','30  ','10  ','5   ','2   ','1   ','.4  ']
+
+dummy = []
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;';DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::grswnd(-50.0, 50.0, 1.0e3, 0.4)
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grstrn(2)
+DCL::grstrf
+
+DCL::uxaxlb('B', rx1, rx2, cx2, 4)
+DCL::uxaxlb('T', rx1, rx2, cx2, 4)
+DCL::uxsttl('B', 'LATITUDE', 0.0)
+
+DCL::uyaxlb('L', dummy, ry2, cy2, 4)
+DCL::uyaxlb('R', dummy, ry2, cy2, 4)
+DCL::uysttl('L', 'PRESSURE (hPa)', 0.0)
+
+DCL::uxmttl('T', 'UXAXLB/UYAXLB', 0.0)
+
+DCL::grcls
+

data/demo/rakuraku/uxyz/uxyz6.rb

@@ -0,0 +1,43 @@
+#
+# uxyz6.rb
+#   $Id: uxyz6.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include Math
+
+
+id0 = 19911201
+nd = 720
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::uzfact(0.8)
+DCL::grfrm
+
+DCL::grswnd(-180.0, 180.0, nd, 0.0)
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grstrn(1)
+DCL::grstrf
+
+DCL::uxaxdv('B', 10.0, 60.0)
+DCL::uxaxdv('T', 10.0, 60.0)
+DCL::uxsttl('B', 'LONGITUDE', 0.0)
+
+DCL::ucyacl('L', id0, nd)
+
+DCL::uzlset('LABELYR', true)
+DCL::uyaxdv('R', 20.0, 100.0)
+DCL::uziset('IROTCYR', -1)
+DCL::uysttl('R', 'DAY NUMBER', 0.0)
+
+DCL::uxmttl('T', 'UXAXDV/UCYACL', 0.0)
+
+DCL::grcls
+

data/demo/rakuraku/uxyz/uxyz7.rb

@@ -0,0 +1,39 @@
+#
+# uxyz7.rb
+#   $Id: uxyz7.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include Math
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::grswnd(1990.0, 1995.0, -2.0, 2.0)
+DCL::grsvpt(0.2, 0.8, 0.3, 0.7)
+DCL::grstrn(1)
+DCL::grstrf
+
+DCL::uzrset('UYUSER', 0.0)
+DCL::uzlset('LBTWN', true)
+DCL::uxsfmt('(I4)')
+DCL::uxaxdv('U', 0.25, 1.0)
+DCL::uzlset('LBTWN', false)
+DCL::uxsttl('U', 'YEAR', 1.0)
+
+DCL::uziset('INNER', -1)
+DCL::uysfmt('(F4.1)')
+DCL::uyaxdv('L', 0.25, 1.0)
+DCL::uysttl('L', 'S.O.Index', 0.0)
+
+DCL::uxmttl('T', 'UXAXDV/UYAXDV', 0.0)
+
+DCL::grcls
+

data/demo/rakuraku/uxyz/uxyz8.rb

@@ -0,0 +1,56 @@
+#
+# uxyz8.rb
+#   $Id: uxyz8.rb,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+#
+
+
+require "narray"
+require "numru/dcl"
+include NumRu
+include Math
+
+
+id0 = 19911201
+nd = 180
+
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn iws
+
+DCL::uzfact(0.7)
+DCL::uzlset('LOFFSET', true)
+DCL::grfrm
+
+DCL::grswnd(0.0, nd, 0.0, 100.0)
+DCL::grsvpt(0.4, 0.9, 0.3, 0.8)
+DCL::grstrn(1)
+DCL::grstrf
+
+DCL::ucxacl('B', id0, nd)
+DCL::ucxacl('T', id0, nd)
+DCL::uxsaxs('B')
+DCL::uxaxdv('B', 10.0, 20.0)
+DCL::uxsttl('B', 'DAY NUMBER', 0.0)
+
+DCL::uyaxdv('L', 5.0, 10.0)
+DCL::uyaxdv('R', 5.0, 10.0)
+DCL::uysttl('L', 'CELSIUS SCALE', 0.0)
+
+DCL::uysaxs('L')
+DCL::uzrset('YOFFSET', 273.15)
+DCL::uzrset('YFACT  ', 1.0)
+DCL::uyaxdv('L', 5.0, 10.0)
+DCL::uysttl('L', 'KELVIN SCALE', 0.0)
+
+DCL::uysaxs('L')
+DCL::uzrset('YOFFSET', 32.0)
+DCL::uzrset('YFACT  ', 1.8)
+DCL::uyaxdv('L', 10.0, 20.0)
+DCL::uysttl('L', 'FAHRENHEIT SCALE', 0.0)
+
+DCL::uxsttl('T', '(LOFFSET=.TRUE.)', 0.0)
+DCL::uxmttl('T', 'UXSAXS/UYSAXS', 0.0)
+
+DCL::grcls
+

data/demo/rubydcloriginal/uemrkz1.rb

@@ -0,0 +1,37 @@
+require "narray"
+require "numru/dcl"
+include NumRu
+include NMath
+
+xmin = -1.2
+xmax = 1.2
+ymin = -1.2
+ymax = 1.2
+
+n = 300
+x = sin( NArray.sfloat(n).indgen! * (4*PI/(n-1)) )
+y = cos( NArray.sfloat(n).indgen! * (6*PI/(n-1)) )
+p = sin( NArray.sfloat(n).indgen! * (2*PI/(n-1)) )
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL.swpset('ldump',true) if iws==4
+DCL::gropn iws
+
+DCL::grfrm
+
+DCL::grswnd(xmin, xmax, ymin, ymax)
+DCL::grsvpt(0.2, 0.8, 0.2, 0.8)
+DCL::grstrn(1)
+DCL::grstrf
+
+DCL::usdaxs
+DCL::glpset('lmiss',true)
+DCL::glpset('rmiss',p[5])
+
+DCL.uegtla(-1.0,1.0,0.1)
+DCL::uemrkz(x,y,p,10,3,0.01)
+#DCL::uumrkz(x,y,10,1,0.002)
+
+DCL::grcls
+

data/dummy.c

@@ -0,0 +1,9 @@
+/*
+ * $Id: dummy.c,v 1.1.1.1 2011-02-23 07:21:26 horinout Exp $
+ */
+
+MAIN__(void)
+{
+  return;
+}
+

data/extconf.rb

@@ -0,0 +1,133 @@
+require "mkmf"
+require "rbconfig"
+if Config::CONFIG["MINOR"].to_i > 7
+  $rb18 = true
+else
+  $rb18 = false
+end
+if $rb18
+  require "fileutils"
+else
+  require "ftools"
+end
+
+#dir_config('narray',$sitearchdir,$sitearchdir)
+hoge = Gem::GemPathSearcher.new.find("narray")
+narray_fullname = hoge.full_name
+narray_installpath = hoge.installation_path
+narray_include = "#{narray_installpath}/gems/#{narray_fullname}/"
+narray_lib = "#{narray_installpath}/gems/#{narray_fullname}/"
+dir_config('narray',narray_include,narray_lib)
+if ( ! ( have_header("narray.h") && have_header("narray_config.h") ) ) then
+   print <<-EOS
+   ** configure error **  
+   Header narray.h or narray_config.h is not found. If you have these files in 
+   /narraydir/include, try the following:
+
+   % ruby extconf.rb --with-narray-include=/narraydir/include
+
+   EOS
+   exit(-1)
+end
+
+if(xsystem("which cdclconfig"))
+  cflags = `cdclconfig --cflags`.gsub(/\n/, " ")
+  ldflags = `cdclconfig --ldflags`.gsub(/\n/, " ")
+  ldlibs = `cdclconfig --ldlibs`.gsub(/-R.*?\s/, " ").gsub(/\n/, " ")
+  print "checking DCL version... "
+  dclversion = `cdclconfig --dclversion`.strip
+  print "DCL Version: #{dclversion}\n"
+  dclver = dclversion.gsub(/\./,'')
+  dclver = dclver+'0' if dclver.length <= 2   # 53 --> 530 etc
+  if dclversion < "5.3"
+    raise "Supported DCL version is 5.3 or later, while you have #{dclversion}"
+  end
+  dclversionmacro = ' -DDCLVER='+dclver
+
+  $CFLAGS += ' '+cflags  + dclversionmacro
+  $LOCAL_LIBS += ' ' + ldflags
+  $LOCAL_LIBS += ldlibs
+
+  gtkversion = `cdclconfig --gtkversion`.chop
+  if $?.class==Fixnum
+    status = $?
+  else
+    status = $?.exitstatus
+  end
+  if status != 0
+    if ldlibs =~ /gtk/
+      gtkversion = "1"
+    else
+      gtkversion = "no"
+    end
+  end
+  if gtkversion == "no" then
+    initcfile = "init.c.default"
+  else
+    print "**Infomation** compile with gtk+ (ver.#{gtkversion})\n"
+    if $rb18
+      FileUtils.copy("grph1_zgpack.c.org","grph1_zgpack.c")
+    else
+      File.copy("grph1_zgpack.c.org","grph1_zgpack.c")
+    end
+    initcfile = "init.c.gtk"
+    if ldlibs =~ /-lgdk_imlib/ then
+      print "**Infomation** compile with imlib_gdk\n"
+    end
+  end
+  fin = File.open(initcfile)
+  fout = File.open('init.c','w')
+  while(line = fin.gets)
+    fout.puts(line.sub(/DCLVersion/,'"'+dclversion+'"'))
+  end
+  fout.close
+  fin.close
+
+else
+  print "**Warning** cdclconfig is not found. Install C version of DCL 5.3 or later\n"
+=begin
+  print "**Warning** cdclconfig is not found. Assume C version of DCL 5.2\n"
+  gtkversion="no"
+  dcllibname = "cdcl52"
+  f2clibname = "f2c4dcl"
+  xlibname = "X11"
+  dcllibdir = "-L/usr/local/lib"
+  f2clibdir = "-L/usr/local/lib"
+  xlibdir = "-L/usr/local/X11R6/lib"
+  f2cincdir = "-I/usr/local/include"
+  $CFLAGS += f2cincdir
+  if(dcllibdir != f2clibdir)
+    libdir = " "+dcllibdir
+  else
+    libdir = " "+dcllibdir+" "+f2clibdir
+  end
+  $LOCAL_LIBS += " "+libdir+" "+xlibdir
+  $LOCAL_LIBS += " -l"+dcllibname+" -l"+f2clibname+" -l"+xlibname+" -lsocket -lnsl"
+=end
+end
+
+if /cygwin|mingw/ =~ RUBY_PLATFORM
+   have_library("narray") || raise("ERROR: narray import library is not found")
+   if gtkversion == "2"
+      have_library("ruby-glib2") || 
+                 raise("ERROR: ruby-glib2 import library is not found")
+   end
+end
+
+create_makefile("numru/dcl_raw")
+
+######  Modify Makefile: #######
+File.rename("Makefile","Makefile.orig")
+oldmkfl = File.open("Makefile.orig")
+newmkfl = File.open("Makefile","w")
+oldmkfl.each_line{ |line|
+   case(line)
+   when /^distclean:/
+      newmkfl.puts(line)
+      newmkfl.puts("\t\t@$(RM) Makefile.orig")
+      newmkfl.puts("\t\t@$(RM) init.c grph1_zgpack.c")
+   else
+      newmkfl.puts(line)
+   end
+}
+newmkfl.close