write_files.alc 398 B

12345678910111213141516
  1. include "files.alh"
  2. include "primitives.alh"
  3. include "modelling.alh"
  4. include "object_operations.alh"
  5. Boolean function main(model : Element):
  6. Element files
  7. String file
  8. files = allInstances(model, "Files/File")
  9. while (set_len(files) > 0):
  10. file = set_pop(files)
  11. write_file(string_replace(read_attribute(model, file, "name"), "/", "_"), read_attribute(model, file, "content"))
  12. return True!