DEF 引数の省略

パンくずリスト

概要
注意
ソースコード
使い方
- Ver2.0.0
- Ver1.0.2
解説
例
- ver2.0.0
- ver1.0.2
投票
コメント

投稿者 : うつりきまぐれ ( Ryou Tanpo ) / タグ : DEF

のべ 2429 人にお越しいただきました。

合計	2429 人
今日	4 人
昨日	1 人

ありがとうございます!

概要

たまに DEF で定義した命令の引数を省略可能にしたいという声が聞かれますが、SmileBASIC には、省略された引数を判断するための手段がありません。
また、そのまま SmileBASIC の命令や関数に渡すとエラーとなってしまいます。

これまでは、 PRG 系命令を駆使してプログラムを変換したりという方法で我慢するしかありませんでした。

そこで朗報です!!

引数が省略されたかをトリッキーに判断する関数 UNDEFINED() を作成致しました。
省略可能な引数を持つ命令・関数内で使用します。

UNDEFINED() でこのようなことが実現できます。

注意

SmileBASIC では、DEF で定義した命令や関数は、引数の数が 1 つでも異なるとエラーを発生します。
例えば、TEST という命令の中で、 UNDEFINED() で引数を調べるときは、 TEST は 2 つ以上の引数を持っていなければなりません。それは、コンマを使わずに引数を省略した場合、引数の数が異なるため Illegal function call になってしまうからです。従って、コンマで引数区切らない第1引数のみの命令は引数を省略できません。

ソースコード

数値引数バージョンでは数値変数、文字列引数バージョンでは文字列変数のみ判定できます。数値+文字列引数バージョンでは両方判定できます。

ver2.0.0 数値+文字列引数バージョン

ＤＥＦ　ＵＮＤＥＦＩＮＥＤ（Ａ％，Ｂ％）
　ＶＡＲ　Ｘ％，Ｙ％，Ｃ％，Ｄ％
　ＩＦ　”Ａ”＝＝Ｂ％＆＆”Ｂ”＝＝Ｂ％　ＴＨＥＮ
　　ＢＧＯＦＳ　Ａ％　ＯＵＴ　Ｘ％，Ｙ％
　　ＢＧＯＦＳ　Ａ％，０，１
　　ＢＧＯＦＳ　Ａ％，Ｂ％，Ｂ％
　　ＢＧＯＦＳ　Ａ％　ＯＵＴ　Ｃ％，Ｄ％
　　ＢＧＯＦＳ　Ａ％，Ｘ％，Ｙ％
　　ＲＥＴＵＲＮ　Ｃ％！＝Ｄ％
　ＥＬＳＥ
　　ＲＥＴＵＲＮ　０
　ＥＮＤＩＦ
ＥＮＤ

ver1.0.2 数値引数バージョン

Soybeanman さんの意見を参考に、BG で実装

ＤＥＦ　ＵＮＤＥＦＩＮＥＤ（Ｘ）
　ＶＡＲ　Ｕ，Ｖ，Ａ，Ｂ，Ｃ，Ｄ，Ｓ＝０
　ＢＧＯＦＳ　Ｓ　ＯＵＴ　Ｕ，Ｖ
　ＢＧＯＦＳ　Ｓ，０，０
　ＢＧＯＦＳ　Ｓ　ＯＵＴ　，Ａ
　ＢＧＯＦＳ　Ｓ，１，Ｘ
　ＢＧＯＦＳ　Ｓ　ＯＵＴ　Ｂ，Ｃ
　ＢＧＯＦＳ　Ｓ，Ｘ，１
　ＢＧＯＦＳ　Ｓ　ＯＵＴ　Ｄ，
　ＢＧＯＦＳ　Ｓ，Ｕ，Ｖ
　ＲＥＴＵＲＮ　Ａ＝＝Ｃ　＆＆　Ｂ＝＝Ｄ
ＥＮＤ

ver1.0.2 文字列引数バージョン

ＤＥＦ　ＵＮＤＥＦＩＮＥＤ（Ｘ＄）
　ＲＥＴＵＲＮ　”Ａ”＝＝Ｘ＄　＆＆　”Ｂ”＝＝Ｘ＄
ＥＮＤ

使い方

Ver2.0.0

まず、ソースコードをプログラム末尾などに手入力してください。両バージョンを使用する場合は適宜関数名を変更してください。第1引数(A%) には、一時的に使うBGレイヤーを指定してください。第2引数 (B$)には、省略されているかどうかを調べる数値を入れてください。第2引数 (B$) が省略されていたら TRUE 、そうでなければ FALSE を戻り値として返します。

Ver1.0.2

まず、ソースコードをプログラム末尾などに手入力してください。両バージョンを使用する場合は適宜関数名を変更してください。

ver1.0.2の両バージョンともに、UNDEFINED() は、第1引数 (ARG) が省略されていたら TRUE 、そうでなければ FALSE を戻り値として返します。

結果＝ＵＮＤＥＦＩＮＥＤ（ＡＲＧ）

前述の理由で、自分の命令や関数を省略可能にするには 2 つ以上の引数を用意してください。
また、自分の命令や関数を省略して呼び出すときにコンマは省略しないでください。

解説

DEF の引数が省略されたとき、その引数は命令の引数に渡すとエラーになります。しかし、LOCATE や SPOFS などの、コンマをつけたまま省略する引数に渡すと、省略される扱いとなります。*1 例えば、

ＬＯＣＡＴＥ　１５，

とすると、X 座標だけ変化し、 Y 座標は維持できます。

ＤＥＦ　ＴＥＳＴ　Ｙ，ＴＸＴ＄
　ＬＯＣＡＴＥ　５０－ＬＥＮ（ＴＸＴ＄），Ｙ
　ＰＲＩＮＴ　ＴＸＴ＄
ＥＮＤ

これは、なんの変哲もありませんね。例えば TEST 5,＂HELLO＂とすると、 LOCATE 50-LEN(＂HELLO＂),5:PRINT ＂HELLO＂としたことになる。
つまり、指定された Y 座標の行の右端に HELLO と表示されます。

このことは当然ですね。それでは、 TEST ,＂HELLO＂としてはいかがでしょう。

こうすると、変数(Y:仮引数)は指定されているのですが、前述のとおりに、 LOCATE 50-LEN(TXT$),Y の Y が省略扱いになります。つまり、 LOCATE 50-LEN(TXT$), となるのです。すると、 Y 座標は維持されるので、結果的には、現在の Y 座標の行の、右端に HELLO と表示されるのです。

UNDEFINED() はこの原理を利用しています。

例

ver2.0.0

ＤＥＦ　ＴＥＳＴ　Ａ％，Ｂ
　ＰＲＩＮＴ　ＵＮＤＥＦＩＮＥＤ（０，Ａ％）
ＥＮＤ

ＤＥＦ　ＵＮＤＥＦＩＮＥＤ（Ａ％，Ｂ％）
　’上のソースコードをうつしてね
　’あるいは、別のファイルとして保存して、
　’ＥＸＥＣで別のスロットに呼び出す
ＥＮＤ

TEST を第1引数を指定して呼び出したら 0 、省略して呼び出したら 1 が表示されます。
TEST 0,
- 0
TEST ＂A＂,
- 0
TEST ,
- 1

ver1.0.2

ＤＥＦ　ＴＥＳＴ　Ａ，Ｂ
　ＰＲＩＮＴ　ＵＮＤＥＦＩＮＥＤ（Ａ）
ＥＮＤ

ＤＥＦ　ＵＮＤＥＦＩＮＥＤ（Ｘ）
　’上のソースコードをうつしてね
　’あるいは、別のファイルとして保存して、
　’ＥＸＥＣで別のスロットに呼び出す
ＥＮＤ

TEST を第1引数を指定して呼び出したら 0 、省略して呼び出したら 1 が表示されます。
TEST 0,
- 0
TEST ,
- 1
TEST ＂A＂,
- エラー

投票

ご指摘、ご要望、ご感想、およびバグ報告はこちら。
コメントの並び順を変更したため、過去のコメントは消去しました。

あまさとしおん : 配列が入ってくる引数の省略の調べ方って存在しないんだろうか (2022/06/23 (木) 20:59:05)
Na : しかもこの関数専用のスプライトならC,Dを取得した後座標を戻す必要がありません。 (2020/04/11 (土) 16:02:16)
Na : BGOFSを使うとBGANIMが止まってしまうので、代わりに最初に空き番号にスプライトを作成してSPHIDEで非表示にしておいて、SPOFSを使いました。 (2020/04/11 (土) 15:59:20)
名無しさん : 3 3 4 (2018/06/25 (月) 22:36:21)
Ryou Tanpo : すみません、わざわざ例まで編集していただきありがとうございます...! 数値と文字列両対応を作ってしまうとは... (2018/01/05 (金) 21:14:09)
Soybeanman : 「UNDEFINED には「命令の仮引数」を指定すればエラーにならない」なるほど。理解できました。解説ありがとうございます。 (2018/01/05 (金) 19:58:06)
Soybeanman : わかりました。編集しました。 (2018/01/05 (金) 19:20:43)
Ryou Tanpo : >Soybeanman さんすみません、現在都合でダウンロードできないため上の ver 2.0.0 に編集お願いできますか? (2018/01/05 (金) 17:09:03)
Ryou Tanpo : >Soybeanman さん UNDEFINED には「命令の仮引数」を指定すればエラーにならないはずですが… (2018/01/05 (金) 17:06:22)
名無しさん : いやったｱｱｱｱｱ (2018/01/05 (金) 16:54:27)
Soybeanman : [EKX33PL6]両方対応バージョンを作りました。このページに載せてもらって差し支えありません。 (2018/01/05 (金) 16:33:45)
Soybeanman : 文字列引数バージョンを使うとエラーになります。あと、数値引数バージョンの第2引数(_)がなくなっているのでこちらもエラーになると思います。 (2018/01/05 (金) 16:08:52)
名無しさん : 続き)単にstringとdoubleで判別(v>0<3)するだけじゃできなかったので･･･() (2018/01/04 (木) 21:39:33)
名無しさん : 両方対応バージョン作ってください!!(無茶ぶり) (2018/01/04 (木) 21:37:30)
Ryou Tanpo : 文字列引数バージョン作成できたのでソースコードのせました。 (2018/01/04 (木) 21:10:41)
Ryou Tanpo(インテリもどき) : 文字列対応の UNDEFINED() は厳しいかもなぁ… (2017/11/29 (水) 15:09:25)

メニュー【3号】

旧プチコンまとめWiki
(初代/mkII)

ヘルプ

リンク

Miiverseの避難先まとめ

プチコン3号リンク集

オンライン情報

現在同時に 3 人がこのサイトを見ています
このページはこれまでに 2429 回、本日は 4 回、昨日は 1 回閲覧されました

ページの先頭に戻る

選択肢	投票
これは使える!!	1
知らなかった...	1
ふつうかな	0
ダメダメかなぁ	0
いまいち機能がわからない	0

プチコン3号＆BIGまとめWiki