File: folding.lua.styled

package info (click to toggle)
scite 5.5.8-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 20,176 kB
  • sloc: cpp: 175,852; ansic: 21,482; python: 7,014; makefile: 934; sh: 257; perl: 252; ruby: 217; sql: 194; php: 63; vhdl: 51; erlang: 47; objc: 22; modula3: 21; cobol: 18; lisp: 18; asm: 17; fortran: 12; ml: 11; xml: 7; tcl: 6
file content (41 lines) | stat: -rw-r--r-- 1,249 bytes parent folder | download | duplicates (4)
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
{1}--[[ coding:UTF-8
folding structure examples ]]{0}

{2}-- Use all the folding keywords:
--    do end function if repeat until while
{5}function{0} {11}first{10}(){0}
   {2}-- Comment
{0}   {5}if{0} {11}op{0} {10}=={0} {6}"+"{0} {5}then{0}
      {11}r{0} {10}={0} {11}a{0} {10}+{0} {11}b{0}
    {5}elseif{0} {11}op{0} {10}=={0} {6}"-"{0} {5}then{0}
      {11}r{0} {10}={0} {11}a{0} {10}-{0} {11}b{0}
    {5}elseif{0} {11}op{0} {10}=={0} {6}"*"{0} {5}then{0}
      {11}r{0} {10}={0} {11}a{10}*{11}b{0}
    {5}elseif{0} {11}op{0} {10}=={0} {6}"/"{0} {5}then{0}
      {11}r{0} {10}={0} {11}a{10}/{11}b{0}
    {5}else{0}
      {11}error{10}({6}"invalid operation"{10}){0}
    {5}end{0}

    {5}for{0} {11}i{10}={4}1{10},{4}10{0} {5}do{0}
      {13}print{10}({11}i{10}){0}
    {5}end{0}

    {5}while{0} {11}a{10}[{11}i{10}]{0} {5}do{0}
      {13}print{10}({11}a{10}[{11}i{10}]){0}
      {11}i{0} {10}={0} {11}i{0} {10}+{0} {4}1{0}
    {5}end{0}

    {2}-- print the first non-empty line
{0}    {5}repeat{0}
      {11}line{0} {10}={0} {11}io.read{10}(){0}
    {5}until{0} {11}line{0} {10}~={0} {6}""{0}
    {13}print{10}({11}line{10}){0}

{5}end{0}

{2}-- { ... } folds
{11}markers{0} {10}={0} {10}{{0}
     {4}256{10},{0}
     {4}128{10},{0}
{10}}{0}