bf592c4e94* mark user defined destructors with sfOverriden to simplify the logic * refactoring in preparation to merge liftings and generic instantiations for destructors * ast: introduce nkHiddenTryStmt for destructor generation in order to be able to optimize better the code later on * renamed 'patterns' switch to 'trmacros' as it was totally misleading before * destructors: introduce tfCheckedForDestructor flag in preparation of strict =destroy checking * test for invalid/too late destructor introductions * liftdestructors: make code robust for nimsuggest * --newruntime works for hello world again * newruntime: code generation for closures
186 lines
7.2 KiB
Nim
186 lines
7.2 KiB
Nim
#
|
|
#
|
|
# The Nim Compiler
|
|
# (c) Copyright 2015 Andreas Rumpf
|
|
#
|
|
# See the file "copying.txt", included in this
|
|
# distribution, for details about the copyright.
|
|
#
|
|
|
|
# This module contains a word recognizer, i.e. a simple
|
|
# procedure which maps special words to an enumeration.
|
|
# It is primarily needed because Pascal's case statement
|
|
# does not support strings. Without this the code would
|
|
# be slow and unreadable.
|
|
|
|
from strutils import cmpIgnoreStyle
|
|
|
|
# Keywords must be kept sorted and within a range
|
|
|
|
type
|
|
TSpecialWord* = enum
|
|
wInvalid,
|
|
|
|
wAddr, wAnd, wAs, wAsm,
|
|
wBind, wBlock, wBreak, wCase, wCast, wConcept, wConst,
|
|
wContinue, wConverter, wDefer, wDiscard, wDistinct, wDiv, wDo,
|
|
wElif, wElse, wEnd, wEnum, wExcept, wExport,
|
|
wFinally, wFor, wFrom, wFunc, wIf, wImport, wIn,
|
|
wInclude, wInterface, wIs, wIsnot, wIterator, wLet,
|
|
wMacro, wMethod, wMixin, wMod, wNil,
|
|
wNot, wNotin, wObject, wOf, wOr, wOut, wProc, wPtr, wRaise, wRef, wReturn,
|
|
wShl, wShr, wStatic, wTemplate, wTry, wTuple, wType, wUsing, wVar,
|
|
wWhen, wWhile, wXor, wYield,
|
|
|
|
wColon, wColonColon, wEquals, wDot, wDotDot,
|
|
wStar, wMinus,
|
|
wMagic, wThread, wFinal, wProfiler, wMemTracker, wObjChecks,
|
|
wIntDefine, wStrDefine, wBoolDefine
|
|
|
|
wCursor,
|
|
|
|
wImmediate, wConstructor, wDestructor, wDelegator, wOverride,
|
|
wImportCpp, wImportObjC,
|
|
wImportCompilerProc,
|
|
wImportc, wExportc, wExportNims, wIncompleteStruct, wRequiresInit,
|
|
wAlign, wNodecl, wPure, wSideeffect, wHeader,
|
|
wNosideeffect, wGcSafe, wNoreturn, wMerge, wLib, wDynlib,
|
|
wCompilerproc, wCore, wProcVar, wBase, wUsed,
|
|
wFatal, wError, wWarning, wHint, wLine, wPush, wPop, wDefine, wUndef,
|
|
wLinedir, wStacktrace, wLinetrace, wLink, wCompile,
|
|
wLinksys, wDeprecated, wVarargs, wCallconv, wBreakpoint, wDebugger,
|
|
wNimcall, wStdcall, wCdecl, wSafecall, wSyscall, wInline, wNoInline,
|
|
wFastcall, wClosure, wNoconv, wOn, wOff, wChecks, wRangechecks,
|
|
wBoundchecks, wOverflowchecks, wNilchecks,
|
|
wFloatchecks, wNanChecks, wInfChecks, wMoveChecks,
|
|
wNonReloadable, wExecuteOnReload,
|
|
wAssertions, wPatterns, wTrMacros, wWarnings,
|
|
wHints, wOptimization, wRaises, wWrites, wReads, wSize, wEffects, wTags,
|
|
wDeadCodeElimUnused, # deprecated, dead code elim always happens
|
|
wSafecode, wPackage, wNoForward, wReorder, wNoRewrite,
|
|
wPragma,
|
|
wCompileTime, wNoInit,
|
|
wPassc, wPassl, wBorrow, wDiscardable,
|
|
wFieldChecks,
|
|
wWatchPoint, wSubsChar,
|
|
wAcyclic, wShallow, wUnroll, wLinearScanEnd, wComputedGoto,
|
|
wInjectStmt, wExperimental,
|
|
wWrite, wGensym, wInject, wDirty, wInheritable, wThreadVar, wEmit,
|
|
wAsmNoStackFrame,
|
|
wImplicitStatic, wGlobal, wCodegenDecl, wUnchecked, wGuard, wLocks,
|
|
wPartial, wExplain, wLiftLocals,
|
|
|
|
wAuto, wBool, wCatch, wChar, wClass, wCompl
|
|
wConst_cast, wDefault, wDelete, wDouble, wDynamic_cast,
|
|
wExplicit, wExtern, wFalse, wFloat, wFriend,
|
|
wGoto, wInt, wLong, wMutable, wNamespace, wNew, wOperator,
|
|
wPrivate, wProtected, wPublic, wRegister, wReinterpret_cast, wRestrict,
|
|
wShort, wSigned, wSizeof, wStatic_cast, wStruct, wSwitch,
|
|
wThis, wThrow, wTrue, wTypedef, wTypeid, wTypeof, wTypename,
|
|
wUnion, wPacked, wUnsigned, wVirtual, wVoid, wVolatile, wWchar_t,
|
|
|
|
wAlignas, wAlignof, wConstexpr, wDecltype, wNullptr, wNoexcept,
|
|
wThread_local, wStatic_assert, wChar16_t, wChar32_t,
|
|
|
|
wStdIn, wStdOut, wStdErr,
|
|
|
|
wInOut, wByCopy, wByRef, wOneWay,
|
|
wBitsize
|
|
|
|
TSpecialWords* = set[TSpecialWord]
|
|
|
|
const
|
|
oprLow* = ord(wColon)
|
|
oprHigh* = ord(wDotDot)
|
|
|
|
nimKeywordsLow* = ord(wAsm)
|
|
nimKeywordsHigh* = ord(wYield)
|
|
|
|
ccgKeywordsLow* = ord(wAuto)
|
|
ccgKeywordsHigh* = ord(wOneWay)
|
|
|
|
cppNimSharedKeywords* = {
|
|
wAsm, wBreak, wCase, wConst, wContinue, wDo, wElse, wEnum, wExport,
|
|
wFor, wIf, wReturn, wStatic, wTemplate, wTry, wWhile, wUsing}
|
|
|
|
specialWords*: array[low(TSpecialWord)..high(TSpecialWord), string] = ["",
|
|
|
|
"addr", "and", "as", "asm",
|
|
"bind", "block", "break", "case", "cast",
|
|
"concept", "const", "continue", "converter",
|
|
"defer", "discard", "distinct", "div", "do",
|
|
"elif", "else", "end", "enum", "except", "export",
|
|
"finally", "for", "from", "func", "if",
|
|
"import", "in", "include", "interface", "is", "isnot", "iterator",
|
|
"let",
|
|
"macro", "method", "mixin", "mod", "nil", "not", "notin",
|
|
"object", "of", "or",
|
|
"out", "proc", "ptr", "raise", "ref", "return",
|
|
"shl", "shr", "static",
|
|
"template", "try", "tuple", "type", "using", "var",
|
|
"when", "while", "xor",
|
|
"yield",
|
|
|
|
":", "::", "=", ".", "..",
|
|
"*", "-",
|
|
"magic", "thread", "final", "profiler", "memtracker", "objchecks",
|
|
"intdefine", "strdefine", "booldefine",
|
|
|
|
"cursor",
|
|
|
|
"immediate", "constructor", "destructor", "delegator", "override",
|
|
"importcpp", "importobjc",
|
|
"importcompilerproc", "importc", "exportc", "exportnims",
|
|
"incompletestruct",
|
|
"requiresinit", "align", "nodecl", "pure", "sideeffect",
|
|
"header", "nosideeffect", "gcsafe", "noreturn", "merge", "lib", "dynlib",
|
|
"compilerproc", "core", "procvar", "base", "used",
|
|
"fatal", "error", "warning", "hint", "line",
|
|
"push", "pop", "define", "undef", "linedir", "stacktrace", "linetrace",
|
|
"link", "compile", "linksys", "deprecated", "varargs",
|
|
"callconv", "breakpoint", "debugger", "nimcall", "stdcall",
|
|
"cdecl", "safecall", "syscall", "inline", "noinline", "fastcall", "closure",
|
|
"noconv", "on", "off", "checks", "rangechecks", "boundchecks",
|
|
"overflowchecks", "nilchecks",
|
|
"floatchecks", "nanchecks", "infchecks", "movechecks",
|
|
"nonreloadable", "executeonreload",
|
|
|
|
"assertions", "patterns", "trmacros", "warnings", "hints",
|
|
"optimization", "raises", "writes", "reads", "size", "effects", "tags",
|
|
"deadcodeelim", # deprecated, dead code elim always happens
|
|
"safecode", "package", "noforward", "reorder", "norewrite",
|
|
"pragma",
|
|
"compiletime", "noinit",
|
|
"passc", "passl", "borrow", "discardable", "fieldchecks",
|
|
"watchpoint",
|
|
"subschar", "acyclic", "shallow", "unroll", "linearscanend",
|
|
"computedgoto", "injectstmt", "experimental",
|
|
"write", "gensym", "inject", "dirty", "inheritable", "threadvar", "emit",
|
|
"asmnostackframe", "implicitstatic", "global", "codegendecl", "unchecked",
|
|
"guard", "locks", "partial", "explain", "liftlocals",
|
|
|
|
"auto", "bool", "catch", "char", "class", "compl",
|
|
"const_cast", "default", "delete", "double",
|
|
"dynamic_cast", "explicit", "extern", "false",
|
|
"float", "friend", "goto", "int", "long", "mutable",
|
|
"namespace", "new", "operator",
|
|
"private", "protected", "public", "register", "reinterpret_cast", "restrict",
|
|
"short", "signed", "sizeof", "static_cast", "struct", "switch",
|
|
"this", "throw", "true", "typedef", "typeid", "typeof",
|
|
"typename", "union", "packed", "unsigned", "virtual", "void", "volatile",
|
|
"wchar_t",
|
|
|
|
"alignas", "alignof", "constexpr", "decltype", "nullptr", "noexcept",
|
|
"thread_local", "static_assert", "char16_t", "char32_t",
|
|
|
|
"stdin", "stdout", "stderr",
|
|
|
|
"inout", "bycopy", "byref", "oneway",
|
|
"bitsize"
|
|
]
|
|
|
|
proc findStr*(a: openArray[string], s: string): int =
|
|
for i in countup(low(a), high(a)):
|
|
if cmpIgnoreStyle(a[i], s) == 0:
|
|
return i
|
|
result = - 1
|