X-Git-Url: https://git.saurik.com/apple/security.git/blobdiff_plain/5dd5f9ec28f304ca377c42fd7f711d6cf12b90e1..5c19dc3ae3bd8e40a9c028b0deddd50ff337692c:/Security/libsecurity_codesigning/antlr2/scripts/make_change_log.tcl

diff --git a/Security/libsecurity_codesigning/antlr2/scripts/make_change_log.tcl b/Security/libsecurity_codesigning/antlr2/scripts/make_change_log.tcl
deleted file mode 100755
index 50a17abc..00000000
--- a/Security/libsecurity_codesigning/antlr2/scripts/make_change_log.tcl
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/bin/sh
-# the next line restarts using tclsh \
-exec tclsh8.3 $0 $*
-
-# 
-# Sort the (C++) changes recorded in the repository by change number and
-# print them to stdout
-#
-set depots {//depot/code/org.antlr/dev/klaren.dev //depot/code/org.antlr/main/main }
-set files { /lib/cpp/... /antlr/... }
-set filespec ""
-foreach depot $depots {
-	foreach file $files {
-		append filespec "$depot$file "
-	}
-}
-
-puts stderr "Gettting changes from: $filespec"
-
-catch {set file [open "|p4 changes -l $filespec" r]}
-
-set cnt 0
-set changes {}
-set text ""
-set change_nr -1
-
-while {![eof $file]} {
-	set line [gets $file]
-
-	if { [regexp -- {^Change ([0-9]+).*$} $line dummy tmp] } {
-		# append the number to the list of found changes
-		lappend changes $tmp
-
-		if { $change_nr != -1 } {
-			# were already working on change..
-			# so we have text to store..
-			set description($change_nr) $text
-		}
-
-		# remember number...
-		set change_nr $tmp
-		# reinit text
-		set text "[string trim $line]\n"
-	} else {
-		append text "   [string trim $line]\n"
-	}
-}
-
-set description($change_nr) $text
-
-catch {close $file}
-
-set sorted_changes [lsort -unique -integer -decreasing $changes]
-
-foreach change $sorted_changes {
-	puts $description($change)
-}