4 changed files with 36 additions and 1 deletions
@ -0,0 +1,19 @@ |
|||
The crypt(3) function is not available in Android, so remove support |
|||
in ext for now. |
|||
|
|||
diff -u -r ../picoLisp/src/ext.c ./src/ext.c
|
|||
--- ../picoLisp/src/ext.c 2015-04-27 00:34:17.000000000 -0400
|
|||
+++ ./src/ext.c 2015-11-27 06:07:18.767005597 -0500
|
|||
@@ -252,6 +252,7 @@
|
|||
|
|||
/*** Password hashing ***/ |
|||
// (Ext:Crypt 'key 'salt) -> str |
|||
+#ifndef __ANDROID__
|
|||
any Crypt(any x) { |
|||
any y; |
|||
|
|||
@@ -269,3 +270,4 @@
|
|||
} |
|||
} |
|||
} |
|||
+#endif
|
@ -0,0 +1,15 @@ |
|||
diff -u -r ../picoLisp/src/main.c ./src/main.c
|
|||
--- ../picoLisp/src/main.c 2015-11-24 02:39:50.000000000 -0500
|
|||
+++ ./src/main.c 2015-11-26 18:07:24.794312532 -0500
|
|||
@@ -834,8 +834,10 @@
|
|||
strcpy(buf + n + 4 + strlen(nm), ".dll"); |
|||
#endif |
|||
} |
|||
- if (!(h = dlopen(buf, RTLD_LAZY | RTLD_GLOBAL)) || !(h = dlsym(h,p)))
|
|||
+ if (!(h = dlopen(buf, RTLD_LAZY | RTLD_GLOBAL)) || !(h = dlsym(h,p))) {
|
|||
+ fprintf(stderr, "dlopen/dlsym problem: %s\n", dlerror());
|
|||
return NO; |
|||
+ }
|
|||
val(x) = box(num(h)); |
|||
} |
|||
return YES; |
Loading…
Reference in new issue