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...> - 2010-03-24 16:03:48
|
Update of /cvsroot/lush/lush/sys In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv13316 Modified Files: sysenv.lsh Log Message: fixed clone-matrix. Index: sysenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/sys/sysenv.lsh,v retrieving revision 1.127 retrieving revision 1.128 diff -C2 -d -r1.127 -r1.128 *** sysenv.lsh 23 Oct 2009 21:50:36 -0000 1.127 --- sysenv.lsh 24 Mar 2010 16:03:38 -0000 1.128 *************** *** 591,595 **** (de clone-matrix (mat) (let* ((size (apply * (bound mat))) ! (sto (float-storage))) (storage-malloc-nc sto size) (new-index sto (bound mat)))) --- 591,604 ---- (de clone-matrix (mat) (let* ((size (apply * (bound mat))) ! (typ (classof (idx-storage mat))) ! (sto (cond ! ((= typ |DSTORAGE|) (double-storage)) ! ((= typ |FSTORAGE|) (float-storage)) ! ((= typ |I32STORAGE|) (int-storage)) ! ((= typ |I16STORAGE|) (short-storage)) ! ((= typ |I8STORAGE|) (byte-storage)) ! ((= typ |U8STORAGE|) (ubyte-storage)) ! ((= typ |GPTRSTORAGE|) (gptr-storage)) ! (t (atom-storage)) )) ) (storage-malloc-nc sto size) (new-index sto (bound mat)))) |
From: Yann L. <pro...@us...> - 2010-03-20 15:12:45
|
Update of /cvsroot/lush/lush/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29140 Modified Files: nan.c Log Message: added Nobuhiro's patch for SH4 CPUs Index: nan.c =================================================================== RCS file: /cvsroot/lush/lush/src/nan.c,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** nan.c 22 Apr 2009 23:00:21 -0000 1.18 --- nan.c 20 Mar 2010 15:12:37 -0000 1.19 *************** *** 331,335 **** #define DO(c,f) mask=((c)?(mask|(f)):(mask&~(f))); ! #if defined(__i386__) || defined(__alpha__) #ifdef _FPU_MASK_IM DO(!doINV, _FPU_MASK_IM); --- 331,335 ---- #define DO(c,f) mask=((c)?(mask|(f)):(mask&~(f))); ! #if defined(__i386__) || defined(__alpha__) || (defined(__sh__) && defined(__SH4__)) #ifdef _FPU_MASK_IM DO(!doINV, _FPU_MASK_IM); |
From: Leon B. <le...@us...> - 2010-01-28 23:26:25
|
Update of /cvsroot/lush/lush/lsh/libstd In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv24194 Modified Files: plotenv.lsh Log Message: solved small issue in plotcurvesetup changed flag. Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 *** plotenv.lsh 28 Jan 2010 20:02:34 -0000 1.37 --- plotenv.lsh 28 Jan 2010 23:26:17 -0000 1.38 *************** *** 622,626 **** (defmethod PlotCurve plotcurve(&optional lx ly lv) ! (setq name "Curve1") (setq cur-object open-square) (setq cur-object-size 3) --- 622,626 ---- (defmethod PlotCurve plotcurve(&optional lx ly lv) ! (setq name "Curve 1") (setq cur-object open-square) (setq cur-object-size 3) *************** *** 1099,1103 **** (defmethod PlotCurveSetup PlotCurveSetup(thecurve) ! (let ((xeq (lambda(c) (setq :thisform:changed t)))) (setq curve thecurve) (setq objectchoice --- 1099,1103 ---- (defmethod PlotCurveSetup PlotCurveSetup(thecurve) ! (let ((xeq (eval `(lambda(c) (setq :,this:changed t))))) (setq curve thecurve) (setq objectchoice *************** *** 1308,1311 **** --- 1308,1312 ---- (defmethod PlotSetup save() (when plot + (==> this activate ()) (each (((k . obj) thestuff)) (when (check==> (classof obj) 'save) *************** *** 1425,1429 **** (let ((window (==> pp window))) (==> pc command `(setq current-object ,object)) ) ) ! (setq :pc:name "PlotPort1") (==> pp add pc) (list pc pp object) ) ) --- 1426,1430 ---- (let ((window (==> pp window))) (==> pc command `(setq current-object ,object)) ) ) ! (setq :pc:name "PlotPort 1") (==> pp add pc) (list pc pp object) ) ) |
From: Leon B. <le...@us...> - 2010-01-28 20:02:43
|
Update of /cvsroot/lush/lush/lsh/libstd In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv19807 Modified Files: plotenv.lsh Log Message: *** empty log message *** Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.36 retrieving revision 1.37 diff -C2 -d -r1.36 -r1.37 *** plotenv.lsh 28 Jan 2010 19:56:56 -0000 1.36 --- plotenv.lsh 28 Jan 2010 20:02:34 -0000 1.37 *************** *** 1415,1422 **** ;; Replacement for copy-plot-port. (de copy-plot-port(port &optional object) - (setq object (or object (nth 2 port))) (let ((pp port) (pc (new PlotCurve))) (when (consp pp) (setq pp (cadr pp)) ) (when (not (is-of-class port PlotContext)) --- 1415,1422 ---- ;; Replacement for copy-plot-port. (de copy-plot-port(port &optional object) (let ((pp port) (pc (new PlotCurve))) (when (consp pp) + (setq object (or object (nth 2 pp))) (setq pp (cadr pp)) ) (when (not (is-of-class port PlotContext)) |
From: Leon B. <le...@us...> - 2010-01-28 19:57:05
|
Update of /cvsroot/lush/lush/lsh/libstd In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv18055 Modified Files: plotenv.lsh Log Message: copy-plot-port can take a plotcontext. Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** plotenv.lsh 31 Oct 2009 11:01:19 -0000 1.35 --- plotenv.lsh 28 Jan 2010 19:56:56 -0000 1.36 *************** *** 1416,1425 **** (de copy-plot-port(port &optional object) (setq object (or object (nth 2 port))) ! (let ((pp (cadr port)) (pc (new PlotCurve))) (when (functionp object) (let ((window (==> pp window))) (==> pc command `(setq current-object ,object)) ) ) ! (setq :pc:name "Compat1") (==> pp add pc) (list pc pp object) ) ) --- 1416,1429 ---- (de copy-plot-port(port &optional object) (setq object (or object (nth 2 port))) ! (let ((pp port) (pc (new PlotCurve))) + (when (consp 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) (let ((window (==> pp window))) (==> pc command `(setq current-object ,object)) ) ) ! (setq :pc:name "PlotPort1") (==> pp add pc) (list pc pp object) ) ) |
From: Yury S. <ys...@us...> - 2009-12-13 22:03:07
|
Update of /cvsroot/lush/lush/packages/fftw In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv10031 Modified Files: fftw.lsh Log Message: Added two functions: fftw-dct-1d fftw-dht-1d Index: fftw.lsh =================================================================== RCS file: /cvsroot/lush/lush/packages/fftw/fftw.lsh,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** fftw.lsh 16 Apr 2009 05:30:05 -0000 1.2 --- fftw.lsh 13 Dec 2009 22:02:58 -0000 1.3 *************** *** 149,152 **** --- 149,202 ---- ;; from complex to complex, and real to complex. + #? (fftw-dct-1d (in out forward norm) + ;; compute the 1D DCT-II transform of vector <in>, + ;; and put result in <out>. <forward> is an integer which + ;; should be set to 1 for a forward transform and + ;; to -1 for an inverse transform. <norm> is a + ;; boolean that should be set to nil for no + ;; normalization and t for normalization. + (de fftw-dct-1d (in out forward norm) + ((-idx1- (-double-)) in out) + ((-int-) forward) + ((-bool-) norm) + (when (<> (idx-dim in 0) (idx-dim out 0)) (error "input and output have different sizes")) + (when (or (not (contiguousp in)) (not (contiguousp out))) (error "vector not contiguous")) + (let ((n (idx-dim in 0))) + ((-int-) n) + #{{ fftw_plan p; + p = fftw_plan_r2r_1d($n, IDX_PTR($in,double), IDX_PTR($out,double), + (($forward>0)?FFTW_REDFT10:FFTW_REDFT01), FFTW_ESTIMATE); + fftw_execute(p); + fftw_destroy_plan(p); + }#} + (when norm + (let ((s (/ 0.5 (to-double n)))) ; extra factor of 2 in the DCT + ((-double-) s) + (cidx-bloop ("i" ("out" out)) #{ *out *= $s; #} ))) ())) + + + #? (fftw-dht-1d <in> <out> <norm>) + ;; computes the discrete hartley transform of <in> + ;; and puts the result into <out>. <norm> is a boolean + ;; that should be set to t to divide the output by its + ;; length. + (de fftw-dht-1d (in out norm) + ((-idx1- (-double-)) in out) + ((-bool-) norm) + (when (<> (idx-dim in 0) (idx-dim out 0)) (error "input and output have different sizes")) + (when (or (not (contiguousp in)) (not (contiguousp out))) (error "vector not contiguous")) + (let ((n (idx-dim in 0))) + ((-int-) n) + #{{ fftw_plan p; + p = fftw_plan_r2r_1d($n, IDX_PTR($in,double), IDX_PTR($out,double), + FFTW_DHT, FFTW_ESTIMATE); + fftw_execute(p); + fftw_destroy_plan(p); + }#} + (when norm + (let ((s (/ 1 (to-double n)))) + ((-double-) s) + (cidx-bloop ("i" ("out" out)) #{ *out *= $s; #} ))) ())) + #? (fftw-dft-c2c-1d <in> <out> <forward> <norm>) *************** *** 381,384 **** --- 431,436 ---- #{ #include <fftw3.h> #} ;; functions + fftw-dct-1d + fftw-dht-1d fftw-dft-c2c-1d fftw-dft-r2c-1d |
From: Yury S. <ys...@us...> - 2009-12-13 22:00:04
|
Update of /cvsroot/lush/lush/etc In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv9295 Modified Files: lush.el Log Message: fixed history navigation Index: lush.el =================================================================== RCS file: /cvsroot/lush/lush/etc/lush.el,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** lush.el 17 Nov 2008 05:24:14 -0000 1.15 --- lush.el 13 Dec 2009 21:59:55 -0000 1.16 *************** *** 119,122 **** --- 119,123 ---- (comint-send-string proc (concat expr "\n")) (comint-add-to-input-history expr) + (setq comint-input-ring-index nil) (command-execute 'comint-set-process-mark)) (goto-char cur))) *************** *** 125,128 **** --- 126,130 ---- (comint-send-string proc (concat expr "\n")) (comint-add-to-input-history expr) + (setq comint-input-ring-index nil) (command-execute 'comint-set-process-mark)))))))) |
From: Leon B. <le...@us...> - 2009-10-31 11:01:29
|
Update of /cvsroot/lush/lush/lsh/libstd In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv17267 Modified Files: plotenv.lsh Log Message: cosmetic adjustments to legend box. Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** plotenv.lsh 31 Oct 2009 03:58:36 -0000 1.34 --- plotenv.lsh 31 Oct 2009 11:01:19 -0000 1.35 *************** *** 258,262 **** cxmin cymin cxmax cymax rbx rby cxticks cyticks cxlabels cylabels ! legendrect legendlineh legendlogow legendlinex) (defmethod PlotContext -destructor() --- 258,263 ---- cxmin cymin cxmax cymax rbx rby cxticks cyticks cxlabels cylabels ! legendrect legendlineh ! legendlogox legendlogow legendlinex) (defmethod PlotContext -destructor() *************** *** 437,443 **** (incr ln) ) (setq legendlineh lh) ! (setq legendlogow (* 4 lh)) ! (setq legendlinex (* 5 lh)) ! (setq lw (+ lw (* lh 6))) (setq lh (* lh (1+ ln))) (let (((x y w h) crect)) --- 438,445 ---- (incr ln) ) (setq legendlineh lh) ! (setq legendlogox (* .67 lh)) ! (setq legendlogow (* 3 lh)) ! (setq legendlinex (* 4.33 lh)) ! (setq lw (+ lw (* lh 5))) (setq lh (* lh (1+ ln))) (let (((x y w h) crect)) *************** *** 571,579 **** (color color-bg) (fill-rect x y w h) (color color-fg) (draw-rect x y w h) - (incr x (* 0.5 legendlineh)) (incr y (* 1.5 legendlineh)) (plot-context-labels) (each ((curve curves)) ! (==> curve logo x (- y legendlineh) legendlogow legendlineh) (gprintf (+ x legendlinex) y "%s" :curve:name) (incr y legendlineh) ) ) ) ) --- 573,580 ---- (color color-bg) (fill-rect x y w h) (color color-fg) (draw-rect x y w h) (incr y (* 1.5 legendlineh)) (plot-context-labels) (each ((curve curves)) ! (==> curve logo (+ x legendlogox) (- y legendlineh) legendlogow legendlineh) (gprintf (+ x legendlinex) y "%s" :curve:name) (incr y legendlineh) ) ) ) ) *************** *** 758,761 **** --- 759,763 ---- (draw-line x y (+ x w) y) (incr x (2/ w)) + (linestyle 0) (current-object x y) ) ) ) ) ) |
From: Leon B. <le...@us...> - 2009-10-31 03:58:47
|
Update of /cvsroot/lush/lush/lsh/libstd In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv7468 Modified Files: plotenv.lsh Log Message: typo Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** plotenv.lsh 31 Oct 2009 03:55:20 -0000 1.33 --- plotenv.lsh 31 Oct 2009 03:58:36 -0000 1.34 *************** *** 446,450 **** (topleft (list (+ x legendlineh) y lw lh)) (bottomleft (list (+ x legendlineh) (- (+ y h) (+ lh legendlineh)) lw lh)) ! (bottomright (list (- (+ x w):v lw) (- (+ y h) (+ lh legendlineh)) lw lh)) (t (list (- (+ x w) lw) y lw lh)) ) ) ) ) ) ;; rbx --- 446,450 ---- (topleft (list (+ x legendlineh) y lw lh)) (bottomleft (list (+ x legendlineh) (- (+ y h) (+ lh legendlineh)) lw lh)) ! (bottomright (list (- (+ x w) lw) (- (+ y h) (+ lh legendlineh)) lw lh)) (t (list (- (+ x w) lw) y lw lh)) ) ) ) ) ) ;; rbx |
From: Leon B. <le...@us...> - 2009-10-31 03:55:31
|
Update of /cvsroot/lush/lush/lsh/libstd In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv7206 Modified Files: plotenv.lsh Log Message: make sure dialog does not change legend position. Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** plotenv.lsh 31 Oct 2009 03:51:13 -0000 1.32 --- plotenv.lsh 31 Oct 2009 03:55:20 -0000 1.33 *************** *** 968,972 **** (let ((s (==> titleedit getdata))) (setq :plot:title (when (<> s "") s)) ) ! (setq :plot:legend (==> legendbox getdata)) ) (defmethod PlotDataSetup name() --- 968,973 ---- (let ((s (==> titleedit getdata))) (setq :plot:title (when (<> s "") s)) ) ! (let ((b (==> legendbox getdata))) ! (setq :plot:legend (when b (or :plot:legend t))) ) ) (defmethod PlotDataSetup name() |
From: Leon B. <le...@us...> - 2009-10-31 03:51:22
|
Update of /cvsroot/lush/lush/lsh/libstd In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv6801 Modified Files: plotenv.lsh Log Message: Added funcs to position legend where we want. Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** plotenv.lsh 31 Oct 2009 03:39:03 -0000 1.31 --- plotenv.lsh 31 Oct 2009 03:51:13 -0000 1.32 *************** *** 432,446 **** (when legend (let ((lw 0)(lh 0)(ln 0)) ! (each ((curve curves)) ! (setq lh (max lh (==> this text-height :curve:name plot-context-labels))) ! (setq lw (max lw (==> this text-width :curve:name plot-context-labels))) ! (incr ln) ) ! (setq legendlineh lh) ! (setq legendlogow (* 4 lh)) ! (setq legendlinex (* 5 lh)) ! (setq lw (+ lw (* lh 6))) ! (setq lh (* lh (1+ ln))) ! (let (((x y w h) crect)) ! (setq legendrect (list (- (+ x w) lw) y lw lh)) ) ) ) ;; rbx (let (((cx cy cw ch) crect)) --- 432,451 ---- (when legend (let ((lw 0)(lh 0)(ln 0)) ! (each ((curve curves)) ! (setq lh (max lh (==> this text-height :curve:name plot-context-labels))) ! (setq lw (max lw (==> this text-width :curve:name plot-context-labels))) ! (incr ln) ) ! (setq legendlineh lh) ! (setq legendlogow (* 4 lh)) ! (setq legendlinex (* 5 lh)) ! (setq lw (+ lw (* lh 6))) ! (setq lh (* lh (1+ ln))) ! (let (((x y w h) crect)) ! (setq legendrect ! (selectq legend ! (topleft (list (+ x legendlineh) y lw lh)) ! (bottomleft (list (+ x legendlineh) (- (+ y h) (+ lh legendlineh)) lw lh)) ! (bottomright (list (- (+ x w):v lw) (- (+ y h) (+ lh legendlineh)) lw lh)) ! (t (list (- (+ x w) lw) y lw lh)) ) ) ) ) ) ;; rbx (let (((cx cy cw ch) crect)) *************** *** 1558,1562 **** (let ((f (lambda(pw pp pc k s) (letslot pp (set k (not (not s))) t) ))) ! (each ((k '(xlog ylog xgrid ygrid legend))) (putp k 'graph-options f) ) ) --- 1563,1572 ---- (let ((f (lambda(pw pp pc k s) (letslot pp (set k (not (not s))) t) ))) ! (each ((k '(xlog ylog xgrid ygrid))) ! (putp k 'graph-options f) ) ) ! ! (let ((f (lambda(pw pp pc k s) ! (letslot pp (set k (when (symbolp s) s)) t) ))) ! (each ((k '(legend))) (putp k 'graph-options f) ) ) |
From: Leon B. <le...@us...> - 2009-10-31 03:43:46
|
Update of /cvsroot/lush/lush/lsh/manual In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5998 Modified Files: graphics.hlp Log Message: documented legend Index: graphics.hlp =================================================================== RCS file: /cvsroot/lush/lush/lsh/manual/graphics.hlp,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** graphics.hlp 31 Oct 2007 20:23:12 -0000 1.20 --- graphics.hlp 31 Oct 2009 03:43:38 -0000 1.21 *************** *** 805,808 **** --- 805,812 ---- to display a grid for an axis. .IP + <(legend <symb>)> to display a legend with the curve names. + Argument <s> can be the empty list (no legend) or one of + the symbols <topright>, <topleft>, <bottomright>, <bottomleft>. + .IP <(xbounds <b>)> or <(ybounds <b>)> to specify the bounds of an axis. *************** *** 825,828 **** --- 829,834 ---- The following curve attributes are recognized: .IP + <(name <s>)> to specify the curve name. + .IP <(color-rgb <r> <g> <b>)> and <(color <c>)> to specify the curve color. |
From: Leon B. <le...@us...> - 2009-10-31 03:39:13
|
Update of /cvsroot/lush/lush/lsh/libstd In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5193 Modified Files: plotenv.lsh Log Message: *** empty log message *** Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** plotenv.lsh 31 Oct 2009 03:38:46 -0000 1.30 --- plotenv.lsh 31 Oct 2009 03:39:03 -0000 1.31 *************** *** 953,956 **** --- 953,957 ---- (new column (setq titleedit (new editstring 30)) + (new emptyspace 10 10) (setq legendbox (new checkbox "Display legend") ) ) ) ) |
From: Leon B. <le...@us...> - 2009-10-31 03:38:56
|
Update of /cvsroot/lush/lush/lsh/libstd In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5067 Modified Files: plotenv.lsh Log Message: Added legend with curve names. Index: plotenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** plotenv.lsh 11 Jan 2008 17:38:01 -0000 1.29 --- plotenv.lsh 31 Oct 2009 03:38:46 -0000 1.30 *************** *** 253,260 **** xgrid ygrid ;; flag telling whether grid lines must be drawn xlabel2str ylabel2str ;; functions to convert values into labels ;; computed values cmargintop cmarginbottom cmarginleft cmarginright crect cxmin cymin cxmax cymax rbx rby ! cxticks cyticks cxlabels cylabels ) (defmethod PlotContext -destructor() --- 253,262 ---- xgrid ygrid ;; flag telling whether grid lines must be drawn xlabel2str ylabel2str ;; functions to convert values into labels + legend ;; position of the legend ;; computed values cmargintop cmarginbottom cmarginleft cmarginright crect cxmin cymin cxmax cymax rbx rby ! cxticks cyticks cxlabels cylabels ! legendrect legendlineh legendlogow legendlinex) (defmethod PlotContext -destructor() *************** *** 294,298 **** (count 0) ) (while (member name names) ! (setq name (sprintf "%s%d" stem (incr count))) ) (setq :curve:name name) (setq names (cons name names)) ) ) ) ) --- 296,300 ---- (count 0) ) (while (member name names) ! (setq name (sprintf "%s %d" stem (incr count))) ) (setq :curve:name name) (setq names (cons name names)) ) ) ) ) *************** *** 427,430 **** --- 429,446 ---- (max 0 (- w (+ cmarginleft cmarginright))) (max 0 (- h (+ cmargintop cmarginbottom))) )) ) + ;; legend + (when legend + (let ((lw 0)(lh 0)(ln 0)) + (each ((curve curves)) + (setq lh (max lh (==> this text-height :curve:name plot-context-labels))) + (setq lw (max lw (==> this text-width :curve:name plot-context-labels))) + (incr ln) ) + (setq legendlineh lh) + (setq legendlogow (* 4 lh)) + (setq legendlinex (* 5 lh)) + (setq lw (+ lw (* lh 6))) + (setq lh (* lh (1+ ln))) + (let (((x y w h) crect)) + (setq legendrect (list (- (+ x w) lw) y lw lh)) ) ) ) ;; rbx (let (((cx cy cw ch) crect)) *************** *** 544,547 **** --- 560,576 ---- (graphics-batch (==> curve execute rbx rby this) ) ) ) + ;; draw legend + (when legend + (let (((x y w h) legendrect)) + (gsave + (color color-bg) (fill-rect x y w h) + (color color-fg) (draw-rect x y w h) + (incr x (* 0.5 legendlineh)) + (incr y (* 1.5 legendlineh)) + (plot-context-labels) + (each ((curve curves)) + (==> curve logo x (- y legendlineh) legendlogow legendlineh) + (gprintf (+ x legendlinex) y "%s" :curve:name) + (incr y legendlineh) ) ) ) ) ;; draw title (when title *************** *** 570,573 **** --- 599,606 ---- name ) + (defmethod PlotGenericCurve set-name(n) + (when (stringp n) (setq name n)) ) + + #? PlotCurve ;; The only curve type currently implemented. *************** *** 705,708 **** --- 738,758 ---- (list xmin ymin xmax ymax) ) ) ) + (defmethod PlotCurve logo rect + (gsave + (when (addclip rect) + (color -1) + (linestyle 0) + (let ((current-object open-square) + (object-size 3) + (sd-bar-size 3)) + (each ((cmd (reverse cmds))) + (when (member (car cmd) '(color color-rgb linestyle setq)) + (eval cmd) ) ) + (let (((x y w h) rect)) + (incr y (2/ h)) + (draw-line x y (+ x w) y) + (incr x (2/ w)) + (current-object x y) ) ) ) ) ) + (defmethod PlotCurve set-color(c) (when (not (numberp c)) *************** *** 896,912 **** (defclass PlotDataSetup Form ! titleedit ) (defmethod PlotDataSetup PlotDataSetup() (==> this form (new column ! (setq titleedit (new editstring 30)) ) ) ) (defmethod PlotDataSetup load(plot) ! (==> titleedit setdata (or :plot:title "")) ) (defmethod PlotDataSetup save(plot) (let ((s (==> titleedit getdata))) ! (setq :plot:title (when (<> s "") s)) ) ) (defmethod PlotDataSetup name() --- 946,966 ---- (defclass PlotDataSetup Form ! titleedit ! legendbox ) (defmethod PlotDataSetup PlotDataSetup() (==> this form (new column ! (setq titleedit (new editstring 30)) ! (setq legendbox (new checkbox "Display legend") ) ) ) ) (defmethod PlotDataSetup load(plot) ! (==> titleedit setdata (or :plot:title "")) ! (==> legendbox setdata :plot:legend) ) (defmethod PlotDataSetup save(plot) (let ((s (==> titleedit getdata))) ! (setq :plot:title (when (<> s "") s)) ) ! (setq :plot:legend (==> legendbox getdata)) ) (defmethod PlotDataSetup name() *************** *** 1503,1507 **** (let ((f (lambda(pw pp pc k s) (letslot pp (set k (not (not s))) t) ))) ! (each ((k '(xlog ylog xgrid ygrid))) (putp k 'graph-options f) ) ) --- 1557,1561 ---- (let ((f (lambda(pw pp pc k s) (letslot pp (set k (not (not s))) t) ))) ! (each ((k '(xlog ylog xgrid ygrid legend))) (putp k 'graph-options f) ) ) *************** *** 1530,1538 **** (let ((f (lambda(pw pp pc k . args) (setq k (namedclean (concat "set-" (nameof k)))) ! (if (and pc (check==> (classof pc) k)) ! (eval (list ==> pc k . args)) ! (printf "+++ warning: unrecognized option: %l\n" ! (cons k args)) ) ))) ! (each ((k '(color color-rgb linestyle object object-size sd-bar-size))) (putp k 'graph-options f) ) ) --- 1584,1592 ---- (let ((f (lambda(pw pp pc k . args) (setq k (namedclean (concat "set-" (nameof k)))) ! (if (and pc (check==> (classof pc) k)) ! (prog1 (eval (list ==> pc k . args)) ! (when (= k 'set-name) (==> pp make-unique-names)) ) ! (printf "+++ warning: unrecognized option: %l\n" (cons k args)) ) ))) ! (each ((k '(color color-rgb linestyle object object-size sd-bar-size name))) (putp k 'graph-options f) ) ) |
From: rj <rju...@us...> - 2009-10-29 20:21:23
|
Update of /cvsroot/lush/lush-www/gtml In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv3505/gtml Modified Files: latest-news older-news Log Message: updated news Index: latest-news =================================================================== RCS file: /cvsroot/lush/lush-www/gtml/latest-news,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** latest-news 30 Jan 2007 06:16:55 -0000 1.10 --- latest-news 29 Oct 2009 20:21:08 -0000 1.11 *************** *** 1,2 **** --- 1,4 ---- + <b>2009-10-19</b>: A first <a href="https://sourceforge.net/projects/lush/files/">Lush 2.0 beta</a> is out! + <p> <b>2007-01-05</b>: Our warmest thanks go to <a href="http://www.onerussian.com/">Yaroslav Halchenko</a> *************** *** 10,22 **** Our thanks go to <A href="http://www.mneuroth.de/">Michael Neuroth.</a> <p> - <b>2004-09-18</b>: A new library Support Vector Machine (SVM) and - kernel-based methods was added to the CVS version (see lush/packages/svm). - <p> - <b>2004-06-13</b>: added support for serial and parallel port in CVS version. - <p> - <b>2004-01-24</b>: Problem on Mandrake 9.2/10.0: - it seems that the version of GCC distributed with Mandrake Linux - (and other distros) has a bug that prevents Lush from running - properly. The fix? edit lush/src/Makefile and change the "-O3" by a "-O2" - in the line that begins with "OPTS=". - <p> --- 12,13 ---- Index: older-news =================================================================== RCS file: /cvsroot/lush/lush-www/gtml/older-news,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** older-news 18 Jan 2005 06:03:57 -0000 1.5 --- older-news 29 Oct 2009 20:21:08 -0000 1.6 *************** *** 1,2 **** --- 1,13 ---- + <b>2004-09-18</b>: A new library Support Vector Machine (SVM) and + kernel-based methods was added to the CVS version (see lush/packages/svm). + <p> + <b>2004-06-13</b>: added support for serial and parallel port in CVS version. + <p> + <b>2004-01-24</b>: Problem on Mandrake 9.2/10.0: + it seems that the version of GCC distributed with Mandrake Linux + (and other distros) has a bug that prevents Lush from running + properly. The fix? edit lush/src/Makefile and change the "-O3" by a "-O2" + in the line that begins with "OPTS=". + <p> <b>2003-11-15</b>: Version 0.99 is out. Lots of bug fixes, new libraries, improved documentation, Cygwin compatibility, |
From: Leon B. <le...@us...> - 2009-10-23 22:50:24
|
Update of /cvsroot/lush/lush/lsh/libc In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv12887 Modified Files: fortran.lsh Log Message: fixed for old gnu fortrans. Index: fortran.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libc/fortran.lsh,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** fortran.lsh 23 Oct 2009 21:09:10 -0000 1.4 --- fortran.lsh 23 Oct 2009 22:50:15 -0000 1.5 *************** *** 68,93 **** (let ((cc (getconf "CC")) (f77 (getconf "F77")) ! (libgcc-gcc ()) ! (libgcc-f77 ()) (libf77 ()) ) ;; Locate libgcc - (reading (concat "| " cc " --print-file-name=libgcc.a") - (setq libgcc-gcc (read-string)) ) (reading (concat "| " f77 " --print-file-name=libgcc.a") ! (setq libgcc-f77 (read-string)) ) ! (when (and (filep libgcc-gcc) (filep libgcc-f77) (<> libgcc-gcc libgcc-f77)) ! (printf "*** Warning: C and fortran compilers use different versions of libgcc\n") ! (printf "*** Fortran support might be unreliable\n") ) ;; Search fortran lib ! (when (filep libgcc-f77) ! (let* ((gcc-dir (dirname libgcc-f77)) ! (shared-library-path (list gcc-dir)) ! (exists (lambda(s) (when (filep s) s))) ) (setq libf77 (or (find-shared-library "libgfortran") (find-shared-library "libg2c") ) ) (when (not libf77) (when (setq libf77 ! (or (exists (filep (concat-fname gcc-dir "libgfortran.a"))) ! (exists (filep (concat-fname gcc-dir "libg2c.a"))) ) ) (setq fortran-libs-static-p t) ) ) ) ) ;; Keep searching --- 68,89 ---- (let ((cc (getconf "CC")) (f77 (getconf "F77")) ! (exists (lambda(s) (when (filep s) s))) ! (libgcc ()) (libf77 ()) ) ;; Locate libgcc (reading (concat "| " f77 " --print-file-name=libgcc.a") ! (setq libgcc (or libgcc (exists (read-string)))) ) ! (reading (concat "| " cc " --print-file-name=libgcc.a") ! (setq libgcc (or libgcc (exists (read-string)))) ) ;; Search fortran lib ! (when (filep libgcc) ! (let* ((libgcc-dir (dirname libgcc)) ! (shared-library-path (list libgcc-dir)) ) (setq libf77 (or (find-shared-library "libgfortran") (find-shared-library "libg2c") ) ) (when (not libf77) (when (setq libf77 ! (or (exists (concat-fname libgcc-dir "libgfortran.a")) ! (exists (concat-fname libgcc-dir "libg2c.a")) ) ) (setq fortran-libs-static-p t) ) ) ) ) ;; Keep searching |
From: Leon B. <le...@us...> - 2009-10-23 21:50:47
|
Update of /cvsroot/lush/lush/sys In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv2221/sys Modified Files: sysenv.lsh Log Message: Find shared library by following ld.so.conf more smartly Index: sysenv.lsh =================================================================== RCS file: /cvsroot/lush/lush/sys/sysenv.lsh,v retrieving revision 1.126 retrieving revision 1.127 diff -C2 -d -r1.126 -r1.127 *** sysenv.lsh 25 Jan 2008 22:59:47 -0000 1.126 --- sysenv.lsh 23 Oct 2009 21:50:36 -0000 1.127 *************** *** 1748,1764 **** (find-file static-library-path name extlist) ) (de find-shared-library(name &optional extlist) ! (let ((p shared-library-path)) ! (when (not extlist) ! (setq extlist '("")) ! (when (not (index "." (basename name))) ! (setq extlist (list (concat "." (or (getconf "SOEXT") "so")))) ) ) ! (when (filep "/etc/ld.so.conf") ! (reading "/etc/ld.so.conf" ! (while (<> (skip-char) "\e") ! (let ((d (read-string "~\n\r\t\b "))) ! (when (and (dirp d) (not (member d p))) ! (setq p (cons d p)) ) ) ) ) ) ! (find-file (reverse p) name extlist) ) ) (de find-shared-or-static-library(name &optional extlist) --- 1748,1776 ---- (find-file static-library-path name extlist) ) + (de find-shared-library.parse(file p) + (when (filep file) + (reading file + (while (<> (skip-char "\n\r\t ") "\e") + (let ((d (read-string "~\n\r\t\b"))) + (cond + ((regex-match " *include +.+" d) + (reading (concat "|" (regex-subst " *include" "echo" d)) + (while (<> (skip-char) "\e") + (setq p (find-shared-library.parse (read-string "~\n\r\t\b ") p)) ) ) ) + ((and (dirp d) (not (member d p))) + (setq p (nconc1 p d)) ) ) ) ) ) ) + p ) + + (de find-shared-library.linux() + ;; maybe expand dirs with cpuflags here? + (find-shared-library.parse "/etc/ld.so.conf" ()) ) + (de find-shared-library(name &optional extlist) ! (when (not extlist) ! (setq extlist '("")) ! (when (not (index "." (basename name))) ! (setq extlist (list (concat "." (or (getconf "SOEXT") "so")))) ) ) ! (let ((p (nconc (find-shared-library.linux) shared-library-path))) ! (find-file p name extlist) ) ) (de find-shared-or-static-library(name &optional extlist) *************** *** 1767,1770 **** --- 1779,1784 ---- (lock-symbol find-c-include + find-shared-library.parse + find-shared-library.linux find-shared-library find-static-library |
From: Leon B. <le...@us...> - 2009-10-23 21:09:18
|
Update of /cvsroot/lush/lush/lsh/libc In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv26663 Modified Files: fortran.lsh Log Message: adjust for modern gnu fortran (gfortran) Index: fortran.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libc/fortran.lsh,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** fortran.lsh 2 Jan 2003 20:13:59 -0000 1.3 --- fortran.lsh 23 Oct 2009 21:09:10 -0000 1.4 *************** *** 66,113 **** ;;;; SPECIAL CODE FOR GCC (when (= (getconf "GCC") "yes") ! (let ((libgcc ()) ! (libg77 ()) ! (libg77name "libg2c") ) ;; Locate libgcc ! (reading (concat "| " (getconf "CC") " --print-file-name=libgcc.a") ! (setq libgcc (read-string)) ) ! (when (filep libgcc) ! ;; Search shared lib in libgcc path ! ;; Note: libg77 is a wild guess for future versions of g77 ! (let ((shared-library-path (list (dirname libgcc)))) ! (setq libg77 (or (find-shared-library "libg77") ! (find-shared-library "libg2c") ) ) ) ! ;; Decide g77 support library name ! (when (not libg77) ! (when (filep (concat-fname (dirname libgcc) "libg77.a")) ! (setq libg77name "libg77") ) ) ) ! ;; Search shared library ! (when (not libg77) ! (setq libg77 (find-shared-library libg77name)) ) ! ;; Search static library ! (when (not libg77) ! (let ((static-library-path static-library-path)) ! (when (filep libgcc) ! (setq static-library-path (cons (dirname libgcc) static-library-path)) ) ! (when (setq libg77 (find-static-library libg77name)) (setq fortran-libs-static-p t) ) ) ) ;; Trouble ! (when (not libg77) ! (when (not (setq libg77 (find-shared-library "libf2c"))) ! (when (setq libg77 (find-static-library "libf2c")) (setq fortran-libs-static-p t) ) ) ! (when libg77 (printf "*** Warning: Cannot find libg2c. Found libf2c instead\n") (printf "*** Fortran support might be incomplete and/or unreliable\n") ) ) ;; Big trouble ! (when (not libg77) ! (printf "*** Warning: Cannot find libg2c.\n") (printf "*** Fortran support will be incomplete and/or unreliable\n") ) ;; Store ! (when (and (stringp libg77) (filep libg77)) ! (setq fortran-libs (list libg77)) ) ) ) ! ! ;;; CODE FOR NON-GCC OR NON-G77 (when (not fortran-libs) (each ((lib (list "libF77" "libV77"))) ;; insert more --- 66,121 ---- ;;;; SPECIAL CODE FOR GCC (when (= (getconf "GCC") "yes") ! (let ((cc (getconf "CC")) ! (f77 (getconf "F77")) ! (libgcc-gcc ()) ! (libgcc-f77 ()) ! (libf77 ()) ) ;; Locate libgcc ! (reading (concat "| " cc " --print-file-name=libgcc.a") ! (setq libgcc-gcc (read-string)) ) ! (reading (concat "| " f77 " --print-file-name=libgcc.a") ! (setq libgcc-f77 (read-string)) ) ! (when (and (filep libgcc-gcc) (filep libgcc-f77) (<> libgcc-gcc libgcc-f77)) ! (printf "*** Warning: C and fortran compilers use different versions of libgcc\n") ! (printf "*** Fortran support might be unreliable\n") ) ! ;; Search fortran lib ! (when (filep libgcc-f77) ! (let* ((gcc-dir (dirname libgcc-f77)) ! (shared-library-path (list gcc-dir)) ! (exists (lambda(s) (when (filep s) s))) ) ! (setq libf77 (or (find-shared-library "libgfortran") ! (find-shared-library "libg2c") ) ) ! (when (not libf77) ! (when (setq libf77 ! (or (exists (filep (concat-fname gcc-dir "libgfortran.a"))) ! (exists (filep (concat-fname gcc-dir "libg2c.a"))) ) ) ! (setq fortran-libs-static-p t) ) ) ) ) ! ;; Keep searching ! (when (and (not libf77) (not (= f77 "g77"))) ! (when (not (setq libf77 (find-shared-library "libgfortran"))) ! (when (setq libf77 (find-static-library "libgfortran")) ! (setq fortran-libs-static-p t) ) ) ) ! (when (and (not libf77) (not (= f77 "gfortran"))) ! (when (not (setq libf77 (find-shared-library "libg2c"))) ! (when (setq libf77 (find-static-library "libg2c")) (setq fortran-libs-static-p t) ) ) ) ;; Trouble ! (when (and (not libf77) (not (= f77 "gfortran"))) ! (when (not (setq libf77 (find-shared-library "libf2c"))) ! (when (setq libf77 (find-static-library "libf2c")) (setq fortran-libs-static-p t) ) ) ! (when libf77 (printf "*** Warning: Cannot find libg2c. Found libf2c instead\n") (printf "*** Fortran support might be incomplete and/or unreliable\n") ) ) ;; Big trouble ! (when (not libf77) ! (printf "*** Warning: Cannot find fortran support library.\n") (printf "*** Fortran support will be incomplete and/or unreliable\n") ) ;; Store ! (when (and (stringp libf77) (filep libf77)) ! (setq fortran-libs (list libf77)) ) ) ) ! ! ;;; CODE FOR NON-GCC OR NON-GFORTRAN (when (not fortran-libs) (each ((lib (list "libF77" "libV77"))) ;; insert more |
From: Leon B. <le...@us...> - 2009-10-16 16:07:20
|
Update of /cvsroot/lush/lush/include In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv16398/include Modified Files: check_func.h dh.h header.h Log Message: constipation. Index: header.h =================================================================== RCS file: /cvsroot/lush/lush/include/header.h,v retrieving revision 1.69 retrieving revision 1.70 diff -C2 -d -r1.69 -r1.70 *** header.h 1 Dec 2008 19:53:27 -0000 1.69 --- header.h 16 Oct 2009 16:07:04 -0000 1.70 *************** *** 99,103 **** /* interruptions */ extern TLAPI int break_attempt; ! TLAPI void lastchance(char *s) no_return; /* unix hooks */ void init_unix(void); --- 99,103 ---- /* interruptions */ extern TLAPI int break_attempt; ! TLAPI void lastchance(const char *s) no_return; /* unix hooks */ void init_unix(void); *************** *** 368,377 **** /* Allocation functions */ ! LUSHAPI void *lush_malloc(int,char*,int); ! LUSHAPI void *lush_calloc(int,int,char*,int); ! LUSHAPI void *lush_realloc(gptr,int,char*,int); ! LUSHAPI void lush_free(gptr,char*,int); ! LUSHAPI void lush_cfree(gptr,char*,int); ! LUSHAPI void set_malloc_file(char*); /* Malloc debug file (from sn3.2) */ --- 368,377 ---- /* Allocation functions */ ! LUSHAPI void *lush_malloc(int,const char*,int); ! LUSHAPI void *lush_calloc(int,int,const char*,int); ! LUSHAPI void *lush_realloc(gptr,int,const char*,int); ! LUSHAPI void lush_free(gptr,const char*,int); ! LUSHAPI void lush_cfree(gptr,const char*,int); ! LUSHAPI void set_malloc_file(const char*); /* Malloc debug file (from sn3.2) */ *************** *** 431,437 **** ! TLAPI at *new_symbol(char *s); ! TLAPI at *named(char *s); ! TLAPI at *namedclean(char *s); TLAPI char *nameof(at *p); TLAPI void symbol_push (at *p, at *q); --- 431,437 ---- ! TLAPI at *new_symbol(const char *s); ! TLAPI at *named(const char *s); ! TLAPI at *namedclean(const char *s); TLAPI char *nameof(at *p); TLAPI void symbol_push (at *p, at *q); *************** *** 445,449 **** TLAPI void var_lock(at *p); TLAPI at *var_get(at *p); ! TLAPI at *var_define(char *s); --- 445,449 ---- TLAPI void var_lock(at *p); TLAPI at *var_get(at *p); ! TLAPI at *var_define(const char *s); *************** *** 471,476 **** at *this_call; at *error_call; ! char *error_prefix; ! char *error_text; at *error_suffix; short debug_tab; --- 471,476 ---- at *this_call; at *error_call; ! const char *error_prefix; ! const char *error_text; at *error_suffix; short debug_tab; *************** *** 505,510 **** TLAPI int recur_push_ok(struct recur_elt *elt, void *call, at *p); TLAPI void recur_pop(struct recur_elt *elt); ! TLAPI void toplevel(char *in, char *out, char *new_prompt); ! TLAPI void error(char *prefix, char *text, at *suffix) no_return; TLAPI void user_break(char *s); TLAPI void init_lush (char *program_name); --- 505,510 ---- TLAPI int recur_push_ok(struct recur_elt *elt, void *call, at *p); TLAPI void recur_pop(struct recur_elt *elt); ! TLAPI void toplevel(const char *in, const char *out, const char *new_prompt); ! TLAPI void error(const char *prefix, const char *text, at *suffix) no_return; TLAPI void user_break(char *s); TLAPI void init_lush (char *program_name); *************** *** 654,682 **** #define OPEN_WRITE(f,s) new_extern(&file_W_class,open_write(f,s)) ! TLAPI char *cwd(char *s); ! TLAPI at *files(char *s); ! TLAPI int dirp(char *s); ! TLAPI int filep(char *s); ! TLAPI char *dirname(char *fname); ! TLAPI char *basename(char *fname, char *suffix); ! TLAPI char *concat_fname(char *from, char *fname); ! TLAPI char *relative_fname(char *from, char *fname); TLAPI void clean_tmp_files(void); ! TLAPI char *tmpname(char *s, char *suffix); ! TLAPI char *search_file(char *s, char *suffixes); TLAPI void test_file_error(FILE *f); ! TLAPI FILE *open_read(char *s, char *suffixes); ! TLAPI FILE *open_write(char *s, char *suffixes); ! TLAPI FILE *open_append(char *s, char *suffixes); ! TLAPI FILE *attempt_open_read(char *s, char *suffixes); ! TLAPI FILE *attempt_open_write(char *s, char *suffixes); ! TLAPI FILE *attempt_open_append(char *s, char *suffixes); TLAPI void file_close(FILE *f); ! TLAPI void set_script(char *s); TLAPI int read4(FILE *f); TLAPI int write4(FILE *f, unsigned int l); TLAPI off_t file_size(FILE *f); #ifndef HAVE_STRERROR ! TLAPI char *strerror(int errno); #endif --- 654,682 ---- #define OPEN_WRITE(f,s) new_extern(&file_W_class,open_write(f,s)) ! TLAPI char *cwd(const char *s); ! TLAPI at *files(const char *s); ! TLAPI int dirp(const char *s); ! TLAPI int filep(const char *s); ! TLAPI const char *dirname(const char *fname); ! TLAPI const char *basename(const char *fname, const char *suffix); ! TLAPI const char *concat_fname(const char *from, const char *fname); ! TLAPI const char *relative_fname(const char *from, const char *fname); TLAPI void clean_tmp_files(void); ! TLAPI const char *tmpname(const char *s, const char *suffix); ! TLAPI const char *search_file(const char *s, const char *suffixes); TLAPI void test_file_error(FILE *f); ! TLAPI FILE *open_read(const char *s, const char *suffixes); ! TLAPI FILE *open_write(const char *s, const char *suffixes); ! TLAPI FILE *open_append(const char *s, const char *suffixes); ! TLAPI FILE *attempt_open_read(const char *s, const char *suffixes); ! TLAPI FILE *attempt_open_write(const char *s, const char *suffixes); ! TLAPI FILE *attempt_open_append(const char *s, const char *suffixes); TLAPI void file_close(FILE *f); ! TLAPI void set_script(const char *s); TLAPI int read4(FILE *f); TLAPI int write4(FILE *f, unsigned int l); TLAPI off_t file_size(FILE *f); #ifndef HAVE_STRERROR ! TLAPI const char *strerror(int errno); #endif *************** *** 690,694 **** TLAPI void print_char (char c); ! TLAPI void print_string(char *s); TLAPI void print_list(at *list); TLAPI void print_tab(int n); --- 690,694 ---- TLAPI void print_char (char c); ! TLAPI void print_string(const char *s); TLAPI void print_list(at *list); TLAPI void print_tab(int n); *************** *** 699,703 **** TLAPI int ask (char *t); TLAPI char *dmc(char *s, at *l); ! TLAPI char skip_char(char *s); TLAPI char skip_to_expr(void); TLAPI at *read_list(void); --- 699,703 ---- TLAPI int ask (char *t); TLAPI char *dmc(char *s, at *l); ! TLAPI char skip_char(const char *s); TLAPI char skip_to_expr(void); TLAPI at *read_list(void); *************** *** 786,803 **** extern LUSHAPI class module_class; ! TLAPI void class_define(char *name, class *cl); ! TLAPI void dx_define(char *name, at *(*addr) (int, at **)); ! TLAPI void dy_define(char *name, at *(*addr) (at *)); ! LUSHAPI void dxmethod_define(class *cl, char *name, at *(*addr) (int, at **)); ! LUSHAPI void dymethod_define(class *cl, char *name, at *(*addr) (at *)); ! LUSHAPI void dhclass_define(char *name, dhclassdoc_t *kclass); ! LUSHAPI void dh_define(char *name, dhdoc_t *kname); ! LUSHAPI void dhmethod_define(dhclassdoc_t *kclass, char *name, dhdoc_t *kname); LUSHAPI void check_primitive(at *prim, void *info); LUSHAPI at *find_primitive(at *module, at *name); LUSHAPI at *module_list(void); ! LUSHAPI at *module_load(char *filename, at *hook); LUSHAPI void module_unload(at *atmodule); --- 786,803 ---- extern LUSHAPI class module_class; ! TLAPI void class_define(const char *name, class *cl); ! TLAPI void dx_define(const char *name, at *(*addr) (int, at **)); ! TLAPI void dy_define(const char *name, at *(*addr) (at *)); ! LUSHAPI void dxmethod_define(class *cl, const char *name, at *(*addr) (int, at **)); ! LUSHAPI void dymethod_define(class *cl, const char *name, at *(*addr) (at *)); ! LUSHAPI void dhclass_define(const char *name, dhclassdoc_t *kclass); ! LUSHAPI void dh_define(const char *name, dhdoc_t *kname); ! LUSHAPI void dhmethod_define(dhclassdoc_t *kclass, const char *name, dhdoc_t *kname); LUSHAPI void check_primitive(at *prim, void *info); LUSHAPI at *find_primitive(at *module, at *name); LUSHAPI at *module_list(void); ! LUSHAPI at *module_load(const char *filename, at *hook); LUSHAPI void module_unload(at *atmodule); *************** *** 1287,1291 **** extern LUSHAPI int run_time_error_flag; extern LUSHAPI jmp_buf run_time_error_jump; ! LUSHAPI void run_time_error(char *s); --- 1287,1291 ---- extern LUSHAPI int run_time_error_flag; extern LUSHAPI jmp_buf run_time_error_jump; ! LUSHAPI void run_time_error(const char *s); *************** *** 1315,1319 **** /* Compatible event queue functions */ LUSHAPI void enqueue_event(at*, int event, int, int, int, int); ! LUSHAPI void enqueue_eventdesc(at*, int event, int, int, int, int, char*); #define EVENT_NONE (-1L) #define EVENT_ASCII_MIN (0L) --- 1315,1319 ---- /* Compatible event queue functions */ LUSHAPI void enqueue_event(at*, int event, int, int, int, int); ! LUSHAPI void enqueue_eventdesc(at*, int event, int, int, int, int, const char*); #define EVENT_NONE (-1L) #define EVENT_ASCII_MIN (0L) Index: dh.h =================================================================== RCS file: /cvsroot/lush/lush/include/dh.h,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** dh.h 23 Oct 2004 01:23:55 -0000 1.20 --- dh.h 16 Oct 2009 16:07:04 -0000 1.21 *************** *** 127,131 **** short access; /* Type of access */ short ndim; /* number of dimensions/fields */ ! char *name; /* field name */ void *arg; /* field argument */ struct s_dhrecord *end; /* point on the next dhrecord. */ --- 127,131 ---- short access; /* Type of access */ short ndim; /* number of dimensions/fields */ ! const char *name; /* field name */ void *arg; /* field argument */ struct s_dhrecord *end; /* point on the next dhrecord. */ *************** *** 234,241 **** dhrecord *argdata; /* points to the metainformation records */ struct { ! char *c_name; /* string with the C_name */ ! char *m_name; /* string with the M_name or nil */ dharg (*call)(dharg *); /* pointer to the X_name function */ ! char *k_name; /* string with the K_name_Rxxxxxxxx */ dhdoc_t *dhtest; /* pointer to the dhdoc for the testfunc */ } lispdata; --- 234,241 ---- dhrecord *argdata; /* points to the metainformation records */ struct { ! const char *c_name; /* string with the C_name */ ! const char *m_name; /* string with the M_name or nil */ dharg (*call)(dharg *); /* pointer to the X_name function */ ! const char *k_name; /* string with the K_name_Rxxxxxxxx */ dhdoc_t *dhtest; /* pointer to the dhdoc for the testfunc */ } lispdata; *************** *** 299,308 **** struct { dhclassdoc_t *ksuper; /* dhclassdoc for the superclass */ ! char *lname; /* string with the lisp class name */ ! char *cname; /* string with the c class name (prepend CClass_ or VClass_) */ ! char *v_name; /* string with the name of the vtable (V_name_Rxxxxxxxx) */ ! char *k_name; /* string with the name of the classdoc (K_name_Rxxxxxxxx) */ int size; /* data size */ --- 299,308 ---- struct { dhclassdoc_t *ksuper; /* dhclassdoc for the superclass */ ! const char *lname; /* string with the lisp class name */ ! const char *cname; /* string with the c class name (prepend CClass_ or VClass_) */ ! const char *v_name; /* string with the name of the vtable (V_name_Rxxxxxxxx) */ ! const char *k_name; /* string with the name of the classdoc (K_name_Rxxxxxxxx) */ int size; /* data size */ Index: check_func.h =================================================================== RCS file: /cvsroot/lush/lush/include/check_func.h,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** check_func.h 23 Oct 2004 01:23:55 -0000 1.10 --- check_func.h 16 Oct 2009 16:07:04 -0000 1.11 *************** *** 50,54 **** struct dh_trace_stack { ! char *info; struct dh_trace_stack *next; }; --- 50,54 ---- struct dh_trace_stack { ! const char *info; struct dh_trace_stack *next; }; *************** *** 128,133 **** ! LUSHAPI void srg_resize_compiled(struct srg* ,intg ,char *, int); ! LUSHAPI void srg_resize(struct srg *, intg , char *, int ); LUSHAPI void srg_free(struct srg *); --- 128,133 ---- ! LUSHAPI void srg_resize_compiled(struct srg* ,intg, const char *, int); ! LUSHAPI void srg_resize(struct srg *, intg , const char *, int ); LUSHAPI void srg_free(struct srg *); |
From: Leon B. <le...@us...> - 2009-10-16 16:07:13
|
Update of /cvsroot/lush/lush/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv16398/src Modified Files: allocate.c check_func.c dh.c dump.c event.c fileio.c io.c lisp_c.c module.c symbol.c toplevel.c unix.c Log Message: constipation. Index: unix.c =================================================================== RCS file: /cvsroot/lush/lush/src/unix.c,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** unix.c 11 Nov 2008 22:20:31 -0000 1.63 --- unix.c 16 Oct 2009 16:07:05 -0000 1.64 *************** *** 250,254 **** void ! lastchance(char *s) { static int already = 0; --- 250,254 ---- void ! lastchance(const char *s) { static int already = 0; Index: allocate.c =================================================================== RCS file: /cvsroot/lush/lush/src/allocate.c,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** allocate.c 7 Feb 2004 01:32:49 -0000 1.15 --- allocate.c 16 Oct 2009 16:07:05 -0000 1.16 *************** *** 475,479 **** static FILE *malloc_file = 0; ! void set_malloc_file(char *s) { if (malloc_file) --- 475,479 ---- static FILE *malloc_file = 0; ! void set_malloc_file(const char *s) { if (malloc_file) *************** *** 486,490 **** ! void *lush_malloc(int x, char *file, int line) { void *z = malloc(x); --- 486,490 ---- ! void *lush_malloc(int x, const char *file, int line) { void *z = malloc(x); *************** *** 497,501 **** ! void *lush_calloc(int x,int y,char *file,int line) { void *z = calloc(x,y); --- 497,501 ---- ! void *lush_calloc(int x,int y,const char *file,int line) { void *z = calloc(x,y); *************** *** 507,511 **** } ! void *lush_realloc(void *x,int y,char *file,int line) { void *z = (void*)realloc(x,y); --- 507,511 ---- } ! void *lush_realloc(void *x,int y,const char *file,int line) { void *z = (void*)realloc(x,y); *************** *** 520,524 **** ! void lush_free(void *x,char *file,int line) { free(x); --- 520,524 ---- ! void lush_free(void *x,const char *file,int line) { free(x); *************** *** 527,531 **** } ! void lush_cfree(void *x,char *file,int line) { #if HAVE_CFREE --- 527,531 ---- } ! void lush_cfree(void *x,const char *file,int line) { #if HAVE_CFREE Index: lisp_c.c =================================================================== RCS file: /cvsroot/lush/lush/src/lisp_c.c,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 *** lisp_c.c 20 Dec 2007 03:46:17 -0000 1.37 --- lisp_c.c 16 Oct 2009 16:07:05 -0000 1.38 *************** *** 2617,2621 **** void ! run_time_error(char *s) { if (run_time_error_flag) --- 2617,2621 ---- void ! run_time_error(const char *s) { if (run_time_error_flag) Index: toplevel.c =================================================================== RCS file: /cvsroot/lush/lush/src/toplevel.c,v retrieving revision 1.40 retrieving revision 1.41 diff -C2 -d -r1.40 -r1.41 *** toplevel.c 26 May 2008 17:22:23 -0000 1.40 --- toplevel.c 16 Oct 2009 16:07:05 -0000 1.41 *************** *** 106,111 **** /* From DUMP.C */ ! extern int isdump (char *s); ! extern void undump (char *s); /* From BINARY.C */ --- 106,111 ---- /* From DUMP.C */ ! extern int isdump (const char *s); ! extern void undump (const char *s); /* From BINARY.C */ *************** *** 229,233 **** at **where; int i; ! char *s, *r; error_doc.script_file = NIL; error_doc.script_mode = SCRIPT_OFF; --- 229,233 ---- at **where; int i; ! const char *s, *r; error_doc.script_file = NIL; error_doc.script_mode = SCRIPT_OFF; *************** *** 486,490 **** void ! toplevel(char *in, char *out, char *prompts) { FILE *f1, *f2; --- 486,490 ---- void ! toplevel(const char *in, const char *out, const char *prompts) { FILE *f1, *f2; *************** *** 688,695 **** { extern char *print_buffer; ! char *prefix = error_doc.error_prefix; ! char *prefixsep = " : "; ! char *text = error_doc.error_text; ! char *textsep = " : "; at *suffix = error_doc.error_suffix; at *call = error_doc.error_call; --- 688,695 ---- { extern char *print_buffer; ! const char *prefix = error_doc.error_prefix; ! const char *prefixsep = " : "; ! const char *text = error_doc.error_text; ! const char *textsep = " : "; at *suffix = error_doc.error_suffix; at *call = error_doc.error_call; *************** *** 772,776 **** void ! error(char *prefix, char *text, at *suffix) { if (run_time_error_flag) --- 772,776 ---- void ! error(const char *prefix, const char *text, at *suffix) { if (run_time_error_flag) Index: dh.c =================================================================== RCS file: /cvsroot/lush/lush/src/dh.c,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** dh.c 17 Jan 2005 18:23:25 -0000 1.20 --- dh.c 16 Oct 2009 16:07:05 -0000 1.21 *************** *** 362,367 **** /* Remove extra chars added by enclose_in_string */ ! static char * ! strclean(char *s) { if (s != 0) --- 362,367 ---- /* Remove extra chars added by enclose_in_string */ ! static const char * ! strclean(const char *s) { if (s != 0) Index: module.c =================================================================== RCS file: /cvsroot/lush/lush/src/module.c,v retrieving revision 1.79 retrieving revision 1.80 diff -C2 -d -r1.79 -r1.80 *** module.c 20 Dec 2007 03:46:18 -0000 1.79 --- module.c 16 Oct 2009 16:07:05 -0000 1.80 *************** *** 543,547 **** fname = ""; if (m != &root) ! if (! (fname = relative_fname(lushdir_name, m->filename))) fname = m->filename; } --- 543,547 ---- fname = ""; if (m != &root) ! if (! (fname = (char*)relative_fname(lushdir_name, m->filename))) fname = m->filename; } *************** *** 1216,1222 **** at * ! module_load(char *filename, at *hook) { ! char *l; int len; at *ans; --- 1216,1222 ---- at * ! module_load(const char *fname, at *hook) { ! const char *l; int len; at *ans; *************** *** 1227,1231 **** #endif /* Check that file exists */ ! filename = concat_fname(NULL, filename); ans = new_string(filename); filename = SADD(ans->Object); --- 1227,1231 ---- #endif /* Check that file exists */ ! const char *filename = concat_fname(NULL, fname); ans = new_string(filename); filename = SADD(ans->Object); *************** *** 1276,1280 **** m->bundle.nsmodule = 0; #endif ! m->filename = filename = strdup(filename); m->initname = 0; m->initaddr = 0; --- 1276,1280 ---- m->bundle.nsmodule = 0; #endif ! filename = m->filename = strdup(filename); m->initname = 0; m->initaddr = 0; *************** *** 1333,1339 **** if (! m->initaddr) { strcpy(string_buffer, "init_"); strcat(string_buffer, basename(m->filename, 0)); ! if ((l = strchr(string_buffer, '.'))) l[0] = 0; m->initaddr = dynlink_symbol(m, string_buffer, 1, 1); } --- 1333,1341 ---- if (! m->initaddr) { + char *tmp; strcpy(string_buffer, "init_"); strcat(string_buffer, basename(m->filename, 0)); ! if ((tmp = strchr(string_buffer, '.'))) ! *tmp = 0; m->initaddr = dynlink_symbol(m, string_buffer, 1, 1); } *************** *** 1584,1588 **** void ! class_define(char *name, class *cl) { at *symb; --- 1586,1590 ---- void ! class_define(const char *name, class *cl) { at *symb; *************** *** 1606,1610 **** void ! dx_define(char *name, at *(*addr) (int, at **)) { at *symb = new_symbol(name); --- 1608,1612 ---- void ! dx_define(const char *name, at *(*addr) (int, at **)) { at *symb = new_symbol(name); *************** *** 1618,1622 **** void ! dy_define(char *name, at *(*addr) (at *)) { at *symb = new_symbol(name); --- 1620,1624 ---- void ! dy_define(const char *name, at *(*addr) (at *)) { at *symb = new_symbol(name); *************** *** 1630,1634 **** void ! dxmethod_define(class *cl, char *name, at *(*addr) (int, at **)) { at *symb = new_symbol(name); --- 1632,1636 ---- void ! dxmethod_define(class *cl, const char *name, at *(*addr) (int, at **)) { at *symb = new_symbol(name); *************** *** 1643,1647 **** void ! dymethod_define(class *cl, char *name, at *(*addr) (at *)) { at *symb = new_symbol(name); --- 1645,1649 ---- void ! dymethod_define(class *cl, const char *name, at *(*addr) (at *)) { at *symb = new_symbol(name); *************** *** 1656,1660 **** void ! dhclass_define(char *name, dhclassdoc_t *kclass) { at *symb; --- 1658,1662 ---- void ! dhclass_define(const char *name, dhclassdoc_t *kclass) { at *symb; *************** *** 1675,1679 **** void ! dh_define(char *name, dhdoc_t *kname) { at *symb = new_symbol(name); --- 1677,1681 ---- void ! dh_define(const char *name, dhdoc_t *kname) { at *symb = new_symbol(name); *************** *** 1687,1691 **** void ! dhmethod_define(dhclassdoc_t *kclass, char *name, dhdoc_t *kname) { at *symb, *priminame, *func; --- 1689,1693 ---- void ! dhmethod_define(dhclassdoc_t *kclass, const char *name, dhdoc_t *kname) { at *symb, *priminame, *func; Index: io.c =================================================================== RCS file: /cvsroot/lush/lush/src/io.c,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** io.c 25 May 2009 02:12:18 -0000 1.26 --- io.c 16 Oct 2009 16:07:05 -0000 1.27 *************** *** 425,429 **** */ static void ! make_testchar_map(char *s, char *buf) { memset(buf, 0, 256); --- 425,429 ---- */ static void ! make_testchar_map(const char *s, char *buf) { memset(buf, 0, 256); *************** *** 462,466 **** */ char ! skip_char(char *s) { int c; --- 462,466 ---- */ char ! skip_char(const char *s) { int c; *************** *** 1052,1056 **** */ void ! print_string(register char *s) { if (s) --- 1052,1056 ---- */ void ! print_string(const char *s) { if (s) Index: fileio.c =================================================================== RCS file: /cvsroot/lush/lush/src/fileio.c,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** fileio.c 2 Apr 2007 21:58:49 -0000 1.27 --- fileio.c 16 Oct 2009 16:07:05 -0000 1.28 *************** *** 103,107 **** char * ! cwd(char *s) { #ifdef UNIX --- 103,107 ---- char * ! cwd(const char *s) { #ifdef UNIX *************** *** 143,147 **** at * ! files(char *s) { at *ans = NIL; --- 143,147 ---- at * ! files(const char *s) { at *ans = NIL; *************** *** 215,219 **** static int ! makedir(char *s) { #ifdef UNIX --- 215,219 ---- static int ! makedir(const char *s) { #ifdef UNIX *************** *** 236,240 **** static int ! deletefile(char *s) { #ifdef WIN32 --- 236,240 ---- static int ! deletefile(const char *s) { #ifdef WIN32 *************** *** 320,324 **** static int ! lockfile(char *filename) { int fd; --- 320,324 ---- static int ! lockfile(const char *filename) { int fd; *************** *** 385,389 **** int ! dirp(char *s) { /* UNIX implementation */ --- 385,389 ---- int ! dirp(const char *s) { /* UNIX implementation */ *************** *** 427,431 **** int ! filep(char *s) { #ifdef UNIX --- 427,431 ---- int ! filep(const char *s) { #ifdef UNIX *************** *** 546,556 **** /** dirname **/ ! char * ! dirname(char *fname) { /* UNIX implementation */ #ifdef UNIX ! char *s = fname; ! char *p = 0; char *q = string_buffer; while (*s) { --- 546,556 ---- /** dirname **/ ! const char * ! dirname(const char *fname) { /* UNIX implementation */ #ifdef UNIX ! const char *s = fname; ! const char *p = 0; char *q = string_buffer; while (*s) { *************** *** 586,590 **** /* Search last non terminal / or \ */ p = 0; ! s = fname; while (*s) { if (s[0]=='\\' || s[0]=='/') --- 586,590 ---- /* Search last non terminal / or \ */ p = 0; ! s = (char*)fname; while (*s) { if (s[0]=='\\' || s[0]=='/') *************** *** 642,647 **** /** basename **/ ! char * ! basename(char *fname, char *suffix) { /* UNIX implementation */ --- 642,647 ---- /** basename **/ ! const char * ! basename(const char *fname, const char *suffix) { /* UNIX implementation */ *************** *** 675,680 **** #ifdef WIN32 int sl; ! char *p = fname; ! char *s = fname; /* Special cases */ if (fname[0] && fname[1]==':') { --- 675,680 ---- #ifdef WIN32 int sl; ! char *p = (char*)fname; ! char *s = (char*)fname; /* Special cases */ if (fname[0] && fname[1]==':') { *************** *** 730,735 **** /** concat_fname **/ ! char * ! concat_fname(char *from, char *fname) { /* UNIX implementation */ --- 730,735 ---- /** concat_fname **/ ! const char * ! concat_fname(const char *from, const char *fname) { /* UNIX implementation */ *************** *** 863,868 **** /** relative_fname **/ ! char * ! relative_fname(char *from, char *fname) { int fromlen; --- 863,868 ---- /** relative_fname **/ ! const char * ! relative_fname(const char *from, const char *fname) { int fromlen; *************** *** 901,905 **** DX(xrelative_fname) { ! char *s; ARG_NUMBER(2); ARG_EVAL(1); --- 901,905 ---- DX(xrelative_fname) { ! const char *s; ARG_NUMBER(2); ARG_EVAL(1); *************** *** 935,944 **** } ! char * ! tmpname(char *dir, char *suffix) { char buffer[64]; ! char *tmp; ! char *dot; struct tmpname *tm; static int uniq = 0; --- 935,944 ---- } ! const char * ! tmpname(const char *dir, const char *suffix) { char buffer[64]; ! const char *tmp; ! const char *dot; struct tmpname *tm; static int uniq = 0; *************** *** 1077,1081 **** /* Searches auxilliary files */ { ! static char *trials[] = { "stdenv.dump", "sys/stdenv.dump", --- 1077,1081 ---- /* Searches auxilliary files */ { ! static const char *trials[] = { "stdenv.dump", "sys/stdenv.dump", *************** *** 1101,1109 **** 0L, }; ! char **st = trials; strcpy(file_name,dirname(file_name)); while (*st) { ! char *s = concat_fname(file_name,*st++); #ifdef DEBUG_DIRSEARCH printf("D %s\n",s); --- 1101,1109 ---- 0L, }; ! const char **st = trials; strcpy(file_name,dirname(file_name)); while (*st) { ! const char *s = concat_fname(file_name,*st++); #ifdef DEBUG_DIRSEARCH printf("D %s\n",s); *************** *** 1137,1144 **** */ ! static char * ! add_suffix(char *q, char *suffixes) { ! char *s; /* Trivial suffixes */ if (!suffixes) --- 1137,1145 ---- */ ! static const char * ! add_suffix(const char *q, const char *suffixes) { ! char *d; ! const char *s; /* Trivial suffixes */ if (!suffixes) *************** *** 1174,1181 **** error(NIL,"Filename is too long",NIL); strcpy(file_name, q); ! q = file_name + strlen(file_name); ! *q++ = '.'; ! strncpy(q, suffixes, s - suffixes); ! q[s-suffixes] = 0; return file_name; } --- 1175,1182 ---- error(NIL,"Filename is too long",NIL); strcpy(file_name, q); ! d = file_name + strlen(file_name); ! *d++ = '.'; ! strncpy(d, suffixes, s - suffixes); ! d[s-suffixes] = 0; return file_name; } *************** *** 1191,1195 **** static int ! test_suffixes(char *suffixes) { if (!suffixes) --- 1192,1196 ---- static int ! test_suffixes(const char *suffixes) { if (!suffixes) *************** *** 1219,1225 **** { /* New style suffix */ ! char *s = suffixes; char *q = file_name + strlen(file_name); - char *r; /* -- loop over suffix string */ while (s) --- 1220,1226 ---- { /* New style suffix */ ! const char *s = suffixes; ! const char *r; char *q = file_name + strlen(file_name); /* -- loop over suffix string */ while (s) *************** *** 1252,1259 **** */ ! char * ! search_file(char *ss, char *suffixes) { ! char *c; char s[FILELEN]; --- 1253,1260 ---- */ ! const char * ! search_file(const char *ss, const char *suffixes) { ! const char *c; char s[FILELEN]; *************** *** 1307,1312 **** DX(xfilepath) { ! char *suf = "|.lshc|.snc|.tlc|.lsh|.sn|.tl"; ! char *ans; ALL_ARGS_EVAL; if (arg_number!=1) --- 1308,1313 ---- DX(xfilepath) { ! const char *suf = "|.lshc|.snc|.tlc|.lsh|.sn|.tl"; ! const char *ans; ALL_ARGS_EVAL; if (arg_number!=1) *************** *** 1336,1340 **** #ifndef HAVE_STRERROR ! char * strerror(int errno) { --- 1337,1341 ---- #ifndef HAVE_STRERROR ! const char * strerror(int errno) { *************** *** 1407,1414 **** FILE * ! attempt_open_read(char *s, char *suffixes) { FILE *f; ! char *name; /*** spaces in name ***/ --- 1408,1415 ---- FILE * ! attempt_open_read(const char *s, const char *suffixes) { FILE *f; ! const char *name; /*** spaces in name ***/ *************** *** 1443,1447 **** FILE * ! open_read(char *s, char *suffixes) { FILE *f; --- 1444,1448 ---- FILE * ! open_read(const char *s, const char *suffixes) { FILE *f; *************** *** 1464,1468 **** FILE * ! attempt_open_write(char *s, char *suffixes) { FILE *f; --- 1465,1469 ---- FILE * ! attempt_open_write(const char *s, const char *suffixes) { FILE *f; *************** *** 1515,1519 **** FILE * ! open_write(char *s, char *suffixes) { FILE *f; --- 1516,1520 ---- FILE * ! open_write(const char *s, const char *suffixes) { FILE *f; *************** *** 1535,1539 **** FILE * ! attempt_open_append(char *s, char *suffixes) { FILE *f; --- 1536,1540 ---- FILE * ! attempt_open_append(const char *s, const char *suffixes) { FILE *f; *************** *** 1581,1585 **** FILE * ! open_append(char *s, char *suffixes) { FILE *f; --- 1582,1586 ---- FILE * ! open_append(const char *s, const char *suffixes) { FILE *f; *************** *** 1701,1705 **** void ! set_script(char *s) { if (error_doc.script_file) { --- 1702,1706 ---- void ! set_script(const char *s) { if (error_doc.script_file) { *************** *** 2020,2024 **** { at *q; ! char *s; /** SETUP PATH */ --- 2021,2025 ---- { at *q; ! const char *s; /** SETUP PATH */ Index: check_func.c =================================================================== RCS file: /cvsroot/lush/lush/src/check_func.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** check_func.c 16 Apr 2004 14:42:58 -0000 1.6 --- check_func.c 16 Oct 2009 16:07:05 -0000 1.7 *************** *** 94,98 **** { struct dh_trace_stack *st = dh_trace_root; ! char *lastinfo; int lastcount; --- 94,98 ---- { struct dh_trace_stack *st = dh_trace_root; ! const char *lastinfo; int lastcount; *************** *** 167,171 **** void ! srg_resize_compiled(struct srg *sr, int new_size, char *file, int line) { if(sr->flags & STS_MALLOC) { --- 167,171 ---- void ! srg_resize_compiled(struct srg *sr, int new_size, const char *file, int line) { if(sr->flags & STS_MALLOC) { *************** *** 197,201 **** void ! srg_resize(struct srg *sr, int new_size, char *file, int line) { #ifndef NOLISP --- 197,201 ---- void ! srg_resize(struct srg *sr, int new_size, const char *file, int line) { #ifndef NOLISP Index: symbol.c =================================================================== RCS file: /cvsroot/lush/lush/src/symbol.c,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** symbol.c 20 Feb 2006 16:04:00 -0000 1.10 --- symbol.c 16 Oct 2009 16:07:05 -0000 1.11 *************** *** 60,66 **** static struct hash_name * ! search_by_name(unsigned char *s, int mode) { ! unsigned char *ss; unsigned long hash; struct hash_name **lasthn; --- 60,66 ---- static struct hash_name * ! search_by_name(const unsigned char *s, int mode) { ! const unsigned char *ss; unsigned long hash; struct hash_name **lasthn; *************** *** 130,134 **** at * ! named(char *s) { return new_symbol(s); --- 130,134 ---- at * ! named(const char *s) { return new_symbol(s); *************** *** 148,152 **** at * ! namedclean(char *n) { at *ans; --- 148,152 ---- at * ! namedclean(const char *n) { at *ans; *************** *** 512,516 **** at * ! new_symbol(char *s) { at *p; --- 512,516 ---- at * ! new_symbol(const char *s) { at *p; *************** *** 521,525 **** error(s, "belongs to a reserved package... ", NIL); ! hn = search_by_name((unsigned char *) s, (int) 1); if (hn->named) { /* symbol exists */ LOCK(hn->named); /* don't create it ! */ --- 521,525 ---- error(s, "belongs to a reserved package... ", NIL); ! hn = search_by_name((const unsigned char *) s, (int) 1); if (hn->named) { /* symbol exists */ LOCK(hn->named); /* don't create it ! */ *************** *** 690,694 **** at * ! var_define(char *s) { at *p; --- 690,694 ---- at * ! var_define(const char *s) { at *p; Index: event.c =================================================================== RCS file: /cvsroot/lush/lush/src/event.c,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** event.c 4 Feb 2004 19:52:17 -0000 1.21 --- event.c 16 Oct 2009 16:07:05 -0000 1.22 *************** *** 781,785 **** void enqueue_eventdesc(at *handler, int event, ! int xd, int yd, int xu, int yu, char *desc) { int mods = -1; --- 781,785 ---- void enqueue_eventdesc(at *handler, int event, ! int xd, int yd, int xu, int yu, const char *desc) { int mods = -1; Index: dump.c =================================================================== RCS file: /cvsroot/lush/lush/src/dump.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** dump.c 14 Jan 2003 23:37:16 -0000 1.7 --- dump.c 16 Oct 2009 16:07:05 -0000 1.8 *************** *** 183,187 **** int ! isdump(char *s) { FILE *f; --- 183,187 ---- int ! isdump(const char *s) { FILE *f; *************** *** 198,202 **** void ! undump(char *s) { at *p; --- 198,202 ---- void ! undump(const char *s) { at *p; |
From: Leon B. <le...@us...> - 2009-10-16 16:07:12
|
Update of /cvsroot/lush/lush/packages/svm/demos In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv16398/packages/svm/demos Modified Files: mnist-kernel.lsh Log Message: constipation. Index: mnist-kernel.lsh =================================================================== RCS file: /cvsroot/lush/lush/packages/svm/demos/mnist-kernel.lsh,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** mnist-kernel.lsh 19 May 2005 15:30:09 -0000 1.9 --- mnist-kernel.lsh 16 Oct 2009 16:07:05 -0000 1.10 *************** *** 87,90 **** --- 87,91 ---- #if defined(__SSE2__) + # define asm __asm__ asm("pxor %%xmm6,%%xmm6\n\t" *************** *** 120,123 **** --- 121,125 ---- #elif defined(__MMX__) + # define asm __asm__ asm("pxor %%mm6,%%mm6\n\t" |
From: Leon B. <le...@us...> - 2009-10-16 15:50:18
|
Update of /cvsroot/lush/lush/lsh/libc In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv14345 Modified Files: make.lsh Log Message: grrrr. Index: make.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/libc/make.lsh,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** make.lsh 15 May 2006 19:16:08 -0000 1.12 --- make.lsh 16 Oct 2009 15:50:10 -0000 1.13 *************** *** 258,279 **** (defmethod LushMake load targets ! (setq dryrun ()) ! (when (not targets) ! (setq targets (htable-keys rules)) ) ! (let ((done (htable))) ! (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 ) --- 258,279 ---- (defmethod LushMake load targets ! (let ((dryrun ())) ! (when (not targets) ! (setq targets (htable-keys rules)) ) ! (let ((done (htable))) ! (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 ) ) |
From: Leon B. <le...@us...> - 2009-10-01 13:43:06
|
Update of /cvsroot/lush/lush/lsh/compiler In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv17211/lsh/compiler Modified Files: dh-compile.lsh Log Message: Fix nasty side-effect bug (thanks ralf) Index: dh-compile.lsh =================================================================== RCS file: /cvsroot/lush/lush/lsh/compiler/dh-compile.lsh,v retrieving revision 1.64 retrieving revision 1.65 diff -C2 -d -r1.64 -r1.65 *** dh-compile.lsh 9 May 2005 01:21:55 -0000 1.64 --- dh-compile.lsh 1 Oct 2009 12:49:42 -0000 1.65 *************** *** 523,526 **** --- 523,527 ---- (let ((sym (new dhc-symbol (car slot) 0))) (dhc-unify-types (cdr slot) :sym:type) + (==> :sym:type access 'write) (setq :sym:c-name (concat "L1_this->" |
From: Leon B. <le...@us...> - 2009-09-11 23:25:47
|
Update of /cvsroot/lush/lush/include In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv32647/include Modified Files: define.h Log Message: no toupper or tolower on apple. Index: define.h =================================================================== RCS file: /cvsroot/lush/lush/include/define.h,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** define.h 3 Jun 2005 04:10:09 -0000 1.15 --- define.h 11 Sep 2009 23:25:26 -0000 1.16 *************** *** 175,178 **** --- 175,179 ---- #ifndef STDC_HEADERS + #ifndef __APPLE__ # ifdef toupper # undef toupper *************** *** 184,187 **** --- 185,189 ---- # define NEED_TOLOWER #endif + #endif #ifdef HAVE_WCHAR_H |
From: Leon B. <le...@us...> - 2009-09-03 12:30:22
|
Update of /cvsroot/lush/lush/lsh/compiler In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv7050 Modified Files: quicktour.txt Log Message: bump level instead of lex level. Index: quicktour.txt =================================================================== RCS file: /cvsroot/lush/lush/lsh/compiler/quicktour.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** quicktour.txt 3 Jul 2009 15:37:44 -0000 1.1 --- quicktour.txt 3 Sep 2009 12:30:05 -0000 1.2 *************** *** 111,115 **** with these return points, and in particular to the types of all objects allocated inside the function. Those ! with lexical level zero are then changed into hidden function argument in the hope that they will not escape the calling function. This happens in <"dh-compiler.lsh">. --- 111,115 ---- with these return points, and in particular to the types of all objects allocated inside the function. Those ! with bump level zero are then changed into hidden function argument in the hope that they will not escape the calling function. This happens in <"dh-compiler.lsh">. |