konto_check 6.01.0 → 6.02.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: e0b9ecf2e4612120b79bfbcbb3adbb22c3ded7e6
-  data.tar.gz: 4684d17c54d69b0cc1b01672918ce46f53ca598d
+  metadata.gz: e4a2b9a4eaf3c213df26bdba2049de70c77dcdba
+  data.tar.gz: d93390ab90f68728cde22531c7d9ff2e6ab9ec38
 SHA512:
-  metadata.gz: 156dc5a16fb7ed68ef304ca003c759e53a49779f581044f49a0fdedb394559b41925702cf0b2a30038bdb4a42b7ceb44c45e176a18fd9a17c0631242ded86adf
-  data.tar.gz: fd5eb01b83dccb3681c159081dfd845859ec7deb1ae38208e49c030374845f277ee898946158533c859735a1231f4ca295237194b0e525938d760c3067acda7e
+  metadata.gz: 0316ff43346a0960a890306f58d570a114f58fff702a26f35c3f857c090a6ef39dca17984f6adc58cff4633a8f5ee110afa054daae7976e7d5e4a236a3c403b1
+  data.tar.gz: b504964df3f12767ece6506e9653e4af0e22855ef970937651ceb84a4917023b6f5c92f14afcddef362033b7a2eb453ee07e802007c8c30ddc994906e8b77f2a

data/ext/konto_check_raw/konto_check.c

@@ -45,14 +45,15 @@
  * # im Internet herunterladen.                                             #
  * ##########################################################################
  */
+#line 332 "ruby/ext/konto_check_raw/konto_check.lxx"
 
 /* Definitionen und Includes  */
 #ifndef VERSION
-#define VERSION "6.01 (final)"
+#define VERSION "6.02 (final)"
 #define VERSION_MAJOR 6
-#define VERSION_MINOR 01
+#define VERSION_MINOR 02
 #endif
-#define VERSION_DATE "2017-08-13"
+#define VERSION_DATE "2017-11-26"
 
 #ifndef INCLUDE_KONTO_CHECK_DE
 #define INCLUDE_KONTO_CHECK_DE 1
@@ -103,8 +104,8 @@ static lzo_align_t __LZO_MMODEL wrkmem[LZO1X_1_MEM_COMPRESS];
 #define KONTO_CHECK_VARS
 #include "konto_check.h"
 
-   /* Flag, um die �nderungen zum September 2017 zu aktivieren */
-static int pz_aenderungen_aktivieren_2017_09;
+   /* Flag, um die �nderungen zum Dezember 2017 zu aktivieren */
+static int pz_aenderungen_aktivieren_2017_12;
 
    /* falls die Variable verbose_debug gesetzt wird, werden bei einigen
     * Funktionen mittels perror() zus�tzliche Debuginfos ausgegeben. Die
@@ -241,6 +242,7 @@ static int convert_encoding(char **data,UINT4 *len);
 #define free(ptr) efree(ptr)
 #endif
 
+#line 770 "ruby/ext/konto_check_raw/konto_check.lxx"
 
    /* Testwert zur Markierung ung�ltiger Ziffern im BLZ-String (>8 Stellen) */
 #define BLZ_FEHLER 100000000
@@ -376,6 +378,7 @@ static int convert_encoding(char **data,UINT4 *len);
     */
 #define CHECK_RETVAL(fkt) do{if((retval=fkt)!=OK)goto fini;}while(0)     /* es mu� noch aufger�umt werden, daher goto */
 #define CHECK_RETURN(fkt) do{if((retval=fkt)!=OK)return retval;}while(0)
+#line 911 "ruby/ext/konto_check_raw/konto_check.lxx"
 
    /* einige Makros zur Umwandlung zwischen unsigned int und char */
 #define UCP  (unsigned char*)
@@ -495,6 +498,7 @@ int pz=-777;
 
 #define E_START(x)
 #define E_END(x)
+#line 1036 "ruby/ext/konto_check_raw/konto_check.lxx"
 
    /* Variable f�r die Methoden 27, 29 und 69 */
 static const int m10h_digits[4][10]={
@@ -943,6 +947,7 @@ static int create_lutfile_int(char *name, char *prolog, int slots,FILE **lut)
  * ###########################################################################
  */
 
+#line 1485 "ruby/ext/konto_check_raw/konto_check.lxx"
 DLL_EXPORT int write_lut_block(char *lutname,UINT4 typ,UINT4 len,char *data)
 {
    char buffer[SLOT_BUFFER],*ptr;
@@ -980,6 +985,7 @@ DLL_EXPORT int write_lut_block(char *lutname,UINT4 typ,UINT4 len,char *data)
  * #############################################################################
  */
 
+#line 1523 "ruby/ext/konto_check_raw/konto_check.lxx"
 static int write_lut_block_int(FILE *lut,UINT4 typ,UINT4 len,char *data)
 {
    char buffer[SLOT_BUFFER],*ptr,*cptr;
@@ -1115,6 +1121,7 @@ static int write_lut_block_int(FILE *lut,UINT4 typ,UINT4 len,char *data)
  * ###########################################################################
  */
 
+#line 1659 "ruby/ext/konto_check_raw/konto_check.lxx"
 DLL_EXPORT int read_lut_block(char *lutname, UINT4 typ,UINT4 *blocklen,char **data)
 {
    int retval;
@@ -1137,6 +1144,7 @@ DLL_EXPORT int read_lut_block(char *lutname, UINT4 typ,UINT4 *blocklen,char **da
  * ###########################################################################
  */
 
+#line 1683 "ruby/ext/konto_check_raw/konto_check.lxx"
 DLL_EXPORT int read_lut_slot(char *lutname,int slot,UINT4 *blocklen,char **data)
 {
    int retval;
@@ -1158,6 +1166,7 @@ DLL_EXPORT int read_lut_slot(char *lutname,int slot,UINT4 *blocklen,char **data)
  * ###########################################################################
  */
 
+#line 1706 "ruby/ext/konto_check_raw/konto_check.lxx"
 static int read_lut_block_int(FILE *lut,int slot,int typ,UINT4 *blocklen,char **data)
 {
    char buffer[SLOT_BUFFER],*ptr,*sbuffer,*dbuffer;
@@ -1247,6 +1256,7 @@ static int read_lut_block_int(FILE *lut,int slot,int typ,UINT4 *blocklen,char **
             FREE(sbuffer);
             RETURN(ERROR_MALLOC);
          }
+#line 1811 "ruby/ext/konto_check_raw/konto_check.lxx"
 
          if(fread(sbuffer,1,compressed_len,lut)<compressed_len){
             FREE(sbuffer);
@@ -2839,6 +2849,7 @@ DLL_EXPORT int lut_info_id(char *lut_name,int *info1,int *info2,int *valid1,int
  * ###########################################################################
  */
 
+#line 3404 "ruby/ext/konto_check_raw/konto_check.lxx"
 DLL_EXPORT int lut_info(char *lut_name,char **info1,char **info2,int *valid1,int *valid2)
 {
    char *ptr,*ptr1,buffer[128];
@@ -2926,6 +2937,7 @@ DLL_EXPORT int lut_info(char *lut_name,char **info1,char **info2,int *valid1,int
 
       /* Infoblocks lesen: 1. Infoblock */
    if((ret=read_lut_block_int(in,0,LUT2_INFO,&cnt,&ptr))==OK){
+#line 3493 "ruby/ext/konto_check_raw/konto_check.lxx"
       *(ptr+cnt)=0;
       if(valid1){
          for(ptr1=ptr,v1=v2=0;*ptr1 && *ptr1!='\n' && !isdigit(*ptr1);ptr1++);
@@ -2973,6 +2985,7 @@ DLL_EXPORT int lut_info(char *lut_name,char **info1,char **info2,int *valid1,int
 
       /* Infoblocks lesen: 2. Infoblock */
    if((ret=read_lut_block_int(in,0,LUT2_2_INFO,&cnt,&ptr))==OK){
+#line 3542 "ruby/ext/konto_check_raw/konto_check.lxx"
       *(ptr+cnt)=0;
       if(valid2){
          for(ptr1=ptr,v1=v2=0;*ptr1 && *ptr1!='\n' && !isdigit(*ptr1);ptr1++);
@@ -3191,6 +3204,7 @@ DLL_EXPORT int copy_lutfile(char *old_name,char *new_name,int new_slots)
    qsort(slotdir,slot_cnt,sizeof(int),cmp_int);
    for(last_slot=-1,i=0;i<(int)slot_cnt;i++)if((typ=slotdir[i]) && typ!=(UINT4)last_slot){
       read_lut_block_int(lut1,0,typ,&len,&data);
+#line 3762 "ruby/ext/konto_check_raw/konto_check.lxx"
       write_lut_block_int(lut2,typ,len,data);
       FREE(data);
       last_slot=typ;
@@ -3420,6 +3434,7 @@ DLL_EXPORT int lut_init(char *lut_name,int required,int set)
  * # Copyright (C) 2008 Michael Plugge <m.plugge@hs-mannheim.de>             #
  * ###########################################################################
  */
+#line 3992 "ruby/ext/konto_check_raw/konto_check.lxx"
 DLL_EXPORT int kto_check_init(char *lut_name,int *required,int **status,int set,int incremental)
 {
    char *ptr,*dptr,*data,*eptr,*prolog,*info,*user_info,*hs=NULL,*info1,*info2,*ci=NULL,name_buffer[LUT_PATH_LEN];
@@ -3647,6 +3662,7 @@ DLL_EXPORT int kto_check_init(char *lut_name,int *required,int **status,int set,
          typ1=typ;
       if(lut2_block_status[typ]==OK)continue;   /* jeden Block nur einmal einlesen */
       retval=read_lut_block_int(lut,0,typ,&len,&data);
+#line 4221 "ruby/ext/konto_check_raw/konto_check.lxx"
 
       switch(retval){
          case LUT_CRC_ERROR:
@@ -3734,6 +3750,7 @@ DLL_EXPORT int kto_check_init(char *lut_name,int *required,int **status,int set,
             if(typ==LUT2_2_NAME || typ==LUT2_2_NAME_KURZ){
                FREE(data);
                i=read_lut_block_int(lut,0,LUT2_2_NAME_NAME_KURZ,&len,&data);
+#line 4313 "ruby/ext/konto_check_raw/konto_check.lxx"
                if(i==OK){  /* was gefunden; Typ �ndern, dann weiter wie bei OK */
                   typ=LUT2_2_NAME_NAME_KURZ;
                   typ1=LUT2_NAME_NAME_KURZ;
@@ -4329,6 +4346,7 @@ DLL_EXPORT int lut_blocks_id(int mode,int *lut_filename,int *lut_blocks_ok,int *
  * ###########################################################################
  */
 
+#line 4909 "ruby/ext/konto_check_raw/konto_check.lxx"
 DLL_EXPORT const char *current_lutfile_name(int *set,int *level,int *retval)
 {
    if(init_status<7 || !current_lutfile){
@@ -5083,6 +5101,7 @@ static int iban_init(void)
  * ###########################################################################
  */
 
+#line 5664 "ruby/ext/konto_check_raw/konto_check.lxx"
 static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_version,RETVAL *retvals)
 {
    char tmp_buffer[16];
@@ -8155,140 +8174,6 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
       case 45:
 
             /* ab September 2017 entf�llt die Regel 45, bleibt jedoch frei */
-         if(pz_aenderungen_aktivieren_2017_09)return OK;
-
-            /* Einer nach der Standard IBAN-Regel ermittelten IBAN ist stets
-             * der BIC ESSEDE5FXXX zuzuordnen.
-             */
-         if(version<1){
-               *bicp="ESSEDE5FXXX";
-               return OK_BLZ_REPLACED;
-         }
-         else switch(b){   /* Ab Dezember 2013 wird eine Liste von BLZs angegeben */
-            case 50210130:
-            case 50210131:
-            case 50210132:
-            case 50210133:
-            case 50210134:
-            case 50210135:
-            case 50210136:
-            case 50210137:
-            case 50210138:
-            case 50210139:
-            case 50210140:
-            case 50210141:
-            case 50210142:
-            case 50210143:
-            case 50210144:
-            case 50210145:
-            case 50210146:
-            case 50210147:
-            case 50210148:
-            case 50210149:
-            case 50210150:
-            case 50210151:
-            case 50210152:
-            case 50210153:
-            case 50210154:
-            case 50210155:
-            case 50210156:
-            case 50210157:
-            case 50210158:
-            case 50210159:
-            case 50210160:
-            case 50210161:
-            case 50210162:
-            case 50210163:
-            case 50210164:
-            case 50210165:
-            case 50210166:
-            case 50210167:
-            case 50210168:
-            case 50210169:
-            case 50210170:
-            case 50210171:
-            case 50210172:
-            case 50210173:
-            case 50210174:
-            case 50210175:
-            case 50210176:
-            case 50210177:
-            case 50210178:
-            case 50210179:
-            case 50210180:
-            case 50210181:
-            case 50210182:
-            case 50210183:
-            case 50210184:
-            case 50210185:
-            case 50210186:
-            case 50210187:
-            case 50210188:
-            case 50210189:
-            case 50510120:
-            case 50510121:
-            case 50510122:
-            case 50510123:
-            case 50510124:
-            case 50510125:
-            case 50510126:
-            case 50510127:
-            case 50510128:
-            case 50510129:
-            case 50510130:
-            case 50510131:
-            case 50510132:
-            case 50510133:
-            case 50510134:
-            case 50510135:
-            case 50510136:
-            case 50510137:
-            case 50510138:
-            case 50510139:
-            case 50510140:
-            case 50510141:
-            case 50510142:
-            case 50510143:
-            case 50510144:
-            case 50510145:
-            case 50510146:
-            case 50510147:
-            case 50510148:
-            case 50510149:
-            case 50510150:
-            case 50510151:
-            case 50510152:
-            case 50510153:
-            case 50510154:
-            case 50510155:
-            case 50510156:
-            case 50510157:
-            case 50510158:
-            case 50510159:
-            case 50510160:
-            case 50510161:
-            case 50510162:
-            case 50510163:
-            case 50510164:
-            case 50510165:
-            case 50510166:
-            case 50510167:
-            case 50510168:
-            case 50510169:
-            case 50510170:
-            case 50510171:
-            case 50510172:
-            case 50510173:
-            case 50510174:
-            case 50510175:
-            case 50510176:
-            case 50510177:
-            case 50510178:
-            case 50510179:
-            case 50510180:
-               *bicp="ESSEDE5FXXX";
-               return OK_BLZ_REPLACED;
-         }
          return OK;
 
 
@@ -8526,9 +8411,12 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
 
          /* Iban-Regel 0056.00 +���3 */
          /* Iban-Regel 0056.01 (ab September 2017) +���3 */
+         /* Iban-Regel 0056.01 (ab Dezember 2017) BLZ 51410111 ung�ltig +���3 */
+
+
          /* SEB AG */
       case 56:
-         if(!pz_aenderungen_aktivieren_2017_09 || (pz_aenderungen_aktivieren_2017_09 && version<1)){
+         if(version<1){
 
                /* Spendenkonten: nur mit festgelegten IBANs -> Konto und evl. BLZ/BIC anpassen */
             if(k1==0)switch(k2){
@@ -8580,6 +8468,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          }
 
             /* f�r die folgenden BLZs sind nur zehnstelllige Kontonummern erlaubt: */
+         if(pz_aenderungen_aktivieren_2017_12 && b==51410111)return INVALID_BLZ; /* die BLZ wird ab Dezember 2017 ung�ltig */
          switch(b){
             case 10010111:
             case 13010111:
@@ -8619,7 +8508,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
             case 50510111:
             case 51010111:
             case 51310111:
-            case 51410111:
+            case 51410111:    /* wird ab Dezember 2017 ung�ltig */
             case 52010111:
             case 54210111:
             case 55010111:
@@ -8668,6 +8557,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
    }
 }
 
+#line 9120 "ruby/ext/konto_check_raw/konto_check.lxx"
 /* Funktion lut_multiple() +���2 */
 /* ###########################################################################
  * # lut_multiple(): Universalfunktion, um zu einer gegebenen Bankleitzahl   #
@@ -8935,6 +8825,7 @@ DLL_EXPORT int lut_cleanup(void)
    FREE(sort_pz_f);
    FREE(sort_plz);
    FREE(sort_iban_regel);
+#line 9382 "ruby/ext/konto_check_raw/konto_check.lxx"
    if(name_raw && name_data!=name_raw)
       FREE(name_raw);
    else
@@ -9003,6 +8894,7 @@ DLL_EXPORT int lut_cleanup(void)
       lut_cleanup(); /* neuer Versuch, aufzur�umen */
       RETURN(INIT_FATAL_ERROR);
    }
+#line 9456 "ruby/ext/konto_check_raw/konto_check.lxx"
    init_status&=1;
    init_in_progress=0;
    return OK;
@@ -9175,8 +9067,8 @@ static void init_atoi_table(void)
    int i,ziffer;
    unsigned long l;
 
-      /* �nderungen zum 04.09.2017 aktivieren */
-   if(time(NULL)>1504476000 ||0)pz_aenderungen_aktivieren_2017_09=1;
+      /* �nderungen zum 04.12.2017 aktivieren */
+   if(time(NULL)>1512342000 ||0)pz_aenderungen_aktivieren_2017_12=1;
 
    /* ung�ltige Ziffern; Blanks und Tabs werden ebenfalls als ung�ltig
     * angesehen(!), da die Stellenzuordnung sonst nicht mehr stimmt. Ausnahme:
@@ -9441,6 +9333,7 @@ static void init_atoi_table(void)
    lut_block_name2[126]="2. IBAN Regel idx";
    lut_block_name2[127]="2. BIC Hauptst.idx";
    lut_blocklen_max=453;
+#line 9696 "ruby/ext/konto_check_raw/konto_check.lxx"
    init_status|=1;
 }
 
@@ -9500,6 +9393,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
 
    switch(pz_methode){
 
+#line 9759 "ruby/ext/konto_check_raw/konto_check.lxx"
 /* Berechnungsmethoden 00 bis 09 +���3
    Berechnung nach der Methode 00 +���4 */
 /*
@@ -11834,6 +11728,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * ######################################################################
  */
 
+#line 11770 "ruby/ext/konto_check_raw/konto_check.lxx"
       case 51:
          if(*(kto+2)=='9'){   /* Ausnahme */
 
@@ -12095,6 +11990,8 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
          else
             return FALSE;
 
+#line 11984 "ruby/ext/konto_check_raw/konto_check.lxx"
+#line 11986 "ruby/ext/konto_check_raw/konto_check.lxx"
 /*  Berechnung nach der Methode 53 +���4 */
 /*
  * ######################################################################
@@ -12393,6 +12290,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # bewerten.                                                          #
  * ######################################################################
  */
+#line 12255 "ruby/ext/konto_check_raw/konto_check.lxx"
       case 57:
 #if DEBUG>0
          if(retvals){
@@ -13038,6 +12936,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # Pr�fzifferberechnung)                                              #
  * ######################################################################
  */
+#line 12835 "ruby/ext/konto_check_raw/konto_check.lxx"
       case 66:
 #if DEBUG>0
       case 2066:
@@ -18374,7 +18273,6 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
          }
 #endif
             /* Variante 3, g�ltig ab September 2017 */
-         if(!pz_aenderungen_aktivieren_2017_09)return UNDEFINED_SUBMETHOD;
          pz = (kto[0]-'0') * 4
             + (kto[1]-'0') * 3
             + (kto[2]-'0') * 2
@@ -20449,6 +20347,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
          return NOT_IMPLEMENTED;
    }
 }
+#line 19049 "ruby/ext/konto_check_raw/konto_check.lxx"
 
 /*
  * ######################################################################
@@ -20546,9 +20445,10 @@ DLL_EXPORT int kto_check_blz(char *blz,char *kto)
 #if DEBUG>0    /* es werden einige Funktionen benutzt, die nur in der Debug-Variante enthalten sind */
 DLL_EXPORT int kto_check_regel_dbg(char *blz,char *kto,char *blz2,char *kto2,const char **bic,int *regel,RETVAL *retvals)
 {
+#line 19147 "ruby/ext/konto_check_raw/konto_check.lxx"
    char *blz_o,buffer[32],kto_o[16],*blz_n,*kto_n,*ptr,*dptr;
    const char *bicp;
-   int ret,ret_regel,r;
+   int ret,ret_regel,r,i;
 
    if(regel)*regel=0;
    if(blz2 && kto2){
@@ -20560,7 +20460,8 @@ DLL_EXPORT int kto_check_regel_dbg(char *blz,char *kto,char *blz2,char *kto2,con
       kto_n=buffer+10;
    }
    memcpy(blz_n,blz,9);
-   for(ptr=kto;*ptr;ptr++);   /* Ende von kto suchen */
+   for(ptr=kto,i=0;*ptr && i++<10;ptr++);   /* Ende von kto suchen (maximal 10 Stellen) */
+   if(*ptr)return INVALID_KTO_LENGTH;
    ptr--;
    memcpy(kto_n,"0000000000",10);
    kto_n[10]=0;
@@ -20593,6 +20494,7 @@ DLL_EXPORT int kto_check_regel_dbg(char *blz,char *kto,char *blz2,char *kto2,con
    }
    else  /* BLZ und Kto gleich */
       return ret;
+#line 19196 "ruby/ext/konto_check_raw/konto_check.lxx"
 }
 
 #else   /* !DEBUG */
@@ -20603,10 +20505,11 @@ DLL_EXPORT int kto_check_regel(char *blz,char *kto)
 {
    char *blz_o,blz_n[10],kto_o[16],kto_n[16],*ptr,*dptr;
    const char *bicp;
-   int ret,ret_regel,regel;
+   int ret,ret_regel,regel,i;
 
    memcpy(blz_n,blz,9);
-   for(ptr=kto;*ptr;ptr++);   /* Ende von kto suchen */
+   for(ptr=kto,i=0;*ptr && i++<10;ptr++);   /* Ende von kto suchen (maximal 10 Stellen) */
+   if(*ptr)return INVALID_KTO_LENGTH;
    ptr--;
    memcpy(kto_n,"0000000000",10);
    kto_n[10]=0;
@@ -20742,6 +20645,7 @@ DLL_EXPORT int kto_check_blz_dbg(char *blz,char *kto,RETVAL *retvals)
  * # Copyright (C) 2007 Michael Plugge <m.plugge@hs-mannheim.de>             #
  * ###########################################################################
  */
+#line 19347 "ruby/ext/konto_check_raw/konto_check.lxx"
 DLL_EXPORT int kto_check_pz_dbg(char *pz,char *kto,char *blz,RETVAL *retvals)
 {
    int untermethode,pz_methode;
@@ -20977,6 +20881,7 @@ DLL_EXPORT int get_lut_info2_b(char *lutname,int *version,char **prolog_p,char *
    }
    else
       **user_info_p=0;
+#line 19568 "ruby/ext/konto_check_raw/konto_check.lxx"
    FREE(prolog);
    return OK;
 }
@@ -21111,20 +21016,20 @@ DLL_EXPORT const char *get_kto_check_version_x(int mode)
       case 3:
          return __DATE__ ", " __TIME__;    /* Compilierdatum und -zeit */
       case 4:                              /* Datum der Pr�fziffermethode */
-         if(pz_aenderungen_aktivieren_2017_09)
-            return "04.09.2017";
+         if(pz_aenderungen_aktivieren_2017_12)
+            return "04.12.2017";
          else
-            return "05.06.2017 (Aenderungen vom 04.09.2017 enthalten aber noch nicht aktiviert)";
+            return "04.09.2017 (Aenderungen vom 04.12.2017 enthalten aber noch nicht aktiviert)";
       case 5:
-        return "04.09.2017";
+        return "04.12.2017";
       case 6:
-        return "13. August 2017";            /* Klartext-Datum der Bibliotheksversion */
+        return "26. November 2017";            /* Klartext-Datum der Bibliotheksversion */
       case 7:
         return "final";              /* Versions-Typ der Bibliotheksversion (development, beta, final) */
       case 8:
         return "6";             /* Hauptversionszahl */
       case 9:
-        return "01";             /* Unterversionszahl */
+        return "02";             /* Unterversionszahl */
    }
 }
 
@@ -21270,6 +21175,7 @@ DLL_EXPORT int dump_lutfile(char *outputname,UINT4 *required)
       default:
          break;
    }
+#line 19801 "ruby/ext/konto_check_raw/konto_check.lxx"
    fputc('\n',out);
    while(--i)fputc('=',out);
    fputc('\n',out);
@@ -21594,6 +21500,7 @@ DLL_EXPORT const char *iban2bic_id(char *iban,int *retval,int *blz,int *kto)
    return iban2bic(iban,retval,b,k);
 }
 
+#line 20126 "ruby/ext/konto_check_raw/konto_check.lxx"
 /* Funktion iban_gen(), iban_bic_gen() und iban_bic_gen1 +���1 */
 /* ###########################################################################
  * # Die Funktion iban_gen generiert aus Bankleitzahl und Kontonummer eine   #
@@ -22426,6 +22333,7 @@ DLL_EXPORT int ipi_check(char *zweck)
  * # Copyright (C) 2009,2011 Michael Plugge <m.plugge@hs-mannheim.de>        #
  * ###########################################################################
  */
+#line 20959 "ruby/ext/konto_check_raw/konto_check.lxx"
 
 /* Funktion volltext_zeichen() +���2 */
 /* Diese Funktion gibt f�r Zeichen die bei der Volltextsuche g�ltig sind
@@ -23272,6 +23180,7 @@ static int qcmp_bic_h(const void *ap,const void *bp)
       return a-b;
 }
 
+#line 21806 "ruby/ext/konto_check_raw/konto_check.lxx"
 
 /* Funktion qcmp_bic() +���3 */
 static int qcmp_bic(const void *ap,const void *bp)
@@ -23376,6 +23285,7 @@ static int qcmp_iban_regel(const void *ap,const void *bp)
    else 
       return a-b;
 }
+#line 21821 "ruby/ext/konto_check_raw/konto_check.lxx"
 
 /* Funktion init_blzf() +���2
  * Diese Funktion initialisiert das Array mit den Bankleitzahlen f�r alle
@@ -23443,6 +23353,7 @@ DLL_EXPORT int konto_check_idx2blz(int idx,int *zweigstelle,int *retval)
 }
 
 /* Funktion suche_int1() +���2 */
+#line 21889 "ruby/ext/konto_check_raw/konto_check.lxx"
 static int suche_int1(int a1,int a2,int *anzahl,int **start_idx,int **zweigstellen_base,int **blz_base,
       int **base_name,int **base_sort,int(*cmp)(const void *, const void *),int cnt,int such_idx)
 {
@@ -23493,6 +23404,7 @@ static int suche_int1(int a1,int a2,int *anzahl,int **start_idx,int **zweigstell
 }
 
 /* Funktion suche_int2() +���2 */
+#line 21940 "ruby/ext/konto_check_raw/konto_check.lxx"
 static int suche_int2(int a1,int a2,int *anzahl,int **start_idx,int **zweigstellen_base,int **blz_base,
       int **base_name,int **base_sort,int(*cmp)(const void *, const void *),int such_idx,int pz_suche)
 {
@@ -24107,6 +24019,7 @@ static int cmp_suche_sort(const void *ap,const void *bp)
 DLL_EXPORT int lut_suche_sort1(int anzahl,int *blz_base,int *zweigstellen_base,int *idx,int *anzahl_o,int **idx_op,int **cnt_op,int uniq)
 {
    int i,j,last_idx,*idx_a,*cnt_o;
+#line 22556 "ruby/ext/konto_check_raw/konto_check.lxx"
 
    if(idx_op)*idx_op=NULL;
    if(cnt_op)*cnt_op=NULL;
@@ -24188,6 +24101,7 @@ DLL_EXPORT int lut_suche_sort2(int anzahl,int *blz,int *zweigstellen,int *anzahl
    return OK;
 }
 
+#line 22639 "ruby/ext/konto_check_raw/konto_check.lxx"
 /* Funktion lut_suche_volltext() +���2 */
 DLL_EXPORT int lut_suche_volltext(char *such_wort,int *anzahl,int *base_name_idx,char ***base_name,
       int *zweigstellen_anzahl,int **start_idx,int **zweigstellen_base,int **blz_base)
@@ -24317,7 +24231,7 @@ DLL_EXPORT int lut_suche_blz(int such1,int such2,int *anzahl,int **start_idx,int
    return suche_int1(such1,such2,anzahl,start_idx,zweigstellen_base,blz_base,&blz_f,&sort_blz,qcmp_blz,cnt,0);
 }
 
-#line 22918 "konto_check.lxx"
+#line 22789 "ruby/ext/konto_check_raw/konto_check.lxx"
 /* Funktion lut_suche_bic() +���2 */
 DLL_EXPORT int lut_suche_bic(char *such_name,int *anzahl,int **start_idx,int **zweigstellen_base,
       char ***base_name,int **blz_base)
@@ -24371,6 +24285,7 @@ DLL_EXPORT int lut_suche_pz(int such1,int such2,int *anzahl,int **start_idx,int
 {
    int retval;
 
+
    if(anzahl)*anzahl=0;
    if(such2 && such1>such2)return INVALID_SEARCH_RANGE;
    if((init_status&7)<7)return LUT2_NOT_INITIALIZED;
@@ -24384,6 +24299,7 @@ DLL_EXPORT int lut_suche_pz(int such1,int such2,int *anzahl,int **start_idx,int
 /* Funktion lut_suche_plz() +���2 */
 DLL_EXPORT int lut_suche_plz(int such1,int such2,int *anzahl,int **start_idx,int **zweigstellen_base,int **base_name,int **blz_base)
 {
+
    if(anzahl)*anzahl=0;
    if(such2 && such1>such2)return INVALID_SEARCH_RANGE;
    if((init_status&7)<7)return LUT2_NOT_INITIALIZED;
@@ -24396,6 +24312,7 @@ DLL_EXPORT int lut_suche_plz(int such1,int such2,int *anzahl,int **start_idx,int
 /* Funktion lut_suche_regel() +���2 */
 DLL_EXPORT int lut_suche_regel(int such1,int such2,int *anzahl,int **start_idx,int **zweigstellen_base,int **base_name,int **blz_base)
 {
+
    if(anzahl)*anzahl=0;
    if(such2 && such1>such2)return INVALID_SEARCH_RANGE;
    if((init_status&7)<7)return LUT2_NOT_INITIALIZED;
@@ -24405,6 +24322,7 @@ DLL_EXPORT int lut_suche_regel(int such1,int such2,int *anzahl,int **start_idx,i
    return suche_int2(such1*100,such2*100+99,anzahl,start_idx,zweigstellen_base,blz_base,&iban_regel,&sort_iban_regel,qcmp_iban_regel,LUT2_IBAN_REGEL_SORT,0);
 }
 
+#line 22822 "ruby/ext/konto_check_raw/konto_check.lxx"
 
 /* Funktion lut_suche_bic_h() +���2 */
 DLL_EXPORT int lut_suche_bic_h(char *such_name,int *anzahl,int **start_idx,int **zweigstellen_base,
@@ -24790,6 +24708,7 @@ DLL_EXPORT const char *iban_ort(char *iban,int filiale,int*retval)
 {
    return iban_fkt_s(iban,filiale,retval,lut_ort);
 }
+#line 22911 "ruby/ext/konto_check_raw/konto_check.lxx"
 
 static int bic_fkt_c(char *bic1,int mode,int filiale,int *retval,char *base,int error)
 {
@@ -25734,7 +25653,7 @@ static int convert_encoding(char **data,UINT4 *len)
 DLL_EXPORT const char *pz2str(int pz,int *ret)
 {
    if(ret){
-      if(pz%1000>=144)
+      if(pz%1000>=145)
          *ret=NOT_DEFINED;
       else
          *ret=OK;
@@ -26078,6 +25997,7 @@ DLL_EXPORT const char *pz2str(int pz,int *ret)
       default:   return "???";
    }
 }
+#line 23866 "ruby/ext/konto_check_raw/konto_check.lxx"
 
 /* Funktion lut_keine_iban_berechnung() +���1 */
 /*
@@ -26192,7 +26112,7 @@ DLL_EXPORT int lut_keine_iban_berechnung(char *iban_blacklist,char *lutfile,int
 /* Funktion pz_aenderungen_enable() +���1 */
 /* ###########################################################################
  * # Die Funktion pz_aenderungen_enable() dient dazu, den Status des Flags   #
- * # pz_aenderungen_aktivieren_2017_09 abzufragen bzw. zu setzen. Falls die Variable #
+ * # pz_aenderungen_aktivieren_2017_12 abzufragen bzw. zu setzen. Falls die Variable #
  * # set 1 ist, werden die �nderungen aktiviert, falls sie 0 ist, werden     #
  * # die �nderungen deaktiviert. Bei allen anderen Werten wird das aktuelle  #
  * # Flag nicht ver�ndert, sondern nur der Status zur�ckgegeben.             #
@@ -26208,8 +26128,8 @@ DLL_EXPORT int lut_keine_iban_berechnung(char *iban_blacklist,char *lutfile,int
 
 DLL_EXPORT int pz_aenderungen_enable(int set)
 {
-   if(set==0 || set==1)pz_aenderungen_aktivieren_2017_09=set;
-   return pz_aenderungen_aktivieren_2017_09;
+   if(set==0 || set==1)pz_aenderungen_aktivieren_2017_12=set;
+   return pz_aenderungen_aktivieren_2017_12;
 }
 
 #if DEBUG>0
@@ -26241,6 +26161,7 @@ DLL_EXPORT char *kto_check_test_vars(char *txt,UINT4 i)
 #endif
 
 
+#line 24030 "ruby/ext/konto_check_raw/konto_check.lxx"
 /* Funktionen *_id() +���1 */
 /* ###########################################################################
  * # Die folgenden Funktionen sind die id-Varianten von Funktionen, die      #

data/ext/konto_check_raw/konto_check_raw_ruby.c

@@ -4358,7 +4358,7 @@ void Init_konto_check_raw()
  *
  * <b>ATTENTION:</b> There are a few important changes in the API between
  * version 0.0.2 (version by Peter Horn/Provideal), version 0.0.6 (jeanmartin)
- * and this version (V. 6.01 from 2017-08-13):
+ * and this version (V. 6.02 from 2017-11-26):
  *
  * * The function KontoCheck::load_bank_data() is no longer used; it is
  *   replaced by KontoCheck::init() and KontoCheck::generate_lutfile().

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: konto_check
 version: !ruby/object:Gem::Version
-  version: 6.01.0
+  version: 6.02.0
 platform: ruby
 authors:
 - Provideal Systems GmbH
@@ -10,7 +10,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2017-09-20 00:00:00.000000000 Z
+date: 2017-12-01 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: thoughtbot-shoulda