File: tlexer.nim

package info (click to toggle)
nim 0.19.4-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 462,356 kB
  • sloc: sh: 11,089; ansic: 4,699; makefile: 706; python: 309; sql: 297; asm: 141; xml: 13
file content (60 lines) | stat: -rw-r--r-- 1,417 bytes parent folder | download | duplicates (6)
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
discard """
  disabled: true
"""

# We start with a comment
# This is the same comment

# This is a new one!

import
  lexbase, os, strutils

type
  TMyRec {.final.} = object
    x, y: int     # coordinates
    c: char       # a character
    a: int32      # an integer

  PMyRec = ref TMyRec # a reference to `TMyRec`

proc splitText(txt: string): seq[string] # splits a text into several lines
                                         # the comment continues here
                                         # this is not easy to parse!

proc anotherSplit(txt: string): seq[string] =
  # the comment should belong to `anotherSplit`!
  # another problem: comments are statements!

const
  x = 0B0_10001110100_0000101001000111101011101111111011000101001101001001'f64 # x ~~ 1.72826e35
  myNan = 0B01111111100000101100000000001000'f32 # NAN
  y = """
    a rather long text.
    Over many
    lines.
  """
  s = "\xff"
  a = {0..234}
  b = {0..high(int)}
  v = 0'i32
  z = 6767566'f32

# small test program for lexbase

proc main*(infile: string, a, b: int, someverylongnamewithtype = 0,
           anotherlongthingie = 3) =
  var
    myInt: int = 0
    s: seq[string]
  # this should be an error!
  if initBaseLexer(L, infile, 30): nil
  else:
    writeLine(stdout, "could not open: " & infile)
  writeLine(stdout, "Success!")
  call(3, # we use 3
       12, # we use 12
       43) # we use 43


main(ParamStr(1), 9, 0)