Detect-It-Easy/db/Binary/source_text.Pascal.1.sg
2026-05-25 21:03:46 +03:00

18 lines
No EOL
385 B
JavaScript
Executable file

// Detect It Easy: detection rule file
// Author: horsicq <horsicq@gmail.com>
meta("source", "Pascal");
function detect() {
var sText = Binary.getHeaderString();
/* if(/^unit/im.test(sText)) {
bDetected = true;
} */
if (/^\s*program\s.*\s*uses\s/im.test(sText)) {
bDetected = true;
}
sLang = "Pascal";
return result();
}