Changeset 6865 in project


Ignore:
Timestamp:
11/16/07 13:32:11 (13 years ago)
Author:
felix winkelmann
Message:

removed deprecated features

Files:
4 edited

Legend:

Unmodified
Added
Removed
  • pcap/pcap.html

    r1 r6865  
    2424<h3>Version:</h3>
    2525<ul>
     26<li>0.7
     27renamed deprecated <code>foreign-callback-lambda</code>s
    2628<li>0.6
    2729Adapted to new setup scheme
  • pcap/pcap.scm

    r1 r6865  
    9292
    9393(define %pkthdr-unpack
    94   (foreign-callback-lambda*
     94  (foreign-safe-lambda*
    9595   scheme-object
    9696   (((c-pointer (struct "pcap_pkthdr")) h))
     
    104104
    105105(define pcap-loop
    106   (foreign-callback-lambda*
     106  (foreign-safe-lambda*
    107107     int
    108108     (((c-pointer (struct "pcap")) p)
     
    121121))
    122122(define pcap-loop/dump
    123   (foreign-callback-lambda*
     123  (foreign-safe-lambda*
    124124     int
    125125     (((c-pointer (struct "pcap")) p) (int cnt))
     
    130130
    131131(define pcap-dispatch
    132   (foreign-callback-lambda*
     132  (foreign-safe-lambda*
    133133     int
    134134     (((c-pointer (struct "pcap")) p)
     
    147147))
    148148(define pcap-dispatch/dump
    149   (foreign-callback-lambda*
     149  (foreign-safe-lambda*
    150150     int
    151151     (((c-pointer (struct "pcap")) p) (int cnt))
     
    210210    (list buf sec usec)))
    211211(define %pcap-next
    212     (foreign-callback-lambda*
     212    (foreign-safe-lambda*
    213213     scheme-object (((c-pointer (struct "pcap")) p))
    214214#<<EOF
  • tcc/tcc.html

    r1 r6865  
    1616<h3>Version:</h3>
    1717<ul>
     18<li>1.3
     19renamed deprecated use of <code>foreign-callback-lambda</code>.
    1820<li>1.2
    1921<code>tcc:get-symbol</code> was fixed to compile with newest tcc version [Thanks to Damian M. Gryski]
  • tcc/tcc.scm

    r1 r6865  
    5151
    5252(define tcc:compile-string
    53   (let ([compile (foreign-callback-lambda int "tcc_compile_string" tcc-state* c-string)])
     53  (let ([compile (foreign-safe-lambda int "tcc_compile_string" tcc-state* c-string)])
    5454    (lambda (s str)
    5555      (check 'tcc:compile-string (cut compile s str) "errors during compilation") ) ) )
     
    7979
    8080(define tcc:run
    81   (foreign-callback-lambda* int ([tcc-state* state] [scheme-object args])
     81  (foreign-safe-lambda* int ([tcc-state* state] [scheme-object args])
    8282    "char **argv, *ptr;"
    8383    "C_word arg;"
Note: See TracChangeset for help on using the changeset viewer.