steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gpu.shaders: Rename error words.

db4
Doug Coleman 2013-03-24 01:33:45 -07:00
parent 5224fba820
commit d4a0f94aa7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/gpu/shaders/shaders.factor
View File

@ -454,11 +454,11 @@ M: vertex-array-collection vertex-array-buffers
TUPLE: compile-shader-error shader log ; TUPLE: compile-shader-error shader log ;
TUPLE: link-program-error program log ; TUPLE: link-program-error program log ;
: compile-shader-error ( shader instance -- * ) : throw-compile-shader-error ( shader instance -- * )
[ dup ] dip [ gl-shader-info-log ] [ delete-gl-shader ] bi replace-log-line-numbers [ dup ] dip [ gl-shader-info-log ] [ delete-gl-shader ] bi replace-log-line-numbers
\ compile-shader-error boa throw ; \ compile-shader-error boa throw ;
: link-program-error ( program instance -- * ) : throw-link-program-error ( program instance -- * )
[ dup ] dip [ gl-program-info-log ] [ delete-gl-program ] bi replace-log-line-numbers [ dup ] dip [ gl-program-info-log ] [ delete-gl-program ] bi replace-log-line-numbers
\ link-program-error boa throw ; \ link-program-error boa throw ;
@ -473,7 +473,7 @@ DEFER: <shader-instance>
[ ] [ source>> ] [ kind>> gl-shader-kind ] tri <gl-shader> [ ] [ source>> ] [ kind>> gl-shader-kind ] tri <gl-shader>
dup gl-shader-ok? dup gl-shader-ok?
[ swap world get \ shader-instance boa window-resource ] [ swap world get \ shader-instance boa window-resource ]
[ compile-shader-error ] if ; [ throw-compile-shader-error ] if ;
: (link-program) ( program shader-instances -- program-instance ) : (link-program) ( program shader-instances -- program-instance )
'[ _ [ handle>> ] map ] '[ _ [ handle>> ] map ]
@ -488,7 +488,7 @@ DEFER: <shader-instance>
dup gl-program-ok? [ dup gl-program-ok? [
[ swap world get \ program-instance boa |dispose dup verify-feedback-format ] [ swap world get \ program-instance boa |dispose dup verify-feedback-format ]
with-destructors window-resource with-destructors window-resource
] [ link-program-error ] if ; ] [ throw-link-program-error ] if ;
: link-program ( program -- program-instance ) : link-program ( program -- program-instance )
dup shaders>> [ <shader-instance> ] map (link-program) ; dup shaders>> [ <shader-instance> ] map (link-program) ;