newinclude.f

: IsAnySlash ( c -- f )
\ f=TRUE, ¥á«¨ c ï¥âáï á«í襬 (­¥¢ ¦­® ª ª¨¬)
  DUP [CHAR] \ = IF
    DROP TRUE
  ELSE
    [CHAR] / =
  THEN
;

: SelectPath  ( addr -- addr1 u )
\ ¢¥à­ãâì ¯ãâì (¢¬¥á⥠ᮠá«í襬) ¨§ ¯®«­®£® ¨¬¥­¨ ä ©« 
\ addr - null-terminated ¯®«­®¥ ¨¬ï
  DUP >R
  BEGIN
    DUP C@
  WHILE
    1+
  REPEAT
  R@ OVER = IF
    RDROP 0
  ELSE
    BEGIN
      DUP C@ IsAnySlash 0=
      OVER R@ = 0= AND
    WHILE
      1-
    REPEAT
    R> SWAP OVER -
    2DUP + C@ IsAnySlash IF 1+ THEN
  THEN
;

: SAVE-CURFILE ( addr u -- lastaddr )
\ § ¯¨á âì addr u ¢ CURFILE, ¨ ¢¥à­ãâì ¥£® áâ à®¥ §­ ç¥­¨¥
  CURFILE @ ROT ROT
  HEAP-COPY CURFILE !
;

: RESTORE-CURFILE ( lastaddr -- )
\ ¢®ááâ ­®¢¨âì CURRFILE
  CURFILE @ FREE THROW
  CURFILE !
;

: INCLUDED-CURRPATH ( i*x addr u -- ior j*x )
\ addr u - ¯®«­ë© ¯ãâì ¨«¨ ®â­®á¨â¥«ì­® ⥪ã饩 ¤¨à¥ªâ®à¨¨.
  2DUP
  SAVE-CURFILE >R
    INCLUDE-PROBE
  R> RESTORE-CURFILE
;

: MOVE-TO ( addr-src size addr-dst -- )
\ ¯à®áâ® ç á⮢áâà¥ç îé ïáï ®¯¥à æ¨ï
  SWAP MOVE
;

: CONCAT-TO ( addr1 u1 addr2 u2 addr -- )
\ ᮥ¤¨­¨âì áâப¨ addr1-u1 ¨ addr2-u2, § ¯¨á âì १ã«ìâ â ¢ addr
  >R
  2SWAP ( addr2 u2 addr1 u1 )
  SWAP OVER ( addr2 u2 u1 addr1 u1 )
  R@ MOVE-TO ( addr2 u2 u1 )
  R> + MOVE-TO
;

: CONCAT ( addr1 u1 addr2 u2 -- addr u )
\ ᮥ¤¨­¨âì áâப¨ addr1-u1 ¨ addr2-u2, ¢¥à­ãâì ¤¨­ ¬¨ç¥áª¨
\ ¢ë¤¥«¥­­ãî ®¡« áâì ¯ ¬ï⨠á १ã«ìâ â®¬. à §ã«ìâ â -
\ null-terminaated
  2OVER NIP OVER + DUP >R 1+
  ALLOCATE THROW DUP >R
  CONCAT-TO
  R> R> 2DUP + 0 SWAP C!
;

: INCLUDED-LASTPATH ( i*x addr u -- ior j*x )
\ addr u - ¯ãâì ª ä ©«ã ®â­®á¨â¥«ì­® ¯ã⨠ª ⥪ã饬㠨­â¥à¯à¥â¨à㥬®¬ã ä ©«ã
  CURFILE @ ?DUP IF
    SelectPath
    2SWAP CONCAT
    OVER >R
    INCLUDED-CURRPATH
    R> FREE THROW
  ELSE
    2DROP
    3
  THEN
;

: INCLUDED-SPF ( i*x addr u -- ior j*x )
\ addr u - ¯ãâì ª ä ©«ã ®â­®á¨â¥«ì­® ¨­â¥à¯à¥â¨àãî饣® ¥£® ¥å¥è­¨ª 
  +ModuleDirName INCLUDED-CURRPATH
;

: INCLUDED ( i*x addr u -- j*x ) 
  2DUP INCLUDED-LASTPATH IF
    2DUP INCLUDED-SPF IF
      INCLUDED-CURRPATH THROW
    ELSE
      2DROP
    THEN
  ELSE
    2DROP
  THEN
;

S" ~ac/lib/require.f" INCLUDED

REQUIRE COMMENT> ~micro/lib/comment.f

COMMENT>

„®¡ ¢«¥­¨¥ ¯ã⥩ ¯®¨áª  ¢ INCLUDED ¨ REQUIRE
…᫨ ¢ ä ©«¥ \prj1\main.f ¨­â¥à¯à¥â¨àã¥âáï INCLUDED, â® ¯ã⨠¯®¨áª :
1. prj1\ (SPF3.75 ¯® â ª®¬ã ¯ã⨠­¥ ¨é¥â)
2. spf\ (®â exeè­¨ª , ¥á«¨ â®ç­¥¥)
3. ’¥ªã騩
REQUIRE ª®¬¯¨«¨àã¥âáï § ­®¢® ¨§ ~ac/lib/require.f