Qzint , need change pro from lib to subfolder, config +=ordered, to add

zint as subproyect

3rdparty/zint-2.4.4/backend/medical.c

@@ -0,0 +1,308 @@
+/* medical.c - Handles 1 track and 2 track pharmacode and Codabar */
+
+/*
+    libzint - the open source barcode library
+    Copyright (C) 2008 Robin Stuart <robin@zint.org.uk>
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License along
+    with this program; if not, write to the Free Software Foundation, Inc.,
+    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+*/
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include "common.h"
+
+extern int c39(struct zint_symbol *symbol, unsigned char source[], int length);
+/* Codabar table checked against EN 798:1995 */
+
+#define CALCIUM	"0123456789-$:/.+ABCD"
+
+static char *CodaTable[20] = {"11111221", "11112211", "11121121", "22111111", "11211211", "21111211",
+	"12111121", "12112111", "12211111", "21121111", "11122111", "11221111", "21112121", "21211121",
+	"21212111", "11212121", "11221211", "12121121", "11121221", "11122211"};
+
+int pharma_one(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 */
+
+	unsigned long int tester;
+	int counter, error_number, h;
+	char inter[18] = { 0 }; /* 131070 -> 17 bits */
+	char dest[64]; /* 17 * 2 + 1 */
+	
+	error_number = 0;
+
+	if(length > 6) {
+		strcpy(symbol->errtxt, "Input too long");
+		return ERROR_TOO_LONG;
+	}
+	error_number = is_sane(NEON, source, length);
+    if(error_number == ERROR_INVALID_DATA1) {
+		strcpy(symbol->errtxt, "Invalid characters in data");
+		return error_number;
+	}
+
+	tester = atoi((char*)source);
+
+	if((tester < 3) || (tester > 131070)) {
+		strcpy(symbol->errtxt, "Data out of range");
+        return ERROR_INVALID_DATA1;
+	}
+
+	do
+	{
+		if(!(tester & 1)) {
+			concat(inter, "W");
+			tester = (tester - 2) / 2;
+		} else {
+			concat(inter, "N");
+			tester = (tester - 1) / 2;
+		}
+	}
+	while(tester != 0);
+
+	h = strlen(inter) - 1;
+	*dest = '\0';
+	for(counter = h; counter >= 0; counter--) {
+		if(inter[counter] == 'W') {
+			concat(dest, "32");
+		} else {
+			concat(dest, "12");
+		}
+	}
+	
+	expand(symbol, dest);
+
+	return error_number;
+}
+
+int pharma_two_calc(struct zint_symbol *symbol, unsigned char source[], char dest[])
+{
+	/* 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. */
+
+	unsigned long int tester;
+	int counter, h;
+	char inter[17];
+	int error_number;
+	
+	tester = atoi((char*)source);
+
+	if((tester < 4) || (tester > 64570080))
+	{
+		strcpy(symbol->errtxt, "Data out of range");
+        return ERROR_INVALID_DATA1;
+	}
+	error_number = 0;
+	strcpy(inter, "");
+	do
+	{
+		switch(tester%3) {
+			case 0:
+			concat(inter, "3");
+			tester = (tester - 3) / 3;
+			break;
+			case 1:
+			concat(inter, "1");
+			tester = (tester - 1) / 3;
+			break;
+			case 2:
+			concat(inter, "2");
+			tester = (tester - 2) / 3;
+			break;
+		}
+	}
+	while(tester != 0);
+
+	h = strlen(inter) - 1;
+	for(counter = h; counter >= 0; counter--)
+	{
+		dest[h - counter] = inter[counter];
+	}
+	dest[h + 1] = '\0';
+	
+	return error_number;
+}
+
+int pharma_two(struct zint_symbol *symbol, unsigned char source[], int length)
+{
+	/* Draws the patterns for two track pharmacode */
+	char height_pattern[200];
+	unsigned int loopey, h;
+	int writer;
+	int error_number = 0;
+	strcpy(height_pattern, "");
+
+	if(length > 8) {
+		strcpy(symbol->errtxt, "Input too long");
+		return ERROR_TOO_LONG;
+	}
+	error_number = is_sane(NEON, source, length);
+    if(error_number == ERROR_INVALID_DATA1) {
+		strcpy(symbol->errtxt, "Invalid characters in data");
+		return error_number;
+	}
+	error_number = pharma_two_calc(symbol, source, height_pattern);
+	if(error_number != 0) {
+		return error_number;
+	}
+
+	writer = 0;
+	h = strlen(height_pattern);
+	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;
+	
+
+	return error_number;
+}
+
+int codabar(struct zint_symbol *symbol, unsigned char source[], int length)
+{ /* The Codabar system consisting of simple substitution */
+
+	int i, error_number;
+	char dest[512];
+	
+	error_number = 0;
+	strcpy(dest, "");
+
+	if(length > 60) { /* No stack smashing please */
+		strcpy(symbol->errtxt, "Input too long");
+		return ERROR_TOO_LONG;
+	}
+	to_upper(source);
+	error_number = is_sane(CALCIUM, source, length);
+    if(error_number == ERROR_INVALID_DATA1) {
+		strcpy(symbol->errtxt, "Invalid characters in data");
+		return error_number;
+	}
+	/* 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, "Invalid characters in data");
+        return ERROR_INVALID_DATA1;
+	}
+
+	if((source[length - 1] != 'A') && (source[length - 1] != 'B') &&
+		    (source[length - 1] != 'C') && (source[length - 1] != 'D'))
+	{
+		strcpy(symbol->errtxt, "Invalid characters in data");
+        return ERROR_INVALID_DATA1;
+	}
+
+	for(i = 0; i < length; i++)
+	{
+		lookup(CALCIUM, CodaTable, source[i], dest);
+	}
+	
+	expand(symbol, dest);
+	ustrcpy(symbol->text, source);
+	return error_number;
+}
+
+int code32(struct zint_symbol *symbol, unsigned char source[], int length)
+{ /* Italian Pharmacode */
+	int i, zeroes, error_number, checksum, checkpart, checkdigit;
+	char localstr[10], risultante[7];
+	long int pharmacode, remainder, devisor;
+	int codeword[6];
+	char tabella[34];
+	
+	/* Validate the input */
+	if(length > 8) {
+		strcpy(symbol->errtxt, "Input too long");
+		return ERROR_TOO_LONG;
+	}
+	error_number = is_sane(NEON, source, length);
+    if(error_number == ERROR_INVALID_DATA1) {
+		strcpy(symbol->errtxt, "Invalid characters in data");
+		return error_number;
+	}
+	
+	/* Add leading zeros as required */
+	zeroes = 8 - length;
+	memset(localstr, '0', zeroes);
+	strcpy(localstr + zeroes, (char*)source);
+	
+	/* Calculate the check digit */
+	checksum = 0;
+	checkpart = 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--) {
+		codeword[i] = pharmacode / devisor;
+		remainder = pharmacode % devisor;
+		pharmacode = remainder;
+		devisor /= 32;
+	}
+	
+	/* Look up values in 'Tabella di conversione' */
+	strcpy(tabella, "0123456789BCDFGHJKLMNPQRSTUVWXYZ");
+	for(i = 5; i >= 0; i--) {
+		risultante[5 - i] = tabella[codeword[i]];
+	}
+	risultante[6] = '\0';
+	/* Plot the barcode using Code 39 */
+	error_number = c39(symbol, (unsigned char*)risultante, strlen(risultante));
+	if(error_number != 0) { return error_number; }
+	
+	/* Override the normal text output with the Pharmacode number */
+	ustrcpy(symbol->text, (unsigned char*)"A");
+	uconcat(symbol->text, (unsigned char*)localstr);
+	
+	return error_number;
+}