/red-system/tests/source/units/make-lib-auto-test.r

http://github.com/dockimbel/Red · R · 51 lines · 37 code · 14 blank · 0 comment · 0 complexity · 8e2ae08a3ae8858b7bdc052eff6bba04 MD5 · raw file 

    

  1. REBOL [
    2. 

  2.   Title:   "Generates Red/System lib tests"
    3. 

  3. 	Author:  "Peter W A Wood"
    4. 

  4. 	File: 	 %make-lib-auto-test.r
    5. 

  5. 	Version: 0.1.1
    6. 

  6. 	Rights:  "Copyright (C) 2011 Peter W A Wood. All rights reserved."
    7. 

  7. 	License: "BSD-3 - https://github.com/dockimbel/Red/blob/origin/BSD-3-License.txt"
    8. 

  8. ]
    9. 

  9. 

  10. ;; initialisations 
    11. 

  11. make-dir %auto-tests/
    12. 

  12. file-out: %auto-tests/lib-auto-test.reds
    13. 

  13. file-in: %lib-test-source.reds
    14. 

  14. 

  15. ;; get base dir address 
    16. 

  16. base-dir: to-local-file system/script/path  
    17. 

  17. 

  18. ;; work out prefix and extension based on version
    19. 

  19. switch/default fourth system/version [
    20. 

  20.   2 [
    21. 

  21.     abs-path: join "" [base-dir "/libs/"]
    22. 

  22.     prefix: "lib"
    23. 

  23.     ext: ".dylib"
    24. 

  24.   ]
    25. 

  25.   3 [
    26. 

  26.     abs-path: join "" [base-dir "\libs\"]
    27. 

  27.     prefix: ""
    28. 

  28.     ext: ".dll"
    29. 

  29.   ]
    30. 

  30. ][                                    ;; default to libxxx.so
    31. 

  31.     abs-path: join "" [base-dir "/libs/"]
    32. 

  32.     prefix: "lib"
    33. 

  33.     ext: ".so"
    34. 

  34. ]
    35. 

  35. 

  36. ;; read the file, insert the absolute path and file prefix and extension
    37. 

  37. src: read file-in
    38. 

  38. replace/all src "***abs-path***" abs-path
    39. 

  39. replace/all src "###prefix###" prefix
    40. 

  40. replace/all src "@@@extension@@@" ext
    41. 

  41. 

  42. write file-out src
    43.