[Plplot-cvs] SF.net SVN: plplot:[12691] trunk/bindings/f95

[<ai...@us...>]

Revision: 12691
          http://sourceforge.net/p/plplot/code/12691
Author:   airwin
Date:     2013-11-13 19:27:17 +0000 (Wed, 13 Nov 2013)
Log Message:
-----------
For historical reasons ZEROW2B, ZEROW2D, ONEW2B, and ONEW2D were
dropped from the fortran parameters, but since those are correctly
#defined in plplot.h and not dropped by any other language (except tcl
which is about to be similarly fixed) include those parameters.

Modified Paths:
--------------
    trunk/bindings/f95/global_defines.sed
    trunk/bindings/f95/plplot_parameters.h

Modified: trunk/bindings/f95/global_defines.sed
===================================================================
--- trunk/bindings/f95/global_defines.sed	2013-11-13 12:15:17 UTC (rev 12690)
+++ trunk/bindings/f95/global_defines.sed	2013-11-13 19:27:17 UTC (rev 12691)
@@ -18,8 +18,6 @@
 
 # Drop specific #defines from the file that are not available
 # because of specific #if statements.
-/^#define ZEROW/ d
-/^#define ONEW/ d
 /OBJECT_DATA/ d
 /^#define pltr_img/ d
 

Modified: trunk/bindings/f95/plplot_parameters.h
===================================================================
--- trunk/bindings/f95/plplot_parameters.h	2013-11-13 12:15:17 UTC (rev 12690)
+++ trunk/bindings/f95/plplot_parameters.h	2013-11-13 19:27:17 UTC (rev 12691)
@@ -50,6 +50,10 @@
       integer, parameter :: PLTEXT_BACKCHAR = 3 ! back-char in the text stream
       integer, parameter :: PLTEXT_OVERLINE = 4 ! toggle overline in the text stream
       integer, parameter :: PLTEXT_UNDERLINE = 5 ! toggle underline in the text stream
+      integer, parameter :: ZEROW2B = 1 
+      integer, parameter :: ZEROW2D = 2 
+      integer, parameter :: ONEW2B = 3 
+      integer, parameter :: ONEW2D = 4 
       integer, parameter :: PLSWIN_DEVICE = 1 ! device coordinates
       integer, parameter :: PLSWIN_WORLD = 2 ! world coordinates
       integer, parameter :: PL_X_AXIS = 1 ! The x-axis

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.