Add script to build documentation on win32 without mingw

[postgresql] / src / tools / msvc / Solution.pm

diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm
index 9fbb4b9b431f30641751d787d417d806efaca008..1aab93848333bfe17c19cce6ccf42682149ee628 100644 (file)
--- a/src/tools/msvc/Solution.pm
+++ b/src/tools/msvc/Solution.pm
@@ -229,6 +229,13 @@ EOF
                   last;
         }
        }
+
+       open(O, ">doc/src/sgml/version.sgml") || croak "Could not write to version.sgml\n";
+       print O <<EOF;
+<!entity version "$self->{strver}">
+<!entity majorversion "$self->{majorver}">
+EOF
+   close(O);
 }
 
 sub AddProject {