I hope this is the right place to send a tiny patch. In any case,
this minor recoding makes the syntax check go a whole lot faster.
Curtis
Index: src/syntax.pl
===================================================================
RCS file: /usr/local/CVS-routing-dev/irr-source/dbase/src/syntax.pl,v
retrieving revision 2.4
diff -c -r2.4 syntax.pl
*** syntax.pl 1997/11/14 20:49:12 2.4
--- syntax.pl 1998/03/17 19:59:25
***************
*** 490,501 ****
#
# Now check the actual keywords
#
! while($tmppol =~ s/(\S+)//) {
! if (!&isaskeyword($1)) {
! return $O_ERROR,
! "syntax error in \"$ATTL{$key}: peer $as cost $pref\"\n\t$1 ".
!
! "is not a routing policy KEYWORD";
}
}
return $O_OK;
--- 490,501 ----
#
# Now check the actual keywords
#
! local($tmpword);
! foreach $tmpword ( split("\\s+", "$tmppol") ) {
! if (!&isaskeyword($tmpword)) {
! return $O_ERROR,
! "syntax error in \"$ATTL{$key}: peer $as cost $pref\"\n".
! \t$tmpword is not a routing policy KEYWORD";
}
}
return $O_OK;
