#------------------------------------------------------------------------------
# $File: algol68,v 1.4 2021/08/15 06:00:55 christos Exp $
# algol68:  file(1) magic for Algol 68 source
#
# URL: 		https://en.wikipedia.org/wiki/ALGOL_68
# Reference:	http://www.softwarepreservation.org/projects/ALGOL/report/Algol68_revised_report-AB.pdf
# Update:	Joerg Jenderek
0	search/8192	(input,
>0	use		algol_68
# graph_2d.a68
0	regex/4006	\^PROC
#>&-4	string		x			\b, dBase or Algol "%s"
# most xBase scripts *.prg with PROCEDURE like: Areacode BarCount Def_mens Vendors
#>&-4	string		=PROCEDURE		\b, dBase PROCEDURE
# skip xBase program scripts *.prg with PROCEDURE keyword
# keyword proc probably followed by white space used to specify algol procedures
>&-4	string		!PROCEDURE
>>0	use		algol_68
0	regex/1024	\bMODE[\t\ ]
>0	use		algol_68
0	regex/1024	\bMODE[\t\ ]
>0	use		algol_68
0	regex/1024	\bREF[\t\ ]
>0	use		algol_68
0	regex/1024	\bFLEX[\t\ ]\*\\[
>0	use		algol_68

# display information like mime type and file name extension of Algol 68 source text
0	name		algol_68		Algol 68 source text
!:mime	text/x-Algol68
# https://file-extension.net/seeker/file_extension_a68
!:ext   a68
#!:ext   a68/alg

#0	regex          	[\t\ ]OD		Algol 68 source text
#>0	use		algol_68
#!:mime	text/x-Algol68
#0	regex          	[\t\ ]FI		Algol 68 source text
#>0	use		algol_68
#!:mime	text/x-Algol68