1 2#------------------------------------------------------------------------------ 3# $File: sccs,v 1.8 2020/06/20 21:32:52 christos Exp $ 4# sccs: file(1) magic for SCCS archives 5# 6# SCCS v4 archive structure: 7# \001h01207 8# \001s 00276/00000/00000 9# \001d D 1.1 87/09/23 08:09:20 ian 1 0 10# \001c date and time created 87/09/23 08:09:20 by ian 11# \001e 12# \001u 13# \001U 14# ... etc. 15# Now '\001h' happens to be the same as the 3B20's a.out magic number (0550). 16# *Sigh*. And these both came from various parts of the USG. 17# Maybe we should just switch everybody from SCCS to RCS! 18# Further, you can't just say '\001h0', because the five-digit number 19# is a checksum that could (presumably) have any leading digit, 20# Fortunately we have regular expression matching: 210 string \001h 22>2 regex [0-9][0-9][0-9][0-9][0-9]$ 23>>8 string \001s\040 SCCS v4 archive data 24>2 string V6,sum= SCCS v6 archive data 25