Commit 1c69f3a4 authored by Dave Cooper's avatar Dave Cooper
Browse files

decoupled some dependencies

parent 9e533d21
......@@ -288,7 +288,10 @@ If you are interested in this effort we would love to hear from you at open-sour
#:validate-superclass)
(:export
;;
;; Implemented in gdl/base/common/genworks.lisp.
;; Some implemented in gendl/base/source/genworks.lisp, the rest
;; in gendl/glisp/source/genworks.lisp.
;;
;; FLAG -- alphabetize all these here in this package export list.
;;
#:*external-text-format*
#:*gdl-home*
......@@ -394,9 +397,10 @@ If you are interested in this effort we would love to hear from you at open-sour
#:package-documentation
#:function-documentation
#:variable-documentation
#:parse-xml
#:rsync
))
(defpackage :geom-base
......
......@@ -206,8 +206,8 @@ to the src/ directory distributed with GDL.
((base :type 'robot-base
:display-controls (merge-display-controls (list :color :blue-sky))
:height (* (the height) 0.4)
:width (* (the :width) 0.2)
:length (* (the :length) 0.2)
:width (* (the width) 0.2)
:length (* (the length) 0.2)
:center (translate (the :center) :down (* (the :height) 0.3)))
(body :type 'robot-body
:height (* (the :height) 0.6)
......
(:gwl-graphics :surf)
\ No newline at end of file
......@@ -4,7 +4,7 @@
"The Gendl™ examples Subsystem" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130409" :depends-on (:gwl-graphics :surf)
:serial t :version "20130409" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
......@@ -573,7 +573,6 @@ please find implementation for the currently running lisp.~%")
#-allegro `(acl-compat.mp:with-timeout (,seconds ,@timeout-body)
,@body))
(defmacro without-redefinition-warnings (&rest body)
#+allegro
`(excl:without-redefinition-warnings ,@body)
......@@ -586,3 +585,25 @@ please find implementation for the currently running lisp.~%")
(progn
(warn "Need an implementation for without-redefinition-warnings for ~a~%." (lisp-implementation-type))
`(progn ,@body)))
(defun rsync (source dest &key directory
print-command?
dry-run?
(options (list "a"))
long-form-options)
#+mswindows (error "~&Sorry, glisp:rsync is not yet implemented for MS Windows.~%")
#-mswindows
(labels ((expanded-pathname-string (pathname)
(replace-regexp (namestring (translate-logical-pathname pathname)) "~/"
(namestring (user-homedir-pathname)))))
(let ((command-list
(remove nil
(list "rsync"
(when options (format nil "-~{~a~}" options) )
(when long-form-options (format nil "~{--~a~}" long-form-options))
(expanded-pathname-string (namestring source))
(expanded-pathname-string (namestring dest))))))
(when (or print-command? dry-run?) (format t "~s~%" command-list))
(unless dry-run?
(uiop:with-current-directory (directory) (run-program command-list))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment