/** @file query_sysenv.c
 *
 *  Primary file for the ENVIRONMENT command
 */

// Copyright (C) 2014-2023 Sanford Rockowitz <rockowitz@minsoft.com>
// SPDX-License-Identifier: GPL-2.0-or-later

// #define SYSENV_QUICK_TEST_RUN 1

/** \cond */
#include "config.h"

// #define _GNU_SOURCE 1       // for function group_member
#include <assert.h>
#include <dirent.h>
#include <errno.h>
#include <string.h>
#include <sys/utsname.h>

#include "util/data_structures.h"
#include "util/edid.h"
#include "util/linux_util.h"
#include "util/report_util.h"
#include "util/string_util.h"
#include "util/subprocess_util.h"
#include "util/sysfs_i2c_util.h"
#include "util/sysfs_util.h"
#include "util/xdg_util.h"
#ifdef PROBE_USING_SYSTEMD
#include "util/systemd_util.h"
#endif
#ifdef USE_X11
#include "util/x11_util.h"
#endif
#ifdef ENABLE_UDEV
#include "util/udev_i2c_util.h"
#ifdef ENABLE_USB
#include "util/udev_usb_util.h"
#endif
#endif
/** \endcond */

#include "base/build_info.h"
#include "base/core.h"
#include "base/linux_errno.h"
#include "base/parms.h"
#include "base/rtti.h"

#include "i2c/i2c_execute.h"   // for i2c_forceable_slave_addr_flag
#include "i2c/i2c_sysfs.h"

#include "ddc/ddc_displays.h"     // for ddc_ensure_displays_detected()
#include "ddc/ddc_display_ref_reports.h"
#include "ddc/ddc_watch_displays.h"

#include "query_sysenv_access.h"
#include "query_sysenv_base.h"
#include "query_sysenv_dmidecode.h"
#include "query_sysenv_drm.h"
#include "query_sysenv_i2c.h"
#include "query_sysenv_logs.h"
#include "query_sysenv_modules.h"
#include "query_sysenv_procfs.h"
#include "query_sysenv_sysfs.h"
#include "query_sysenv_xref.h"

#include "query_sysenv.h"

// Default trace class for this file
static DDCA_Trace_Group TRACE_GROUP = DDCA_TRC_ENV;

/** Compile time and runtime checks of endianness.
 *
 *  \param depth logical indentation depth
 */
static void report_endian(int depth) {
   int d1 = depth+1;
   rpt_title("Byte order checks:", depth);

   bool is_bigendian = (*(uint16_t *)"\0\xff" < 0x100);
   rpt_vstring(d1, "Is big endian (local test):       %s", sbool(is_bigendian));

   rpt_vstring(d1, "WORDS_BIGENDIAN macro (autoconf): "
#ifdef WORDS_BIGENDIAN
         "defined"
#else
         "not defined"
#endif
         );
   rpt_vstring(d1, "__BYTE_ORDER__ macro (gcc):       "
#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
         "__ORDER_LITTLE_ENDIAN__"
#elif __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__
         "__ORDER_BIG_ENDIAN__"
#elif __BYTE_ORDER__ == __ORDER_PDP_ENDIAN__
         "__ORDER_PDP_ENDIAN__"
#else
         "unexpected value"
#endif
         );

#ifdef REDUNDANT
   __u32 i = 1;
   bool is_bigendian2 =  ( (*(char*)&i) == 0 );
   rpt_vstring(d1, "Is big endian (runtime test): %s", sbool(is_bigendian2));
#endif
}


//
// Higher level functions
//

/** Reports basic system information
 *
 * \param  accum  pointer to struct in which information is returned
 */
static void query_base_env(Env_Accumulator * accum) {
   int d0 = 0;
   int d1 = d0+1;
   int d2 = d0+2;

   rpt_vstring(d0, "ddcutil version: %s", get_full_ddcutil_version());
   rpt_nl();

   sysenv_rpt_file_first_line("/proc/version", NULL, 0);

   char * expected_architectures[] = {"x86_64", "i386", "i686", "armv7l", "aarch64", "ppc64",  NULL};
   // n. alternative command "arch" not found on Arch Linux
   // uname -m  machine hardware name
   // uname -p  processor type (non-portable)
   // uname -i  hardware platform (non-portable)
   accum->architecture   = execute_shell_cmd_one_line_result("uname -m");
   accum->distributor_id = execute_shell_cmd_one_line_result("lsb_release -s -i");  // e.g. Ubuntu, Raspbian
   char * release        = execute_shell_cmd_one_line_result("lsb_release -s -r");
   rpt_nl();
   rpt_vstring(d0, "Architecture:     %s", accum->architecture);
   rpt_vstring(d0, "Distributor id:   %s", accum->distributor_id);
   rpt_vstring(d0, "Release:          %s", release);

   if ( ntsa_find(expected_architectures, accum->architecture) >= 0) {
      rpt_vstring(d0, "Found a known architecture");
   }
   else {
      rpt_vstring(d0, "Unexpected architecture %s.  Please report.", accum->architecture);
   }

   accum->is_raspbian = accum->distributor_id && streq(accum->distributor_id, "Raspbian");
   accum->is_arm      = accum->architecture   &&
                        ( str_starts_with(accum->architecture, "arm") ||
                          str_starts_with(accum->architecture, "aarch")
                        );
   free(release);

#ifdef REDUNDANT
   rpt_nl();
   rpt_vstring(0,"/etc/os-release...");
   bool ok = execute_shell_cmd_rpt("grep PRETTY_NAME /etc/os-release", 1 /* depth */);
   if (!ok)
      rpt_vstring(1,"Unable to read PRETTY_NAME from /etc/os-release");
#endif

   rpt_nl();
   sysenv_rpt_file_first_line("/proc/cmdline", NULL, d0);

   if (get_output_level() >= DDCA_OL_VERBOSE) {
      rpt_nl();
      rpt_vstring(d0, "Compiler information:");
      rpt_vstring(d1, "C standard: %ld", __STDC_VERSION__);
#if defined(__GNUC__)
      rpt_vstring(d1, "gcc compatible compiler:");
      rpt_vstring(d2, "Compiler version: %d.%d.%d", __GNUC__, __GNUC_MINOR__, __GNUC_PATCHLEVEL__);
// not detecting clang (11/2018)
#if defined(__clang__)
      rpt_vstring(d2, "Clang version: %s", __clang_version__);
#endif
#else
      rpt_vstring(d1, "Not a gcc compatible compiler");
#endif

      rpt_nl();
      rpt_vstring(d0,"Processor information as reported by lscpu:");
        bool ok = execute_shell_cmd_rpt("lscpu", 1);
        if (!ok) {   // lscpu should always be there, but just in case:
           rpt_vstring(1, "Command lscpu not found");
           rpt_nl();
           rpt_title("Processor information from /proc/cpuinfo:", d0);
           // uniq because entries for each processor of a mulit-processor cpu
           execute_shell_cmd_rpt( "cat /proc/cpuinfo | grep vendor_id | uniq", d1);
           execute_shell_cmd_rpt( "cat /proc/cpuinfo | grep \"cpu family\" | uniq", d1);
           execute_shell_cmd_rpt( "cat /proc/cpuinfo | grep \"model[[:space:]][[:space:]]\" | uniq",  d1);   //  "model"
           execute_shell_cmd_rpt( "cat /proc/cpuinfo | grep \"model name\" | uniq",  d1);   // "model name"
       }

       rpt_nl();
        if (accum->is_arm) {
           rpt_vstring(d0, "Skipping dmidecode checks on architecture %s.", accum->architecture);
        }
        else {
           query_dmidecode();
        }

      rpt_nl();
      report_endian(d0);
   }
}


#ifdef OLD

/* Checks for installed packages i2c-tools and libi2c-dev
 */
static void query_packages() {
   rpt_multiline(0,
         "ddcutil requiries package i2c-tools.  Use both dpkg and rpm to look for it.",
          "While we're at it, check for package libi2c-dev which is used for building",
          "ddcutil.",
          NULL
         );

   bool ok;
   // n. apt show produces warning msg that format of output may change.
   // better to use dpkg
   rpt_nl();
   rpt_vstring(0,"Using dpkg to look for package i2c-tools...");
   ok = execute_shell_cmd_rpt("dpkg --status i2c-tools", 1);
   if (!ok)
      rpt_vstring(0,"dpkg command not found");
   else {
      execute_shell_cmd_rpt("dpkg --listfiles i2c-tools", 1);
   }

   rpt_nl();
   rpt_vstring(0,"Using dpkg to look for package libi2c-dev...");
   ok = execute_shell_cmd_rpt("dpkg --status libi2c-dev", 1);
   if (!ok)
      rpt_vstring(0,"dpkg command not found");
   else {
      execute_shell_cmd_rpt("dpkg --listfiles libi2c-dev", 1);
   }

   rpt_nl();
   rpt_vstring(0,"Using rpm to look for package i2c-tools...");
   ok = execute_shell_cmd_rpt("rpm -q -l --scripts i2c-tools", 1);
   if (!ok)
      rpt_vstring(0,"rpm command not found");
}
#endif


static void execute_cmd(int depth, const char * cmd) {
   char * msgbuf = g_strdup_printf("Executing: %s", cmd);
   rpt_label(depth, msgbuf);
   free(msgbuf);
   // bool ok =
   execute_shell_cmd_rpt(cmd, depth+1);
   // if (!ok)
   //    rpt_label(depth, "Command failed");
}


/* Performs checks specific to the nvidia and fglrx proprietary video drivers.
 *
 * Arguments:
 *    driver list    list of loaded drivers
 *
 * Returns:          nothing
 */
static void driver_specific_tests(struct driver_name_node * driver_list) {
   rpt_vstring(0,"Performing driver specific checks...");
   bool found_driver_specific_checks = false;

   if (driver_name_list_find_prefix(driver_list, "nvidia")) {
      found_driver_specific_checks = true;
      rpt_nl();
      rpt_vstring(0,"Checking for special settings for proprietary Nvidia driver ");
      rpt_vstring(0,"(Needed for some newer Nvidia cards).");
      execute_shell_cmd_rpt("grep -iH i2c /etc/X11/xorg.conf /etc/X11/xorg.conf.d/*", 1);
      execute_cmd(1,"grep -iH nvidia modprobe.conf modprobe.d/*");
      execute_cmd(1,"grep RegistryDwords /proc/driver/nvidia/params");
   }

   if (driver_name_list_find_prefix(driver_list, "fglrx")) {
      found_driver_specific_checks = true;
      rpt_nl();
      rpt_vstring(0,"Performing ADL specific checks...");
      rpt_vstring(0,"WARNING: Using AMD proprietary video driver fglrx but ddcutil built without ADL support");
   }

   if (!found_driver_specific_checks)
      rpt_vstring(0,"No driver specific checks apply.");
}


#ifdef USE_X11
//
// Using X11 API
//

/* Reports EDIDs known to X11
 *
 * Arguments:    none
 *
 * Returns:      nothing
 */
void query_x11() {
   GPtrArray* edid_recs = get_x11_edids();
   rpt_nl();
   rpt_vstring(0,"*** EDIDs reported by X11 for connected xrandr outputs ***");
   // DBGMSG("Got %d X11_Edid_Recs\n", edid_recs->len);

   for (int ndx=0; ndx < edid_recs->len; ndx++) {
      X11_Edid_Rec * prec = g_ptr_array_index(edid_recs, ndx);
      // printf(" Output name: %s -> %p\n", prec->output_name, prec->edid);
      // hex_dump(prec->edid, 128);
      rpt_vstring(1, "xrandr output: %s", prec->output_name);
      Byte * edidbytes = prec->edidbytes;

#ifdef SYSENV_TEST_IDENTICAL_EDIDS
      // for testing case of monitors with same EDID
      if (first_edid) {
         edidbytes = first_edid;
         DBGMSG("Forcing duplicate EDID");
      }
#endif

      rpt_label  (2, "Raw EDID:");
      rpt_hex_dump(edidbytes, 128, 2);
      Parsed_Edid * parsed_edid = create_parsed_edid2(edidbytes, "X11");
      if (parsed_edid) {
         report_parsed_edid_base(
               parsed_edid,
               true,   // verbose
               false,  // show_hex
               2);     // depth
         free_parsed_edid(parsed_edid);
      }
      else {
         rpt_label(2, "Unable to parse EDID");
         // printf(" Unparsable EDID for output name: %s -> %p\n", prec->output_name, prec->edidbytes);
         // hex_dump(prec->edidbytes, 128);
      }

      // Device_Id_Xref * xref = device_xref_get(prec->edidbytes);
      Device_Id_Xref * xref = device_xref_find_by_edid(edidbytes);
      if (xref) {
         xref->xrandr_name = strdup(prec->output_name);
         if (xref->ambiguous_edid) {
            rpt_vstring(2, "Multiple displays have same EDID ...%s", xref->edid_tag);
            rpt_vstring(2, "xrandr name in device cross reference table may be incorrect.");
         }
      }
      else {
         DBGMSG("EDID not found");
      }
      rpt_nl();
   }
   free_x11_edids(edid_recs);

   // Display * x11_disp = open_default_x11_display();
   // GPtrArray *  outputs = get_x11_connected_outputs(x11_disp);
   // close_x11_display(x11_disp);
}
#endif


static void query_using_shell_command(Byte_Value_Array i2c_device_numbers,
                const char * pattern,
                const char * command_name)
{
   assert(i2c_device_numbers);

   int d0 = 0;
   int d1 = 1;

   rpt_vstring(d0,"Examining I2C buses using %s... ", command_name);
   sysenv_rpt_current_time(NULL, d1);

   if (bva_length(i2c_device_numbers) == 0) {
      rpt_vstring(d1, "No I2C buses found");
   }
   else {
      for (int ndx=0; ndx< bva_length(i2c_device_numbers); ndx++) {
         int busno = bva_get(i2c_device_numbers, ndx);
         if (sysfs_is_ignorable_i2c_device(busno)) {
            rpt_nl();
            rpt_vstring(d1, "Device /dev/i2c-%d is a SMBus or other ignorable device."
                            "  Skipping %s.", busno, command_name);
         }
         else {
            char cmd[200];
            snprintf(cmd, 200, pattern, busno);
           //    "udevadm info --attribute-walk --path=$(udevadm info --query=path --name=i2c-%d)", busno);
            rpt_nl();
            rpt_vstring(d1,"Probing bus /dev/i2c-%d using command \"%s\"", busno, cmd);
            int rc = execute_shell_cmd_rpt(cmd, 2 /* depth */);
            // DBGMSG("execute_shell_cmd(\"%s\") returned %d", cmd, rc);
            if (rc != 1) {
               rpt_vstring(d1,"%s command unavailable", command_name);
               break;
            }
         }
      }
   }
}

#ifdef ENABLE_UDEV
/** Queries UDEV for devices in subsystem "i2c-dev".
 *  Also looks for devices with name attribute "DPMST"
 */
static void probe_i2c_devices_using_udev() {
   bool debug = false;
   DBGTRC_STARTING(debug, TRACE_GROUP, "");
   char * subsys_name = "i2c-dev";
   rpt_vstring(0,"*** Probe I2C devices using udev, susbsystem %s ***", subsys_name);
   sysenv_rpt_current_time(NULL, 1);
   // probe_udev_subsystem() is in udev_util.c, which is only linked in if USE_USB

   // Detailed scan of I2C device information.   TMI
   // probe_udev_subsystem(subsys_name, /*show_usb_parent=*/ false, 1);

   rpt_nl();
   GPtrArray * summaries = get_i2c_devices_using_udev();
   report_i2c_udev_device_summaries(summaries, "Summary of udev I2C devices",1);

   for (int ndx = 0; ndx < summaries->len; ndx++) {
      Udev_Device_Summary * summary = g_ptr_array_index(summaries, ndx);
      assert( memcmp(summary->marker, UDEV_DEVICE_SUMMARY_MARKER, 4) == 0);
      int busno = udev_i2c_device_summary_busno(summary);
      Device_Id_Xref * xref = device_xref_find_by_busno(busno);
      if (xref) {
         xref->udev_name = strdup(summary->sysattr_name);
         xref->udev_syspath = strdup(summary->devpath);
         xref->udev_busno = busno;
      }
      else {
         // DBGMSG("Device_Id_Xref not found for busno %d", busno);
      }
   }
   free_udev_device_summaries(summaries);   // ok if summaries == NULL

   rpt_nl();
   char * nameattr = "DPMST";
   rpt_vstring(0,"Looking for udev devices with name attribute %s...", nameattr);
   summaries = find_devices_by_sysattr_name(nameattr);
   report_i2c_udev_device_summaries(summaries, "Summary of udev DPMST devices...",1);
   free_udev_device_summaries(summaries);   // ok if summaries == NULL
   rpt_nl();

   DBGTRC_DONE(debug, TRACE_GROUP, "");
}
#endif


void rpt_module_status(int depth, const char * module_name) {
   int module_status =  module_status_using_libkmod(module_name);
   switch( module_status) {
   case KERNEL_MODULE_NOT_FOUND:    // 0
      rpt_vstring(depth,"Kernel module %-16s not found", module_name);
      break;
   case KERNEL_MODULE_BUILTIN:      // 1
      rpt_vstring(depth,"Kernel module %-16s is builtin", module_name);
      break;
   case KERNEL_MODULE_LOADABLE_FILE: // 2
      if (is_module_loaded_using_libkmod(module_name))
         rpt_vstring(depth, "Kernel module %-16s is loaded", module_name);
      else
         rpt_vstring(depth, "Kernel module %-16s found but not loaded", module_name);
      break;
   default:
      rpt_vstring(depth, "Error %s from module_status_using_libkmod() for %s",
                  psc_desc(module_status), module_name);
      break;
   }
}


void query_loaded_modules_using_libkmod() {
   rpt_vstring(0,"*** Checking if modules are loaded or builtin... ***");

   char ** pmodule_names = get_known_video_driver_module_names();
   char * curmodule;
   int ndx;
   for (ndx=0; (curmodule=pmodule_names[ndx]) != NULL; ndx++) {
      rpt_module_status(1, curmodule);
   }
   pmodule_names = get_other_driver_module_names();
   for (ndx=0; (curmodule=pmodule_names[ndx]) != NULL; ndx++) {
      rpt_module_status(1, curmodule);
   }
}


static GPtrArray * get_path_application_files(const char * path, const char * application) {
   GPtrArray * fqfns = g_ptr_array_new_with_free_func(free);
   Null_Terminated_String_Array dirs = strsplit(path, ":");
   char * dirname;
   for (int ndx = 0; (dirname=dirs[ndx]); ndx++) {
      char * appdir = (dirname[strlen(dirname)-1] == '/')
              ? g_strdup_printf("%s%s",  dirname, application)
              : g_strdup_printf("%s/%s", dirname, application);
      DIR * d = opendir(appdir);
      if (d) {
         struct dirent *directory_entry;
         while ((directory_entry = readdir(d)) != NULL) {
            // printf("%s\n", directory_entry->d_name);
            if (directory_entry->d_type == DT_REG) {
               char * fq_name = g_strdup_printf("%s/%s", appdir, directory_entry->d_name);
               g_ptr_array_add(fqfns, fq_name);
            }
         }
         closedir(d);
      }
      free(appdir);
   }
   ntsa_free(dirs, true);
   return fqfns;
}


static void query_xdg_files(int depth) {
   int d1 = depth+1;
   int d2 = depth+2;
   int d3 = depth+3;

   rpt_label(depth, "*** XDG Directory Settings ***");

   rpt_label(d1, "XDG Base Directory Environment Variables:");
   rpt_vstring(d2, "$%-15s: %s", "XDG_DATA_HOME",   getenv("XDG_DATA_HOME"));
   rpt_vstring(d2, "$%-15s: %s", "XDG_CONFIG_HOME", getenv("XDG_CONFIG_HOME"));
   rpt_vstring(d2, "$%-15s: %s", "XDG_STATE_HOME",  getenv("XDG_STATE_HOME"));
   rpt_vstring(d2, "$%-15s: %s", "XDG_CACHE_HOME",  getenv("XDG_CACHE_HOME"));
   rpt_vstring(d2, "$%-15s: %s", "XDG_DATA_DIRS",   getenv("XDG_DATA_DIRS"));
   rpt_vstring(d2, "$%-15s: %s", "XDG_CONFIG_DIRS", getenv("XDG_CONFIG_DIRS"));
   rpt_nl();

   rpt_label(depth, "XDG Utility Functions:");
   char * s = NULL;
   s = xdg_data_home_dir();   rpt_vstring(d2, "xdg_data_home_dir():      %s", s);  free(s);
   s = xdg_config_home_dir(); rpt_vstring(d2, "xdg_config_home_dir():    %s", s);  free(s);
   s = xdg_cache_home_dir();  rpt_vstring(d2, "xdg_cache_home_dir():     %s", s);  free(s);
   s = xdg_state_home_dir();  rpt_vstring(d2, "xdg_state_home_dir():     %s", s);  free(s);
   s = xdg_data_path();       rpt_vstring(d2, "xdg_data_path():          %s", s);  free(s);
   s = xdg_config_path();     rpt_vstring(d2, "xdg_config_path():        %s", s);  free(s);
   rpt_nl();

   rpt_label(depth, "*** ddcutil Configuration, Cache, and Data files ***");
   char * config_fn = find_xdg_config_file("ddcutil", "ddcutilrc");
   rpt_nl();
   if (config_fn) {
      rpt_vstring(d1, "Found configuration file: %s", config_fn);
      rpt_file_contents(config_fn, /*verbose=*/ true, d2);
      free(config_fn);
   }
   else
      rpt_label(d1, "Configuration file ddcutilrc not found");
   rpt_nl();

   char * cache_fn = find_xdg_cache_file("ddcutil", "capabilities");
   if (cache_fn) {
      rpt_vstring(d1, "Found capabilities cache file: %s", cache_fn);
      rpt_file_contents(cache_fn, /*verbose=*/ true, d2);
      free(cache_fn);
   }
   else
      rpt_label(d1, "Capabilities cache file not found");
   rpt_nl();

   rpt_label(d1, "Files on data path:");
   char * data_path = xdg_data_path();
   GPtrArray * data_files = get_path_application_files(data_path, "ddcutil");
   for (int ndx = 0; ndx < data_files->len; ndx++) {
      char * fn = g_ptr_array_index(data_files, ndx);
      rpt_label(d2, fn);
      if (str_ends_with(fn, ".mccs")) {
         rpt_file_contents(fn, /*verbose=*/ true, d3);
         rpt_nl();
      }
   }
   free(data_path);
   g_ptr_array_free(data_files, true);
   rpt_nl();
}


/** Analyze collected environment information, Make suggestions.
 *
 * \param accum  accumulated environment information
 * \param depth  logical indentation depth
 */
void final_analysis(Env_Accumulator * accum, int depth) {
   int d1 = depth + 1;
   int d2 = depth + 2;
   int d3 = depth + 3;

   // for testing:
   // accum->dev_i2c_common_group_name = NULL;
   // accum->module_i2c_dev_loaded_or_builtin = false;
   // accum->cur_user_all_devi2c_rw = false;
   // accum->all_dev_i2c_is_group_rw = false;

   bool odd_groups = accum->dev_i2c_common_group_name &&
                    !streq(accum->dev_i2c_common_group_name, "root") &&
                    !streq(accum->dev_i2c_common_group_name, "i2c");

   bool msg_issued = false;
   rpt_vstring(depth, "Configuration suggestions:");

   if (odd_groups) {
      rpt_label  (d1, "Issue:");
      rpt_label  (d2, "/dev/i2c-N devices have non-standard or varying group names.");
      rpt_label  (d2, "Suggestions are incomplete.");
      rpt_nl();
      msg_issued = true;
   }

   // TODO: Also compare dev_i2c_devices vs sys_bus_i2c_devices ?
   assert(accum->dev_i2c_device_numbers);    // already set
   if (bva_length(accum->dev_i2c_device_numbers) == 0 &&
       accum->module_i2c_dev_needed &&
       !accum->i2c_dev_loaded_or_builtin)
   {
      rpt_label  (d1, "Issue:");
      rpt_label  (d2, "No /dev/i2c-N devices found.");
      rpt_vstring(d2, "%sI2C devices exist in /sys/bus/i2c", (accum->sysfs_i2c_devices_exist) ? "" : "No ");
      rpt_label  (d2, "Module dev-i2c is required.");
      rpt_label  (d2, "Module dev-i2c is not loaded");
      rpt_label  (d1, "Suggestion:");
      rpt_label  (d2, "Manually load module i2c-dev using the command:");
      rpt_label  (d3, "sudo modprobe i2c-dev");
      rpt_label  (d2,  "If this solves the problem, put an entry in directory /etc/modules-load.d");
      rpt_label  (d2, "that will cause i2c-dev to be loaded.  Type \"man modules-load.d\" for details");
      rpt_nl();
      msg_issued = true;
   }

   else {
      if (accum->cur_user_all_devi2c_rw) {   // n. will be true if no /dev/i2c-N devices exist
         rpt_label(d1, "Current user has RW access to all /dev/i2c-N devices.");
         rpt_label(d1, "Skipping further group and permission checks.");
         rpt_nl();
         msg_issued = true;
      }
      else {
         if (accum->cur_user_any_devi2c_rw) {
            rpt_label  (d1,   "Issue:");
            rpt_multiline(d2, "Current user has RW access to some but not all /dev/i2c-N devices.",
                              "If there is RW access to at least the /dev/i2c-N devices for connected monitors,",
                              "this is not a problem.",
                              "Remaining suggestions assume RW access is still to be established.",
                              "",
                              NULL
                             );
            msg_issued = true;
         }
         if (!accum->group_i2c_exists) {
            rpt_label  (d1, "Issue:");
            rpt_label  (d2, "Group i2c does not exist.");
            rpt_label  (d1, "Suggestion:");
            rpt_label  (d2, "Create group i2c. To create group i2c, use command:");
            rpt_label  (d3, "sudo groupadd --system i2c");
            rpt_label  (d2, "Assign /dev/i2c-N devices to group i2c by adding a rule to /etc/udev/rules.d");
            rpt_label  (d2, "Add the current user to group i2c:");
            rpt_label  (d3,  "sudo usermod -G i2c -a <username>");
            rpt_label  (d2, "After this, you will have to logout and login again.");
            rpt_label  (d2, "The changes to the user's group list are not read until a new login.");
            rpt_nl();
            msg_issued = true;
         }
         else {  // group i2c exists
            if (!accum->all_dev_i2c_has_group_i2c) {
               // Punt on odd case were some but not all /dev/i2c-N devices are in group i2c
               if (accum->any_dev_i2c_has_group_i2c) {
                  rpt_label  (d1,   "Issue:");
                  rpt_multiline(d2, "Some but not all /dev/i2c-N devices have group i2c.",
                                    "If the /dev/i2c-N devices for connected monitors have group i2c,"
                                    "this is not a problem. Remaining suggestions assume /dev/i2c-N "
                                    "devices require assignment to group i2c.",
                                    "",
                                    NULL
                                   );
                  // msg_issued = true;     // redundant, clang complains
               }

               rpt_label  (d1, "Issue:");
               rpt_label  (d2, "/dev/i2c-N devices not assigned to group i2c");
               rpt_label  (d1, "Suggestion:");
               rpt_label  (d2, "Assign /dev/i2c-N devices to group i2c by adding or editing a rule");
               rpt_label  (d2, "in /etc/udev/rules.d");
               rpt_nl();
               msg_issued = true;
            }
            // handle case of /dev/i2c-N devices have group i2c, but not RW

            if (!accum->cur_user_in_group_i2c) {
               rpt_label  (d1, "Issue:");
               rpt_label  (d2, "Current user is not a member of group i2c");
               rpt_label  (d1, "Suggestion:");
               rpt_label  (d2, "Execute command:");
               rpt_vstring(d3, "sudo usermod -G i2c -a %s", accum->cur_uname);
               rpt_label  (d2, "After this, you will have to logout and login again.");
               rpt_label  (d2, "The changes to the user's group list are not read until a new login.");
               rpt_nl();
               msg_issued = true;
            }
         }

         if (!accum->all_dev_i2c_is_group_rw && !streq(accum->dev_i2c_common_group_name, "root")) {
            rpt_label  (d1, "Issue:");
            rpt_label  (d2, "At least some /dev/i2c-N devices do not have group RW permission.");
            rpt_label  (d1, "Suggestion:");
            rpt_label  (d2, "Set group RW access to /dev/i2c-N devices by adding or editing a rule");
            rpt_label  (d2, "in /etc/udev/rules.d");
            rpt_nl();
            msg_issued = true;
         }
      }
   }

   if (!msg_issued) {
      rpt_vstring(d1, "None");
      rpt_nl();
   }
}

//
// Mainline
//

/* Master function to query the system environment
 *
 * Arguments:    none
 *
 * Returns:      nothing
 */
void query_sysenv() {
   bool debug = false;
   DBGTRC_STARTING(debug, TRACE_GROUP, "");
   rpt_label(0,
       "The following tests probe the runtime environment using multiple overlapping methods.");

   char * s = getenv("SYSENV_QUICK_TEST");
   if (s && strlen(s) > 0) {
      sysfs_quick_test = true;
      rpt_label(0, "Environment variable SYSENV_QUICK_TEST is set.  Skipping some tests.");
   }
   else if (get_output_level() >= DDCA_OL_VERBOSE) {
      rpt_label(0, "Set environment variable SYSENV_QUICK_TEST to skip some long-running tests.");
   }

   i2c_forceable_slave_addr_flag = true;    // be a bully

   ddc_ensure_displays_detected();
   DBGTRC_NOPREFIX(debug, TRACE_GROUP, "display detection complete");
   device_xref_init();

   Env_Accumulator * accumulator = env_accumulator_new();
   DDCA_Output_Level output_level = get_output_level();
   if (output_level >= DDCA_OL_VERBOSE) {
      sysenv_rpt_current_time(NULL, 1);
      rpt_nl();
   }

   if (output_level >= DDCA_OL_VERBOSE) {
      report_build_options(0);
      rpt_nl();
   }

   rpt_vstring(0,"*** Basic System Information ***");
   rpt_nl();

   query_base_env(accumulator);
   rpt_nl();

   rpt_vstring(0,"*** Primary Check 1: Identify video card and driver ***");
   rpt_nl();
   query_card_and_driver_using_sysfs(accumulator);
   rpt_nl();

   rpt_vstring(0,"*** Primary Check 2: Check that /dev/i2c-* exist and writable ***");
   rpt_nl();
   accumulator->dev_i2c_device_numbers = identify_i2c_devices();
   assert(accumulator->dev_i2c_device_numbers);
   // redundant
   // rpt_vstring(0, "Identified %d I2C devices", bva_length(accumulator->dev_i2c_device_numbers));
   // rpt_nl();
   check_i2c_devices(accumulator);
   rpt_nl();

   rpt_vstring(0,"*** Primary Check 3: Check that module i2c_dev is loaded ***");
   rpt_nl();
   check_i2c_dev_module(accumulator, 0);
   rpt_nl();

   rpt_vstring(0,"*** Primary Check 4: Driver specific checks ***");
   rpt_nl();
   driver_specific_tests(accumulator->driver_list);

   // TODO: move to end of function
   // Free the driver list created by query_card_and_driver_using_sysfs()
   // free_driver_name_list(accumulator->driver_list);
   // driver_list = NULL;

#ifdef OLD
   rpt_nl();
   rpt_vstring(0,"*** Primary Check 5: Installed packages ***");
   rpt_nl();
   query_packages();
   rpt_nl();
#endif

   rpt_nl();

   rpt_vstring(0,"*** Additional probes ***");
   rpt_nl();
   query_sys_bus_i2c(accumulator);
   rpt_nl();

   env_accumulator_report(accumulator, 0);
   rpt_nl();

   final_analysis(accumulator, 0);

   if (output_level >= DDCA_OL_VERBOSE) {
      rpt_nl();
      rpt_nl();
      rpt_label(0, "*** Additional checks for remote diagnosis ***");
      rpt_nl();

      rpt_vstring(0, "*** Displays as reported by DETECT Command ***");
      /* int display_ct =  */ ddc_report_displays(     // function used by DETECT command
                                 true,   // include_invalid_displays
                                 1);     // logical depth
      // printf("Detected: %d displays\n", display_ct);   // not needed

      query_loaded_modules_using_libkmod();
      rpt_nl();

      // printf("Gathering card and driver information...\n");
      query_proc_modules_for_video();
      if (!accumulator->is_arm) {
         // rpt_nl();
         // query_card_and_driver_using_lspci();
         //rpt_nl();
         //query_card_and_driver_using_lspci_alt();
      }
      rpt_nl();

      if ( driver_name_list_find_exact(accumulator->driver_list, "nvidia")) {
         query_proc_driver_nvidia();
         rpt_nl();
      }
      if (driver_name_list_find_exact(accumulator->driver_list, "amdgpu")) {
         rpt_vstring(0, "amdgpu configuration parameters:");
         query_sys_amdgpu_parameters(1);
         rpt_nl();
      }

      rpt_vstring(0, "Checking display manager environment variables...");
      char * s = getenv("DISPLAY");
      rpt_vstring(1, "DISPLAY=%s", (s) ? s : "(not set)");
      s = getenv("WAYLAND_DISPLAY");
      rpt_vstring(1, "WAYLAND_DISPLAY=%s", (s) ? s : "(not set)");
      s = getenv("XDG_SESSION_TYPE");
      rpt_vstring(1, "XDG_SESSION_TYPE=%s", (s) ? s : "(not set)");
      rpt_nl();

      query_i2c_buses();
      rpt_nl();

      rpt_vstring(0,"xrandr connection report:");
      execute_shell_cmd_rpt("xrandr|grep connected", 1 /* depth */);
      rpt_nl();

      rpt_vstring(0,"Checking for possibly conflicting programs...");
      execute_shell_cmd_rpt("ps aux | grep ddccontrol | grep -v grep", 1);
      rpt_nl();
      execute_shell_cmd_rpt("lsmod | grep ddcci | grep -v grep", 1);
      rpt_nl();

      if (sysfs_quick_test)
         DBGMSG("!!! Skipping i2cdetect and get-edid|parse-edid to speed up testing !!!");
      else {
         query_using_shell_command(accumulator->dev_i2c_device_numbers,
                                   "i2cdetect -y %d",   // command to issue
                                   "i2cdetect");        // command name for error message
         rpt_nl();
         query_using_shell_command(accumulator->dev_i2c_device_numbers,
                                   "get-edid -b %d -i | parse-edid",   // command to issue
                                   "get-edid | parse-edid");        // command name for error message

         if (get_output_level() >= DDCA_OL_VV) {
            DBGTRC_NOPREFIX(debug, TRACE_GROUP, "--VV only output: test_read_variants()");
            test_edid_read_variants(accumulator);
         }
      }
      raw_scan_i2c_devices(accumulator);

#ifdef USE_X11
      query_x11();
#endif

#ifdef ENABLE_UDEV
      probe_i2c_devices_using_udev();
#endif

      // temp
      // get_i2c_smbus_devices_using_udev();

      if (sysfs_quick_test)
         DBGMSG("!!! Skipping config file and log checking to speed up testing !!!");
      else {
         probe_config_files(accumulator);
         probe_logs(accumulator);
      }

#ifdef USE_LIBDRM
      probe_using_libdrm();
#else
      rpt_vstring(0, "Not built with libdrm support.  Skipping DRM related checks");
#endif

      query_drm_using_sysfs();
      rpt_nl();

      rpt_title("Query file system for i2c nodes under /sys/class/drm/card*...", 0);
      execute_shell_cmd_rpt("ls -ld /sys/class/drm/card*/card*/i2c*", 1);
      rpt_title("Query file system for i2c nodes under /sys/class/drm/card*/ddc/i2c-dev/...", 0);
      execute_shell_cmd_rpt("ls -ld /sys/class/drm/card*/card*/ddc/i2c-dev/i2c*", 1);

      device_xref_report(0);

      probe_modules_d(0);

      dump_sysfs_i2c();
      rpt_nl();

#ifdef OLD
      if (get_output_level() >= DDCA_OL_VV) {
         rpt_nl();
         rpt_label(0, "*** Calling get_sysfs_drm_card_numbers(), get_sysfs_drm_displays() from ddc_watch.c... ***");
         Byte_Bit_Flags drm_card_numbers = get_sysfs_drm_card_numbers();
         if (bbf_count_set(drm_card_numbers) > 0) {
            query_drm_using_sysfs();
         }
      }
#endif

#ifdef TMI
#ifdef ENABLE_UDEV
      if (get_output_level() >= DDCA_OL_VV) {
         rpt_nl();
         query_using_shell_command(accumulator->dev_i2c_device_numbers,
        //   "udevadm info --attribute-walk --path=$(udevadm info --query=path --name=i2c-%d)",
           "udevadm info --attribute-walk /dev/i2c-%d",
                                   "udevadm");
      }
#endif
#endif

      query_xdg_files(0);

      rpt_label(0, "*** environment command complete ***");
   }

   env_accumulator_free(accumulator);     // make Coverity happy
   DBGTRC_DONE(debug, TRACE_GROUP, "");
}


void init_sysenv() {
   RTTI_ADD_FUNC(query_sysenv);
#ifdef ENABLE_UDEV
   RTTI_ADD_FUNC(probe_i2c_devices_using_udev);
#endif
   init_query_sysfs();
}

