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, 657 insertions, 0 deletions

diff --git a/packages/amunits/src/coreunits/layers.pas b/packages/amunits/src/coreunits/layers.pas
new file mode 100644
index 0000000000..b99ceb0883
--- /dev/null
+++ b/packages/amunits/src/coreunits/layers.pas
@@ -0,0 +1,657 @@
+{
+    This file is part of the Free Pascal run time library.
+
+    A file in Amiga system run time library.
+    Copyright (c) 1998-2003 by Nils Sjoholm
+    member of the Amiga RTL development team.
+
+    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.
+
+ **********************************************************************}
+{
+    History:
+
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib. Implemented autoopening
+    of the library.
+    14 Jan 2003.
+
+    Update for AmigaOS 3.9.
+    Changed start code for unit.
+    06 Feb 2003.
+
+    Changed integer > smallint,
+            cardinal > longword.
+    09 Feb 2003.
+
+    nils.sjoholm@mailbox.swipnet.se
+}
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+   {$smartlink on}
+{$endif use_amiga_smartlink}
+
+UNIT layers;
+
+INTERFACE
+USES exec, graphics, utility;
+
+const
+
+    LAYERSIMPLE         = 1;
+    LAYERSMART          = 2;
+    LAYERSUPER          = 4;
+    LAYERUPDATING       = $10;
+    LAYERBACKDROP       = $40;
+    LAYERREFRESH        = $80;
+    LAYER_CLIPRECTS_LOST = $100;        { during BeginUpdate }
+                                        { or during layerop }
+                                        { this happens if out of memory }
+    LMN_REGION          = -1;
+
+type
+ pLayer_Info = ^tLayer_Info;
+ tLayer_Info = record
+    top_layer           : pLayer;
+    check_lp            : pLayer;              { !! Private !! }
+    obs                 : pClipRect;
+    FreeClipRects       : pClipRect;              { !! Private !! }
+    PrivateReserve1,                            { !! Private !! }
+    PrivateReserve2     : Longint;              { !! Private !! }
+    Lock                : tSignalSemaphore;      { !! Private !! }
+    gs_Head             : tMinList;              { !! Private !! }
+    PrivateReserve3     : smallint;                 { !! Private !! }
+    PrivateReserve4     : Pointer;              { !! Private !! }
+    Flags               : WORD;
+    fatten_count        : Shortint;                 { !! Private !! }
+    LockLayersCount     : Shortint;                 { !! Private !! }
+    PrivateReserve5     : smallint;                 { !! Private !! }
+    BlankHook,                                  { !! Private !! }
+    LayerInfo_extra     : Pointer;              { !! Private !! }
+ end;
+
+const
+    NEWLAYERINFO_CALLED = 1;
+
+{
+ * LAYERS_NOBACKFILL is the value needed to get no backfill hook
+ * LAYERS_BACKFILL is the value needed to get the default backfill hook
+ }
+ LAYERS_NOBACKFILL      = 1;
+ LAYERS_BACKFILL        = 0;
+
+ LAYERSNAME : PChar = 'layers.library';
+
+VAR LayersBase : pLibrary;
+
+FUNCTION BeginUpdate(l : pLayer) : LONGINT;
+FUNCTION BehindLayer(dummy : LONGINT; layer : pLayer) : LONGINT;
+FUNCTION CreateBehindHookLayer(li : pLayer_Info; bm : pBitMap; x0 : LONGINT; y0 : LONGINT; x1 : LONGINT; y1 : LONGINT; flags : LONGINT; hook : pHook; bm2 : pBitMap) : pLayer;
+FUNCTION CreateBehindLayer(li : pLayer_Info; bm : pBitMap; x0 : LONGINT; y0 : LONGINT; x1 : LONGINT; y1 : LONGINT; flags : LONGINT; bm2 : pBitMap) : pLayer;
+FUNCTION CreateUpfrontHookLayer(li : pLayer_Info; bm : pBitMap; x0 : LONGINT; y0 : LONGINT; x1 : LONGINT; y1 : LONGINT; flags : LONGINT; hook : pHook; bm2 : pBitMap) : pLayer;
+FUNCTION CreateUpfrontLayer(li : pLayer_Info; bm : pBitMap; x0 : LONGINT; y0 : LONGINT; x1 : LONGINT; y1 : LONGINT; flags : LONGINT; bm2 : pBitMap) : pLayer;
+FUNCTION DeleteLayer(dummy : LONGINT; layer : pLayer) : LONGINT;
+PROCEDURE DisposeLayerInfo(li : pLayer_Info);
+PROCEDURE DoHookClipRects(hook : pHook; rport : pRastPort;const rect : pRectangle);
+PROCEDURE EndUpdate(layer : pLayer; flag : ULONG);
+FUNCTION FattenLayerInfo(li : pLayer_Info) : LONGINT;
+PROCEDURE InitLayers(li : pLayer_Info);
+FUNCTION InstallClipRegion(layer : pLayer;const region : pRegion) : pRegion;
+FUNCTION InstallLayerHook(layer : pLayer; hook : pHook) : pHook;
+FUNCTION InstallLayerInfoHook(li : pLayer_Info;const hook : pHook) : pHook;
+PROCEDURE LockLayer(dummy : LONGINT; layer : pLayer);
+PROCEDURE LockLayerInfo(li : pLayer_Info);
+PROCEDURE LockLayers(li : pLayer_Info);
+FUNCTION MoveLayer(dummy : LONGINT; layer : pLayer; dx : LONGINT; dy : LONGINT) : LONGINT;
+FUNCTION MoveLayerInFrontOf(layer_to_move : pLayer; other_layer : pLayer) : LONGINT;
+FUNCTION MoveSizeLayer(layer : pLayer; dx : LONGINT; dy : LONGINT; dw : LONGINT; dh : LONGINT) : LONGINT;
+FUNCTION NewLayerInfo : pLayer_Info;
+PROCEDURE ScrollLayer(dummy : LONGINT; layer : pLayer; dx : LONGINT; dy : LONGINT);
+FUNCTION SizeLayer(dummy : LONGINT; layer : pLayer; dx : LONGINT; dy : LONGINT) : LONGINT;
+PROCEDURE SortLayerCR(layer : pLayer; dx : LONGINT; dy : LONGINT);
+PROCEDURE SwapBitsRastPortClipRect(rp : pRastPort; cr : pClipRect);
+PROCEDURE ThinLayerInfo(li : pLayer_Info);
+PROCEDURE UnlockLayer(layer : pLayer);
+PROCEDURE UnlockLayerInfo(li : pLayer_Info);
+PROCEDURE UnlockLayers(li : pLayer_Info);
+FUNCTION UpfrontLayer(dummy : LONGINT; layer : pLayer) : LONGINT;
+FUNCTION WhichLayer(li : pLayer_Info; x : LONGINT; y : LONGINT) : pLayer;
+
+{Here we read how to compile this unit}
+{You can remove this include and use a define instead}
+{$I useautoopenlib.inc}
+{$ifdef use_init_openlib}
+procedure InitLAYERSLibrary;
+{$endif use_init_openlib}
+
+{This is a variable that knows how the unit is compiled}
+var
+    LAYERSIsCompiledHow : longint;
+
+IMPLEMENTATION
+
+uses
+{$ifndef dont_use_openlib}
+msgbox;
+{$endif dont_use_openlib}
+
+FUNCTION BeginUpdate(l : pLayer) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L l,A0
+    MOVEA.L LayersBase,A6
+    JSR -078(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION BehindLayer(dummy : LONGINT; layer : pLayer) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L dummy,A0
+    MOVEA.L layer,A1
+    MOVEA.L LayersBase,A6
+    JSR -054(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION CreateBehindHookLayer(li : pLayer_Info; bm : pBitMap; x0 : LONGINT; y0 : LONGINT; x1 : LONGINT; y1 : LONGINT; flags : LONGINT; hook : pHook; bm2 : pBitMap) : pLayer;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L bm,A1
+    MOVE.L  x0,D0
+    MOVE.L  y0,D1
+    MOVE.L  x1,D2
+    MOVE.L  y1,D3
+    MOVE.L  flags,D4
+    MOVEA.L hook,A3
+    MOVEA.L bm2,A2
+    MOVEA.L LayersBase,A6
+    JSR -192(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION CreateBehindLayer(li : pLayer_Info; bm : pBitMap; x0 : LONGINT; y0 : LONGINT; x1 : LONGINT; y1 : LONGINT; flags : LONGINT; bm2 : pBitMap) : pLayer;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L bm,A1
+    MOVE.L  x0,D0
+    MOVE.L  y0,D1
+    MOVE.L  x1,D2
+    MOVE.L  y1,D3
+    MOVE.L  flags,D4
+    MOVEA.L bm2,A2
+    MOVEA.L LayersBase,A6
+    JSR -042(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION CreateUpfrontHookLayer(li : pLayer_Info; bm : pBitMap; x0 : LONGINT; y0 : LONGINT; x1 : LONGINT; y1 : LONGINT; flags : LONGINT; hook : pHook; bm2 : pBitMap) : pLayer;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L bm,A1
+    MOVE.L  x0,D0
+    MOVE.L  y0,D1
+    MOVE.L  x1,D2
+    MOVE.L  y1,D3
+    MOVE.L  flags,D4
+    MOVEA.L hook,A3
+    MOVEA.L bm2,A2
+    MOVEA.L LayersBase,A6
+    JSR -186(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION CreateUpfrontLayer(li : pLayer_Info; bm : pBitMap; x0 : LONGINT; y0 : LONGINT; x1 : LONGINT; y1 : LONGINT; flags : LONGINT; bm2 : pBitMap) : pLayer;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L bm,A1
+    MOVE.L  x0,D0
+    MOVE.L  y0,D1
+    MOVE.L  x1,D2
+    MOVE.L  y1,D3
+    MOVE.L  flags,D4
+    MOVEA.L bm2,A2
+    MOVEA.L LayersBase,A6
+    JSR -036(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION DeleteLayer(dummy : LONGINT; layer : pLayer) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L dummy,A0
+    MOVEA.L layer,A1
+    MOVEA.L LayersBase,A6
+    JSR -090(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+PROCEDURE DisposeLayerInfo(li : pLayer_Info);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L LayersBase,A6
+    JSR -150(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE DoHookClipRects(hook : pHook; rport : pRastPort;const rect : pRectangle);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L hook,A0
+    MOVEA.L rport,A1
+    MOVEA.L rect,A2
+    MOVEA.L LayersBase,A6
+    JSR -216(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE EndUpdate(layer : pLayer; flag : ULONG);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L layer,A0
+    MOVE.L  flag,D0
+    MOVEA.L LayersBase,A6
+    JSR -084(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+FUNCTION FattenLayerInfo(li : pLayer_Info) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L LayersBase,A6
+    JSR -156(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+PROCEDURE InitLayers(li : pLayer_Info);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L LayersBase,A6
+    JSR -030(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+FUNCTION InstallClipRegion(layer : pLayer;const region : pRegion) : pRegion;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L layer,A0
+    MOVEA.L region,A1
+    MOVEA.L LayersBase,A6
+    JSR -174(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION InstallLayerHook(layer : pLayer; hook : pHook) : pHook;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L layer,A0
+    MOVEA.L hook,A1
+    MOVEA.L LayersBase,A6
+    JSR -198(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION InstallLayerInfoHook(li : pLayer_Info;const hook : pHook) : pHook;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L hook,A1
+    MOVEA.L LayersBase,A6
+    JSR -204(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+PROCEDURE LockLayer(dummy : LONGINT; layer : pLayer);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L dummy,A0
+    MOVEA.L layer,A1
+    MOVEA.L LayersBase,A6
+    JSR -096(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE LockLayerInfo(li : pLayer_Info);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L LayersBase,A6
+    JSR -120(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE LockLayers(li : pLayer_Info);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L LayersBase,A6
+    JSR -108(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+FUNCTION MoveLayer(dummy : LONGINT; layer : pLayer; dx : LONGINT; dy : LONGINT) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L dummy,A0
+    MOVEA.L layer,A1
+    MOVE.L  dx,D0
+    MOVE.L  dy,D1
+    MOVEA.L LayersBase,A6
+    JSR -060(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION MoveLayerInFrontOf(layer_to_move : pLayer; other_layer : pLayer) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L layer_to_move,A0
+    MOVEA.L other_layer,A1
+    MOVEA.L LayersBase,A6
+    JSR -168(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION MoveSizeLayer(layer : pLayer; dx : LONGINT; dy : LONGINT; dw : LONGINT; dh : LONGINT) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L layer,A0
+    MOVE.L  dx,D0
+    MOVE.L  dy,D1
+    MOVE.L  dw,D2
+    MOVE.L  dh,D3
+    MOVEA.L LayersBase,A6
+    JSR -180(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION NewLayerInfo : pLayer_Info;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L LayersBase,A6
+    JSR -144(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+PROCEDURE ScrollLayer(dummy : LONGINT; layer : pLayer; dx : LONGINT; dy : LONGINT);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L dummy,A0
+    MOVEA.L layer,A1
+    MOVE.L  dx,D0
+    MOVE.L  dy,D1
+    MOVEA.L LayersBase,A6
+    JSR -072(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+FUNCTION SizeLayer(dummy : LONGINT; layer : pLayer; dx : LONGINT; dy : LONGINT) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L dummy,A0
+    MOVEA.L layer,A1
+    MOVE.L  dx,D0
+    MOVE.L  dy,D1
+    MOVEA.L LayersBase,A6
+    JSR -066(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+PROCEDURE SortLayerCR(layer : pLayer; dx : LONGINT; dy : LONGINT);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L layer,A0
+    MOVE.L  dx,D0
+    MOVE.L  dy,D1
+    MOVEA.L LayersBase,A6
+    JSR -210(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE SwapBitsRastPortClipRect(rp : pRastPort; cr : pClipRect);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L rp,A0
+    MOVEA.L cr,A1
+    MOVEA.L LayersBase,A6
+    JSR -126(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE ThinLayerInfo(li : pLayer_Info);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L LayersBase,A6
+    JSR -162(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE UnlockLayer(layer : pLayer);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L layer,A0
+    MOVEA.L LayersBase,A6
+    JSR -102(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE UnlockLayerInfo(li : pLayer_Info);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L LayersBase,A6
+    JSR -138(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+PROCEDURE UnlockLayers(li : pLayer_Info);
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVEA.L LayersBase,A6
+    JSR -114(A6)
+    MOVEA.L (A7)+,A6
+  END;
+END;
+
+FUNCTION UpfrontLayer(dummy : LONGINT; layer : pLayer) : LONGINT;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L dummy,A0
+    MOVEA.L layer,A1
+    MOVEA.L LayersBase,A6
+    JSR -048(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+FUNCTION WhichLayer(li : pLayer_Info; x : LONGINT; y : LONGINT) : pLayer;
+BEGIN
+  ASM
+    MOVE.L  A6,-(A7)
+    MOVEA.L li,A0
+    MOVE.L  x,D0
+    MOVE.L  y,D1
+    MOVEA.L LayersBase,A6
+    JSR -132(A6)
+    MOVEA.L (A7)+,A6
+    MOVE.L  D0,@RESULT
+  END;
+END;
+
+const
+    { Change VERSION and LIBVERSION to proper values }
+
+    VERSION : string[2] = '0';
+    LIBVERSION : longword = 0;
+
+{$ifdef use_init_openlib}
+  {$Info Compiling initopening of layers.library}
+  {$Info don't forget to use InitLAYERSLibrary in the beginning of your program}
+
+var
+    layers_exit : Pointer;
+
+procedure CloselayersLibrary;
+begin
+    ExitProc := layers_exit;
+    if LayersBase <> nil then begin
+        CloseLibrary(LayersBase);
+        LayersBase := nil;
+    end;
+end;
+
+procedure InitLAYERSLibrary;
+begin
+    LayersBase := nil;
+    LayersBase := OpenLibrary(LAYERSNAME,LIBVERSION);
+    if LayersBase <> nil then begin
+        layers_exit := ExitProc;
+        ExitProc := @CloselayersLibrary;
+    end else begin
+        MessageBox('FPC Pascal Error',
+        'Can''t open layers.library version ' + VERSION + #10 +
+        'Deallocating resources and closing down',
+        'Oops');
+        halt(20);
+    end;
+end;
+
+begin
+    LAYERSIsCompiledHow := 2;
+{$endif use_init_openlib}
+
+{$ifdef use_auto_openlib}
+  {$Info Compiling autoopening of layers.library}
+
+var
+    layers_exit : Pointer;
+
+procedure CloselayersLibrary;
+begin
+    ExitProc := layers_exit;
+    if LayersBase <> nil then begin
+        CloseLibrary(LayersBase);
+        LayersBase := nil;
+    end;
+end;
+
+begin
+    LayersBase := nil;
+    LayersBase := OpenLibrary(LAYERSNAME,LIBVERSION);
+    if LayersBase <> nil then begin
+        layers_exit := ExitProc;
+        ExitProc := @CloselayersLibrary;
+        LAYERSIsCompiledHow := 1;
+    end else begin
+        MessageBox('FPC Pascal Error',
+        'Can''t open layers.library version ' + VERSION + #10 +
+        'Deallocating resources and closing down',
+        'Oops');
+        halt(20);
+    end;
+
+{$endif use_auto_openlib}
+
+{$ifdef dont_use_openlib}
+begin
+    LAYERSIsCompiledHow := 3;
+   {$Warning No autoopening of layers.library compiled}
+   {$Warning Make sure you open layers.library yourself}
+{$endif dont_use_openlib}
+
+
+END. (* UNIT LAYERS *)
+
+
+