## General Public License for more details.
## You should have received a copy of the GNU General Public License
-## along with this program. If not, see <http://www.gnu.org/licenses/>.
+## along with this program. If not, see <http://www.gnu.org/licenses/>.
## Process this file with automake to produce Makefile.in
sxelwlibdir = $(top_srcdir)/src/ui/lwlib
bldlwlibdir = $(top_builddir)/src/ui/lwlib
-sitemodule_DATA =
+sitemodule_DATA =
EXTRA_DIST = autogen.sh
-SUBDIRS =
+SUBDIRS =
if DESCEND_ASE
SUBDIRS += ase
endif
module_LTLIBRARIES += ase-set.la
ase_set_la_SOURCES = ase-set.c \
- ase-cartesian.c ase-interval.c ase-metric.c ase-neighbourhood.c
+ ase-cartesian.c ase-interval.c ase-metric.c ase-neighbourhood.c
nodist_ase_set_la_SOURCES = ase-set.doc.c \
ase-cartesian.doc.c ase-interval.doc.c ase-metric.doc.c \
ase-neighbourhood.doc.c
BUILT_SOURCES += ase-digraph.doc.c
module_LTLIBRARIES += ase-heap.la
-ase_heap_la_SOURCES = ase-heap.c
+ase_heap_la_SOURCES = ase-heap.c
nodist_ase_heap_la_SOURCES = ase-heap.doc.c
ase_heap_la_DEPENDENCIES = ase.la
BUILT_SOURCES += ase-heap.doc.c
benchmarks: _ase-heap_benchmarks
-#
+#
# Help the SXEmacs developers get nice post-processed source files
## the libtool approach
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
\f
#define EMODNAME ase_cartesian
-void
+void
EMOD_PUBINIT(void)
{
/* constructors */
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
ase_digraph_add_edge_aa(ase_digraph_t dg, Lisp_Object n1, Lisp_Object n2)
{
/* auto-add nodes if necessary */
- Lisp_Object n1sle, n2slr;
+ Lisp_Object n1sle, n2slr;
skiplist_t n1e = NULL, n2r = NULL;
_ase_digraph_add_node(&n1sle, &n2slr, dg, n1);
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
(push "." load-path)
(when (and (boundp 'load-file-name) (stringp load-file-name))
(push (expand-file-name "../tests/benchmark"
- (file-name-directory load-file-name))
- load-path))
+ (file-name-directory load-file-name))
+ load-path))
(require 'benchmark)))
(require 'ase-heap)
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
EMOD_ASE_DEBUG_HEAP("d:0x%08lx@0x%08lx shall be printed...\n",
(long unsigned int)h, (long unsigned int)obj);
- write_fmt_str(pcf, "#<ase:heap :dense :size %u",
+ write_fmt_str(pcf, "#<ase:heap :dense :size %u",
(unsigned int)ase_dheap_size(h));
if (ase_heap_opts_coloured(h)) {
EMOD_ASE_DEBUG_HEAP("w:0x%08lx@0x%08lx shall be printed...\n",
(long unsigned int)h, (long unsigned int)obj);
- write_fmt_string(pcf, "#<ase:heap :weak :size %u",
+ write_fmt_string(pcf, "#<ase:heap :weak :size %u",
(unsigned int)ase_wheap_size(h));
if (ase_heap_opts_coloured(h)) {
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
Lisp_Object ase_empty_interval_union(void)
{
Lisp_Object result = Qnil;
- ase_interval_union_item_t u = NULL;
+ ase_interval_union_item_t u = NULL;
ase_interval_union_t i = NULL;
u = _ase_make_interval_union_item(Qase_empty_interval);
}
}
-static Lisp_Object
+static Lisp_Object
_ase_interval_interior_contains_obj_p(
ase_cartesian_t iip1, ase_cartesian_t iip2)
{
return Qnil;
}
-static Lisp_Object
+static Lisp_Object
_ase_interval_union_contains_intv_p(ase_interval_union_t iu, ase_interval_t a)
{
ase_interval_union_item_t u = ase_interval_union(iu);
return Qnil;
}
-static Lisp_Object
+static Lisp_Object
_ase_interval_union_contains_intr_p(
ase_interval_union_t iu, ase_cartesian_t iip)
{
return Qnil;
}
-static Lisp_Object
+static Lisp_Object
_ase_interval_union_contains_union_p(
ase_interval_union_t iu1, ase_interval_union_t iu2)
{
{
ase_interval_union_item_t u = ase_interval_union(iu);
struct ase_interval_union_item_s ures, *ur = &ures;
-
+
ur->current = Qase_empty_interval;
ur->next = NULL;
while (u) {
{
ase_interval_union_item_t u = ase_interval_union(iu);
struct ase_interval_union_item_s ures, *ur = &ures;
-
+
ur->current = Qase_empty_interval;
ur->next = NULL;
while (u) {
{
ase_interval_union_item_t u = ase_interval_union(iu1);
struct ase_interval_union_item_s ures, *ur = &ures;
-
+
ur->current = Qase_empty_interval;
ur->next = NULL;
while (u) {
na = _ase_subtract_union_intv(na, a2);
- if (!na)
+ if (!na)
break;
u = u->next;
}
na = _ase_subtract_union_intr(na, c2);
- if (!na)
+ if (!na)
break;
u = u->next;
}
na = _ase_subtract_union_intr(na, c);
}
- if (!na)
+ if (!na)
break;
u = u->next;
}
ur->next = tmp;
} else {
ur->next = tmp->next;
- _ase_interval_union_item_fini(tmp);
+ _ase_interval_union_item_fini(tmp);
}
while (ur->next)
ur = ur->next;
while (2*root + 1 < count) {
child = 2*root + 1;
-
+
if (child < count-1 && lessp(args[child], args[child+1]))
child++;
if (lessp(args[root], args[child])) {
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
const char *name = subr_name(XSUBR(ldist));
write_fmt_string(pcf, " #'%s", name);
} else {
- write_c_string(" #'(lambda ...)", pcf);
+ write_c_string(" #'(lambda ...)", pcf);
}
}
}
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
ase_permutation_f = ase_make_permutation;
}
-void
+void
EMOD_PUBDEINIT(void)
{
Frevoke(intern("ase-permutation"));
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
/* jump over a leading minus */
cp++;
}
-
+
while ((*cp >= '0' && *cp <= '9'))
cp++;
} else if (!XASE_RESC_ELM_SMALLP(l) &&
bigz_eql(XASE_RESC_RNG_RING(XASE_RESC_ELM_RING(l)),
XASE_RESC_RNG_RING(XASE_RESC_ELM_RING(r)))) {
- return 1;
+ return 1;
#endif
}
goto domain_error;
/* ###autoload */
D3FUN("residue-class-representant", Fresidue_class_representant, 1, 1, 0, /*
-Return the representant of the residue class ELEMENT lifted
+Return the representant of the residue class ELEMENT lifted
to the ring of rational integers.
*/
(element))
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
extern void ase_set_LTX_deinit(void);
#endif /* INCLUDED_ase_set_h_ */
-
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
} while (0)
#endif /* INCLUDED_ase_h_ */
-
benchmarks: _cl-loop_benchmarks
-#
+#
# Help the SXEmacs developers get nice post-processed source files
## the libtool approach
EMOD_CL_DEBUG_LOOP("accepting DO clause\n");
dllist_append(iter, (void*)do_clause);
-} |
+} |
with_clause {
dllist_t pro = XDLLIST(lsen->prologue);
Lisp_Object with_clause = *context;
dllist_append(epi, (void*)return_clause);
}
/* | while | until | always | never | thereis
- * if | when | unless | else | end | named
+ * if | when | unless | else | end | named
*/
;
fc->for_subclause = FOR_ARITHMETIC_CLAUSE;
dllist_append(iter, (void*)for_clause);
dllist_append(pro, (void*)for_clause);
-} |
+} |
for_in_clause {
dllist_t pro = XDLLIST(lsen->prologue);
dllist_t iter = XDLLIST(lsen->iteration);
fc->for_subclause = FOR_EQUALS_THEN_CLAUSE;
dllist_append(pro, (void*)for_clause);
dllist_append(iter, (void*)for_clause);
-} |
+} |
for_hash_clause {
dllist_t pro = XDLLIST(lsen->prologue);
dllist_t iter = XDLLIST(lsen->iteration);
};
by:
-BY
+BY
{
Lisp_Object for_clause = *context;
cl_loop_for_clause_t *fc = get_dynacat(for_clause);
};
below:
-BELOW
+BELOW
{
Lisp_Object for_clause = *context;
cl_loop_for_clause_t *fc = get_dynacat(for_clause);
above:
-ABOVE
+ABOVE
{
Lisp_Object for_clause = *context;
cl_loop_for_clause_t *fc = get_dynacat(for_clause);
#undef yyscan_t
#undef yylval
#undef yylloc
-
(push "." load-path)
(when (and (boundp 'load-file-name) (stringp load-file-name))
(push (expand-file-name "../tests/benchmark"
- (file-name-directory load-file-name))
- load-path))
+ (file-name-directory load-file-name))
+ load-path))
(require 'benchmark)))
(require 'cl-loop)
(defun cl:loop-count (N)
"C count clause"
(cl:loop for i below N
- count (primep i)))
+ count (primep i)))
(defun loop-for (N)
"lisp for-arith clause"
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
case FOR_EQUALS_THEN_CLAUSE:
if (fc->counter++) {
cl_loop_destructuring_bind(
- (cl_loop_binder_f)Fset, fc->form1,
+ (cl_loop_binder_f)Fset, fc->form1,
fc->curval = Feval(fc->then));
}
return;
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
Author: Sebastian Freundt <hroptatyr@sxemacs.org>
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* Author: Sebastian Freundt <hroptatyr@sxemacs.org>
*
* This file is part of SXEmacs.
- *
+ *
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
### If configure succeeds, it leaves its status in config.status.
### A log of configuration tests can be found in config.log.
### If configure fails after disturbing the status quo,
-### config.status is removed.
+### config.status is removed.
])
OG_OPTION_GROUP(Installation Options)
dnl OG_ARG_WITH([module-dir],
-dnl AS_HELP_STRING([--with-module-dir],
-dnl [Specify the directory where the modules go.]),
-dnl [auto], [$prefix/lib/sxemacs/site-modules], [og_any])
+dnl AS_HELP_STRING([--with-module-dir],
+dnl [Specify the directory where the modules go.]),
+dnl [auto], [$prefix/lib/sxemacs/site-modules], [og_any])
OG_ARG_WITH([module-dir],
AS_HELP_STRING([--with-module-dir],
[Specify the directory where the modules go.]),
BATCH = $(BITCHENV) $(BITCH)
RM = rm -f
-#
+#
# Help the SXEmacs developers get nice post-processed source files
## the libtool approach
module_LTLIBRARIES =
BUILT_SOURCES =
-
dist_modules_DATA = eldap.ell
-#
+#
# Help the SXEmacs developers get nice post-processed source files
## Create preprocessor output (debugging purposes only)
projects / sxemacs / commitdiff