ユーザー定義命令・関数の宣言と定義を分離して記述する

  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
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

//
//	ユーザー定義命令・関数の宣言と定義の分離
//
 
//
//	サンプルプログラム
//	処理実体定義の順序に影響されない命令呼び出し。
//
//	命令 funca は自身の定義より後で定義されている命令 funcb, funcc を呼び出す処理を行っています。
//	命令 funcb は自身の定義より後で定義されている命令 funcc を呼び出す処理を行っています。
//
 
#if 1
 
//	宣言と定義の分離形式
//	後述の比較用コードも参照してください。
 
//----------------------------------------------------------------------------
#module declarefunc
 
//	宣言
//	(命令(関数)のプロトタイプ宣言)
//	引数の型と数、「実処理の場所」のみを記述します。
 
#deffunc funca int p1, double p2, str p3, int p4
    goto *funca_core@definefunc
 
#deffunc funcb int p1, double p2, str p3, int p4
    goto *funcb_core@definefunc
 
#deffunc funcc int p1, double p2, str p3, int p4
    goto *funcc_core@definefunc
 
#global
//----------------------------------------------------------------------------
//----------------------------------------------------------------------------
#module definefunc
 
//	定義
//	実処理の内容を記述します。
//	宣言より後ならどこにどの順で置いてもかまいません。
 
//	宣言とは別モジュールになっていますが同じモジュール内に置いてもかまいません。
//	(その場合は名前の衝突に注意して下さい。)
 
//	引数を扱うためには #deffunc(#defcfunc) が必要です。
//	引数の「型」と「数」と「並び順」は宣言時のものと同じにしなくてはいけません。
//	この時の命令(関数)名はダミーなので何でもかまいません。
 
#deffunc funca_@definefunc int p1, double p2, str p3, int p4
*funca_core
    mes " a : " + p1 + " , " + p2 + " , " + p3
    if ( p4 ) : funcb p1, p2, "a to b", 0
    if ( p4 ) : funcc p1, p2, "a to c", 0
    return
 
#deffunc funcb_@definefunc int p1, double p2, str p3, int p4
*funcb_core
    mes " b : " + p1 + " , " + p2 + " , " + p3
    if ( p4 ) : funcc p1, p2, "b to c", 0
    if ( p4 ) : funca p1, p2, "b to a", 0
    return
 
#deffunc funcc_@definefunc int p1, double p2, str p3, int p4
*funcc_core
    mes " c : " + p1 + " , " + p2 + " , " + p3
    if ( p4 ) : funca p1, p2, "c to a", 0
    if ( p4 ) : funcb p1, p2, "c to b", 0
    return
 
//	最適化処理によるモジュール無効化対策
#deffunc d__@definefunc
    return
 
#global
 
//	最適化処理によるモジュール無効化対策
    goto *definefunc_skip
        d__@definefunc
*definefunc_skip
//----------------------------------------------------------------------------
 
 
 
//	main
 
    mes "funca 呼び出し"
    funca 100, 222.3333, "abcdefgh", 1
    mes "funcb 呼び出し"
    funcb 400, 555.6666, "ijklmnop", 1
    mes "funcc 呼び出し"
    funcc 700, 888.9999, "qrstuvwx", 1
    stop
 
//	end
 
 
 
#else
 
//	以下、動作比較用コード
//	宣言と定義を同時に行った場合 (コンパイルエラー)
 
//----------------------------------------------------------------------------
#module decdeffunc
 
#deffunc funca int p1, double p2, str p3, int p4
    mes " a : " + p1 + " , " + p2 + " , " + p3
    if ( p4 ) : funcb p1, p2, "a to b", 0
    if ( p4 ) : funcc p1, p2, "a to c", 0
    return
 
#deffunc funcb int p1, double p2, str p3, int p4
    mes " b : " + p1 + " , " + p2 + " , " + p3
    if ( p4 ) : funcc p1, p2, "b to c", 0
    if ( p4 ) : funca p1, p2, "b to a", 0
    return
 
#deffunc funcc int p1, double p2, str p3, int p4
    mes " c : " + p1 + " , " + p2 + " , " + p3
    if ( p4 ) : funca p1, p2, "c to a", 0
    if ( p4 ) : funcb p1, p2, "c to b", 0
    return
 
#global
//----------------------------------------------------------------------------
 
 
 
//	main
 
    mes "funca 呼び出し"
    funca 100, 222.3333, "abcdefgh", 1
    mes "funcb 呼び出し"
    funcb 400, 555.6666, "ijklmnop", 1
    mes "funcc 呼び出し"
    funcc 700, 888.9999, "qrstuvwx", 1
    stop
 
//	end
 
 
 
#endif

  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
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103

//
//	ユーザー定義命令・関数の宣言と定義の分離
//
 
//
//	サンプルプログラム
//	処理実体定義の順序に影響されない命令呼び出し。
//
//	モジュール変数を使用する場合
//
 
//	宣言と定義の分離形式
 
//----------------------------------------------------------------------------
#module declarefunc mva, mvb
 
//	宣言
//	(命令(関数)のプロトタイプ宣言)
//	引数の型と数、「実処理の場所」のみを記述します。
 
//	モジュール変数の宣言はこちら側で行います。
 
    #modinit int p1, int p2
    goto *modinit_core@definefunc
 
    #modfunc mesmva int p1
    goto *mesmva_core@definefunc
 
    #modfunc mesmvb int p1
    goto *mesmvb_core@definefunc
 
#global
//----------------------------------------------------------------------------
 
//----------------------------------------------------------------------------
#module definefunc
 
//	定義
//	実処理の内容を記述します。
//	宣言より後ならどこにどの順で置いてもかまいません。
 
//	宣言とは別モジュールになっていますが同じモジュール内に置いてもかまいません。
//	(その場合は名前の衝突に注意して下さい。)
 
//	引数を扱うためには #deffunc(#defcfunc) が必要です。
//	引数の「型」と「数」と「並び順」は宣言時のものと同じにしなくてはいけません。
//	この時の命令(関数)名はダミーなので何でもかまいません。
 
//	#modfunc の場合は #deffunc の第一引数に整数型引数、第二引数に変数引数をダミーとして追加したものを記述します。
//	(例) #modfunc modfuncname int p1, str p2 , ... は
//	     #deffunc dummyname int dummyi_, var dummyv_, int p1, str p2, ... のようにします。
 
//	モジュール変数にアクセスする場合はモジュール名を明示して
//	(モジュール変数名)@(モジュール変数を宣言したモジュール名) のように記述します。
 
//	システム変数 thismod はそのまま使用できます。
 
    #deffunc modinit_ int p0i_, var p0v_, int p1, int p2
*modinit_core@definefunc
        mva@declarefunc = p1
        mvb@declarefunc = p2
        return
 
    #deffunc mesmva_ int p0i_, var p0v_, int p1
*mesmva_core@definefunc
        mes "mva:" + mva@declarefunc
        if ( p1 == 0 ) : mesmvb thismod, 1
        return
 
    #deffunc mesmvb_ int p0i_, var p0v_, int p1
*mesmvb_core@definefunc
        mes "mvb:" + mvb@declarefunc
        if ( p1 == 0 ) : mesmva thismod, 1
        return
 
    //	最適化処理によるモジュール無効化対策
    #deffunc d__@definefunc
        return
        d__@definefunc
 
#global
//----------------------------------------------------------------------------
 
 
 
//	main
 
    newmod v, declarefunc, 100, 250
    mes "mesmva 実行"
    mesmva v, 0
    mes "mesmvb 実行"
    mesmvb v, 0
 
    mes
 
    newmod v, declarefunc, 1234, -5678
    mes "mesmva 実行"
    mesmva v(1), 0
    mes "mesmvb 実行"
    mesmvb v(1), 0
 
//	end