kayprish/cirilisp
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Омогућено читање библиотеке из DESTDIR

Browse source
This commit is contained in:
kappa 2019-02-10 22:33:16 +01:00
parent 75b9ad436e
commit 545aefd250
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Makefile
View file

@ -8,7 +8,7 @@ PREFIX = /usr/local
LIBPREFIX = $(PREFIX)/lib LIBPREFIX = $(PREFIX)/lib
# флегови за C компајлер и линкер # флегови за C компајлер и линкер
CPPFLAGS = -D_POSIX_C_SOURCE=200200L CPPFLAGS = -D_POSIX_C_SOURCE=200200L -DDESTDIR=\"$(DESTDIR)\"
# CFLAGS = -g -std=c99 -pedantic -Wall -O0 # CFLAGS = -g -std=c99 -pedantic -Wall -O0
CFLAGS = -std=c99 -pedantic -Wall -O3 CFLAGS = -std=c99 -pedantic -Wall -O3
LDFLAGS = -lm -lc LDFLAGS = -lm -lc

2
cirilisp.c
View file

@ -61,7 +61,7 @@ void init()
addSymbolInternal("конс", &consInt, 0); addSymbolInternal("конс", &consInt, 0);
addSymbolInternal("јед?", &eqvQInt, 0); addSymbolInternal("јед?", &eqvQInt, 0);
if (!load("/usr/local/lib/cirilisp/инит.ћ")) if (!load(DESTDIR"/usr/local/lib/cirilisp/инит.ћ"))
{ {
fprintf(stderr, "Није пронађена стандардна ЋИРЛИСП библиотека\ fprintf(stderr, "Није пронађена стандардна ЋИРЛИСП библиотека\
\nПрограм се није могао правилно покренути\n"); \nПрограм се није могао правилно покренути\n");

4
internals.c
View file

@ -568,8 +568,8 @@ object eqvQInt(object parameters)
STR(CAR(CDR(parameters)))); STR(CAR(CDR(parameters))));
break; break;
case charObject: case charObject:
BOOL(result) = CHAR(CAR(parameters)) == BOOL(result) = CHR(CAR(parameters)) ==
CHAR(CAR(CDR(parameters))); CHR(CAR(CDR(parameters)));
break; break;
case consObject: case consObject:
case procedureObject: case procedureObject: