Mercurial > repos > tabletprog
comparison samples/oper_impl.tp @ 122:9820ecd4eed4
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 } |