Check-in [88598f958f]
Overview
Comment:Minor cleanup
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:88598f958fbd83ff4ed1ab33dbc8b9031fcda1e6
User & Date: rkeene on 2010-02-10 03:11:01
Other Links: manifest | tags
Context
2010-02-10
03:36
Updated to create all possible combination of parameters (still requires strict order) check-in: 37af467773 user: rkeene tags: trunk
03:11
Minor cleanup check-in: 88598f958f user: rkeene tags: trunk
03:00
Updated to give more information for ActiveState packages check-in: 69fb00861c user: rkeene tags: trunk
Changes

Modified server/teapot_index from [bf14c565da] to [f9a8f2229a].

298
299
300
301
302
303
304





305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
...
500
501
502
503
504
505
506
507
508


509
510
511
512
513
514
515
		set pkgdir $currpkginfo(pkgdir)
		set multifile $currpkginfo(multifile)
		set extfiletail $currpkginfo(extfile)

		set workdir [file join $dstdir package name $pkg ver $ver arch $arch]
		set regfile [file join $workdir file]
		set extfile [file join $workdir $extfiletail]





		catch {
			file mkdir $workdir
		}

		if {$multifile} {
			if {[file exists $extfile] && !$force} {
				continue
			}

			if {[catch {
				cd $pkgdir

				file delete -- $extfile
				exec zip -r $extfile . -x build.log
			} err]} {
				puts "Error while zipping: $err"
................................................................................

	set seen_entities [list]
	foreach pkgdata [lsort -dictionary [array names pkginfo]] {
		unset -nocomplain entity
		lappend entity entity package

		for {set endidx 0} {$endidx < [llength $entfields]} {incr endidx} {
			lappend entity [lindex $entfields $endidx]
			lappend entity [lindex $pkgdata $endidx]



			if {[lsearch -exact $seen_entities $entity] != -1} {
				continue
			}
			lappend seen_entities $entity

			create_entity_file $entity $dstdir $pkginfo_arrlist







>
>
>
>
>





<
<
<
<







 







|
|
>
>







298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314




315
316
317
318
319
320
321
...
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
		set pkgdir $currpkginfo(pkgdir)
		set multifile $currpkginfo(multifile)
		set extfiletail $currpkginfo(extfile)

		set workdir [file join $dstdir package name $pkg ver $ver arch $arch]
		set regfile [file join $workdir file]
		set extfile [file join $workdir $extfiletail]

		if {[file exists $extfile] && !$force} {
			continue
		}

		catch {
			file mkdir $workdir
		}

		if {$multifile} {




			if {[catch {
				cd $pkgdir

				file delete -- $extfile
				exec zip -r $extfile . -x build.log
			} err]} {
				puts "Error while zipping: $err"
................................................................................

	set seen_entities [list]
	foreach pkgdata [lsort -dictionary [array names pkginfo]] {
		unset -nocomplain entity
		lappend entity entity package

		for {set endidx 0} {$endidx < [llength $entfields]} {incr endidx} {
			set enttype [lindex $entfields $endidx]
			set entval [lindex $pkgdata $endidx]
			lappend entity $enttype
			lappend entity $entval

			if {[lsearch -exact $seen_entities $entity] != -1} {
				continue
			}
			lappend seen_entities $entity

			create_entity_file $entity $dstdir $pkginfo_arrlist