T5421: add arg to filter out subinterfaces

1 files changed, 14 insertions, 0 deletions

diff --git a/src/iface/list_interfaces.ml b/src/iface/list_interfaces.ml
index 2daa509..063e344 100644
--- a/src/iface/list_interfaces.ml
+++ b/src/iface/list_interfaces.ml
@@ -4,12 +4,14 @@ let intf_type = ref ""
 let broadcast = ref false
 let bridgeable = ref false
 let bondable = ref false
+let no_vlan = ref false
 
 let args = [
     ("--type", Arg.String (fun s -> intf_type := s), "List interfaces of specified type");
     ("--broadcast", Arg.Unit (fun () -> broadcast := true), "List broadcast interfaces");
     ("--bridgeable", Arg.Unit (fun () -> bridgeable := true), "List bridgeable interfaces");
     ("--bondable", Arg.Unit (fun () -> bondable := true), "List bondable interfaces");
+    ("--no-vlan-subinterfaces", Arg.Unit (fun () -> no_vlan := true), "List only parent interfaces");
 ]
 let usage = Printf.sprintf "Usage: %s [OPTIONS] <number>" Sys.argv.(0)
 
@@ -89,6 +91,14 @@ let filter_bondable s =
         true
     with Not_found -> false
 
+let filter_no_vlan s =
+    let pattern = {|^([^.]+)(\.\d+)+$|}
+    in
+    try
+        let _ = Pcre.exec ~pat:pattern s in
+        false
+    with Not_found -> true
+
 let get_interfaces =
     let intf_type = !intf_type in
     let fltr =
@@ -110,6 +120,10 @@ let get_interfaces =
         if !bondable then List.filter filter_bondable res
         else res
     in
+    let res =
+        if !no_vlan then List.filter filter_no_vlan res
+        else res
+    in
     let res = List.filter filter_section res in
     match fltr with
     | Some f -> List.filter f res