startup.il #1

procedure(MTX_Setup()				  ;_Jun 26 01 sikand 798
; Matrix startup.

  let(( MTX_ProjSkillDir MTX_SkillDirs pdata proj fixed_menu_item1_load
	fixed_menu_item2_load fixed_menu_item3_load
        processSpecificBindkeys
        processConfigFileStartup
	processSpecificHilightTechFile
        gridSettingsFile
	); end  


    when( hiGraphicMode()
       nil
    )


    proj = getShellEnvVar("PROJECT")

    unless(proj
       error("Session init aborted, no PROJECT set !!!")
    )
    pdata=parseString(proj "/")
    pdata=reverse(pdata)
    CDS_Project = cadr(pdata)
    CDS_ProjectRev = car(pdata)

    ;; look for a branch definition
    
    when(isFileName(strcat(getWorkingDir() "/.branchrc.il"))
       printf("Loading branch setup file\n")
       load(strcat(getWorkingDir() "/.branchrc.il"))
    )


    MTX_ProjSkillDir="/opt/cadroot/skill"
    

    MTX_SkillDirs=list(	"config"
    			"cdsp4/Common"
			"cdsp4/CdsP4Core"
			"cdsp4/ListBoxBrowser"
			"cdsp4/Triggers"
			"cdsp4/Toolbox"
			"layout"
			"layout/menus"
                        ; moved this to the process specific area 
	                ;"tech/phoenix"
			"utils"
			"verification/hercules_drclvs_interface"
			"schematic"
			"bindkeys"
			"triggers"
		  )

    foreach(skillDir MTX_SkillDirs
       when( isDir(strcat(MTX_ProjSkillDir "/" skillDir))
          setSkillPath(strcat(MTX_ProjSkillDir "/" skillDir))
          when(isFile("setup.il")
             printf("Loading %s\n" skillDir)
             loadi("setup.il")
          );when
       ) ; ** when isDir **
    );foreach

    ;; this is needed for bindkeys which perform loads
    setSkillPath(strcat(MTX_ProjSkillDir "/" "bindkeys"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Stream in setting 
; This fixes "Unable to stream-in to a library where the techfile
; binary is locked.
;  see Cadence Solution number 1814693 at:
; http://sourcelink.cadence.com/docs/db/kdb/1814693.html
;
    loadContext(prependInstallPath("etc/context/transUI.cxt"))
    callInitProc("transUI")
    streamInSetup->pipoSkipUndefinedLPP->value = t


; hp plotter setup
lePlotTemplate = strcat(getShellEnvVar("PROJECT") "/layout/cadence/lePlot.template")
 

  ) ; ** let **
) ; ** procedure MTX_Setup **

;; run it
MTX_Setup()

when(isFileName(strcat(getWorkingDir() "/.cdsenv"))
       envLoadFile(strcat(getWorkingDir() "/.cdsenv"))
       printf("Loaded user's local .cdsenv\n")
)


when(isFileName(strcat(getWorkingDir() "/.cdslocal"))
       load(strcat(getWorkingDir() "/.cdslocal"))
       printf("Loaded .cdslocal\n")
); end when
CDS_P4StartAutoSync()

printf("Welcome to the xxx xxx cdsp4 Environment\n")
printf("Project: %s Revision: %s\n\n" CDS_Project CDS_ProjectRev)