HSP

【HSP】dupptrを使った構造体のような何か

【上級者向け】プロのHSPerになりたけりゃdupptrを使え


概要

上記記事を見て突発的に思いついたことを実践しただけの記事。

#runtime "hsp3cl"


#const global str_t 2
#const global int_t 4
#define global ctype Person(%1) %tPerson \
%i=varptr(%1) :\
dupptr %1_name,%p,16,str_t :\
dupptr %1_age,%o+16,4,int_t
#define global ctype new@Person(%1,%2,%3) \
sdim %1,20 :\
Person(%1) :\
%1_name=%2 :\
%1_age=%3

#module
#deffunc view var p
Person(p)
mes "名前:"+p_name
mes "年齢:"+p_age
return
#global

#module Program
#deffunc main
new@Person(student,"bob",13)
view student
new@Person(teacher,"john",30)
view teacher
return
#global
main

関数の引数として複数型の複数変数をまとめて渡せるのは素晴らしい。

都度ポインタの定義が必要になるけど、そのまま変数引き継げるなら十分。

モジュール変数みたいにアクセサが必要にならないのは便利。

定義時に変数サイズを細かく指定しておかなきゃならないのが若干ネックになりそうか。

おまけ:モジュール変数版/列挙体&文字列配列版

#runtime "hsp3cl"


#module Person __name,__age
#modcfunc name
return __name
#modfunc set_name str _name
__name=_name: return
#modcfunc age
return __age
#modfunc set_age int _age
__age=_age: return

#define new(%1,%2,%3) dimtype %1,5: newmod %1,Person,%2,%3
#modinit str _name,int _age
__name=_name
__age=_age
return
#global

#module
#deffunc view var p
mes "名前:"+name(p)
mes "年齢:"+age(p)
return
#global

#module Program
#deffunc main
new@Person student,"bob",13
view student
new@Person teacher,"john",30
view teacher
return
#global
main

#runtime "hsp3cl"


#enum global name=0
#enum global age
#enum global PersonLen
#module Person
#deffunc local initPerson array p,str _name,int _age
p.name=_name
p.age=str(_age)
return
#define new(%1,%2,%3) dim %1,PersonLen: initPerson@Person %1,%2,%3
#global

#module
#deffunc view array p
mes "名前:"+p.name
mes "年齢:"+p.age
return
#global

#module Program
#deffunc main
new@Person student,"bob",13
view student
new@Person teacher,"john",30
view teacher
return
#global
main