From 8605bb4bc62ab0d42b9be4b69fccdb729ca72b74 Mon Sep 17 00:00:00 2001
From: programarivm <info@programarivm.com>
Date: Fri, 27 Sep 2019 11:00:35 +0100
Subject: [PATCH] database routines are added to 04-databases/simple-crud

---
 04-databases/simple-crud/DatabaseRoutines.m |  6 ++++++
 04-databases/simple-crud/Main.m             | 12 ++++++++++--
 README.md                                   |  2 ++
 3 files changed, 18 insertions(+), 2 deletions(-)
 create mode 100644 04-databases/simple-crud/DatabaseRoutines.m

diff --git a/04-databases/simple-crud/DatabaseRoutines.m b/04-databases/simple-crud/DatabaseRoutines.m
new file mode 100644
index 0000000..b10163c
--- /dev/null
+++ b/04-databases/simple-crud/DatabaseRoutines.m
@@ -0,0 +1,6 @@
+
+drop()
+  k ^comments;
+  k ^posts;
+  k ^users;
+  q 1
diff --git a/04-databases/simple-crud/Main.m b/04-databases/simple-crud/Main.m
index 775ec9c..7a59d53 100644
--- a/04-databases/simple-crud/Main.m
+++ b/04-databases/simple-crud/Main.m
@@ -58,6 +58,14 @@
   . w "User successfully fetched!",!
   . w "Username: ",data("username"),!
   . w "Email: ",data("email"),!
-  . w "Full name: ",data("fullname"),!
+  . w "Full name: ",data("fullname"),!,!
   e  d
-  . w "Whoops! The user could not be fetched.",!
+  . w "Whoops! The user could not be fetched.",!,!
+
+; drop database
+
+  s ok=$$drop^DatabaseRoutines()
+  i ok=1 d
+  . w "Database successfully dropped!",!
+  e  d
+  . w "Whoops! The database could not be dropped.",!
diff --git a/README.md b/README.md
index ed49d06..409d9bf 100644
--- a/README.md
+++ b/README.md
@@ -221,6 +221,8 @@ Copy the examples into your `~/.fis-gtm/V6.3-003A_x86_64/r` folder and run:
     Email:
     Full name:
 
+    Database successfully dropped!
+
   > For further details also visit [UserRoutines.m](https://github.com/programarivm/mumps-examples/blob/master/04-databases/simple-crud/UserRoutines.m)
 
 ---