comment on

Heh, whats going on?

#!/usr/bin/perl --
use strict;
use warnings;
use Config;

use Inline C => Config =>
  USING => 'ParseRegExp',
  CCFLAGSEX => q["-DMY_FORMAT=\"%.17e\""],
  BUILD_NOISY => 1,
  CLEAN_AFTER_BUILD => 0,
;

use Inline C =><<'EOC';

void* foo(void) {
    printf("***%s***\n", MY_FORMAT);
    printf(MY_FORMAT, sqrt(2.0));
    printf("\n%.17e\n", sqrt(2.0));
}

EOC

foo();

__END__
$ perl inline-eumm-define-sprintf-11104628.pl
validate Stage
Starting Build Preprocess Stage
get_maps Stage
Finished Build Preprocess Stage

Starting Build Parse Stage
Finished Build Parse Stage

Starting Build Glue 1 Stage
Finished Build Glue 1 Stage

Starting Build Glue 2 Stage
Finished Build Glue 2 Stage

Starting Build Glue 3 Stage
Finished Build Glue 3 Stage

Starting Build Compile Stage
  Starting "perl Makefile.PL" Stage
Generating a dmake-style Makefile
Writing Makefile for inline_eumm_define_sprintf_11104628_pl_5316
Writing MYMETA.yml and MYMETA.json
  Finished "perl Makefile.PL" Stage

  Starting "make" Stage
Running Mkbootstrap for inline_eumm_define_sprintf_11104628_pl_5316 ()
"D:\perl\bin\perl.exe" -MExtUtils::Command -e chmod -- 644 "inline_eum
+m_define_sprintf_11104628_pl_5316.bs"
"D:\perl\bin\perl.exe" -MExtUtils::Command::MM -e cp_nonempty -- inlin
+e_eumm_define_sprintf_11104628_pl_5316.
bs blib\arch\auto\inline_eumm_define_sprintf_11104628_pl_5316\inline_e
+umm_define_sprintf_11104628_pl_5316.bs 644
"D:\perl\bin\perl.exe" "D:\perl\site\lib\ExtUtils\xsubpp"  -typemap "D
+:\perl\lib\ExtUti
ls\typemap"  inline_eumm_define_sprintf_11104628_pl_5316.xs > inline_e
+umm_define_sprintf_11104628_pl_5316.xsc
"D:\perl\bin\perl.exe" -MExtUtils::Command -e mv -- inline_eumm_define
+_sprintf_11104628_pl_5316.xsc inline_eu
mm_define_sprintf_11104628_pl_5316.c
gcc -c           -s -O2 -DWIN32  -DPERL_RELOCATABLE_INCPUSH -DPERL_TEX
+TMODE_SCRIPTS -DUSE_SITECUSTOMIZE -
DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -mms-b
+itfields -D_USE_32BIT_TIME_T "-DMY_FORMAT=\"%.17e\
"" -s -O2         -DVERSION=\"0.00\"    -DXS_VERSION=\"0.00\"  "-ID:\p
+erl\lib\CORE"   inline_eumm_define_spri
ntf_11104628_pl_5316.c
"D:\perl\bin\perl.exe" -MExtUtils::Mksymlists \
     -e "Mksymlists('NAME'=>\"inline_eumm_define_sprintf_11104628_pl_5
+316\", 'DLBASE' => 'inline_eumm_define_sprintf_111
04628_pl_5316', 'DL_FUNCS' => {  }, 'FUNCLIST' => [], 'IMPORTS' => {  
+}, 'DL_VARS' => []);"
g++ inline_eumm_define_sprintf_11104628_pl_5316.def -o blib\arch\auto\
+inline_eumm_define_sprintf_11104628_pl_5316\inline
_eumm_define_sprintf_11104628_pl_5316.dll -mdll -D_USE_32BIT_TIME_T -s
+ -L"D:\perl\lib\CORE" -L"D:\perl\mingw\mingw32\i686-w64-mingw32\lib" 
+inline_eumm_define_sprintf_11104628_pl_5316.o   "D:\perl\lib\CORE\li
bperl516.a" -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg
+32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetap
i32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomc
+tl32 -Wl,--enable-auto-image-base
"D:\perl\bin\perl.exe" -MExtUtils::Command -e chmod -- 755 blib\arch\a
+uto\inline_eumm_define_sprintf_11104628
_pl_5316\inline_eumm_define_sprintf_11104628_pl_5316.dll
  Finished "make" Stage

  Starting "make install" Stage
"D:\perl\bin\perl.exe" -MExtUtils::Command::MM -e cp_nonempty -- inlin
+e_eumm_define_sprintf_11104628_pl_5316.
bs blib\arch\auto\inline_eumm_define_sprintf_11104628_pl_5316\inline_e
+umm_define_sprintf_11104628_pl_5316.bs 644
Files found in blib\arch: installing files in blib\lib into architectu
+re dependent library tree
Installing _Inline\lib\auto\inline_eumm_define_sprintf_11104628_pl_531
+6\inline_eumm_define_sprintf_11104628_
pl_5316.dll
  Finished "make install" Stage

  Starting Cleaning Up Stage
  Finished Cleaning Up Stage

Finished Build Compile Stage

***%.17e***
1.41421356237309510e+000
1.41421356237309510e+000
[download]

In reply to Re^5: Defining an XS symbol in the Makefile.PL (quoting) by Anonymous Monk
in thread Defining an XS symbol in the Makefile.PL by syphilis

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Keep It Simple, Stupid
	PerlMonks