+static int global_list_loop_function(struct osl_row *row, void *data)
+{
+ struct global_list_info *gli = data;
+ union atom_value values[] = {
+ [gla_size] = {.num_value = 0ULL},
+ [gla_files] = {.num_value = 0ULL},
+ [gla_dirname] = {.string_value = NULL}
+ };
+ uint64_t num_files, num_bytes;
+ char *dirname = NULL, *buf;
+ int ret;
+
+ check_signals();
+ ret = -E_LOOP_COMPLETE;
+ if (!gli->count)
+ goto err;
+
+ ret = get_dir_name_of_row(row, &dirname);
+ if (ret < 0)
+ goto err;
+ if (!dir_is_admissible(dirname, gli->preg, gli->inverse_matching)) {
+ free(dirname);
+ return 1;
+ }
+ values[gla_dirname].string_value = dirname;
+
+ ret = get_num_files_of_row(row, &num_files);
+ if (ret < 0)
+ goto err;
+ values[gla_files].num_value = (long long unsigned)num_files;
+
+ ret = get_num_bytes_of_row(row, &num_bytes);
+ if (ret < 0)
+ goto err;
+ values[gla_size].num_value = (long long unsigned)num_bytes;
+
+ buf = format_items(gli->fi, values);
+ free(dirname);
+ dirname = NULL;
+ ret = output("%s", buf);
+ free(buf);
+ if (ret < 0)
+ goto err;
+ if (gli->count > 0)
+ gli->count--;
+ return ret;
+err:
+ free(dirname);
+ gli->ret = ret;
+ gli->osl_errno = (ret == -E_OSL)? osl_errno : 0;
+ return -1;
+}
+
+static int print_global_list(struct format_info *fi)
+{
+ int ret;
+ enum dir_table_columns sort_column;
+ struct global_list_info gli = {
+ .fi = fi,
+ .count = select_conf.limit_arg
+ };
+ char *header = select_conf.header_given?
+ select_conf.header_arg : "Global list\n";
+
+ ret = output("%s", header);
+ if (ret < 0)
+ return ret;
+ if (select_conf.list_sort_arg == list_sort_arg_file_count)
+ sort_column = DT_FILES;
+ else
+ sort_column = DT_BYTES;
+ ret = compile_regex(&gli.preg, &gli.inverse_matching);
+ if (ret < 0)