doc/src/sgml/generate-targets-meson.pl

   1 #!/usr/bin/perl
   2 #
   3 # Generate the targets-meson.sgml file from targets-meson.txt
   4 # Copyright (c) 2000-2025, PostgreSQL Global Development Group
   5
   6 use strict;
   7 use warnings FATAL => 'all';
   8
   9 my $targets_meson_file = $ARGV[0];
  10 open my $targets_meson, '<', $targets_meson_file or die;
  11
  12 print
  13   "<!-- autogenerated from doc/src/sgml/targets-meson.txt, do not edit -->\n";
  14
  15 # Find the start of each group of targets
  16 while (<$targets_meson>)
  17 {
  18         next if /^#/;
  19
  20         if (/^(.*) Targets:$/)
  21         {
  22                 my $targets = $1;
  23                 my $targets_id = lc $targets;
  24
  25                 print qq(
  26 <sect3 id="targets-meson-$targets_id">
  27  <title>$targets Targets</title>
  28
  29  <variablelist>
  30 );
  31
  32                 # Each target in the group
  33                 while (<$targets_meson>)
  34                 {
  35                         next if /^#/;
  36                         last if !/^\s+([^ ]+)\s+(.+)/;
  37
  38                         my $target = $1;
  39                         my $desc = $2;
  40                         my $target_id = $1;
  41
  42                         $target_id =~ s/\//-/g;
  43
  44                         print qq(
  45   <varlistentry id="meson-target-${target_id}">
  46     <term><option>${target}</option></term>
  47     <listitem>
  48      <para>
  49       ${desc}
  50      </para>
  51     </listitem>
  52   </varlistentry>
  53 );
  54                 }
  55
  56                 print qq(
  57  </variablelist>
  58 </sect3>
  59 );
  60         }
  61 }
  62
  63 close $targets_meson;