1# eclair_report
2
3# NEEDED: set the variable for the binary output directory from the environment
4# variable.
5setq(data_dir,getenv("ECLAIR_DATA_DIR"))
6
7# NEEDED: set the variable for the ECLAIR project database from the environment
8# variable.
9setq(ecd_file,getenv("ECLAIR_PROJECT_ECD"))
10
11# NEEDED: set the variable for the output directory from the environment
12# variable.
13setq(output_dir,getenv("ECLAIR_OUTPUT_DIR"))
14
15if(file_exists(ecd_file),
16   db(ecd_file),
17 create_db(ecd_file))
18
19setq(loaded_dir,join_paths(data_dir,"loaded"))
20make_dirs(loaded_dir)
21
22# NEEDED: generate the ecd from frame files
23strings_map("load_ecb",500,"",".+\\.ecb",0,setq(ecb,join_paths(data_dir,$0)),load(ecb),rename(ecb,join_paths(loaded_dir,$0)))
24strings_map("load_ecb",500,"",".*",0)
25
26loading()
27map_strings("load_ecb", dir_entries(data_dir))
28loaded()
29