File: load.l

package info (click to toggle)
picolisp 26.3-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 7,376 kB
  • sloc: ansic: 3,127; javascript: 1,004; makefile: 108; sh: 2
file content (14 lines) | stat: -rw-r--r-- 358 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
# 10dec24 Software Lab. Alexander Burger

# View output of 'load'ing the file
(let? *Class (isa '+Buffer This)
   (dm view> (Win)
      (=: view T)
      (with Win
         (scratch (tmp "xml")
            (pipe (load (: buffer file))
               (rdLines) ) ) ) )
   (dm save> (Win)
      (super Win)
      (when (: view)
         (view> This Win) ) ) )