25 lines
614 B
Forth
25 lines
614 B
Forth
|
~~~
|
||
|
|
'HOME d:create #1025 allot
|
||
|
|
|
||
|
|
'%s/.config/retroforth/library/%s.retro 'library:.CONFIG s:const
|
||
|
|
'./library/%s.retro 'library:CWD s:const
|
||
|
|
|
||
|
|
:library:cwd library:CWD s:format ;
|
||
|
|
|
||
|
|
:library:.config
|
||
|
|
'HOME &HOME unix:getenv
|
||
|
|
&HOME library:.CONFIG s:format ;
|
||
|
|
|
||
|
|
:library:filename (s-s)
|
||
|
|
dup library:cwd
|
||
|
|
dup file:exists? [ nip ] if; drop
|
||
|
|
library:.config dup file:exists? [ ] if; drop s:empty ;
|
||
|
|
|
||
|
|
:library:contains? (s-f)
|
||
|
|
&library:cwd &library:.config bi &file:exists? bi@ or ;
|
||
|
|
|
||
|
|
:library:load
|
||
|
|
dup library:contains? [ library:filename include ]
|
||
|
|
[ 'ERROR:_Libray_`%s`_was_not_found s:format s:put nl ] choose ;
|
||
|
|
~~~
|