Module/typename

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10

#module "mod_typename"
#defcfunc typename var p1
    // 指定した変数の型タイプの型名を取得する
    mref ctx, 68
    dupptr exinf, varptr( ctx.12 ), 188
    prm = vartype(p1)
    dupptr hspvar, callfunc( prm, exinf.25, 1 ), 20 // メソッド省略
    if hspvar.3 == 0: name = "": else: dupptr name, hspvar.3, 1, 2
    return name
#global

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21

// #include "mod_typename.as"
#module mod x, y, z
#modinit int p1, int p2, int p3
    x = p1: y = p2: z = p3
    return
#modfunc m_mes
    mes "("+x+","+y+","+z+")"
    return
#global
 
    i = 10
    s = "kz3"
    d = 3.14
    newcom ie, "InternetExplorer.Application"
    newmod m, mod, 3, 4, 5
    
    mes ""+i + "(" + typename(i) + ")"
    mes ""+s + "(" + typename(s) + ")"
    mes ""+d + "(" + typename(d) + ")"
    mes "ie" + "(" + typename(ie)+ ")"
    mes "m"  + "(" + typename(m) + ")"