53 lines
1.5 KiB
Plaintext
53 lines
1.5 KiB
Plaintext
|
#!@PERL@
|
||
|
|
#
|
||
|
|
# fix an old-syntax amd map to new one
|
||
|
|
#
|
||
|
|
# takes any number of files on the command line, and produces
|
||
|
|
# a fixed map on stdout.
|
||
|
|
#
|
||
|
|
# Package: am-utils-6.0
|
||
|
|
# Author: Erez Zadok <ezk@cs.columbia.edu>
|
||
|
|
#
|
||
|
|
|
||
|
|
##############################################################################
|
||
|
|
### MAINTAINER EDITABLE SECTION
|
||
|
|
|
||
|
|
# Mappings of old names to new ones:
|
||
|
|
# Update when needed, do not forget commas but not on the last entry!
|
||
|
|
# For your convenience, this is the complete list of all OSs that were
|
||
|
|
# supported by amd-upl102, in their old names:
|
||
|
|
#
|
||
|
|
# 386bsd acis43 aix3 aoi aux bsd43 bsd44 bsdi11
|
||
|
|
# concentrix dgux fpx4 freebsd hcx hlh42 hpux irix3 irix4 irix5 isc3
|
||
|
|
# linux mach2 mach3 netbsd news4 next osf1 pyrOSx riscix riscos
|
||
|
|
# rtu6 sos3 sos4 sos5 stellix svr4 u2_2 u3_0 u4_0 u4_2 u4_3 u4_4
|
||
|
|
# umax43 utek utx32 xinu43
|
||
|
|
#
|
||
|
|
%mappings = (
|
||
|
|
"sos4", "sunos4",
|
||
|
|
"sos5", "sunos5",
|
||
|
|
"freebsd", "freebsd2"
|
||
|
|
);
|
||
|
|
|
||
|
|
##############################################################################
|
||
|
|
### DO NOT EDIT ANYTHING BELOW
|
||
|
|
|
||
|
|
# This is a trivial parser and works as follows:
|
||
|
|
# (1) read each line
|
||
|
|
# (2) search of regexps that start with '=', continue with a word to replace
|
||
|
|
# and end with a non-value name (whitespace, ';', or newline
|
||
|
|
while (<>) {
|
||
|
|
# skip trivial lines
|
||
|
|
if ($_ =~ /^$/ || $_ =~ /^#/) {
|
||
|
|
print;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
# modify the line if needed
|
||
|
|
foreach $m (keys %mappings) {
|
||
|
|
$val = $mappings{$m};
|
||
|
|
$_ =~ s/=$m([^a-zA-Z0-9_])/=$val$1/g;
|
||
|
|
}
|
||
|
|
# print the (possibly) modified line
|
||
|
|
print;
|
||
|
|
}
|