pkgsrc-Changes archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Old Index]
CVS commit: pkgsrc/chat/zenicb
Module Name: pkgsrc
Committed By: wiz
Date: Tue Sep 8 09:35:08 UTC 2026
Modified Files:
pkgsrc/chat/zenicb: Makefile distinfo
Added Files:
pkgsrc/chat/zenicb/patches: patch-src_zenicb-8ball.el
patch-src_zenicb-add.el patch-src_zenicb-away.el
patch-src_zenicb-example.el patch-src_zenicb-fortran.el
patch-src_zenicb-history.el patch-src_zenicb-meditate.el
patch-src_zenicb-nologout.el patch-src_zenicb-signal.el
patch-src_zenicb-stamp.el patch-src_zenicb-trigger.el
patch-src_zenicb-whereis.el patch-src_zenicb-yow.el
patch-src_zenicb.el
Removed Files:
pkgsrc/chat/zenicb/patches: patch-aa patch-ab
Log Message:
zenicb: adapt for emacs 31+
'emacs -Q --batch -L . -f batch-byte-compile *el' is now happy
except for zenicb-yow.el, because yow was removed from emacs
Requested and tested by he@
Bump PKGREVISION.
To generate a diff of this commit:
cvs rdiff -u -r1.25 -r1.26 pkgsrc/chat/zenicb/Makefile
cvs rdiff -u -r1.10 -r1.11 pkgsrc/chat/zenicb/distinfo
cvs rdiff -u -r1.3 -r0 pkgsrc/chat/zenicb/patches/patch-aa
cvs rdiff -u -r1.1 -r0 pkgsrc/chat/zenicb/patches/patch-ab
cvs rdiff -u -r0 -r1.1 pkgsrc/chat/zenicb/patches/patch-src_zenicb-8ball.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-add.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-away.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-example.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-fortran.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-history.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-meditate.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-nologout.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-signal.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-stamp.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-trigger.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-whereis.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb-yow.el \
pkgsrc/chat/zenicb/patches/patch-src_zenicb.el
Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.
Modified files:
Index: pkgsrc/chat/zenicb/Makefile
diff -u pkgsrc/chat/zenicb/Makefile:1.25 pkgsrc/chat/zenicb/Makefile:1.26
--- pkgsrc/chat/zenicb/Makefile:1.25 Sat May 14 22:25:33 2022
+++ pkgsrc/chat/zenicb/Makefile Tue Sep 8 09:35:07 2026
@@ -1,8 +1,8 @@
-# $NetBSD: Makefile,v 1.25 2022/05/14 22:25:33 dholland Exp $
+# $NetBSD: Makefile,v 1.26 2026/09/08 09:35:07 wiz Exp $
DISTNAME= zenicb-19981202
PKGNAME= ${EMACS_PKGNAME_PREFIX}${DISTNAME}
-PKGREVISION= 6
+PKGREVISION= 7
CATEGORIES= chat
MASTER_SITES= ${MASTER_SITE_LOCAL}
@@ -13,9 +13,9 @@ INSTALLATION_DIRS= ${EMACS_LISPPREFIX:C|
NO_SRC_ON_FTP= Already in MASTER_SITE_LOCAL
-.include "../../editors/emacs/modules.mk"
+EMACS_VERSIONS_ACCEPTED= emacs31 emacs31nox
-EMACS_VERSIONS_ACCEPTED= emacs21 emacs21nox emacs20 xemacs214 xemacs215
+.include "../../editors/emacs/modules.mk"
#PLIST_SUBST+= ELISPDIR=${ELISPDIR}
Index: pkgsrc/chat/zenicb/distinfo
diff -u pkgsrc/chat/zenicb/distinfo:1.10 pkgsrc/chat/zenicb/distinfo:1.11
--- pkgsrc/chat/zenicb/distinfo:1.10 Tue Oct 26 10:05:28 2021
+++ pkgsrc/chat/zenicb/distinfo Tue Sep 8 09:35:07 2026
@@ -1,7 +1,19 @@
-$NetBSD: distinfo,v 1.10 2021/10/26 10:05:28 nia Exp $
+$NetBSD: distinfo,v 1.11 2026/09/08 09:35:07 wiz Exp $
BLAKE2s (zenicb-19981202.tar.gz) = 06a639a04910150c91a913f751feb7deef673402feadc4cb5f3643d9e444655a
SHA512 (zenicb-19981202.tar.gz) = 98be3475459b0865a06fe8a1b327e3038031a58ad6f38351870f9ef2327777e5738a2063493be1011bda6d251b7493427f0128ad784a548af5d9f86b588821b4
Size (zenicb-19981202.tar.gz) = 30833 bytes
-SHA1 (patch-aa) = 9077cfcddf33c64c14cd8c609e7921e339d60ce2
-SHA1 (patch-ab) = 26e994ed66a0b0792f9741edaae5a2bf86e39345
+SHA1 (patch-src_zenicb-8ball.el) = 12000cf2487725a1bbdf9f7dc033f2c0a6e31772
+SHA1 (patch-src_zenicb-add.el) = 9afcc05bf2f50300f55ca0dcd244afc707be7e9f
+SHA1 (patch-src_zenicb-away.el) = b1031d631d31dcc61756773ec632bcd53d2dffc4
+SHA1 (patch-src_zenicb-example.el) = b35fb7cf76d24f38993798da478d9ff008e8bdae
+SHA1 (patch-src_zenicb-fortran.el) = feab3d9a537727261b3959cde3d20a489217650c
+SHA1 (patch-src_zenicb-history.el) = b8a49aa28367938c9d17b8c29b59740f40a61066
+SHA1 (patch-src_zenicb-meditate.el) = c4369cef94addaac9958723095449a386d61e27a
+SHA1 (patch-src_zenicb-nologout.el) = 2af8a14a062bae36782de2b44f87f9bc65ba40b0
+SHA1 (patch-src_zenicb-signal.el) = 836fef57fb6733e06e92d3707a362665e8de4928
+SHA1 (patch-src_zenicb-stamp.el) = 48a502dece773cf2feac4630a0d2ea1e2d7fb255
+SHA1 (patch-src_zenicb-trigger.el) = 69798a72d6383cbb291ccafcb081007604c62871
+SHA1 (patch-src_zenicb-whereis.el) = d86a9180e39bb98c2b653b2eb6e0630deb21edf0
+SHA1 (patch-src_zenicb-yow.el) = 023ecf797ae5b350c2c4b183fb9a13ab713ad2c0
+SHA1 (patch-src_zenicb.el) = 6b273c8e1ac2a8e0bb4d27dbeb02d85f82d7a36a
Added files:
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-8ball.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-8ball.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-8ball.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,12 @@
+$NetBSD: patch-src_zenicb-8ball.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+
+--- src/zenicb-8ball.el.orig 1998-07-19 22:03:03.000000000 +0000
++++ src/zenicb-8ball.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-8ball.el --- magic 8 ball for ZenICB
+
+ ;; Copyright (C) 1998 Faried Nawaz
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-add.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-add.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-add.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,19 @@
+$NetBSD: patch-src_zenicb-add.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+
+--- src/zenicb-add.el.orig 1998-03-28 00:56:14.000000000 +0000
++++ src/zenicb-add.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-add.el --- Add/redefine functions after loading zenicb.el
+
+ ;;; Copyright (C) 1998 Faried Nawaz
+@@ -61,4 +63,4 @@
+ (nth 0 parsedmsg)
+ (nth 1 parsedmsg))))
+
+-;;; end.
+\ No newline at end of file
++;;; end.
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-away.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-away.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-away.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,12 @@
+$NetBSD: patch-src_zenicb-away.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+
+--- src/zenicb-away.el.orig 1998-03-28 13:47:50.000000000 +0000
++++ src/zenicb-away.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-away.el --- provide /away command for ZenICB
+
+ ;; Copyright (C) 1997 Faried Nawaz
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-example.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-example.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-example.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,28 @@
+$NetBSD: patch-src_zenicb-example.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+string-to-int has been replaced by string-to-number
+
+--- src/zenicb-example.el.orig 1998-07-19 22:12:55.000000000 +0000
++++ src/zenicb-example.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-example.el --- Example customizations for zenicb.el
+
+ ;;; Copyright (C) 1997, 1998 Faried Nawaz
+@@ -90,11 +92,11 @@
+ (load-library "zenicb-stamp")
+
+ ;;; fsf emacs doesn't have read-passwd
+-(cond ((= (string-to-int emacs-version) 18)
++(cond ((= (string-to-number emacs-version) 18)
+ (fset 'read-passwd 'read-from-minibuffer))
+ ((not (string-match "XEmacs" emacs-version))
+ (require 'ange-ftp)
+ (fset 'read-passwd 'ange-ftp-read-passwd)))
+
+ ;; this is the second last line of the file, the next line is the last one
+-(load-library "zenicb")
+\ No newline at end of file
++(load-library "zenicb")
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-fortran.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-fortran.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-fortran.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,12 @@
+$NetBSD: patch-src_zenicb-fortran.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+
+--- src/zenicb-fortran.el.orig 1998-03-28 00:51:55.000000000 +0000
++++ src/zenicb-fortran.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-fortran.el --- emulate F-BOT FORTRAN bot program with ZenICB
+
+ ;; Copyright (C) 1998 Faried Nawaz
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-history.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-history.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-history.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,40 @@
+$NetBSD: patch-src_zenicb-history.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+declare external variable
+replace delete-backward-char with delete-region
+
+--- src/zenicb-history.el.orig 1998-03-28 01:20:55.000000000 +0000
++++ src/zenicb-history.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-history.el --- keep a history of commands in ZenICB
+
+ ;; Copyright (C) 1997 Faried Nawaz
+@@ -38,6 +40,7 @@
+ "*A list of commands run by the user.")
+ (make-variable-buffer-local 'zenicb-history-list)
+
++(defvar zenicb-process) ; defined in zenicb.el
+ ;; hairy variables to keep track of command
+ (defvar zenicb-history-list-backward nil)
+ (make-variable-buffer-local 'zenicb-history-list-backward)
+@@ -66,7 +69,7 @@
+ ; remove contents of line
+ (beginning-of-line)
+ (if (not (= (point) (point-max)))
+- (delete-backward-char (- (point) (point-max))))
++ (delete-region (point) (point-max)))
+ ; insert previous command
+ (insert (car zenicb-history-list-backward))
+ ; update hairy variables
+@@ -87,7 +90,7 @@
+ ; remove contents of line
+ (beginning-of-line)
+ (if (not (= (point) (point-max)))
+- (delete-backward-char (- (point) (point-max))))
++ (delete-region (point) (point-max)))
+ ; insert next command
+ (insert (car zenicb-history-list-forward))
+ ; update hairy variables
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-meditate.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-meditate.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-meditate.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,12 @@
+$NetBSD: patch-src_zenicb-meditate.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+
+--- src/zenicb-meditate.el.orig 1998-03-28 00:51:54.000000000 +0000
++++ src/zenicb-meditate.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-meditate.el --- admonish others for disturbing your meditation
+
+ ;; Copyright (C) 1997, 1998 Faried Nawaz
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-nologout.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-nologout.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-nologout.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,21 @@
+$NetBSD: patch-src_zenicb-nologout.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+declare external variable
+
+--- src/zenicb-nologout.el.orig 1997-11-24 08:24:41.000000000 +0000
++++ src/zenicb-nologout.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;;
+ ;;; zenicb-nologout.el --- Continuously Waste time on International
+ ;;; Citizen's Band (ZenICB client)
+@@ -54,6 +56,7 @@
+
+ (zenicb-add-hook 'zenicb-server-d-hook 'zenicb-nologout)
+
++(defvar zenicb-run-next-hook) ; defined in zenicb.el
+ (defvar zenicb-nologout-string "%Z%e%n%I%C%B% %n%o%l%o%g%o%u%t% %s%p%a%m%"
+ "*Garbage sent to self to avoid auto-logout.")
+
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-signal.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-signal.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-signal.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,12 @@
+$NetBSD: patch-src_zenicb-signal.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+
+--- src/zenicb-signal.el.orig 1997-11-24 08:24:42.000000000 +0000
++++ src/zenicb-signal.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;;
+ ;;; zenicb-nologout.el --- Continuously Waste time on International
+ ;;; Citizen's Band (ZenICB client)
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-stamp.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-stamp.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-stamp.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,55 @@
+$NetBSD: patch-src_zenicb-stamp.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+string-to-int has been replaced with string-to-number
+
+--- src/zenicb-stamp.el.orig 1998-03-28 00:56:12.000000000 +0000
++++ src/zenicb-stamp.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-stamp.el --- timestamping for ZenICB
+
+ ;; Copyright (C) 1998 Faried Nawaz
+@@ -72,11 +74,11 @@ Written by Stephen Ma <ma_s%maths.su.oz.au@localhost>"
+ (let ((prodh (* num1 (car num2)))
+ (prodl (* num1 (car (cdr num2)))))
+ (list (+ prodh (/ prodl 65536)) (% prodl 65536)))))
+- (seconds (string-to-int (substring timestr 17 19)))
+- (minutes (string-to-int (substring timestr 14 16)))
+- (hours (string-to-int (substring timestr 11 13)))
+- (partdays (1- (string-to-int (substring timestr 8 10))))
+- (years (string-to-int (substring timestr 20 24)))
++ (seconds (string-to-number (substring timestr 17 19)))
++ (minutes (string-to-number (substring timestr 14 16)))
++ (hours (string-to-number (substring timestr 11 13)))
++ (partdays (1- (string-to-number (substring timestr 8 10))))
++ (years (string-to-number (substring timestr 20 24)))
+ (days (+ partdays
+ (cond ((and (= (% years 4) 0)
+ (/= (% years 100) 0))
+@@ -147,14 +149,14 @@ the second argument to be earlier in time than the fir
+ (save-match-data
+ (let (millions units high low)
+ (if (string-match "^\\(.*\\)\\(......\\)$" seconds)
+- (setq millions (string-to-int (substring seconds
++ (setq millions (string-to-number (substring seconds
+ (match-beginning 1)
+ (match-end 1)))
+- units (string-to-int (substring seconds
++ units (string-to-number (substring seconds
+ (match-beginning 2)
+ (match-end 2))))
+ (setq millions 0
+- units (string-to-int seconds)))
++ units (string-to-number seconds)))
+ (setq high (+ (* millions 15) (/ (* millions 265) 1024) (/ units 65536))
+ low (+ (% (+ (* (% millions 4) 16384) (* millions 576)) 65536)
+ (% units 65536)))
+@@ -187,4 +189,4 @@ process PROC every zenicb-timestamp-interval seconds."
+ (zenicb-add-hook 'zenicb-timer-hook 'zenicb-timestamp)
+ (setq zenicb-time-last-event (zenicb-time-to-int (current-time-string)))
+
+-(provide 'zenicb-stamp)
+\ No newline at end of file
++(provide 'zenicb-stamp)
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-trigger.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-trigger.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-trigger.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,61 @@
+$NetBSD: patch-src_zenicb-trigger.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+stop using old backquote syntax
+fix arguments to function calls
+use nick directly, there is no zenicb-extract-nick function
+
+--- src/zenicb-trigger.el.orig 1998-03-28 00:47:30.000000000 +0000
++++ src/zenicb-trigger.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-trigger.el
+
+ ;; Copyright (C) 1997 Noah S. Friedman
+@@ -81,8 +83,8 @@ deactivating the trigger via /trigger subcommands."
+ (cmdhook (intern (concat symname "-hook"))))
+ (zenicb-add-hook cmdhook cmdsym)
+ (fset cmdsym
+- (` (lambda (proc victim)
+- (zenicb-trigger-send-fn-result proc victim '(, response)))))))
++ `(lambda (proc victim)
++ (zenicb-trigger-send-fn-result proc victim '(, response))))))
+
+ (defun zenicb-trigger-set-trigger (name regexp response &optional pass-string)
+ (and (stringp name)
+@@ -147,14 +149,15 @@ deactivating the trigger via /trigger subcommands."
+ (string-match regexp (aref parsedmsg 3))
+ (let ((victim (zenicb-trigger-parse-sender parsedmsg))
+ (msg (zenicb-trigger-response
+- (nth 3 (car trigger-table)))))
++ (nth 3 (car trigger-table))
++ (aref parsedmsg 3))))
+ (zenicb-trigger-send-response proc victim msg)))))
+ (setq trigger-table (cdr trigger-table))))))
+
+ (defun zenicb-trigger-parse-sender (parsedmsg)
+ (let ((from (aref parsedmsg 2)))
+- (cond ((zenicb-names-equal-p from zenicb-nick)
+- (zenicb-extract-nick (aref parsedmsg 1)))
++ (cond ((string= from zenicb-nick)
++ (aref parsedmsg 1))
+ (t from))))
+
+ (defun zenicb-trigger-response (fn msg)
+@@ -178,7 +181,7 @@ deactivating the trigger via /trigger subcommands."
+ (t
+ (while msg
+ (zenicb-message proc (format "[trigger] Sent to %s: %s\n" victim (car msg)))
+- (zenicb-send-public proc ?b (car msg))
++ (zenicb-send-public (car msg) proc)
+ (setq msg (cdr msg))))))
+
+
+@@ -295,4 +298,4 @@ deactivating the trigger via /trigger subcommands."
+ (setq posn (match-end 0))))
+ (nreverse list)))
+
+-;;; zenicb-trigger.el ends here
+\ No newline at end of file
++;;; zenicb-trigger.el ends here
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-whereis.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-whereis.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-whereis.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,12 @@
+$NetBSD: patch-src_zenicb-whereis.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+
+--- src/zenicb-whereis.el.orig 1998-03-28 00:56:14.000000000 +0000
++++ src/zenicb-whereis.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenicb-whereis.el --- store whereis info about users.
+
+ ;; Copyright (C) 1998 Faried Nawaz
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb-yow.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb-yow.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb-yow.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,14 @@
+$NetBSD: patch-src_zenicb-yow.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+NOTE: this will not work because yow was removed from emacs
+but it is example code, so leave it in
+
+--- src/zenicb-yow.el.orig 1998-03-28 00:51:54.000000000 +0000
++++ src/zenicb-yow.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;; zenirc-yow.el --- important pinheadery for ZenIRC
+
+ ;; Copyright (C) 1998 Faried Nawaz
Index: pkgsrc/chat/zenicb/patches/patch-src_zenicb.el
diff -u /dev/null pkgsrc/chat/zenicb/patches/patch-src_zenicb.el:1.1
--- /dev/null Tue Sep 8 09:35:08 2026
+++ pkgsrc/chat/zenicb/patches/patch-src_zenicb.el Tue Sep 8 09:35:08 2026
@@ -0,0 +1,144 @@
+$NetBSD: patch-src_zenicb.el,v 1.1 2026/09/08 09:35:08 wiz Exp $
+
+declare dynamic binding, not lexical binding
+declare external variables
+add code for /brick command
+fix quoting in doc string
+use with-current-buffer instead of save-excursion
+remove xemacs compat to avoid undefined function
+string-to-int has been replaced with string-to-number
+fix argument count in function call
+
+--- src/zenicb.el.orig 1998-07-19 22:37:51.000000000 +0000
++++ src/zenicb.el
+@@ -1,3 +1,5 @@
++;;; -*- lexical-binding: nil -*-
++
+ ;;;
+ ;;;
+ ;;; zenicb.el --- Waste time on International Citizen's Band (ZenICB client)
+@@ -82,7 +84,7 @@
+ "*Beep when I get a /beep if t.")
+
+ (defvar zenicb-alert nil
+- "*Beep when I get a /m if set to 'personal. If set to 'all, beep also
++ "*Beep when I get a /m if set to `personal'. If set to `all', beep also
+ when I see a public message.")
+
+ (defvar zenicb-send-lines t
+@@ -115,6 +117,7 @@ line separately.")
+
+ (defvar zenicb-partialline)
+ (defvar zenicb-process)
++(defvar zenicb-time-last-event) ; defined in zenicb-stamp.el
+ (defvar zenicb-debug-mainloop nil)
+ (defvar zenicb-debug-commands nil)
+ (defvar zenicb-bug-address "fn-zenicb%hungry.com@localhost")
+@@ -143,6 +146,7 @@ line separately.")
+ ;(defvar zenicb-command-bcount-hook 'zenicb-command-bcount) ; byte count
+ (defvar zenicb-command-beep-hook 'zenicb-command-beep) ; beep someone
+ (defvar zenicb-command-boot-hook 'zenicb-command-boot) ; boot off group
++(defvar zenicb-command-brick-hook 'zenicb-command-brick) ; brick someone
+ (defvar zenicb-command-cancel-hook 'zenicb-command-cancel) ; cancel invite
+ (defvar zenicb-command-drop-hook 'zenicb-command-drop) ; drop nick
+ (defvar zenicb-command-echo-hook 'zenicb-command-echo) ; echoback
+@@ -211,6 +215,9 @@ line separately.")
+ (if (not zenicb-process)
+ ()
+ (set-marker (process-mark zenicb-process) (point-max))
++ (if (fboundp 'set-buffer-multibyte) (set-buffer-multibyte nil))
++ (if (fboundp 'set-process-coding-system)
++ (set-process-coding-system zenicb-process 'binary 'binary))
+ (set-process-buffer zenicb-process zenicb-buffer)
+ (set-process-filter zenicb-process 'zenicb-filter)
+ (set-process-sentinel zenicb-process 'zenicb-sentinel)
+@@ -261,8 +268,7 @@ line separately.")
+ ;;; Handle closing connection to server
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ (defun zenicb-sentinel (proc sentinel)
+- (save-excursion
+- (set-buffer (process-buffer proc))
++ (with-current-buffer (process-buffer proc)
+ (setq zenicb-active nil)))
+
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+@@ -279,8 +285,12 @@ line separately.")
+ (set-buffer orig-buffer)
+ (store-match-data data))))
+
++(if (not (fboundp 'char-int))
++ (defun char-int (a)
++ a))
++
+ (defun zenicb-parselines (proc string)
+- (while (let ((length (+ (aref string 0))))
++ (while (let ((length (+ (char-int (aref string 0)))))
+ (and (> (length string) length)
+ (let ((type (aref string 1))
+ (line (substring string 2 length)))
+@@ -434,17 +444,13 @@ line separately.")
+ (interactive)
+ (if (= (point) (process-mark zenicb-process))
+ (zenicb-send-msg-last-rec)
+- (if (string-match "Xemacs" emacs-version)
+- (insert last-command-char)
+- (insert (this-command-keys)))))
++ (insert (this-command-keys))))
+
+ (defun zenicb-self-insert-or-send-msg-last-sent ()
+ (interactive)
+ (if (= (point) (process-mark zenicb-process))
+ (zenicb-send-msg-last-sent)
+- (if (string-match "Xemacs" emacs-version)
+- (insert last-command-char)
+- (insert (this-command-keys)))))
++ (insert (this-command-keys))))
+
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;;; Insert strings into the ZenICB buffer.
+@@ -598,10 +604,10 @@ list of hooks to run in HOOK, then nothing is done. S
+ (defun zenicb-convert-date (seconds)
+ (let (millions units high low)
+ (if (string-match "\\(......\\)$" seconds)
+- (setq millions (string-to-int (substring seconds 0 (match-beginning 1)))
+- units (string-to-int (substring seconds (match-beginning 1))))
++ (setq millions (string-to-number (substring seconds 0 (match-beginning 1)))
++ units (string-to-number (substring seconds (match-beginning 1))))
+ (setq millions 0
+- units (string-to-int seconds)))
++ units (string-to-number seconds)))
+ (setq high (+ (* millions 15) (/ (* millions 265) 1024) (/ units 65536))
+ low (+ (% (+ (* (% millions 4) 16384) (* millions 576)) 65536)
+ (% units 65536)))
+@@ -617,7 +623,7 @@ list of hooks to run in HOOK, then nothing is done. S
+ ;; Display the idle time in a nice format.
+ ;;
+ (defun zenicb-convert-time (seconds)
+- (let ((units (string-to-int seconds)))
++ (let ((units (string-to-number seconds)))
+ (cond
+ ((< units 90) "-")
+ (t (format "%dm" (/ (+ units 30) 60))))))
+@@ -753,7 +759,13 @@ list of hooks to run in HOOK, then nothing is done. S
+ ;;
+ (defun zenicb-command-boot (proc parsedcmd)
+ (zenicb-send-string proc ?h (concat "boot\C-a" (cdr parsedcmd))))
++;;
++;; Brick someone
++;; /brick [victim]
+ ;;
++(defun zenicb-command-brick (proc parsedcmd)
++ (zenicb-send-string proc ?h (concat "brick\C-a" (cdr parsedcmd))))
++;;
+ ;; Cancel an invitation
+ ;;
+ (defun zenicb-command-cancel (proc parsedcmd)
+@@ -863,7 +875,7 @@ list of hooks to run in HOOK, then nothing is done. S
+ ;; verbose - other people can't beep you, and you are informed of their attempt
+ ;;
+ (defun zenicb-command-nobeep (proc parsedcmd)
+- (zenicb-send-string proc ?h "nobeep\C-a" (cdr parsedcmd)))
++ (zenicb-send-string proc ?h (concat "nobeep\C-a" (cdr parsedcmd))))
+ ;; Set autoregister
+ ;; /nosecure
+ ;;
Home |
Main Index |
Thread Index |
Old Index