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

diff --git a/packages/rexx/src/rexxsaa.pp b/packages/rexx/src/rexxsaa.pp
new file mode 100644
index 0000000000..7eff1fe46a
--- /dev/null
+++ b/packages/rexx/src/rexxsaa.pp
@@ -0,0 +1,872 @@
+{
+    Copyright (c) 1989, 1991 IBM Corporation
+    Copyright (c) 2003 by Yuri Prokushev (prokushev@freemail.ru).
+
+    REXX SAA Interface
+
+    This program is free software; you can redistribute it and/or modify it
+    under the terms of the GNU Library General Public License (LGPL) as
+    published by the Free Software Foundation; either version 2 of the
+    License, or (at your option) any later version. 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.
+
+    See the GNU Library General Public License for more details. You should
+    have received a copy of the GNU Library General Public License along
+    with this program; if not, write to the Free Software Foundation, Inc.,
+    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+ **********************************************************************}
+
+{
+@abstract(REXX SAA interface)
+@author(Yuri Prokushev (prokushev@freemail.ru))
+@created(01 Feb 2003)
+@lastmod(13 Feb 2003)
+REXX SAA Interface
+Warning: This code is alfa. Future versions of this unit will propably
+not be compatible.
+}
+(*********************************************************************
+*
+* REXX SAA Interface
+*
+*********************************************************************)
+Unit RexxSAA;
+
+Interface
+
+{$Mode ObjFpc}
+
+Const
+{$IFDEF OS2}
+  REXX='REXX';
+  REXXAPI='REXXAPI';
+{$ELSE}
+  {$IFDEF UNIX}
+    REXX='libregina';
+    REXXAPI='libregina';
+  {$ELSE}
+    REXX='REGINA';
+    REXXAPI='REGINA';
+  {$ENDIF}
+{$ENDIF}
+//********************************************************************
+//                                                                   *
+//                            Common                                 *
+//                                                                   *
+//********************************************************************
+
+//* This section defines return codes and constants that are the      */
+//* same for both 16-bit and 32-bit REXX calls.                       */
+
+//Structure for external interface string (RXSTRING)
+
+Type
+  RxString=record
+    StrLength: Cardinal; // Length of string
+    StrPtr: PChar;       // Pointer to a string
+  end;
+  PRxString=^RxString;   // pointer to a RXSTRING
+
+Const
+  RxAutoBufLen=256;
+
+Type
+  PFN=Pointer;
+
+//Structure for system exit block (RXSYSEXIT) 32-bit
+
+Type
+  RxSysExit=record
+    sysexit_name: PChar;                 // subcom enviro for sysexit
+    sysexit_code: Longint;               // sysexit function code
+  end;
+  PRxSysExit=^RxSysExit;        // pointer to a RXSYSEXIT
+
+// Macros for RXSTRING manipulation
+Function RXNULLSTRING(CONST r:RXSTRING):BOOLEAN;
+Function RXZEROLENSTRING(CONST r:RXSTRING):BOOLEAN;
+Function RXVALIDSTRING(CONST r:RXSTRING):BOOLEAN;
+Function RXSTRLEN(CONST r:RXSTRING):LONGINT;
+Function RXSTRPTR(CONST r:RXSTRING):PChar;
+Procedure MAKERXSTRING(VAR r:RXSTRING;p:PChar;l:LONGINT);
+
+//Call type codes for use on interpreter startup
+Const
+  RxCommand=0;              // Program called as Command
+  RxSubroutine=1;           // Program called as Subroutin
+  RxFunction=2;             // Program called as Function
+
+// Subcommand Interface defines
+
+
+// Drop Authority for RXSUBCOM interface
+
+Const
+  RxSubCom_Droppable=$00;     // handler to be dropped by all
+  RxSubCom_Nondrop=$01;       // process with same PID as the
+                              // registrant may drop environ
+
+// Return Codes from RXSUBCOM interface
+Const
+  RXSUBCOM_ISREG     = $01;    // Subcommand is registered
+  RXSUBCOM_ERROR     = $01;    // Subcommand Ended in Error
+  RXSUBCOM_FAILURE   = $02;    // Subcommand Ended in Failure
+  RXSUBCOM_BADENTRY  = 1001;    // Invalid Entry Conditions
+  RXSUBCOM_NOEMEM    = 1002;    // Insuff stor to complete req
+  RXSUBCOM_BADTYPE   = 1003;    // Bad registration type.
+  RXSUBCOM_NOTINIT   = 1004;    // API system not initialized.
+  RXSUBCOM_OK        =  0;      // Function Complete
+  RXSUBCOM_DUP       = 10;      // Duplicate Environment Name-
+                                // but Registration Completed
+  RXSUBCOM_MAXREG    = 20;      // Cannot register more
+                                // handlers
+  RXSUBCOM_NOTREG    = 30;      // Name Not Registered
+  RXSUBCOM_NOCANDROP = 40;      // Name not droppable
+  RXSUBCOM_LOADERR   = 50;      // Could not load function
+  RXSUBCOM_NOPROC    =127;      // RXSUBCOM routine - not found
+
+// Shared Variable Pool Interface defines
+
+// Function Codes for Variable Pool Interface (shvcode)
+Const
+  RXSHV_SET     =     $00;      // Set var from given value
+  RXSHV_FETCH   =     $01;      // Copy value of var to buffer
+  RXSHV_DROPV   =     $02;      // Drop variable
+  RXSHV_SYSET   =     $03;      // Symbolic name Set variable
+  RXSHV_SYFET   =     $04;      // Symbolic name Fetch variable
+  RXSHV_SYDRO   =     $05;      // Symbolic name Drop variable
+  RXSHV_NEXTV   =     $06;      // Fetch "next" variable
+  RXSHV_PRIV    =     $07;      // Fetch private information
+  RXSHV_EXIT    =     $08;      // Set function exit value
+
+// Return Codes for Variable Pool Interface
+
+Const
+  RXSHV_NOAVL       =  144;      // Interface not available
+
+// Return Code Flags for Variable Pool Interface (shvret)
+
+Const
+  RXSHV_OK       =    $00;      // Execution was OK
+  RXSHV_NEWV     =    $01;      // Variable did not exist
+  RXSHV_LVAR     =    $02;      // Last var trans via SHVNEXTV
+  RXSHV_TRUNC    =    $04;      // Truncation occurred-Fetch
+  RXSHV_BADN     =    $08;      // Invalid variable name
+  RXSHV_MEMFL    =    $10;      // Out of memory failure
+  RXSHV_BADF     =    $80;      // Invalid funct code (shvcode)
+
+// Structure of Shared Variable Request Block (SHVBLOCK)
+Type
+  PSHVBLOCK=^SHVBLOCK;
+  SHVBLOCK=record
+    shvnext: PSHVBLOCK;      // pointer to the next block
+    shvname: RxString;       // Pointer to the name buffer
+    shvvalue: RxString;      // Pointer to the value buffer
+    shvnamelen: Cardinal;    // Length of the name value
+    shvvaluelen: Cardinal;   // Length of the fetch value
+    shvcode: Byte;           // Function code for this block
+    shvret: Byte;            // Individual Return Code Flags
+  end;
+
+// External Function Interface
+
+// Registration Type Identifiers for Available Function Table
+Const
+  RXFUNC_DYNALINK=1;        // Function Available in DLL
+  RXFUNC_CALLENTRY=2;       // Registered as mem entry pt.
+
+// Return Codes from RxFunction interface
+Const
+  RXFUNC_OK          =   0;        // REXX-API Call Successful
+  RXFUNC_DEFINED     =  10;        // Function Defined in AFT
+  RXFUNC_NOMEM       =  20;        // Not Enough Mem to Add
+  RXFUNC_NOTREG      =  30;        // Funct Not Registered in AFT
+  RXFUNC_MODNOTFND   =  40;        // Funct Dll Module Not Found
+  RXFUNC_ENTNOTFND   =  50;        // Funct Entry Point Not Found
+  RXFUNC_NOTINIT     =  60;        // API not initialized
+  RXFUNC_BADTYPE     =  70;        // Bad function type
+
+// System Exits defines
+
+// Drop Authority for Rexx Exit interface
+Const
+  RXEXIT_DROPPABLE   =  $00;     // handler to be dropped by all
+  RXEXIT_NONDROP     =  $01;     // process with same PID as the
+                                 // registrant may drop environ
+// Exit return actions
+Const
+  RXEXIT_HANDLED     = 0;        // Exit handled exit event
+  RXEXIT_NOT_HANDLED = 1;        // Exit passes on exit event
+  RXEXIT_RAISE_ERROR =-1;        // Exit handler error occurred
+
+// Return Codes from RXEXIT interface
+Const
+  RXEXIT_ISREG       =  $01;    // Exit is registered
+  RXEXIT_ERROR       =  $01;    // Exit Ended in Error
+  RXEXIT_FAILURE     =  $02;    // Exit Ended in Failure
+  RXEXIT_BADENTRY    = 1001;    // Invalid Entry Conditions
+  RXEXIT_NOEMEM      = 1002;    // Insuff stor to complete req
+  RXEXIT_BADTYPE     = 1003;    // Bad registration type.
+  RXEXIT_NOTINIT     = 1004;    // API system not initialized.
+  RXEXIT_OK          =  0;      // Function Complete
+  RXEXIT_DUP         = 10;      // Duplicate Exit Name-
+                                // but Registration Completed
+  RXEXIT_MAXREG      = 20;      // Cannot register more
+                                // handlers
+  RXEXIT_NOTREG      = 30;      // Name Not Registered
+  RXEXIT_NOCANDROP   = 40;      // Name not droppable
+  RXEXIT_LOADERR     = 50;      // Could not load function
+  RXEXIT_NOPROC      = 127;     // RXEXIT routine - not found
+
+// System Exit function and sub-function definitions
+Const
+  RXENDLST    = 0;                 // End of exit list.
+  RXFNC       = 2;                 // Process external functions.
+    RXFNCCAL  = 1;                 // subcode value.
+  RXCMD       = 3;                 // Process host commands.
+    RXCMDHST  = 1;                 // subcode value.
+  RXMSQ       = 4;                 // Manipulate queue.
+    RXMSQPLL  = 1;                 // Pull a line from queue
+    RXMSQPSH  = 2;                 // Place a line on queue
+    RXMSQSIZ  = 3;                 // Return num of lines on queue
+    RXMSQNAM  = 20;                // Set active queue name
+  RXSIO       = 5;                 // Session I/O.
+    RXSIOSAY  = 1;                 // SAY a line to STDOUT
+    RXSIOTRC  = 2;                 // Trace output
+    RXSIOTRD  = 3;                 // Read from char stream
+    RXSIODTR  = 4;                 // DEBUG read from char stream
+    RXSIOTLL  = 5;                 // Return linelength(N/A OS/2)
+  RXHLT       = 7;                 // Halt processing.
+    RXHLTCLR  = 1;                 // Clear HALT indicator
+    RXHLTTST  = 2;                 // Test HALT indicator
+  RXTRC       = 8;                 // Test ext trace indicator.
+    RXTRCTST  = 1;                 // subcode value.
+  RXINI       = 9;                 // Initialization processing.
+    RXINIEXT  = 1;                 // subcode value.
+  RXTER       = 10;                // Termination processing.
+    RXTEREXT  = 1;                 // subcode value.
+  RXNOOFEXITS = 11;                // 1 + largest exit number.
+
+Type
+  PEXIT=^Byte;                 // ptr to exit parameter block
+
+// Asynchronous Request Interface defines
+
+// Return Codes from Asynchronous Request interface
+Const
+  RXARI_OK                 = 0;  // Interface completed
+  RXARI_NOT_FOUND          = 1;  // Target program not found
+  RXARI_PROCESSING_ERROR   = 2;  // Error processing request
+
+// Macro Space Interface defines
+
+// Registration Search Order Flags
+Const
+  RXMACRO_SEARCH_BEFORE      = 1;  // Beginning of search order
+  RXMACRO_SEARCH_AFTER       = 2;  // End of search order
+
+// Return Codes from RxMacroSpace interface
+Const
+  RXMACRO_OK                = 0;  // Macro interface completed
+  RXMACRO_NO_STORAGE        = 1;  // Not Enough Storage Available
+  RXMACRO_NOT_FOUND         = 2;  // Requested function not found
+  RXMACRO_EXTENSION_REQUIRED= 3;  // File ext required for save
+  RXMACRO_ALREADY_EXISTS    = 4;  // Macro functions exist
+  RXMACRO_FILE_ERROR        = 5;  // File I/O error in save/load
+  RXMACRO_SIGNATURE_ERROR   = 6;  // Incorrect format for load
+  RXMACRO_SOURCE_NOT_FOUND  = 7;  // Requested cannot be found
+  RXMACRO_INVALID_POSITION  = 8;  // Invalid search order pos
+  RXMACRO_NOT_INIT          = 9;  // API not initialized
+
+//*********************************************************************/
+//*                                                                   */
+//*                            32-bit                                 */
+//*                                                                   */
+//*********************************************************************/
+
+// Main Entry Point to the REXXSAA Interpreter
+
+Function RexxStart(ArgC: Longint;      // Num of args passed to rexx
+         ArgV: PRXSTRING;              // Array of args passed to rex
+         Filename: PChar;              // [d:][path] filename[.ext]
+         Proc: PRXSTRING;              // Loc of rexx proc in memory
+         Env: PChar;                   // ASCIIZ initial environment.
+         rType: Longint;               // type (command,subrtn,funct)
+         Exit_: PRXSYSEXIT;             // SysExit env. names &  codes
+         Ret: PInteger;                   // Ret code from if numeric
+         RetVal: PRXSTRING): Longint; cdecl;  // Retvalue from the rexx proc
+
+Function RexxStart(ArgC: Longint;      // Num of args passed to rexx
+         ArgV: PRXSTRING;              // Array of args passed to rex
+         Filename: PChar;              // [d:][path] filename[.ext]
+         Proc: PRXSTRING;              // Loc of rexx proc in memory
+         Env: PChar;                   // ASCIIZ initial environment.
+         rType: Longint;               // type (command,subrtn,funct)
+         Exit_: PRXSYSEXIT;             // SysExit env. names &  codes
+     var Ret: Integer;                    // Ret code from if numeric
+     var RetVal: RXSTRING): Longint; cdecl;  // Retvalue from the rexx proc
+
+// Subcommand Interface
+
+// This type simplifies coding of a Subcommand handler.
+Type
+  RexxSubcomHandler=function(a: PRXSTRING; b: PWord; c: PRXSTRING): Cardinal; cdecl;
+
+// RexxRegisterSubcomDll -- Register a DLL entry point
+// as a Subcommand handler
+
+Function RexxRegisterSubcomDll(
+         HName:    PChar;       // Name of subcom handler
+         DllName:  PChar;       // Name of DLL
+         ProcName: PChar;       // Name of procedure in DLL
+         UserArea: PWord;       // User area
+         Drop: Cardinal): Cardinal; cdecl;  // Drop authority.
+
+// RexxRegisterSubcomExe -- Register an EXE entry point
+// as a Subcommand handler
+
+Function RexxRegisterSubcomExe(
+         HName:       PChar;            // Name of subcom handler
+         HandlerAddr: PFn;              // address of handler in EXE
+         UserArea:    PWord): Cardinal; cdecl; // User area
+
+// RexxQuerySubcom - Query an environment for Existance
+
+Function RexxQuerySubcom(
+         EnvName: PChar;                // Name of the Environment
+         DllName: PChar;                // DLL Module Name
+         ExCode:  PWord;                // Stor for existance code
+         User:    PWord): Cardinal; cdecl;       // Stor for user word
+
+Function RexxQuerySubcom(
+         EnvName: PChar;                // Name of the Environment
+         DllName: PChar;                // DLL Module Name
+     var ExCode:  Word;                 // Stor for existance code
+     var User:    Word): Cardinal; cdecl;        // Stor for user word
+
+// RexxDeregisterSubcom - Drop registration of a Subcommand
+// environment
+
+Function RexxDeregisterSubcom(
+         EnvName: PChar;                   // Name of the Environment
+         DllName: PChar): Cardinal; cdecl; // DLL Module Name
+
+// Shared Variable Pool Interface
+
+// RexxVariablePool - Request Variable Pool Service
+
+Function RexxVariablePool(Pool: PShvBlock): Cardinal; cdecl;
+Function RexxVariablePool(var Pool: ShvBlock): Cardinal; cdecl; // Pointer to list of SHVBLOCKs
+
+// External Function Interface
+
+// This typedef simplifies coding of an External Function.
+Type
+  RexxFunctionHandler=Function(a: PByte;
+                                b: Cardinal;
+                             var c: RXSTRING;
+                                 d: PChar;
+                             var e: RXSTRING): Cardinal; cdecl;
+
+// RexxRegisterFunctionDll - Register a function in the AFT
+
+Function RexxRegisterFunctionDll(
+        FnName:  PChar;                   // Name of function to add
+        DllName: PChar;                   // Dll file name (if in dll)
+        Entry:   PChar): Cardinal; cdecl; // Entry in dll
+
+// RexxRegisterFunctionExe - Register a function in the AFT
+
+Function RexxRegisterFunctionExe(
+        FnName: PChar;                  // Name of function to add
+        Entry:  PFn): Cardinal; cdecl;  // Entry point in EXE
+
+// RexxDeregisterFunction - Delete a function from the AFT
+
+Function RexxDeregisterFunction(FnName: PChar): Cardinal; cdecl; // Name of function to remove
+
+// RexxQueryFunction - Scan the AFT for a function
+
+Function RexxQueryFunction(FnName: PChar): Cardinal; cdecl; // Name of function to find
+
+// System Exits
+
+// Subfunction RXFNCCAL - External Function Calls
+
+//rxfnc_flags flags
+const
+  rxfferr                       = $01;  // Invalid call to routine.
+  rxffnfnd                      = $02;  // Function not found.
+  rxffsub                       = $04;  // Called as a subroutine
+
+type
+  RxFnCCal_Parm = record
+    rxfnc_flags: Byte;          // function flags
+    rxfnc_name:  PChar;         // Pointer to function name.
+    rxfnc_namel: Word;          // Length of function name.
+    rxfnc_que:   PChar;         // Current queue name.
+    rxfnc_quel:  Word;          // Length of queue name.
+    rxfnc_argc:  Word;          // Number of args in list.
+    rxfnc_argv:  PRxString;     // Pointer to argument list.
+    rxfnc_retc:  RxString;      // Return value.
+  end;
+
+// Subfunction RXCMDHST -- Process Host Commands
+
+// rxcmd_flags flags
+const
+  rxfcfail                      = $01;  // Command failed.
+  rxfcerr                       = $02;  // Command ERROR occurred.
+
+type
+  RxCmdHst_Parm = record
+    rxcmd_flags:    Byte;               // error/failure flags
+    rxcmd_address:  PChar;              // Pointer to address name.
+    rxcmd_addressl: Word;               // Length of address name.
+    rxcmd_dll:      PChar;              // dll name for command.
+    rxcmd_dll_len:  Word;               // Length of dll name.
+    rxcmd_command:  RxString;           // The command string.
+    rxcmd_retc:     RxString;           // Pointer to return buffer
+  end;
+
+
+// Subfunction RXMSQPLL -- Pull Entry from Queue
+
+  RxMsqPll_Parm = record
+    rxmsq_retc: RxString;               // Pointer to dequeued entry
+  end;                                  // buffer.  User allocated.
+
+
+// Subfunction RXMSQPSH -- Push Entry on Queue
+
+// rxmsq_flags flags
+const
+   rxfmlifo                     = $01;  // Stack entry LIFO if set
+
+type
+  RxMsqPsh_Parm = record
+     rxmsq_flags: Byte;                 // LIFO/FIFO flag
+     rxmsq_value: RxString              // The entry to be pushed.
+  end;
+
+// Subfunction RXMSQSIZ -- Return the Current Queue Size
+Type
+  RxMsqSiz_Parm = record
+    rxmsq_size: Cardinal;                  // Number of Lines in Queue
+  end;
+
+
+// Subfunction RXMSQNAM -- Set Current Queue Name
+Type
+  RxMsqNam_Parm = record
+    rxmsq_name: RxString;               // RxString containing
+  end;                                  // queue name.
+
+
+// Subfunction RXSIOSAY -- Perform SAY Clause
+
+Type
+  RxSioSay_Parm = record
+    rxsio_string: RxString;             // String to display.
+  end;
+
+
+// Subfunction RXSIOTRC -- Write Trace Output
+Type
+  RxSioTrc_Parm = record
+    rxsio_string: RxString;             // Trace line to display.
+  end;
+
+// Subfunction RXSIOTRD -- Read Input from the Terminal
+Type
+  RxSioTrd_Parm = record
+    rxsiotrd_retc: RxString;            // RxString for output.
+  end;
+
+// Subfunction RXSIODTR -- Read Debug Input from the Terminal
+Type
+  RxSioDtr_Parm = record
+    rxsiodtr_retc: RxString;            // RxString for output.
+  end;
+
+// Subfunction RXHSTTST -- Test for HALT Condition
+
+// rxhlt_flags flags
+const
+  rxfhhalt                      = $01;  // Set if HALT occurred.
+
+type
+  RxHltTst_Parm = record
+    rxhlt_flags: Byte;                  // Set if HALT occurred
+  end;
+
+
+// Subfunction RXTRCTST -- Test for TRACE Condition
+
+// rxtrc_flags flags
+const
+  rxftrace                      = $01;  // Set to run external trace.
+type
+  RxTrcTst_Parm = record
+    rxtrc_flags: Byte;                  // Set to run external trace
+  end;
+
+// This typedef simplifies coding of an Exit handler.
+Type
+  RexxExitHandler=function(A: Longint;
+                           B: Longint;
+                           C: PEXIT): Cardinal; cdecl;
+
+// RexxRegisterExitDll - Register a system exit.
+
+Function RexxRegisterExitDll(
+         HExit:    PChar;               // Name of the exit handler
+         DllName:  PChar;               // Name of the DLL
+         ProcName: PChar;               // Name of the procedure
+         UserArea: PByte;               // User area
+         Drop:     Cardinal): Cardinal; cdecl;  // Drop authority
+
+
+// RexxRegisterExitExe - Register a system exit.
+
+Function RexxRegisterExitExe(
+         HExit: PChar;                         // Name of the exit handler
+         HandlerAddr: PFn;                     // Address of exit handler
+         UserArea: PByte): Cardinal; cdecl;    // User area
+
+// RexxDeregisterExit - Drop registration of a system exit.
+
+Function RexxDeregisterExit(
+         ExitName: PChar;                   // Exit name
+         DllName:  PChar): Cardinal; cdecl; // DLL module name
+
+// RexxQueryExit - Query an exit for existance.
+
+Function RexxQueryExit(
+         ExitName: PChar;               // Exit name
+         DllName:  PChar;               // DLL Module name.
+     var ExFlag:   Word;                // Existance flag.
+         UserArea: Pointer): Cardinal; cdecl;    // User data.
+
+Function RexxQueryExit(
+         ExitName: PChar;                   // Exit name
+         DllName:  PChar;                   // DLL Module name.
+     var ExFlag:   Word;                    // Existance flag.
+         UserArea: PByte): Cardinal; cdecl; // User data.
+
+Function RexxQueryExit(
+         ExitName: PChar;                   // Exit name
+         DllName:  PChar;                   // DLL Module name.
+         ExFlag:   PWord;                   // Existance flag.
+         UserArea: PByte): Cardinal; cdecl; // User data.
+
+Function RexxQueryExit(
+         ExitName: PChar;                   // Exit name
+         DllName:  PChar;                   // DLL Module name.
+         ExFlag:   PWord;                   // Existance flag.
+         UserArea: Pointer): Cardinal; cdecl; // User data.
+
+// Asynchronous Request Interface
+
+// RexxSetHalt - Request Program Halt
+
+Function RexxSetHalt(
+         Pid: Longint;                      // Process Id
+         Tid: Longint): Cardinal; cdecl;    // Thread Id
+
+// RexxSetTrace - Request Program Trace
+
+Function RexxSetTrace(
+         Pid: Longint;                      // Process Id
+         Tid: Longint): Cardinal; cdecl;    // Thread Id
+
+// RexxResetTrace - Turn Off Program Trace
+
+Function RexxResetTrace(
+         Pid: Longint;                      // Process Id
+         Tid: Longint): Cardinal; cdecl;    // Thread Id
+
+// Macro Space Interface
+
+// RexxAddMacro - Register a function in the Macro Space
+
+Function RexxAddMacro(
+         FnName:   PChar;                      // Function to add or change
+         FileName: PChar;                      // Name of file to get function
+         SrchPos:  Cardinal): Cardinal; cdecl; // Flag indicating search pos
+
+// RexxDropMacro - Remove a function from the Macro Space
+
+Function RexxDropMacro(FnName: PChar): Cardinal; cdecl; // Name of function to remove
+
+// RexxSaveMacroSpace - Save Macro Space functions to a file
+
+Function RexxSaveMacroSpace(
+         ArgC: Cardinal;                  // Argument count (0==save all)
+     var NameLst: PChar;                  // List of funct names to save
+         FileName: PChar): Cardinal; cdecl; // File to save functions in
+
+// RexxLoadMacroSpace - Load Macro Space functions from a file
+
+Function RexxLoadMacroSpace(
+         ArgC:     Cardinal;                // Argument count (0==load all)
+     var NameLst:  PChar;                   // List of funct names to load
+         FileName: PChar): Cardinal; cdecl; // File to load functions from
+
+// RexxQueryMacro - Find a function's search-order position
+
+Function RexxQueryMacro(
+         FnName: PChar;                  // Function to search for
+     var PtrPos: Word): Cardinal; cdecl; // Ptr for position flag return
+
+// RexxReorderMacro - Change a function's search-order
+//                          position
+
+Function RexxReorderMacro(
+         FnName: PChar;                      // Name of funct change order
+         NewPos: Cardinal): Cardinal; cdecl; // New position for function
+
+// RexxClearMacroSpace - Remove all functions from a MacroSpace
+
+Function RexxClearMacroSpace: Cardinal; cdecl; // No Arguments.
+
+(* Not supported yet!!
+/* REGINA EXTENSIONS *********************************************************/
+/* The following function is an extension to the standard. Never try to
+ * address the function directly. Use the dynamic linking machanism of
+ * your operating system instead. This function was introduced in version
+ * 2.0.
+ * Returns: ULONG, in lower byte the two-digit fraction part of the version.
+ *          The higher bytes will hold the integer part of the version.
+ *          Examples: 0x10A codes the Version "1.10".
+ * VersionString will be filled if VersionString is non-NULL.
+ * If VersionString is non-NULL then there are two possibilities:
+ * a) VersionString->strlength == 0: VersionString is filled with the
+ *                                   appropriate values. VersionString->strptr
+ *                                   is always created.
+ * b) VersionString->strlength != 0: VersionString->strptr is filled up to
+ *                                   this value. VersionString->strlength will
+ *                                   hold the copied bytes.
+ * Note: A terminating ASCII-zero is appended if there is enough space
+ *       although it is never counted in VersionString.strlength.
+ *       RexxAllocateMemory is used if needed.
+ */
+*)
+{
+Type
+  ReginaVersion=Function(var VersionString: RxString);
+}
+
+Implementation
+
+Function RexxStart(ArgC: Longint;      // Num of args passed to rexx
+         ArgV: PRXSTRING;              // Array of args passed to rex
+         Filename: PChar;              // [d:][path] filename[.ext]
+         Proc: PRXSTRING;              // Loc of rexx proc in memory
+         Env: PChar;                   // ASCIIZ initial environment.
+         rType: Longint;               // type (command,subrtn,funct)
+         Exit_: PRXSYSEXIT;            // SysExit env. names &  codes
+         Ret: PInteger;                // Ret code from if numeric
+         RetVal: PRXSTRING): Longint; cdecl;  // Retvalue from the rexx proc
+    external REXX name 'RexxStart';
+
+Function RexxStart(ArgC: Longint;      // Num of args passed to rexx
+         ArgV: PRXSTRING;              // Array of args passed to rex
+         Filename: PChar;              // [d:][path] filename[.ext]
+         Proc: PRXSTRING;              // Loc of rexx proc in memory
+         Env: PChar;                   // ASCIIZ initial environment.
+         rType: Longint;               // type (command,subrtn,funct)
+         Exit_: PRXSYSEXIT;            // SysExit env. names &  codes
+     var Ret: integer;                 // Ret code from if numeric
+     var RetVal: RXSTRING): Longint; cdecl;  // Retvalue from the rexx proc
+    external REXX name 'RexxStart';
+
+Function RexxRegisterSubcomDll(
+         HName:    PChar;       // Name of subcom handler
+         DllName:  PChar;       // Name of DLL
+         ProcName: PChar;       // Name of procedure in DLL
+         UserArea: PWord;       // User area
+         Drop: Cardinal): Cardinal; cdecl;  // Drop authority.
+    external REXXAPI name 'RexxRegisterSubcomDll';
+
+Function RexxRegisterSubcomExe(
+         HName:       PChar;            // Name of subcom handler
+         HandlerAddr: PFn;              // address of handler in EXE
+         UserArea:    PWord): Cardinal; cdecl; // User area
+    external REXXAPI name 'RexxRegisterSubcomExe';
+
+Function RexxQuerySubcom(
+         EnvName: PChar;                // Name of the Environment
+         DllName: PChar;                // DLL Module Name
+         ExCode:  PWord;                // Stor for existance code
+         User:    PWord): Cardinal; cdecl;       // Stor for user word
+    external REXXAPI name 'RexxQuerySubcom';
+
+Function RexxQuerySubcom(
+         EnvName: PChar;                // Name of the Environment
+         DllName: PChar;                // DLL Module Name
+     var ExCode:  Word;                 // Stor for existance code
+     var User:    Word): Cardinal; cdecl;        // Stor for user word
+    external REXXAPI name 'RexxQuerySubcom';
+
+Function RexxDeregisterSubcom(
+         EnvName: PChar;                   // Name of the Environment
+         DllName: PChar): Cardinal; cdecl; // DLL Module Name
+    external REXXAPI name 'RexxDeregisterSubcom';
+
+Function RexxVariablePool(Pool: PShvBlock): Cardinal; cdecl;
+    external REXX name 'RexxVariablePool';
+Function RexxVariablePool(var Pool: ShvBlock): Cardinal; cdecl; // Pointer to list of SHVBLOCKs
+    external REXX name 'RexxVariablePool';
+
+Function RexxRegisterFunctionDll(
+        FnName:  PChar;                   // Name of function to add
+        DllName: PChar;                   // Dll file name (if in dll)
+        Entry:   PChar): Cardinal; cdecl; // Entry in dll
+    external REXXAPI name 'RexxRegisterFunctionDll';
+
+Function RexxRegisterFunctionExe(
+        FnName: PChar;                  // Name of function to add
+        Entry:  PFn): Cardinal; cdecl;  // Entry point in EXE
+    external REXXAPI name 'RexxRegisterFunctionExe';
+
+Function RexxDeregisterFunction(FnName: PChar): Cardinal; cdecl; // Name of function to remove
+    external REXXAPI name 'RexxDeregisterFunction';
+
+Function RexxQueryFunction(FnName: PChar): Cardinal; cdecl; // Name of function to find
+    external REXXAPI name 'RexxQueryFunction';
+
+Function RexxRegisterExitDll(
+         HExit:    PChar;               // Name of the exit handler
+         DllName:  PChar;               // Name of the DLL
+         ProcName: PChar;               // Name of the procedure
+         UserArea: PByte;               // User area
+         Drop:     Cardinal): Cardinal; cdecl;  // Drop authority
+    external REXXAPI name 'RexxRegisterExitDll';
+
+Function RexxRegisterExitExe(
+         HExit: PChar;                         // Name of the exit handler
+         HandlerAddr: PFn;                     // Address of exit handler
+         UserArea: PByte): Cardinal; cdecl;    // User area
+    external REXXAPI name 'RexxRegisterExitExe';
+
+Function RexxDeregisterExit(
+         ExitName: PChar;                   // Exit name
+         DllName:  PChar): Cardinal; cdecl; // DLL module name
+    external REXXAPI name 'RexxDeregisterExit';
+
+Function RexxQueryExit(
+         ExitName: PChar;               // Exit name
+         DllName:  PChar;               // DLL Module name.
+     var ExFlag:   Word;                // Existance flag.
+         UserArea: Pointer): Cardinal; cdecl;    // User data.
+    external REXXAPI name 'RexxQueryExit';
+
+Function RexxQueryExit(
+         ExitName: PChar;                   // Exit name
+         DllName:  PChar;                   // DLL Module name.
+     var ExFlag:   Word;                    // Existance flag.
+         UserArea: PByte): Cardinal; cdecl; // User data.
+    external REXXAPI name 'RexxQueryExit';
+
+Function RexxQueryExit(
+         ExitName: PChar;                   // Exit name
+         DllName:  PChar;                   // DLL Module name.
+         ExFlag:   PWord;                   // Existance flag.
+         UserArea: PByte): Cardinal; cdecl; // User data.
+    external REXXAPI name 'RexxQueryExit';
+
+Function RexxQueryExit(
+         ExitName: PChar;                   // Exit name
+         DllName:  PChar;                   // DLL Module name.
+         ExFlag:   PWord;                   // Existance flag.
+         UserArea: Pointer): Cardinal; cdecl; // User data.
+    external REXXAPI name 'RexxQueryExit';
+
+Function RexxSetHalt(
+         Pid: Longint;                      // Process Id
+         Tid: Longint): Cardinal; cdecl;    // Thread Id
+    external REXX name 'RexxSetHalt';
+
+Function RexxSetTrace(
+         Pid: Longint;                      // Process Id
+         Tid: Longint): Cardinal; cdecl;    // Thread Id
+    external REXX name 'RexxSetTrace';
+
+Function RexxResetTrace(
+         Pid: Longint;                      // Process Id
+         Tid: Longint): Cardinal; cdecl;    // Thread Id
+    external REXX name 'RexxResetTrace';
+
+Function RexxAddMacro(
+         FnName:   PChar;                      // Function to add or change
+         FileName: PChar;                      // Name of file to get function
+         SrchPos:  Cardinal): Cardinal; cdecl; // Flag indicating search pos
+    external REXXAPI name 'RexxAddMacro';
+
+Function RexxDropMacro(FnName: PChar): Cardinal; cdecl; // Name of function to remove
+    external REXXAPI name 'RexxDropMacro';
+
+Function RexxSaveMacroSpace(
+         ArgC: Cardinal;                  // Argument count (0==save all)
+     var NameLst: PChar;                  // List of funct names to save
+         FileName: PChar): Cardinal; cdecl; // File to save functions in
+    external REXXAPI name 'RexxSaveMacroSpace';
+
+Function RexxLoadMacroSpace(
+         ArgC:     Cardinal;                // Argument count (0==load all)
+     var NameLst:  PChar;                   // List of funct names to load
+         FileName: PChar): Cardinal; cdecl; // File to load functions from
+    external REXXAPI name 'RexxLoadMacroSpace';
+
+Function RexxQueryMacro(
+         FnName: PChar;                  // Function to search for
+     var PtrPos: Word): Cardinal; cdecl; // Ptr for position flag return
+    external REXXAPI name 'RexxQueryLoadMacro';
+
+Function RexxReorderMacro(
+         FnName: PChar;                      // Name of funct change order
+         NewPos: Cardinal): Cardinal; cdecl; // New position for function
+    external REXXAPI name 'RexxReorderMacro';
+
+Function RexxClearMacroSpace: Cardinal; cdecl; // No Arguments.
+    external REXXAPI name 'RexxClearMacroSpace';
+
+Function RxNullString(const r: RxString): Boolean;
+Begin
+  RxNullString:=r.strptr=nil;
+End;
+
+Function RxZeroLenString(const r: RxString): Boolean;
+Begin
+  RxZeroLenString:=((r.strptr<>nil) and (r.strlength=0));
+End;
+
+Function RxValidString(const r: RxString): Boolean;
+Begin
+  RxValidString:=((r.strptr<>nil) and (r.strlength>0));
+End;
+
+Function RxStrLen(const r: RxString): Longint;
+Begin
+  If RxNullString(r) then
+    RxStrLen:=0
+  else
+    RxStrLen:=r.strlength;
+End;
+
+Function RxStrPtr(Const r: RxString): PChar;
+Begin
+  RxStrPtr:=r.strptr;
+End;
+
+Procedure MakeRxString(Var r: RxString; p: PChar; l: Longint);
+Begin
+  r.strptr:=p;
+  r.strlength:=l;
+End;
+
+End.