1 2#------------------------------------------------------------------------------ 3# $File: algol68,v 1.4 2021/08/15 06:00: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 13#>&-4 string x \b, dBase or Algol "%s" 14# most xBase scripts *.prg with PROCEDURE like: Areacode BarCount Def_mens Vendors 15#>&-4 string =PROCEDURE \b, dBase PROCEDURE 16# skip xBase program scripts *.prg with PROCEDURE keyword 17# keyword proc probably followed by white space used to specify algol procedures 18>&-4 string !PROCEDURE 19>>0 use algol_68 200 regex/1024 \bMODE[\t\ ] 21>0 use algol_68 220 regex/1024 \bMODE[\t\ ] 23>0 use algol_68 240 regex/1024 \bREF[\t\ ] 25>0 use algol_68 260 regex/1024 \bFLEX[\t\ ]\*\\[ 27>0 use algol_68 28 29# display information like mime type and file name extension of Algol 68 source text 300 name algol_68 Algol 68 source text 31!:mime text/x-Algol68 32# https://file-extension.net/seeker/file_extension_a68 33!:ext a68 34#!:ext a68/alg 35 36#0 regex [\t\ ]OD Algol 68 source text 37#>0 use algol_68 38#!:mime text/x-Algol68 39#0 regex [\t\ ]FI Algol 68 source text 40#>0 use algol_68 41#!:mime text/x-Algol68 42