algol68 1.1 KB

1234567891011121314151617181920212223242526272829303132333435
  1. #------------------------------------------------------------------------------
  2. # $File: algol68,v 1.6 2022/11/06 18:36:55 christos Exp $
  3. # algol68: file(1) magic for Algol 68 source
  4. #
  5. # URL: https://en.wikipedia.org/wiki/ALGOL_68
  6. # Reference: http://www.softwarepreservation.org/projects/ALGOL/report/Algol68_revised_report-AB.pdf
  7. # Update: Joerg Jenderek
  8. 0 search/8192 (input,
  9. >0 use algol_68
  10. # graph_2d.a68
  11. 0 regex/4006 \^PROC[[:space:]][a-zA-Z0-9_[:space:]]*[[:space:]]=
  12. >0 use algol_68
  13. 0 regex/1024 \bMODE[\t\ ]
  14. >0 use algol_68
  15. 0 regex/1024 \bMODE[\t\ ]
  16. >0 use algol_68
  17. 0 regex/1024 \bREF[\t\ ]
  18. >0 use algol_68
  19. 0 regex/1024 \bFLEX[\t\ ]\*\\[
  20. >0 use algol_68
  21. # display information like mime type and file name extension of Algol 68 source text
  22. 0 name algol_68 Algol 68 source text
  23. !:mime text/x-Algol68
  24. # https://file-extension.net/seeker/file_extension_a68
  25. !:ext a68
  26. #!:ext a68/alg
  27. #0 regex [\t\ ]OD Algol 68 source text
  28. #>0 use algol_68
  29. #!:mime text/x-Algol68
  30. #0 regex [\t\ ]FI Algol 68 source text
  31. #>0 use algol_68
  32. #!:mime text/x-Algol68