diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-05-29 17:16:56 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-05-29 17:16:56 +0000 |
| commit | d72ffade4e086fa3eb0f7904a4141dea3ad91705 (patch) | |
| tree | bdbc9fce22747c2a19f980b087c2b5f0a3ae3618 /perl-install/c/stuff.xs.pm | |
| parent | 436a081d985d376060908b1db436a6ad2691d593 (diff) | |
| download | drakx-backup-do-not-use-d72ffade4e086fa3eb0f7904a4141dea3ad91705.tar drakx-backup-do-not-use-d72ffade4e086fa3eb0f7904a4141dea3ad91705.tar.gz drakx-backup-do-not-use-d72ffade4e086fa3eb0f7904a4141dea3ad91705.tar.bz2 drakx-backup-do-not-use-d72ffade4e086fa3eb0f7904a4141dea3ad91705.tar.xz drakx-backup-do-not-use-d72ffade4e086fa3eb0f7904a4141dea3ad91705.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/c/stuff.xs.pm')
| -rw-r--r-- | perl-install/c/stuff.xs.pm | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index 77c779c83..034996d21 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -311,6 +311,51 @@ del_loop(device) OUTPUT: RETVAL +int +prom_open() + +void +prom_close() + +int +prom_getsibling(node) + int node + +int +prom_getchild(node) + int node + +void +prom_getproperty(key) + char *key + PPCODE: + int lenp = 0; + char *value = NULL; + value = prom_getproperty(key, &lenp); + EXTEND(sp, 1); + if (value != NULL) { + PUSHs(sv_2mortal(newSVpv(value, 0))); + } else { + PUSHs(&PL_sv_undef); + } + +int +prom_getbool(key) + char *key + +void +prom_getint(key) + char *key + PPCODE: + int lenp = 0; + char *value = NULL; + value = prom_getproperty(key, &lenp); + EXTEND(sp, 1); + if (value != NULL && lenp == sizeof(int)) { + PUSHs(sv_2mortal(newSViv(*(int *)value))); + } else { + PUSHs(&PL_sv_undef); + } '; $ENV{C_RPM} and print ' |