← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/m4/gutsy

« back to all changes in this revision

Viewing changes to checks/get-them

  • Committer: Bazaar Package Importer
  • Author(s): Santiago Vila
  • Date: 2006-09-25 19:20:30 UTC
  • mfrom: (1.2.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20060925192030-x9s2i4h7wlvsx7dy
Tags: 1.4.7-1
New upstream release. See the NEWS file for details.

Show diffs side-by-side

added added

removed removed

Lines of Context:
checks/get-them
1
1
#!/bin/sh
2
2
# Extract all examples from the manual source.
3
 
# Copyright (C) 1992, 2005 Free Software Foundation, Inc.
 
3
# Copyright (C) 1992, 2005, 2006 Free Software Foundation, Inc.
4
4
 
5
5
# This script is for use with GNU awk.
6
6
 
23
23
 
24
24
  split($0, tmp, ",");
25
25
  node = substr(tmp[1], 7);
26
 
  if (length(node) > 11)
 
26
  if (length(node) > 10)
27
27
    printf("Node: %s - truncated", node);
28
28
  else
29
29
    printf("Node: %s ", node);
30
30
  gsub(" ", "_", node);
31
 
  node = tolower(substr(node, 1, 11));
 
31
  node = tolower(substr(node, 1, 10));
32
32
  seq = 0;
33
33
}
34
34
 
45
45
      close (file);
46
46
    seq++;
47
47
    count++;
48
 
    file = sprintf("%02d.%s", count, node);
49
 
    printf("dnl %s:%d: Origin of test\n", FILENAME, NR) > file;
 
48
    file = sprintf("%03d.%s", count, node);
 
49
    printf("dnl @ %s:%d: Origin of test\n"\
 
50
           "dnl @ Copyright (C) 2006 Free Software Foundation\n"\
 
51
           "dnl @ This file is free software; the Free Software Foundation\n"\
 
52
           "dnl @ gives unlimited permission to copy and/or distribute it\n"\
 
53
           "dnl @ with or without modifications, as long as this notice\n"\
 
54
           "dnl @ is preserved.\n", FILENAME, NR) > file;
50
55
    next;
51
56
  }
52
57
  if ($0 ~ /^@end example$/) {
60
65
    prefix = "";
61
66
  gsub("@@", "@", $0);
62
67
  gsub("@comment.*", "", $0);
 
68
  gsub("@tabchar{}", "\t", $0);
63
69
  printf("%s%s\n", prefix, $0) >> file;
64
70
}
65
71