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.
|