[Plplot-cvs] SF.net SVN: plplot:[9233] trunk/examples/ada

[<jb...@us...>]

Revision: 9233
          http://plplot.svn.sourceforge.net/plplot/?rev=9233&view=rev
Author:   jbauck
Date:     2008-12-30 00:03:38 +0000 (Tue, 30 Dec 2008)

Log Message:
-----------
Changed textual output (stdout) of x23a.adb and xthick23a.adb so that they match the C example. This called for outputting a hex number in C format 0x00000000 rather than Ada format 16#00000000#.

Modified Paths:
--------------
    trunk/examples/ada/x23a.adb.cmake
    trunk/examples/ada/xthick23a.adb.cmake

Modified: trunk/examples/ada/x23a.adb.cmake
===================================================================
--- trunk/examples/ada/x23a.adb.cmake	2008-12-27 22:28:58 UTC (rev 9232)
+++ trunk/examples/ada/x23a.adb.cmake	2008-12-30 00:03:38 UTC (rev 9233)
@@ -109,7 +109,6 @@
     end title;
 
 
-
     lo : array (0 .. 10) of Integer := (
     16#0#,
     16#0#,
@@ -365,7 +364,12 @@
     plgfci(fci_old);
     plgfont(ifamily, istyle, iweight);
     Put("For example 23 prior to page 12 the FCI is ");
-    Put(fci_old, Base => 16, Width => 0);
+    
+    -- The following hack in outputting the hexadecimal value of fci_old in "C" 
+    -- style, e.g. 0x00000000 instead of "Ada" style 16#00000000#, is done in 
+    -- order to create the same textual output as the C example x23c.
+    -- Put(fci_old, Base => 16, Width => 0); -- Outputs "Ada" style.
+    Put("0x" & Hex_Image_8(fci_old));        -- Outputs "C" style.
     New_Line;
     Put("For example 23 prior to page 12 the font family, style and weight are  "
         & family(ifamily) & " " & style(istyle) & " " & weight(iweight));

Modified: trunk/examples/ada/xthick23a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick23a.adb.cmake	2008-12-27 22:28:58 UTC (rev 9232)
+++ trunk/examples/ada/xthick23a.adb.cmake	2008-12-30 00:03:38 UTC (rev 9233)
@@ -109,7 +109,6 @@
     end title;
 
 
-
     lo : array (0 .. 10) of Integer := (
     16#0#,
     16#0#,
@@ -365,9 +364,14 @@
     Get_Font_Characterization_Integer(fci_old);
     Get_Font(ifamily, istyle, iweight);
     Put("For example 23 prior to page 12 the FCI is ");
-    Put(fci_old, Base => 16, Width => 0);
+    
+    -- The following hack in outputting the hexadecimal value of fci_old in "C" 
+    -- style, e.g. 0x00000000 instead of "Ada" style 16#00000000#, is done in 
+    -- order to create the same textual output as the C example x23c.
+    -- Put(fci_old, Base => 16, Width => 0); -- Outputs "Ada" style.
+    Put("0x" & Hex_Image_8(fci_old));        -- Outputs "C" style.
     New_Line;
-    Put("For example 23 prior to page 12 the font family, style and weight are "
+    Put("For example 23 prior to page 12 the font family, style and weight are  "
         & family(ifamily) & " " & style(istyle) & " " & weight(iweight));
     New_Line;
 


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