如何通过 SPVM 使用 Perl 中的 zlib(一个 C 库)-C

首页 2024-07-09 22:18:02

如何通过 SPVM 使用 Perl 中的 zlib(一个 C 库)。

查看将 zlib 绑定到 SPVM 的示例

SPVM 它提供了一种绑定 C 语言库并从 Perl 调用它们的方法。

将 C 库绑定到 Perl 时间,通常是写的 XS,但 SPVM 提供另一种方法。

MyZlib.spvm

类 MyZlib {
  本机静态方法测试:void($ouf_file:string);
}

MyZlib.c

#include“spvm_native.h”
#include<stdio.h>

#include“zlib.h”

静态 const char* FILE_NAME = "MyZlib.c";

int32_t SPVM__MyZlib__test(SPVM_ENV* env, SPVM_VALUE* 堆栈) {

  void* obj_out_file = stack[0].oval;

  如果(!obj_out_file){
    return env-&gt;die(env, stack, "$ouf_file 必须定义。", __func__, FILE_NAME, __LINE__);
  }

  const char* out_file = env-&gt;get_chars(env, stack, obj_out_file);

  char buf[]="wyznnnnopqrstuv,01234577789abcdefghijklmnopqrstuv";
  整数cnt = 0;
  gz文件 zp;

  zp = gzopen(out_file, "w9");
  如果(zp == NULL){
    return env-&gt;die(env, stack, "gzopen 失败。", "MyZlib.c", __func__, FILE_NAME, __LINE__);
  }

  for(cnt = 0;cnt 



<p>MyZlib.config<br></p>

<pre class="brush:php;toolbar:false">使用严格;
使用警告;

使用 SPVM::Builder::Config;

我的 $config = SPVM::Builder::Config-&gt;new_gnu99(file =&gt; __FILE__);

$config-&gt;add_lib('z');

$配置;

zlib.pl

使用严格;
使用警告;

使用FindBin;
使用 lib“$FindBin::Bin/lib”;

使用 SPVM 'MyZlib';

我的 $out_file = "$ENV{HOME}/tmp/output.gz";

SPVM::MyZlib-&gt;测试($out_file);

“将输出压缩文件”output.gz”。

以上就是如何通过 SPVM 使用 Perl 中的 zlib(一个 C 库)详细内容,请多关注其他相关文章!


p