Branch Coverage

KontoCheck.xs

Criterion	Covered	Total	%
branch	251	1152	21.7

line	true	false	branch
64	0	0	blz=(char *)SvPV_nolen(ST(2));
90	0	0	if(items<10)Perl_croak(aTHX_ "Usage: Business::KontoCheck::kto_check_regel_dbg_i(blz,kto,blz2,kto2,bic,regel,methode,pz_methode,pz,pz_pos)");
93	0	0	SvSETMAGIC(ST(2));
95	0	0	SvSETMAGIC(ST(3));
97	0	0	SvSETMAGIC(ST(4));
99	0	0	SvSETMAGIC(ST(5));
101	0	0	SvSETMAGIC(ST(6));
103	0	0	SvSETMAGIC(ST(7));
105	0	0	SvSETMAGIC(ST(8));
107	0	0	SvSETMAGIC(ST(9));
131	4	0	lut_name=(char *)SvPV_nolen(ST(0));
136	8	0	lut_name=(char *)SvPV_nolen(ST(0));
137	0	8	required=(unsigned int)SvUV(ST(1));
141	1	0	lut_name=(char *)SvPV_nolen(ST(0));
142	0	1	required=(unsigned int)SvUV(ST(1));
143	0	1	set=(unsigned int)SvUV(ST(2));
169	0	0	required=(unsigned int)SvUV(ST(1));
174	0	0	required=(unsigned int)SvUV(ST(1));
175	0	0	set=(unsigned int)SvUV(ST(2));
179	0	0	required=(unsigned int)SvUV(ST(1));
180	0	0	set=(unsigned int)SvUV(ST(2));
181	0	0	incremental=(unsigned int)SvUV(ST(3));
204	0	1	set=(unsigned int)SvUV(ST(2));
238	0	0	user_info=(char *)SvPV_nolen(ST(2));
241	0	0	user_info=(char *)SvPV_nolen(ST(2));
242	0	0	gueltigkeit=(char *)SvPV_nolen(ST(3));
245	0	0	user_info=(char *)SvPV_nolen(ST(2));
246	0	0	gueltigkeit=(char *)SvPV_nolen(ST(3));
247	0	0	felder=(unsigned int)SvUV(ST(4));
250	1	0	user_info=(char *)SvPV_nolen(ST(2));
251	1	0	gueltigkeit=(char *)SvPV_nolen(ST(3));
252	0	1	felder=(unsigned int)SvUV(ST(4));
253	0	1	filialen=(unsigned int)SvUV(ST(5));
256	0	0	user_info=(char *)SvPV_nolen(ST(2));
257	0	0	gueltigkeit=(char *)SvPV_nolen(ST(3));
258	0	0	felder=(unsigned int)SvUV(ST(4));
259	0	0	filialen=(unsigned int)SvUV(ST(5));
260	0	0	slots=(unsigned int)SvUV(ST(6));
263	0	0	user_info=(char *)SvPV_nolen(ST(2));
264	0	0	gueltigkeit=(char *)SvPV_nolen(ST(3));
265	0	0	felder=(unsigned int)SvUV(ST(4));
266	0	0	filialen=(unsigned int)SvUV(ST(5));
267	0	0	slots=(unsigned int)SvUV(ST(6));
268	0	0	lut_version=(unsigned int)SvUV(ST(7));
271	1	0	user_info=(char *)SvPV_nolen(ST(2));
272	1	0	gueltigkeit=(char *)SvPV_nolen(ST(3));
273	0	1	felder=(unsigned int)SvUV(ST(4));
274	0	1	filialen=(unsigned int)SvUV(ST(5));
275	0	1	slots=(unsigned int)SvUV(ST(6));
276	0	1	lut_version=(unsigned int)SvUV(ST(7));
277	0	1	set=(unsigned int)SvUV(ST(8));
280	0	0	user_info=(char *)SvPV_nolen(ST(2));
281	0	0	gueltigkeit=(char *)SvPV_nolen(ST(3));
282	0	0	felder=(unsigned int)SvUV(ST(4));
283	0	0	filialen=(unsigned int)SvUV(ST(5));
284	0	0	slots=(unsigned int)SvUV(ST(6));
285	0	0	lut_version=(unsigned int)SvUV(ST(7));
286	0	0	set=(unsigned int)SvUV(ST(8));
287	0	0	keine_iban_berechnung=(char *)SvPV_nolen(ST(9));
295	0	2	if(keine_iban_berechnung)lut_keine_iban_berechnung(keine_iban_berechnung,outputname,set);
304	0	0	if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_filialen(blz)");
327	0	16	if(items!=14)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_multiple_i(blz, filiale, cnt, "
331	0	16	if(RETVAL>0 || RETVAL==LUT2_PARTIAL_OK){
	0	0	if(RETVAL>0 || RETVAL==LUT2_PARTIAL_OK){
333	0	16	SvSETMAGIC(ST(2));
335	0	16	SvSETMAGIC(ST(3));
337	0	16	SvSETMAGIC(ST(4));
339	0	16	SvSETMAGIC(ST(5));
341	0	16	SvSETMAGIC(ST(6));
343	0	16	SvSETMAGIC(ST(7));
345	0	16	SvSETMAGIC(ST(8));
347	0	16	SvSETMAGIC(ST(9));
349	0	16	SvSETMAGIC(ST(10));
351	0	16	SvSETMAGIC(ST(11));
353	0	16	SvSETMAGIC(ST(12));
355	0	16	SvSETMAGIC(ST(13));
359	0	0	SvSETMAGIC(ST(2));
369	0	0	if(items<1 || items>2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::pz2str(pz[,retval])");
	0	0	if(items<1 || items>2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::pz2str(pz[,retval])");
372	0	0	if(items==2){
374	0	0	SvSETMAGIC(ST(1));
385	0	0	if(items==1)
387	0	0	else if(items==2 || items==3)
	0	0	else if(items==2 || items==3)
388	0	0	offset=(unsigned int)SvUV(ST(1));
393	0	0	if(items==3){
395	0	0	SvSETMAGIC(ST(2));
407	0	0	if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::bic_info(bic,mode,anzahl,start_idx))");
411	0	0	SvSETMAGIC(ST(2));
413	0	0	SvSETMAGIC(ST(3));
425	90	286	if(items==2)
427	8	278	else if(items==3 || items==4)
	8	0	else if(items==3 || items==4)
428	0	286	zweigstelle=(unsigned int)SvUV(ST(2));
433	8	368	if(items==4){
435	0	8	SvSETMAGIC(ST(3));
449	0	0	if(items==2)
451	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
452	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
457	0	0	if(items==4){
459	0	0	SvSETMAGIC(ST(3));
473	0	138	if(items==2)
475	0	138	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
476	0	138	zweigstelle=(unsigned int)SvUV(ST(2));
481	0	138	if(items==4){
483	0	0	SvSETMAGIC(ST(3));
497	90	278	if(items==2)
499	0	278	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
500	0	278	zweigstelle=(unsigned int)SvUV(ST(2));
505	0	368	if(items==4){
507	0	0	SvSETMAGIC(ST(3));
521	0	0	if(items==2)
523	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
524	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
529	0	0	if(items==4){
531	0	0	SvSETMAGIC(ST(3));
545	0	0	if(items==2)
547	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
548	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
553	0	0	if(items==4){
555	0	0	SvSETMAGIC(ST(3));
569	0	0	if(items==2)
571	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
572	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
577	0	0	if(items==4){
579	0	0	SvSETMAGIC(ST(3));
593	0	0	if(items==2)
595	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
596	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
601	0	0	if(items==4){
603	0	0	SvSETMAGIC(ST(3));
617	0	0	if(items==2)
619	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
620	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
625	0	0	if(items==4){
627	0	0	SvSETMAGIC(ST(3));
641	0	0	if(items==2)
643	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
644	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
649	0	0	if(items==4){
651	0	0	SvSETMAGIC(ST(3));
665	0	0	if(items==2)
667	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
668	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
673	0	0	if(items==4){
675	0	0	SvSETMAGIC(ST(3));
690	0	0	if(items==2)
692	0	0	else if(items==3){
693	0	0	mode=(unsigned int)SvUV(ST(2));
696	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
697	0	0	mode=(unsigned int)SvUV(ST(2));
698	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
704	0	0	if(items==5){
706	0	0	SvSETMAGIC(ST(4));
720	0	0	if(items==2)
722	0	0	else if(items==3){
723	0	0	mode=(unsigned int)SvUV(ST(2));
726	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
727	0	0	mode=(unsigned int)SvUV(ST(2));
728	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
734	0	0	if(items==5){
736	0	0	SvSETMAGIC(ST(4));
750	0	0	if(items==2)
752	0	0	else if(items==3){
753	0	0	mode=(unsigned int)SvUV(ST(2));
756	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
757	0	0	mode=(unsigned int)SvUV(ST(2));
758	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
764	0	0	if(items==5){
766	0	0	SvSETMAGIC(ST(4));
780	0	0	if(items==2)
782	0	0	else if(items==3){
783	0	0	mode=(unsigned int)SvUV(ST(2));
786	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
787	0	0	mode=(unsigned int)SvUV(ST(2));
788	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
794	0	0	if(items==5){
796	0	0	SvSETMAGIC(ST(4));
810	0	0	if(items==2)
812	0	0	else if(items==3){
813	0	0	mode=(unsigned int)SvUV(ST(2));
816	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
817	0	0	mode=(unsigned int)SvUV(ST(2));
818	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
824	0	0	if(items==5){
826	0	0	SvSETMAGIC(ST(4));
840	0	0	if(items==2)
842	0	0	else if(items==3){
843	0	0	mode=(unsigned int)SvUV(ST(2));
846	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
847	0	0	mode=(unsigned int)SvUV(ST(2));
848	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
854	0	0	if(items==5){
856	0	0	SvSETMAGIC(ST(4));
870	0	0	if(items==2)
872	0	0	else if(items==3){
873	0	0	mode=(unsigned int)SvUV(ST(2));
876	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
877	0	0	mode=(unsigned int)SvUV(ST(2));
878	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
884	0	0	if(items==5){
886	0	0	SvSETMAGIC(ST(4));
900	0	0	if(items==2)
902	0	0	else if(items==3){
903	0	0	mode=(unsigned int)SvUV(ST(2));
906	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
907	0	0	mode=(unsigned int)SvUV(ST(2));
908	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
914	0	0	if(items==5){
916	0	0	SvSETMAGIC(ST(4));
930	0	0	if(items==2)
932	0	0	else if(items==3){
933	0	0	mode=(unsigned int)SvUV(ST(2));
936	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
937	0	0	mode=(unsigned int)SvUV(ST(2));
938	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
944	0	0	if(items==5){
946	0	0	SvSETMAGIC(ST(4));
960	0	0	if(items==2)
962	0	0	else if(items==3){
963	0	0	mode=(unsigned int)SvUV(ST(2));
966	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
967	0	0	mode=(unsigned int)SvUV(ST(2));
968	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
974	0	0	if(items==5){
976	0	0	SvSETMAGIC(ST(4));
990	0	0	if(items==2)
992	0	0	else if(items==3){
993	0	0	mode=(unsigned int)SvUV(ST(2));
996	0	0	else if(items==4 || items==5){
	0	0	else if(items==4 || items==5){
997	0	0	mode=(unsigned int)SvUV(ST(2));
998	0	0	zweigstelle=(unsigned int)SvUV(ST(3));
1004	0	0	if(items==5){
1006	0	0	SvSETMAGIC(ST(4));
1019	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1023	0	0	if(items==3){
1025	0	0	SvSETMAGIC(ST(2));
1037	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1041	0	0	if(items==3){
1043	0	0	SvSETMAGIC(ST(2));
1055	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1059	0	0	if(items==3){
1061	0	0	SvSETMAGIC(ST(2));
1073	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1077	0	0	if(items==3){
1079	0	0	SvSETMAGIC(ST(2));
1091	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1095	0	0	if(items==3){
1097	0	0	SvSETMAGIC(ST(2));
1109	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1113	0	0	if(items==3){
1115	0	0	SvSETMAGIC(ST(2));
1127	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1131	0	0	if(items==3){
1133	0	0	SvSETMAGIC(ST(2));
1145	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1149	0	0	if(items==3){
1151	0	0	SvSETMAGIC(ST(2));
1163	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1167	0	0	if(items==3){
1169	0	0	SvSETMAGIC(ST(2));
1181	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1185	0	0	if(items==3){
1187	0	0	SvSETMAGIC(ST(2));
1199	0	0	if(items<2 || items>3)
	0	0	if(items<2 || items>3)
1203	0	0	if(items==3){
1205	0	0	SvSETMAGIC(ST(2));
1220	0	0	if(items==2)
1222	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1223	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1228	0	0	if(items==4){
1230	0	0	SvSETMAGIC(ST(3));
1244	0	0	if(items==2)
1246	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1247	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1252	0	0	if(items==4){
1254	0	0	SvSETMAGIC(ST(3));
1268	0	0	if(items==2)
1270	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1271	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1276	0	0	if(items==4){
1278	0	0	SvSETMAGIC(ST(3));
1292	0	0	if(items==2)
1294	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1295	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1300	0	0	if(items==4){
1302	0	0	SvSETMAGIC(ST(3));
1316	0	0	if(items==2)
1318	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1319	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1324	0	0	if(items==4){
1326	0	0	SvSETMAGIC(ST(3));
1340	0	0	if(items==2)
1342	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1343	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1348	0	0	if(items==4){
1350	0	0	SvSETMAGIC(ST(3));
1364	0	0	if(items==2)
1366	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1367	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1372	0	0	if(items==4){
1374	0	0	SvSETMAGIC(ST(3));
1388	0	0	if(items==2)
1390	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1391	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1396	0	0	if(items==4){
1398	0	0	SvSETMAGIC(ST(3));
1412	0	0	if(items==2)
1414	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1415	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1420	0	0	if(items==4){
1422	0	0	SvSETMAGIC(ST(3));
1436	0	0	if(items==2)
1438	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1439	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1444	0	0	if(items==4){
1446	0	0	SvSETMAGIC(ST(3));
1460	0	0	if(items==2)
1462	0	0	else if(items==3 || items==4)
	0	0	else if(items==3 || items==4)
1463	0	0	zweigstelle=(unsigned int)SvUV(ST(2));
1468	0	0	if(items==4){
1470	0	0	SvSETMAGIC(ST(3));
1481	0	5	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2txt(ret)");
1493	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2txt(ret)");
1503	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2iso(ret)");
1515	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2iso(ret)");
1525	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2txt_short(ret)");
1537	0	42	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2txt_short(ret)");
1547	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2html(ret)");
1559	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2html(ret)");
1569	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2utf8(ret)");
1581	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2utf8(ret)");
1591	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2dos(ret)");
1603	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2dos(ret)");
1638	0	1	if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::current_lutfile_name_i(want_array,set,level,retval)");
1639	1	0	if(want_array)
1643	0	1	if(ret<0)RETVAL="";
1644	1	0	if(want_array){
1646	0	1	SvSETMAGIC(ST(1));
1648	0	1	SvSETMAGIC(ST(2));
1650	0	1	SvSETMAGIC(ST(3));
1663	3	0	want_array=(int)SvIV(ST(1));
1664	0	3	if(items!=7)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_info_i(lut_name,want_array,info1,valid1,info2,valid2,lut_dir)");
1665	0	3	if(want_array<0)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_info(lut_name)");
1666	3	0	if(want_array){
1669	0	3	if(!info1)info1="";
1670	2	1	if(!info2)info2="";
1676	0	3	if(ret
1678	3	0	else if(valid1==LUT2_VALID || valid2==LUT2_VALID)
	0	3	else if(valid1==LUT2_VALID || valid2==LUT2_VALID)
1680	0	3	else if(valid1==LUT1_SET_LOADED)
1682	2	1	else if(valid1==LUT2_NO_VALID_DATE || valid2==LUT2_NO_VALID_DATE)
	0	2	else if(valid1==LUT2_NO_VALID_DATE || valid2==LUT2_NO_VALID_DATE)
1688	0	3	SvSETMAGIC(ST(2));
1690	0	3	SvSETMAGIC(ST(3));
1692	0	3	SvSETMAGIC(ST(4));
1694	0	3	SvSETMAGIC(ST(5));
1696	0	3	SvSETMAGIC(ST(6));
1698	3	0	if(want_array){
1705	3	0	if(*info1)kc_free(info1);
1706	1	2	if(*info2)kc_free(info2);
1707	3	0	if(*dptr)kc_free(dptr);
1729	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::ci_check(ci)");
1752	165	0	if(ret){
1754	0	165	SvSETMAGIC(ST(1));
1772	0	336	SvSETMAGIC(ST(1));
1789	1	0	if(items>1)
1790	1	0	mode=(int)SvIV(ST(0));
1812	1	0	if(lut_filename){
1814	0	1	SvSETMAGIC(ST(1));
1817	1	0	if(lut_blocks_ok){
1819	0	1	SvSETMAGIC(ST(2));
1822	1	0	if(lut_blocks_fehler){
1824	0	1	SvSETMAGIC(ST(3));
1842	0	2896	if(items!=9){
1848	2877	19	if(papier){
1849	63294	14385	for(ptr=papier,dptr=iban;*ptr;ptr++)if(*ptr!=' ')*dptr++=*ptr;
	77679	2877	for(ptr=papier,dptr=iban;*ptr;ptr++)if(*ptr!=' ')*dptr++=*ptr;
1852	0	2877	SvSETMAGIC(ST(2));
1854	0	2877	SvSETMAGIC(ST(3));
1857	2896	0	if(bic){
1859	0	2896	SvSETMAGIC(ST(4));
1863	0	2896	SvSETMAGIC(ST(5));
1870	0	2896	SvSETMAGIC(ST(6));
1872	0	2896	SvSETMAGIC(ST(7));
1874	0	2896	SvSETMAGIC(ST(8));
1888	0	0	if(items!=4){
1895	0	0	SvSETMAGIC(ST(1));
1896	0	0	if(ret>0){
1898	0	0	SvSETMAGIC(ST(2));
1900	0	0	SvSETMAGIC(ST(3));
1917	80	0	if(items<1 || items>3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::ipi_gen(zweck[,zweck_edv[,zweck_papier]])");
	0	80	if(items<1 || items>3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::ipi_gen(zweck[,zweck_edv[,zweck_papier]])");
1919	80	0	if(items>=2){
1921	0	80	SvSETMAGIC(ST(1));
1923	80	0	if(items==3){
1925	0	80	SvSETMAGIC(ST(2));
1941	10	0	if(items<2 || items>5)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_suche_volltext(suchworte[,retval[,uniq[,sort]]])");
	0	10	if(items<2 || items>5)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_suche_volltext(suchworte[,retval[,uniq[,sort]]])");
1943	10	0	if(items>=3){
1945	0	10	SvSETMAGIC(ST(2));
1949	4	6	if(items>=4)uniq=(int)SvIV(ST(3));
	4	0	if(items>=4)uniq=(int)SvIV(ST(3));
1950	2	8	if(items>=5)sort=(int)SvIV(ST(4));
	2	0	if(items>=5)sort=(int)SvIV(ST(4));
1951	2	8	if(uniq>0)
1953	8	0	else if(uniq<=0 && sort>0)
	2	6	else if(uniq<=0 && sort>0)
1955	6	0	else if(uniq<0 && sort<0)
	6	0	else if(uniq<0 && sort<0)
1957	4	6	if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
1966	10	0	if(anzahl2){
1969	533	10	for(i=0;i
1973	8	2	if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
1977	8	0	if(anzahl2){
1981	4	4	if(cnt_o)av_unshift(cnt_array,anzahl2);
1982	76	8	for(i=0;i
1983	413	8	for(i=0;i
1985	173	240	if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
1988	4	4	if(uniq){
1995	0	8	XPUSHs(blz_array_p);
1996	0	8	XPUSHs(zweigstelle_p);
1997	0	8	XPUSHs(vals_p);
1998	0	8	XPUSHs(sv_2mortal(newSViv(ret)));
1999	0	8	XPUSHs(cnt_array_p);
2003	0	2	if(uniq){
2007	0	2	XPUSHs(blz_array_p);
2030	0	0	uniq=SvIV(ST(2));
2035	12	0	uniq=SvIV(ST(2));
2036	12	0	such_cmd=SvPV_nolen(ST(3));
2044	12	0	if(items>4){ /* retval zurückgeben */
2046	0	12	SvSETMAGIC(ST(4));
2050	12	0	if(anzahl){
2053	278	12	for(i=0;i
2057	6	6	if(want_array){ /* das nächste Array wird nur bei Bedarf gefüllt */
2059	6	0	if(anzahl){
2062	139	6	for(i=0;i
2067	0	6	XPUSHs(blz_array_p);
2068	0	6	XPUSHs(zweigstelle_p);
2069	0	6	XPUSHs(sv_2mortal(newSViv(ret)));
2075	0	6	XPUSHs(blz_array_p);
2108	35	0	if(items>2 && items<7)
	35	0	if(items>2 && items<7)
2109	35	0	search=SvPV(ST(2),len);
2111	0	0	if(fkt)
2134	35	0	if(items>3){
2136	0	35	SvSETMAGIC(ST(3));
2139	14	21	if(items>4)uniq=(int)SvIV(ST(4));
	14	0	if(items>4)uniq=(int)SvIV(ST(4));
2140	7	28	if(items>5)sort=(int)SvIV(ST(5));
	7	0	if(items>5)sort=(int)SvIV(ST(5));
2141	7	28	if(uniq>0)
2143	28	0	else if(uniq<=0 && sort>0)
	7	21	else if(uniq<=0 && sort>0)
2145	21	0	else if(uniq<0 && sort<0)
	21	0	else if(uniq<0 && sort<0)
2147	14	21	if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
2155	35	0	if(anzahl2){
2158	873	35	for(i=0;i
2162	28	7	if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
2166	28	0	if(anzahl2){
2170	14	14	if(cnt_o)av_unshift(cnt_array,anzahl2);
2171	688	28	for(i=0;i
2174	318	370	if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
2177	14	14	if(uniq){
2184	0	28	XPUSHs(blz_array_p);
2185	0	28	XPUSHs(zweigstelle_p);
2186	0	28	XPUSHs(vals_p);
2187	0	28	XPUSHs(sv_2mortal(newSViv(ret)));
2188	0	28	XPUSHs(cnt_array_p);
2192	0	7	if(uniq){
2196	0	7	XPUSHs(blz_array_p);
2215	0	0	search1=search2=(int)SvIV(ST(2));
2218	3	0	sort=(int)SvIV(ST(6));
2220	6	0	uniq=(int)SvIV(ST(5));
2223	15	0	search1=(int)SvIV(ST(2));
2224	15	0	search2=(int)SvIV(ST(3));
2264	3	12	if(uniq>0)
2266	12	0	else if(uniq<=0 && sort>0)
	3	9	else if(uniq<=0 && sort>0)
2268	9	0	else if(uniq<0 && sort<0)
	9	0	else if(uniq<0 && sort<0)
2270	6	9	if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
2277	15	0	if(items>=5){
2279	0	15	SvSETMAGIC(ST(4));
2283	15	0	if(anzahl2){
2286	2146	15	for(i=0;i
2290	12	3	if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
2294	12	0	if(anzahl2){
2298	6	6	if(cnt_o)av_unshift(cnt_array,anzahl2);
2299	1658	12	for(i=0;i
2302	682	976	if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
2305	6	6	if(uniq){
2313	0	12	XPUSHs(blz_array_p);
2314	0	12	XPUSHs(zweigstelle_p);
2315	0	12	XPUSHs(vals_p);
2316	0	12	XPUSHs(sv_2mortal(newSViv(ret)));
2317	0	12	XPUSHs(cnt_array_p);
2321	0	3	if(uniq){
2325	0	3	XPUSHs(blz_array_p);
2345	0	0	if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_multi(bic)");
2349	0	0	SvSETMAGIC(ST(0));
2351	0	0	SvSETMAGIC(ST(1));
2353	0	0	SvSETMAGIC(ST(2));
2364	0	0	if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_multi_blz(blz)");
2368	0	0	SvSETMAGIC(ST(0));
2370	0	0	SvSETMAGIC(ST(1));
2372	0	0	SvSETMAGIC(ST(2));
2383	0	0	if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_sct(bic)");
2387	0	0	SvSETMAGIC(ST(0));
2398	0	0	if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_sct_blz(blz)");
2402	0	0	SvSETMAGIC(ST(0));
2404	0	0	SvSETMAGIC(ST(1));
2415	0	0	if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_sdd(bic)");
2419	0	0	SvSETMAGIC(ST(0));
2430	0	0	if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_sdd_blz(blz)");
2434	0	0	SvSETMAGIC(ST(0));
2436	0	0	SvSETMAGIC(ST(1));
2447	0	0	if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_cor1(bic)");
2451	0	0	SvSETMAGIC(ST(0));
2462	0	0	if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_cor1_blz(blz)");
2466	0	0	SvSETMAGIC(ST(0));
2468	0	0	SvSETMAGIC(ST(1));
2479	0	0	if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_b2b(bic)");
2483	0	0	SvSETMAGIC(ST(0));
2494	0	0	if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_b2b_blz(blz)");
2498	0	0	SvSETMAGIC(ST(0));
2500	0	0	SvSETMAGIC(ST(1));
2511	0	0	if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_scc(bic)");
2515	0	0	SvSETMAGIC(ST(0));
2526	0	0	if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_scc_blz(blz)");
2530	0	0	SvSETMAGIC(ST(0));
2532	0	0	SvSETMAGIC(ST(1));