Mercurial > hg > xemacs-beta
view lwlib/xlwgaugeP.h @ 5253:b6a398dbb403
Fewer algorithmic complexity surprises, nicer errors, mapcarX(), maplist()
src/ChangeLog addition:
2010-09-01 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (list_merge, list_array_merge_into_list)
(list_array_merge_into_array):
Avoid algorithmic complexity surprises when checking for
circularity in these functions.
(Freduce): Fix some formatting, in passing.
(mapcarX): Drop the SOME_OR_EVERY argument to this function;
instead, take CALLER, a symbol reflecting the Lisp-visible
function that called mapcarX(). Use CALLER with
mapping_interaction_error() when sequences are modified
illegally. Don't cons with #'some, #'every, not even a little.
(Fmapconcat, FmapcarX, Fmapvector, Fmapcan, Fmapc, Fmap)
(Fmap_into, Fsome, Fevery): Call mapcarX() with its new
arguments.
(Fmapcan): Don't unnecessarily complicate the nconc call.
(maplist): Take CALLER, a symbol reflecting the Lisp-visible
function that called maplist(), rather than having separate
arguments to indicate mapl vs. mapcon.
Avoid algorithmic complexity surprises when checking for
circularity. In #'mapcon, check a given stretch of
result for well-formedness once, which was not previously the
case, despite what the comments said.
(Fmaplist, Fmapl, Fmapcon):
Call maplist() with its new arguments.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 01 Sep 2010 12:51:32 +0100 |
| parents | abe6d1db359e |
| children | 308d34e9f07d |
line wrap: on
line source
/* Gauge Widget for XEmacs. Copyright (C) 1999 Edward A. Falk This file is part of XEmacs. XEmacs 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, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* * GaugeP.h - Gauge widget * * Author: Edward A. Falk * falk@falconer.vip.best.com * * Date: July 9, 1997 */ #ifndef _XawGaugeP_h #define _XawGaugeP_h /*********************************************************************** * * Gauge Widget Private Data * * Gauge has little in common with the label widget, but can make use * of some label resources, so is subclassed from label. * ***********************************************************************/ #include "xlwgauge.h" #include ATHENA_LabelP_h_ /* New fields for the Gauge widget class record */ typedef struct {XtPointer extension;} GaugeClassPart; /* Full class record declaration */ typedef struct _GaugeClassRec { CoreClassPart core_class; SimpleClassPart simple_class; #ifdef _ThreeDP_h ThreeDClassPart threeD_class; #endif LabelClassPart label_class; GaugeClassPart gauge_class; } GaugeClassRec; extern GaugeClassRec gaugeClassRec; /* New fields for the Gauge widget record */ typedef struct { /* resources */ int value, v0,v1 ; int ntics, nlabels ; String *labels ; XtOrientation orientation ; Boolean autoScaleUp ; /* scales automatically */ Boolean autoScaleDown ; /* scales automatically */ int update ; /* update interval */ XtCallbackList getValue ; /* proc to call to fetch a point */ /* private state */ Dimension gmargin ; /* edges <-> gauge */ Dimension tmargin ; /* top (left) edge <-> tic marks */ Dimension lmargin ; /* tic marks <-> labels */ Dimension margin0 ; /* left/bottom margin */ Dimension margin1 ; /* right/top margin */ XtIntervalId intervalId ; Atom selected ; String selstr ; /* selection string, if any */ GC inverse_GC ; } GaugePart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _GaugeRec { CorePart core; SimplePart simple; #ifdef _ThreeDP_h ThreeDPart threeD; #endif LabelPart label; GaugePart gauge; } GaugeRec; #endif /* _XawGaugeP_h */