all files / vmodel/ compact.js

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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
 
 
 
 
 
 
 
 
 
 
1×
1×
1×
 
 
1×
1×
 
 
1×
 
 
 
 
1×
 
1×
6247×
6247×
 
 
 
 
 
 
 
1×
 
 
 
 
1×
323×
178×
 
 
 
 
178×
177×
 
1×
 
 
178×
2×
2×
2×
1×
 
 
 
 
 
1×
323×
112×
112×
4×
5×
 
 
 
 
 
1×
4×
 
 
1×
427×
 
427×
4697×
11×
4686×
 
 
427×
1126×
1126×
155×
155×
51×
51×
51×
 
104×
 
 
427×
 
1×
2×
 
427×
1×
 
427×
 
 
1×
1×
1×
1×
 
 
 
1×
1×
 
1×
 
1×
1×
1×
1×
1×
 
1×
1×
 
1×
1×
 
1×
 
1×
1×
1×
1×
 
 
1×
 
 
 
1×
1×
1×
 
 
 
 
 
1×
1×
1×
1×
 
1×
 
 
1×
 
1×
1×
 
 
 
 
 
 
 
1×
 
 
 
 
1×
1×
1×
1×
 
 
 
1×
1×
1×
 
1×
1×
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1×
1×
1×
1×
 
 
 
1×
1×
1×
1×
1×
1×
1×
1×
 
 
 
 
 
 
1×
 
1×
1×
 
 
 
 
1×
import { avalon, platform, modern, msie } from '../seed/core'
import { $$skipArray } from './reserved'
import { Action } from './Action'
import './share'
import './ProxyArray'
 
export { avalon, platform, itemFactory }
 
//如果浏览器不支持ecma262v5的Object.defineProperties或者存在BUG，比如IE8
//标准浏览器使用__defineGetter__, __defineSetter__实现
var canHideProperty = true
try {
    Object.defineProperty({}, '_', {
        value: 'x'
    })
    delete $$skipArray.$vbsetter
    delete $$skipArray.$vbthis
} catch (e) {
    /* istanbul ignore next*/
    canHideProperty = false
}
 
 
 
var protectedVB = { $vbthis: 1, $vbsetter: 1 }
    /* istanbul ignore next */
export function hideProperty(host, name, value) {
    Eif (canHideProperty) {
        Object.defineProperty(host, name, {
            value: value,
            writable: true,
            enumerable: false,
            configurable: true
        })
    } else if (!protectedVB[name]) {
        /* istanbul ignore next */
        host[name] = value
    }
}
 
 
export function watchFactory(core) {
    return function $watch(expr, callback, deep) {
        var w = new Action(core.__proxy__, {
            deep: deep,
            type: 'user',
            expr: expr
        }, callback)
        if (!core[expr]) {
            core[expr] = [w]
        } else {
            core[expr].push(w)
        }
 
        return function() {
            w.dispose()
            avalon.Array.remove(core[expr], w)
            if (core[expr].length === 0) {
                delete core[expr]
            }
        }
    }
}
 
export function fireFactory(core) {
    return function $fire(expr, a) {
        var list = core[expr]
        if (Array.isArray(list)) {
            for (var i = 0, w; w = list[i++];) {
                w.callback.call(w.vm, a, w.value, w.expr)
            }
        }
    }
}
 
function wrapIt(str) {
    return '☥' + str + '☥'
}
 
export function afterCreate(vm, core, keys, bindThis) {
    var ac = vm.$accessors
        //隐藏系统属性
    for (let key in $$skipArray) {
        if (avalon.msie < 9 && core[key] === void 0)
            continue
        hideProperty(vm, key, core[key])
    }
    //为不可监听的属性或方法赋值
    for (let i = 0; i < keys.length; i++) {
        let key = keys[i]
        if (!(key in ac)) {
            let val = core[key]
            if (bindThis && typeof val === 'function') {
                vm[key] = val.bind(vm)
                vm[key]._orig = val
                continue
            }
            vm[key] = val
        }
    }
    vm.$track = keys.join('☥')
 
    function hasOwnKey(key) {
        return wrapIt(vm.$track).indexOf(wrapIt(key)) > -1
    }
    if (avalon.msie < 9) {
        vm.hasOwnProperty = hasOwnKey
    }
    vm.$events.__proxy__ = vm
}
 
platform.hideProperty = hideProperty
platform.fireFactory = fireFactory
platform.watchFactory = watchFactory
platform.afterCreate = afterCreate
 
 
 
var createViewModel = Object.defineProperties
var defineProperty
 
var timeBucket = new Date() - 0
    /* istanbul ignore if*/
Iif (!canHideProperty) {
    if ('__defineGetter__' in avalon) {
        defineProperty = function(obj, prop, desc) {
            if ('value' in desc) {
                obj[prop] = desc.value
            }
            if ('get' in desc) {
                obj.__defineGetter__(prop, desc.get)
            }
            if ('set' in desc) {
                obj.__defineSetter__(prop, desc.set)
            }
            return obj
        }
        createViewModel = function(obj, descs) {
            for (var prop in descs) {
                if (descs.hasOwnProperty(prop)) {
                    defineProperty(obj, prop, descs[prop])
                }
            }
            return obj
        }
    }
    /* istanbul ignore if*/
    if (msie < 9) {
        var VBClassPool = {}
        window.execScript([ // jshint ignore:line
            'Function parseVB(code)',
            '\tExecuteGlobal(code)',
            'End Function' //转换一段文本为VB代码
        ].join('\n'), 'VBScript');
 
        var VBMediator = function(instance, accessors, name, value) { // jshint ignore:line
            var accessor = accessors[name]
            if (arguments.length === 4) {
                accessor.set.call(instance, value)
            } else {
                return accessor.get.call(instance)
            }
        }
        createViewModel = function(name, accessors, properties) {
            // jshint ignore:line
            var buffer = []
            buffer.push(
                    '\tPrivate [$vbsetter]',
                    '\tPublic  [$accessors]',
                    '\tPublic Default Function [$vbthis](ac' + timeBucket + ', s' + timeBucket + ')',
                    '\t\tSet  [$accessors] = ac' + timeBucket + ': set [$vbsetter] = s' + timeBucket,
                    '\t\tSet  [$vbthis]    = Me', //链式调用
                    '\tEnd Function')
                //添加普通属性,因为VBScript对象不能像JS那样随意增删属性，必须在这里预先定义好
            var uniq = {
                $vbthis: true,
                $vbsetter: true,
                $accessors: true
            }
            for (name in $$skipArray) {
                if (!uniq[name]) {
                    buffer.push('\tPublic [' + name + ']')
                    uniq[name] = true
                }
            }
            //添加访问器属性 
            for (name in accessors) {
                if (uniq[name]) {
                    continue
                }
                uniq[name] = true
                buffer.push(
                    //由于不知对方会传入什么,因此set, let都用上
                    '\tPublic Property Let [' + name + '](val' + timeBucket + ')', //setter
                    '\t\tCall [$vbsetter](Me, [$accessors], "' + name + '", val' + timeBucket + ')',
                    '\tEnd Property',
                    '\tPublic Property Set [' + name + '](val' + timeBucket + ')', //setter
                    '\t\tCall [$vbsetter](Me, [$accessors], "' + name + '", val' + timeBucket + ')',
                    '\tEnd Property',
                    '\tPublic Property Get [' + name + ']', //getter
                    '\tOn Error Resume Next', //必须优先使用set语句,否则它会误将数组当字符串返回
                    '\t\tSet[' + name + '] = [$vbsetter](Me, [$accessors],"' + name + '")',
                    '\tIf Err.Number <> 0 Then',
                    '\t\t[' + name + '] = [$vbsetter](Me, [$accessors],"' + name + '")',
                    '\tEnd If',
                    '\tOn Error Goto 0',
                    '\tEnd Property')
 
            }
 
            for (name in properties) {
                if (!uniq[name]) {
                    uniq[name] = true
                    buffer.push('\tPublic [' + name + ']')
                }
            }
 
            buffer.push('\tPublic [hasOwnProperty]')
            buffer.push('End Class')
            var body = buffer.join('\r\n')
            var className = VBClassPool[body]
            if (!className) {
                className = avalon.makeHashCode('VBClass')
                window.parseVB('Class ' + className + body)
                window.parseVB([
                    'Function ' + className + 'Factory(acc, vbm)', //创建实例并传入两个关键的参数
                    '\tDim o',
                    '\tSet o = (New ' + className + ')(acc, vbm)',
                    '\tSet ' + className + 'Factory = o',
                    'End Function'
                ].join('\r\n'))
                VBClassPool[body] = className
            }
            var ret = window[className + 'Factory'](accessors, VBMediator) //得到其产品
            return ret //得到其产品
        }
    }
}
 
platform.createViewModel = createViewModel