chiark / gitweb /
wip
[chiark-utils.git] / cprogs / xacpi-simple.c
index d18624f0bca51b00158766277eb3297266c20009..cd2a1c7f37f34a8633b211aae674eea68485991a 100644 (file)
  *
  * [1] battery must be quite badly degraded
  */
+/*
+ * Copyright (C) 2004 Ian Jackson <ian@davenant.greenend.org.uk>
+ *
+ * This is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation; either version 3,
+ * or (at your option) any later version.
+ *
+ * This is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public
+ * License along with this file; if not, consult the Free Software
+ * Foundation's website at www.fsf.org, or the GNU Project website at
+ * www.gnu.org.
+ */
 
 #include <stdio.h>
 #include <assert.h>
@@ -24,6 +42,7 @@
 #include <errno.h>
 #include <unistd.h>
 #include <ctype.h>
+#include <stdint.h>
 
 #include <sys/poll.h>
 #include <sys/types.h>
@@ -49,55 +68,66 @@ static void fail(const char *m) {
 }
 static void badusage(void) { fail("bad usage"); }
 
-#define CHGST_DISCHARGING 0 /* Reflects order in E(state,charging_state)  */
-#define CHGST_CHARGING    1 /*  in fields table.  Also, much code assumes */
-#define CHGST_CHARGED     2 /*  exactly these three possible states.      */
-#define CHGST_ERROR       8 /* Except that this one is an extra bit.      */
+typedef struct fileinfo fileinfo;
+struct fileinfo {
+  const char *filename;
+  void (*parse)(const fileinfo*);
+  const void *extra;
+};
 
-/*---------- structure of and results from /proc/acpi/battery/... ----------*/
+/*---------- structure of and results from /sys/class/power/... ----------*/
 /* variables thisbat_... are the results from readbattery();
  * if readbattery() succeeds they are all valid and not VAL_NOTFOUND
  */
 
 typedef struct batinfo_field {
-  const char *file;
   const char *label;
-  unsigned long *valuep;
-  const char *unit;
+  uint64_t *valuep;
   const char *enumarray[10];
 } batinfo_field;
 
-#define QUANTITY_FIELDS                                \
-  QF(info,  design_capacity,    "mWh")         \
-  QF(info,  last_full_capacity, "mWh")         \
-  QF(state, present_rate,       "mW")          \
-  QF(state, remaining_capacity, "mWh")         \
-  QF(alarm, alarm,              "mWh")
-
-#define QF(f,l,u) static unsigned long thisbat_##f##_##l;
-  QUANTITY_FIELDS
-#undef QF
-
-static unsigned long thisbat_alarm_present, thisbat_info_present;
-static unsigned long thisbat_state_present, thisbat_state_charging_state;
+#define UEVENT_QUANTITY_FIELDS(q)                              \
+  q(design_capacity,    CHARGE_FULL_DESIGN ) /* uAh */         \
+  q(last_full_capacity, CHARGE_FULL        ) /* uAh */         \
+  q(present_rate,       CURRENT_NOW        ) /* uA  */         \
+  q(remaining_capacity, CHARGE_NOW         ) /* uAh */         \
+  q(present,            PRESENT            ) /* boolean */     \
+  q(online,             ONLINE             ) /* boolean */
+
+#define UEVENT_ENUM_FIELDS(e)                                  \
+  e(type,    TYPE,    "Battery",     "Mains"                 ) \
+  e(state,   STATUS,  "Discharging", "Charging", "Charged"   )
+
+#define CHGST_DISCHARGING 0 /* Reflects order in e(state,...) above     */
+#define CHGST_CHARGING    1 /*  Also, much code assumes exadtly         */
+#define CHGST_CHARGED     2 /*  these three possible states.            */
+#define CHGST_ERROR       8 /* Except that this one is an extra bit.    */
+
+#define Q_FLD(f,l)        { "POWER_SUPPLY_" #l, &thisbat_##f },
+#define E_FLD(f,l,vl...)  { "POWER_SUPPLY_" #l, &thisbat_##f, { vl } },
+
+#define ALL_FIELDS(i)                          \
+  UEVENT_QUANTITY_FIELDS(i)                    \
+  UEVENT_ENUM_FIELDS(i)                                \
+  i(thisbat_alarm)
+
+#define F_VAR(f,...) static uint64_t thisbat_##f;
+  ALL_FIELDS(F_VAR)
+
+static const batinfo_field uevent_fields[]= {
+  UEVENT_QUANTITY_FIELDS(Q_FLD)
+  UEVENT_ENUM_FIELDS(E_FLD)
+  { 0 }
+};
 
 #define VAL_NOTFOUND (~0UL)
 
-static const batinfo_field fields[]= {
-#define E(f,l)       #f, #l, &thisbat_##f##_##l, 0
-#define QF(f,l,u)  { #f, #l, &thisbat_##f##_##l, u },
-  { E(alarm, present),           { "no", "yes" }                          },
-  { E(info, present),            { "no", "yes" }                          },
-  { E(state,present),            { "no", "yes" }                          },
-  { E(state,charging_state),     { "discharging", "charging", "charged" } },
-  QUANTITY_FIELDS           /* take care re charging_state values order -  */
-  { 0 }                     /* if you must change it, search for CHGST_... */
-#undef E
-#undef QF
+static const fileinfo files[]= {
+  { "uevent",  parse_fields,  uevent_fields },
+  { "alarm",   parse_boolean, &thisbat_alarm },
+  { 0 }
 };
 
-static const char *files[]= { "info", "state", "alarm" };
-
 /*---------- parsing of one battery in /proc/acpi/battery/... ----------*/
 
 /* variables private to the parser and its error handlers */
@@ -127,8 +157,8 @@ static int batfaile(const char *syscall, const char *target) {
 static void chdir_base(void) {
   int r;
   
-  r= chdir("/proc/acpi/battery");
-  if (r) batfaile("chdir","/proc/acpi/battery");
+  r= chdir("/sys/class/power_supply");
+  if (r) batfaile("chdir","/sys/class/power_supply");
 }
 
 static void tidybattery(void) {
@@ -136,21 +166,55 @@ static void tidybattery(void) {
   if (batdirname) { chdir_base(); batdirname=0; }
 }
 
+static void parse_fields(const fileinfo *cfile, char *batlinebuf) {
+  equals= strchr(batlinebuf,'=');
+  if (!equals)
+    return batfailf("line without a equals");
+  *equals++= 0;
+
+  for (field=fields; field->file; field++) {
+    if (!strcmp(field->label,batlinebuf))
+      goto found;
+  }
+  return;
+
+ found:
+  if (!field->enumarray[0]) {
+
+    *field->valuep= strtoull(equals,&ep,10);
+    if (*ep)
+      batfailf("value number syntax incorrect");
+
+  } else {
+       
+    for (*field->valuep=0, enumsearch=field->enumarray;
+        *enumsearch && strcmp(*enumsearch,equals);
+        (*field->valuep)++, enumsearch++);
+    if (!*enumsearch)
+      batfailf("unknown enum value");
+
+  }
+}
+
 static int readbattery(void) { /* 0=>ok, -1=>couldn't */
   const batinfo_field *field;
-  const char *const *cfilename, *const *enumsearch;
+  const fileinfo *cfile;
+  const char *const *enumsearch;
   char *colon, *ep, *sr, *p;
   int r, l, missing;
   
   r= chdir(batdirname);
   if (r) return batfaile("chdir",batdirname);
 
+#define V_NOTFOUND(f,...) thisbat_##f = VAL_NOTFOUND;
+  ALL_FIELDS(V_NOTFOUND)
+  
   for (field=fields; field->file; field++)
     *field->valuep= VAL_NOTFOUND;
 
-  for (cfilename=files;
-       (batfilename= *cfilename);
-       cfilename++) {
+  for (cfile=files;
+       (batfilename= cfile->filename);
+       cfile++++) {
     batfile= fopen(batfilename,"r");
     if (!batfile) return batfaile("open",batfilename);
 
@@ -165,46 +229,8 @@ static int readbattery(void) { /* 0=>ok, -1=>couldn't */
       if (batlinebuf[l-1] != '\n')
        return batfailf("line too long");
       batlinebuf[l-1]= 0;
-      colon= strchr(batlinebuf,':');
-      if (!colon)
-       return batfailf("line without a colon");
-      *colon= 0;
-
-      for (batlinevalue= colon+1;
-          *batlinevalue && isspace((unsigned char)*batlinevalue);
-          batlinevalue++);
-
-      if (!strcmp(batlinebuf,"ERROR"))
-       return batfailf("kernel reports error");
-
-      for (p=batlinebuf; p<colon; p++)
-       if (*p == ' ')
-         *p= '_';
-
-      for (field=fields; field->file; field++) {
-       if (!strcmp(field->file,batfilename) &&
-           !strcmp(field->label,batlinebuf))
-         goto label_interesting;
-      }
-      continue;
 
-    label_interesting:
-      if (field->unit) {
-
-       *field->valuep= strtoul(batlinevalue,&ep,10);
-       if (ep==batlinevalue || *ep!=' ')
-         batfailf("value number syntax incorrect");
-       if (strcmp(ep+1,field->unit)) batfailf("incorrect unit");
-
-      } else {
-       
-       for (*field->valuep=0, enumsearch=field->enumarray;
-            *enumsearch && strcmp(*enumsearch,batlinevalue);
-            (*field->valuep)++, enumsearch++);
-       if (!*enumsearch)
-         batfailf("unknown enum value");
-
-      }
+      cfile->parse(cfile, batlinebuf);
     }
 
     fclose(batfile);
@@ -212,8 +238,7 @@ static int readbattery(void) { /* 0=>ok, -1=>couldn't */
   }
 
   if (!(thisbat_alarm_present==0 ||
-       thisbat_info_present==0 ||
-       thisbat_state_present==0)) {
+       thisbat_state_present==0 || thisbat_info_present==0)) {
     if (thisbat_alarm_present == VAL_NOTFOUND)
       thisbat_alarm_present= 1;
     
@@ -327,6 +352,8 @@ static void initacquire(void) {
   GC(empty)
 
 static XrmDatabase xrm;
+static Display *disp;
+static int screen;
 
 static const char defaultresources[]=
 #define GC(g)
@@ -350,19 +377,6 @@ static const XrmOptionDescRec optiontable[]= {
 #undef C
 };
 
-static void parseargs(int argc, char **argv) {
-  XrmInitialize();
-
-  xrm= XrmGetStringDatabase((char*)defaultresources);
-  if (!xrm) fail("xrmgetstringdatabase");
-  
-  XrmParseCommand(&xrm, (XrmOptionDescRec*)optiontable,
-                 sizeof(optiontable)/sizeof(*optiontable),
-                 program_name, &argc, argv);
-
-  /*  if (argc>0) badusage();*/
-} 
-
 static const char *getresource(const char *want) {
   char name_buf[256], class_buf[256];
   XrmValue val;
@@ -379,13 +393,44 @@ static const char *getresource(const char *want) {
   return val.addr;
 }
 
+static void more_resources(const char *str, const char *why) {
+  XrmDatabase more;
+
+  if (!str) return;
+
+  more= XrmGetStringDatabase((char*)str);
+  if (!more) fail(why);
+  XrmCombineDatabase(more,&xrm,0);
+}
+
+static void parseargs(int argc, char **argv) {
+  Screen *screenscreen;
+  
+  XrmInitialize();
+
+  XrmParseCommand(&xrm, (XrmOptionDescRec*)optiontable,
+                 sizeof(optiontable)/sizeof(*optiontable),
+                 program_name, &argc, argv);
+
+  if (argc>1) badusage();
+
+  disp= XOpenDisplay(getresource("display"));
+  if (!disp) fail("could not open display");
+
+  screen= DefaultScreen(disp);
+
+  screenscreen= ScreenOfDisplay(disp,screen);
+  if (!screenscreen) fail("screenofdisplay");
+  more_resources(XScreenResourceString(screenscreen), "screen resources");
+  more_resources(XResourceManagerString(disp), "display resources");
+  more_resources(defaultresources, "default resources");
+} 
+
 /*---------- display ----------*/
 
-static Display *disp;
 static Window win;
 static int width, height;
 static Colormap cmap;
-static int screen;
 static unsigned long lastbackground;
 
 typedef struct {
@@ -510,7 +555,7 @@ static void colour(unsigned long *pix_r, const char *whichcolour) {
 }
 
 static void initgraphics(int argc, char **argv) {
-  int r;
+  int xwmgr, r;
   const char *geom_string;
   XSizeHints *normal_hints;
   XWMHints *wm_hints;
@@ -520,11 +565,6 @@ static void initgraphics(int argc, char **argv) {
   
   program_name_silly= (char*)program_name;
 
-  disp= XOpenDisplay(getresource("display"));
-  if (!disp) fail("could not open display");
-
-  screen= DefaultScreen(disp);
-
   normal_hints= XAllocSizeHints();
   wm_hints= XAllocWMHints();
   class_hint= XAllocClassHint();
@@ -534,7 +574,7 @@ static void initgraphics(int argc, char **argv) {
 
   geom_string= getresource("geometry");
 
-  r= XWMGeometry(disp,screen, geom_string,"128x32", 0,
+  xwmgr= XWMGeometry(disp,screen, geom_string,"128x32", 0,
                 normal_hints,
                 &pos_x, &pos_y,
                 &width, &height,
@@ -560,7 +600,8 @@ static void initgraphics(int argc, char **argv) {
   normal_hints->y= pos_y;
   normal_hints->width= width;
   normal_hints->height= height;
-  if (geom_string) normal_hints->flags |= USPosition;
+  if ((xwmgr & XValue) || (xwmgr & YValue))
+    normal_hints->flags |= USPosition;
 
   wm_hints->flags= InputHint;
   wm_hints->input= False;