URL https://opencores.org/ocsvn/socgen/socgen/trunk

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [synthesys/] [targets/] [bin/] [repeater] - Blame information for rev 119

Details | Compare with Previous | View Log

Line No.	Rev	Author	Line
1	119	jt_eaton	eval 'exec `which perl` -S $0 ${1+"$@"}'
2			`if 0;`
3
4			`#/**********************************************************************/`
5			`#/* */`
6			`#/* ------- */`
7			`#/* / SOC \ */`
8			`#/* / GEN \ */`
9			`#/* / TOOL \ */`
10			`#/* ============== */`
11			`#/* \| \| */`
12			`#/* \|____________\| */`
13			`#/* */`
14			`#/* */`
15			`#/* */`
16			`#/* */`
17			`#/* Author(s): */`
18			`#/* - John Eaton, jt_eaton@opencores.org */`
19			`#/* */`
20			`#/**********************************************************************/`
21			`#/* */`
22			`#/* Copyright (C) <2010> */`
23			`#/* */`
24			`#/* This source file may be used and distributed without */`
25			`#/* restriction provided that this copyright statement is not */`
26			`#/* removed from the file and that any derivative work contains */`
27			`#/* the original copyright notice and the associated disclaimer. */`
28			`#/* */`
29			`#/* This source file is free software; you can redistribute it */`
30			`#/* and/or modify it under the terms of the GNU Lesser General */`
31			`#/* Public License as published by the Free Software Foundation; */`
32			`#/* either version 2.1 of the License, or (at your option) any */`
33			`#/* later version. */`
34			`#/* */`
35			`#/* This source is distributed in the hope that it will be */`
36			`#/* useful, but WITHOUT ANY WARRANTY; without even the implied */`
37			`#/* warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR */`
38			`#/* PURPOSE. See the GNU Lesser General Public License for more */`
39			`#/* details. */`
40			`#/* */`
41			`#/* You should have received a copy of the GNU Lesser General */`
42			`#/* Public License along with this source; if not, download it */`
43			`#/* from http://www.opencores.org/lgpl.shtml */`
44			`#/* */`
45			`#/**********************************************************************/`
46
47			`# ToDO: add handling unaligned words`
48
49
50			`############################################################################`
51			`# General PERL config`
52			`############################################################################`
53			`use Getopt::Long;`
54			`use English;`
55			`use File::Basename;`
56
57			`$OUTPUT_AUTOFLUSH = 1; # set autoflush of stdout to TRUE.`
58
59
60			`############################################################################`
61			`### Process the options`
62			`############################################################################`
63
64			`Getopt::Long::config("require_order", "prefix=-");`
65			`GetOptions("h"`
66			`) \|\| die "(use '$program_name -h' for help)";`
67
68
69			`##############################################################################`
70			`## Help option`
71			`##############################################################################`
72			`if ( ($opt_h eq "1") )`
73			`{ print "\n type test filename ( no extension)";`
74			`print "\n";`
75			`exit 1;`
76			`}`
77
78
79			`##############################################################################`
80			`##`
81			`##############################################################################`
82
83			`use Cwd;`
84			`use XML::LibXML;`
85
86			`$home = cwd();`
87
88
89
90
91
92			`#############################################################################`
93			`##`
94			`##`
95			`#############################################################################`
96
97			`my $prefix = $ARGV[0];`
98			`my $component = $ARGV[1];`
99			`my $variant = $ARGV[2];`
100			`print "Repeater\n" ;`
101
102			`my $index =0;`
103
104			`while($ARGV[$index])`
105			`{`
106			`my $arg = $ARGV[$index];`
107			`$index = $index +1;`
108			`print " $index -- $arg \n" ;`
109
110			`}`
111
112
113
114			`1`
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133

Browse

Tools

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [synthesys/] [targets/] [bin/] [repeater] - Blame information for rev 119