private static string LintName(lintErrorTypes lType) { string LintName = ""; LintAbbr(lType, LintName); return(LintName); }
private static bool CheckNoLint(string tFileName, lintErrorTypes lType = lintErrorTypes.ltUnkn, string vLine = "") { bool CheckNoLint = false; int I = 0; string L = ""; int A = 0; string CA = ""; string cP = ""; string Cb = ""; CheckNoLint = false; if (LintAbbr(lType) == "") { CheckNoLint = true; // Disable lint type return(CheckNoLint); } CA = lintTag_NoLint; cP = lintTag_NoLint + lintTag_Div; Cb = lintTag_NoLint + lintTag_Div + UCase(LintAbbr(lType)); if (IsInStr(vLine, Mid(CA, 2)) && !IsInStr(vLine, Mid(cP, 2))) { CheckNoLint = true; return(CheckNoLint); } if (IsInStr(vLine, Mid(Cb, 2))) { CheckNoLint = true; return(CheckNoLint); } A = LintModuleFirstLine(tFileName); for (I = A; I < A + lintTag_ScanRange; I++) { L = UCase(ReadFile(tFileName, I, 1)); if (lType == lintErrorTypes.ltUnkn) { if (LMatch(L, CA) && !LMatch(L, cP)) { CheckNoLint = true; return(CheckNoLint); } } else { if (LMatch(L, Cb)) { CheckNoLint = true; return(CheckNoLint); } } } return(CheckNoLint); }
private static string AddErrStr(ref string ErrStr, string FileName, string LineNo, string vLine, string Msg, lintErrorTypes lType) { string AddErrStr = ""; Static(ErrCnt(As(Long))); if (CheckNoLint(FileName(), lType, vLine)) { return AddErrStr; } if (ErrStr == "") { ErrCnt = 0; } ErrCnt = ErrCnt + 1; if (ErrCnt > lintLint_MaxErrors) { if (Right(ErrStr, 4) != " >>>") { ErrStr = ErrStr + vbCrLf + "<<< Max Error Count Exceeded >>>"; } return AddErrStr; } if (ErrStr != "") { ErrStr = ErrStr + vbCrLf; } ErrStr = ErrStr + LintFileShort(FileName()) + " (Line " + LineNo + "): " + LintAbbr(lType) + " - " + Msg; return AddErrStr; }
private static string LintAbbr(lintErrorTypes lType, out string TypeName) { string LintAbbr = ""; // if this function returns "", the lint type is ignored. Add the following after the normal lint type to disable: // : LintAbbr = "" switch(lType) { case lintErrorTypes.ltLErr: LintAbbr = "LErr"; TypeName = "Lint Runtime Error"; break; case lintErrorTypes.ltIdnt: LintAbbr = "Idnt"; TypeName = "Indent"; break; case lintErrorTypes.ltDECL: LintAbbr = "Decl"; TypeName = "Declaration"; break; case lintErrorTypes.ltDEPR: LintAbbr = "Depr"; TypeName = "Deprecated"; break; case lintErrorTypes.ltSTOP: LintAbbr = "STOP"; TypeName = "Stop Encountered"; break;//: LintAbbr = IIf(Not LintForBuild, LintAbbr, "") case lintErrorTypes.ltWITH: LintAbbr = "WITH"; TypeName = "With Statement"; break; case lintErrorTypes.ltVarN: LintAbbr = "VarN"; TypeName = "Variable Name"; break; case lintErrorTypes.ltArgN: LintAbbr = "ArgN"; TypeName = "Argument Name"; break; case lintErrorTypes.ltFunN: LintAbbr = "FunN"; TypeName = "Function Name"; break; case lintErrorTypes.ltCtlN: LintAbbr = "CtlN"; TypeName = "Control Name"; break; case lintErrorTypes.ltObjN: LintAbbr = "ObjN"; TypeName = "Object Name"; break; case lintErrorTypes.ltSelf: LintAbbr = "Self"; TypeName = "Self Reference"; break; case lintErrorTypes.ltType: LintAbbr = "Type"; TypeName = "Data Type"; break; case lintErrorTypes.ltWhtS: LintAbbr = "WhtS"; TypeName = "White Space"; break; case lintErrorTypes.ltOptn: LintAbbr = "Optn"; TypeName = "Option"; break; case lintErrorTypes.ltBadC: LintAbbr = "BadC"; TypeName = "Bad Code"; break;//: LintAbbr = IIf(Not LintForBuild, LintAbbr, "") case lintErrorTypes.ltNTyp: LintAbbr = "NTyp"; TypeName = "No Type"; break; case lintErrorTypes.ltNOpD: LintAbbr = "NOpD"; TypeName = "No Default For Optional"; LintAbbr = ""; break; default: LintAbbr = "UNKN"; TypeName = "Unknown"; break; } return LintAbbr; }