47 lines
1.0 KiB
Plaintext
47 lines
1.0 KiB
Plaintext
unit BWTBaseUnit;
|
|
{-------------------------------------------------------------------------------
|
|
Burrows Wheeler Transformation
|
|
Base Unit
|
|
------------------------------
|
|
reSource v2.6
|
|
Copyright (C) 1998-2001 Victor Kasenda / gruv
|
|
http://go.to/gruv
|
|
email: vickas@singnet.com.sg
|
|
|
|
|
|
Desc:
|
|
The base unit for TBWTCompress and TBWTExpand
|
|
contains common procedures used by both of them.
|
|
-------------------------------------------------------------------------------}
|
|
|
|
(**) interface (**)
|
|
uses StructsUnit;
|
|
|
|
type
|
|
TBWTBase = class
|
|
protected
|
|
in_block ,out_block: PBlock;
|
|
|
|
procedure SwapBlocks;
|
|
public
|
|
end;
|
|
|
|
|
|
(**) implementation (**)
|
|
|
|
{-------------------------------------------------------------------------------
|
|
Swap Blocks
|
|
in_block and out_block exchange pointer values
|
|
-------------------------------------------------------------------------------}
|
|
procedure TBWTBase.SwapBlocks;
|
|
var
|
|
temp_block: PBlock;
|
|
begin
|
|
temp_block := in_block;
|
|
in_block := out_block;
|
|
out_block := temp_block;
|
|
end;
|
|
|
|
|
|
end.
|