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

Subversion Repositories s6soc

[/] [s6soc/] [trunk/] [mkdatev.pl] - Blame information for rev 47

Go to most recent revision | Details | Compare with Previous | View Log


#!/usr/bin/perl
 
$now = time;
($sc,$mn,$nhr,$ndy,$nmo,$nyr,$nwday,$nyday,$nisdst) = localtime($now);
$nyr = $nyr+1900; $nmo = $nmo+1;
 
print "`define DATESTAMP 32\'h";
printf("%04d%02d%02d\n", $nyr, $nmo, $ndy);
 

Line No.	Rev	Author	Line
1	2	dgisselq	`#!/usr/bin/perl`
2
3			`$now = time;`
4			`($sc,$mn,$nhr,$ndy,$nmo,$nyr,$nwday,$nyday,$nisdst) = localtime($now);`
5			`$nyr = $nyr+1900; $nmo = $nmo+1;`
6
7			print "`define DATESTAMP 32\'h";
8			`printf("%04d%02d%02d\n", $nyr, $nmo, $ndy);`
9

Browse

Tools

Subversion Repositories s6soc

[/] [s6soc/] [trunk/] [mkdatev.pl] - Blame information for rev 47