Detect-It-Easy/db/Binary/text.Pascal.1.sg
2024-11-12 20:11:38 +03:00

19 lines
No EOL
357 B
JavaScript
Executable file

// Detect It Easy: detection rule file
init("source", "Pascal");
function detect() {
var sText = Binary.getHeaderString();
/* if(/^unit/im.test(sText))
{
bDetected=1;
} */
if (/^\s*program\s.*\s*uses\s/im.test(sText)) {
bDetected = true;
}
_setLang("Pascal", bDetected);
return result();
}