1 files changed, 27 insertions, 0 deletions
diff --git a/gils/head.rv b/gils/head.rv
new file mode 100644
index 0000000..edfd096
--- /dev/null
+++ b/gils/head.rv
@@ -0,0 +1,27 @@
+# gimme some head lung
+
+fn file_lines(path) do
+  const size = fs:size(path)
+  if size < 0 return :nil
+  const contents = if size > 0 fs:read_bytes(path, 0, size) else ""
+  const raw_lines = contents:split("\n")
+  let result = {}
+  for index in 0..raw_lines:len() do
+    if (index < raw_lines:len() - 1 or raw_lines[index]:len() > 0) result:push(raw_lines[index])
+  end
+  return result
+end
+
+const context = env.ctx
+if context.argv:len() < 2 do puts("usage: head [n] <path>\n") end
+else do
+  let limit = 10
+  let path_arg = context.argv[1]
+  if (context.argv:len() >= 3 and parse_pid(context.argv[1]) >= 0) do limit = parse_pid(context.argv[1]) path_arg = context.argv[2] end
+  const lines = file_lines(abspath(path_arg))
+  if lines == :nil do puts("head: no such file\n") end
+  else do
+    let index = 0
+    while (index < lines:len() and index < limit) do puts("#{lines[index]}\n") index += 1 end
+  end
+end