---
source: tests/module.rs
expression: subs_module_file
---
name: Declaration_Module
cst:
root:
kind: Root
children:
- kind: EndOfLineComment
text: "'***************************************************************************"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Copyright 2018 by Tanner Helland"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "' www.tannerhelland.com"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Documentation for this project can be found at https://tannerhelland.com/code/"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'The source code in this project is licensed under a Simplified BSD license."
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "' For more information, please review LICENSE.md at https://github.com/tannerhelland/thdc-code/"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'If you find this code useful, please consider a small donation to https://www.paypal.me/TannerHelland"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'***************************************************************************"
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'The StretchBlt declaration (the GDI32 alternative to VB's PaintPicture)"
- 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: StretchBlt
- 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: hDestDC
- 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: ClipX
- 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: ClipY
- 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: RasterOp
- 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: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'An array, which we'll use to track our map tile values"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: MapArray
- kind: LeftParenthesis
text: (
- 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: EndOfLineComment
text: "'Loop variables"
- 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"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'The currently selected position"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: CurX
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: Identifier
text: CurY
- 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 viewport position"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: ViewX
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: Identifier
text: ViewY
- 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 size of the map"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: SizeX
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: IntegerKeyword
text: Integer
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: Identifier
text: SizeY
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: IntegerKeyword
text: Integer
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Whether a mouse button is up or down"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: MouseState
- 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: "'The currently selected picture"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: CurPicIndex
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: LongKeyword
text: Long
- kind: Comma
text: ","
- kind: Whitespace
text: " "
- kind: Identifier
text: CurPicIndex2
- 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 zoom value"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: Zoom
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: IntegerKeyword
text: Integer
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"
- kind: EndOfLineComment
text: "'Whether or not to use StretchBlt in place of PaintPicture"
- kind: Newline
text: "\r\n"
- kind: DimStatement
children:
- kind: PublicKeyword
text: Public
- kind: Whitespace
text: " "
- kind: Identifier
text: UseStretchBlt
- kind: Whitespace
text: " "
- kind: AsKeyword
text: As
- kind: Whitespace
text: " "
- kind: BooleanKeyword
text: Boolean
- kind: Newline
text: "\r\n"
- kind: Newline
text: "\r\n"