hl_ntp.il

Allegro常用skill

; Hilight Missing Test Probes
; Written by:
;   Edward B. Acheson
;  Sr. Applications Engineer
;  Cadence Design Systems
;  Chelmsford Mass.
;
;
; Description:
; This SKILL file will search the current database for a net, pin or via
; which may be missing a probe point after running the test point generation
; command.
; The type of check is determined by a form which will appear at the start
; up of this command.
;
; Limitations:
;   - This SKILL program must be run on Allegro Revision 8.1 or higher.
;   - This SKILL program will not check for NO_TEST properties.
;   - This SKILL program will only test for two test points in node checking.
;       No check is made for end/start of a net.
;Execution:
;        Locate this file (hl_ntp.il) in the directory path where all other
;       skill routines are located. In the allegro.ilinit file include the line
;       load("hl_ntp.il")
;       To Execute the command in the Allegro command window enter hl_ntp
;
;
; REVISION CONTROL
; Revision 0: 1995/01/16	Initial Release
; Revision 1: 1997/12/15	KATHY ANDERSON, TEKTRONIX
;		Fixed the box entries in order to see all the options
;		Modified the Execution command from hl_nte to hl_ntp
; Revision 2: 2001/11/08	CHRIS WALTERS, NVIDIA
;		added ability to handle NO_TEST property
;==========================================================================
;+
;NAME:
;       _HNTP_Bld_Pin_lst
;
;SYNOPSIS:
;       list = _HNTP_Bld_Pin_lst()
;
;DESCRIPTION:
;       This function will generate a list of component pin dbids. This
;       takes no arguments but will return the list to a variable.
;
;       For further information see:
;       axlSetFindFilter, axlAddSelectAll, axlGetSelSet
;
;-
;==========================================================================
defun( _HNTP_Bld_Pin_lst ()
   axlClearSelSet()
   axlSetFindFilter( ?enabled (list "noall" "pins" "invisible") ?onButtons (list "pins"))
   axlGetSelSet(axlAddSelectAll())
);enddefun
;==========================================================================
;+
;NAME:
;       _HNTP_Bld_Via_lst
;
;SYNOPSIS:
;       list = _HNTP_Bld_Via_lst()
;
;DESCRIPTION:
;       This function will generate a list of via dbids. This
;       takes no arguments but will return the list to a variable.
;
;       For further information see:
;       axlSetFindFilter, axlAddSelectAll, axlGetSelSet
;
;-
;==========================================================================
defun( _HNTP_Bld_Via_lst ()
   axlClearSelSet()
   axlSetFindFilter( ?enabled (list "noall" "vias" "invisible") ?onButtons (list "vias"))
   axlGetSelSet(axlAddSelectAll())
);enddefun
;==========================================================================
;+
;NAME:
;       _HNTP_Bld_PinVia_lst
;
;SYNOPSIS:
;       list = _HNTP_Bld_PinVia_lst()
;
;DESCRIPTION:
;       This function will generate a list of component pin and  via dbids.
;       This takes no arguments but will return the list to a variable.
;
;       For further information see:
;       axlSetFindFilter, axlAddSelectAll, axlGetSelSet
;
;-
;==========================================================================
defun( _HNTP_Bld_PinVia_lst ()
   axlClearSelSet()
   axlSetFindFilter( ?enabled (list "noall" "pins" "vias" "invisible")
                     ?onButtons (list "pins" "vias"))
   axlGetSelSet(axlAddSelectAll())
);enddefun
;==========================================================================
;+
;NAME:
;       _HNTP_Bld_Net_lst
;
;SYNOPSIS:
;       list = _HNTP_Bld_Net_lst()
;
;DESCRIPTION:
;       This function will generate a list of Net dbids. This
;       takes no arguments but will return the list to a variable.
;
;       For further information see:
;       axlSetFindFilter, axlAddSelectAll, axlGetSelSet
;
;-
;==========================================================================
defun( _HNTP_Bld_Net_lst ()

prog( ()
let( (clean_net_list)

net_list = nil
;lean_net_list = nil
found_no_test_prop = nil
net_prop_list = nil

axlClearSelSet()
axlSetFindFilter( ?enabled (list "noall" "nets" "invisible") ?onButtons (list "nets" ))
net_list = axlGetSelSet(axlAddSelectAll())

foreach( net_db net_list
	; determine if net has a NO_TEST property
	found_no_test_prop = nil
	if( net_db->prop != nil then	; must check each property present for NO_TEST
		net_prop_list = axlDBGetProperties( net_db)
		foreach( net_prop net_prop_list
			net_prop_name =  car( net_prop)
			net_prop_val  = cadr( net_prop)
			if( alphaNumCmp( net_prop_name "NO_TEST") == 0 && net_prop_val == t then
				found_no_test_prop = t
				;rintf("%s%s\n", "net with NO_TEST prop: " net_db->name)
			);end-if
		);end-foreach
	);end-if
	unless( found_no_test_prop
		clean_net_list = cons( net_db clean_net_list)
	);end-if
);end-foreach

; at this point clean_net_list contains only nets withOUT the NO_TEST property
; so pass this back to calling procedure
return(clean_net_list)

);end-let
);end-prog
);end-defun
;==========================================================================
;+
;NAME:
;       _HNTP_Bld_Inpin_lst
;
;SYNOPSIS:
;       list = _HNTP_Bld_Inpin_lst(list)
;
;DESCRIPTION:
;       This function will generate a list of pin dbids with the PIN_TYPE
;       definition of IN. This function first Generates a text file named
;       temp_extract_list_hntp.txt for use of the extract function
;       capabilites in SKILL.
;       This function takes no parameters. This function will return a list
;       of pin dbid, if any pins match the IN criteria, or nil if no match
;       is found.
;
;       For further information see:
;       axlExtractMap, axlMsgPut
;
;-
;==========================================================================
defun( _HNTP_Bld_Inpin_lst ()
prog( ()
let( ( extract_file return_list)
        extract_file = outfile("temp_extract_list_hntp.txt")
        fprintf( extract_file "COMPONENT_PIN\nPIN_TYPE = \"IN\"\nEND\n")
        close(extract_file)
        if( isFile("temp_extract_list_hntp.txt") then
            return_list = axlExtractMap( "temp_extract_list_hntp.txt")
        else
           axlMsgPut("ERROR 03 : Temp extract not generated!")
           return_list = nil
        ); end - if
        when( isFile("temp_extract_list_hntp.txt") deleteFile("temp_extract_list_hntp.txt"))
        return(return_list)
);end-let
);end-prog
);end-def _HNTP_Bld_Inpin_lst
;==========================================================================
;+
;NAME:
;       _HNTP_Bld_Outpin_lst
;
;SYNOPSIS:
;       list = _HNTP_Bld_Outpin_lst(list)
;
;DESCRIPTION:
;       This function will generate a list of pin dbids with the PIN_TYPE
;       definition of OUT, OCL, or OCA. This function firdt Generates a
;       a text file named temp_extract_list_hntp.txt for use of the extract
;       function capabilites in SKILL.
;       This function takes no parameters. This function will return a list
;       of pin dbid, if any pins match the OUT criteria, or nil if no match
;       is found
;
;       For further information see:
;       axlExtractMap, axlMsgPut
;
;-
;==========================================================================
defun( _HNTP_Bld_Outpin_lst ()
prog( ()
let( ( extract_file return_list)
        extract_file = outfile("temp_extract_list_hntp.txt")
        fprintf( extract_file "COMPONENT_PIN\nPIN_TYPE = \"OUT\"\nEND\n")
        close(extract_file)
        if( isFile("temp_extract_list_hntp.txt") then
            return_list = axlExtractMap( "temp_extract_list_hntp.txt")
        else
           axlMsgPut("ERROR 03 : Temp extract not generated!")
           return_list = nil
        ); end - if
        when( isFile("temp_extract_list_hntp.txt") deleteFile("temp_extract_list_hntp.txt"))
        return(return_list)
);end-let
);end-prog
);end-def _HNTP_Bld_Outpin_lst
;==========================================================================
;+
;NAME:
;       _HNTP_Create_Form_File
;
;SYNOPSIS:
;       _HNTP_Create_Form_File()
;
;DESCRIPTION:
;       This function write text data to a file named nl_ntp.form. The file
;       created is used for paramter form calls. This function takes no
;       parameters. This function returns t if file creation is successful.
;       A nil is returned and a message is printed if file creation failed.
;
;       For further information See:
;       Form Interface Functions in the Allegro SKILL Functions Reference
;       Manual.
;-
;==========================================================================
defun( _HNTP_Create_Form_File ()
prog( ()
   form_file = outfile("hl_ntp.form")
   fprintf( form_file "FILE_TYPE = FORM_DEFN VERSION=2\nFORM\nFIXED\n")
   fprintf( form_file "PORT 46 11\nHEADER \"Highlight Missing Test Points v2.0\"\n")
   fprintf( form_file "POPUP <PRINTP>\"to File\"\"0\",\"to Printer\"\"1\",\"to Script\" \"2\".\n")
   fprintf( form_file "TILE\n")
   fprintf( form_file "GROUP \"Preferences\"\nGLOC 2 1\nGSIZE 20 14\nENDGROUP\n\n")
   fprintf( form_file "GROUP \"Test Method\"\nGLOC 24 1\nGSIZE 20 10\nENDGROUP\n\n")
   fprintf( form_file "GROUP \"Options\"\nGLOC 24 12\nGSIZE 20 6\nENDGROUP\n\n")
   fprintf( form_file "FIELD inpin\nFLOC 3 4\nFGROUP \"Preferences\"\nCHECKLIST \"Input\" \"prefs\"\nENDFIELD\n\n")
   fprintf( form_file "FIELD outpin\nFLOC 3 6\nFGROUP \"Preferences\"\nCHECKLIST \"Output\" \"prefs\"\nENDFIELD\n\n")
   fprintf( form_file "FIELD anypin\nFLOC 3 8\nFGROUP \"Preferences\"\nCHECKLIST \"Any
Pin\" \"prefs\"\n ENDFIELD\n\n")
   fprintf( form_file "FIELD via\nFLOC 3 10\nFGROUP \"Preferences\"\nCHECKLIST \"Via\" \"prefs\"\nENDFIELD\n\n")
   fprintf( form_file "FIELD anypnt\nFLOC 3 12\nFGROUP \"Preferences\"\nCHECKLIST \"Any Point\" \"prefs\"\n ENDFIELD\n\n")
   fprintf( form_file "FIELD single\nFLOC 25 4\nFGROUP \"Test Method\"\nCHECKLIST \"Single\" \"mthd\"\nENDFIELD\n\n")
   fprintf( form_file "FIELD node\nFLOC 25 6\nFGROUP \"Test Method\"\nCHECKLIST \"Node\" \"mthd\"\n ENDFIELD\n\n")
   fprintf( form_file "FIELD flood\nFLOC 25 8\nFGROUP \"Test Method\"\nCHECKLIST \"Flood\" \"mthd\"\nENDFIELD\n\n")
   fprintf( form_file "FIELD unused\nFLOC 25 15\nCHECKLIST \"Unused Pins\"\nFGROUP \"Options\"\nENDFIELD\n\n")
   fprintf( form_file "FIELD execute\nFLOC 2 19\nMENUBUTTON \"Execute\" 9 3\nENDFIELD\n\n")
   fprintf( form_file "FIELD print\nFLOC 17 19\nMENUBUTTON \"Print\" 9 3\nENDFIELD\n\n")
   fprintf( form_file "FIELD cancel\nFLOC 32 19\nMENUBUTTON \"Cancel\" 9 3\nENDFIELD\n\n")
   fprintf( form_file "ENDTILE\nENDFORM\n")
   close( form_file )
   if( isFile("hl_ntp.form") then
        return( t )
   else
        axlMsgPut("ERROR 01: Unable to Open .form file")
        return( nil )
   );end-if
);end_prog
);end-defun _HNTP_Create_Form_File
 
;==========================================================================
;+
;NAME:
;       _HNTP_Init_Form_Display
;
;SYNOPSIS:
;       _HNTP_Init_Form_Display()
;
;DESCRIPTION:
;       This function will create a form and then display the form on the
;       screen. This function requires the hl_ntp.form file to exist and
;       this function requires the _HNTP_Form_CallBack function)
;       This function requires no parameters. This function will return the
;       dbid of the for it created.
;
;       For further information See:
;       axlFormCreate, axlFormSetField, axlFormDisplay
;       Form Interface Functions in the Allegro SKILL Functions Reference
;       Manual.
;-
;==========================================================================
defun( _HNTP_Init_Form_Display ()
prog( ()
let( ( form )
   form = axlFormCreate( (gensym) "hl_ntp.form" '(se outer) '_HNTP_Form_CallBack t)
   HNTP_Form_Ptr = form
 if( (HNTP_Form_Data == nil) then
   setq( HNTP_Form_Data t)
   axlFormSetField( form "outpin" nil)
   putprop( HNTP_Form_Data nil 'outpin)
   axlFormSetField( form "inpint" nil)
   putprop( HNTP_Form_Data nil 'inpin)
   axlFormSetField( form "anypin" nil)
   putprop( HNTP_Form_Data nil 'anypin)
   axlFormSetField( form "via" nil)
   putprop( HNTP_Form_Data nil 'via)
   axlFormSetField( form "anypnt" t)
   putprop( HNTP_Form_Data t 'anypnt)
   axlFormSetField( form "single" t)
   putprop( HNTP_Form_Data t 'single)
   axlFormSetField( form "node" nil)
   putprop( HNTP_Form_Data nil 'node)
   axlFormSetField( form "node" nil)
   putprop( HNTP_Form_Data nil 'flood)
   axlFormSetField( form "unused" nil)
   putprop( HNTP_Form_Data nil 'unused)
   axlFormDisplay( form )
 );end-if
);end-let
);end-prog
);end-defun _HNTP_Init_Form_Display
 
 
;==========================================================================
;+
;NAME:
;       _HNTP_Form_CallBack
;
;SYNOPSIS:
;       _HNTP_Form_CallBack()