mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-27 00:40:26 +00:00
Code Issues 1 Releases Wiki Activity

Some more

Browse Source
This commit is contained in:
sogaiu 2020-11-16 16:13:28 +09:00
parent 0eb913fb9a
commit c8b72431a3
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/boot/boot.janet
View File

@ -2292,7 +2292,7 @@
(def module/paths (def module/paths
"The list of paths to look for modules, templated for module/expand-path. "The list of paths to look for modules, templated for module/expand-path.
Each element is a two element tuple, containing the path Each element is a two-element tuple, containing the path
template and a keyword :source, :native, or :image indicating how template and a keyword :source, :native, or :image indicating how
require should load files found at these paths.\n\nA tuple can also require should load files found at these paths.\n\nA tuple can also
contain a third element, specifying a filter that prevents module/find contain a third element, specifying a filter that prevents module/find
@ -2351,7 +2351,7 @@
(defn module/find (defn module/find
"Try to match a module or path name from the patterns in module/paths. "Try to match a module or path name from the patterns in module/paths.
Returns a tuple (fullpath kind) where the kind is one of :source, :native, Returns a tuple (fullpath kind) where the kind is one of :source, :native,
or image if the module is found, otherwise a tuple with nil followed by or :image if the module is found, otherwise a tuple with nil followed by
an error message." an error message."
[path] [path]
(var ret nil) (var ret nil)
@ -2390,10 +2390,10 @@
@{}) @{})
(defn dofile (defn dofile
"Evaluate a file and return the resulting environment. :env, :expander, and "Evaluate a file and return the resulting environment. :env, :expander,
:evaluator are passed through to the underlying run-context call. :evaluator, :read, and :parser are passed through to the underlying
If exit is true, any top level errors will trigger a call to (os/exit 1) run-context call. If exit is true, any top level errors will trigger a
after printing the error." call to (os/exit 1) after printing the error."
[path &keys [path &keys
{:exit exit {:exit exit
:env env :env env
@ -2441,7 +2441,7 @@
(def module/loaders (def module/loaders
"A table of loading method names to loading functions. "A table of loading method names to loading functions.
This table lets require and import load many different kinds This table lets require and import load many different kinds
of files as module." of files as modules."
@{:native (fn [path &] (native path (make-env))) @{:native (fn [path &] (native path (make-env)))
:source (fn [path args] :source (fn [path args]
(put module/loading path true) (put module/loading path true)
@ -2763,7 +2763,7 @@
(guarddef net/listen (guarddef net/listen
(defn net/server (defn net/server
"Start a server asynchornously with net/listen and net/accept-loop. Returns the new server stream." "Start a server asynchronously with net/listen and net/accept-loop. Returns the new server stream."
[host port &opt handler type] [host port &opt handler type]
(def s (net/listen host port type)) (def s (net/listen host port type))
(if handler (if handler
@ -2810,7 +2810,7 @@
(def- getenv-alias (if-let [entry (in root-env 'os/getenv)] (entry :value) (fn [&]))) (def- getenv-alias (if-let [entry (in root-env 'os/getenv)] (entry :value) (fn [&])))
(defn cli-main (defn cli-main
"Entrance for the Janet CLI tool. Call this functions with the command line "Entrance for the Janet CLI tool. Call this function with the command line
arguments as an array or tuple of strings to invoke the CLI interface." arguments as an array or tuple of strings to invoke the CLI interface."
[args] [args]