Detect-It-Easy/db/Binary/source_text.Pascal.1.sg
2026-06-20 22:32:01 +02:00

19 lines
No EOL
449 B
JavaScript
Executable file

// Detect It Easy: detection rule file
// Author: horsicq <horsicq@gmail.com>
// https://en.wikipedia.org/wiki/Pascal_(programming_language)
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();
}