BlueGrey
calm
Elegant
Català-Valencià – Catalan
中文 – Chinese (Simplified)
中文 – Chinese (Traditional)
Česky – Czech
Dansk – Danish
Nederlands – Dutch
English – English
Suomi – Finnish
Français – French
Deutsch – German
עברית – Hebrew
हिंदी – Hindi
Magyar – Hungarian
Bahasa Indonesia – Indonesian
Italiano – Italian
日本語 – Japanese
한국어 – Korean
Македонски – Macedonian
मराठी – Marathi
Norsk – Norwegian
Polski – Polish
Português – Portuguese
Português – Portuguese (Brazil)
Русский – Russian
Slovenčina – Slovak
Slovenščina – Slovenian
Español – Spanish
Svenska – Swedish
Türkçe – Turkish
Українська – Ukrainian
Oëzbekcha – Uzbek
Subversion Repositories
Kolibri OS
(root)
/
programs
/
network
/
netsurf
/
libcss
/
test
/
data
/
parse
/
makefixed.pl
– Rev 3584
Rev
Go to most recent revision
|
Blame
|
Last modification
|
View Log
|
Download
|
RSS feed
#!/usr/bin/perl
use
warnings
;
use
strict
;
die
"Usage: makefixed.pl <value>
\n
"
if
(
@
ARGV
!=
1
)
;
my
$val
=
shift
@
ARGV
;
$val
*=
(
1
<<
10
)
;
# Round away from zero
if
(
$val
<
0
)
{
$val
-=
0.5
;
}
else
{
$val
+=
0.5
;
}
# Truncates back towards zero
printf
(
"0x%.8x
\n
"
,
$val
)
;