File: test047.k

package info (click to toggle)
kaya 0.4.2-4
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 4,448 kB
  • ctags: 1,694
  • sloc: cpp: 9,536; haskell: 7,461; sh: 3,013; yacc: 910; makefile: 816; perl: 90
file content (24 lines) | stat: -rw-r--r-- 454 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
program test047;

import Reflect;
import Pickle;

Void main() {

    stuff = [4,5,6];
    morestuff = ("Foo","Bar");

    val = cons((stuff,morestuff),nil);
    val.tail = val;

    reflected = reflect(val);

    putStrLn(pickle(reflected));
    putStrLn(pickle(val));

    List<([Int], (String,String))> val2 = reify(reflected);
    List<([Int], (String,String))> val3 = unpickle(pickle(val));

    putStrLn(pickle(val2));
    putStrLn(pickle(val3));
}