(root)/
gcc-13.2.0/
gcc/
testsuite/
ada/
acats/
tests/
cxb/
cxb30040.c
       1  /*
       2  -- CXB30040.C
       3  --
       4  --                             Grant of Unlimited Rights
       5  --
       6  --     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
       7  --     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
       8  --     unlimited rights in the software and documentation contained herein.
       9  --     Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making
      10  --     this public release, the Government intends to confer upon all
      11  --     recipients unlimited rights  equal to those held by the Government.
      12  --     These rights include rights to use, duplicate, release or disclose the
      13  --     released technical data and computer software in whole or in part, in
      14  --     any manner and for any purpose whatsoever, and to have or permit others
      15  --     to do so.
      16  --
      17  --                                    DISCLAIMER
      18  --
      19  --     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
      20  --     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
      21  --     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
      22  --     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
      23  --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
      24  --     PARTICULAR PURPOSE OF SAID MATERIAL.
      25  --*
      26  --
      27  -- FUNCTION NAME: CXB30040   ("char_gen")
      28  --
      29  -- FUNCTION DESCRIPTION:
      30  --      This C function returns the value of type char corresponding to the
      31  --      value of its parameter, where
      32  --          Val  0 ..  9 ==> '0' .. '9'
      33  --          Val 10 .. 19 ==> 'A' .. 'J'
      34  --          Val 20 .. 29 ==> 'k' .. 't'
      35  --          Val 30       ==> ' '
      36  --          Val 31       ==> '.'
      37  --          Val 32       ==> ','
      38  --
      39  -- INPUT:
      40  --      This function requires that one int parameter be passed to it.
      41  --
      42  -- OUTPUT:
      43  --      The function will return the appropriate value of type char.
      44  --
      45  -- CHANGE HISTORY:
      46  --      13 Sep 99   RLB     Created function to replace incorrect
      47  --                          Unchecked_Conversion.
      48  --
      49  --!
      50  */
      51  
      52  char CXB30040 (int val)
      53  
      54  /* NOTE: The above function definition should be accepted by an ANSI-C   */
      55  /*       compiler.  Older C compilers may reject it; they may, however   */
      56  /*       accept the following two lines.  An implementation may comment  */
      57  /*       out the above function definition and uncomment the following   */
      58  /*       one.  Otherwise, an implementation must provide the necessary   */
      59  /*       modifications to this C code to satisfy the function            */
      60  /*       requirements (see Function Description).                        */
      61  /*                                                                       */
      62  /*  char CXB30040 (val)                                                  */
      63  /*     int     val;                                                      */
      64  /*                                                                       */
      65  
      66  {  char return_value = ';';
      67  
      68     switch (val)
      69     {
      70        case 0:
      71           return_value = '0';
      72           break;
      73        case 1:
      74           return_value = '1';
      75           break;
      76        case 2:
      77           return_value = '2';
      78           break;
      79        case 3:
      80           return_value = '3';
      81           break;
      82        case 4:
      83           return_value = '4';
      84           break;
      85        case 5:
      86           return_value = '5';
      87           break;
      88        case 6:
      89           return_value = '6';
      90           break;
      91        case 7:
      92           return_value = '7';
      93           break;
      94        case 8:
      95           return_value = '8';
      96           break;
      97        case 9:
      98           return_value = '9';
      99           break;
     100        case 10:
     101           return_value = 'A';
     102           break;
     103        case 11:
     104           return_value = 'B';
     105           break;
     106        case 12:
     107           return_value = 'C';
     108           break;
     109        case 13:
     110           return_value = 'D';
     111           break;
     112        case 14:
     113           return_value = 'E';
     114           break;
     115        case 15:
     116           return_value = 'F';
     117           break;
     118        case 16:
     119           return_value = 'G';
     120           break;
     121        case 17:
     122           return_value = 'H';
     123           break;
     124        case 18:
     125           return_value = 'I';
     126           break;
     127        case 19:
     128           return_value = 'J';
     129           break;
     130        case 20:
     131           return_value = 'k';
     132           break;
     133        case 21:
     134           return_value = 'l';
     135           break;
     136        case 22:
     137           return_value = 'm';
     138           break;
     139        case 23:
     140           return_value = 'n';
     141           break;
     142        case 24:
     143           return_value = 'o';
     144           break;
     145        case 25:
     146           return_value = 'p';
     147           break;
     148        case 26:
     149           return_value = 'q';
     150           break;
     151        case 27:
     152           return_value = 'r';
     153           break;
     154        case 28:
     155           return_value = 's';
     156           break;
     157        case 29:
     158           return_value = 't';
     159           break;
     160        case 30:
     161           return_value = ' ';
     162           break;
     163        case 31:
     164           return_value = '.';
     165           break;
     166        case 32:
     167           return_value = ',';
     168           break;
     169     }
     170  
     171     return (return_value); /* Return character value */
     172  }