/tags/ttn-post-libtool-1-4-3-upgrade/SWIG/Examples/perl5/constants2/example.pl

# · Perl · 16 lines · 10 code · 5 blank · 1 comment · 0 complexity · 779673067941a96381eddd104d04fc4b MD5 · raw file 

    

  1. # file: example.pl
    2. 

  2. 

  3. use example;
    4. 

  4. 

  5. print "ICONST  = ", example::ICONST, " (should be 42)\n";
    6. 

  6. print "FCONST  = ", example::FCONST, " (should be 2.1828)\n";
    7. 

  7. print "CCONST  = ", example::CCONST, " (should be 'x')\n";
    8. 

  8. print "CCONST2 = ", example::CCONST2," (this should be on a new line)\n";
    9. 

  9. print "SCONST  = ", example::SCONST, " (should be 'Hello World')\n";
    10. 

  10. print "SCONST2 = ", example::SCONST2, " (should be '\"Hello World\"')\n";
    11. 

  11. print "EXPR    = ", example::EXPR,   " (should be 48.5484)\n";
    12. 

  12. print "iconst  = ", example::iconst, " (should be 37)\n";
    13. 

  13. print "fconst  = ", example::fconst, " (should be 3.14)\n";
    14.