← Back to branch summary

~ubuntu-branches/ubuntu/trusty/lifelines/trusty

« back to all changes in this revision

Viewing changes to reports/src.ll

  • Committer: Bazaar Package Importer
  • Author(s): Felipe Augusto van de Wiel (faw)
  • Date: 2007-05-23 23:49:53 UTC
  • mfrom: (3.1.3 edgy)
  • Revision ID: james.westby@ubuntu.com-20070523234953-ogno9rnbmth61i7p
Tags: 3.0.50-2etch1
http://bugs.debian.org/418347
http://bugs.debian.org/405500
http://bugs.debian.org/356671
* Changing docs/ll-reportmanual.xml and docs/ll-userguide.xml to fix
  documentation build problems (Closes: #418347).

* lifelines-reports
  - Adding a dependency to lifelines >= 3.0.50 to prevent file conflict.
    (Closes: #405500).

* Updating French translation. Thanks to Bernard Adrian. (Closes: #356671).

Show diffs side-by-side

added added

removed removed

Lines of Context:
reports/src.ll
 
1
/*
 
2
* @progname       src.ll
 
3
* @version        2.0
 
4
* @author         McBride
 
5
* @category       sample
 
6
* @output         text
 
7
* @description
 
8
Here is a report program to list SOURces. The REFN and TITL
 
9
values are shown. Other tags can be added by duplicating
 
10
the lines that containing "myrefn" or "REFN" and replacing them
 
11
with the tag you want.
 
12
 
 
13
To process tags that have CONTinuation lines, or tags with no
 
14
values you need something more complicated.
 
15
 
 
16
"P. McBride" <pbmcbride@RCN.COM>
 
17
*/
 
18
 
 
19
proc main ()
 
20
{
 
21
   forsour(snode, i) {
 
22
     set(mytitle, "")
 
23
     set(myrefn, "")
 
24
     fornodes(root(snode), anode) {
 
25
       if(eqstr(tag(anode),"TITL")) { set(mytitle, save(value(anode))) }
 
26
       elsif(eqstr(tag(anode),"REFN")) {
 
27
         set(myrefn, save(value(anode)))
 
28
       }
 
29
     }
 
30
     myrefn  "\t"  key(snode)  "\t"  mytitle  nl()
 
31
   }
 
32
}