1 2#------------------------------------------------------------------------------ 3# $File: algol68,v 1.7 2024/08/27 18:50:56 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 \bREF[\t\ ] 17>0 use algol_68 180 regex/1024 \bFLEX[\t\ ]\*\\[ 19>0 use algol_68 20 21# display information like mime type and file name extension of Algol 68 source text 220 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 28#0 regex [\t\ ]OD Algol 68 source text 29#>0 use algol_68 30#!:mime text/x-Algol68 31#0 regex [\t\ ]FI Algol 68 source text 32#>0 use algol_68 33#!:mime text/x-Algol68 34