ECE-314/.cdsinit at master · MrCaiting/ECE-314 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
;;                        -*-Lisp-*-
;;
;; NCSU CDK Copyright (C) 2006 North Carolina State University
;;

(let
    ((LOCAL_CDK_DIR (getShellEnvVar "CDK_DIR")))
  (if LOCAL_CDK_DIR
      (if (not (boundp 'NCSU_CDK_LOADED))
	  (let ()   ; CDK needs to be loaded, so load it.

	    (setq NCSU_CDK_DIR LOCAL_CDK_DIR)
	    (procedure (prependNCSUCDKInstallPath dir)
		       (strcat NCSU_CDK_DIR "/" dir))

	    (printf "Loading NCSU CDK 1.5.1 customizations...\n")
	    (setq NCSU_newLayoutMenuLabels t)
	    (putpropq (hiGetCIWindow) 96 "maxLayerPoolSize")
            (envSetVal "graphic" "drfPath" 'string
		       (strcat NCSU_CDK_DIR "/cdssetup/display.drf"))

	    (if (isFile (prependNCSUCDKInstallPath "cdssetup/cdsenv"))
		(envLoadVals
		 ?envFile (prependNCSUCDKInstallPath "cdssetup/cdsenv")
		 ?tool "ALL"))

	    (if (isFile "~/.cdsenv")
		(envLoadVals
		 ?envFile "~/.cdsenv"
		 ?tool "ALL"))

	    (let
		((configFileList (list  ; "aaConfig.il"
					; "dmConfig.il"
	     				; "dciConfig.il"
					; "metConfig.il"
					; "sysConfig.il"
					; "uiConfig.il"
					; "leConfig.il"
;				  "schConfig.il"
				  "streamIn.il"
				  ))
		 (path (strcat ". ~ "
			       (prependNCSUCDKInstallPath "skill/config_files")))
		 (saveSkillPath (getSkillPath))
		 file )
	      (setSkillPath path)
	      (foreach file configFileList
		       (if (isFile file)
			   (loadi file)))
	      (setSkillPath saveSkillPath))

	    (let
		((bindKeyFileList (list
				   "common_bindkeys.il"
				   ))
		 (path (strcat ". ~ "
			       (prependNCSUCDKInstallPath "cdssetup")))
		 (saveSkillPath (getSkillPath))
		 file )
	      (setSkillPath path)
	      (foreach file bindKeyFileList
		       (if (isFile file)
			   (loadi file)))
	      (setSkillPath saveSkillPath))

	    (sstatus writeProtect nil)

	    (let ((skillPathElements
		   (list "." "~"
			 (prependNCSUCDKInstallPath "skill")
			 (prependNCSUCDKInstallPath "skill/cdf")
			 (prependNCSUCDKInstallPath "skill/menus")
			 (prependNCSUCDKInstallPath "skill/menus/artist")
			 (prependNCSUCDKInstallPath "skill/menus/ciw")
			 (prependNCSUCDKInstallPath "skill/menus/virtuoso")
			 (prependNCSUCDKInstallPath "skill/misc")
			 (prependNCSUCDKInstallPath "skill/pcells")
			 (prependNCSUCDKInstallPath "techfile")))
		  sPE)

	      (foreach sPE skillPathElements
		       (setSkillPath (cons sPE (getSkillPath)))))

;	    (if (isCallable 'awvSetOptionValue)
;		(let ()
;		  (awvSetOptionValue  "hcDisplay" "psb" )
;		  (awvSetOptionValue  "hcTmpDir"  "/tmp" )))

	    (if  (not (boundp 'NCSU_skillAlreadyLoaded))
		(let ()
		  (setq NCSU_skillAlreadyLoaded t)
		  (printf "Loading NCSU SKILL routines...\n")
		  (load (prependNCSUCDKInstallPath "skill/loadSkill.il"))))

;	    (asiSetEnvOptionVal
;	     (asiGetTool 'spectreS)
;	     'modelPath (strcat NCSU_CDK_DIR "/models/spectre/nom/"))
;	    (asiSetEnvOptionVal
;	     (asiGetTool 'hspiceS)
;	     'modelPath (strcat NCSU_CDK_DIR "/models/hspice/public/"))
	    (envSetVal "graphic" "drfPath"  'string
		       (strcat NCSU_CDK_DIR "/cdssetup/display.drf"))

	    (setq lePlotTemplate
		  (prependNCSUCDKInstallPath "cdssetup/layoutPlotTemplate"))
	    (setq schPlotTemplate
		  (prependNCSUCDKInstallPath "cdssetup/schPlotTemplate" ))
	    (unless (getShellEnvVar "SKIP_CDSLIB_MANAGER")
	      (ddsOpenLibManager))
	    (printf "Done loading NCSU_CDK customizations.\n")
	    )
	(printf "NCSU CDK already loaded.\n")
	)

    ; you get to this let if NCSU_CDK_DIR is nil
    (let ()
      (printf "Environment variable CDK_DIR must be defined to use\n")
      (printf "the NCSU CDK.  It is not defined in the calling environment\n")
      (printf "so the NCSU customizations will not be performed!\n"))))