tests/objects/tobjconstr.nim


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weight: bold; background-color: #fff0f0 } /* Comment.Special */
.highlight .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
.highlight .ge { font-style: italic } /* Generic.Emph */
.highlight .ges { font-weight: bold; font-style: italic } /* Generic.EmphStrong */
.highlight .gr { color: #aa0000 } /* Generic.Error */
.highlight .gh { color: #333333 } /* Generic.Heading */
.highlight .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
.highlight .go { color: #888888 } /* Generic.Output */
.highlight .gp { color: #555555 } /* Generic.Prompt */
.highlight .gs { font-weight: bold } /* Generic.Strong */
.highlight .gu { color: #666666 } /* Generic.Subheading */
.highlight .gt { color: #aa0000 } /* Generic.Traceback */
.highlight .kc { color: #008800; font-weight: bold } /* Keyword.Constant */
.highlight .kd { color: #008800; font-weight: bold } /* Keyword.Declaration */
.highlight .kn { color: #008800; font-weight: bold } /* Keyword.Namespace */
.highlight .kp { color: #008800 } /* Keyword.Pseudo */
.highlight .kr { color: #008800; font-weight: bold } /* Keyword.Reserved */
.highlight .kt { color: #888888; font-weight: bold } /* Keyword.Type */
.highlight .m { color: #0000DD; font-weight: bold } /* Literal.Number */
.highlight .s { color: #dd2200; background-color: #fff0f0 } /* Literal.String */
.highlight .na { color: #336699 } /* Name.Attribute */
.highlight .nb { color: #003388 } /* Name.Builtin */
.highlight .nc { color: #bb0066; font-weight: bold } /* Name.Class */
.highlight .no { color: #003366; font-weight: bold } /* Name.Constant */
.highlight .nd { color: #555555 } /* Name.Decorator */
.highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */
.highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */
.highlight .nl { color: #336699; font-style: italic } /* Name.Label */
.highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */
.highlight .py { color: #336699; font-weight: bold } /* Name.Property */
.highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */
.highlight .nv { color: #336699 } /* Name.Variable */
.highlight .ow { color: #008800 } /* Operator.Word */
.highlight .w { color: #bbbbbb } /* Text.Whitespace */
.highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */
.highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */
.highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */
.highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */
.highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */
.highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */
.highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */
.highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */
.highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */
.highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */
.highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */
.highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */
.highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */
.highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */
.highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */
.highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */
.highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */
.highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */
.highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */
.highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */
.highlight .vc { color: #336699 } /* Name.Variable.Class */
.highlight .vg { color: #dd7700 } /* Name.Variable.Global */
.highlight .vi { color: #3333bb } /* Name.Variable.Instance */
.highlight .vm { color: #336699 } /* Name.Variable.Magic */
.highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */# From: Ilya Zakharevich <ilya@math.ohio-state.edu>
#
# Colors: black, red, green, brown, blue, magenta, cyan,
# lightgray, gray, brightred, brightgreen, yellow, brightblue,
# brightmagenta, brightcyan, white.
#
# On some terminals combination of background and foreground of different
# brightness is not supported.
#
# Normal type styles correspond to HTML tags.
#
# default should be the *last* line
normal:  	normal:  		brightcyan:	blue
default:	normal:			brightcyan:	blue

# match "link":
input:		normal:			green
textarea:	normal:			white:		cyan

input.type.submit:normal:		blue:		black
# type-less input is the same as type=text (similar to textarea)
input.type.:	normal:			white:		cyan
input.type.text:normal:			white:		cyan
input.type.password:normal:		white:		cyan
input.type.file:normal:			brightred:	cyan

# Shows gray on black?!
edit.current:normal:			yellow:		lightgray
#edit.current:normal:yellow:white
edit.active:normal:			black:		white
edit.active.marked:normal:		white:		black
edit.prompt:normal:			white:		gray
edit.prompt.marked:normal:		black:		white
edit.active.arrow:normal:		red:		white
edit.prompt.arrow:normal:		red:		gray
edit.active.pad:normal:			red:		lightgray
edit.prompt.pad:normal:			white:		black

option:normal:				red:		black
#alink:normal:red:green

scroll.arrow:	bold:			white:		default
scroll.noarrow:	normal:			black:		default
scroll.bar:	bold:			white
#scroll.back:reverse:green:red

status:		reverse:		yellow:		black
h1:		bold:			yellow:		black
em:		bold:			white
title:		normal:			magenta:	black
i:		bold:			white
table:		normal:			white
blockquote:	normal:			white

menu.bg:	normal:			black:		lightgray
menu.frame:	normal:			black:		lightgray
menu.entry:	normal:			white:		gray
menu.n:		normal:			white:		gray
menu.active:	normal:			white:		black
menu.sb:	normal:			brightred:	lightgray

forwbackw.arrow:bold:			red:		default
hot.paste:	normal:			brightred:	gray

# FIXME: what are these?
em.a:		reverse:		black:		blue
em.b:		reverse:		white:		black
font.letter:	normal:			default:	black
link.blue:	bold:			white:		brightblue
link.blue.prev:	bold:			yellow:		brightblue
li.blue:	bold:			blue:		black
link.blue.next:	bold:			blue:		black

INCLUDE:lynx.lss

# default should be the *last* line
#?default:	normal:			brightcyan:	blue

pan class="n">kindA
  TEmpty = object
  TDummy = ref object
    case k: TKind
    of kindXY: x, y: int
    of kindA:
      a: TArg
      `method`: TEmpty # bug #1791

proc main() =
  for i in 1..10:
    let d = TDummy(k: kindA, a: TArg(x: "abc", z: @[1,i,3]), `method`: TEmpty())
    echo d[]

main()

# bug #6294
type
  A = object of RootObj
    x*: int
  B = object of A
    y*: int
  BS = object of B
  C = object of BS
    z*: int
# inherited fields are ignored, so no fields are set
when true:
  var
    o: B
  o = B(x: 123)
  echo o
  o = B(y: 678, x: 123)
  echo o

# inherited fields are ignored
echo C(x: 128, z: 89)          # (y: 0, x: 0)
echo B(y: 678, x: 123)  # (y: 678, x: 0)
echo B(x: 123, y: 678)  # (y: 678, x: 0)

when true:
  # correct, both with `var` and `let`;
  var b=B(x: 123)
  echo b                  # (y: 0, x: 123)
  b=B(y: 678, x: 123)
  echo b                  # (y: 678, x: 123)
  b=B(y: b.x, x: b.y)
  echo b                  # (y: 123, x: 678)

GC_fullCollect()