# snmp-v2tov1.awk
# nawk script - pass 1 of translation from SNMP v2 SMI to v1 SMI
# mbj@erlang.ericsson.se 971114
#
# Translate v2 IMPORTs to their v1 equivalents
$[ = 1; # set array base to 1
$, = ' '; # set output field separator
$\ = "\n"; # set output record separator
line: while (<>) {
chomp; # strip record separator
@Fld = split(' ', $_, 9999);
if (/IMPORT/) {
$import = 1;
$isave = 0;
print $_;
next line;
}
if (($import == 1) && ($Fld[1] eq ';')) {
$import = 0;
}
if (($import == 1) && ($Fld[1] ne 'FROM')) {
for ($i = 1; $i <= $#Fld; $i++) {
$s = ',', $Fld[$i] =~ s/$s//;
$imp{$i + $isave} = $Fld[$i];
}
$isave = $isave + ($i - 1);
next line;
}
if (($import == 1) && ($Fld[1] eq 'FROM')) {
&print_imp($Fld[2], *imp, $isave);
$isave = 0;
next line;
}
# str is 1 if we're inside a string, and 0 otherwise.
if (/\"/) {
$str = 1;
}
if ($Fld[$#Fld] =~ /\"$/) {
$str = 0;
}
# Just reprint all comments
if (/^--/) {
print $_;
next line;
}
# Place comments around MODULE-IDENTITY
if (/MODULE-IDENTITY/ && ($str == 0)) {
$moduleid = 1;
print '--', $_;
next line;
}
if (($moduleid == 1) && ($Fld[1] eq '::=')) {
$moduleid = 0;
print '--', $_;
next line;
}
if ($moduleid == 1) {
print '--', $_;
next line;
}
# Translate TEXTUAL-CONVENTION into an ordinary type assignement.
# Place comments around body.
if (/TEXTUAL-CONVENTION/ && ($str == 0)) {
$textual = 1;
print $Fld[1], $Fld[2];
print '--TEXTUAL-CONVENTION';
next line;
}
if (($textual == 1) && ($Fld[1] eq 'SYNTAX')) {
$textual = 0;
print "--SYNTAX\n";
for ($i = 2; $i <= $#Fld; $i++) {
print $Fld[$i];
}
next line;
}
if ($textual == 1) {
$s = '--', s/$s/-- --/;
print '--', $_;
next line;
}
# Translate OBJECT-IDENTITY into an OBJECT IDENTIFIER.
# Place comments around body.
if (/OBJECT-IDENTITY/ && ($str == 0)) {
$objid = 1;
print $Fld[1], 'OBJECT IDENTIFIER';
print '--OBJECT-IDENTITY';
next line;
}
if (($objid == 1) && ($Fld[1] eq '::=')) {
$objid = 0;
print $_;
next line;
}
if ($objid == 1) {
$s = '--', s/$s/-- --/;
print '--', $_;
next line;
}
# Place comments around MODULE-COMPLIANCE
if (/MODULE-COMPLIANCE/ && ($str == 0)) {
$modcomp = 1;
print '--', $_;
next line;
}
if (($modcomp == 1) && ($Fld[1] eq '::=')) {
$modcomp = 0;
print '--', $_;
next line;
}
if ($modcomp == 1) {
$s = '--', s/$s/-- --/;
print '--', $_;
next line;
}
# Place comments around OBJECT-GROUP
if (/OBJECT-GROUP/ && ($str == 0)) {
$objgr = 1;
print '--', $_;
next line;
}
if (($objgr == 1) && ($Fld[1] eq '::=')) {
$objgr = 0;
print '--', $_;
next line;
}
if ($objgr == 1) {
$s = '--', s/$s/-- --/;
print '--', $_;
next line;
}
if (/OBJECT-GROUP/) {
print 'tjolaopp';
}
# Place comments around NOTIFICATION-GROUP
if (/NOTIFICATION-GROUP/ && ($str == 0)) {
$notgr = 1;
print '--', $_;
next line;
}
if (($notgr == 1) && ($Fld[1] eq '::=')) {
$notgr = 0;
print '--', $_;
next line;
}
if ($notgr == 1) {
$s = '--', s/$s/-- --/;
print '--', $_;
next line;
}
# Translate NOTIFICATION-TYPE into a TRAP-TYPE.
if (/NOTIFICATION-TYPE/ && ($str == 0)) {
$trap = 1;
print $Fld[1], ' TRAP-TYPE';
printf ' ENTERPRISE ';
$tri = 1;
next line;
}
if (($trap == 1) && ($Fld[1] eq 'OBJECTS')) {
$tra{$tri++} = $_;
next line;
}
if (($trap == 1) && ($Fld[1] eq 'STATUS')) {
next line;
}
if (($trap == 1) && ($Fld[1] eq '::=')) {
print $Fld[3];
&pr_trap(*tra, $tri);
printf ' ::= ';
print $Fld[4];
$tri = 1;
$trap = 0;
next line;
}
if ($trap == 1) {
$tra{$tri++} = $_;
next line;
}
if (/UNITS/) {
$s = '--', s/$s/-- --/;
print '--', $_;
next line;
}
print $_;
# Print v1 IMPORT statements
# Print a trap
}
sub print_imp {
local($mib, *imp, $isave) = @_;
for ($i = 1; $i <= $isave; $i++) {
if ($imp{$i} eq 'Counter32') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'Gauge32') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'TimeTicks') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'Opaque') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'IpAddress') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'NetworkAddress') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'enterprises') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'private') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'experimental') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'mgmt') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'internet') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'directory') {
print ' ', $imp{$i};
print ' FROM RFC1155-SMI';
}
elsif ($imp{$i} eq 'DisplayString') {
print ' ', $imp{$i};
print ' FROM RFC1213-MIB';
}
elsif ($imp{$i} eq 'mib-2') {
print ' ', $imp{$i};
print ' FROM RFC1213-MIB';
}
elsif ($imp{$i} eq 'OBJECT-TYPE') {
print ' ', $imp{$i};
print ' FROM RFC-1212';
}
elsif ($imp{$i} eq 'Integer32') {
;
}
elsif ($imp{$i} eq 'MODULE-IDENTITY') {
;
}
elsif ($imp{$i} eq 'TEXTUAL-CONVENTION') {
;
}
elsif ($imp{$i} eq 'OBJECT-IDENTITY') {
;
}
elsif ($imp{$i} eq 'OBJECT-GROUP') {
;
}
elsif ($imp{$i} eq 'MODULE-COMPLIANCE') {
;
}
elsif ($imp{$i} eq 'NOTIFICATION-GROUP') {
;
}
elsif ($imp{$i} eq 'NOTIFICATION-TYPE') {
print ' TRAP-TYPE';
print ' FROM RFC-1215';
}
elsif ($imp{$i} eq 'DateAndTime') {
print ' ', $imp{$i};
print ' FROM STANDARD-MIB';
}
elsif ($imp{$i} eq 'TruthValue') {
print ' ', $imp{$i};
print ' FROM STANDARD-MIB';
}
elsif ($imp{$i} eq 'RowStatus') {
print ' ', $imp{$i};
print ' FROM STANDARD-MIB';
}
else {
print ' ', $imp{$i};
print ' FROM', $mib;
}
}
}
sub pr_trap {
local(*tra, $tri) = @_;
for ($i = 1; $i < $tri; $i++) {
print $tra{$i};
}
}
