RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/package1.0/portpkg.tcl,v
retrieving revision 1.2
diff -b -u -r1.2 portpkg.tcl
|
|
|
115 | 115 | close $infofd |
116 | 116 | } |
117 | 117 | |
| 118 | proc xml_escape {s} { |
| 119 | regsub -all {&} $s {\&} s |
| 120 | regsub -all {<} $s {\<} s |
| 121 | regsub -all {>} $s {\>} s |
| 122 | return $s |
| 123 | } |
| 124 | |
118 | 125 | proc write_info_plist {infofile portname portversion portrevision} { |
| 126 | set infofile [xml_escape $infofile] |
| 127 | set portname [xml_escape $portname] |
| 128 | set portversion [xml_escape $portversion] |
| 129 | set portrevision [xml_escape $portrevision] |
119 | 130 | |
120 | 131 | set infofd [open ${infofile} w+] |
121 | 132 | puts $infofd {<?xml version="1.0" encoding="UTF-8"?> |
… |
… |
|
161 | 172 | } |
162 | 173 | |
163 | 174 | proc write_description_plist {infofile portname portversion description} { |
| 175 | set infofile [xml_escape $infofile] |
| 176 | set portname [xml_escape $portname] |
| 177 | set portversion [xml_escape $portversion] |
| 178 | set description [xml_escape $description] |
| 179 | |
164 | 180 | set infofd [open ${infofile} w+] |
165 | 181 | puts $infofd {<?xml version="1.0" encoding="UTF-8"?> |
166 | 182 | <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> |
… |
… |
|
186 | 202 | set long_description $description |
187 | 203 | } |
188 | 204 | |
| 205 | set portname [xml_escape $portname] |
| 206 | set portversion [xml_escape $portversion] |
| 207 | set long_description [xml_escape $long_description] |
| 208 | set description [xml_escape $description] |
| 209 | set homepage [xml_escape $homepage] |
| 210 | |
189 | 211 | puts $fd " |
190 | 212 | <html lang=\"en\"> |
191 | 213 | <head> |
RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/package1.0/portmpkg.tcl,v
retrieving revision 1.5
diff -b -u -r1.5 portmpkg.tcl
|
|
|
145 | 145 | return 0 |
146 | 146 | } |
147 | 147 | |
| 148 | proc xml_escape {s} { |
| 149 | regsub -all {&} $s {\&} s |
| 150 | regsub -all {<} $s {\<} s |
| 151 | regsub -all {>} $s {\>} s |
| 152 | return $s |
| 153 | } |
| 154 | |
148 | 155 | proc mpkg_write_info_plist {infofile portname portversion portrevision destination dependencies} { |
149 | 156 | set vers [split $portversion "."] |
150 | 157 | |
… |
… |
|
154 | 161 | |
155 | 162 | set depxml "" |
156 | 163 | foreach dep $dependencies { |
| 164 | set dep [xml_escape $dep] |
157 | 165 | append depxml "<dict> |
158 | 166 | <key>IFPkgFlagPackageLocation</key> |
159 | 167 | <string>${dep}</string> |
… |
… |
|
163 | 171 | " |
164 | 172 | } |
165 | 173 | |
| 174 | set portname [xml_escape $portname] |
| 175 | set portversion [xml_escape $portversion] |
| 176 | set portrevision [xml_escape $portrevision] |
166 | 177 | set infofd [open ${infofile} w+] |
167 | 178 | puts $infofd {<?xml version="1.0" encoding="UTF-8"?> |
168 | 179 | <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> |