honeymoose
/
mumps-demo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
This is a collection of M scripts for learning purposes. The examples in this tutorial are run with GT.M. https://www.isharkfly.com/tag/mumps
21 Commits 1 Branch 0 Tags 104 KiB
M 100%
Go to file
programarivm 4d8c9972b1 the extension .mps is repaced with .m; the examples can run with the GPL Mumps interpreter 2019-09-25 15:52:25 +01:00
01-the-very-basics the extension .mps is repaced with .m; the examples can run with the GPL Mumps interpreter 2019-09-25 15:52:25 +01:00
02-user-defined-functions the extension .mps is repaced with .m; the examples can run with the GPL Mumps interpreter 2019-09-25 15:52:25 +01:00
.editorconfig .editorconfig is added 2019-09-23 17:04:03 +01:00
README.md README update 2019-09-25 15:26:47 +01:00

README.md

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 both GPL Mumps and GT.M.

Prerequisites

GPL Mumps

GT.M

Quick Setup

GPL Mumps

To install the open source distribution of the Mumps interpreter:

cd /usr/local/src
wget https://www.cs.uni.edu/~okane/source/MUMPS-MDH/mumps-18.02.src.tar.gz
tar -zxvf mumps-18.02.src.tar.gz
cd mumpsc
./ConfigureNative.script
./BuildMumpsWithGlobalsInSingleUserNative.script

The resulting interpreter is located in /usr/bin/mumps.

mumps

Mumps 17.30; Built: 16:05:53 Sep 23 2019
Float: double; DBMS: Native Stand Alone; Hardware math: yes; Int: int; Float digits: 6; Cache: 33; Block: 2048; FP Bits: N/A
http://threadsafebooks.com/
Enter HALT to exit

> write "Hello world"
Hello world
> halt
EOF - goodbye ...

To uninstall GPL Mumps:

cd /usr/local/src/mumpsc
make uninstall
rm -f /usr/bin/mumps*

GT.M

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

1. The Very Basics

01-hello-world.mps

Hello world

02-hello-world-in-a-loop.mps

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

03-hello-world-in-another-loop.mps

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

04-hello-world-in-a-nested-loop.mps

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

05-arithmetic-operations.mps

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.

06-arrays.mps

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?

2. User Defined Functions

01-factorial-by-reference.mps

Enter n: 5
5! = 120

Contributions

Would you help make this tutorial better? Contributions are welcome.

Many thanks.