エラー時のロケーション情報を取得したい

[umemura]

this-localtion というのがあるのですね。
他にも this-class や、this-function などの this-XXX は共通部品等に有用そうです。

下記は、シングルトンクラスのファクトリーが2回以上呼び出されたらログを出力するサンプルです。

Code:

{define-class public final Singleton
  let private instance:#Singleton = null
  field data:String = "シングルトン"
  {constructor private {default}}
  {factory public {get-instance}:Singleton
    {if-non-null Singleton.instance then
        {output {this-location}}
        {output "すでに " & {this-class} & " のインスタンスは生成済みです"}
    else
        set Singleton.instance = {Singleton}
        {output {this-location}}
        {output  {this-function} & "から " & {this-class} & " のインスタンスが生成されました"}
    }
    {return Singleton.instance asa Singleton}
  }
}
{CommandButton
    label = "シングルトンクラス",
    {on Action do
       def s = {Singleton.get-instance}
        {popup-message s.data}
    }
}