キュー

様々なデータタイプを格納できるキューのモジュールです（メモリが許す限りデータを格納できます）
そのままでは配列等は格納できませんが、DataContainerモジュールを変更すれば格納できます
flat_ta
2015/6/20 20:19
タグ：
タグはありません
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
// データを保存するだけのモジュール
// 各種データをモジュール変数として扱う用
#module DataContainer m_data, m_size, m_rsize
#modinit var p_data, int p_size, \
local index
    if p_size < 0 {
        delmod thismod
        return -1
    }
    m_size = p_size
    if m_size > 0 {
        dimtype m_data, vartype(p_data), m_size
        switch vartype(p_data)
            case vartype("int")    : m_rsize = m_size << 2 : swbreak
            case vartype("str")    : m_rsize = m_size      : swbreak
            case vartype("double") : m_rsize = m_size << 3 : swbreak
            case vartype("label")  : m_rsize = m_size << 2 : swbreak    // TODO: 64Bit版
            case vartype("struct") : delmod thismod : return -1         // 未実装
            default                : delmod thismod : return -1         // 実装する気ナシ
        swend
        memcpy m_data, p_data, m_rsize
    } else {
        dimtype m_data, vartype(p_data), 1
        m_rsize = 0
    }
    mref index, 2
    return index
// 格納されたデータを取得
#modfunc  local GetData var p_data
    if m_size > 0 {
        dimtype p_data, vartype(m_data), m_size
        memcpy p_data, m_data, m_rsize
    } else {
        dimtype p_data, vartype(m_data), 1
    }
    return
// 格納されたデータのサイズを取得
#modcfunc local GetSize
    return m_size
// 格納されたデータの実サイズを取得
#modcfunc local GetRealSize
    return m_rsize
#global
// キューのモジュール
#module Queue m_data, m_index, m_num
#modinit \
local index
    dimtype m_data, vartype("struct"), 1
    dim m_index, 1
    dim m_num
    mref index, 2
    return index
// キューにデータを追加
// Enqueue@Queue [VAR]モジュール変数, [VAR]追加するデータ, [INT]データの大きさ
// 戻り値：正常終了だと1、処理に失敗すると0
#modfunc  local Enqueue var p_data, int p_size
    newmod m_data, DataContainer, p_data, p_size
    if stat < 0 : return 0
    m_index(m_num) = stat
    m_num++
    return 1
// キューからデータを取得
// Dequeue@Queue [VAR]モジュール変数, [VAR]出力先変数
// 戻り値：正常終了だと1、処理に失敗すると0
#modfunc  local Dequeue var p_data
    if m_num <= 0 : return 0
    GetData@DataContainer m_data(m_index(0)), p_data
    m_num--
    memcpy m_index, m_index, m_num << 2, 0, 4
    return 1
// キューのデータ数を取得
// RET = GetDataNum@Queue([VAR]モジュール変数)
// 戻り値：データ数
#modcfunc local GetDataNum
    return m_num
// 次のデータのサイズを取得
// RET = GetNextDataSize@Queue([VAR]モジュール変数)
// 戻り値：データサイズ、ただしデータがないときは-1
#modcfunc local GetNextDataSize
    if m_num <= 0 : return -1
    return GetSize@DataContainer(m_data(m_index(0)))
#global
// 以下サンプル、#if 0を#if 1にして動作
#if 0
    newmod mod, Queue
    sdim text
    
    objsize 60, 20
    pos   0, 0 : input text, 200, 20
    pos 200, 0 : button "Enqueue",  *enqueue
    pos 260, 0 : button "Dequeue",  *dequeue
    pos 320, 0 : button "Count",    *count
    pos 380, 0 : button "Get Size", *getsize
    pos 10, 30
    stop
*enqueue
    if text == "" {
        mes "No Data Specified"
        stop
    }
    Enqueue@Queue mod, text, strlen(text)
    mes "Enqueued ["+text+"]"
    objprm 0, ""
    sdim text
    stop
*dequeue
    sdim data
    Dequeue@Queue mod, data
    if stat {
        mes "Dequeued ["+data+"]"
    } else {
        mes "No Data in Queue"
    }
    stop
*count
    mes "There are "+GetDataNum@Queue(mod)+" Data in Queue"
    stop
*getsize
    size = GetNextDataSize@Queue(mod)
    if size >= 0 {
        mes "Next Data is "+size+" Bytes Long"
    } else {
        mes "No Data in Queue"
    }
    stop
#endif
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
このコードをツイートする