Mercurial > repos > tabletprog
annotate modules/option.tp @ 318:4c669942c30d
Add bindings for SDL_CreateTexture, SDL_LockTexture, SDL_SetBlendMode and SDL_GetBlendMode in SDL module
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 19 Mar 2015 22:40:43 -0700 |
parents | 38ca63e0a62e |
children | 1458c069c715 |
rev | line source |
---|---|
275
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 { |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 _none <- #{ |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 value:none <- :ifval :ifnone { |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 ifnone: |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 } |
290
38ca63e0a62e
Added value? and none? methods to option value and option none
Michael Pavone <pavone@retrodev.com>
parents:
275
diff
changeset
|
6 value? <- { false } |
38ca63e0a62e
Added value? and none? methods to option value and option none
Michael Pavone <pavone@retrodev.com>
parents:
275
diff
changeset
|
7 none? <- { true } |
275
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 } |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 #{ |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 value <- :v { |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 #{ |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
12 value:none <- :ifval :ifnone { |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
13 ifval: v |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 } |
290
38ca63e0a62e
Added value? and none? methods to option value and option none
Michael Pavone <pavone@retrodev.com>
parents:
275
diff
changeset
|
15 value? <- { true } |
38ca63e0a62e
Added value? and none? methods to option value and option none
Michael Pavone <pavone@retrodev.com>
parents:
275
diff
changeset
|
16 none? <- { false } |
275
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
17 } |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
18 } |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
19 none <- { _none } |
d83647152485
Added option module which was omitted in commit of SDL work
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
20 } |
290
38ca63e0a62e
Added value? and none? methods to option value and option none
Michael Pavone <pavone@retrodev.com>
parents:
275
diff
changeset
|
21 } |