Speedup opam list on options that do not use availibility information

master_changes.md

@@ -52,6 +52,7 @@ users)
 
 ## List
   * ◈ Add a new `--latests-only` option to only list the latest packages [#5375 @kit-ty-kate]
+  * Speedup `opam list` on options that do not use availibility information [#5317 @kit-ty-kate - fix #5314]
 
 ## Show
 

src/client/opamCommands.ml

@@ -750,7 +750,8 @@ let list ?(force_search=false) cli =
     let results =
       OpamListCommand.filter ~base:all st filter
     in
-    if not no_depexts && not silent then
+    if not no_depexts && not silent &&
+       OpamFormula.exists OpamListCommand.uses_depexts state_selector then
       (let drop_by_depexts =
          List.fold_left (fun missing str ->
              let is_missing pkgs =

src/client/opamListCommand.ml

@@ -217,6 +217,30 @@ let pattern_selector patterns =
               Atom (Pattern (version_patt, version))])
         patterns)
 
+let uses_depexts = function
+  | Any
+  | Installed
+  | Root
+  | Compiler
+  | Pinned
+  | Latests_only
+  | Pattern _
+  | Atoms _
+  | Flag _
+  | NotFlag _
+  | Tag _
+  | From_repository _
+  | Owns_file _
+    -> false
+  | Available
+  | Installable
+  | Depends_on _
+  | Required_by _
+  | Conflicts_with _
+  | Coinstallable_with _
+  | Solution _
+    -> true
+
 let apply_selector ~base st = function
   | Any -> base
   | Installed -> st.installed

src/client/opamListCommand.mli

@@ -63,6 +63,10 @@ type selector =
   | From_repository of repository_name list
   | Owns_file of filename
 
+(** Returns [true] if the selector might require depexts availibility
+    information when applied using {!filter}. Returns [false] otherwise. *)
+val uses_depexts : selector -> bool
+
 (** Applies a formula of selectors to filter the package from a given switch
     state *)
 val filter: