Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Bernd Paysan
bigforth
Commits
325db6d2
Commit
325db6d2
authored
Jan 18, 2013
by
bp
Browse files
Prepare for png14
git-svn-id:
https://forth-ev.de/repos/bigforth@2524
3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent
aaa26ed6
Changes
1
Hide whitespace changes
Inline
Side-by-side
png.fs
View file @
325db6d2
...
...
@@ -44,6 +44,7 @@ library: libpng12.so.0
[
ELSE
]
s
" libpng12.so.0"
getlib
0
<>
Value
newpng
true
Value
png3
false
Value
png14
newpng
[
IF
]
library
libpng
libpng12
.
so
.
0
...
...
@@ -58,10 +59,16 @@ library: libpng12.so.0
:
init
-
png
-
lib
(
--
)
&
libpng
cell
+
@
?
EXIT
true
to
png3
s
" libpng12.so.0"
getlib
0
<>
to
newpng
newpng
IF
s
" libpng12.so.0"
ELSE
s
" libpng.so.3"
getlib
0
<>
to
png3
png3
IF
s
" libpng.so.3"
ELSE
s
" libpng.so.2"
THEN
THEN
\
true
to
png3
s
" libpng14.so.14"
getlib
0
<>
to
png14
\
png14
IF
\
s
" libpng14.so.14"
true
to
newpng
\
ELSE
true
to
png3
s
" libpng12.so.0"
getlib
0
<>
to
newpng
newpng
IF
s
" libpng12.so.0"
ELSE
s
" libpng.so.3"
getlib
0
<>
to
png3
png3
IF
s
" libpng.so.3"
ELSE
s
" libpng.so.2"
THEN
THEN
\
THEN
2
dup
getlib
0
=
IF
display
.
" Failed to load PNGlib "
type
cr
bye
THEN
&
libpng
4
cells
+
place
;
[
THEN
]
[
THEN
]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment