FEAT: optional custom LZ77-based compression algorithm (crush)

Oldes · Dec 10, 2021 · b7fb49b · b7fb49b
1 parent c33ff26
commit b7fb49b
Show file tree

Hide file tree

Showing 6 changed files with 460 additions and 2 deletions.
diff --git a/NOTICE b/NOTICE
@@ -42,6 +42,10 @@ Credits for Non-REBOL orginated C files and modules
  Copyright (C) 2018, Igor Pavlov
  Public domain - https://www.7-zip.org/sdk.html
 
+* CRUSH (optional):
+ Copyright (C) 2013, Ilya Muravyov
+ Public domain - https://compressme.net/
+
 * JPEG decoder:
  Copyright 1994-1996, Thomas G. Lane.
  This file is part of the Independent JPEG Group's software.

diff --git a/make/rebol3.nest b/make/rebol3.nest
@@ -467,6 +467,11 @@ include-lzma-compression: [
  core-files: %core/u-lzma.c
 ]
 
+include-crush-compression: [
+ config: INCLUDE_CRUSH
+ core-files: %core/u-crush.c
+]
+
 include-png-filter-native: [
  config: INCLUDE_PNG_FILTER
  core-files: %core/u-png-filter.c
@@ -584,6 +589,7 @@ include-rebol-bulk: [
  :include-optional-checksums
  :include-image-natives
  :include-lzma-compression
+ :include-crush-compression
  :include-base85-encoding
  :include-view
  :include-midi

diff --git a/src/boot/sysobj.reb b/src/boot/sysobj.reb
@@ -60,6 +60,7 @@ catalog: object [
  uri-component: #[bitset! #{0000000041E6FFC07FFFFFE17FFFFFE2}] ;A-Z a-z 0-9 !'()*-._~
  ]
  checksums: [adler32 crc24 crc32 tcp md4 md5 sha1 sha224 sha256 sha384 sha512 ripemd160]
+ compressions: [gzip deflate zlib lzma crush]
 ]
 
 contexts: construct [

diff --git a/src/core/n-strings.c b/src/core/n-strings.c
@@ -3,6 +3,7 @@
 ** REBOL [R3] Language Interpreter and Run-time Environment
 **
 ** Copyright 2012 REBOL Technologies
+** Copyright 2012-2021 Rebol Open Source Contributors
 ** REBOL is a trademark of REBOL Technologies
 **
 ** Licensed under the Apache License, Version 2.0 (the "License");
@@ -298,7 +299,13 @@ static struct digest {
  Trap0(RE_FEATURE_NA);
 #endif
  break;
-
+ case SYM_CRUSH:
+#ifdef INCLUDE_CRUSH
+ Set_Binary(D_RET, CompressCrush(ser, index, (REBINT)len, ref_level ? VAL_INT32(level) : 2));
+#else
+ Trap0(RE_FEATURE_NA);
+#endif
+ break;
  default:
  Trap1(RE_INVALID_ARG, D_ARG(2));
  }
@@ -358,7 +365,13 @@ static struct digest {
  Trap0(RE_FEATURE_NA);
 #endif
  break;
-
+ case SYM_CRUSH:
+#ifdef INCLUDE_CRUSH
+ Set_Binary(D_RET, DecompressCrush(VAL_SERIES(data), VAL_INDEX(data), (REBINT)len, limit));
+#else
+ Trap0(RE_FEATURE_NA);
+#endif
+ break;
  default:
  Trap1(RE_INVALID_ARG, D_ARG(2));
  }