windows distribution based on mcode

12 files changed, 1203 insertions, 0 deletions

diff --git a/translate/mcode/Makefile.in b/translate/mcode/Makefile.in
new file mode 100644
index 0000000..beb450a
--- /dev/null
+++ b/translate/mcode/Makefile.in
@@ -0,0 +1,54 @@
+PREFIX=/usr/local
+target=i686-pc-linux-gnu
+
+CFLAGS=-O
+GNATFLAGS=$(CFLAGS) -gnatn
+
+GRT_FLAGS=$(CFLAGS)
+
+all: ghdl_mcode std.v93 std.v87 ieee.v93 ieee.v87 synopsys.v93 synopsys.v87 mentor.v93
+
+
+GRTSRCDIR=grt
+
+####grt Makefile.inc
+
+ghdl_mcode: default_pathes.ads $(GRT_ADD_OBJS) mmap_binding.o force 
+	gnatmake -aIghdldrv -aIghdl -aIortho -aIgrt $(GNATFLAGS) ghdl_mcode $(GNAT_BARGS) -largs mmap_binding.o $(GNAT_LARGS) $(GRT_ADD_OBJS) $(GRT_EXTRA_LIB) -Wl,--version-script=$(GRTSRCDIR)/grt.ver -Wl,--export-dynamic
+
+mmap_binding.o: ortho/mmap_binding.c
+	$(CC) -c -g -o $@ $<
+
+default_pathes.ads: Makefile
+	echo "--  DO NOT EDIT" > tmp-dpathes.ads
+	echo "--  This file is created by Makefile" >> tmp-dpathes.ads
+	echo "package Default_Pathes is" >> tmp-dpathes.ads
+	echo "   Prefix : constant String :=">> tmp-dpathes.ads
+	echo "     \"$(PREFIX)/lib/ghdl/\";" >> tmp-dpathes.ads
+	echo "end Default_Pathes;" >> tmp-dpathes.ads
+	if test -r $@ && cmp tmp-dpathes.ads $@; then \
+	  echo "$@ unchanged"; \
+        else \
+	  mv tmp-dpathes.ads $@; \
+        fi
+	$(RM) tmp-dpathes.ads
+
+force:
+
+LIB93_DIR:=./lib/v93
+LIB87_DIR:=./lib/v87
+LIBSRC_DIR:=./libraries
+ANALYZE=../../../ghdl_mcode -a --ieee=none
+REL_DIR=../../..
+VHDLLIBS_COPY_OBJS:=no
+CP=cp
+LN=ln -s
+
+./lib:
+	mkdir $@
+
+$(LIB93_DIR) $(LIB87_DIR): ./lib
+	mkdir $@
+
+
+####libraries Makefile.inc
diff --git a/translate/mcode/README b/translate/mcode/README
new file mode 100644
index 0000000..a10cd6e
--- /dev/null
+++ b/translate/mcode/README
@@ -0,0 +1,47 @@
+This is the README from the source distribution of GHDL.
+
+To get the binary distribution or more information, go to http://ghdl.free.fr
+
+Copyright:
+**********
+GHDL is copyright (c) 2002, 2003, 2004, 2005 Tristan Gingold.
+See the GHDL manual for more details.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.
+
+
+Building GHDL from sources for Windows:
+***************************************
+
+Note: this was tested with Windows XP SP2 familly edition.
+
+Note: If you want to create the installer, GHDL should be built on a
+FAT partition.  NSIS rounds files date to be FAT compliant (seconds are always
+even) and because GHDL stores dates, the files date must not be modified.
+
+Required:
+* the Ada95 GNAT compiler (GNAT GPL 2005 is known to work).
+* NSIS to create the installer.
+
+Unzip,
+edit winbuild to use correct path for makensis,
+run winbuild.
+
+The installer is in the windows directory.
+
+Send bugs and comments on http://gna.org/project/ghdl
+
+Tristan Gingold.
diff --git a/translate/mcode/dist.sh b/translate/mcode/dist.sh
new file mode 100755
index 0000000..e28bec6
--- /dev/null
+++ b/translate/mcode/dist.sh
@@ -0,0 +1,489 @@
+#!/bin/sh
+
+#  Script used to create tar balls.
+#  Copyright (C) 2002, 2003, 2004, 2005 Tristan Gingold
+#
+#  GHDL is free software; you can redistribute it and/or modify it under
+#  the terms of the GNU General Public License as published by the Free
+#  Software Foundation; either version 2, or (at your option) any later
+#  version.
+#
+#  GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
+#  WARRANTY; without even the implied warranty of MERCHANTABILITY or
+#  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+#  for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with GCC; see the file COPYING.  If not, write to the Free
+#  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+#  02111-1307, USA.
+
+# Building a distribution:
+# * update the 'version' variable in ../../Makefile
+# * Regenerate version.ads: make -f ../../Makefile version.ads
+# * Check NEWS, README and INSTALL files.
+# * Check version and copyright years in doc/ghdl.texi, ghdlmain.adb
+# * Check GCCVERSION below.
+# * Check lists of exported files in this file.
+# * Create source tar and build binaries: ./dist.sh dist_phase1
+# * su root
+# * Build binary tar: ./dist.sh dist_phase2
+# * Run the testsuites: GHDL=ghdl ./testsuite.sh
+# * Update website/index.html (./dist.sh website helps, rename .new)
+# * upload (./dist upload)
+# * CVS commit, tag + cd image.
+# * remove previous version in /usr/local
+
+## DO NOT MODIFY this file while it is running...
+
+set -e
+
+# GTKWave version.
+GTKWAVE_VERSION=1.3.72
+
+# GHDL version (extracted from version.ads)
+VERSION=`sed -n -e 's/.*GHDL \([0-9.a-z]*\) (.*/\1/p' ../../version.ads`
+
+CWD=`pwd`
+
+distdir=ghdl-$VERSION
+tarfile=$distdir.tar
+zipfile=$distdir.zip
+
+PREFIX=/usr/local
+bindirname=ghdl-$VERSION-i686-pc-linux
+TARINSTALL=$DISTDIR/$bindirname.tar.bz2
+VHDLDIR=$distdir/vhdl
+DOWNLOAD_HTML=../../website/download.html
+DESTDIR=$CWD/
+UNSTRIPDIR=${distdir}-unstripped
+
+PATH=/usr/gnat/bin:$PATH
+
+do_clean ()
+{
+  rm -rf $distdir
+  mkdir $distdir
+  mkdir $distdir/ghdl
+  mkdir $distdir/ghdldrv
+  mkdir $distdir/libraries
+  mkdir $distdir/libraries/std $distdir/libraries/ieee
+  mkdir $distdir/libraries/vital95 $distdir/libraries/vital2000
+  mkdir $distdir/libraries/synopsys $distdir/libraries/mentor
+  mkdir $distdir/grt
+  mkdir $distdir/grt/config
+  mkdir $distdir/ortho
+  mkdir $distdir/windows
+}
+
+# Build Makefile
+do_Makefile ()
+{
+  sed -e "/^####libraries Makefile.inc/r ../../libraries/Makefile.inc" \
+      -e "/^####grt Makefile.inc/r ../grt/Makefile.inc" \
+     < Makefile.in > $distdir/Makefile
+}
+
+# Copy (or link) sources files into $distdir
+do_files ()
+{
+. ../gcc/dist-common.sh
+
+ortho_mcode_files="
+binary_file-elf.adb
+binary_file-elf.ads
+binary_file-memory.adb
+binary_file-memory.ads
+binary_file.adb
+binary_file.ads
+disa_x86.adb
+disa_x86.ads
+disassemble.ads
+dwarf.ads
+elf32.adb
+elf32.ads
+elf64.ads
+elf_common.adb
+elf_common.ads
+elf_arch32.ads
+elf_arch.ads
+hex_images.adb
+hex_images.ads
+memsegs.ads
+memsegs_mmap.ads
+memsegs_mmap.adb
+memsegs_c.c
+ortho_code-abi.ads
+ortho_code-binary.adb
+ortho_code-binary.ads
+ortho_code-consts.adb
+ortho_code-consts.ads
+ortho_code-debug.adb
+ortho_code-debug.ads
+ortho_code-decls.adb
+ortho_code-decls.ads
+ortho_code-disps.adb
+ortho_code-disps.ads
+ortho_code-dwarf.adb
+ortho_code-dwarf.ads
+ortho_code-exprs.adb
+ortho_code-exprs.ads
+ortho_code-flags.ads
+ortho_code-opts.adb
+ortho_code-opts.ads
+ortho_code-types.adb
+ortho_code-types.ads
+ortho_code-x86-emits.adb
+ortho_code-x86-emits.ads
+ortho_code-x86-insns.adb
+ortho_code-x86-insns.ads
+ortho_code-x86-abi.adb
+ortho_code-x86-abi.ads
+ortho_code-x86.adb
+ortho_code-x86.ads
+ortho_code.ads
+ortho_code_main.adb
+ortho_ident.adb
+ortho_ident.ads
+ortho_mcode.adb
+ortho_mcode.ads
+ortho_nodes.ads
+"
+
+windows_files="
+compile.bat
+complib.bat
+default_pathes.ads
+ghdl.nsi
+windows_default_path.adb
+windows_default_path.ads
+ghdlfilter.adb
+grt-modules.adb
+"
+
+for i in $cfiles; do ln -sf $CWD/../../$i $distdir/ghdl/$i; done
+for i in $tfiles; do ln -sf $CWD/../$i $distdir/ghdl/$i; done
+
+ln -sf $CWD/../../doc/ghdl.texi $distdir/ghdl.texi
+
+for i in $ortho_files; do ln -sf $CWD/../../ortho/$i $distdir/ortho/$i; done
+
+for i in $ortho_mcode_files; do
+  ln -sf $CWD/../../ortho/mcode/$i $distdir/ortho/$i
+done
+
+for i in $ghdl_files ghdlcomp.ads ghdlcomp.adb \
+  ghdlrun.adb ghdlrun.ads ghdl_mcode.adb; do
+  ln -sf $CWD/../ghdldrv/$i $distdir/ghdldrv/$i
+done
+
+for i in $libraries_files; do
+    ln -sf $CWD/../../libraries/$i $distdir/libraries/$i
+done
+
+for i in $grt_files; do
+    ln -sf $CWD/../grt/$i $distdir/grt/$i
+done
+
+for i in $grt_config_files; do
+    ln -sf $CWD/../grt/config/$i $distdir/grt/config/$i
+done
+
+for i in $windows_files; do
+    ln -sf $CWD/windows/$i $distdir/windows/$i
+done
+
+    ln -sf $CWD/winbuild.bat $distdir/winbuild.bat
+
+makeinfo --no-split -o $distdir/windows/ghdl.htm $CWD/../../doc/ghdl.texi 
+}
+
+do_sources_dir ()
+{
+    \rm -rf $distdir
+    mkdir $distdir
+    do_clean
+    do_Makefile
+    do_files
+    ln -sf ../../../COPYING $distdir
+}
+
+# Create the tar of sources.
+do_tar ()
+{
+    do_sources_dir
+    tar cvhf $tarfile $distdir
+    bzip2 -f $tarfile
+    rm -rf $distdir
+}
+
+# Create the zip of sources.
+do_zip ()
+{
+    do_sources_dir
+    zip -r $zipfile $distdir
+    rm -rf $distdir
+}
+
+# Extract the source, configure and make.
+do_compile ()
+{
+  set -x
+
+  do_update_gcc_sources;
+
+  rm -rf $GCCDISTOBJ
+  mkdir $GCCDISTOBJ
+  cd $GCCDISTOBJ
+  ../gcc-$GCCVERSION/configure --enable-languages=vhdl --prefix=$PREFIX
+  make CFLAGS="-O -g"
+  make -C gcc vhdl.info
+  cd $CWD
+}
+
+check_root ()
+{
+  if [ $UID -ne 0 ]; then
+    echo "$0: you must be root";
+    exit 1;
+  fi
+}
+
+#  Do a make install
+do_compile2 ()
+{
+  set -x
+  cd $GCCDISTOBJ
+  # Check the info file is not empty.
+  if [ -s gcc/doc/ghdl.info ]; then
+    echo "info file found"
+  else
+    echo "Error: ghdl.info not found".
+    exit 1;
+  fi
+  mkdir -p $DESTDIR/usr/local || true
+  make DESTDIR=$DESTDIR install
+  cd $CWD
+  if [ -d $UNSTRIPDIR ]; then
+     rm -rf $UNSTRIPDIR
+  fi
+  mkdir $UNSTRIPDIR
+  cp ${DESTDIR}${GCCLIBEXECDIR}/ghdl1 ${DESTDIR}${PREFIX}/bin/ghdl $UNSTRIPDIR
+  chmod -w $UNSTRIPDIR/*
+  strip ${DESTDIR}${GCCLIBEXECDIR}/ghdl1 ${DESTDIR}${PREFIX}/bin/ghdl
+}
+
+# Create the tar file from the current installation.
+do_tar_install ()
+{
+  tar -C $DESTDIR -jcvf $TARINSTALL \
+    ./$PREFIX/bin/ghdl ./$PREFIX/info/ghdl.info \
+    ./$GCCLIBDIR/vhdl \
+    ./$GCCLIBEXECDIR/ghdl1
+}
+
+do_extract_tar_install ()
+{
+  check_root;
+  cd /
+  tar jxvf $TARINSTALL
+  cd $CWD
+}
+
+# Create the tar file to be distributed.
+do_tar_dist ()
+{
+  rm -rf $bindirname
+  mkdir $bindirname
+  sed -e "s/@TARFILE@/$dir.tar/" < INSTALL > $bindirname/INSTALL
+  ln ../../COPYING $bindirname
+  ln $TARINSTALL $bindirname
+  tar cvf $bindirname.tar $bindirname
+}
+
+# Remove the non-ghdl files of gcc in the current installation.
+do_distclean_gcc ()
+{
+  set -x
+  rm -f ${DESTDIR}${PREFIX}/bin/cpp ${DESTDIR}${PREFIX}/bin/gcc
+  rm -f ${DESTDIR}${PREFIX}/bin/gccbug ${DESTDIR}${PREFIX}/bin/gcov
+  rm -f ${DESTDIR}${PREFIX}/bin/${MACHINE}-gcc*
+  rm -f ${DESTDIR}${PREFIX}/info/cpp.info*
+  rm -f ${DESTDIR}${PREFIX}/info/cppinternals.info*
+  rm -f ${DESTDIR}${PREFIX}/info/gcc.info*
+  rm -f ${DESTDIR}${PREFIX}/info/gccinstall.info*
+  rm -f ${DESTDIR}${PREFIX}/info/gccint.info*
+  rm -f ${DESTDIR}${PREFIX}/lib/*.a ${DESTDIR}${PREFIX}/lib/*.so*
+  rm -rf ${DESTDIR}${PREFIX}/share
+  rm -rf ${DESTDIR}${PREFIX}/man
+  rm -rf ${DESTDIR}${PREFIX}/include
+  rm -f ${DESTDIR}${GCCLIBEXECDIR}/cc1 ${DESTDIR}${GCCLIBEXECDIR}/collect2
+  rm -f ${DESTDIR}${GCCLIBEXECDIR}/cpp0 ${DESTDIR}${GCCLIBEXECDIR}/tradcpp0
+  rm -f ${DESTDIR}${GCCLIBDIR}/*.o ${DESTDIR}$GCCLIBDIR/*.a
+  rm -f ${DESTDIR}${GCCLIBDIR}/specs
+  rm -rf ${DESTDIR}${GCCLIBDIR}/include
+  rm -rf ${DESTDIR}${GCCLIBDIR}/install-tools
+  rm -rf ${DESTDIR}${GCCLIBEXECDIR}/install-tools
+}
+
+# Remove ghdl files in the current installation.
+do_distclean_ghdl ()
+{
+  check_root;
+  set -x
+  rm -f $PREFIX/bin/ghdl
+  rm -f $PREFIX/info/ghdl.info*
+  rm -f $GCCLIBEXECDIR/ghdl1
+  rm -rf $GCCLIBDIR/vhdl
+}
+
+# Build the source tar, and build the binaries.
+do_dist_phase1 ()
+{
+  do_sources;
+  do_compile;
+  do_compile2;
+  do_distclean_gcc;
+  do_tar_install;
+  do_tar_dist;
+  rm -rf ./$PREFIX
+}
+
+# Install the binaries and create the binary tar.
+do_dist_phase2 ()
+{
+  check_root;
+  do_distclean_ghdl;
+  do_extract_tar_install;
+  echo "dist_phase2 success"
+}
+
+# Create gtkwave patch
+do_gtkwave_patch ()
+{
+#  rm -rf gtkwave-patch
+  mkdir gtkwave-patch
+  diff -rc -x Makefile.in $GTKWAVE_BASE.orig $GTKWAVE_BASE | \
+    sed -e "/^Only in/d" \
+    > gtkwave-patch/gtkwave-$GTKWAVE_VERSION.diffs
+  cp ../grt/ghwlib.c ../grt/ghwlib.h $GTKWAVE_BASE/src/ghw.c gtkwave-patch
+  sed -e "s/VERSION/$GTKWAVE_VERSION/g" < README.gtkwave > gtkwave-patch/README
+  tar zcvf ../../website/gtkwave-patch.tgz gtkwave-patch
+  rm -rf gtkwave-patch
+}
+
+# Update the index.html
+# Update the doc
+do_website ()
+{
+  sed -e "
+/SRC-HREF/ s/href=\".*\"/href=\"$tarfile.bz2\"/
+/BIN-HREF/ s/href=\".*\"/href=\"$bindirname.tar\"/
+/HISTORY/ a \\
+      <tr>\\
+	<td>$VERSION</td>\\
+        <td>`date +'%b %e %Y'`</td>\\
+        <td>$GCCVERSION</td>\\
+	<td><a href=\"$tarfile.bz2\">$tarfile.bz2</a></td>\\
+	<td><a href=\"$bindirname.tar\">\\
+	    $bindirname.tar</a></td>\\
+      </tr>
+" < $DOWNLOAD_HTML > "$DOWNLOAD_HTML".new
+  dir=../../website/ghdl
+  echo "Updating $dir"
+  rm -rf $dir
+  makeinfo --html -o $dir ../../doc/ghdl.texi
+}
+
+# Do ftp commands to upload
+do_upload ()
+{
+if tty -s; then
+  echo -n "Please, enter password: "
+  stty -echo
+  read pass
+  stty echo
+  echo
+else
+  echo "$0: upload must be done from a tty"
+  exit 1;
+fi
+ftp -n <<EOF
+open ftpperso.free.fr
+user ghdl $pass
+prompt
+hash
+bin
+passive
+put $tarfile.bz2
+put $bindirname.tar
+put INSTALL
+lcd ../../website
+put NEWS
+put index.html
+put download.html
+put features.html
+put roadmap.html
+put manual.html
+put more.html
+put links.html
+put bug.html
+put waveviewer.html
+put gtkwave-patch.tgz
+put favicon.ico
+lcd ghdl
+cd ghdl
+mput \*
+bye
+EOF
+}
+
+if [ $# -eq 0 ]; then
+  do_Makefile;
+else
+  for i ; do
+    case $i in
+      clean)
+        do_clean ;;
+      Makefile|makefile)
+	do_Makefile ;;
+      files)
+        do_files ;;
+      tar)
+        do_tar ;;
+      zip)
+        do_zip ;;
+      compile)
+        do_compile;;
+      update_gcc)
+        do_update_gcc_sources;;
+      compile2)
+        do_compile2;;
+      tar_install)
+        do_tar_install;;
+      tar_dist)
+        do_tar_dist;;
+      -v | --version | version)
+        echo $VERSION
+        exit 0
+        ;;
+      website)
+        do_website;;
+      upload)
+        do_upload;;
+      distclean_gcc)
+        do_distclean_gcc;;
+      distclean_ghdl)
+        do_distclean_ghdl;;
+      dist_phase1)
+        do_dist_phase1;;
+      dist_phase2)
+        do_dist_phase2;;
+      gtkwave_patch)
+        do_gtkwave_patch;;
+      *)
+	echo "usage: $0 clean|Makefile|files|all"
+	exit 1 ;;
+     esac
+   done
+fi
diff --git a/translate/mcode/winbuild.bat b/translate/mcode/winbuild.bat
new file mode 100644
index 0000000..c400863
--- /dev/null
+++ b/translate/mcode/winbuild.bat
@@ -0,0 +1,3 @@
+call windows\compile

+call windows\complib

+"f:\Program Files\NSIS\makensis" windows\ghdl.nsi

diff --git a/translate/mcode/windows/compile.bat b/translate/mcode/windows/compile.bat
new file mode 100644
index 0000000..fafbb25
--- /dev/null
+++ b/translate/mcode/windows/compile.bat
@@ -0,0 +1,13 @@
+mkdir build

+cd build

+

+rem Do the compilation

+gcc -c -O ../grt/grt-cbinding.c

+gcc -c -O ../grt/grt-cvpi.c

+gcc -c -O ../grt/config/clock.c

+gcc -c -O ../ortho/memsegs_c.c

+gcc -c -O -DWITH_GNAT_RUN_TIME ../grt/config/win32.c

+gnatmake -O -gnatn -aI../windows -aI../ghdl -aI../ghdldrv -aI../grt -aI../ortho ghdl_mcode -o ghdl.exe -largs grt-cbinding.o clock.o grt-cvpi.o memsegs_c.o win32.o

+strip ghdl.exe

+

+cd ..

diff --git a/translate/mcode/windows/complib.bat b/translate/mcode/windows/complib.bat
new file mode 100644
index 0000000..04154e1
--- /dev/null
+++ b/translate/mcode/windows/complib.bat
@@ -0,0 +1,67 @@
+set GHDL=ghdl

+

+cd build

+gnatmake -aI..\windows ghdlfilter

+cd ..

+

+set REL=..\..\..

+set STD_SRCS=textio textio_body

+set IEEE_SRCS=std_logic_1164 std_logic_1164_body numeric_std numeric_std-body numeric_bit numeric_bit-body

+set VITAL95_SRCS=vital_timing vital_timing_body vital_primitives vital_primitives_body

+set VITAL2000_SRCS=timing_p timing_b prmtvs_p prmtvs_b memory_p memory_b

+

+set SYNOPSYS_SRCS=std_logic_arith std_logic_textio std_logic_unsigned std_logic_signed std_logic_misc std_logic_misc-body

+

+mkdir lib

+cd lib

+

+mkdir v87

+cd v87

+

+mkdir std

+cd std

+for %%F in (%STD_SRCS%) do %REL%\build\ghdlfilter -v87 < %REL%\libraries\std\%%F.vhdl > %%F.v87 && %REL%\build\%GHDL% -a --std=87 --bootstrap --work=std %%F.v87

+cd ..

+

+mkdir ieee

+cd ieee

+rem Base ieee

+for %%F in (%IEEE_SRCS%) do %REL%\build\ghdlfilter -v87 < %REL%\libraries\ieee\%%F.vhdl > %%F.v87 && %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee %%F.v87

+rem Vital 95

+for %%F in (%VITAL95_SRCS%) do copy %REL%\libraries\vital95\%%F.vhdl %%F.vhd && %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee %%F.vhd

+cd ..

+

+mkdir synopsys

+cd synopsys

+for %%F in (%IEEE_SRCS%) do %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee ..\ieee\%%F.v87

+for %%F in (%VITAL95_SRCS%) do %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee ..\ieee\%%F.vhd

+for %%F in (%SYNOPSYS_SRCS%) do copy %REL%\libraries\synopsys\%%F.vhdl %%F.vhd && %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee %%F.vhd

+cd ..

+

+cd ..

+mkdir v93

+cd v93

+

+mkdir std

+cd std

+for %%F in (%STD_SRCS%) do %REL%\build\ghdlfilter -v93 < %REL%\libraries\std\%%F.vhdl > %%F.v93 && %REL%\build\%GHDL% -a --std=93 --bootstrap --work=std %%F.v93

+cd ..

+

+mkdir ieee

+cd ieee

+echo Base ieee

+for %%F in (%IEEE_SRCS%) do %REL%\build\ghdlfilter -v93 < %REL%\libraries\ieee\%%F.vhdl > %%F.v93 && %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee %%F.v93

+echo Vital 95

+for %%F in (%VITAL2000_SRCS%) do copy %REL%\libraries\vital2000\%%F.vhdl %%F.vhd && %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee %%F.vhd

+cd ..

+

+mkdir synopsys

+cd synopsys

+for %%F in (%IEEE_SRCS%) do %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee ..\ieee\%%F.v93

+for %%F in (%VITAL2000_SRCS%) do %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee ..\ieee\%%F.vhd

+for %%F in (%SYNOPSYS_SRCS%) do %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee ..\..\v87\synopsys\%%F.vhd

+cd ..

+

+cd ..

+

+cd ..
\ No newline at end of file
diff --git a/translate/mcode/windows/default_pathes.ads b/translate/mcode/windows/default_pathes.ads
new file mode 100644
index 0000000..abe0a60
--- /dev/null
+++ b/translate/mcode/windows/default_pathes.ads
@@ -0,0 +1,6 @@
+with Windows_Default_Path;

+pragma Elaborate_All (Windows_Default_Path);

+

+package Default_Pathes is

+   Prefix : constant String := Windows_Default_Path.Get_Windows_Default_Path;

+end Default_Pathes;

diff --git a/translate/mcode/windows/ghdl.nsi b/translate/mcode/windows/ghdl.nsi
new file mode 100644
index 0000000..ec186ef
--- /dev/null
+++ b/translate/mcode/windows/ghdl.nsi
@@ -0,0 +1,405 @@
+; ghdl.nsi

+;

+; This script is based on example2.nsi.

+;  remember the directory, 

+;  Check if administrator

+;  uninstall support

+; TODO:

+;  * Add in PATH

+;  * Add version

+;  * Check if GHDL is already installed (and uninstall before)

+;  * Check Windows version

+;  * Allow user install

+

+;--------------------------------

+

+; The name of the installer

+Name "Ghdl"

+

+; The file to write

+OutFile "ghdl-install.exe"

+

+SetDateSave on

+

+; The default installation directory

+InstallDir $PROGRAMFILES\Ghdl

+

+; Registry key to check for directory (so if you install again, it will 

+; overwrite the old one automatically)

+InstallDirRegKey HKLM "Software\Ghdl" "Install_Dir"

+

+LicenseData ..\COPYING

+; LicenseForceSelection

+

+;--------------------------------

+

+; Pages

+Page license

+Page components

+Page directory

+Page instfiles

+

+UninstPage uninstConfirm

+UninstPage instfiles

+

+;--------------------------------

+Function .onInit

+  Call IsNT

+  pop $R0

+  StrCmp $R0 1 nt_ok

+  MessageBox MB_OK|MB_ICONEXCLAMATION "You must use Windows NT (XP/2000/Me...)"

+  Quit

+

+nt_ok:

+  Call IsUserAdmin

+  Pop $R0

+  StrCmp $R0 "true" Admin

+  MessageBox MB_OK|MB_ICONEXCLAMATION "You must have Admin rights"

+  Quit

+

+Admin:

+  Return

+FunctionEnd

+

+;--------------------------------

+

+; The stuff to install

+Section "Ghdl Compiler (required)"

+

+  SectionIn RO

+  

+  ; Set output path to the installation directory.

+  SetOutPath $INSTDIR\bin

+  File /oname=ghdl.exe ..\build\ghdl.exe

+  

+  SetOutPath $INSTDIR

+  File /oname=COPYING.txt ..\COPYING

+

+  ; Write the installation path into the registry

+  WriteRegStr HKLM "Software\Ghdl" "Install_Dir" "$INSTDIR"

+  

+  ; Write the uninstall keys for Windows

+  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "DisplayName" "Ghdl"

+  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "UninstallString" '"$INSTDIR\uninst-ghdl.exe"'

+  WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "NoModify" 1

+  WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "NoRepair" 1

+  WriteUninstaller $INSTDIR\uninst-ghdl.exe"

+  

+SectionEnd

+

+Section "VHDL standard and ieee libraries"

+  SectionIn RO

+  SetOutPath $INSTDIR\lib\v87

+  File /r ..\lib\v87\std ..\lib\v87\ieee

+  SetOutPath $INSTDIR\lib\v93

+  File /r ..\lib\v93\std ..\lib\v93\ieee

+SectionEnd

+

+Section "Synopsys libraries (Recommanded)"

+  SetOutPath $INSTDIR\lib\v87

+  File /r ..\lib\v87\synopsys

+  SetOutPath $INSTDIR\lib\v93

+  File /r ..\lib\v93\synopsys

+SectionEnd

+

+Section "Add in PATH (Recommanded)"

+  WriteRegDWORD HKLM "Software\Ghdl" "PathSet" 1

+  Push $INSTDIR\Bin

+  Call AddToPath

+SectionEnd

+

+; Optional section (can be disabled by the user)

+;Section "Start Menu Shortcuts"

+;

+;  CreateDirectory "$SMPROGRAMS\Ghdl"

+;  CreateShortCut "$SMPROGRAMS\Ghdl\Uninstall.lnk" "$INSTDIR\uninstall.exe" "" "$INSTDIR\uninstall.exe" 0

+;  CreateShortCut "$SMPROGRAMS\Ghdl\Ghdl.lnk" "$INSTDIR\example2.nsi" "" "$INSTDIR\example2.nsi" 0

+;  

+;SectionEnd

+;

+

+;--------------------------------

+

+; Uninstaller

+

+Section "Uninstall"

+

+  ReadRegDWORD $0 HKLM "Software\Ghdl" "PathSet"

+  StrCmp $0 "1" "" path_not_set

+  Push $INSTDIR\Bin

+  Call un.RemoveFromPath

+

+path_not_set:

+

+  ; Remove registry keys

+  DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl"

+  DeleteRegKey HKLM Software\Ghdl

+

+  ; Remove files and uninstaller

+  Delete $INSTDIR\bin\ghdl.exe

+  Delete $INSTDIR\uninst-ghdl.exe

+  Delete $INSTDIR\COPYING.txt

+  RMDir $INSTDIR\bin

+  RMDir /r $INSTDIR\lib

+

+

+  ; Remove shortcuts, if any

+  ; Delete "$SMPROGRAMS\Ghdl\*.*"

+

+  ; Remove directories used

+  ; RMDir "$SMPROGRAMS\Ghdl"

+  RMDir "$INSTDIR"

+

+SectionEnd

+

+;;;;;;;; Misc functions

+

+; Author: Lilla (lilla@earthlink.net) 2003-06-13

+; function IsUserAdmin uses plugin \NSIS\PlusgIns\UserInfo.dll

+; This function is based upon code in \NSIS\Contrib\UserInfo\UserInfo.nsi

+; This function was tested under NSIS 2 beta 4 (latest CVS as of this writing).

+;

+; Usage:

+;   Call IsUserAdmin

+;   Pop $R0   ; at this point $R0 is "true" or "false"

+;

+Function IsUserAdmin

+Push $R0

+Push $R1

+Push $R2

+ 

+ClearErrors

+UserInfo::GetName

+IfErrors Win9x

+Pop $R1

+UserInfo::GetAccountType

+Pop $R2

+ 

+StrCmp $R2 "Admin" 0 Continue

+; Observation: I get here when running Win98SE. (Lilla)

+; The functions UserInfo.dll looks for are there on Win98 too, 

+; but just don't work. So UserInfo.dll, knowing that admin isn't required

+; on Win98, returns admin anyway. (per kichik)

+; MessageBox MB_OK 'User "$R1" is in the Administrators group'

+StrCpy $R0 "true"

+Goto Done

+ 

+Continue:

+; You should still check for an empty string because the functions

+; UserInfo.dll looks for may not be present on Windows 95. (per kichik)

+StrCmp $R2 "" Win9x

+StrCpy $R0 "false"

+;MessageBox MB_OK 'User "$R1" is in the "$R2" group'

+Goto Done

+ 

+Win9x:

+; comment/message below is by UserInfo.nsi author:

+; This one means you don't need to care about admin or

+; not admin because Windows 9x doesn't either

+;MessageBox MB_OK "Error! This DLL can't run under Windows 9x!"

+StrCpy $R0 "true"

+ 

+Done:

+;MessageBox MB_OK 'User= "$R1"  AccountType= "$R2"  IsUserAdmin= "$R0"'

+ 

+Pop $R2

+Pop $R1

+Exch $R0

+FunctionEnd

+

+

+!define ALL_USERS

+ 

+!ifndef WriteEnvStr_RegKey

+  !ifdef ALL_USERS

+    !define WriteEnvStr_RegKey \

+       'HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"'

+  !else

+    !define WriteEnvStr_RegKey 'HKCU "Environment"'

+  !endif

+!endif

+

+!verbose 3

+!include "WinMessages.NSH"

+!verbose 4

+

+; AddToPath - Adds the given dir to the search path.

+;        Input - head of the stack

+;        Note - Win9x systems requires reboot

+ 

+Function AddToPath

+  Exch $0

+  Push $1

+  Push $2

+  Push $3

+ 

+  # don't add if the path doesn't exist

+  IfFileExists "$0\*.*" "" AddToPath_done

+ 

+  ReadEnvStr $1 PATH

+  Push "$1;"

+  Push "$0;"

+  Call StrStr

+  Pop $2

+  StrCmp $2 "" "" AddToPath_done

+  Push "$1;"

+  Push "$0\;"

+  Call StrStr

+  Pop $2

+  StrCmp $2 "" "" AddToPath_done

+  GetFullPathName /SHORT $3 $0

+  Push "$1;"

+  Push "$3;"

+  Call StrStr

+  Pop $2

+  StrCmp $2 "" "" AddToPath_done

+  Push "$1;"

+  Push "$3\;"

+  Call StrStr

+  Pop $2

+  StrCmp $2 "" "" AddToPath_done

+ 

+  ReadRegStr $1 ${WriteEnvStr_RegKey} "PATH"

+  StrCpy $2 $1 1 -1 # copy last char

+  StrCmp $2 ";" 0 +2 # if last char == ;

+    StrCpy $1 $1 -1 # remove last char

+  StrCmp $1 "" AddToPath_NTdoIt

+    StrCpy $0 "$1;$0"

+ AddToPath_NTdoIt:

+   WriteRegExpandStr ${WriteEnvStr_RegKey} "PATH" $0

+   SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000

+ 

+  AddToPath_done:

+    Pop $3

+    Pop $2

+    Pop $1

+    Pop $0

+FunctionEnd

+ 

+; RemoveFromPath - Remove a given dir from the path

+;     Input: head of the stack

+ 

+Function un.RemoveFromPath

+  Exch $0

+  Push $1

+  Push $2

+  Push $3

+  Push $4

+  Push $5

+  Push $6

+ 

+  IntFmt $6 "%c" 26 # DOS EOF

+ 

+  ReadRegStr $1 ${WriteEnvStr_RegKey} "PATH"

+  StrCpy $5 $1 1 -1 # copy last char

+  StrCmp $5 ";" +2 # if last char != ;

+    StrCpy $1 "$1;" # append ;

+  Push $1

+  Push "$0;"

+  Call un.StrStr ; Find `$0;` in $1

+  Pop $2 ; pos of our dir

+  StrCmp $2 "" unRemoveFromPath_done

+    ; else, it is in path

+    # $0 - path to add

+    # $1 - path var

+    StrLen $3 "$0;"

+    StrLen $4 $2

+    StrCpy $5 $1 -$4 # $5 is now the part before the path to remove

+    StrCpy $6 $2 "" $3 # $6 is now the part after the path to remove

+    StrCpy $3 $5$6

+ 

+    StrCpy $5 $3 1 -1 # copy last char

+    StrCmp $5 ";" 0 +2 # if last char == ;

+      StrCpy $3 $3 -1 # remove last char

+ 

+    WriteRegExpandStr ${WriteEnvStr_RegKey} "PATH" $3

+    SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000

+ 

+  unRemoveFromPath_done:

+    Pop $6

+    Pop $5

+    Pop $4

+    Pop $3

+    Pop $2

+    Pop $1

+    Pop $0

+FunctionEnd

+

+###########################################

+#            Utility Functions            #

+###########################################

+ 

+; IsNT

+; no input

+; output, top of the stack = 1 if NT or 0 if not

+;

+; Usage:

+;   Call IsNT

+;   Pop $R0

+;  ($R0 at this point is 1 or 0)

+ 

+!macro IsNT un

+Function ${un}IsNT

+  Push $0

+  ReadRegStr $0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion

+  StrCmp $0 "" 0 IsNT_yes

+  ; we are not NT.

+  Pop $0

+  Push 0

+  Return

+ 

+  IsNT_yes:

+    ; NT!!!

+    Pop $0

+    Push 1

+FunctionEnd

+!macroend

+!insertmacro IsNT ""

+;!insertmacro IsNT "un."

+ 

+; StrStr

+; input, top of stack = string to search for

+;        top of stack-1 = string to search in

+; output, top of stack (replaces with the portion of the string remaining)

+; modifies no other variables.

+;

+; Usage:

+;   Push "this is a long ass string"

+;   Push "ass"

+;   Call StrStr

+;   Pop $R0

+;  ($R0 at this point is "ass string")

+ 

+!macro StrStr un

+Function ${un}StrStr

+Exch $R1 ; st=haystack,old$R1, $R1=needle

+  Exch    ; st=old$R1,haystack

+  Exch $R2 ; st=old$R1,old$R2, $R2=haystack

+  Push $R3

+  Push $R4

+  Push $R5

+  StrLen $R3 $R1

+  StrCpy $R4 0

+  ; $R1=needle

+  ; $R2=haystack

+  ; $R3=len(needle)

+  ; $R4=cnt

+  ; $R5=tmp

+  loop:

+    StrCpy $R5 $R2 $R3 $R4

+    StrCmp $R5 $R1 done

+    StrCmp $R5 "" done

+    IntOp $R4 $R4 + 1

+    Goto loop

+done:

+  StrCpy $R1 $R2 "" $R4

+  Pop $R5

+  Pop $R4

+  Pop $R3

+  Pop $R2

+  Exch $R1

+FunctionEnd

+!macroend

+!insertmacro StrStr ""

+!insertmacro StrStr "un."

+ 

diff --git a/translate/mcode/windows/ghdlfilter.adb b/translate/mcode/windows/ghdlfilter.adb
new file mode 100644
index 0000000..d37c2db
--- /dev/null
+++ b/translate/mcode/windows/ghdlfilter.adb
@@ -0,0 +1,58 @@
+with Ada.Command_Line; use Ada.Command_Line;
+with Ada.Text_IO; use Ada.Text_IO;
+
+procedure Ghdlfilter is
+   type Mode_Kind is (Mode_93, Mode_87);
+   Mode : Mode_Kind;
+
+   Line : String (1 .. 128);
+   Len : Natural;
+
+   Comment : Boolean;
+   Block_Comment : Boolean;
+begin
+   if Argument_Count /= 1 then
+      Put_Line (Standard_Error, "usage: " & Command_Name & " -v93|-v87");
+      return;
+   end if;
+
+   if Argument (1) = "-v93" then
+      Mode := Mode_93;
+   elsif Argument (1) = "-v87" then
+      Mode := Mode_87;
+   else
+      Put_Line (Standard_Error, "bad mode");
+      return;
+   end if;
+
+   Block_Comment := False;
+
+   loop
+      exit when End_Of_File;
+      Get_Line (Line, Len);
+
+      Comment := Block_Comment;
+
+      if Len > 5 then
+         if Mode = Mode_87 and Line (Len - 4 .. Len) = "--V93" then
+            Comment := True;
+         elsif Mode = Mode_93 and Line (Len - 4 .. Len) = "--V87" then
+            Comment := True;
+         end if;
+      end if;
+      if Len = 11
+        and then Mode = Mode_87
+        and then Line (1 .. 11) = "--START-V93" then
+         Block_Comment := True;
+      end if;
+
+      if Len = 9 and then Line (1 .. 9) = "--END-V93" then
+         Block_Comment := False;
+      end if;
+
+      if Comment then
+         Put ("-- ");
+      end if;
+      Put_Line (Line (1 .. Len));
+   end loop;
+end Ghdlfilter;
diff --git a/translate/mcode/windows/grt-modules.adb b/translate/mcode/windows/grt-modules.adb
new file mode 100644
index 0000000..35b27c3
--- /dev/null
+++ b/translate/mcode/windows/grt-modules.adb
@@ -0,0 +1,37 @@
+--  GHDL Run Time (GRT) -  Modules.
+--  Copyright (C) 2005 Tristan Gingold
+--
+--  GHDL is free software; you can redistribute it and/or modify it under
+--  the terms of the GNU General Public License as published by the Free
+--  Software Foundation; either version 2, or (at your option) any later
+--  version.
+--
+--  GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
+--  WARRANTY; without even the implied warranty of MERCHANTABILITY or
+--  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+--  for more details.
+--
+--  You should have received a copy of the GNU General Public License
+--  along with GCC; see the file COPYING.  If not, write to the Free
+--  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+--  02111-1307, USA.
+with System.Storage_Elements; --  Work around GNAT bug.
+with Grt.Vcd;
+with Grt.Vpi;
+with Grt.Waves;
+with Grt.Vital_Annotate;
+with Grt.Disp_Tree;
+with Grt.Disp_Rti;
+
+package body Grt.Modules is
+   procedure Register_Modules is
+   begin
+      --  List of modules to be registered.
+      Grt.Disp_Tree.Register;
+      Grt.Vcd.Register;
+      Grt.Waves.Register;
+      Grt.Vpi.Register;
+      Grt.Vital_Annotate.Register;
+      Grt.Disp_Rti.Register;
+   end Register_Modules;
+end Grt.Modules;
diff --git a/translate/mcode/windows/windows_default_path.adb b/translate/mcode/windows/windows_default_path.adb
new file mode 100644
index 0000000..8ad27ed
--- /dev/null
+++ b/translate/mcode/windows/windows_default_path.adb
@@ -0,0 +1,19 @@
+with GNAT.Registry; use GNAT.Registry;

+

+package body Windows_Default_Path is

+   function Get_Windows_Default_Path return String

+   is

+      Key : HKEY;

+   begin

+      Key := Open_Key (HKEY_LOCAL_MACHINE, "Software\Ghdl");

+      declare

+	 Res : String := Query_Value (Key, "Install_Dir");

+      begin

+	 return Res & "\lib\";

+      end;

+   exception

+      when Registry_Error =>

+	 --  Do not write an error message, but return a useful default path.

+	 return "{missing HKLM\Software\Ghdl\Install_Dir key}\lib\";

+   end Get_Windows_Default_Path;

+end Windows_Default_Path;

diff --git a/translate/mcode/windows/windows_default_path.ads b/translate/mcode/windows/windows_default_path.ads
new file mode 100644
index 0000000..a18b656
--- /dev/null
+++ b/translate/mcode/windows/windows_default_path.ads
@@ -0,0 +1,5 @@
+package Windows_Default_Path is

+   --  Get the default path from registry.

+   --  This function is called during elaboration!

+   function Get_Windows_Default_Path return String;

+end Windows_Default_Path;