win/*.vc

Mpexpr for Windows

BEFORE YOU BEGIN

Mpexpr has been ported to WindowsNT.
It has been tested with the latest version of Tcl, 8.6


INSTALLING MPEXPR FOR WINDOWS

Binary install:
 
1. Copy appropriate mpexpr.dll to your Tcl .\lib directory.  
    
   For a 32-bit installation of Tcl:
    copy mpexpr12.dll-win32  c:\tcl\lib\mpexpr12.dll

   For a 64-bit installation of Tcl:
    copy mpexpr12.dll-win64  c:\tcl\lib\mpexpr12.dll

2. Copy or add pkgIndex.tcl to your Tcl lib directory.  This is so the
   'package unknown' scripts can resolve the 'package ifneeded' to load the
   dll.

    mkdir c:\tcl\lib\mpexpr12
    copy pkgIndex.tcl c:\tcl\lib\mpexpr12

3. Try it out!

    c:\> tclsh
    % package require Mpexpr
    1.2 
    % mpexpr fib(34)

    If you get errors:

    If 'package require' says it can't find package Mpexpr:
	    -make sure you've installed the pkgIndex.tcl.
	    -or just load the mpexpr.dll manually
		    % load "c:/tcl/lib/mpexpr12.dll"
		    (or wherever you put it)


BUILDING MPEXPR FOR WINDOWS

The test development environment is
	Windows 7
	Microsoft Visual C++ 2015
	Tcl 8.6.4 for Windows (32/64-bit)

1.  Install Tcl.  The 'binary' Tcl distributions contain all the include
    and library files needed by Mpexpr.  Alternatively, you can build
    and install from the full source Tcl distribution.

2.  Modify the makefile as needed.  You'll probably have to change the
    values for the TCL defines to suit, or else set these on the nmake
    command line (see next step).

3.  Make it!  
	C:\mpexpr\win> nmake -f makefile.vc
    or
        C:\mpexpr\win> nmake -f makefile.vc TCL=C:\tcl TCLLIB=C:\tcl\lib\tcl86.lib

4.  Test
	C:\mpexpr> nmake -f makefile.vc test

5.  Install
	C:\mpexpr> nmake -f makefile.vc install

# simple installer for Sybtcl/Oratcl
# Copyright 1997 Tom Poindexter
# 1.2 - add support for install on Macs

# read in the makefile, to figure out which package and version

if {"$tcl_platform(platform)" == "macintosh"} {
  rename exit tcl_exit
  proc exit {args} {
    puts "press any key to exit"
	flush stdout
	gets stdin
	tcl_exit
  }
}

set win_mk makefile.vc
set mac_mk [lindex [glob -nocomplain *.make] 0]
set makefiles [list $win_mk $mac_mk]

set fd ""
foreach mk $makefiles {
  if {[catch {set fd [open $mk]}] == 0} {
    break
  }
}
if {"$fd" == ""} {
    puts "can't find a suitable makefile as $makefiles"
    exit
}

set mf [read $fd]
close $fd

set project ""
set version ""
set dllvers ""
set dll [info sharedlibextension]

set ws "\[ \t]?"
set al "\[A-Za-z_]*"
set vn "\[0-9]*\\.\[0-9]*"
set dl "\[0-9]*"

# parse project name, version, and dll version

if {! [regexp "${ws}PROJECT${ws}=${ws}(${al})"          $mf match project] } {
  puts "can't find package name"
  exit
}
if {! [regexp -nocase "${ws}${project}_VERSION${ws}=${ws}(${vn})" $mf \
							  match version] } {
  puts "can't find package version"
  exit
}
if {! [regexp "${ws}DLL_VERSION${ws}=${ws}(${dl})"      $mf match dllvers] } {
  puts "can't find package dll version"
  exit
}


# figure out tcl version, and strip out dots

set tclver [info tclversion]
regsub -all {\.} $tclver "" tclver

# set directory for pkgIndex.tcl, set required dll, and install dll name

set proj_dir ${project}${dllvers}
set proj_dll ${project}${dllvers}${dll}
set inst_dll ${project}${dllvers}${dll}

# set package name, assumes that shared lib Xxx_Init is first letter caps

set package "[string toupper [string range $project 0 0]][string tolower [string range $project 1 end]]"

# see if project dll file exists

if {! [file isfile $proj_dll] } {
  puts "can't find $proj_dll"
  puts "there doesn't seem to be a dll/shared lib for $project version $version"
  puts "for Tcl version [info tclversion]"
  exit
}

# get tcl lib location, location based on nameofexecutable

set tcllib [file dirname [info library]]

# install project pkgIndex.tcl in private project directory
set proj_dir [file join $tcllib $proj_dir]

# create package ifneeded script, location based on Tcl library location

set pkg "package ifneeded $package $version \"load \[list \[file join \$dir .. $inst_dll\]\]\""

# tell user what we are about to to

puts ""
puts "installing $package"
puts ""
puts "steps to be performed:"
puts ""
puts "  file copy  $proj_dll [file join $tcllib $inst_dll]"
if {! [file isdirectory [file join $proj_dir]] } {
  puts "  file mkdir [file join $proj_dir]"
}
puts "  create [file join $proj_dir pkgIndex.tcl] as:"
puts "  $pkg"
puts ""
puts -nonewline "continue (yes/no) ? "
flush stdout
gets stdin ans

# install if answer was yes,y

switch -glob -- $ans {
  y* -
  Y* {
    puts "file copy  $proj_dll [file join $tcllib $inst_dll]"
    if {[catch {file copy -force $proj_dll [file join $tcllib $inst_dll]}]} {
      puts "oops, can't copy  $proj_dll [file join $tcllib $inst_dll]"
      exit
    }
    if {! [file isdirectory $proj_dir] } {
      puts "file mkdir file join $proj_dir"
      if {[catch {file mkdir $proj_dir}]} {
	puts "oops, can't mkdir $proj_dir"
	exit
      }
    }
    puts "creating [file join $proj_dir pkgIndex.tcl]"
    if {[catch {set fd [open [file join $proj_dir pkgIndex.tcl] w]}]} {
      puts "oops, can't create or append [file join $proj_dir pkgIndex.tcl]"
      exit
    }
    puts $fd $pkg
    close $fd
    puts ""
    puts "installation complete"
  }
  default {puts "no action taken, exiting $package install"}
}

exit

package ifneeded @PACKAGE_NAME@ @PACKAGE_VERSION@ [list load [file join $dir @PKG_LIB_FILE@]]