autosetup/tmake.tcl

   1 # Copyright (c) 2011 WorkWare Systems http://www.workware.net.au/
   2 # All rights reserved
   3
   4 # @synopsis:
   5 #
   6 # The 'tmake' module makes it easy to support the tmake build system.
   7 #
   8 # The following variables are set:
   9 #
  10 ## CONFIGURED  - to indicate that the project is configured
  11
  12 use system
  13
  14 module-options {}
  15
  16 define CONFIGURED
  17
  18 # @make-tmake-settings outfile patterns ...
  19 #
  20 # Examines all defined variables which match the given patterns (defaults to '*')
  21 # and writes a tmake-compatible .conf file defining those variables.
  22 # For example, if 'ABC' is '"3 monkeys"' and 'ABC' matches a pattern, then the file will include:
  23 #
  24 ## define ABC {3 monkeys}
  25 #
  26 # If the file would be unchanged, it is not written.
  27 #
  28 # Typical usage is:
  29 #
  30 ## make-tmake-settings [get-env BUILDDIR objdir]/settings.conf {[A-Z]*}
  31 proc make-tmake-settings {file args} {
  32         file mkdir [file dirname $file]
  33         set lines {}
  34
  35         if {[llength $args] == 0} {
  36                 set args *
  37         }
  38
  39         foreach n [lsort [dict keys [all-defines]]] {
  40                 foreach p $args {
  41                         if {[string match $p $n]} {
  42                                 set value [get-define $n]
  43                                 lappend lines "define $n [list $value]"
  44                                 break
  45                         }
  46                 }
  47         }
  48         set buf [join $lines \n]
  49         write-if-changed $file $buf {
  50                 msg-result "Created $file"
  51         }
  52 }