;; | ----------------------------------------------------------------------------
;; | XD_GetRegApps
;; | ----------------------------------------------------------------------------
;; | Function : Return a list of all registered Extended Entity Data Applications
;; | Arguments: None
;; | Updated  : 30 March 1998
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun XD_GetRegApps( Mode / RegAppList CurrentApp Rewind AppName )

(setq Rewind T)
(while (setq CurrentApp (tblnext "APPID" Rewind))
	(setq
		Rewind     nil
		AppName    (cdr (assoc 2 CurrentApp))
	)
	(if (= Mode "Custom")
	(progn
		(setq AppName (strcase AppName))
		(if
			(or
				(member AppName (list "ACAD" "IRD" "ACAUTHENVIRON" "DCO15" "ADE"))
				(wcmatch AppName (strcat "ACAD_*"))
				(wcmatch AppName (strcat "ACDB*"))
				(wcmatch AppName (strcat "ACMAP*"))
			)
			(setq AppName nil)
		)
	))

	(if AppName
		(setq RegAppList (cons AppName RegAppList))
	)
)

(if RegAppList
	(setq RegAppList (acad_strlsort RegAppList))
)
RegAppList
)