M(MUMPS)语言 东华HIS CACHE STUDIO

Ｍ(MUMPS)记事本

前言

Last update 1996.09.25

1. ＭＵＭＰＳ的概要

2. Ｍ的数据库

3. Ｍ的数据的特征

4. Ｍ的编程

5. Ｍ语言的命令与执行顺序

本文章是 1996.09.13 第２３次ＭＴＡ学会的「Ｍ

Tutorial」的讲演内容。

为了进一步掌握内容，请与其他页一起阅读。

（含PLUS ALPHA）

ＭＵＭＰＳ的概要

多用户，多任务，后台

•

丰富的平台（ＰＣ环境）

•

程序开发环境（Ｍ语言）

•

•

•

•

•

•

•

interpreter，compiler

灵活的数据结构（没有文件、变量的定义）

Down对策

网络

ＳＱＬ

ＧＵＩ

多用户・多任务 ／ 丰富的平台

ＭＵＭＰＳ包括从数据库管理到软件开发，是以ＤＢ为中心的综合环境。是数据库系统，具有多用户・多任务的灵活的数据结构，其中包含系统管理，程序开发环境，网络环境，最近甚至连ＳＱＬ和ＧＵＩ也包含在内。

作为平台，不只限于工作站系的小型・中型机，在主内存８ＭＢ左右的计算机环境下也能够实现多用户・多任务、后台上的程序执行，能够构筑成本性能高的多用户・多任务・实时的处理系统。

多用户使用计算机时的终端连接用的多通道串行线路板也有卖的，实际上，在计算机环境中，１６个用户或更多用户，在选举集计这样的数据输入・数据集计处理的专用环境中，对于１个ＣＰＵ，其运行的系统构成是由２台或１台连接３２个终端或６４个终端的客户端ＰＣ、１台ＤＢ文件服务器用ＰＣ，合计２～３台ＰＣ构成。

这种例子的情况下，终端也是在计算机（ＰＣ－９８０１，ＤＯＳ／Ｖ，ＡＸ等）中使用终端软件，或者把pocket computer作为输入终端，全都在计算机环境下运行。不是以串行线路连接像mini-computer的终端那样把ＰＣ作为终端来使用，license虽然只需要ＰＣ数，但以网络连接也能活用各ＰＣ的ＣＰＵ能量。

程序开发环境（Ｍ语言）

ＭＵＭＰＳ的程序开发语言——Ｍ语言在某种意义上比ＢＡＳＩＣ更简单，不用把命令和函数全拼来编码，可以省略编码。

输出数据的る命令 ＷＲＩＴＥ → Ｗ

输入数据的命令 ＲＥＡＤ → Ｒ

所开发模块的再利用也不用特别进行link等处理，能够极其简单的进行动态call，所以与ＣＯＢＯＬ和Ｃ语言相比可以缩短程序开发期。

ＤＯ ＾ＳＵＢ → 程序"ＳＵＢ"的执行

但是在标准的Ｍ处理系中，不是像Ｗｉｎｄｏｗｓ环境那样连周边机器的控制也squence控制这样的若干偏硬件的知识就都放到系统中的，所以像终端的escape

变得很必要。

程序在存储时没有特别的手续，而是自动编译到中间码的状态后存储，执行速度就算达不到native的二进制成都，也相当高速了。

用命令行业可以如原来的ＢＡＳＩＣ那样、作为interpreter直接执行Ｍ的code，

所以程序和Ｍcode的检查很容易进行。

另外还有一个也许可以说是最大的特征是，用Ｍ语言可以控制周边机器。在著名的ＤＢ中，ＤＢ本身和使用ＤＢ的程序是单个独立的，这很普通，但是在Ｍ中，是在Ｍ的操作环境中加入Ｍ程序语言的环境。

灵活的数据结构

关键的ＤＢ数据作为可变长字符串数据来对待，不用像原来的ＤＢ处理系那样进行ＣＯＢＯＬ的延长那样的文件设计，也不进行文件定义和关联设置这样的操作。

Ｍ时，记录的设计是用特定的分隔符来分隔各字段，只设计在第几个字段以什么格式存储。但是由于每个记录的最大数据长有限制，所以需要只注意记录长来设计。（标准时最大２５５字节／扩展时最大５１１字节）

^DATA1(19990707,123)="汉字 氏名;ｶﾝｼﾞ

ｼﾒｲ;33;Y;M;1;;;56;ABC;;;;"

^INDEX(1,"汉字 氏名",19990707,132)=""

^INDEX(2,"ｶﾝｼﾞ

ｼﾒｲ",19990707,132)=""

数据类型不需要声明等，字符串、数值（整数・实数）的代入、演算等都能对同一变量进行处理。 强调ＶｉｓｕａｌＢａｓｉｃ的变量型。

另外，１个ＤＢ文件的最大文件大小为１６ＧＢ，１个系统能加载３２个ＤＢ文件，所以１个系统的最大ＤＢ大小可以到５１２ＧＢ。

Down对策 ／ 网络

ＤＢ的保护虽不能完全保证正在cache的数据，但是具有强大的Journal功能，不会特别追加周边机器，只要设置好ＢＩＪ(Before Image Journal)，即使突然断电等也会首先保证ＤＢ不被破坏。

在网络对应中，Ｃ／Ｓ型当然能够容易设置水平分散型和镜面系统(shadow系统)。

通常网络系统的构筑都需要相当的知识和经验（特别是连接台数很多时和无法预测通信的负荷时等），但是用Ｍ构筑网络系统时，即使没有特别的知识也能容易设置网络。

可以进行各种设置：仅特定的文件（全局）参照服务器，反之仅操作用文件使用本地磁盘等。由于设置的简单程度和灵活程度，将来的系统增设・更新等也能轻

松进行。

link层支持packet、ＯＤＩ、ＮＤＩＳ、ＵＤＰ／ＩＰ等丰富的link层，所以可以使用那些能在店面便宜买到的ＰＣ用网卡。

ＳＱＬ

作为咨询关键的ＳＱＬ，基本上在Ｍ处理系中另行准备，但是比起个人在Ｍ中准备ＳＱＬ使用环境，输入ＭCode能更快得到。可以说，Ｍ的Code的编码及执行非常容易。

ＧＵＩ

原来Ｍ的环境是文字base，不包括图解的式样，但是在最近的ＧＵＩ环境中，给我们准备了应用程序接口，实现了Ｍ＋ＧＵＩ环境下的运行环境。

MSM-Workstation、MSM-API (VB,C,Delphai 等的编程接口)

ＷＥＢ

作为ＷＥＢ环境， 公开了ＭＳＭ ＰＤＱ－Ｗｅｂ这种免费工具。

ｉ／ｆ中设为「需要ＩＳＡＰＩ」，所以可以在Windows-NT、2000的ＰＷＳ、ＩＩＳ等中使用。

Ｔｅｌｎｅｔ

在ＮＴ版的 MSM Server for Windows-NT 中，标准是支持TELNET的，除了使用了原来的MS-DOS版中使用的多串口的终端以外，可以在网络使用终端。

Ｍａｉｌ

在ＮＴ版中，标准是可以使用socketｉ／ｆ，所以在Ｍ中，还可以比较简单的制作邮件等应用程序。

Ｍ的数据库

１个ＤＢ中所有的对象

•

数据的cache

•

排他控制

•

１个ＤＢ中所有的对象

与一般的ＤＢ环境大大不同的是，基本上ＤＢ文件就只有１个，其中存储着所有数据、程序、管理工具类。另外，还可以搭载多个ＤＢ文件作为巨大的Ｂ文件来使用，在网络环境下还可以把特定的文件参照·存储到别的ＤＢ中。

人们认为数据和程序如果在同一文件中的话，管理会很复杂，但是数据和程序的处理，通过对数据使用数据操作用的命令，对程序使用程序操作用的命令，可以不需要程序员特意去考虑。

因为１个文件中有ＤＢ操作所需的全部对象，所以不会像其他ＤＢ处理系那样，每次运行都要在磁盘中有临时文件等，很乱。在限制可同时打开的文件数的环境、例如计算机环境下，从系统受到的限制很少，可以构筑实用型系统。

数据的cache

在大多的Ｍ处理系中，实现了Ｍ系统的Level的数据cache，而非ＯＳLevel的。这个数据cache非常强大，即使在网络环境下cache也很有效果，即使是伴有频繁访问磁盘的处理，与其他ＤＢ处理系相比，使用起来基本感觉不到压力。

排他控制

数据的排他控制无论是在所谓的记录单位、还是最小的数据单位，都能控制，在多用户环境下，能够进行理想的排他控制。这里所说的「最小的数据单位」是指，能够以全局数据的１个个的单位进行控制。

^KENSA(受付日,受付编号)=假名ｼﾒｲ ; 汉字氏名 ; 性別 ; 年齢 ; 年齢ﾌﾗｸﾞ ; ; ; ; ;

^KENSA(受付日,受付编号,項目编号)= 依頼 ; 结果 ;

ﾌﾗｸﾞ ; ; ; ; ;

-----------------------------------------------

; 锁定^KENSA(19960821,123) 以下的全局

; 受付日 受付编号

;

L ^KENSA(19960821,123)

;

; 锁定^KENSA(19960821,123) 和 此节点以下的全局

; ^KENSA(19960821,123,1001) ^KENSA(19960821,123,3021) 等被锁

;

S $P(^KENSA(19960821,123),";",1)=KANA

S $P(^KENSA(19960821,123),";",2)=KANJI

L

------------------------------------------------

; 锁定^KENSA(19960821,123,1234) 的全局

; 項目编号

;

L ^KENSA(19960821,123,1234)

S KEN=^KENSA(19960821,123,1234)

S $P(KEN,";",2)=VAL

S $P(KEN,";",3)=FLG

S ^KENSA(19960821,123,1234)=KEN

L

不过，Lock命令之时逻辑上锁定，不是物理上的把什么锁上，所以如果不检查一下是否系统的所有程序用Lock命令正在Lock中的话，在某种程序上即使正在Lock中也可以在别的程序上读写。

Ｍ的数据的特征

•

•

•

•

•

•

•

没有文件的概念

没有ＷＲＩＴＥ／ＲＥＷＲＩＴＥ的概念

可变长字符串

零落的记录key

没有数据类型

丰富的字符串处理

不宜科学技术计算

没有文件的概念(基本上)

不像一般处理系那样，对ＤＢ没有文件的概念，连ＤＢ文件的Open・Close操作也没有。向ＤＢ中写数据时不用特别的命令，与在变量中设置数据一样，来存储数据。

在Ｍ中，把内存上的数据（变量）称为局部变量，把磁盘上的数据称为全局变量。在局部变量中设置数据与在全局变量中设置数据的区别只是，在变量名的前是否附加circumflex (补注号)"＾"。

不过，在使用ＯＳ上的文件和打印机等周边机器时，使用前必须打开机器占有机器。

S LOCAL="大阪市" ;局部变量'LOCAL'中设置字符串"大阪市"

S ^GLOBAL="東京都" ;全局变量'^GLOBAL'中设置字符串"東京都"

S ADR1=^GLOBAL ;局部变量'ADR1'中设置（复制）全局变量'^GLOBAL'的内容

没有ＷＲＩＴＥ ／ ＲＥＷＲＩＴＥ的概念

在ＣＯＢＯＬ编程等中，需要考虑ＷＲＩＴＥ／ＲＥＷＲＩＴＥ的命令来编程，但在Ｍ中就不需要。只要用「Ｓｅｔ命令」就会进行ＤＢ内的数据操作。

可变长字符串

局部变量、全局变量都是数据直接操作可变长字符串。极端一点来说的话，只按使用的量来使用内存(磁盘)，可以有效的使用内存。感觉上，磁盘利用率基本上比必须用固定长来设计的ＤＢ好３倍或３倍以上。

另外，能够简洁的设计记录，这应该与直接处理数据的高速性有关。

字符串长度的限制是，局部变量(内存)最大４０９２字节，全局变量(磁盘)的最大长度为５１１字节。

灵活的记录key

与ＩＳＡＭ的记录key相当的内容，与数组的要素同等对待。不过，与ＢＡＳＩＣ等的数组要素大大不同的是，数组要素的key中除了整数以外还可以使用字符串，另外还不需要中间的节点的key。

combination

key可以用逗号(，)连接指定多个。

S PREF("ﾄｷ")="東京"

S PREF("ｵｻ")="大阪"

S PREF("ｷﾄ")="京都"

S PREF("ﾄｷ","ﾁｵ")="東京都 中央区"

S PREF("ﾄｷ","ﾐﾄ")="東京都 港区"

S PREF("ﾄｷ","ﾁﾖ")="東京都 千代田区"

S ^TOKUHYO(選挙区,候補,開票所,$H的1,$H的2)=得票数

S ^TOKUHYO(2700) ････････････････････ 不存在

S ^TOKUHYO(2700,303) ････････････････ 不存在

S ^TOKUHYO(2700,303,1141) ･･･････････ 不存在

S ^TOKUHYO(2700,303,1141,56712) ･････ 不存在

S ^TOKUHYO(2700,303,1141,56712,37975)=1500

S ^TOKUHYO(2700) ････････････････････ 不存在

S ^TOKUHYO(2700,303) ････････････････ 不存在

S ^TOKUHYO(2700,303,1141) ･･･････････ 不存在

S ^TOKUHYO(2700,303,1141,56712) ･････ 不存在

S ^TOKUHYO(2700,303,1141,56712,38496)=1677

在Ｍ中，只要不使用ＳＱＬ，系统本身就不会管理ＤＢ的关联，但是在编程中可以简单访问、与Alt键相当的也能在程序中制作。

^TOKUHYO(2700,303,1141,56712,38496)=1677

^SENKU(2700)="大阪１区;;;;;;"

^KOUHO(330)="候補 氏名;ｺｳﾎ

ｼﾒｲ;;;"

^KAIHYO(1141)="大阪市西区;;;;"

------------------------------------------------------------------------

S ^PERSON(101)="ﾔﾏﾀﾞ

ﾀﾛｳ;山田 太郎;19670809;M;大阪市 西区;06-445-7918"

S ^PIDX(1,"ﾔﾏﾀﾞ

ﾀﾛｳ")=101 ;假名氏名的索引

↓

S ^PIDX(1,"ﾔﾏﾀﾞ

ﾀﾛｳ",101)="" ;考虑同性同名

S ^PIDX(2,"山田 太郎")=101 ;汉字氏名的索引

↓

S ^PIDX(2,"山田 太郎",101)="" ;考虑同性同名

S ^NDIC("ﾔﾏﾀﾞ","山田")="" ;无数据

S ^NDIC("ﾀﾛｳ","太郎")="" ;无数据

(等于)没有数据类型

在Ｍ中，没有变量的定义，也就没有数据(变量)类型。在同一局部・全局变量中既可以代入字符串、也可以代入数值，还可以在数值运算的结果中使用字符串处理的函数。

S VAL="大阪市 西区" ;变量'VAL'中代入字符串

W VAL

S VAL=11/7 ;代入数值运算（除算）的结果

W VAL

W VAL1 ;数值运算（整数化）

W $P(VAL,".",1) ;使用字符串处理的函数

丰富的字符串处理

Ｍ的字符串处理很强大，感觉比ＢＡＳＩＣ的字符串操作更强。在字符串操作的例子中，有如下的运算符・函数。

＿ (下划线) 字符串的连结 ＋，＆

［ 左边是否含有右边的字符串 INSTR

］ 字符串比较后是否左边大

$Extract 从字符串抽出・填充文字 MID$,LEFT$,RIGHT$

$Piece 从字符串抽出用分隔符隔开的文字

$Find 从字符串中检索字符串 FIND

$Length 字符串的长 LEN

$Ascii 文字的Code ASC

$Char Code对应的文字（列） CHR$

不宜科学技术计算

最近，完善了数学函数的packega、计算Utility，其中还有能使用数值运算unit(ＦＰＵ)的Ｍ处理系，不过目前，复杂的科学技术计算在Ｍ中还不好用。

另外，Ｍ的计算处理中的有效位数为１６位。

Ｍ的编程

Ｍ系统的编辑器

•

命令行

•

模块开发

•

Ｍ系统的编辑器 ／ 命令行

在Ｍ中，把程序称为rutine。在大多数的Ｍ处理系中，给系统准备了程序开发用的rutine编辑器、调试器，所以使用它们开发，不过如果想使用用惯了的编辑器等时，可以从Ｍ的ＤＢ把source rutine取出到ＯＳ上的文件中进行编辑，编辑后，返回Ｍ的ＤＢ。

在命令行中，可以作为interpreter直接执行Ｍ的命令，所以Ｍ的Code・模块的测试・验证能容易进行。另外，如果是短的rutine，还可以从命令行直接输入。

模块开发

在Ｍ中，没有程序的link等处理，rutine的调用也简单，动态调用只要在rutine名的开头附加"＾"就能简单进行。因此，可以简单的重新利用过去作成的rutine，只要对rutine的制作够深思熟虑的话，同一处理可以全都利用动态调用，使主rutine更简洁，且比用其他语言开发更缩短开发期。

动态调用时的参数传递，基本上有２种类型。

１种是把父rutine的局部变量原封不动的继承处理，把自己所处理的变量原封不动的返回。它调用程序是别的模块，但与原来的ＢＡＳＩＣ语言的ＧＯＳＵＢ命

令动作相同。

用这种方法，如果什么都不考虑的制作Subrutine或调用Subrutine，当父与子的rutine中有同名的局部变量时，后面的处理就荒谬了。实际上，为了防止这一点，使用Ｎｅｗ命令制作，使得在Subrutine端自己所用的局部变量只有在Subrutine内（自rutine内）才有效。

%XJIST ;ET;;ShiftJIS'TXT'→JIS'TXT' 字符串转换(SBCS); [ 08/19/95 11:37 AM ]

;

; TXT ← Strings

; %Kin ← KNJ In Code / Default で NEC PC-PRxxx 系

; %Kout ← KNJ Out Code

; %Kcnt ← 半角・全角比率等控制Code

; → 'TXT'

;

New %,%1,%C,%F,%K,%L,%SJIS,%KTBL,%TXT

;New (TXT,%Kin,%Kout,%Kcnt)

D ^%XKNJC

S %L=$L(TXT) Q:'%L S %1=1,(%F,%K)=0,TXT=$G(TXT),%TXT=""

S %Kin=$G(%Kin) ;S:%Kin="" %Kin=$C(27)_"K"

S %Kout=$G(%Kout) ;S:%Kout="" %Kout=$C(27)_"H"

S %Kcnt=$G(%Kcnt) ;S:%Kcnt="" %Kcnt=$C(28)_"B"

F S %K=$E(%KTBL,%1) Q:%K="" D LOP

S:%F %TXT=%TXT_%Kout S TXT=%Kcnt_%TXT

K %TXT,%KTBL,%SJIS,%L,%K,%F,%C,%1,%

Q

LOP ; Character Loop

I '%K S:%F %TXT=%TXT_%Kout S %TXT=%TXT_$E(TXT,%1),%F=0,%1=%1+1 Q

S %SJIS(1)=$A($E(TXT,%1)),%1=%1+1

S %SJIS(2)=$A($E(TXT,%1)),%1=%1+1

D ^%XJIS2

S:'%F %TXT=%TXT_%Kin,%F=1 S %TXT=%TXT_%JIS

Q

;

eor ;End-Of-Routine

另１种是，像Ｃ的函数调用那样，在Ｃａｌｌ的函数中附加参数Ｃａｌｌ。

POW(%1,%2) ;ET;; べきじょう; [ 08/19/96 11:32 AM ]

;

; W $$^POW(Parm1,Parm2,)

; S ANS=$$^POW(Parm1,Parm2)

;

Q %1**%2

;

eor ;End-Of-Routine

-------------------------------------------------------

W $$^POW(2,4)

S ANS=$$^POW(2,4) W ANS

Ｍ语言的命令和执行顺序

•

•

•

•

•

被标准化的命令・函数

省略编码（很少的书写量）

执行顺序

特殊变量

后附条件

被标准化的命令・函数

Ｍ语言推进了标准化，所以基本的命令・函数(虽然有SBCS、DBCS的区别)在所有的Ｍ处理系中，都进行完全相同的处理。根据处理系而不同的部分主要是硬件及ＯＳ的处理相关的部分、Option的格式，另外还有一个特别的式样：带Ｚ的命令・带Ｚ的函数成为处理系独自的扩展式样。

硬件及ＯＳ的处理相关的部分是指，打印机端口、串口、ＯＳ上的文件。Option的格式是指，ＯＳ上的文件Open时的文件模式的指定等格式。

MSM

Open 装置编号：（"文件名"："模式"）

DTM

Open 装置编号：（"模式"："文件名"）

省略编码（很少的书写量）

命令及函数可以不用全拼来写，可以用１～数个文字省略编码。

例如，在变量中设置数据的「Ｓｅｔ命令」可以写成「Ｓ」，输出数据的「Ｗｒｉｔｅ命令」可以写成「Ｗ」来编码。关于函数也同样，返回字符串长度的「＄Ｌｅｎｇｔｈ」可以省略为「＄Ｌ」。

因此，程序员打字的编码量比其他处理系少，减少了打字错误，缩短了打字时间，提高了生产性。

命令 略号 动作 ＢＡＳＩＣ

Ｂreak Ｂ 中断处理 中断可／不可

Ｃlose Ｃ Close装置

STOP

CLOSE

Ｄo

･ Ｄ rutine执行 GOSUB,(CHAIN, RUN)

Ｅlse o Ｅ 真伪值为0时，执行Else以下 ELSE

Ｆor o Ｆ Ｆor循环命令 FOR･･･NEXT

Ｇoto Ｇ 跳跃

Ｈalt Ｈ 中止执行，释放资源

GOTO, ON x GOTO

Ｈang Ｈ 在指定的时间之内停止

Ｉf o Ｉ 真伪值为１时，执行Ｉf以下

Ｊob Ｊ 在新环境下启动job

IF･･･THEN

Ｋill

･ Ｋ 去掉变量

Ｌock

･ Ｌ 锁定变量（排他控制）

Ｍerge Ｍ 合并变量

Ｎew

･ Ｎ 把变量暂存到栈

Ｏpen Ｏ Open装置

Ｑuit Ｑ 处理结束／Subrutine结束

Ｒead Ｒ （从现用装置）输入

Ｓet Ｓ 设置（到）变量

Ｕse Ｕ 切换现用装置

OPEN

END, RETURN

INPUT, INKEY$

*LET

Ｗrite Ｗ （向现用装置）输出 PRINT

eＸecute o Ｘ 执行数据

ＺＬoad ＺＬ 从ＤＢ加载rutine LOAD

ＺＲemove ＺＲ 从内存删去rutine

ＺＳave ＺＳ 把rutine保存到ＤＢ

ＺＵse ＺＵ 临时使用装置

＄Ａscii ＄Ａ 返回ASCII值

＄Ｃhar ＄Ｃ 返回Code的文字

＄Ｄata ＄Ｄ 返回变量的有无

＄Ｅxtract ＄Ｅ 字符串的取出及设置

NEW

SAVE

ASC

CHR$

MID$,LEFT$,RIGHT$

＄Ｆind ＄Ｆ 指定字符串的检索 INSTR

＄ＦＮumber ＄ＦＮ 数值的整形 PRINT USING

＄Ｇet ＄Ｇ 强制取出变量

＄Ｊustify ＄Ｊ 编辑为居右指定长

＄Ｌength ＄Ｌ 返回字符串的长度

PRINT USING

LEN

＄Ｏrder ＄Ｏ key的升序（降序）检索

＄Ｐiece ＄Ｐ 取出用分隔符分隔的字符串

＄Ｑuery ＄Ｑ 含有变量名的key的升序检索

＄Ｒandom ＄Ｒ 产生随机数

＄Ｓelect ＄Ｓ 返回选择的值

＄Ｔext ＄Ｔ 返回rutine行

＄ＴＲanslate ＄ＴＲ 字符串的替换

RANDOMIZE

*CASE

・和o进行Ｍ独特的功能・动作。 详细请见以后的页。

执行顺序

Ｍrutine的执行顺序，只要没有分支命令和优先顺序的变更，就是从rutine的开头向末尾方向，不受特定的label名和运算符号左右的执行。rutine的开头是指程序列表的开头，在同一行时，就是从左端向右。rutine的末尾是指程序列表的最后，同一行时就是右端。

这里要注意的是，只要没有优先顺序的变更，就从开头向末尾执行。例如，不受数学上的规则限制，在通常的计算机处理语言上按四则运算的优先顺序决定，但在Ｍ中，是单纯的从左向右处理。

处理的优先顺序，唯一能用括号变更。

数学・通常的计算机语言

１＋２＊３ → ７

････ 先处理（２＊３）再加１

Ｍ语言

１＋２＊３ → ９

････ 处理（１＋２）后乘３

１＋（２＊３） → ７

特殊变量

在Ｍ中，rutine的动作控制和周边机器的输入输出状态等，用Ｍ系统提供的特殊变量来判定・参照。

在Ｍ的命令内，Ｉｆ命令和Ｅｌｓｅ命令与非Ｍ语言的Ｉｆ・Ｅｌｓｅ命令情况不同，是否进行Ｉｆ以后、Ｅｌｓｅ以后的处理，只受＄Ｔｅｓｔ特殊变量控制。

＄Ｔｅｓｔ特殊变量具有Ｉｆ的判定结果和带时间限制的命令的执行结果的真伪值。

Ｉｆ的判定为真时和在时间内执行完命令时，为真(１)，否则为假(0)。

Ｉｆ命令处理判定语句后，只在＄Ｔｅｓｔ的值为真时继续进行Ｉｆ命令下面的处理，Ｅｌｓｅ命令只有子＄Ｔｅｓｔ的值为假时继续进行Ｅｌｓｅ命令下面的处理。

这种Ｉｆ・Ｅｌｓｅ命令的动作，在没有习惯Ｍ编程的时候也许会犯想不到的错误。

R "AGE=",AGE

I AGE>18 W "ADULT" E W "CHILD"

在此例中，当变量ＡＧＥ为１８以下时，＄Ｔｅｓｔ为假，Ｉｆ命令的判定以后不执行，「Ｅ Ｗ "ＣＨＩＬＤ"」的部分当＄Ｔｅｓｔ为真时，由于Ｅｌｓｅ命令以后的部分不执行，所以这里也不执行

IF 真

･･････････ (真)执行 ELSE

････ 因为(真)，所以不执行

IF 假

････ 因为(假)，所以不执行 ELSE

････ IF以后不执行，所以不执行

为了把它改成当变量ＡＧＥ为１８以下时执行Ｅｌｓｅ以后的部分，需要在rutine中把Ｅｌｓｅ以后的部分分到别的行（后一行）。

R "AGE=",AGE

I AGE>18 W "ADULT"

E W "CHILD"

后附条件

在仅前述的＄Ｔｅｓｔ特殊变量的分支条件下，可以想象实际的编程难以编码，但Ｍ的执行控制中除此之外还有根据命令的后附条件的执行控制。

格式为「命令：判定 命令的参数」。

如果把前述的判定用Ｗｒｉｔｅ命令的后附条件来重新写的话，则如下：

R "AGE=",AGE W:AGE>18 "ADULT" W:AGE'>18 "CHILD"

后附条件的特征是，即使进行「条件判定」，也不会在＄Ｔｅｓｔ的值中设置判定结果的真伪值。另外，后附条件还用于多个条件分支。

D SUB1:flag=1,SUB2:flag=2,SUB999:(flag'=1)&(flag'=2),SHARE

Ｍ(MUMPS)记事本

程序的写法～运算符

Last update 2004.06.18

1. Ｍ(UMPS)的写法

2. routine(程序)执行顺序

3. routine名

4. label名

5. 变量名

6. 下标

7. 数据类型 2004.06.18

8. 特殊变量

9. 命令和函数

10.带条件执行

11.运算符

本文标签： 命令 处理 使用 数据 变量