1c30bd091SSascha Wildner 2c30bd091SSascha Wildner#------------------------------------------------------------------------------ 3*614728caSSascha Wildner# $File: algol68,v 1.4 2021/08/15 06:00:55 christos Exp $ 4c30bd091SSascha Wildner# algol68: file(1) magic for Algol 68 source 5c30bd091SSascha Wildner# 6*614728caSSascha Wildner# URL: https://en.wikipedia.org/wiki/ALGOL_68 7*614728caSSascha Wildner# Reference: http://www.softwarepreservation.org/projects/ALGOL/report/Algol68_revised_report-AB.pdf 8*614728caSSascha Wildner# Update: Joerg Jenderek 9*614728caSSascha Wildner0 search/8192 (input, 10*614728caSSascha Wildner>0 use algol_68 11*614728caSSascha Wildner# graph_2d.a68 12*614728caSSascha Wildner0 regex/4006 \^PROC 13*614728caSSascha Wildner#>&-4 string x \b, dBase or Algol "%s" 14*614728caSSascha Wildner# most xBase scripts *.prg with PROCEDURE like: Areacode BarCount Def_mens Vendors 15*614728caSSascha Wildner#>&-4 string =PROCEDURE \b, dBase PROCEDURE 16*614728caSSascha Wildner# skip xBase program scripts *.prg with PROCEDURE keyword 17*614728caSSascha Wildner# keyword proc probably followed by white space used to specify algol procedures 18*614728caSSascha Wildner>&-4 string !PROCEDURE 19*614728caSSascha Wildner>>0 use algol_68 20*614728caSSascha Wildner0 regex/1024 \bMODE[\t\ ] 21*614728caSSascha Wildner>0 use algol_68 22*614728caSSascha Wildner0 regex/1024 \bMODE[\t\ ] 23*614728caSSascha Wildner>0 use algol_68 24*614728caSSascha Wildner0 regex/1024 \bREF[\t\ ] 25*614728caSSascha Wildner>0 use algol_68 26*614728caSSascha Wildner0 regex/1024 \bFLEX[\t\ ]\*\\[ 27*614728caSSascha Wildner>0 use algol_68 28*614728caSSascha Wildner 29*614728caSSascha Wildner# display information like mime type and file name extension of Algol 68 source text 30*614728caSSascha Wildner0 name algol_68 Algol 68 source text 31c30bd091SSascha Wildner!:mime text/x-Algol68 32*614728caSSascha Wildner# https://file-extension.net/seeker/file_extension_a68 33*614728caSSascha Wildner!:ext a68 34*614728caSSascha Wildner#!:ext a68/alg 35*614728caSSascha Wildner 36c30bd091SSascha Wildner#0 regex [\t\ ]OD Algol 68 source text 37*614728caSSascha Wildner#>0 use algol_68 38c30bd091SSascha Wildner#!:mime text/x-Algol68 39c30bd091SSascha Wildner#0 regex [\t\ ]FI Algol 68 source text 40*614728caSSascha Wildner#>0 use algol_68 41c30bd091SSascha Wildner#!:mime text/x-Algol68 42