Mercurial > repos > tabletprog

comparison samples/oper_impl.tp @ 122:9820ecd4eed4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add support for implementing operators on user defined objects
author Mike Pavone <pavone@retrodev.com>
date Sat, 03 Aug 2013 00:13:09 -0700
parents
children
comparison
equal deleted inserted replaced
121:1a4446f573d3 122:9820ecd4eed4
1 #{
2 pair <- :a b {
3 #{
4 first <- a
5 second <- b
6 + <- :other {
7 pair: first + (other first) second + (other second)
8 }
9 }
10 }
11
12 main <- {
13 foo <- pair: 5 7
14 bar <- pair: 9 23
15 baz <- foo + bar
16 print: ((baz first) string) . "\n"
17 print: ((baz second) string) . "\n"
18 0
19 }
20 }