added working object_exists function

2010-05-25 07:52:28 -07:00
parent abdd070a77
commit 7b4b8cf4e4
3 changed files with 39 additions and 5 deletions
--- a/7
+++ b/7
@@ -8,7 +8,12 @@ main([Command|_Args]) ->
      "h2r" ->
        [Object|_Rest] = _Args,
        Raw = geef:hex_to_raw(Object),
-        io:format("Raw ~w~n", [Raw]);
+        io:format("Raw: ~w~n", [Raw]);
+      "exists" ->
+        [Path|_Rest] = _Args,
+        [Object|_None] = _Rest,
+        Exists = geef:object_exists(Path, Object),
+        io:format("Exists: ~w~n", [Exists]);
      _Else ->
        usage()
    end;