[gs-cvs] rev 8455 - trunk/gs/toolbin
giles at ghostscript.com
giles at ghostscript.com
Thu Dec 20 16:15:54 PST 2007
Author: giles
Date: 2007-12-20 16:15:53 -0800 (Thu, 20 Dec 2007)
New Revision: 8455
Removed:
trunk/gs/toolbin/gsindent
trunk/gs/toolbin/gssubst
trunk/gs/toolbin/many2pdf.tcl
trunk/gs/toolbin/pre
Log:
Remove some old helper scripts.
They aren't used much and we no longer wish to maintain them.
Deleted: trunk/gs/toolbin/gsindent
===================================================================
--- trunk/gs/toolbin/gsindent 2007-12-21 00:11:54 UTC (rev 8454)
+++ trunk/gs/toolbin/gsindent 2007-12-21 00:15:53 UTC (rev 8455)
@@ -1,51 +0,0 @@
-#!/bin/sh
-
-# Copyright (C) 2000 Aladdin Enterprises. All rights reserved.
-#
-# This software is provided AS-IS with no warranty, either express or
-# implied.
-#
-# This software is distributed under license and may not be copied,
-# modified or distributed except as expressly authorized under the terms
-# of the license contained in the file LICENSE in this distribution.
-#
-# For more information about licensing, please refer to
-# http://www.ghostscript.com/licensing/. For information on
-# commercial licensing, go to http://www.artifex.com/licensing/ or
-# contact Artifex Software, Inc., 101 Lucas Valley Road #110,
-# San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-
-# $Id$
-
-# This script formats C source code per the Ghostscript C style guide.
-# The perl invocations work around a bug in GNU indent.
-
-if [ $# -ne 0 ]; then
- for f in $*
- do
- $0 < $f > /tmp/$$
- cp -p $f $f.bak
- if ( test ! -e $f~ ) then cp -p $f $f~; fi
- mv /tmp/$$ $f
- done
- exit
-fi
-exec \
-perl -pe 's{(#.*/\*)(\*.*)}{$1&$2}' | \
-indent \
---blank-lines-after-declarations \
---no-blank-lines-after-procedures \
---leave-optional-blank-lines \
---braces-on-if-line \
---indent-level4 \
---case-indentation4 \
---no-space-after-function-call-names \
---dont-star-comments \
---declaration-indentation0 \
---procnames-start-lines \
---continue-at-parentheses \
---cuddle-else \
---no-space-after-casts \
---leave-preprocessor-space \
-- | \
-perl -pe 's{(#.*/\*)&(\*.*)}{$1$2}'
Deleted: trunk/gs/toolbin/gssubst
===================================================================
--- trunk/gs/toolbin/gssubst 2007-12-21 00:11:54 UTC (rev 8454)
+++ trunk/gs/toolbin/gssubst 2007-12-21 00:15:53 UTC (rev 8455)
@@ -1,43 +0,0 @@
-#!/usr/bin/tclsh
-
-# Copyright (C) 1996, 2000 Aladdin Enterprises. All rights reserved.
-#
-# This software is provided AS-IS with no warranty, either express or
-# implied.
-#
-# This software is distributed under license and may not be copied,
-# modified or distributed except as expressly authorized under the terms
-# of the license contained in the file LICENSE in this distribution.
-#
-# For more information about licensing, please refer to
-# http://www.ghostscript.com/licensing/. For information on
-# commercial licensing, go to http://www.artifex.com/licensing/ or
-# contact Artifex Software, Inc., 101 Lucas Valley Road #110,
-# San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-
-# $Id$
-
-# Replace one word by another in a set of files. This is just a front end
-# to a simple Perl invocation.
-
-if {$argc < 2} {
- puts stderr "Usage: $argv0 (-t type | -u word | fromword toword) file ..."
- puts stderr " -t word = word word_t"
- puts stderr " -u word = word WORD"
- exit 1
-}
-set a0 [lindex $argv 0]
-set a1 [lindex $argv 1]
-switch -- $a0 {
- -t {set from $a1; set to ${from}_t}
- -u {set from $a1; set to [string toupper ${from}]}
- default {set from $a0; set to $a1}
-}
-puts "$from => $to"
-flush stdout
-set tmp /tmp/[pid]
-foreach f [lreplace $argv 0 1] {
- if {![file exists $f~]} {exec cp -p $f $f~}
- exec perl -pe "s\{\\b${from}\\b\}\{${to}\}g" < $f > $tmp
- exec mv $tmp $f
-}
Deleted: trunk/gs/toolbin/many2pdf.tcl
===================================================================
--- trunk/gs/toolbin/many2pdf.tcl 2007-12-21 00:11:54 UTC (rev 8454)
+++ trunk/gs/toolbin/many2pdf.tcl 2007-12-21 00:15:53 UTC (rev 8455)
@@ -1,94 +0,0 @@
-#!/usr/bin/tclsh
-
-# Copyright (C) 2000 Aladdin Enterprises. All rights reserved.
-#
-# This software is provided AS-IS with no warranty, either express or
-# implied.
-#
-# This software is distributed under license and may not be copied,
-# modified or distributed except as expressly authorized under the terms
-# of the license contained in the file LICENSE in this distribution.
-#
-# For more information about licensing, please refer to
-# http://www.ghostscript.com/licensing/. For information on
-# commercial licensing, go to http://www.artifex.com/licensing/ or
-# contact Artifex Software, Inc., 101 Lucas Valley Road #110,
-# San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-
-# $Id$
-
-# Batch-convert a list of files to PDF. If restarted, only convert files
-# that have not been converted yet. Detect excessive running times and
-# conversion failures.
-
-# Define the file containing the list of input file names.
-set LIST_FILE_NAME /gs/show.lst
-# Define the directory where the output will be stored.
-set PDF_DIR /gs/tmp-pdf
-
-proc maxwaitfor {filesize} {
- return [expr $filesize / 5000 + 30]
-}
-
-set lst [open $LIST_FILE_NAME]
-set pid [pid]
-set skip 0
-while {[gets $lst ps] > 0} {
- set pdf $PDF_DIR/[file rootname [file tail $ps]].pdf
- if {[file exists $pdf] || [file exists ${pdf}.bad]} {
- puts -nonewline "."
- set skip 1
- } else {
- if {$skip} {
- puts ""
- set skip 0
- }
- puts "$ps --> $pdf"
- flush stdout
- catch {exec rm -f $pdf ${pdf}.bad ${pdf}.tmp}
- if {![file exists $ps]} {
- puts "****** $ps FAILED, DOES NOT EXIST ******"
- continue
- }
- set script /tmp/${pid}.tcl
- set status /tmp/${pid}.out
- set tmp [open $script w]
- puts $tmp "\
- set tmp \[open $status w\]
- puts \$tmp \[catch \[list exec gs -dCompatibilityLevel=1.3 -dCompressPages=false -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=${pdf}.tmp -c .setpdfwrite -f $ps >@ stdout 2>@ stderr\]\]
- close \$tmp"
- close $tmp
- set gspid [lindex [exec tclsh $script >@ stdout 2>@ stderr &] 0]
- set wait 0
- set maxwait [maxwaitfor [file size $ps]]
- while {[file exists /proc/$gspid] && $wait < $maxwait} {
- exec sleep 1
- incr wait
- }
- if {[file exists /proc/$gspid]} {
- # Program ran too long.
- catch {exec sh -c "kill -KILL $gspid"}
- puts "****** $ps FAILED, RAN TOO LONG ******"
- catch {exec mv ${pdf}.tmp ${pdf}.bad}
- } elseif {[file size $status] < 2} {
- # Exit status not recorded (not supposed to be possible).
- puts "****** $ps FAILED, STATUS NOT WRITTEN ******"
- catch {exec mv ${pdf}.tmp ${pdf}.bad}
- } else {
- set tmp [open $status]
- set result [gets $tmp]
- close $tmp
- if {$result != 0} {
- puts "****** $ps FAILED, RESULT = $result ******"
- catch {exec mv ${pdf}.tmp ${pdf}.bad}
- } else {
- exec mv ${pdf}.tmp $pdf
- exec ls -l $ps $pdf
- }
- }
- flush stderr
- }
- flush stdout
-}
-close $lst
-puts Done.
Deleted: trunk/gs/toolbin/pre
===================================================================
--- trunk/gs/toolbin/pre 2007-12-21 00:11:54 UTC (rev 8454)
+++ trunk/gs/toolbin/pre 2007-12-21 00:15:53 UTC (rev 8455)
@@ -1,3 +0,0 @@
-#!/bin/sh
-# $Id$
-exec $0.tcl "$@"
More information about the gs-cvs
mailing list