use v5.10;

use Inline 'C';

say "At least we have compiled a bit of C code!";

my $output = enctypex_msname("HD2");

say "Output from enctypex_msname() call: $output\n";

=OUTPUT:
At least we have compiled a bit of C code!
Output from enctypex_msname() call: HD2.ms14.host.com
=cut

__END__
__C__
unsigned char *enctypex_msname (unsigned char *name) {
    unsigned char temp[256];
    unsigned int c;
    unsigned char* mover;

    if(!*name) return(NULL); /* empty string "" */
                             /* not sure if this will result in undef?? */

    unsigned int server_num = 0;
    for( mover = name; *mover; mover++) {
        c = tolower(*mover);
        server_num = c - (server_num * 0x63306ce7); /*some comment appropriate here!!*/
    }
    server_num %= 20;

    snprintf(temp, sizeof(temp), "%s.ms%d.host.com", name, server_num);

    int length_of_temp_string = strlen(temp)+1;
    char* ret_buf = (char*)malloc(length_of_temp_string); //could just allocate 256, so what?
    if (!ret_buf) {
        perror("malloc");
        exit(1);
    }

    memcpy(ret_buf, temp, length_of_temp_string);

    return(ret_buf);
}

##</code><code>##

use v5.10;
use Inline 'C';

say "At least we have compiled a bit of C code!";

my $output = enctypex_msname("HD2");

say "Output from enctypex_msname() call: $output\n";

=OUTPUT:
At least we have compiled a bit of C code!
Output from enctypex_msname() call: HD2.ms14.host.com
=cut

__END__
__C__
SV *enctypex_msname (unsigned char *name) {
    unsigned int c;
    unsigned char* mover;

    if(!*name) return(NULL); /* empty string "" */
                             /* not sure if this will result in undef?? */

    unsigned int server_num = 0;
    for( mover = name; *mover; mover++) {
        c = tolower(*mover);
        server_num = c - (server_num * 0x63306ce7); /*some comment appropriate here!!*/
    }
    server_num %= 20;
    
    return (newSVpvf("%s.ms%d.host.com", name, server_num));   // malloc is here...
                                                               // temp allocation here too
}