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
/
demo_rawdata.pl
package
UNIVERSAL
;
use
Attribute
::
Handlers
;
sub
Cooked
:
ATTR
(
SCALAR
) {
print pop
,
"
\n
"
}
sub
PostRaw
:
ATTR
(
SCALAR
,
RAWDATA
) {
print pop
,
"
\n
"
}
sub
PreRaw
:
ATTR
(
SCALAR
,
RAWDATA
) {
print pop
,
"
\n
"
}
package
main
;
my
$x
:
Cooked
(
1
.
.5
);
my
$y
:
PreRaw
(
1
.
.5
);
my
$z
:
PostRaw
(
1
.
.5
);