*          

x 00    C                                                            

      * 

     c                   clear                   error

     c     x 00          scan      c_message     length                   50

     c                   sub       1             length

     c                   if        *in50 and length>0

     c                   if        length>%size(error)

     c                   eval      error=c_message

     c                   else

     c                   eval      error=%subst(c_message:1:length)

     c                   endif

     c                   endif

      *

      * 

PDFlib                    

PDF_delete              

     c                   callp     PDF_delete(p)

      *

     c                   return

      *

     p errhandler      E

2.13 Tcl                            

2.13.1 PDFlib Tcl                      

pkgIndex.tcl                                                     

lappend auto_path /path/to/pdflib

Unix

pdflib_tcl.so                

pdflib_tcl.dylib                                            

pkgIndex.tcl   

pdflib_tcl.so                                      

/usr/lib/tcl8.3/pdflib

Windows

pkgIndex.tcl    pdflib_tcl.dll                                               

C:\Program Files\Tcl\lib\pdflib

C:\Program Files\Tcl\lib\tcl8.3\pdflib

2.13.2 Tcl        

Hello world           

package require pdflib 6.0

set p [PDF_new]

if {[PDF_begin_document $p "hello.pdf" ""] ==  1} {

    puts stderr "Error:  [PDF_get_errmsg $p]"

    exit

1. www.tcl.tk         

2.13  Tcl                  

45