From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- support/dktools/dk4rld.c | 212 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 212 insertions(+) create mode 100644 support/dktools/dk4rld.c (limited to 'support/dktools/dk4rld.c') diff --git a/support/dktools/dk4rld.c b/support/dktools/dk4rld.c new file mode 100644 index 0000000000..c1d3756088 --- /dev/null +++ b/support/dktools/dk4rld.c @@ -0,0 +1,212 @@ +/* + WARNING: This file was generated by dkct. + Changes you make here will be lost if dkct is run again! + You should modify the original source and run dkct on it. + Original source: dk4rld.ctr +*/ + +/* +Copyright (C) 2015-2017, Dirk Krause + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + +* Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. +* Redistributions in binary form must reproduce the above opyright notice, + this list of conditions and the following disclaimer in the documentation + and/or other materials provided with the distribution. +* Neither the name of the author nor the names of contributors may be used + to endorse or promote products derived from this software without specific + prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. +IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY +DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES +(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; +LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND +ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF +THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + +/** @file dk4rld.c The dk4rld module. +*/ + + +#line 121 "dk4rld.ctr" + +#include "dk4rld.h" +#include "dk4edstm.h" +#include "dk4mem.h" + + + + + +#line 129 "dk4rld.ctr" + + + +/** Decoder states. +*/ +enum { + /** Start state, exepect run length + or literal data length. + */ + RLD_ST_EXPECT_KEY_BYTE = 0, + + /** Expect byte value for run. + */ + RLD_ST_EXPECT_RUN_BYTE , + + /** Expect literal byte. + */ + RLD_ST_EXPECT_LITERAL_BYTE , + + /** No further input accepted as + EOD marker was found. + */ + RLD_ST_EOD_FOUND +}; + + + +void +dk4rld_init(dk4_rl_dec_t *dec, dk4_er_t *erp) +{ + + +#line 160 "dk4rld.ctr" + if (NULL != dec) { + DK4_MEMRES(dec, sizeof(dk4_rl_dec_t)); + dec->oused = 0; + dec->ll = 0; + dec->st = RLD_ST_EXPECT_KEY_BYTE; + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + +#line 168 "dk4rld.ctr" +} + + + +int +dk4rld_add(dk4_rl_dec_t *dec, unsigned char inbyte, dk4_er_t *erp) +{ + int back = DK4_EDSTM_ERROR; + + +#line 177 "dk4rld.ctr" + if (NULL != dec) { + switch (dec->st) { + case RLD_ST_EXPECT_KEY_BYTE : { + if ((unsigned char)128 > inbyte) { + /* + Literal byte sequence + */ + dec->st = RLD_ST_EXPECT_LITERAL_BYTE; + dec->ll = (size_t)inbyte + 1; + back = DK4_EDSTM_ACCEPT; + } else { + if ((unsigned char)128 < inbyte) { + /* + Run of equal bytes + */ + dec->st = RLD_ST_EXPECT_RUN_BYTE; + dec->ll = (size_t)257 - (size_t)inbyte; + back = DK4_EDSTM_ACCEPT; + } else { + /* + EOD marker found + */ + dec->st = RLD_ST_EOD_FOUND; + back = DK4_EDSTM_STOP; + } + } + } break; + case RLD_ST_EXPECT_RUN_BYTE : { + dk4mem_set(&(dec->ob[0]), dec->ll, inbyte, NULL); + dec->oused = dec->ll; + dec->st = RLD_ST_EXPECT_KEY_BYTE; + back = DK4_EDSTM_FINISHED; + } break; + case RLD_ST_EXPECT_LITERAL_BYTE : { + dec->ob[0] = inbyte; + dec->oused = 1; + dec->ll -= 1; + if (0 == dec->ll) { + dec->st = RLD_ST_EXPECT_KEY_BYTE; + } + back = DK4_EDSTM_FINISHED; + } break; + default : { + dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); + } break; + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + +#line 226 "dk4rld.ctr" + return back; +} + + + +int +dk4rld_finish(dk4_rl_dec_t *dec, dk4_er_t *erp) +{ + int back = DK4_EDSTM_ERROR; + + +#line 236 "dk4rld.ctr" + if (NULL != dec) { + switch (dec->st) { + case RLD_ST_EXPECT_KEY_BYTE : case RLD_ST_EOD_FOUND : { + back = DK4_EDSTM_ACCEPT; + } break; + default : { + dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); + } break; + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + +#line 248 "dk4rld.ctr" + return back; +} + + + +int +dk4rld_output( + const unsigned char **dptr, size_t *szptr, dk4_rl_dec_t *dec, dk4_er_t *erp +) +{ + int back = 0; + + +#line 260 "dk4rld.ctr" + if (NULL != dec) { + if (0 < dec->oused) { + *dptr = &(dec->ob[0]); + *szptr = dec->oused; + back = 1; + } else { + *dptr = NULL; + *szptr = 0; + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); + } + +#line 272 "dk4rld.ctr" + return back; +} + -- cgit v1.2.3