File: tparameterizedparent4.nim

package info (click to toggle)
nim 2.2.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,911,644 kB
  • sloc: sh: 24,603; ansic: 1,761; python: 1,492; makefile: 1,013; sql: 298; asm: 141; xml: 13
file content (30 lines) | stat: -rw-r--r-- 515 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
25
26
27
28
29
30
 
discard """
  errormsg: "attempt to redefine: 'grain'"
  file: "tparameterizedparent4.nim"
  line: 23
"""
# bug #5264
type
  Texture = enum
    Smooth
    Coarse

  FruitBase = object of RootObj
    color: int
    grain: string

  Apple[T] = object of T
    width: int
    tast_e: float64
    case kind: Texture
    of Smooth:
      skin: float64
    of Coarse:
      grain: int

proc setColor(self: var FruitBase, c: int) =
  self.color = c

var x = Apple[FruitBase](kind: Smooth, skin: 1.5)
x.setColor(14)
echo x