;;;Update SDSK ??_stub.mnu files with hua customizations
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2006
;;;>		   EDITED: 07-23-2004
;;;
(defun c:UPDSTUB ( / edfil)
  (setq old_err *error*
        *error* upd_stub_err)
  (setq *error* nil)
  (setq edfil (getfiled "Update SDSK ??_STUB.MNU File" "u:/menus/" "mnu" 4))
  (setq pfx (substr edfil 10 2))
  (if
    (findfile (strcat "C:/SDSK/" pfx "/LNG/" pfx "_STUB.MNU"))
    (setq file_found T)
    (setq file_found nil)
  )
(if
  (and
    (or
      (eq pfx "AD")
      (eq pfx "CG")
      (eq pfx "CR")
      (eq pfx "DE")
      (eq pfx "DT")
      (eq pfx "ER")
      (eq pfx "HD")
      (eq pfx "PP")
      (eq pfx "SV")
    )
    (eq (strcase(substr edfil (- (strlen edfil) 8))) "_STUB.MNU")
    file_found
  )
(progn
  (setq mnuf (open edfil "r")
        rdlin (read-line mnuf)
  );setq
  (setq mnub (open (strcat "C:/SDSK/" pfx "/LNG/" pfx "_STUB.MNU") "w"))
  (while (and rdlin
    (not(eq "***POP0" rdlin)))
    (progn
      (write-line rdlin mnub)
      (setq rdlin (read-line mnuf))
    )
  );while
  (write-line rdlin mnub)
  (setq rdlin (read-line mnuf))
  (write-line rdlin mnub)
  (setq rdlin (read-line mnuf))
  (write-line rdlin mnub)
  (setq rdlin (read-line mnuf))
  (if(eq rdlin "[HUA Tools]$p0=POPTOOLS $p0=*")
    nil
    (write-line "[HUA Tools]$p0=POPTOOLS $p0=*" mnub)
  )
  (setq mnup0 (open "U:/MENUS/HUA_P0.MNU" "r"))
  (setq p0lin (read-line mnup0))
  (while
    (not(eq "***" (substr rdlin 1 3)))
    (progn
      (write-line rdlin mnub)
      (setq rdlin (read-line mnuf))
    )
  );while
  (while p0lin
    (progn
      (write-line p0lin mnub)
      (setq p0lin (read-line mnup0))
    )
  );while
  (while rdlin
    (progn
      (write-line rdlin mnub)
      (setq rdlin (read-line mnuf))
    )
  )
  (close mnuf)
  (close mnub)
  (close mnup0)
  (setq *error* old_err)
(princ (strcat "\n" (strcase pfx) "_STUB.MNU updated.\nMerge menus to access updates. "))
);progn
(if file_found
  (princ "\nSelect AD CG CR DE DT ER HD PP or SV _STUB.MNU")
  (princ (strcat "\nOriginal file C:/SDSK/" (strcase pfx) "/LNG/" (strcase pfx) "_STUB.MNU not found. "))
)
)
(princ)
);defun
(defun upd_stub_err ()
(princ "\nAn error occured in UPDSTUB. ")
(if (/= msg "Function cancelled")
  (if (= msg "quit / exit abort")
    (princ)
    (princ (strcat "\nError: " msg))
  )
  (princ)
)
(setq *error* old_err)
(close mnuf)
(close mnub)
(close mnup0)
(princ)
)