Changeset 530

Show
Ignore:
Timestamp:
06/04/08 16:32:00 (3 months ago)
Author:
krobillard
Message:

mkdef is now generic.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/scripts/mkdef.t

    r529 r530  
    1 ; Build DLL DEF file for Urlan header. 
     1; Build DLL DEF file from C header. 
    22 
    3 {LIBRARY      thune.dll 
    4 DESCRIPTION  "Thune scripting language" 
    5 EXPORTS} 
    6     print 
     3args/1 dup . :header 
     4args/2 :module-prefix 
     5 
     6[{LIBRARY      your.dll 
     7DESCRIPTION  "Your description here" 
     8EXPORTS 
     9}] 
     10    prin.pack 
    711 
    8121 :idx 
    9 "urlan.h" read [ 
    10     to "ur_makeEnv" some [ 
     13header read [ 
     14    thru {extern "C"} some [ 
    1115        "#ifdef" break 
    1216      | eol 
    13       | to "ur_" :tok to '(' tok: thru eol ( 
     17      | to module-prefix :tok to '(' tok: thru eol ( 
    1418            [ 
    1519                "    " tok 
    16                 "                        @" tok length? skip 
     20                "                                @" tok length? skip 
    1721                idx dup inc :idx 
    1822                eol