/trunk/Examples/perl5/constants/example.i

# · Swig · 27 lines · 12 code · 9 blank · 6 comment · 0 complexity · cb0bb1f676ff1f88c20a3f70c470ae10 MD5 · raw file 

    

  1. /* File : example.i */
    2. 

  2. %module example
    3. 

  3. 

  4. /* A few preprocessor macros */
    5. 

  5. 

  6. #define    ICONST      42
    7. 

  7. #define    FCONST      2.1828
    8. 

  8. #define    CCONST      'x'
    9. 

  9. #define    CCONST2     '\n'
    10. 

  10. #define    SCONST      "Hello World"
    11. 

  11. #define    SCONST2     "\"Hello World\""
    12. 

  12. 

  13. /* This should work just fine */
    14. 

  14. #define    EXPR        ICONST + 3*(FCONST)
    15. 

  15. 

  16. /* This shouldn't do anything */
    17. 

  17. #define    EXTERN      extern
    18. 

  18. 

  19. /* Neither should this (BAR isn't defined) */
    20. 

  20. #define    FOO         (ICONST + BAR)
    21. 

  21. 

  22. /* The following directives also produce constants */
    23. 

  23. 

  24. %constant int iconst = 37;
    25. 

  25. %constant double fconst = 3.14;
    26.