Re: is there an subversion-svn-mode for jed available

["John E. Davis" <davis@xxxxxxxxxxxxx>]

Joachim Schmitz <js@xxxxxxxxxxxxx> wrote:
>is there a svn-mode for jed like the csv.sl found here:
>http://jsnell.iki.fi/software/

The same author of cvs.sl has provided this patch, which he admits has
not been tested much.  Let me know if this works out.  Thanks, --John

--- cvs.sl	2006-11-21 04:44:07.000000000 +0200
+++ svn.sl	2006-11-21 05:06:19.000000000 +0200
@@ -1,5 +1,28 @@
 % -*- mode: slang; mode: folding -*-
 %
+% (Standard MIT/X11 license follows)
+% 
+% Copyright (c) 2003,2006 Juho Snellman
+% 
+% Permission is hereby granted, free of charge, to any person obtaining
+% a copy of this software and associated documentation files (the
+% "Software"), to deal in the Software without restriction, including
+% without limitation the rights to use, copy, modify, merge, publish,
+% distribute, sublicense, and/or sell copies of the Software, and to
+% permit persons to whom the Software is furnished to do so, subject to
+% the following conditions:
+% 
+% The above copyright notice and this permission notice shall be
+% included in all copies or substantial portions of the Software.
+% 
+% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+% EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+% MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+% NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+% LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+% OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+% WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+% 
 % Utilities for CVS access from jed. 
 % 
 %    ** Installation **
@@ -119,6 +142,9 @@
 % 2003-12-09 / Juho Snellman <jsnell@xxxxxx>
 %   * Fix find_marked_common_root
 %   
+% 2006-11-21 / Juho Snellman <jsnell@xxxxxx>
+%   * Rough SVN port
+%   
    
 _debug_info=1; _traceback=1; _slangtrace=1;
 
@@ -132,7 +158,7 @@
 provide(__FILE__);
 private variable reloading = ();
 
-custom_variable("cvs_executable", "/usr/bin/cvs");
+custom_variable("cvs_executable", "/usr/bin/svn");
 custom_variable("cvs_set_reserved_keybindings", 1);
 custom_variable("cvs_help", 1);
 
@@ -273,15 +299,15 @@
         error("Can't do CVS operations on buffers that don't contain a file.");
     }
     
-    variable cvs_dir = path_concat(dir, "CVS");
-    variable entries = path_concat(cvs_dir, "Entries");
+    variable cvs_dir = path_concat(dir, ".svn");
+    variable entries = path_concat(cvs_dir, "entries");
     
     if (file_status(cvs_dir) != 2) {
-        error("Working directory " + dir + " lacks CVS/ subdirectory");
+        error("Working directory " + dir + " lacks .svn/ subdirectory");
     }
     
     if (file_status(entries) != 1) {
-        error("Working directory " + dir + " lacks CVS/Entries");
+        error("Working directory " + dir + " lacks .svn/entries");
     }
     
     return (file, dir);
@@ -296,7 +322,7 @@
     insert_file(entries);
     bob();
     
-    variable found = bol_fsearch("/" + filename + "/");
+    variable found = bol_fsearch("name=\"" + filename + "\"");
     
     erase_buffer();
     killbuf();
@@ -310,15 +336,15 @@
     variable file, dir; 
     (file, dir) = require_buffer_dir_in_cvs();
     
-    variable cvs_dir = path_concat(dir, "CVS");
-    variable entries = path_concat(cvs_dir, "Entries");
+    variable cvs_dir = path_concat(dir, ".svn");
+    variable entries = path_concat(cvs_dir, "entries");
 
     !if (entries_contains_filename(entries, file)) {
         variable res = 0;
         
         while (res != 'y' and res != 'n') {
             res = get_mini_response("File " + file +
-                                    " not found in CVS/Entries. Add it [yn]? ");
+                                    " not found in .svn/entries. Add it [yn]? ");
         }
         
         if (res == 'y') {
@@ -476,7 +502,7 @@
     
     init_diff_buffer(1);
     
-    do_cvs([ "-q", "diff", file ], dir, 0, 0);
+    do_cvs([ "diff", file ], dir, 0, 0);
     
     postprocess_diff_buffer();
 }
@@ -819,7 +845,7 @@
     set_readonly(0);
     erase_buffer();
     
-    do_cvs(["-qnf", "update"], dir, 0, 0);
+    do_cvs(["status"], dir, 0, 0);
     
     postprocess_dirlist_buffer();
 }
@@ -921,7 +947,7 @@
     
     init_diff_buffer(1);
     
-    do_cvs(array_concat( ["-q", "diff"], rfiles ), dir, 0, 0);
+    do_cvs(array_concat( ["diff"], rfiles ), dir, 0, 0);
     postprocess_diff_buffer();
 
     sw2buf(diff_buffer);
@@ -962,7 +988,7 @@
     variable dir, file;
     (dir, file) = extract_filename();
     init_diff_buffer(1);
-    do_cvs(["-q", "diff", file], dir, 0, 0);
+    do_cvs(["diff", file], dir, 0, 0);
     postprocess_diff_buffer();
 }
 %}}}
@@ -985,7 +1011,7 @@
     } 
     
     if (a == 'y') {    
-        do_cvs(["update", "-C", file], dir, 1, 1);
+        do_cvs(["revert", file], dir, 1, 1);
     }
 }
 %}}}
@@ -1061,7 +1087,7 @@
     
     init_diff_buffer(0);
         
-    do_cvs(["-q", "diff"], dir, 0, 0);    
+    do_cvs(["diff"], dir, 0, 0);    
     postprocess_diff_buffer();
 }
 %}}}

--------------------------
To unsubscribe send email to <jed-users-request@xxxxxxxxxxx> with
the word "unsubscribe" in the message body.
Need help? Email <jed-users-owner@xxxxxxxxxxx>.