palate 0.3.8

File type detection combining tft and hyperpolyglot
Documentation 
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


Local i, start, result

Local s.Sum3Obj = New Sum3Obj

For i = 1 To 100000
	s = New Sum3Obj
	result = Handle Before s
	Delete s
Next

start = MilliSecs()
For i = 1 To 1000000
	result = Sum3_(MakeSum3Obj(i, i, i))
Next
start = MilliSecs() - start
Print start

start = MilliSecs()
For i = 1 To 1000000
	result = Sum3(i, i, i)
Next
start = MilliSecs() - start
Print start

WaitKey
End


Function Sum3(a, b, c)
	Return a + b + c
End Function


Type Sum3Obj
	Field isActive
	Field a, b, c
End Type

Function MakeSum3Obj(a, b, c)
	Local s.Sum3Obj = Last Sum3Obj
	If s\isActive Then s = New Sum3Obj
	s\isActive = True
	s\a = a
	s\b = b
	s\c = c
	
	Restore label
	Read foo
	
	Return Handle(s)
End Function

.label
Data (10 + 2), 12, 14
:
Function Sum3_(a_)
	Local a.Sum3Obj = Object.Sum3Obj a_
	Local return_ =  a\a + a\b + a\c
	Insert a Before First Sum3Obj :: a\isActive = False
	Return return_
End Function


;~IDEal Editor Parameters:
;~C#Blitz3D