From c8845dfe5ca36797bebc57bcc37aae6a8e94444a Mon Sep 17 00:00:00 2001 From: peter Date: Sat, 2 Feb 2008 15:48:09 +0000 Subject: 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 --- packages/rexx/src/rexxsaa.pp | 872 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 872 insertions(+) create mode 100644 packages/rexx/src/rexxsaa.pp (limited to 'packages/rexx/src/rexxsaa.pp') 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. -- cgit v1.2.1