Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Fredrik Wieczerkowski
curry-tools
Commits
41e2535a
Commit
41e2535a
authored
Aug 16, 2016
by
Michael Hanus
Browse files
SQL translator updated
parent
fe5f9554
Changes
2
Hide whitespace changes
Inline
Side-by-side
currypp/IntegratedCode/ExamplesSQL/CreateData.curry
View file @
41e2535a
...
...
@@ -6,16 +6,16 @@ import Time
createTestData :: IO ()
createTestData = do
conn <- connectSQLite "Uni.db"
result <- ((
saveMultiple
Entries studentList studentDescription) >+
(saveMultiple
Entries lectureList lectureDescription) >+
(saveMultiple
Entries lecturerList lecturerDescription) >+
(saveMultiple
Entries placeList placeDescription) >+
(saveMultiple
Entries timeList timeDescription) >+
(saveMultiple
Entries examList examDescription) >+
(saveMultiple
Entries resultList resultDescription) >+
(saveMultiple
Entries participList participationDescription) >+
(save
EntryCombined sse1 sseDescription)
)
conn
result <- ((
insert
Entries studentList studentDescription) >+
(insert
Entries lectureList lectureDescription) >+
(insert
Entries lecturerList lecturerDescription) >+
(insert
Entries placeList placeDescription) >+
(insert
Entries timeList timeDescription) >+
(insert
Entries examList examDescription) >+
(insert
Entries resultList resultDescription) >+
(insert
Entries participList participationDescription) >+
(insert
EntryCombined sse1 sseDescription)
)
conn
case result of
Left (DBError kind str) -> putStrLn ((show kind) ++ " " ++ str)
Right _ -> putStrLn "Ok"
...
...
currypp/IntegratedCode/Parser/SQL/SQLTranslator.curry
View file @
41e2535a
...
...
@@ -645,8 +645,8 @@ transMaybeCond p mModel cond =
getInsertfunction :: [[Value]] -> PM (String, String)
getInsertfunction valss =
if length valss > 1
then cleanPM (mCDBI, "
saveMultiple
Entries")
else cleanPM (mCDBI, "
save
Entry")
then cleanPM (mCDBI, "
insert
Entries")
else cleanPM (mCDBI, "
insert
Entry")
-- Translation of list of lists of values.
transInsertData :: String -> Table -> [ColumnRef] -> [[Value]] -> PM CExpr
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment