Compiles with chicken-5 now - holymoly - A tor enabled gopher client written in CHICKEN scheme
(HTM) git clone git://vernunftzentrum.de/holymoly.git
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
(DIR) commit 9167cc0a7002537708c2be266da2c4e1d5249e6b
(DIR) parent 28a0b1f807dc477492fa17ee57a0a6b4ce6df4da
(HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
Date: Mon, 30 Jul 2018 13:11:12 +0200
Compiles with chicken-5 now
Diffstat:
cursor.scm | 3 +--
holymoly.egg | 6 ++++++
holymoly.scm | 35 ++++++++++++++++++++++---------
proxy.scm | 4 ++--
4 files changed, 34 insertions(+), 14 deletions(-)
---
(DIR) diff --git a/cursor.scm b/cursor.scm
@@ -9,8 +9,7 @@
add-to-tail
add-to-head)
-(import chicken scheme)
-(use extras srfi-1)
+(import (chicken base) (chicken format) scheme srfi-1)
(define-record cursor prev current next)
(DIR) diff --git a/holymoly.egg b/holymoly.egg
@@ -0,0 +1,5 @@
+((author "Christian Kellermann")
+ (license BSD)
+ (synopsis "A gopher client using ncurses and supporting SOCKS proxies")
+ (dependencies miscmacros uri-common srfi-1 srfi-4 srfi-71 srfi-13 bitstring)
+ (components (program holymoly (linkage static) (files "holymoly.scm" "proxy.scm" "cursor.scm") (link-options "-Wl,-lncurses"))))
+\ No newline at end of file
(DIR) diff --git a/holymoly.scm b/holymoly.scm
@@ -1,16 +1,26 @@
-(use
- irregex
- tcp
+;(module holymoly (main)
+(import
+ (chicken base)
+ scheme
+ (chicken irregex)
+ (chicken tcp)
+ (chicken process-context)
+ (chicken process)
+ (chicken process signal)
+ (chicken pretty-print)
+ (chicken bitwise)
+ (chicken io)
+ (chicken format)
miscmacros
- srfi-13
- srfi-4
- posix
+ (chicken string)
+ (chicken port)
ncurses
matchable
- srfi-71
- srfi-4
uri-common
- utils)
+ srfi-1
+ srfi-4
+ srfi-13
+ srfi-71)
(include "proxy.scm")
(include "cursor.scm")
@@ -323,5 +333,9 @@
(select-entry (uri->entry (car args)))
(exit 0)))
+;) ;;; end of module definition
+
+
+;(import holymoly)
(exit-handler (lambda code (endwin)))
-(main (command-line-arguments))
+(main (command-line-arguments))
+\ No newline at end of file
(DIR) diff --git a/proxy.scm b/proxy.scm
@@ -2,8 +2,8 @@
(connect/socksv5)
- (import chicken scheme foreign)
- (use tcp srfi-4 srfi-13 bitstring)
+ (import (chicken base) (chicken foreign) (chicken condition) scheme)
+ (import (chicken tcp) srfi-4 srfi-13 bitstring)
(define (raise-error loc subtype msg . args)
(signal (make-composite-condition