From: Chris Hanson Date: Tue, 8 Mar 1994 20:33:02 +0000 (+0000) Subject: Replace "rcs" with "vc" and "rcsparse". X-Git-Tag: 20090517-FFI~7251 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c252ebb9d02472df2490889eade46b7ac6e77b9;p=mit-scheme.git Replace "rcs" with "vc" and "rcsparse". --- diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm index 85ed4a124..21a6baf4b 100644 --- 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 90b4651f2..35c1bd699 100644 --- 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 61437e369..2a848c125 100644 --- 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 d4cb52672..f22b742cf 100644 --- 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!))) + +(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)) +|# (define-package (edwin sendmail) (files "sendmail")