add folding

[git.ikiwiki.info.git] / IkiWiki / Rcs / tla.pm

diff --git a/IkiWiki/Rcs/tla.pm b/IkiWiki/Rcs/tla.pm
index 47579c15b756252e1054efe77901c22568ce7c4e..4232e1fe8372429902b7438f20e6c0c25189ce52 100644 (file)
--- a/IkiWiki/Rcs/tla.pm
+++ b/IkiWiki/Rcs/tla.pm
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
 
 #!/usr/bin/perl
 

+package IkiWiki;
+

 use warnings;
 use strict;
 use IkiWiki;
 
 use warnings;
 use strict;
 use IkiWiki;
 

-package IkiWiki;
-

 sub quiet_system (@) {
        # See Debian bug #385939.
        open (SAVEOUT, ">&STDOUT");
 sub quiet_system (@) {
        # See Debian bug #385939.
        open (SAVEOUT, ">&STDOUT");


@@ -78,6 +78,14 @@ sub rcs_commit ($$$;$$) { #{{{
        return undef # success
 } #}}}
 
        return undef # success
 } #}}}
 

+sub rcs_commit_staged ($$$) {
+       # Commits all staged changes. Changes can be staged using rcs_add,
+       # rcs_remove, and rcs_rename.
+       my ($message, $user, $ipaddr)=@_;
+       
+       error("rcs_commit_staged not implemented for tla"); # TODO
+}
+

 sub rcs_add ($) { #{{{
        my $file=shift;
 
 sub rcs_add ($) { #{{{
        my $file=shift;
 


@@ -88,6 +96,18 @@ sub rcs_add ($) { #{{{
        }
 } #}}}
 
        }
 } #}}}
 

+sub rcs_remove ($) { # {{{
+       my $file = shift;
+
+       error("rcs_remove not implemented for tla"); # TODO
+} #}}}
+
+sub rcs_rename ($$) { # {{{a
+       my ($src, $dest) = @_;
+
+       error("rcs_rename not implemented for tla"); # TODO
+} #}}}
+

 sub rcs_recentchanges ($) {
        my $num=shift;
        my @ret;
 sub rcs_recentchanges ($) {
        my $num=shift;
        my @ret;