packages.scm 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081
  1. ;;; Package defs for the Scheme Underground sorting package,
  2. ;;; in the Scheme 48 module language.
  3. ;;; The general sort package:
  4. (define-structure sorting sorting-interface
  5. (open scheme
  6. list-merge-sort
  7. vector-heap-sort
  8. vector-merge-sort
  9. vector-quick-sort
  10. sorted
  11. delete-neighbor-duplicates)
  12. (files sort)
  13. (optimize auto-integrate))
  14. (define-structure sorted sorted-interface
  15. (open scheme
  16. vector-utils)
  17. (files sortp)
  18. (optimize auto-integrate))
  19. (define-structure delete-neighbor-duplicates delete-neighbor-duplicates-interface
  20. (open scheme
  21. vector-utils)
  22. (files delndups)
  23. (optimize auto-integrate))
  24. (define-structure binary-searches binary-searches-interface
  25. (open scheme
  26. vector-utils)
  27. (files vbinsearch))
  28. (define-structure list-merge-sort list-merge-sort-interface
  29. (open scheme
  30. (subset exceptions (assertion-violation)))
  31. (files lmsort)
  32. (optimize auto-integrate))
  33. (define-structure vector-merge-sort vector-merge-sort-interface
  34. (open scheme
  35. vector-utils
  36. vector-insertion-sort-internal)
  37. (files vmsort)
  38. (optimize auto-integrate))
  39. (define-structure vector-heap-sort vector-heap-sort-interface
  40. (open scheme
  41. vector-utils)
  42. (files vhsort)
  43. (optimize auto-integrate))
  44. (define-structures ((vector-insertion-sort vector-insertion-sort-interface)
  45. (vector-insertion-sort-internal
  46. vector-insertion-sort-internal-interface))
  47. (open scheme
  48. vector-utils)
  49. (files visort)
  50. (optimize auto-integrate))
  51. (define-structure vector-quick-sort vector-quick-sort-interface
  52. (open scheme
  53. vector-utils
  54. vector-insertion-sort-internal)
  55. (files vqsort2))
  56. (define-structure vector-quick-sort3 vector-quick-sort3-interface
  57. (open scheme
  58. vector-utils
  59. vector-insertion-sort-internal)
  60. (files vqsort3))
  61. (define-structure vector-utils (export vector-copy
  62. vector-portion-copy
  63. vector-portion-copy!
  64. vector-start+end
  65. vectors-start+end-2)
  66. (open scheme)
  67. (files vector-util))