10 KiB

Raw Blame History

MUMPS Examples

MUMPS ("Massachusetts General Hospital Utility Multi-Programming System"), or M, is a general-purpose computer programming language originally designed in 1966 for the healthcare industry. Its differentiating feature is its "built-in" database, enabling high-level access to disk storage using simple symbolic program variables and subscripted arrays; similar to the variables used by most languages to access main memory. Read more...

The implementations currently available are:

The examples in this tutorial are run with GT.M.

Prerequisites

Additional Documentation

Sourceforge

GPL Mumps

Quick Setup

To install GT.M on Debian based OS:

apt-get install fis-gtm

Set up the environment variables:

source /usr/lib/x86_64-linux-gnu/fis-gtm/V6.3-003A_x86_64/gtmprofile

Open the GT.M prompt:

gtm

GTM>write "Hello world"
Hello world
GTM>halt

To uninstall GT.M:

apt-get purge fis-gtm

Run the Examples

Copy the example of your choice into $gtmdir/$gtmver/r:

cp -r <your-folder>/mumps-examples/06-databases/basic-sql-blog/* $gtmdir/$gtmver/r

Or alternatively create a symbolic link:

ln -s <your-folder>/mumps-examples/06-databases/basic-sql-blog/*  ~/.fis-gtm/V6.3-003A_x86_64/r

Then run the example:

mumps -run ^Main

1. The Very Basics

`HelloWorld.m`

Hello world

`HelloWorldInLoop.m`

Hello world
Hello world
Hello world
Hello world
Hello world
Hello world
Hello world
Hello world
Hello world
Hello world

`HelloWorldInAnotherLoop.m`

Hello world
Hello world
Hello world
Hello world
Hello world
Hello world
Hello world
Hello world
Hello world
Hello world

`HelloWorldInNestedLoop.m`

1:1 Hello world
1:2 Hello world
1:3 Hello world
1:4 Hello world
1:5 Hello world
2:1 Hello world
2:2 Hello world
2:3 Hello world
2:4 Hello world
2:5 Hello world

`ArithmeticOperations.m`

There were 7 apples, 8 pears and 9 oranges,
a total of 24 fruits in a basket.
Then, something happened:
1 apple, 2 pears and 0 oranges were eaten!
Now there are 21 fruits in the basket,
the average fruit value is 7.

`Arrays.m`

Approaching the solar system:
Mercury
Venus
Earth
Mars
Jupiter
Saturn
Uranus
Neptune
Pluto

September 2019:
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 1 2 3 4 5 6

Genealogical tree:
Harry and Emily had Jack

Associative array:
Have you ever been to London?

`ArraysShortened.m`

The output obtained is the same as that in Arrays.m

2. Functions

`Ascii.m`

The ASCII code of "a" is 97.

`Char.m`

Alphabet:
abcdefghijklmnopqrstuvwxyz

`Data.m`

Genealogical tree:
gtree(1)="Oliver"
gtree(1,1)="James"
gtree(1,1,1)="Harry"
gtree(1,1,1,1,1)="Robert"
gtree(1,1,2)="Emily"
gtree(1,2)="Amelia"
gtree(1,2,1)="Thomas"
gtree(1,2,2)="Jessica"

Data about a few nodes:
$d(gtree("foo")) is 0
$d(gtree(1,1,1,1,1)) is 1
$d(gtree(1,1,1,1)) is 10
$d(gtree(1)) is 11

`Extract.m`

Original string: Hello world!
Substring: Hello

3. Utility Routines

TODO.

4. User Defined Functions

`FactorialByReference.m`

Enter n: 5
5! = 120

`FactorialByValue.m`

Enter n: 5
5! = 120

`Fibonacci.m`

Enter n: 9
F(9) = 34

5. User Defined Routines

`Main.m`

Hello!
Enter n: 9

areaCircle(9) = 254.469
fibonacci(9) = 34
factorialByVal(9) = 362880
factorialByRef(9) = 362880

For further details also visit MyMathRoutines.m

6. Databases

`basic-sql-crud/Main.m`

User created:
^users(1)="alice~password~alice-jones@no-reply.com~Alice Jones"

User created:
^users(2)="bob~password~bob-smith@no-reply.com~Bob Smith"

User fetched (1):
data("email")="alice-jones@no-reply.com"
data("fullname")="Alice Jones"
data("password")="password"
data("username")="alice"

User updated (1):
^users(1)="amelia~password~amelia-roberts@no-reply.com~Amelia Roberts"

User fetched (1):
data("email")="amelia-roberts@no-reply.com"
data("fullname")="Amelia Roberts"
data("password")="password"
data("username")="amelia"

User deleted (2)

User fetched (2):
data("email")=""
data("fullname")=""
data("password")=""
data("username")=""

Database successfully dropped!

For further details also visit:

`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):
data("description")="Foobar"
data("slug")="foobar"

Post fetched (1):
data("description")="Lorem ipsum dolor sit amet, consectetuer adipiscing elit."
data("slug")="lorem-ipsum"
data("title")="Lorem ipsum"

Posts fetched by category (3):
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):
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):
data("description")="This is awesome! Thank you."

Database successfully dropped!