UWSCで関数の戻り値として連想配列を返したい

Question

タイトルの通り、連想配列を戻り値として返すのがやりたいことです。

関数に連想配列を渡すことはできたのですが、戻り値には指定できませんでした。普通の配列は以下のようにSLICE関数で書くと返すことができるのですが、連想配列の場合エラーが出てしまいます。

RESULT = SLICE(array)

変数: associativeが定義されていません

理想としてはPHPのarray_flipのような動作を行いたいです。

PHP: array_flip - Manual

以下が現状わかる範囲で書いたプログラムです。連想配列を参照引数で渡し、直接配列の中身を書き換えています。これを戻り値（RESULT）で返すのがやりたいことです。

PROCEDURE arrayFlip(Var associative[])
    HASHTBL tmp
    FOR i = 0 TO LENGTH(associative)-1
        tmp[associative[i, HASH_VAL]] = associative[i, HASH_KEY]
    NEXT
    associative = HASH_REMOVEALL
    FOR i = 0 TO LENGTH(tmp)-1
        associative[tmp[i, HASH_KEY]] = tmp[i, HASH_VAL]
    NEXT
FEND

UWSCの解説しているサイトなど色々と見てみたのですが、連想配列について詳しく書いているサイトが見つけられませんでした。

回答よろしくお願い致します。

Answer 1

これを戻り値（RESULT）で返すのがやりたいことです。

自分も FUNCTION で RESULT に連想配列を指定してみましたが、エラーになりました。
おそらく、UWSC で連想配列を関数の戻り値に指定することはできないのではないでしょうか。

バグなのか仕様なのかわかりませんが、下記サイトにあった arrayFlip も質問者さんと同様の実装となっているようですので、「できなさそう」というのが自分の感想です。

■ arrayFlip ｜ UWSC辞典
https://uwsc.jp/udf/arrayflip/

Comments

[akitasoran]

質問してからも色々と試してみましたが、戻り値に連想配列は指定できなさそうでした。

できることは限られてきますが、参照引数での書き換えでなんとかしようと思います。

回答ありがとうございました。

[cx20]

あぁ、もしかして、https://uwsc.jp/ の中の人でしょうか・・
釈迦に説法でしたね。すみません。。