/[meta-cvs]/meta-cvs/F-5C4536C98E79EFAD905684B34C8DA41D.lisp
ViewVC logotype

Contents of /meta-cvs/F-5C4536C98E79EFAD905684B34C8DA41D.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (hide annotations)
Mon Mar 8 06:11:40 2004 UTC (10 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-1-0
Changes since 1.5: +0 -3 lines
Revamped loading system. Got rid of require/provide in all
Lisp source files.

* code/mcvs.lisp: New file. Responsible for compiling and loading
everything in the right order.

* code/mcvs-main.lisp: File renamed to main.lisp.

* code/mcvs-package.lisp: File renamed to package.lisp.

* code/system.lisp: File removed.
1 kaz 1.1 ;;; This source file is part of the Meta-CVS program,
2     ;;; which is distributed under the GNU license.
3     ;;; Copyright 2002 Kaz Kylheku
4    
5 kaz 1.2 (in-package "META-CVS")
6 kaz 1.1
7     (defconstant *argument-limit* (* 64 1024))
8    
9     (defun execute-program-xargs (fixed-args &optional extra-args fixed-trail-args)
10     (let* ((fixed-size (reduce #'(lambda (x y)
11     (+ x (length y) 1))
12     (append fixed-args fixed-trail-args)
13     :initial-value 0))
14     (size fixed-size))
15     (if extra-args
16 kaz 1.4 (let ((chopped-arg ())
17     (combined-status t))
18 kaz 1.1 (dolist (arg extra-args)
19     (push arg chopped-arg)
20     (when (> (incf size (1+ (length arg))) *argument-limit*)
21 kaz 1.4 (setf combined-status
22     (and combined-status
23     (execute-program (append fixed-args
24 kaz 1.1 (nreverse chopped-arg)
25 kaz 1.4 fixed-trail-args))))
26 kaz 1.1 (setf chopped-arg nil)
27     (setf size fixed-size)))
28     (when chopped-arg
29     (execute-program (append fixed-args (nreverse chopped-arg)
30 kaz 1.4 fixed-trail-args)))
31     combined-status)
32 kaz 1.5 (execute-program (append fixed-args fixed-trail-args)))))

  ViewVC Help
Powered by ViewVC 1.1.5