モジュール変数を別の変数へ移動させる

インスタンスを移動させるためのモジュールとサンプルです。
ランタイムの管理から外れるので、丁寧に扱ってください。

lltds12
2015/12/26 15:57

タグ：
#hsp3

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
    //自由に使ってください。tds12
    #module m a
    #modinit int _a
        a = _a
    return
    #modcfunc f
    return a
    #modfunc del
        delmod thismod
    return
    #global
    #module
    #deffunc toclone var
    #deffunc _toclone int ppval
        dupptr pval,ppval,48,4
        wpoke pval,2,2
    return
    #deffunc toinited var _mv
        toinited1 _mv
        toinited2 _mv
    return
    #deffunc toinited1 var
    #deffunc _toinited1 int ppval
        dupptr pval,ppval,48,4
        wpoke pval,2,1
    return
    #deffunc toinited2 var _mv
        pmv = varptr(_mv)
        dupptr fv,pmv,16,4
        wpoke fv,0,1
    return
    return
    #global
    newmod inst,m,3
    inst2 = inst
    toclone inst
    inst = 2
    mes f(inst2)
    toinited inst2
    delmod inst2
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

このコードをツイートする