mirror of
https://github.com/woo-j/zint.git
synced 2024-12-25 09:33:56 +03:00
fab7435fac
- use fixed-length string tables (mostly) instead of (char *) pointer ones (saves ~40K) - re-use C128Table for CODABLOCKF and CODE16K (required removal of Stop character and extra CODE16K-only entry) - use pointer to destination and copy (memcpy/strcpy(), bin_append_posn()) instead of concatenating (strcat()) (mostly) - replace last remaining bin_append()s with bin_append_posn(); bin_append() removed - add length arg to toupper() and expand() (avoids strlen()) - change is_sane() to use table-based flags (avoids an iteration) - rename lookup() to is_sane_lookup() and change to check and return posns and use in pointer to destination loops (avoids strcat()s) - remove special case PHARMA in expand() (dealt with in pharma()) - make #define SILVER/CALCIUM/TECHNETIUM/KRSET etc static strings - replace strchr() -> posn() - CODE128: populate destination once in checksum loop; re-use and export some more routines (c128_set_a/b/c(), c128_put_in_set()) for sharing; prefix defines (SHIFTA -> C128_SHIFTA etc) and existing exported routines - use factor XOR toggle trick in checksum calcs (avoids branch) - raster.c: fill out single 1-pixel row and copy using new draw_bar_line(), copy_bar_line() routines; similarly in buffer_plot compare previous line & copy if same (same technique as used to improve non-half-integer scaling, significant performance increase, (c) codemonkey82); also done for PNG (BMP/GIF/PCX/TIFF not done) - raster/vector/output.c: shorten "output_" prefix -> "out_"; sync vector to other raster changes to try to keep source files similar - 2of5.c: prefix "c25_" JAPANPOST: return error if input data truncated (backward incompatible) DAFT: max chars 50 -> 100 common.c: istwodigit() -> is_twodigit() common.c/emf.c/output.c: use some further stripf()s (MSVC6 float variations) library.c: new check_output_args() helper zint.h: add BARCODE_LAST marker and use in library.c QRCODE: remove a NOLINT (requires clang-tidy-13), one remaining CMake: separate no-optimize from ZINT_DEBUG into new ZINT_NOOPT option
382 lines
15 KiB
C
382 lines
15 KiB
C
/* medical.c - Handles 1 track and 2 track pharmacode and Codabar */
|
||
|
||
/*
|
||
libzint - the open source barcode library
|
||
Copyright (C) 2008 - 2020 Robin Stuart <rstuart114@gmail.com>
|
||
|
||
Redistribution and use in source and binary forms, with or without
|
||
modification, are permitted provided that the following conditions
|
||
are met:
|
||
|
||
1. Redistributions of source code must retain the above copyright
|
||
notice, this list of conditions and the following disclaimer.
|
||
2. Redistributions in binary form must reproduce the above copyright
|
||
notice, this list of conditions and the following disclaimer in the
|
||
documentation and/or other materials provided with the distribution.
|
||
3. Neither the name of the project nor the names of its 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.
|
||
*/
|
||
/* vim: set ts=4 sw=4 et : */
|
||
|
||
#include <stdio.h>
|
||
#include "common.h"
|
||
|
||
INTERNAL int code39(struct zint_symbol *symbol, unsigned char source[], int length);
|
||
|
||
static const char CALCIUM[] = "0123456789-$:/.+ABCD";
|
||
#define CALCIUM_INNER_F (IS_NUM_F | IS_MNS_F | IS_CLI_F | IS_PLS_F) /* CALCIUM_INNER "0123456789-$:/.+" */
|
||
|
||
/* Codabar table checked against EN 798:1995 */
|
||
static const char CodaTable[20][8] = {
|
||
{'1','1','1','1','1','2','2','1'}, {'1','1','1','1','2','2','1','1'}, {'1','1','1','2','1','1','2','1'},
|
||
{'2','2','1','1','1','1','1','1'}, {'1','1','2','1','1','2','1','1'}, {'2','1','1','1','1','2','1','1'},
|
||
{'1','2','1','1','1','1','2','1'}, {'1','2','1','1','2','1','1','1'}, {'1','2','2','1','1','1','1','1'},
|
||
{'2','1','1','2','1','1','1','1'}, {'1','1','1','2','2','1','1','1'}, {'1','1','2','2','1','1','1','1'},
|
||
{'2','1','1','1','2','1','2','1'}, {'2','1','2','1','1','1','2','1'}, {'2','1','2','1','2','1','1','1'},
|
||
{'1','1','2','1','2','1','2','1'}, {'1','1','2','2','1','2','1','1'}, {'1','2','1','2','1','1','2','1'},
|
||
{'1','1','1','2','1','2','2','1'}, {'1','1','1','2','2','2','1','1'}
|
||
};
|
||
|
||
INTERNAL int pharma(struct zint_symbol *symbol, unsigned char source[], int length) {
|
||
/* "Pharmacode can represent only a single integer from 3 to 131070. Unlike other
|
||
commonly used one-dimensional barcode schemes, pharmacode does not store the data in a
|
||
form corresponding to the human-readable digits; the number is encoded in binary, rather
|
||
than decimal. Pharmacode is read from right to left: with n as the bar position starting
|
||
at 0 on the right, each narrow bar adds 2n to the value and each wide bar adds 2(2^n).
|
||
The minimum barcode is 2 bars and the maximum 16, so the smallest number that could
|
||
be encoded is 3 (2 narrow bars) and the biggest is 131070 (16 wide bars)."
|
||
- http://en.wikipedia.org/wiki/Pharmacode */
|
||
|
||
/* This code uses the One Track Pharamacode calculating algorithm as recommended by
|
||
the specification at http://www.laetus.com/laetus.php?request=file&id=69
|
||
(http://www.gomaro.ch/ftproot/Laetus_PHARMA-CODE.pdf) */
|
||
|
||
int tester;
|
||
int counter, error_number = 0, h;
|
||
char inter[18] = {0}; /* 131070 -> 17 bits */
|
||
char *in = inter;
|
||
char dest[64]; /* 17 * 2 + 1 */
|
||
char *d = dest;
|
||
|
||
if (length > 6) {
|
||
strcpy(symbol->errtxt, "350: Input too long (6 character maximum)");
|
||
return ZINT_ERROR_TOO_LONG;
|
||
}
|
||
tester = to_int(source, length);
|
||
if (tester == -1) {
|
||
strcpy(symbol->errtxt, "351: Invalid character in data (digits only)");
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
|
||
if ((tester < 3) || (tester > 131070)) {
|
||
strcpy(symbol->errtxt, "352: Data out of range (3 to 131070)");
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
|
||
do {
|
||
if (!(tester & 1)) {
|
||
*in++ = 'W';
|
||
tester = (tester - 2) / 2;
|
||
} else {
|
||
*in++ = 'N';
|
||
tester = (tester - 1) / 2;
|
||
}
|
||
} while (tester != 0);
|
||
|
||
h = in - inter;
|
||
for (counter = h - 1; counter >= 0; counter--) {
|
||
*d++ = inter[counter] == 'W' ? '3' : '1';
|
||
*d++ = '2';
|
||
}
|
||
*--d = '\0'; /* Chop off final bar */
|
||
|
||
expand(symbol, dest, d - dest);
|
||
|
||
if (symbol->output_options & COMPLIANT_HEIGHT) {
|
||
/* Laetus Pharmacode Guide 1.2 Standard one-track height 8mm / 0.5mm (X) */
|
||
error_number = set_height(symbol, 16.0f, 0.0f, 0.0f, 0 /*no_errtxt*/);
|
||
} else {
|
||
(void) set_height(symbol, 0.0f, 50.0f, 0.0f, 1 /*no_errtxt*/);
|
||
}
|
||
|
||
return error_number;
|
||
}
|
||
|
||
static int pharma_two_calc(int tester, char *d) {
|
||
/* This code uses the Two Track Pharamacode defined in the document at
|
||
http://www.laetus.com/laetus.php?request=file&id=69 and using a modified
|
||
algorithm from the One Track system. This standard accepts integet values
|
||
from 4 to 64570080. */
|
||
|
||
int counter, h;
|
||
char inter[17];
|
||
char *in = inter;
|
||
|
||
do {
|
||
switch (tester % 3) {
|
||
case 0:
|
||
*in++ = '3';
|
||
tester = (tester - 3) / 3;
|
||
break;
|
||
case 1:
|
||
*in++ = '1';
|
||
tester = (tester - 1) / 3;
|
||
break;
|
||
case 2:
|
||
*in++ = '2';
|
||
tester = (tester - 2) / 3;
|
||
break;
|
||
}
|
||
} while (tester != 0);
|
||
|
||
h = in - inter;
|
||
for (counter = h - 1; counter >= 0; counter--) {
|
||
*d++ = inter[counter];
|
||
}
|
||
*d = '\0';
|
||
|
||
return h;
|
||
}
|
||
|
||
INTERNAL int pharma_two(struct zint_symbol *symbol, unsigned char source[], int length) {
|
||
/* Draws the patterns for two track pharmacode */
|
||
int tester;
|
||
char height_pattern[200];
|
||
unsigned int loopey, h;
|
||
int writer;
|
||
int error_number = 0;
|
||
|
||
if (length > 8) {
|
||
strcpy(symbol->errtxt, "354: Input too long (8 character maximum");
|
||
return ZINT_ERROR_TOO_LONG;
|
||
}
|
||
tester = to_int(source, length);
|
||
if (tester == -1) {
|
||
strcpy(symbol->errtxt, "355: Invalid character in data (digits only)");
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
if ((tester < 4) || (tester > 64570080)) {
|
||
strcpy(symbol->errtxt, "353: Data out of range (4 to 64570080)");
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
h = pharma_two_calc(tester, height_pattern);
|
||
|
||
writer = 0;
|
||
for (loopey = 0; loopey < h; loopey++) {
|
||
if ((height_pattern[loopey] == '2') || (height_pattern[loopey] == '3')) {
|
||
set_module(symbol, 0, writer);
|
||
}
|
||
if ((height_pattern[loopey] == '1') || (height_pattern[loopey] == '3')) {
|
||
set_module(symbol, 1, writer);
|
||
}
|
||
writer += 2;
|
||
}
|
||
symbol->rows = 2;
|
||
symbol->width = writer - 1;
|
||
|
||
if (symbol->output_options & COMPLIANT_HEIGHT) {
|
||
/* Laetus Pharmacode Guide 1.4
|
||
Two-track height min 8mm / 2mm (X max) = 4, standard 8mm / 1mm = 8, max 12mm / 0.8mm (X min) = 15 */
|
||
error_number = set_height(symbol, 2.0f, 8.0f, 15.0f, 0 /*no_errtxt*/);
|
||
} else {
|
||
(void) set_height(symbol, 0.0f, 10.0f, 0.0f, 1 /*no_errtxt*/);
|
||
}
|
||
|
||
return error_number;
|
||
}
|
||
|
||
/* The Codabar system consisting of simple substitution */
|
||
INTERNAL int codabar(struct zint_symbol *symbol, unsigned char source[], int length) {
|
||
|
||
int i, error_number = 0;
|
||
int posns[60];
|
||
char dest[512];
|
||
char *d = dest;
|
||
int add_checksum, count = 0, checksum = 0;
|
||
int d_chars = 0;
|
||
|
||
if (length > 60) { /* No stack smashing please */
|
||
strcpy(symbol->errtxt, "356: Input too long (60 character maximum)");
|
||
return ZINT_ERROR_TOO_LONG;
|
||
}
|
||
/* BS EN 798:1995 4.2 "'Codabar' symbols shall consist of ... b) start character;
|
||
c) one or more symbol characters representing data ... d) stop character ..." */
|
||
if (length < 3) {
|
||
strcpy(symbol->errtxt, "362: Input too short (3 character minimum)");
|
||
return ZINT_ERROR_TOO_LONG;
|
||
}
|
||
to_upper(source, length);
|
||
|
||
/* Codabar must begin and end with the characters A, B, C or D */
|
||
if ((source[0] != 'A') && (source[0] != 'B') && (source[0] != 'C')
|
||
&& (source[0] != 'D')) {
|
||
strcpy(symbol->errtxt, "358: Does not begin with \"A\", \"B\", \"C\" or \"D\"");
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
if ((source[length - 1] != 'A') && (source[length - 1] != 'B') &&
|
||
(source[length - 1] != 'C') && (source[length - 1] != 'D')) {
|
||
strcpy(symbol->errtxt, "359: Does not end with \"A\", \"B\", \"C\" or \"D\"");
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
if (!is_sane_lookup(CALCIUM, sizeof(CALCIUM) - 1, source, length, posns)) {
|
||
sprintf(symbol->errtxt, "357: Invalid character in data (\"%s\" only)", CALCIUM);
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
/* And must not use A, B, C or D otherwise (BS EN 798:1995 4.3.2) */
|
||
if (!is_sane(CALCIUM_INNER_F, source + 1, length - 2)) {
|
||
strcpy(symbol->errtxt, "363: Cannot contain \"A\", \"B\", \"C\" or \"D\"");
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
|
||
/* Add check character: 1 don't show to HRT, 2 do show to HRT
|
||
(unfortunately to maintain back-compatibility, this is reverse of C25) */
|
||
add_checksum = symbol->option_2 == 1 || symbol->option_2 == 2;
|
||
|
||
for (i = 0; i < length; i++, d += 8) {
|
||
if (add_checksum) {
|
||
/* BS EN 798:1995 A.3 suggests using ISO 7064 algorithm but leaves it application defined.
|
||
Following BWIPP and TEC-IT, use this simple mod-16 algorithm (not in ISO 7064) */
|
||
count += posns[i];
|
||
if (i + 1 == length) {
|
||
checksum = count % 16;
|
||
if (checksum) {
|
||
checksum = 16 - checksum;
|
||
}
|
||
if (symbol->debug & ZINT_DEBUG_PRINT) {
|
||
printf("Codabar: %s, count %d, checksum %d (%c)\n", source, count, checksum, CALCIUM[checksum]);
|
||
}
|
||
memcpy(d, CodaTable[checksum], 8);
|
||
d += 8;
|
||
}
|
||
}
|
||
memcpy(d, CodaTable[posns[i]], 8);
|
||
if (source[i] == '/' || source[i] == ':' || source[i] == '.' || source[i] == '+') { /* Wide data characters */
|
||
d_chars++;
|
||
}
|
||
}
|
||
|
||
expand(symbol, dest, d - dest);
|
||
|
||
if (symbol->output_options & COMPLIANT_HEIGHT) {
|
||
/* BS EN 798:1995 4.4.1 (d) max of 5mm / 0.191mm (X) ~ 26.178 or 15% of width where (taking N = narrow/wide
|
||
ratio as 2 and I = X) width = ((2 * N + 5) * C + (N – 1) * (D + 2)) * X + I * (C – 1) + 2Q
|
||
= ((4 + 5) * C + (D + 2) + C - 1 + 2 * 10) * X = (10 * C + D + 21) * X
|
||
Length (C) includes start/stop chars */
|
||
const float min_height_min = stripf(5.0f / 0.191f);
|
||
float min_height = stripf((10.0f * ((add_checksum ? length + 1 : length) + 2.0f) + d_chars + 21.0f) * 0.15f);
|
||
if (min_height < min_height_min) {
|
||
min_height = min_height_min;
|
||
}
|
||
/* Using 50 as default as none recommended */
|
||
error_number = set_height(symbol, min_height, min_height > 50.0f ? min_height : 50.0f, 0.0f, 0 /*no_errtxt*/);
|
||
} else {
|
||
(void) set_height(symbol, 0.0f, 50.0f, 0.0f, 1 /*no_errtxt*/);
|
||
}
|
||
|
||
ustrcpy(symbol->text, source);
|
||
if (symbol->option_2 == 2) {
|
||
symbol->text[length - 1] = CALCIUM[checksum]; /* Place before final A/B/C/D character (BS EN 798:1995 A.3) */
|
||
symbol->text[length] = source[length - 1];
|
||
symbol->text[length + 1] = '\0';
|
||
}
|
||
|
||
return error_number;
|
||
}
|
||
|
||
/* Italian Pharmacode */
|
||
INTERNAL int code32(struct zint_symbol *symbol, unsigned char source[], int length) {
|
||
static const char TABELLA[] = "0123456789BCDFGHJKLMNPQRSTUVWXYZ";
|
||
int i, zeroes, error_number = 0, checksum, checkpart, checkdigit;
|
||
char localstr[10], risultante[7];
|
||
long int pharmacode, devisor;
|
||
int codeword[6];
|
||
|
||
/* Validate the input */
|
||
if (length > 8) {
|
||
strcpy(symbol->errtxt, "360: Input too long (8 character maximum)");
|
||
return ZINT_ERROR_TOO_LONG;
|
||
}
|
||
if (!is_sane(NEON_F, source, length)) {
|
||
strcpy(symbol->errtxt, "361: Invalid character in data (digits only)");
|
||
return ZINT_ERROR_INVALID_DATA;
|
||
}
|
||
|
||
/* Add leading zeros as required */
|
||
zeroes = 8 - length;
|
||
memset(localstr, '0', zeroes);
|
||
ustrcpy(localstr + zeroes, source);
|
||
|
||
/* Calculate the check digit */
|
||
checksum = 0;
|
||
for (i = 0; i < 4; i++) {
|
||
checkpart = ctoi(localstr[i * 2]);
|
||
checksum += checkpart;
|
||
checkpart = 2 * (ctoi(localstr[(i * 2) + 1]));
|
||
if (checkpart >= 10) {
|
||
checksum += (checkpart - 10) + 1;
|
||
} else {
|
||
checksum += checkpart;
|
||
}
|
||
}
|
||
|
||
/* Add check digit to data string */
|
||
checkdigit = checksum % 10;
|
||
localstr[8] = itoc(checkdigit);
|
||
localstr[9] = '\0';
|
||
|
||
/* Convert string into an integer value */
|
||
pharmacode = atoi(localstr);
|
||
|
||
/* Convert from decimal to base-32 */
|
||
devisor = 33554432;
|
||
for (i = 5; i >= 0; i--) {
|
||
long int remainder;
|
||
codeword[i] = pharmacode / devisor;
|
||
remainder = pharmacode % devisor;
|
||
pharmacode = remainder;
|
||
devisor /= 32;
|
||
}
|
||
|
||
/* Look up values in 'Tabella di conversione' */
|
||
for (i = 5; i >= 0; i--) {
|
||
risultante[5 - i] = TABELLA[codeword[i]];
|
||
}
|
||
risultante[6] = '\0';
|
||
/* Plot the barcode using Code 39 */
|
||
error_number = code39(symbol, (unsigned char *) risultante, 6);
|
||
if (error_number != 0) { /* Should never happen */
|
||
return error_number; /* Not reached */
|
||
}
|
||
|
||
if (symbol->output_options & COMPLIANT_HEIGHT) {
|
||
/* Allegato A Caratteristiche tecniche del bollino farmaceutico
|
||
(https://www.gazzettaufficiale.it/do/atto/serie_generale/caricaPdf?cdimg=14A0566800100010110001
|
||
&dgu=2014-07-18&art.dataPubblicazioneGazzetta=2014-07-18&art.codiceRedazionale=14A05668&art.num=1
|
||
&art.tiposerie=SG)
|
||
X given as 0.250mm; height (and quiet zones) left to ISO/IEC 16388:2007 (Code 39)
|
||
So min height 5mm = 5mm / 0.25mm = 20 > 15% of width, i.e. (10 * 8 + 19) * 0.15 = 14.85 */
|
||
error_number = set_height(symbol, 20.0f, 20.0f, 0.0f, 0 /*no_errtxt*/); /* Use as default also */
|
||
} else {
|
||
(void) set_height(symbol, 0.0f, 50.0f, 0.0f, 1 /*no_errtxt*/);
|
||
}
|
||
|
||
/* Override the normal text output with the Pharmacode number */
|
||
ustrcpy(symbol->text, "A");
|
||
ustrcat(symbol->text, localstr);
|
||
|
||
return error_number;
|
||
}
|