Ignore:
Timestamp:
Sep 17, 2007, 8:17:38 AM (13 years ago)
Author:
jmpp@…
Message:

Whitespace changes only.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/portmgr/PortIndex2MySQL.tcl

    r28380 r29193  
    11#!/usr/bin/env tclsh
     2# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:et:sw=4:ts=4:sts=4
    23#
    34# PortIndex2MySQL.tcl
     
    6869# Load macports1.0 so that we can use some of its procs and the portinfo array.
    6970catch {source \
    70            [file join "@TCL_PACKAGE_DIR@" macports1.0 macports_fastload.tcl]}
     71    [file join "@TCL_PACKAGE_DIR@" macports1.0 macports_fastload.tcl]}
    7172package require macports
    7273
     
    116117# SQL string escaping.
    117118proc sql_escape {str} {
    118         regsub -all -- {'} $str {\\'} str
    119         regsub -all -- {"} $str {\\"} str
    120         regsub -all -- {\n} $str {\\n} str
    121         return $str
     119    regsub -all -- {'} $str {\\'} str
     120    regsub -all -- {"} $str {\\"} str
     121    regsub -all -- {\n} $str {\\n} str
     122    return $str
    122123}
    123124
     
    149150# Load every port in the index through a search matching everything.
    150151if {[catch {set ports [mportsearch ".+"]} errstr]} {
    151         ui_error "port search failed: $errstr"
    152         exit 1
     152    ui_error "port search failed: $errstr"
     153    exit 1
    153154}
    154155
     
    157158foreach {name array} $ports {
    158159
    159         array unset portinfo
    160         array set portinfo $array
    161 
    162         set portname [sql_escape $portinfo(name)]
    163         if {[info exists portinfo(version)]} {
    164                 set portversion [sql_escape $portinfo(version)]
    165         } else {
    166                 set portversion ""
    167         }
    168         set portdir [sql_escape $portinfo(portdir)]
    169         if {[info exists portinfo(description)]} {
    170                 set description [sql_escape $portinfo(description)]
    171         } else {
    172                 set description ""
    173         }
    174         if {[info exists portinfo(categories)]} {
    175                 set categories $portinfo(categories)
    176         } else {
    177                 set categories ""
    178         }
    179         if {[info exists portinfo(maintainers)]} {
    180                 set maintainers $portinfo(maintainers)
    181         } else {
    182                 set maintainers ""
    183         }
    184         if {[info exists portinfo(variants)]} {
    185                 set variants $portinfo(variants)
    186         } else {
    187                 set variants ""
    188         }
    189         if {[info exists portinfo(depends_build)]} {
    190                 set depends_build $portinfo(depends_build)
    191         } else {
    192                 set depends_build ""
    193         }
    194         if {[info exists portinfo(depends_lib)]} {
    195                 set depends_lib $portinfo(depends_lib)
    196         } else {
    197                 set depends_lib ""
    198         }
    199         if {[info exists portinfo(depends_run)]} {
    200                 set depends_run $portinfo(depends_run)
    201         } else {
    202                 set depends_run ""
    203         }
    204         if {[info exists portinfo(platforms)]} {
    205                 set platforms $portinfo(platforms)
    206         } else {
    207                 set platforms ""
    208         }
    209 
    210         puts $sqlfile_fd "INSERT INTO portfiles VALUES ('$portname', '$portdir', '$portversion', '$description');"
    211 
    212         set primary 1
    213         foreach category $categories {
    214             set category [sql_escape $category]
    215             puts $sqlfile_fd "INSERT INTO categories VALUES ('$portname', '$category', $primary);"
    216             incr primary
    217         }
    218        
    219         set primary 1
    220         foreach maintainer $maintainers {
    221             set maintainer [sql_escape $maintainer]
    222             puts $sqlfile_fd "INSERT INTO maintainers VALUES ('$portname', '$maintainer', $primary);"
    223             incr primary
    224         }
    225 
    226         foreach build_dep $depends_build {
    227             set build_dep [sql_escape $build_dep]
    228             puts $sqlfile_fd "INSERT INTO dependencies VALUES ('$portname', '$build_dep');"
    229         }
    230 
    231         foreach lib $depends_lib {
    232             set lib [sql_escape $lib]
    233             puts $sqlfile_fd "INSERT INTO dependencies VALUES ('$portname', '$lib');"
    234         }
    235 
    236         foreach run_dep $depends_run {
    237             set run_dep [sql_escape $run_dep]
    238             puts $sqlfile_fd "INSERT INTO dependencies VALUES ('$portname', '$run_dep');"
    239         }
    240 
    241         foreach variant $variants {
    242             set variant [sql_escape $variant]
    243             puts $sqlfile_fd "INSERT INTO variants VALUES ('$portname', '$variant');"
    244         }
    245 
    246         foreach platform $platforms {
    247             set platform [sql_escape $platform]
    248             puts $sqlfile_fd "INSERT INTO platforms VALUES ('$portname', '$platform');"
    249         }
     160    array unset portinfo
     161    array set portinfo $array
     162
     163    set portname [sql_escape $portinfo(name)]
     164    if {[info exists portinfo(version)]} {
     165        set portversion [sql_escape $portinfo(version)]
     166    } else {
     167        set portversion ""
     168    }
     169    set portdir [sql_escape $portinfo(portdir)]
     170    if {[info exists portinfo(description)]} {
     171        set description [sql_escape $portinfo(description)]
     172    } else {
     173        set description ""
     174    }
     175    if {[info exists portinfo(categories)]} {
     176        set categories $portinfo(categories)
     177    } else {
     178        set categories ""
     179    }
     180    if {[info exists portinfo(maintainers)]} {
     181        set maintainers $portinfo(maintainers)
     182    } else {
     183        set maintainers ""
     184    }
     185    if {[info exists portinfo(variants)]} {
     186        set variants $portinfo(variants)
     187    } else {
     188        set variants ""
     189    }
     190    if {[info exists portinfo(depends_build)]} {
     191        set depends_build $portinfo(depends_build)
     192    } else {
     193        set depends_build ""
     194    }
     195    if {[info exists portinfo(depends_lib)]} {
     196        set depends_lib $portinfo(depends_lib)
     197    } else {
     198        set depends_lib ""
     199    }
     200    if {[info exists portinfo(depends_run)]} {
     201        set depends_run $portinfo(depends_run)
     202    } else {
     203        set depends_run ""
     204    }
     205    if {[info exists portinfo(platforms)]} {
     206        set platforms $portinfo(platforms)
     207    } else {
     208        set platforms ""
     209    }
     210
     211    puts $sqlfile_fd "INSERT INTO portfiles VALUES ('$portname', '$portdir', '$portversion', '$description');"
     212
     213    set primary 1
     214    foreach category $categories {
     215        set category [sql_escape $category]
     216        puts $sqlfile_fd "INSERT INTO categories VALUES ('$portname', '$category', $primary);"
     217        incr primary
     218    }
     219   
     220    set primary 1
     221    foreach maintainer $maintainers {
     222        set maintainer [sql_escape $maintainer]
     223        puts $sqlfile_fd "INSERT INTO maintainers VALUES ('$portname', '$maintainer', $primary);"
     224        incr primary
     225    }
     226
     227    foreach build_dep $depends_build {
     228        set build_dep [sql_escape $build_dep]
     229        puts $sqlfile_fd "INSERT INTO dependencies VALUES ('$portname', '$build_dep');"
     230    }
     231
     232    foreach lib $depends_lib {
     233        set lib [sql_escape $lib]
     234        puts $sqlfile_fd "INSERT INTO dependencies VALUES ('$portname', '$lib');"
     235    }
     236
     237    foreach run_dep $depends_run {
     238        set run_dep [sql_escape $run_dep]
     239        puts $sqlfile_fd "INSERT INTO dependencies VALUES ('$portname', '$run_dep');"
     240    }
     241
     242    foreach variant $variants {
     243        set variant [sql_escape $variant]
     244        puts $sqlfile_fd "INSERT INTO variants VALUES ('$portname', '$variant');"
     245    }
     246
     247    foreach platform $platforms {
     248        set platform [sql_escape $platform]
     249        puts $sqlfile_fd "INSERT INTO platforms VALUES ('$portname', '$platform');"
     250    }
    250251
    251252}
Note: See TracChangeset for help on using the changeset viewer.