Replace "rcs" with "vc" and "rcsparse".

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 85ed4a12403c1f9e0aa97550abde5790f0479f16..21a6baf4b8f1a22f5888a8d4a575edcb5335372f 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.49 1993/09/04 00:49:57 gjr Exp $
+$Id: decls.scm,v 1.50 1994/03/08 20:32:54 cph Exp $
 
-Copyright (c) 1989-1993 Massachusetts Institute of Technology
+Copyright (c) 1989-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -91,6 +91,7 @@ MIT in each case. |#
              "make"
              "nvector"
              "paths"
+             "rcsparse"
              "rename"
              "rgxcmp"
              "ring"
@@ -175,7 +176,7 @@ MIT in each case. |#
                "print"
                "process"
                "prompt"
-               "rcs"
+               ;;"rcs"
                "reccom"
                "regcom"
                "regexp"
@@ -204,6 +205,7 @@ MIT in each case. |#
                "txtprp"
                "undo"
                "unix"
+               "vc"
                "wincom"
                "winout"
                "xcom"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 90b4651f203afd8d1cdbab24d194dc60319b4f52..35c1bd6996795c1269b62d1c54291db88fb3545b 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: ed-ffi.scm,v 1.32 1993/09/03 04:41:44 cph Exp $
+$Id: ed-ffi.scm,v 1.33 1994/03/08 20:33:02 cph Exp $
 
-Copyright (c) 1990-93 Massachusetts Institute of Technology
+Copyright (c) 1990-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -45,6 +45,8 @@ of that license should have been included along with this file.
 (standard-scheme-find-file-initialization
  '#(("argred"  (edwin command-argument)
               edwin-syntax-table)
+    ("artdebug" (edwin debugger)
+               edwin-syntax-table)
     ("autold"  (edwin)
               edwin-syntax-table)
     ("autosv"  (edwin)
@@ -85,6 +87,8 @@ of that license should have been included along with this file.
               syntax-table/system-internal)
     ("clsmac"  (edwin class-macros)
               syntax-table/system-internal)
+    ("comhst"  (edwin)
+              edwin-syntax-table)
     ("comint"  (edwin)
               edwin-syntax-table)
     ("comman"  (edwin)
@@ -99,12 +103,16 @@ of that license should have been included along with this file.
               class-syntax-table)
     ("curren"  (edwin)
               edwin-syntax-table)
+    ("dabbrev" (edwin)
+              edwin-syntax-table)
     ("debug"   (edwin debugger)
               edwin-syntax-table)
     ("debuge"  (edwin)
               edwin-syntax-table)
     ("dired"   (edwin dired)
               edwin-syntax-table)
+    ("dirunx"  (edwin dired)
+              edwin-syntax-table)
     ("display" (edwin display-type)
               syntax-table/system-internal)
     ("docstr"  (edwin)
@@ -195,8 +203,10 @@ of that license should have been included along with this file.
               edwin-syntax-table)
     ("prompt"  (edwin prompt)
               edwin-syntax-table)
-    ("rcs"     (edwin rcs)
-              edwin-syntax-table)
+    #|("rcs"     (edwin rcs)
+              edwin-syntax-table)|#
+    ("rcsparse" (edwin rcs-parse)
+              syntax-table/system-internal)
     ("reccom"  (edwin rectangle)
               edwin-syntax-table)
     ("regcom"  (edwin register-command)
@@ -273,6 +283,8 @@ of that license should have been included along with this file.
               syntax-table/system-internal)
     ("utlwin"  (edwin window)
               class-syntax-table)
+    ("vc"      (edwin vc)
+              edwin-syntax-table)
     ("wincom"  (edwin)
               edwin-syntax-table)
     ("window"  (edwin window)
@@ -285,5 +297,7 @@ of that license should have been included along with this file.
               edwin-syntax-table)
     ("xform"   (edwin class-macros transform-instance-variables)
               syntax-table/system-internal)
+    ("xmodef"  (edwin)
+              edwin-syntax-table)
     ("xterm"   (edwin screen x-screen)
               syntax-table/system-internal)))
\ No newline at end of file

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 61437e369d899b4746526c083e1dd297f342db2a..2a848c125442d37e6ec9570c8f4c1807bf5d4ab2 100644 (file)
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.47 1994/03/04 21:43:44 cph Exp $
+$Id: edwin.ldr,v 1.48 1994/03/08 20:32:45 cph Exp $
 
 Copyright (c) 1989-94 Massachusetts Institute of Technology
 
@@ -210,7 +210,7 @@ MIT in each case. |#
        (load "motcom" environment)
        (load "occur" (->environment '(EDWIN OCCURRENCE)))
        (load "outline" environment)
-       (load "rcs" (->environment '(EDWIN RCS)))
+       ;;(load "rcs" (->environment '(EDWIN RCS)))
        (load "reccom" (->environment '(EDWIN RECTANGLE)))
        (load "regcom" (->environment '(EDWIN REGISTER-COMMAND)))
        (load "replaz" environment)
@@ -224,6 +224,10 @@ MIT in each case. |#
        (load "shell" environment)
        (load "tagutl" (->environment '(EDWIN TAGS)))
        (load "texcom" environment)
+       (if (eq? (lookup 'OS-TYPE) 'UNIX)
+           (begin
+             (load "rcsparse" (->environment '(EDWIN RCS-PARSE)))
+             (load "vc" (->environment '(EDWIN VC)))))
        (load "wincom" environment)
        (load "scrcom" environment)
        (load-set '("modefs" "xmodef") environment)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index d4cb526720997026eb0ecb576225b8efb9988b8d..f22b742cfcdf5eff593cf19b36ab6ce582ac9eaf 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.143 1994/03/08 20:26:09 cph Exp $
+$Id: edwin.pkg,v 1.144 1994/03/08 20:32:32 cph Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -1072,7 +1072,63 @@ MIT in each case. |#
          select
          print)
   (initialization (initialize-package!)))
+\f
+(define-package (edwin vc)
+  (files "vc")
+  (parent (edwin))
+  (export (edwin)
+         edwin-command$vc-cancel-version
+         edwin-command$vc-diff
+         edwin-command$vc-finish-logentry
+         edwin-command$vc-insert-headers
+         edwin-command$vc-next-action
+         edwin-command$vc-print-log
+         edwin-command$vc-register
+         edwin-command$vc-revert-buffer
+         edwin-command$vc-toggle-read-only
+         edwin-command$vc-version-diff
+         edwin-command$vc-version-other-window
+         edwin-mode$vc-log
+         edwin-variable$diff-switches
+         edwin-variable$vc-checkin-hooks
+         edwin-variable$vc-checkin-switches
+         edwin-variable$vc-checkout-carefully
+         edwin-variable$vc-command-messages
+         edwin-variable$vc-initial-comment
+         edwin-variable$vc-keep-workfiles
+         edwin-variable$vc-log-mode-hook
+         edwin-variable$vc-make-backup-files
+         edwin-variable$vc-mode-line-status
+         edwin-variable$vc-rcs-preserve-mod-times
+         edwin-variable$vc-rcs-status
+         edwin-variable$vc-suppress-confirm))
 
+(define-package (edwin rcs-parse)
+  (files "rcsparse")
+  (parent (edwin))
+  (export (edwin)
+         parse-rcs-admin
+         rcs-admin/access-list
+         rcs-admin/branch
+         rcs-admin/comment
+         rcs-admin/description
+         rcs-admin/expand
+         rcs-admin/head
+         rcs-admin/locks
+         rcs-admin/strict?
+         rcs-admin/symbols
+         rcs-admin?
+         rcs-delta/author
+         rcs-delta/branches
+         rcs-delta/date
+         rcs-delta/next
+         rcs-delta/number
+         rcs-delta/state
+         rcs-delta?
+         rcs-find-delta
+         rcs-number-head
+         rcs-number-length))
+#|
 (define-package (edwin rcs)
   (files "rcs")
   (parent (edwin))
@@ -1088,6 +1144,7 @@ MIT in each case. |#
          edwin-variable$rcs-co-default-switches
          edwin-variable$rcs-diff-default-switches
          edwin-variable$rcs-log-default-switches))
+|#
 \f
 (define-package (edwin sendmail)
   (files "sendmail")