From: Chris Hanson Date: Wed, 3 May 1995 07:50:39 +0000 (+0000) Subject: Add auto-loaded news reader. X-Git-Tag: 20090517-FFI~6351 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=597baeca88f76c4681e0162a0f71d9c14de9fbe8;p=mit-scheme.git Add auto-loaded news reader. --- diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm index 65899f795..d27bd9575 100644 --- a/v7/src/edwin/decls.scm +++ b/v7/src/edwin/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 1.54 1995/02/14 00:29:58 cph Exp $ +$Id: decls.scm,v 1.55 1995/05/03 07:49:58 cph Exp $ Copyright (c) 1989-95 Massachusetts Institute of Technology @@ -90,6 +90,7 @@ MIT in each case. |# "key-x11" "macros" "make" + "nntp" "nvector" "os2term" "paths" @@ -201,6 +202,7 @@ MIT in each case. |# "sercom" "shell" "simple" + "snr" "sort" "syntax" "tagutl" diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm index fd3b1e652..b8daa835e 100644 --- a/v7/src/edwin/ed-ffi.scm +++ b/v7/src/edwin/ed-ffi.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: ed-ffi.scm,v 1.37 1995/02/14 00:30:28 cph Exp $ +$Id: ed-ffi.scm,v 1.38 1995/05/03 07:50:08 cph Exp $ Copyright (c) 1990-95 Massachusetts Institute of Technology @@ -191,6 +191,8 @@ of that license should have been included along with this file. edwin-syntax-table) ("motion" (edwin) syntax-table/system-internal) + ("nntp" (edwin nntp) + syntax-table/system-internal) ("notify" (edwin) edwin-syntax-table) ("nvector" (edwin) @@ -257,6 +259,8 @@ of that license should have been included along with this file. edwin-syntax-table) ("simple" (edwin) syntax-table/system-internal) + ("snr" (edwin news-reader) + edwin-syntax-table) ("sort" (edwin) edwin-syntax-table) ("strpad" (edwin) diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg index fe7050a71..b0b784f1c 100644 --- a/v7/src/edwin/edwin.pkg +++ b/v7/src/edwin/edwin.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: edwin.pkg,v 1.171 1995/05/02 21:18:47 cph Exp $ +$Id: edwin.pkg,v 1.172 1995/05/03 07:50:39 cph Exp $ Copyright (c) 1989-95 Massachusetts Institute of Technology @@ -1489,4 +1489,113 @@ MIT in each case. |# ynode-result-special ynode-type ynode-value-node) - (initialization (initialize-package!))) \ No newline at end of file + (initialization (initialize-package!))) + +(define-package (edwin news-reader) + (files "snr") + (parent (edwin)) + (export (edwin) + edwin-command$all-news-groups + edwin-command$catch-up-news-group + edwin-command$delete-news-article + edwin-command$delete-news-thread + edwin-command$expunge-news-group + edwin-command$news-kill-current-buffer + edwin-command$news-next-line + edwin-command$news-previous-line + edwin-command$next-news-article + edwin-command$output-news-article + edwin-command$output-news-article-to-rmail-file + edwin-command$previous-news-article + edwin-command$refresh-news-group + edwin-command$refresh-news-groups + edwin-command$reply-to-news-article + edwin-command$revert-news-group + edwin-command$rnews + edwin-command$save-news-server-data + edwin-command$select-news-article + edwin-command$select-news-group + edwin-command$subscribe-news-group + edwin-command$subscribe-news-group-by-name + edwin-command$toggle-news-article-context + edwin-command$toggle-news-article-header + edwin-command$undelete-news-article + edwin-command$undelete-news-thread + edwin-command$unsubscribe-news-group + edwin-mode$news-article + edwin-mode$news-group + edwin-mode$news-server + edwin-variable$news-article-context-lines + edwin-variable$news-server + edwin-variable$news-server-show-domain + edwin-variable$show-unsubscribed-news-groups)) + +(define-package (edwin nntp) + (files "nntp") + (parent (edwin)) +#| + ;; This program doesn't need to be part of Edwin except for these + ;; two bindings. MESSAGE could be easily implemented in any + ;; interface. OS/FIND-PROGRAM has nothing to do with Edwin in the + ;; first place, and should be in the runtime system. + (parent ()) + (import (edwin) + message + os/find-program) +|# + (export (edwin news-reader) + canonicalize-subject + compare-subjects + find-active-news-group + find-news-group + make-news-group + news-group:< + news-group:active? + news-group:cached-header + news-group:cached-header-numbers + news-group:cached-headers + news-group:connection + news-group:discard-cached-header! + news-group:estimated-n-articles + news-group:first-article + news-group:header + news-group:headers + news-group:last-article + news-group:name + news-group:reader-hook + news-group:server + news-group:update-probe! + news-group? + news-header:< + news-header:dummy? + news-header:field-value + news-header:followup-to + news-header:followups + news-header:group + news-header:message-id + news-header:number + news-header:read-body + news-header:reader-hook + news-header:text + news-header:thread + news-header:xref + news-header? + news-thread:< + news-thread:for-each-header + news-thread:reader-hook + news-thread:root-headers + news-thread? + nntp-connection:active-groups + nntp-connection:close + nntp-connection:closed? + nntp-connection:discard-active-groups-cache! + nntp-connection:reader-hook + nntp-connection:reopen + nntp-connection:server + open-nntp-connection + organize-headers-into-threads + set-news-group:reader-hook! + set-news-header:reader-hook! + set-news-thread:reader-hook! + set-nntp-connection:reader-hook! + token->number)) \ No newline at end of file diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm index fd88080f6..4737c9bfc 100644 --- a/v7/src/edwin/loadef.scm +++ b/v7/src/edwin/loadef.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: loadef.scm,v 1.27 1994/12/19 19:40:55 cph Exp $ +;;; $Id: loadef.scm,v 1.28 1995/05/03 07:50:29 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology ;;; @@ -217,6 +217,17 @@ variable's value is #F, the text is printed using LPR-COMMAND." (define-autoload-command 'step-defun 'STEPPER "Single-step the definition that the point is in or before.") + +(define-library 'NEWS-READER + '("nntp" (EDWIN NNTP)) + '("snr" (EDWIN NEWS-READER))) + +(define-autoload-command 'rnews 'NEWS-READER + "Start a News reader. +Normally uses the server specified by the variable news-server, +but with a prefix arg prompts for the server name. +Only one News reader may be open per server; if a previous News reader +is open the that server, its buffer is selected.") ;;;; DOS-specific commands