From 0e635fbe2949d5bb944a60c0ccf83eb6f1de31e2 Mon Sep 17 00:00:00 2001
From: Amlal El Mahrouss <amlal@nekernel.org>
Date: Fri, 30 Jan 2026 00:02:09 +0100
Subject: chore: reworked addpaper.ml, working on addentry.ml

Signed-off-by: Amlal El Mahrouss <amlal@nekernel.org>
---
 tools/.ocamlformat |  1 +
 tools/addentry.ml  | 16 ++++++++++++++++
 tools/addpaper.ml  | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 tools/mktex.ml     | 46 ----------------------------------------------
 4 files changed, 69 insertions(+), 46 deletions(-)
 create mode 100644 tools/.ocamlformat
 create mode 100644 tools/addentry.ml
 create mode 100644 tools/addpaper.ml
 delete mode 100644 tools/mktex.ml

(limited to 'tools')

diff --git a/tools/.ocamlformat b/tools/.ocamlformat
new file mode 100644
index 0000000..978ef1a
--- /dev/null
+++ b/tools/.ocamlformat
@@ -0,0 +1 @@
+version = "5.4.0"
diff --git a/tools/addentry.ml b/tools/addentry.ml
new file mode 100644
index 0000000..29dce37
--- /dev/null
+++ b/tools/addentry.ml
@@ -0,0 +1,16 @@
+(*
+  File: addrule.ml
+  Purpose: Creates a makefile rule.
+  Copyright 2026, Amlal El Mahrouss & NeKernel.org Authors.
+  Licensed under Apache 2.0.
+*)
+
+open Stdlib
+open Out_channel
+open Printf
+
+(*
+  We just make a LaTeX file with the given title.
+*)
+let () = if Array.length Sys.argv >= 3 then
+  printf "We are done here.";
diff --git a/tools/addpaper.ml b/tools/addpaper.ml
new file mode 100644
index 0000000..ec91c58
--- /dev/null
+++ b/tools/addpaper.ml
@@ -0,0 +1,52 @@
+(*
+  File: addpaper.ml
+  Purpose: Creates a paper template in LaTeX.
+  Copyright 2025-2026, Amlal El Mahrouss & NeKernel.org Authors.
+  Licensed under Apache 2.0.
+*)
+
+open Stdlib
+open Out_channel
+open Printf
+
+let author_index : int = 3
+let title_index : int = 2
+let file_index : int = 1
+let format = format_of_string "
+\\documentclass[11pt, a4paper]{article}
+\\usepackage{graphicx}
+\\usepackage{listings}
+\\usepackage{xcolor}
+\\usepackage{hyperref}
+\\usepackage[margin=0.5in,top=1in,bottom=1in]{geometry}
+
+\\title{%s}
+\\author{%s.\\\\john@nekernel.org}
+\\date{\\today}
+
+\\begin{document}
+\\bf
+\\maketitle
+\\begin{center}
+	\\rule[0.01cm]{17cm}{0.01cm}
+\\end{center}
+\\abstract{}
+\\begin{center}
+	\\rule[0.01cm]{17cm}{0.01cm}
+\\end{center}
+\\end{document}
+";;
+
+(*
+  We just make a LaTeX file with the given title.
+*)
+let () = if Array.length Sys.argv >= 4 then
+  let out_file : string = Sys.argv.(file_index)^".tex" in
+    let file : out_channel = open_text out_file in
+      fprintf file format Sys.argv.(title_index);
+      fprintf file format Sys.argv.(author_index);
+    close_out file;
+  else (
+    printf "addpaper: Creates LaTeX papers.\n";
+    printf "addpaper: usage: <file_name> <document_title>\n"
+  );
diff --git a/tools/mktex.ml b/tools/mktex.ml
deleted file mode 100644
index aa75be1..0000000
--- a/tools/mktex.ml
+++ /dev/null
@@ -1,46 +0,0 @@
-(*
-        File: mktex.ml
-        Purpose: Builds a paper template for LaTeX.
-	      Copyright 2025-2026, Amlal El Mahrouss & NeKernel.org Authors.
-	      Licensed under Apache 2.0.
-*)
-
-open Stdlib
-open Out_channel
-open Printf
-
-let title_index : int = 2
-let file_index : int = 1
-let format = format_of_string "
-\\documentclass[11pt, a4paper]{article}
-\\usepackage{graphicx}
-\\usepackage{listings}
-\\usepackage{xcolor}
-\\usepackage{hyperref}
-\\usepackage[margin=0.5in,top=1in,bottom=1in]{geometry}
-
-\\title{%s}
-\\author{John Doe.\\\\john@nekernel.org}
-\\date{\\today}
-
-\\begin{document}
-\\bf
-\\maketitle
-\\begin{center}
-	\\rule[1cm]{17cm}{0.01cm}
-\\end{center}
-\\end{document}
-";;
-
-(*
-  We just make a LaTeX file with the given title.
-*)
-let () = if Array.length Sys.argv >= 3 then
-  let out_file : string = Sys.argv.(file_index)^".tex" in
-    let file : out_channel = open_text out_file in
-      fprintf file format Sys.argv.(title_index);
-    close_out file;
-  else (
-    printf "mktex - Build LaTeX documents.\n";
-    printf "usage: <file_name> <document_title>\n"
-  );
-- 
cgit v1.2.3