* updated example in comment

packages/extra/fpasync/Makefile

@@ -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)

packages/extra/uncgi/uncgi.pp

@@ -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