Check-in [b12c0dc620]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Slightly better script for demos
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:b12c0dc6209d23dfcd3c3ba2be7d6b1d3ff0bf92c87fe81ab668d297822c57b8
User & Date: dkf 2018-07-08 09:12:57
Context
2018-10-15
11:13
Expand the basic eq/ge/gt/le/lt/ne ops to allow doubles too. check-in: 9bbeeddfb9 user: dkf tags: trunk
2018-07-08
09:12
Slightly better script for demos check-in: b12c0dc620 user: dkf tags: trunk
2018-04-29
17:21
Fix native code generation when building DLLs check-in: 412811a9f7 user: dkf tags: trunk
Changes

Changes to demos/pkgs/pkg2lib.tcl.

1
2

3
4
5
6
7
8
9
10
11
12
13
14






15
16


# Initialise where to find the tclquadcode package
lappend auto_path [file join [file dirname [info script]] ../..]

# Initialise where the demonstration packages are located
lappend auto_path [file dirname [info script]]
 
# Simple driver script
package require tclquadcode

LLVM configure {*}[lassign $::argv package]

set ifneededline [LLVM compilepackagetodll $package]
puts ""
puts "Add the following line to the relevant pkgIndex.tcl"
puts ""






puts $ifneededline
puts ""



|
>

|






|

|

>
>
>
>
>
>
|
<
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

23
24
# Initialise where to find the tclquadcode package
lappend auto_path [file normalize [file join [file dirname [info script]] ../..]]

# Initialise where the demonstration packages are located
lappend auto_path [file normalize [file dirname [info script]]]
 
# Simple driver script
package require tclquadcode

LLVM configure {*}[lassign $::argv package]

puts "Compiling package $package"
puts ""
set ifneededline [LLVM compilepackagetodll $package]
puts ""

# Parse the name of the produced package
regexp {package ifneeded (\S+\s[\d.]+)} $ifneededline -> newpkg

# Add the definition to the pkgIndex
set f [open [file join [file dirname [info script]] pkgIndex.tcl] "a"]
puts $f $ifneededline

close $f
puts "Added definition for $newpkg to pkgIndex.tcl"