Merge branch 'master' into dev

Author: SuperFola

.github/workflows/ci.yml

@@ -18,9 +18,9 @@ jobs:
         uses: dawidd6/action-download-artifact@v2
         with:
           github_token: ${{secrets.GITHUB_TOKEN}}
-          workflow: linux-gcc.yml
+          workflow: ci.yml
           branch: dev
-          name: ark-linux-gcc-version
+          name: ubuntu-gcc-11
           path: bin
           repo: ArkScript-lang/Ark
 

CHANGELOG.md

@@ -0,0 +1,39 @@
+# Change Log
+
+## [Unreleased]
+### Added
+
+### Changed
+
+### Removed
+
+## [0.1.0] - 2021-06-29
+### Added
+- math:fib to calculate Fibonacci suite
+- math:divs, generating a list of divisors for a given positive number, starting from 1
+- os.ark with OS related functions
+- str:join to join every element in a given list (autoconvert them to string)
+- added a test suite for the std lib
+- added a CI to download the latest ArkScript linux binary and launch the tests
+- .gitattributes files to get a basic coloration of the source code on GitHub
+- list:drop, list:foldLeft, list:flatMap, list:flatten, list:dropWhile
+- added Events.ark to add event listening capabilities (sync)
+- list:forAll and list:any, checking elements in a list against a given condition
+- math:floordiv, returns the euclidean division's quotient
+
+### Changed
+- str:split can finally use separators longer than a single char
+- str:toLower and str:toUpper now use str:chr and str:ord instead of a long chain of if
+- fixed os:home_dir to work on Windows and Linux
+- updated the lib tests
+- fixing the list tests
+
+## [0.0.1] - 2020-10-01
+### Added
+- Switch.ark with a basic switch implementation
+- List.ark with list functions
+- Functional.ark
+- Exceptions.ark with a try closure (works as an Either monad)
+- String.ark
+- Range.ark with range related closures and functions
+- whole Math.ark file with a lot of mathematics functions

Events.ark

@@ -1,20 +1,16 @@
 (import "List.ark")
 
-###
-# @meta Events
 # @brief Allows to register events listeners and emit events
 # =begin
 # (let em (events:manager:make))
 # (em.on "myType" (fun (value) (print "This is a callback")))
 # (em.emit "myType")  # => prints "This is a callback" thanks to the registered listener
 # =end
 # @author https://github.com/fabien-zoccola
-##
 (let events:manager:make (fun () {
     # listeners list
     (mut _listeners [])
 
-    ###
     # @brief Checks if a given callback is valid (is a function or a closure)
     # @param callback the callback to check
     # @details Returns true if the callback is a function/closure, false otherwise
@@ -24,11 +20,9 @@
     # (closure._check_valid 5)  # => false
     # =end
     # @author https://github.com/fabien-zoccola
-    ##
     (let _check_valid (fun (callback)
-        (or (= "Function" (type callback)) (= "Closure" (type callback)) )))
+        (or (= "Function" (type callback)) (= "Closure" (type callback)))))
 
-    ###
     # @brief Registers an event listener
     # @param typ the type of the event to listen for
     # @param callback the function/closure that will be called when an event is emitted
@@ -37,12 +31,10 @@
     # (closure.on "myType" (fun (param) ())
     # =end
     # @author https://github.com/fabien-zoccola
-    ##
     (let on (fun (typ callback) 
         (if (_check_valid callback)
             (set _listeners (append _listeners [typ callback])))))
 
-    ###
     # @brief Emits an event with a value
     # @param val the emitted value
     # @param typ the type of the emitted event
@@ -51,7 +43,6 @@
     # (closure.emitWith 5 "myType")
     # =end
     # @author https://github.com/fabien-zoccola
-    ##
     (let emitWith (fun (val typ) {
         (mut found false)
         (list:forEach _listeners (fun (element)
@@ -61,32 +52,27 @@
             })))
         found
     }))
-        
 
-    ###
     # @brief Emits an event with no value
     # @param typ the type of the emitted event
     # @details Calls emitWith nil <typ>
     # =begin
     # (closure.emit "myType")
     # =end
     # @author https://github.com/fabien-zoccola
-    ##
     (let emit (fun (typ)
-        (emitWith nil typ) ))
+        (emitWith nil typ)))
 
-    ###
     # @brief Removes all listeners of a given type
     # @param typ the type of event to remove from the list
     # @details Returns if at least one listener has been removed
     # =begin
     # (closure.remove_listeners_of_type "myType")
     # =end
     # @author https://github.com/fabien-zoccola
-    ##
     (let removeListenersOfType (fun (typ) {
-        (let newlist (list:filter _listeners (fun (element)
-            (!= typ (@ element 0)) )))
+        (let newlist
+            (list:filter _listeners (fun (element) (!= typ (@ element 0)))))
         (let deleted (!= newlist _listeners))
         (set _listeners newlist)
         deleted
@@ -98,11 +84,11 @@
 
         # hidden methods
         &_check_valid
-        
+
         # methods
         &on
         &emit
         &emitWith
         &removeListenersOfType
         ) ())
-}))
+}))

Exceptions.ark

@@ -1,29 +1,21 @@
-###
-# @meta Exceptions
 # @brief throw takes a value as its argument and return it to be used by try
 # @param _x the value to return
 # =begin
 # (let error (throw "cannot divide by zero"))
 # =end
 # @author https://github.com/SuperFola
-##
 (let throw (fun (_x)
-    (fun (_injl _injr &_x) (_injl _x))
-))
+    (fun (_injl _injr &_x) (_injl _x))))
 
-###
 # @brief return takes a value as its argument and return it to be used by try
 # @param _x the value to return
 # =begin
 # (let value (return (/ 1 x)))
 # =end
 # @author https://github.com/SuperFola
-##
 (let return (fun (_y)
-    (fun (_injl _injr &_y) (_injr _y))
-))
+    (fun (_injl _injr &_y) (_injr _y))))
 
-###
 # @brief Takes a value either returned by throw or return and apply a given on it if it's an error or not
 # @param _either the value to test
 # @param _continue the success handler
@@ -38,6 +30,5 @@
 #     (fun (err) (print err)))
 # =end
 # @author https://github.com/SuperFola
-##
 (let try (fun (_either _continue _handle)
-    (_either _handle _continue)))
+    (_either _handle _continue)))

Functional.ark

@@ -1,5 +1,3 @@
-###
-# @meta Functional
 # @brief Compose function calls
 # @param _f the first function
 # @param _g the second function
@@ -10,37 +8,29 @@
 # (print (composed 12))  # return value is (12 + 12) * (12 + 12)
 # =end
 # @author https://github.com/rstefanic
-##
 (let compose (fun (_f _g)
     (fun (_y &_f &_g) (_f (_g _y)))))
 
-###
 # @brief Take a value as its argument and return a function taking 2 arguments which will call the first function on the value
 # @param _x the value
 # =begin
 # (let val (left 12))
 # (val (fun (x) (print x " i am called")) (fun (x) (print x " i am NOT called")))
 # =end
 # @author https://github.com/SuperFola
-##
 (let left (fun (_x)
-    (fun (_injl _injr &_x) (_injl _x))
-))
+    (fun (_injl _injr &_x) (_injl _x))))
 
-###
 # @brief Take a value as its argument and return a function taking 2 arguments which will call the second function on the value
 # @param _y the value
 # =begin
 # (let val (right 12))
 # (val (fun (x) (print x " i am NOT called")) (fun (x) (print x " i am called")))
 # =end
 # @author https://github.com/SuperFola
-##
 (let right (fun (_y)
-    (fun (_injl _injr &_y) (_injr _y))
-))
+    (fun (_injl _injr &_y) (_injr _y))))
 
-###
 # @brief Flip the arguments of a function
 # @param _f the function
 # @param _a the first argument
@@ -49,8 +39,6 @@
 # (let foo (fun (a b) (- a b)))
 # ((flip foo 14) 12) # will call (foo 12 14) instead of (foo 14 12)
 # =end
-
 # @author https://github.com/rstefanic
-##
 (let flip (fun (_f _a)
-    (fun (_b &_f &_a) (_f _b _a))))
+    (fun (_b &_f &_a) (_f _b _a))))