home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / imail / imail.pkg < prev    next >
Text File  |  2001-06-04  |  12KB  |  381 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; $Id: imail.pkg,v 1.87 2001/06/04 17:42:49 cph Exp $
  4. ;;;
  5. ;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
  6. ;;;
  7. ;;; This program is free software; you can redistribute it and/or
  8. ;;; modify it under the terms of the GNU General Public License as
  9. ;;; published by the Free Software Foundation; either version 2 of the
  10. ;;; License, or (at your option) any later version.
  11. ;;;
  12. ;;; This program is distributed in the hope that it will be useful,
  13. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15. ;;; General Public License for more details.
  16. ;;;
  17. ;;; You should have received a copy of the GNU General Public License
  18. ;;; along with this program; if not, write to the Free Software
  19. ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  20. ;;; 02111-1307, USA.
  21.  
  22. ;;;; IMAIL mail reader: packaging
  23.  
  24. (global-definitions "../runtime/runtime")
  25. (global-definitions "../sos/sos")
  26. (global-definitions "../edwin/edwinunx")
  27.  
  28. (define-package (edwin imail rexp)
  29.   (files "rexp")
  30.   (parent (edwin imail))
  31.   (export (edwin imail)
  32.       rexp*
  33.       rexp+
  34.       rexp->regexp
  35.       rexp-alternatives
  36.       rexp-any-char
  37.       rexp-case-fold
  38.       rexp-compile
  39.       rexp-group
  40.       rexp-line-end
  41.       rexp-line-start
  42.       rexp-not-syntax-char
  43.       rexp-not-word-char
  44.       rexp-not-word-edge
  45.       rexp-optional
  46.       rexp-sequence
  47.       rexp-string-end
  48.       rexp-string-start
  49.       rexp-syntax-char
  50.       rexp-word-char
  51.       rexp-word-edge
  52.       rexp-word-end
  53.       rexp-word-start
  54.       rexp?))
  55.  
  56. (define-package (edwin imail parser)
  57.   (files "parser")
  58.   (parent (edwin imail))
  59.   (export (edwin imail)
  60.       *-matcher
  61.       +-matcher
  62.       alternatives-matcher
  63.       alternatives-parser
  64.       ci-string-matcher
  65.       decoding-parser
  66.       encapsulating-parser
  67.       list-parser
  68.       match-always
  69.       match-never
  70.       noise-parser
  71.       optional-matcher
  72.       optional-parser
  73.       parse-always
  74.       parse-never
  75.       parse-string
  76.       parse-substring
  77.       parser-token
  78.       predicated-parser
  79.       rexp-matcher
  80.       sequence-matcher
  81.       sequence-parser
  82.       simple-parser
  83.       string-matcher))
  84.  
  85. (define-package (edwin imail url)
  86.   (files "url")
  87.   (parent (edwin imail))
  88.   (export (edwin imail)
  89.       url:char-set:escaped
  90.       url:char-set:extra
  91.       url:char-set:national
  92.       url:char-set:punctuation
  93.       url:char-set:reserved
  94.       url:char-set:safe
  95.       url:char-set:unescaped
  96.       url:char-set:unreserved
  97.       url:decode-string
  98.       url:decode-substring
  99.       url:encode-string
  100.       url:encode-substring
  101.       url:rexp:escape
  102.       url:rexp:host
  103.       url:rexp:hostname
  104.       url:rexp:hostnumber
  105.       url:rexp:hostport
  106.       url:rexp:uchar
  107.       url:rexp:xchar
  108.       url:string-encoded?
  109.       url:substring-encoded?))
  110.  
  111. (define-package (edwin imail)
  112.   (files "imail-util"
  113.      "imail-core")
  114.   (parent (edwin)))
  115.  
  116. (define-package (edwin imail file-folder)
  117.   (files "imail-file")
  118.   (parent (edwin imail))
  119.   (export (edwin imail)
  120.       file-folder-pathname
  121.       file-folder?
  122.       file-message?
  123.       file-url?))
  124.  
  125. (define-package (edwin imail file-folder rmail-folder)
  126.   (files "imail-rmail")
  127.   (parent (edwin imail file-folder))
  128.   (export (edwin imail)
  129.       make-rmail-url
  130.       rmail-folder?
  131.       rmail-message?
  132.       rmail-url?))
  133.  
  134. (define-package (edwin imail file-folder umail-folder)
  135.   (files "imail-umail")
  136.   (parent (edwin imail file-folder))
  137.   (export (edwin imail)
  138.       make-umail-url
  139.       umail-folder?
  140.       umail-message?
  141.       umail-url?)
  142.   (export (edwin imail file-folder rmail-folder)
  143.       read-umail-message
  144.       umail-delimiter?))
  145.  
  146. (define-package (edwin imail imap-syntax)
  147.   (files "imap-syntax")
  148.   (parent (edwin imail))
  149.   (export (edwin imail imap-folder)
  150.       imap:decode-mailbox-name
  151.       imap:encode-mailbox-name
  152.       imap:parse:enc-mailbox
  153.       imap:server-parser
  154.       imap:string-may-be-quoted?
  155.       imap:universal-time->date-time
  156.       imap:write-literal-string-body
  157.       imap:write-literal-string-header
  158.       imap:write-quoted-string)
  159.   (export (edwin imail imap-response)
  160.       imap:atom-char?
  161.       imap:char-set:atom-char
  162.       imap:char-set:tag-char
  163.       imap:char-set:text-char
  164.       imap:match:tag
  165.       imap:parse:section
  166.       imap:quoted-char?
  167.       imap:quoted-special?))
  168.  
  169. (define-package (edwin imail imap-response)
  170.   (files "imap-response")
  171.   (parent (edwin imail))
  172.   (export (edwin imail)
  173.       imap-transcript-flush-output
  174.       imap-transcript-write
  175.       imap-transcript-write-char
  176.       imap-transcript-write-string
  177.       imap-transcript-write-substring
  178.       start-imap-transcript
  179.       stop-imap-transcript)
  180.   (export (edwin imail imap-folder)
  181.       imap:bind-fetch-body-part-port
  182.       imap:read-literal-progress-hook
  183.       imap:read-server-response
  184.       imap:response-code:alert?
  185.       imap:response-code:permanentflags
  186.       imap:response-code:permanentflags?
  187.       imap:response-code:read-only?
  188.       imap:response-code:read-write?
  189.       imap:response-code:trycreate?
  190.       imap:response-code:uidnext
  191.       imap:response-code:uidnext?
  192.       imap:response-code:uidvalidity
  193.       imap:response-code:uidvalidity?
  194.       imap:response-code:unseen
  195.       imap:response-code:unseen?
  196.       imap:response:bad?
  197.       imap:response:bye?
  198.       imap:response:capabilities
  199.       imap:response:capability?
  200.       imap:response:continue?
  201.       imap:response:exists-count
  202.       imap:response:exists?
  203.       imap:response:expunge-index
  204.       imap:response:expunge?
  205.       imap:response:fetch-attribute
  206.       imap:response:fetch-attribute-keywords
  207.       imap:response:fetch-body-part
  208.       imap:response:fetch-index
  209.       imap:response:fetch?
  210.       imap:response:flags
  211.       imap:response:flags?
  212.       imap:response:list-delimiter
  213.       imap:response:list-flags
  214.       imap:response:list-mailbox
  215.       imap:response:list?
  216.       imap:response:lsub?
  217.       imap:response:namespace-other
  218.       imap:response:namespace-personal
  219.       imap:response:namespace-shared
  220.       imap:response:namespace?
  221.       imap:response:no?
  222.       imap:response:ok?
  223.       imap:response:preauth?
  224.       imap:response:recent?
  225.       imap:response:response-text-code
  226.       imap:response:response-text-string
  227.       imap:response:search-indices
  228.       imap:response:search?
  229.       imap:response:status-response?
  230.       imap:response:status?
  231.       imap:response:tag))
  232.  
  233. (define-package (edwin imail imap-folder)
  234.   (files "imail-imap")
  235.   (parent (edwin imail))
  236.   (export (edwin imail)
  237.       imap-folder?
  238.       imap-message?
  239.       imap-trace-port
  240.       imap-url?
  241.       make-imap-url
  242.       start-imap-trace
  243.       stop-imap-trace))
  244.  
  245. (define-package (edwin imail front-end)
  246.   (files "imail-top")
  247.   (parent (edwin imail))
  248.   (export (edwin)
  249.       edwin-command$imail
  250.       edwin-command$imail-add-flag
  251.       edwin-command$imail-bury
  252.       edwin-command$imail-continue
  253.       edwin-command$imail-copy-folder
  254.       edwin-command$imail-create-folder
  255.       edwin-command$imail-delete-backward
  256.       edwin-command$imail-delete-folder
  257.       edwin-command$imail-delete-forward
  258.       edwin-command$imail-delete-message
  259.       edwin-command$imail-disconnect
  260.       edwin-command$imail-expunge
  261.       edwin-command$imail-first-message
  262.       edwin-command$imail-first-unseen-message
  263.       edwin-command$imail-forward
  264.       edwin-command$imail-get-new-mail
  265.       edwin-command$imail-input
  266.       edwin-command$imail-input-from-folder
  267.       edwin-command$imail-kill-flag
  268.       edwin-command$imail-last-message
  269.       edwin-command$imail-mail
  270.       edwin-command$imail-mouse-save-mime-entity
  271.       edwin-command$imail-next-flagged-message
  272.       edwin-command$imail-next-message
  273.       edwin-command$imail-next-same-subject
  274.       edwin-command$imail-next-undeleted-message
  275.       edwin-command$imail-output
  276.       edwin-command$imail-previous-flagged-message
  277.       edwin-command$imail-previous-message
  278.       edwin-command$imail-previous-same-subject
  279.       edwin-command$imail-previous-undeleted-message
  280.       edwin-command$imail-quit
  281.       edwin-command$imail-rename-folder
  282.       edwin-command$imail-reply
  283.       edwin-command$imail-resend
  284.       edwin-command$imail-save-attachment
  285.       edwin-command$imail-save-folder
  286.       edwin-command$imail-save-mime-entity
  287.       edwin-command$imail-search
  288.       edwin-command$imail-select-message
  289.       edwin-command$imail-toggle-header
  290.       edwin-command$imail-toggle-message
  291.       edwin-command$imail-toggle-mime-entity
  292.       edwin-command$imail-undelete-backward
  293.       edwin-command$imail-undelete-forward
  294.       edwin-command$imail-undelete-previous-message
  295.       edwin-mode$imail
  296.       edwin-variable$imail-auto-wrap
  297.       edwin-variable$imail-body-cache-limit
  298.       edwin-variable$imail-default-dont-reply-to-names
  299.       edwin-variable$imail-default-imap-mailbox
  300.       edwin-variable$imail-default-imap-server
  301.       edwin-variable$imail-default-user-id
  302.       edwin-variable$imail-delete-after-output
  303.       edwin-variable$imail-dont-reply-to-names
  304.       edwin-variable$imail-expunge-confirmation
  305.       edwin-variable$imail-forward-all-headers
  306.       edwin-variable$imail-forward-using-mime
  307.       edwin-variable$imail-global-mail-notification
  308.       edwin-variable$imail-ignored-headers
  309.       edwin-variable$imail-inline-mime-text-subtypes
  310.       edwin-variable$imail-kept-headers
  311.       edwin-variable$imail-known-mime-charsets
  312.       edwin-variable$imail-message-filter
  313.       edwin-variable$imail-mime-attachment-directory
  314.       edwin-variable$imail-mime-boundary-style
  315.       edwin-variable$imail-mime-collapse-digest
  316.       edwin-variable$imail-mime-show-alternatives
  317.       edwin-variable$imail-mode-hook
  318.       edwin-variable$imail-output-default
  319.       edwin-variable$imail-pass-phrase-retention-time
  320.       edwin-variable$imail-primary-folder
  321.       edwin-variable$imail-reply-with-re
  322.       edwin-variable$imail-update-interval)
  323.   (export (edwin imail)
  324.       imail-ui:body-cache-limit
  325.       imail-ui:call-with-pass-phrase
  326.       imail-ui:delete-stored-pass-phrase
  327.       imail-ui:message-wrapper
  328.       imail-ui:present-user-alert
  329.       imail-ui:progress-meter
  330.       imail-ui:prompt-for-yes-or-no?))
  331.  
  332. (define-package (edwin imail front-end summary)
  333.   (files "imail-summary")
  334.   (parent (edwin imail front-end))
  335.   (export (edwin)
  336.       edwin-command$imail-summary
  337.       edwin-command$imail-summary-by-flags
  338.       edwin-command$imail-summary-by-recipients
  339.       edwin-command$imail-summary-by-regexp
  340.       edwin-command$imail-summary-by-topic
  341.       edwin-command$imail-summary-first-message
  342.       edwin-command$imail-summary-last-message
  343.       edwin-command$imail-summary-next-message
  344.       edwin-command$imail-summary-previous-message
  345.       edwin-command$imail-summary-select-message
  346.       edwin-mode$imail-summary
  347.       edwin-variable$imail-summary-auto-select
  348.       edwin-variable$imail-summary-fixed-layout
  349.       edwin-variable$imail-summary-height
  350.       edwin-variable$imail-summary-highlight-message
  351.       edwin-variable$imail-summary-mode-hook
  352.       edwin-variable$imail-summary-pop-up-message
  353.       edwin-variable$imail-summary-show-date
  354.       edwin-variable$imail-summary-subject-width)
  355.   (export (edwin imail front-end)
  356.       write-imail-summary-line!))
  357.  
  358. (define-package (edwin imail front-end folder-browser)
  359.   (files "imail-browser")
  360.   (parent (edwin imail front-end))
  361.   (export (edwin imail front-end)
  362.       imail-browse-container)
  363.   (export (edwin)
  364.       edwin-command$imail-browser-do-copy
  365.       edwin-command$imail-browser-do-delete
  366.       edwin-command$imail-browser-do-flagged-delete
  367.       edwin-command$imail-browser-do-rename
  368.       edwin-command$imail-browser-flag-folder-deletion
  369.       edwin-command$imail-browser-mark
  370.       edwin-command$imail-browser-mouse-toggle-container
  371.       edwin-command$imail-browser-quit
  372.       edwin-command$imail-browser-revert
  373.       edwin-command$imail-browser-toggle-container
  374.       edwin-command$imail-browser-unmark
  375.       edwin-command$imail-browser-unmark-all-folders
  376.       edwin-command$imail-browser-unmark-backward
  377.       edwin-command$imail-browser-view-container
  378.       edwin-command$imail-browser-view-selected-container
  379.       edwin-command$imail-browser-view-selected-folder
  380.       edwin-mode$imail-browser
  381.       edwin-variable$imail-browser-mode-hook))