version 1.222, 2007/12/31 18:40:24
|
version 1.225, 2008/04/19 19:15:14
|
Line 702 c2 = toupper(c1);
|
Line 702 c2 = toupper(c1);
|
: |
: |
dup [char] a - [ char z char a - 1 + ] Literal u< bl and - ; |
dup [char] a - [ char z char a - 1 + ] Literal u< bl and - ; |
|
|
capscompare ( c_addr1 u1 c_addr2 u2 -- n ) string |
capscompare ( c_addr1 u1 c_addr2 u2 -- n ) gforth |
""Compare two strings lexicographically. If they are equal, @i{n} is 0; if |
""Compare two strings lexicographically. If they are equal, @i{n} is 0; if |
the first string is smaller, @i{n} is -1; if the first string is larger, @i{n} |
the first string is smaller, @i{n} is -1; if the first string is larger, @i{n} |
is 1. Currently this is based on the machine's character |
is 1. Currently this is based on the machine's character |
Line 2394 r = fp[u];
|
Line 2394 r = fp[u];
|
|
|
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
#if 1 |
#if 1 |
u2 = (UCell)lt_dlopen(cstr(c_addr1, u1, 1)); |
u2 = (UCell)lt_dlopenadvise(cstr(c_addr1, u1, 1), ltdl_advice); |
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
#ifndef RTLD_GLOBAL |
#ifndef RTLD_GLOBAL |
#define RTLD_GLOBAL 0 |
#define RTLD_GLOBAL 0 |
Line 2782 uploop(i, 0, 7, `fcall(i)')
|
Line 2782 uploop(i, 0, 7, `fcall(i)')
|
fcall(20) |
fcall(20) |
|
|
\+ |
\+ |
\+ |
|
|
|
lib-error ( -- c_addr u ) gforth lib_error |
lib-error ( -- c_addr u ) gforth lib_error |
c_addr = lt_dlerror(); |
c_addr = lt_dlerror(); |
u = (c_addr == NULL) ? 0 : strlen(c_addr); |
u = (c_addr == NULL) ? 0 : strlen(c_addr); |
|
|
|
\+ |
\g peephole |
\g peephole |
|
|
\+peephole |
\+peephole |