projects
/
OpenSPARC-T2-DV
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV]
/
tools
/
perl-5.8.0
/
lib
/
5.8.0
/
Attribute
/
Handlers
/
demo
/
Descriptions.pm
package
Descriptions
;
$VERSION
=
'1.00'
;
use
Attribute
::
Handlers
;
my
%name
;
sub
name
{
return
$name
{
$_
[
2
]}||*{
$_
[
1
]}{
NAME
};
}
sub
UNIVERSAL
::
Name
:
ATTR
{
$name
{
$_
[
2
]} =
$_
[
4
];
}
sub
UNIVERSAL
::
Purpose
:
ATTR
{
print
STDERR
"Purpose of "
, &
name
,
" is
$_
[4]
\n
"
;
}
sub
UNIVERSAL
::
Unit
:
ATTR
{
print
STDERR
&
name
,
" measured in
$_
[4]
\n
"
;
}
1
;