Merged revisions 9692,9694-9695,9697-9714,9720,9722,9729,9732-9733,9740,9745,9749-9750,9753-9757,9760-9766,9768-9770,9772-9774,9783,9786,9788,9814,9822,9825,9837-9850,9852,9855-9856,9863-9864,9867,9882,9891-9892,9897,9899-9900,9902-9904,9907-9911,9913,9915,9917,9920,9922-9937,9939-9974,9976-10005,10007-10012,10014-10046,10049-10051,10053-10067,10069-10071,10074,10079,10082,10084-10086,10091,10099-10100,10102-10103,10113-10114,10129-10130,10136 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r9783 | joost | 2008-01-18 23:52:13 +0100 (Fri, 18 Jan 2008) | 1 line
  
   * DigestTestREport makes it possible to write the unittest results to a testsuite-digest
........
  r9786 | joost | 2008-01-19 00:40:44 +0100 (Sat, 19 Jan 2008) | 1 line
  
   * Added dependency on paszlib to fcl-fpcunit
........
  r9788 | jonas | 2008-01-19 01:20:49 +0100 (Sat, 19 Jan 2008) | 2 lines
  
    + also add fpc-unit dependency on paszlib to build dependencies
........
  r9882 | peter | 2008-01-23 18:04:40 +0100 (Wed, 23 Jan 2008) | 2 lines
  
    * shell/awk script to help creating fpmake.pp from existing ppu files
........
  r9891 | peter | 2008-01-24 08:47:03 +0100 (Thu, 24 Jan 2008) | 2 lines
  
    * obsolete files
........
  r9892 | peter | 2008-01-24 08:52:43 +0100 (Thu, 24 Jan 2008) | 2 lines
  
    * fpmake added
........
  r9897 | peter | 2008-01-24 21:53:26 +0100 (Thu, 24 Jan 2008) | 2 lines
  
    * remove dos dependency
........
  r9899 | peter | 2008-01-24 22:50:42 +0100 (Thu, 24 Jan 2008) | 2 lines
  
    * fpmake support
........
  r9900 | peter | 2008-01-24 22:58:28 +0100 (Thu, 24 Jan 2008) | 2 lines
  
    * don't inlcude rtl unit depnedencies
........
  r9902 | peter | 2008-01-24 23:08:59 +0100 (Thu, 24 Jan 2008) | 2 lines
  
    * fpmake added
........
  r9903 | peter | 2008-01-24 23:57:37 +0100 (Thu, 24 Jan 2008) | 2 lines
  
    * new fpmake.pp
........
  r9904 | peter | 2008-01-24 23:57:55 +0100 (Thu, 24 Jan 2008) | 2 lines
  
    * winunits-jedi deps
........
  r9907 | peter | 2008-01-25 00:09:54 +0100 (Fri, 25 Jan 2008) | 3 lines
  
    * move pasjpeg
    * add fpmake.pp for pasjpeg
........
  r9908 | peter | 2008-01-25 00:12:13 +0100 (Fri, 25 Jan 2008) | 2 lines
  
    * fpmake.pp
........
  r9909 | peter | 2008-01-25 00:30:20 +0100 (Fri, 25 Jan 2008) | 4 lines
  
    * move uriparser to fcl-base
    * move netdb unit and examples to fcl-net
    * removed netdb package
........
  r9910 | peter | 2008-01-25 00:35:30 +0100 (Fri, 25 Jan 2008) | 3 lines
  
    * mode objfpc added
    * remove old fpmake
........
  r9911 | peter | 2008-01-25 00:37:32 +0100 (Fri, 25 Jan 2008) | 2 lines
  
    * new fpmake.pp
........
  r9913 | peter | 2008-01-25 00:49:49 +0100 (Fri, 25 Jan 2008) | 2 lines
  
    * new fpmake.pp
........
  r9915 | peter | 2008-01-25 00:59:57 +0100 (Fri, 25 Jan 2008) | 2 lines
  
    * build unit dependencies
........
  r9917 | peter | 2008-01-25 01:16:33 +0100 (Fri, 25 Jan 2008) | 2 lines
  
    * new fpmake.pp
........
  r9920 | peter | 2008-01-25 17:23:31 +0100 (Fri, 25 Jan 2008) | 2 lines
  
    * remove dependency on itself
........
  r9922 | marco | 2008-01-26 14:08:46 +0100 (Sat, 26 Jan 2008) | 3 lines
  
   * Basic moving and updating of mysql. makefile.fpc's included, regened makefiles not.
       fpmake also in separate commit (will follow shortly)
........
  r9923 | marco | 2008-01-26 14:12:04 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * regened makefiles for mysql move in separate commit to ease merging.
........
  r9924 | marco | 2008-01-26 14:30:07 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * fpmake for mysql
........
  r9925 | marco | 2008-01-26 14:53:13 +0100 (Sat, 26 Jan 2008) | 3 lines
  
   * Package ibase moved + makefile.fpc's. fpmake and regenned makefiles 
         follow in separate commits
........
  r9926 | marco | 2008-01-26 14:54:17 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * makefiles of ibase moving
........
  r9927 | marco | 2008-01-26 14:54:47 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * Makefile mysql move was not committed, fixed
........
  r9928 | marco | 2008-01-26 15:09:42 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * fpmake for ibase
........
  r9929 | marco | 2008-01-26 15:34:28 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * removed exces files + mysql/readme move
........
  r9930 | marco | 2008-01-26 15:51:36 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * ncurses moved. makefile.fpc + fpmake included, makefile in separate commit
........
  r9931 | marco | 2008-01-26 16:04:58 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * Unzip moved
........
  r9932 | marco | 2008-01-26 16:12:56 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * zlib moved
........
  r9933 | marco | 2008-01-26 16:14:00 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * cleanup moved pkgs
........
  r9934 | marco | 2008-01-26 16:28:25 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * oracle moved + makefile.fpc + fpmake
........
  r9935 | marco | 2008-01-26 17:19:50 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * Dbus moved, incl everything
........
  r9936 | marco | 2008-01-26 17:37:27 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * libc moved
........
  r9937 | marco | 2008-01-26 17:38:26 +0100 (Sat, 26 Jan 2008) | 1 line
  
   * libc deleted
........
  r9939 | marco | 2008-01-26 17:46:49 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * Moved odbc
........
  r9940 | marco | 2008-01-26 17:47:05 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * removed
........
  r9941 | marco | 2008-01-26 17:47:34 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * deleted
........
  r9942 | peter | 2008-01-26 17:49:25 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * netdb is unix only
........
  r9943 | marco | 2008-01-26 17:57:00 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * regexpr moved
........
  r9944 | marco | 2008-01-26 17:57:23 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * delete
........
  r9945 | marco | 2008-01-26 18:12:43 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * postgres and sqlite moved
........
  r9946 | jonas | 2008-01-26 18:16:46 +0100 (Sat, 26 Jan 2008) | 4 lines
  
    + added missing Makefiles
    * regenerated packages/extra Makefile after several packages were
      moved
........
  r9947 | marco | 2008-01-26 18:26:21 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * missing files added
........
  r9948 | marco | 2008-01-26 18:45:32 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * pthreads moved
........
  r9949 | marco | 2008-01-26 18:46:00 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * excess packages deleted
........
  r9950 | marco | 2008-01-26 19:03:23 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * Imagemagick moved
........
  r9951 | marco | 2008-01-26 19:18:09 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * gdbint moved
........
  r9952 | marco | 2008-01-26 19:24:29 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * libpng moved for Florian
........
  r9953 | marco | 2008-01-26 19:24:59 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * packages removed
........
  r9954 | peter | 2008-01-26 19:26:35 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * move cgiapp and ezcgi to fcl-web
........
  r9955 | peter | 2008-01-26 19:58:55 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * new fpmake.pp
........
  r9956 | peter | 2008-01-26 20:15:13 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * add mode objfpc
........
  r9957 | peter | 2008-01-26 20:18:39 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * add fpmake.pp
........
  r9958 | peter | 2008-01-26 20:18:52 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * new fpmake.pp
........
  r9959 | marco | 2008-01-26 20:34:39 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * os2 compilation fixed. didn't work because of outdated fpmkunit
........
  r9960 | peter | 2008-01-26 20:42:50 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * top level packages building
........
  r9961 | peter | 2008-01-26 20:46:02 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * add commandline how to generate the include lines
........
  r9962 | marco | 2008-01-26 20:54:31 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * unixutil moved
........
  r9963 | marco | 2008-01-26 21:02:30 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * X11 moved
........
  r9964 | marco | 2008-01-26 21:11:31 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * uuid moved
........
  r9965 | marco | 2008-01-26 21:12:36 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * removed rests of moved pkgs
........
  r9966 | marco | 2008-01-26 21:17:35 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * ldap moved
........
  r9967 | peter | 2008-01-26 21:20:09 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * create fpc-all package from all other packages
........
  r9968 | marco | 2008-01-26 21:26:01 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * mad,modplug,dts
........
  r9969 | marco | 2008-01-26 21:27:05 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * and delete 4 pkgs leftovers, ldap mad modplug dts
........
  r9970 | marco | 2008-01-26 21:43:23 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * gdbm tcl syslog libcurl
........
  r9971 | marco | 2008-01-26 21:44:11 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * gdbm libcurl tcl syslog removed from extra (leftover makefiles etc)
........
  r9972 | peter | 2008-01-26 21:52:25 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * new fpmake.pp
........
  r9973 | marco | 2008-01-26 21:55:34 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * opengl
........
  r9974 | marco | 2008-01-26 22:00:05 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * opengl deleted
........
  r9976 | marco | 2008-01-26 22:06:36 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * move whole dirs, delete possible conflicting files beforehand
........
  r9977 | marco | 2008-01-26 22:07:16 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * more makefile
........
  r9978 | marco | 2008-01-26 22:17:10 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * Moved gtk -> gtk1 first pass
........
  r9979 | marco | 2008-01-26 22:18:35 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * gtkgl lost its own makefile in the change -> demo moved to examples
........
  r9980 | marco | 2008-01-26 22:22:36 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * fpmake for gtk1
........
  r9981 | marco | 2008-01-26 22:32:36 +0100 (Sat, 26 Jan 2008) | 2 lines
  
    * Pass two, src/ creation
........
  r9982 | marco | 2008-01-26 22:58:23 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * matroska moved
........
  r9983 | marco | 2008-01-26 23:03:51 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * Cairo moved
........
  r9984 | marco | 2008-01-26 23:06:01 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * toplevel makefiles updated
........
  r9985 | marco | 2008-01-26 23:20:45 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * gtk2 first pass
........
  r9986 | marco | 2008-01-26 23:23:03 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * one more file moved to gtk2
........
  r9987 | marco | 2008-01-26 23:28:06 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * chm moved
........
  r9988 | marco | 2008-01-26 23:41:08 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * 4 pkgs a52 bfd aspell bzip2. Bzip2 didn't compile
........
  r9989 | marco | 2008-01-26 23:44:42 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * 6 old pkgs deleted a52 bfd aspell bzip2 gtk2 chm
........
  r9990 | marco | 2008-01-26 23:45:24 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * removed old dirs cairo extra pkg
........
  r9991 | marco | 2008-01-26 23:45:46 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * delete matroska
........
  r9992 | marco | 2008-01-26 23:47:18 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * delete old pkg gtk, is now gtk1
........
  r9993 | marco | 2008-01-26 23:51:58 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * makefiles somewhat regenned for chm-gtk2-a52-bfd-aspell-bzip2 pkgs
........
  r9994 | marco | 2008-01-26 23:58:46 +0100 (Sat, 26 Jan 2008) | 2 lines
  
   * fpgtk first pass
........
  r9995 | marco | 2008-01-27 00:00:46 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * examples moved
........
  r9996 | marco | 2008-01-27 00:01:37 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * stale dir moved
........
  r9997 | marco | 2008-01-27 00:05:38 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * newt moved
........
  r9998 | marco | 2008-01-27 00:06:56 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * cleanup after moving
........
  r9999 | marco | 2008-01-27 00:11:25 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * imlib moved
........
  r10000 | marco | 2008-01-27 00:11:45 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * old imlib remove
........
  r10001 | marco | 2008-01-27 00:18:37 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * cdrom 
........
  r10002 | marco | 2008-01-27 00:20:18 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * forgot one file
........
  r10003 | marco | 2008-01-27 00:32:11 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * hermes moved
........
  r10004 | marco | 2008-01-27 00:32:49 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * delete old hermes
........
  r10005 | marco | 2008-01-27 00:36:53 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * libgd moved
........
  r10007 | marco | 2008-01-27 00:39:08 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * users first pass
........
  r10008 | marco | 2008-01-27 00:46:10 +0100 (Sun, 27 Jan 2008) | 3 lines
  
   * Moved users pkg, added makefile.fpc, and made it in general somewhat compilable.
      Demo still fails due to crypt_h unit missing
........
  r10009 | marco | 2008-01-27 00:46:31 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * remove users
........
  r10010 | marco | 2008-01-27 00:48:51 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * utmp moved
........
  r10011 | marco | 2008-01-27 00:53:01 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * moved svgalib
........
  r10012 | marco | 2008-01-27 01:00:07 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * Makefiles regenned
........
  r10014 | marco | 2008-01-27 10:39:14 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * openal moved
........
  r10015 | marco | 2008-01-27 10:51:30 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * xforms moved
........
  r10016 | marco | 2008-01-27 11:04:56 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * fftw, minor updates to xforms
........
  r10017 | marco | 2008-01-27 11:10:59 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * numlib moved
........
  r10018 | marco | 2008-01-27 11:13:37 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * pcap moved
........
  r10019 | marco | 2008-01-27 11:18:45 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * rexx moved
........
  r10020 | marco | 2008-01-27 11:22:08 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * oggvorbis first pass
........
  r10021 | marco | 2008-01-27 11:23:33 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * oggvorbis move + cleanup
........
  r10022 | marco | 2008-01-27 11:28:44 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * ggi moved
........
  r10023 | michael | 2008-01-27 11:32:11 +0100 (Sun, 27 Jan 2008) | 1 line
  
  * Added support for bitpacked
........
  r10024 | marco | 2008-01-27 11:35:18 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * sdl moved
........
  r10025 | michael | 2008-01-27 11:39:07 +0100 (Sun, 27 Jan 2008) | 1 line
  
  * Save bitpacked also, not just register
........
  r10026 | michael | 2008-01-27 11:40:41 +0100 (Sun, 27 Jan 2008) | 1 line
  
  * GetDeclaration reflects bitpacked
........
  r10027 | marco | 2008-01-27 11:43:35 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * sndfile
........
  r10028 | marco | 2008-01-27 11:45:21 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * removed dead utmp dir
........
  r10029 | michael | 2008-01-27 11:48:45 +0100 (Sun, 27 Jan 2008) | 1 line
  
  * Support for bitpacked and removed stray debug writeln
........
  r10030 | marco | 2008-01-27 11:49:05 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * shellscript to print deps based on makefile.fpc requirement lines
........
  r10031 | marco | 2008-01-27 11:52:27 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * lua moved
........
  r10032 | marco | 2008-01-27 11:56:35 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * openssl moved
........
  r10033 | marco | 2008-01-27 12:09:10 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * makefiles regenned
........
  r10034 | marco | 2008-01-27 12:15:57 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * gbaunits moved
........
  r10035 | marco | 2008-01-27 12:20:55 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * palmunits moved
........
  r10036 | marco | 2008-01-27 12:43:58 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * graph moved
........
  r10037 | marco | 2008-01-27 12:53:57 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * os2units moved
........
  r10038 | marco | 2008-01-27 13:00:36 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * libndsfpc moved
........
  r10039 | marco | 2008-01-27 13:01:35 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * os2units leftovers removed
........
  r10040 | marco | 2008-01-27 13:24:32 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * gnome1 moved
........
  r10041 | marco | 2008-01-27 13:32:52 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * regened, mostly working again
........
  r10042 | marco | 2008-01-27 13:43:51 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * dep fixed
........
  r10043 | marco | 2008-01-27 14:16:04 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * amunits moved
........
  r10044 | marco | 2008-01-27 14:30:17 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * moved univint
........
  r10045 | marco | 2008-01-27 14:55:40 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * makefiles updated. httpd removed from compilation pending full removal
........
  r10046 | michael | 2008-01-27 15:03:14 +0100 (Sun, 27 Jan 2008) | 1 line
  
  * Initial implementation
........
  r10049 | marco | 2008-01-27 15:28:09 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * gdbint removed from some platforms for mischi
........
  r10050 | marco | 2008-01-27 15:42:46 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * moved ptc
........
  r10051 | marco | 2008-01-27 15:56:21 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * added
........
  r10053 | marco | 2008-01-27 16:14:51 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * gnome dep on gtk
........
  r10054 | marco | 2008-01-27 16:21:51 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * gnome1 now also dep on imlib
........
  r10055 | marco | 2008-01-27 16:29:42 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * more Gnome fixes
........
  r10056 | marco | 2008-01-27 16:50:12 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * Another gnome order fix
........
  r10057 | marco | 2008-01-27 16:52:05 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * extra/ removed + packages/makefile update
........
  r10058 | marco | 2008-01-27 17:34:53 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * apache example fixes before moving
........
  r10059 | marco | 2008-01-27 17:50:36 +0100 (Sun, 27 Jan 2008) | 2 lines
  
   * ptrint for a longint(ptr) typecast
........
  r10060 | jonas | 2008-01-27 18:10:54 +0100 (Sun, 27 Jan 2008) | 7 lines
  
    - don't compile sdl for darwin/ppc64 and darwin/x86_64 (it also wasn't
      in the past)
    * graph does not depend on sdl for go32v2 (sdl is not compiled for go32v2)
    * sdl does not depend on pthreads and x11 for non-unix
    * opengl does not depend on x11 for non-unix
    - removed duplicated opengl dependencies declaration  
........
  r10061 | marco | 2008-01-27 18:22:29 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * httpd moved, splitted, decapitated and rejoined
........
  r10062 | marco | 2008-01-27 18:32:37 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * httpd22 now added to all platforms that had dep on base/httpd
........
  r10063 | marco | 2008-01-27 18:32:57 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * base removed
........
  r10064 | marco | 2008-01-27 18:45:38 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * initial version
........
  r10065 | marco | 2008-01-27 18:47:47 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * fpmake
........
  r10066 | marco | 2008-01-27 18:59:57 +0100 (Sun, 27 Jan 2008) | 1 line
  
   * base removed makefile changes
........
  r10067 | peter | 2008-01-27 19:04:11 +0100 (Sun, 27 Jan 2008) | 2 lines
  
    * missing src/ for gdbint build with gdbver found
........
  r10069 | jonas | 2008-01-27 22:23:10 +0100 (Sun, 27 Jan 2008) | 2 lines
  
    * fixed go32v2 check for sdl
........
  r10070 | peter | 2008-01-27 22:31:33 +0100 (Sun, 27 Jan 2008) | 2 lines
  
    * gtk1, gtk2 for windows fixed
........
  r10071 | peter | 2008-01-27 22:33:51 +0100 (Sun, 27 Jan 2008) | 2 lines
  
    * fixed win32 build
........
  r10074 | peter | 2008-01-27 23:10:55 +0100 (Sun, 27 Jan 2008) | 2 lines
  
    * updated includes
........
  r10079 | peter | 2008-01-28 09:08:35 +0100 (Mon, 28 Jan 2008) | 2 lines
  
    * Makefiles added
........
  r10084 | vincents | 2008-01-28 20:20:26 +0100 (Mon, 28 Jan 2008) | 1 line
  
  * fixed win64 compilation
........
  r10085 | marco | 2008-01-28 20:41:24 +0100 (Mon, 28 Jan 2008) | 1 line
  
   * includepath added
........
  r10086 | marco | 2008-01-28 21:04:31 +0100 (Mon, 28 Jan 2008) | 1 line
  
   * sw_word -> longint
........
  r10091 | michael | 2008-01-28 22:13:19 +0100 (Mon, 28 Jan 2008) | 1 line
  
  * Set windows library name correct
........
  r10099 | marco | 2008-01-29 21:18:17 +0100 (Tue, 29 Jan 2008) | 1 line
  
   * gtk1 now depends on opengl in toplevel makefile
........
  r10100 | marco | 2008-01-29 21:27:09 +0100 (Tue, 29 Jan 2008) | 2 lines
  
   * fixed typo
........
  r10102 | peter | 2008-01-29 22:13:20 +0100 (Tue, 29 Jan 2008) | 2 lines
  
    * fixed typo in r10100
........
  r10103 | peter | 2008-01-29 22:48:45 +0100 (Tue, 29 Jan 2008) | 2 lines
  
    * fixed fpcdir
........
  r10113 | michael | 2008-01-30 10:07:12 +0100 (Wed, 30 Jan 2008) | 1 line
  
  * PXlib added
........
  r10114 | michael | 2008-01-30 11:52:34 +0100 (Wed, 30 Jan 2008) | 1 line
  
  * Unixtype removed for non-unix
........
  r10136 | yury | 2008-02-01 20:20:26 +0100 (Fri, 01 Feb 2008) | 1 line
  
  * Fixed packages compilation for wince.
........


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_2_2@10151 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 583 insertions, 0 deletions

diff --git a/packages/graph/src/inc/modes.inc b/packages/graph/src/inc/modes.inc
new file mode 100644
index 0000000000..bcbcaa232e
--- /dev/null
+++ b/packages/graph/src/inc/modes.inc
@@ -0,0 +1,583 @@
+  {
+
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    This include implements video mode management.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{-----------------------------------------------------------------------}
+{                          Internal routines                            }
+{-----------------------------------------------------------------------}
+
+ procedure res2Mode(x, y, maxColor: longint; var driver,mode: smallInt);
+ var
+   l: longint;
+ begin
+   case maxColor of
+     2: driver := D1bit;
+     4: driver := D2bit;
+     16: driver := D4bit;
+     64: driver := D6bit;
+     256: driver := D8bit;
+     4096: driver := D12bit;
+     32768: driver := D15bit;
+     65536: driver := D16bit;
+{    not yet supported
+     65536*256: driver := D24bit;
+     65536*65536: driver := D32bit;}
+     else
+       begin
+         driver := maxsmallint;
+         exit;
+       end;
+   end;
+   { Check whether this is known/predefined mode }
+   for l := lowNewMode to highNewMode do
+     if (resolutions[l].x = x) and
+        (resolutions[l].y = y) then
+       begin
+         { Found! }
+         mode := l;
+         exit;
+       end;
+   { Not Found }
+   mode := maxsmallint;
+ end;
+
+function mode2res(modeNr: smallInt; var x,y: longint): boolean;
+begin
+  if (modeNr < lowNewMode) or
+     (modeNr > highNewMode) then
+    begin
+      mode2res := false;
+      exit;
+    end;
+  mode2res := true;
+  x := resolutions[modeNr].x;
+  y := resolutions[modeNr].y;
+end;
+
+
+ procedure addmode(const mode: TModeInfo);
+  {********************************************************}
+  { Procedure AddMode()                                    }
+  {--------------------------------------------------------}
+  { This routine adds <mode> to the list of recognized     }
+  { modes. Duplicates are allowed.                         }
+  {********************************************************}
+  var
+    i,driverNr, modeNr: smallint;
+    prev: PModeInfo;
+    list: PModeInfo;
+    newlst : PModeInfo;
+  begin
+    res2Mode(mode.maxx+1,mode.maxy+1,mode.maxColor,driverNr,ModeNr);
+    { bitdepth supported? }
+    if (driverNr <> maxsmallint) then
+     begin
+      { Yes, add the mode }
+      if not assigned(newModeList.modeinfo[driverNr]) then
+        begin
+{$ifdef logging}
+          logln('Adding resolution '+strf(modenr)+' for drivernr '+strf(drivernr)+
+                ' ('+strf(mode.maxx)+'x'+strf(mode.maxy)+')');
+{$endif logging}
+          new(newModeList.modeinfo[driverNr]);
+          newModeList.modeinfo[driverNr]^ := mode;
+          newModeList.modeinfo[driverNr]^.next:=nil;
+        end
+      else
+        begin
+          prev := nil;
+          list := newModeList.modeinfo[driverNr];
+          { sort first by x resolution, then by yresolution }
+          while assigned(list) and
+                ((list^.maxx < mode.maxx) or
+                 ((list^.maxx = mode.maxx) and
+                  (list^.maxy < mode.maxy))) do
+            begin
+              prev := list;
+              list := list^.next;
+            end;
+          { mode already exists? -> replace (assume later added modes are }
+          { better)                                                       }
+          if assigned(list) and
+             (list^.maxx = mode.maxx) and
+             (list^.maxy = mode.maxy) then
+            begin
+{$ifdef logging}
+              logln('replacing resolution '+strf(modenr)+' for drivernr '+strf(drivernr)+
+                ' ('+strf(mode.maxx)+'x'+strf(mode.maxy)+')');
+{$endif logging}
+              { save/restore next, drivernr and drivermode in list }
+              prev := list^.next;
+              list^ := mode;
+              list^.next := prev;
+            end
+          else
+            begin
+              new(newLst);
+              { Increase the number of modes for this driver }
+              newLst^ := mode;
+{$ifdef logging}
+              logln('Adding resolution '+strf(modenr)+' for drivernr '+strf(drivernr)+
+                ' ('+strf(mode.maxx)+'x'+strf(mode.maxy)+')');
+{$endif logging}
+              newLst^.next := list;
+              if assigned(prev) then
+                prev^.next := newLst
+              else
+                newModeList.modeinfo[driverNr] := newLst;
+            end;
+        end;
+       { renumber internmodenumber }
+       list := newModeList.modeinfo[driverNr];
+       i:=0;
+       while assigned(list) do
+        begin
+          inc(i);
+          list^.internmodenumber:=i;
+          list:=list^.next;
+        end;
+       newModeList.loHiModeNr[driverNr].lo:=1;
+       newModeList.loHiModeNr[driverNr].hi:=i;
+     end;
+    { TP-like mode stuff }
+    if not assigned(ModeList) then
+      begin
+        new(ModeList);
+        System.move(mode, ModeList^, sizeof(Mode));
+      end
+    else
+      begin
+        list := ModeList;
+        { go to the end of the list }
+        while assigned(list^.next) do
+          list:=list^.next;
+        new(NewLst);
+        list^.next := NewLst;
+        System.move(mode, NewLst^, sizeof(Mode));
+      end;
+  end;
+
+
+  procedure initmode(var mode: TModeInfo);
+  {********************************************************}
+  { Procedure InitMode()                                   }
+  {--------------------------------------------------------}
+  { This routine initialized the mode to default values.   }
+  {********************************************************}
+   begin
+     FillChar(mode,sizeof(Mode),#0);
+   end;
+
+
+   function searchmode(ReqDriver : smallint; var reqmode: smallint): PModeInfo;
+  {********************************************************}
+  { Procedure SearchMode()                                 }
+  {--------------------------------------------------------}
+  { This routine searches the list of recognized modes,    }
+  { and tries to find the <reqmode> in the <reqdriver>     }
+  { return nil if not found, otherwise returns the found   }
+  { structure.                                             }
+  { note: if reqmode = -32768, the first mode available    }
+  {   for reqdriver is returned (JM)                       }
+  {       if reqmode = -32767, the last mode available     }
+  {   for reqdriver is returned (JM)                       }
+  {********************************************************}
+    var
+     list, lastModeInfo: PModeInfo;
+     x,y: longint;
+    begin
+{$ifdef logging}
+      LogLn('Searching for driver '+strf(reqdriver)+' and mode '+strf(reqmode));
+{$endif logging}
+      if (reqDriver >= lowNewDriver) and
+         (reqDriver <= highNewDriver) then
+        begin
+          case reqMode of
+            -32768:
+              begin
+                reqMode := newModeList.loHiModeNr[reqDriver].lo;
+                searchMode := newModeList.modeinfo[reqDriver];
+              end;
+            -32767:
+              begin
+                reqMode := newModeList.loHiModeNr[reqDriver].hi;
+                searchMode := nil;
+                { Are there any modes available for this driver? }
+                if reqMode <> -1 then
+                  begin
+                    list := newModeList.modeinfo[reqDriver];
+                    while assigned(list^.next) do
+                      list := list^.next;
+                    searchMode := list;
+                  end;
+              end;
+            else
+              begin
+                list := newModeList.modeinfo[reqDriver];
+                searchMode := nil;
+                if not assigned(list) then
+                  exit;
+                if mode2res(reqMode,x,y) then
+                  begin
+                    x := pred(x);
+                    y := pred(y);
+                    while assigned(list) and
+                          ((list^.maxx < x) or
+                           ((list^.maxx = x) and
+                            (list^.maxy < y))) do
+                      list := list^.next;
+                    if not assigned(list) or
+                       (list^.maxx <> x) or
+                       (list^.maxy <> y) then
+                      list := nil;
+                    searchmode := list;
+                  end
+                else
+                  begin
+                    while assigned(list) and
+                          (list^.internModeNumber <> reqMode) do
+                      list := list^.next;
+                    searchMode := list;
+                  end;
+
+              end;
+          end;
+          exit;
+        end;
+       searchmode := nil;
+       list := ModeList;
+       If assigned(list) then
+         lastModeInfo := list;
+       { go to the end of the list }
+       while assigned(list) do
+         begin
+{$ifdef logging}
+           Log('Found driver '+strf(list^.DriverNumber)+
+               ' and mode $'+hexstr(list^.ModeNumber,4)+'...');
+{$endif logging}
+             if ((list^.DriverNumber = ReqDriver) and
+                 ((list^.ModeNumber = ReqMode) or
+                  { search for lowest mode }
+                  (reqMode = -32768))) or
+                 { search for highest mode }
+                ((reqMode = -32767) and
+                 (lastModeInfo^.driverNumber = reqDriver) and
+                 ((list^.driverNumber <> lastModeInfo^.driverNumber) or
+                   not(assigned(list^.next)))) then
+               begin
+{$ifdef logging}
+                 LogLn('Accepted!');
+{$endif logging}
+                 searchmode := list;
+                 If reqMode = -32768 then
+                   reqMode := list^.ModeNumber
+                 else if reqMode = -32767 then
+                   begin
+                     reqMode := lastModeInfo^.ModeNumber;
+                     searchMode := lastModeInfo;
+                   end;
+                 exit;
+               end;
+{$ifdef logging}
+             LogLn('Rejected.');
+{$endif logging}
+             lastModeInfo := list;
+             list:=list^.next;
+          end;
+    end;
+
+
+{-----------------------------------------------------------------------}
+{                          External routines                            }
+{-----------------------------------------------------------------------}
+
+   function GetModeName(ModeNumber: smallint): string;
+  {********************************************************}
+  { Function GetModeName()                                 }
+  {--------------------------------------------------------}
+  { Checks  the known video list, and returns ModeName     }
+  { string. On error returns an empty string.              }
+  {********************************************************}
+    var
+     mode: PModeInfo;
+    begin
+      mode:=nil;
+      GetModeName:='';
+      { only search in the current driver modes ... }
+      mode:=SearchMode(IntCurrentNewDriver,ModeNumber);
+      if assigned(mode) then
+          GetModeName:=Mode^.ModeName
+      else
+         _GraphResult := grInvalidMode;
+    end;
+
+   function GetGraphMode: smallint;
+     begin
+      GetGraphMode := IntCurrentMode;
+     end;
+
+   function GetMaxMode: smallint;
+   { I know , i know, this routine is very slow, and it would }
+   { be much easier to sort the linked list of possible modes }
+   { instead of doing this, but I'm lazy!! And anyways, the   }
+   { speed of the routine here is not that important....      }
+    var
+     i: smallint;
+     mode: PModeInfo;
+    begin
+      mode:=nil;
+      i:=0;
+      repeat
+        inc(i);
+        { mode 0 always exists... }
+        { start search at 1..     }
+        mode:=SearchMode(IntCurrentNewDriver,i);
+      until not assigned(mode);
+      GetMaxMode:=i;
+    end;
+
+
+    procedure GetModeRange(GraphDriver: smallint; var LoMode,
+      HiMode: smallint);
+      var
+       mode : PModeInfo;
+     begin
+       {$ifdef logging}
+       LogLn('GetModeRange : Enter ('+strf(GraphDriver)+')');
+       {$endif}
+       HiMode:=-1;
+       mode := nil;
+       { First search if the graphics driver is supported ..  }
+       { since mode zero is always supported.. if that driver }
+       { is supported it should return something...           }
+
+       { not true, e.g. VESA doesn't have a mode 0. Changed so}
+       { -32768 means "return lowest mode in second parameter }
+       { also, under VESA some modes may not be supported     }
+       { (e.g. $108 here) while some with a higher number can }
+       { be supported ($112 and onward), so I also added that }
+       { -32767 means "return highest mode in second parameter}
+       { This whole system should be overhauled though to work}
+       { without such hacks (JM)                              }
+       loMode := -32768;
+       mode := SearchMode(GraphDriver, loMode);
+       { driver not supported...}
+       if not assigned(mode) then
+         begin
+           loMode := -1;
+           exit;
+         end;
+       {$ifdef logging}
+       LogLn('GetModeRange : Mode '+strf(lomode)+' found');
+       {$endif}
+       { now it exists... find highest available mode... }
+       hiMode := -32767;
+       mode:=SearchMode(GraphDriver,hiMode);
+     end;
+
+
+  procedure SetGraphMode(mode: smallint);
+    var
+     modeinfo: PModeInfo;
+     usedDriver: Integer;
+    begin
+      { check if the mode exists... }
+      { Depending on the modenumber, we search using the old or new }
+      { graphdriver number (because once we entered graphmode,      }
+      { getgraphmode() returns the old mode number and              }
+      { both setgraphmode(getgraphmode) and setgraphmode(mAAAxBBB)  }
+      { have to work (JM)                                           }
+      case mode of
+        detectMode:
+          begin
+            mode := -32767;
+            usedDriver := IntcurrentNewDriver;
+            modeInfo := searchmode(IntcurrentNewDriver,mode);
+          end;
+        lowNewMode..highNewMode:
+          begin
+            usedDriver := IntcurrentNewDriver;
+            modeInfo := searchmode(IntcurrentNewDriver,mode);
+          end;
+        else
+          begin
+            usedDriver := IntcurrentDriver;
+            modeinfo := searchmode(IntcurrentDriver,mode);
+          end;
+      end;
+      if not assigned(modeinfo) then
+        begin
+{$ifdef logging}
+          LogLn('Mode setting failed in setgraphmode pos 1');
+{$endif logging}
+          _GraphResult := grInvalidMode;
+          exit;
+       end;
+    { reset all hooks...}
+    DefaultHooks;
+
+      { required hooks - returns error if no hooks to these }
+      { routines.                                           }
+      if assigned(modeinfo^.DirectPutPixel) then
+         DirectPutPixel := modeinfo^.DirectPutPixel
+      else
+        begin
+{$ifdef logging}
+          LogLn('Mode setting failed in setgraphmode pos 2');
+{$endif logging}
+         DefaultHooks;
+         _Graphresult := grInvalidMode;
+         exit;
+       end;
+
+      if assigned(modeinfo^.PutPixel) then
+         PutPixel := modeinfo^.PutPixel
+      else
+        begin
+{$ifdef logging}
+          LogLn('Mode setting failed in setgraphmode pos 3');
+{$endif logging}
+         DefaultHooks;
+         _Graphresult := grInvalidMode;
+         exit;
+       end;
+
+      if assigned(modeinfo^.GetPixel) then
+         GetPixel := modeinfo^.GetPixel
+      else
+        begin
+{$ifdef logging}
+          LogLn('Mode setting failed in setgraphmode pos 4');
+{$endif logging}
+         DefaultHooks;
+         _Graphresult := grInvalidMode;
+         exit;
+       end;
+
+     if assigned(modeinfo^.SetRGBPalette) then
+         SetRGBPalette := modeinfo^.SetRGBPalette
+     else
+        begin
+{$ifdef logging}
+          LogLn('Mode setting failed in setgraphmode pos 5');
+{$endif logging}
+         DefaultHooks;
+         _Graphresult := grInvalidMode;
+         exit;
+       end;
+
+     if assigned(modeinfo^.GetRGBPalette) then
+         GetRGBPalette := modeinfo^.GetRGBPalette
+     else
+        begin
+{$ifdef logging}
+          LogLn('Mode setting failed in setgraphmode pos 6');
+{$endif logging}
+         DefaultHooks;
+         _Graphresult := grInvalidMode;
+         exit;
+       end;
+
+      { optional hooks. }
+      if assigned(modeinfo^.SetAllPalette) then
+        SetAllPalette := modeinfo^.SetAllPalette;
+
+      if assigned(modeinfo^.ClearViewPort) then
+         ClearViewPort := modeinfo^.ClearViewPort;
+      if assigned(modeinfo^.PutImage) then
+         PutImage := modeinfo^.PutImage;
+      if assigned(modeinfo^.GetImage) then
+         GetImage := modeinfo^.GetImage;
+      if assigned(modeinfo^.ImageSize) then
+         ImageSize := modeinfo^.ImageSize;
+      if assigned(modeinfo^.GetScanLine) then
+         GetScanLine := modeinfo^.GetScanLine;
+      if assigned(modeinfo^.Line) then
+         Line := modeinfo^.Line;
+      if assigned(modeinfo^.InternalEllipse) then
+         InternalEllipse := modeinfo^.InternalEllipse;
+      if assigned(modeinfo^.PatternLine) then
+         PatternLine := modeinfo^.PatternLine;
+      if assigned(modeinfo^.HLine) then
+         Hline := modeinfo^.Hline;
+      if assigned(modeinfo^.Vline) then
+         VLine := modeinfo^.VLine;
+      if assigned(modeInfo^.SetVisualPage) then
+         SetVisualPage := modeInfo^.SetVisualPage;
+      if assigned(modeInfo^.SetActivePage) then
+         SetActivePage := modeInfo^.SetActivePage;
+      if assigned(modeInfo^.OutTextXY) then
+         OutTextXY:=modeInfo^.OutTextXY;
+
+      IntCurrentMode := modeinfo^.ModeNumber;
+      IntCurrentDriver := usedDriver;
+{$ifdef logging}
+       logln('Entering mode '+strf(intCurrentMode)+' of driver '+strf(intCurrentDriver));
+{$endif logging}
+      XAspect := modeinfo^.XAspect;
+      YAspect := modeinfo^.YAspect;
+      MaxX := modeinfo^.MaxX;
+      MaxY := modeinfo^.MaxY;
+{$ifdef logging}
+      logln('maxx = '+strf(maxx)+', maxy = '+strf(maxy));
+{$endif logging}
+      HardwarePages := modeInfo^.HardwarePages;
+      MaxColor := modeinfo^.MaxColor;
+      PaletteSize := modeinfo^.PaletteSize;
+      { is this a direct color mode? }
+      DirectColor := modeinfo^.DirectColor;
+      { now actually initialize the video mode...}
+      { check first if the routine exists        }
+      if not assigned(modeinfo^.InitMode) then
+        begin
+{$ifdef logging}
+          LogLn('Mode setting failed in setgraphmode pos 7');
+{$endif logging}
+          DefaultHooks;
+          _GraphResult := grInvalidMode;
+          exit;
+        end;
+      modeinfo^.InitMode;
+      if _GraphResult <> grOk then
+        begin
+          DefaultHooks;
+          exit;
+        end;
+      isgraphmode := true;
+      { It is very important that this call be made }
+      { AFTER the other variables have been setup.  }
+      { Since it calls some routines which rely on  }
+      { those variables.                            }
+      SetActivePage(0);
+      SetVisualPage(0);
+      SetViewPort(0,0,MaxX,MaxY,TRUE);
+      GraphDefaults;
+    end;
+
+    procedure RestoreCrtMode;
+  {********************************************************}
+  { Procedure RestoreCRTMode()                             }
+  {--------------------------------------------------------}
+  { Returns to the video mode which was set before the     }
+  { InitGraph. Hardware state is set to the old values.    }
+  {--------------------------------------------------------}
+  { NOTE: -                                                }
+  {       -                                                }
+  {********************************************************}
+     begin
+       isgraphmode := false;
+       RestoreVideoState;
+     end;
+