1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
#!/bin/perl -w
#
# This file is part of adms - http://sourceforge.net/projects/mot-adms.
#
# adms is a code generator for the Verilog-AMS language.
#
# Copyright (C) 2002-2012 Laurent Lemaitre <r29173@users.sourceforge.net>
# 2013-2014 Guilherme Brondani Torri <guitorri@gmail.com>
# 2013-12-10 Richard Crozier <richard.crozier@example.com>
#
# 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 3 of the License, or
# (at your option) any later version.
#
# 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, see <http://www.gnu.org/licenses/>.
#
#
# mktext.pl
#
# perl helper script for adms build system
#
# takes two argments, a file name and a path intended to
# be the top level source directory path for adms.
#
# It creates a small C file, which copies the input file into a C
# character array. The name of the C file is generated from the
# input file name e.g.
#
# > echo "Some text" > infile.txt
#
# > mktext.pl infile.txt /my/top/level/source/directory
# svn version: Unversioned directory
# created: infile.txt.c
#
# > cat infile.txt.c
# /* File automatically created by mkctext.pl*/
#
# const char * infile_txt = ""
# "Some text\n"
# ;
#
# if the directory containing the file is under subversion
# version control, the text SVN_VERSION in the file is replaced
# with the version number reported by svnversion
#
my $filename=shift;
my $top_srcdir=shift;
$top_srcdir=".." if not defined $top_srcdir;
#git
# cygpath is a Cygwin utility to convert Unix and Windows format paths
my$cygpath_top_srcdir=$top_srcdir;
if($cygpath_top_srcdir=`cygpath -ad $top_srcdir 2>/dev/null`)
{
chomp $cygpath_top_srcdir;
$cygpath_top_srcdir="\"$cygpath_top_srcdir\"";
}
my$GIT;
$GIT=`git log --pretty=format:'%h' -n 1u` or $GIT="unknown";
#print "git version: $GIT\n";
sub text2ccode
{
my$fileFullName = shift;
$fileFullName =~ m/\/?([^\/]+)$/;
my$fileName = $1;
my$OutputCfile = "$fileName.c";
my$cName = $fileName;
$cName =~ s/\./_/g;
open IF, "<${fileFullName}";
open OCF, ">${OutputCfile}";
printf(OCF "/* File automatically created by " . __FILE__ . "*/\n");
printf(OCF "\n");
printf(OCF "const char * %s = \"\"\n",${cName});
while(<IF>)
{
my $line=$_;
$line=~s/\r?$//;
$line=~s/\n$//;
$line=~s/\\/\\\\/g;
$line=~s/"/\\"/g;
$line=~s/\@GIT_VERSION=[^@]*\@/\@GIT_VERSION=$GIT\@/g;
printf(OCF "\"%s\\n\"\n", $line);
}
printf(OCF ";\n");
close IF;
close OCF;
print "created: ${OutputCfile}\n";
}
&text2ccode($filename);
|
