source: branches/virt simple/UBigInt.pas

unit UBigInt;

{$mode delphi}

interface

uses
  Classes, SysUtils;

type

  { TBigInt }

  TBigInt = record
    Value: array of Byte;
    class operator Add(A, B: TBigInt): TBigInt;
    class operator Subtract(A, B: TBigInt): TBigInt;
    class operator Multiply(A, B: TBigInt): TBigInt;
    class operator Divide(A, B: TBigInt): TBigInt;
    class operator IntDivide(A, B: TBigInt): TBigInt;
    class operator Modulus(A, B: TBigInt): TBigInt;
    class operator GreaterThan(A: TBigInt; B: TBigInt): Boolean;
    class operator GreaterThanOrEqual(A: TBigInt; B: TBigInt): Boolean;
    class operator LessThan(A: TBigInt; B: TBigInt): Boolean;
    class operator LessThanOrEqual(A: TBigInt; B: TBigInt): Boolean;
    class operator Implicit(A: Integer): TBigInt;
    class operator Implicit(A: ShortInt): TBigInt;
    class operator Implicit(A: Int64): TBigInt;
    class operator Implicit(A: TBigInt): LongInt;
    class operator Implicit(A: TBigInt): Int64;
    class operator Equal(A: TBigInt; B: TBigInt): Boolean;
  end;

function IntToHex(Value: TBigInt; Digits: Integer): string; overload;
function IntToStr(Value: TBigInt): string; overload;

implementation

{ TBigInt }

class operator TBigInt.Add(A, B: TBigInt): TBigInt;
var
  I: Integer;
begin
  for I := 0 to Length(A.Value) - 1 do
    Result.Value[I] := A.Value[I] + B.Value[I];
  //Result := ;
end;

class operator TBigInt.Subtract(A, B: TBigInt): TBigInt;
begin

end;

class operator TBigInt.Multiply(A, B: TBigInt): TBigInt;
begin

end;

class operator TBigInt.Divide(A, B: TBigInt): TBigInt;
begin

end;

class operator TBigInt.IntDivide(A, B: TBigInt): TBigInt;
begin

end;

class operator TBigInt.Modulus(A, B: TBigInt): TBigInt;
begin

end;

class operator TBigInt.GreaterThan(A: TBigInt; B: TBigInt): Boolean;
begin

end;

class operator TBigInt.GreaterThanOrEqual(A: TBigInt; B: TBigInt): Boolean;
begin

end;

class operator TBigInt.LessThan(A: TBigInt; B: TBigInt): Boolean;
begin

end;

class operator TBigInt.LessThanOrEqual(A: TBigInt; B: TBigInt): Boolean;
begin

end;

class operator TBigInt.Implicit(A: Integer): TBigInt;
begin
  SetLength(Result.Value, SizeOf(Integer));
  Move(A, Result.Value[0], SizeOf(Integer));
end;

class operator TBigInt.Implicit(A: ShortInt): TBigInt;
begin
  SetLength(Result.Value, SizeOf(ShortInt));
  Move(A, Result.Value[0], SizeOf(ShortInt));
end;

class operator TBigInt.Implicit(A: Int64): TBigInt;
begin
  SetLength(Result.Value, SizeOf(Int64));
  Move(A, Result.Value[0], SizeOf(Int64));
end;

class operator TBigInt.Implicit(A: TBigInt): LongInt;
begin
  Move(A.Value[0], A, SizeOf(LongInt));
end;

class operator TBigInt.Implicit(A: TBigInt): Int64;
begin
  Move(A.Value[0], A, SizeOf(Int64));
end;

class operator TBigInt.Equal(A: TBigInt; B: TBigInt): Boolean;
begin
  Result := (Length(A.Value) = Length(B.Value)) and
    CompareMem(Addr(A.Value[0]), Addr(A.Value[0]), Length(A.Value));
end;

function IntToHex(Value: TBigInt; Digits: Integer): string;
begin

end;

function IntToStr(Value: TBigInt): string;
begin

end;

end.