+sub replace_socketcan {
+ my($i);
+
+ for $i (0..$#lines) {
+ $lines[$i] =~ s+socketcan/can+linux/can+g;
+ }
+}
+
+sub replace_macros {
+ my($version) = @_;
+ my($i);
+
+ $old = compare($version, "<", "2", "6", "21");
+
+ for $i (0..$#lines) {
+
+ if ($lines[$i] =~ /#define ND2D/) {
+ delete_line($i, "<del>");
+ } else {
+ if ($old) {
+ $lines[$i] =~ s/ND2D\(\b(\w+)\b\)/$1\->class_dev.dev/g;
+ } else {
+ $lines[$i] =~ s/ND2D\(\b(\w+)\b\)/$1\->dev.parent/g;
+ }
+ }
+ }
+}
+