# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
-# $My2pg: my2pg.pl,v 1.22 2001/12/06 19:32:20 fonin Exp $
-# $Id: my2pg.pl,v 1.6 2002/01/07 22:36:51 momjian Exp $
+# $My2pg: my2pg.pl,v 1.23 2001/12/06 19:32:20 fonin Exp $
+# $Id: my2pg.pl,v 1.7 2002/02/08 14:47:56 momjian Exp $
# TODO:
# + Handle SETs
#
# $Log: my2pg.pl,v $
-# Revision 1.6 2002/01/07 22:36:51 momjian
-# Update my2pg to version 1.22.
+# Revision 1.7 2002/02/08 14:47:56 momjian
+# Upgrade my2pg version 1.23.
+#
+# Revision 1.23 2002/02/07 22:13:52 fonin
+# Bugfix by Hans-Juergen Schoenig <hs@cybertec.at>: additional space after
+# FLOAT8 is required.
#
# Revision 1.22 2001/12/06 19:32:20 fonin
# Patch: On line 594 where you check for UNIQUE, I believe the regex should try
$|=1;
print("------------------------------------------------------------------");
-print("\n-- My2Pg \$Revision: 1.6 $ \translated dump");
+print("\n-- My2Pg 1.23 translated dump");
print("\n--");
print("\n------------------------------------------------------------------");
# push header to libtypes.c
open(LIBTYPES,">$libtypesource");
print LIBTYPES "/******************************************************";
-print LIBTYPES "\n * My2Pg \$Revision: 1.6 $ \translated dump";
+print LIBTYPES "\n * My2Pg \$Revision: 1.7 $ \translated dump";
print LIBTYPES "\n * User types definitions";
print LIBTYPES "\n ******************************************************/";
print LIBTYPES "\n\n#include <postgres.h>\n";
s/bigint\(\d+\)/INT8/i;
s/int\(\d+\)/INT4/i;
s/float(\(\d+,\d*\))/DECIMAL$1/i;
- s/double precision/FLOAT8/i;
+ s/double precision/FLOAT8 /i;
s/([\W])double(\(\d+,\d*\))/$1DECIMAL$2/i;
- s/([\W])double[\W]/$1FLOAT8/i;
- s/([\W])real[\W]/$1FLOAT8/i;
+ s/([\W])double[\W]/$1FLOAT8 /i;
+ s/([\W])real[\W]/$1FLOAT8 /i;
s/([\W])real(\(\d+,\d*\))/$1DECIMAL$2/i;
# Convert string types
open(MAKE,">Makefile");
print MAKE "#
-# My2Pg \$Revision: 1.6 $ \translated dump
+# My2Pg \$Revision: 1.7 $ \translated dump
# Makefile
#