euc-jpNAME

perlclib - 標準 C ライブラリ関数の内部的な代用品

DESCRIPTION

Perl porters が注意するべき事のひとつは、perl は内部で C 標準ライブラリを あまり使わないようにしていると言うことです; 例えば、ctype.h 関数は ほとんど使われていないことをに気付くでしょう。 これは、どのような操作を使用としているかを正確に知るために、Perl は 標準ライブラリ関数を再実装したり抽象化したりしようとするからです。

これは C ライブラリになれていて Perl 方式で何かをしたい人々のための リファレンスカードです; より普通の C 関数の代わりに使うべき関数を示します。

規約

以下のテーブルで:

t

は型です。

p

はポインタです。

n

は数値です。

s

は文字列です。

sv, av, hv などはそれぞれ対応する型の変数です。

ファイル操作

stdio.h 関数の代わりに、Perl 抽象層を使うべきです。 FILE* 型の代わりに、PerlIO* 型を扱う必要があります。 新しい PerlIO 層の I/O 抽象化では FILE* 型は利用できないかも知れないことを 忘れないでください。 以下の関数に関するさらなる詳細については perlapio 文書を 参照してください:

    Instead Of:                 Use:

    stdin                       PerlIO_stdin()
    stdout                      PerlIO_stdout()
    stderr                      PerlIO_stderr()

    fopen(fn, mode)             PerlIO_open(fn, mode)
    freopen(fn, mode, stream)   PerlIO_reopen(fn, mode, perlio) (Deprecated)
    fflush(stream)              PerlIO_flush(perlio)
    fclose(stream)              PerlIO_close(perlio)

ファイル入力と出力

    Instead Of:                 Use:

    fprintf(stream, fmt, ...)   PerlIO_printf(perlio, fmt, ...)

    [f]getc(stream)             PerlIO_getc(perlio)
    [f]putc(stream, n)          PerlIO_putc(perlio, n)
    ungetc(n, stream)           PerlIO_ungetc(perlio, n)

freadfwrite の PerlIO の代用品は C ライブラリの対応物とは 少し違うことに注意してください:

    fread(p, size, n, stream)   PerlIO_read(perlio, buf, numbytes)
    fwrite(p, size, n, stream)  PerlIO_write(perlio, buf, numbytes)

    fputs(s, stream)            PerlIO_puts(perlio, s)

fgets の等価物はありません; 代わりに sv_gets を使うべきです:

    fgets(s, n, stream)         sv_gets(sv, perlio, append)

ファイル位置

    Instead Of:                 Use:

    feof(stream)                PerlIO_eof(perlio)
    fseek(stream, n, whence)    PerlIO_seek(perlio, n, whence)
    rewind(stream)              PerlIO_rewind(perlio)

    fgetpos(stream, p)          PerlIO_getpos(perlio, sv)
    fsetpos(stream, p)          PerlIO_setpos(perlio, sv)

    ferror(stream)              PerlIO_error(perlio)
    clearerr(stream)            PerlIO_clearerr(perlio)

メモリ管理と文字列操作

    Instead Of:                         Use:

    t* p = malloc(n)                    Newx(id, p, n, t)
    t* p = calloc(n, s)                 Newxz(id, p, n, t)
    p = realloc(p, n)                   Renew(p, n, t)
    memcpy(dst, src, n)                 Copy(src, dst, n, t)
    memmove(dst, src, n)                Move(src, dst, n, t)
    memcpy(dst, src, sizeof(t))         StructCopy(src, dst, t)
    memset(dst, 0, n * sizeof(t))       Zero(dst, n, t)
    memzero(dst, 0)                     Zero(dst, n, char)
    free(p)                             Safefree(p)

    strdup(p)                   savepv(p)
    strndup(p, n)               savepvn(p, n) (Hey, strndup doesn't exist!)

    strstr(big, little)         instr(big, little)
    strcmp(s1, s2)              strLE(s1, s2) / strEQ(s1, s2) / strGT(s1,s2)
    strncmp(s1, s2, n)          strnNE(s1, s2, n) / strnEQ(s1, s2, n)

Copy および Move の引数の順番は memcpy および memmove と異なる ことに注意してください。

しかし、大抵の場合、生の char * 文字列ではなく内部的に SV を 扱いたいでしょう:

    strlen(s)                   sv_len(sv)
    strcpy(dt, src)             sv_setpv(sv, s)
    strncpy(dt, src, n)         sv_setpvn(sv, s, n)
    strcat(dt, src)             sv_catpv(sv, s)
    strncat(dt, src)            sv_catpvn(sv, s)
    sprintf(s, fmt, ...)        sv_setpvf(sv, fmt, ...)

連結とフォーマッティングを結合した sv_catpvf および sv_vcatpvfn が あることにも注意してください。

時々、Newxz() を使って割り当てられたヒープをゼロにする代わりにデータに 「毒入れ」したいかもしれません。 これは、ポインタ(および浮動小数点数)として不正になり、できれば整数としても 十分に驚くべきビットパターンを書き込んで、考えなしにデータを使おうとする コードが早めに壊れるようにすることです。 毒入れは Zero() と似たような引数を持つ Poison() マクロで行えます:

    PoisonWith(dst, n, t, b)    scribble memory with byte b
    PoisonNew(dst, n, t)        equal to PoisonWith(dst, n, t, 0xAB)
    PoisonFree(dst, n, t)       equal to PoisonWith(dst, n, t, 0xEF)
    Poison(dst, n, t)           equal to PoisonFree(dst, n, t)

文字クラステスト

Perl が実装している文字クラステストには二つの種類があります: ひとつは char を扱い、従って Unicode は認識 しません (従ってこれを使うべきと 分かっている 場合でなければ非推奨です); もう一つの種類は UV を扱い、 Unicode 特性を認識します。以下の表で、ccharu は Unicode 符号位置です。

    Instead Of:                 Use:            But better use:

    isalnum(c)                  isALNUM(c)      isALNUM_uni(u)
    isalpha(c)                  isALPHA(c)      isALPHA_uni(u)
    iscntrl(c)                  isCNTRL(c)      isCNTRL_uni(u)
    isdigit(c)                  isDIGIT(c)      isDIGIT_uni(u)
    isgraph(c)                  isGRAPH(c)      isGRAPH_uni(u)
    islower(c)                  isLOWER(c)      isLOWER_uni(u)
    isprint(c)                  isPRINT(c)      isPRINT_uni(u)
    ispunct(c)                  isPUNCT(c)      isPUNCT_uni(u)
    isspace(c)                  isSPACE(c)      isSPACE_uni(u)
    isupper(c)                  isUPPER(c)      isUPPER_uni(u)
    isxdigit(c)                 isXDIGIT(c)     isXDIGIT_uni(u)

    tolower(c)                  toLOWER(c)      toLOWER_uni(u)
    toupper(c)                  toUPPER(c)      toUPPER_uni(u)

stdlib.h 関数

    Instead Of:                 Use: 

    atof(s)                     Atof(s)
    atol(s)                     Atol(s)
    strtod(s, &p)               Nothing.  Just don't use it.
    strtol(s, &p, n)            Strtol(s, &p, n)
    strtoul(s, &p, n)           Strtoul(s, &p, n)

それぞれの基数で数値を表現している文字列を NV に変換するための numeric.c にある grok_bin, grok_hex, grok_oct 関数にも 注目してください。

理論的には、perl がビルドされたマシンに実際に strtol や strtoul がない 場合、StrtolStrtoul は定義されないかもしれません。 しかしこれらの 2 関数は 1989 ANSI C 使用の一部なので、今のところどこでも これらを見つけられると思われます。

    int rand()                  double Drand01()
    srand(n)                    { seedDrand01((Rand_seed_t)n); 
                                  PL_srand_called = TRUE; }

    exit(n)                     my_exit(n)
    system(s)                   Don't. Look at pp_system or use my_popen

    getenv(s)                   PerlEnv_getenv(s)
    setenv(s, val)              my_putenv(s, val)

さまざまな関数

setjmp.h 関数を使おうと 思う ことすらするべきではありませんが、もし そう考えているなら、代わりに scope.hJMPENV スタックを 使ってください。

signal/sigaction については、rsignal(signo, handler) を 使ってください。

SEE ALSO

perlapi, perlapio, perlguts