1. xemacs
  2. build

Commits

administrator  committed 5030701

Safety checkpoint.

  • Participants
  • Parent commits 751cff0
  • Branches default
  • Tags r1-02, r1-60

Comments (0)

Files changed (3)

File ChangeLog

View file
+2001-02-18  Adrian Aichner  <adrian@xemacs.org>
+
+	* build-report.el (build-report-destination): xemacs-build-reports
+	has moved to SourceForge, where mailing list name length is
+	restricted, hence the name change to
+	xemacs-buildreports@xemacs.org.
+	* build.el: Fix comment structure for folding-mode.
+	* build.el (build-cvs-checkout-options-validate): New.
+	* build.el (build-cvs-working-dir): Commented out.
+	* build.el (build-cvs-checkout-dir): New.
+	* build.el (build-config-inc-generate): Moved to Build Make
+	section.
+
+2000-12-30  Adrian Aichner  <adrian@xemacs.org>
+
+	* README: New.
+
 2000-12-29  Adrian Aichner  <adrian@xemacs.org>
 
 	* build 1.58 is released.

File build-report.el

View file
 
 (defcustom build-report-destination
   (list
-   "XEmacs Build Reports List <xemacs-build-reports@xemacs.org>"
+   "XEmacs Build Reports List <xemacs-buildreports@xemacs.org>"
    "XEmacs Beta List <xemacs-beta@xemacs.org>")
   "*The list of mail addresses XEmacs Build Reports should most likely
 go to."

File build.el

View file
   "Standardizes the fetching of XEmacs from the CVS repository."
   :group 'build)
 
+(defun build-cvs-checkout-options-validate (sym val)
+  (cond
+   ((string-match "-\\(d\\|N\\)\\b" val)
+    (customize-set-value sym build-cvs-checkout-options)
+    (warn "cannot use -d and -N, use `build-cvs-checkout-dir' and `build-cvs-checkout-shorten-path' respectively."))
+   (t
+    (set-default sym val))))
+
 (defcustom build-cvs-checkout-options
   "-P"
   "CVS checkout command-line options to use for all CVS commands."
+  :set 'build-cvs-checkout-options-validate
   :type 'string
   :group 'build-cvs)
 
   :type 'string
   :group 'build-cvs)
 
-(defcustom build-cvs-working-dir
+;(defcustom build-cvs-working-dir
+;  "/export/home/tmp/"
+;  "The working directory on the local host to which the
+;`build-cvs-xemacs-module' will be checked out. Be aware that cvs
+;checkout options -d and -N will affect the resulting directory
+;structure.  This variable needs to point to the top-level directory of
+;the XEmacs sources after cvs checkout."
+;  :type 'directory
+;  :group 'build-cvs)
+
+(defcustom build-cvs-checkout-dir
   "/export/home/tmp/"
-  "The working directory on the local host to which the
-`build-cvs-xemacs-module' will be checked out."
+  "The directory on the local host below which the
+`build-cvs-xemacs-module' will be checked out. Be aware that cvs
+checkout options -d and -N will affect the resulting directory
+structure.  Therefor these options are disallowed in
+`build-cvs-checkout-options'.  Please set `build-cvs-checkout-dir' and
+`build-cvs-checkout-shorten-path' respectively instead of using
+checkout options -d and -N."
   :type 'directory
   :group 'build-cvs)
 
                      ".err")))))
     (compile cmd)))
 
+;;}}}
+
 ;;{{{ Build From
 
 (defvar build-from-what
 
 ;;}}}
 
-(defun build-config-inc-generate (&optional dir)
-  (interactive)
-  (let
-      ((buffer (buffer-name (generate-new-buffer "config.inc"))))
-    (if dir
-        (cd dir))
-    (with-output-to-temp-buffer buffer
-      (save-window-excursion
-        (princ "# -*- mode: makefile -*-\n")
-        (princ (format "# generated by %s" build-version))
-        (princ "\n\n")
-        (princ
-         (if (boundp 'build-make-options)
-             (mapconcat
-              (function (lambda (e)
-                          (cond
-                           (t
-                            (format "%s=%s\n" (first e) (rest e))))))
-              (sort
-               (delete-duplicates
-                build-make-options :from-end t
-                :test (lambda (a b)
-                        (string=
-                         (first a) (first b))))
-               (lambda (a b)
-                 (string<
-                  (first a) (first b))))
-              "")
-           ""))
-        ))
-    (set-buffer buffer)
-    (kill-all-local-variables)
-    (makefile-mode)
-    (font-lock-mode 1)
-    (toggle-read-only 1)))
+;;{{{ Build Report
 
 (defun build-build-report ()
   (interactive)
 "
   "Internal variable of `build'.")
 
+(defun build-config-inc-generate (&optional dir)
+  (interactive)
+  (let
+      ((buffer (buffer-name (generate-new-buffer "config.inc"))))
+    (if dir
+        (cd dir))
+    (with-output-to-temp-buffer buffer
+      (save-window-excursion
+        (princ "# -*- mode: makefile -*-\n")
+        (princ (format "# generated by %s" build-version))
+        (princ "\n\n")
+        (princ
+         (if (boundp 'build-make-options)
+             (mapconcat
+              (function (lambda (e)
+                          (cond
+                           (t
+                            (format "%s=%s\n" (first e) (rest e))))))
+              (sort
+               (delete-duplicates
+                build-make-options :from-end t
+                :test (lambda (a b)
+                        (string=
+                         (first a) (first b))))
+               (lambda (a b)
+                 (string<
+                  (first a) (first b))))
+              "")
+           ""))
+        ))
+    (set-buffer buffer)
+    (kill-all-local-variables)
+    (makefile-mode)
+    (font-lock-mode 1)
+    (toggle-read-only 1)))
+
 (defun build-make (&optional target command)
   "Build the XEmacs target argument according to the settings in
 customized group `build' and its members."
   (princ "  :set 'build-make-set-value)\n")
   (princ "\n"))
 
+;;}}}
+
 ;; build.el ends here