Overview
| Comment: | For --dump-tcl mode dump all dependency C files as well |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
7664854ef9fe0600125fdc0b14271a86 |
| User & Date: | rkeene on 2019-05-08 17:25:55.044 |
| Other Links: | manifest | tags |
Context
|
2019-05-08
| ||
| 19:42 | In flexible/standalone mode include the core functionality as a header to avoid duplicate symbols check-in: b8cca3a6b4 user: rkeene tags: trunk | |
| 17:25 | For --dump-tcl mode dump all dependency C files as well check-in: 7664854ef9 user: rkeene tags: trunk | |
| 17:08 | Added a mode to dump template script as an independent script check-in: f09ab16ca1 user: rkeene tags: trunk | |
Changes
Modified xvfs-create
from [fbd06cba28]
to [1c8fe7fbaa].
| ︙ | ︙ | |||
15 16 17 18 19 20 21 22 23 24 25 26 |
switch -- $mode {
"run" {
::minirivet::parse $template
}
"dump-tcl" {
set xvfs_tcl [file join $sourceDirectory lib xvfs xvfs.tcl]
puts "#! /usr/bin/env tclsh"
puts ""
puts [read [open $xvfs_tcl]]
puts ""
| > > > > > > > > > > | | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
switch -- $mode {
"run" {
::minirivet::parse $template
}
"dump-tcl" {
set xvfs_tcl [file join $sourceDirectory lib xvfs xvfs.tcl]
set xvfs_core_h [file join $sourceDirectory xvfs-core.h]
set xvfs_core_c [file join $sourceDirectory xvfs-core.c]
set cleanup [list "#include <xvfs-core.h>" ""]
set core_header_data ""
append core_header_data [string map $cleanup [read [open $xvfs_core_h]]] "\n"
append core_header_data [string map $cleanup [read [open $xvfs_core_c]]] "\n"
puts "#! /usr/bin/env tclsh"
puts ""
puts [read [open $xvfs_tcl]]
puts ""
puts [list puts -nonewline $core_header_data]
puts ""
puts [string map $cleanup [::minirivet::parseStringToCode [read [open $template]]]]
}
default {
puts stderr "error: Invalid mode: $mode"
exit 1
}
}
|