#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Mytest         PACKAGE = Mytest

/**Manually added functions in XS macro language**/

void
hello()
    CODE:
        printf("Hello, World!/n");

int
is_even(input)
        int input
    CODE:
        RETVAL = (input % 2 == 0);
    OUTPUT:
        RETVAL

void
round(arg)
        double arg
    CODE:
        if (arg > 0.0) {
            arg = floor(arg + 0.5);
        } else if (arg < 0.0) {
            arg = ceil(arg - 0.5);
        } else {
            arg = 0.0 ;
        }
    OUTPUT:
        arg

#include "test.h"
#include

int
foo(int a, int b)
{
    printf("in foo(int, int)/n");
    return a + b;
}

#ifndef TEST_H
#define TEST_H

extern int foo(int , int );
#endif

use ExtUtils::MakeMaker;

$Verbose = 1;
WriteMakefile(
    NAME => 'Mytest3::testlib',
    SKIP => [qw(all static static_lib dynamic dynamic_lib)],
    clean => {FILES => 'libtestlib$(LIB_EXT)'},
);

sub MY::top_targets {
'
all :: static

pure_all :: static

static :: libtestlib$(LIB_EXT)

libtestlib$(LIB_EXT) : $(O_FILES)
        $(AR) cr libtestlib$(LIB_EXT) $(O_FILES)
        $(RANLIB) libtestlib$(LIB_EXT)
';
}

use 5.010000;
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    NAME              => 'Mytest3',
    VERSION_FROM      => 'lib/Mytest3.pm', # finds $VERSION
    PREREQ_PM         => {}, # e.g., Module::Name => 1.1
    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM  => 'lib/Mytest3.pm', # retrieve abstract from module
       AUTHOR         => 'root ') : ()),
    LIBS              => [''], # e.g., '-lm'
    DEFINE            => '', # e.g., '-DHAVE_SOMETHING'
    INC               => '-I.', # e.g., '-I. -I/usr/include/other'
        # Un-comment this if you add C files to link with later:
    # OBJECT            => '$(O_FILES)', # link all the C files too
    MYEXTLIB          => 'testlib/libtestlib$(LIB_EXT)',
);
if  (eval {require ExtUtils::Constant; 1}) {
  # If you edit these definitions to change the constants used by this module,
  # you will need to use the generated const-c.inc and const-xs.inc
  # files to replace their "fallback" counterparts before distributing your
  # changes.
  my @names = (qw());
  ExtUtils::Constant::WriteConstants(
                                     NAME         => 'Mytest3',
                                     NAMES        => /@names,
                                     DEFAULT_TYPE => 'IV',
                                     C_FILE       => 'const-c.inc',
                                     XS_FILE      => 'const-xs.inc',
                                  );

}
else {
  use File::Copy;
  use File::Spec;
  foreach my $file ('const-c.inc', 'const-xs.inc') {
    my $fallback = File::Spec->catfile('fallback', $file);
    copy ($fallback, $file) or die "Can't copy $fallback to $file: $!";
  }
}

sub MY::postamble {
'
$(MYEXTLIB) : testlib/Makefile
        cd testlib && $(MAKE) $(PASSTHRU)
'
}

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include "testlib/test.h" //using the relative directory

#include "const-c.inc"

MODULE = Mytest3                PACKAGE = Mytest3

INCLUDE: const-xs.inc

int
foo(a, b)
    int a
    int b
OUTPUT:
    RETVAL