Current section
Files
Jump to
Current section
Files
bootstrap/clojure.core.erl
-module('clojure.core').
-include("clojerl.hrl").
-include("clojerl_int.hrl").
-clojure(true).
-mappings(#{ <<"ns">> => #{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"ns">>
, ns_atom => 'clojure.core'
, name_atom => 'ns'
, val_atom => 'ns__val'
, meta => #{ macro => true
, 'variadic?' => true
, max_fixed_arity => ?NIL
, fixed_arities => []
, variadic_arity => 3
}
}
, <<"in-ns">> => #{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"in-ns">>
, ns_atom => 'clojure.core'
, name_atom => 'in-ns'
, val_atom => 'in-ns__val'
, meta =>
#{ 'variadic?' => false
, max_fixed_arity => 1
, fixed_arities => [1]
, variadic_arity => ?NIL
, doc => <<"Sets *ns* to the"
"namespace named by"
"the symbol, creating"
"it if needed.">>
, added => <<"1.0">>
}
}
, <<"*ns*">> => #{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*ns*">>
, ns_atom => 'clojure.core'
, name_atom => '*ns*'
, val_atom => '*ns*__val'
, meta =>
#{ dynamic => true
, tag => #{ ?TYPE => 'erlang.Type'
, name => 'clojerl.Namespace'
}
}
}
, <<"*compile-path*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*compile-path*">>
, ns_atom => 'clojure.core'
, name_atom => '*compile-path*'
, val_atom => '*compile-path*__val'
, meta => #{dynamic => true}
}
, <<"*compile-protocols-path*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*compile-protocols-path*">>
, ns_atom => 'clojure.core'
, name_atom => '*compile-protocols-path*'
, val_atom => '*compile-protocols-path*__val'
, meta => #{dynamic => true}
}
, <<"*compile-files*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*compile-files*">>
, ns_atom => 'clojure.core'
, name_atom => '*compile-files*'
, val_atom => '*compile-files*__val'
, meta => #{dynamic => true}
}
, <<"*agent*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*agent*">>
, ns_atom => 'clojure.core'
, name_atom => '*agent*'
, val_atom => '*agent*__val'
, meta => #{ dynamic => true
, doc => <<"The agent currently running an "
"action on this thread, else nil">>
, tag => #{ ?TYPE => 'erlang.Type'
, name => 'clojerl.Agent'
}
, added => <<"1.0">>
}
}
, <<"*assert*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*assert*">>
, ns_atom => 'clojure.core'
, name_atom => '*assert*'
, val_atom => '*assert*__val'
, meta => #{dynamic => true}
}
, <<"*read-eval*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*read-eval*">>
, ns_atom => 'clojure.core'
, name_atom => '*read-eval*'
, val_atom => '*read-eval*__val'
, meta => #{dynamic => true}
}
, <<"*command-line-args*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*command-line-args*">>
, ns_atom => 'clojure.core'
, name_atom => '*command-line-args*'
, val_atom => '*command-line-args*__val'
, meta => #{dynamic => true}
}
, <<"*out*">> => #{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*out*">>
, ns_atom => 'clojure.core'
, name_atom => '*out*'
, val_atom => '*out*__val'
, meta => #{dynamic => true}
}
, <<"*in*">> => #{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*in*">>
, ns_atom => 'clojure.core'
, name_atom => '*in*'
, val_atom => '*in*__val'
, meta => #{dynamic => true}
}
, <<"*err*">> => #{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*err*">>
, ns_atom => 'clojure.core'
, name_atom => '*err*'
, val_atom => '*err*__val'
, meta => #{dynamic => true}
}
, <<"print-initialized">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"print-initialized">>
, ns_atom => 'clojure.core'
, name_atom => 'print-initialized'
, val_atom => 'print-initialized__val'
, meta => #{dynamic => true, private => true}
}
, <<"*print-dup*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*print-dup*">>
, ns_atom => 'clojure.core'
, name_atom => '*print-dup*'
, val_atom => '*print-dup*__val'
, meta => #{dynamic => true}
}
, <<"*flush-on-newline*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*flush-on-newline*">>
, ns_atom => 'clojure.core'
, name_atom => '*flush-on-newline*'
, val_atom => '*flush-on-newline*__val'
, meta => #{dynamic => true}
}
, <<"*print-readably*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*print-readably*">>
, ns_atom => 'clojure.core'
, name_atom => '*print-readably*'
, val_atom => '*print-readably*__val'
, meta => #{dynamic => true}
}
, <<"*data-readers*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*data-readers*">>
, ns_atom => 'clojure.core'
, name_atom => '*data-readers*'
, val_atom => '*data-readers*__val'
, meta => #{dynamic => true}
}
, <<"default-data-readers">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"default-data-readers">>
, ns_atom => 'clojure.core'
, name_atom => 'default-data-readers'
, val_atom => 'default-data-readers__val'
, meta => ?NIL
}
, <<"*default-data-reader-fn*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*default-data-reader-fn*">>
, ns_atom => 'clojure.core'
, name_atom => '*default-data-reader-fn*'
, val_atom => '*default-data-reader-fn*__val'
, meta => #{dynamic => true}
}
, <<"*warn-on-infer*">> =>
#{ ?TYPE => 'clojerl.Var'
, ns => <<"clojure.core">>
, name => <<"*warn-on-infer*">>
, ns_atom => 'clojure.core'
, name_atom => '*warn-on-infer*'
, val_atom => '*warn-on-infer*__val'
, meta => #{dynamic => true}
}
}).
-aliases(#{}).
-export([ ns/4
, ns__val/0
, 'in-ns'/1
, 'in-ns__val'/0
, '*ns*__val'/0
, '*compile-path*__val'/0
, '*compile-protocols-path*__val'/0
, '*compile-files*__val'/0
, '*agent*__val'/0
, '*assert*__val'/0
, '*read-eval*__val'/0
, '*command-line-args*__val'/0
, '*out*__val'/0
, '*in*__val'/0
, '*err*__val'/0
, 'print-initialized__val'/0
, '*print-dup*__val'/0
, '*flush-on-newline*__val'/0
, '*print-readably*__val'/0
, '*data-readers*__val'/0
, 'default-data-readers__val'/0
, '*default-data-reader-fn*__val'/0
, '*warn-on-infer*__val'/0
]).
ns(Form, _Env, Name, _References) ->
?ERROR_WHEN( not clj_rt:'symbol?'(Name)
, <<"First argument to ns must be a symbol">>
, clj_reader:location_meta(Form)
),
InNsSym = clj_rt:symbol(<<"clojure.core">>, <<"in-ns">>),
QuoteSym = clj_rt:symbol(<<"quote">>),
clj_rt:list([InNsSym, clj_rt:list([QuoteSym, Name])]).
ns__val() ->
Var = 'clojerl.Var':?CONSTRUCTOR(<<"clojure.core">>, <<"ns">>),
Meta = #{ macro => true
, 'variadic?' => true
, max_fixed_arity => ?NIL
, fixed_arities => []
, variadic_arity => 3
},
clj_rt:with_meta(Var, Meta).
'in-ns'(MaybeQuotedName) ->
Name = 'maybe-unquote'(MaybeQuotedName),
?ERROR_WHEN( not clj_rt:'symbol?'(Name)
, <<"First argument to in-ns must be a symbol">>
, clj_reader:location_meta(Name)
),
clj_module:maybe_ensure_loaded(clj_rt:keyword(Name)),
'clojerl.Namespace':find_or_create(Name),
?NIL.
'in-ns__val'() ->
Var = 'clojerl.Var':?CONSTRUCTOR(<<"clojure.core">>, <<"in-ns">>),
Meta = #{ 'variadic?' => false
, max_fixed_arity => 1
, fixed_arities => [1]
, variadic_arity => ?NIL
},
clj_rt:with_meta(Var, Meta).
'*ns*__val'() ->
case 'clojerl.Var':dynamic_binding(<<"#'clojure.core/*ns*">>) of
?NIL ->
ClojureCoreSym = clj_rt:symbol(<<"clojure.core">>),
'clojerl.Namespace':find_or_create(ClojureCoreSym);
{ok, X} -> X
end.
'*compile-path*__val'() ->
var_value(<<"#'clojure.core/*compile-path*">>, ?NIL).
'*compile-protocols-path*__val'() ->
var_value(<<"#'clojure.core/*compile-protocols-path*">>, ?NIL).
'*compile-files*__val'() ->
var_value(<<"#'clojure.core/*compile-files*">>, false).
'*agent*__val'() ->
var_value(<<"#'clojure.core/*agent*">>, ?NIL).
'*assert*__val'() ->
var_value(<<"#'clojure.core/*assert*">>, true).
'*read-eval*__val'() ->
ReadEval = application:get_env(clojerl, read_eval, true),
var_value(<<"#'clojure.core/*read-eval*">>, ReadEval).
'*command-line-args*__val'() ->
var_value(<<"#'clojure.core/*command-line-args*">>, true).
'*out*__val'() ->
var_value(<<"#'clojure.core/*out*">>, standard_io).
'*in*__val'() ->
var_value(<<"#'clojure.core/*in*">>, standard_io).
'*err*__val'() ->
var_value(<<"#'clojure.core/*err*">>, standard_error).
'print-initialized__val'() ->
var_value(<<"#'clojure.core/print-initialized">>, false).
'*print-dup*__val'() ->
var_value(<<"#'clojure.core/*print-dup*">>, false).
'*flush-on-newline*__val'() ->
var_value(<<"#'clojure.core/*flush-on-newline*">>, true).
'*print-readably*__val'() ->
var_value(<<"#'clojure.core/*print-readably*">>, true).
'*data-readers*__val'() ->
var_value(<<"#'clojure.core/*data-readers*">>, #{}).
'default-data-readers__val'() ->
InstSymbol = clj_rt:symbol(<<"inst">>),
UUIDSymbol = clj_rt:symbol(<<"uuid">>),
#{ InstSymbol => fun(X) -> {inst, X} end
, UUIDSymbol => fun(X) -> {uuid, X} end
}.
'*default-data-reader-fn*__val'() ->
var_value(<<"#'clojure.core/*default-data-reader-fn*">>, ?NIL).
'*warn-on-infer*__val'() ->
var_value(<<"#'clojure.core/*warn-on-infer*">>, false).
%% @private
'maybe-unquote'(MaybeQuotedForm) ->
case clj_rt:'seq?'(MaybeQuotedForm) of
false -> MaybeQuotedForm;
true ->
Quote = clj_rt:first(MaybeQuotedForm),
case clj_rt:equiv(Quote, clj_rt:symbol(<<"quote">>)) of
true -> clj_rt:second(MaybeQuotedForm);
false -> MaybeQuotedForm
end
end.
%% @private
var_value(Name, Default) ->
case 'clojerl.Var':dynamic_binding(Name) of
?NIL -> Default;
{ok, X} -> X
end.