diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-06-20 16:25:33 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-06-20 16:25:33 +0000 |
| commit | 7f7a9b7b58dbef59e2e1a09afe682983dc7806f8 (patch) | |
| tree | 8b7d537f31d92c3ba63acf1a67dd73c58ea84ab8 /perl-install/c/stuff.xs.pm | |
| parent | e61090daf9ed3cfcb837287cf6717161d1179bf5 (diff) | |
| download | drakx-backup-do-not-use-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.tar drakx-backup-do-not-use-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.tar.gz drakx-backup-do-not-use-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.tar.bz2 drakx-backup-do-not-use-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.tar.xz drakx-backup-do-not-use-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/c/stuff.xs.pm')
| -rw-r--r-- | perl-install/c/stuff.xs.pm | 53 |
1 files changed, 46 insertions, 7 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index 034996d21..3967392fb 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -326,12 +326,12 @@ prom_getchild(node) int node void -prom_getproperty(key) +prom_getopt(key) char *key PPCODE: int lenp = 0; char *value = NULL; - value = prom_getproperty(key, &lenp); + value = prom_getopt(key, &lenp); EXTEND(sp, 1); if (value != NULL) { PUSHs(sv_2mortal(newSVpv(value, 0))); @@ -339,23 +339,62 @@ prom_getproperty(key) PUSHs(&PL_sv_undef); } -int -prom_getbool(key) +void +prom_setopt(key, value) + char *key + char *value + +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, lenp))); + } else { + PUSHs(&PL_sv_undef); + } void -prom_getint(key) +prom_getstring(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))); + if (value != NULL) { + PUSHs(sv_2mortal(newSVpv(value, 0))); } else { PUSHs(&PL_sv_undef); } + +int +prom_getbool(key) + char *key + + + +void +initSilo() + +char * +disk2PromPath(disk) + unsigned char *disk + +int +hasAliases() + +char * +promRootName() + +void +setPromVars(linuxAlias, bootDevice) + char *linuxAlias + char *bootDevice '; $ENV{C_RPM} and print ' |