Create コマンドは新しいミューテックスを作成します。このコマンドはミューテックスをあらわす整数識別子を返します。

Create コマンドは引数をとりません。

一度作成したミューテックスは Lock および Unlock コマンドを使ってロックおよびアンロックをすることができます。

あるミューテックスが必要なくなったときは、 Destroy コマンドで破棄します。これにより使っていたリソースが開放されます。

p := proc( m )
    global count;
    print( count );
    count := count+1;
end proc;

      p := proc(m) global count; print(count); count := count + 1 end proc

count := 1;

                                   count := 1

Threads:-Wait( seq( Threads:-Create( p(m) ), i=1..10 ) );

                                       1

                                       2

                                       3

                                       4

                                       5

                                       6

                                       6

                                       8

                                       8

                                       10

p := proc( m )
    global count;
    Threads:-Mutex:-Lock( m );
    print( count );
    count := count+1;
   
    Threads:-Mutex:-Unlock( m );
end proc;

p := proc(m)
global count;
    Threads:-Mutex:-Lock(m);
    print(count);
    count := count + 1;
    Threads:-Mutex:-Unlock(m)
end proc

count := 1;

                                   count := 1

m := Threads:-Mutex:-Create();

                                     m := 1

Threads:-Wait( seq( Threads:-Create( p(m) ), i=1..10 ) ):

                                       1

                                       2

                                       3

                                       4

                                       5

                                       6

                                       7

                                       8

                                       9

                                       10

Threads:-Mutex:-Destroy( m );