SecBSD/xenocara
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

zap trailing whitespace and tabs

Browse source
This commit is contained in:
purplerain 2023-12-13 04:57:51 +00:00
parent 9c49429a7e
commit deeab190c1
Signed by: purplerain
GPG key ID: F42C07F07E2E35B7
76 changed files with 382 additions and 378 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/xedit/lisp/format.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/format.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/helper.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/helper.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/internal.h
View file

@ -11,7 +11,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/io.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/io.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

8
app/xedit/lisp/lisp.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
@ -2596,7 +2596,7 @@ Lisp__New(LispObj *car, LispObj *cdr)
obj = objseg.freeobj;
objseg.freeobj = CDR(obj);
--objseg.nfree;
return (obj);
}
@ -2611,7 +2611,7 @@ LispNew(LispObj *car, LispObj *cdr)
objseg.freeobj = CDR(obj);
--objseg.nfree;
}
return (obj);
}
@ -3251,7 +3251,7 @@ LispImportSymbol(LispObj *symbol)
/* Continued from error, redefine variable */
LispDecrementAtomReference(atom);
atom->property = symbol->data.atom->property;
atom->a_object = atom->a_function = atom->a_builtin =
atom->a_property = atom->a_defsetf = atom->a_defstruct = 0;

2
app/xedit/lisp/lisp.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/lsp.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/math.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/math.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

30
app/xedit/lisp/mathimp.c
View file

@ -3212,7 +3212,7 @@ ndivide_xi_xr(n_number *num, LispObj *div, int fun, int flo)
mpi_init(quo);
if (NRTYPE(num) == N_FIXNUM)
mpi_seti(quo, NRFI(num));
else
else
mpi_set(quo, NRBI(num));
rem = XALLOC(mpr);
@ -3240,7 +3240,7 @@ ndivide_xi_xr(n_number *num, LispObj *div, int fun, int flo)
NIFRD(num) = mpi_geti(mpr_den(rem));
}
mpr_clear(rem);
XFREE(rem);
XFREE(rem);
}
else {
if (mpi_fiti(mpr_den(rem)) && mpi_geti(mpr_den(rem)) == 1) {
@ -4217,7 +4217,7 @@ rop_fi_br_as_xr(n_real *real, mpr *ratio, int nop)
mpi_clear(&iop);
RBR(real) = bigr;
RTYPE(real) = N_BIGRATIO;
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static void
@ -4362,7 +4362,7 @@ rdiv_bi_bi(n_real *real, mpi *bignum)
RCLEAR_BI(real);
RBR(real) = bigr;
RTYPE(real) = N_BIGRATIO;
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE int
@ -4511,7 +4511,7 @@ rop_bi_br_md_xr(n_real *real, mpr *bigratio, int nop)
RCLEAR_BI(real);
RBR(real) = bigr;
RTYPE(real) = N_BIGRATIO;
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
@ -4688,7 +4688,7 @@ rop_fr_bi_as_xr(n_real *real, mpi *bignum, int nop)
RBR(real) = bigr;
RTYPE(real) = N_BIGRATIO;
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static void
@ -4706,7 +4706,7 @@ rop_fr_bi_md_xr(n_real *real, mpi *bignum, int nop)
RBR(real) = bigr;
RTYPE(real) = N_BIGRATIO;
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
@ -4917,7 +4917,7 @@ rop_fr_br_asmd_xr(n_real *real, mpr *bigratio, int nop)
RBR(real) = bigr;
RTYPE(real) = N_BIGRATIO;
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
@ -4984,7 +4984,7 @@ rop_br_fi_asmd_xr(n_real *real, long fixnum, int nop)
mpr_divi(bigratio, bigratio, fixnum);
break;
}
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
@ -5043,7 +5043,7 @@ rop_br_bi_as_xr(n_real *real, mpi *bignum, int nop)
else
mpi_sub(RBRN(real), RBRN(real), &iop);
mpi_clear(&iop);
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
@ -5114,7 +5114,7 @@ rop_br_fr_asmd_xr(n_real *real, long num, long den, int nop)
break;
}
mpr_clear(&rop);
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
@ -5163,28 +5163,28 @@ static INLINE void
radd_br_br(n_real *real, mpr *bigratio)
{
mpr_add(RBR(real), RBR(real), bigratio);
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
rsub_br_br(n_real *real, mpr *bigratio)
{
mpr_sub(RBR(real), RBR(real), bigratio);
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
rmul_br_br(n_real *real, mpr *bigratio)
{
mpr_mul(RBR(real), RBR(real), bigratio);
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE void
rdiv_br_br(n_real *real, mpr *bigratio)
{
mpr_div(RBR(real), RBR(real), bigratio);
rbr_canonicalize(real);
rbr_canonicalize(real);
}
static INLINE int

2
app/xedit/lisp/modules/lisp.lsp
View file

@ -10,7 +10,7 @@
;;
;; The above copyright notice and this permission notice shall be included in
;; all copies or substantial portions of the Software.
;;
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/modules/progmodes/patch.lsp
View file

@ -39,7 +39,7 @@
(syntoken "^(\\d+d\\d+|\\d+a\\d+,\\d+)$" :property *prop-keyword*)
(syntoken "^<.*" :property *prop-constant*)
(syntoken "^>.*" :property *prop-preprocessor*)
;; context diff
(syntoken "^\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*"
:property *prop-string*)

2
app/xedit/lisp/modules/psql.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/modules/x11.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/modules/xaw.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

8
app/xedit/lisp/modules/xt.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
@ -1464,7 +1464,7 @@ LispConvertResources(LispObj *list, Widget widget,
{
char c1;
short c2;
int c4;
int c4;
#ifdef LONG64
long c8;
#endif
@ -1652,7 +1652,7 @@ bcmp_action_resource(_Xconst void *string, _Xconst void *resource)
{
return (strcmp((String)string,
XrmQuarkToString((*(ResourceInfo**)resource)->qname)));
}
}
static ResourceInfo *
GetResourceInfo(char *name, ResourceList *rlist, ResourceList *plist)
@ -1693,7 +1693,7 @@ bcmp_action_resource_list(_Xconst void *wc, _Xconst void *list)
static ResourceList *
FindResourceList(WidgetClass wc)
{
{
ResourceList **list;
if (!resource_list)

2
app/xedit/lisp/mp/mp.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/mp/mp.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/mp/mpi.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/mp/mpr.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/package.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/package.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/pathname.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/pathname.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/private.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

6
app/xedit/lisp/read.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
@ -238,7 +238,7 @@ const LispCharInfo LispChars[256] = {
{NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL},
{NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL},
{NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}, {NULL}
};
Atom_id Sand, Sor, Snot;
@ -1619,7 +1619,7 @@ LispReadFunction(read_info *info)
if (info->discard)
return (function);
if (INVALIDP(function))
if (INVALIDP(function))
READ_ERROR_INVARG();
else if (CONSP(function)) {
if (CAR(function) != Olambda)

2
app/xedit/lisp/read.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/regex.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/regex.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/require.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/require.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/stream.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/stream.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/string.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/string.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/struct.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/struct.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/test/hello.lsp
View file

@ -10,7 +10,7 @@
;;
;; The above copyright notice and this permission notice shall be included in
;; all copies or substantial portions of the Software.
;;
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/test/list.lsp
View file

@ -902,7 +902,7 @@
(eql-test 0 #'list-length '())
(eql-test 0 #'list-length nil)
(defun circular-list (&rest elements)
(let ((cycle (copy-list elements)))
(let ((cycle (copy-list elements)))
(nconc cycle cycle)))
(eq-test nil #'list-length (circular-list 'a 'b))
(eq-test nil #'list-length (circular-list 'a))

2
app/xedit/lisp/test/math.lsp
View file

@ -337,7 +337,7 @@
;; fixratio fixnum
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(test 23502480199/57 #'+ 1/57 412324214)
(test -1608505/39 #'- 11/39 41244)
(test -1608505/39 #'- 11/39 41244)
(test 241844976595/3121 #'* 45245/3121 5345231)
(test 4231/30211050 #'/ 4231/67890 445)
(bool-test nil #'< 43123/12 -3432)

2
app/xedit/lisp/test/psql-1.lsp
View file

@ -1,7 +1,7 @@
;; Postgresql C library interface, example program 1, using the xedit
;; lisp interface
;; Test the C version of libpq, the PostgreSQL frontend library.
;; Test the C version of libpq, the PostgreSQL frontend library.
(require "psql")
(defun exit-nicely (conn)

2
app/xedit/lisp/test/stream.lsp
View file

@ -676,7 +676,7 @@ more text" #'get-output-stream-string os)
;; write-char - function
(equal-eval "a b"
'(with-output-to-string (s)
'(with-output-to-string (s)
(write-char #\a s)
(write-char #\Space s)
(write-char #\b s)))

2
app/xedit/lisp/test/widgets.lsp
View file

@ -10,7 +10,7 @@
;;
;; The above copyright notice and this permission notice shall be included in
;; all copies or substantial portions of the Software.
;;
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/time.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/time.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/write.c
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/write.h
View file

@ -10,7 +10,7 @@
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

2
app/xedit/lisp/xedit.c
View file

@ -1168,7 +1168,7 @@ Xedit_Insert(LispBuiltin *builtin)
text = ARGUMENT(0);
CHECK_STRING(text);
block.firstPos = 0;
block.format = FMT8BIT;
block.length = STRLEN(text);