summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.xs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-06-20 16:25:33 +0000
committerFrancois Pons <fpons@mandriva.com>2000-06-20 16:25:33 +0000
commit7f7a9b7b58dbef59e2e1a09afe682983dc7806f8 (patch)
tree8b7d537f31d92c3ba63acf1a67dd73c58ea84ab8 /perl-install/c/stuff.xs.pm
parente61090daf9ed3cfcb837287cf6717161d1179bf5 (diff)
downloaddrakx-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.tar
drakx-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.tar.gz
drakx-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.tar.bz2
drakx-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.tar.xz
drakx-7f7a9b7b58dbef59e2e1a09afe682983dc7806f8.zip
*** empty log message ***
Diffstat (limited to 'perl-install/c/stuff.xs.pm')
-rw-r--r--perl-install/c/stuff.xs.pm53
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 '