uCBQN/test/cases/imports.bqn
2025-06-01 17:42:22 +03:00

28 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 (
AtRoot, Import •args
File AtRoot
CleanPath ! {r•file.RealPath AtRoot"" i/r 𝕩? (i)("..."(r)+)𝕩; 𝕩}•CurrentError@
)
(
%USE file
f File "imports/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 "".../imports/cyclic.bqn""" % %USE file ImportCleanPath "imports/cyclic.bqn"
!"•Import 𝕩: cyclic import of "".../imports/cyclic.bqn""" % %USE file ImportCleanPath "imports/cyclic.bqn"
!"•Import 𝕩: cyclic import of "".../imports/cyclic.bqn""" % %USE file ImportCleanPath "imports/cyclic.bqn"
!"•Import 𝕩: cyclic import of "".../imports/cyclic_A.bqn""" % %USE file ImportCleanPath "imports/cyclic_A.bqn"
!"•Import 𝕩: cyclic import of "".../imports/cyclic_B.bqn""" % %USE file ImportCleanPath "imports/cyclic_B.bqn"
!"•Import 𝕩: cyclic import of "".../imports/cyclic_A.bqn""" % %USE file ImportCleanPath "imports/cyclic_B.bqn"
!"•Import 𝕩: cyclic import of "".../imports/cyclic_B.bqn""" % %USE file ImportCleanPath "imports/cyclic_A.bqn"
%USE file 3 Import "imports/notCyclic.bqn" %% 30