为了能够对AsmL有一个更加感性的认识，同时也为了了解如何使用AsmL建模，我们不妨来研究一个AsmL的实例。下面这个例子是一个用AsmL写成的设计规格的Word版本，它来自于AsmL2.1.5.8所带的一个例子——DiningPhilosophers。为了便于理解，我将它翻译成了中文。更多的AsmL例子可以在AsmL的Sample folder中找到。
Dijkstra的饭桌上的哲学家
FSE
Copyright (C) Microsoft Corporation. All rights reserved.
1 Embedding
这个例子是下面这个名字空间的一部分：
namespace DiningPhilosophers
2 Model
一群哲学家坐在桌边。每人的左边和右边各有一个餐叉。我们用下面这个只有一个域index的结构来定义餐叉：
structure Fork
index as Integer
哲学家被定义成具有唯一的索引，能够反映他们当前所处的状态，以及具有如下两种能力：报告他们是否能够改变状态(canMove)，以及能够执行状态的改变(move)。因为status 可以改变，所以哲学家是class而不是structure。
abstract class Philosopher
var status as State = Thinking
index as Integer
abstract canMove(table as Table) as Boolean
abstract move(table as Table)
为了简单起见，我们假定哲学家具有固定的数量(5个)。
numPhilosophers as Integer = 5
同样，我们有五把餐叉。
numForks as Integer = numPhilosophers
forks as Set of Fork = {Fork(i) | i in {1..numForks}}
哲学家左边的餐叉与哲学家具有相同的索引。哲学家右边的餐叉的索引比哲学家的索引大（是哲学家总数的模）。
left(p as Philosopher) as Fork
return Fork(p.index)
right(p as Philosopher) as Fork
return Fork(p.index mod numPhilosophers + 1)
思考中的哲学家没有餐叉。（谁需要一把餐叉来思考？）思考中的哲学家可能变得饥饿。饥饿的哲学家试图得到他左边的餐叉从而变成“左手拿餐叉的饥饿的哲学家”。但是只拿到一把餐叉是不够的，只有得到两把餐叉哲学家才开始吃东西。 而右边的餐叉只有在没有人用时才能被得到。吃完东西之后，哲学家只有一件事可以做，那就是放下两把餐叉继续思考。所以，一个成功的哲学家吃一次东西的过程是这样的： Thinking -> Hungry -> HungryWithLeftFork -> Eating -> Thinking
enum State
Thinking
Hungry
HungryWithLeftFork
Eating
我们现在为这五位哲学家定义一张桌子：
class Table
philosophers as Set of Philosopher
用一个变量来描述哪把餐叉正被哪个哲学家使用。另一个变量定义了一个正在吃东西的哲学家的集合：
class Table
var holder as Map of Fork to Philosopher = { -> }
var fed as Set of Philosopher = {}
下面的方法描述了哲学家的动作。能够动作的哲学家是随机选取的。如果没有哲学家能够动作，那么一个死锁发生了。
class Table
var stepNo as Integer = 0
[EntryPoint]
Move()
choose phil in philosophers where phil.canMove(me)
phil.move(me)
stepNo := stepNo + 1
EntryPoint使得被标记的方法能够被外部世界调用，例如可以被C#调用。
2.1 Greedy Philosophers
贪婪的哲学家在吃完东西并开始思考之前绝不会放下餐叉，这会导致死锁。
class GreedyPhilosopher extends Philosopher
override move(table as Table)
match status
Thinking : status := Hungry
Hungry : if not (left(me) in table.holder)
table.holder(left(me)) :=
me as Philosopher
status := HungryWithLeftFork
HungryWithLeftFork
: if not (right(me) in table.holder)
table.holder(right(me)) :=
me as Philosopher
status := Eating
add me to table.fed
Eating : remove table.holder(left(me))
remove table.holder(right(me))
status := Thinking
canMove方法指出哲学家是否能够改变状态：
class GreedyPhilosopher
override canMove(table as Table) as Boolean
return status = Thinking
or (status = Hungry and
left(me) notin table.holder)
or (status = HungryWithLeftFork and
right(me) notin table.holder)
or status = Eating
2.2 Generous Philosophers
慷慨的哲学家并不坚持一定要有一个成功的哲学家的生活。在拿到左手的叉子之后，如果发现无法得到右手的餐叉，慷慨的哲学家就会放下左手的餐叉，继续思考一会。因此，如果所有人都是慷慨的哲学家，那么不会有死锁，但是有可能有人饿死。:)
class GenerousPhilosopher extends Philosopher
override move(table as Table)
match status
Thinking : status := Hungry
Hungry : if not (left(me) in table.holder)
table.holder(left(me)) :=
me as Philosopher
status := HungryWithLeftFork
HungryWithLeftFork
: if not (right(me) in table.holder)
table.holder(right(me)) :=
me as Philosopher
status := Eating
add me to table.fed
else
// someone else is holding the
// right fork
// put the left one down and
// try again another time
remove table.holder(left(me))
status := Thinking
Eating : remove table.holder(left(me))
remove table.holder(right(me))
status := Thinking
注意，决定慷慨的哲学家的状态能否改变的条件要比贪婪的哲学家宽松。
class GenerousPhilosopher
override canMove(table as Table) as Boolean
return status = Thinking
or (status = Hungry and
left(me) notin table.holder)
or status = HungryWithLeftFork
or status = Eating
3 Providing the View
我们提供两个方法来初始化，一个初始化贪婪的哲学家，另一个初始化慷慨的哲学家。
class Table
[EntryPoint]
shared InitGreedy() as Table
philosophers = { new GreedyPhilosopher(i) as Philosopher |
i in [1..numPhilosophers] }
return new Table(philosophers)
[EntryPoint]
shared InitGenerous() as Table
philosophers = { new GenerousPhilosopher(i) as Philosopher |
i in [1..numPhilosophers] }
return new Table(philosophers)
给出哲学家的索引，下面的方法将指出该哲学家拿有餐叉，以及是否正在吃东西。
class Table
HoldsLeft(pIndex as Integer) as Boolean
return exists (i,p) in holder where p.index = pIndex and
left(p) = i
HoldsRight(pIndex as Integer) as Boolean
return exists (i,p) in holder where p.index = pIndex and
right(p) = i
IsFeeded(pIndex as Integer) as Boolean
return exists p in fed where p.index = pIndex
IsDeadlock() as Boolean
return forall p in philosophers holds not p.canMove(me)
IsGreedy() as Boolean
return exists p in philosophers where p is GreedyPhilosopher
StepNo() as Integer
return stepNo
本文旨在引介AsmL。由于作者也刚刚接触AsmL不久，文中的错误与疏漏之处在所难免。如遇不明之处，相信能够从微软研究院的相关网站上找到答案。如果您还不清楚AsmL是什么，您可以参考作者之前的一篇文章《AsmL：可执行的软件规格》。
