uCBQN/test/cases/imports.bqn
2023-12-11 14:02:38 +02:00

27 lines
1.5 KiB
BQN
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

%DEF file (
path0 •path•file.At"../imports/"
File {path0 •file.At 𝕩}
CleanPath ! {r•file.RealPath path0 i/r 𝕩? (i)("..."(r)+)𝕩; 𝕩}•CurrentError@
)
(
%USE file
f File "show.bqn"
r1 •Import f ! +"show.bqn" 1r1
r2 •Import f ! +"show.bqn" 1r2
! r1 r2
re •ReBQN{primitives'+'-}
import2 RE "•Import"
r3 Import2 f ! -"show.bqn" 1r3
r4 Import2 f ! -"show.bqn" 1r4
! r1r3 ¨r1r2r3r4
)
!"•Import: cyclic import of "".../cyclic.bqn""" % %USE file •ImportCleanPath File "cyclic.bqn"
!"•Import: cyclic import of "".../cyclic.bqn""" % %USE file •ImportCleanPath File "cyclic.bqn"
!"•Import: cyclic import of "".../cyclic.bqn""" % %USE file •ImportCleanPath File "cyclic.bqn"
!"•Import: cyclic import of "".../cyclic_A.bqn""" % %USE file •ImportCleanPath File "cyclic_A.bqn"
!"•Import: cyclic import of "".../cyclic_B.bqn""" % %USE file •ImportCleanPath File "cyclic_B.bqn"
!"•Import: cyclic import of "".../cyclic_A.bqn""" % %USE file •ImportCleanPath File "cyclic_B.bqn"
!"•Import: cyclic import of "".../cyclic_B.bqn""" % %USE file •ImportCleanPath File "cyclic_A.bqn"
%USE file 3 •Import File "notCyclic.bqn" %% 30