kontocheck 0.4.2 → 0.4.4

data/Rakefile

@@ -27,7 +27,7 @@ begin
     gem.description = %Q{Check whether a certain bic/account-no-combination can possibly be valid. It uses the C library konto_check (see http://sourceforge.net/projects/kontocheck/) by Michael Plugge.}
     gem.email = "jan@general-scripting.com"
     gem.homepage = "http://github.com/jeanmartin/konto_check"
-    gem.authors = ["Provideal Systems GmbH","Michael Plugge","Jan Schwenzien"]
+    gem.authors = ["Michael Plugge","Jan Schwenzien","Provideal Systems GmbH"]
     gem.add_development_dependency "thoughtbot-shoulda", ">= 0"
     #gem.files.exclude "ext"
     # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings

data/VERSION.yml

@@ -1,4 +1,5 @@
-major: 0
-minor: 4
-patch: 2
-
+---
+:major: 0
+:minor: 4
+:patch: 4
+:build: 

data/ext/konto_check_raw/konto_check.c

@@ -48,9 +48,9 @@
 
 /* Definitionen und Includes  */
 #ifndef VERSION
-#define VERSION "4.2"
+#define VERSION "4.4"
 #endif
-#define VERSION_DATE "2012-10-24"
+#define VERSION_DATE "2013-02-02"
 
 #ifndef INCLUDE_KONTO_CHECK_DE
 #define INCLUDE_KONTO_CHECK_DE 1
@@ -14102,7 +14102,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
 /* Berechnung nach der Methode C6 +���4 */
 /*
  * ######################################################################
- * #   Berechnung nach der Methode C6  (ge�ndert zum 6. Juni 2011)      #
+ * #   Berechnung nach der Methode C6  (letze �nderung 4.3.2013)        #
  * ######################################################################
  * # Modulus 10, Gewichtung 1, 2, 1, 2, 1, 2, 1, 2                      #
  * #                                                                    #
@@ -14111,12 +14111,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # 10-stellig darzustellen. Die 10. Stelle der Konto-nummer ist die   #
  * # Pr�fziffer.                                                        #
  * #                                                                    #
- * # Kontonummern, die an der 1. Stelle von links der 10-stelligen      #
- * # Kontonummer einen der Wert 4 oder 8 beinhalten sind falsch.        #
- * #                                                                    #
- * # Kontonummern, die an der 1. Stelle von links der 10-stelligen      #
- * # Kontonummer einen der Werte 0, 1, 2, 3, 5, 6, 7 oder 9 beinhalten  #
- * # sind wie folgt zu pr�fen:                                          #
+ * # Alle Kontonummern sind wie folgt zu pr�fen:                        #
  * #                                                                    #
  * # F�r die Berechnung der Pr�fziffer werden die Stellen 2 bis 9 der   #
  * # Kontonummer verwendet. Diese Stellen sind links um eine Zahl       #
@@ -14130,9 +14125,11 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * #            1          4451981                                      #
  * #            2          4451992                                      #
  * #            3          4451993                                      #
+ * #            4          4344992                                      #
  * #            5          4344990                                      #
  * #            6          4344991                                      #
  * #            7          5499570                                      #
+ * #            8          4451994                                      #
  * #            9          5499579                                      #
  * #                                                                    #
  * # Die Berechnung und m�gliche Ergebnisse entsprechen der Methode 00. #
@@ -14157,9 +14154,15 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
             case '1': pz=33; break;
             case '2': pz=36; break;
             case '3': pz=38; break; /* neu zum 7.6.2010 */
-            case '5': pz=33; break; /* neu zum 6.6.2011 */
-            case '6': pz=34; break; /* neu zum 6.6.2011 */
+#if PZ_METHODEN_2013_03_04
+            case '4': pz=45; break; /* neu zum 4.3.2013 */
+#endif
+            case '5': pz=41; break; /* neu zum 6.6.2011 */
+            case '6': pz=43; break; /* neu zum 6.6.2011 */
             case '7': pz=31; break;
+#if PZ_METHODEN_2013_03_04
+            case '8': pz=40; break; /* neu zum 4.3.2013 */
+#endif
             case '9': pz=40; break;
             default: return INVALID_KTO;
          }
@@ -14539,7 +14542,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
 /*  Berechnung nach der Methode D1 +���4 */
 /*
  * ######################################################################
- * #   Berechnung nach der Methode D1 (ge�ndert zum 5.9.2011)           #
+ * #   Berechnung nach der Methode D1 (letzte �nderung 4.3.2013)        #
  * ######################################################################
  * # Modulus 10, Gewichtung 1, 2, 1, 2, 1, 2, 1, 2                      #
  * #                                                                    #
@@ -14549,11 +14552,11 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # Pr�fziffer.                                                        #
  * #                                                                    #
  * # Kontonummern, die an der 1. Stelle von links der 10-stelligen      #
- * # Kontonummer einen der Wert 7 oder 8 beinhalten sind falsch.        #
+ * # Kontonummer den Wert 8 enthalten sind falsch.                      #
  * #                                                                    #
  * # Kontonummern, die an der 1. Stelle von links der 10-stelligen      #
- * # Kontonummer einen der Werte 0, 1, 2, 3, 4, 5, 6 oder 9 beinhalten  #
- * # sind wie folgt zu pr�fen:                                          #
+ * # Kontonummer einen der Werte 0, 1, 2, 3, 4, 5, 6, 7 oder 9          #
+ * # beinhalten sind wie folgt zu pr�fen:                               #
  * #                                                                    #
  * # F�r die Berechnung der Pr�fziffer werden die Stellen 2 bis 9 der   #
  * # Kontonummer von links verwendet. Diese Stellen sind links um eine  #
@@ -14570,6 +14573,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * #                 4                  4363384                         #
  * #                 5                  4363385                         #
  * #                 6                  4363386                         #
+ * #                 7                  4363387                         #
  * #                 9                  4363389                         #
  * #                                                                    #
  * # Die Berechnung und m�gliche Ergebnisse entsprechen der             #
@@ -14590,7 +14594,11 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
             retvals->pz_methode=131;
          }
 #endif
+#if PZ_METHODEN_2013_03_04
+         if(*kto=='8')return INVALID_KTO;
+#else
          if(*kto=='7' || *kto=='8')return INVALID_KTO;
+#endif
          pz=31;
 
 #ifdef __ALPHA
@@ -15447,6 +15455,58 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
          if(pz)pz=10-pz;
          CHECK_PZ10;
 
+/* Berechnungsmethoden E0 bis E9 +���3
+   Berechnung nach der Methode E0 +���4 */
+/*
+ * ######################################################################
+ * #               Berechnung nach der Methode E0                       #
+ * ######################################################################
+ * # Modulus 10, Gewichtung 2, 1, 2, 1, 2, 1, 2, 1, 2                   #
+ * # Die Stellen der Kontonummer sind von rechts nach links mit den     #
+ * # Ziffern 2, 1, 2, 1, 2 usw. zu multiplizieren. Die jeweiligen       #
+ * # Produkte werden addiert, nachdem jeweils aus den zweistelligen     #
+ * # Produkten die Quersumme gebildet wurde (z. B. Produkt 18 =         #
+ * # Quersumme 9) plus den Wert 7. Nach der Addition bleiben au�er      #
+ * # der Einerstelle alle anderen Stellen unber�cksichtigt. Die         #
+ * # Einerstelle wird von dem Wert 10 subtrahiert. Das Ergebnis ist     #
+ * # die Pr�fziffer (10. Stelle der Kontonummer).                       #
+ * ######################################################################
+ */
+
+      case 140:
+#if DEBUG>0
+         if(retvals){
+            retvals->methode="E0";
+            retvals->pz_methode=140;
+         }
+#endif
+
+            /* Das Verfahren entspricht (bis auf die zus�tzliche 7) genau dem
+             * Verfahren 00; der Programmcode ist auch von diesem kopiert.
+             */
+#ifdef __ALPHA
+         pz = ((kto[0]<'5') ? (kto[0]-'0')*2 : (kto[0]-'0')*2-9)
+            +  (kto[1]-'0')
+            + ((kto[2]<'5') ? (kto[2]-'0')*2 : (kto[2]-'0')*2-9)
+            +  (kto[3]-'0')
+            + ((kto[4]<'5') ? (kto[4]-'0')*2 : (kto[4]-'0')*2-9)
+            +  (kto[5]-'0')
+            + ((kto[6]<'5') ? (kto[6]-'0')*2 : (kto[6]-'0')*2-9)
+            +  (kto[7]-'0')
+            + ((kto[8]<'5') ? (kto[8]-'0')*2 : (kto[8]-'0')*2-9);
+#else
+         pz=(kto[1]-'0')+(kto[3]-'0')+(kto[5]-'0')+(kto[7]-'0');
+         if(kto[0]<'5')pz+=(kto[0]-'0')*2; else pz+=(kto[0]-'0')*2-9;
+         if(kto[2]<'5')pz+=(kto[2]-'0')*2; else pz+=(kto[2]-'0')*2-9;
+         if(kto[4]<'5')pz+=(kto[4]-'0')*2; else pz+=(kto[4]-'0')*2-9;
+         if(kto[6]<'5')pz+=(kto[6]-'0')*2; else pz+=(kto[6]-'0')*2-9;
+         if(kto[8]<'5')pz+=(kto[8]-'0')*2; else pz+=(kto[8]-'0')*2-9;
+#endif
+         pz+=7;
+         MOD_10_80;   /* pz%=10 */
+         if(pz)pz=10-pz;
+         CHECK_PZ10;
+
 
 /* nicht abgedeckte F�lle +���3 */
 /*
@@ -19539,7 +19599,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 17560 "konto_check.lxx"
+#line 17614 "konto_check.lxx"
 
    if(idx_op)*idx_op=NULL;
    if(cnt_op)*cnt_op=NULL;
@@ -20477,7 +20537,7 @@ static int convert_encoding(char **data,UINT4 *len)
 DLL_EXPORT const char *pz2str(int pz,int *ret)
 {
    if(ret){
-      if(pz>=140)
+      if(pz>=141)
          *ret=NOT_DEFINED;
       else
          *ret=OK;

data/ext/konto_check_raw/konto_check.h

@@ -81,6 +81,13 @@
 
 #define FLESSA_KORREKTUR 1
 
+/* Zum Gueltigkeitstermin 4. Maerz 2013 erfolgen Aenderungen der
+ * Pruefzifferberechnungsmethoden C6 und D1; mit dem folgenden Makro werden
+ * diese Änderungen aktiviert.
+ */
+#define PZ_METHODEN_2013_03_04 1
+
+
 /* Das Makro DEFAULT_ENCODING legt die Ausgabe-Kodierung für die Funktion
  * kto_check_retval2txt() und die Blocks Name, Kurzname und Ort aus der
  * LUT-Datei fest. Die folgenden Werte sind möglich:

data/ext/konto_check_raw/konto_check_raw_ruby.c

@@ -56,7 +56,7 @@
 
 #define RUNTIME_ERROR(error) do{ \
    snprintf(error_msg,511,"KontoCheck::%s, %s",kto_check_retval2txt_short(error),kto_check_retval2txt(error)); \
-   rb_raise(rb_eRuntimeError,error_msg); \
+   rb_raise(rb_eRuntimeError, "%s", error_msg); \
 }while(0)
 
 // Defining a space for information and references about the module to be stored internally
@@ -106,7 +106,7 @@ static void get_params_file(int argc,VALUE* argv,char *arg1s,int *arg1i,int *arg
       *(arg1s+len)=0;
    }
    else
-      rb_raise(rb_eRuntimeError,"Unable to convert given filename.");
+      rb_raise(rb_eRuntimeError, "%s", "Unable to convert given filename.");
 }
 
 /**
@@ -226,9 +226,9 @@ static void get_params(int argc,VALUE* argv,char *arg1s,char *arg2s,int *argi,in
          break;
       default:
          if(!optargs)
-            rb_raise(rb_eRuntimeError,"Unable to convert given blz.");
+            rb_raise(rb_eRuntimeError, "%s", "Unable to convert given blz.");
          else
-            rb_raise(rb_eRuntimeError,"Unable to convert given value.");
+            rb_raise(rb_eRuntimeError, "%s", "Unable to convert given value.");
          break;
    }
    if(optargs==2)switch(TYPE(arg2_rb)){  /* f�r konto_check(): kto holen */
@@ -243,7 +243,7 @@ static void get_params(int argc,VALUE* argv,char *arg1s,char *arg2s,int *argi,in
          snprintf(arg2s,16,"%5.0f",NUM2DBL(arg2_rb));
          break;
       default:
-         rb_raise(rb_eRuntimeError,"Unable to convert given kto.");
+         rb_raise(rb_eRuntimeError, "%s", "Unable to convert given kto.");
          break;
    }
 }
@@ -281,6 +281,52 @@ static VALUE konto_check(int argc,VALUE* argv,VALUE self)
    return rb_ary_new3(2,retval>0?Qtrue:Qfalse,INT2FIX(retval));
 }
 
+/**
+ * KontoCheck::konto_check(<blz>, <kto>, <pz>)
+ *
+ * check whether the given account number kto kann possibly be
+ * a valid number of the bank with the bic blz.
+ *
+ * possible return values (and short description):
+ *
+ *    LUT2_NOT_INITIALIZED    "die Programmbibliothek wurde noch nicht initialisiert"
+ *    MISSING_PARAMETER       "Bei der Kontopr�fung fehlt ein notwendiger Parameter (BLZ oder Konto)"
+ *    
+ *    NOT_IMPLEMENTED         "die Methode wurde noch nicht implementiert"
+ *    UNDEFINED_SUBMETHOD     "Die (Unter)Methode ist nicht definiert"
+ *    INVALID_BLZ             "Die (Unter)Methode ist nicht definiert"
+ *    INVALID_BLZ_LENGTH      "die Bankleitzahl ist nicht achtstellig"
+ *    INVALID_KTO             "das Konto ist ung�ltig"
+ *    INVALID_KTO_LENGTH      "ein Konto mu� zwischen 1 und 10 Stellen haben"
+ *    FALSE                   "falsch"
+ *    NOT_DEFINED             "die Methode ist nicht definiert"
+ *    BAV_FALSE               "BAV denkt, das Konto ist falsch (konto_check h�lt es f�r richtig)"
+ *    OK                      "ok"
+ *    OK_NO_CHK               "ok, ohne Pr�fung"
+ */
+static VALUE konto_check_pz(int argc,VALUE* argv,VALUE self)
+{
+   char kto[16],blz[16], pz[3],error_msg[512];
+   int retval, len;
+   strncpy(blz,RSTRING_PTR(argv[0]),15);
+   if((len=RSTRING_LEN(argv[0]))>15)len=15;
+   *(blz+len)=0;
+
+  strncpy(kto,RSTRING_PTR(argv[1]),15);
+   if((len=RSTRING_LEN(argv[1]))>15)len=15;
+   *(kto+len)=0;
+
+  strncpy(pz,RSTRING_PTR(argv[2]),2);
+   if((len=RSTRING_LEN(argv[2]))>2)len=2;
+   *(pz+len)=0;
+
+
+   if((retval=kto_check_pz(pz,kto,blz))==LUT2_NOT_INITIALIZED || retval==MISSING_PARAMETER)RUNTIME_ERROR(retval);
+   return rb_ary_new3(2,retval>0?Qtrue:Qfalse,INT2FIX(retval));
+}
+
+
+
 
 /**
  * KontoCheck::init([lutfile[,level[,set]]])
@@ -376,7 +422,7 @@ static VALUE generate_lutfile_rb(int argc,VALUE* argv,VALUE self)
       *(input_name+len)=0;
    }
    else
-      rb_raise(rb_eRuntimeError,"Unable to convert given input filename.");
+      rb_raise(rb_eRuntimeError, "%s", "Unable to convert given input filename.");
 
    if(TYPE(output_name_rb)==RUBY_T_STRING){
       strncpy(output_name,RSTRING_PTR(output_name_rb),FILENAME_MAX);
@@ -384,7 +430,7 @@ static VALUE generate_lutfile_rb(int argc,VALUE* argv,VALUE self)
       *(output_name+len)=0;
    }
    else
-      rb_raise(rb_eRuntimeError,"Unable to convert given output filename.");
+      rb_raise(rb_eRuntimeError, "%s", "Unable to convert given output filename.");
 
    if(NIL_P(user_info_rb)){
       *user_info=0;
@@ -395,7 +441,7 @@ static VALUE generate_lutfile_rb(int argc,VALUE* argv,VALUE self)
       *(user_info+len)=0;
    }
    else
-      rb_raise(rb_eRuntimeError,"Unable to convert given user_info string.");
+      rb_raise(rb_eRuntimeError, "%s", "Unable to convert given user_info string.");
 
    if(NIL_P(gueltigkeit_rb)){
       *gueltigkeit=0;
@@ -406,7 +452,7 @@ static VALUE generate_lutfile_rb(int argc,VALUE* argv,VALUE self)
       *(gueltigkeit+len)=0;
    }
    else
-      rb_raise(rb_eRuntimeError,"Unable to convert given gueltigkeit string.");
+      rb_raise(rb_eRuntimeError, "%s", "Unable to convert given gueltigkeit string.");
 
    if(NIL_P(felder_rb))
       felder=DEFAULT_LUT_FIELDS_NUM;
@@ -562,7 +608,7 @@ static VALUE lut_info_rb(int argc,VALUE* argv,VALUE self)
   ****************************************************************************/
 
 static VALUE load_bank_data(VALUE self, VALUE path_rb) {
-   rb_raise(rb_eRuntimeError, "Perhaps you used the old interface of konto_check.\n"
+   rb_raise(rb_eRuntimeError, "%s", "Perhaps you used the old interface of konto_check.\n"
          "Use KontoCheck::init() to initialize the library\n"
          "and check the order of function arguments for konto_test(blz,kto)");
 }
@@ -1413,6 +1459,7 @@ void Init_konto_check_raw()
    rb_define_module_function(KontoCheck,"init",init,-1);
    rb_define_module_function(KontoCheck,"free",free_rb,0);
    rb_define_module_function(KontoCheck,"konto_check",konto_check,-1);
+   rb_define_module_function(KontoCheck,"konto_check_pz",konto_check_pz,-1);
    rb_define_module_function(KontoCheck,"bank_valid",bank_valid,-1);
    rb_define_module_function(KontoCheck,"bank_filialen",bank_filialen,-1);
    rb_define_module_function(KontoCheck,"bank_alles",bank_alles,-1);

data/kontocheck.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = "kontocheck"
-  s.version = "0.4.2"
+  s.version = "0.4.4"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
-  s.authors = ["Provideal Systems GmbH", "Michael Plugge", "Jan Schwenzien"]
-  s.date = "2012-11-25"
+  s.authors = ["Michael Plugge", "Jan Schwenzien", "Provideal Systems GmbH"]
+  s.date = "2013-05-26"
   s.description = "Check whether a certain bic/account-no-combination can possibly be valid. It uses the C library konto_check (see http://sourceforge.net/projects/kontocheck/) by Michael Plugge."
   s.email = "jan@general-scripting.com"
   s.extensions = ["ext/konto_check_raw/extconf.rb"]
@@ -31,6 +31,7 @@ Gem::Specification.new do |s|
     "init.rb",
     "kontocheck.gemspec",
     "lib/konto_check.rb",
+    "lib/kontocheck.rb",
     "test/helper.rb",
     "test/test_konto_check.rb"
   ]

data/lib/kontocheck.rb

@@ -0,0 +1 @@
+require 'konto_check'

metadata

@@ -1,17 +1,17 @@
 --- !ruby/object:Gem::Specification
 name: kontocheck
 version: !ruby/object:Gem::Version
-  version: 0.4.2
+  version: 0.4.4
   prerelease: 
 platform: ruby
 authors:
-- Provideal Systems GmbH
 - Michael Plugge
 - Jan Schwenzien
+- Provideal Systems GmbH
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-11-25 00:00:00.000000000 Z
+date: 2013-05-26 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: thoughtbot-shoulda
@@ -53,6 +53,7 @@ files:
 - init.rb
 - kontocheck.gemspec
 - lib/konto_check.rb
+- lib/kontocheck.rb
 - test/helper.rb
 - test/test_konto_check.rb
 homepage: http://github.com/jeanmartin/konto_check