;; | ----------------------------------------------------------------------------
;; | MI_Init4Vars
;; | ----------------------------------------------------------------------------
;; | Function : Initialize the 4 control variables (All are global)
;; | Argument : None
;; | Action   : Sets 4 global variables #AcadVer, #Serial and #Login.
;; | Comments :
;; |            The four control variables are :
;; |            #AcadVer  - The AutoCAD version number
;; |                        (intger, 14, 2002, 2004, 2005, 2006, 2007 etc)
;; |            #Serial   - The serial number of the AutoCAD that you are using.
;; |            #Login    - The LoginName under which AutoCAD is running
;; |            #AcadMap  - 'T' if AutoCAD Map is running
;; | Updated  : January 5, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_Init4Vars( / tmp )
; Version Control
(setq #AcadVer (strcase (getvar "ACADVER")))

(cond
	((wcmatch #AcadVer "*BRICSCAD*")
		(setq #OperatingEnv "BricsCAD")
	)
	(T
		(setq #OperatingEnv "AutoCAD")
	)
)

(cond
	((wcmatch #AcadVer "*16.0*")
		(setq #AcadVer 2004)
	)
	((wcmatch #AcadVer "*16.1*")
		(setq #AcadVer 2005)
	)
	((wcmatch #AcadVer "*16.2*")
		(setq #AcadVer 2006)
	)
	((wcmatch #AcadVer "*17.0*")
		(setq #AcadVer 2007)
	)
	((wcmatch #AcadVer "*17.1*")
		(setq #AcadVer 2008)
	)
	((wcmatch #AcadVer "*17.2*")
		(setq #AcadVer 2009)
	)
	((wcmatch #AcadVer "*18.0*")
		(setq #AcadVer 2010)
	)
	(T
		(alert (strcat "WARNING : Unsupported AutoCAD Version: " #AcadVer))
		(exit)
	)
)

(setq #AcadProductLang (MI_GetAcadLanguage))
(cond
	((= #AcadProductLang "English")
		(setq #AcadProductLang "EN")
	)
	(T
		(setq #AcadProductLang "EN")
	)
)

; AutoCAD serial number and login name
(setq
	#Serial (getvar "_PKSER")
	#Login  (strcase (getvar "LOGINNAME"))
)

(if (member "ade.arx" (arx))
	(setq #AcadMap T)
	(setq #AcadMap nil)
)
)


(defun acadver()
	#AcadVer
)


(defun login()
	#Login
)


(defun serial()
	#Serial
)


(defun operatingenv()
	#OperatingEnv
)