mirrors/zint
2
0
Fork 0
mirror of https://github.com/zint/zint synced 2024-11-16 20:57:25 +13:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add Code 32 and change _errno_ to error_number

Browse Source
This commit is contained in:
hooper114 2008-09-02 19:44:41 +00:00
parent 126d3a71e1
commit 108c317baa
1 changed files with 106 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
backend/medical.c
View File

@ -27,6 +27,7 @@
/* Codabar table checked against EN 798:1995 */
#define CASET "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"};
@ -48,20 +49,20 @@ int pharma_one(struct zint_symbol *symbol, unsigned char source[])
unsigned long int tester;
int counter;
char inter[17];
int _errno_;
int error_number;
char dest[1000];
_errno_ = 0;
error_number = 0;
strcpy(dest, "");
if(strlen(source) > 6) {
strcpy(symbol->errtxt, "error: input too long");
return ERROR_TOO_LONG;
}
_errno_ = is_sane(NESET, source);
if(_errno_ == ERROR_INVALID_DATA) {
error_number = is_sane(NESET, source);
if(error_number == ERROR_INVALID_DATA) {
strcpy(symbol->errtxt, "error: invalid characters in data");
return _errno_;
return error_number;
}
strcpy(inter, "");
@ -94,7 +95,7 @@ int pharma_one(struct zint_symbol *symbol, unsigned char source[])
expand(symbol, dest);
strcpy(symbol->text, "");
return _errno_;
return error_number;
}
int pharma_two_calc(struct zint_symbol *symbol, unsigned char source[], char dest[])
@ -107,9 +108,9 @@ int pharma_two_calc(struct zint_symbol *symbol, unsigned char source[], char des
unsigned long int tester;
int counter;
char inter[17];
int _errno_;
int error_number;
_errno_ = 0;
error_number = 0;
strcpy(dest, "");
strcpy(inter, "");
@ -145,7 +146,7 @@ int pharma_two_calc(struct zint_symbol *symbol, unsigned char source[], char des
}
dest[strlen(inter)] = '\0';
return _errno_;
return error_number;
}
int pharma_two(struct zint_symbol *symbol, unsigned char source[])
@ -154,21 +155,21 @@ int pharma_two(struct zint_symbol *symbol, unsigned char source[])
char height_pattern[200];
unsigned int loopey;
int writer;
int _errno_ = 0;
int error_number = 0;
strcpy(height_pattern, "");
if(strlen(source) > 8) {
strcpy(symbol->errtxt, "error: input too long");
return ERROR_TOO_LONG;
}
_errno_ = is_sane(NESET, source);
if(_errno_ == ERROR_INVALID_DATA) {
error_number = is_sane(NESET, source);
if(error_number == ERROR_INVALID_DATA) {
strcpy(symbol->errtxt, "error: invalid characters in data");
return _errno_;
return error_number;
}
_errno_ = pharma_two_calc(symbol, source, height_pattern);
if(_errno_ != 0) {
return _errno_;
error_number = pharma_two_calc(symbol, source, height_pattern);
if(error_number != 0) {
return error_number;
}
writer = 0;
@ -188,16 +189,16 @@ int pharma_two(struct zint_symbol *symbol, unsigned char source[])
symbol->width = writer - 1;
strcpy(symbol->text, "");
return _errno_;
return error_number;
}
int codabar(struct zint_symbol *symbol, unsigned char source[])
{ /* The Codabar system consisting of simple substitution */
int i, _errno_;
int i, error_number;
char dest[1000];
_errno_ = 0;
error_number = 0;
strcpy(dest, "");
if(strlen(source) > 60) { /* No stack smashing please */
@ -205,10 +206,10 @@ int codabar(struct zint_symbol *symbol, unsigned char source[])
return ERROR_TOO_LONG;
}
to_upper(source);
_errno_ = is_sane(CASET, source);
if(_errno_ == ERROR_INVALID_DATA) {
error_number = is_sane(CASET, source);
if(error_number == ERROR_INVALID_DATA) {
strcpy(symbol->errtxt, "error: invalid characters in data");
return _errno_;
return error_number;
}
/* Codabar must begin and end with the characters A, B, C or D */
@ -233,5 +234,87 @@ int codabar(struct zint_symbol *symbol, unsigned char source[])
expand(symbol, dest);
strcpy(symbol->text, source);
return _errno_;
return error_number;
}
int code32(struct zint_symbol *symbol, unsigned char source[])
{ /* Italian Pharmacode */
int i, zeroes, error_number, checksum, checkpart, checkdigit;
char localstr[10], tempstr[2], risultante[7];
long int pharmacode, remainder, devisor;
int codeword[6];
char tabella[34];
/* Validate the input */
if(strlen(source) > 8) {
strcpy(symbol->errtxt, "error: input too long");
return ERROR_TOO_LONG;
}
error_number = is_sane(NESET, source);
if(error_number == ERROR_INVALID_DATA) {
strcpy(symbol->errtxt, "error: invalid characters in data");
return error_number;
}
/* Add leading zeros as required */
strcpy(localstr, "");
zeroes = 8 - strlen(source);
for(i = 0; i < zeroes; i++) {
concat(localstr, "0");
}
concat(localstr, 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;
tempstr[0] = itoc(checkdigit);
tempstr[1] = '\0';
concat(localstr, tempstr);
/* Convert string into an integer value */
pharmacode = 0;
for(i = 0; i < 9; i++) {
pharmacode *= 10;
pharmacode += ctoi(localstr[i]);
}
/* 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");
strcpy(risultante, "");
for(i = 5; i >= 0; i--) {
tempstr[0] = tabella[codeword[i]];
concat(risultante, tempstr);
}
/* Plot the barcode using Code 39 */
error_number = c39(symbol, risultante);
if(error_number != 0) { return error_number; }
/* Override the normal text output with the Pharmacode number */
strcpy(symbol->text, "A");
concat(symbol->text, localstr);
return error_number;
}