HspCmd/mref

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42

#module
#deffunc test_A array sary_A, local adr, local saryinfo_A    ; 文字列型配列変数を受け取る
    mref hspctx,68
    dupptr adr, hspctx.207, 4
    dupptr saryinfo_A, adr, 48    ; 第一引数のPVAL構造体取得
    
    repeat saryinfo_A.2
        mes sary_A.cnt
    loop
    
    return
 
#deffunc test_B array sary_B, local adr, local saryinfo_B    ; 文字列型配列変数を受け取る
    mref hspctx, 68
    dupptr adr, hspctx.207, 4
    dupptr saryinfo_B, adr, 48    ; 第一引数のPVAL構造体取得
    
    repeat saryinfo_B.2 * saryinfo_B.3
        francais = cnt\saryinfo_B.2
        japonais = cnt/saryinfo_B.2
        
        mes sary_B.francais.japonais
    loop
    
    return
#global
 
sdim s,64,16
s.0    = "C" , "Perl" , "BASIC" , "java"
s.4    = "C++" , "HSP" , "DELPHI" , "VBS"
s.8    = "JScript" , "D" , "pascal" , "VBA"
s.12    = "HTML" , "Sleipnir" , "FireFox" , "Opera"
 
test_A s
 
sdim t,64,2,4
t.0.0    = "Le Japon" , "日本"
t.0.1    = "La France" , "フランス"
t.0.2    = "La Chine" , "中国"
t.0.3    = "Les Etas Unis" , "アメリカ合衆国"
 
test_B t

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61

    #include "llmod.as"
 
    #module "try"
 
    #deffunc try_int int , int
        mref n1 , 0
        mref n2 , 1
 
        getptr p , n1 : mes "pointer to n1 = " + p
        getptr p , n2 : mes "pointer to n2 = " + p
 
        mes "n1 = " + n1 + " , n2 = " + n2
        mes "n1.0 = " + n1.0 + " , n1.1 = " + n1.1
 
        return
 
    #deffunc try_str str , str
        mref s1 , 32
        mref s2 , 33
 
        getptr p , s1 : mes "pointer to s1 = " + p
        getptr p , s2 : mes "pointer to s2 = " + p
 
        mes "s1 = " + s1 + " , s2 = " + s2
 
        return
 
    #deffunc try_val val , val
    mref v1 , 16
        mref v2 , 17
 
        getptr p , v1 : mes "pointer to v1 = " + p
        getptr p , v2 : mes "pointer to v2 = " + p
 
        mes "v1 = " + v1 + " , v2 = " + v2
 
        return
 
    #global
 
    font "ＭＳ ゴシック" , 18
 
    try_int 10,100
 
    mes "n1 = " + n1@try
    mes "n2 = " + n2@try
 
    try_str "hsp2.61" , "hsp3.0a"
 
    mes "n1 = " + n1@try
    mes "n2 = " + n2@try
 
    a = 5 : b = 10
    getptr p , a : mes "pointer to a = " + p
    getptr p , b : mes "pointer to b = " + p
    try_val a , b
 
    mes "n1 = " + n1@try
    mes "n2 = " + n2@try
 
    stop