summaryrefslogtreecommitdiff
path: root/syntax.pl
blob: bf10451fe68263b8467c95df875d6d312aebabb2 (plain)
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#!/usr/bin/perl
#
# This script reads the syntaces of commands from irssi source tree.
# Then it browses through all '.in' files in the current directory and
# substitutes '@SYNTAX:foo@' tags with real syntaces found. This data
# is written into the corresponding files without the '.in' extension.
# For example:  help.in -> ../help
#
# This path has to be changed. It should point to your irssi/src directory
# Remember to include the asterisk ('*').
$SRC_PATH='src';

@files = `find src -name '*.c'`;

foreach $file (@files) {
   open (FILE, "$file");
   while (<FILE>) {
      chomp;
      if (m!/\*.SYNTAX\:! || $state) {
	 s/^\s+/ /;
	 s/.*SYNTAX: //;
	 if (/^ [A-Z]+/) {
	    push @lines, $line;
	    $line = "";
	    s/^ //;
	 }
	 $line .= $_;
	 if (m!\*/!) {
	    $line =~ s!\*/!!;
	    push @lines, $line;
	    $line = "";
	    $state = 0;
	 } else {
	    $state = 1;
	 }
      }
   }
   close (FILE);
}
while (<docs/help/in/*.in>) {
   next if (/Makefile/);

   open (FILE, "$_");
   @data = <FILE>;
   close (FILE);
   $count = 0;
   foreach $DATARIVI (@data) {
      if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) {
          $SYNTAX = join "\n", (grep /^\U$1 /, @lines);
	  $SYNTAX .= "\n" if $SYNTAX;
	  $SYNTAX =~ s/ *$//; $SYNTAX =~ s/ *\n/\n/g;

	  # add %| after "COMMAND SUB " so parameters will indent correctly
	  $SYNTAX =~ s/^([A-Z ]+)/\1%|/;
	  $SYNTAX =~ s/(\n[A-Z ]+)/\1%|/g;
	  # no need for this if there's no parameters
	  $SYNTAX =~ s/%\|$//;
          $DATARIVI = $SYNTAX;
      } elsif ($DATARIVI =~ /^\S+/) {
	if ($data[$count+1] =~ /^\S+/) {
	  chomp $DATARIVI;
	  $DATARIVI =~ s/ *$//g;
	  $DATARIVI .= " ";
	}
      } else {
	  $DATARIVI =~ s/^\t/         / while ($DATARIVI =~ /^\t/);
      }
      $count++;
   }

   # must always end with empty line
   push @data, "\n" if ($data[@data-1] ne "\n");
   push @data, "\n" if ($data[@data-2] !~ /\n$/);

   $newfilename = $_; $newfilename =~ s/\.in$//;
   $newfilename =~ s/\/in\//\//;
   open (NEWFILE, ">$newfilename");
   print NEWFILE @data;
   close (NEWFILE);
}