iChange build system - 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 351cdba6f1b01fe686a8e30cd3fbc745266c3766 /scm/clic/commit/351cdba6f1b01fe686a8e30cd3fbc745266c3766.gph bitreich.org 70 1parent b6628df1755cc349aeff1650b87e563776989305 /scm/clic/commit/b6628df1755cc349aeff1650b87e563776989305.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Fri, 1 Mar 2019 12:47:04 +0100 Err bitreich.org 70 i Err bitreich.org 70 iChange build system Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M 3rdparties/bundle-info.sexp | 4 ++-- Err bitreich.org 70 i D 3rdparties/local-projects/.exists | 0 Err bitreich.org 70 i M 3rdparties/software/uiop-3.3.2/uio… | 2 +- Err bitreich.org 70 i M Makefile | 4 ++-- Err bitreich.org 70 i A clic.asd | 13 +++++++++++++ Err bitreich.org 70 i M clic.lisp | 12 ++---------- Err bitreich.org 70 i M make-binary.lisp | 24 +++++++++++------------- Err bitreich.org 70 i M make-bundle.lisp | 2 +- Err bitreich.org 70 i Err bitreich.org 70 i8 files changed, 32 insertions(+), 29 deletions(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/3rdparties/bundle-info.sexp b/3rdparties/bundle-info.sexp /scm/clic/file/3rdparties/bundle-info.sexp.gph bitreich.org 70 i@@ -1,5 +1,5 @@ Err bitreich.org 70 i-(:CREATION-TIME "2019-02-28T17:28:32Z" :REQUESTED-SYSTEMS ("usocket" "cl+ssl") Err bitreich.org 70 i- :LISP-INFO Err bitreich.org 70 i+(:CREATION-TIME "2019-03-01T11:39:38Z" :REQUESTED-SYSTEMS Err bitreich.org 70 i+ ("usocket" "cl+ssl" "asdf") :LISP-INFO Err bitreich.org 70 i (:MACHINE-INSTANCE "solene.perso.local" :MACHINE-TYPE "amd64" :MACHINE-VERSION Err bitreich.org 70 i NIL :LISP-IMPLEMENTATION-TYPE "ECL" :LISP-IMPLEMENTATION-VERSION "16.1.3") Err bitreich.org 70 i :QUICKLISP-INFO Err bitreich.org 70 1diff --git a/3rdparties/local-projects/.exists b/3rdparties/local-projects/.exists /scm/clic/file/3rdparties/local-projects/.exists.gph bitreich.org 70 1diff --git a/3rdparties/software/uiop-3.3.2/uiop.asd b/3rdparties/software/uiop-3.3.2/uiop.asd /scm/clic/file/3rdparties/software/uiop-3.3.2/uiop.asd.gph bitreich.org 70 i@@ -44,7 +44,7 @@ you already have a matching UIOP loaded." Err bitreich.org 70 i (:file "image" :depends-on ("stream")) Err bitreich.org 70 i (:file "lisp-build" :depends-on ("image")) Err bitreich.org 70 i (:file "launch-program" :depends-on ("stream")) Err bitreich.org 70 i- (:file "run-program" :depends-on ("launch-program")) Err bitreich.org 70 i+ (:file "run-program" :depends-on ("launch-program" "version")) Err bitreich.org 70 i (:file "configuration" :depends-on ("image")) Err bitreich.org 70 i (:file "backward-driver" :depends-on ("lisp-build" "run-program" "configuration" "version")) Err bitreich.org 70 i (:file "driver" :depends-on ("backward-driver")))) Err bitreich.org 70 1diff --git a/Makefile b/Makefile /scm/clic/file/Makefile.gph bitreich.org 70 i@@ -11,8 +11,8 @@ MANDIR = ${PREFIX}/share/man Err bitreich.org 70 i Err bitreich.org 70 i all: ${BIN} Err bitreich.org 70 i Err bitreich.org 70 i-${BIN}: clic.lisp make-binary.lisp Err bitreich.org 70 i- ecl -load make-binary.lisp Err bitreich.org 70 i+${BIN}: clic.lisp clic.asd make-binary.lisp Err bitreich.org 70 i+ ecl -norc -load make-binary.lisp Err bitreich.org 70 i Err bitreich.org 70 i install: ${BIN} Err bitreich.org 70 i @echo installing executable to "${DESTDIR}${PREFIX}/bin" Err bitreich.org 70 1diff --git a/clic.asd b/clic.asd /scm/clic/file/clic.asd.gph bitreich.org 70 i@@ -0,0 +1,13 @@ Err bitreich.org 70 i+;;(defpackage :clic Err bitreich.org 70 i+;; (:use :cl :asdf) Err bitreich.org 70 i+;; (:export #:main)) Err bitreich.org 70 i+;; Err bitreich.org 70 i+;;(in-package :clic) Err bitreich.org 70 i+ Err bitreich.org 70 i+(defsystem "clic" Err bitreich.org 70 i+ :description "Command Line Interface Client" Err bitreich.org 70 i+ :version "1.1.1" Err bitreich.org 70 i+ :author "Solene Rapenne " Err bitreich.org 70 i+ :licence "MIT" Err bitreich.org 70 i+ :depends-on (:usocket :cl+ssl) Err bitreich.org 70 i+ :components ((:file "clic"))) Err bitreich.org 70 1diff --git a/clic.lisp b/clic.lisp /scm/clic/file/clic.lisp.gph bitreich.org 70 i@@ -1,12 +1,4 @@ Err bitreich.org 70 i-;;; let's hide the loading Err bitreich.org 70 i-(let ((*standard-output* (make-broadcast-stream))) Err bitreich.org 70 i- (require 'asdf) Err bitreich.org 70 i- #+ecl Err bitreich.org 70 i- (require 'sockets)) Err bitreich.org 70 i- Err bitreich.org 70 i-(load "3rdparties/bundle.lisp") Err bitreich.org 70 i-(require :cl+ssl) Err bitreich.org 70 i-(require :usocket) Err bitreich.org 70 i+(in-package :cl-user) Err bitreich.org 70 i Err bitreich.org 70 i ;;;; C binding to get terminal informations Err bitreich.org 70 i #+ecl Err bitreich.org 70 i@@ -733,7 +725,7 @@ Err bitreich.org 70 i (let ((last-page (car *history*))) Err bitreich.org 70 i (format t "~a~agopher://~a:~a/~a~a (~as, ~aKb) / (p)rev (r)edisplay (h)istory : " Err bitreich.org 70 i (if *kiosk-mode* "KIOSK " "") Err bitreich.org 70 i- (if (location-tls last-page) "**TLS** " " UNSECURE ") Err bitreich.org 70 i+ (if (location-tls last-page) "**TLS** " "UNSECURE ") 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 1diff --git a/make-binary.lisp b/make-binary.lisp /scm/clic/file/make-binary.lisp.gph bitreich.org 70 i@@ -1,17 +1,15 @@ Err bitreich.org 70 i-;; ecl produces a linked binary to ecl shared library Err bitreich.org 70 i (load "3rdparties/bundle.lisp") Err bitreich.org 70 i-(require 'usocket) Err bitreich.org 70 i-(require 'cl+ssl) Err bitreich.org 70 i-(require 'asdf) Err bitreich.org 70 i-(require 'cmp) Err bitreich.org 70 i+(require :asdf) Err bitreich.org 70 i Err bitreich.org 70 i-(progn Err bitreich.org 70 i- (compile-file "clic.lisp" :system-p t) Err bitreich.org 70 i- (c:build-program "clic" Err bitreich.org 70 i- :prologue-code '(ext:set-signal-handler ext:+sigint+ nil) Err bitreich.org 70 i- :epilogue-code '(progn (handler-case (main) Err bitreich.org 70 i- (condition () (quit)))) Err bitreich.org 70 i- :lisp-files '("clic.o"))) Err bitreich.org 70 i+;; load clic which is in $PWD Err bitreich.org 70 i+(push '*default-pathname-defaults* asdf:*central-registry*) Err bitreich.org 70 i Err bitreich.org 70 i-(format t "~%~%Compilation finished~%") Err bitreich.org 70 i+(in-package :cl-user) Err bitreich.org 70 i+ Err bitreich.org 70 i+(asdf:make-build "clic" :type :program Err bitreich.org 70 i+ :monolithic t Err bitreich.org 70 i+ :move-here "." Err bitreich.org 70 i+ :prologue-code '(ext:set-signal-handler ext:+sigint+ nil) Err bitreich.org 70 i+ :epilogue-code '(progn (handler-case (main) Err bitreich.org 70 i+ (condition () (quit))))) Err bitreich.org 70 i (quit) Err bitreich.org 70 1diff --git a/make-bundle.lisp b/make-bundle.lisp /scm/clic/file/make-bundle.lisp.gph bitreich.org 70 i@@ -1,2 +1,2 @@ Err bitreich.org 70 i-(ql:bundle-systems '("usocket" "cl+ssl") :to "3rdparties/") Err bitreich.org 70 i+(ql:bundle-systems '("usocket" "cl+ssl" "asdf") :to "3rdparties/") Err bitreich.org 70 i (quit) Err bitreich.org 70 .