File: system-arg.e

package info (click to toggle)
entity 1.0.1-8
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 5,604 kB
  • ctags: 5,394
  • sloc: ansic: 64,242; sh: 7,377; makefile: 776; perl: 319
file content (20 lines) | stat: -rw-r--r-- 332 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
<object name="system arg test">
  <system-args name="args" />

  <perl>
    <![CDATA[
		my $node = enode("system-args.args");

		my @children = $node->children();

		print "Found arguments\n";

		foreach my $child (@children)
		{
		  my $name = $child->attrib("name");
		  print "arg: $name\n";
		}
		exit;
	]]>
  </perl>
</object>