Mercurial > repos > tabletprog

annotate modules/option.tp @ 327:860075fdc2d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add the beginning of a vector module
author Michael Pavone <pavone@retrodev.com>
date Tue, 24 Mar 2015 23:13:13 -0700
parents 38ca63e0a62e
children 1458c069c715
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 }