paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 10:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated example in comment

Browse Source
This commit is contained in:
peter 2002-03-04 17:57:17 +00:00
parent 4b2aa039e6
commit d42db59d66
2 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/extra/fpasync/Makefile
View File

@ -1,5 +1,5 @@
#
# Don't edit, this file is generated by FPCMake Version 1.1 [2002/02/28]
# Don't edit, this file is generated by FPCMake Version 1.1 [2002/03/01]
#
default: all
MAKEFILETARGETS=linux go32v2 win32 os2 freebsd beos netbsd amiga atari sunos qnx
@ -108,7 +108,7 @@ ifndef FPC_VERSION
FPC_VERSION:=$(shell $(FPC) -iV)
endif
export FPC FPC_VERSION
unexport CHECKDEPEND ALLDEPENDENCIES
unexport CHECKDEPEND ALL_DEPENDENCIES
ifeq ($(findstring 1.0.,$(FPC_VERSION)),)
COMPILERINFO:=$(shell $(FPC) -iSP -iTP -iSO -iTO)
ifndef CPU_SOURCE
@ -208,6 +208,9 @@ endif
ifeq ($(OS_TARGET),freebsd)
override COMPILER_SOURCEDIR+=unix
endif
ifeq ($(OS_TARGET),netbsd)
override COMPILER_SOURCEDIR+=unix
endif
override COMPILER_TARGETDIR+=.
ifdef REQUIRE_UNITSDIR
override UNITSDIR+=$(REQUIRE_UNITSDIR)
@ -259,7 +262,6 @@ endif
endif
endif
export INSTALL_PREFIX
export INSTALL_SOURCESUBDIR
ifndef DIST_DESTDIR
DIST_DESTDIR:=$(BASEDIR)
endif
@ -321,9 +323,9 @@ endif
endif
else
ifdef INSTALL_FPCPACKAGE
INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(INSTALL_SOURCESUBDIR)/$(PACKAGE_NAME)
INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source/$(PACKAGE_NAME)
else
INSTALL_SOURCEDIR:=$(INSTALL_BASEDIR)/source
INSTALL_SOURCEDIRL:=$(INSTALL_BASEDIR)/source
endif
endif
endif
@ -1126,7 +1128,7 @@ override RSTFILES=$(addsuffix $(RSTEXT),$(TARGET_RSTS))
override CLEANRSTFILES+=$(RSTFILES)
endif
.PHONY: fpc_all fpc_smart fpc_debug fpc_release
$(FPCMADE): $(ALLDEPENDENCIES) $(ALLTARGET)
$(FPCMADE): $(ALL_DEPENDENCIES) $(ALLTARGET)
@$(ECHOREDIR) Compiled > $(FPCMADE)
fpc_all: $(FPCMADE)
fpc_smart:
@ -1208,7 +1210,7 @@ ifdef INSTALL_FILES
endif
fpc_sourceinstall: distclean
$(MKDIR) $(INSTALL_SOURCEDIR)
$(COPYTREE) $(BASEDIR)/* $(INSTALL_SOURCEDIR)
$(COPYTREE) $(BASEDIR) $(INSTALL_SOURCEDIR)
fpc_exampleinstall: $(addsuffix _distclean,$(TARGET_EXAMPLEDIRS))
ifdef HASEXAMPLES
$(MKDIR) $(INSTALL_EXAMPLEDIR)

14
packages/extra/uncgi/uncgi.pp
View File

@ -93,11 +93,10 @@ function get_value(id: pchar): pchar;
Use like in this example:
cnt:=0;
v[cnt]:=get_value('some_id');
while v[cnt]<>'' do begin
inc(cnt);
v[cnt]:=get_next_value('some_id');
v:=get_value('some_id');
while v<>'' do begin
Do_something_with(v);
v:=get_next_value('some_id');
end;
}
function get_next_value(id: pchar): pchar;
@ -461,7 +460,10 @@ end.
{
HISTORY
$Log$
Revision 1.2 2002-03-01 10:57:03 peter
Revision 1.3 2002-03-04 17:57:17 peter
* updated example in comment
Revision 1.2 2002/03/01 10:57:03 peter
* get_next_value patch from Skelet