[Plplot-cvs] SF.net SVN: plplot:[12163] trunk

[<arj...@us...>]

Revision: 12163
          http://plplot.svn.sourceforge.net/plplot/?rev=12163&view=rev
Author:   arjenmarkus
Date:     2012-02-01 05:43:09 +0000 (Wed, 01 Feb 2012)
Log Message:
-----------
Introduce a new parameter "PL_END_OF_STRING" that indicates the precise end of a string, so that
in Fortran you can have proper significant trailing blanks.

This affected example x20f (and it also appeared to affect example x28f, but for some mysterious reason 
the difference with the C example has disappeared)

Note: this parameter needs to be documented still.

Modified Paths:
--------------
    trunk/bindings/f95/sfstubsf95.f90
    trunk/examples/f95/x20f.f90

Modified: trunk/bindings/f95/sfstubsf95.f90
===================================================================
--- trunk/bindings/f95/sfstubsf95.f90	2012-02-01 05:26:07 UTC (rev 12162)
+++ trunk/bindings/f95/sfstubsf95.f90	2012-02-01 05:43:09 UTC (rev 12163)
@@ -71,6 +71,8 @@
    character (len = maxlen) :: string4, string5, string6
    character (len = maxlen) :: string7, string8, string9
    integer, dimension(maxleni) :: s1, s2, s3, s4, s5, s6, s7, s8, s9
+
+   character(len=1), parameter :: PL_END_OF_STRING = achar(0)
 end module
 
 module plplotp

Modified: trunk/examples/f95/x20f.f90
===================================================================
--- trunk/examples/f95/x20f.f90	2012-02-01 05:26:07 UTC (rev 12162)
+++ trunk/examples/f95/x20f.f90	2012-02-01 05:43:09 UTC (rev 12163)
@@ -144,7 +144,7 @@
               z(XDIM,i) = 1._plflt
           enddo
 
-          call pllab('...around a blue square.',' ', &
+          call pllab('...around a blue square.',' '//PL_END_OF_STRING, &
               'A red border should appear...')
 
           call plimage(z, 1._plflt, XDIMR, 1._plflt, YDIMR, 0._plflt, 0._plflt, &
@@ -207,9 +207,9 @@
 
       if (.not. nointeractive) then
           call pllab('Set and drag Button 1 to (re)set selection, Butto'// &
-               'n 2 to finish.',' ','Lena...')
+               'n 2 to finish.',' '//PL_END_OF_STRING,'Lena...')
       else
-          call pllab('',' ','Lena...')
+          call pllab('',' '//PL_END_OF_STRING,'Lena...')
       endif
 
       call plimage(img_f, 1._plflt, width_r, 1._plflt, &
@@ -499,9 +499,9 @@
       real(kind=plflt) sx(5), sy(5)
 
       integer PLK_Return
-      data PLK_Return / Z'0D' / 
+      data PLK_Return / Z'0D' /
       integer hex100
-      data hex100 / Z'100' / 
+      data hex100 / Z'100' /
 
       xxi = xi
       yyi = yi

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