7.9 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:

cd /usr/lib/x86_64-linux-gnu/fis-gtm/V6.3-003A_x86_64
source 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 examples into your ~/.fis-gtm/V6.3-003A_x86_64/r folder and run:

mumps -run ^HelloWorld

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. 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

3. 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

4. Databases

`GenealogicalTree.m`

Genealogical tree:
^gtree(0,1,1) is Jessica
$data(^gtree(0,2)) is 0
$data(^gtree(0,1,1,1)) is 1
$data(^gtree(0,0,0,0,0)) is 10
$data(^gtree(0)) is 11

Removing tree...
$data(^gtree(0,2)) is 0
$data(^gtree(0,1,1,1)) is 0
$data(^gtree(0,0,0,0,0)) is 0
$data(^gtree(0)) is 0

`basic-crud/Main.m`

User successfully created!
User successfully created!

User successfully fetched!
username: alice
email: alice-jones@no-reply.com
fullname: Alice Jones

User successfully updated!

User successfully fetched!
username: amelia
email: amelia-roberts@no-reply.com
fullname: Amelia Roberts

User successfully deleted!

User successfully fetched!
username:
email:
fullname:

Database successfully dropped!

For further details also visit:

`basic-blog/Main.m`

User successfully created!
User successfully created!
Post successfully created!
Post successfully created!
Comment successfully created!
Comment successfully created!

Post successfully fetched!
slug: lorem-ipsum
title: Lorem ipsum
description: Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
id_user: 1

Comment successfully fetched!
description: Thank you so much for sharing this.
id_post: 2

Database successfully dropped!