File: test12.cs

package info (click to toggle)
clearsilver 0.10.5-7
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,304 kB
  • sloc: ansic: 24,586; python: 4,233; sh: 2,502; cs: 1,429; ruby: 819; java: 735; makefile: 589; perl: 120; lisp: 34; sql: 21
file content (30 lines) | stat: -rw-r--r-- 739 bytes parent folder | download | duplicates (10)
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


<?cs def:display_files(files) ?>
   <ul>
   <?cs each:file = files ?>
     <li><?cs var:file.Name ?></li>
     <?cs if:file.Sub.0.Name ?>
       <?cs call:display_files(file.Sub) ?>
     <?cs /if ?>
   <?cs /each ?>
   </ul>
<?cs /def ?>

<?cs call:display_files(Files) ?>

<?cs def:display_files2(files, spc) ?>
   <?cs # This tests whether we can set a local var ?>
   <?cs # Also, whether we can set a local var to itself.. ?>
   <?cs set:spc = spc ?>
   <?cs each:file = files ?>
     <?cs var:spc ?><?cs var:file.Name ?><br>
     <?cs if:file.Sub.0.Name ?>
       <?cs call:display_files2(file.Sub, spc + "&nbsp;") ?>
     <?cs /if ?>
   <?cs /each ?>
<?cs /def ?>

<?cs set:blank = "" ?>
<?cs call:display_files2(Files, blank) ?>