iDisplay request time - clic - Clic is an command line interactive client for gopher written in Common LISP	Err	bitreich.org	70
hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	bitreich.org	70
1Log	/scm/clic/log.gph	bitreich.org	70
1Files	/scm/clic/files.gph	bitreich.org	70
1Refs	/scm/clic/refs.gph	bitreich.org	70
1Tags	/scm/clic/tag	bitreich.org	70
1README	/scm/clic/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/clic/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit ce56b40eb8ee913c000bdb5287d03227cca10a61	/scm/clic/commit/ce56b40eb8ee913c000bdb5287d03227cca10a61.gph	bitreich.org	70
1parent 8728b1f94663cfc4f8c6eb664263e8b216f8b3e5	/scm/clic/commit/8728b1f94663cfc4f8c6eb664263e8b216f8b3e5.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Wed, 31 Jan 2018 11:57:11 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iDisplay request time	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      17 +++++++++++++----	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 13 insertions(+), 4 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -58,6 +58,9 @@	Err	bitreich.org	70
i ;;; altered by (add-bookmark) and (load-bookmark)	Err	bitreich.org	70
i (defparameter *bookmarks* nil)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+;;; contain duration of the last request	Err	bitreich.org	70
i+(defparameter *duration* 0)	Err	bitreich.org	70
i+	Err	bitreich.org	70
i ;;; when clic loads a type 1 page, we store location structures here	Err	bitreich.org	70
i ;;; when clic display the bookmark, we store bookmarks locations here	Err	bitreich.org	70
i (defparameter *links*     (make-hash-table))	Err	bitreich.org	70
i@@ -253,7 +256,8 @@	Err	bitreich.org	70
i   ;; we prepare informations about the connection	Err	bitreich.org	70
i   (let* ((address (sb-bsd-sockets:get-host-by-name host))	Err	bitreich.org	70
i          (host (car (sb-bsd-sockets:host-ent-addresses address)))	Err	bitreich.org	70
i-         (socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)))	Err	bitreich.org	70
i+         (socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp))	Err	bitreich.org	70
i+         (real-time (get-internal-real-time)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     (sb-bsd-sockets:socket-connect socket host port)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -303,7 +307,11 @@	Err	bitreich.org	70
i           (loop for line = (read-line stream nil nil)	Err	bitreich.org	70
i              while line	Err	bitreich.org	70
i              do	Err	bitreich.org	70
i-               (vector-push line *buffer*))))))	Err	bitreich.org	70
i+               (vector-push line *buffer*))))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+    ;; we store the duration of the connection	Err	bitreich.org	70
i+    (setf *duration* (float (/ (- (get-internal-real-time) real-time)	Err	bitreich.org	70
i+                               internal-time-units-per-second)))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun g(key)	Err	bitreich.org	70
i   "browse to the N-th link"	Err	bitreich.org	70
i@@ -642,11 +650,12 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun display-prompt()	Err	bitreich.org	70
i   (let ((last-page (car *history*)))	Err	bitreich.org	70
i-    (format t "gopher://~a:~a/~a~a / (P)rev (R)eload (B)ookmark (H)istory : "	Err	bitreich.org	70
i+    (format t "gopher://~a:~a/~a~a (~as) / (P)rev (R)eload (B)ookmark (H)istory : "	Err	bitreich.org	70
i             (location-host last-page)	Err	bitreich.org	70
i             (location-port last-page)	Err	bitreich.org	70
i             (location-type last-page)	Err	bitreich.org	70
i-            (location-uri last-page)))	Err	bitreich.org	70
i+            (location-uri last-page)	Err	bitreich.org	70
i+            *duration*))	Err	bitreich.org	70
i   (force-output))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun shell()	Err	bitreich.org	70
.