defaults/misc/Jambase.misc

   1 # miscelaneous helper rules
   2
   3 #
   4 # Utility rules; no side effects on these
   5 #
   6
   7 # /FGrist path to file ;
   8 #
   9 # Returns a single string that is used as grist
  10 #
  11 rule FGrist {
  12   return $(<:J=!) ;
  13 }
  14
  15
  16 rule FGristFiles {
  17   return $(<:G=$(SOURCE_GRIST:E)) ;
  18 }
  19
  20
  21 rule FGristSourceFiles {
  22   ## LOCAL CHANGE: OPT_HEADER_CACHE_EXT
  23   # With header caching, there is no performance penalty to gristing
  24   # header files. It is also not correct to assume that header
  25   # files have global visibility.
  26   #
  27   # Here we comment out the old version and replace it with the new.
  28 #  # Produce source file name name with grist in it,
  29 #  # if SOURCE_GRIST is set.
  30 #
  31 #  # Leave header files alone, because they have a global
  32 #  # visibility.
  33 #  if ! $(SOURCE_GRIST) {
  34 #    return $(<) ;
  35 #  } else {
  36 #    local _i _o ;
  37 #
  38 #    for _i in $(<) {
  39 #      switch $(_i) {
  40 #        case *.h : _o += $(_i) ;
  41 #        case *   : _o += $(_i:G=$(SOURCE_GRIST)) ;
  42 #      }
  43 #    }
  44 #    return $(_o) ;
  45 #  }
  46   return [ FGristFiles $(<) ] ;
  47 }
  48
  49
  50 rule FReverse {
  51   if $(1) { return [ FReverse $(1[2-]) ] $(1[1]) ; }
  52 }
  53
  54
  55 rule FSubDir {
  56   # If $(>) is the path to the current directory, compute the
  57   # path (using ../../ etc) back to that root directory.
  58   # Sets result in $(<)
  59   if ! $(<[1]) {
  60     return $(DOT) ;
  61   } else {
  62     local _i _d ;
  63
  64     _d = $(DOTDOT) ;
  65     for _i in $(<[2-]) { _d = $(_d:R=$(DOTDOT)) ; }
  66     return $(_d) ;
  67   }
  68 }
  69
  70
  71 rule FStripCommon {
  72   # FStripCommon v1 : v2 ;
  73
  74   # Strip common initial elements of variables v1 and v2.
  75   # Modifies the variable values themselves.
  76   if $($(<)[1]) && $($(<)[1]) = $($(>)[1]) {
  77     $(<) = $($(<)[2-]) ;
  78     $(>) = $($(>)[2-]) ;
  79     FStripCommon $(<) : $(>) ;
  80   }
  81 }
  82
  83
  84 rule FRelPath {
  85   local _l _r ;
  86
  87   # first strip off common parts
  88   _l = $(<) ;
  89   _r = $(>) ;
  90   FStripCommon _l : _r ;
  91
  92   # now make path to root and path down
  93   _l = [ FSubDir $(_l) ] ;
  94   _r = [ FDirName $(_r) ] ;
  95
  96   # Concatenate and save
  97   # XXX This should be better
  98   if $(_r) = $(DOT) { return $(_l) ; } else { return $(_r:R=$(_l)) ; }
  99 }
 100
 101
 102 rule FAppendSuffix {
 103   # E.g., "FAppendSuffix yacc lex foo.bat : $(SUFEXE) ;"
 104   # returns (yacc,lex,foo.bat) on Unix and
 105   # (yacc.exe,lex.exe,foo.bat) on NT.
 106   if $(>) {
 107     local _i _o ;
 108
 109     for _i in $(<) {
 110       if $(_i:S) { _o += $(_i) ; } else { _o += $(_i:S=$(>)) ; }
 111     }
 112     return $(_o) ;
 113   } else {
 114     return $(<) ;
 115   }
 116 }
 117
 118
 119 #
 120 # Operating system specific utility rules
 121 # First, the (generic) UNIX versions
 122 #
 123
 124 rule FQuote { return "\\\"$(<)\\\"" ; }
 125 rule FDefines { return -D$(<) ; }
 126 rule FIncludes { return -I$(<) ; }
 127
 128 rule FDirName {
 129   # Turn individual elements in $(<) into a usable path.
 130   local _i ;
 131   local _s = $(DOT) ;
 132
 133   for _i in $(<) { _s = $(_i:R=$(_s)) ; }
 134   return $(_s) ;
 135 }
 136
 137
 138 if $(NT) && $(JAM_TOOLSET) != MINGW && $(JAM_TOOLSET) != LCC {
 139   rule FDefines { return /D$(<) ; }
 140   rule FIncludes { return /I$(<) ; }
 141 }
 142
 143
 144 rule remove-std99-flags {
 145   local orm = "^(\\-std=c99)" "^(\\-std=gnu99)" ;
 146   local res = [ RemoveOptWild $(orm) : $(<) ] ;
 147   return $(res) ;
 148 }
 149
 150
 151 # VAR = [ RemoveOptWild regexp-options-to-remove : options-list ] ;
 152 # remove options from list with egrep-like regexps
 153 rule RemoveOptWild {
 154   local oname = $(1) ;
 155   local str = $(2) ;
 156   local res = ;
 157   local f ;
 158   local t ;
 159   #Echo "removing " $(oname) " from " $(str) ;
 160   for f in $(str) {
 161     t = [ Match $(oname) : $(f) ] ;
 162     #Echo $(f) ": " $(t) ;
 163     if $(t[1]) = "" {
 164       #Echo "include: " $(f) ;
 165       res += $(f) ;
 166     }
 167   }
 168   return $(res) ;
 169 }
 170
 171
 172 # remove-opt-flags $(var)
 173 # remove optimization flags from compiler options
 174 rule remove-opt-flags {
 175   local orm = "^(\\-march\\=)" "^(\\-mtune\\=)" "^(\\-mfpmath\\=)" "^(\\-O.$)" ;
 176   local ormff = "^(\\-f[^n][^o])" ;
 177   local res = [ RemoveOptWild $(orm) $(ormff) : $(<) ] ;
 178   return $(res) ;
 179 }
 180
 181
 182 rule remove-opt-flags-for-all-compilers {
 183   OPTIM = [ remove-opt-flags $(OPTIM) ] ;
 184   C++OPTIM = [ remove-opt-flags $(C++OPTIM) ] ;
 185   OBJCOPTIM = [ remove-opt-flags $(OBJCOPTIM) ] ;
 186   OPTIM.all = [ remove-opt-flags $(OPTIM.all) ] ;
 187
 188   OPTIM = [ RemoveOptWild $(orm) $(ormff) : $(OPTIM) ] ;
 189   C++OPTIM = [ RemoveOptWild $(orm) $(ormff) : $(C++OPTIM) ] ;
 190   OBJCOPTIM = [ RemoveOptWild $(orm) $(ormff) : $(OBJCOPTIM) ] ;
 191   OPTIM.all = [ RemoveOptWild $(orm) $(ormff) : $(OPTIM.all) ] ;
 192 }
 193
 194
 195 rule sys-has-command {
 196   local cf ;
 197
 198   cf = [ Command "which \"$(1)\" 2>/dev/null 1>&2" : exit-code code-first ] ;
 199   #Echo "cf:" $(cf) ;
 200   if $(cf[1]) = "0" {
 201     return "tan" ;
 202   }
 203
 204   return "" ;
 205 }
 206
 207
 208 rule gcc-suggest-attrs {
 209   if $(SUGGEST) {
 210     CFLAGS.all += -Wsuggest-attribute=const ;
 211     CFLAGS.all += -Wsuggest-attribute=pure ;
 212     CFLAGS.all += -Wsuggest-attribute=noreturn ;
 213   }
 214 }
 215
 216
 217 rule Undefines {
 218   UNDEFS on [ FAppendSuffix $(<) : $(SUFEXE) ] += $(UNDEFFLAG)$(>) ;
 219 }
 220
 221
 222 . fsys/Jambase.misc.fsys