[C]lock/unlock指示文を関数に変更

Fortran2008ではlock/unlockはstatementなので、XMP/Cではlock/unlock指示文を関数に変更する
参考として、Fortran2008のlock/unloickの例は下記の通り（N1824より）

module stack_manager
  use, intrinsic :: iso_fortran_env, only: lock_type 
  type task
    :
  end type
  type(lock_type), private :: stack_lock[*]
  type(task), private :: stack(100)[*]
  integer, private :: stack_size[*]
contains
  subroutine get_task(job)
  ! Get a task from my stack
    type(task),intent(out) :: job
    lock(stack_lock)
      job=stack(stack_size)
      stack_size=stack_size-1
    unlock(stack_lock)
  end subroutine get_task
  subroutine put_task(job,image)
    ! Put a task on the stack of image
    type(task),intent(in) :: job
    integer,intent(in) :: image
    lock(stack_lock[image])
      stack_size[image]=stack_size[image]+1
      stack(stack_size[image])[image] = job
    unlock(stack_lock[image])
  end subroutine put_task
end module stack_manager

XMP仕様書v1.2.1のXMP/Cのlock/unlock指示文の例は下記の通り

#include <xmp.h>
xmp_lock_t stack:[*];
int A:[*], B;
#pragma xmp nodes p(*)
  : 
#pragma xmp lock(stack:[2]);
if(xmp_node_num() == 1){
      A:[2] = B;
}
#pragma xmp unlock(unstack:[2]);

変更案は下記の通り

#include <xmp.h>
xmp_lock_t stack:[*];
int A:[*], B;
#pragma xmp nodes p(*)
  : 
xmp_lock(stack:[2]);
if(xmp_node_num() == 1){
      A:[2] = B;
}
xmp_unlock(unstack:[2]);

考慮する点として、Fortran2008のlock/unlock statementsは、STAT=とERRMSG=が指定できる。XMP/Cではどうするか？
- xmp_lock()/_unlock()を組み込み関数ということにして、引数の数で動作を変える？
- xmp_lock(xmp_lock_t stack)
- xmp_lock(xmp_lock_t stack, int *stat)
- xmp_lock(xmp_lock_t stack, int stat, char errmsg)
- もしくは、短い修飾子をつける
- xmp_lock(xmp_lock_t stack)
- xmp_lock_s(xmp_lock_t stack, int *stat)
- xmp_lock_se(xmp_lock_t stack, int stat, char errmsg)

XcalableMP / Specification

[C]lock/unlock指示文を関数に変更 #43