home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / modellib / kwrite_model < prev    next >
Encoding:
Text File  |  1990-01-15  |  665 b   |  27 lines
  1. #!/bin/csh
  2. # $argv[1]: name of dynamical system class
  3. # $argv[2-]: codenames of dynamical systems belonging to the class
  4. #
  5. set argum = 
  6. echo "Write a file ${argv[1]}_kaos_model.h from a set of dynamical systems"
  7.  
  8. cat > ${argv[1]}_kaos_model.h <<END
  9. /*
  10. ----------------------------------------------------------------
  11.     This file is automatically generated by kwrite_model.
  12. -----------------------------------------------------------------
  13. */
  14. /*
  15.     vector field and function routine pointers
  16. */
  17. extern int (*f_p)();
  18. extern int (*func_p)();
  19. END
  20.  
  21. foreach argum ($argv[2-])
  22.     cat >> ${argv[1]}_kaos_model.h <<END
  23. extern int ${argum}_f(),${argum}_func();
  24. END
  25. end
  26. echo Done!
  27.