Natools

Check-in [361f2b206c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:smaz_256: standard Smaz algorithm built from Smaz_Generic
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 361f2b206c11e6e0a74d0244e925a0f54a35c27c
User & Date: nat 2016-11-15 22:42:59
Context
2016-11-16
21:50
Duplicate original Smaz dictionary to be used with Natools.Smaz_256 check-in: 47b2749cad user: nat tags: trunk
2016-11-15
22:42
smaz_256: standard Smaz algorithm built from Smaz_Generic check-in: 361f2b206c user: nat tags: trunk
2016-11-14
20:19
smaz_implementations-base_256: component to instantiate standard Smaz check-in: b13d7f70e3 user: nat tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added src/natools-smaz_256.ads.







































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
------------------------------------------------------------------------------
-- Copyright (c) 2016, Natacha Porté                                        --
--                                                                          --
-- Permission to use, copy, modify, and distribute this software for any    --
-- purpose with or without fee is hereby granted, provided that the above   --
-- copyright notice and this permission notice appear in all copies.        --
--                                                                          --
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF         --
-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR  --
-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES   --
-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN    --
-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF  --
-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.           --
------------------------------------------------------------------------------

------------------------------------------------------------------------------
-- Natools.Smaz_256 is the instantion of Natools.Smaz_Generic equivalent    --
-- to the original byte-based Smaz compression algorithm.                   --
------------------------------------------------------------------------------

with Ada.Streams;
with Natools.Smaz_Generic;
with Natools.Smaz_Implementations.Base_256;

package Natools.Smaz_256 is new Natools.Smaz_Generic
  (Dictionary_Code => Ada.Streams.Stream_Element,
   Read_Code => Natools.Smaz_Implementations.Base_256.Read_Code,
   Read_Verbatim => Natools.Smaz_Implementations.Base_256.Read_Verbatim,
   Skip_Verbatim => Natools.Smaz_Implementations.Base_256.Skip_Verbatim,
   Verbatim_Size => Natools.Smaz_Implementations.Base_256.Verbatim_Size,
   Write_Code => Natools.Smaz_Implementations.Base_256.Write_Code,
   Write_Verbatim => Natools.Smaz_Implementations.Base_256.Write_Verbatim);

pragma Pure (Natools.Smaz_256);