1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
#!/bin/env perl
##
## Copyright (c) 2010-2017 Intel Corporation
##
## Licensed under the Apache License, Version 2.0 (the "License");
## you may not use this file except in compliance with the License.
## You may obtain a copy of the License at
##
## http://www.apache.org/licenses/LICENSE-2.0
##
## Unless required by applicable law or agreed to in writing, software
## distributed under the License is distributed on an "AS IS" BASIS,
## WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
## See the License for the specific language governing permissions and
## limitations under the License.
##
# This script creates four sets of files: 2 sets for use case 0 and 1
# (which use the same configuration) and 2 for use case 2.
# Each use case is defined by 2 sets of configuration files.
# interface.txt contains the IP addresses of the DPDK fast path interfaces.
# route.x.y.txt contains the routing table for different configurations
# with x being number of routes and y number of next_hops.
# Those interface.txt and route.x.y.txt files should then be converted
# to fit the syntax of vRouter configuration files.
use strict;
my $max_nb_routes = 8192;
my $max_nb_next_hops = 1024;
my $max_nb_interfaces = 4;
my $nb_next_hops = 1;
my ($interface, $a1, $a2, $a3, $a4, $fh, $output_route);
# Create interface configuration for use case 0 and 1
my $interface_config = "interface.txt";
open($fh, '>', $interface_config) or die "Could not open file '$interface_config' $!";
print $fh "# interface IP address/prefix\n";
for ($interface = 0; $interface < $max_nb_interfaces; $interface++) {
print $fh ($interface+64).".0.0.240/24\n";
}
close $fh;
# Create interface configuration for use case 2
my $interface_config = "interface_use_case_2.txt";
open($fh, '>', $interface_config) or die "Could not open file '$interface_config' $!";
print $fh "# interface IP address/prefix\n";
for ($interface = 0; $interface < $max_nb_interfaces; $interface++) {
print $fh ($interface * 8 + 1).".0.0.240/5\n";
}
close $fh;
# Create routes configuration for use case 0 and 1
while ($nb_next_hops <= $max_nb_next_hops) {
my $nb_routes_per_interface = $nb_next_hops;
while ($nb_routes_per_interface <= $max_nb_routes) {
$output_route = "route.".$nb_routes_per_interface.".".$nb_next_hops.".txt";
open($fh, '>', $output_route) or die "Could not open file '$output_route' $!";
print $fh "# destination/prefix;nex-hop\n";
for (my $route_nb = 0; $route_nb < $nb_routes_per_interface; $route_nb++) {
for ($interface = 0; $interface < $max_nb_interfaces; $interface++) {
$a1 = $interface * 8 + 1 + (($route_nb & 1) << 2) + ($route_nb & 2);
$a2 = (($route_nb & 4) << 5) + (($route_nb & 8) << 1) + (($route_nb & 0x10) >> 1) + (($route_nb & 0x20) >> 4) + (($route_nb & 0x40) >> 6);
$a3 = (($route_nb & 0x80)) + (($route_nb & 0x100) >> 2) + (($route_nb & 0x200) >> 5) + (($route_nb & 0x400) >> 7) + (($route_nb & 0x800) >> 10) + (($route_nb & 0x1000) >> 12);
$a4 = 0;
print $fh $a1.".".$a2.".".$a3.".".$a4."/24;";
print $fh ($interface+64).".0.".(($route_nb % $nb_next_hops) >> 7).".".(1 + (($route_nb % $nb_next_hops) & 0x7f)) ."\n";
}
}
$nb_routes_per_interface = $nb_routes_per_interface * 2;
}
$nb_next_hops = $nb_next_hops * 2;
}
close $fh;
# Create routes configuration for use case 2
$output_route = "route.1.1.use_case_2.txt";
open($fh, '>', $output_route) or die "Could not open file '$output_route' $!";
print $fh "# destination/prefix;nex-hop\n";
for ($interface = 0; $interface < $max_nb_interfaces; $interface++) {
$a1 = $interface + 64 ;
$a2 = 0;
$a3 = 0;
$a4 = 0;
print $fh $a1.".".$a2.".".$a3.".".$a4."/24;";
print $fh ($interface * 8 + 1).".0.0.1\n";
}
close $fh;
|
