You can subscribe to this list here.
2008 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(2) |
Nov
(5) |
Dec
(8) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2009 |
Jan
|
Feb
|
Mar
|
Apr
(2) |
May
(3) |
Jun
(1) |
Jul
(3) |
Aug
|
Sep
(2) |
Oct
(16) |
Nov
|
Dec
(2) |
2010 |
Jan
(3) |
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(1) |
Nov
|
Dec
(3) |
2011 |
Jan
(6) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
(3) |
Jul
|
Aug
|
Sep
|
Oct
(4) |
Nov
|
Dec
|
2012 |
Jan
|
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(2) |
Sep
|
Oct
|
Nov
(2) |
Dec
(4) |
2013 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2014 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
|
Nov
|
Dec
|
2015 |
Jan
(1) |
Feb
(11) |
Mar
(5) |
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Leon B. <le...@us...> - 2015-07-10 17:08:43
|
Update of /cvsroot/lush/lush/packages/sn28/examples/tsp In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25967 Modified Files: tsp Log Message: make sure TSP demo loads oldplotenv Index: tsp =================================================================== RCS file: /cvsroot/lush/lush/packages/sn28/examples/tsp/tsp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** tsp 19 Mar 2003 19:38:16 -0000 1.1 --- tsp 10 Jul 2015 17:08:41 -0000 1.2 *************** *** 4,7 **** --- 4,8 ---- (libload "sn28/sn28") + (libload "oldplotenv") (render-brace-text 0 72 *************** *** 14,16 **** (delete window) (tsp-demo) ) ! \ No newline at end of file --- 15,17 ---- (delete window) (tsp-demo) ) ! |
From: Leon B. <le...@us...> - 2015-03-17 14:34:40
|
Update of /cvsroot/lush/lush/sys In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1897/sys Modified Files: sysenv.lsh Log Message: implemented macro #$ to match the doc. Index: sysenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/sys/sysenv.lsh,v retrieving revision 1.128 retrieving revision 1.129 diff -C2 -d -r1.128 -r1.129 *** sysenv.lsh 24 Mar 2010 16:03:38 -0000 1.128 --- sysenv.lsh 17 Mar 2015 14:34:38 -0000 1.129 *************** *** 46,49 **** --- 46,51 ---- (dmc |^!| (list 'sys (read_string))) + (dmc |#$| (list (list 'sys (read_string)))) + (dmc |#!| (if (= (read-string "~ !\t\n\e") "/usr/bin/lush") |
From: Leon B. <le...@us...> - 2015-03-15 00:58:25
|
Update of /cvsroot/lush/lush/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31472/src Modified Files: module.c Log Message: More robust under macosx10.9 (hopefully) Index: module.c =================================================================== RCS file: /cvsroot/lush/lush/src/module.c,v retrieving revision 1.82 retrieving revision 1.83 diff -C2 -d -r1.82 -r1.83 *** module.c 14 Mar 2015 23:11:49 -0000 1.82 --- module.c 15 Mar 2015 00:58:23 -0000 1.83 *************** *** 225,229 **** nsbundle_exec(nsbundle_t *bundle) { - int changed = 0; int savedexecutable = bundle->executable; if (bundle->recurse) --- 225,228 ---- *************** *** 366,372 **** static int ! parse_nm_output(nsbundle_t *bundle, char *cmd) { ! FILE *f = popen(cmd, "rb"); if (f) { --- 365,371 ---- static int ! parse_nm_output(nsbundle_t *bundle, char *fname) { ! FILE *f = fopen(fname, "rb"); if (f) { *************** *** 387,391 **** } } ! return pclose(f); } return -1; --- 386,390 ---- } } ! return fclose(f); } return -1; *************** *** 406,415 **** (bundle->name = malloc(256))) { nsbundle_error = "cannot get object file symbols"; ! sprintf(cmd, "nm -gn \"%s\"", fname); ! if (parse_nm_output(bundle, cmd) >= 0) { nsbundle_error = "Cannot create bundle from object file"; - strcpy(bundle->name, tmpname("/tmp","bundle")); sprintf(cmd, "cc -bundle -flat_namespace -undefined suppress \"%s\" -o \"%s\"", fname, bundle->name); --- 405,416 ---- (bundle->name = malloc(256))) { + strcpy(bundle->name, tmpname("/tmp","bundle")); nsbundle_error = "cannot get object file symbols"; ! sprintf(cmd, "nm -gn \"%s\" > \"%s\"", fname, bundle->name); ! if (system(cmd) == 0 && ! parse_nm_output(bundle, bundle->name) >= 0) { + remove(bundle->name); nsbundle_error = "Cannot create bundle from object file"; sprintf(cmd, "cc -bundle -flat_namespace -undefined suppress \"%s\" -o \"%s\"", fname, bundle->name); *************** *** 858,863 **** --- 859,866 ---- /* 1 --- No cleanup when not ready for errors */ + #if DLDBFD if (! error_doc.ready_to_an_error) return; + #endif /* 2 --- Collect impacted classes */ *************** *** 906,910 **** end_iter_at(x); } ! if (n > 0) fprintf(stderr,"+++ Warning: " "destroyed %d instances of class %s\n", n, pname(q)); --- 909,913 ---- end_iter_at(x); } ! if (n > 0 && error_doc.ready_to_an_error) fprintf(stderr,"+++ Warning: " "destroyed %d instances of class %s\n", n, pname(q)); *************** *** 921,925 **** int n = lside_mark_unlinked(cl->classdoc); cl->classdoc = 0; ! if (n > 0) fprintf(stderr,"+++ Warning: " "unlinked %d instances of compiled class %s\n", --- 924,928 ---- int n = lside_mark_unlinked(cl->classdoc); cl->classdoc = 0; ! if (n > 0 && error_doc.ready_to_an_error) fprintf(stderr,"+++ Warning: " "unlinked %d instances of compiled class %s\n", *************** *** 1226,1232 **** if (nsbundle_unload(&m->bundle) < 0) dynlink_error(new_string(m->filename)); - if (m->flags & MODULE_SO) - if (nsbundle_update() < 0) - dynlink_error(new_string(m->filename)); #endif check_executability = TRUE; --- 1229,1232 ---- |
From: Leon B. <le...@us...> - 2015-03-14 23:11:52
|
Update of /cvsroot/lush/lush/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv29090/src Modified Files: module.c Log Message: seems to work on macosx10.9 without calls to deprecated apis Index: module.c =================================================================== RCS file: /cvsroot/lush/lush/src/module.c,v retrieving revision 1.81 retrieving revision 1.82 diff -C2 -d -r1.81 -r1.82 *** module.c 14 Mar 2015 01:19:09 -0000 1.81 --- module.c 14 Mar 2015 23:11:49 -0000 1.82 *************** *** 119,131 **** } typedef struct nsbundle_s { char *name; struct nsbundle_s *prev; struct nsbundle_s *next; - void *dlmodule; strarray_t symdef; strarray_t symref; int executable; int loadrank; } nsbundle_t; --- 119,142 ---- } + static int + isdef(const char *sname) + { + if (sname[0] != '_') + return 1; // not a c symbol + if (dlsym(RTLD_DEFAULT, sname + 1)) + return 1; + return 0; + } + typedef struct nsbundle_s { char *name; struct nsbundle_s *prev; struct nsbundle_s *next; strarray_t symdef; strarray_t symref; + void *dlmodule; int executable; int loadrank; + int recurse; } nsbundle_t; *************** *** 190,195 **** } - - static int nsbundle_symmark(nsbundle_t *bundle, nsbundle_t *mark) --- 201,204 ---- *************** *** 214,234 **** static int - dltest(const char *sname) - { - if (sname[0]=='_') - if (dlsym(RTLD_DEFAULT, sname+1)) - return 1; - if (!strcmp(sname,"dyld_stub_binder")) - return 1; - return 0; - } - - static int nsbundle_exec(nsbundle_t *bundle) { int savedexecutable = bundle->executable; ! if (bundle->executable >= 0) { ! int bx = 0; int ns = bundle->symref.count; while (--ns>=0) --- 223,240 ---- static int nsbundle_exec(nsbundle_t *bundle) { + int changed = 0; int savedexecutable = bundle->executable; ! if (bundle->recurse) { ! nsbundle_error = ! "MacOS X loader no longer handles circular dependencies in object files.\n" ! "*** Use 'ld -r' to collect these object files into a single image\n***"; ! bundle->executable = -1; ! } ! else if (bundle->executable>=0) ! { ! bundle->recurse = 1; int ns = bundle->symref.count; while (--ns>=0) *************** *** 242,259 **** else if (def && def != bundle) { ! if (def->executable == 0) ! return 0; ! else if (def->executable < 0) bundle->executable = def->executable; ! else if (def->executable > bx) ! bx = def->executable; ! } ! else if (!def && !dltest(sname)) bundle->executable = -1; if (bundle->executable < 0) break; } ! if (bundle->executable >= 0) ! bundle->executable = bx + 1; } return bundle->executable != savedexecutable; --- 248,264 ---- else if (def && def != bundle) { ! if (nsbundle_exec(def)) ! savedexecutable = -2; ! if (def->executable < 0) bundle->executable = def->executable; ! else if (def->executable >= bundle->executable) ! bundle->executable = 1 + def->executable; ! } ! else if (!def && !isdef(sname)) bundle->executable = -1; if (bundle->executable < 0) break; } ! bundle->recurse = 0; } return bundle->executable != savedexecutable; *************** *** 264,268 **** { int again = 1; - int recurse = 0; nsbundle_t *bundle; nsbundle_error = 0; --- 269,272 ---- *************** *** 271,274 **** --- 275,279 ---- bundle=bundle->next) { + bundle->recurse = 0; bundle->executable = -1; if (bundle != but) *************** *** 284,297 **** again = 1; } - if (! nsbundle_error) - for (bundle = nsbundle_head.next; - bundle != &nsbundle_head; - bundle=bundle->next) - if (bundle->executable == 0) - recurse = 1; - if (recurse) - nsbundle_error = - "MacOS X loader no longer handles circular dependencies in object files.\n" - "*** Use 'ld -r' to collect these object files into a single image\n***"; if (nsbundle_error) return -1; --- 289,292 ---- *************** *** 314,326 **** bundle=bundle->next) { ! if (bundle->dlmodule && bundle->executable <= 0) ! if (!target || bundle->loadrank > target->loadrank) target = bundle; } ! if (target && target->dlmodule) { again = 1; dlclose(target->dlmodule); ! target->dlmodule = 0; } } --- 309,321 ---- bundle=bundle->next) { ! if (bundle->dlmodule && bundle->executable<0) ! if (!target || bundle->loadrank>target->loadrank) target = bundle; } ! if (target) { again = 1; dlclose(target->dlmodule); ! target->dlmodule = 0; } } *************** *** 335,339 **** bundle=bundle->next) { ! if (bundle->executable>0 && !bundle->dlmodule) if (!target || bundle->executable < target->executable) target = bundle; --- 330,334 ---- bundle=bundle->next) { ! if (bundle->executable>=0 && !bundle->dlmodule) if (!target || bundle->executable < target->executable) target = bundle; *************** *** 360,369 **** bundle->next->prev = bundle->prev; nsbundle_symmark(bundle, NULL); - strarray_free(&bundle->symdef); - strarray_free(&bundle->symref); if (bundle->name) remove(bundle->name); if (bundle->name) free(bundle->name); memset(bundle, 0, sizeof(nsbundle_t)); return 0; --- 355,364 ---- bundle->next->prev = bundle->prev; nsbundle_symmark(bundle, NULL); if (bundle->name) remove(bundle->name); if (bundle->name) free(bundle->name); + strarray_free(&bundle->symdef); + strarray_free(&bundle->symref); memset(bundle, 0, sizeof(nsbundle_t)); return 0; *************** *** 379,385 **** while(fgets(buffer, sizeof(buffer), f)) { - int c; char t; void *p; if (isxdigit((unsigned char)buffer[0])) { if (sscanf(buffer,"%p %c %s", (void**)&p, &t, symbol) == 3) --- 374,382 ---- while(fgets(buffer, sizeof(buffer), f)) { char t; void *p; + int l = strlen(buffer); + if (buffer[l-1] != '\n') + return -1; if (isxdigit((unsigned char)buffer[0])) { if (sscanf(buffer,"%p %c %s", (void**)&p, &t, symbol) == 3) *************** *** 389,395 **** strarray_append(&bundle->symref, symbol); } - c = getc(f); - while (c != '\n' && c != EOF) - c = getc(f); } return pclose(f); --- 386,389 ---- *************** *** 409,422 **** bundle->next->prev = bundle; nsbundle_error = "out of memory"; ! if ((cmd = malloc(fnamelen + 256)) && (bundle->name = malloc(256))) { ! strcpy(bundle->name, tmpname("/tmp","bundle")); ! sprintf(cmd, "cc -bundle -flat_namespace -undefined suppress \"%s\" -o \"%s\"", ! fname, bundle->name); ! nsbundle_error = "Cannot create bundle from object file"; ! if (system(cmd) == 0) { ! sprintf(cmd, "nm -gn \"%s\"", bundle->name); ! if (parse_nm_output(bundle, cmd) >= 0 && nsbundle_symmark(bundle, bundle) >= 0 && nsbundle_exec_all_but(NULL) >= 0 && --- 403,418 ---- bundle->next->prev = bundle; nsbundle_error = "out of memory"; ! if ((cmd = malloc(fnamelen + 256)) && ! (bundle->name = malloc(256))) { ! nsbundle_error = "cannot get object file symbols"; ! sprintf(cmd, "nm -gn \"%s\"", fname); ! if (parse_nm_output(bundle, cmd) >= 0) { ! nsbundle_error = "Cannot create bundle from object file"; ! strcpy(bundle->name, tmpname("/tmp","bundle")); ! sprintf(cmd, "cc -bundle -flat_namespace -undefined suppress \"%s\" -o \"%s\"", ! fname, bundle->name); ! if (system(cmd) == 0 && nsbundle_symmark(bundle, bundle) >= 0 && nsbundle_exec_all_but(NULL) >= 0 && *************** *** 429,438 **** if (! nsbundle_error) return 0; ! if (bundle->symdef.count) ! nsbundle_symmark(bundle, NULL); ! strarray_free(&bundle->symdef); ! strarray_free(&bundle->symref); ! if (bundle->name) ! remove(bundle->name); if (bundle->name) free(bundle->name); --- 425,429 ---- if (! nsbundle_error) return 0; ! nsbundle_symmark(bundle, NULL); if (bundle->name) free(bundle->name); *************** *** 441,444 **** --- 432,437 ---- if (bundle->next) bundle->next->prev = bundle->prev; + strarray_free(&bundle->symdef); + strarray_free(&bundle->symref); memset(bundle, 0, sizeof(nsbundle_t)); return -1; *************** *** 450,467 **** void *addr = 0; char *usname = malloc(strlen(sname)+2); if (usname) { - nsbundle_t *def; strcpy(usname, "_"); strcat(usname, sname); def = nsbundle_hget(usname); - if (def && def != &nsbundle_head) - addr = dlsym(def->dlmodule, sname); - else - addr = dlsym(RTLD_DEFAULT, sname); - if (! addr && exist && def && def != &nsbundle_head) - addr = (void*)(~0); free(usname); } return addr; } --- 443,460 ---- void *addr = 0; char *usname = malloc(strlen(sname)+2); + nsbundle_t *def = 0; if (usname) { strcpy(usname, "_"); strcat(usname, sname); def = nsbundle_hget(usname); free(usname); } + if (def && def != &nsbundle_head && def->dlmodule) + addr = dlsym(def->dlmodule, sname); + if (!addr) + addr = dlsym(RTLD_DEFAULT, sname); + if (!addr && exist && def && def!=&nsbundle_head) + addr = (void*)(~0); return addr; } *************** *** 887,891 **** for (mc = root.next; mc != &root; mc = mc->next) if (mc->initname && mc->defs) ! if (mc == m || mc->bundle.executable <= 0) cleanup_defs(&classes, mc); nsbundle_exec_all_but(NULL); --- 880,884 ---- for (mc = root.next; mc != &root; mc = mc->next) if (mc->initname && mc->defs) ! if (mc == m || mc->bundle.executable < 0) cleanup_defs(&classes, mc); nsbundle_exec_all_but(NULL); *************** *** 977,981 **** { newstate = 0; ! if (m->initname && m->bundle.executable > 0) newstate = MODULE_EXEC; if (m->defs && !newstate) --- 970,974 ---- { newstate = 0; ! if (m->initname && m->bundle.executable>=0) newstate = MODULE_EXEC; if (m->defs && !newstate) *************** *** 1495,1499 **** const char *sname = bundle->symref.d[ns]; nsbundle_t *def = nsbundle_hget(sname); ! if (def==&nsbundle_head || (!def && !dltest(sname))) { if (sname[0]=='_') sname += 1; --- 1488,1492 ---- const char *sname = bundle->symref.d[ns]; nsbundle_t *def = nsbundle_hget(sname); ! if (def==&nsbundle_head || (!def && !isdef(sname))) { if (sname[0]=='_') sname += 1; |
From: Leon B. <le...@us...> - 2015-03-14 16:12:07
|
Update of /cvsroot/lush/lush/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14868/src Modified Files: unix.c Log Message: fixed sync issues when using libedit in readline compat mode Index: unix.c =================================================================== RCS file: /cvsroot/lush/lush/src/unix.c,v retrieving revision 1.67 retrieving revision 1.68 diff -C2 -d -r1.67 -r1.68 *** unix.c 14 Mar 2015 01:19:09 -0000 1.67 --- unix.c 14 Mar 2015 16:12:05 -0000 1.68 *************** *** 123,126 **** --- 123,129 ---- # ifndef RL_READLINE_VERSION # define RL_READLINE_VERSION 0 /* non-gnu */ + # elif ! defined(HAVE_RL_GETC) + # undef RL_READLINE_VERSION + # define RL_READLINE_VERSION 0 /* non-gnu */ # endif #endif *************** *** 830,836 **** console_in_eventproc = 1; process_pending_events(); ! if (prep) rl_prep_terminal(1); console_in_eventproc = 0; ! if (! handler) break; UNLOCK(handler); } --- 833,841 ---- console_in_eventproc = 1; process_pending_events(); ! if (prep) ! rl_prep_terminal(1); console_in_eventproc = 0; ! if (! handler) ! break; UNLOCK(handler); } *************** *** 849,858 **** return rl_getc(f); #else if (f && f != stdin) return getc(f); console_wait_for_char(TRUE); ! if (break_attempt) ! return EOF; ! return getc(stdin); #endif } --- 854,865 ---- return rl_getc(f); #else + char buf; if (f && f != stdin) return getc(f); console_wait_for_char(TRUE); ! if (!break_attempt) ! if (read(0, &buf, 1) == 1) ! return (int)buf; ! return EOF; #endif } *************** *** 911,915 **** ! #if RL_READLINE_VERSION > 0x402 static char ** --- 918,922 ---- ! #if RL_READLINE_VERSION > 0x400 static char ** *************** *** 979,983 **** rl_getc_function = console_getc; /* completion */ ! #if RL_READLINE_VERSION > 0x402 rl_special_prefixes = special_prefixes; rl_basic_quote_characters = quote_characters; --- 986,990 ---- rl_getc_function = console_getc; /* completion */ ! #if RL_READLINE_VERSION > 0x400 rl_special_prefixes = special_prefixes; rl_basic_quote_characters = quote_characters; *************** *** 991,995 **** #endif /* matching parenthesis */ ! #if RL_READLINE_VERSION > 0x402 rl_set_paren_blink_timeout(250000); rl_bind_key (')', rl_insert_close); --- 998,1002 ---- #endif /* matching parenthesis */ ! #if RL_READLINE_VERSION > 0x400 rl_set_paren_blink_timeout(250000); rl_bind_key (')', rl_insert_close); |
From: Leon B. <le...@us...> - 2015-03-14 01:19:11
|
Update of /cvsroot/lush/lush/config In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6554/config Modified Files: config.guess config.sub Log Message: Work on lush for the mac Index: config.guess =================================================================== RCS file: /cvsroot/lush/lush/config/config.guess,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** config.guess 13 Oct 2002 03:39:14 -0000 1.2 --- config.guess 14 Mar 2015 01:19:09 -0000 1.3 *************** *** 1,12 **** #! /bin/sh # Attempt to guess a canonical system name. ! # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, ! # 2000, 2001, 2002 Free Software Foundation, Inc. ! timestamp='2002-07-09' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by ! # the Free Software Foundation; either version 2 of the License, or [...2350 lines suppressed...] ! exit ;; esac cat >&2 <<EOF $0: unable to guess system type *************** *** 1312,1316 **** download the most up to date version of the config scripts from ! ftp://ftp.gnu.org/pub/gnu/config/ If the version you run ($0) is already up to date, please --- 1380,1386 ---- download the most up to date version of the config scripts from ! http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD ! and ! http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD If the version you run ($0) is already up to date, please Index: config.sub =================================================================== RCS file: /cvsroot/lush/lush/config/config.sub,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** config.sub 14 Jan 2003 04:09:46 -0000 1.2 --- config.sub 14 Mar 2015 01:19:09 -0000 1.3 *************** *** 1,35 **** #! /bin/sh # Configuration validation subroutine script. ! # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, ! # 2000, 2001, 2002, 2003 Free Software Foundation, Inc. ! timestamp='2003-01-03' ! # This file is (in principle) common to ALL GNU software. ! # The presence of a machine in this file suggests that SOME GNU software ! # can handle that machine. It does not imply ALL GNU software can. [...1250 lines suppressed...] vendor=sequent ;; + -tpf*) + vendor=ibm + ;; -vxsim* | -vxworks* | -windiss*) vendor=wrs *************** *** 1464,1468 **** echo $basic_machine$os ! exit 0 # Local variables: --- 1798,1802 ---- echo $basic_machine$os ! exit # Local variables: |
From: Leon B. <le...@us...> - 2015-02-12 22:39:31
|
Update of /cvsroot/lush/lush/include In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10445/include Modified Files: header.h Log Message: fixed tl3-style \+ string escapes Index: header.h =================================================================== RCS file: /cvsroot/lush/lush/include/header.h,v retrieving revision 1.71 retrieving revision 1.72 diff -C2 -d -r1.71 -r1.72 *** header.h 9 Oct 2011 22:48:05 -0000 1.71 --- header.h 12 Feb 2015 22:39:29 -0000 1.72 *************** *** 565,568 **** --- 565,569 ---- LUSHAPI at* str_mb_to_utf8(const char *s); + LUSHAPI at* str_utf8_to_mb_ext(const char *s, int nofail); LUSHAPI at* str_utf8_to_mb(const char *s); |
From: Leon B. <le...@us...> - 2015-02-12 22:38:39
|
Update of /cvsroot/lush/tl3/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10361/src Modified Files: io.c string.c Log Message: added unicode string escapes Index: io.c =================================================================== RCS file: /cvsroot/lush/tl3/src/io.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** io.c 8 Feb 2015 02:00:16 -0000 1.2 --- io.c 12 Feb 2015 22:38:31 -0000 1.3 *************** *** 647,651 **** static at * ! rl_utf8(long h) { char ub[8]; --- 647,651 ---- static at * ! rl_utf8(long h, int nofail) { char ub[8]; *************** *** 676,680 **** } *u++ = 0; ! return str_utf8_to_mb(ub); } --- 676,680 ---- } *u++ = 0; ! return str_utf8_to_mb_ext(ub,nofail); } *************** *** 711,721 **** *d++ = h; ! } else if (*s == '^' && s[1]) { /* control */ ! *d++ = (s[1]) & (0x1f); ! s += 2; ! ! } else if (*s == '+' && s[1]) { /* high bit */ ! #if HAVE_ICONV ! at *m = rl_utf8(s[1] | 0x80); if (! EXTERNP(m, &string_class)) goto err_string; --- 711,729 ---- *d++ = h; ! } else if (*s == 'u' || *s == 'U') { /* unicode */ ! unsigned long h = 0; ! int c = ((*s == 'u') ? 4 : 6); ! at *m; ! s++; ! for (; c > 0; c--) { ! ind = strchr(digit_string, tolower((unsigned char)*s)); ! if (*s && ind) { ! h *= 16; ! h += (ind - digit_string); ! s++; ! } else ! break; ! } ! m = rl_utf8(h, 1); if (! EXTERNP(m, &string_class)) goto err_string; *************** *** 723,729 **** d += strlen(d); UNLOCK(m); ! #else ! *d++ = (s[1]) | 0x80; ! #endif s += 2; --- 731,751 ---- d += strlen(d); UNLOCK(m); ! ! } else if (*s == '^' && s[1]) { /* control */ ! *d++ = (s[1]) & (0x1f); ! s += 2; ! ! } else if (*s == '+' && s[1]) { /* high bit */ ! at *m = rl_utf8(s[1] | 0x80, 0); ! if (EXTERNP(m, &string_class)) ! { ! strcpy(d, SADD(m->Object)); ! d += strlen(d); ! UNLOCK(m); ! } ! else ! { ! *d++ = (s[1]) | 0x80; ! } s += 2; Index: string.c =================================================================== RCS file: /cvsroot/lush/tl3/src/string.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** string.c 8 Feb 2015 02:00:16 -0000 1.4 --- string.c 12 Feb 2015 22:38:32 -0000 1.5 *************** *** 417,421 **** at* ! str_utf8_to_mb(const char *s) { /* best effort conversion from locale encoding from utf8 */ --- 417,421 ---- at* ! str_utf8_to_mb_ext(const char *s, int nofail) { /* best effort conversion from locale encoding from utf8 */ *************** *** 431,435 **** return ans; #endif ! return new_string(s); } --- 431,441 ---- return ans; #endif ! return (nofail) ? new_string(s) : NIL; ! } ! ! at* ! str_utf8_to_mb(const char *s) ! { ! return str_utf8_to_mb_ext(s, 1); } |
From: Leon B. <le...@us...> - 2015-02-12 22:38:33
|
Update of /cvsroot/lush/tl3/help In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10361/help Modified Files: strings.hlp Log Message: added unicode string escapes Index: strings.hlp =================================================================== RCS file: /cvsroot/lush/tl3/help/strings.hlp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** strings.hlp 8 Feb 2015 02:42:42 -0000 1.2 --- strings.hlp 12 Feb 2015 22:38:30 -0000 1.3 *************** *** 24,32 **** <\^?> for a control character <control-?>, .IP ! <\+?> for iso-latin-1 character <meta-?> (high bit is set), .IP <\ooo> where <ooo> are octal digits for any ascii character, .IP <\xhh> where <hh> are hexadecimal digits for any ascii character. .PP --- 24,39 ---- <\^?> for a control character <control-?>, .IP ! <\+?> for iso-latin-1 character <meta-?> converted to the current locale. ! If no such representation exists, a single byte is output ! with the high bit set. .IP <\ooo> where <ooo> are octal digits for any ascii character, .IP <\xhh> where <hh> are hexadecimal digits for any ascii character. + .IP + <\uhhhh> or <\Uhhhhhh> for the representation of + unicode character <hhhh> or <hhhhhh> in + the current locale. If no such representation exists, + the utf8 representation is used. .PP |
From: Leon B. <le...@us...> - 2015-02-12 22:12:05
|
Update of /cvsroot/lush/lush/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv9423 Modified Files: io.c Log Message: unicode escape \U takes only 6 hexadecimal digits Index: io.c =================================================================== RCS file: /cvsroot/lush/lush/src/io.c,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** io.c 16 Oct 2009 16:07:05 -0000 1.27 --- io.c 12 Feb 2015 22:12:02 -0000 1.28 *************** *** 775,781 **** *d++ = h; ! } else if (*s == 'u' || *s == 'U') { unsigned long h = 0; ! int c = ((*s == 'u') ? 4 : 8); at *m; s++; --- 775,781 ---- *d++ = h; ! } else if (*s == 'u' || *s == 'U') { /* unicode */ unsigned long h = 0; ! int c = ((*s == 'u') ? 4 : 6); at *m; s++; *************** *** 800,804 **** s += 2; ! } else if (*s == '+' && s[1]) { /* high bit latin1*/ #if HAVE_ICONV at *m = rl_utf8(s[1] | 0x80); --- 800,804 ---- s += 2; ! } else if (*s == '+' && s[1]) { /* high bit latin1 */ #if HAVE_ICONV at *m = rl_utf8(s[1] | 0x80); |
From: Leon B. <le...@us...> - 2015-02-08 03:46:30
|
Update of /cvsroot/lush/tl3/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25169/src Modified Files: graphics.c Log Message: fixed return value of (font) Index: graphics.c =================================================================== RCS file: /cvsroot/lush/tl3/src/graphics.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** graphics.c 7 Feb 2015 04:53:09 -0000 1.4 --- graphics.c 8 Feb 2015 03:46:27 -0000 1.5 *************** *** 617,623 **** if (!r) return NIL; ! } ! UNLOCK(win->font); ! win->font = new_string(r); LOCK(win->font); return win->font; --- 617,625 ---- if (!r) return NIL; ! } ! if (r) { ! UNLOCK(win->font); ! win->font = new_string(r); ! } LOCK(win->font); return win->font; |
From: Leon B. <le...@us...> - 2015-02-08 02:52:42
|
Update of /cvsroot/lush/tl3/open/unix In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv23444/open/unix Modified Files: Makefile.in Log Message: fix make distclean Index: Makefile.in =================================================================== RCS file: /cvsroot/lush/tl3/open/unix/Makefile.in,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** Makefile.in 16 Apr 2002 17:37:38 -0000 1.1.1.1 --- Makefile.in 8 Feb 2015 02:52:39 -0000 1.2 *************** *** 37,42 **** -rm 2>/dev/null ${TARGET} ${OBJS} ! distclean: ! -rm 2>/dev/null ${TARGET} ${OBJS} Makefile .PHONY: clean distclean all real --- 37,42 ---- -rm 2>/dev/null ${TARGET} ${OBJS} ! distclean: clean ! -rm 2>/dev/null Makefile .PHONY: clean distclean all real |
From: Leon B. <le...@us...> - 2015-02-08 02:52:41
|
Update of /cvsroot/lush/tl3/lib In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv23444/lib Modified Files: Makefile.in Log Message: fix make distclean Index: Makefile.in =================================================================== RCS file: /cvsroot/lush/tl3/lib/Makefile.in,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** Makefile.in 16 Apr 2002 17:37:33 -0000 1.1.1.1 --- Makefile.in 8 Feb 2015 02:52:39 -0000 1.2 *************** *** 52,58 **** -rm 2>/dev/null sysenv.snc graphenv.snc ogre.snc miscenv.snc ! distclean: ! -rm 2>/dev/null snc-stamp env-stamp ! -rm 2>/dev/null tltools.tl -rm 2>/dev/null Makefile --- 52,56 ---- -rm 2>/dev/null sysenv.snc graphenv.snc ogre.snc miscenv.snc ! distclean: clean -rm 2>/dev/null Makefile |
From: Leon B. <le...@us...> - 2015-02-08 02:42:44
|
Update of /cvsroot/lush/tl3/help In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv22924/help Modified Files: graphics.hlp ogre.hlp strings.hlp Log Message: update manual Index: graphics.hlp =================================================================== RCS file: /cvsroot/lush/tl3/help/graphics.hlp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** graphics.hlp 16 Apr 2002 17:37:30 -0000 1.1.1.1 --- graphics.hlp 8 Feb 2015 02:42:41 -0000 1.2 *************** *** 519,527 **** .PP Most drivers also understand window system dependent font names (when such ! font names are defined by the window system). For instance, the X11 driver ! recognizes all font names listed by the utility program <xlsfonts>. ! These font names are very long, but a star <*> can be used ! as a wildcard character. A typical example is <"-*-times-*medium-*r-*--18-*">. ! Function <x11-fontname> can be used to translate a Postrscript(tm) style font name into a system specific font name. --- 519,528 ---- .PP Most drivers also understand window system dependent font names (when such ! font names are defined by the window system). For instance, ! the X11 driver recognizes XFLD font names ! (such as <"-*-times-*medium-*r-*--18-*">) ! and, on some systems, also recognizes fontconfig patterns ! (such as <":family=Bitstream Vera Sans:pixelsize=11">. ! Function <x11-fontname> can be used to translate a Postscript font name into a system specific font name. Index: ogre.hlp =================================================================== RCS file: /cvsroot/lush/tl3/help/ogre.hlp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** ogre.hlp 16 Apr 2002 17:37:31 -0000 1.1.1.1 --- ogre.hlp 8 Feb 2015 02:42:42 -0000 1.2 *************** *** 641,668 **** independent way. #? (font-18) .TYPE DE ! .FILE ogre.sn ! Selects a 18 points font useful for drawing titles. #? (font-12b) .TYPE DE ! .FILE ogre.sn ! Selects a 12 points bold font mostly used for button labels. #? (font-12) .TYPE DE ! .FILE ogre.sn ! Selects a all-purpose 12 points font. #? (font-8f) .TYPE DE ! .FILE ogre.sn ! Selects a fixed width 8 points font used for text input area. #? (font-8) .TYPE DE ! .FILE ogre.sn ! Selects a small 8 points font. --- 641,678 ---- independent way. + #? (ogre-font <size> [<serifp> [<monospacep> [<boldp> [<italicp>]]]]) + Selects a font of <size> size. + The font family is chosen according to flags <serifp> and <monospacep>. + The style is chosen according to flags <boldp> and <italicp>. + #? (font-18) .TYPE DE ! .FILE ogre.lsh ! Convenience function. ! Same as <(ogre-font 18 () () () ())>. #? (font-12b) .TYPE DE ! .FILE ogre.lsh ! Convenience function. ! Same as <(ogre-font 12 () () t ())>. #? (font-12) .TYPE DE ! .FILE ogre.lsh ! Convenience function. ! Same as <(ogre-font 12 () () () ())>. #? (font-8f) .TYPE DE ! .FILE ogre.lsh ! Convenience function. ! Same as <(ogre-font 8 () t () ())>. #? (font-8) .TYPE DE ! .FILE ogre.lsh ! Convenience function. ! Same as <(ogre-font 8 () () () ())>. Index: strings.hlp =================================================================== RCS file: /cvsroot/lush/tl3/help/strings.hlp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** strings.hlp 16 Apr 2002 17:37:32 -0000 1.1.1.1 --- strings.hlp 8 Feb 2015 02:42:42 -0000 1.2 *************** *** 24,32 **** <\^?> for a control character <control-?>, .IP ! <\+?> for a meta character <meta-?> (high bit is set), .IP ! <\OOO> where <OOO> are octal digits for any ascii character, .IP ! <\xHH> where <HH> are hexadecimal digits for any ascii character. .PP --- 24,32 ---- <\^?> for a control character <control-?>, .IP ! <\+?> for iso-latin-1 character <meta-?> (high bit is set), .IP ! <\ooo> where <ooo> are octal digits for any ascii character, .IP ! <\xhh> where <hh> are hexadecimal digits for any ascii character. .PP *************** *** 100,104 **** #? (upcase <s>) ! Returns string <s> with all letters converted to uppercase. Example: --- 100,105 ---- #? (upcase <s>) ! Returns string <s> with all letters converted to uppercase ! according to the current locale. Example: *************** *** 106,110 **** #? (upcase1 <s>) ! Returns string <s> with first letter converted to uppercase. Example: --- 107,112 ---- #? (upcase1 <s>) ! Returns string <s> with first letter converted to uppercase ! according to the current locale. Example: *************** *** 112,116 **** #? (downcase <s>) ! Returns string <s> with all letters converted to lowercase. Example: --- 114,119 ---- #? (downcase <s>) ! Returns string <s> with all letters converted to lowercase ! according to the current locale. Example: *************** *** 149,154 **** #? (chr <n>) ! Returns a one-character string containing the ASCII character of ! code <n>. Integer <n> must be strictly positive, and smaller than 255. Example --- 152,157 ---- #? (chr <n>) ! Returns a string containing a single byte whose ! value is <n>. Integer <n> must be in range 0 to 255. Example *************** *** 156,160 **** #? (isprint <s>) ! Returns <t> if string <s> contains only printable characters. Example: --- 159,164 ---- #? (isprint <s>) ! Returns <t> if string <s> contains only printable characters ! according to the current locale. Example: *************** *** 430,431 **** --- 434,496 ---- + #? ** International Strings + + TL3 contains partial support for multibyte strings + using an encoding specified by the locale. + + + #? (locale-to-utf8 <s>) + Converts a string from locale encoding to UTF-8 encoding. + This is a best effort function: + The unmodified string is returned + if the conversion is impossible, either because the string <s> + is incorrect, or because the system does not provide + suitable conversion facilities. + + + #? (utf8-to-locale-to <s>) + Converts a string from UTF-8 encoding to locale encoding. + This is a best effort function: + The unmodified string is returned + if the conversion is impossible, either because the string <s> + is incorrect, or because the system does not provide + suitable conversion facilities. + + + #? (explode-chars <s>) + Returns a list of integers with the wide character + codes of all characters in the string. + This function interprets multibyte sequences + according to the encoding specified by the current locale. + + Example (under a UTF8 locale): + .VP + ? (explode-chars "\xe2\x82\xac") + = (8364) + + #? (implode-chars <l>) + Returns a string composed of the characters + whose wide character code are specified by the + list of integers <l>. Multibyte characters are + generated according to the current locale. + For instance, under a UTF8 locale, + + Example + .EX (implode-chars '(8364 50 51 46 53 32 61 32 32 162 50 51 53 48)) + + #? (explode-bytes <s>) + Returns a list of integers representing + the sequence of bytes in string <s>, + regardless of their character interpretation. + + Example + .EX (explode-bytes "\xe2\x82\xac") + + + #? (implode-bytes <l>) + Assemble a string composed of the bytes + whose value is specified by the list of integers <l>, + regardless of their multibyte representation. + + Example + .EX (implode-bytes '(226 130 172 50 51)) |
From: Leon B. <le...@us...> - 2015-02-08 02:31:21
|
Update of /cvsroot/lush/tl3/include In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv22140/include Modified Files: config.h.in Log Message: backported readline. removed warnings. Index: config.h.in =================================================================== RCS file: /cvsroot/lush/tl3/include/config.h.in,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** config.h.in 8 Feb 2015 02:00:16 -0000 1.4 --- config.h.in 8 Feb 2015 02:31:18 -0000 1.5 *************** *** 53,56 **** --- 53,59 ---- #undef HAVE_LANGINFO_H + /* Define to 1 if you have the `curses' library (-lcurses). */ + #undef HAVE_LIBCURSES + /* Define to 1 if you have the `dl' library (-ldl). */ #undef HAVE_LIBDL *************** *** 65,68 **** --- 68,74 ---- #undef HAVE_LIBM + /* Define to 1 if you have the `readline' library (-lreadline). */ + #undef HAVE_LIBREADLINE + /* Define to 1 if you have the <locale.h> header file. */ #undef HAVE_LOCALE_H *************** *** 95,98 **** --- 101,110 ---- #undef HAVE_PUTENV + /* Define to 1 if you have the <readline/history.h> header file. */ + #undef HAVE_READLINE_HISTORY_H + + /* Define to 1 if you have the <readline/readline.h> header file. */ + #undef HAVE_READLINE_READLINE_H + /* Define to 1 if you have the `setenv' function. */ #undef HAVE_SETENV |
From: Leon B. <le...@us...> - 2015-02-08 02:00:18
|
Update of /cvsroot/lush/tl3/include In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv20469/include Modified Files: config.h.in define.h Log Message: backported lush mbr support Index: config.h.in =================================================================== RCS file: /cvsroot/lush/tl3/include/config.h.in,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** config.h.in 7 Feb 2015 04:53:08 -0000 1.3 --- config.h.in 8 Feb 2015 02:00:16 -0000 1.4 *************** *** 23,26 **** --- 23,32 ---- #undef HAVE_FPU_CONTROL_H + /* Define to 1 if you have the `fseeko' function. */ + #undef HAVE_FSEEKO + + /* Define to 1 if you have the `ftello' function. */ + #undef HAVE_FTELLO + /* Define to 1 if you have the `getcwd' function. */ #undef HAVE_GETCWD *************** *** 59,62 **** --- 65,80 ---- #undef HAVE_LIBM + /* Define to 1 if you have the <locale.h> header file. */ + #undef HAVE_LOCALE_H + + /* Define to 1 if the system has the type `long long int'. */ + #undef HAVE_LONG_LONG_INT + + /* Define to 1 if mbrtowc and mbstate_t are properly declared. */ + #undef HAVE_MBRTOWC + + /* Define to 1 if the system has the type `mbstate_t'. */ + #undef HAVE_MBSTATE_T + /* Define to 1 if you have the `memcpy' function. */ #undef HAVE_MEMCPY *************** *** 71,74 **** --- 89,104 ---- #undef HAVE_NDIR_H + /* Define to 1 if you have the `nl_langinfo' function. */ + #undef HAVE_NL_LANGINFO + + /* Define to 1 if you have the `putenv' function. */ + #undef HAVE_PUTENV + + /* Define to 1 if you have the `setenv' function. */ + #undef HAVE_SETENV + + /* Define to 1 if you have the `setlocale' function. */ + #undef HAVE_SETLOCALE + /* Define to 1 if you have the `sigaction' function. */ #undef HAVE_SIGACTION *************** *** 148,154 **** --- 178,190 ---- #undef HAVE_WCHAR_H + /* Define to 1 if the system has the type `wchar_t'. */ + #undef HAVE_WCHAR_T + /* Define to 1 if you have the <wctype.h> header file. */ #undef HAVE_WCTYPE_H + /* Define to 1 if the system has the type `wint_t'. */ + #undef HAVE_WINT_T + /* Define to 1 if you have the "Xft" library. */ #undef HAVE_XFT *************** *** 206,209 **** --- 242,256 ---- #undef X_DISPLAY_MISSING + /* Enable large inode numbers on Mac OS X 10.5. */ + #ifndef _DARWIN_USE_64_BIT_INODE + # define _DARWIN_USE_64_BIT_INODE 1 + #endif + + /* Number of bits in a file offset, on hosts where this is settable. */ + #undef _FILE_OFFSET_BITS + + /* Define for large files, on AIX-style hosts. */ + #undef _LARGE_FILES + /* Define to 1 if on MINIX. */ #undef _MINIX Index: define.h =================================================================== RCS file: /cvsroot/lush/tl3/include/define.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** define.h 16 Apr 2002 17:37:32 -0000 1.1.1.1 --- define.h 8 Feb 2015 02:00:16 -0000 1.2 *************** *** 29,32 **** --- 29,36 ---- /* --------- GENERAL PURPOSE DEFINITIONS ---------- */ + #if HAVE_SYS_TYPES_H + # include <sys/types.h> + #endif + #include <setjmp.h> #include <stdlib.h> *************** *** 175,188 **** #endif ! #ifndef HAVE_SIGSETJMP ! #ifndef sigsetjmp ! #ifndef siglongjmp ! #ifndef sigjmp_buf ! #define sigjmp_buf jmp_buf ! #define sigsetjmp(env, arg) setjmp(env) ! #define siglongjmp(env, arg) longjmp(env,arg) ! #endif #endif #endif #endif --- 179,237 ---- #endif ! #ifdef HAVE_WCHAR_H ! # include <wchar.h> ! # include <limits.h> ! # ifdef HAVE_WCTYPE_H ! # include <wctype.h> ! # endif ! # ifndef HAVE_WINT_T ! # define wint_t int ! # endif ! # ifndef HAVE_MBSTATE_T ! # define mbstate_t int ! # endif ! # ifndef HAVE_MBRTOWC ! # define mbrtowc(p,s,n,ps) mbtowc(p,s,n) ! # endif ! # ifndef HAVE_WCRTOMB ! # define wcrtomb(s,w,ps) wctomb(s,w) ! # endif ! # ifndef HAVE_MBRLEN ! # define mbrlen(s,n,ps) mblen(s,n) ! # endif #endif + #ifdef HAVE_WCHAR_H + # include <wchar.h> + # include <limits.h> + # ifdef HAVE_WCTYPE_H + # include <wctype.h> + # endif + # ifndef HAVE_WINT_T + # define wint_t int + # endif + # ifndef HAVE_MBSTATE_T + # define mbstate_t int + # endif + # ifndef HAVE_MBRTOWC + # define mbrtowc(p,s,n,ps) mbtowc(p,s,n) + # endif + # ifndef HAVE_WCRTOMB + # define wcrtomb(s,w,ps) wctomb(s,w) + # endif + # ifndef HAVE_MBRLEN + # define mbrlen(s,n,ps) mblen(s,n) + # endif #endif + + #ifndef HAVE_SIGSETJMP + # ifndef sigsetjmp + # ifndef siglongjmp + # ifndef sigjmp_buf + # define sigjmp_buf jmp_buf + # define sigsetjmp(env, arg) setjmp(env) + # define siglongjmp(env, arg) longjmp(env,arg) + # endif + # endif + # endif #endif |
From: Leon B. <le...@us...> - 2015-02-07 04:53:11
|
Update of /cvsroot/lush/tl3/lib In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv10329/lib Modified Files: ogre.sn Log Message: backported lush xft2 and truecolor support Index: ogre.sn =================================================================== RCS file: /cvsroot/lush/tl3/lib/ogre.sn,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ogre.sn 9 Aug 2012 16:38:37 -0000 1.2 --- ogre.sn 7 Feb 2015 04:53:08 -0000 1.3 *************** *** 201,241 **** ;;; fonction pour selectionner des fontes (de font-18 () ! (selectq (gdriver) ! ("X11" (or (font "-adobe-helvetica-medium-r-*-*-18-*-75-75-*-*-iso8859-1") ! (font "-*-latin modern sans-medium-r-*-*-18-*-75-75-*-*-iso8859-1") ! ) ) ! ("WBM" (font "Arial-18")) ! (t (font "Helvetica-18")) ) ) (de font-12b () ! (selectq (gdriver) ! ("X11" (or (font "-adobe-helvetica-bold-r-*-*-12-*-75-75-*-*-iso8859-1") ! (font "-*-latin modern sans-bold-r-*-*-12-*-75-75-*-*-iso8859-1") ! ) ) ! ("WBM" (font "Arial-Bold-12")) ! (t (font "Helvetica-Bold-12")) ) ) ! (de font-12 () ! (selectq (gdriver) ! ("X11" (or (font "-adobe-helvetica-medium-r-*-*-12-*-75-75-*-*-iso8859-1") ! (font "-*-latin modern sans-medium-r-*-*-12-*-75-75-*-*-iso8859-1") ! ) ) ! ("WBM" (font "Arial-12")) ! (t (font "Helvetica-12")) ) ) (de font-8f () ! (selectq (gdriver) ! ("X11" (or (font "-adobe-courier-medium-r-*-*-12-*-75-75-*-*-iso8859-1") ! (font "-misc-fixed-medium-r-*-*-12-*-75-75-*-*-iso8859-1")) ) ! ("WBM" (font "Courier New-12")) ! (t (font "Courier-12")) ) ) ! ! (de font-8 () ! (selectq (gdriver) ! ("X11" (font "-adobe-helvetica-medium-r-*-*-8-*-75-75-*-*-iso8859-1")) ! ("WBM" (font "Arial-8")) ! (t (font "Helvetica-8")) ) ) --- 201,249 ---- ;;; fonction pour selectionner des fontes + ;;; fonction pour selectionner des fontes + + (de ogre-font(size &optional serif mono bold italic) + (let ((fam1 (cond (mono "Courier") + (serif "Times") + (t "Helvetica"))) + (fam2 (cond (mono "Bitstream Vera Sans Mono,Mono") + (serif "Bitstream Vera Serif,Serif") + (t "Bitstream Vera Sans,Sans"))) ) + (if (= (gdriver) "X11") + (or (font + (sprintf ":family=%s:pixelsize=%d%s%s" + fam2 size (if bold ":bold" "")(if italic ":italic" ""))) + (font + (sprintf "-adobe-%s-%s-%s-*-*-%d-*-*-*-*-*-iso8859-1" + (downcase fam1) (if bold "bold" "medium") + (if italic (if (or serif mono) "i" "o") "r") + size ) ) + (font + "default") ) + (if (= (gdriver) "WBM") + (setq fam1 (cond (mono "Courier New") + (serif "Time New Roman") + (t "Arial") ) ) ) + (or (font (sprintf "%s-%s%s%s%d" fam1 + (if bold "Bold" "") + (if italic (if (and serif mono) "Italic" "Oblique") "") + (if (or bold italic) "-" "") + size ) ) + (font "default") ) ) ) ) + (de font-18 () ! (ogre-font 18 () () () ()) ) (de font-12b () ! (ogre-font 12 () () t ()) ) ! (de font-12 () ! (ogre-font 12 () () () ()) ) (de font-8f () ! (ogre-font 12 () t () ()) ) + (de font-8 () + (ogre-font 8 () () () ()) ) |
From: Leon B. <le...@us...> - 2015-01-13 19:59:49
|
Update of /cvsroot/lush/lush/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17548/src Modified Files: unix.c Log Message: socketaccept now works on all local interfaces. Index: unix.c =================================================================== RCS file: /cvsroot/lush/lush/src/unix.c,v retrieving revision 1.65 retrieving revision 1.66 diff -C2 -d -r1.65 -r1.66 *** unix.c 9 Oct 2011 22:48:05 -0000 1.65 --- unix.c 13 Jan 2015 19:59:47 -0000 1.66 *************** *** 1858,1864 **** { #ifdef HAVE_GETHOSTBYNAME - #ifndef MAXHOSTNAMELEN - #define MAXHOSTNAMELEN 255 - #endif at *f1, *f2; int sock1, sock2; --- 1858,1861 ---- *************** *** 1866,1870 **** int portnumber; struct sockaddr_in server; - struct hostent *hp; FILE *ff1, *ff2; --- 1863,1866 ---- *************** *** 1877,1888 **** } portnumber = AINTEGER(1); - gethostname(hostname, MAXHOSTNAMELEN); - if (! (hp = gethostbyname(hostname))) - test_file_error(NULL); sock1 = socket( AF_INET, SOCK_STREAM, 0); if (sock1<0) test_file_error(NULL); server.sin_family = AF_INET; ! memcpy(&server.sin_addr, hp->h_addr, hp->h_length); server.sin_port = htons(portnumber); if ((bind(sock1, (struct sockaddr*)&server, sizeof(server) ) < 0) || --- 1873,1881 ---- } portnumber = AINTEGER(1); sock1 = socket( AF_INET, SOCK_STREAM, 0); if (sock1<0) test_file_error(NULL); server.sin_family = AF_INET; ! memset(&server.sin_addr, 0, sizeof(server.sin_addr)); server.sin_port = htons(portnumber); if ((bind(sock1, (struct sockaddr*)&server, sizeof(server) ) < 0) || |
From: Leon B. <le...@us...> - 2014-08-13 14:59:02
|
Update of /cvsroot/lush/lush/etc In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6451/etc Modified Files: lush.el Log Message: compat emacs 24 Index: lush.el =================================================================== RCS file: /cvsroot/lush/lush/etc/lush.el,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** lush.el 13 Dec 2009 21:59:55 -0000 1.16 --- lush.el 13 Aug 2014 14:58:59 -0000 1.17 *************** *** 277,282 **** '(3 font-lock-type-face nil t) '(4 font-lock-type-face nil t) ) - (list - "\\<:\\sw\\sw+\\>" 0 (internal-find-face 'default) t t) ) ) --- 277,280 ---- |
From: Leon B. <le...@us...> - 2013-05-07 11:46:41
|
Update of /cvsroot/lush/lush/include In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv20322/include Modified Files: lushconf.h.in Log Message: fixed autoconf to add fontconfig. Index: lushconf.h.in =================================================================== RCS file: /cvsroot/lush/lush/include/lushconf.h.in,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** lushconf.h.in 23 Jan 2008 22:45:06 -0000 1.20 --- lushconf.h.in 7 May 2013 11:46:39 -0000 1.21 *************** *** 68,71 **** --- 68,74 ---- #undef HAVE_FLOCKFILE + /* Define to 1 if you have the "fontconfig" library. */ + #undef HAVE_FONTCONFIG + /* Define to 1 if you have the `fork' function. */ #undef HAVE_FORK *************** *** 265,268 **** --- 268,274 ---- #undef HAVE_SYS_NDIR_H + /* Define to 1 if you have the <sys/param.h> header file. */ + #undef HAVE_SYS_PARAM_H + /* Define to 1 if you have the <sys/select.h> header file. */ #undef HAVE_SYS_SELECT_H *************** *** 349,352 **** --- 355,361 ---- #undef PACKAGE_TARNAME + /* Define to the home page for this package. */ + #undef PACKAGE_URL + /* Define to the version of this package. */ #undef PACKAGE_VERSION |
From: Leon B. <le...@us...> - 2013-03-04 03:01:19
|
Update of /cvsroot/lush/lush/lsh/manual In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14339 Modified Files: htable.hlp Log Message: mentions that htables can do ephemerons. Index: htable.hlp =================================================================== RCS file: /cvsroot/lush/lush/lsh/manual/htable.hlp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** htable.hlp 20 Mar 2006 15:44:42 -0000 1.4 --- htable.hlp 4 Mar 2013 03:01:17 -0000 1.5 *************** *** 49,54 **** <==>. These hash tables are useful to associate a piece of information with a particular lisp object. Functions <getp> and <putp>, for instance, ! make use of pointer-equality hash tables. The associations of a pointer-equality hash table are automatically removed when the key object ! is deallocated. } --- 49,55 ---- <==>. These hash tables are useful to associate a piece of information with a particular lisp object. Functions <getp> and <putp>, for instance, ! make use of pointer-equality hash tables. The associations of a ! pointer-equality hash table are automatically removed when the key object ! is deallocated (this is called "ephemerons" in the literature.) } |
From: Leon B. <le...@us...> - 2013-03-02 22:30:34
|
Update of /cvsroot/lush/lush/lsh/libc In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv27353/lsh/libc Modified Files: make.lsh Log Message: Fixed recursive builds in lushmake. Can't believe it was broken so long. Index: make.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libc/make.lsh,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** make.lsh 27 Jun 2011 06:22:43 -0000 1.14 --- make.lsh 2 Mar 2013 22:30:31 -0000 1.15 *************** *** 166,190 **** (when (not command) (setq command dhc-make-command) ) ! (setq target (concat-fname objdir target)) ! (setq deps (all ((dep deps)) (concat-fname srcdir dep))) ! (rules target (list target deps command)) target ) (defmethod LushMake rebuild(target &optional done dryrun) (when (not (rules target)) ! (error '==> "Do not know how to make" target) ) (when (or (not done) (not (done target))) (let (((obj deps cmd) (rules target))) (let ((flag t) ! (objtime (alist-get 'mtime (fileinfo obj))) ) ! (when objtime ! (setq flag dhc-make-force) ! (each ((src deps)) ! (let ((srctime (alist-get 'mtime (fileinfo src)))) ! (when (or (rules src) (not srctime)) ! (setq flag (or flag (==> this rebuild src done dryrun))) ) ! (when (< objtime srctime) ! (setq flag t) ) ) ) ) (when done (done target t) ) --- 166,196 ---- (when (not command) (setq command dhc-make-command) ) ! (let ((obj (concat-fname objdir target))) ! (rules target (list obj deps command)) ) target ) + ;; internal: find the path for a dependency + (defmethod LushMake find(dep) + (let ((dir (if (rules dep) objdir srcdir))) + (concat-fname dir dep) ) ) + ;; internal: recursively build a target (defmethod LushMake rebuild(target &optional done dryrun) (when (not (rules target)) ! (error '==> "Do not know how to make" target) ) (when (or (not done) (not (done target))) (let (((obj deps cmd) (rules target))) (let ((flag t) ! (objtime (alist-get 'mtime (fileinfo obj))) ! (srcs (all ((dep deps)) (==> this find dep))) ) ! (when objtime ! (setq flag dhc-make-force) ) ! (each ((dep deps)(src srcs)) ! (let* ((srctime (alist-get 'mtime (fileinfo src))) ) ! (when (or (rules dep) (not srctime)) ! (when (==> this rebuild dep done dryrun) ! (setq flag t) ) ) ! (when (and objtime srctime (< objtime srctime)) ! (setq flag t) ) ) ) (when done (done target t) ) *************** *** 205,211 **** (vars "SRCDIR" srcdir) (vars "OBJDIR" objdir) - (vars "SRC" (car deps)) - (for (i 1 9) (vars (sprintf "SRC%d" i) (nth i deps))) (vars "OBJ" obj) ;; Execute (setq cmd (dhc-substitute-env cmd vars)) --- 211,223 ---- (vars "SRCDIR" srcdir) (vars "OBJDIR" objdir) (vars "OBJ" obj) + (vars "SRC" (car srcs)) + (for (i 1 9) + (vars (sprintf "SRC%d" i) (nth i srcs)) ) + (let ((s ())) + (each ((f srcs)) + (setq s (nconc1 s " ")) + (setq s (nconc1 s f)) ) + (vars "SOURCES" (apply concat (cdr s))) ) ;; Execute (setq cmd (dhc-substitute-env cmd vars)) *************** *** 268,282 **** (each ((target targets)) (==> this rebuild target done) ) ) ! (let ((ext (concat "." (or (getconf "OBJEXT") "o")))) ! (each ((obj targets)) ! (when (= (right obj (len ext)) ext) ! (mod-load obj) ) ! ;; record dependencies with libload. ! (let ((mark (lambda(f) ! (let ((dep (cadr (rules f)))) ! (each ((d dep)) ! (libload-add-dependency d) ! (mark d) ) ) ) )) ! (mark obj) ) ) ) t ) ) --- 280,297 ---- (each ((target targets)) (==> this rebuild target done) ) ) ! (let ((oext (concat "." (or (getconf "OBJEXT") "o"))) ! (soext (concat "." (or (getconf "SOEXT") "so"))) ) ! (each ((target targets)) ! (when (or (= (right target (len oext)) oext) ! (= (right target (len soext)) soext) ) ! (mod-load (car (rules target))) ! ;; record dependencies for libload. ! (let ((mark (lambda(f done) ! (each ((dep (cadr (rules f)))) ! (if (and (rules dep) (not (done dep))) ! (mark dep done) ! (libload-add-dependency (==> this find dep)) ! (done dep t) ) ) ))) ! (mark target (htable)) ) ) ) ) t ) ) |
From: Leon B. <le...@us...> - 2012-12-06 16:28:16
|
Update of /cvsroot/lush/lush/lsh/libstd In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31833 Modified Files: plotenv.lsh Log Message: more compat in functions plot-lists and plot-lists-sd Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.43 retrieving revision 1.44 diff -C2 -d -r1.43 -r1.44 *** plotenv.lsh 6 Dec 2012 16:20:31 -0000 1.43 --- plotenv.lsh 6 Dec 2012 16:28:14 -0000 1.44 *************** *** 1548,1568 **** (let (((pc pp . aux) plot-port)) (let ((window (==> pp window))) ! (==> pc command '(plt-clear)) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-draw ,x ,y)) ) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-plot ,x ,y)) ) ! (==> pp execute) ) ) ) (de plot-lists-sd (lx ly lv) (let (((pc pp . aux) plot-port)) (let ((window (==> pp window))) ! (==> pc command '(plt-clear)) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-draw ,x ,y)) ) ! (each ((x lx)(y ly)(v lv)) ! (==> pc command `(plt-plot ,x ,y)) ! (==> pc command `(plt-sd ,x ,y ,v)) ) ! (==> pp execute) ) ) ) ;; ---------------------------------------- --- 1548,1574 ---- (let (((pc pp . aux) plot-port)) (let ((window (==> pp window))) ! (if :pp:plotwindow ! (==> pp add (new PlotCurve lx ly)) ! ;; compat ! (==> pc command '(plt-clear)) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-draw ,x ,y)) ) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-plot ,x ,y)) ) ! (==> pp execute) ) ) ) ) (de plot-lists-sd (lx ly lv) (let (((pc pp . aux) plot-port)) (let ((window (==> pp window))) ! (if :pp:plotwindow ! (==> pp add (new PlotCurve lx ly lv)) ! ;; compat ! (==> pc command '(plt-clear)) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-draw ,x ,y)) ) ! (each ((x lx)(y ly)(v lv)) ! (==> pc command `(plt-plot ,x ,y)) ! (==> pc command `(plt-sd ,x ,y ,v)) ) ! (==> pp execute) ) ) ) ) ;; ---------------------------------------- |
From: Leon B. <le...@us...> - 2012-12-06 16:20:33
|
Update of /cvsroot/lush/lush/lsh/libstd In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31188/lsh/libstd Modified Files: plotenv.lsh Log Message: improve plotenv compatibility Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.42 retrieving revision 1.43 diff -C2 -d -r1.42 -r1.43 *** plotenv.lsh 6 Dec 2012 16:02:13 -0000 1.42 --- plotenv.lsh 6 Dec 2012 16:20:31 -0000 1.43 *************** *** 1548,1557 **** (let (((pc pp . aux) plot-port)) (let ((window (==> pp window))) ! (==> pp add (new PlotCurve lx ly) ) ) ) ) (de plot-lists-sd (lx ly lv) (let (((pc pp . aux) plot-port)) (let ((window (==> pp window))) ! (==> pp add (new PlotCurve lx ly lv) ) ) ) ) ;; ---------------------------------------- --- 1548,1568 ---- (let (((pc pp . aux) plot-port)) (let ((window (==> pp window))) ! (==> pc command '(plt-clear)) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-draw ,x ,y)) ) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-plot ,x ,y)) ) ! (==> pp execute) ) ) ) (de plot-lists-sd (lx ly lv) (let (((pc pp . aux) plot-port)) (let ((window (==> pp window))) ! (==> pc command '(plt-clear)) ! (each ((x lx)(y ly)) ! (==> pc command `(plt-draw ,x ,y)) ) ! (each ((x lx)(y ly)(v lv)) ! (==> pc command `(plt-plot ,x ,y)) ! (==> pc command `(plt-sd ,x ,y ,v)) ) ! (==> pp execute) ) ) ) ;; ---------------------------------------- |
From: Leon B. <le...@us...> - 2012-12-06 16:02:15
|
Update of /cvsroot/lush/lush/lsh/libstd In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv29675 Modified Files: plotenv.lsh Log Message: fix copy-plot-port parameter validation Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.41 retrieving revision 1.42 diff -C2 -d -r1.41 -r1.42 *** plotenv.lsh 6 Dec 2012 15:45:29 -0000 1.41 --- plotenv.lsh 6 Dec 2012 16:02:13 -0000 1.42 *************** *** 1422,1426 **** (setq object (or object (nth 2 pp))) (setq pp (cadr pp)) ) ! (when (not (is-of-class port PlotContext)) (error 'copy-plot-port "not a plot-port or plotcontext" port) ) (when (functionp object) --- 1422,1426 ---- (setq object (or object (nth 2 pp))) (setq pp (cadr pp)) ) ! (when (not (is-of-class pp PlotContext)) (error 'copy-plot-port "not a plot-port or plotcontext" port) ) (when (functionp object) |