diff options
Diffstat (limited to 'mail-filter/scmail')
| -rw-r--r-- | mail-filter/scmail/Manifest | 1 | ||||
| -rw-r--r-- | mail-filter/scmail/files/scmail-doc-encoding.diff | 28 | ||||
| -rw-r--r-- | mail-filter/scmail/files/scmail-gauche-0.9.diff | 35 | ||||
| -rw-r--r-- | mail-filter/scmail/metadata.xml | 7 | ||||
| -rw-r--r-- | mail-filter/scmail/scmail-1.3.ebuild | 35 |
5 files changed, 106 insertions, 0 deletions
diff --git a/mail-filter/scmail/Manifest b/mail-filter/scmail/Manifest new file mode 100644 index 000000000000..1d4f2e79602f --- /dev/null +++ b/mail-filter/scmail/Manifest @@ -0,0 +1 @@ +DIST scmail-1.3.tar.gz 52744 SHA256 04648e6d9d48e934b2324596d2b0b887cc6d8b324d4d6533e248ba511b6bb525 diff --git a/mail-filter/scmail/files/scmail-doc-encoding.diff b/mail-filter/scmail/files/scmail-doc-encoding.diff new file mode 100644 index 000000000000..5ed00a62d02d --- /dev/null +++ b/mail-filter/scmail/files/scmail-doc-encoding.diff @@ -0,0 +1,28 @@ +--- scmail-1.3.orig/doc/embed.scm ++++ scmail-1.3/doc/embed.scm +@@ -1,3 +1,4 @@ ++(use gauche.charconv) + (use gauche.regexp) + (define (escape str) + (set! str (regexp-replace-all #/&/ str "&")) +@@ -15,12 +16,18 @@ + (define (main args) + (call-with-input-file (cadr args) + (lambda (in) +- (let* ((content (port->string in)) ++ (let* ((content (port->string (open-input-conversion-port in "*jp"))) + (content (regexp-replace-all #/#\{(.*?)\}/ content + (lambda (m) + (string-append + "<pre>\n" + (read-file-and-escape (rxmatch-substring m 1)) +- "</pre>\n"))))) ++ "</pre>\n")))) ++ (content (regexp-replace #/(encoding=").*?(")/ content ++ (lambda (m) ++ (string-append ++ (rxmatch-substring m 1) ++ (ces-guess-from-string content "*jp") ++ (rxmatch-substring m 2)))))) + (display content)))) + 0) diff --git a/mail-filter/scmail/files/scmail-gauche-0.9.diff b/mail-filter/scmail/files/scmail-gauche-0.9.diff new file mode 100644 index 000000000000..36fc3b3daa77 --- /dev/null +++ b/mail-filter/scmail/files/scmail-gauche-0.9.diff @@ -0,0 +1,35 @@ +--- scmail-1.3.orig/scbayes.in ++++ scmail-1.3/scbayes.in +@@ -16,6 +16,7 @@ + + (use gauche.parseopt) + (use gauche.parameter) ++(use gauche.version) + (use dbm) + (use dbm.gdbm) ;; should be customizable + (use util.digest) +@@ -130,12 +131,18 @@ + (sys-rename (temporary-table-file) (table-file)) + (sys-rename (temporary-digest-file) (digest-file))))) + +-(define (lock) +- (unless (eq? (create-directory* (lock-file)) #t) +- (scmail-wformat "~a is now being updated" (table-file)) +- (scmail-wformat "or perhaps ~a is staled." (lock-file)) +- (scmail-eformat "(Please remove the lock file if it is staled.)")) +- ) ++(if (version<? (gauche-version) "0.9") ++ (define (lock) ++ (unless (eq? (create-directory* (lock-file)) #t) ++ (scmail-wformat "~a is now being updated" (table-file)) ++ (scmail-wformat "or perhaps ~a is staled." (lock-file)) ++ (scmail-eformat "(Please remove the lock file if it is staled.)"))) ++ (define (lock) ++ (guard (e (else ++ (scmail-wformat "~a is now being updated" (table-file)) ++ (scmail-wformat "or perhaps ~a is staled." (lock-file)) ++ (scmail-eformat "(Please remove the lock file if it is staled.)"))) ++ (create-directory* (lock-file))))) + + (define force-learn? (make-parameter #f)) + diff --git a/mail-filter/scmail/metadata.xml b/mail-filter/scmail/metadata.xml new file mode 100644 index 000000000000..d4a08224d284 --- /dev/null +++ b/mail-filter/scmail/metadata.xml @@ -0,0 +1,7 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd"> +<pkgmetadata> + <maintainer> + <email>hattya@gentoo.org</email> + </maintainer> +</pkgmetadata> diff --git a/mail-filter/scmail/scmail-1.3.ebuild b/mail-filter/scmail/scmail-1.3.ebuild new file mode 100644 index 000000000000..78cb1ff70c6f --- /dev/null +++ b/mail-filter/scmail/scmail-1.3.ebuild @@ -0,0 +1,35 @@ +# Copyright 1999-2013 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Id$ + +EAPI="4" + +inherit eutils fixheadtails + +DESCRIPTION="a mail filter written in Scheme" +HOMEPAGE="http://0xcc.net/scmail/" +SRC_URI="http://0xcc.net/scmail/${P}.tar.gz" + +LICENSE="BSD" +SLOT="0" +KEYWORDS="~amd64 ~ppc x86" +IUSE="" + +RDEPEND="dev-scheme/gauche" +DEPEND="${RDEPEND}" + +src_prepare() { + epatch "${FILESDIR}"/${PN}-*.diff + ht_fix_file tests/scmail-commands + # replace make -> $(MAKE) + sed -i "s/make\( \|$\)/\$(MAKE)\1/g" Makefile +} + +src_install() { + emake \ + PREFIX="${ED}/usr" \ + SITELIBDIR="${ED}$(gauche-config --sitelibdir)" \ + DATADIR="${ED}/usr/share/doc/${P}" \ + install + dohtml doc/*.html +} |