cleanup
This commit is contained in:
programarivm
parent
7d368b805b
commit
ccd26d579e
|
|
@ -35,54 +35,54 @@
|
|||
s ok=$$set^Comment(1,1,"This is awesome! Thank you.")
|
||||
s ok=$$set^Comment(2,2,"Thank you so much for sharing this.")
|
||||
|
||||
; write redords
|
||||
|
||||
write "Users: ",!
|
||||
zwrite ^users
|
||||
|
||||
write !,"Categories: ",!
|
||||
zwrite ^categories
|
||||
|
||||
write !,"Posts: ",!
|
||||
zwrite ^posts
|
||||
|
||||
write !,"Comments: ",!
|
||||
zwrite ^comments
|
||||
|
||||
; fetch a category
|
||||
|
||||
s id=3
|
||||
do fetch^Category(id,.data)
|
||||
w "Category fetched (",id,"):",!
|
||||
w "description: ",data("description"),!
|
||||
w !,"Category fetched (",id,"):",!
|
||||
zwrite data
|
||||
|
||||
; fetch a post
|
||||
|
||||
s id=1
|
||||
do fetch^Post(id,.data)
|
||||
w !,"Post fetched (",id,"):",!
|
||||
w "slug: ",data("slug"),!
|
||||
w "title: ",data("title"),!
|
||||
w "description: ",data("description"),!
|
||||
zwrite data
|
||||
|
||||
; fetch posts by category
|
||||
|
||||
s id=3
|
||||
do fetchByCategory^Post(id,.data)
|
||||
w !,"Posts fetched by category (",id,"):",!
|
||||
s lev1=""
|
||||
s lev2=""
|
||||
s lev3=""
|
||||
f s lev1=$o(data(lev1)) q:lev1="" d
|
||||
. f s lev2=$o(data(lev1,lev2)) q:lev2="" d
|
||||
. . f s lev3=$o(data(lev1,lev2,lev3)) q:lev3="" d
|
||||
. . . w "(",lev1,",",lev2,",",lev3,") = ",data(lev1,lev2,lev3),!
|
||||
zwrite data
|
||||
|
||||
; fetch posts by user
|
||||
|
||||
s id=1
|
||||
do fetchByUser^Post(id,.data)
|
||||
w !,"Posts fetched by user (",id,"):",!
|
||||
s lev1=""
|
||||
s lev2=""
|
||||
s lev3=""
|
||||
f s lev1=$o(data(lev1)) q:lev1="" d
|
||||
. f s lev2=$o(data(lev1,lev2)) q:lev2="" d
|
||||
. . f s lev3=$o(data(lev1,lev2,lev3)) q:lev3="" d
|
||||
. . . w "(",lev1,",",lev2,",",lev3,") = ",data(lev1,lev2,lev3),!
|
||||
zwrite data
|
||||
|
||||
; fetch a comment
|
||||
|
||||
s id=1
|
||||
do fetch^Comment(id,.data)
|
||||
w !,"Comment fetched (",id,"):",!
|
||||
w "description: ",data("description"),!
|
||||
zwrite data
|
||||
|
||||
; drop database
|
||||
|
||||
|
|
|
|||
|
|
@ -6,64 +6,66 @@
|
|||
|
||||
s ok=$$set^User(1,"alice~password~alice-jones@no-reply.com~Alice Jones")
|
||||
i ok=1 d
|
||||
. w "User successfully created!",!
|
||||
. w "User created:",!
|
||||
. zwrite ^users(1)
|
||||
e d
|
||||
. w "Whoops! The user could not be created.",!
|
||||
|
||||
s ok=$$set^User(2,"bob~password~bob-smith@no-reply.com~Bob Smith")
|
||||
i ok=1 d
|
||||
. w "User successfully created!",!
|
||||
. w !,"User created:",!
|
||||
. zwrite ^users(2)
|
||||
e d
|
||||
. w "Whoops! The user could not be created.",!
|
||||
. w !,"Whoops! The user could not be created.",!
|
||||
|
||||
; fetch a user
|
||||
|
||||
s ok=$$fetch^User(1,.data)
|
||||
s id=1
|
||||
s ok=$$fetch^User(id,.data)
|
||||
i ok=1 d
|
||||
. w !,"User successfully fetched!",!
|
||||
. w "username: ",data("username"),!
|
||||
. w "email: ",data("email"),!
|
||||
. w "fullname: ",data("fullname"),!
|
||||
. w !,"User fetched (",id,"):",!
|
||||
. zwrite data
|
||||
e d
|
||||
. w "Whoops! The user could not be fetched.",!
|
||||
. w !,"Whoops! The user could not be fetched.",!
|
||||
|
||||
; update a user
|
||||
|
||||
s ok=$$set^User(1,"amelia~password~amelia-roberts@no-reply.com~Amelia Roberts")
|
||||
s id=1
|
||||
s ok=$$set^User(id,"amelia~password~amelia-roberts@no-reply.com~Amelia Roberts")
|
||||
i ok=1 d
|
||||
. w !,"User successfully updated!",!
|
||||
. w !,"User updated (",id,"):",!
|
||||
. zwrite ^users(1)
|
||||
e d
|
||||
. w !,"Whoops! The user could not be updated.",!
|
||||
|
||||
; fetch a user
|
||||
|
||||
s ok=$$fetch^User(1,.data)
|
||||
s id=1
|
||||
s ok=$$fetch^User(id,.data)
|
||||
i ok=1 d
|
||||
. w !,"User successfully fetched!",!
|
||||
. w "username: ",data("username"),!
|
||||
. w "email: ",data("email"),!
|
||||
. w "fullname: ",data("fullname"),!
|
||||
. w !,"User fetched (",id,"):",!
|
||||
. zwrite data
|
||||
e d
|
||||
. w "Whoops! The user could not be fetched.",!
|
||||
. w !,"Whoops! The user could not be fetched.",!
|
||||
|
||||
; delete a user
|
||||
|
||||
s ok=$$remove^User(2)
|
||||
s id=2
|
||||
s ok=$$remove^User(id)
|
||||
i ok=1 d
|
||||
. w !,"User successfully deleted!",!
|
||||
. w !,"User deleted (",id,")",!
|
||||
e d
|
||||
. w !,"Whoops! The user could not be deleted.",!
|
||||
|
||||
; fetch a user
|
||||
|
||||
s ok=$$fetch^User(2,.data)
|
||||
s id=2
|
||||
s ok=$$fetch^User(id,.data)
|
||||
i ok=1 d
|
||||
. w !,"User successfully fetched!",!
|
||||
. w "username: ",data("username"),!
|
||||
. w "email: ",data("email"),!
|
||||
. w "fullname: ",data("fullname"),!
|
||||
. w !,"User fetched (",id,"):",!
|
||||
. zwrite data
|
||||
e d
|
||||
. w "Whoops! The user could not be fetched.",!
|
||||
. w !,"Whoops! The user could not be fetched.",!
|
||||
|
||||
; drop database
|
||||
|
||||
|
|
|
|||
77
README.md
77
README.md
|
|
@ -228,27 +228,34 @@ Then run the example:
|
|||
|
||||
### [`basic-sql-crud/Main.m`](https://github.com/programarivm/mumps-examples/blob/master/06-databases/basic-sql-crud/Main.m)
|
||||
|
||||
User successfully created!
|
||||
User successfully created!
|
||||
User created:
|
||||
^users(1)="alice~password~alice-jones@no-reply.com~Alice Jones"
|
||||
|
||||
User successfully fetched!
|
||||
username: alice
|
||||
email: alice-jones@no-reply.com
|
||||
fullname: Alice Jones
|
||||
User created:
|
||||
^users(2)="bob~password~bob-smith@no-reply.com~Bob Smith"
|
||||
|
||||
User successfully updated!
|
||||
User fetched (1):
|
||||
data("email")="alice-jones@no-reply.com"
|
||||
data("fullname")="Alice Jones"
|
||||
data("password")="password"
|
||||
data("username")="alice"
|
||||
|
||||
User successfully fetched!
|
||||
username: amelia
|
||||
email: amelia-roberts@no-reply.com
|
||||
fullname: Amelia Roberts
|
||||
User updated (1):
|
||||
^users(1)="amelia~password~amelia-roberts@no-reply.com~Amelia Roberts"
|
||||
|
||||
User successfully deleted!
|
||||
User fetched (1):
|
||||
data("email")="amelia-roberts@no-reply.com"
|
||||
data("fullname")="Amelia Roberts"
|
||||
data("password")="password"
|
||||
data("username")="amelia"
|
||||
|
||||
User successfully fetched!
|
||||
username:
|
||||
email:
|
||||
fullname:
|
||||
User deleted (2)
|
||||
|
||||
User fetched (2):
|
||||
data("email")=""
|
||||
data("fullname")=""
|
||||
data("password")=""
|
||||
data("username")=""
|
||||
|
||||
Database successfully dropped!
|
||||
|
||||
|
|
@ -259,24 +266,44 @@ For further details also visit:
|
|||
|
||||
### [`basic-sql-blog/Main.m`](https://github.com/programarivm/mumps-examples/blob/master/06-databases/basic-sql-blog/Main.m)
|
||||
|
||||
Users:
|
||||
^users(1)="alice~password~alice-jones@no-reply.com~Alice Jones"
|
||||
^users(2)="bob~password~bob-smith@no-reply.com~Bob Smith"
|
||||
|
||||
Categories:
|
||||
^categories(1)="foo~Foo"
|
||||
^categories(2)="bar~Bar"
|
||||
^categories(3)="foobar~Foobar"
|
||||
|
||||
Posts:
|
||||
^posts(1,1,1)="lorem-ipsum~Lorem ipsum~Lorem ipsum dolor sit amet, consectetuer adipiscing elit."
|
||||
^posts(2,1,1)="donec-pede-justo~Donec pede justo~Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu."
|
||||
^posts(3,3,2)="curabitur-ullamcorper-ultricies~Curabitur ullamcorper ultricies~Curabitur ullamcorper ultricies nisi."
|
||||
^posts(4,3,2)="donec-vitae-sapien~Donec vitae sapien~Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante."
|
||||
|
||||
Comments:
|
||||
^comments(1,1)="This is awesome! Thank you."
|
||||
^comments(2,2)="Thank you so much for sharing this."
|
||||
|
||||
Category fetched (3):
|
||||
description: Foobar
|
||||
data("description")="Foobar"
|
||||
data("slug")="foobar"
|
||||
|
||||
Post fetched (1):
|
||||
slug: lorem-ipsum
|
||||
title: Lorem ipsum
|
||||
description: Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
|
||||
data("description")="Lorem ipsum dolor sit amet, consectetuer adipiscing elit."
|
||||
data("slug")="lorem-ipsum"
|
||||
data("title")="Lorem ipsum"
|
||||
|
||||
Posts fetched by category (3):
|
||||
(3,3,2) = curabitur-ullamcorper-ultricies~Curabitur ullamcorper ultricies~Curabitur ullamcorper ultricies nisi.
|
||||
(4,3,2) = donec-vitae-sapien~Donec vitae sapien~Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante.
|
||||
data(3,3,2)="curabitur-ullamcorper-ultricies~Curabitur ullamcorper ultricies~Curabitur ullamcorper ultricies nisi."
|
||||
data(4,3,2)="donec-vitae-sapien~Donec vitae sapien~Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante."
|
||||
|
||||
Posts fetched by user (1):
|
||||
(1,1,1) = lorem-ipsum~Lorem ipsum~Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
|
||||
(2,1,1) = donec-pede-justo~Donec pede justo~Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu.
|
||||
data(1,1,1)="lorem-ipsum~Lorem ipsum~Lorem ipsum dolor sit amet, consectetuer adipiscing elit."
|
||||
data(2,1,1)="donec-pede-justo~Donec pede justo~Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu."
|
||||
|
||||
Comment fetched (1):
|
||||
description: This is awesome! Thank you.
|
||||
data("description")="This is awesome! Thank you."
|
||||
|
||||
Database successfully dropped!
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue