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/dkct-to.c | 181 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 181 insertions(+) create mode 100644 support/dktools/dkct-to.c (limited to 'support/dktools/dkct-to.c') diff --git a/support/dktools/dkct-to.c b/support/dktools/dkct-to.c new file mode 100644 index 0000000000..63531e8517 --- /dev/null +++ b/support/dktools/dkct-to.c @@ -0,0 +1,181 @@ +/* + 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: dkct-to.ctr +*/ + +/* +Copyright (C) 2011-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 dkct-to.c The dkct-to module. +*/ + + +#line 77 "dkct-to.ctr" + +#if DK3_USE_WX +#include "dkwxtrace.h" +#else +#include "dkct.h" +#endif + + +#if DK3_USE_WX +static +void +dkct_to_log_lineno(DKCT_SRC *psrc) +{ + char buffer[64]; + if(psrc->sfn) { + if(psrc->lineno) { + if(psrc->pComm) { + (psrc->pComm)->addCharText(psrc->sfn); + sprintf(buffer, ":%lu: ", psrc->lineno); + (psrc->pComm)->addCharText(buffer); + } + } + } +} +#endif + +void +dkct_to_log_1(DKCT_SRC *psrc, int scope, int ll, size_t i1) +{ + if(scope) { + dk3app_set_source_line(psrc->app, psrc->lineno); + dk3app_log_1(psrc->app, ll, psrc->msg, i1); + } +#if DK3_USE_WX + if(psrc->pComm) { + dkct_to_log_lineno(psrc); + (psrc->pComm)->addDkText((psrc->msg)[i1]); + (psrc->pComm)->nl(); + (psrc->pComm)->setLogLevel(ll); + } +#endif +} + + + +void +dkct_to_log_3( + DKCT_SRC *psrc, int scope, int ll, size_t i1, size_t i2, char const *text +) +{ + dkChar b3[DK3_MAX_PATH]; + if(scope) { + dk3app_set_source_line(psrc->app, psrc->lineno); + if(dk3str_c8_to_str_simple_app(b3,DK3_SIZEOF(b3,dkChar),text,psrc->app)) { + dk3app_log_3(psrc->app, ll, psrc->msg, i1, i2, b3); + } + } +#if DK3_USE_WX + if(psrc->pComm) { + dkct_to_log_lineno(psrc); + (psrc->pComm)->addDkText((psrc->msg)[i1]); + if(text) { + (psrc->pComm)->addCharText(text); + } + (psrc->pComm)->addDkText((psrc->msg)[i2]); + (psrc->pComm)->nl(); + (psrc->pComm)->setLogLevel(ll); + } +#endif +} + + + +void +dkct_to_log_5( + DKCT_SRC *psrc, + int scope, + int ll, + size_t i1, + size_t i2, + size_t i3, + char const *t1, + char const *t2 +) +{ + dkChar b1[DK3_MAX_PATH]; + dkChar b2[DK3_MAX_PATH]; + if(scope) { + dk3app_set_source_line(psrc->app, psrc->lineno); + if(dk3str_c8_to_str_simple_app(b1,DK3_SIZEOF(b1,dkChar),t1,psrc->app)) { + if(dk3str_c8_to_str_simple_app(b2,DK3_SIZEOF(b2,dkChar),t2,psrc->app)) { + dk3app_log_5(psrc->app, ll, psrc->msg, i1, i2, i3, b1, b2); + } + } + } +#if DK3_USE_WX + if(psrc->pComm) { + dkct_to_log_lineno(psrc); + (psrc->pComm)->addDkText((psrc->msg)[i1]); + if(t1) { + (psrc->pComm)->addCharText(t1); + } + (psrc->pComm)->addDkText((psrc->msg)[i2]); + if(t2) { + (psrc->pComm)->addCharText(t2); + } + (psrc->pComm)->addDkText((psrc->msg)[i3]); + (psrc->pComm)->nl(); + (psrc->pComm)->setLogLevel(ll); + } +#endif +} + + +void +dkct_to_log_dk_3( + DKCT_SRC *psrc, int scope, int ll, size_t i1, size_t i2, dkChar const *text +) +{ + if(scope) { + dk3app_set_source_line(psrc->app, psrc->lineno); + dk3app_log_3(psrc->app, ll, psrc->msg, i1, i2, text); + } +#if DK3_USE_WX + if(psrc->pComm) { + dkct_to_log_lineno(psrc); + (psrc->pComm)->addDkText((psrc->msg)[i1]); + if(text) { + (psrc->pComm)->addDkText(text); + } + (psrc->pComm)->addDkText((psrc->msg)[i2]); + (psrc->pComm)->nl(); + (psrc->pComm)->setLogLevel(ll); + } +#endif +} + + + +/* vim: set ai sw=2 : */ + -- cgit v1.2.3