#!/usr/bin/perl $en_trace = 0; # 1 to Log ChipVault Internal Events to trace.txt logfile #- *************************************************************************** #- _________ #- | | ChipVault Version 2002.11 #- | o | #- | \ | Copyright (C) 2002 Kevin M. Hubbard #- --------- #- | | #- #- This program is free software; you can redistribute it and/or modify #- it under the terms of the GNU General Public License as published by #- the Free Software Foundation; either version 2 of the License, or #- (at your option) any later version. #- #- ALL MATERIALS ARE PROVIDED 'AS IS'. YOU ASSUME THE ENTIRE RISK AS TO THE #- USE, QUALITY AND PERFORMANCE OF THIS SOFTWARE AND ANY CIRCUITRY GENERATED. #- #- In no event will the Author, Kevin M. Hubbard be liable for direct, #- indirect, special, incidental, or consequential damages resulting from the #- use of this software, even if advised of the possibility of such damages. #- #- Use of this software in the design or control of machinery involved in #- 'HIGH-RISK' activities, i.e. activities where failure of this software #- could reasonably be expected to cause DEATH, INJURY or the RELEASE OF #- HAZARDOUS MATERIALS, IS NOT PERMITTED. #- #- This program is distributed in the hope that it will be useful, #- but WITHOUT ANY WARRANTY; without even the implied warranty of #- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #- GNU General Public License for more details. #- #- You should have received a copy of the GNU General Public License #- along with this program; if not, write to the Free Software #- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #- #- Source file: cv.pl #- Date: 10/04/01 #- Author: Kevin M. Hubbard #- Description: This is a VHDL/Verilog Hierarchy Viewer and revision control #- system. Use it for managing your design files. It performs #- simple CheckIn/CheckOuts and also advanced features such as #- bottom-up compiles, Issue Tracking, Report Generation, etc. #- #- Special Credits To: Larry Wall (Mr.Perl), Linus Torvalds (Mr.Linux), #- Richard Stallman "RMS", (Mr.GNU, author of gcc,gdb,emacs....) #- What these 3 talented developers created and #- gave to the world definitely contributed more to #- ChipVault working than the 400,000 random keys the #- Author recklessly (and/or reclusely) typed in creating #- ChipVault source. Buy their books "Just for Fun" and #- "Camel", every bookshelf needs them. Support the FSF #- (Free Software Foundation) via donations at www.gnu.org #- Thank you Jacquie, Adrienne and Danielle for your #- patience in my passion to design and create thangs, #- both on and off the clock. #- #- Inputs: Command line argument #- ARGV[0] : filename ( hlist.txt, top.vhd or null) #- ARGV[1] : optional -c Flag for Batch Mode #- ARGV[2] : optional command to execute after -c Flag #- #- Example Envocation: #- 1) 1st Time use for a project: #- %cv.pl top.vhd #- This will read in top.vhd and find all children files in the same #- subdir that end in *.vhd (VHDL) or *.v (Verilog). This will #- generate a hlist.txt for which stores the design hierarchy and is #- read in by ChipVault on subsequent envocations. #- #- Win32 users - enter "top *.vhd " when prompted #- #- 2) Subsequent use for a project: #- %cv.pl #- #- 3) Project with multiple views (ie RTL,Netlist) #- %cv.pl hlist.txt #- %cv.pl rtl_hlist.txt #- %cv.pl net_hlist.txt #- #- 4) Batch mode for doing a bottom-up on all files #- %cv.pl hlist.txt -c "ls -l FILE_NAME" #- #- Example hlist.txt Hierarchy File: #- (ModuleName) (FileName) (Optional 3rd Column) #- top top.vhd u_top #- mid1 mid1.vhd GOTO_LINE= 100 #- leafa leafa.vhd #- # This line will be ignored as char-1 is a pound. #- subleaf sublead.vA GOTO_TAG= end component; #- leafb leafb.v #- mid2 mid2.v #- leafc leafc.vhd #- #- Outputs: STDOUT Status #- #- Compilation Options: None. Perl-5 Interpreted. Don't know about Perl-4 or 6. #- #- BUG_LIST: #- 0001 : extra "," and ";" on VHDL Port Declarations and Mappings #- #- #_ Revision History: #_ Ver When Who What #_ ---- -------- --- ---------------------------------------------------- #_ 01.10a 10/15/01 KMH Created #_ 01.10 10/18/01 KMH Ported to ActivePerl for Win32 platforms. #_ 2001.10 10/19/01 KMH Uploading to SourceForge #_ b 10/21/01 KMH Fixed flashing on Terminals that return 0 on nokey #_ 10/24/01 KMH Fixed report file name to support MOD_NAME tags #_ 10/24/01 KMH Fixed tool assignment string for UNIX Shell #_ 10/24/01 KMH Oops. I accidentally disable batch mode. Fixedit. #_ 10/26/01 KMH Enhanced to handle single netlist files which dont #_ have top declared 1st (ie they start with a subblock) #_ 10/31/01 KMH Added Curses support for Mouse on Linux/UNIX and #_ faster screen draws. #_ 11/05/01 KMH Moved chomp into my_get_line #_ 11/05/01 KMH Started adding issue list stuff. #_ 11/05/01 KMH Added macro key capability. #_ 11/05/01 KMH Fixed TarBalling ( added (list) option to tools ) #_ 11/06/01 KMH Fixed hierarchy_solver for 1 mod with no child #_ 11/06/01 KMH Added Email capability to issue_list_add(),check_in #_ 11/08/01 KMH Added support for hlist includes #_ 2001.11 11/08/01 KMH 2001.11 Release #_ 11/09/01 KMH Changed log_file to username_log_file for group work #_ 11/15/01 KMH Changed shell error from 3sec wait to keypress wait #_ 11/27/01 KMH scroll_box can pan left/right now. #_ 11/27/01 KMH Starting adding children block view #_ 11/27/01 KMH Replaced 80s in dialog_box with maxx. Now support #_ screens wider than 80. Great for child block view. #_ 11/27/01 KMH Added undef $left_str, $right_str to port_solver to #_ fix stale outputs from being used on blocks with no #_ outs. Still doesnt work! #_ 11/29/01 KMH Removed cd from $tcap->Trequire(qw(cl cm cd)) as #_ telnet from Win to Solaris failed on cd. Not needed #_ 11/29/01 KMH Prettied up issue_list_view #_ 11/29/01 KMH Improved Verilog Generation and Port Mapping #_ 11/29/01 KMH Problem. Mouse doesnt work on Win2K only WinNT and98 #_ 11/29/01 KMH Stopped calling Vim from Solaris. Assume Vi proper. #_ 11/29/01 KMH Fixed Win32 trying to "rm" instead of "del" on checkin #_ 11/30/01 KMH Added fork for allowing Win32 to spawn Editors #_ 11/30/01 KMH Forking is unreliable on Win32, commented out #_ 11/30/01 KMH Added make_pdf for Docs and Schematic Printing #_ 11/30/01 KMH 2001.12 PreRelease in case @home goes away #_ 12/01/01 KMH Added horiz scroll bar. Not sure if I like or not. #_ 12/01/01 KMH Added user.ini file for storing run-time config #_ 12/03/01 KMH Major Verilog Improvements to hierarchy_solver() #_ 12/03/01 KMH Major Verilog Improvements to port_map() #_ 12/03/01 KMH Added hlist checksumming for ini loading #_ 12/04/01 KMH Fixed Finding and Launching notepad.exe from Win98 #_ 12/04/01 KMH Fixed Printing PDF PRoblem with global var #_ 12/04/01 KMH Fixed problem on win32 #_ 12/04/01 KMH Added cv_viewer and cv_rtl_viewer features. #_ 2001.12 12/04/01 KMH 2001.12 Release #_ 12/05/01 KMH Added tool line for call cv_log.pl #_ 12/05/01 KMH Auto Log File Clearing, etc and terminating cv_log #_ 12/06/01 KMH Started a PerlTk Port #_ 12/07/01 KMH PerlTk scroll_box working #_ 12/09/01 KMH Command Consolidation #_ 12/09/01 KMH TODO: Why does down arrow come out as

on Win98? #_ 12/09/01 KMH DONE: Window resizing under POSIX not working. #_ 12/10/01 KMH Added page-down capability for ToolMenu #_ 12/10/01 KMH Xterm spawning from Tk crash. Why? #_ 12/10/01 KMH Fixed Posix Resizing #_ 12/11/01 KMH Fixed white space from null issue_list_view fields #_ 12/11/01 KMH TODO: Enter on issue_list_view off by one line #_ 12/11/01 KMH Added Tk scroll bars #_ 12/12/01 KMH tweaked make_pdf() for better slash support and fix #_ colorspace problem. #_ 12/12/01 KMH fixed cursor going away after Tk scrolling #_ 12/12/01 KMH added tk settings to ini file. #_ 12/13/01 KMH Tk support for win32 on sie_perl #_ 12/16/01 KMH Added cv_to_go feature. #_ 12/17/01 KMH Fixed messy too wide error message on ext cmd fails #_ 12/17/01 KMH Added enable_confirm_checkin safety feature #_ 12/17/01 KMH Turned off tk for cv_rtl_viewer #_ 12/18/01 KMH Improved hierarchy_solver() to report refdes's #_ 12/18/01 KMH Added rotate_view for showing refdes and filenames #_ 12/21/01 KMH Changed port_solver $left_str to @left_str, fix stale #_ 12/21/01 KMH Added disable for Curses mouse as messed up pasting #_ 12/21/01 KMH Fixed Tar,etc getting called twice after tool_menu #_ 12/27/01 KMH txt2pdb() from GPLd bibelot.pl (c) John Fulmer #_ 01/01/02 KMH Fixed win32 dialog entry being 1 line off via Flush() #_ 2002.1 01/01/02 KMH 2002.1 Release #_ 01/08/02 KMH Mod'd hierarchy_solver to ignore everything after -- #_ 01/08/02 KMH Added prompt on operating on Mainline of checkedout #_ 01/08/02 KMH Fixed hierarchy_solver() prob w/ filenames > 20. #_ 01/09/02 KMH Added "[if_user] username" feature for hlists #_ 01/10/02 KMH Fixed hierarchy_solver() using old mod on 2nd RTLgen #_ 01/15/02 KMH Fixed Send_Author_Email #_ 01/15/02 KMH Fixed wip_exists not clearing on (hier) jobs #_ 01/15/02 KMH Fixed cv_tk spin problem with sleep_loop. #_ 01/16/02 KMH Added enforce_checkouts feature for protecting main #_ 01/18/02 KMH Added report_analysis for generating area estimates #_ and flip-flop counts for report views. #_ 01/20/02 KMH Enhanced CVtogo for including file sizes and checksum #_ 01/21/02 KMH MTI path is now /modelsim/username/work for multiuser #_ 01/22/02 KMH Added file modification timestamp report #_ 01/22/02 KMH Added command line for executing UNIX scripts #_ 01/27/02 KMH Added cv_to_go_imp. Basic op, no merging capbility #_ 01/29/02 KMH Added solve_wip_name for supporting paths #_ NOTE: Reports doesnt work for paths other than "" #_ 02/05/02 KMH Added a clock #_ 02/12/02 KMH Fixed on issue_list_view. Actually works now. #_ 02/12/02 KMH Removed prompt on Win32 no editor warning. #_ 02/12/02 KMH Support for repeating last change history with NULL. #_ 02/20/02 KMH Display Warning when checkin/out on invalid location. #_ 02/20/02 KMH Fixed VHDL "foo:" prob in hierarchy_solv+port_solv #_ 02/21/02 KMH Added $draw_main2wip_line_en feature. #_ 02/21/02 KMH Added umask(000) so that gen TARs are a+w permission. #_ 02/25/02 KMH Cleared edit_sel on @Macros as 1st checkouts ran Vi. #_ 02/27/02 KMH Added FAT Table for CVtogo exporting #_ 03/04/02 KMH Added sorted issue order for CVtogo exporting. #_ 03/22/02 KMH Extra params around getpwuid for 5.003 support #_ 03/25/02 KMH Removed error checkin on TAR as UNIX/Linux dont play #_ 04/27/02 Chad VHDL Port_Solver Changes from Chad. #_ 04/29/02 KMH Added System Call Logging for Batch File Creation #_ 06/07/02 KMH Added trace log for fellow ChipVault SW developers #_ 06/07/02 KMH tool_menu_skip hack to fix TAR problem. #_ 06/07/02 KMH Added TIMESTAMP option for Release TARs #_ 06/10/02 KMH Fixed a PARAM1 issue. #_ 06/24/02 KMH Inserted a default tool selection for DOS VIM #_ 08/01/02 KMH Fixed Win32 not having a ReadOnly Editor Assigned #_ 08/26/02 KMH Fixed port_map signal_full_list@ not clearing and #_ making multiple calls to gen_rtl() append last sig #_ 08/26/02 KMH Added hlist generation wizard #_ 08/26/02 KMH key bound to check_in_out feature (does both) #_ 2002.8 08/26/02 KMH 2002.8 Release #_ 09/03/02 KMH Support for VIM flags under Win32 (ie screen setting) #_ 09/04/02 KMH WhiteSpace pad the selected filename to 80chars #_ 09/09/02 KMH Added Search feature via / and ? Keys #_ 09/09/02 KMH Added @goto_line_array [], GOTO_LINE=, GOTO_TAG= #_ ChipVault is now Self Hosting! #_ 09/10/02 KMH Recalc MOD_NAME and FILE_NAME for UNIX calls all time #_ 09/10/02 KMH Added label_release feature for history log anttng #_ 09/10/02 KMH Added Diff COd feature with slog_file under cv_view #_ 09/10/02 KMH Option to generate RTL to slog_file instead of foo.. #_ 09/11/02 KMH Enhanced label_release feature #_ 09/11/02 KMH Fixed (list) option to truly do entire list(invis-2) #_ 09/13/02 KMH Improve Morphing to match line numbers and also allow #_ for whitespace compression. Saves up to 150KB. #_ 09/13/02 KMH Added create_branch() feature. #_ 09/14/02 KMH Added tool_info feature (active Help for Tool Menu). #_ 09/18/02 KMH Added internal TAR capability for Win32 RCS tarring. #_ 09/18/02 KMH Added check_restore for extracting WIPs from TAR file #_ 09/18/02 KMH Commented k_restore for extracting WIPs from TAR file #_ 09/18/02 KMH Support INI specified editor(Joe uses Vi,Bob emacs) #_ 09/19/02 KMH Generate CV.lnk file for Win32 console setup. #_ 09/27/02 KMH Added subdir_import() function (ie Renoir importing) #_ 09/27/02 KMH Added solve_slash for fixing win32 slash problems #_ 09/30/02 KMH Added build_vlib to generate ModelSim work directory #_ 09/30/02 KMH Added win32 color schemes #_ 10/02/02 KMH Try ENV{"USER","LOGNAME"} when getlogin() fails. #_ 10/02/02 KMH Replace ' ' with '_' on label_release labels. #_ 10/04/02 KMH Happy 1st Birthday ChipVault! #_ 10/08/02 KMH cv_include inclusion for libraries, etc #_ 10/08/02 KMH depricated (list) option with (hier_exp) #_ 10/09/02 KMH fixed tar calls in tool list from -cvf to -rvf(appnd) #_ beta 10/17/02 KMH Added display styles and world greetings. #_ moved call to read_user_ini() #_ 10/17/02 KMH Worked on toolbox. #_ 10/17/02 KMH Save Solaris Screen size to uni file #_ 10/17/02 KMH Removed old cv_log stuff for cv_log.pl. Depricated. #_ 10/18/02 KMH Added new Tool Bar (Tabbing) #_ 10/18/02 KMH Removed Curses and Tk subroutines. Stopped supporting #_ 10/18/02 KMH Added about box. Stopped morphing cv_posix. use cv #_ 10/20/02 KMH Worked on tools. #_ beta 10/21/02 KMH enforce_checkout now checks for "Edit" string #_ 10/22/02 KMH Added split_display mode. Lichen it. #_ 10/22/02 KMH Added horizontal for split_display when x > 160. #_ 10/24/02 KMH Added split_display scrolling and log file mode. #_ 10/24/02 KMH Improved Emacs support. #_ 10/24/02 KMH Added search capability to cv_viewer() #_ 10/25/02 KMH Added inferrable RAM to VHDL template #_ 10/25/02 KMH Added Web Page Reading for CV Change List check #_ 10/29/02 KMH Removed extra space in KMH favorite theme #_ 10/31/02 KMH Enhanced Split Display and bound to #_ 10/31/02 KMH Gave UNIX 3-char keys (arrows) a 256 offset as #_ up_array and 'A' are both 65. #_ 11/01/02 KMH Option to import subdirs of RTL files only #_ 11/01/02 KMH Got Arrow Cursor keys working for gnome-terminal #_ 11/01/02 KMH set_title() for xterm titles. Added vt100 color #_ 11/01/02 KMH added chomp after vi / emacs user entry to fix CR #_ 11/04/02 KMH added web page version checking. rewrote get_web_page #_ 11/05/02 KMH added proxy server web access via LWP #_ 11/05/02 KMH added hlist support of external files on the web. #_ for group design support. #_ 11/06/02 KMH added Blowfish encryption support . #_ 11/06/02 KMH hlist now supports white-space lines. #_ 11/08/02 KMH finally switched my_tool from hash to array #_ 11/08/02 KMH added Xilinx + Altera Synth Script Generation #_ 11/08/02 KMH int_tool now parsed from 2nd words, not 1st #_ 11/09/02 KMH Added log file viewing #_ 11/10/02 KMH Worked on Tutorial #_ 11/11/02 KMH list_user_vars(), build_vlib() toolbar #_ 11/11/02 KMH Removed CVtogo and Palm Document Interface #_ 2002.11 11/12/02 KMH 2002.11 Release #_ 11/12/02 KMH oops. fixed log_file and slog_file for split_display #_ #_ --- END_CHANGE_LIST --- #_ TODOLIST: #_ TODO: issue with win32 putting CtrlM after PROXY_USER and mucking thangs #_ TODO: Note: There are still some issues with leading paths on file gens #_ ie history logs, etc. #_ TODO: Major Snafu on using Global $rts for dialog_box instead of local. #_ when array of params are used. #_ 0001 : Verilog Module Generation #_ NO_EXT doesn't work! $ext_null must be set to ".vhd" or ".v" #_ 0002 : Use seek() function (PerlCookBook pg.283) to watch STDOUT live #_ during VCOMs #_ 0003 : VIM from Win32 doesnt work on files w/ paths #- *************************************************************************** ############################################################################### # ChipVault Internal Function List ############# # Main # main() ############# # CV-ToGo (Palm PDA Interface) # cv_to_go() cv_to_go_imp() ############# # Revision Control (Library) # check_out() check_in() check_abandon() check_restore() label_release() # archive() archive_restore() ############# # USER I/O # my_get_key() scroll_box() banner_message() readkey() clear_screen() gotoxy() # display_ports_parent() display_ports_kids() display_main() cbreak() cooked() # leave_now() screen_sizing() process_keys() display_tool_menu() # cv_view() cv_rtl_view() display_help() scroll_box_rtl() dialog_box() # dialog_box_display() dialog_box_input() my_get_line() my_print() # display_cursor() curses_refresh() read_user_ini() ############# # Misc # get_hlist() init() finish() dump() ############# # Design Issue DataBase # issue_list_add() issue_list_view() ############# # RTL Analysis and Generation # call_hierarchy_solver() report_analysis() hierarchy_solver() show_children() # port_solver() port_map() make_rtl() generate_rtl() ############# # OS Interfaces # send_email() by_word_n # my_glob() solve_wip_name() solve_file() # solve_path() ############# # PDF Generation # make_pdf() pdf_text_horizontal() pdf_text_horizontal_cont() # pdf_close_horizontal_cont() pdf_text_vertical() pdf_color_line() # pdf_header() pdf_start_page() pdf_finish_page() pdf_footer() ############################################################################### $version = "2002.11 "; # Note Whitespace needed for banner bug # [pdf_on] # [pdf_text_size] 40 # ChipVault # 2002.11 # [pdf_break] # [pdf_text_size] 10 # [pdf_off] #use HotKey; # use Term::ANSIColor; # Note: Only on Linux #print color("red"), "Stop!\n", color("reset"); #exit; #use Term::Size; ## Text Compression: Enabling these will reduce the RunTime footprint of ## ChipVault by approximately 50%. IE, your ChipVault executable will ## be 200KB instead of 400KB. $whitespace_compression = 0 ; # Compress ChipVault by Removing White Spaces $comment_line_removal = 0 ; # Remove Commented Lines $vhdl_template_removal = 0 ; # Remove Lines beginning w/ #T $verilog_template_removal = 0 ; # Remove Lines beginning w/ #V $help_text_removal = 0 ; # Remove Lines beginning w/ #H $tutorial_removal = 0 ; # Remove Lines beginning w/ #H $changelog_removal = 0 ; # Remove Lines beginning w/ #_ $gpl_license_removal = 0 ; # Remove Lines beginning w/ #L $curses_on = 0; $morph = 1; # Generate Curses, Win32 versions of SW $cv_is_installed = 0 ; # Disables Unpacking # SELF_MODIFY_SECTION_START CODE_TK OFF NULL # use Tk; # use Tk::Xlib; # use Tk::Dialog; # use Tk::TextList; # $tk_on = 1; # SELF_MODIFY_SECTION_STOP CODE_TK OFF NULL # SELF_MODIFY_SECTION_START CODE_CURSES OFF NULL # use Curses; # $curses_on = 1; # $curses_mouse_enable = 0 ; # May screw up Xterm Pasting via Mouse # $morph = 0; # SELF_MODIFY_SECTION_STOP CODE_CURSES OFF NULL # SELF_MODIFY_SECTION_START CODE_WIN32 OFF NULL # use Win32; # use Win32::Console; # use Win32::Process; # $morph = 0; # $win32_enabled = 1; # SELF_MODIFY_SECTION_STOP CODE_WIN32 OFF NULL # shift; # $ARGV[0] <- $ARGV[1] $os = "unix"; # Assume were running on a real OS until told otherwise. $os_title = lc( $^O ) ; # See Camel Pg.137 if ( ( $os_title =~ m/win/go ) ) { $os = "win32"; } else { $os = "unix"; } if ( $os eq "unix") { umask (000); } # Make sure Gen Tars are a+w #print "$os_title\n"; #exit; $app_title = $0; $maxx = 80 ; # Default needed for opening banner $maxy = 24 ; # Default needed for opening banner $comment_line = 0; # Default if ( ( $os eq "win32" ) && ($cv_is_installed != 1 ) ) { ########################################################## # Generate Platform specific version of application for # using on Win32 and UNIX+Curses. ########################################################## # $posix_morph = "cv_posix.pl"; # Standard UNIX/Linux Terminal IO $win32_morph = "cv_win32.pl"; # ActivePerl port for Win32 # $curses_morph = "cv_curses.pl"; # Enhanced UNIX/Linux DirectDraw # $tk_morph = "cv_tk.pl"; # PerlTk port if ( $morph == 1 ) { # select STDOUT; $| = 1 ; # Turn off STDOUT Buffering (Normally buffs lines) print "\nGenerating PDF Documentation..\n"; # print "Unpacking $posix_morph : UNIX/Linux Standard Terminal IO\n"; # print " (Solaris requires XTERM not CMDTOOL!)\n"; # print "Unpacking $curses_morph : UNIX/Linux Port for Mouse+DirectDraw\n"; # print " (Fast, but requires Curses be installed)\n"; # print "Unpacking $tk_morph : UNIX/Linux/Win32 PerlTk GUI Port\n"; # print " (Fluffy mouse driven. Requires Tk800 )\n"; print "Unpacking $win32_morph : Port for Win32 OSs\n"; print " (Console-App. Beware of W2K console)\n"; make_pdf( $app_title, "cv.pdf", "parse"); open( input_file , "<" . $app_title ); # This is me open( output1_file, ">" . $win32_morph ); # open( output3_file, ">" . $posix_morph ); # open( output2_file, ">" . $curses_morph ); # open( output4_file, ">" . $tk_morph ); while ( $_ = ) { chomp $_; # Strip CR if ( $whitespace_compression == 1 ) { s/^\s*//; } # Leading WhiteSpace $out_str = $_ . "\n"; # Add CR ($F1, $F2, $F3, $F4, $ETC ) = split (' ', $_ ,5) ; #Parse if ($F2 eq "[tk_section_on]" ) { $tk_section = 1; } elsif ($F2 eq "[tk_section_off]" ) { $tk_section = 0; } $remove_comment_line=0; if ( ( $comment_line_removal == 1 ) || ( $vhdl_template_removal == 1 ) || ( $verilog_template_removal == 1 ) || ( $help_text_removal == 1 ) || ( $tutorial_removal == 1 ) || ( $changelog_removal == 1 ) || ( $gpl_license_removal == 1 ) ) { if ( substr($F1,0,1) eq "#") { if (($vhdl_template_removal==1) && (substr($F1,1,1) eq "T")) { $remove_comment_line=1; } if (($verilog_template_removal==1) && (substr($F1,1,1) eq "V")) { $remove_comment_line=1; } if (($help_text_removal ==1) && (substr($F1,1,1) eq "H")) { $remove_comment_line=1; } if (($changelog_removal ==1) && (substr($F1,1,1) eq "_")) { $remove_comment_line=1; } if (($tutorial_removal ==1) && (substr($F1,1,1) eq "Z")) { $remove_comment_line=1; } if (($gpl_license_removal ==1) && (substr($F1,1,1) eq "L")) { $remove_comment_line=1; } if (($comment_line_removal ==1) && (substr($_ ,1,1) eq " ")) { $remove_comment_line=1; } if (($comment_line_removal ==1) && (substr($_ ,1,1) eq "#")) { $remove_comment_line=1; } }# if ( substr($F1,0,1) eq "#") } if ( $F1 eq "\$cv_is_installed" ) { print output1_file "\$cv_is_installed = 1;\n"; # print output3_file "\$cv_is_installed = 1;\n"; # print output2_file "\$cv_is_installed = 1;\n"; # print output4_file "\$cv_is_installed = 1;\n"; } elsif ( $F2 eq "SELF_MODIFY_SECTION_START" ) { print output1_file $out_str; # print output3_file $out_str; # print output2_file $out_str; # print output4_file $out_str; if ( $F3 eq "CODE_WIN32" ) { if ( $F4 eq "OFF" ) { $win32_morphing = 1; $out_str = "$F1 $F2 $F3 ON $ETC"; print ".."; } } elsif ( $F3 eq "CODE_CURSES" ) { if ( $F4 eq "OFF") { $curses_morphing = 1; $out_str = "$F1 $F2 $F3 ON $ETC"; print ".."; } } elsif ( $F3 eq "CODE_TK" ) { if ( $F4 eq "OFF") { $tk_morphing = 1; $out_str = "$F1 $F2 $F3 ON $ETC"; print ".."; } } } elsif ( $F2 eq "SELF_MODIFY_SECTION_STOP" ) { # if ( $morphing == 1 ) { $morphing = 0 ; } if ( $curses_morphing == 1 ) { $curses_morphing = 0 ; } if ( $win32_morphing == 1 ) { $win32_morphing = 0 ; } if ( $tk_morphing == 1 ) { $tk_morphing = 0 ; } print output1_file $out_str; # print output3_file $out_str; # print output2_file $out_str; # print output4_file $out_str; } elsif ( ($win32_morphing == 1) ) { # print output3_file $out_str; # print output2_file $out_str; # print output4_file $out_str; ($null_str, $out_str) = split (' ', $_ , 2 ); print output1_file $out_str; print ".."; } elsif ( ( $curses_morphing == 1 ) ) { print output1_file $out_str; # print output3_file $out_str; # print output4_file $out_str; ($null_str, $out_str) = split (' ', $_ , 2 ); # print output2_file $out_str; print ".."; } elsif ( ( $tk_morphing == 1 ) ) { print output1_file $out_str; # print output3_file $out_str; # print output2_file $out_str; ($null_str, $out_str) = split (' ', $_ , 2 ); # print output4_file $out_str; print ".."; } else { if ( $remove_comment_line == 1 ) { $out_str = "#\n"; # Compress, but keep line numbers same } # if ( $comment_line == 0 ) print output1_file $out_str; # print output3_file $out_str; # print output2_file $out_str; # print output4_file $out_str; } } # while close input_file; close output1_file; # close output3_file; # close output2_file; # close output4_file; print "\n"; print STDOUT "NOTE: Installation for Win32 Complete. Run cv_win32.pl \n"; }# if ( $morph == 1 ) if ( $os eq "win32" && ( $win32_enabled != 1 ) ) { print STDOUT "\n------------------------------------------------\n"; print STDOUT "NOTE: Generated cv_win32.pl file \n"; print STDOUT " I detected you are running on a Win32 OS. \n"; print STDOUT " Win32 is not POSIX Terminal IO compliant. I have \n"; print STDOUT " generated a new file for you to execute called \n"; print STDOUT " cv_win32.pl which will make native Win32 calls \n"; print STDOUT " instead of POSIX Terminal IO calls. \n\n"; print STDOUT "NOTE: Decent_Editor_Required \n"; print STDOUT " You will most likely need a decent editor \n"; print STDOUT " on Windows. I'll assume VIM is in c:\vim \n"; print STDOUT " If you need it, go to www.vim.org (free) \n\n"; print STDOUT " Press for Win32 Console Setup Information\n"; print STDOUT "------------------------------------------------\n"; $rts = my_get_line(); print STDOUT "NOTE: Generated Win2K cv.lnk file \n"; print STDOUT " Windows-Console apps have bad defaults which \n"; print STDOUT " take away cursor key bindings. I have generated \n"; print STDOUT " a cv.lnk file for you which launches ChipVault \n"; print STDOUT " cv_win32.pl in a console 80x60 which supports \n"; print STDOUT " cursor key navigation. Double-Click on cv.lnk \n"; print STDOUT " to start ChipVault under Windows. Right-Click \n"; print STDOUT " on cv.lnk to change Properties such as Window \n"; print STDOUT " size, startup directory, etc. \n"; print STDOUT "NOTE: If the generated cv.lnk file doesn't work \n"; print STDOUT " on your particular flavor of Windows, generate a \n"; print STDOUT " link file from the Windows Desktop with the parms\n"; print STDOUT " [Shortcut]\n"; print STDOUT " Target : perl.exe cv_win32.pl\n"; print STDOUT " Start in : Your_Design_Path_Containing_hlist.txt\n"; print STDOUT " [Layout]\n"; print STDOUT " ScreenBufferWidth : 80\n"; print STDOUT " ScreenBufferHeight : 60\n"; print STDOUT " Window Size Width : 80\n"; print STDOUT " Window Size Height : 60\n"; print STDOUT "------------------------------------------------\n"; print STDOUT " Press to exit this POSIX Application. \n"; $rts = my_get_line(); gen_win32_lnk(); # Go Ahead and generate the Win32 link for everybody exit ( -10 ); } } # if ( $cv_is_installed != 1 ) ########################################################## # Not all UNIX Terminals support cursor control. Check for xterm and warn ########################################################## if ( ( $os eq "unix") && ( $dont_check_for_xterm != 1 ) ) { $user_screen_type = lc( $ENV{"TERM"} ); if ( lc($ENV{"TERM"}) ne "xterm" ) { if ( lc($ENV{"TERM"}) eq "sun-cmd" ) { print STDOUT "WARNING: cmdtool and shelltool dont work \n"; print STDOUT "WARNING: please use xterm or gnome-terminal\n"; } print STDOUT "WARNING: I did not detect an xterm terminal in use\n"; print STDOUT " Terminal Type ". $ENV{"TERM"} ." may or may not work with\n"; print STDOUT " POSIX compliant Terminal Escape Codes for cursor\n"; print STDOUT " positioning. If the text formatting after this is\n"; print STDOUT " scrambled, press key and restart application \n"; print STDOUT " inside an xterm. \n"; print STDOUT " Note: You can avoid this check in the future by \n"; print STDOUT " setting the variable dont_check_for_xterm \n"; print STDOUT " Thank you. Please Press to begin ChipVault.\n"; $rts = my_get_line(); } } if ( $os eq "unix" ) { # Send the Xterm Escape chars for setting terminal title. Note that this $xterm_title = "ChipVault " . $version; set_title($xterm_title); use Term::Cap; use POSIX qw(:termios_h); $fd_stdin = fileno(STDIN); $term = POSIX::Termios->new(); $term->getattr($fd_stdin); $oterm = $term->getlflag(); $echo = ECHO | ECHOK | ICANON; $noecho = $oterm & ~$echo; } if ( $os eq "unix" ) { $filecat = "/" ; $cp_cmd = "cp "; $rm_cmd = "rm "; $mkdir_cmd = "mkdir -p"; # Note -p creates parent dirs when needed $gzip_cmd = "gzip "; $gunzip_cmd = "gunzip "; $gzip_dir_cmd = "gzip -r "; } elsif ( $os eq "win32" ) { $filecat = "\\" ; $cp_cmd = "copy "; $rm_cmd = "del "; $mkdir_cmd = "mkdir "; $gzip_cmd = ""; $gunzip_cmd = ""; $gzip_dir_cmd = ""; } if ( $my_name eq "" ) { $my_name = getlogin(); } if ( $my_name eq "" ) { $my_name = $ENV{"LOGNAME"}; } if ( $my_name eq "" ) { $my_name = $ENV{"USER"}; } if ( $my_name eq "" ) { print "WARNING: getlogin() failed\n"; print " Perl was unable to deliver your login name\n"; print " Please type it in followed by \n"; $my_name = my_get_line(); } # [pdf_on] # [pdf_text_size] 20 # User Definable Flag Options: # [pdf_text_size] 10 # [pdf_line_number] # [user_vars_start] ############################################################################# # User INI File Settings: $user_ini_enable = 1; # Turn Off to speed up start/quit # $user_ini_file = ".USER_NAME_cv.ini"; # Hidden User Config $user_ini_file = "USER_NAME_cv.ini"; # Visible User Config ( $user_ini_file =~ s/USER_NAME/$my_name/go ); # Search+Replace Tag $notify_on_hlist_change = 1 ; # Tell user when hlist.txt changes ############################################################################# # Advanced Feature Enables: $disp_tool_opts = 0; # Display the Tool Options in the Tool Menu $disp_tool_bindings = 1; # Display the Key bindings in the Tool Menu $disp_file_in_main = 1; # Display the Select Filename in Main Window $disp_file_xterm_title = 1; # Display the Select Filename in Xterm Title $enable_split_display = 1; # Split Display in 2 for simultan port views $split_display_size = 1; # Default Split Display Sizing $split_display_mode = 0; # Default Split Display Mode (Port vs Log) $enable_archives = 1; # Make 0 if you don't want TARs made $enable_history = 1; # Make 0 if you don't want History Logs $enable_vt100_color = 0; # Make 0 if you don't want UNIX VT100 Color $enable_web_access = 1; # 0 to turn off Web Access Version Checking $vers_check_after = 50; # How many envokes before web-vers-check $proxy_en = 0; # 1 if you need a Proxy Server for Web Access $proxy_authentication = 0; # 1 if username and password reqd $proxy_ip = "proxy103a"; # IP name for your Proxy Server $proxy_port = "8080"; # Port (ie 80 or 8080) $encryption_type = "cheezy";# cheezy or blowfish $default_crypt_key = "128bitOpenAccess"; # Default Encryption Key $encryption_suffix = "cv_world"; # ie foo.v => foo.v.cv_world $newbie = 0; # Turns on annoying hints and stuff $enable_confirm_checkin = 1; # Make 0 if you don't confirmation prompting $enforce_checkouts = 1; # Prohibits running editor on mainline files $enforce_checkouts_truly = 0; # Uses CVs RTL Viewer instead of vi -R $enforce_warn_time = 2; # How many seconds to display warning dialog $dynamic_resize_checking = 0 ; # Allow for dynamic window resizing # Turn on for really fast systems # Then you don't need to press esize key. $stty_pipe_doesnt_work = 0; # Set 1 to not call stty for screen size $default_noise_filter = ""; # Null is default as it forces Prompt Popup $license_banner = 1; # Set to 1 to make popup last 1 second $license_banner_quit = 1; # Set to 1 to make popup last 1 second $draw_main2wip_line_en = 1; # ASCII Line connecting Mainline file to WIP $win32_mouse_enable = 1; # Enables Mouse Support on win32 $vim_lines = 80; # Defines VIM Screen Line Size under Win32 $disp_select = 0; # Set 0 for module, 1 for file, 2 for refdes $gates_per_cell_area = 40; # For report_analysys, this tries to # correlate Synopsys Cell Area with Gate cnt # This will change for every tech library. $enable_clock = 1; # Display the clock on screen or not $gzip_branched_files = "?"; # Gzip the branched files or leave in clear $unix_tar_en = 1; # Use UNIX tar instead of internal TAR $unix_gzip_en = 1; # Use UNIX gzip to compress TAR files # [user_vars_stop] $style = 0; @style_flag_expanded [$style] = " - "; # Classic @style_flag_collapsed[$style] = " + "; @style_flag_nokids [$style] = " "; $style++; @style_flag_expanded [$style] = "[-] "; # KMH Favorite @style_flag_collapsed[$style] = "[+] "; @style_flag_nokids [$style] = " "; $style++; @style_flag_expanded [$style] = "[-] "; # Minor Variation @style_flag_collapsed[$style] = "[+] "; @style_flag_nokids [$style] = " \\ "; $style++; @style_flag_expanded [$style] = "$-$ "; # @style_flag_collapsed[$style] = "$+$ "; @style_flag_nokids [$style] = " "; $style++; @style_flag_expanded [$style] = "<-> "; # @style_flag_collapsed[$style] = "<+> "; @style_flag_nokids [$style] = " "; $style++; @style_array[$style] = "end"; $style = 1; # Specify the Default Style update_style($style); # Win32 users under Active-Perl can pick some different stock color schemes @win32_color_array[0] = ($FG_BLACK | $BG_WHITE ); @win32_color_array[1] = ($FG_WHITE | $BG_BLACK ); @win32_color_array[2] = ($FG_WHITE | $BG_BLUE ); @win32_color_array[3] = ($FG_GRAY | $BG_BLUE ); @win32_color_array[4] = ($FG_GRAY | $BG_BLACK ); @win32_color_array[5] = ($FG_GREEN | $BG_BLACK ); $win32_color_select = 0; $win32_color_scheme = @win32_color_array[$win32_color_select]; # VT100 users can pick some different stock color schemes @vt100_color_array[0] = " "; @vt100_color_array[1] = "black white"; @vt100_color_array[2] = "white black"; @vt100_color_array[3] = "white blue"; @vt100_color_array[4] = "green black"; @vt100_color_array[5] = "blue black"; $win32_color_select = 0; $vt100_color_scheme = @vt100_color_array[$win32_color_select]; if ( $os ne "unix" ) { $unix_tar_en = 0; # Use UNIX tar instead of internal TAR $unix_gzip_en = 0; # Use UNIX gzip to compress TAR files } # Ignore this stuff. Just author specific prefs if ( $my_name eq "khubbard" ) { $disp_file_in_main = 1; # Display the Select Filename in Main Window $disp_file_xterm_title = 1; # Display the Select Filename in Xterm Title $license_banner = 1; # Set to 1 to make popup last 1 seconds only $license_banner_quit = 1; # Set to 1 to make popup last 1 seconds only $proxy_en = 0; # 0 if no Web Proxy Server $proxy_authentication = 0; # 1 if username and password reqd $proxy_ip = "proxy103a"; # IP name for your Proxy Server $proxy_port = "8080"; # Port (ie 80 or 8080) } # [user_vars_start] # Set this to NULL if you want no web access for checking versions. $web_page_url = "http://chipvault.sourceforge.net"; $change_list_url = $web_page_url . "/change_list.txt"; $cv_include_var = "CV_INCLUDE"; # Environment variable for libs $cv_include_file = ".cv_include"; # Home Hidden file for libs $issue_file = "issues.txt"; # Issue Tracking DataBase $print_file = "print.txt"; # Text Printout of Blocks $pdf_file = "print.pdf"; # PDF Printout of Blocks $branches_subdir = "branches"; # Subdir to put branches in $log_file_tag = "USER_NAME_log.txt"; # Standard Output Log File $log_file = $log_file_tag; ( $log_file =~ s/USER_NAME/$my_name/go ); # Search+Replace Tag $slog_file_tag = "USER_NAME_slog.txt"; # Standard Output Small Log File $slog_file = $slog_file_tag; $trace_file = "cv_trace.txt"; # Software Debug Trace File ( $slog_file =~ s/USER_NAME/$my_name/go ); # Search+Replace Tag $sys_file_tag = "USER_NAME_syslog.sh"; # Batch Log File $sys_file = $sys_file_tag ; ( $sys_file =~ s/USER_NAME/$my_name/go ); # Search+Replace Tag $rel_path_to_src = "../src/"; # Relative Path from Xilinx to Src ############################################################################# # Admin Setup : Admin users can change file Write Permissions from ChipVault. $admin_hash {"khubbard"} = 1; $admin_hash {"hunt"} = 1; $company_name = "Acme ASIC Design"; ############################################################################# # Email Setup : This allows for automatic Email notification to entire # group on file Checkins. $email_domain = ""; # ie "\@foo.com" Can be kept null oftentimes. @email_list = ("khubbard","khubbard") ; # This is for checkins. $send_email_on_check_in = 0; # Annoying. Some people like this. $send_email_allowed = 1; # Security feature Email enabling. if ( $os eq "unix" ) # Configure Browser for Webbing to ChipVault WebSite { $browser = "netscape"; } else { $browser = "iexplore.exe"; } ############################################################################# # Shared Library Component Modules : These are like hlist.txt files but they # contain common building block components # for designers to browse and use in their # designs. @lib_list = ("/home/asic/group/examples/vhdl/library.txt", "/home/asic/group/examples/verilog/library.txt" ); ############################################################################# # File Name Formats: $wip_header = "wip."; # Defines Name for CheckedOut Files. # ie "wip.foo.vhd" $tar_header = ".archive."; # I like this hidden. $tar_list_header = ".archive_list."; # Remove 1st dot to make these visible $tar_list_footer = ".txt"; # $hist_log_header = ".history_log."; # I like this hidden $hist_log_footer = ".txt"; # ############################################################################# # Misc Options: $bell = chr(7); # Warning Bell. I find them annoying. Set to "" instead. $x_scale = 2; # Defines the number of spaces between hierarchy levels # for shallow hierarchy designs, you might want this to # be 4 to give more spacing. For really deep designs, # you'll want this to be 1 so all levels fit on the screen $activate_tool_once_selected = 1 ; # Once you pick a new tool, use it now $horiz_scroll_bar_option = 1 ; # Enables drawing horizontal scroll bar. # [user_vars_stop] ############################################################################# # [pdf_break] # [pdf_line_number] ############################################################################# # KeyCodes: These work for my machine, which means 1% chance they'll work on # yours. Envoke cv.pl DEBUG to see your key codes. $k_ctrl_d = 4 ; $k_ctrl_u = 21 ; if ( $os eq "unix" ) { $k_up = 65 + 256; # Note: 256 is my offset out of ASCII range for 3-char key $k_dn = 66 + 256; $k_lf = 68 + 256; $k_rt = 67 + 256; $k_cr = 10; $k_tab = 9; $k_esc = 27; } else { $k_cr = 13; $k_up = 72; # Win32 ScanCodes $k_dn = 80; $k_lf = 75; $k_rt = 77; $k_tab = 9; $k_esc = 27; } $k_sp = 32; $k_p = 112; $k_q = 113; $k_a = ord("a"); $k_e = ord("e"); $k_h = ord("h"); $k_z = ord("z"); $k_1 = ord( "1"); $k_2 = ord( "2"); $k_3 = ord( "3"); $k_4 = ord( "4"); $k_5 = ord( "5"); $k_6 = ord( "6"); $k_7 = ord( "7"); $k_8 = ord( "8"); $k_9 = ord( "9"); $k_mouse_double_click_togl = -1; $k_mouse_double_click_edit = -2; $k_mouse_port_view = -3; # Now Load the User Preferences read_user_ini(); # Yuck. Call this twice, 1st time for Editor Selection # but the HLIST hasn't been read in yet, so checksum fails # [pdf_break] # [pdf_text_size] 20 # User Definable Editor and Tool Assignment: # [pdf_text_size] 10 # [pdf_line_number] ######################################## $j=1; # Note : enforce_checkouts will only check for tool#2 being used against # a non WIP file, so the 1st tool assigned after this "Edit Tools" # label will be the only one checked. # ----Display----- # -- UNIX Command -- #################################################################### # @my_tool[$j++] = "- Edit Tools --------- # "; @my_tool[$j++] = "- Editors ------------ # "; ## Assign your editor and Tools Here if ( ( ( $my_editor_unix_bin eq "" ) && ( $os eq "unix" ) ) || ( ( $my_editor_win32_bin eq "" ) && ( $os eq "win32" ) ) ) { # $def_editor = "emacs"; if ( $os eq "unix" ) { $def_editor = "vi"; } else { $def_editor = "c:\\vim\\gvim.exe -c \"set lines=$vim_lines\""; } print STDOUT "Please select your default editor\n"; print STDOUT "(ie 'vi' or 'emacs'\n"; print STDOUT "NULL will select $def_editor.\n"; $rts = my_get_line(); chomp $rts; if ( $os eq "unix" ) { if ( $rts eq "" ) { $my_editor_unix_bin = $def_editor;} else { $my_editor_unix_bin = $rts ; } } else { if ( $rts eq "" ) { $my_editor_win32_bin = $def_editor;} else { $my_editor_win32_bin = $rts ; } } print STDOUT "Thank You. Your default editor is now "; print STDOUT "$my_editor_bin and will be saved in your"; print STDOUT "$user_ini_file file."; }# if ( $my_editor eq "" ) if ( $os eq "unix" ) { if ( $os_title eq "linux" ) { # Assume VIM # $my_editor = " " . $my_editor_unix_bin . " -c \"set noeb\" -c \"set vb t_vb=\" "; $my_editor = " " . $my_editor_unix_bin . " "; # Assume Vanilla Vi or Emacs @my_tool[$j++] = " Edit # $my_editor +LINE_NUM FILE_NAME"; } else { $my_editor = " " . $my_editor_unix_bin . " "; # Assume Vanilla Vi or Emacs @my_tool[$j++] = " Edit # $my_editor +LINE_NUM FILE_NAME"; } if ( $my_editor_unix_bin eq "vi" ) { @my_tool[$j++] = " Edit ReadOnly # $my_editor +LINE_NUM -R FILE_NAME"; $read_only_viewer = $j-1; } else { @my_tool[$j++] = " Edit ReadOnly # less +LINE_NUM FILE_NAME"; $read_only_viewer = $j-1; } # $macro_hash { ord( "e" ) } = $j-1; # Assign a Macro Key to Tool } else { $my_editor = " " . $my_editor_win32_bin . " "; @my_tool[$j++] = " Edit # $my_editor FILE_NAME"; @my_tool[$j++] = " Edit ReadOnly # $my_editor FILE_NAME"; $read_only_viewer = $j-1; } $macro=0; @tool_macro[$macro++] = $j-1 ; # PreLoad Macro with Editor @my_tool[$j++]=" cv_viewer (int) # cv_viewer "; @tool_macro[$macro++] = $j-1 ; # PreLoad Macro @my_tool[$j++]=" cv_rtl_viewer (int) # cv_rtl_viewer "; @tool_macro[$macro++] = $j-1 ; # PreLoad Macro @my_tool[$j++]=" Edit_fork_xterm+vi # xterm -T ChipVault-FILE_NAME -e vi FILE_NAME & "; @my_tool[$j++]=" Edit_Vi-Text # vi FILE_NAME"; @my_tool[$j++]=" Edit_Emacs-Text # emacs -nw FILE_NAME"; @my_tool[$j++]=" Edit_Emacs-GUI # emacs FILE_NAME"; @my_tool[$j++]=" Edit_DOS_Vim # c:\\vim\\gvim.exe FILE_NAME"; @my_tool[$j++]=" Edit_log_file # $my_editor $log_file "; @tool_macro[$macro++] = $j-1 ; # PreLoad Macro # Note: This Number of leading - dashes designates the hierarchy of # the folders. The 1st space after the last - dash is important! #################################################################### ## Note: A word about key bindings. A tool key binding is like # which binds the "a" key to the specified tool. If you want # to use a Tk button, but not have a key bindiny, declare # a non-key value for the hash table to lookup. My example # is <0x01> for check_out and <0x02> for check_in. These can # actually be any non-key values as long as they are unique #################################################################### $tee = " | tee $slog_file >> $log_file "; # Generate Standard Logs using tee @my_tool[$j++]="- RTL Tools ------------ # "; @my_tool[$j++]="-- Library Tools -------- # "; @my_tool[$j++]=" check_out (int) <0x01> # check_out"; @tool_macro[$macro++] = $j-1 ; @my_tool[$j++]=" check_in (int) <0x02> # check_in"; @tool_macro[$macro++] = $j-1 ; @my_tool[$j++]=" check_abandon (int) # check_abandon"; @my_tool[$j++]=" check_restore (int) # check_restore"; @my_tool[$j++]=" check_in_out (int) # check_in_out"; @my_tool[$j++]=" Diff_COd_file (results) # diff FILE_NAME " . $wip_header . "FILE_NAME $tee"; @my_tool[$j++]="-- Issue Tracking ------- # "; @my_tool[$j++]=" Issue_List_Add (int) # Issue_List_Add"; @my_tool[$j++]=" Issue_List_View (int) <0x04> # Issue_List_View"; @my_tool[$j++]=" Issue_List_Modify # $my_editor $issue_file "; @my_tool[$j++]="-- RTL Generation ------- # "; @my_tool[$j++]=" generate_VHDL (int) <0x05> # generate_VHDL"; @my_tool[$j++]=" generate_Verilog (int) <0x06> # generate_Verilog"; @my_tool[$j++]="-- Label_Release_Tools -- # "; @my_tool[$j++]=" label_release (int) # label_release"; @my_tool[$j++]=" TAR_it_up (hier_exp) # tar -rvf LABEL_RELEASE.tar FILE_LIST >> $log_file"; @my_tool[$j++]=" create_branch (int) # create_branch"; @my_tool[$j++]="-- CV_World Tools -- # "; @my_tool[$j++]=" encrypt_file (int) # encrypt_file"; # @my_tool[$j++]=" import_web_files (int) #"; @my_tool[$j++]="-- Port Viewing ---- # "; @my_tool[$j++]=" port_view_parent (int)

: View Ports into each Block. #H Inputs on the left an #H outputs and bidis on the right. #H : View Children Blocks. Same as