<PRIVATE
-TUPLE: mongodb-cmd
+TUPLE: mongodb-cmd
{ name string }
{ const? boolean }
{ admin? boolean }
PRIVATE>
-CONSTANT: buildinfo-cmd
+CONSTANT: buildinfo-cmd
T{ mongodb-cmd f "buildinfo" t t f H{ { "buildinfo" 1 } } }
CONSTANT: list-databases-cmd
T{ mongodb-cmd f "repairDatabase" f f f H{ { "repairDatabase" 1 } } }
! Options: -1 gets the current profile level; 0-2 set the profile level
-CONSTANT: profile-cmd
+CONSTANT: profile-cmd
T{ mongodb-cmd f "profile" f f f H{ { "profile" 0 } } }
CONSTANT: server-status-cmd
T{ mongodb-cmd f "findandmodify" f f f H{ { "findandmodify" f } } }
: make-cmd ( cmd-stub -- cmd-assoc )
- dup const?>> [ ] [
+ dup const?>> [ ] [
clone [ clone <linked-assoc> ] change-assoc
] if ; inline