|
From: Karel G. <kg...@us...> - 2002-03-23 20:17:44
|
Update of /cvsroot/micomt/mico/admin
In directory usw-pr-cvs1:/tmp/cvs-serv31844/admin
Modified Files:
mkdepend.cc mkrelease
Added Files:
mkbook
Log Message:
- merged with MICO 2.3.7
--- NEW FILE: mkbook ---
#! /bin/sh
# \
exec tclsh8.3 "$0" ${1+"$@"}
if {[llength $argv] != 2} {
puts "Usage: mkbook <infile> <outfile>"
exit
}
if {[file exists [lindex $argv 0]] == 0} {
puts "File '[lindex $argv 0]' does not exist!"
exit
}
exec pstops "4:-3L@0.7(21cm,0)+0L@0.7(21cm,14.85cm),1R@0.7(0,29.7cm)+-2R@0.7(0,14.85cm)" [lindex $argv 0] /tmp/tmp.ps 2>/tmp/tmp.txt
set output [exec cat /tmp/tmp.txt]
regexp {[ ][0-9]+[ ]} $output match
regsub -all {[ ]} $match "" match_val
set pages {}
for {set i 1} {$i <= $match_val} {incr i} {
lappend pages $i
}
while {$pages != ""} {
lappend page_list [lindex $pages 0]
set pages [lreplace $pages 0 0]
lappend page_list [lindex $pages 0]
set pages [lreplace $pages 0 0]
if {$pages != ""} {
lappend page_list [lindex $pages [expr [llength $pages] - 1]]
lappend page_list [lindex $pages [expr [llength $pages] - 2]]
set pages [lreplace $pages [expr [llength $pages] - 2] [expr [llength $pages] -1 ]]
}
}
set command ""
for {set i 0} {$i < [llength $page_list]} {incr i} {
if {$i != 0} {
set command [append command ","]
}
set command [append command [lindex $page_list $i]]
}
exec psselect -q -p$command /tmp/tmp.ps /tmp/tmp1.ps
exec pstops "4:0,1,2U(21cm,29.7cm),3U(21cm,29.7cm)" /tmp/tmp1.ps [lindex $argv 1] 2>/dev/null
exec rm -f /tmp/tmp.txt /tmp/tmp.ps /tmp/tmp1.ps
Index: mkdepend.cc
===================================================================
RCS file: /cvsroot/micomt/mico/admin/mkdepend.cc,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** mkdepend.cc 3 Nov 1999 23:20:51 -0000 1.1.1.1
--- mkdepend.cc 23 Mar 2002 20:17:09 -0000 1.2
***************
*** 25,30 ****
--- 25,35 ----
#include <stdio.h>
#include <unistd.h>
+ #ifdef HAVE_ANSI_CPLUSPLUS_HEADERS
+ #include <iostream>
+ #include <fstream>
+ #else
#include <iostream.h>
#include <fstream.h>
+ #endif
#include <string>
#include <vector>
Index: mkrelease
===================================================================
RCS file: /cvsroot/micomt/mico/admin/mkrelease,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** mkrelease 26 Oct 2001 19:59:54 -0000 1.3
--- mkrelease 23 Mar 2002 20:17:09 -0000 1.4
***************
*** 59,64 ****
> README
cd ..
! tar cf ../${RELEASEDIR}/doc-html.tar doc/README doc/doc/. doc/icons/.
! gzip -f ../${RELEASEDIR}/doc-html.tar
rm -f doc/README
)
--- 59,64 ----
> README
cd ..
! # tar cf ../${RELEASEDIR}/doc-html.tar doc/README doc/doc/. doc/icons/.
! # gzip -f ../${RELEASEDIR}/doc-html.tar
rm -f doc/README
)
|