INTEGRATION: CWS cvsprot01 (1.1.2); FILE ADDED

2006/08/04 16:13:54 hr 1.1.2.4: #i63313# add rlog command
2006/03/29 18:25:17 hr 1.1.2.3: #i63313#: implement RemoveRequest
2006/03/23 18:04:50 hr 1.1.2.2: #i63313#: implement RemoveEntry response, fixes
2006/03/17 15:40:00 hr 1.1.2.1: #i63313# perl implementation of the CVS client protocol

solenv/bin/modules/PCVSLib/lib/PCVSLib/Request.pm

+#*************************************************************************
+#
+#   OpenOffice.org - a multi-platform office productivity suite
+#
+#   $RCSfile: Request.pm,v $
+#
+#   $Revision: 1.2 $
+#
+#   last change: $Author: vg $ $Date: 2007-08-27 13:35:21 $
+#
+#   The Contents of this file are made available subject to
+#   the terms of GNU Lesser General Public License Version 2.1.
+#
+#
+#     GNU Lesser General Public License Version 2.1
+#     =============================================
+#     Copyright 2005 by Sun Microsystems, Inc.
+#     901 San Antonio Road, Palo Alto, CA 94303, USA
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License version 2.1, as published by the Free Software Foundation.
+#
+#     This library 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
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+#     MA  02111-1307  USA
+#
+#*************************************************************************
+
+
+#
+# Request.pm - packages for creating and sending Requests
+#
+
+package PCVSLib::Request;
+
+use Carp;
+
+use strict;
+use warnings;
+
+use PCVSLib::Response;
+
+#### ctor ####
+
+sub new
+{
+    my $invocant = shift;
+    my $class = ref($invocant) || $invocant;
+    my $self = {};
+    $self->{request_data}    = shift;
+    $self->{additional_data} = shift;
+    $self->{file}            = shift;
+    # private members
+
+    bless ($self, $class);
+
+    return $self;
+}
+
+#### instance accessors #####
+
+for my $datum qw(request_data additional_data file) {
+    no strict "refs";
+    *$datum = sub {
+        my $self = shift;
+        $self->{$datum} = shift if @_;
+        return $self->{$datum};
+    }
+}
+
+#### public methods ####
+
+sub response_expected {
+    return 0;
+}
+
+sub additional_data_attached {
+    return 0;
+}
+
+sub file_attached {
+    return 0;
+}
+
+#### private methods ####
+
+package PCVSLib::VersionRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    return "version\n"
+}
+
+package PCVSLib::ValidRequestsRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    return "valid-requests\n"
+}
+
+package PCVSLib::ValidResponsesRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $valid_responses_str = join(" ", @{PCVSLib::Response::valid_responses()});
+    return "Valid-responses $valid_responses_str\n"
+}
+
+package PCVSLib::RootRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Root " . $self->{request_data} . "\n";
+}
+
+package PCVSLib::UseUnchangedRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    return "UseUnchanged\n"
+}
+
+package PCVSLib::DirectoryRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+use Carp;
+
+sub additional_data_attached
+{
+    my $self = shift;
+    if ( !$self->{additional_data} ) {
+        croak("PCVSLIB::ModifiedRequest(): additional request data missing");
+    }
+    return 1;
+}
+
+sub to_string
+{
+    my $self = shift;
+    return "Directory " . $self->{request_data} . "\n";
+}
+
+sub additional_data_to_string
+{
+    my $self = shift;
+
+    return $self->{additional_data} . "\n";
+}
+
+package PCVSLib::ArgumentRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Argument " . $self->{request_data} . "\n";
+}
+
+package PCVSLib::ArgumentxRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Argumentx " . $self->{request_data} . "\n";
+}
+
+package PCVSLib::EntryRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Entry " . $self->{request_data}->to_string() . "\n";
+}
+
+package PCVSLib::LogRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    return "log\n";
+}
+
+package PCVSLib::StatusRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    my $self = shift;
+    return "status\n";
+}
+
+package PCVSLib::RLogRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    my $self = shift;
+    return "rlog\n";
+}
+
+package PCVSLib::RDiffRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    my $self = shift;
+    return "rdiff\n";
+}
+
+package PCVSLib::TagRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    my $self = shift;
+    return "tag\n";
+}
+
+package PCVSLib::CheckoutRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    return "co\n"
+}
+
+package PCVSLib::ExpandModulesRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    return "expand-modules\n"
+}
+
+package PCVSLib::UnchangedRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Unchanged " . $self->{request_data} . "\n";
+}
+
+package PCVSLib::ModifiedRequest;
+use vars('@ISA');
+use Carp;
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Modified " . $self->{request_data} . "\n";
+}
+
+sub file_attached
+{
+    return 1;
+}
+
+package PCVSLib::IsModifiedRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Is-modified " . $self->{request_data} . "\n";
+}
+
+package PCVSLib::QuestionableRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Questionable " . $self->{request_data} . "\n";
+}
+
+package PCVSLib::StaticDirectoryRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Static-directory\n";
+}
+
+package PCVSLib::StickyRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub to_string
+{
+    my $self = shift;
+    return "Sticky " . $self->{request_data} . "\n";
+}
+
+package PCVSLib::NoOpRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    return "noop\n"
+}
+
+package PCVSLib::CiRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    my $self = shift;
+    return "ci\n";
+}
+
+package PCVSLib::UpdateRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    my $self = shift;
+    return "update\n";
+}
+
+package PCVSLib::RemoveRequest;
+use vars('@ISA');
+@ISA=('PCVSLib::Request');
+
+sub response_expected
+{
+    return 1;
+}
+
+sub to_string
+{
+    my $self = shift;
+    return "remove\n";
+}
+
+1;
+# vim: set ts=4 shiftwidth=4 expandtab syntax=perl: