gcc/ada/i-cobol.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT COMPILER COMPONENTS                         --
   4 --                                                                          --
   5 --                      I N T E R F A C E S . C O B O L                     --
   6 --                                                                          --
   7 --                                 S p e c                                  --
   8 --                             (ASCII Version)                              --
   9 --                                                                          --
  10 --                            $Revision: 1.1 $
  11 --                                                                          --
  12 --          Copyright (C) 1993-2000 Free Software Foundation, Inc.          --
  13 --                                                                          --
  14 -- This specification is derived from the Ada Reference Manual for use with --
  15 -- GNAT. The copyright notice above, and the license provisions that follow --
  16 -- apply solely to the  contents of the part following the private keyword. --
  17 --                                                                          --
  18 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  19 -- terms of the  GNU General Public License as published  by the Free Soft- --
  20 -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  21 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  22 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  23 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  24 -- for  more details.  You should have  received  a copy of the GNU General --
  25 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  26 -- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
  27 -- MA 02111-1307, USA.                                                      --
  28 --                                                                          --
  29 -- As a special exception,  if other files  instantiate  generics from this --
  30 -- unit, or you link  this unit with other files  to produce an executable, --
  31 -- this  unit  does not  by itself cause  the resulting  executable  to  be --
  32 -- covered  by the  GNU  General  Public  License.  This exception does not --
  33 -- however invalidate  any other reasons why  the executable file  might be --
  34 -- covered by the  GNU Public License.                                      --
  35 --                                                                          --
  36 -- GNAT was originally developed  by the GNAT team at  New York University. --
  37 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  38 --                                                                          --
  39 ------------------------------------------------------------------------------
  40
  41 --  This version of the COBOL interfaces package assumes that the COBOL
  42 --  compiler uses ASCII as its internal representation of characters, i.e.
  43 --  that the type COBOL_Character has the same representation as the Ada
  44 --  type Standard.Character.
  45
  46 package Interfaces.COBOL is
  47
  48    ------------------------------------------------------------
  49    -- Types And Operations For Internal Data Representations --
  50    ------------------------------------------------------------
  51
  52    type Floating      is new Float;
  53    type Long_Floating is new Long_Float;
  54
  55    type Binary        is new Integer;
  56    type Long_Binary   is new Long_Long_Integer;
  57
  58    Max_Digits_Binary      : constant := 9;
  59    Max_Digits_Long_Binary : constant := 18;
  60
  61    type Decimal_Element is mod 16;
  62    type Packed_Decimal is array (Positive range <>) of Decimal_Element;
  63    pragma Pack (Packed_Decimal);
  64
  65    type COBOL_Character is new Character;
  66
  67    Ada_To_COBOL : array (Standard.Character) of COBOL_Character := (
  68      COBOL_Character'Val (000), COBOL_Character'Val (001),
  69      COBOL_Character'Val (002), COBOL_Character'Val (003),
  70      COBOL_Character'Val (004), COBOL_Character'Val (005),
  71      COBOL_Character'Val (006), COBOL_Character'Val (007),
  72      COBOL_Character'Val (008), COBOL_Character'Val (009),
  73      COBOL_Character'Val (010), COBOL_Character'Val (011),
  74      COBOL_Character'Val (012), COBOL_Character'Val (013),
  75      COBOL_Character'Val (014), COBOL_Character'Val (015),
  76      COBOL_Character'Val (016), COBOL_Character'Val (017),
  77      COBOL_Character'Val (018), COBOL_Character'Val (019),
  78      COBOL_Character'Val (020), COBOL_Character'Val (021),
  79      COBOL_Character'Val (022), COBOL_Character'Val (023),
  80      COBOL_Character'Val (024), COBOL_Character'Val (025),
  81      COBOL_Character'Val (026), COBOL_Character'Val (027),
  82      COBOL_Character'Val (028), COBOL_Character'Val (029),
  83      COBOL_Character'Val (030), COBOL_Character'Val (031),
  84      COBOL_Character'Val (032), COBOL_Character'Val (033),
  85      COBOL_Character'Val (034), COBOL_Character'Val (035),
  86      COBOL_Character'Val (036), COBOL_Character'Val (037),
  87      COBOL_Character'Val (038), COBOL_Character'Val (039),
  88      COBOL_Character'Val (040), COBOL_Character'Val (041),
  89      COBOL_Character'Val (042), COBOL_Character'Val (043),
  90      COBOL_Character'Val (044), COBOL_Character'Val (045),
  91      COBOL_Character'Val (046), COBOL_Character'Val (047),
  92      COBOL_Character'Val (048), COBOL_Character'Val (049),
  93      COBOL_Character'Val (050), COBOL_Character'Val (051),
  94      COBOL_Character'Val (052), COBOL_Character'Val (053),
  95      COBOL_Character'Val (054), COBOL_Character'Val (055),
  96      COBOL_Character'Val (056), COBOL_Character'Val (057),
  97      COBOL_Character'Val (058), COBOL_Character'Val (059),
  98      COBOL_Character'Val (060), COBOL_Character'Val (061),
  99      COBOL_Character'Val (062), COBOL_Character'Val (063),
 100      COBOL_Character'Val (064), COBOL_Character'Val (065),
 101      COBOL_Character'Val (066), COBOL_Character'Val (067),
 102      COBOL_Character'Val (068), COBOL_Character'Val (069),
 103      COBOL_Character'Val (070), COBOL_Character'Val (071),
 104      COBOL_Character'Val (072), COBOL_Character'Val (073),
 105      COBOL_Character'Val (074), COBOL_Character'Val (075),
 106      COBOL_Character'Val (076), COBOL_Character'Val (077),
 107      COBOL_Character'Val (078), COBOL_Character'Val (079),
 108      COBOL_Character'Val (080), COBOL_Character'Val (081),
 109      COBOL_Character'Val (082), COBOL_Character'Val (083),
 110      COBOL_Character'Val (084), COBOL_Character'Val (085),
 111      COBOL_Character'Val (086), COBOL_Character'Val (087),
 112      COBOL_Character'Val (088), COBOL_Character'Val (089),
 113      COBOL_Character'Val (090), COBOL_Character'Val (091),
 114      COBOL_Character'Val (092), COBOL_Character'Val (093),
 115      COBOL_Character'Val (094), COBOL_Character'Val (095),
 116      COBOL_Character'Val (096), COBOL_Character'Val (097),
 117      COBOL_Character'Val (098), COBOL_Character'Val (099),
 118      COBOL_Character'Val (100), COBOL_Character'Val (101),
 119      COBOL_Character'Val (102), COBOL_Character'Val (103),
 120      COBOL_Character'Val (104), COBOL_Character'Val (105),
 121      COBOL_Character'Val (106), COBOL_Character'Val (107),
 122      COBOL_Character'Val (108), COBOL_Character'Val (109),
 123      COBOL_Character'Val (110), COBOL_Character'Val (111),
 124      COBOL_Character'Val (112), COBOL_Character'Val (113),
 125      COBOL_Character'Val (114), COBOL_Character'Val (115),
 126      COBOL_Character'Val (116), COBOL_Character'Val (117),
 127      COBOL_Character'Val (118), COBOL_Character'Val (119),
 128      COBOL_Character'Val (120), COBOL_Character'Val (121),
 129      COBOL_Character'Val (122), COBOL_Character'Val (123),
 130      COBOL_Character'Val (124), COBOL_Character'Val (125),
 131      COBOL_Character'Val (126), COBOL_Character'Val (127),
 132      COBOL_Character'Val (128), COBOL_Character'Val (129),
 133      COBOL_Character'Val (130), COBOL_Character'Val (131),
 134      COBOL_Character'Val (132), COBOL_Character'Val (133),
 135      COBOL_Character'Val (134), COBOL_Character'Val (135),
 136      COBOL_Character'Val (136), COBOL_Character'Val (137),
 137      COBOL_Character'Val (138), COBOL_Character'Val (139),
 138      COBOL_Character'Val (140), COBOL_Character'Val (141),
 139      COBOL_Character'Val (142), COBOL_Character'Val (143),
 140      COBOL_Character'Val (144), COBOL_Character'Val (145),
 141      COBOL_Character'Val (146), COBOL_Character'Val (147),
 142      COBOL_Character'Val (148), COBOL_Character'Val (149),
 143      COBOL_Character'Val (150), COBOL_Character'Val (151),
 144      COBOL_Character'Val (152), COBOL_Character'Val (153),
 145      COBOL_Character'Val (154), COBOL_Character'Val (155),
 146      COBOL_Character'Val (156), COBOL_Character'Val (157),
 147      COBOL_Character'Val (158), COBOL_Character'Val (159),
 148      COBOL_Character'Val (160), COBOL_Character'Val (161),
 149      COBOL_Character'Val (162), COBOL_Character'Val (163),
 150      COBOL_Character'Val (164), COBOL_Character'Val (165),
 151      COBOL_Character'Val (166), COBOL_Character'Val (167),
 152      COBOL_Character'Val (168), COBOL_Character'Val (169),
 153      COBOL_Character'Val (170), COBOL_Character'Val (171),
 154      COBOL_Character'Val (172), COBOL_Character'Val (173),
 155      COBOL_Character'Val (174), COBOL_Character'Val (175),
 156      COBOL_Character'Val (176), COBOL_Character'Val (177),
 157      COBOL_Character'Val (178), COBOL_Character'Val (179),
 158      COBOL_Character'Val (180), COBOL_Character'Val (181),
 159      COBOL_Character'Val (182), COBOL_Character'Val (183),
 160      COBOL_Character'Val (184), COBOL_Character'Val (185),
 161      COBOL_Character'Val (186), COBOL_Character'Val (187),
 162      COBOL_Character'Val (188), COBOL_Character'Val (189),
 163      COBOL_Character'Val (190), COBOL_Character'Val (191),
 164      COBOL_Character'Val (192), COBOL_Character'Val (193),
 165      COBOL_Character'Val (194), COBOL_Character'Val (195),
 166      COBOL_Character'Val (196), COBOL_Character'Val (197),
 167      COBOL_Character'Val (198), COBOL_Character'Val (199),
 168      COBOL_Character'Val (200), COBOL_Character'Val (201),
 169      COBOL_Character'Val (202), COBOL_Character'Val (203),
 170      COBOL_Character'Val (204), COBOL_Character'Val (205),
 171      COBOL_Character'Val (206), COBOL_Character'Val (207),
 172      COBOL_Character'Val (208), COBOL_Character'Val (209),
 173      COBOL_Character'Val (210), COBOL_Character'Val (211),
 174      COBOL_Character'Val (212), COBOL_Character'Val (213),
 175      COBOL_Character'Val (214), COBOL_Character'Val (215),
 176      COBOL_Character'Val (216), COBOL_Character'Val (217),
 177      COBOL_Character'Val (218), COBOL_Character'Val (219),
 178      COBOL_Character'Val (220), COBOL_Character'Val (221),
 179      COBOL_Character'Val (222), COBOL_Character'Val (223),
 180      COBOL_Character'Val (224), COBOL_Character'Val (225),
 181      COBOL_Character'Val (226), COBOL_Character'Val (227),
 182      COBOL_Character'Val (228), COBOL_Character'Val (229),
 183      COBOL_Character'Val (230), COBOL_Character'Val (231),
 184      COBOL_Character'Val (232), COBOL_Character'Val (233),
 185      COBOL_Character'Val (234), COBOL_Character'Val (235),
 186      COBOL_Character'Val (236), COBOL_Character'Val (237),
 187      COBOL_Character'Val (238), COBOL_Character'Val (239),
 188      COBOL_Character'Val (240), COBOL_Character'Val (241),
 189      COBOL_Character'Val (242), COBOL_Character'Val (243),
 190      COBOL_Character'Val (244), COBOL_Character'Val (245),
 191      COBOL_Character'Val (246), COBOL_Character'Val (247),
 192      COBOL_Character'Val (248), COBOL_Character'Val (249),
 193      COBOL_Character'Val (250), COBOL_Character'Val (251),
 194      COBOL_Character'Val (252), COBOL_Character'Val (253),
 195      COBOL_Character'Val (254), COBOL_Character'Val (255));
 196
 197    COBOL_To_Ada : array (COBOL_Character) of Standard.Character := (
 198      Standard.Character'Val (000), Standard.Character'Val (001),
 199      Standard.Character'Val (002), Standard.Character'Val (003),
 200      Standard.Character'Val (004), Standard.Character'Val (005),
 201      Standard.Character'Val (006), Standard.Character'Val (007),
 202      Standard.Character'Val (008), Standard.Character'Val (009),
 203      Standard.Character'Val (010), Standard.Character'Val (011),
 204      Standard.Character'Val (012), Standard.Character'Val (013),
 205      Standard.Character'Val (014), Standard.Character'Val (015),
 206      Standard.Character'Val (016), Standard.Character'Val (017),
 207      Standard.Character'Val (018), Standard.Character'Val (019),
 208      Standard.Character'Val (020), Standard.Character'Val (021),
 209      Standard.Character'Val (022), Standard.Character'Val (023),
 210      Standard.Character'Val (024), Standard.Character'Val (025),
 211      Standard.Character'Val (026), Standard.Character'Val (027),
 212      Standard.Character'Val (028), Standard.Character'Val (029),
 213      Standard.Character'Val (030), Standard.Character'Val (031),
 214      Standard.Character'Val (032), Standard.Character'Val (033),
 215      Standard.Character'Val (034), Standard.Character'Val (035),
 216      Standard.Character'Val (036), Standard.Character'Val (037),
 217      Standard.Character'Val (038), Standard.Character'Val (039),
 218      Standard.Character'Val (040), Standard.Character'Val (041),
 219      Standard.Character'Val (042), Standard.Character'Val (043),
 220      Standard.Character'Val (044), Standard.Character'Val (045),
 221      Standard.Character'Val (046), Standard.Character'Val (047),
 222      Standard.Character'Val (048), Standard.Character'Val (049),
 223      Standard.Character'Val (050), Standard.Character'Val (051),
 224      Standard.Character'Val (052), Standard.Character'Val (053),
 225      Standard.Character'Val (054), Standard.Character'Val (055),
 226      Standard.Character'Val (056), Standard.Character'Val (057),
 227      Standard.Character'Val (058), Standard.Character'Val (059),
 228      Standard.Character'Val (060), Standard.Character'Val (061),
 229      Standard.Character'Val (062), Standard.Character'Val (063),
 230      Standard.Character'Val (064), Standard.Character'Val (065),
 231      Standard.Character'Val (066), Standard.Character'Val (067),
 232      Standard.Character'Val (068), Standard.Character'Val (069),
 233      Standard.Character'Val (070), Standard.Character'Val (071),
 234      Standard.Character'Val (072), Standard.Character'Val (073),
 235      Standard.Character'Val (074), Standard.Character'Val (075),
 236      Standard.Character'Val (076), Standard.Character'Val (077),
 237      Standard.Character'Val (078), Standard.Character'Val (079),
 238      Standard.Character'Val (080), Standard.Character'Val (081),
 239      Standard.Character'Val (082), Standard.Character'Val (083),
 240      Standard.Character'Val (084), Standard.Character'Val (085),
 241      Standard.Character'Val (086), Standard.Character'Val (087),
 242      Standard.Character'Val (088), Standard.Character'Val (089),
 243      Standard.Character'Val (090), Standard.Character'Val (091),
 244      Standard.Character'Val (092), Standard.Character'Val (093),
 245      Standard.Character'Val (094), Standard.Character'Val (095),
 246      Standard.Character'Val (096), Standard.Character'Val (097),
 247      Standard.Character'Val (098), Standard.Character'Val (099),
 248      Standard.Character'Val (100), Standard.Character'Val (101),
 249      Standard.Character'Val (102), Standard.Character'Val (103),
 250      Standard.Character'Val (104), Standard.Character'Val (105),
 251      Standard.Character'Val (106), Standard.Character'Val (107),
 252      Standard.Character'Val (108), Standard.Character'Val (109),
 253      Standard.Character'Val (110), Standard.Character'Val (111),
 254      Standard.Character'Val (112), Standard.Character'Val (113),
 255      Standard.Character'Val (114), Standard.Character'Val (115),
 256      Standard.Character'Val (116), Standard.Character'Val (117),
 257      Standard.Character'Val (118), Standard.Character'Val (119),
 258      Standard.Character'Val (120), Standard.Character'Val (121),
 259      Standard.Character'Val (122), Standard.Character'Val (123),
 260      Standard.Character'Val (124), Standard.Character'Val (125),
 261      Standard.Character'Val (126), Standard.Character'Val (127),
 262      Standard.Character'Val (128), Standard.Character'Val (129),
 263      Standard.Character'Val (130), Standard.Character'Val (131),
 264      Standard.Character'Val (132), Standard.Character'Val (133),
 265      Standard.Character'Val (134), Standard.Character'Val (135),
 266      Standard.Character'Val (136), Standard.Character'Val (137),
 267      Standard.Character'Val (138), Standard.Character'Val (139),
 268      Standard.Character'Val (140), Standard.Character'Val (141),
 269      Standard.Character'Val (142), Standard.Character'Val (143),
 270      Standard.Character'Val (144), Standard.Character'Val (145),
 271      Standard.Character'Val (146), Standard.Character'Val (147),
 272      Standard.Character'Val (148), Standard.Character'Val (149),
 273      Standard.Character'Val (150), Standard.Character'Val (151),
 274      Standard.Character'Val (152), Standard.Character'Val (153),
 275      Standard.Character'Val (154), Standard.Character'Val (155),
 276      Standard.Character'Val (156), Standard.Character'Val (157),
 277      Standard.Character'Val (158), Standard.Character'Val (159),
 278      Standard.Character'Val (160), Standard.Character'Val (161),
 279      Standard.Character'Val (162), Standard.Character'Val (163),
 280      Standard.Character'Val (164), Standard.Character'Val (165),
 281      Standard.Character'Val (166), Standard.Character'Val (167),
 282      Standard.Character'Val (168), Standard.Character'Val (169),
 283      Standard.Character'Val (170), Standard.Character'Val (171),
 284      Standard.Character'Val (172), Standard.Character'Val (173),
 285      Standard.Character'Val (174), Standard.Character'Val (175),
 286      Standard.Character'Val (176), Standard.Character'Val (177),
 287      Standard.Character'Val (178), Standard.Character'Val (179),
 288      Standard.Character'Val (180), Standard.Character'Val (181),
 289      Standard.Character'Val (182), Standard.Character'Val (183),
 290      Standard.Character'Val (184), Standard.Character'Val (185),
 291      Standard.Character'Val (186), Standard.Character'Val (187),
 292      Standard.Character'Val (188), Standard.Character'Val (189),
 293      Standard.Character'Val (190), Standard.Character'Val (191),
 294      Standard.Character'Val (192), Standard.Character'Val (193),
 295      Standard.Character'Val (194), Standard.Character'Val (195),
 296      Standard.Character'Val (196), Standard.Character'Val (197),
 297      Standard.Character'Val (198), Standard.Character'Val (199),
 298      Standard.Character'Val (200), Standard.Character'Val (201),
 299      Standard.Character'Val (202), Standard.Character'Val (203),
 300      Standard.Character'Val (204), Standard.Character'Val (205),
 301      Standard.Character'Val (206), Standard.Character'Val (207),
 302      Standard.Character'Val (208), Standard.Character'Val (209),
 303      Standard.Character'Val (210), Standard.Character'Val (211),
 304      Standard.Character'Val (212), Standard.Character'Val (213),
 305      Standard.Character'Val (214), Standard.Character'Val (215),
 306      Standard.Character'Val (216), Standard.Character'Val (217),
 307      Standard.Character'Val (218), Standard.Character'Val (219),
 308      Standard.Character'Val (220), Standard.Character'Val (221),
 309      Standard.Character'Val (222), Standard.Character'Val (223),
 310      Standard.Character'Val (224), Standard.Character'Val (225),
 311      Standard.Character'Val (226), Standard.Character'Val (227),
 312      Standard.Character'Val (228), Standard.Character'Val (229),
 313      Standard.Character'Val (230), Standard.Character'Val (231),
 314      Standard.Character'Val (232), Standard.Character'Val (233),
 315      Standard.Character'Val (234), Standard.Character'Val (235),
 316      Standard.Character'Val (236), Standard.Character'Val (237),
 317      Standard.Character'Val (238), Standard.Character'Val (239),
 318      Standard.Character'Val (240), Standard.Character'Val (241),
 319      Standard.Character'Val (242), Standard.Character'Val (243),
 320      Standard.Character'Val (244), Standard.Character'Val (245),
 321      Standard.Character'Val (246), Standard.Character'Val (247),
 322      Standard.Character'Val (248), Standard.Character'Val (249),
 323      Standard.Character'Val (250), Standard.Character'Val (251),
 324      Standard.Character'Val (252), Standard.Character'Val (253),
 325      Standard.Character'Val (254), Standard.Character'Val (255));
 326
 327    type Alphanumeric is array (Positive range <>) of COBOL_Character;
 328    --  pragma Pack (Alphanumeric);
 329
 330    function To_COBOL (Item : String) return Alphanumeric;
 331    function To_Ada   (Item : Alphanumeric) return String;
 332
 333    procedure To_COBOL
 334      (Item   : String;
 335       Target : out Alphanumeric;
 336       Last   : out Natural);
 337
 338    procedure To_Ada
 339      (Item   : Alphanumeric;
 340       Target : out String;
 341       Last   : out Natural);
 342
 343    type Numeric is array (Positive range <>) of COBOL_Character;
 344    --  pragma Pack (Numeric);
 345
 346    --------------------------------------------
 347    -- Formats For COBOL Data Representations --
 348    --------------------------------------------
 349
 350    type Display_Format is private;
 351
 352    Unsigned             : constant Display_Format;
 353    Leading_Separate     : constant Display_Format;
 354    Trailing_Separate    : constant Display_Format;
 355    Leading_Nonseparate  : constant Display_Format;
 356    Trailing_Nonseparate : constant Display_Format;
 357
 358    type Binary_Format is private;
 359
 360    High_Order_First          : constant Binary_Format;
 361    Low_Order_First           : constant Binary_Format;
 362    Native_Binary             : constant Binary_Format;
 363    High_Order_First_Unsigned : constant Binary_Format;
 364    Low_Order_First_Unsigned  : constant Binary_Format;
 365    Native_Binary_Unsigned    : constant Binary_Format;
 366
 367    type Packed_Format is private;
 368
 369    Packed_Unsigned   : constant Packed_Format;
 370    Packed_Signed     : constant Packed_Format;
 371
 372    ------------------------------------------------------------
 373    -- Types For External Representation Of COBOL Binary Data --
 374    ------------------------------------------------------------
 375
 376    type Byte is mod 2 ** COBOL_Character'Size;
 377    type Byte_Array is array (Positive range <>) of Byte;
 378    --  pragma Pack (Byte_Array);
 379
 380    Conversion_Error : exception;
 381
 382    generic
 383       type Num is delta <> digits <>;
 384
 385    package Decimal_Conversions is
 386
 387       --  Display Formats: data values are represented as Numeric
 388
 389       function Valid
 390         (Item   : Numeric;
 391          Format : Display_Format)
 392          return   Boolean;
 393
 394       function Length
 395         (Format : Display_Format)
 396          return   Natural;
 397
 398       function To_Decimal
 399         (Item   : Numeric;
 400          Format : Display_Format)
 401          return   Num;
 402
 403       function To_Display
 404         (Item   : Num;
 405          Format : Display_Format)
 406          return   Numeric;
 407
 408       --  Packed Formats: data values are represented as Packed_Decimal
 409
 410       function Valid
 411         (Item   : Packed_Decimal;
 412          Format : Packed_Format)
 413          return   Boolean;
 414
 415       function Length
 416         (Format : Packed_Format)
 417          return   Natural;
 418
 419       function To_Decimal
 420         (Item   : Packed_Decimal;
 421          Format : Packed_Format)
 422          return   Num;
 423
 424       function To_Packed
 425         (Item   : Num;
 426          Format : Packed_Format)
 427          return   Packed_Decimal;
 428
 429       --  Binary Formats: external data values are represented as Byte_Array
 430
 431       function Valid
 432         (Item   : Byte_Array;
 433          Format : Binary_Format)
 434          return   Boolean;
 435
 436       function Length
 437         (Format : Binary_Format)
 438          return   Natural;
 439
 440       function To_Decimal
 441         (Item   : Byte_Array;
 442          Format : Binary_Format) return Num;
 443
 444       function To_Binary
 445         (Item   : Num;
 446          Format : Binary_Format)
 447          return   Byte_Array;
 448
 449       --  Internal Binary formats: data values are of type Binary/Long_Binary
 450
 451       function To_Decimal (Item : Binary)      return Num;
 452       function To_Decimal (Item : Long_Binary) return Num;
 453
 454       function To_Binary      (Item : Num)  return Binary;
 455       function To_Long_Binary (Item : Num)  return Long_Binary;
 456
 457    private
 458       pragma Inline (Length);
 459       pragma Inline (To_Binary);
 460       pragma Inline (To_Decimal);
 461       pragma Inline (To_Display);
 462       pragma Inline (To_Decimal);
 463       pragma Inline (To_Long_Binary);
 464       pragma Inline (Valid);
 465
 466    end Decimal_Conversions;
 467
 468    ------------------------------------------
 469    -- Implementation Dependent Definitions --
 470    ------------------------------------------
 471
 472    --  The implementation dependent definitions are wholly contained in the
 473    --  private part of this spec (the body is implementation independent)
 474
 475 private
 476    -------------------
 477    -- Binary Format --
 478    -------------------
 479
 480    type Binary_Format is (H, L, N, HU, LU, NU);
 481
 482    subtype Binary_Unsigned_Format is Binary_Format range HU .. NU;
 483
 484    High_Order_First          : constant Binary_Format := H;
 485    Low_Order_First           : constant Binary_Format := L;
 486    Native_Binary             : constant Binary_Format := N;
 487    High_Order_First_Unsigned : constant Binary_Format := HU;
 488    Low_Order_First_Unsigned  : constant Binary_Format := LU;
 489    Native_Binary_Unsigned    : constant Binary_Format := NU;
 490
 491    ---------------------------
 492    -- Packed Decimal Format --
 493    ---------------------------
 494
 495    --  Packed decimal numbers use the IBM mainframe format:
 496
 497    --     dd dd ... dd dd ds
 498
 499    --  where d are the Digits, in natural left to right order, and s is
 500    --  the sign digit. If the number of Digits os even, then the high
 501    --  order (leftmost) Digits is always a 0. For example, a six digit
 502    --  number has the format:
 503
 504    --     0d dd dd ds
 505
 506    --  The sign digit has the possible values
 507
 508    --     16#0A#     non-standard plus sign
 509    --     16#0B#     non-standard minus sign
 510    --     16#0C#     standard plus sign
 511    --     16#0D#     standard minus sign
 512    --     16#0E#     non-standard plus sign
 513    --     16#0F#     standard unsigned sign
 514
 515    --  The non-standard signs are recognized on input, but never generated
 516    --  for output numbers. The 16#0F# distinguishes unsigned numbers from
 517    --  signed positive numbers, but is treated as positive for computational
 518    --  purposes. This format provides distinguished positive and negative
 519    --  zero values, which behave the same in all operations.
 520
 521    type Packed_Format is (U, S);
 522
 523    Packed_Unsigned   : constant Packed_Format := U;
 524    Packed_Signed     : constant Packed_Format := S;
 525
 526    type Packed_Representation_Type is (IBM);
 527    --  Indicator for format used for packed decimal
 528
 529    Packed_Representation : constant Packed_Representation_Type := IBM;
 530    --  This version of the spec uses IBM internal format, as described above.
 531
 532    -----------------------------
 533    -- Display Decimal Formats --
 534    -----------------------------
 535
 536    --  Display numbers are stored in standard ASCII format, as ASCII strings.
 537    --  For the embedded signs, the following codes are used:
 538
 539    --     0-9 positive:  16#30# .. 16#39# (i.e. natural ASCII digit code)
 540    --     0-9 negative:  16#20# .. 16#29# (ASCII digit code - 16#10#)
 541
 542    type Display_Format is (U, LS, TS, LN, TN);
 543
 544    Unsigned             : constant Display_Format := U;
 545    Leading_Separate     : constant Display_Format := LS;
 546    Trailing_Separate    : constant Display_Format := TS;
 547    Leading_Nonseparate  : constant Display_Format := LN;
 548    Trailing_Nonseparate : constant Display_Format := TN;
 549
 550    subtype COBOL_Digits is COBOL_Character range '0' .. '9';
 551    --  Digit values in display decimal
 552
 553    COBOL_Space : constant COBOL_Character := ' ';
 554    COBOL_Plus  : constant COBOL_Character := '+';
 555    COBOL_Minus : constant COBOL_Character := '-';
 556    --  Sign values for Leading_Separate and Trailing_Separate formats
 557
 558    subtype COBOL_Plus_Digits is COBOL_Character
 559      range COBOL_Character'Val (16#30#) .. COBOL_Character'Val (16#39#);
 560    --  Values used for embedded plus signs in nonseparate formats
 561
 562    subtype COBOL_Minus_Digits is COBOL_Character
 563      range COBOL_Character'Val (16#20#) .. COBOL_Character'Val (16#29#);
 564    --  Values used for embedded minus signs in nonseparate formats
 565
 566 end Interfaces.COBOL;