diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/.ocamlformat | 1 | ||||
| -rw-r--r-- | tools/addentry.ml | 16 | ||||
| -rw-r--r-- | tools/addpaper.ml (renamed from tools/mktex.ml) | 24 |
3 files changed, 32 insertions, 9 deletions
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/mktex.ml b/tools/addpaper.ml index aa75be1..ec91c58 100644 --- a/tools/mktex.ml +++ b/tools/addpaper.ml @@ -1,14 +1,15 @@ (* - File: mktex.ml - Purpose: Builds a paper template for LaTeX. - Copyright 2025-2026, Amlal El Mahrouss & NeKernel.org Authors. - Licensed under Apache 2.0. + 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 " @@ -20,14 +21,18 @@ let format = format_of_string " \\usepackage[margin=0.5in,top=1in,bottom=1in]{geometry} \\title{%s} -\\author{John Doe.\\\\john@nekernel.org} +\\author{%s.\\\\john@nekernel.org} \\date{\\today} \\begin{document} \\bf \\maketitle \\begin{center} - \\rule[1cm]{17cm}{0.01cm} + \\rule[0.01cm]{17cm}{0.01cm} +\\end{center} +\\abstract{} +\\begin{center} + \\rule[0.01cm]{17cm}{0.01cm} \\end{center} \\end{document} ";; @@ -35,12 +40,13 @@ let format = format_of_string " (* We just make a LaTeX file with the given title. *) -let () = if Array.length Sys.argv >= 3 then +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 "mktex - Build LaTeX documents.\n"; - printf "usage: <file_name> <document_title>\n" + printf "addpaper: Creates LaTeX papers.\n"; + printf "addpaper: usage: <file_name> <document_title>\n" ); |