1: #line 2387 "./lpsrc/flx_regress.pak"
2:
3:
4:
5: proc p[T with Show[T]] (t:T) {
6: var x = t;
7: print $ "str: " + (str x); endl;
8: print $ "repr: " + (repr x); endl;
9: }
10:
11: p true;
12: p 1t;
13: p 1ut;
14: p 1s;
15: p 1us;
16: p 1;
17: p 1u;
18: p 1l;
19: p 1ul;
20: p 1v;
21: p 1uv;
22:
23:
24: val fzero = 0.0f;
25: val dzero = 0.0;
26: val ldzero = 0.0l;
27:
28: p 1.0f;
29: p 1.5f;
30: p (0.0f/fzero);
31: p (1.0f/fzero);
32: p (-1.0f/fzero);
33:
34: p 1.0;
35: p (0.0/dzero);
36: p (1.0/dzero);
37: p (-1.0/dzero);
38:
39: p 1.0l;
40: p (0.0l/ldzero);
41: p (1.0l/ldzero);
42: p (-1.0l/ldzero);
43:
44: p $ char 'a';
45: p $ wchar 97l;
46: p $ uchar $ 97u;
47:
48: p $ C_hack::cast[byte] 1t;
49: p $ C_hack::cast[address] 16ul;
50: p $ C_hack::cast[caddress] 16ul;
51: p $ C_hack::cast[vaddress] 16ul;
52: p $ C_hack::cast[cvaddress] 16ul;
53: p $ C_hack::cast[offset] 16ul;
54:
55: p "Domo Arigato,\nMr Roboto!";
56:
57:
58: p $ List::list(1,2,3);
59: p $ List::list("a","b","c");
60:
61:
62: /*
63: p $ (1,2,3,4);
64: p $ (1,2,3,4,5);
65: p $ (1,2,3,4,5,6);
66: p $ (1,"b");
67: p $ (1,"b",1.0);
68: */
1: str: true
2: repr: true
3: str: 1
4: repr: 1t
5: str: 1
6: repr: 1ut
7: str: 1
8: repr: 1s
9: str: 1
10: repr: 1us
11: str: 1
12: repr: 1
13: str: 1
14: repr: 1u
15: str: 1
16: repr: 1l
17: str: 1
18: repr: 1ul
19: str: 1
20: repr: 1v
21: str: 1
22: repr: 1uv
23: str: 1
24: repr: 1
25: str: 1.5
26: repr: 1.5
27: str: nan
28: repr: nan
29: str: inf
30: repr: inf
31: str: -inf
32: repr: -inf
33: str: 1
34: repr: 1
35: str: nan
36: repr: nan
37: str: inf
38: repr: inf
39: str: -inf
40: repr: -inf
41: str: 1
42: repr: 1
43: str: nan
44: repr: nan
45: str: inf
46: repr: inf
47: str: -inf
48: repr: -inf
49: str: a
50: repr: a
51: str: 97
52: repr: 97
53: str: 97
54: repr: 97
55: str: 1
56: repr: 1
57: str: 16
58: repr: 16
59: str: 16
60: repr: 16
61: str: 16
62: repr: 16
63: str: 16
64: repr: 16
65: str: 16
66: repr: 16
67: str: Domo Arigato,
68: Mr Roboto!
69: repr: 'Domo Arigato,\nMr Roboto!'
70: str: [1, 2, 3]
71: repr: [1, 2, 3]
72: str: ['a', 'b', 'c']
73: repr: ['a', 'b', 'c']