From 637a78a5c12492959199fcbb17800636a2a9a7c8 Mon Sep 17 00:00:00 2001
From: doxulting <doxulting>
Date: Fri, 30 Jul 2004 14:01:48 +0000
Subject: [PATCH] The XYZ funcs for serials seqs

---
 C4/Bull.pm | 191 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 191 insertions(+)
 create mode 100755 C4/Bull.pm

diff --git a/C4/Bull.pm b/C4/Bull.pm
new file mode 100755
index 0000000000..be1fe78edd
--- /dev/null
+++ b/C4/Bull.pm
@@ -0,0 +1,191 @@
+package C4::Bull; #assumes C4/Bull.pm
+
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha 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 2 of the License, or (at your option) any later
+# version.
+#
+# Koha 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
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
+use strict;
+require Exporter;
+
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+
+# set the version for version checking
+$VERSION = 0.01;
+
+=head1 NAME
+
+C4::Bull - Give functions for serializing.
+
+=head1 SYNOPSIS
+
+  use C4::Bull;
+
+=head1 DESCRIPTION
+
+Give all XYZ functions
+
+=cut
+
+@ISA = qw(Exporter);
+@EXPORT = qw(&Initialize_Sequence &Find_Next_Date, &Get_Next_Seq);
+
+# FIXME - Retirer ce FIXME il ne sert pas. 
+
+sub GetValue(@) {
+    my $seq = shift;
+    my $X = shift;
+    my $Y = shift;
+    my $Z = shift;
+
+    return $X if ($seq eq 'X');
+    return $Y if ($seq eq 'Y');
+    return $Z if ($seq eq 'Z');
+    return "5 Syntax Error in Sequence";
+}
+
+
+sub Initialize_Sequence(@) {
+    my $sequence = shift;
+    my $X = shift;
+    my $Xstate = shift;
+    my $Xfreq = shift;
+    my $Xstep = shift;
+    my $Y = shift;
+    my $Ystate = shift;
+    my $Yfreq = shift;
+    my $Ystep = shift;
+    my $Z = shift;
+    my $Zstate = shift;
+    my $Zfreq = shift;
+    my $Zstep = shift;
+    my $finalstring = "";
+    my @string = split //, $sequence;
+    my $etat = 0;
+    
+    for (my $i = 0; $i < (scalar @string); $i++)
+    {
+	if ($string[$i] ne '{')
+	    {
+		    if (!$etat)
+			    {
+				$finalstring .= $string[$i];
+				    }
+		        else
+			        {
+				    return "1 Syntax Error in Sequence";
+				        }
+		    }
+	else
+	    {
+#     if ($string[$i + 1] eq '\'')
+#     {
+# return "2 Syntax Error in Sequence"
+#     if ($string[$i + 2] ne 'X' && $string[$i + 2] ne 'Y' && $string[$i + 2] ne 'Z');
+
+# $finalstring .= GetValueAsc($string[$i + 2], $X, $Y, $Z);
+# $i += 3;
+#     }
+#     else
+#     {
+		return "3 Syntax Error in Sequence"
+		        if ($string[$i + 1] ne 'X' && $string[$i + 1] ne 'Y' && $string[$i + 1] ne 'Z');
+
+		    
+		$finalstring .= GetValue($string[$i + 1], $X, $Y, $Z);
+		$i += 2;
+#     }
+		}
+    }
+    return "$finalstring";
+}
+
+sub Find_Next_Date(@) {
+    return "2004-29-03";
+}
+
+sub Step(@) {
+    my $X = shift;
+    my $Xstate = shift;
+    my $Xfreq = shift;
+    my $Xstep = shift;
+    my $Y = shift;
+    my $Ystate = shift;
+    my $Yfreq = shift;
+    my $Ystep = shift;
+    my $Z = shift;
+    my $Zstate = shift;
+    my $Zfreq = shift;
+    my $Zstep = shift;
+    my $Xpos = shift;
+    my $Ypos = shift;
+    my $Zpos = shift;
+    
+    
+    $X += $Xstep if ($Xstate == 1);
+    if ($Xstate == 2) { $Xpos += 1; if ($Xpos >= $Xfreq) {
+	$Xpos = 0; $X += $Xstep; } }
+
+    $Y += $Ystep if ($Ystate == 1);
+    if ($Ystate == 2) { $Ypos += 1; if ($Ypos >= $Yfreq) {
+	$Ypos = 0; $Y += $Ystep; } }
+
+    $Z += $Zstep if ($Zstate == 1);
+    if ($Zstate == 2) { $Zpos += 1; if ($Zpos >= $Zfreq) {
+	$Zpos = 0; $Z += $Zstep; } }
+    
+#    $Y += $Ystep; if ($Ystate == 1);
+ #   if ($Ystate == 2) { $Ypos += 1; if ($Ypos >= $Yfreq) {
+	#$Ypos = 0; $Y += $Ystep; } }
+
+
+   # $Z += $Zstep; if ($Zstate == 1);
+   # if ($Zstate == 2) { $Zpos += 1; if ($Zpos >= $Zfreq) {
+#	$Zpos = 0; $Z += $Zstep; } }
+
+    return ($X, $Y, $Z, $Xpos, $Ypos, $Zpos);
+}
+
+sub Get_Next_Seq(@) {
+    my $sequence = shift;
+    my $X = shift;
+    my $Xfreq = shift;
+    my $Xstep = shift;
+    my $Xstate = shift;
+    my $Y = shift;
+    my $Yfreq = shift;
+    my $Ystep = shift;
+    my $Ystate = shift;
+    my $Z = shift;
+    my $Zfreq = shift;
+    my $Zstep = shift;
+    my $Zstate = shift;
+    my $Xpos = shift;
+    my $Ypos = shift;
+    my $Zpos = shift;
+
+    return ("$sequence", $X, $Y, $Z)
+	if (!defined($X) && !defined($Y) && !defined($Z));
+    ($X, $Y, $Z, $Xpos, $Ypos, $Zpos) = 
+	Step($X, $Xstate, $Xfreq, $Xstep, $Y, $Ystate, $Yfreq, 
+	          $Ystep, $Z, $Zstate, $Zfreq, $Zstep, $Xpos, $Ypos, $Zpos);
+    return (Initialize_Sequence($sequence, $X, $Xstate,
+				$Xfreq, $Xstep, $Y, $Ystate, $Yfreq,
+				$Ystep, $Z, $Zstate, $Zfreq, $Zstep),
+	        $X, $Y, $Z, $Xpos, $Ypos, $Zpos);
+}
+
+END { }       # module clean-up code here (global destructor)
-- 
2.39.5