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