Ticket #14296: Portfile-guile16.diff

File Portfile-guile16.diff, 1.9 KB (added by mp@…, 17 years ago)
  • Portfile

     
    44
    55name            guile16
    66version         1.6.8
    7 revision        2
     7revision        3
    88categories      lang
    99maintainers     nomaintainer
    1010platforms       darwin
     
    9393                  reinplace "s|${prefix}/bin/guile|${prefix}/bin/guile16|g" ${destroot}${prefix}/bin/guile16-config
    9494                  reinplace "s|libguile\\.|libguile16\\.|g" ${destroot}${prefix}/lib/libguile16.la
    9595                  reinplace "s|libguile.la|libguile16.la|g" ${destroot}${prefix}/lib/libguilereadline-v-12.la
    96 
    97                   #
    98                   # Code to process the header files and modify their contents to point to guile16 files
    99                   #
    100                   proc process_dir { src_dir } {
    101                      foreach src_file [ glob [ file join $src_dir * ] ] {
    102                         if { [ file isdirectory $src_file ] } {
    103                            process_dir $src_file
    104                         } else {
    105                            process_file $src_file
    106                         }
    107                      }
     96               
     97                  fs-traverse src_file  ${destroot}${prefix}/include/ {
     98                         if { [ file isfile ${src_file} ] } {
     99                                reinplace "s|\\<guile\\/|\\<guile16\\/|g"   $src_file
     100                                reinplace "s|libguile\\.h|libguile16\\.h|g" $src_file
     101                                reinplace "s|libguile/|libguile16/|g"       $src_file
     102                         }
    108103                  }
    109 
    110                   proc process_file { src_file } {
    111                      reinplace "s|\\<guile\\/|\<guile16\\/|g"    $src_file
    112                      reinplace "s|libguile\\.h|libguile16\\.h|g" $src_file
    113                      reinplace "s|libguile/|libguile16/|g"       $src_file
    114                   }
    115 
    116                   proc process_path { src_path } {
    117                      if { [ file isdirectory $src_path ] } {
    118                         process_dir $src_path
    119                      } else {
    120                         process_file $src_path
    121                      }
    122                   }
    123 
    124                   process_path ${destroot}${prefix}/include/guile16/
    125                   process_path ${destroot}${prefix}/include/libguile16/
    126                   process_path ${destroot}${prefix}/include/libguile16.h
    127                   process_path ${destroot}${prefix}/include/guile-readline/readline.h
    128104        }