Some doc and display when a type is unimplemented - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit 8ac8cdfbdce8d9159b195f1d1a15d9988033f29f
DIR parent 6faa6c27c313af26ce74ba3f3df5f599ee08ed0e
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Thu, 16 Nov 2017 12:09:35 +0000
Some doc and display when a type is unimplemented
Diffstat:
M clic.lisp | 36 +++++++++++++++++++------------
1 file changed, 22 insertions(+), 14 deletions(-)
---
DIR diff --git a/clic.lisp b/clic.lisp
@@ -87,7 +87,7 @@
(format t "~3A| ~a~a~a~%" (if line-number line-number "") (get-color color) text (get-color 'white)))
(defmacro check(identifier &body code)
- "Syntax to make when easier for formatted-output func"
+ "Macro to define a new syntax to make 'when' easier for formatted-output function"
`(progn (when (string= ,identifier line-type) ,@code)))
(defun split(text separator)
@@ -151,38 +151,46 @@
(print-with-color text))
;; 5 DOS Binary archive
- (check "5" 'unimplemented)
+ (check "5"
+ (print-with-color "selector 5 not implemented" 'red))
;; 6 Unix uuencoded file
- (check "6" 'unimplemented)
+ (check "6"
+ (print-with-color "selector 6 not implemented" 'red))
;; 7 Index search server
- (check "7" 'unimplemented)
+ (check "7"
+ (print-with-color "selector 7 not implemented" 'red))
;; 8 Telnet session
- (check "8" 'unimplemented)
+ (check "8"
+ (print-with-color "selector 8 not implemented" 'red))
;; 9 Binary
- (check "9" 'unimplemented)
+ (check "9"
+ (print-with-color "selector 9 not implemented" 'red))
;; + redundant server
- (check "+" 'unimplemented)
+ (check "+"
+ (print-with-color "selector + not implemented" 'red))
;; T text based tn3270 session
- (check "T" 'unimplemented)
+ (check "T"
+ (print-with-color "selector T not implemented" 'red))
;; g GIF file
- (check "g" 'unimplemented)
+ (check "g"
+ (print-with-color "selector g not implemented" 'red))
+
+ ;; I image
+ (check "I"
+ (print-with-color "selector I not implemented" 'red))
;; h http link
(check "h"
(print-with-color (concatenate 'string
text " " uri)
- 'http "url"))
-
- ;; I image
- (check "I" 'unimplemented)))))
-
+ 'http "url"))))))
(defun getpage(host port uri)
"connect and display"