tree.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

module tree

import StdEnv

import Data.Maybe, Data.List
from Data.Func import $

import System.CommandLine, System.GetOpt

import Smurf
import SmurfParse

Start = toString devtree
where
	(Just devtree) = tree pgm zero zero listIO
	(Just pgm) = parse ['"abc""123"+o']