While "atom functions" operate on individual values and return new values (atoms), database context functions operate on pre-committed database contexts in the same context as the update
, insert
, and delete
operators. The difference is that database context functions are written in Haskell and support any number of context changes.
Other DBMS software may include a similar feature called "stored procedures". However, "stored procedures" are stored outside the transaction stream and are not versioned by the database as in Project:M36.
In order to use compile functions at runtime in Project:M36, be sure to build your own Project:M36 library so that the optional scripting is enabled. Alternatively, precompiled database context functions can be loaded from object files.
The Haskell type of all database context functions is:
[Atom] -> DatabaseContext -> Either DatabaseContextFunctionError DatabaseContext
That is, the function takes an array of Atom
s which represent the function's arguments and a context and returns an updated context or an error. Notice that this operation is idempotent ("pure" in Haskell parlance).
The database context references all data which can be committed; this includes relation variables, atom functions, notifications, database context functions, and other versionable data. Database contexts become immutable once committed.
Database context functions are committed alongside the transaction. Thus, previous versions of the functions can be explored or restored. Like all database context elements, database context functions are immutable once committed. However, the transaction graph can be branched in order to examine how database context functions changes might apply to future contexts.
Remember that database context functions don't need to worry about locks or other synchronization. The database context is completely isolated from other ongoing transactions.
Returning a DatabaseContextFunctionError
from the function ensures that any changes made by the function are discarded.
Use adddatabasecontextfunction
to compile and name a new database context function:
adddatabasecontextfunction "addperson" Int -> Text -> DatabaseContext -> Either DatabaseContextFunctionError DatabaseContext """(\(age:name:_) ctx -> let newrel = MakeRelationFromExprs Nothing [TupleExpr (fromList [("name", NakedAtomExpr name),("age", NakedAtomExpr age)])] in if isRight (executeRelationalExpr (RelationVariable "person" ()) ctx) then executeDatabaseContextExpr (Insert "person" newrel) ctx else executeDatabaseContextExpr (Assign "person" newrel) ctx) :: [Atom] -> DatabaseContext -> Either DatabaseContextFunctionError DatabaseContext"""
This function is quite dense, so let's examine its components.
The first components are:
adddatabasecontextfunction "addperson" Int -> Text -> DatabaseContext -> Either DatabaseContextFunctionError DatabaseContext
which defines a function "addperson" which takes three arguments (an Int value, a Text value, and a DatabaseContext) and returns a DatabaseContext. All database context functions take as a final argument a database context and must return a database context.
The meat of the function is obviously the Haskell, so let's lay it out:
(\(age:name:_) ctx -> let newrel = MakeRelationFromExprs Nothing [TupleExpr (fromList [("name", NakedAtomExpr name),("age", NakedAtomExpr age)])] in
if isRight (executeRelationalExpr (RelationVariable "person" ()) ctx) then
executeDatabaseContextExpr (Insert "person" newrel) ctx
else
executeDatabaseContextExpr (Assign "person" newrel) ctx)) :: [Atom] -> DatabaseContext -> Either DatabaseContextFunctionError DatabaseContext
Line 1 sets up a new relation created from the function's arguments. In this case, we create a relation to represent a new person in our database.
Line 2 determines if the "person" relation variable is already available in the context. If so, the function inserts the new "person" relation into the existing relation variable in line 3.
In line 5, since the relation variable was determined not yet to be defined, we assign the new person relation directly.
Note that there is nothing special about the Haskell above- it is indeed a full-blown Haskell environment; however, this environment operates in "Safe" mode which prohibits any non-pure function access (such as with unsafePerformIO
). Thus, it is safe to use as a trusted programming environment with users creating arbitrary convenience functions within the implicit sandbox.
Users can add arbitrary (but safe and pure) calculations to these functions to capture business logic. The list of modules available within the function context can be modified at compile-time.
Let's try the new function!
TutorialD (master/main): execute addperson(30, "Steve")
TutorialD (master/main): :showexpr person
┌────────┬──────────┐
│age::Int│name::Text│
├────────┼──────────┤
│30 │"Steve" │
└────────┴──────────┘
TutorialD (master/main): execute addperson(32, "Bob")
TutorialD (master/main): :showexpr person
┌────────┬──────────┐
│age::Int│name::Text│
├────────┼──────────┤
│32 │"Bob" │
│30 │"Steve" │
└────────┴──────────┘
TutorialD (master/main):
Here we see that the first call to addperson
created the relation variable while a subsequent call added another tuple to the existing relation variable.
Database context functions come in two varieties:
- scripted (as above)
- pre-compiled
If you are dealing with the Haskell interface directly and you don't anticipate changing the functions, the easiest option is to compile your Haskell database context function into the database. It can always be removed or supplanted by a scripted version later.
To add a new, compiled database context function to the database, use:
executeDatabaseContextIOExpr sessionId dbconn (AddDatabaseContextFunction funcName Nothing (\(arg1:arg2:_) ctx -> ...))
from the ProjectM36.Client
module.
The function can be executed using:
executeDatabaseContextExpr sessionId dbconn (ExecuteDatabaseContextFunction funcName atomArgList)
from the same module.
WARNING Loading object files into the database can be a security and/or and database integrity issue. Project:M36 relies on calculating past states of the database. For this reason, it is inadvisable to alter object files once they are loaded into a database. Changing these object files could corrupt the database. Treat object files loaded as read-only. Use version numbers in the object file names to allow for future revisions.
Database context functions compiled with GHC to object files can be loaded at runtime. Let's walk through an example:
module DynamicDatabaseContextFunctions where
import ProjectM36.Base
import ProjectM36.Relation
import ProjectM36.DatabaseContextFunction
import ProjectM36.DatabaseContextFunctionError
import qualified ProjectM36.Attribute as A
import qualified Data.Map as M
someDBCFunctions :: [DatabaseContextFunction]
someDBCFunctions = [Function {
funcName = "addtestrel",
funcType = [],
funcBody = externalDatabaseContextFunction addTestRel
}]
where
addTestRel _ ctx = do
let attrExprs = [NakedAttributeExpr (Attribute "word" TextAtomType)]
newRelExpr = MakeRelationFromExprs (Just attrExprs) (TupleExprs UncommittedContextMa\
rker [TupleExpr (M.singleton "word" (NakedAtomExpr (TextAtom "nice")))])
pure $ ctx { relationVariables =
M.insert "testRel" (newRelExpr) (relationVariables ctx) }
The function returns a list of DatabaseContextFunction
s (just one in this case). The function adds a relation variable to the current database context.
Compile it with GHC:
cabal exec ghc -- examples/DynamicDatabaseContextFunctions.hs -package project-m36
or invoke GHC via stack.
You can also compile it into a shared object file if you link against modules which do not ship with Project:M36.
cabal exec ghc -- examples/DynamicDatabaseContextFunctions.hs -package project-m36 -package <another package> -fPIC -shared -dynamic -o examples/DynamicDatabaseContextFunctions.so
Finally, connect to your database with tutd
and load the module:
TutorialD (master/main): loaddatabasecontextfunctions "DynamicDatabaseContextFunctions" "someDBCFunctions" "examples/DynamicDatabaseContextFunctions.o"
or, if running the database in persistent mode, copy the compiled module ".o" file into <database directory>/compiled_modules/
, then:
TutorialD (master/main): loaddatabasecontextfunctions "DynamicDatabaseContextFunctions" "someDBCFunctions" "DynamicDatabaseContextFunctions.o"
If the load reports an "unknown symbol" error, double check that the installed "project-m36" package is identical to one used to link the Haskell module.
There are likely a variety of convenience functions which would make sense in the context of the scripted function. If you have ideas for such functions, please open a GitHub issue.