Added Nikolaus Klepp's shebang patch

abduld · Aug 28, 2012 · f16f2e4 · f16f2e4
1 parent d9a3edc
commit f16f2e4
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/platform/platform_unix.c b/platform/platform_unix.c
@@ -119,6 +119,13 @@ void PicocPlatformScanFile(const char *FileName)
 {
  char *SourceStr = PlatformReadFile(FileName);
 
+ /* ignore "#!/path/to/picoc" .. by replacing the "#!" with "//" */
+ if (SourceStr != NULL && SourceStr[0] == '#' && SourceStr[1] == '!') 
+ { 
+ SourceStr[0] = '/'; 
+ SourceStr[1] = '/'; 
+ }
+
  PicocParse(FileName, SourceStr, strlen(SourceStr), TRUE, FALSE, TRUE, TRUE);
 }