Warning, /frameworks/syntax-highlighting/autotests/folding/highlight.lua.fold is written in an unsupported language. File is not indexed.
0001 #!/usr/bin/env lua 0002 0003 -- Metatables 0004 t = <beginfold id='1'>{</beginfold id='1'> 0005 __add=<beginfold id='2'>function</beginfold id='2'>(a,b)return a+b <endfold id='2'>end</endfold id='2'>, 0006 __sub=<beginfold id='2'>function</beginfold id='2'>(a,b)return a-b <endfold id='2'>end</endfold id='2'>, 0007 __mul=<beginfold id='2'>function</beginfold id='2'>(a,b)return a*b <endfold id='2'>end</endfold id='2'>, 0008 __div=<beginfold id='2'>function</beginfold id='2'>(a,b)return a/b <endfold id='2'>end</endfold id='2'>, 0009 __mod=<beginfold id='2'>function</beginfold id='2'>(a,b)return a%b <endfold id='2'>end</endfold id='2'>, 0010 __pow=<beginfold id='2'>function</beginfold id='2'>(a,b)return a^b <endfold id='2'>end</endfold id='2'>, 0011 __unm=<beginfold id='2'>function</beginfold id='2'>(a)return -a <endfold id='2'>end</endfold id='2'>, 0012 __idiv=<beginfold id='2'>function</beginfold id='2'>(a,b)return a//b <endfold id='2'>end</endfold id='2'>, 0013 __band=<beginfold id='2'>function</beginfold id='2'>(a,b)return a&b <endfold id='2'>end</endfold id='2'>, 0014 __bor=<beginfold id='2'>function</beginfold id='2'>(a,b)return a|b <endfold id='2'>end</endfold id='2'>, 0015 __bxor=<beginfold id='2'>function</beginfold id='2'>(a,b)return a~b <endfold id='2'>end</endfold id='2'>, 0016 __bnot=<beginfold id='2'>function</beginfold id='2'>(a)return ~a <endfold id='2'>end</endfold id='2'>, 0017 __shl=<beginfold id='2'>function</beginfold id='2'>(a,b)return a<<b <endfold id='2'>end</endfold id='2'>, 0018 __shr=<beginfold id='2'>function</beginfold id='2'>(a,b)return a>>b <endfold id='2'>end</endfold id='2'>, 0019 __concat=<beginfold id='2'>function</beginfold id='2'>(a,b)return a..b <endfold id='2'>end</endfold id='2'>, 0020 __len=<beginfold id='2'>function</beginfold id='2'>(a)return #a <endfold id='2'>end</endfold id='2'>, 0021 __eq=<beginfold id='2'>function</beginfold id='2'>(a,b)return a==b <endfold id='2'>end</endfold id='2'>, 0022 __lt=<beginfold id='2'>function</beginfold id='2'>(a,b)return a<b <endfold id='2'>end</endfold id='2'>, 0023 __le=<beginfold id='2'>function</beginfold id='2'>(a,b)return a<=b <endfold id='2'>end</endfold id='2'>, 0024 __index=<beginfold id='2'>function</beginfold id='2'>(t,k)return t[k] <endfold id='2'>end</endfold id='2'>, 0025 __newindex=<beginfold id='2'>function</beginfold id='2'>(t,k,v)return t[k]=v <endfold id='2'>end</endfold id='2'>, 0026 __call=<beginfold id='2'>function</beginfold id='2'>(f, ...)return f(...) <endfold id='2'>end</endfold id='2'>, 0027 0028 __tostring=<beginfold id='2'>function</beginfold id='2'>(a)return tostring(a) <endfold id='2'>end</endfold id='2'>, 0029 __pairs=<beginfold id='2'>function</beginfold id='2'>(t)return pairs(a) <endfold id='2'>end</endfold id='2'>, 0030 -- setmetatable 0031 __metatable=true 0032 -- Garbage collector 0033 __gc=<beginfold id='2'>function</beginfold id='2'>() <endfold id='2'>end</endfold id='2'> 0034 -- Weak table 0035 __mode='k' -- or 'v' 0036 <endfold id='1'>}</endfold id='1'> 0037 0038 a or b 0039 a and b 0040 a~=b 0041 a>=b 0042 true or false 0043 a or nil 0044 a::m 0045 a.m 0046 a;a 0047 0048 0049 -- String 0050 '\a' 0051 '\b' 0052 '\f' 0053 '\n' 0054 '\r' 0055 '\t' 0056 '\v' 0057 '\\' 0058 '\"' 0059 '\'' 0060 '\z' 0061 '\xff' 0062 '\xFF' 0063 '\231' 0064 '\23' 0065 '\2' 0066 '\u{100201}' -- max 6 digits 0067 '\2a\ks' -- error 0068 0069 'multi\ 0070 line' 0071 'multi\z 0072 line' 0073 'multi\z line\ 0074 2' 0075 0076 a = 'alo\n123"' 0077 a = "alo\n123\"" 0078 a = '\97lo\10\04923"' 0079 a = [[alo 0080 123"]] 0081 a = [==[ 0082 alo 0083 123"]==] 0084 0085 0086 -- Decimal 0087 3 0088 345 0089 0xff 0090 0xBEBADA 0091 0092 -- Float 0093 3. 0094 .3 0095 3.0 0096 3.1416 0097 314.16e-2 0098 314.e+2 0099 0.31416E1 0100 34e1 0101 0.e3 0102 0x0.1E 0103 0xA23p-4 0104 0xA.p+4 0105 0x.ap4 0106 0X1.921FB54442D18P+1 0107 -- error 0108 32p 0109 0xp-4 0110 0x.p-4 0111 3.x 0112 0113 0114 -- single comment 0115 xyz() 0116 <beginfold id='3'>--[[</beginfold id='3'> 0117 long comment 0118 <endfold id='3'>]]</endfold id='3'> 0119 xyz() 0120 0121 -- TODO bla bla 0122 <beginfold id='3'>--[[</beginfold id='3'> TODO bla bla <endfold id='3'>]]</endfold id='3'> 0123 0124 a = <beginfold id='1'>{</beginfold id='1'> [f(1)] = g; "x", "y"; x = 1, f(x), [30] = 23; 45 <endfold id='1'>}</endfold id='1'> 0125 0126 -- is equivalent to 0127 0128 <beginfold id='2'>do</beginfold id='2'> 0129 local t = <beginfold id='1'>{</beginfold id='1'><endfold id='1'>}</endfold id='1'> 0130 t[f(1)] = g 0131 t[1] = "x" -- 1st exp 0132 t[2] = "y" -- 2nd exp 0133 t.x = 1 -- t["x"] = 1 0134 t[3] = f(x) -- 3rd exp 0135 t[30] = 23 0136 t[4] = 45 -- 4th exp 0137 a = t 0138 <endfold id='2'>end</endfold id='2'> 0139 0140 32-0x43+0x2-5 0141 return"a" 0142 return'a' 0143 return<beginfold id='1'>{</beginfold id='1'><endfold id='1'>}</endfold id='1'> 0144 f(3) 0145 f'a' 0146 f"a" 0147 f<beginfold id='1'>{</beginfold id='1'>s=2<endfold id='1'>}</endfold id='1'> 0148 f[[s]] 0149 f[=[s]=] 0150 #a 0151 0152 local CONSTANT = a 0153 0154 a = <beginfold id='1'>{</beginfold id='1'><endfold id='1'>}</endfold id='1'> 0155 local x = 20 0156 for i=1,10 <beginfold id='2'>do</beginfold id='2'> 0157 local y = 0 0158 a[i] = <beginfold id='2'>function</beginfold id='2'> () y=y+1; return x+y <endfold id='2'>end</endfold id='2'> 0159 <endfold id='2'>end</endfold id='2'> 0160 0161 local <beginfold id='2'>function</beginfold id='2'> foo() 0162 <endfold id='2'>end</endfold id='2'> 0163 0164 <beginfold id='2'>function</beginfold id='2'> obj:foo() 0165 print(self:bar()) 0166 <endfold id='2'>end</endfold id='2'> 0167 0168 <beginfold id='2'>function</beginfold id='2'> obj.bar(self) 0169 print(self) 0170 print(self.value) 0171 <endfold id='2'>end</endfold id='2'> 0172 0173 --! \brief gfind is deprecated 0174 string.gfind('s') 0175 string.gmatch('f') 0176 0177 <beginfold id='2'>function</beginfold id='2'> foo() 0178 <beginfold id='2'>if</beginfold id='2'> x then 0179 <beginfold id='2'>function</beginfold id='2'>() <endfold id='2'>end</endfold id='2'> 0180 bar=<beginfold id='2'>function</beginfold id='2'>() 0181 <beginfold id='2'>if</beginfold id='2'> y then 0182 <beginfold id='2'>if</beginfold id='2'> z then <endfold id='2'>end</endfold id='2'> 0183 <endfold id='2'>end</endfold id='2'> 0184 <endfold id='2'>end</endfold id='2'> 0185 <endfold id='2'>end</endfold id='2'> 0186 <endfold id='2'>end</endfold id='2'> 0187 0188 -- attributes 0189 local a<const> = 2 0190 local a<const> print(a) 0191 local f <close>, const < const > 0192 local a <cloe>, b< cons >, c<const, d<close> ; a<b 0193 local a <cloe> -- bla, 0194 b< cons > 0195 local a <close> <beginfold id='3'>--[[</beginfold id='3'> 0196 b <const><endfold id='3'>]]</endfold id='3'>, b <const> <beginfold id='3'>--[[</beginfold id='3'> xyz <endfold id='3'>]]</endfold id='3'> , c <close> 0197 b< cons > 0198 0199 --- <beginfold id='4'>\code</beginfold id='4'> 0200 --! a = 3 0201 --! <endfold id='4'>\endcode</endfold id='4'> 0202 a = 3