File: catch.azm

package info (click to toggle)
zoem 21-341-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, trixie
  • size: 1,980 kB
  • sloc: ansic: 9,386; sh: 1,113; makefile: 105
file content (39 lines) | stat: -rw-r--r-- 841 bytes parent folder | download | duplicates (9)
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

\: zoem -i catch -tl 3
\: (to see nested while structure back in output)

\catch{towel}{
   \apply{_#1\!{{\if{\cmp{eq}{\1}{d}}{Skipping the rest!\@{\N}\throw{towel}foo}{\1}\@{\N}}}}{
      {a}{b}{c}{d}{e}{f}
   }
}
At the bottom 1
\@{\P}

\catch{towel}{
   \set{i}{0}
   \while{1}{
      * i = \i
      BEFORE throw 1
      \@{\I}
      \if{\eqt{eq}{\i}{2}}{\throw{towel}}{}
      \setx{i}{\let{\i+1}}
      \catch{towel}{
         \set{j}{0}
         \while{1}{
            before throw 2
            \if{\eqt{eq}{\j}{3}}{\throw{towel}}{}
            \setx{j}{\let{\j+1}}
            i = \i and j = \j\@{\N}
            end of body 2
         }
      }
      \: \if{\cmp{ne}{\__zoemstat__}{error}}{\__zoemput__}{}
      \@{\J}
      END of body 1
   }
}
\@{\J}
\: \if{\cmp{ne}{\__zoemstat__}{error}}{ \__zoemput__ }{}
At the bottom again