rpms/perl-Verilog-CodeGen/EL-5 import.log, NONE, 1.1 perl-Verilog-CodeGen-gui.patch, NONE, 1.1 perl-Verilog-CodeGen.spec, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2

Chitlesh GOORAH chitlesh at fedoraproject.org
Tue Mar 24 22:57:27 UTC 2009 

Author: chitlesh

Update of /cvs/pkgs/rpms/perl-Verilog-CodeGen/EL-5
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv26450/EL-5

Modified Files:
	.cvsignore sources 
Added Files:
	import.log perl-Verilog-CodeGen-gui.patch 
	perl-Verilog-CodeGen.spec 
Log Message:
new package


--- NEW FILE import.log ---
perl-Verilog-CodeGen-0_9_4-1_fc10:EL-5:perl-Verilog-CodeGen-0.9.4-1.fc10.src.rpm:1237935239

perl-Verilog-CodeGen-gui.patch:

--- NEW FILE perl-Verilog-CodeGen-gui.patch ---
--- scripts/gui.pl	2009-03-21 15:48:49.000000000 +0100
+++ gui.pl	2009-03-21 15:49:23.000000000 +0100
@@ -85,137 +85,135 @@
 
 #-------------------------------------------------------------------
 sub create_ui {
-    my $top = MainWindow->new('-background'=>'white','-title'=>'Perl/Verilog Coding Environment');
+    my $top = MainWindow->new('-title'=>'Perl/Verilog Coding Environment');
 
     # MENU STUFF
 
     # Menu bar
-    my $menu_bar_frame = $top->Frame('-background'=>'darkgrey','-width'=>80)->pack('-side' => 'top','-anchor'=>'w', '-fill' => 'x');
-my $menu_bar=$menu_bar_frame->Frame('-background'=>'grey','-relief'=>'flat','-borderwidth'=>1,'-width'=>80)->pack('-side' => 'left','-anchor'=>'w', '-fill' => 'x','padx'=>5,'pady'=>5);
-#==============================================================================
+    my $menu_bar_frame = $top->Frame('-width'=>80)->pack('-side' => 'top','-anchor'=>'w', '-fill' => 'x');
+    my $menu_bar       = $menu_bar_frame
+						->Frame( '-relief'=>'flat','-borderwidth'=>1,'-width'=>80 )
+						->pack( '-side' => 'left','-anchor'=>'w', '-fill' => 'x','-ipadx'=>5,'-ipady'=>5 );
+    #==============================================================================
 
-# General 
+# General
     # File menu
     my $menu_file = $menu_bar->Menubutton('-text' => 'File','-tearoff'=>0,
                                           '-relief' => 'flat',
-                                          '-borderwidth' => 1,'font'=>$normal,'foreground'=>'black','background'=>'grey'
+                                          '-borderwidth' => 1,
                                           )->grid('-row'=>0,'-column'=>0,'-sticky'=>'w','-pady'=>5,'-padx'=>5);
 
     $menu_file->command('-label' => 'XEmacs', '-state'=>'active',
 			'-command' => sub {$xemacs=1;system("xemacs blank &")},
-			'foreground'=>'black','background'=>'grey','font'=>$normal,
 );
     $menu_file->command('-label' => 'Schematics', '-state'=>'active',
 			'-command' => sub {chdir "Schematics/$design";system("tkgate &"); chdir '..'},
-			'foreground'=>'black','background'=>'grey','font'=>$normal,
 );
     $menu_file->command('-label' => 'Diagrams', '-state'=>'active',
 			'-command' => sub {chdir "Diagrams/$design";system("dia &"); chdir '..'},
-			'foreground'=>'black','background'=>'grey','font'=>$normal,
-);
-    $menu_file->command('-label' => 'gCVS', '-state'=>'active',
-			'-command' => sub {system("/usr/local/gcvs/bin/gcvs &")},
-			'foreground'=>'black','background'=>'grey','font'=>$normal,
 );
-    $menu_file->command('-label' => 'Exit', '-command' => sub {close $sock;if($pid ne 'WRONG'){exec("kill -9 $pid")}else{exit(0)}},'foreground'=>'black','background'=>'grey','font'=>$normal,);
+#    $menu_file->command('-label' => 'gCVS', '-state'=>'active',
+#			'-command' => sub {system("/usr/bin/gcvs &")},
+#);
+    $menu_file->command('-label' => 'Exit', '-command' => sub {close $sock;if($pid ne 'WRONG'){exec("kill -9 $pid")}else{exit(0)}});
 
 #==============================================================================
 
- $matrix[0][3] = $menu_bar->Label ('background' =>'grey')->grid('-row'=>0,'-column'=>3,'-sticky'=>'w',);
+ $matrix[0][3] = $menu_bar->Label ()->grid('-row'=>0,'-column'=>3,'-sticky'=>'w',);
 
 my $image=  $matrix[0][3]->Photo('-file'=>'GUI/rectangle_power_perl.gif');
  $matrix[0][3]->configure('-image'=>$image);
 
 
-my $projectframe=$menu_bar->Frame('-background'=>'grey','-relief'=>'flat','-borderwidth'=>1,'-width'=>80)->grid('-row' => 0, '-column' => 1,'-columnspan'=>2,'-sticky'=>'w');
-my $project = $projectframe->Label ('-text'=>'Design:', '-font' => $normal, '-background' =>'grey')->pack('-side' => 'left','-anchor'=>'w', '-fill' => 'x','padx'=>1,'pady'=>1);
-$matrix[0][1] = $projectframe->Entry ('-width'   =>  15, '-font' => $normal,'foreground' => 'black','background' =>'white', )->pack('-side' => 'left','-anchor'=>'w', '-fill' => 'x','padx'=>1,'pady'=>1);
-my $projectbutton = $projectframe->Button('-font' => $bold,'background' =>'grey','-text' => 'Set', '-command' => \&set_design)->pack('-side' => 'left','-anchor'=>'w', 'padx'=>1,'pady'=>1);
+my $projectframe=$menu_bar->Frame('-relief'=>'flat','-borderwidth'=>1,'-width'=>80)->grid('-row' => 0, '-column' => 1,'-columnspan'=>2,'-sticky'=>'w');
+my $project = $projectframe->Label ('-text'=>'Design:', '-font' => $normal)->pack('-side' => 'left','-anchor'=>'w', '-fill' => 'x','-ipadx'=>1,'-ipady'=>1);
+$matrix[0][1] = $projectframe->Entry ('-width'   =>  15, '-font' => $normal)->pack('-side' => 'left','-anchor'=>'w', '-fill' => 'x','-ipadx'=>1,'-ipady'=>1);
+my $projectbutton = $projectframe->Button('-font' => $bold,'-text' => 'Set', '-command' => \&set_design)->pack('-side' => 'left','-anchor'=>'w', '-ipadx'=>1,'-ipady'=>1);
 
 #==============================================================================
     # Device Object Code
- $matrix[1][0] = $menu_bar->Label ('-text'=>'Device Object Code', '-width'=>80, '-font' => $bold,'foreground' => 'black', '-background' =>'lightgrey',)->grid(
+ $matrix[1][0] = $menu_bar->Label ('-text'=>'Device Object Code', '-width'=>80, '-font' => $bold,)->grid(
 '-row' => 1, '-column' => 0,'-columnspan'=>4,'-sticky'=>'w');
 
- $matrix[2][3] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'foreground' => 'black','background' =>'grey','-text' => 'Edit', '-command' => \&show_obj)->grid(
+ $matrix[2][3] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'-text' => 'Edit', '-command' => \&show_obj)->grid(
 '-row' => 2,'-column'=> 3,'-sticky'=>'w');
- $matrix[2][2] = $menu_bar->Entry ('-width'   =>  20, '-font' => $normal,'foreground' => 'black','background' =>'white', )->grid(
+ $matrix[2][2] = $menu_bar->Entry ('-width'   =>  20, '-font' => $normal)->grid(
 '-row' => 2, '-column' => 2);
 
- $matrix[3][3] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'foreground' => 'black','background' =>'grey','-text' => 'Parse', '-command' => \&debug)->grid(
+ $matrix[3][3] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'-text' => 'Parse', '-command' => \&debug)->grid(
 '-row' => 3,'-column'=> 3,'-sticky'=>'w');
 
- $matrix[3][1] = $menu_bar->Label ('-text'=>'Show result', '-font' => $bold,'foreground' => 'black','background' =>'grey','-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w')->grid(
+ $matrix[3][1] = $menu_bar->Label ('-text'=>'Show result', '-font' => $bold,'-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w')->grid(
 '-row' => 3, '-column' =>1,'-sticky'=>'w');
  $matrix[3][0] = $menu_bar->Checkbutton ('-variable'   => \$showdefault,
- '-font' => $normal,'foreground' => 'black','background' =>'grey','-width'=>0)->grid(
+ '-font' => $normal,'-width'=>0)->grid(
 '-row' => 3, '-column' =>0,'-sticky'=>'e');
 #==============================================================================
     # Device Library Module
- $matrix[4][0] = $menu_bar->Label ('-text'=>'Device Library Module', '-width' => 80, '-font' => $bold,'foreground' => 'black','background' =>'lightgrey',)->grid(
+ $matrix[4][0] = $menu_bar->Label ('-text'=>'Device Library Module', '-width' => 80, '-font' => $bold,)->grid(
 '-row' => 4, '-column' => 0,'-columnspan'=>4,'-sticky'=>'w');
 
- $matrix[5][0] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'foreground' => 'black','background' =>'grey','-text' => 'Update', '-command' => \&update)->grid(
+ $matrix[5][0] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'-text' => 'Update', '-command' => \&update)->grid(
 '-row' => 5,'-column'=>3,'-sticky'=>'w');
 
- $matrix[5][1] = $menu_bar->Label ('-text'=>'Show module', '-font' => $bold,'foreground' => 'black','background' =>'grey','-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w')->grid(
+ $matrix[5][1] = $menu_bar->Label ('-text'=>'Show module', '-font' => $bold,'-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w')->grid(
 '-row' => 5, '-column' =>1,'-sticky'=>'w');
  $matrix[5][3] = $menu_bar->Checkbutton ('-variable'   => \$update,
- '-font' => $normal,'foreground' => 'black','background' =>'grey','-width'=>0)->grid(
+ '-font' => $normal,'-width'=>0)->grid(
 '-row' => 5, '-column' =>0,'-sticky'=>'e');
 
 #==============================================================================
     # Testbench Code
- $matrix[6][0] = $menu_bar->Label ('-text'=>'Testbench Code', '-width' => 80, '-font' => $bold,'foreground' => 'black','background' =>'lightgrey',)->grid(
+ $matrix[6][0] = $menu_bar->Label ('-text'=>'Testbench Code', '-width' => 80, '-font' => $bold,)->grid(
 '-row' => 6, '-column' => 0,'-columnspan'=>4);
 #------------------------------------------------------------------------------
- $matrix[7][3] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'foreground' => 'black','background' =>'grey','-text' => 'Edit', '-command' => \&edit_tb)->grid(
+ $matrix[7][3] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'-text' => 'Edit', '-command' => \&edit_tb)->grid(
 '-row' => 7 ,'-column'=>3,'-sticky'=>'w');
- $matrix[7][2] = $menu_bar->Entry ('-width'   =>  20, '-font' => $normal,'foreground' => 'black','background' =>'white',)->grid(
+ $matrix[7][2] = $menu_bar->Entry ('-width'   =>  20, '-font' => $normal,)->grid(
 '-row' => 7, '-column' =>2);
- $matrix[7][1] = $menu_bar->Label ('-text'=>'Overwrite', '-font' => $bold,'foreground' => 'black','background' =>'grey', '-width'=> 20, '-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
+ $matrix[7][1] = $menu_bar->Label ('-text'=>'Overwrite', '-font' => $bold, '-width'=> 20, '-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
 '-row' => 7, '-column' =>1,'-sticky'=>'w');
- $matrix[7][0] = $menu_bar->Checkbutton ('-variable'   => \$overwrite, '-font' => $normal,'foreground' => 'black','background' =>'grey','-width' => 0)->grid(
+ $matrix[7][0] = $menu_bar->Checkbutton ('-variable'   => \$overwrite, '-font' => $normal,'-width' => 0)->grid(
 '-row' => 7, '-column' =>0,'-sticky'=>'e');
 #------------------------------------------------------------------------------
- $matrix[8][3] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'foreground' => 'black','background' =>'grey','-text' => 'Parse', '-command' => \&parse_tb )->grid(
+ $matrix[8][3] = $menu_bar->Button('-width'=> 10, '-font' => $bold,'-text' => 'Parse', '-command' => \&parse_tb )->grid(
 '-row' => 8 ,'-column'=>3,'-sticky'=>'w');
 
- $matrix[8][1] = $menu_bar->Label ('-text'=>'Show result', '-font' => $bold,'foreground' => 'black','background' =>'grey','-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
+ $matrix[8][1] = $menu_bar->Label ('-text'=>'Show result', '-font' => $bold,'-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
 '-row' => 8, '-column' =>1,'-sticky'=>'w');
- $matrix[8][0] = $menu_bar->Checkbutton ('-variable'   => \$showtb, '-font' => $normal,'foreground' => 'black','background' =>'grey','-width'=>0,)->grid(
+ $matrix[8][0] = $menu_bar->Checkbutton ('-variable'   => \$showtb, '-font' => $normal,'-width'=>0,)->grid(
 '-row' => 8, '-column' =>0,'-sticky'=>'e');
 
- $matrix[9][1] = $menu_bar->Label ('-text'=>'Inspect Code', '-font' => $bold,'foreground' => 'black','background' =>'grey','-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
+ $matrix[9][1] = $menu_bar->Label ('-text'=>'Inspect Code', '-font' => $bold,'-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
 '-row' => 9, '-column' =>1,'-sticky'=>'w');
- $matrix[9][0] = $menu_bar->Checkbutton ('-variable'   => \$inspectcode, '-font' => $normal,'foreground' => 'black','background' =>'grey','-width'=>0,)->grid(
+ $matrix[9][0] = $menu_bar->Checkbutton ('-variable'   => \$inspectcode, '-font' => $normal,'-width'=>0,)->grid(
 '-row' => 9, '-column' =>0,'-sticky'=>'e');
 
- $matrix[10][1] = $menu_bar->Label ('-text'=>'Plot', '-font' => $bold,'foreground' => 'black','background' =>'grey','-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
+ $matrix[10][1] = $menu_bar->Label ('-text'=>'Plot', '-font' => $bold,'-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
 '-row' => 11, '-column' =>1,'-sticky'=>'w');
- $matrix[10][0] = $menu_bar->Checkbutton ('-variable'   => \$plot, '-font' => $normal,'foreground' => 'black','background' =>'grey','-width'=>0,)->grid(
+ $matrix[10][0] = $menu_bar->Checkbutton ('-variable'   => \$plot, '-font' => $normal,'-width'=>0,)->grid(
 '-row' => 11, '-column' =>0,'-sticky'=>'e');
 
- $matrix[11][1] = $menu_bar->Label ('-text'=>'Run','-font' => $bold,'foreground' => 'black','background' =>'grey','-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
+ $matrix[11][1] = $menu_bar->Label ('-text'=>'Run','-font' => $bold,'-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
 '-row' => 10, '-column' =>1,'-sticky'=>'w');
- $matrix[11][0] = $menu_bar->Checkbutton ('-variable'   => \$run,'-font' => $normal,'foreground' => 'black','background' =>'grey','-width'=>0,)->grid(
+ $matrix[11][0] = $menu_bar->Checkbutton ('-variable'   => \$run,'-font' => $normal,'-width'=>0,)->grid(
 '-row' => 10, '-column' =>0,'-sticky'=>'e');
 
 #=no_warnings
-# $matrix[10][1] = $menu_bar->Label ('-text'=>'No warnings', '-font' => $bold,'foreground' => 'black','background' =>'grey','-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
+# $matrix[10][1] = $menu_bar->Label ('-text'=>'No warnings', '-font' => $bold,'-width'=>20,'-relief'=>'flat','-borderwidth'=>1,'-anchor'=>'w',)->grid(
 #'-row' => 10, '-column' =>1,'-sticky'=>'w');
-# $matrix[10][0] = $menu_bar->Checkbutton ('-variable'   => \$nowarn, '-font' => $normal,'foreground' => 'black','background' =>'grey','-width'=>0,)->grid(
+# $matrix[10][0] = $menu_bar->Checkbutton ('-variable'   => \$nowarn, '-font' => $normal,'-width'=>0,)->grid(
 #'-row' => 10, '-column' =>0,'-sticky'=>'e');
 #=cut
 #------------------------------------------------------------------------------
- $matrix[12][0] = $menu_bar->Label ('-text'=>'Output log', '-width' => 80, '-font' => $bold,'foreground' => 'black','background' =>'lightgrey',)->grid(
+ $matrix[12][0] = $menu_bar->Label ('-text'=>'Output log', '-width' => 80, '-font' => $bold,)->grid(
 '-row' => 12, '-column' => 0,'-columnspan'=>4);
 #==============================================================================
-# Console 
+# Console
 my $text_frame = $top->Frame('-background'=>'black', '-width'=>80)->pack('-side' => 'top', '-fill' => 'x');
 #
  $text=$text_frame->Text('-foreground' => 'grey','-background'=>'black','-height'=>25, '-width'=>80)->pack('-side' => 'left', '-fill' => 'y');
- $text->tagConfigure('console', '-font' => $console,'foreground' => 'grey','background' =>'black',); 
+ $text->tagConfigure('console', '-font' => $console,'foreground' => 'grey','background' =>'black',);
 my $scroll=$text_frame->Scrollbar('-background'=>'grey','-width'=>10,'-command' => ['yview', $text])->pack('-side' => 'right', '-fill' => 'y');
 # Inform listbox about the scrollbar
 $text->configure('-yscrollcommand' => ['set', $scroll]);


--- NEW FILE perl-Verilog-CodeGen.spec ---
Name:           perl-Verilog-CodeGen
Version:        0.9.4
Release:        1%{?dist}
Summary:        Verilog code generator
License:        GPL+ or Artistic
Group:          Development/Libraries
URL:            http://search.cpan.org/dist/Verilog-CodeGen/
Source0:        http://www.cpan.org/authors/id/W/WV/WVDB/Verilog-CodeGen-%{version}.tar.gz
BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch:      noarch

Patch0:         perl-Verilog-CodeGen-gui.patch

BuildRequires:  perl(ExtUtils::MakeMaker)
Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))

Requires:       tkgate
Requires:       xemacs
Requires:       dia
Requires:       gtkwave
Requires:       iverilog


%description
Provides an object-oriented environment to generate Verilog code for
modules and testbenches. The Verilog::CodeGen module provides two
functions, one to create a code template and another to create a Perl
module which contains the device library. This module ,
DeviceLibs::YourDesign, provides the class methods and contains the objects
for every Verilog module; the objects are created based on a fixed
template. The purpose of this module is to allow the generation of
customized Verilog modules. A Verilog module can have a large number of
parameters like input and output bus width, buffer depth, signal delay etc.
The code generator allows to create an object that will generate the
Verilog module code for arbitraty values of the parameters.

%prep
%setup -q -n Verilog-CodeGen-%{version}

sed -i "s|/usr/bin/galeon --geometry=400x600+10+10|firefox|" scripts/GUI/inspect_code.pl

%patch0 -p0

%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
make %{?_smp_mflags}

%install
rm -rf $RPM_BUILD_ROOT

make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT

find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;

%{_fixperms} $RPM_BUILD_ROOT/*

%check
make test

%clean
rm -rf $RPM_BUILD_ROOT

%files
%defattr(-,root,root,-)
%doc Changes README
%doc scripts
%dir %{perl_vendorlib}/Verilog/
%dir %{perl_vendorlib}/Verilog/CodeGen
%{perl_vendorlib}/Verilog/CodeGen.pm
%{perl_vendorlib}/Verilog/CodeGen/Gui.pm
%{_mandir}/man3/*

%changelog
* Sun Dec 14 2008 Chitlesh GOORAH <chitlesh [AT] fedoraproject D0T org> 0.9.4-1
- Specfile autogenerated by cpanspec 1.77.


Index: .cvsignore
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Verilog-CodeGen/EL-5/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- .cvsignore	7 Mar 2009 17:19:49 -0000	1.1
+++ .cvsignore	24 Mar 2009 22:56:56 -0000	1.2
@@ -0,0 +1 @@
+Verilog-CodeGen-0.9.4.tar.gz


Index: sources
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Verilog-CodeGen/EL-5/sources,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- sources	7 Mar 2009 17:19:49 -0000	1.1
+++ sources	24 Mar 2009 22:56:57 -0000	1.2
@@ -0,0 +1 @@
+6f036f2906bd0993b02792cacb09f309  Verilog-CodeGen-0.9.4.tar.gz

More information about the fedora-extras-commits mailing list