about summary refs log tree commit diff stats
path: root/063array.mu
diff options
context:
space:
mode:
Diffstat (limited to '063array.mu')
0 files changed, 0 insertions, 0 deletions
 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-08 10:43:48 +0000


 


l passing until layer 10' href='/akkartik/mu/commit/load.arc?h=main&id=64d5ef2d063f96a3523f5761547ed1766dd0c237'>64d5ef2d ^

4f9f75dd ^

















1
2
3
4

5

6
7
8
9
10
11
12

13

14
15
16
17
18
19
20
21
22
23
24
25
26
27
28






                                                                      
                                              






                                          
                               














                                                  
; support for dividing arc files into sections of different level, and
; selectively loading just sections at or less than a given level

; usage:
;   load.arc [level] [arc files] -- [mu files]

(def selective-load (file (o level 999))
;?   (prn "loading @file at level @level")
  (fromfile file
    (whilet expr (read)
;?       (prn car.expr)
      (if (is 'section expr.0)
        (when (<= expr.1 level)
          (each x (cut expr 2)
            (eval x)))
        (eval expr))
;?       (prn car.expr " done")
      )))

(= section-level 999)
(point break
(each x (map [fromstring _ (read)] cdr.argv)
  (if (isa x 'int)
        (= section-level x)
      (is '-- x)
        (break)  ; later args are mu files
      :else
        (selective-load string.x section-level))))