crosscompile-windows/lispselector.tcl

   1 #!/usr/bin/wish
   2 # Simple GUI for selecting the default Lisp for Windows users.
   3
   4 #  @ABCL_ENABLED@ will be replaced by 0 or 1 in the final program.
   5 set abcl @ABCL_ENABLED@
   6
   7 proc selectclisp {} {
   8     set maximarc [file join $::env(USERPROFILE) maxima maximarc]
   9     file mkdir [file dirname $maximarc]
  10     set f [open $maximarc "w"]
  11     puts $f "MAXIMA_LISP=clisp"
  12     close $f
  13     tk_messageBox -type ok -message "CLISP was selected as default Lisp interpreter for Maxima." -icon info
  14 }
  15
  16 proc selectsbcl {} {
  17     set maximarc [file join $::env(USERPROFILE) maxima maximarc]
  18     file mkdir [file dirname $maximarc]
  19     set f [open $maximarc "w"]
  20     puts $f "MAXIMA_LISP=sbcl"
  21     close $f
  22     tk_messageBox -type ok -message "SBCL was selected as default Lisp interpreter for Maxima." -icon info
  23 }
  24
  25 proc selectabcl {} {
  26     set maximarc [file join $::env(USERPROFILE) maxima maximarc]
  27     file mkdir [file dirname $maximarc]
  28     set f [open $maximarc "w"]
  29     puts $f "MAXIMA_LISP=abcl"
  30     close $f
  31     tk_messageBox -type ok -message "ABCL was selected as default Lisp interpreter for Maxima." -icon info
  32 }
  33
  34 set binpath [file dirname [file normalize [info script]]]
  35
  36 set documentation "One can use different LISP (the programming language, in which Maxima is (mostly) written) compilers for running Maxima.
  37
  38 Currently this Windows installer supports:
  39 - CLISP (http://www.clisp.org)
  40 - SBCL (http://www.sbcl.org).
  41 "
  42
  43 if {$abcl == 1} { append documentation "- ABCL (http://www.abcl.org)" }
  44
  45 append documentation "
  46 Which Lisp you select, may depend on your needs:
  47
  48 SBCL is usually faster, but there were issues with DEP (data execution prevention) reported.
  49 It might be necessary to disable DEP for $binpath/sbcl.exe.
  50 Due to memory problems, some packages (e.g. Lapack) may not work.
  51
  52 CLISP may be slower, but these problems do not occur there. In command line Maxima CLISP
  53 provides advanced editing features (a history of previous commands is accessible with the cursor keys).
  54
  55 "
  56
  57 if {$abcl == 1} { append documentation "Armed Bear Common Lisp (ABCL) is a full implementation of the Common Lisp language  running in the JVM.
  58 Java must be installed, if you use ABCL.
  59
  60 " }
  61
  62 append documentation "If you select a Lisp, a configuration file 'maximarc' will be created
  63 in the 'maxima' directory of your user profile directory with your default Lisp selection.
  64 If the configuration file already exists, it will be overwritten.
  65 "
  66
  67 # Buttons (clisp, sbcl, exit)
  68 frame .toolbar
  69 button .toolbar.clisp -text "Select CLISP" -command "selectclisp"
  70 button .toolbar.sbcl -text "Select SBCL" -command "selectsbcl"
  71 if {$abcl == 1} { button .toolbar.abcl -text "Select ABCL" -command "selectabcl" }
  72 button .toolbar.exit -text "Exit" -command "exit"
  73 pack .toolbar.clisp -side left
  74 pack .toolbar.sbcl -side left
  75 if {$abcl == 1} { pack .toolbar.abcl -side left }
  76 pack .toolbar.exit -side right
  77
  78 # Documentation area
  79 frame .docu
  80 label .docu.label -text $documentation
  81 pack .docu.label -padx 50 -pady 50
  82
  83
  84 wm title . "Maxima Open Source Computer Algebra System - Select LISP Compiler"
  85 grid config .toolbar -column 0 -row 1 -sticky "snew"
  86 grid config .docu    -column 0 -row 2
  87