chore: formatted arkscript code

Author: SuperFola

Benchmark.ark

@@ -4,7 +4,8 @@
 # @author https://github.com/SuperFola
 (macro measureOnce (tag code) {
   (mut _start (time))
-  { code }
+  {
+    code }
   (print (format "{} took {:.4} ms" tag (* 1000 (- (time) _start)))) })
 
 (import std.List)
@@ -29,7 +30,8 @@
   (mut _data [])
   (while (< _i times) {
     (let _start (time))
-    { ($as-is code) }
+    {
+      ($as-is code) }
     (let _end (time))
     (append! _data (* 1000 (- _end _start)))
     (set _i (+ 1 _i)) })
@@ -41,4 +43,9 @@
   (print
     (format
       "{}, {} times\n  ↪︎ range: [{:.3} - {:.3}] ms\n  ↪︎ mean: {:.3}ms\n  ↪︎ median: {:.3}ms"
-      ($repr code) times _min _max _mean _median)) })
+      ($repr code)
+      times
+      _min
+      _max
+      _mean
+      _median)) })

Cli.ark

@@ -6,19 +6,12 @@
   (let required (= kind "value"))
   (let value default)
 
-  (fun (&kind
-    &name
-    &desc
-    &default
-    &value
-    &required) ()) }))
+  (fun (&kind &name &desc &default &value &required) ()) }))
 
 (let _group (fun (children all_of) {
   (let kind "group")
 
-  (fun (&kind
-    &children
-    &all_of) ()) }))
+  (fun (&kind &children &all_of) ()) }))
 
 # @brief Defines a command line flag
 # @details All flags are optional and turned off
@@ -53,11 +46,11 @@
         (let e (@ partially_fmt i))
         (if (= (type e) "String")
           (set options (map
-              options
-              (fun (alt)
-                (if (empty? alt)
-                  e
-                  (format "{} {}" alt e)))))
+            options
+            (fun (alt)
+              (if (empty? alt)
+                e
+                (format "{} {}" alt e)))))
           # if we have a list, add (@ options 0) to each element of the list, then added to options
           (concat! options (map e (fun (alt) (format "{} {}" (@ options 0) alt)))))
         (set i (+ 1 i)) })
@@ -95,16 +88,16 @@
   (let params (dict))
   (_get_options params cli)
   (let options (join
-      (map
-        (dict:keys params)
-        (fun (name) {
-          (let param (dict:get params name))
-          (let fmt_name
-            (if (= param.kind "value")
-              (format "<{}>" name)
-              name))
-          (format "\t{:<28} {}" fmt_name param.desc) }))
-      "\n"))
+    (map
+      (dict:keys params)
+      (fun (name) {
+        (let param (dict:get params name))
+        (let fmt_name
+          (if (= param.kind "value")
+            (format "<{}>" name)
+            name))
+        (format "\t{:<28} {}" fmt_name param.desc) }))
+    "\n"))
 
   (+ headers synopsis "\n\nOPTIONS\n" options) }))
 

Events.ark

@@ -48,9 +48,10 @@
     (list:forEach
       _listeners
       (fun (element)
-        (if (= typ (@ element 0)) {
-          ((@ element 1) val)
-          (set found true) })))
+        (if (= typ (@ element 0))
+          {
+            ((@ element 1) val)
+            (set found true) })))
     found }))
 
   # @brief Emits an event with no value

Lazy.ark

@@ -12,10 +12,9 @@
   (mut _has_been_called false)
   (mut _memorized_value nil)
 
-  (fun (&f
-    &_has_been_called
-    &_memorized_value) {
-    (if (not _has_been_called) {
-      (set _has_been_called true)
-      (set _memorized_value (f)) })
+  (fun (&f &_has_been_called &_memorized_value) {
+    (if (not _has_been_called)
+      {
+        (set _has_been_called true)
+        (set _memorized_value (f)) })
     _memorized_value }) }))

List.ark

@@ -127,8 +127,8 @@
     (if (= (_func _index _element) stopIteration)
       {
         (set _index (len _L))
-        (set _early true)
-      })
+        (set _early true) })
+
     (set _index (+ 1 _index)) })
 
   _early }))
@@ -641,9 +641,10 @@
   (mut _i 0)
   (while (< _i _source_len) {
     (append! _current (@ _L _i))
-    (if (= (len _current) _length) {
-      (append! _output _current)
-      (set _current []) })
+    (if (= (len _current) _length)
+      {
+        (append! _output _current)
+        (set _current []) })
     (set _i (+ 1 _i)) })
 
   (if (not (empty? _current)) (append! _output _current))
@@ -710,8 +711,7 @@
     (if (= (_f _win) stopIteration)
       {
         (set _i (len _L))
-        (set _early true)
-      })
+        (set _early true) })
 
     (if (>= (+ _i _size) (len _L))
       (set _i (len _L)))
@@ -757,8 +757,7 @@
   (mut _i 0)
   (while (< _i (len _L)) {
     (let v (@ _L _i))
-    (if (not (builtin__dict:contains _vals v))
-      (builtin__dict:add _vals v _i))
+    (if (not (builtin__dict:contains _vals v)) (builtin__dict:add _vals v _i))
     (set _i (+ 1 _i)) })
 
   (builtin__dict:keys _vals) }))

Macros.ark

@@ -132,4 +132,3 @@
 (macro unpackPair (pair outx outy) {
   (let outx ($as-is (@ pair 0)))
   (let outy ($as-is (@ pair 1))) })
-

Math.ark

@@ -324,8 +324,7 @@
 # =end
 # @author https://github.com/SuperFola
 (let complex (fun (real imag)
-  (fun (&real
-    &imag) ())))
+  (fun (&real &imag) ())))
 
 # @brief Compute the addition of two complex number
 # @param _c0 the first complex number
@@ -440,5 +439,4 @@
 # # 'base' is 27%~ slower than 'new'
 # =end
 # @author https://github.com/SuperFola
-(let improvementRatioPercentage (fun (_a _b)
-  (* 100 (- (/ _a _b) 1))))
+(let improvementRatioPercentage (fun (_a _b) (* 100 (- (/ _a _b) 1))))

Range.ark

@@ -28,14 +28,11 @@
   (let reset (fun ()
     (set i _a)))
 
-  (fun (&i
-    &_a
-    &_b
-    &asList
-    &reset) {
-    (if (< i _b) {
-      (set i (+ i 1))
-      (- i 1) }) }) }))
+  (fun (&i &_a &_b &asList &reset) {
+    (if (< i _b)
+      {
+        (set i (+ i 1))
+        (- i 1) }) }) }))
 
 # @brief Run a function on each element of the range
 # @param _r the range object

String.ark

@@ -1,7 +1,6 @@
 # @brief Upper and lowercase ASCII letters
 # @author https://github.com/SuperFola
-(let asciiLetters
-  "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
+(let asciiLetters "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
 
 # @brief Lowercase ASCII letters
 # @author https://github.com/SuperFola
@@ -25,13 +24,11 @@
 
 # @brief All printable characters
 # @author https://github.com/SuperFola
-(let printable
-  "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~ \t\n\r")
+(let printable "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~ \t\n\r")
 
 # @brief Punctuation characters
 # @author https://github.com/SuperFola
-(let punctuation
-  "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~")
+(let punctuation "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~")
 
 # @brief Whitespace characters
 # @author https://github.com/SuperFola
@@ -104,8 +101,7 @@
 # @param _str String where the lookup occurs
 # @param _word Word to look up for
 # @author https://github.com/SuperFola
-(let contains? (fun (_str _word)
-  (!= -1 (find _str _word))))
+(let contains? (fun (_str _word) (!= -1 (find _str _word))))
 
 # @brief Check if a string contains a word for a set of words
 # @param _str String where the lookup occurs
@@ -141,9 +137,10 @@
       (let _len (len _str))
       (while (< _i _len) {
         (let _c (@ _str _i))
-        (if (and (!= _c " ") (!= _c "\t") (!= _c "\n") (!= _c "\r")) {
-          (set _all_spaces false)
-          (set _i _len) })
+        (if (and (!= _c " ") (!= _c "\t") (!= _c "\n") (!= _c "\r"))
+          {
+            (set _all_spaces false)
+            (set _i _len) })
         (set _i (+ 1 _i)) })
       _all_spaces })))
 
@@ -258,7 +255,9 @@
   (if (= _length 0)
     ""
     {
-      (assert (and (>= _startingIndex 0) (< _startingIndex (len _string))) "slice start index must be in range [0, string length[")
+      (assert
+        (and (>= _startingIndex 0) (< _startingIndex (len _string)))
+        "slice start index must be in range [0, string length[")
 
       (mut _returnedString "")
       (mut _index _startingIndex)

Testing.ark

@@ -197,11 +197,12 @@
 #     (test:expect (return_true) "return true"})
 # =end
 # @author https://github.com/SuperFola
-(macro test:expect (_cond ..._desc) {{
-  (set testing:_cond_res ($as-is _cond))
-  (if (!= true testing:_cond_res)
-    (testing:_report_error true testing:_cond_res "true" ($repr _cond) _desc)
-    (testing:_report_success)) }})
+(macro test:expect (_cond ..._desc) {
+  {
+    (set testing:_cond_res ($as-is _cond))
+    (if (!= true testing:_cond_res)
+      (testing:_report_error true testing:_cond_res "true" ($repr _cond) _desc)
+      (testing:_report_success)) } })
 
 (mut _cond_res nil)
 (mut _expr_res nil)
@@ -219,12 +220,13 @@
 #     (test:eq 5 (foo) "foo should return 5")})
 # =end
 # @author https://github.com/SuperFola
-(macro test:eq (_expr _expected ..._desc) {{
-  (set testing:_expected_res ($as-is _expected))
-  (set testing:_expr_res ($as-is _expr))
-  (if (= testing:_expected_res testing:_expr_res)
-    (testing:_report_success)
-    (testing:_report_error testing:_expected_res testing:_expr_res ($repr _expected) ($repr _expr) _desc)) }})
+(macro test:eq (_expr _expected ..._desc) {
+  {
+    (set testing:_expected_res ($as-is _expected))
+    (set testing:_expr_res ($as-is _expr))
+    (if (= testing:_expected_res testing:_expr_res)
+      (testing:_report_success)
+      (testing:_report_error testing:_expected_res testing:_expr_res ($repr _expected) ($repr _expr) _desc)) } })
 
 # @brief Compare two values that should **not** be equal and generate a test case
 # @param _value tested value
@@ -235,12 +237,13 @@
 #     (test:neq 0 (my_function 1 2 3))})
 # =end
 # @author https://github.com/SuperFola
-(macro test:neq (_value _unexpected ..._desc) {{
-  (set testing:_unexpected_res ($as-is _unexpected))
-  (set testing:_value_res ($as-is _value))
-  (if (!= testing:_unexpected_res testing:_value_res)
-    (testing:_report_success)
-    (testing:_report_error testing:_unexpected_res testing:_value_res ($repr _unexpected) ($repr _value) _desc)) }})
+(macro test:neq (_value _unexpected ..._desc) {
+  {
+    (set testing:_unexpected_res ($as-is _unexpected))
+    (set testing:_value_res ($as-is _value))
+    (if (!= testing:_unexpected_res testing:_value_res)
+      (testing:_report_success)
+      (testing:_report_error testing:_unexpected_res testing:_value_res ($repr _unexpected) ($repr _value) _desc)) } })
 
 # @brief Generate the code for a test suite
 # @details Create two variables: _name-output (a list: [successes, failures]) and _name-status (boolean, true on success)
@@ -258,8 +261,8 @@
   (set testing:_suite (testing:_make_suite ($repr _name)))
 
   (let ($symcat _name "-output") (testing:_runner
-      ($repr _name)
-      (fun () ($as-is
-          {
-            _body }))))
+    ($repr _name)
+    (fun () ($as-is
+        {
+          _body }))))
   (let ($symcat _name "-status") (= 0 (@ ($symcat _name "-output") 1))) })