В чем сложность?

Sumo 15.08.2013 08:39 / 15.08.2013 08:40

@main[]
  ^myLock[/../data/test.lock]{
    ...
  }

@myLock[aFileName;aCode]
  $result[]
  ^try{
    ^file:lock[$aFileName]{
      $result[$aCode]
    }
  }{}{
    ^if(-f $aFileName){
      ^file:delete[$aFileName]
    }
  }