---
source: tests/module.rs
expression: module_file
---
name: Declarations
cst:
root:
kind: Root
children:
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'API calls"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Standard image blitting; faster than VB's internal PaintPicture method"
- kind: Newline
text: "\r\n"
- kind: DeclareStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: DeclareKeyword
text: Declare
- kind: Whitespace
text: " "
- kind: FunctionKeyword
text: Function
- kind: Whitespace
text: " "
- kind: Identifier
text: BitBlt
- kind: Whitespace
text: " "
- kind: LibKeyword
text: Lib
- kind: Whitespace
text: " "
- kind: StringLiteral
text: "\"gdi32\""
- kind: Whitespace
text: " "
- kind: ParameterList
children:
- kind: LeftParenthesis
text: (
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: hDstDC
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: x
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: y
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: nWidth
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: nHeight
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: hSrcDC
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: xSrc
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: ySrc
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: dwRop
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: RightParenthesis
text: )
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Standard pixel setting; much faster than VB's internal PSet and Point methods"
- kind: Newline
text: "\r\n"
- kind: DeclareStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: DeclareKeyword
text: Declare
- kind: Whitespace
text: " "
- kind: FunctionKeyword
text: Function
- kind: Whitespace
text: " "
- kind: Identifier
text: GetPixel
- kind: Whitespace
text: " "
- kind: LibKeyword
text: Lib
- kind: Whitespace
text: " "
- kind: StringLiteral
text: "\"gdi32\""
- kind: Whitespace
text: " "
- kind: ParameterList
children:
- kind: LeftParenthesis
text: (
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: hDC
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: x
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: y
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: RightParenthesis
text: )
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: DeclareStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: DeclareKeyword
text: Declare
- kind: Whitespace
text: " "
- kind: FunctionKeyword
text: Function
- kind: Whitespace
text: " "
- kind: Identifier
text: SetPixelV
- kind: Whitespace
text: " "
- kind: LibKeyword
text: Lib
- kind: Whitespace
text: " "
- kind: StringLiteral
text: "\"gdi32\""
- kind: Whitespace
text: " "
- kind: ParameterList
children:
- kind: LeftParenthesis
text: (
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: hDC
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: x
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: y
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: ByValKeyword
text: ByVal
- kind: Whitespace
text: " "
- kind: Identifier
text: crColor
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: RightParenthesis
text: )
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: ByteKeyword
text: Byte
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Size of the map; these dimensions can theoretically be changed, but you'll need"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "' to manually resize the various picture boxes to match"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: ConstKeyword
text: Const
- kind: Whitespace
text: " "
- kind: Identifier
text: WORLDWIDTH
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Whitespace
text: " "
- kind: EqualityOperator
text: "="
- kind: Whitespace
text: " "
- kind: IntegerLiteral
text: "499"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: ConstKeyword
text: Const
- kind: Whitespace
text: " "
- kind: Identifier
text: WORLDHEIGHT
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Whitespace
text: " "
- kind: EqualityOperator
text: "="
- kind: Whitespace
text: " "
- kind: IntegerLiteral
text: "499"
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Amount of food to generate every round"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: foodGen
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'How much energy the food grants"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: foodWorth
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Default starting energy for each creature"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: startEnergy
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Regenerate food every (foodRegen) number of turns"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: foodRegen
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Mutation values"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Whether or not to allow reproduction (a.k.a. the \"celibacy\" variable)"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: toMultiply
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: BooleanKeyword
text: Boolean
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'How many turns must pass before creatures are allowed to reproduce"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: mutateTurns
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'How many potential mutations to cause at reproduction time"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: numOfMutations
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Amount of creatures to start with"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: InitialCreatures
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'The food array"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: Food
- kind: LeftParenthesis
text: (
- kind: RightParenthesis
text: )
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Whether or not to draw deceased creatures"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: drawDeadCreatures
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: BooleanKeyword
text: Boolean
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Loop variables"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: i
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: Identifier
text: j
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: x
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: Identifier
text: y
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Newline
text: "\r\n"