Commit 65d1f511 authored by pazsan's avatar pazsan

Switched ~+/ with ./

parent 024e8a43
......@@ -143,7 +143,7 @@ Code: :dodefer
Next1 JMP,
end-code
require ~+/zero.fs
require ./zero.fs
code: :douser
'3 dout
......@@ -160,7 +160,7 @@ code: :douser
Next,
end-code
require ~+/softuart.fs
require ./softuart.fs
: up! up ! ;
......
require ~+/zero.fs
require ./zero.fs
hex
......
......@@ -744,4 +744,4 @@ c: rp! r> swap 2/ rp ! >r ;
c: up@ up @ ;
c: up! up ! ;
include ~+/key.fs
include ./key.fs
\ asmbasic.fs basic assebmler definitions
[IFUNDEF] assembler Vocabulary assembler [THEN]
require ~+/target.fs
require ./target.fs
[IFUNDEF] chained require chains.fs [THEN]
\ ---------- Basic Definitions
......
......@@ -73,7 +73,7 @@ The structure of one entry is:
[THEN]
require ~+/basic.fs
require ./basic.fs
also assembler definitions
......
......@@ -992,7 +992,7 @@ VARIABLE ^imm
\ Target Document Creation (goes to crossdoc.fd) 05jul95py
s" doc/crossdoc.fd" r/w create-file throw value doc-file-id
s" ./doc/crossdoc.fd" r/w create-file throw value doc-file-id
\ contains the file-id of the documentation file
: T-\G ( -- )
......
......@@ -18,14 +18,14 @@
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
include ~+/basics.fs
include ~+/io.fs \ basic io functions
include ./basics.fs
include ./io.fs \ basic io functions
has? interpreter [IF]
include ~+/int.fs
include ./int.fs
has? compiler [IF]
include ~+/comp.fs
include ./comp.fs
[THEN]
[THEN]
include ~+/accept.fs
include ~+/license.fs
include ~+/nio.fs
include ./accept.fs
include ./license.fs
include ./nio.fs
......@@ -26,8 +26,9 @@ fpath= <path>|<path> makes complete now searchpath
seperator is |
.fpath displays the search path
remark I:
a ~+ in the beginning of filename is expanded to the directory the
current file comes from. ~+ can also be included in the search-path!
a ./ in the beginning of filename is expanded to the directory the
current file comes from. ./ can also be included in the search-path!
~+/ loads from the current directory
remark II:
if there is no sufficient space for the search path increase it!
......@@ -142,9 +143,15 @@ Create tfile 0 c, 255 chars allot
2dup + c@ pathsep? IF EXIT THEN
REPEAT ;
: remove~+ ( -- )
ofile count 3 min s" ~+/" compare 0=
IF
ofile count 3 /string ofile place
THEN ;
: expandtopic
ofile count 2 min s" ~+" compare 0=
IF ofile count 2 /string tfile place
ofile count 2 min s" ./" compare 0=
IF ofile count 1 /string tfile place
0 ofile c! sourcefilename extractpath ofile place need/
tfile count over c@ pathsep? IF 1 /string THEN
ofile +place
......@@ -187,7 +194,7 @@ Create tfile 0 c, 255 chars allot
drop r> tuck - ;
: reworkdir
expandtopic
remove~+
ofile count compact// compact..
nip ofile c! ;
......@@ -204,7 +211,7 @@ Create tfile 0 c, 255 chars allot
>r
2dup absolut-path?
IF rdrop
ofile place reworkdir ofile count r/o open-file
ofile place expandtopic reworkdir ofile count r/o open-file
dup 0= IF >r ofile count r> THEN EXIT
ELSE r> path>counted
BEGIN next-path dup
......
......@@ -353,6 +353,10 @@ constant type-description
\ true if item has the same offset as the input TOS
item-d-offset @ 1+ effect-in-size 2@ drop = ;
: is-out-tos? ( item -- f )
\ true if item has the same offset as the input TOS
item-d-offset @ 1+ effect-out-size 2@ drop = ;
: really-store-single ( item -- )
>r
r@ item-d-offset @ effect-out-size 2@ data-stack-access ." = (Cell)"
......@@ -363,7 +367,7 @@ constant type-description
>r
r@ d-same-as-in?
if
r@ is-in-tos?
r@ is-in-tos? r@ is-out-tos? xor
if
." IF_TOS(" r@ really-store-single ." );" cr
endif
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment