[MICO/mt-commit] CVS: mico/admin mkbook,NONE,1.1 mkdepend.cc,1.1.1.1,1.2 mkrelease,1.3,1.4

[Karel G. <kg...@us...>]

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
  )