/* 2of5.c - Handles Code 2 of 5 barcodes */ /* libzint - the open source barcode library Copyright (C) 2008 - 2020 Robin Stuart 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 #include "common.h" #ifdef _MSC_VER #include #define inline _inline #endif static const char *C25MatrixTable[10] = { "113311", "311131", "131131", "331111", "113131", "313111", "133111", "111331", "311311", "131311" }; static const char *C25IndustTable[10] = { "1111313111", "3111111131", "1131111131", "3131111111", "1111311131", "3111311111", "1131311111", "1111113131", "3111113111", "1131113111" }; static const char *C25InterTable[10] = { "11331", "31113", "13113", "33111", "11313", "31311", "13311", "11133", "31131", "13131" }; static inline char check_digit(unsigned int count) { return itoc((10 - (count % 10)) % 10); } /* Code 2 of 5 Standard (Code 2 of 5 Matrix) */ INTERNAL int matrix_two_of_five(struct zint_symbol *symbol, unsigned char source[], int length) { int i, error_number; char dest[512]; /* 6 + 80 * 6 + 5 + 1 = 492 */ if (length > 80) { strcpy(symbol->errtxt, "301: Input too long"); return ZINT_ERROR_TOO_LONG; } error_number = is_sane(NEON, source, length); if (error_number == ZINT_ERROR_INVALID_DATA) { strcpy(symbol->errtxt, "302: Invalid characters in data"); return error_number; } /* start character */ strcpy(dest, "411111"); for (i = 0; i < length; i++) { lookup(NEON, C25MatrixTable, source[i], dest); } /* Stop character */ strcat(dest, "41111"); expand(symbol, dest); ustrcpy(symbol->text, source); return error_number; } /* Code 2 of 5 Industrial */ INTERNAL int industrial_two_of_five(struct zint_symbol *symbol, unsigned char source[], int length) { int i, error_number; char dest[512]; /* 6 + 45 * 10 + 5 + 1 = 462 */ if (length > 45) { strcpy(symbol->errtxt, "303: Input too long"); return ZINT_ERROR_TOO_LONG; } error_number = is_sane(NEON, source, length); if (error_number == ZINT_ERROR_INVALID_DATA) { strcpy(symbol->errtxt, "304: Invalid character in data"); return error_number; } /* start character */ strcpy(dest, "313111"); for (i = 0; i < length; i++) { lookup(NEON, C25IndustTable, source[i], dest); } /* Stop character */ strcat(dest, "31113"); expand(symbol, dest); ustrcpy(symbol->text, source); return error_number; } /* Code 2 of 5 IATA */ INTERNAL int iata_two_of_five(struct zint_symbol *symbol, unsigned char source[], int length) { int i, error_number; char dest[512]; /* 4 + 45 * 10 + 3 + 1 = 458 */ if (length > 45) { strcpy(symbol->errtxt, "305: Input too long"); return ZINT_ERROR_TOO_LONG; } error_number = is_sane(NEON, source, length); if (error_number == ZINT_ERROR_INVALID_DATA) { strcpy(symbol->errtxt, "306: Invalid characters in data"); return error_number; } /* start */ strcpy(dest, "1111"); for (i = 0; i < length; i++) { lookup(NEON, C25IndustTable, source[i], dest); } /* stop */ strcat(dest, "311"); expand(symbol, dest); ustrcpy(symbol->text, source); return error_number; } /* Code 2 of 5 Data Logic */ INTERNAL int logic_two_of_five(struct zint_symbol *symbol, unsigned char source[], int length) { int i, error_number; char dest[512]; /* 4 + 80 * 6 + 3 + 1 = 488 */ if (length > 80) { strcpy(symbol->errtxt, "307: Input too long"); return ZINT_ERROR_TOO_LONG; } error_number = is_sane(NEON, source, length); if (error_number == ZINT_ERROR_INVALID_DATA) { strcpy(symbol->errtxt, "308: Invalid characters in data"); return error_number; } /* start character */ strcpy(dest, "1111"); for (i = 0; i < length; i++) { lookup(NEON, C25MatrixTable, source[i], dest); } /* Stop character */ strcat(dest, "311"); expand(symbol, dest); ustrcpy(symbol->text, source); return error_number; } /* Code 2 of 5 Interleaved */ INTERNAL int interleaved_two_of_five(struct zint_symbol *symbol, unsigned char source[], int length) { int i, j, error_number; char bars[7], spaces[7], mixed[14], dest[512]; /* 4 + 90 * 5 + 3 + 1 = 458 */ #ifndef _MSC_VER unsigned char temp[length + 2]; #else unsigned char* temp = (unsigned char *) _alloca((length + 2) * sizeof (unsigned char)); #endif if (length > 90) { strcpy(symbol->errtxt, "309: Input too long"); return ZINT_ERROR_TOO_LONG; } error_number = is_sane(NEON, source, length); if (error_number == ZINT_ERROR_INVALID_DATA) { strcpy(symbol->errtxt, "310: Invalid characters in data"); return error_number; } temp[0] = '\0'; /* Input must be an even number of characters for Interlaced 2 of 5 to work: if an odd number of characters has been entered then add a leading zero */ if (length & 1) { ustrcpy(temp, "0"); length++; } ustrncat(temp, source, length); /* start character */ strcpy(dest, "1111"); for (i = 0; i < length; i += 2) { int k = 0; /* look up the bars and the spaces and put them in two strings */ bars[0] = '\0'; lookup(NEON, C25InterTable, temp[i], bars); spaces[0] = '\0'; lookup(NEON, C25InterTable, temp[i + 1], spaces); /* then merge (interlace) the strings together */ for (j = 0; j <= 4; j++) { mixed[k] = bars[j]; k++; mixed[k] = spaces[j]; k++; } mixed[k] = '\0'; strcat(dest, mixed); } /* Stop character */ strcat(dest, "311"); expand(symbol, dest); ustrcpy(symbol->text, temp); return error_number; } /* Interleaved 2-of-5 (ITF) */ INTERNAL int itf14(struct zint_symbol *symbol, unsigned char source[], int length) { int i, error_number, zeroes; unsigned int count; char localstr[16]; count = 0; if (length > 13) { strcpy(symbol->errtxt, "311: Input too long"); return ZINT_ERROR_TOO_LONG; } error_number = is_sane(NEON, source, length); if (error_number == ZINT_ERROR_INVALID_DATA) { strcpy(symbol->errtxt, "312: Invalid character in data"); return error_number; } /* Add leading zeros as required */ zeroes = 13 - length; for (i = 0; i < zeroes; i++) { localstr[i] = '0'; } ustrcpy(localstr + zeroes, source); /* Calculate the check digit - the same method used for EAN-13 */ for (i = 12; i >= 0; i--) { count += ctoi(localstr[i]); if (!(i & 1)) { count += 2 * ctoi(localstr[i]); } } localstr[13] = check_digit(count); localstr[14] = '\0'; error_number = interleaved_two_of_five(symbol, (unsigned char *) localstr, 14); ustrcpy(symbol->text, localstr); if (!((symbol->output_options & BARCODE_BOX) || (symbol->output_options & BARCODE_BIND))) { // If no option has been selected then uses default box option symbol->output_options |= BARCODE_BOX; if (symbol->border_width == 0) { /* Allow override if non-zero */ /* GS1 General Specifications 21.0.1 Sections 5.3.2.4 & 5.3.6 (4.83 / 1.016 ~ 4.75) */ symbol->border_width = 5; /* Note change from previous value 8 */ } } return error_number; } /* Deutshe Post Leitcode */ INTERNAL int dpleit(struct zint_symbol *symbol, unsigned char source[], int length) { int i, error_number; unsigned int count; char localstr[16]; int zeroes; count = 0; if (length > 13) { strcpy(symbol->errtxt, "313: Input wrong length"); return ZINT_ERROR_TOO_LONG; } error_number = is_sane(NEON, source, length); if (error_number == ZINT_ERROR_INVALID_DATA) { strcpy(symbol->errtxt, "314: Invalid characters in data"); return error_number; } zeroes = 13 - length; for (i = 0; i < zeroes; i++) localstr[i] = '0'; ustrcpy(localstr + zeroes, source); for (i = 12; i >= 0; i--) { count += 4 * ctoi(localstr[i]); if (i & 1) { count += 5 * ctoi(localstr[i]); } } localstr[13] = check_digit(count); localstr[14] = '\0'; error_number = interleaved_two_of_five(symbol, (unsigned char *) localstr, 14); ustrcpy(symbol->text, localstr); return error_number; } /* Deutsche Post Identcode */ INTERNAL int dpident(struct zint_symbol *symbol, unsigned char source[], int length) { int i, error_number, zeroes; unsigned int count; char localstr[16]; count = 0; if (length > 11) { strcpy(symbol->errtxt, "315: Input wrong length"); return ZINT_ERROR_TOO_LONG; } error_number = is_sane(NEON, source, length); if (error_number == ZINT_ERROR_INVALID_DATA) { strcpy(symbol->errtxt, "316: Invalid characters in data"); return error_number; } zeroes = 11 - length; for (i = 0; i < zeroes; i++) localstr[i] = '0'; ustrcpy(localstr + zeroes, source); for (i = 10; i >= 0; i--) { count += 4 * ctoi(localstr[i]); if (i & 1) { count += 5 * ctoi(localstr[i]); } } localstr[11] = check_digit(count); localstr[12] = '\0'; error_number = interleaved_two_of_five(symbol, (unsigned char *) localstr, 12); ustrcpy(symbol->text, localstr); return error_number; }