memory.hoon 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. /= * /common/zeke
  2. =, mp-to-graph
  3. |%
  4. ++ static
  5. =, constraint-util
  6. ^- static-table-common
  7. |%
  8. ++ name %memory
  9. ++ column-names
  10. ^- (list col-name)
  11. ^~(:(weld basic-column-names ext-column-names mega-ext-column-names))
  12. ++ basic-column-names
  13. ^- (list col-name)
  14. :~ %pad
  15. %axis
  16. %axis-ioz
  17. %axis-flag
  18. %leaf-l
  19. %leaf-r
  20. %op-l :: 0 means atom
  21. %op-r :: 0 means atom
  22. %count
  23. %count-inv
  24. %dmult
  25. %mult
  26. %mult-lc
  27. %mult-rc
  28. ==
  29. ++ ext-column-names
  30. ^- (list col-name)
  31. %+ pelt-col %input :: a*size + b*dyck + c*leaf
  32. %+ pelt-col %parent-size
  33. %+ pelt-col %parent-dyck
  34. %+ pelt-col %parent-leaf
  35. %+ pelt-col %lc-size
  36. %+ pelt-col %lc-dyck
  37. %+ pelt-col %lc-leaf
  38. %+ pelt-col %rc-size
  39. %+ pelt-col %rc-dyck
  40. %+ pelt-col %rc-leaf
  41. %+ pelt-col %inv
  42. ~
  43. ++ mega-ext-column-names
  44. ^- (list col-name)
  45. %+ pelt-col %ln
  46. %+ pelt-col %nc
  47. %+ pelt-col %kvs
  48. %+ pelt-col %kvs-ioz :: key-value store inverse variables
  49. %+ pelt-col %kvsf :: key-value flags
  50. %+ pelt-col %decode-mset
  51. %+ pelt-col %op0-mset
  52. ~
  53. ++ variables
  54. ^- (map col-name mp-mega)
  55. ^~ (make-vars:tlib column-names)
  56. ::
  57. ++ terminal-names
  58. ^- (list term)
  59. :: name of table should be first word in the term
  60. %+ pelt-col %memory-nc
  61. %+ pelt-col %memory-kvs
  62. %+ pelt-col %memory-decode-mset
  63. %+ pelt-col %memory-op0-mset
  64. ~
  65. --
  66. --