home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 February / PCWorld_2002-02_cd.bin / Software / Vyzkuste / pdflib / pdflib-4.0.1.sit / pdflib-4.0.1 / bind / tcl / personalize.tcl < prev    next >
Encoding:
Text File  |  2001-07-04  |  1.9 KB  |  75 lines  |  [TEXT/WIsH]
  1. #!/bin/sh
  2. # $Id: personalize.tcl,v 1.8 2001/04/18 10:16:13 tm Exp $
  3. #
  4. # PDFlib/PDI client: personalization demo
  5. #
  6.  
  7. # Hide the exec to Tcl but not to the shell by appending a backslash\
  8. exec tclsh "$0" ${1+"$@"}
  9.  
  10. # The lappend line is unnecessary if PDFlib has been installed
  11. # in the Tcl package directory
  12. set auto_path [linsert $auto_path 0 .libs .]
  13.  
  14. package require pdflib 4.0
  15.  
  16. set infile    "../../doc/PDFlib-purchase-order.pdf"
  17. set col1    70
  18. set col2    335
  19.  
  20. set p [PDF_new]
  21.  
  22. if {[PDF_open_file $p "personalize.pdf"] == -1} {
  23.     puts stderr "Error: cannot open PDF file 'personalize.pdf'!"
  24.     exit
  25. }
  26.  
  27. PDF_set_info $p "Creator" "personalize.tcl"
  28. PDF_set_info $p "Author" "Thomas Merz"
  29. PDF_set_info $p "Title" "PDFlib personalization demo (Tcl)"
  30.  
  31. set form [PDF_open_pdi $p $infile "" 0]
  32. if {$form == -1} {
  33.     puts stderr "Couldn't open input file '$infile'."
  34.     exit
  35. }
  36.  
  37. set page [PDF_open_pdi_page $p $form 1 ""]
  38. if {$page == -1} {
  39.     puts stderr "Couldn't open page 1 in '$infile'."
  40.     exit
  41. }
  42.  
  43. set font [PDF_findfont $p "Helvetica-Bold" "host" 0]
  44.  
  45. # get the dimensions of the imported form
  46. set width [PDF_get_pdi_value $p "width" $form $page 0]
  47. set height [PDF_get_pdi_value $p "height" $form $page 0]
  48.  
  49. PDF_begin_page $p $width $height
  50. PDF_place_pdi_page $p $page 0 0 1 1
  51. PDF_close_pdi_page $p $page
  52.  
  53. PDF_setfont $p $font 18
  54. PDF_set_value $p "leading" 24
  55. PDF_set_text_pos $p $col1 486
  56.  
  57. PDF_show $p "Doublecheck, Inc."
  58. PDF_continue_text $p "Petra Porst"
  59. PDF_continue_text $p "500, Market St."
  60. PDF_continue_text $p "94110 San Francisco, CA"
  61. PDF_continue_text $p ""
  62. PDF_continue_text $p "USA"
  63. PDF_continue_text $p "+1/950/123-4567"
  64. PDF_continue_text $p "+1/950/123-4568"
  65. PDF_continue_text $p ""
  66. PDF_continue_text $p "petra@doublecheck.com"
  67.  
  68. PDF_set_text_pos $p $col2 152
  69. PDF_continue_text $p [clock format [clock seconds] -format "%B %d, %Y"]
  70.  
  71. PDF_end_page $p
  72. PDF_close $p
  73. PDF_close_pdi $p $form
  74. PDF_delete $p
  75.