xref: /freebsd/contrib/file/magic/Magdir/algol68 (revision 031beb4e239bfce798af17f5fe8dba8bcaf13d99)
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