12c8c7e75Schristos#------------------------------------------------------------------------------ 2*4c89978fSchristos# $File: pascal,v 1.4 2022/07/30 16:53:06 christos Exp $ 32c8c7e75Schristos# pascal: file(1) magic for Pascal source 42c8c7e75Schristos# 52c8c7e75Schristos0 search/8192 (input, Pascal source text 62c8c7e75Schristos!:mime text/x-pascal 785dc3c67Schristos#0 regex \^program Pascal source text 885dc3c67Schristos#!:mime text/x-pascal 985dc3c67Schristos#0 regex \^record Pascal source text 1085dc3c67Schristos#!:mime text/x-pascal 11cdf4124cSchristos 12cdf4124cSchristos# Free Pascal 13cdf4124cSchristos0 string PPU Pascal unit 14cdf4124cSchristos>3 string x \b, version %s 15*4c89978fSchristos 16*4c89978fSchristos# From: Joerg Jenderek 17*4c89978fSchristos# URL: https://en.wikipedia.org/wiki/Dan_Bricklin 18*4c89978fSchristos0 string/b Type 19*4c89978fSchristos# URL: https://dl.winworldpc.com/Dan%20Bricklins%20Demo%20II%20Version%202%20Manual.7z 20*4c89978fSchristos# Reference: http://mark0.net/download/triddefs_xml.7z/defs/d/dbd-v2.trid.xml 21*4c89978fSchristos>4 string D2 Dan Bricklin's Demo 2 demo 22*4c89978fSchristos#!:mime application/octet-stream 23*4c89978fSchristos!:ext dbd 24*4c89978fSchristos# URL: https://muhaz.org/turbo-pascal-download-details.html 25*4c89978fSchristos# From: Joerg Jenderek 26*4c89978fSchristos# Note: used by Turbo Pascal 5.5 TOUR.EXE 27*4c89978fSchristos>4 string T2 Turbo Pascal TOUR data 28*4c89978fSchristos#!:mime application/octet-stream 29*4c89978fSchristos!:mime application/x-borland-cbt 30*4c89978fSchristos!:ext cbt 31*4c89978fSchristos# WHAT iS THAT? 32*4c89978fSchristos#>4 string \040P Dan Bricklin's Demo 2 foo 33*4c89978fSchristos#!:mime application/octet-stream 34*4c89978fSchristos# _PPRINT.SG2 _PASCII.SG2 35*4c89978fSchristos#!:ext sg2 36*4c89978fSchristos# Reference: http://mark0.net/download/triddefs_xml.7z/defs/d/dbd-gen.trid.xml 37*4c89978fSchristos>4 default x Dan Bricklin's Demo demo (generic) 38*4c89978fSchristos#!:mime application/octet-stream 39*4c89978fSchristos!:ext dbd 40