obacklight initial commit. to be set backlight brightness

2 files changed, 59 insertions, 0 deletions

diff --git a/obacklight/Makefile b/obacklight/Makefile
new file mode 100644
index 0000000..1e51d9a
--- /dev/null
+++ b/obacklight/Makefile
@@ -0,0 +1,8 @@
+make:
+	ocamlc unix.cma str.cma obacklight.ml -o obacklight
+
+static:
+	ocamlopt unix.cmxa -ccopt -static obacklight.ml  -o obacklight
+
+clean:
+	rm -f *.cmi *.cmx *.o *.cmo
\ No newline at end of file
diff --git a/obacklight/obacklight.ml b/obacklight/obacklight.ml
new file mode 100644
index 0000000..6360574
--- /dev/null
+++ b/obacklight/obacklight.ml
@@ -0,0 +1,51 @@
+open Arg
+
+(*
+    Sett default path to sysfs
+ *)
+let default_sysfs_dir = ref "/sys"
+let default_backlight_path               = ref (String.concat "" (List.append [!default_sysfs_dir]      ["/class/backlight/intel_backlight"]))
+let default_backlight_maxbrightness_path = ref (String.concat "" (List.append [!default_backlight_path] ["/max_brightness"]))
+let default_backlight_brightness_path    = ref (String.concat "" (List.append [!default_backlight_path] ["/brightness"]))
+
+let set_backlight_path ()                 = default_backlight_path               := (String.concat "" (List.append [!default_sysfs_dir]          ["/class/backlight/intel_backlight"]))
+let set_backlight_maxbrightness_path () = default_backlight_maxbrightness_path := (String.concat "" (List.append [!default_backlight_path]      ["/max_brightness"]))
+let set_backlight_brightness_path    () = default_backlight_brightness_path    := (String.concat "" (List.append [!default_backlight_path]      ["/brightness"]))
+
+
+let print_debug () = 
+begin
+    let _ = Printf.printf "sysfs:          %s\n" !default_sysfs_dir in
+    let _ = Printf.printf "backlight:      %s\n" !default_backlight_path in
+    let _ = Printf.printf "max_brightness: %s\n" !default_backlight_maxbrightness_path in
+            Printf.printf "brightness:     %s\n" !default_backlight_brightness_path 
+end
+
+let set_sysfs_dir dir = 
+begin
+    (Printf.printf "Setting value of sysfs to %s\n" dir);
+    default_sysfs_dir := dir;
+    set_backlight_path ();
+    set_backlight_maxbrightness_path ();
+    set_backlight_brightness_path ()
+end
+
+let main = 
+begin
+    (*
+    let speclist = 
+    [
+        ("-s",Arg.String (set_sysfs_dir),"Sysfs directory")
+    ] in 
+    let usage_msg = "set backlight value" in
+    let _ = Arg.parse speclist print_endline usage_msg in
+    (* If there is not argument print value of default path *)
+    (* If there is 1 argument set value to brigthness *)
+    *)
+    print_debug ();
+end
+
+let () = main;;
+
+
+