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