home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / BCD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  4.8 KB  |  157 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. unit BCD;
  5.  
  6. { The BCD version of Turbo Pascal 3.0 (TURBOBCD.COM) supports
  7.   10-byte binary coded decimal reals with 18 significant digits
  8.   and a range of 1E-63 to 1E+63. The BCD real data type is not
  9.   supported by Turbo Pascal 4.0, and this unit provides a routine
  10.   for converting 3.0 BCD reals to 6-byte reals (software reals)
  11.   or 10-byte 8087 extended reals.
  12.  
  13.   Before you convert a Turbo Pascal 3.0 BCD program to run under
  14.   4.0, you need to select a 4.0 real data type for your floating
  15.   point values. If you do not have an 8087, or if your program is
  16.   to run on machines without an 8087, your only option is to use
  17.   the familiar 6-byte Real, which provides 11-12 significant digits
  18.   with a range of 2.9E-39 to 1.7E+38. This type is also supported by
  19.   the standard version of Turbo Pascal 3.0. If you are planning to
  20.   use the 8087, we suggest you select the 10-byte Extended type,
  21.   which provides 19-20 significant digits with a range of 1.9E-4951
  22.   to 1.1E+4932. Once you have selected a data type, you need to write
  23.   a conversion program that translates your old data files using the
  24.   conversion routine provided here.
  25.  
  26.   The Decimal type defined by this unit corresponds to the 3.0 BCD
  27.   Real, and the DecToFloat routine converts a Decimal variable to a
  28.   6-byte Real or to a 10-byte Extended.
  29.  
  30.   The BCD unit uses conditional compilation constructs to define a
  31.   type Float which is equivalent to either Real or Extended,
  32.   depending on the kind of numeric processing you select (software
  33.   or hardware). To compile a program that uses the BCD unit, first
  34.   select software or hardware floating point, using the Options/
  35.   Compiler/Numeric processing menu, and then do a Compile/Build,
  36.   which automatically recompiles BCD.PAS.
  37.  
  38.   The following program shows how to convert a 3.0 data file that
  39.   contains records with BCD fields. The program defines an equivalent
  40.   of the 3.0 record (OldDataRec) using the Decimal type for fields
  41.   that contain BCD reals. In the corresponding 4.0 record (NewDataRec),
  42.   floating point fields are declared using the Float type, which is
  43.   either Real or Extended depending on the floating point model
  44.   selected. During the conversion, all Decimal fields are converted
  45.   to Float using the DecToFloat function, whereas all non-real fields
  46.   are copied directly.
  47.  
  48.   program ConvertBCD;
  49.   uses BCD;
  50.   type
  51.     OldDataRec = record
  52.                    Name: string[15];
  53.                    InPrice,OutPrice: Decimal;
  54.                    InStock,MinStock: Integer;
  55.                  end;
  56.     NewDataRec = record
  57.                    Name: string[15];
  58.                    InPrice,OutPrice: Float;
  59.                    InStock,MinStock: Integer;
  60.                  end;
  61.   var
  62.     OldFile: file of OldDataRec;
  63.     NewFile: file of NewDataRec;
  64.     Old: OldDataRec;
  65.     New: NewDataRec;
  66.   begin
  67.     Assign(OldFile,'OLDFILE.DTA'); Reset(F);
  68.     Assign(NewFile,'NEWFILE.DTA'); Rewrite(F);
  69.     while not Eof(OldFile) do
  70.     begin
  71.       Read(OldFile,Old);
  72.       New.Name     := Old.Name;
  73.       New.InPrice  := DecToFloat(Old.InPrice);
  74.       New.OutPrice := DecToFloat(Old.OutPrice);
  75.       New.InStock  := Old.InStock;
  76.       New.MinStock := Old.MinStock;
  77.       Write(NewFile,New);
  78.     end;
  79.     Close(OldFile);
  80.     Close(NewFile);
  81.   end.
  82.  
  83.   The range of a BCD real is larger than that of a 6-byte software
  84.   real. Therefore, when converting to 6-byte reals, BCD values larger
  85.   than 1E+38 are converted to 1E+38, and BCD values less than 2.9E-39
  86.   are converted to zero.
  87. }
  88.  
  89. interface
  90.  
  91. type
  92.   Decimal = array[0..9] of Byte;
  93. {$IFOPT N-}
  94.   Float = Real;
  95. {$ELSE}
  96.   Float = Extended;
  97. {$ENDIF}
  98.  
  99. function DecToFloat(var D: Decimal): Float;
  100.  
  101. implementation
  102.  
  103. function DecToFloat(var D: Decimal): Float;
  104. var
  105.   E,L,P: Integer;
  106.   V: Float;
  107.  
  108. function Power10(E: Integer): Float;
  109. var
  110.   I: Integer;
  111.   P: Float;
  112. begin
  113.   I:=0; P:=1.0;
  114.   repeat
  115.     if Odd(E) then
  116.     case I of
  117.       0: P:=P*1E1;
  118.       1: P:=P*1E2;
  119.       2: P:=P*1E4;
  120.       3: P:=P*1E8;
  121.       4: P:=P*1E16;
  122.       5: P:=P*1E32;
  123.     end;
  124.     E:=E shr 1; Inc(I);
  125.   until E=0;
  126.   Power10:=P;
  127. end;
  128.  
  129. begin
  130. {$IFOPT N-}
  131.   if D[0] and $7F>38+$3F then V:=10E37 else
  132. {$ENDIF}
  133.   begin
  134.     V:=0.0; L:=1;
  135.     while (L<=9) and (D[L]=0) do Inc(L);
  136.     if L<=9 then
  137.     begin
  138.       for P:=9 downto L do
  139.       begin
  140.         V:=V*100.0+((D[P] shr 4)*10+D[P] and $0F);
  141.       end;
  142.       E:=D[0] and $7F-($3F+(10-L)*2);
  143.       if E>=0 then V:=V*Power10(E) else
  144.       begin
  145.         if E<-32 then
  146.         begin
  147.           V:=V/1E32; E:=E+32;
  148.         end;
  149.         V:=V/Power10(-E);
  150.       end;
  151.     end;
  152.   end;
  153.   if D[0] and $80=0 then DecToFloat:=V else DecToFloat:=-V;
  154. end;
  155.  
  156. end.
  157.