jed-0.97.12/004075500000000000003000000000000611265627700123105ustar00rootsys00000000000000jed-0.97.12/READ.ME000064400000000000003000000036420603742307400132400ustar00rootsys00000000000000Readme file for JED. This distribution of JED includes the JED editor src, The MSDOS and OS/2 distributions include the executables in the `bin' subdirectory. [The S-Lang library is nolonger included in the distribution. If you do not have it, or have a version that is too old, you will need to get it. It is available from space.mit.edu in pub/davis/slang.] Note that with the exception of the src subdirectory, this directory tree must remain intact. JED uses lib to access S-Lang library files, info to access info files, and bin to execute miscellaneous programs during run time. Building JED requires the use of a C compiler which understands function prototypes. I have sucessfully built JED with `cc' on the ULTRIX, VMS, and IRIX operating systems. In addition, I have created it using `gcc' under SunOS. I do not know whether it will compile under Microsoft C--- I have only used Borland's Turbo C and BCC 3.0. Finally, JED is available for 386/486 PCs with virtual memory support (upto 256Meg). This has been made possible by using DJGPP (DJ Delorie's GCC port and GO32 DOS extender). The sources and binaries for the extender are available via anonymous ftp from omnigate.clarkson.edu in pub/msdos/djgpp. With the above in mind: UNIX: read install.unx VMS: read install.vms IBMPC: read install.pc Then, read INSTALL for more installation tips. For changes and new features, read changes.txt. Files: bin/(*.c, *.h, make*) source code and makefiles for JED lib/site.sl site specific startup file lib/jed.rc default user startup file lib/*.sl misc files (sorting, shell commands, ispell, ...) doc/(*.txt, *.doc) documentation *.info info files for jed *.ti info source files bin/*.com DCL support files for VMS. bin/*.exe MSDOS executables Files: bin/(*.c, *.h, make*) source code and makefiles for JED lib/site.sl jed-0.97.12/jed.lis000064400000000000003000000062130603742307400135520ustar00rootsys00000000000000@READ.ME @jed.lis @COPYING @COPYRIGHT @INSTALL @changes.txt @install.pc @install.unx @install.vms @bin/init_jed.com @bin/jed_mail.com @bin/keptjed.com @doc/README @doc/jed.tex @doc/abbrev.txt @doc/color.doc @doc/edt.txt @doc/function.doc @doc/hooks.txt @doc/jed_faq.txt @doc/mouse.txt @doc/pc-keys.txt @doc/program.txt @doc/rgrep.doc @doc/rmail.txt @doc/script.txt @doc/syntax.txt @doc/wordstar.txt @doc/xjed.doc @doc/yankpop.txt @info/dir.info @info/info.info @info/jed.1in @info/jed.2in @info/jed.3in @info/jed.info @lib/ashell.sl @lib/brief.sl @lib/lisp.sl @lib/html.sl @lib/nroff.sl @lib/abbrev.sl @lib/abbrmisc.sl @lib/binary.sl @lib/bookmark.sl @lib/buf.sl @lib/bytecomp.sl @lib/cal.sl @lib/cmisc.sl @lib/cmode.sl @lib/color.sl @lib/compile.dat @lib/compile.sl @lib/cpright.hlp @lib/ctags.sl @lib/dabbrev.sl @lib/dcl.sl @lib/digraph.sl @lib/dired.sl @lib/dos437.sl @lib/dos850.sl @lib/edt.hlp @lib/edt.sl @lib/emacs.hlp @lib/emacs.sl @lib/emacsmsc.sl @lib/fortran.sl @lib/generic.hlp @lib/help.sl @lib/idl.sl @lib/info.sl @lib/isearch.sl @lib/iso-latin.sl @lib/iso2xxx.sl @lib/ispell.sl @lib/jed.hlp @lib/jed.rc @lib/jed_funs.hlp @lib/jedhelp.sl @lib/bibtex.sl @lib/latex.sl @lib/latex209.sl @lib/linux.sl @lib/ltx-comp.dat @lib/ltx-math.sl @lib/mail.sl @lib/man.sl @lib/menu.sl @lib/mini.sl @lib/misc.sl @lib/mkdoc.sl @lib/mktex.sl @lib/most.sl @lib/mouse.sl @lib/mswmouse.sl @lib/mousex.sl @lib/mutekeys.sl @lib/os.sl @lib/pipe.sl @lib/preparse.sl @lib/regexp.sl @lib/replace.sl @lib/rmail.sl @lib/rot13.sl @lib/search.sl @lib/shell.sl @lib/shmode.sl @lib/simple.hlp @lib/site.sl @lib/slmode.sl @lib/sort.sl @lib/sortmisc.sl @lib/srchmisc.sl @lib/syntax.sl @lib/tabs.sl @lib/tex.sl @lib/texcom.sl @lib/tmisc.sl @lib/tpascal.sl @lib/untab.sl @lib/util.sl @lib/vms_shell.com @lib/vmshelp.sl @lib/wmenu.sl @lib/wordstar.sl @lib/yankpop.sl *bin/mswshell.pif @src/mswin.c @src/wjed.def @src/wjed.rsp @src/mswshell.c @src/jprocess.c @src/jprocess.h @src/abbrev.c @src/abbrev.h @src/buffer.c @src/buffer.h @src/chkslang.c @src/cmds.c @src/cmds.h @src/config.h @src/copyright @src/deccmake.com @src/descrip.mms @src/display.c @src/display.h @src/dos_os2.c @src/doskeys.c @src/file.c @src/file.h @src/fmerge.c @src/fsplit.c @src/getmail.c @src/gpmmouse.c @src/hooks.h @src/i386.c @src/ibmpc.c @src/indent.c @src/indent.h @src/ins.c @src/ins.h @src/intrin.c @src/jed.rsp @src/jed386.rsp @src/jedwcc.rsp @src/keymap.c @src/keymap.h @src/ledit.c @src/ledit.h @src/line.c @src/line.h @src/main.c @src/makefile.djg @src/makefile.dos @src/makefile.unx @src/makefile.wcc @src/makefile.os2 @src/makefile.msw @src/misc.c @src/misc.h @src/mkdoc.c @src/mouse.c @src/os2.c @src/os2mouse.c @src/os2jed.def @src/os2jed16.def @src/paste.c @src/paste.h @src/pcmouse.c @src/replace.c @src/replace.h @src/rgrep.c @src/screen.c @src/screen.h @src/search.c @src/search.h @src/sig.c @src/sig.h @src/sl2slc.c @src/syntax.c @src/sysdep.c @src/sysdep.h @src/text.c @src/text.h @src/undo.c @src/undo.h @src/unix.c @src/vfile.c @src/vfile.h @src/vms.c @src/vmshelp.c @src/vmsmail.c @src/vmsmail.h @src/vmsmake.com @src/vterm.c @src/vterm.h @src/window.c @src/window.h @src/xkeys.c @src/xterm.c @src/wjed32.rsp @src/makefile.w32 ef @src/os2jed16.def @src/paste.c @src/paste.h @src/pcmouse.c @src/replace.c @src/replace.h @src/rgrep.c @src/screen.c @src/screen.h @src/search.c @src/search.h @src/sig.c @src/sig.h @src/sl2slc.c @src/syntax.c @src/sysdep.c @src/sysdep.h @src/text.c @src/text.h @src/undo.c @src/undo.h @src/unix.c @src/vfile.c @src/vfile.h @src/vms.c @src/vmshelp.c @src/vmsmail.c @src/vmjed-0.97.12/COPYING000064400000000000003000000430700603742307400133340ustar00rootsys00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License 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 General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. opyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU jed-0.97.12/COPYRIGHT000064400000000000003000000013370603742307400135740ustar00rootsys00000000000000 Copyright (c) 1992, 1995 John E. Davis All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License 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 General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. oundation; 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 General jed-0.97.12/INSTALL000064400000000000003000000037010603742307400133270ustar00rootsys00000000000000Before reading this, read the appropriate install file for you system. This file contains hints for custoizing JED in such a way that it is easy to upgrade to later releases. When JED starts up, it reads the file `site.sl' which is located in the lib directory under JED_ROOT. This file contains much of the code that defines the look of the editor. For instance, it defines how the command line parameters are to be interpreted and the name of the user's personal initialization file. One could always edit site.sl and taylor it to the needs of a given system. However, one would have to do this with every upgrade. There is a better way. Immediately after loading site.sl, the editor will attemp to load a file called `defaults.sl' from JED_ROOT/lib. This file is not distributed with JED. It is up to the installer to create this file if that is the desire. An example called `linux.sl' is provided for Linux systems. Linux administrators are encouraged to pattern their defaults.sl file after linux.sl. What is this file used for? It is used to modify site.sl. Since site.sl is written in S-Lang, any of the functions defined in it can simply be redefined by creating new ones. The same is true for the variables that it defines. For example, many systems have a directory where info files are kept. Let's assume that this directory is `/usr/info'. Then one should point the `Info_Directory' variable defined by `site.sl' to this directory: % defaults.sl Info_Directory = "/usr/info"; It is probably a good idea to copy the files in JED_ROOT/info to directory where the info files are kept and edit the info DIR file appropriately. Another idea is to take advantage of the fact that JED's info reader has the ability to search along a path list. Simply edit the /usr/info/DIR file and add jed to the tree but leave JED's info files in JED_ROOT/info. Then, use something like: %defaults.sl Info_Directory = strcat ("/usr/info,", Info_Directory); Enjoy. aults.sl Info_Directory = "/usr/info"; It is probably a good ijed-0.97.12/changes.txt000064400000000000003000000773620603742307400144650ustar00rootsys00000000000000Changes since 0.97-11 1. Xjed was rejecting command line arguments-- now fixed. 2. Repeat factor now works for `@' type keybindings (macros). 3. New mousex.sl (jed running in an Xterm--- NOT Xjed). 4. Misc bug fixes. 5. More improvements to Windows jed (wjed), specifically pull down menus and shell commands are available. Again, this is due to Luchesar Ionkov. Note: Under MSWINDOWS, os.sl loads a different file (mswmouse.sl) to define mouse actions more suitable to a 2 button mouse. I suspect that this file should be modified to make the mouse behave more like other Windows programs. e.g., drag mouse to define a region then click a menu item to act on the region. Any volunteers? Changes since 0.97-10 0. MS-Windows version of jed now available. This is called `wjed.exe'. Right now, it is rather primative with no support for menus or shell interaction. Of course the mouse works with the middle button simulated by the alt key (see jed/doc/mouse.txt). Thanks to lionkov@sf.cit.bg (Luchesar Ionkov)) for the patches. (He also sent me patches for shell interaction but they would not compile under BCC 3.1). 1. There were many complaints about change number 4 in 0.97-6: 4. XJed: Now when the meta (alt) key is used in conjunction with a non-alphanumeric key such as `{', the character is simply returned. If this creates a backward compatibility problem or appears too restrictive, please let me know. Apparantly, this is too restrictive so I have removed the restriction. Email me for for a simple way around this lifting of the restriction. 2. Directories with names ending in ~ were not getting expanded properly. 3. Slang Version 0.99-19 is now required. This implements the new intrinsic function `strcompress'. 4. QNX support added. 5. Support for an alternate set of keywords added. The C-mode defines some of these keywords such as `exit', `malloc', `strlen', etc... Use something like: set_color ("keyword1", "green", "white"); to set the colors for this set. 6. A couple of MSDOS jed bugs found. One affects the keyboard and the other fix corrects a bad regular expression when compiling using bcc. 7. idl mode enhanced with indentation. Changes since 0.97-9 1. Small bug in cmode.sl dealing with C++ style comments at first line of buffer corrected. 2. Syntax highlighting problem fixed. 3. Is shell.sl finally fixed under MSDOS? I think so. 4. Tiny change to mutekeys.sl. 5. jed -secure args.... will run jed in secure mode. This means that access to the shell will be denied. 6. Tiny bug affecting slang_mode corrected. (Very rare case). 7. First attempt at a brief mode. If you want to try it out, add: () = evalfile ("brief"); to your jed.rc file. Currently this file is only for MSDOS and OS2. 8. Better EDT support for jed386.exe. You will need GOLD.COM which is a TSR that maps the Numlock key to GOLD. 9. Low level keyboard interface for OS/2 and MSDOS re-written. Let me know if there are any inconsistencies. I have been unable to test it under OS/2. 10. Is dired fixed for OS/2?? 11. bibtex mode added (Author: Carsten Tinggaard Nielsen, tinggard@iesd.auc.dk) Changes since 0.97-8 1. html syntax highlighting mode added. 2. New functions: _autoload and _add_completion. See function documentation. Briefly, these permit slightly faster loading. 3. Typos corrected in shell.sl, emacs.sl, and dired.sl. 4. Small correction for file name expansion under VMS. 5. Ran purify on source code and fixed about two bad memory references. 6. new nroff mode Changes since 0.97-7 1. The F1-F12 keys may now be used with jed386.exe and edt.sl. See jed/doc/jed_faq.txt for more on EDT mode and jed386.exe. 2. The `untab' function has been fixed. I broke it in 0.97-7 (see below). 3. Somewhat nasty bug fixed that affected jed386.exe. 4. Unix and VMS: If the environment variable `COLORTERM' is defined, jed will automatically set the variable USE_ANSI_COLORS to a non-zero value. This feature is only available when compiled against slang version 0.99-14. Patches have also been sent in to the maintainer of the color xterm `rxvt' to automatically set this variable. Incidently, if you are using `color_xterm', I suggest that you try out `rxvt'. 5. New dired.sl and shell.sl courtesy of olesen@weber.me.queensu.ca (Mark Olesen) Changes since 0.97-6 -1. Mouse support added to OS/2 version. (Thanks to John Burnell. ) 0. ``Expansion hook'' added. This hook is called upon TAB completion to preprocess the file before completion. The default definition of this function expands environment variables when the variable is preceeded by a dollar sign, e.g., $HOME. This function has not been defined for VMS since VMS already has this feature built in. Under Unix, this function also expands ~name to the login directory of the user `name'. The expansion only takes place when the TAB key is pressed. The new intrinsic: set_expansion_hook may be used to change the hook. 1. Under Unix, the function `get_passwd_info' may be used to return information about a specified user such as login dir, shell, etc... 2. TeX mode highlighting fixes: a. words containing accents now handled properly b. The TeX special characters `&_^#' are now colored as `operators'. c. Braces `{}' are colored as delimiters. 3. A prefix argument to the `untab' function will cause spaces to be converted into tabs. 4. Page up/down commands modified slightly to give appear more intuitive. 5. Misc bug fixes including: a. Parenthesis matching now works when `(` is also a comment delimiter. 6. Pasting using the mouse has changed slightly. Previously, text would be pasted at the position of the mouse. Now, it is pasted at the position of the cursor. This seems more intuitive. In addition, the editing position is restored to what it was before dragging text into the cutbuffer. Again, this is more intuitive and more closely follows the Xterm usage. 7. In C-mode, a if a line is preceeded by a line that ends with \, it is indented to the first column. This is useful for continuation lines. 8. Better native support for SunOS keyboards (pageup/down/home/end). 9. The function `shell_cmd' has been changed to return the exit code of the subprocess. Previously, it returned nothing. 10. idl mode added. Actually, only syntax highlighting is defined. This mode takes effect on .pro files. Changes since 0.97-5 0. New routines for adding keywords. These include: add_keyword, define_keywords See shmode.sl for an example. Basically, this file implements syntax highlighting for Unix sh and csh files. 1. Bug fixed in filename completion. 2. Kevin Humphreys auctex-for-jed package has been integrated into the source. Thanks Kevin. 3. Popular combinations of slang functions have been combined to create new functions. These include: bol (); skip_white (); ------------------> bol_skip_white (); down (1); ------------------> down_1 (); go_down (1); ------------------> go_down_1 (); up (1); ------------------> up_1 (); go_up (1); ------------------> go_up_1 (); These load twice as fast and use half as much memory. If I make them into intrinsics, they will execute twice as fast. Jed slang programmers are encouraged to use these. 4. XJed: Now when the meta (alt) key is used in conjunction with a non-alphanumeric key such as `{', the character is simply returned. If this creates a backward compatibility problem or appears too restrictive, please let me know. 5. XJed: XJed now will never read a file from stdin. This means that the *stdin* buffer will nolonger appear when it is started from a menu by the window manager. Changes since 0.97-4a 0. A COMPLETE rewrite of all the indentation routines. The new routines are much more customizable through the use of syntax tables. Now, the C mode is completely written in S-Lang. New features: * Now much easier to add support for new languages. * ESC-q will format a comment if it is in the canonical form: /* * This is a C comment in * the canonical form * Notice how each line * begins with a `*'. */ * `goto_match' now works in both directions. * New C-mode functions: c_end_of_function : ESC Ctrl-E c_top_of_function : ESC Ctrl-A c_mark_function : ESC Ctrl-H 1. The function `whatline' has been renamed to `what_line' for consistency with other names. 2. New function: translate_region. This function is capable of modifying all characters in a region according to a lookup table. This is useful for converting buffers between various character sets. See the new version of jed/lib/rot13.sl for an example of its usage. 3. New functionality: yank-pop. This is implemented in jed/lib/yankpop.sl. Unfortunately this is not available on 16bit systems. This means if you use jed.exe you cannot use it. However, jed386.exe is a 32bit executable so it is available. If you do not know what yank-pop is already, do not worry too much. You should not notice its presence. However, if you do, hopefully you will welcome jed's emulation of it. This was added to improve the emacs emulation. See jed/doc/yankpop.txt for a simple discussion. 4. New intrinsic variable _jed_version added. This variable is an integer that represents the version number. For 0.97-5, it has the value 9705. For 0.97-11, it will have the value 9711 and so on. 5. A bug in jed386.exe was corrected. This bug was responsible for some keyboard lockups. Changes since 0.97-4 1. Intrinsic function documentation improved. 2. Source code should now compiled without specifying VAX compatability on ALPHA/AXP systems running OpenVMS. Use the deccmake.com files to create jed & slang. Changes since 0.97-3 1. New intrinsic functions: set_color_object: Associate a foreground/background color pair with an integer, e.g., set_color_object (31, "green", "red"); set_column_colors: Allows one to display the columns of a buffer in different colors. For example: set_color_object (31, "green", "white"); set_color_object (32, "red", "white"); set_column_colors (31, 1, 40); set_column_colors (32, 41, 80); Display columns 1 to 40 in green/white and columns 41 to 80 in red on white. This operates on a buffer by buffer basis does not work when there is syntax highlighting already associated with the buffer. This function is only useful when the buffer consists of data organized in columns, e.g., columns of numbers, dired mode, rmail mode, etc... str_replace: replace substrings in strings 2. In XJed, set_color("normal", "foreground-color", "background-color"), now works. This means it is nolonger necessary to mess with .Xdefaults to set the background color. 3. Small problem with expansion of symbolic links fixed. 4. It is now possible to set the color used for messages and errors. This is accomplished by using, e.g., set_color ("message", "blue", "white"); set_color ("error", "red", "white"); 5. A problem with info failing under VMS has been fixed. Changes since 0.97-2 1. GPM mouse support under Linux. This provides jed with complete mouse support (dragging, etc...) under the Linux console (See mouse.txt). 2. Mouse support under MSDOS. Read doc/mouse.txt for information. 3. Fixed a keymap problem in Xjed (specifically for Ctrl-_ and Function keys). Changes since 0.97-1 1. `:' key now overwrites instead of inserts in overwrite mode 2. Fixed tiny problem with indentation of preprocessor lines when the colon is pressed. 3. Corrected the omission of the closing `"' in abbrmisc.sl. 4. Problem with replace_across_buffer_files corrected. 5. If a file is edited for which one does not have write permission, the buffer is made read-only. 6. Termcap nolonger used. JED is now exclusively terminfo. Changes since 0.97-0 1. Fixed Xjed problem of cutting and pasting with other X applications. This file documents changes and new features found in JED Changes since 0.96-2: -20. A bug introduced by `-18' beow that prevented searches from working properly when using a macro has been fixed. -19. `dired' modified such that ^K nolonger runs the function `dired_kill_line'. Instead, one must do: define dired_hook () { local_unsetkey ("^K"); local_setkey ("dired_kill_line", "^K"); } See jed.rc where this is performed. -18. RETURN key may be used to continue searches. Also, matches are highlighted. -17. Variable `No_Backups' added to control whether or not JED is to create backup files. -16. Command line argument parsing modified (in site.sl) to make it easier to write non-interactive scripts, e.g., jed -script my-script.sl file1 file2 ... Basically, `-script' simply loads the next argument (my_script.sl). It is up to the script file to interpret the remaining arguments. See doc/script.txt for more info. -15. Trivial modification that allow JED to become a GNU-info reader by using: `alias info jed -f info_reader' (Unix csh) $ info :== jed -f info_reader (VMS) -14. A VMS bug fixed. Specifically, the getkey AST is now disabled while the main thread is accessing the keyboard buffer. -13. NEW abbrev mode. This is a major rewrite of the old abbrev mode. See jed/doc/abbrev.txt for details. -12. `read_string_with_completion' added to read a string in the mini buffer using a list of strings for completion. -11. Major change in S-Lang library removes the need for functions such as `free_array'. As a result, this function has been removed. -10. abbrev mode. This differs from `dabbrev' in the sense that you can define global and local abbreviations and use them. The function `toggle_abbrev' may be used to turn the mode on/off. See abbrev.sl for details. -9. mousex.sl package adds mouse routines to any terminal using the XTerm client mouse protocol. Such terminals include the Linux console running selection as well as XTerm itself. Note: this could be made available across a dialup line from a PC using MS-Kermit, Procomm, etc... if someone would write the appropriate mouse TSR. -8. Added `tex_ldots' binding that converts three `.' to \ldots. -7. `replace_across_buffer_files' added. This function allows the user to replace a string across all buffers attached to a file. It is interactive. -6. Book marks added: `bkmrk_goto_mark' and `bkmrk_set_mark' These functions allow the user to set up to 10 bookmarks (0-9) and return to a previously set book mark from any buffer. These marks are implemented using new jed intrinsics: `user_mark_buffer' : returns buffer name associtated with mark `goto_user_mark' : goto position specified by mark `create_user_mark' : returns a mark at the current position -5. Automatic detection of ``non-native'' line endings. On Unix, if a file is read in with ^Ms at the end of lines, it is flagged such that writing out the file will preserve the line ending attributes. A `C' will appear on the status line to indicate this fact. On DOS, etc... if a file is read in without the ^M, it is flagged and an `L' will appear on the status line. Use the function `toggle_crmode' to change the attribute. -4A. New ways added to facilitate associating modes with files: a. add_mode_for_extension ("c", "c++"); This asscoiates c_mode with a file named something.c++. b. If top line of file contains something like: -*- mode -*- Note that in both cases the mode argument must omit the `_mode' part of the name. In fact, all modes now have names that end in `_mode'. -4B. `fortran' and `dcl' have been renamed `fortran_mode' and `dcl_mode'. -3. C mode indenting improved. -2. Writing to terminal under VMS SIGNIFICANTLY improved. Basically I just bypassed the VAXC buffered stdio routines in favor of my own. This might improve performance for Unix systems as well. -1. Emacs style completion added-- press tab to show completions, press space to cycle through them. Note that pressing PageUp/Down keys will scroll the completion buffer from the minibuffer. 0. Bug fixes 1. Massive restructuring. Keymaps, Searching, and Terminal I/O moved to S-Lang. 2. color syntax highlighting in FORTRAN, TeX, and C modes. 3. TeX mode enhanced--- more to come. 4. ``menu'' bar can now be hidden-- see jed.rc. 5. More hooks: c_mode_hook, tex_mode_hook, text_mode_hook, wrap_hook 6. Better documentation on hooks (see doc/hooks.txt). 7. showkey binding changed to `Ctrl-H k'. Also rectangle commands are now bound in emacs.sl to emacs bindings. 8. Mute (Dead or accent) key support added. See jed.rc 9. gzipped info file support added for MSDOS 10. Alt key processing for X-Windows fixed. 11. Significant additions to dired, e.g, `~' flags all backup files. 12. Visible bell add to systems that support it (Xjed, pc and OS/2, Linux, etc...). Changes since 0.96-1: 1. bug fix regarding regular expressions 2. Indentation of data statment in fortran mode fixed. 3 Documentation is improving.... 4. dabbrev mode added (ESC / expands current word based on other words in the buffer.) 5. Now possible to control Xjed syntax highlighting from .Xdefaults file. 6. Improvements to S-Lang ==> improvements to JED 7. rmail.sl: added `Rmail_Dont_Reply_To' variable to suppress unwanted CCs. For example, I have: variable Rmail_Dont_Reply_To = "davis@amy,davis@pacific.mps.ohio-state.edu,davis@amy.tch.harvard.edu"; in my .jedrc file. Changes since 0.96-0: 1. set_color_escape_sequence function added to exploit JED's ability to do color syntax highighting on more exotic color terminals. 2. Preprocessor lines can now be highlighted. See jed.rc as well as doc/syntax.txt for details. 3. Tiny bug fixes: * bug in info.sl found caused by info file that do not end with a newline character * isearch.sl is again able to repeat isearch backwards by pressing ^R. This bug was introduced in 0.96-0. * EDT special insert now works. * Archive bit now set when JED creates a new file on MSDOS (only jed.exe had this problem--- not jed386.exe) 4. Support for CRAY added. 5. If JED is started without a filename specified, the brief message will be displayed warning the user that the scratch buffer will not be saved. 6. On MSDOS, rgrep.exe (recursive grep) is now distributed. ON Unix, simply do `make rgrep' to get a recursive highlighting grep. Highlights of Major changes for 0.96: 1. OS/2 versions available!! 2. Color syntax highlighting in C mode. 3. Much improved indentation for C code. 4. Improved Fortran mode 5. Up to 20% faster loading 6. jed386.exe distributed with DOS version and runs in a Windows DOS box (provides up to 256 Megs of Virtual memory) Changes since 0.95-8b: 0. JED now compiles and runs under OS/2! OS/2 executables are zipped in the pc distribution. See install.pc for more information. [ I would like to acknowledge John Burnell (johnb@huia.grace.cri.nz) for his work on the OS/2 port. In addition, I am very grateful to Darrel Hankerson (hankedr@mail.auburn.edu), who is responsible for the Microsoft C and emx/gcc versions, as well Dominik Wujastyk (ucgadkw@ucl.ac.uk) for his contribution to the OS/2 version. ] 1. re_fsearch and re_bsearch functions have been changed to return 1 + the length of the match, if a match was found, or return 0 if no match was found. For example, `re_fsearch("$")' matches the end of a line which, strictly speaking, is a match with 0 length. 2. Use `jed -l preparse' to pre-parse the .sl files for faster loading. `jed -l preprocess' is now obsolete. Again, read install.*. Changes since 0.95-7b: 1. Color syntax highlighting added to C mode. It is possible to separately color keywords, strings, numbers, delimeters, comments, and operators. This even works on VMS and Unix systems when using character based color terminals such as NCSA telnet, MS-Kermit, etc... See doc/color.txt and doc/syntax.txt for more information. 2. byte compiling changed to allow preprocessing only. Simply preprocessing is recommended on systems where more than one type of JED executable will share the same set of *.slc library files (e.g., Unix where both JED and XJed might be running). Simply do: jed -batch -l preprocess.sl On MSDOS systems with only one version of jed.exe running, use: jed -batch -l bytecomp.sl Changes since 0.95-6b: 1. It is now possible to display 24 hour time on the status line. Earlier versions were capable of displaying on AM/PM format. 2. -tmp command line switch added. This means that the current buffer is to not be autosaved or backed up. This is suitable when JED is used as an editor for elm, etc... 3. DJGPP version fixed so that JED can read embedded ^M characters and ^Z characters while in text mode. Of course the ^M is striped if it preceeds a line feed character. 4. Improved fortran mode. The fortran mode is the first mode that I ever wrote for JED using S-Lang. Since then, I have had alot of experience with S-Lang and recently I found myself programming FORTRAN again, so I rewrote it. Do `Ctrl-H f fortran' for details. Changes since 0.95-5b: 0. XJED now compiles as a DECWindows executable under VMS. 1. The interactive replace function has been renamed to `replace_cmd' and is now implemented in S-lang. It can now search/replace across lines. For most users, this change should be transparent. 2. New functions: set_buffer_no_backup () set_buffer_no_autosave () 3. XJed mouse changes: Clicking on a window status line causes a different behavior. Specifically: left: switch to next buffer middle: split the window right: delete the window For example, one can quickly move from one buffer to the next by simply clicking on the status line with the left mouse button. 4. XJed can nor distinguish shifted and control function keys. This enables one to bind Shift arrow keys and Control arrow keys to different functions. 5. Improved indenting in C-mode. 6. New variables added: Default_Mode: default mode for a file of unknown extension. Startup_With_File: if non-zero, JED will prompt for a filename if none was specified on the command line. Changes since 0.95b for 0.95-5b. 1. Bug fixes: rectangular cut and paste (when cutting single char region from empty line) minor color problem fixed when scrolling on color terminals edt_line function fixed (kp0 key) minor rmail mode changes backward RE-search fix. info mode bug fixed that deals with multiple word node names typo in menu.sl corrrected. The type was causing a STACK_UNDERFLOW error to be generated. parenthesis blinking bug fixed that manifested itself when inserting a parenthesis on a line that was automatically horizontally panned. 2. RETURN now selects menu item in info mode. 3. Now possible to search/replace strings that span multiple lines. 4. In XJed, it is now possible to distinguish between Shift and Control function and arrow keys. Also, every function key now returns something (use the function x_set_keysym to change what a function returns) 5. In XJed, clicking on the status line of a window now switches to a new buffer for that window. This makes it possible to conveniently cycle through all buffers. 6. rgrep flag now added so that directory links may be followed. Rgrep is a recursive, highlightin grep that is distributed with JED. See doc/rgrep.doc for more information. 7. The search forward/backwad commands are now S-Lang functions which means that they may be changed easily. 8. New function for PC versions (DJGPP too!): find_binary_file. This function will prompt for a filename and find it in binary mode. A binary mode file is indicated by a `Z' status line flag. This means that when the file is saved, it will be saved in binary mode as well. This function provides a transparent way to edit binary files under DOS. 9. JED now understands 8 bit control sequences generated by terminals in 8 bit mode such as DEC VTXXX. This is particularly relevant when using JED on VMS. Changes for version 0.95 (since 0.94-2) 0. JED distribution is different. If you have built JED in the past, please read the install files because things have changed. 1. Support for column numbers on status line (set LINENUMBERS = 2) 2. X-Terminal (and DECWindows) version (make xjed). See doc/xjed.doc 3. Elm like read/write mail (see rmail.txt-- this is considered ALPHA, by default it is not enabled.) 4. Additional support for Color terminals (allow different colors for modelines, regions, etc...) 5. MUCH Improved support for colors on PC versions (looks MUCH nicer, see how it is used in jed.rc) 6. By popular demand, a new function `describe_bindings' is available that dumps the keybindings for the current keymap. 7. New variable Stratup_With_File can be set to prompt user for a filename if none is specified on the command line. 8. VMS: A convenient new interface to VMSHELP is now available. This overcomes most of the shortcomings of the VMS HELP command. It is bound to Ctrl-H M. 9. search_forward + search_backward can now search for strings spanning multiple lines. Also, looking_at can see across multiple lines. Also see changes listed in the next section. ********* Important ************** The S-Lang preprocessing conditional compilation declarations have changed. Now, constructs such as: #ifdef UNIX .. #else .. #endif are used. This means that you may have to edit you personal jed.rc file. Instead, I encourage you to simply copy the jed.rc file shipped with this version and add your own extensions to it. ************************************ New changes SINCE 0.94-0: 1. New buffer flags: no backup and no autosave 2. #ifdef #else #endif preprocessing 3. skip_chars, bskip_chars changed. Now, say, `skip_chars("^a-z")' will skip ALL characters EXCEPT in range `a-z'. 4. Default EDT binding of TAB changed to `indent_line'. See jed.rc to change it back. 5. `occur' function now uses regular expression searches. 6. Special `linux.sl' file for Linux systems. See `install.unx'. 7. New intrinsics: buffer_visible, pop2buf_whatbuf, bury_buffer, regexp_nth_match, 8. `window_info' intrinsic modified to take a parameter. 9. `search_file' intrinsic modified for regular expression search. 10. New support for saving and reusing keyboard macros. This feature has not been exploited yet! 11. By popluar request: Highlighting only occurs in the CURRENT window. 12. Miscellaneous bug fixes. There are also some new S-Lang builtin intrinsic functions: 1. string_match: preforms RE match on a string 2. string_match_nth: returns information about previous match 3. Unix specific intrinsics: unix_kill : sends a signal to a process unix_ctime : converts a time value to a string representation stat_file : performs `stat' on a given file. lstat_file : like stat but returns information about a link stat_struct: returns information from previous stat call. chown : change owner/group of a file chmod : change protections of file. 4. It is now possible to perform assignments in variable declaration statements: variable i = 10, y = 20.87; 5. && and || are now flagged as errors. ****************************** New since 0.94-0 : ------------------------------------------------------------ PageUP/Down functions scroll other window if called from the minibuffer. Some defaults changed in jed.rc: Display line numbers on the status line is now the default. Regular expression matching (search/replace): re_search_forward, re_search_backward, query_replace_match New S-Lang intrinsics include: prefix_argument() : returns value of prefix argument. set_status_line(format, flag) : enables user to customize status line re_fsearch, re_bsearch, replace_match : regular expression intrinsics getpid : returns process pid New user variables: DISPLAY_TIME if non-zero, allows %t processing in status line format. ALT_CHAR (ibmpc only) enables Alt-key processing. Specifically, setting this to 27 (Ascii 27) causes ALT-X to generate ESCAPE-X, etc... C_BRA_NEWLINE if non-zero, insert a newline before inserting '{' in C-mode. This was the default in previous versions but it now user selectable. ------------------------------------------------------------------------------ New features in 0.94-0 0.94-0 does not really add any new functionality to 0.93. However, there is a major change: S-Lang is now very C-Like. (It can still be programmed as RPN though, see e.g., info.sl) By C-like, I mean that you can write S-Lang functions that look like: define sum(a, b) % sum integers from a to b { variable s, i; s = 0; for (i = a; i <= b; i++) s += i; return (s); } S-Lang has not lost any functionality, rather, its new syntax makes it more accessable to others. The new philosophy is that JED is an editor which just happens to embed S-Lang as its extension language. Actually, this has always been the philosophy but not it is even more clear cut. To compile the new JED (0.94) you will need to pick up /pub/slang/slang.tar.Z as well. This is the S-Lang interpreter code to be compiled as a library and linked in with JED. The only other ``major'' changes are: 1. do_while construct added: do { stuff... } while (expression); 2. `defined?' replaced by `is_defined'. 3. Temporary global variables $0, $1, ... $9 added for convenience and clarity. 4. Comment delimeter changed from `;' to `%'. 5. Arrays are indexed from 0 not 1. 6. \??? is now Octal ??? NOT decimal ???. \d??? is decimal. 7. Sprintf added to intrinsics (formats strings) In addition, you should ``bytecompile'' the .sl files after installing the new version of jed. It is this simple: jed -batch -l bytecomp.sl . } while (expression); 2. `defined?' replaced by `is_defined'. 3. Temporary global variables $0, $1, ... $9 added for convenience and clarity. 4. Comment delimeter changed from `;' to `%'. 5. Arrays are indexed from 0 not 1. 6. \??? is now Octal ??jed-0.97.12/install.pc000064400000000000003000000115620603742307400142740ustar00rootsys00000000000000IBMPC (DOS and OS/2) installation specific functions. !!! Note: Files with the extension '.zip' can be unzipped with Info-Zip's unzip or with pkunzip. However, if using pkunzip, then you MUST use the -d option; e.g., pkunzip -d jed095.zip Suppose that you have unzipped jed.zip from the subdirectory c:\editors. You will then find: c:\editors\jed c:\editors\jed\lib c:\editors\jed\bin c:\editors\jed\src c:\editors\jed\info c:\editors\jed\doc The directory C:\editors\jed will be your JED_ROOT directory. You will need to set the environment variable JED_ROOT, as in: set JED_ROOT=c:\editors\jed Under DOS, this command should be placed in the autoexec.bat file. Under OS/2, users often place such lines in config.sys so that the variable is set in every command window. Other users have a standard file which they run at the start of every command window, and the "set" command could be placed in such a file. Don't edit config.sys unless you are confident in your ability to make changes to this essential file. +=========================================================== Note: This version of JED is distributed in 3 ways: jed.exe : Borland BCC compiled DOS executable it runs on all PCs (8086, 80286, etc.... jed.386 : DJGPP compiled a.out file. This requires the GO32 extender. Requires 386 or higher machine. jed386.exe: Same as jed.386 except that it has the extender included as part of the executable. If you are intalling JED on a 386/486 DOS system, you should use one of the jed386 versions (jed.386 or jed386.exe). This supports up to 128Meg (Disk) + 128Meg (extended) virtual memory when used with DJ Delorie's GO32 DOS extender. The executable `jed386.exe' already has the extender built in but jed.386 does not. The extender, sources, and gcc development environment are available from oak.oakland.edu in pub/msdos/djgpp. See also the file `copying.dj' included in this distribution. If you use the 386 versions, you will need to create a tmp directory somewhere and point the environment variable TMP at it. For example, suppose that you use the directory `C:\tmp' as the tmp directory. Then simply put the line set TMP=c:/tmp somewhere at the top of your autoexec.bat file. You might have to create the directory if it does not already exist. !!! Note also the use of the FORWARD slash !!! GO32 requires this. Also, if there is a conflict with another variable called TMP, use: set tmpdir=c:/tmp set go32tmp=c:/tmp +================================================================== Copy the executable file `bin\jed.exe' to where you keep your other *.exe and *.com files (somewhere in your path!). [For DJGPP compiled jed386, copy it as well] Also, delete the *.com files from the bin directory. These are VMS DCL command files and have nothing to do with DOS. They are present simply because this distribution is also for VMS. Reboot your machine so that the changes you have made in your autoexec.bat or config.sys file will take effect. JED should now be installed on your system. To test to see if it properly installed, byte compile the S-Lang library files by changing to the jed\lib\ subdirectory and running jed as: jed -batch -n -l preparse This creates pre-parsed lib\*.slc files that load quicker than lib\*.sl files. Once jed is installed on your system, it can be customized by editing the file `jed.rc'. Read the bit about defaults.sl in install.all for customizing your distribution in a way that is compatable with future versions. OS/2-specific information ------------------------- JED can be compiled for OS/2 2.x using Mattes' emx/gcc or Borland C, and for OS/2 1.x--2.x with Microsoft C. The file jed/makefile.os2 will build JED using emx/gcc or MSC, depending on the make-line. The default JED_ROOT location can be specified in the makefile. OS/2 versions first appeared in 0.95. Extended attributes are handled, and the case of filenames on HPFS will be preserved. Buffer-name completion will cycle through all matches, regardless of case. The OS/2 versions can handle compressed info files, ispell, and man. Necessary support programs for these capabilities may be obtained from ftp.cdrom.com (currently in pub/os2/all/unix/ or pub/os2/2_x/unix/) or ftp.informatik.tu-muenchen.de. I would like to acknowledge John Burnell (johnb@huia.grace.cri.nz) for his work on the OS/2 port. In addition, I am very grateful to Darrel Hankerson (hankedr@mail.auburn.edu), who is responsible for the Microsoft C and emx/gcc versions, as well Dominik Wujastyk (ucgadkw@ucl.ac.uk) for his contribution to the OS/2 version. Any questions should be emailed to me at davis@space.mit.edu. y be obtained from ftp.cdrom.com (currently in pub/os2/all/unix/ or pub/os2/2_x/unix/) or ftp.informatik.tu-muenchen.de. I would like to acknjed-0.97.12/install.unx000064400000000000003000000113160603742307500145020ustar00rootsys00000000000000UNIX installation specific functions. Please read this file. 0. Building and installing JED requires that you also have the S-Lang library to link to (cc *.c -lslang). Build it first. It should be in ../slang. You may have to get this library if you do not already have it or your version is too old. Get it from space.mit.edu in pub/davis/slang. 1. Pick some place for JED. JED is distributed in a TREE structure: JED_ROOT/ JED_ROOT/src JED_ROOT/info JED_ROOT/doc JED_ROOT/lib JED_ROOT/bin Here JED_ROOT can be anything (e.g., /usr/local/jed). It must be specified in the makefile. It is important that the subdirectories under JED_ROOT remain intact. An environment variable called `JED_ROOT' can also be created to over ride the value compiled with the executable. For simplicity, suppose that after you have unpacked the jed distribution, from the directory: /usr/users/myname/src to create: /usr/users/myname/src/jedxx-y Let's say that you want JED_ROOT to be /usr/local/jed. Then, AFTER you have successfully installed jed, you can simply do: mv /usr/users/myname/src/jedxx-y /usr/local/jed Better yet, simply make /usr/local/jed to be a link: ln -s /usr/users/myname/src/jedxx-y /usr/local/jed !! Please note that if you have an old version of JED installed, remove any environment variable called JED_LIBRARY. It is obsolete. 3. Build JED. To actually build JED, move to the src directory in the JED distribution and copy makefile.unx to makefile: cp makefile.unx makefile Edit the makefile to reflect your system. Instructions are in it. This is also the step where you must specifiy the value of JED_ROOT as described above. * note: JED assumes that the system supplied memcmp routine performs an unsigned comparision. This is NOT the case for SunOS. If your system uses a signed comparison for memcmp, do not use the -DHAS_MEMCMP option. If you do not know, do not use it either. * note: On Linux systems, JED may be compiled to take advantage of the GPM mouse server. See the mouse section in the makefile for enabling this. Then type `make' at the prompt. 3.1 If you want to build the XWindows version of JED, type: make xjed at the prompt (assuming you have correctly edited the makefile). 3.2 If you would like to use JED's rmail mode, first read doc/rmail.txt. Then type: make getmail 3.3 JED comes with a highlighting recursive grep program called rgrep. Type: make rgrep Then entering: ./rgrep will dump out a usage. Do with it what you want. It is useful and IMHO is better than grep. 4. Copy the new executable to somewhere on your path, e.g., cp ./jed /usr/local/bin rehash 5. Now move the distribution to the location of JED_ROOT as specified in the first step. 6. By default, when JED starts up, it will load some files out of JED_ROOT/lib then it will look for the file .jedrc in your home directory. If it does not find it, it will load the default file from JED_ROOT/lib. This will give you both emacs and edt emulation. If you do not want that, you will need to copy JED_ROOT/lib/jed.rc to $HOME/.jedrc and edit it. In fact, you are encouraged to copy jed.rc to $HOME/.jedrc and make your own personal changes there. The jed.rc file should be regarded as a template for .jedrc and should not be changed. Many Unix users do not want EDT editor bindings. However, JED is shipped with the EDT bindings enabled. If you do not want the EDT bindings, disable them in your .jedrc file. In particular, read site.sl which is the first file loaded when JED starts. Site specific customization should be placed in defaults.sl. For example, my defaults.sl on my linux system simply loads linux.sl. (See linux.sl) This sets keybindings for the appropriate for console and sets the color to white on blue. See site.sl for details. 8. Optional but highly recommended. Preparse the S-Lang files. This is done by running JED as: % jed -batch -n -l preparse.sl This creates pre-parsed *.slc files that load quicker than *.sl files. If this step fails to work for some reason, JED is probably not properly installed. 9. Read the bit about defaults.sl in install.all for customizing your distribution. 10. Again optional: There is a JED announcement list. If you want to be notified of upcoming JED releases, send email to me : davis@space.mit.edu 11. That's it. Enjoy. --John % jed -batch -n -l preparse.sl This creates pre-parsed *.slc files that load quicker than *.sl files. If this step fails to work for some reason, JED is probably not properly installed. 9. Read the bit about defaults.sl in install.all for customizing your distribution. jed-0.97.12/install.vms000064400000000000003000000114310603742307500144730ustar00rootsys000000000000000. Building and installing JED requires that you also have the S-Lang library to link to. Build it first. 1. Pick some place for JED. JED is distributed in a TREE structure: JED_ROOT: JED_ROOT:[src] JED_ROOT:[info] JED_ROOT:[doc] JED_ROOT:[lib] JED_ROOT:[bin] Here JED_ROOT can be anything. Its value is up to you. It should be a concealed logical. For example, suppose that JED is unpacked in a directory dev$source:[editors.jed] You CANNOT simply define JED_ROOT to be this value. Instead, it must be a concealed logical defined as: $ define/job/trans=(concealed) jed_root dev$source:[editors.jed.] It is important to note the final `.' after jed. This logical must be placed in the job table; system managers may put it in the system table instead. Instead of the above, I recommend something like: $ jedroot = f$logical("DEV$SOURCE") - "]" + "EDITORS.JED.]" $ define/job/trans=(concealed) jed_root 'jedroot' It is best to put the definition in the appropriate startup file (systartup.com, sylogin.com, login.com). Note: If are currently using a very old version of JED and and you have JED_LIBRARY defined as a logical, please remove it. 2. Build the jed.exe executable file: After you have properly setup the JED_ROOT logical, change to the directory 'jed_root:[src]'. You should now edit the 'vmsmake.com' file to indicate the location of the S-Lang library constructed in step 0. Directions are included in vmsmake.com. If you are installing jed on an ALPHA system, use DECCmake.com instead of VMSmake.com. Currently the file is structured such that typing `@vmsmake' at the VMS DCL prompt will make jed.exe for systems which have DEC's VMS C compiler. For systems that use GCC, `@vmsmake gcc' might also work. That is: $ @vmsmake ! VMS CC $ @vmsmake gcc ! GNU GCC $ @deccmake ! ALPHA/AXP systems with DEC C. Although descrip.mms files are included for use with `mms', I cannot guarantee them to work on ALPHA/AXP systems. Use `deccmake.com' instead. Once JED.EXE and XJED.exe are built, move them to JED_ROOT:[bin]. This may be accomplished by doing: $ rename *.exe [-.bin] 4. Put one of the following in either your sylogin.com for all users or in login.com. Note that JED_ROOT must be defined! $ @JED_ROOT:[bin]init_jed.com 0 0 ! no kept editor/no mail $ @JED_ROOT:[bin]init_jed.com 0 1 ! no kept editor/ use for mail $ @JED_ROOT:[bin]init_jed.com 1 0 ! kept editor/ no mail (most systems) $ @JED_ROOT:[bin]init_jed.com 1 1 ! kept editor/use for mail The first flag indicates whether jed should be installed as a standalone executable or as a kept editor. Use 1 for kepteditor or 0 for standalone. The second flag indicates whether or not mail$edit logical should be defined to point to jed. If it is set to 1, vms mail will call jed to edit the mail message. If JED is run as a kept editor, mail will simply attach to JED for editing. Most systems will probably use the 3rd choice above. 5. The file jed.rc contains the default keysettings for most users. On VMS this means users will get both edt and emacs keybindings. It is not necessary for every user to have a copy of this file. JED will search for jed.rc in sys$login first and if not found, it will load jed.rc from JED_ROOT:[LIB]. 6. It may be necessary to edit site.sl if you have an info directory where info files are kept. If you do not understand this statement, then you do not have info. 7. Make sure all users who will be using JED have permission to do so. The easiest way to do this is to type: $ set file/protection=(w:re) jed_root:[000000...] 8. Optional but highly recommended. Preparse the S-Lang files. This is done by running JED as: $ jed -batch -n -l preparse This creates pre-parsed *.slc files that load quicker than *.sl files. It is also a convenient test to see if JED has been installed properly. Once you do this, make sure that you give the WORLD read permission on the files. Do: $ set file/protection=(W:RE) JED_ROOT:[lib]*.slc !!! Do not use *.*. Use *.slc. 9. It is possible that you have the PC distribution. This distribution truncates filenames to 8+3 style names. If you have JED_ROOT:[LIB]VMS_SHEL.COM, rename it to VMS_SHELL.COM. Also make sure that JED_ROOT:[INFO] contains dir.info and not dir.inf. 10. Read the bit about defaults.sl in install.all for customizing your distribution. 11. Please email bugs, installation problems, or hints about how to better install JED to `davis@space.mit.edu'. Do not use *.*. Use *.slc. 9. It is possible that you have the PC distribution. This distribution truncates filenames to 8+3 style names. If you have JED_ROOT:[LIB]VMS_SHEL.COM, rename it to VMS_SHELL.COM. Also makjed-0.97.12/bin/004075500000000000003000000000000611265627000130515ustar00rootsys00000000000000jed-0.97.12/bin/init_jed.com000064400000000000003000000023240603742307500153340ustar00rootsys00000000000000$! This file defines the appropriate symbols for JED. It requires $! two parameters: $ define/job jed_library jed_root:[lib] $! jed == "$jed_root:[bin]jed." + f$getsyi("ARCH_NAME") + "_EXE" $ if (p1 .nes "0") .and. (p1 .nes. "1") then goto USAGE $ if (p2 .nes "0") .and. (p2 .nes. "1") then goto USAGE $ if (p1 .eqs. "1") then goto KEPT $! $! simple editor $! $ runjed :== $jed_root:[bin]jed.exe $ jed :== $jed_root:[bin]jed.exe $ goto do_mail $! $ kept: $ runjed :== $jed_root:[bin]jed.exe $ jed :== @jed_root:[bin]keptjed.com $ do_mail: $ if (p2 .nes. "1") then goto done $ define/job mail$edit "@jed_root:[bin]jed_mail.com" $ done: $ exit $! $ usage: type sys$input This command procedure requires two parameters with the value of either 0 or 1. If first parameter is 1, it indicates that JED is to run as a kepteditor otherwise JED is run as a normal executable. If the second parameter has a value of 1, JED is used as the editor for mail. So, the following are valid: @jed_root:[bin]init_jed 0 0 !normal/no mail @jed_root:[bin]init_jed 0 1 !normal/mail @jed_root:[bin]init_jed 1 0 !kept/nomail <-- most systems @jed_root:[bin]init_jed 1 1 !kept/mail $ exit ameters with the value of either 0 or 1. If first parameter is 1, it indicates that JED is to run as a kepteditor otherwise JED is run as a normal executable. If the second parameter has a value of 1, JED is used as the editor for mail. So, the following are valid: @jed_roojed-0.97.12/bin/jed_mail.com000064400000000000003000000027320603742307500153160ustar00rootsys00000000000000$ ! Command procedure to invoke an editor for MAIL. $ ! $ ! Inputs: $ ! $ ! P1 = Input file name. $ ! P2 = Output file name. $ ! $ ! If MAIL$EDIT is undefined, MAIL will invoke callable EDT. $ ! If MAIL$EDITis defined to be a command procedure, $ ! MAIL will create a subprocess to edit the mail. $ ! $ ! Note that this procedure is run in the context of a subprocess. $ ! LOGIN.COM is not executed. However, all process logical names $ ! and DCL global symbols are copied. $ ! $ ! The default directory is the same as the parent process $ ! $!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $! $! jed: $! $! $!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $! $! *** jed *** $! $ VERIFY = F$VERIFY (0) $ define/job/nolog jed_attach_to 'f$getjpi("", "PID") $ define /user sys$input 'f$trnlnm("SYS$OUTPUT")' $ if (p1 .EQS. "") THEN GOTO NO_INPUT_jed $! $ copy 'p1' 'p2' $! $ No_Input_Jed: $! $ priv_list = f$setprv ("NOWORLD, NOGROUP") $ pid := 'f$trnlnm("JED_PID")' $ if (pid .eqs. "") then goto no_attach $ context = 0 $ Loop: $ if (pid .eqs. f$pid ( context )) then goto attach $ if (context .ne. 0) then goto loop $! $ no_attach: $ priv_list = f$setprv (priv_list) $ runjed 'p2' $ goto done $ attach: $ priv_list = f$setprv (priv_list) $ define/nolog/job jed_file_name "''p2'" $ attach/id = 'pid' $ deassign/job jed_file_name $ done: $! $ IF (VERIFY) THEN SET VERIFY $ EXIT ) $ pid := 'f$trnlnm("JED_PID")' $ ijed-0.97.12/bin/keptjed.com000064400000000000003000000042440603742307500152000ustar00rootsys00000000000000$ verify = f$verify (0) $! $! Kept_Jed.com --- basede on kepteditor.com by Joe Kelsey $! $! Defines the PF1 key to reattach instantly instead of going back $! through this file again. $! $ if p1 .eqs. "-BATCH" $ then $ runjed 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' 'p9' $ exit $ endif $! $ name = "JED " + f$trnlnm ( "TT" ) - ":" $ priv_list = f$setprv ("NOWORLD, NOGROUP") $ context = 0 $ Loop: $ pid = f$pid ( context ) $ proc = f$getjpi (pid, "PRCNAM") $ if proc .eqs. name then goto attach $ if context .ne. 0 then goto Loop $! $ args = p1 + " " + p2 + " " + p3 + " " - + p4 + " " + p5 + " " + p6 + " " + p7 + " " + p8 $ priv_list = f$setprv ( priv_list ) $ write sys$error "[Spawning a new Kept JED]" $ define/user sys$input sys$command $ spawn/nolog/process="''name'" runjed 'args' $! $! define gold key (PF1) to immediately attach $! $ context = 0 $ gold_loop: $ pid = f$pid ( context ) $ proc = f$getjpi (pid, "PRCNAM") $ if proc .eqs. name then goto gold_loop_exit $ if context .ne. 0 then goto gold_loop $ goto quit !could not find jed process so we quit $! $ gold_loop_exit: $ define/key/nolog/terminate/noecho pf1 "attach/ident=''pid'" $ define/nolog/job JED_PID "''pid'" $ goto quit $! $! $ attach: $ priv_list = f$setprv ( priv_list ) $ message_status = f$environment("message") $ set noon $ set message /nofacility/noidentification/noseverity/notext $ set on $ set message 'message_status $ if p1 .eqs. "" then goto no_logical $ temp = f$trnlnm("SYS$DISK") + f$directory() + p1 $ temp = f$edit(temp,"lowercase") $ define/nolog/job jed_file_name "''temp'" $ no_logical: $ write sys$error "[Attaching to process ''NAME']" $ define/user sys$input sys$command $ attach "''NAME'" $! $ quit: $! $ message_status = f$environment("message") $ set noon $ set message /nofacility/noidentification/noseverity/notext $ deassign/job jed_file_name $ set on $ set message 'message_status $ write sys$error - "[Attached to DCL in directory ''F$TRNLNM("SYS$DISK")'''F$DIRECTORY()']" $ if verify then set verify $ exit name "''temp'" $ no_logical: $ write sys$error "[Attaching to process ''NAME']" $ define/user sys$input sys$command $ attach "''NAME'" $! $ quit: $! $ message_status = f$environment("message") $ set noon $ set message /nofacility/noidentification/noseverity/notext $ deassign/job jed_file_name $ set on $ set message 'jed-0.97.12/bin/mswshell.pif000064400000000000003000000010410603742307600154010ustar00rootsys00000000000000 %JED_ROOT%\BIN\MSWSHELL.EXE  P MICROSOFT PIFEXqWINDOWS 386 3.0hd2 WINDOWS 286 3.0%JED_ROOT%\BIN\MSWSHELL.EXE  P MICROSOFT PIFEXqWINDOWS 386 3.0hd2 jed-0.97.12/bin/getmail000075500000000000003000000604100603742307600144200ustar00rootsys00000000000000 @a@(@ l PGq( P@@ 92453-07A09.74.080~% 92453-07A08.56.05*v 82$Header: crt0.s,v 70.8 92/05/19 15:52:46 ssa Exp $@  `HX" rrLX "tttX 'HHX 'X '  X 82"X H4($(X I4$X X4$8>(@@`>(@@L>( @@`>(@@,>(@@x>(A`T@`T>(A@>(A@>(&AX@X >('B@>((B@>(P@(>(R@((>HP >I\, ,Y ? @P@ $PRIVATE$$DLT$$PLT$ $SHLIB_DATA$$TEXT$ $SHLIB_INFO$ $DATA_START$ $MILLICODE$$LIT$ $LITSTATIC$$CODE$$UNWIND_START$$UNWIND$MILLICODE$$UNWIND$ $UNWIND_END$$RECOVER_START$$RECOVER$MILLICODE$ $RECOVER$ $RECOVER_END$ $PFA_COUNTER$$PFA_COUNTER_END$$DATA$ $STATICDATA$ $SHORTDATA$$SHORTSTATICDATA$$GLOBAL$ $SHORTBSS$$BSS$ $GDB_DEBUG$ $GDB_SYMBOLS$ $GDB_STRINGS$00$ 08 @0@(0 0 @U L0 0 0 $0 4"0 H$0 X$0 l$0 @ 0 @0 @0 @0 @0 @ \ @ p @ @ @( @( @` @ H @00@@ @ Q( P8 D AP \k hH x      + TH `@(UHUx U8xU0U( U U@U l |t @( @x @  80A!@ 80d@H $ @P0x@80!0"0" 0!U! @"0 @P P @T ! 0" @"0 @X0 @0 @ 0w 0w 0 0 0 0 x   0 0  0 ' 0? T 0,o 0<  08   0L# 4 0\G 0l[ h 0|s 0  0  0   $ 0 8 @  H, XT `d 0o 0 h 0 0 t 0 0H   ( 0(+ L80$0@(0@P0$0@(0@P0 0!8 8x8888880A!@`0!!main __text_start ___stack_zero __data_start $START_RTN$ $str_lit_sym$ $THIS_DATA$$THIS_SHORTDATA$ $THIS_BSS$$THIS_SHORTBSS$$THIS_STATICDATA$$THIS_SHORTSTATICDATA$ $THIS_LIT$$THIS_LITSTATIC$$$stat_0 __map_dlderrorstrlenitoa__exitsyserroropenclosereadwritelseekmmap$global$$START$$ARGV _fp_status_start_mcount_clear_counters _sr4export $UNWIND_START $UNWIND_END$RECOVER_START $RECOVER_END __dld_flags __dld_hook __dld_list __SYSTEM_ID _SYSTEM_ID $PFA_C_START $PFA_C_ENDerrno_etext_end __dld_loc $$dyncall $$divI_10$$remI$LIT$$BSS$ our_flockunlock_mail_file Program_Name exit_errormv_mail$CODE$usage__iobfprintfexitunlinkfcntl__main$DATA$ L$text0000 Ltext_endinitialized___6 __CTOR_LIST__ __DTOR_LIST____do_global_dtors__do_global_ctorsatexit_exit_dummy_decl_exit_dummy_ref_iobLIBC//Mdiv_const.o0HPUX Precision Architecture vers PA2.0 assembler92453A.08.12 (sllic PA1.1)$neg3$pos$neg$neg5$neg6 $pos_for_17$neg10 $neg_for_17$neg12$neg15$neg17$u17$neg7$7$pos7$1$2$8 $neg7_shift$3$4$neg9$neg14$$divide_by_constant$$divI_2$$divI_4$$divI_8 $$divI_16$$divI_3$$divU_3$$divI_5$$divU_5$$divI_6$$divU_6 $$divU_10 $$divI_12 $$divU_12 $$divI_15 $$divU_15 $$divI_17 $$divU_17$$divI_7$$divU_7$$divI_9$$divU_9 $$divI_14 $$divU_14 LIBC//MremI.ot1finishLIBC//MdyncallU.onoshlibsetextedataend_etext_edata_end __SYSTEM_ID _fp_statusetextedataend_etext_edata_endP\ P\4P\N0pl  @0"@U-@U2@PU7@U{`U!U@U =DKQW\chpu../bin/getmail/lib/libc.slerrno_SYSTEM_ID_iob_end__iobatexit_startwritefcntlopenunlinkexitfprintfreadclosemain__do_global_dtorsXZ]XZ]XZ]XZ]d@"Z]> ZZ]> ZZ]9 Z8 =@Y :Z @Z@ ZZZ] ZZ @"ZY :ZZ@= ZZZ@= Z ZY :Z]ya: =]: =]  : =@]ZBu ZZZZ ZZ]ya: =]: =]  : = @]ZB ZZZM ZZY :}@]Be]yZZ5@*Z@ya AZ@ya AZ]ya A @Z@] Z]: =] y a: =]Y(ZYY8Z@] Z]: =] y a: =]Y(Z YY8Z]Y Z @*Z@YA AZ@YA AZ]YA A @ ZZmZ @V   @A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A ˡF ! !V @JJ k?%s: usage: %s infile outfile %s: %s Unable to lock file.Unable to open input file.Unable to create output file.write failed.Ku?1Ks?9 k?#`(7{P7K#+h# 'y 4Kd?Eke?(43 `'y H? zG+4>DEFYXZ#0!xBZYX^k?# /B@@@@ BK?@ @@k?ok= k=k=k=!k=)k=1k=9k=Ak=Ik=Qk=Y+DCGE4: Y#0+BF 04 ?4 4Y#0'B7>I4ZX#0+B *4 4Y#0'BG>M4] BG>I4t *4 PYX#0'BK>ZX#0,B7=4`ZX#0+B G= *4 YX#0'BK=K> K>K>)k?k?4 4 Z Y W#0,PBL 2+4:4  X#0'BK>!k?k?4ZY4#0,PBH 2+4:4 X#0'B@ k?k?44,Z Y#0,PB 2+44: X#0'BZ N#0+PBK>1K> lk=k=k?k=k=  +4< +`h(0( 4"(4$ p+`k?4?Wk=Xk?k?4%Pk?y7=k?q# .PBKK?K?K? @O?@ \@\B7 B??7@TS 44Z# +@7` Z# '@_S@  4 "@@@@  4 "@R@@@  4 "@@@@  4 "@@@@  4 "@@@@  4& "@R@@@  4 "@@@@+`4!h<4?@@@@K?@ @Ku?Ks? k?Ku?Ks? k?Ku?QKs?Y k?Ku?aKs?i k?Ku?Ks? k?Ku?AKs?I k?Ku?Ks? k?Ku?qKs?y k?k?7+`S+T6 # 79Jx_%W_E4?@@k?oWD+`S+T6 # 79_Jx _}@_4?@k?74g?k?)g?k?!k?4_u7? (K>#@ 7Z_4K>@7?k?+4>k?k?k?!k?)k?1FC4_4lȜ#@ 7Z_=4_ZZ4_4ȼ #@ 7ZH_4Z"~6s ~ _m#C`@XZ"~6s ~ _]X|?Z44_=4B?a_MZ_=Z_]Z 0Z4_u4Ȝ@ _Z_@K?K?K?!K?)K?1+H"@4>k?ok? k?k?E@DHH+`H h3_u@Z_Y4K>K? K?K?@O?@P@K?@ @Ku?!Ks?) k?k?o+`H3(` 84#(HsV UB h0`?HsK?Y@O?k?ok? +`H4@ X43@Js` @446@46 Js`?6t 8+`4$@ V ]B? #@(_e7ZK>K? @O?k?+H3X` 74_h3XK?Y@7?tX$H(D 0dh$(DH\8pttx  !<!@!!""""" ` x 0! ! @@ /lib/dld.slERROR couldn't open dld.slERROR reading dld.slERROR bad magic number/system id for dld.slERROR bad dld.sl hpux aux header (text) (data) (bss)crt0: errno: @X$Header: mapdld.c,v 70.3 92/02/05 16:07:02 ssa Exp $ERROR: mmap failed for dld! x!@ libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19__do_global_dtors:F19_exit_dummy_ref:G29=*1__do_global_ctors:F19__main:F19end_file.libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19_exit_dummy_decl:G1end_file.- d!"d!.PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1$!G ^$"t$""*P d""d".PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1 6E"*P d""d".PbHfӀ+Fbjed-0.97.12/doc/004075500000000000003000000000000611265627000130465ustar00rootsys00000000000000jed-0.97.12/doc/README000064400000000000003000000024510603742307600137260ustar00rootsys00000000000000The main reason JED's version number is below 1.0 is due to the lack of adequate documentation. I am slowly working on it. The file jed.tex will become the main jed documentation. If you build slang/doc/texconv, you can convert this file from LaTeX to a plain text format or to a VMS style format. Please read jed_faq.txt if you have any questions regarding JED. The majority of questions I receive are already answered here. Even if you have already read these documents from a previous JED version, it is a good idea to re-read them because they do change (improve) from release to release. In this directory, you will find the following supplemental documents: jed.tex : jed documentation (LaTeX file-- see above comment) color.txt : how to set up JED using a color terminal (e.g., MS-Kermit) syntax.txt : Describes syntax highlighting program.txt : S-Lang programming tips (efficiency and speed) edt.txt : EDT editor emulation script.txt : How to use JED in batch mode xjed.doc : Notes pertaining to XWindows version of JED rmail.txt : How to set up JED's rmail mode for mail reading wordstar.txt : Wordstar mode documentation pc-keys.txt : list of keycodes for PC systems rgrep.doc : document for recursive grep program (rgrep) , MS-Kermit) syntax.txt : Describes syntax highlighting program.txt : S-Lang programming tips (efficiency and speed) edt.txt : EDT editor emulation script.txt : How to use JED in batch modejed-0.97.12/doc/jed.tex000064400000000000003000002153000603742307600143310ustar00rootsys00000000000000\documentstyle{article} \setlength{\oddsidemargin}{0mm} \setlength{\evensidemargin}{0mm} \setlength{\textwidth}{160mm} \setlength{\topmargin}{-10mm} \setlength{\textheight}{210mm} \parindent=0mm \parskip=5mm \def\mytitle{The JED Editor} \newlength{\pagewidth} \setlength{\pagewidth}{\textwidth} %\addtolength\pagewidth\marginparwidth % \addtolength\pagewidth\marginparsep \makeatletter \def\ps@headings{\def\@oddfoot{}% \def\@oddhead{\makebox[\textwidth][l]{\underline{\hbox to \pagewidth{\bf \mytitle\hfill\thepage}}}}% \def\@evenfoot{}% \def\@evenhead{\makebox[\textwidth][l]{\underline{\hbox to \pagewidth{\bf \mytitle\hfill\thepage}}}}}% \pagestyle{headings} \newcommand{\slang}{{\bf S-Lang}} \newcommand{\jed}{{\bf jed}} \newcommand{\exmp}[1]{{\tt #1}} \newcommand{\var}[1]{{\tt #1}} \newcommand{\key}[1]{{\sc #1}} \begin{document} \tableofcontents \pagebreak \section{Introduction} This document presents some basic information that users should know in order to use \jed{} effectively. Any questions, comments, or bug reports, should be email-ed to the author. Please be sure to include the version number. To be notified of future releases of \jed{}, email to the address below and your email address will be placed on the announcement list. The email address is: \begin{verbatim} davis@space.mit.edu (Internet) davis@ohstpy (BITNET) \end{verbatim} \section{Installing JED} Building \jed{} from its sources requires the use of a C compiler that understands function prototypes. \jed{} has been successfully built with \verb|cc| on the ULTRIX, VMS, and IRIX operating systems. In addition, it has been created using \verb|gcc| under SunOS and Borland's BCC 3.0 for the PC. Detailed installation instructions are in separate, operating system dependent files. They are: \begin{verbatim} UNIX: install.unx VMS: install.vms IBM-PC: install.pc \end{verbatim} When \jed{} starts up, it will first try to load a site initialization file called \verb|site.sl|. Site specific commands are placed here. Most likely, \verb|site.sl| will define some functions, default hooks, etc\ldots What goes in it is left to the discretion of the user or system manager. See the file \verb|site.sl| for examples. When loading \verb|site.sl| as well as other \verb|S-Lang| files (the user's personal initialization file, \verb|.jedrc| or \verb|jed.rc|, is a special case, see below), \jed{} searches all directories specified by the environment variable \verb|JED_LIBRARY|, and if the file is not found, \jed{} will look for it in the default directory. The environment variable \verb|JED_LIBRARY| is a comma separated list of directories. Here are some examples of setting this variable for different systems: \begin{verbatim} VMS: define/job JED_LIBRARY dev$lib:[jedfiles]} UNIX: setenv JED_LIBRARY '/usr/local/lib/jed,~/jed'} IBMPC: set JED_LIBRARY = c:\editors\jed\lib} \end{verbatim} You will probably want to put define \verb|JED_LIBRARY| in your login startup file, e.g., \verb|autoexec.bat|, \verb|login.com|, or \verb|.cshrc|. \jed{} versions 0.92 and later allow the value of \verb|JED_LIBRARY| to be specified at compile time an it may only be necessary to define \verb|JED_LIBRARY| as an environment variable to override its pre--compiled value. \section{Startup Files} Once \jed{} has loaded the startup file \verb|site.sl|, it will try to load the user's personal initialization file. It first looks in the directory pointed to by the environment variable \verb|JED_HOME|. If that fails, it then searches the \verb|HOME| directory and upon failure simply loads the one supplied in \verb|JED_LIBRARY|. The name of the user initialization file varies according to the operating system. On Unix systems this file must be called \verb|.jedrc| while on VMS and MSDOS, it goes by the name \verb|jed.rc|. For VMS systems, the \verb|HOME| directory corresponds to the \verb|SYS$LOGIN| logical name while for the other two systems, it corresponds to the \verb|HOME| environment variable. The purpose of this file is to allow an individual user to tailor \jed{} to his or her personal taste. Most likely, this will involve choosing an initial set of key-bindings, setting some variables, and so on. \section{Starting JED} Normally, \jed{} is started as \begin{verbatim} jed \end{verbatim} or \begin{verbatim} jed \end{verbatim} However, \jed{} also takes the switches defined in the following table: \begin{verbatim} Switch Meaning ------ ------- -batch run JED in batch mode. This is a non-interactive mode. -n do not load jed.rc (.jedrc) file. -g goto line `n' in buffer -l load `file' as S-Lang code. -f execute S-Lang function named `function' -s search forward for `string' -2 split window -i insert into current buffer. \end{verbatim} For example, the command line: \begin{verbatim} jed slang.c -g 1012 -s error -2 file.c -f eob \end{verbatim} will start up \jed{}, read in the file \var{slang.c}, goto line 1012 of \var{slang.c} and start searching for the string \var{error}, split the window, read in \var{file.c} and goto the end of the file. If the \var{-batch} parameter is used, it must be the first parameter. Similarly, if \var{-n} is used, it must also be the first parameter unless used with the \var{-batch} parameter in which case it must the second. \jed{} should only be run in batch mode when non--interactive operation is desired. For example, \jed{} is distributed with a file, \verb|mkdoc.sl|, that contains S--Lang code to produce a help file for functions and variables. In fact, the help file \verb|jed_funs.hlp| was created by entering \begin{verbatim} jed -batch -n -l mkdoc.sl \end{verbatim} at the command line. Now suppose that you want to read in a file with the name of one of the switches, say \verb|-2|. How can this be done? The answer depends upon the operating system. For Unix, instead of \var{jed -2}, use \var{jed ./-2}; for VMS, use \var{jed []-2}. The case for MS-DOS is similar to Unix except that one must use the backslash. It is possible to completely change \jed{}'s command line syntax through the use of the user defined function \verb|command_line_hook|. In fact, the behavior described above is dictated by the value of \verb|command_line_hook| as distributed in \verb|site.sl|. See the section on hooks for details. \section{Emulating Other Editors} \jed{}'s ability to create new functions using the S--Lang programming language as well as allowing the user to choose key bindings, makes the emulation of other editors possible. Currently, \jed{} provides reasonable emulation of the Emacs, EDT, and Wordstar editors. \subsection{Emacs Emulation} Emacs Emulation is provided by the \slang{} code in \verb|emacs.sl|. The basic functionality of Emacs is emulated; most Emacs users should have no problem with \jed{}. To enable Emacs emulation in \jed{}, make sure that the line \begin{verbatim} evalfile ("emacs"); pop (): \end{verbatim} is in your \verb|jed.rc| (\verb|.jedrc|) startup file. \jed{} is distributed with this line already present in the default \verb|jed.rc| file. \subsection{EDT Emulation} For EDT emulation, \verb|edt.sl| must be loaded. This is accomplished by ensuring that the line \begin{verbatim} evalfile ("edt"); pop (); \end{verbatim} is in present in the \verb|jed.rc| (\verb|.jedrc|) Startup File. \jed{} is distributed with EDT emulation enabled on VMS and Unix systems but the above line is commented out in the \verb|jed.rc| file on MS-DOS systems. This emulation provides a near identical emulation of the EDT keypad key commands. In addition, the smaller keypad on the newer DEC terminals is also setup. It is possible to have both EDT and Emacs emulation at the same time. The only restriction is that \verb|emacs.sl| must be loaded before \verb|edt.sl| is loaded. One minor difference between \jed{}'s EDT emulation and the real EDT concerns the \key{Ctrl-H} key. EDT normally binds this to move the cursor to the beginning of the line. However, \jed{} uses it as a help key. Nevertheless, it is possible to re-bind it. See the section on re-binding keys as well as the file \verb|edt.sl| for hints. Alternatively, simply put \begin{verbatim} unsetkey ("^H"); setkey ("bol", "^H"); \end{verbatim} in the \verb|jed.rc| startup file after \verb|edt.sl| is loaded. Keep in mind that the \key{Ctrl-H} key will no longer function as a help key if this is done. EDT emulation for PCs only work with the enhanced keyboard. When \verb|edt.sl| is loaded, a variable \verb|NUMLOCK_IS_GOLD| is set which instructs \jed{} to interpret the Num-Lock key on the square numeric keypad to function as the EDT GOLD key. In fact, this keypad should behave exactly like the keypad on VTxxx terminals. The only other problem that remains concerns the \key{+} key on the PC keypad. This key occupies two VTxxx key positions, the minus and the comma (delete word and character) keys. Thus a decision had to be made about which key to emulate. I chose the \key{+} key to return the characters \key{Esc O l} which \jed{} maps to the delete character function. This may be changed to the delete word function if you prefer. See the file \verb|edt.sl| for details. The \key{GOLD}--\key{GOLD} key combination toggles the keypad between application and numeric states. On the PC, this is not possible. Instead, the PC \key{F1} key has been instructed to perform this task. \subsection{Wordstar Emulation} \verb|wordstar.sl| contains the \slang{} code for \jed{}'s Wordstar emulation. Adding the line \begin{verbatim} evalfile ("wordstar"); pop (); \end{verbatim} to your \verb|jed.rc| (\verb|.jedrc|) startup file will enable \jed{}'s Wordstar emulation. \section{File Types and Sizes} \jed{} is primarily a text editor; however, it can also edit binary files (see the section on editing binary files). As a result, \jed{} may edit lines of arbitrary length (actually this depends upon the size of an integer). It is capable of editing arbitrarily large buffers as long as there is enough memory for the buffer as well as the overhead involved. This editor employs a linked list representation; hence, the overhead can be quite high. \section{Backup and Auto-save Files} On UNIX and MS-DOS systems, \jed{} creates backup files by appending a \var{~} character to the filename. The VMS operating system handles backup files itself. \jed{} periodically auto-saves its buffers. On UNIX and MS-DOS, auto-save files are prefixed with the pound sign \var{\#}. On VMS, they are prefixed with \verb|\_$|. The auto-save interval may be changed by setting the variable \verb|MAX_HITS| to the desired value. The default is 300 ``hits'' on the buffer. A ``hit'' is defined as a key which MAY change the state of the buffer. Cursor movement keys do not cause hits on the buffer. Like many of \jed{}'s features, the names of auto-save and backup files can be controlled by the user. The file \verb|site.sl| defines two functions, \verb|make_backup_filename|, and \verb|make_autosave_filename| that generate the file names described in the previous paragraph. Like all S--Lang functions, these functions may be overloaded and replaced with different ones. See also information about \verb|find_file_hook| in the section on hooks. On UNIX systems, \jed{} catches most signals and tries to auto-save its buffers in the event of a crash or if the user accidently disconnects from the system (\var{SIGHUP}). If an auto-save file exists and you is desire to recover data from the auto-save file, use the function \verb|recover_file|. Whenever \jed{} finds a file, it checks to see if an auto-save file exists as well as the file's date. If the dates are such that the auto-save file is more recent \jed{} will display a message in the mini-buffer alerting the user of this fact and that the function \verb|recover_file| should be considered. \section{Status line and Windows} \jed{} supports multiple windows. Each window may contain the same buffer or different buffers. A status line is displayed immediately below each window. The status line contains information such as the \jed{} version number, the buffer name, ``mode'', etc. Please beware of the following indicators: \var{**}\\ buffer has been modified since last save. \var{\%\%}\\ buffer is read only. \var{m}\\ Mark set indicator. This means a region is being defined. \var{d}\\ File changed on disk indicator. This indicates that the file associated with the buffer is newer than the buffer itself. \var{s}\\ spot pushed indicator. \var{+}\\ Undo is enabled for the buffer. \var{[Macro]}\\ A macro is being defined. \var{[Narrow]} Buffer is narrowed to a region of LINES. \section{Mini-Buffer} The Mini-Buffer consists of a single line located at the bottom of the screen. Much of the dialog between the user and \jed{} takes place in this buffer. For example, when you search for a string, \jed{} will prompt you for the string in the Mini-Buffer. The Mini-Buffer also provides a direct link to the \slang{} interpreter. To access the interpreter, press \key{Ctrl-X} \key{Esc} and the \var{S-Lang>} prompt will appear in the Mini-Buffer. Enter any valid \slang{} expression for evaluation by the interpreter. It is possible to recall data previously entered into the Mini-Buffer by using the up and down arrow keys. This makes it possible to use and edit previous expressions in a convenient and efficient manner. \subsection{Command Line Completion} The \jed{} editor has several hundred built--in functions as well as many more written in the \slang{} extension language. Many of these functions are bound to keys and many are not. It is simply unreasonable to require the user to remember if a function is bound to a key or not and, if it is, to remember the key to which it is bound. This is especially true of those functions that are bound but rarely used. More often than not, one simply forgets the exact name or spelling of a function and requires a little help. For this reason, \jed{} supports command line completion in the mini-buffer. This function, called \verb|emacs_escape_x|, is bound to the key \key{Esc X}. This is one binding that must be remembered! As an example, suppose that you are editing several buffers and you wish to insert the contents of one buffer into the current buffer. The function that does this is called \verb|insert_buffer| and has no default key-binding. Pressing \key{Esc X} produces the prompt \var{M-x}. This prompt, borrowed from the Emacs editor, simply means that \key{Esc X} was pressed. Now type \var{in} and hit the space bar or the \key{Tab} key. In this context (completion context) the space bar and the \key{Tab} will expand the string in the Mini-Buffer up until it is no longer unique. In this case, \verb|insert_file| and \verb|insert_buffer| are only the two functions that start with \var{in}. Hence, \var{in} will expand to \verb|insert_| at which point it becomes necessary to enter more information to uniquely specify the desired function. However, in a completion context, the space bar also has a special property that enables the user to cycle among the possible completions. For this example, hitting the space bar twice consecutively will produce the string \verb|insert_file| and hitting it again produces the desired string \verb|insert_buffer|. The role of the space bar in completion is a point where Emacs and \jed{} differ. Emacs will pop up a buffer of possible completions but \jed{} expects the user to press the space bar to cycle among them. Both have there pros and cons. Frequently, one sees messages on the Usenet newsgroup \verb|gnu.emacs.help| from Emacs users asking for the kind of completion \jed{} employs. \subsection{File Names} \jed{} takes every file name and ``expands it'' according to a set of rules which vary according to the Operating System. For concreteness, consider \jed{} running under MS-DOS. Suppose the user reads a new file into the editor via the \verb|find_file| command which emacs binds to \key{Ctrl-X} \key{Ctrl-F}. Then the following might be displayed in the mini-buffer: \begin{verbatim} Find File: C:\JED\SLANG\ \end{verbatim} Here \jed{} is prompting for a file name in the directory \verb|\JED\SLANG| on disk \var{C:}. However, suppose the user wants to get the file \verb|C:\JED\SRC\VIDEO.C|. Then the following responses produce equivalent filenames when \jed{} expands them internally: \begin{verbatim} Find File: C:\JED\src\video.c Find File: C:\JED\SLANG\..\src\video.c Find File: C:\JED\SLANG\../src/video.c \end{verbatim} Note that the on MS-DOS systems, \jed{} replaces the \var{/} with a \verb|\| and that case is not important. Now suppose you wish to get the file \var{VIDEO.C} from disk \var{A:}. The following are also valid: \begin{verbatim} Find File: A:\video.c Find File: A:video.c Find File: C:\JED\SLANG\a:\video.c \end{verbatim} In the last case, \jed{} is smart enough to figure out what is really meant. Although the above examples are for MS-DOS systems, the rules also apply to Unix and VMS systems as well. The only change is the file name syntax. For example, on VMS \begin{verbatim} sys$manager:[misc]dev$user:[davis.jed]vms.c dev$user:[davis.jed]vms.c \end{verbatim} become equivalent filenames upon expansion. For unix, the following are equivalent: \begin{verbatim} /user1/users/davis/jed/unix.c /usr/local/src//user1/users/davis/jed/unix.c /usr/local/src/~/jed/unix.c \end{verbatim} Note the last example: the tilde character \verb|~| always expands into the users \verb|HOME| directory, in this case to \verb|/user1/users/davis|. When \jed{} writes a buffer out to a file, it usually prompts for a file name in the minibuffer displaying the directory associated with the current buffer. At this point a name can be appended to the directory string to form a valid file name or the user may simply hit the \key{RET} key. If the latter alternative is chosen, \jed{} simply writes the buffer to the file already associated with the buffer. Once the buffer is written to a file, the buffer becomes attached to that file. \subsection{Buffer Name and File Name Completion} When \jed{} prompts for a file name or a buffer name, the space bar and the \key{Tab} keys are special. Hitting the \key{Tab} key will complete the name that is currently in the minibuffer up until it is no longer unique. At that point, you can either enter more characters to complete the name or hit the space bar to cycle among the possible completions. The spacebar must be pressed at least twice to cycle among the completions. On MSDOS and VMS, it is possible to use wildcard characters in the file name for completion purposes. For example, entering \key{*.c} and hitting the space bar will cycle among file names matching \key{*.c}. Unfortunately, this feature is not available on unix systems. \section{Basic Editing} Editing with \jed{} is pretty easy--- most keys simply insert themselves. Movement around the buffer is usually done using the arrow keys or page up and page down keys. If \verb|edt.sl| is loaded, the keypads on VTxxx terminals function as well. Here, only the highlights are touched upon (cut/paste operations are not considered ``highlights''). In the following, any character prefixed by the \verb|^| character denotes a Control character. On keyboards without an explicit Escape key, \key{Ctrl-[} will most likely generate and Escape character. A ``prefix argument'' to a command may be generated by first hitting the \key{Esc} key, then entering the number followed by pressing the desired key. Normally, the prefix argument is used simply for repetition. For example, to move to the right 40 characters, one would press \key{Esc 4 0} followed immediately by the right arrow key. This illustrates the use of the repeat argument for repetition. However, the prefix argument may be used in other ways as well. For example, to begin defining a region, one would press the \key{Ctrl-@} key. This sets the mark and begins highlighting. Pressing the \key{Ctrl-@} key with a prefix argument will abort the act of defining the region and to pop the mark. The following list of useful keybindings assumes that \verb|emacs.sl| has been loaded. \key{Ctrl-L}\\ Redraw screen. \key{Ctrl-\_}\\ Undo (Control-underscore, also \key{Ctrl-X u}). \key{Esc q}\\ Reformat paragraph (wrap mode). Used with a prefix argument. will justify the paragraph as well. \key{Esc n}\\ narrow paragraph (wrap mode). Used with a prefix argument will justify the paragraph as well. \key{Esc ;}\\ Make Language comment (Fortran and C) \key{Esc} \verb|\|\\ Trim whitespace around point \key{Esc !}\\ Execute shell command \key{Esc \$}\\ Ispell word (unix) \key{Ctrl-X ?}\\ Show line/column information. \key{`}\\ \verb|quoted_insert| --- insert next char as is (backquote key) \key{Esc s}\\ Center line. \key{Esc u}\\ Upcase word. \key{Esc d}\\ Downcase word. \key{Esc c}\\ Capitalize word. \key{Esc x}\\ Get M-x minibuffer prompt with command completion \key{Ctrl-X Ctrl-B}\\ pop up a list of buffers \key{Ctrl-X Ctrl-C}\\ exit \jed{} \key{Ctrl-X 0}\\ Delete Current Window \key{Ctrl-X 1}\\ One Window. \key{Ctrl-X 2}\\ Split Window. \key{Ctrl-X o}\\ Other window. \key{Ctrl-X b}\\ switch to buffer \key{Ctrl-X k}\\ kill buffer \key{Ctrl-X s}\\ save some buffers \key{Ctrl-X Esc}\\ Get \var{S-Lang>} prompt for interface to the \slang{} interpreter. \key{Esc .}\\ Find tag (unix ctags compatible) \key{Ctrl-@}\\ Set Mark (Begin defining a region). Used with a prefix argument aborts the act of defining the region and pops the Mark. \subsection{Undo} One of \jed{}'s nicest features is the ability to undo nearly any change that occurs within a buffer at the touch of a key. If you delete a word, you can undo it. If you delete 10 words in the middle of the buffer, move to the top of the buffer and randomly make changes, you can undo all of that too. By default, the \verb|undo| function is bound to the key \key{Ctrl-\_} (Ascii 31). Since some terminals are not capable of generating this character, it is also bound to the key sequence \key{Ctrl-X} u. Due to the lack of virtual memory support on IBMPC systems, the \verb|undo| function is not enabled on every buffer. In particular, it is not enabled for the \verb|*scratch*| buffer. However, it is enabled for any buffer which is associated with a file. A ``plus'' character on the left hand side of the status line indicates that undo is enabled for the buffer. It is possible to enable undo for any buffer by using the \verb|toggle_undo| function. \subsection{Marking Text (Point and Mark)} Many commands work on certain regions of text. A region is defined by the \verb|Point| and the \verb|Mark| The \verb|Point| is the location of the current editing point or cursor position. The \verb|Mark| is the location of a mark. The mark is set using the \verb|set_mark_cmd| which is bound to \key{Ctrl-@} (Control-2 or Control-Space on some keyboards). When the mark is set, the \var{m} mark indicator will appear on the status line. This indicates that a region is being defined. Moving the cursor (\verb|Point|) defines the other end of a region. If the variable \var{HIGHLIGHT} is non-zero, \jed{} will highlight the region as it is defined. Even without highlighting, it is easy to see where the location of the mark is by using the \verb|exchange| command which is bound to \key{Ctrl-X} \key{Ctrl-X}. This simply exchanges the \verb|Point| and the \verb|Mark|. The region is still intact since it is defined only by the \verb|Point| and \verb|Mark|. Pressing \key{Ctrl-X} \key{Ctrl-X} again restores the mark and Point back to their original locations. Try it. \subsection{Tab Issues.} Strictly speaking, \jed{} uses only fixed column tabs whose size is determined by the value of the \verb|TAB| variable. Setting the \verb|TAB| variable to 0 causes \jed{} to not use tabs as whitespace and to display tabs as \key{Ctrl-I}. Please note that changing the tab settings on the terminal will have no effect as far as \jed{} is concerned. The \verb|TAB| variable is local to each buffer allowing every buffer to have its own tab setting. The variable \verb|TAB_DEFAULT| is the tab setting that is given to all newly created buffers. The default value for this variable is 8 which corresponds to eight column tabs. \jed{} is also able to ``simulate'' arbitrary tabs as well through the use of user defined tab stops. Calling the function \verb|edit_tab_stops| allows the user to interactively set the tab stops. That is, one simply presses \key{Esc X} to get the \verb|M-x| prompt and enters \verb|edit_tab_stops|. A window will pop open displaying the current tab settings. To add a tab stop, simply place a \key{T} in the appropriate column. Use the space bar to remove a tab stop. Here an argument is presented in favor of simulated tabs over real tab stops. First, consider what a ``tab'' really is. A ``tab'' in a file is nothing more than a character whose ASCII value is 9. For this reason, one also denotes a tab as \verb|^I| (\key{Ctrl-I}). Unlike most other ASCII characters, the effect of the tab character is device dependent and is controlled through the device tab settings. Hence, a file which displays one way on one device may look totally different on another device if the tab settings do not correspond. For this reason, many people avoid tabs altogether and others the adopt ``standard'' of eight column tabs. Even though people always argue about what the correct tab settings should be, it must be kept in mind that this is primarily a human issue and not a machine issue. On a device employing tab stops, a tab will cause the cursor to jump to the position of the next tab stop. Now consider the effect of changing the tab settings. Assume that in one part of a document, text was entered using the first setting and in another part, the second setting was used. When moving from the part of the document where the current tab setting is appropriate to the part where the other tab setting was used will cause the document to look unformatted unless the appropriate tab settings are restored. Wordprocessors store the tab settings in the file with the text so that the tabs may be dynamically changed to eliminate such unwanted behavior. However, text editors such as \jed{}, vi, Emacs, EDT, EVE (TPU), etc, do not store this information in the file. \jed{} avoids this problem by using simulated tabs. When using simulated tabs, tabs are not really used at all. Rather \jed{} inserts the appropriate number of spaces to achieve the desired effect. This also has the advantage of one being able to cut and paste from the part of a document using one tab setting to another part with a different tab setting. This simple operation may lead to unwanted results on some wordprocessors as well as those text editors using real tab stops. \subsection{Searching} \jed{} currently has two kinds of searches: ordinary searches and incremental searches. Both types of searches have forward and backward versions. The actual functions for binding purposes are: \begin{verbatim} search_forward search_backward isearch_forward isearch_backward \end{verbatim} There is also the \verb|occur| function which finds all occurrences of a single word (string). This function has no backwards version. By default it is not bound to any keys, so to use it, \verb|occur| must be entered at the \verb|M-x| prompt (\key{Esc X}) or one is always free to bind it to a key. In the following only the incremental search is discussed. The default type of search in Emacs in the incremental search. However, since this type of search is confusing to the uninitiated, the ordinary type of search has been made the default in \jed{}'s Emacs emulation. For the traditional emacs keybinding, it is up to the user to provide the keybinding. As the name suggests, an incremental search performs a search incrementally. That is, as you enter the search string, the editor begins searching right away. For example, suppose you wish to search for the string \var{apple}. As soon as the letter \key{a} is entered into the incremental search prompt, \jed{} will search for the first occurrence of \var{a}. Then as soon as the \key{p} is entered, \jed{} will search from the current point for the string \var{ap}, etc. This way, one is able to quickly locate the desired string with only a minimal amount of information. Unlike the ``ordinary'' search, the incremental search is not terminated with the \key{Enter} key. Hitting the \key{Enter} key causes \jed{} to search for the next occurrence of the string based on the data currently entered at the prompt. The search is terminated with the \key{Esc} key. Finally, the \key{DEL} key (\key{Ctrl-?}) is used to erase the last character entered at the search prompt. In addition to erasing the last character of the search string, \jed{} will return back to the location of the previous match. Erasing all characters will cause the editor to return to the place where the search began. Like many things, this is one of those that is easier to do than explain. Feel free to play around with it. \subsection{Rectangles} \jed{} has built-in support for the editing of rectangular regions of text. One corner of rectangle is defined by setting the mark somewhere in the text. The Point (cursor location) defines the opposite corner of the rectangle. Once a rectangle is defined, one may use the following functions: \verb|kill_rect|\\ Delete text inside the rectangle saving the rectangle in the internal rectangle buffer. \verb|n_rect|\\ Push all text in the rectangle to the right outside the rectangle. \verb|copy_rect|\\ Copy text inside the rectangle to the internal rectangle buffer. \verb|blank_rect|\\ Replace all text inside the rectangle by spaces. The function \verb|insert_rect| inserts a previously killed or copied rectangle into the text at the Point. These functions have no default binding and must be entered into the MiniBuffer by pressing \key{Esc X} to produce the \verb|M-x| prompt. \subsection{Sorting} \jed{} is capable of sorting a region of lines using the heapsort algorithm. The region is sorted alphabetically based upon the ASCII values of the characters located within a user defined rectangle in the region. That is, the rectangle simply defines the characters upon what the sort is based. Simply move to the top line of the region and set the mark on the top left corner of the rectangle. Move to the bottom line and place the point at the position which defines the lower right corner of the rectangle. Press \key{Esc X} to get the \verb|M-x| prompt and enter \verb|sort| As as example, consider the following data: \begin{verbatim} Fruit: Quantity: lemons 3 pears 37 peaches 175 apples 200 oranges 56 \end{verbatim} To sort the data based upon the name, move the Point to the top left corner of the sorting rectangle. In this case, the Point should be moved to the \var{l} in the word \var{lemons}. Set the mark. Now move to the lower right corner of the rectangle which is immediately after the \var{s} in \var{oranges}. Pressing \key{Esc X} and entering \verb|sort| yields: \begin{verbatim} Fruit: Quantity: apples 200 lemons 3 oranges 56 peaches 175 pears 37 \end{verbatim} Suppose that it is desired to sort by quantity instead. Looking at the original (unsorted) data, move the Point to two spaces before the \var{3} on the line containing \var{lemons}. The cursor should be right under the \var{u} in \var{Quantity}. Set the mark. Now move the Point to immediately after \var{56} on the \var{oranges} line and again press \key{Esc X} and enter \verb|sort|. This yields the desired sort: \begin{verbatim} Fruit: Quantity: lemons 3 pears 37 oranges 56 peaches 175 apples 200 \end{verbatim} \section{Modes} \jed{} supports two internal modes as well as user defined modes. The two internal modes consist of a ``C'' mode for C Language programming and a ``Wrap'' mode for ordinary text editing. Examples of user defined modes are Fortran mode and DCL mode. Online documentation is provided for nearly every mode \jed{} defines. For help on the current mode, press \key{Esc X} and enter \verb|describe_mode|. A window will appear with a short description of the special features of the mode as well as a description of the variables affecting the mode. \subsection{Wrap Mode} In this mode, text is wrapped at the column given by the \verb|WRAP| variable. The default is 78. The text does not wrap until the cursor goes beyond the wrap column and a space is inserted. \subsubsection{Formatting paragraphs} Paragraph delimiters are: blank lines, lines that begin with either a percent character, \var{\%}, or a backslash character \verb|\|. This definition is ideally suited for editing \LaTeX{} documents. However, it is possible for the user to change this definition. See the discussion of the hook, \verb|is_paragraph_separator|, in the section on hooks for explicit details on how to do this. The paragraph is formatted according to the indentation of the current line. If the current line is indented, the paragraph will be given the same indentation. The default binding for this function is \key{Esc q}. In addition, a paragraph may be ``narrowed'' by the \verb|narrow_paragraph| function which is bound to \key{Esc N} by default. This differs from the ordinary \verb|format_paragraph| function described above in that the right margin is reduced by an amount equal to the indentation of the current line. For example: \begin{verbatim} This paragraph is the result of using the function ``narrow_paragraph''. Note how the right margin is less here than in the above paragraph. \end{verbatim} Finally, if either of these functions is called from the keyboard with a prefix argument, the paragraph will be justified as well. For example, pressing \key{Esc 1 Esc N} on the previous paragraph yields: \begin{verbatim} This paragraph is the result of using the function ``narrow_paragraph''. Note how the right margin is less here than in the above paragraph. \end{verbatim} See the discussion of \verb|format_paragraph_hook| in the section on hooks for details on how this is implemented. \subsection{Smart Quotes} You have probably noticed that many key words in this document are quoted in double quotes like ``this is double quoted'' and `this is single quoted'. By default, the double quote key (") and single quote key (') are bound to the function \verb|text_smart_quote|. With this binding and in wrap mode, the single quote key inserts a single quote with the ``proper'' orientation and the double quote key inserts two single quotes of the ``proper'' direction. To turn this off, rebind the keys to \verb|self_insert_cmd|. Some modes already do this (e.g., EDT). This brings up the question: if the double quote key is bound to \verb|text_smart_quote| then how does one insert the character (")? The most common way is to use the \verb|quoted_insert| function which, by default, is bound to the single backquote (\key{`}) key. This is the same mechanism that is used to insert control characters. The other method is to use the fact that if the preceding character is a backslash, \verb|\|, the character simply self inserts. Again, this is ideal for writing \TeX{} documents. \subsection{C Mode} C Mode facilitates the editing of C files. Much of the latter part of the development of the \jed{} editor was done using this mode. This mode may be customized by a judicious choice of the variables \verb|C_INDENT| and \verb|C_BRACE| as well as the bindings of the curly brace keys \var{\{} and \key{\}}. Experiment to find what you like or write your own using the \slang{} interface. By default, the \key{Enter} key is bound to the function \verb|newline_and_indent|. This does what its name suggests: inserts a newline and indents. Again, some modes may rebind this key. In addition, the keys \var{\{}, \var{\}}, and \key{Tab} are also special in this mode. The \key{Tab} key indents the current line and the \var{\{} and \var{\}} keys insert themselves and reindent. If you do not like any of these bindings, simply rebind the offending one to \verb|self_insert_cmd|. Finally, the key sequence \key{Esc ;} is bound to a function called \verb|c_make_comment|. This function makes and indents a C comment to the column specified by the value of the variable \verb|C_Comment_Column|. If a comment is already present on the line, it is indented. \subsection{Fortran Mode} Fortran Mode is written entirely in \slang{} and is designed to facilitate the writing of Fortran programs. It features automatic indentation of Fortran code as well as automatic placement of Fortran statement Labels. In this mode, the keys \key{0}-\key{9} are bound to a function \verb|for_elebel| which does the following: \begin{itemize} \begin{enumerate} \item Inserts the calling character (0-9) into the buffer. \item If the character is preceded by only other digit characters, it assumes the character is for a label and moves it to the appropriate position. \item Reindents the line. \end{enumerate} \end{itemize} This function is very similar to the one Emacs uses for labels. \section{Keyboard Macros} \jed{} is able to record a series of keystrokes from the terminal and replay them. The saved series of keystrokes is known as a keyboard macro. To begin a keyboard macro, simply enter the begin keyboard macro key sequence which is bound to \key{Ctrl-X (} if \verb|emacs.sl| is loaded. To stop recording the keystrokes, enter \key{Ctrl-X )}. Then to ``execute'' the macro, press \key{Ctrl-X e}. Please note that it is illegal to execute a macro while defining one and doing so generates an error. A macro can be aborted at anytime by pressing the \key{Ctrl-G} key. One nice feature \jed{} includes is the \verb|macro_query| function. That is, while defining a macro, the key sequence \key{Ctrl-X q} will cause \jed{} to issue the prompt \var{Enter String:} in the minibuffer. Any string that is entered will be inserted into the buffer and the process of defining the macro continues. Every time the macro is executed, \jed{} will prompt for a NEW string to be inserted. Any time an error is generated, the process of defining the macro is aborted as well as execution of the macro. This is very useful and may be exploited often. For example, suppose you want to trim excess whitespace from the end of ALL lines in a buffer. Let us also suppose that the number of lines in the buffer is less than 32000. Then consider the following keystrokes: \begin{verbatim} Ctrl-X ( (begin macro) Ctrl-E (goto end of line) ESC (trim whitespace) Down Arrow (go down one line) Ctrl-X ) (end macro) \end{verbatim} Now the macro has been defined. So move to the top of the buffer and execute it 32000 times: \begin{verbatim} ESC < (top of buffer) ESC 3 2 0 0 0 (repeat next command 32000 times Ctrl-X e (execute macro) \end{verbatim} If the buffer has less than 32000 lines, the end of the buffer will be reached and an error will be generated aborting the execution of the macro. \section{Shells and Shell Commands} The default binding to execute a shell command and pump the output to a buffer is \key{Esc !}. \jed{} will prompt for a command line and spawn a subprocess for its execution. Strictly speaking, \jed{} does not support interactive subprocesses. However, \jed{} includes \slang{} code that ``emulates'' such a subprocess. It may invoked by typing \verb|shell| at the \verb|M-x| minibuffer prompt. A window will be created with a buffer named \var{*shell*} attached to it. Any text entered at the system dependent shell prompt will be executed in a subprocess and the result stuffed back in the shell buffer. Don't try to execute any commands which try to take over the keyboard or the screen or something undesirable may happen. Examples of types of stupid commands are spawning other editors, logging in to remote systems, et cetera. Even \var{chdir} is stupid since its effect is not permanent. That is, \begin{verbatim} > cd .. > dir \end{verbatim} will not do what might naively be expected. That is, the two commands above are not equivalent to the single command \var{dir ..}. \section{Getting Help} \jed{}'s help functions are bound to \key{Ctrl-H} by default. For example, \key{\key{Ctrl-H} C} will show what function a key carries out, \key{\key{Ctrl-H} i} will run \jed{}'s info reader, \key{Ctrl-H f} will give help on a particular \slang{} function, etc. However, some modes may use the \key{Ctrl-H} key for something else. For example, if EDT mode is in effect, then \key{Ctrl-H} may be bound to \verb|bol| which causes the cursor to move to the beginning of the line. See the section on EDT for more information. If \jed{} is properly installed, this entire document is accessable from within the editor using \jed{}'s info reader. \key{Ctrl-H i} will load \verb|info_mode| allowing the user to browse the document as well as other ``info'' documents. \section{Editing Binary Files} \jed{} may edit binary files as long as the proper precautions are taken. On IBMPC systems, this involves calling the \slang{} function \verb|set_file_translation| with an integer argument. If the argument is 0, files are opened as text files; otherwise, they are opened in binary mode. There is no need to call this function for other systems. However, beware of the user variable \verb|ADD_NEWLINE| which if non zero, a newline character will be appended to the file if the last character is not a newline character. If you are going to edit binary files, it is probably a good idea to set this variable to zero. \section{Dired--- the Directory editor} In addition to editing files, \jed{} is also able to rename and delete them as well. \jed{}'s Dired mode allows one to do just this is a simple and safe manner. To run dired, simply press \key{Esc X} and enter \verb|dired| at the prompt. \jed{} will load \verb|dired.sl| and prompt for a directory name. Once the directory is given, \jed{} will display a list files in the directory in a buffer named \var{*dired*}. One may use normal buffer movement keys to move around this buffer. To delete one or more files, use the \key{d} key to ``tag'' the files. This in itself does not delete them; rather, it simply marks them for deleting. A capital `D' will appear in the left margin to indicate that a file has been tagged. Simply hit the \key{u} key to untag a file. The delete key will also untag the previously tagged file. To actually delete the tagged files, press the `x' key. This action causes \jed{} to display a list of the tagged files in a separate window and prompt the user for confirmation. Only when the proper confirmation is given, will the file be deleted. Renaming a file is just as simple. Simply move to the line containg the name of the file that you wish to rename and hit the `r' key. \jed{} will prompt for a filename or a directory name. If a directory is given, the file will be moved to the new directory but will keep the name. However, for the operation to succeed, the file must be one the same file system. To rename tagged files to a different directory residing on the same file system, use the \key{m} key. This has the effect of moving the tagged file out of the current directory to the new one. One may also use the \key{f} key to read the file indicated by the cursor position into a buffer for editing. If the file is a directory, the directory will be used for dired operations. In addition, one may also use the \key{v} to simply ``view'' a file. Finally, the \key{g} key will re-read the current directory and the \key{h} and \key{?} keys provide some help. \section{Mail} This section applies to Unix and VMS systems only. On these systems, it is possible to compose and send mail directly using \jed{}. This assumes that the Unix system has \verb|/usr/ucb/mail|. It is trivial to modify \verb|mail.sl| to support another Unix mailer. For VMS, \jed{} uses the callable mail interface present on VMS versions 5.0 and later. The default binding for the mail is \key{Ctrl-X m}. Alternatively, one may press \key{Esc X} and enter \verb|mail| at the \var{M-x} prompt. The mail function will cause a window to open with a buffer called \verb|*mail*| which contains the three lines: \begin{verbatim} To: Subject: ---text follows this line--- \end{verbatim} Simply enter the email address of the person that you want to send the mail to on the line containing \var{To:} and put the subject of the message on the next line labeled \var{Subject:}. The text that you wish to mail follows the line labeled \var{---text follows this line---} which is used by \jed{} as a marker. After you have composed the mail message, press \key{Esc X} and enter \verb|send| at the \verb|M-x| prompt. For example, the following is an email requesting to be put on the \jed{} mailing list: \begin{verbatim} To: davis@space.mit.edu Subject: jed mailing list ---text follows this line--- Hi, Please add me to the JED mailing list so that I may be notified of upcoming releases of JED. --Maria \end{verbatim} For VMS systems, the above example will probably fail because an internet address has been used for the example. For systems using a TCP/IP package, it may be necessary to change \var{davis@space.mit.edu} to something like \var{smtp\%"davis@space.mit.edu"}. The mail function looks for a user defined hook called \verb|mail_hook| and execute it if it exists. This hook may be used to bind certain keys in the keymap associated with the \verb|*mail*| buffer. For example, \begin{verbatim} define mail_hook () { local_unsetkey ("^C"); local_setkey ("send", "^C^C"); } \end{verbatim} defines the key \key{Ctrl-C Ctrl-C} in the mail keymap to perform the \verb|send| function. Other possibilities include binding a key sequence, say \key{Ctrl-C Ctrl-W}, to a function that inserts the contents of a signature file. \section{Customization} To extend \jed{}, it is necessary to become familiar with the \slang{} programming language. \slang{} not a standalone programming language like C, Pascal, etc. Rather it is meant to be embedded into a C program. The \slang{} programming language itself provides only arithmetic, looping, and branching constructs. In addition, it defines a few other primitive operations on its data structures. It is up to the application to define other built-in operations tailored to the application. That is what has been done for the \jed{} editor. See the document \verb|slang.txt| for \slang{} basics as well as the \jed{} Programmer's Manual for functions \jed{} has added to the language. In any case, look at the \verb|*.sl| files for explicit examples. For the most part, the average user will simply want to rebind some keys and change some variables (e.g., tab width). Here I discuss setting keys and the predefined global variables. \subsection{Setting Keys} Defining a key to invoke a certain function is accomplished using the \verb|setkey| function. This function takes two arguments: the function to be executed and the key binding. For example, suppose that you want to bind the key \key{Ctrl-A} to cause the cursor to go to the beginning of the current line. The \jed{} function that causes this is \verb|bol| (See the \jed{} Programmer's Manual for a complete list of functions). Putting the line: \begin{verbatim} setkey ("bol", "^A"); \end{verbatim} in the startup file \verb|jed.rc| (\verb|.jedrc|) file will perform the binding. Here \verb|^A| consists of the two characters \verb|^| and \var{A} which \jed{} will interpret as the single character \verb|Ctrl-A|. For more examples, see either of the \slang{} files \verb|emacs.sl| or \verb|edt.sl|. The first argument to the \verb|setkey| function may be {\em any} \slang expression. Well, almost any. The only restriction is that the newline character cannot appear in the expression. For example, the line \begin{verbatim} setkey ("bol();skip_white ();", "^A"); \end{verbatim} defines the \verb|Ctrl-A| key such that when it is pressed, the editing point will move the beginning of the line and then skip whitespace up to the first non-whitespace character on the line. In addition to being able to define keys to execute functions, it is also possible to define a key to directly insert a string of characters. For example, suppose that you want to define a key to insert the string \var{int main(int argc, char **argv)} whenever you press the key \key{Esc m}. This may be accomplished as follows: \begin{verbatim} setkey (" int main(int argc, char **argv)", "\em"); \end{verbatim} Notice two things. First of all, the key sequence \key{Esc m} has been written as \verb|"\em"| where \verb|\e| will be interpreted by \jed{} as \key{Esc}. The other salient feature is that the first argument to \verb|setkey|, the ``function'' argument, begins with a space. This tells \jed{} that it is not be interpreted as the name of a function; rather, the characters following the space are to be inserted into the buffer. Omitting the space character would cause \jed{} to execute a function called \var{int main(int argc, char **argv)} which would fail and generate an error. Finally, it is possible to define a key to execute a series of keystrokes similar to a keyboard macro. This is done by prefixing the ``function'' name with the \var{@} character. This instructs \jed{} to interpret the characters following the \var{@} character as characters entered from the keyboard and execute any function that they are bound to. For example, consider the following key definition which will generate a C language comment to comment out the current line of text. In C, this may be achieved by inserting symbol \var{"/*"} at the beginning of the line and inserting \var{"*/"} at the end of the line. Hence, the sequence is clear (Emacs keybindings): \begin{itemize} \begin{enumerate} \item Goto the beginning of the line: \key{Ctrl-A} or decimal \verb|"\001"|. \item Insert \var{/*}. \item Goto end of the line: \key{Ctrl-E} or decimal \verb|\005|. \item Insert \var{*/} \end{enumerate} \end{itemize} To bind this sequence of steps to the key sequence \key{Esc ;}, simply use \begin{verbatim} setkey("@\001/*\005*/", "\e;"); \end{verbatim} Again, the prefix \var{@} lets \jed{} know that the remaining characters will carry out the functions they are currently bound to. Also pay particular attention to the way \key{Ctrl-A} and \key{Ctrl-E} have been written. Do not attempt to use the \verb|^| to represent ``\key{Ctrl}''. It does not have the same meaning in the first argument to the \verb|setkey| function as it does in the second argument. To have control characters in the first argument, you must enter them as \verb|\|{\em xyz} where {\em xyz} is a three digit decimal number coinciding with the ASCII value of the character. In this notation, the \key{Esc} character could have been written as \verb|\027|. See the \slang{} Programmer's Reference Manual for further discussion of this notation. The \verb|setkey| function sets a key in the \verb|global| keymap from which all others are derived. It is also possible to use the function \verb|local_setkey| which operates only upon the current keymap which may or may not be the \verb|global| map. \subsection{Predefined Variables} \jed{} includes some predefined variables which the user may change. By convention, predefined variables are in uppercase. The variables which effect all modes include: \verb|BLINK|\\ (1) if non-zero, blink matching parenthesis. \verb|TAB_DEFAULT|\\ (8) sets default tab setting for newly created buffers to specified number of columns. \verb|TAB|\\ Value of tab setting for current buffer. \verb|ADD_NEWLINE|\\ (1) adds newline to end of file if needed when writing it out to the disk. \verb|META_CHAR|\\ (-1) prefix for chars with high bit set (see section on eight bit clean issues for details) \verb|DISPLAY_EIGHT_BIT|\\ see section on eight bit clean issues. \verb|COLOR|\\ (23) IBMPC background color (see \verb|jed.rc| for meaning) \verb|LINENUMBERS|\\ (0) if 1, show current line number on status line \verb|WANT_EOB|\\ (0) if 1, [EOB] denotes end of buffer. \verb|TERM_CANNOT_INSERT|\\ (0) if 1, do not put the terminal in insert mode when writing to the screen. \verb|IGNORE_BEEP|\\ (0) do not beep the terminal when signalling errors In addition to the above, there are variables which affect only certain modes. See the section on modes for details. \subsection{Hooks} A hook is a user defined function that \jed{} calls under certain conditions which allow the user to modify default actions. For example, when \jed{} starts up it looks for the existence of a user defined function \verb|command_line_hook|. If this function exists, \jed{} calls the function. What the function does is completely arbitrary and is left to the discretion of the user. The startup file, \verb|site.sl|, defines such a function which reads in the files listed on the command line. It is also this function which loads the \verb|jed.rc| startup file. Unlike the other hooks, this one must be present in the file \verb|site.sl| since it is the only file loaded before calling the hook. After the startup files are loaded, \jed{} calls the hook \verb|jed_startup_hook| immediately before entering the main editor loop. This hook is useful to modify certain data structures which may not have existed when the startup files were loaded. In addition to the above hooks, \jed{} currently also looks for: \verb|suspend_hook|\\ function to be executed before suspending \verb|resume_hook|\\ function that gets carried out after suspension \verb|exit_hook|\\ gets executed before exiting \jed{} \verb|mode_hook|\\ sets buffer mode based on filename extension \verb|find_file_hook|\\ called before file is read into a buffer. It currently checks for presence of autosave file and warns user if it is more recent than file. See \verb|site.sl| for explicit examples of the above hooks. Another useful hook is \verb|is_paragraph_separator|. This hook is called when \jed{} searches for the beginning or end of a paragraph. This search is performed by all paragraph formatting functions as well as the forward and backward paragraph movement commands. As \jed{} performs the search, it moves from one line to another testing the line to see if it separates a paragraph. The function of the hook is to make this decision and return zero if the line does not separate paragraphs or return one if it does. The default value of this hook may be written in \slang{} as \begin{verbatim} define is_paragraph_separator () { bol (); if (looking_at ("\\")) return 1; if (looking_at ("%")) return 1; skip_white(); eolp (); } \end{verbatim} A related hook called after a paragraph is formatted is \verb|format_paragraph_hook|. This hook is only called if either \verb|format_paragraph| or \verb|narrow_paragraph| is called with a prefix digit argument. For example, \verb|format_paragraph| is bound to \key{Esc q}. Simply pressing this key sequence will call \verb|format_paragraph| but \verb|format_paragraph_hook| will not be called. However, pressing \key{Esc 1} followed by \key{Esc q} will result in a call to \verb|format_paragraph_hook|. Currently, this hook simply justifies the paragraph. That is, it fills each line in the paragraph such that the line ends at the right margin, which is defined by the \verb|WRAP| variable. \subsection{S-Lang Programming Hints (Debugging)} This section assumes some knowledge about \slang{} and is designed to explain how to debug \slang{} routines quickly. For information about \slang{}, read \verb|slang.txt|. There are two ways of loading a file of \slang{} code into \jed{}. The most common way is through the function \verb|evalfile|. If an error occurs while loading a file, \jed{} will give some indication of where the problem lies by displaying the line number and the offending bit of \slang{} code in the minibuffer. In practice though, this can be quite inefficient. The \verb|evalfile| function is primarily designed to load debugged and tested \slang{} code. The best way to develop and test \slang{} code with \jed{} is to use the function \verb|evalbuffer|. Simply load the piece of code into \jed{} as an ordinary file, press \key{Esc X} and enter the function \verb|evalbuffer| If the piece of code in the buffer has any syntax errors, \jed{} will put the cursor on the error. This is the best way to spot compile time errors such as syntax errors. However, this will not catch runtime errors. When a runtime error occurs, \jed{} will put the cursor on the top level function where the original call was made and NOT the actual location of the function. To aid in determining where an error occurs, \jed{} can be made to give a symbolic traceback. As the \slang{} runtime stack unwinds, \slang{} will simply print the name of function at that particular level. If the function includes local variables, their values will be dumped as well. Hence, it is easy to quickly narrow the location of an error down to function where the error occurs. By default, the traceback is disabled. The traceback is enabled by setting the \slang{} variable \verb|_traceback| to a non-zero value. It is simpliest to just press \key{Ctrl-X Esc} and enter \verb|_traceback = 1| at the \var{S-Lang} prompt. This is one of those times where one needs access to the \var{S-Lang>} prompt and not the \var{M-x} prompt. For example, consider the following piece of code: \begin{verbatim} define fun_two () {forever {}} % loops forever define fun_one () {fun_two ()} % calls fun_two-- never returns \end{verbatim} Simply enter the above into an empty \jed{} \verb|*scratch*| buffer, then press \key{Ctrl-X Esc} and enter: \begin{verbatim} _traceback = 1; evalbuffer (); fun_one (); \end{verbatim} This will turn on tracebacks, evaluate the buffer and call the function \verb|fun_one|. \jed{} will then be put into an infinite loop which can only be stopped by pressing the abort character which by default is \key{Ctrl-G}. Doing so, will produce the traceback messages \begin{verbatim} S-Lang Traceback: fun_two S-Lang Traceback: fun_one \end{verbatim} in addition to the error message \var{User Break!}. Of course, this technique only narrows down the source of an error to a particular function. To proceed further, it may necessary to put ``print'' statements at suitable places in the function. There are several ways to do this: \begin{itemize} \begin{enumerate} \item Use the \verb|insert| function to insert the contents of a variable into the current buffer. \item Use the \verb|error| function to abort the function and display the value of a variable in the minibuffer. \item Use the \verb|message| function to display the value of a variable in the minibuffer. Unlike \verb|error|, the \verb|message| function does not abort the execution of the function. \end{enumerate} \end{itemize} Since each of these functions require a string argument, it is usually best to call the \verb|string| function first for the conversion followed by the output function. This has to be done anyway if it is desired to get the contents of an integer variable. Although the second approach is prehaps the most useful in practice, it is somtimes appropriate to use a combination of these techniques. Finally, to print the entire stack, one can use the \verb|print_stack| function. This function dumps the \slang{} runtime stack into the \var{*traceback*} buffer. Since \slang{} is an interpreted language, judicious application of the above techniques should lead very quickly to the source of any errors. \section{Eight Bit Clean Issues} \subsection{Displaying Characters with the High Bit Set} There are several issues to consider here. The most important issue is how to get \jed{} to display 8 bit characters in a ``clean'' way. By ``clean'' I mean any character with the high bit set is sent to the display device as is. This is achieved by putting the line: \begin{verbatim} DISPLAY_EIGHT_BIT = 1; \end{verbatim} in the \verb|jed.rc| (\verb|.jedrc|) startup file. European systems might want to put this in the file \verb|site.sl| for all users. The default is 1 so unless its value has been changed, this step may not be necessary. There is another issue. Suppose you want to display 8 bit characters with extended Ascii codes greater than or equal to some value, say 160. This is done by putting \verb|DISPLAY_EIGHT_BIT = 160;|. I believe that ISO Latin character sets assume this. This is the default value for Unix and VMS systems. \subsection{Inputting Characters with the hight bit Set} Inputting characters with the high bit set into \jed{} is another issue. How \jed{} interprets this bit is controlled by the variable \verb|META_CHAR|. What happens is this: When \jed{} reads a character from the input device with the high bit set, it: \begin{itemize} \begin{enumerate} \item Checks the value of \verb|META_CHAR|. If this value is -1, \jed{} simply inserts the character into the buffer. \item For any other value of \verb|META_CHAR| in the range 0 to 255, \jed{} returns two 7-bit characters. The first character returned is \verb|META_CHAR| itself. The next character returned is the original character but with the high bit stripped. \end{enumerate} \end{itemize} The default value of \verb|META_CHAR| is -1 which means that when \jed{} sees a character with the high bit set, \jed{} leaves it as is. Please note that a character with the high bit set it {\em cannot} be the prefix character of a keymap. It can be a part of the keymap but not the prefix. Some systems only handle 7-bit character sequences and as a result, \jed{} will only see 7-bit characters. \jed{} is still able to insert {\em any} character in the range 0-255 on a 7-bit system. This is done through the use of the \verb|quoted_insert| function which, by default, is bound to the backquote key \var{`}. If the \verb|quoted_insert| function is called with a digit argument (repeat argument), the character with the value of the argument is inserted into the buffer. Operationally, one hits \key{Esc}, enters the extended Ascii code and hits the backquote key. For example, to insert character 255 into the buffer, simply press the following five keys: \key{Esc 2 5 5 `}. \subsection{Upper Case - Lower Case Conversions} The above discussion centers around input and output of characters with the high bit set. How \jed{} treats them internally is another issue and new questions arise. For example, what is the uppercase equivalent of a character with ASCII code 231? This may vary from language to language. Some languages even have characters whose uppercase equivalent correspond to multiple characters. For \jed{}, the following assumptions have been made: \begin{itemize} \item Each character is only 8 bits. \item Each character has a unique uppercase equivalent. \item Each character has a unique lowercase equivalent. \end{itemize} It would be nice if a fourth assumption could be made: \begin{itemize} \item The value of the lowercase of a character is greater than or equal to its uppercase counterpart. \end{itemize} However, apparently this is not possible since most IBMPC character sets violate this assumption. Hence, \jed{} does not assume it. Suppose \var{X} is the upper case value of some character and suppose \var{Y} is its lower case value. Then to make \jed{} aware of this fact and use it case conversions, it may be necessary to put a statement of the form: \begin{verbatim} define_case (X, Y); \end{verbatim} in the startup file. For example, suppose 211 is the uppercase of 244. Then, the line \begin{verbatim} define_case (211, 244); \end{verbatim} will make \jed{} use this fact in operations involving the case of a character. This has already been done for the ISO Latin 1 character set. See the file \verb|iso-latin.sl| for details. For MSDOS, this will not work. Instead use the files \verb|dos437.sl| and \verb|dos850.sl|. By default, \jed{}'s internal lookup tables are initialized to the ISO Latin set for Unix and VMS systems and to the DOS 437 code page for the IBMPC. To change the defaults, it is only necessary to load the appropriate file. For example, to load \verb|dos850.sl| definitions, put \begin{verbatim} evalfile ("dos850"); pop (); \end{verbatim} in the startup file (e.g., \verb|site.sl|). In addition to uppercase/lowercase information, these files also contain word definitions, i.e., which characters constitute a ``word''. \section{Miscellaneous} \subsection{Abort Character} The abort character (\key{Ctrl-G} by default) is special and should not be rebound. On the IBMPC, the keyboard interrupt 0x09 is hooked and a quit condition is signaled when it is pressed. For this reason, it should not be used in any keybindings. A similar statement holds for the other systems. This character may be changed using the function \verb|set_abort_char| Using this function affects all keymaps. For example, putting the line \begin{verbatim} set_abort_char (30); \end{verbatim} in your \verb|jed.rc| file will change the abort character from its current value to 30 which is \key{Ctrl-}\verb|^|. \subsection{Input Translation} By using the function \verb|map_input| the user is able to remap characters input from the terminal before \jed{}'s keymap routines have a chance to act upon them. This is useful when it is difficult to get \jed{} to see certain characters. For example, consider the \key{Ctrl-S} character. This character is especially notorious because many systems use it and \key{Ctrl-Q} for flow control. Nevertheless Emacs uses \key{Ctrl-S} for searching. Short of rebinding all keys which involve a \key{Ctrl-S} how does one work with functions that are bound to key sequences using \key{Ctrl-S}? This is where \verb|map_input| comes into play. The \verb|map_input| function requires two integer arguments which define how a given ascii character is to be mapped. Suppose that you wish to substitute \key{Ctrl-}\verb|\| for \key{Ctrl-S} everywhere. The line \begin{verbatim} map_input (28, 19); \end{verbatim} will do the trick. Here 28 is the ascii character of \key{Ctrl-}\verb|\| and 19 is the ascii character for the \key{Ctrl-S}. As another example, consider the case where the backspace key sends out a \key{Ctrl-H} instead of the \key{DEL} character (\key{Ctrl-?}). \begin{verbatim} map_input (8, 127); \end{verbatim} will map the \key{Ctrl-H} (ascii 8) to the delete character (ascii 127). \subsection{Display Sizes} On VMS and unix systems, the screen size may be changed to either 80 or 132 columns by using the functions \verb|w80| and \verb|w132| respectively. Simply enter the appropriate function name at the \verb|M-x| prompt in the minibuffer. The default binding for access to the minibuffer is \key{Esc X}. Most window systems, e.g., DECWindows, allow the window size to be changed. When this is done, \jed{} should automatically adapt to the new size. On the PC, at this time the screen size cannot be changed while \jed{} is running. Instead it is necessary to exit \jed{} first then set the display size and rerun \jed{}. \end{document} } ---------------------------------------------------------------------- query_replace_match: "\( [a-z]+\)\1 " "\1 " finds and replaces repeated words. "/\*\(.*\)\*/.*$" "//\1" convert /* c comment */ at eol to // ... "//.*$" "/*\1 */" convert c++ to C tically adapt to the new size. On the PC, at this time the screen size cannot be changed while \jed{} is running. Instead it is necessary to exit \jed{} first then set the display size and rerun \jed{}. \end{document} } ---------------------------------------------------------------------- query_replace_match:jed-0.97.12/doc/abbrev.txt000064400000000000003000000160770603742307700150620ustar00rootsys00000000000000This document explains how to use abbreviations with JED. Overview ======== Abbreviations are possible only when `abbrev' mode is enabled. It can be toggled on and off on a buffer by buffer basis using the `abbrev_mode' command. If it is on, the word `abbrev' will appear on the status line. Each buffer can have its own abbreviation table or use the ``Global'' abbreviation table. If a table has not been defined for a given buffer, the ``Global'' table will be used. Typically, abbreviation tables are mode dependent and are usually assigned to the buffer when a mode is selected. An abbreviation table consists of abbreviations as well as a definition of characters that are allowed to appear in an abbreviation. By default, the characters that comprise a word are used. However, this is not always what is desired. For example, one might like to use abbreviations like `\be' for `\begin{equation}' in TeX mode. For this to happen, the `\' character should be included in the definition of a word. The examples below should shed more light on this concept. Using Abbreviations =================== Once abbreviations have been loaded into the editor (the mechanism is explained below), they can be used only if abbrev mode is turned on. This mode can be turned on or off by pressing `ESC X' and entering `abbrev_mode' at the prompt. It can also be turned on in a mode hook. After entering an abbreviation into the buffer, the abbreviation will be expanded if the next character inserted into the buffer immediately after the position of the abbreviation is NOT a member of the set of characters that is allowed in an abbreviation. Then the editor scans backward across the text until it finds a character that is NOT part of the set of special characters. Finally it attempts to expand the resulting abbreviation. For example, consider an abbreviation for TeX mode and assume that, when the abbreviation table was created, the characters `\', `a-z', `A-Z', and `0-9' were specified as the special set of characters that may be used in an abbreviation. This means that `\be' is a valid abbreviation but `@be' is not since `@' is not part of the above set. Suppose that `\be' is the abbreviation for `\begin{equation}' and `\be' is entered on a line as This is an equation.\be At this point nothing happens. However, if a SPACE is inserted, the editor will realize that the space is not part of the special abbreviation character set and scan back until another character NOT in the set is found. In this case, it will find a `.'. From this information, it looks up `\be' in the table, finds `\begin{equation}' and expands the line to look like: This is an equation.\begin{equation} However, if the line had looked like: This is an equation\be the expansion would have failed because the editor would have scanned back to the space character between `an' and `equation' and tried to expand `equation\be'. Although this sounds complex, it is trivial in practice. The Abbreviation File ====================== An abbreviation file is simply a file that contains the approrite S-Lang function calls to create abbreviation tables and assign abbreviations to the tables. It is loaded like any other S-Lang file, via `evalfile'. Simply turning abbreviations on via `abbrev_mode' is sufficient to cause JED to load the file. The variable `Abbrev_File' may be used to specify the name of the abbreviation file. If this variable is undefined, the file name defaults to `abbrevs.sl' on non-Unix systems and `.abbrevs.sl' on Unix. It is assumed to reside in the HOME directory. To specify a different name, e.g., `/usr/lib/jed/abbrev.sl', put variable Abbrev_File = "/usr/lib/jed/abbrev.sl"; in the JED startup file. Here is a simple file that is sufficient to create a global abbreviation table and a local table for TeX mode: % abbrevs.sl create_abbrev_table ("Global", ""); define_abbrev ("Global", "adn", "and"); define_abbrev ("Global", "amy", "amy.tch.harvard.edu"); create_abbrev_table ("TeX", "\\A-Za-z0-9"); define_abbrev ("TeX", "\\be", "\\begin{equation}"); define_abbrev ("TeX", "\\ee", "\\end{equation}"); Note that `create_abbrev_table' takes 2 parameters. The first parameter is simply the name of the table to be created and the second parameter represents the list of characters that are allowed to be in an abbreviation. If the second parameter is the empty string, JED's word definition willbe used. Also note that the backslash character must be typed twice for S-Lang to interpret it properly as a backslash character. The `define_abbrev' function takes 3 parameters: the name of the table, the abbreviation, and the expansion for the abbreviation. There is really nothing special about an abbreviation file. The code that appears in it can also appear in the JED startup file. Usually the abbreviation mode is enabled in a hook. For example, to enable abbreviations for TeX mode, use a mode hook of the form: define tex_mode_hook () { set_abbrev_mode (1); } This way, when TeX mode is enabled, the abbreviation file will be automatically loaded if not already loaded and abbrev mode will be turned on. Creating Abbreviations ====================== There are two ways to create abbreviations: 1. Simply create an abbreviation file by hand. 2. Use the `define_abbreviation' function call. Here the latter method is explained. The `define_abbreviation' function uses the abbreviation table associated with the current buffer. If there is none explicitly associated with the buffer, the Global table will be used. If the table does not exist, it will be created. This function will prompt for an abbreviation. It may or may not prompt for an expansion. If a region is defined when `define_abbreviation' is called, the region will be taken as the expansion. This is useful if the expansion consists of of more than one word. If a region is not defined, the expansion will consist of the previous word as defined by the table. Only if that fails will the user be prompted for an expansion, e.g., this could happen if the Point is at the beginning of a line. Note that simply using `define_abbreviation' by itself does not save the abbreviation for future use. To save the abbreviations to the abbreviation file, use the function `save_abbrevs'. That is, press `ESC X' and enter `save_abbrevs' at the prompt. The editor will then prompt for a file name. Simply hitting RETURN at the prompt means that the `Abbrev_File' definition will be used. Enter a different filename to save them elsewhere. Note that entering a new file name will not change the value of `Abbrev_File'. Also, this function saves ALL currently defined abbreviation tables. e abbreviations to the abbreviation file, use the function `save_abbrevs'. That is, press `ESC X' and enter `save_abbrevs' at the prompt. The editor will then prompt for a file name. Simply hitting RETURN at the prompt means that the `Abbrev_File' definition will be used. Enter a different filename to save them elsewhere. Note that entering a new file name will not change the value of `Abbrev_File'. Also, this funcjed-0.97.12/doc/color.doc000064400000000000003000000032710603742307700146550ustar00rootsys00000000000000This is a short note explaining how to use JED with a color terminal. This only applies to Unix and VMS spplies to Unix and VMS systems. This is particularly relavant if you want to exploit JED's ability to do color syntax highlighting on a character based terminal. *Note: If you use MS-Kermit as a terminal emulator, you will need to tell it what foreground/background colors you want via the `set term color' function. For example, if you choose back on white as the `normal' color, put `set term color 30 47' in your MSKermit.ini file. This same comment applies to other color terminals which emulate this flawed color model. To use JED with a color terminal, it is necessary that the terminal understand ANSI color escape sequences. If so, then it is possble to set up JED to use different foreground and background colors for the modeline, region highlighting, syntax highlighting, etc... To turn on ANSI color support, set the variable `USE_ANSI_COLORS' to a non-zero value. If set to zero, the support is turned off. The colors may be specified using the set_color function as illustrated in jed.rc. They only become active if USE_ANSI_COLORS is non-zero. Unfortunately, few termcaps provide information regarding whether the terminal is a color one or not. To interactively set USE_ANSI_COLORS, simply press `Ctrl-X ESC' and enter USE_ANSI_COLORS = 1 at the `S-Lang>' prompt. This variable is automatically set to a non-zero value by jed if environment variable COLORTERM exists. Finally, you could simply put: define term_use_colors () { USE_ANSI_COLORS = 1; } in your jed.rc (.jedrc) and define (alias) jed to be: alias colorjed 'jed -f term_use_colors' ermcaps provide information regarding whether the terminal is a color one or not. To interactively set USE_ANSI_COLORS, simply press `Ctrl-X ESC' and enter USE_ANSI_COLORS = 1 at the `S-Lang>' prompt. This variable is automatically set to a non-zero value by jed if environment variable COLORTERM exists. Finalljed-0.97.12/doc/edt.txt000064400000000000003000000116160603742307700143670ustar00rootsys00000000000000Included in this distribution is the file ``edt.sl''. This requires JED version 0.84 or greater to run. To use it, put () = evalfile ("edt.sl"); in your .jedrc (jed.rc) file. This document also includes some gold key settings kindly donated by clifton@auriga.rose.brandeis.edu (James Clifton). I have not installed these settings in edt.sl but I encourage you to look at it. Note: edt.sl will not work with jed386.exe. See question 12 of jed_faq.txt for a way around this restriction. Differences between EDT and Jed's EDT emulation Hopefully, you will not notice any difference if you use the keypad keys. I have done my best to ensure that the functionality of the Application keypad is preserved. By default, JED binds ^H (control-H) to help. Actually, it is a prefix character for ^HC (showkey), ^Hf (describe function), ^Hm (man page), etc... EDT (VMS) uses ^H to move to the beginning of the line. If you want this behavior instead of JED's, then put the line "^H" unsetkey "bol" "^H" setkey in your jed.rc (.jedrc) file AFTER the "edt.sl" evalfile statement. I tried to find out if there is a standard set of GOLD-X key definitions where X is and character A-Z. Apparantly there is not. Hence with the exceptions below, I have not defined any. However, this should not stop you from defining your own. (See what James Clifton does below) I have defined 2 GOLD key combinitions: GOLD-E and GOLD-Q. Both of these are bound to the exit command. If you would like to bind the GOLD-X key combinations, then it is very easy. For example, suppose you want GOLD-I to insert a file into the buffer, GOLD-W to write the buffer to a file, and GOLD-S to switch to a previous buffer. Then add the following to your .jedrc (jed.rc) file: "insert_file" "^[OPI" setkey "write_buffer" "^[OPW" setkey "switch_to_buffer" "^[OPS" setkey Note that the GOLD key actually returns 3 characters: escape (^[) O, and P. The escape key on DEC keyboards as well as many others is equivalent to pressing Control-[. When JED see's the caret `^', it interprets it as CONTROL. In addition to the standard keypad, newer DEC terminals (vt220 etc) have a smaller keypad (Find, Insert here, Prev SCreen, etc....). These have also been bound. Finally, JED does not support any EDT line editing commands, nor will it. Any problems with this EDT emulation should be emailed to me: From: clifton@auriga.rose.brandeis.edu (James Clifton) To: davis@amy Subject: a list of GOLD keys Dear John, I know you stated that their were no uniform GOLD keys, so didn't include any with your program, but I wanted to thank you for taking the time to solve my problem, so here is a file I've placed in JED_LIBRARY. Feel free to do whatever you want with it, and thanks again for your assistance. (And thanks for suggesting that I put it in a separate .sl file.) Jim. ;;----------------------------------------------------------------------------- ;; edt_gold_keys.sl ;; ;; TO USE IT, PLACE THE FOLLOWING LINE IN YOUR .jedrc FILE AFTER THE LINE ;; THAT SAYS "edt.sl" evalfile : ;; ;; "edt_gold_keys.sl" evalfile ;; ;; Mnemonics for GOLD keys ;; ;; Key Mnemonic Function done by key ;; --- -------- -------------------- ;; ;; A Apropos Getting 'help apropos'. ;; B Buffers Gives list of buffers. ;; C ;; D Delete Delete a buffer. ;; E Exit Exit jed. ;; F Function Getting help on S-Lang function. ;; G Goto Go to other window. ;; H Help Show small help window. ;; I Insert Insert file into CURRENT buffer. ;; J ;; K Key Getting help on a key's function. ;; L Locate Locate a file and put it into a NEW buffer. ;; M Man Bring up a man file in a window. ;; N ;; O One Remove other windows, keeping the current one. ;; P ;; Q Quit Exit jed. ;; R ;; S Switch Switch to new buffer. ;; T Two Split current window into 2 windows. ;; U ;; V ;; W Write Write buffer to a file. ;; X ;; Y ;; Z ;; First, reset CONTROL H to goto_beginning_of_line: "^H" unsetkey "bol" "^H" setkey ;; GOLD keys defined, in alphabetical order. ;; Lines beginning with a semi-colon are currently undefined. ;; ;; Note that GOLD-E and GOLD-Q are defined in edt.sl (as exit jed). "apropos" "^[OPA" setkey "list_buffers" "^[OPB" setkey ; "^[OPC" setkey "kill_buffer" "^[OPD" setkey "help_fun" "^[OPF" setkey "other_window" "^[OPG" setkey "help" "^[OPH" setkey "insert_file" "^[OPI" setkey ; "^[OPJ" setkey "showkey" "^[OPK" setkey "find_file" "^[OPL" setkey "unix_man" "^[OPM" setkey ; "^[OPN" setkey "one_window" "^[OPO" setkey ; "^[OPP" setkey ; "^[OPR" setkey "switch_to_buffer" "^[OPS" setkey "split_window" "^[OPT" setkey ; "^[OPU" setkey ; "^[OPV" setkey "write_buffer" "^[OPW" setkey ; "^[OPX" setkey ; "^[OPY" setkey ; "^[OPZ" setkey ;;----------------------------------------------------------------------------- le" "^[OPI" setkey ; "^[OPJ" setkey "showkey" "^[OPK" setkey "find_file" "^[OPL" setkey "unix_man"jed-0.97.12/doc/function.doc000064400000000000003000002253560603742307700153760ustar00rootsys00000000000000 Sprintf : C function: void SLsprintf (0 args) Prototype: String Sprintf(String format, ..., Integer n); Sprintf formats a string from 'n' objects according to 'format'. Unlike its C counterpart, Sprintf requires the number of items to format. For example. Sprintf("%f is greater than %f but %s is better than %s\n", PI, E, "Cake" "Pie", 4); The final argument to Sprintf is the number of items to format; in this case, there are 4 items. -------------------------------------------------- _clear_error : C function: void SLang_clear_error (0 args) May be used in error blocks to clear the error that triggered the error block. Execution resumes following the statement triggering the block. -------------------------------------------------- _stkdepth : C function: int SLstack_depth (0 args) returns number of items on stack -------------------------------------------------- acos : C function: int math_acos (0 args) -------------------------------------------------- add_completion : C function: void add_to_completion (1 args) Prototype Void add_completion(String f); Add S-Lang function with name 'f' to the list of function completions. See also: read_with_completion -------------------------------------------------- add_mode_for_extension Prototype: Void add_mode_for_extension (String mode, String ext); This function modifies Mode_List in such a way that when a file with filename extension `ext' is read in, function `mode' will be called to set the mode. -------------------------------------------------- aget : C function: void SLarray_getelem (0 args) Syntax: i j ... k ARRAY aget returns ARRAY[i][j]...[k] -------------------------------------------------- append_region_to_file : C function: int append_to_file (1 args) appends a region to FILE returning number of lines written or -1 on error. This does NOT modify a buffer visiting the file; however, it does flag the buffer as being changed on disk. -------------------------------------------------- append_region_to_file : C function: int append_to_file (1 args) appends a region to FILE returning number of lines written or -1 on error. This does NOT modify a buffer visiting the file; however, it does flag the buffer as being changed on disk. -------------------------------------------------- append_string_to_file Prototype: Integer append_string_to_file (String str, String file); The string 'str' is appended to file 'file'. This function returns -1 upon failure or the number of lines written upon success. See append_region_to_file for more information. -------------------------------------------------- aput : C function: void SLarray_putelem (0 args) Syntax: x i j ... k ARRAY put sets ARRAY[i][j]...[k] = x -------------------------------------------------- array_sort : C function: void SLarray_sort (1 args) Requires an array on the stack as well as a function name to call for the comparison. The array to be placed on the stack is the array to be sorted. The routine returns an integer index array which indicates the result of the sort. The first array is unchanged. -------------------------------------------------- asin : C function: int math_asin (0 args) -------------------------------------------------- atan : C function: int math_atan (0 args) -------------------------------------------------- autoload : C function: void SLang_autoload (2 args) Prototype: Void autoload(String fun, String file); This function simply declares function 'fun' to the interpreter. When 'fun' is actually called, its actual function definition will be loaded from 'file'. Example: autoload ("bessel_j0", "/usr/lib/slang/bessel.sl"); See Also: evalfile -------------------------------------------------- autosave : C function: void auto_save (0 args) autosave current buffer if marked for autosave -------------------------------------------------- autosaveall : C function: void auto_save_all (0 args) save all buffers marked for autosave -------------------------------------------------- backward_paragraph : C function: void backward_paragraph (0 args) move point past current paragraph. Slang hook is_paragraph_seperator is called (if defined) to determine if line is a paragraph seperator. -------------------------------------------------- beep : C function: void beep (0 args) Send beep to screen. -------------------------------------------------- bfind : C function: int backward_search_line (1 args) returns TRUE if STRING found backward on current line -------------------------------------------------- bkmrk_goto_mark -------------------------------------------------- bkmrk_set_mark -------------------------------------------------- blank_rect : C function: void blank_rectangle (0 args) blanks out rectangle defined by point and mark -------------------------------------------------- blooking_at -------------------------------------------------- bob : C function: void bob (0 args) Prototype: Void eob(); Move Point to the beginning of the buffer. See also: bobp, eob, bol, eol -------------------------------------------------- bobp : C function: int bobp (0 args) TRUE if at beginning of buffer -------------------------------------------------- bol : C function: void bol (0 args) Prototype: Void bol(); Moves Point to the beginning of the current line. See also: eol, bob, eob, bolp -------------------------------------------------- bol_bsearch : C function: int bol_bsearch (1 args) Search backward string at beginning of line. Returns TRUE if found -------------------------------------------------- bol_fsearch : C function: int bol_fsearch (1 args) Search forward for string at beginning of line. Returns TRUE if found -------------------------------------------------- bolp : C function: int bolp (0 args) Prototype: Integer bolp (); 'bolp' is used to test if the Point is at the beginning of a line. It returns non-zero if at the beginning of a line and 0 if not. See also: bol, eolp, bobp, eobp -------------------------------------------------- bsearch : C function: int search_backward (1 args) Prototype: Integer bsearch (String str); Searches backward from the current Point for 'str'. If 'str' is found, this function will return non-zero and the Point will be placed at the location of the match. If a match is not found, zero will be returned and the Point will not change. See also: fsearch, bol_bsearch, re_bsearch -------------------------------------------------- bskip_chars : C function: void bskip_chars (1 args) skip backward chars in STRING. See skip_chars for definition of STRING -------------------------------------------------- bskip_non_word_chars : C function: void bskip_non_word_chars (0 args) skip backwards over all characters that do not constitute a word. -------------------------------------------------- bskip_word_chars : C function: void bskip_word_chars (0 args) skip backwards over all characters that constitute a word. -------------------------------------------------- bskip_word_chars : C function: void bskip_word_chars (0 args) skip backwards over all characters that constitute a word. -------------------------------------------------- buffer_filename -------------------------------------------------- buffer_format_in_columns() Prototype Void buffer_format_in_columns(); takes a buffer consisting of a sigle column of items and converts the buffer to a multi-column format. -------------------------------------------------- buffer_keystring : C function: void do_buffer_keystring (1 args) Prototype: Void buffer_keystring (String str); Append string 'str' to the end of the input stream to be read by JED's getkey routines. See also: ungetkey, getkey -------------------------------------------------- buffer_list : C function: void make_buffer_list (0 args) returns a list of buffers to the stack. The top element of the stack is the number of buffers -------------------------------------------------- buffer_modified () returns non-zero if the buffer modified flag is set. It returns zero if the buffer modified flag is not been set. This works on the current buffer. See also 'set_buffer_modified_flag'. -------------------------------------------------- buffer_visible : C function: int jed_buffer_visible (1 args) Prototype: Integer buffer_visible(String buffer); Returns non-zero if 'buffer' is currently visible in a window or it returns zero if not. -------------------------------------------------- bufferp : C function: int bufferp (1 args) returns TRUE if BUFFER exists -------------------------------------------------- bufsubstr : C function: void buffer_substring (0 args) Prototype: String bufsubstr(); This function returns the region specified by the Point and Mark as a String. If the region crosses lines, the string will contain newline characters. See also: insbuf, push_mark -------------------------------------------------- bury_buffer : C function: void bury_buffer (1 args) Prototype: Void bury_buffer(String name); Make buffer 'name' unlikley to appear in a window. -------------------------------------------------- byte_compile_file : C function: void SLang_byte_compile_file (2 args) Prototype Void byte_compile_file (String file, Integer method); byte compiles 'file' producing a new file with the same name except a 'c' is added to the output file name. For example, byte_compile_file("site.sl"); produces a new file named 'site.slc'. If 'method' is non-zero, the file is preprocessed only. Note that the resulting bytecompiled file must only be used by the executable that produced it. Set 'method' to a non-zero value to use the byte compiled file with more than one executable. -------------------------------------------------- c_mode() Mode dedicated to facilitate the editing of C language files. Functions that affect this mode include: function: default binding: brace_bra_cmd { brace_ket_cmd } newline_and_indent RETURN indent_line_cmd TAB goto_match ^\ c_make_comment ESC ; Variables affecting indentation include: C_INDENT C_BRACE C_Comment_Column --- used by c_make_comment -------------------------------------------------- call : C function: void call_cmd (1 args) Prototype: Void call(String f); Execute internal function named 'f'. An internal function is a function that cannot be directly accessed from S-Lang. See: is_internal. -------------------------------------------------- case : C function: int generic_equals (0 args) Prototype: Integer case(a, b); This function is designed to make the switch statement look more like the C one. Basically, it does a generic compare operation. Both parameters 'a' and 'b' must be of the same type. It returns zero if their types differ or have different values. In a switch statment, it may be used as: switch (token) { case "return": return_function ();} { case "break": break_function ();} Unlike the C version, it one cannot have: switch (i) {case 10: case 20: do_ten_or_twenty (i);} One must do: switch (i) {case 10 or case (i, 20) : do_ten_or_twenty (i);} -------------------------------------------------- change_default_dir : C function: int ch_dir (1 args) Change default directory to new directory. Returns 0 upon success and -1 upon failure. All relative path names are expanded with respect to the new default directory. -------------------------------------------------- char : C function: void SLdo_char (0 args) Prototype: String char (Integer c); This function takes and integer and returns a string of length 1 whose first character has ascii value 'c'. -------------------------------------------------- check_region : C function: void check_region (1 args) Signals Error if mark not set. Exchanges point and mark to produce valid region. A valid region is one with mark earlier in the buffer than point. Always call this if using a region which requires point > mark. Also, if argument is non-zero, spot is pushed. -------------------------------------------------- chmod : C function: int unix_chmod (2 args) Prototype Integer chmod(String file, Integer mode); 'chmod' changes the permissions of 'file' to those specified by 'mode'. It returns 0 upon success, -1 if the process lacks sufficient privilege for the operation, or -2 if the file does not exist. See also: chown, stat_file -------------------------------------------------- chown : C function: int unix_chown (3 args) Prototype Integer chown(String file, Integer uid, Integer gid); Change ownership of 'file' to that of user id 'uid' and group id 'gid'. This function returns 0 upon success and a negative number up failure. It returns -1 if the process does not have sufficent privileges and -2 if the file does not exist. See also: chmod, stat_file -------------------------------------------------- command_line_arg : C function: string command_line_argv (1 args) Takes integer parameter N in the range: 0 <= N < MAIN_ARGC. MAIN_ARGC is a global variable indicating the number of command line parameters. This function returns the Nth parameter. See Also the variable MAIN_ARGC -------------------------------------------------- command_line_hook() called from main in JED executable. -------------------------------------------------- copy_array : C function: void SLcopy_array (0 args) Prototype: Void copy_array(Array b, Array a); Copies the contents of array 'a' to array 'b'. Both arrays must be of the same type and dimension. -------------------------------------------------- copy_rect : C function: void copy_rectangle (0 args) save a copy of rectangle defined by point and mark in rectangle buffer -------------------------------------------------- copy_region : C function: void copy_region_cmd (1 args) Prototype: Void copy_region (String buf); Copies a marked region in the current buffer to buffer 'buf'. See also: insbuf, bufsubstr -------------------------------------------------- core_dump : C function: void exit_error_cmd (2 args) Prototype: Void core_dump(String msg, Integer severity); Exit editor sumping the state of some crucial variables. If severity is 1, dump core if possible. Message msg is also displayed. -------------------------------------------------- cos : C function: int math_cos (0 args) -------------------------------------------------- count_chars : C function: void count_chars (0 args) returns a string of form "char 37, point 2150 of 10067" where 2150 is character number of Point and 10067 is the total. 37 is the ascii value of current character. A string is returned instead of numbers because MSDOSints are only 16 bits and S-Lang does not have long integer types. -------------------------------------------------- create_array : C function: void SLang_create_array (0 args) Prototype: create_array (Integer type, Integer i_1, i_2 ... i_dim, dim); Creates an array of type 'type' with dimension 'dim'. i_n is an integer which specifies the maximum size of array in direction n. 'type' is a control integer which specifies the type of the array. Types are: 's' : array of strings 'f' : array of floats 'i' : array of integers 'c' : array of characters At this point, dim cannot be larger than 3. Also note that space is dynamically allocated for the array and that copies of the array are NEVER put on the stack. Rather, references to the array are put on the stack. When the array is no longer needed, it must be freed with 'free_array' Example: variable a = create_array ('f', 10, 1); This creates a 1 dimensional array of 10 floats and assigns it to 'a' See also: free_array -------------------------------------------------- define_case : C function: void SLang_define_case (2 args) Two parameters are integers in the range 0 to 255. The first integer is the ascii value of the upprcase character and the 2nd integer is the value of its lowercase counterpart. For example, to define X as the uppercase of Y, do: X Y define_case -------------------------------------------------- define_word : C function: void define_word (1 args) Only argument is a string which is an expression which defines a word. Typically, it is a range of ascii values. The default definition is: "a-z0-9" To include a hyphen, make it the first character. So for example, "-i-n" defines a word to consist of letters 'i' to 'n' and '-' -------------------------------------------------- definekey : C function: void set_key_in_keymap (3 args) Prototype: Void definekey(String f, String key, String kmap); This function is used for binding keys to functions in a specific keymap. Here 'f' is the function to be bound, 'key' is a sequence of keys and 'kmap' is the name of the keymap to be used. See 'setkey' for a definition of 'keys'. See also: setkey, undefinekey, make_keymap, use_keymap -------------------------------------------------- del_region : C function: void delete_region (0 args) Prototype: Void del_region(); Deletes the region specified by the Point and Mark. See also: push_mark, markp, check_region -------------------------------------------------- del_region : C function: void delete_region (0 args) Prototype: Void del_region(); Deletes the region specified by the Point and Mark. See also: push_mark, markp, check_region -------------------------------------------------- delbuf : C function: void kill_buffer_cmd (1 args) deletes specified buffer name -------------------------------------------------- delete_file : C function: int sys_delete_file (1 args) Deletes FILENAME. Returns 1 if deletion was successful, otherwise it returns 0. -------------------------------------------------- deln Prototype: Void deln (Integer n); delete the next 'n' characters. -------------------------------------------------- dircat(dir, file) A function to contat a directory with a filename. Basically checks for the final slash on the dir and adds on if necessary -------------------------------------------------- directory : C function: int expand_wildcards (1 args) returns number of files and list of files which match filename. On unix, this defaults to filename*. It is primarily useful for DOS and VMS to expand wilcard filenames -------------------------------------------------- dired () Mode designed for maintaining and editing a directory. To invoke Dired, do `M-x dired' or `C-x d' (emacs) Dired will prompt for a directory name and get a listing of files in the requested directory. The primary use of Dired is to "flag" files for deletion and then delete the previously flagged files. 'd' Flag this file for deletion. 'u' Remove deletion flag on this line. DEL Move point to previous line and remove deletion flag. '~' Flag all backup files for deletion. 'x' eXpunge all flagged files. Dired will show a list of the files tagged for deletion and ask for confirmation before actually deleting the files. 'r' Rename file on the current line; prompts for a newname 'm' Move tagged files to a new dir; prompts for dir name `g' Update the entire contents of the Dired buffer `f' Visit the file described on the current line, like typing `M-x find_file' and supplying that file name. If current line is a directory, runs dired on the directory and the old buffer is killed. `v' View the file described on the current line in MOST mode. `M-x dired_search' use fsearch to perform a search through the files listed in the dired buffer from the current point forward. `M-x dired_search' from the visited file will revert to the dired buffer and continue the search from the next file in the list. all the usual motion commands plus some extras: `C-n' `n' SPC move point to the next line (at the beginning of the file name) `C-p' `p' move point to the previous line (at the beginning of the file name) `M-x dired_kill_line' `^K' (emacs) removes a line from the dired buffer -------------------------------------------------- down : C function: int nextline (1 args) Prototype: Integer down(Integer n); Move Point down 'n' lines returning number of lines actually moved. The number returned will be less than 'n' only if the last line of the buffer has been reached. See also: down, left, right -------------------------------------------------- dump_bindings : C function: void dump_bindings (1 args) Prototype: Void dump_bindings(String map); Dumps a list of the keybindings for the keymap specified by 'map'. -------------------------------------------------- dup : C function: void SLdo_dup (0 args) duplicate top object on the stack. -------------------------------------------------- dupmark : C function: int dup_mark (0 args) Prototype Integer dupmark (); This function returns zero if the mark is not set or, if the mark is set, a duplicate of it is pushed and 1 is returned. -------------------------------------------------- enable_flow_control : C function: void enable_flow_control (1 args) If integer argument is non-zero, ^S/^Q flow control is enabled. If argument is 0, ^S/^Q processing by the terminal is disabled. Emacs mode sets this to 0 (flow control off). -------------------------------------------------- enable_top_status_line : C function: void enable_menu_bar (1 args) Prototype: Void enable_top_status_line (Integer x); If x is non-zero, the top status line is enabled. If x is zero, the top status line is disabled and hidden. See also: set_top_status_line -------------------------------------------------- enlargewin : C function: void enlarge_window (0 args) Makes the current window bigger by one line. -------------------------------------------------- eob : C function: void eob (0 args) Prototype: Void eob(); Move Point to the end of the buffer. See also: eobp, bob, bol, eol -------------------------------------------------- eobp : C function: int eobp (0 args) Prototype: Integer eobp(); Returns non-zero if the Point is positions at the beginning of the buffer otherwise it returns zero. See also: eob, bolp, eolp -------------------------------------------------- eol : C function: void eol (0 args) Prototype Void eol(); Moves Point to the end of the current line. See also: eolp, bol, bob, eob -------------------------------------------------- eolp : C function: int eolp (0 args) Returns TRUE if Point is at the end of a line. -------------------------------------------------- erase_buffer : C function: void erase_buffer (0 args) erases all text from the current buffer. See: delbuf -------------------------------------------------- error : C function: void msg_error (1 args) Prototype: Void error(String msg); Signals an error condition and displays the string 'msg' at the bottom of the display. The error can be caught by an ERROR_BLOCK and cleared with the '_clear_error' function. Unless caught, the error will cause the S-Lang stack to unwind to the top level. See also: _clear_error, message, flush -------------------------------------------------- evalbuffer : C function: void load_buffer (0 args) evaluates a buffer as S-Lang code. See: evalfile -------------------------------------------------- evalfile : C function: int SLang_load_file (1 args) Prototype: Integer evalfile (String file); Load 'file' as S-Lang code. If loading is successful, a non-zero result will be returned. If the file is not found, zero will be returned. See also: eval, autoload -------------------------------------------------- evalfile : C function: int SLang_load_file (1 args) Prototype: Integer evalfile (String file); Load 'file' as S-Lang code. If loading is successful, a non-zero result will be returned. If the file is not found, zero will be returned. See also: eval, autoload -------------------------------------------------- exit_jed : C function: void exit_jed (0 args) Prototype: Void exit_jed(); Exits JED. If any buffers are modified, the user is queried about whether or not to save first. Calls S-Lang hook "exit_hook" if defined. If "exit_hook" is defined, it must either call 'quit_jed' or 'exit_jed' to really exit the editor. If 'exit_jed' is called from 'exit_hook', 'exit_hook' will not be called again. -------------------------------------------------- exp : C function: int math_exp (0 args) -------------------------------------------------- expand_filename : C function: string expand_filename (1 args) expands filename to a canonical form -------------------------------------------------- expand_jedlib_file(f) Search for FILE in directories specified by JED_LIBRARY returning expanded pathname if found or the Null string otherwise. -------------------------------------------------- expand_keystring Prototype: String expand_keystring (String key) This function takes a key string that is suitable for use in a 'setkey' definition and expands it to a human readable form. For example, it expands ^X to the form "Ctrl-X", ^[ to "ESC", ^[[A to "UP", etc... See also: setkey -------------------------------------------------- extract_element : C function: string SLang_extract_list_element (3 args) Prototype: String extract_element (String list, Integer nth, Integer delim); Returns 'nth' element in 'list' where 'delim' separates elements of the list. 'delim' is an Ascii value. Elements are numbered from 0. For example: extract_element ("element 0, element 1, element 2", 1, ','); returns the string " element 1", whereas extract_element ("element 0, element 1, element 2", 2, ' '); returns "0,". See also: is_list_element. -------------------------------------------------- extract_filename : C function: string extract_file (1 args) Prototype: String extract_filename (String filespec); Separates the filename from the path of 'filespec'. Example: (unix) var = extract_filename ("/tmp/name"); assigns a value of "name" to 'var' -------------------------------------------------- ffind : C function: int forward_search_line (1 args) Returns TRUE if STRING is found forward current line. If found, Point is moved to string -------------------------------------------------- file_status : C function: int file_status (1 args) returns integer desecribing FILE: 2 file is a directory 1 file exists 0 file does not exist. -1 no access. -2 path invalid -3 unknown error -------------------------------------------------- file_time_compare : C function: int file_time_cmp (2 args) compares the modification times of two files, FILE1 and FILE2. returns positive, negative, or zero integer for FILE1 > FILE2, FILE1 < FILE2, or FILE1 == FILE2, resp. The operator '>' should be read 'is more recent than'. The convention adopted by the routine is that if a file does not exist, it was modified at the beginning of time. Thus, if 'f' exists, but 'g' does not, f g file_time_compare will return 1. -------------------------------------------------- file_type(file) returns type of file. e.g., /usr/a.b/file.c --> c -------------------------------------------------- filechgondsk : C function: int file_changed_on_disk (1 args) Returns true if FILE on disk is more recent than editor file -------------------------------------------------- find_file : C function: int find_file_in_window (1 args) finds FILE in current window returning non zero if file found. See Also: read_file -------------------------------------------------- find_file_hook(file) called AFTER a file is read in to a buffer. FILENAME is on the stack. -------------------------------------------------- find_jedlib_file(file) find a file from JED_LIBRARY, returns number of lines read or 0 if not found. -------------------------------------------------- find_tag -------------------------------------------------- float : C function: int slmath_do_float (0 args) Convert from integer or string representation to floating point. For example, "12.34" float returns 12.34 to stack. as another example, consider: 1 2 / ==> 0 since 1 and 2 are integers 1 2 float / ==> 0.5 since float converts 2 to 2.0 and floating point division is used. -------------------------------------------------- flush : C function: void flush_message (1 args) Takes 1 string argument and immediately displays it as a message in the minibuffer. It is exactly like the `message' function except that its effect is immediate. See: message, update -------------------------------------------------- flush_input -------------------------------------------------- format_paragraph_hook -------------------------------------------------- fortran_mode -------------------------------------------------- forward_paragraph : C function: void forward_paragraph (0 args) move point past current paragraph. Slang hook is_paragraph_seperator is called (if defined) to determine if line is a paragraph seperator. -------------------------------------------------- free_array : C function: void SLfree_array (0 args) Prototype: Void free_array (Array a); Frees up the space which array occupies. All reference to this space will now be meaningless and will generate an error. -------------------------------------------------- fsearch : C function: int search_forward (1 args) Prototype: Integer fsearch(String str); Search forward in buffer looking for string 'str'. If not found, this functions returns zero. However, if found, it returns non-zero and moves the Point to the start of the match. It respects the setting of the variable 'CASE_SEARCH'. See also: ffind, bsearch, bfind, re_fsearch, CASE_SEARCH -------------------------------------------------- get_doc_string : C function: int get_doc_string (2 args) read doc string for OBJECT from FILE. Returns 1 and string upon success or 0 on failure. If OBJECT is a functiion, it must be prefixed with an 'F'. If it is a variable, the prefix character is a 'V'. Example: "Fget_doc_string" -------------------------------------------------- get_key_function : C function: void get_key_function (0 args) Returns current key binding. If key has a binding, it also returns 0 if the function is S-Lang or non zero if it is internal. -------------------------------------------------- get_last_macro : C function: void get_last_macro (0 args) Prototype: String get_last_macro(); This function returns characters composing the last keyboard macro. The charactors that make up the macro are encoded as themselves except the following characters: '\n' ----> \J null ----> \@ \ ----> \\ '"' ----> \" -------------------------------------------------- get_yes_no : C function: int get_yes_no (1 args) Takes one argument-- a string that is used to get yes or no responce from user. Returns 1 if yes, 0 if no. Also returns -1 if abort and signals error. -------------------------------------------------- getbuf_info : C function: void get_buffer_info (0 args) Prototype: getbuf_info(); This function returns 4 values to the stack. The four value from the top are: Integer'flags' % buffer flags String 'buffer_name' % name of buffer String 'directory' % directory associated with buffer String 'file' % name of file associated with buffer (if any). The flags are encoded as: bit 0: buffer modified bit 1: auto save mode bit 2: file on disk modified bit 3: read only bit bit 4: overwrite mode bit 5: undo enabled bit 6: reserved bit 7: just save instead of autosaving. If bit 1 is set, this is ignored. For example, (file,,,) = getbuf_info(); returns the file associated with the buffer. See also: setbuf_info, whatbuf -------------------------------------------------- getenv : C function: void lang_getenv_cmd (1 args) Prototype: String getenv(String var); Returns value of an environment variable 'var' as a string. The empty "" is returned if the 'var' is not defined. See also: putenv -------------------------------------------------- getkey : C function: int jed_getkey (0 args) Read a key from input stream returning ASCII value read. -------------------------------------------------- getpid : C function: int jed_getpid (0 args) Prototype: Integer getpid(); Returns pid of current process. -------------------------------------------------- go_down Prototype: Void go_down (Integer n); Move down 'n' lines. See also: go_up, down -------------------------------------------------- go_left Prototype: Void go_left (Integer n); Move backward 'n' characters. See also: left, go_right -------------------------------------------------- go_right Prototype: Void go_right (Integer n); Move forward 'n' characters. See also: right, go_left -------------------------------------------------- go_up Prototype: Void go_up (Integer n); Move up 'n' lines. See also: up, go_down -------------------------------------------------- goto_bottom_of_window -------------------------------------------------- goto_column : C function: void goto_column (1 args) Move Point to COLUMN inserting spaces and tabs if necessary. -------------------------------------------------- goto_column_best_try : C function: int goto_column1 (1 args) Prototype: Integer goto_column_best_try (Integer c); This function is like goto_column except that it will not insert spaces. It returns the column number is did go to. -------------------------------------------------- goto_line : C function: void goto_line (1 args) move Point to LINE. -------------------------------------------------- help() Pop up a window containing a help file. The help file that is read in is given by the variable Help_File. -------------------------------------------------- indent_line : C function: void indent_line (0 args) Indent line according to current mode. -------------------------------------------------- init_char_array : C function: void SLinit_char_array (0 args) Prototype: Void init_char_array(Array_Type a, String s); a is an array of type 'c' (character array) and s is a string. -------------------------------------------------- input_pending : C function: int input_pending (1 args) Only argument is amount of seconds/10 to wait for input. 0 returns right away. Returns TRUE if there is input waiting. -------------------------------------------------- insbuf : C function: void insert_buffer_name (1 args) Prototype: Void insbuf (String buf); Insert buffer named 'buf' into the current buffer at Point. See also: copy_region -------------------------------------------------- insert : C function: void insert_string (1 args) Prototype: Void insert(String str); Inserts string 'str' in buffer at the current Point. See also: del, insert_file, insbuf -------------------------------------------------- insert_buffer -------------------------------------------------- insert_char(ch) insert a character into a buffer. This function should be called instead of 'insert' when it is desired to insert a 1 character string. Unlike 'insert', insert_char takes an integer argument. For example, 'x' insert_char and "x" insert are functionally equivalent but insert_char is more memory efficient. -------------------------------------------------- insert_file : C function: int insert_file (1 args) This returns <= 0 if file not found. -------------------------------------------------- insert_file_region : C function: int insert_file_region (3 args) -------------------------------------------------- insert_rect : C function: void insert_rectangle (0 args) insert contents of previously deleted rectangle at Point. -------------------------------------------------- insert_single_space () insert a single space into the buffer. -------------------------------------------------- integer : C function: void SLdo_integer (0 args) Convert from a string representation to integer. For example, "1234" integer returns 1234 to stack. -------------------------------------------------- integer : C function: void SLdo_integer (0 args) Convert from a string representation to integer. For example, "1234" integer returns 1234 to stack. -------------------------------------------------- is_defined : C function: int SLang_is_defined (1 args) Prototype: Integer is_defined (String obj); This function is used to determine whether or not 'obj' has been defined. If 'obj' is not defined, it returns 0. Otherwise, it returns a non-zero value that defpends on the type of object 'obj' represents. Specifically: +1 if arg is an intrinsic function +2 if user defined function -1 if intrinsic variable -2 if user defined variable -------------------------------------------------- is_internal : C function: int is_internal (1 args) Prototype Integer is_internal(String f); Returns non-zero is function 'f' is defined as an internal function or returns zero if not. Internal functions not immediately accessable from S-Lang; rather, they must be called using the 'call' function. See also: call, is_defined. -------------------------------------------------- is_list_element : C function: int SLang_is_list_element (3 args) Prototype: Integer is_list_element (String list, String elem, Integer delim); If 'elem' is an element of 'list' where 'list' is a 'delim' seperated list of strings, this function returns 1 plus the matching element number. If 'elem' is not a member of the list, zero is returned. Example: is_list_element ("element 0, element 1, element 2", "0,", ' '); returns 2 since "0," is element number one of the list (numbered from zero). See also: extract_element. -------------------------------------------------- is_substr : C function: void SLdo_issubstr (0 args) Syntax: "a" "b" is_substr returns the position of "b" in "a". If "b" does not occur in "a" it returns 0--- the first position is 1 -------------------------------------------------- isdigit : C function: int SLdo_isdigit (1 args) returns TRUE if CHAR (string of length 1) is a digit. -------------------------------------------------- jed_startup_hook() Function that gets executed right before JED enters its main editing loop. This is for last minute modifications of data structures that did not exist when startup files were loaded (e.g., minibuffer keymap) -------------------------------------------------- keymap_p : C function: int keymap_p (1 args) Returns TRUE if KEYMAP is defined. -------------------------------------------------- kill_rect : C function: void kill_rectangle (0 args) deletes rectangle defined by point and mark. The contents of the rectangle are saved in the rectangle buffer destroying previous contents. -------------------------------------------------- left : C function: int backwchars (1 args) Prototype: Integer left(Integer n); Move Point backward 'n' characters returning number actually moved. The number returned will be less than 'n' only if the top of the buffer is reached. See Also: right, up, down, bol, bob -------------------------------------------------- local_setkey Prototype: Void local_setkey (String fun, String key); This function is like 'setkey' but unlike 'setkey' which operates on the global keymap, 'local_setkey' operates on the current keymap which may or may not be the global one. See also: setkey, definekey, local_unsetkey -------------------------------------------------- local_unsetkey Prototype: Void local_unsetkey (String key); This function is like 'unsetkey' but unlike 'unsetkey' which unsets a key from the global keymap, 'local_unsetkey' operates on the current keymap which may or may not be the global one. See also: unsetkey, undefinekey, local_setkey -------------------------------------------------- log : C function: int math_log (0 args) -------------------------------------------------- log10 : C function: int math_log10 (0 args) -------------------------------------------------- looking_at : C function: int looking_at (1 args) Prototype: Integer looking_at(String s); Returns non-zero if Point is positioned in he buffer such that the characters immediately following it match 's' otherwise it returns 0. See also: ffind, fsearch, re_fsearch, bfind -------------------------------------------------- looking_at_char Prototype: Integer looking_at_char (Integer ch); This function returns non-zero if the character at the current editing point is 'ch' otherwise it retuns zero. This function performs a case sensitive comparison. -------------------------------------------------- lstat_file : C function: int unix_lstat_file (1 args) Prototype: Integer lstat_file(String file); This function is like 'stat_file' but it returns information about the link itself. See 'stat_file' for usage. See also: stat_file -------------------------------------------------- make_autosave_filename(dir, file) returns autosave filename. Arguments to function are dir and file. -------------------------------------------------- make_backup_filename(dir, file) returns backup filename. Arguments to function are dir and file. -------------------------------------------------- make_keymap : C function: void create_keymap (1 args) Creates a new keymap with name map. The newly created keymap is an exact copy of the global map "global". See: use_keymap, definekey, undefinekey -------------------------------------------------- make_printable_string : C function: void make_printable_string (1 args) Prototype: String make_printable_string(String str); Takes input string 'str' and creates a new string that may be used by the interpreter as an argument to the 'eval' function. The resulting string is identical to 'str' except that it is enclosed in double quotes and the backslash, newline, and double quote characters are expanded. See also: eval -------------------------------------------------- make_tmp_buffer_name Prototype: String make_tmp_buffer_name (String base); Generates a unique buffer name using the string 'base' for the beginning of the name. The buffer name is returned. The buffer is not created. -------------------------------------------------- map_input : C function: void map_character (2 args) Used to remap input characters from the keyboard to a different character before JED interprets the character. For example, '8 127 map_input' will cause JED to think that the ^H (8) is the delete character (127). Note that '8 127 map_input 127 8 map_input effectively swaps the ^H and delete keys. -------------------------------------------------- markp : C function: int markp (0 args) Prototype: Void markp(); Returns a non-zero value if a mark is set in the buffer otherwise it returns zero. A mark usually denotes a region is defined. See also: psh_mark, pop_mark, check_region, push_spot -------------------------------------------------- message : C function: void message (1 args) Prototype: Void message(String msg); Displays the string 'msg' in the MiniBuffer at the bottom of the display. This does not immediately display the message. In particular, subsequent calls to 'message' will overwrite the values of previous calls. The message is displayed when the screen is updated next. For an immediate effect, use the function 'flush' instead. See also: flush, error, update -------------------------------------------------- mkdir : C function: int make_directory (1 args) create a directory with NAME. Returns TRUE if successful, 0 otherwise. -------------------------------------------------- mode_hook (ext) This is a hook called by find_file routines to set the mode for the buffer. This function takes one parameter, the filename extension and returns nothing. -------------------------------------------------- modeline_hook() check first line for the simplest Emacs mode statement -*- modename -*- -------------------------------------------------- most_mode () Emulates MOST fileviewer The following keys are defined: SPACE next screen DELETE previous screen / search_forward ? search_backward n find next occurrence q quit most mode (usually kills buffer if not modified) e edit buffer h help summary t Top of Buffer b End of Buffer -------------------------------------------------- narrow : C function: void narrow_to_region (0 args) restrict editing to region of LINES defined by point and mark. Use 'widen' to remove the restriction. Be careful with this because it currently does not remember a previous narrow. -------------------------------------------------- newline Prototype: Void newline (Void); insert a newline in the buffer at point. See also: insert, insert_char -------------------------------------------------- no_mode() Generic mode not designed for anything in particular. See: text_mode, c_mode -------------------------------------------------- nwindows : C function: int num_windows (0 args) Prototype Integer nwindows(); Return number of windows currently visible. See also: splitwindow, onewindow, window_size -------------------------------------------------- onewindow : C function: void one_window (0 args) make current window the only one. -------------------------------------------------- open_rect : C function: void open_rectangle (0 args) insert a BLANK rectangle. The rectangle is defined by point and mark. -------------------------------------------------- otherwindow : C function: void other_window (0 args) Prototype: Void otherwindow(); Switch to next window. See also: nwindows, onewindow -------------------------------------------------- parse_filename(fn) breaks a filespec into dir filename--- this routine returns dir and filename such that a simple strcat will suffice to put them together again. For example, on unix, /a/b/c returns /a/b/ and c -------------------------------------------------- pipe_region : C function: int pipe_region (1 args) pipes region to CMD returning number of lines written. -------------------------------------------------- polynom : C function: int math_poly (0 args) Usage: a b .. c n x polynom =y This computes: ax^n + bx^(n - 1) + ... c = y -------------------------------------------------- pop : C function: void SLdo_pop (0 args) Prototype: Void pop (); 'pop' is used to remove the top object from the S-Lang stack. It is typically used to ignore values from function that return a value. -------------------------------------------------- pop2buf : C function: void pop_to_buffer (1 args) Prototype: Void pop2buf (String buf); Pop up a window containing a buffer named 'buf'. If 'buf' does not exist, it will be created. If 'buf' already exists in a window, the window containing 'buf' will be the active one. This function will create a new window if necessary. See also: pop2buf_whatbuf, setbuf, sw2buf -------------------------------------------------- pop2buf_whatbuf : C function: string pop_to_buffer (1 args) Prototype: String pop2buf_whatbuf (String buf); This function performs the same function as 'pop2buf' except that the name of the buffer that 'buf' replaced in the window is returned. This allows one to replace the buffer in the window with the one previously there. See also: pop2buf -------------------------------------------------- pop_mark : C function: void pop_mark (1 args) Pop last pushed mark off the mark stack. If argument is non zero, move point to position of mark first. -------------------------------------------------- pop_spot : C function: void pop_spot (0 args) Prototype: Void pop_spot (); This function is used after 'push_spot' to return to the location where 'push_spot' was called. See also: push_spot, pop_mark -------------------------------------------------- pow : C function: int math_pow (0 args) -------------------------------------------------- prefix_argument : C function: int do_prefix_argument (1 args) Usage: int prefix_argument(int default); Returns value of prefix argument if there is one otherwise returns 'default'. -------------------------------------------------- prev_mini_command -------------------------------------------------- print_stack : C function: void lang_print_stack (0 args) dumps tha S-Lang stack -------------------------------------------------- print_stack : C function: void lang_print_stack (0 args) dumps tha S-Lang stack -------------------------------------------------- push_mark : C function: void push_mark (0 args) Prototype: Void push_mark(); This function marks the current Point as the beginning of a region. Other functions operate on the region defined by the Point and the Mark. See also: pop_mark, push_spot, markp, dupmark, check_region -------------------------------------------------- push_spot : C function: void push_spot (0 args) Prototype: Void push_spot (); 'push_spot' pushes the location of the current buffer location onto a stack. This function does not set the mark. Use push_mark for that purpose. The spot can be returned to using 'pop_spot'. See also: pop_spot, push_mark -------------------------------------------------- putenv : C function: void lang_putenv_cmd (0 args) Prototype: Void putenv(String s); This functions adds string 's' to the environment. Typically, 's' should be a String of the form "name=value". It signals an error upon failure. -------------------------------------------------- quit_jed : C function: void quit_jed (0 args) Quit JED saving no buffers, just get out! -------------------------------------------------- random : C function: int make_random_number (2 args) Usage: seed n random Returns a random number in the range 0 to n - 1. If seed is 0, the number generated depends on previous seed. If seed is -1, a seed based on current time and pid is used, otherwise, seed is used as a seed. -------------------------------------------------- re_bsearch : C function: int re_search_backward (1 args) Prototype: Integer re_bsearch(String pattern); Search backward for regular expression 'pattern'. This function returns the 1 + length of the string matched. If no match is found, it returns 0. See also: bsearch, bol_bsearch, re_fsearch -------------------------------------------------- re_fsearch : C function: int re_search_forward (1 args) Prototype: Integer re_fsearch(String pattern); Search forward for regular expression 'pattern'. This function returns the 1 + length of the string matched. If no match is found, it returns 0. See also: fsearch, bol_fsearch, re_bsearch -------------------------------------------------- read_file : C function: int find_file_cmd (1 args) read FILE into its own buffer returning non zero if file exists. see find_file to read a file into a window. -------------------------------------------------- read_mini : C function: void mini_read (3 args) read from minibuffer with PROMPT and DEFAULT strings using STRING to stuff the minibuffer. Returns string to stack. -------------------------------------------------- read_with_completion : C function: void read_object_with_completion (4 args) Takes 4 parameters: PROMPT(string) DEFAULT(string) STUFF(string) and TYPE(integer). TYPE must be one of: 'f' file name 'b' buffer name 'F' function name 'V' variable name. STUFF is a string which is stuffed into the buffer. Using this function enables completion on the object. -------------------------------------------------- recenter : C function: void recenter (1 args) update window with current line on Nth line of window. If N is 0, recenter -------------------------------------------------- regexp_nth_match : C function: void regexp_nth_match (1 args) -------------------------------------------------- rename_file : C function: int rename_file (2 args) rename file from OLD_NAME to NEW_NAME returning 0 if the operation succeeds, and a non-zero value if it fails. Both files must be on the same file system. -------------------------------------------------- replace : C function: void replace_cmd (2 args) Prototype Void replace(String old, String new); Replaces all occurances of 'old' with 'new' from current point to the end of the buffer. The Point is returned to the initial location. -------------------------------------------------- replace_match : C function: int replace_match (2 args) Prototype: Integer replace_match(String s, Integer how); This function replaces text previously matched with `re_fsearch' or `re_bsearch' at the current editing point with string 's'. If 'how' is zero, 's' is a specially formatted string of the form described below. If 'how' is non-zero, 's' is regarded as a simple string and is used literally. If the replacement fails, this function returns zero otherwise, it returns non-zero. -------------------------------------------------- right : C function: int forwchars (1 args) Prototype: Integer right(Integer n); This function moves the Point forward forward 'n' characters and returns the number actually moved. The number returned will be smaller than 'n' if the end of the buffer is reached. See also: left, up, down, eol, eob -------------------------------------------------- rmdir : C function: int delete_directory (1 args) delete a directory with NAME. Returns TRUE if successful, 0 otherwise. The directory must be empty for the operation to succeed. -------------------------------------------------- runhooks Prototype: Void runhooks (String fun) if S-Lang function 'fun' is defined, execute it. It does nothing if 'fun' does not exist. -------------------------------------------------- save_search_string : C function: void save_search_string (1 args) Prototype: Void save_search_string(String str); Sets the value of the read-only variable 'LAST_SEARCH' to 'str'. See also: LAST_SEARCH -------------------------------------------------- search_file : C function: int search_file (3 args) search FILE for STRING returning TRUE if string found. -------------------------------------------------- set_abort_char : C function: void set_abort_char (1 args) Change Abort character to CHAR. The default is 7 which is ^G. Using this function modifies ALL keymaps -------------------------------------------------- set_buffer_hook : C function: void set_buffer_hook (2 args) Prototype: Void set_buffer_hook (String hook, String f); Set current buffer hook 'hook' to function 'f'. 'f' is a user defined S-Lang function. Currently, name can be any one of: "par_sep" -- returns zero if the current line does not constitute the beginning or end of a paragraph. It returns non-zero otherwise. The default value of 'hook' is 'is_paragraph_separator'. "indent_hook" -- returns nothing. It is called by the indent line routines. "wrap_hook" hook that is called after a line is wrapped. Returns nothing -------------------------------------------------- set_buffer_modified_flag(modif) sets buf modified flag. If argument is 1, mark buffer as modified. If argument is 0, mark buffer as unchanged. -------------------------------------------------- set_buffer_undo(modif) set undo mode for buffer. If argument is 1, undo is on. 0 turns it off -------------------------------------------------- set_color : C function: void set_term_colors (3 args) Prototype: Void set_color(String object, String fg, String bg); This function sets the foreground and background colors of an 'object' to 'fg' and 'bg'. The exact values of the strings 'fg' and 'bg' are system dependent. Valid object names are: "status", "normal", "region", and "cursor". In addition, if color syntax highlighting is enabled, the following object names are also meaningful: "number", "delimeter", "keyword", "string", "comment", "operator", "preprocess" See also: WANT_SYNTAX_HIGHLIGHT -------------------------------------------------- set_color_esc : C function: void set_term_color_esc (2 args) Prototype: Void set_color_esc (String object, String esc_seq); This function may be used to associate an escape sequence with an object. The escape sequence will be set to the terminal prior to sending the object. It may be used on mono terminals to underline objects, etc... See 'set_color' for a list of valid object names. -------------------------------------------------- set_file_translation : C function: void set_file_trans (1 args) 1 open files in binary, 0 in text (default) -------------------------------------------------- set_float_format : C function: void set_float_format (1 args) Prototype: Void set_float_format (String fmt); This function is used to set the floating point format to be used when floating point numbers are printed. The routines that use this are the traceback routines and the 'string' function. The default value is "%f". -------------------------------------------------- set_overwrite(n) Takes 1 parameter: 0 turn off overwrite 1 turn on overwrite -------------------------------------------------- set_readonly(n) Takes 1 parameter: 0 turn off readonly 1 turn on readonly -------------------------------------------------- set_status_line : C function: void set_status_format (2 args) Usage: set_status_line(String format, Integer flag); If flag is non-zero, format applies to the global format string otherwise it applies to current buffer only. Format is a string that may contain the following format specifiers: %b buffer name %f file name %v JED version %t current time --- only used if variable DISPLAY_TIME is non-zero %p line number or percent string %% literal '%' character %m mode string -------------------------------------------------- set_term_vtxxx : C function: void do_tt_set_term_vtxxx (1 args) Set terminal display appropriate for a vtxxx terminal. This function takes a single integer parameter. If non-zero, the terminal type is set for a vt100. This means the terminal lacks the ability to insert/delete lines and characters. If the parameter is zero, the terminal is assumed to be vt102 compatable. Unless you are using a VERY old terminal or a primitive emulator, use zero as the parameter. -------------------------------------------------- set_top_status_line : C function: void define_top_screen_line (1 args) Prototype: String set_top_status_line (String str); This functions sets the string to be displayed at the top of the display. It returns the value of the line that was previously displayed. See also: enable_top_status_line -------------------------------------------------- setbuf : C function: void set_buffer (1 args) Prototype: Void setbuf(String buf); Changes the default buffer to one named 'buf' for editing. This change only lasts until top level of editor loop is reached at which point the the buffer associated with current window will be made the default. See also: sw2buf, pop2buf, whatbuf -------------------------------------------------- setbuf_info : C function: void set_buffer_info (4 args) Prototype: Void setbuf_info(String file, String dir, String buf, Integer flags); Sets information of the current buffer. Here 'file' is the name of the file to be associated with the buffer; 'dir' is the directory to be associated with the buffer; buf is the name to be assigned to the buffer, and flags describe the buffer attributes. See 'getbuf_info' for a discussion of 'flags'. Note that the actual file associated with the buffer is located in directory 'dir' with the name 'file'. See also: getbuf_info -------------------------------------------------- setkey : C function: void set_key (2 args) Prototype: Void setkey(String fun, String key); 'fun' is the function that 'key' is to be assigned. 'key' can contain the '^' character which denotes that the following character is to be interpreted as a control character, e.g., setkey("bob", "^Kt"); sets the key sequence 'Ctrl-K t' to the function 'bob' which moves the editing point to the beginning of the buffer. Note that 'setkey' works on the "global" keymap. See also: unsetkey, definekey. -------------------------------------------------- setmode : C function: void set_mode_cmd (2 args) Prototype: Void setmode(String mode, Integer flags); Sets buffer mode flags and status line mode name. 'mode' is a string which is displayed on the status line if the %m status line format specifier is used. The second argument, 'flags' is an integer with the possible values: 0 : no mode. Very generic 1 : Wrap mode. Lines are automatically wrapped at wrap column. 2 : C mode. 4 : Language mode. Mode does not wrap but is useful for computer languages. 8 : S-Lang mode 0x10: Fortran mode highlighting 0x20: TeX mode highlighting See also: whatmode, getbuf_info, setbuf_info. -------------------------------------------------- shell_cmd : C function: void shell_command (1 args) executes CMD in a subshell inserting output inter buffer at Point -------------------------------------------------- shell_cmd : C function: void shell_command (1 args) executes CMD in a subshell inserting output inter buffer at Point -------------------------------------------------- sin : C function: int math_sin (0 args) -------------------------------------------------- skip_chars : C function: void skip_chars (1 args) Prototype: Void skip_chars(String s); skip past all characters in string 's'. s is a string which contains ascii chars to skip, or a rang of ascii chars. So for example, "- \t0-9ai-o_" will skip the hyphen, space, tab numerals 0 to 9, letter a, letters i to o, and underscore. If the first character of 's' is '^', then the compliment of the range is skipped instead. So for example, skip_chars("^A-Za-z"); skips ALL characters except the letters. The backslash character may be used to escape ONLY the FIRST character in the string. That is, "\\^" is to be used to skip over '^' characters. See Also: bskip_chars, skip_white -------------------------------------------------- skip_non_word_chars : C function: void skip_non_word_chars (0 args) skip over all characters that do not constitute a word. -------------------------------------------------- skip_white : C function: void skip_whitespace (0 args) Skip past whitespace. This does not cross lines. See: skip_chars -------------------------------------------------- skip_word_chars : C function: void skip_word_chars (0 args) skip over all characters that constitute a word. -------------------------------------------------- skip_word_chars : C function: void skip_word_chars (0 args) skip over all characters that constitute a word. -------------------------------------------------- slang_trace_function : C function: void SLang_trace_fun (1 args) only argument is a string that specifies a function name that is to be traced. See also the variable _slangtrace. -------------------------------------------------- slapropos : C function: void lang_apropos (1 args) -------------------------------------------------- splitwindow : C function: void split_window (0 args) Splits current window in half making two. -------------------------------------------------- sqrt : C function: int math_sqrt (0 args) -------------------------------------------------- stat_file : C function: int unix_stat_file (1 args) Prototype: Integer stat_file(String file); This function returns information about 'file' through the use of the system 'stat' call. If the stat call fails, the function returns a negative integer. If it is successful, it returns zero. Upon failure it returns a negative number. To retrieve information obtained by this call, use the 'stat_struct' function. See also: lstat_file, stat_struct -------------------------------------------------- stat_struct : C function: int unix_stat_struct (1 args) Prototype Integer stat_struct(String field); This functions returns information previously obtained by a call to the 'stat_file' or 'lstat_file' functions. The 'field' argument specifies what piece of information to return. Valid values for 'field' are: "dev" "ino" "mode" "nlink" "uid" "gid" "rdev" "size" "atime" "mtime" "ctime" See the man page for 'stat' for a discussion of these fields. The following example returns the size of the file "jed.rc": variable size; if (stat_file("jed.rc") < 0) error ("Unable to stat file!"); size = stat_struct("size"); -------------------------------------------------- str_quote_string : C function: void SLquote_string (0 args) Prototype: String str_quote_string(String str, String qlis, Integer quote); Return a string identical to 'str' except that all characters in the string 'qlis' are escaped with the 'quote' character including the quote character itself. -------------------------------------------------- str_uncomment_string : C function: void uncomment_string (3 args) Prototype: String str_uncomment_string(String s, String beg, String end); 'beg' and 'end' are strings whose characters define a set of comment delimeters. This function removes comments defined by the delimeter set from the input string 's' and returns it. For example, str_uncommen_string ("Hello (testing) 'example' World", "'(", "')"); returns the string: "Hello World"; This routine does not handle multicharacter comment delimeters and it assumes that comments are not nested. -------------------------------------------------- strcat : C function: void SLdo_strcat (0 args) Prototype: String strcat(String a, String b); Conconcatenates 'a' and 'b' and returns the result. See also: Sprintf -------------------------------------------------- strcmp : C function: void SLdo_strcmp (0 args) Prototype: Integer strcmp (String a, String b); 'strcmp' performs a case sensitive comparison between two strings. It returns 0 if the strings are identical, a negative number if 'a' is less than 'b' and a positive result if 'a' is greater than 'b' (in a lexicographic sense). See also: strup, strlow -------------------------------------------------- string : C function: void SLdo_string (0 args) Prototype: String string (obj); Here 'obj' can be of any type. The function 'string' will return a string representation of 'obj'. Example: string (12.34) returns "12.34" See also: Sprintf -------------------------------------------------- string_match : C function: int string_match (3 args) Prototype Integer string_match(String str, String pat, Integer pos); Returns 0 if 'str' does not match regular expression specified by 'pat'. This function performs the match starting at position 'pos' in 'str'. The first character of 'str' corresponds to 'pos' equal to one. This function returns the position of the start of the match. To find the exact substring actually matched, use 'string_match_nth'. See also: string_match_nth, strcmp, strncmp -------------------------------------------------- string_match_nth : C function: int string_match_nth (1 args) Prototype: Integer Integer string_match_nth(Integer nth); This function returns 2 integers describing the result of the last call to 'string_match'. It returns both the offset into the string and the length of characters matches by the 'nth' submatch. By convention, 'nth' equal to zero means the entire match. Otherwise, 'nth' must be an integer, 1 to 9, and refers to the set of characters matched by the 'nth' regular expression given by \(...\). For example, consider: variable matched, pos, len; matched = string_match("hello world", "\\([a-z]+\\) \\([a-z]+\\)", 1); if (matched) { (pos, len) = string_match_nth(2); } This will set 'matched' to 1 since a match will be found at the first position, 'pos' to 7 since 'w' is the 7th character of the string, and len to 5 since "world" is 5 characters long. -------------------------------------------------- strlen : C function: void SLdo_strlen (0 args) Prototype: Integer strlen (String a); Returns the length of 'a'. -------------------------------------------------- strlow : C function: void SLdo_strlow (0 args) Takes a string off the stack a replaces it with all characters in lowercase. -------------------------------------------------- strncat Prototype: Void strncat (String a, String b, ..., Integer n); Returns concatenated string "abc..." -------------------------------------------------- strncmp : C function: void SLdo_strncmp (0 args) like strcmp but takes an extra argument--- number of characters to compare. Example, "apple" "appliance" 3 strcmp --> 0 -------------------------------------------------- strsub : C function: void SLdo_strsub (0 args) Syntax: "string" n ascii_value strsub This forces string to have a char who asciii value is ascii_val at the nth position. The first character in the string is at position 1. -------------------------------------------------- strtrim : C function: void SLdo_strtrim (0 args) Trims leading and trailing whitespace from a string. WHitespace is defined to be spaces, tabs, and newline chars. -------------------------------------------------- strup : C function: void SLdo_strup (0 args) Takes a string off the stack a replaces it with all characters in uppercase. -------------------------------------------------- substr : C function: void SLdo_substr (0 args) Syntax: "string" n len substr returns a substring with length len of string beginning at position n. -------------------------------------------------- suspend : C function: void sys_spawn_cmd (0 args) Suspend jed and return to calling process or spawn subprocess. "suspend_hook" is called before suspension and "resume_hook" is called after. These are user defined S-Lang functions. -------------------------------------------------- sw2buf : C function: void switch_to_buffer_cmd (1 args) Switch to BUFFER. If BUFFER does not exist, one is created with name BUFFER -------------------------------------------------- system : C function: int my_system (1 args) -------------------------------------------------- tan : C function: int math_tan (0 args) -------------------------------------------------- text_mode() Mode for indenting and wrapping text Functions that affect this mode include: Function: Default Binding: indent_line_cmd TAB newline_and_indent_cmd RETURN format_paragraph ESC Q narrow_paragraph ESC N Variables include: WRAP_INDENTS, WRAP TAB, TAB_DEFAULT -------------------------------------------------- time : C function: string get_time (0 args) return current date and time string -------------------------------------------------- trim : C function: void trim_whitespace (0 args) Prototype: Void trim(); Removes all whitespace around point. See also: skip_chars, skip_white -------------------------------------------------- tt_send : C function: void do_tt_write_string (1 args) send STRING to terminal with no interpretation -------------------------------------------------- undefinekey : C function: void unset_key_in_keymap (2 args) Undefines KEY from KEYMAP. See: make_keymap. -------------------------------------------------- ungetkey : C function: void ungetkey (1 args) push ASCII value of character on input stream -------------------------------------------------- unix_ctime : C function: string unix_ctime (1 args) Prototype: String unix_ctime(Integer secs); Returns a string representation of the time as given by 'secs' seconds since 1970. -------------------------------------------------- unix_kill : C function: int unix_kill (0 args) Prototype: Integer unix_kill(Integer pid, Integer sig); -------------------------------------------------- unsetkey : C function: void unset_key (1 args) Prototype: Void unsetkey(String key); Removes the defeinition of 'key' from the "global" keymap. For example, by default, the "global" keymap binds the keys "^[[A", "^[[B", "^[[C", and "^[[D" to the character movement functions. Using 'unsetkey("^[[A")' will remove the binding of "^[[A" from the global keymap but the other three will remain. However, 'unsetkey("^[[")' will remove the definition of all the above keys. See also: setkey, undefinekey -------------------------------------------------- up : C function: int prevline (1 args) Prototype: Integer up(Integer n); Move Point up 'n' lines returning number of lines actually moved. The number returned will be less than 'n' only if the top of the buffer is reached. See also: down, left, right -------------------------------------------------- update : C function: void update_cmd (1 args) Update display. If argument it TRUE, force update otherwise update only if there is no input -------------------------------------------------- use_keymap : C function: void use_keymap (1 args) Asscoiate KEYMAP with buffer. -------------------------------------------------- w132 : C function: void screen_w132 (0 args) -------------------------------------------------- w80 : C function: void screen_w80 (0 args) -------------------------------------------------- what_char : C function: int what_char (0 args) returns ASCII value of character point is on. -------------------------------------------------- what_column : C function: int calculate_column (0 args) Prototype: Integer what_column(); Returns the current column number of the Point expanding tabs, etc... The beginning of the line is at column 1. See: whatline, whatpos, goto_column -------------------------------------------------- what_keymap : C function: string what_keymap (0 args) returns keymap name of current buffer -------------------------------------------------- whatbuf : C function: string what_buffer (0 args) Prototype: String what_buffer(); Returns the name of the current buffer. See also: getbuf_info, bufferp -------------------------------------------------- whatmode : C function: int what_mode (0 args) returns buffer mode string and mode flag. See setmode for details. -------------------------------------------------- whatpos () display row and column information in minibuffer -------------------------------------------------- which_key : C function: int which_key (1 args) returns NUMBER of keys that are bound to argument followed by NUMBER keys. Control Chars are expanded as 2 chars. -------------------------------------------------- whitespace : C function: void insert_whitespace (1 args) inserts whitespace of length n using tabs and spaces. If the global variable TAB is 0, only spaces are used. -------------------------------------------------- widen : C function: void widen (0 args) Opposite of Narrow. See narrow for additional information. -------------------------------------------------- window_info : C function: int window_size_intrinsic (1 args) Prototype Integer window_info(Integer item); Returns information specified by 'item' about the current window. Here 'item' is one of: 'r' : Number of rows 'w' : width of window 'c' : starting column (from 1) 't' : screen line of top line of window (from 1) -------------------------------------------------- window_line : C function: int window_line (0 args) returns number of line in window. top line is 1. -------------------------------------------------- write_buffer : C function: int write_buffer_cmd (1 args) writes buffer to FILE. Returns number of lines written or signals error on failure. -------------------------------------------------- write_region_to_file : C function: int write_region (1 args) write region to FILE. Returns number of lines written or signals error on failure. -------------------------------------------------- write_region_to_file : C function: int write_region (1 args) write region to FILE. Returns number of lines written or signals error on failure. -------------------------------------------------- xform_region : C function: void transform_region (1 args) takes a control character (integer) as argument: 'u' upcase_region 'd' downcase_region 'c' Capitalize region anything else will change case of region -------------------------------------------------- ---------------------------------- write_region_to_file : C function: int write_region (1 args) write region to FILE. Returns number of lines written or signals error on failure. -------------------------------------------------- xform_region : C function: void transfojed-0.97.12/doc/hooks.txt000064400000000000003000000255110603742307700147350ustar00rootsys00000000000000This file documents the various hooks for extending JED. A `hook' is simply a user defined S-Lang function that may be used to extend the editor or to modify how it behaves under certain circumstances. There are two kinds of hooks that vary according to whether the hook is called ``internally'' from the editor by the underlying C code or whether the hook is called from another S-Lang routine. The hooks may be subdivided further according to their scope. They may apply to all buffers (globally), only buffers sharing the same mode (modal), or to a single buffer (local). Global Hooks. The global hooks affect all buffers. They are: 1. `command_line_hook': This hook is called from within the editor to parse the command line arguments. It is defined in the file `site.sl' and cannot be customized by the user. However, the it may be customized by the system manager. In addition to parsing the command line arguments the default value of this hook also loads the user's personal initialization file. 2. `jed_startup_hook': Although this function is defined in `site.sl', it can be changed by a user because it is called after the user initialization file is loaded. This hook is called just prior to the main editing loop of the editor. It also calls the hook `startup_hook' which may be defined by the user as a convenient way to customize `jed_startup_hook'. See `exit_hook' for an example of how this may be exploited. 3. `exit_hook': This hook is called when the intrinsic function `exit_jed' is called. Although it has no default definition does not mean that it is not useful. For example, one could use: define exit_hook() { variable ch; if (BATCH) exit_jed(); flush("Really Exit? "); ch = getkey(); if ((ch == 'Y') || (ch == 'y')) exit_jed (); error ("Aborted!"); } to confirm the exit. Note also that although `exit_jed' calls this function, `exit_hook' will not be called again if it int turn calls `exit_jed'. Also, for MSDOS it might be desirable for the editor to exit in the same directory that it started. This will work: define exit_hook() { variable dir; if (bufferp("*scratch*")) { sw2buf("*scratch*"); (,dir,,) = getbuf_info(); change_default_dir(dir); pop(); } call( "exit_jed" ); } Like many hooks, if an error is generated by the hook, the function that called it will fail and the operation will be aborted. Finally, `exit_hook' and `startup_hook' may be used together to implement a way of saving the state of the editor. A minimal implementation might be: variable Jed_State_File = dircat (getenv ("HOME"), ".jedstate"); define exit_hook () { variable file = buffer_filename (); variable cmd; if (strlen (file)) { % This is mainly for MSDOS to fix the backslash character % used for path names. file = str_quote_string (file, "\\", '\\'); cmd = Sprintf ("() = find_file (\"%s\");", file, 1); cmd = Sprintf ("%s\ngoto_line (%d); goto_column (%d);", cmd, whatline (), what_column (), 3); () = write_string_to_file (cmd, Jed_State_File); } exit_jed (); } define startup_hook () { if (1 == file_status (Jed_State_File)) { () = evalfile (Jed_State_File); () = delete_file (Jed_State_File); } } 4. `suspend_hook': This hook has no default value and is called just before suspending the editor. One might use it as a simple way of prohibiting suspension, e.g., define suspend_hook () { error ("Suspending not allowed."); } 5. `resume_hook': It is called immediately after JED resumes after being suspended. This hook is predefined only on VMS systems. This does not mean that it cannot be used on other systems as well. For example, here is a silly use define resume_hook () { message ("Welcome back!"); } but I am sure that you will think of something more clever. 6. `mode_hook': Immediately after JED loads a file into a buffer, it calls `mode_hook' to set the mode of the buffer. The default value is defined in `site.sl'. This hook is called with with the file name extension of the file as its only parameter. This function sets the mode of the buffer based on the value of the file name extension. There are several ways to customize this hook. The easiest is to simply call the function `add_mode_for_extension' with the mode that is to be associated with a particular extension. For example, suppose that you edit files with names like `main.c++'. To have `c_mode' associated with files of this type, simply call: add_mode_for_extension ("c", "c++"); The important point to realize is that the first parameter is the name of the mode but it should not include the `_mode' part of the mode name. The other way to customize mode_hook is through the function pointer `mode_hook_pointer' which the user can define to set the mode. If the function pointed to by `mode_hook_pointer' returns non-zero, `mode_hook' will return to the calling routine. Specifically, the default value of `mode_hook' looks like: define mode_hook (ext) { if (mode_hook_pointer (ext)) return; . . } One could simple point `mode_hook_pointer' to something like: define set_no_mode (ext) { return 1; } mode_hook_pointer = &set_no_mode; Typically, one would do something useful like: define my_mode_hook (ext) { if (strcmp ("pas", ext)) return 0; my_pascal_mode (); return 1; } mode_hook_pointer = &my_mode_hook; Here `my_pascal_mode' is a hypothetical pascal mode. As a final example, consider the case where one would like to set the mode based on the filename and NOT the extension. For example, the Elm mailer user files of the form `snd.XXX' and one would like to use text mode on such files. Again, the solution is to use the `mode_hook_pointer': define my_mode_hook (ext) { variable file; (file,,,) = getbuf_info (); if (0 != strncmp (file, "snd.", 4)) return 0; text_mode (); return 1; } mode_hook_pointer = &my_mode_hook; Finally, the global variable `Default_Mode' may be pointed to a function to set the mode if a suitable mode was not obtained from the extension. By default, it has the value: Default_Mode = &text_mode; 7. `find_file_hook': This hook is called after a file is read into the editor via the internal function `find_file'. It is passed the full filename of the file read into the buffer. The supplied default for this function simply looks for an autosave file and warns the user if it should be used instead. It might also be used to preprocess the buffer before the user starts to edit it. *** Note: This hook will most like be changed such that it is called beore the file is read in. 8. `format_paragraph_hook': This hook is called after a paragraph is formatted but only if the a prefix argument was given prior to the execution of the internal function `format_paragraph'. That is, the default binding of `format_paragraph' is `ESC q'. Pressing `ESC 1' immediately before pressing `ESC q' will format the paragraph and then call `format_paragraph_hook'. The default definition for this hook left and right justifies the paragraph. 9. `is_paragraph_separator': This hook is called by the editor to locate paragraph delimeters. If defined, it applies globally to all buffers except those which have a local definition (see the `par_sep' hook). The default value is coded in C and basically reduces to: define is_paragraph_separator () { bol(); if (looking_at("\\") or looking_at("%")) return (1); skip_while(); return (eolp()); } which is useful for TeX mode. The hook must simply return a non-zero value if the current line is a paragraph delimeter or zero if it is not. Mode Hooks: These are hooks that get called when the editor enters a particular mode. Usually, one just wants to defined keys. For this purpose, use the `local_setkey' function. 1. `tex_mode_hook': This hook is called when JED starts its TeX mode. Use it to bind certain functions that either have no binding or have one that you do not like, e.g., define tex_mode_hook () { local_unsetkey ("^C"); local_setkey ("latex_do_environment", "^C^E"); local_setkey (" \\alpha", "^Ca"); local_setkey (" \\Alpha", "^CA"); local_setkey (" \\Beta", "^CB"); local_setkey (" \\beta", "^Cb"); % etc... } Notice that in this hook, I have simply set keys `Ctrl-C a', etc... to insert `\alpha', etc... 2. c_mode_hook 3. fortran_hook 4. text_mode_hook 5. mail_hook A useful hook here is to defined Ctrl-C Ctrl-C to send the message al la emacs: define mail_hook () { local_unsetkey ("^C"); local_setkey ("send", "^C^C"); } 6. slang_mode_hook 7. dired_mode_hook 8. fortran_hook Local hooks: These hooks apply to individual buffers. They must be ``declared'' to the buffer using the intrinsic function `set_buffer_hook'. 1. `par_sep': function used to determine where paragraph boundaries are. See the hook `is_paragraph_separator' for more information. 2. `indent_hook': function called after a line is indented by the function `indent_line'. 3. `wrap_hook': function called after a line is wrapped. For example, in writing this document, I want the lines following the numbers to be offset some. So I wrote: define text_mode_wrap_hook () { variable p; push_spot (); go_up(1); bol (); skip_white (); p = POINT; skip_chars ("0-9"); if ((p != POINT) and looking_at (". ")) { go_down(1); bol (); skip_white (); p = what_column (); bol (); trim (); whitespace (p + 3); } pop_spot (); } In fact, I always use this in text_mode so I put in in my `text_mode_hook': define text_mode_hook () { set_buffer_hook ("wrap_hook", "text_mode_wrap_hook"); } ush_spot (); go_up(1); bol (); skip_white (); p = POINT; skip_chars ("0-9"); if ((p != POINT) and looking_at (". ")) { go_down(1); bol (); skip_white (jed-0.97.12/doc/jed_faq.txt000064400000000000003000000342470603742307700152110ustar00rootsys00000000000000Frequently Asked Questions about the JED editor. To find the answer to one of the following questions, Search for the number enclosed in <>, e.g., <3> for question 3. ---------------------------------------------------------------------------- Frequently asked questions: 1. How do I obtain JED? (ftp and email) 2. How do I disable JED's C mode. 3. What is C mode? 4. How do I turn on wrap mode or turn it off? 5. What are the differences between internal and intrinsic functions? 6. Sometimes during screen updates, JED pauses. Why is this? 7. How do I get JED to recognize Control-S and Control-Q? 8. Can I bind the Alt keys on the PC? 9. How do I find out what characters a particular key generates. 10. JED scrolls slow on my WizBang-X-Super-Terminal. What can I do about it? 11. How do I get a list of functions? 12. How can I use edt.sl with jed386.exe? ---------------------------------------------------------------------------- Answers: <1> How do I obtain JED? (ftp and email) JED is available via anonymous ftp from space.mit.edu in the pub/davis/jed directory. JED comes in three forms: jedxxx.tar.Z unix distribution for version xxx jedxxx.*_of_n n part VMS share distribution for xxx jedxxx.zip PC distribution with precompiled jed.exe All distributions are identical except that the zip file also contains a precompiled executable for PC systems. JED may also be obtained by email for those without ftp access. To learn about how to ftp using email, send email to ftpmail@pa.dec.com with the single line `help'. A message will be returned with instructions. For those on BITNET, particularly with VMS systems, Hunter Goatley has made JED available via email: To get JED via e-mail, send the following commands in the body of a mail message to FILESERV@WKUVX1.BITNET: SEND JED090 SEND FILESERV_TOOLS !Only needed if you don't have UNZIP and MFTU You can also get it via anonymous ftp from ftp.spc.edu in [.MACRO32.SAVESETS]JED090.ZIP. This distribution includes VMS .OBJs and a .EXE file that was linked under VMS V5.1. [Note that although this distribution is intended for VMS systems, it includes makefiles and sources for unix as well. However, you will need to get unzip for your unix system. --John] <2> How do I disable JED's C mode. The startup file `site.sl' contains the function `mode_hook' which is called whenever a file is loaded. This function is passed the filename extension. If a file with `c' or `h' extension is read, this function will turn on C-mode for that buffer. You could modify this function to not select C-mode. However, this is not recommended. Rather, it is recommended that you simply rebind the offending keybinding. These include: `{`, `}`, the TAB key, and the RETURN key. Simply put any or all of: "self_insert_cmd" "{" setkey "self_insert_cmd" "}" setkey "self_insert_cmd" "^I" setkey "newline" "^M" setkey in your personal startup file (jed.rc or .jedrc). Before you do this, are you sure that you really understand what C mode does? If not, please read on. <3> What is C mode? In C mode, the TAB key does not insert tabs. Instead, it runs a command called `indent_line'. It is really the quickest way to edit C code. In this mode, the TAB, RETURN, `{`, and `}' keys are special. If you edit a file called x.c, JED will invoke its C mode. Entering the 28 characters (no newline, TAB, etc...) `main (){if (x == 2){x = 4;}}' should result in: main () { if (x == 2) { x = 4; } } which would take alot more time using the TAB and NEWLINE keys. If you do not like the indentation style, you can customize it by setting the appropriate variables in jed.rc. My preference is to set the variables such that the SAME characters above yield: main () { if (x == 2) { x = 4; } } To see the use of the tab key, delete the whitespace in front of all the lines to produce: main () { if (x == 2) { x = 4; } } Now, move to any of the lines (anywhere on the line) and hit the TAB key. This should correctly indent the line to according to your preferences (i.e., the variables in jed.rc). Finally, move to one of the lines and enter `ESC ;'. This should produce a C comment. Using the C mode and the TAB key as indent_line also helps you avoid syntax errors. Basically, a line simply will not indent properly. This indicats that you left off a brace, mismatched parenthesis, etc... If you bind TAB away from indent_line, you lose some of this. Note that these same comments apply to Fortran mode. Get a files called `x.for'. You will go into fortran mode. Enter the characters: TABprogram mainRETinteger*4 iRETdo 10 i=1,3RETcall f(i)RET10continueRETend Here TAB means hit TAB and RET means hit return. This will result in: program main integer*4 i do 10 i=1,3 call f(i) 10 continue end Again, the editor has done all the work. Once you get used to this style of editing, you will not go back. Also note that this will not work if EDT is loaded. To get this functionality back, you will need to do: setkey("indent_line_cmd", "^I"); setkey("newline_and_indent_cmd", "^M"); AFTER edt.sl is loaded. <4> How do I turn on wrap mode or turn it off? Normally, this is done automatically when JED loads a file with extensions .txt, .doc, etc... See question 2 for a discussion of how this is done. To turn on wrap mode for the current buffer, simply press Escape-X and enter: text_mode at the prompt. To turn it off, you must change the mode to something else. A fairly generic choice is the `no_mode' mode. To do this, press Escape-X and enter: no_mode at the prompt. It is easy to write a function to toggle the mode for you that can be bound to a key. This one (toggle_wrapmode) will work: define toggle_wrapmode () { variable mode, modestr; (modestr, mode) = whatmode (); if (mode & 1) % test wrap bit mode = mode & ~(1); % wrap bit on so mask it off else mode = mode | 1; % wrap bit off so set it. setmode (modestr, mode); } <5> What is the difference between internal and intrinsic functions? An intrinsic function is a function that is directly callable from S-Lang while an internal function cannot. However, internal functions can be called indirectly through the use of the intrinsic function `call'. For example, consider the internal function `self_insert_cmd'. Most typing keys are bound to this function and cause the key to be directly inserted into the buffer. Consider the effect of this. After a character to be inserted is received by JED, the buffer is updated to reflect its insertion. Then the screen is updated. Here lies the essential difference between the two types of functions. If the screen was in sync before the insertion, JED can simply put the terminal in insert mode, send out the character and take the terminal back out of insert mode. However, this requires knowing the state of the screen. If called from a S-Lang routine, all bets are off. Since the screen update is not performed until after any S-Lang function has returned to JED, the buffer and the screen will almost always be out of sync with respect to one another and a full screen update will have to be performed. But this is very costly to have to do for every insertion. Hence, JED makes a distinction between the two types of functions by making the most common ones internal. The upshot is this: intrinsic functions will cause a full screen update while internal ones may not. <6> Sometimes during screen updates, JED pauses. Why is this? Since version 0.91, JED checks the baud rate and tries to output characters based on reported rate. JED will literally sleep when outputting many characters if the reported baud rate is small. One should first check to see that terminal driver has the baud rate set appropriately. On Unix, this is done by typing `stty -a' at the shell prompt. If setting the baud rate to the correct value does not help, set the internal global variable `OUTPUT_RATE' to zero. This is achived by uncommenting the line referring to OUTPUT_RATE in the jed.rc initialization file. If there is still a problem, contact me. <7> How do I get JED to recognize Control-S and Control-Q? Many systems use ^S/^Q for flow control--- the so-called XON/XOFF protocol which is probably the reason JED does not see either of these two characters. Perhaps the most portable solution to this problem is to simply avoid using ^S and ^Q altogether. This may require the user to rebind those those functions that have key bindings composed of these characters. JED is able to enable or disable flow control on the system that it is running. This may be done by putting the line: enable_flow_control (0); % turn flow control off in your .jedrc file. Using a value of 1 turns flow control on. Another solution is to use the `map_input' function to map a different key to ^S (and ^Q). For example, one might simply choose to map ^\ to ^S and ^^ (Control-^) to ^Q. To do this, simply put: map_input (28, 19); % ^\ --> ^S map_input (30, 17); % ^^ --> ^Q in your .jedrc (jed.rc) file. <8> Can I bind the Alt keys on the PC? Yes. The ALT keys return a two character key sequence. The key sequence for a particular ALT key as well as other function keys are listed in the file `pc-keys.txt'. Many users simply want to use the ALT key as a Meta Character. To have JED interpret ALT-X as ESC-X, put ALT_CHAR = 27; int your jed.rc file. Here `X' is any key. <9> How do I find out what characters a particular key generates? The easiest way is to use the quoted insert function. By default, this is bound to the backquote (`) key. Simply switch to the `*scratch*' buffer, press the backquote key followed by the key in question. The key sequence will be inserted into the buffer. This exploits the fact that most multi-character key sequences begin with the ESC character followed one or more printable characters. If this fails, the following function will suffice: define insert_this_key () { variable c; pop2buf ("*scratch*"); eob (); message ("Press key:"); update (1); forever { c = getkey (); if (c == 0) insert("^@"); else insert (char (c)); !if (input_pending (3)) break; } } Simply type it into the scratch buffer, press ESC-X and type `evalbuffer'. Then, to use the function, press ESC-X again and enter `insert_this_key'. <10> JED scrolls slow on my WizBang-X-Super-Terminal. What can I do about it? On Unix, JED uses termcap (terminfo) and the value of the TERM environment variable. Chance are, even though you are using an expansive state of the art terminal, you have told unix it is a vt100. Even if you have set the TERM variable to the appropriate value for you terminal, the termcap file may be missing entries for your ``WizBang'' features. This is particularly the case for Ultrix systems--- the vt102, vt200, and vt300 termcap entries are missing the AL and DL termcap flags. In fact, the Ultrix man page for termcap does not even mention these capabilities! JED is able to compensate for missing termcap entries only for vtxxx terminals. If your terminal is a fancy vtxxx terminal, put the line: set_term_vtxxx (0); in your .jedrc file. <11> How do I get a list of functions? Help on any documented function is available by pressing `Ctrl-H f' and entering the function name at the prompt. If you simply hit return, you will get the documentation for all functions. ------------------------------------------------------------------------------- This is a useful function used to maintain numbers in this faq. define faq_fix () { variable n; n = 1; bob(); bol_fsearch("---------------"); pop(); % always found push_mark(); bol_fsearch("-------------"); pop(); narrow(); bob(); while (re_fsearch("^[0-9]+\\.")) { replace_match (strcat(string(n), "."), 1); pop(); ++n; } widen(); n = 1; while (re_fsearch("^<[0-9]+>")) { replace_match (Sprintf("<%d>", n, 1), 1); pop(); ++n; } } <12> How can I use edt.sl with jed386.exe? The basic problem is the current generation of the 32 bit compiler (DJGPP) used to generate jed386.exe cannot handle the hardware keyboard interrupt used to remap the numeric keypad. Nevertheless, it is possible to use edt.sl with jed386. However, the function keys, F1 to F10 must be used for the EDT keypad. The remapping is as follows: VT100 Keys IBM Function On the Numeric Keypad ------------------------- ------------------------- | F1 | F2 | F3 | F4 | | PF1 | PF2 | PF3 | PF4 | |-----+-----+-----+-----| |-----+-----+-----+-----| | F5 | F6 | F7 | F8 | | 7 | 8 | 9 | - | |-----+-----+-----+-----| |-----+-----+-----+-----| | F9 | F10 | F11 | F12 | | 4 | 5 | 6 | , | |-----+-----+-----+-----| |-----+-----+-----+-----| | SF1 | SF2 | SF3 | SF4 | | 1 | 2 | 3 | | |-----------+-----|-----| |-----------+-----|ENTER| | SF5 | SF6 | SF7 | SF8 | | 0 | . | | ------------------------- ------------------------- Here, SF1 means SHIFT-F1, etc... <13> How do I set custom tab stops in jed? Put something like: variable Tab_Stops; Tab_Stops = create_array('i', 20, 1); %% The following defines the tab stops to be 8 column: _for (0, 19, 1) { =$1; Tab_Stops[$1] = $1 * 8 + 1; } in your jed.rc. To individually set them, do: Tab_Stops[0] = 4; Tab_Stops[1] = 18; etc... | . | | ------------------------- ------------------------- Here, SF1 means SHIFT-F1, etc... <13> How do I set custom tab stops in jed? Put something like: variable Tab_Stops; Tab_Stops = create_array('i', 20, 1); %% The following defines the tab stops to be 8 column: _for (0, 19, 1jed-0.97.12/doc/mouse.txt000064400000000000003000000152070603742310000147260ustar00rootsys00000000000000Using a mouse with Jed and XJed =============================== Jed provides native support for a mouse on the following systems: 1. A Linux console running the GPM server. This server is a replacement for the `selection' program. It is available from sunsite.unc.edu:/pub/Linux/system/Daemons/gpm-0.97.tar.gz 2. MSDOS 3. XJed Later, OS/2 support will be added. In addition to ``native'' mouse support, JED is able to interact with a mouse using the `XTerm Event Protocol'. Support for this protocol is available when running JED in an XTerm as well as interacting with JED from an MSDOS terminal emulator, e.g., MS-Kermit, using the PCMOUSE TSR. This docuument is divided into two sections. The first section describes native mouse support (Linux, MSDOS, XJed) and the second section describes the support for the XTerm Event Protocol. ============================================================================== Native Mouse Support ============================================================================== The S-Lang file jed/lib/mouse.sl provides a user interface to the mouse. It can only be loaded for systems which provide native support for the mouse. Currently this includes MSDOS, Linux console, and XJed. This file is automatically loaded from os.sl when JED is started up. (See os.sl for how this is accomplished). Once this file has been loaded, the mouse buttons behave as described below. This interface assumes the presence of a three button mouse. Unfortunately, in the MSDOS world, two button mice are are quite common. Nevertheless, JED is able to emulate a three button mouse by using the ALT key. Any button pressed in combination with the ALT key is considered to be the MIDDLE mouse button. For example, to get the effect of pressing Ctrl-Middle, hold down on the ALT and Ctrl key while pressing any mouse button. Clicking in a window -------------------- Left Move cursor to the mouse point crossing windows if necessary. If the button is held down and the mouse is dragged, a region will be highlighted and then copied to the cutbuffer when the button is released. Middle Paste from the system cut buffer to the position of the mouse point crossing windows if necessary. Right Copy the region between the cursor and the mouse point to the cut buffer. The region is not deleted. If the button is held down and the mouse is dragged, a new region will be defined and copied to the cut buffer. Shift Left Split the window that the mouse is in. Shift Middle Insert contents of the last JED mouse copy or kill. This function may be identical to simply clicking on the middle button without using the shift key on non-X systems. Control Left Delete window mouse is in. Control Right Kill the region between the cursor and the mouse point copying it to the cut buffer in the process. Other buttons combinations are undefined. Clicking on a window status line -------------------------------- Left Switch to next buffer. Middle Split the window. Right: Delete the window For example, one can quickly move from one buffer to the next by simply clicking on the status line with the left mouse button. Tips for using the mouse ------------------------- 1. To quicky move the cursor to another location, simply point the mouse at that spot and click the LEFT mouse button. 2. To copy a region for subsequent pasting, move the mouse to the beginning of the region and click the LEFT mouse button. Now move to the end of the region and click the RIGHT mouse button. 3. To cut a region and put it in the paste buffer, move to the beginning of the region by pressing the LEFT mouse button. Now move to the mouse to the end of the region, then hold down on the Ctrl key and press the RIGHT mouse button. ============================================================================== XTerm Event Support ============================================================================== Xterm event support is provided by not only Xterm but also the Linux console running the `selection' program. Only versions 1.6 and greater of selection provide this support. In addition, one must be using a recent Linux kernel (1.1.35 or newer.) Please note that the selection program is considered obsolete and should be replaced by the GPM mouse server. Installation ============= To enable JED to use this mouse support, the following steps must be performed: 1. Make sure you have the appropriate version of selection and the Linux kernel installed. 2. Put the following on your .jedrc file: evalfile ("mousex"); pop (); The file `mousex.sl' creates three hooks: `exit_hook', `suspend_hook', and `resume_hook'. If you have already defined these hooks for yourself, look at `mousex.sl' and modify your hooks appropriately. These hooks are necessary so that the `selection' state can be properly initialized and restored. Mouse Usage =========== Left Button: ------------ If the left button is clicked on the status line of a window, the window will switch to a different buffer. If the button is pressed anywhere else in the window, the cursor will be positioned at the location of the click. Middle Button: ------------- On status line: split the window Anywhere else: If the region is highlighted, the region will be copied to the pastebuffer. This does not delete the region. Otherwise, the editing point will be moved to the location of the mouse and any contents in the pastebuffer will be pasted there. Right Button: ------------- On status line: delete the window. Anywhere else: If a region is highlighted, it will be deleted and a copy put in the pastebuffer. Otherwise, the mark is set and a region will be defined. Cut/Paste Tips: To mark and manipulate a region do: 1. Click the LEFT mouse button at the beginning of the region. 2. Move the mouse to the end of the region and click the RIGHT mouse button. The region should now be marked. 3. To delete it and copy it to the paste buffer, press the RIGHT button again. To simply copy it without deleting it, press the MIDDLE button. 4. To paste from the pastebuffer, move the mouse to where you want to paste and press the MIDDLE button. d manipulate a region do: 1. Click the LEFT mouse button at the beginning of the region. 2. Move the mouse to the end of the region and click the RIGHT mouse button. The region should now be marked. 3. To delete it and copy it to the paste buffer, press the RIGHT button again. To simply copy it without deleting it, press the MIDDLE button. 4. Tojed-0.97.12/doc/pc-keys.txt000064400000000000003000000072020603742310000151450ustar00rootsys00000000000000%% Key codes returned for most Alt keys and Control-keypad keys %% The ALT key definitions assume that the global variable ALT_CHAR is 0. %% example: define Alt-1 to goto top of buffer (bob): %% %% setkey ("bob", "^@x"); %% %% For other keys, use this function to find out what they represent: %% define ibmpc_showkey() { variable c, ch, key = Null_String; variable timeout = 50; % 5 seconds flush ("Press key:"); while (input_pending(timeout)) { timeout = 0; c = getkey(); if (c == 0) ch = "^@"; else { if (c == 224) ch = "\\xE0"; else if (c > 127) ch = strcat ("\\d", string (c)); else ch = char (c); } key = strcat(key, ch); } % insert (key); message (key); } % Alt-1 ^@x % Alt-2 ^@y % Alt-3 ^@z % Alt-4 ^@{ % Alt-5 ^@| % Alt-6 ^@} % Alt-7 ^@~ % Alt-8 ^@ % Alt-A ^@^^ % Alt-B ^@0 % Alt-C ^@. % Alt-D ^@ SPACE % Alt-E ^@^R % Alt-F ^@! % Alt-G ^@\" % Alt-H ^@# % Alt-I ^@^W % Alt-J ^@$ % Alt-K ^@% % Alt-L ^@& % Alt-M ^@2 % Alt-N ^@1 % Alt-O ^@^X % Alt-P ^@^Y % Alt-Q ^@^P % Alt-R ^@^S % Alt-S ^@^_ % Alt-T ^@^T % Alt-U ^@^V % Alt-V ^@/ % Alt-W ^@^Q % Alt-X ^@- % Alt-Y ^@^U % Alt-Z ^@, % % These are the 6 keys on the small keypad + 4 Arrow keys below % Key No-modifier Ctrl Shift Alt % ------------------------------------------------------------- % End \xE0O \xE0u \xE0O ^@\d159 % Insert \xE0R \xE0\d146 \xE0R ^@\d162 % Home \xE0G \xE0w \xE0G ^@\d151 % Delete \xE0S \xE0\d147 \xE0S ^@\d163 % PgUp \xE0I \xE0\d132 \xE0I ^@\d153 % PgDn \xE0Q \xE0v \xE0Q ^@\d161 % Left \xE0K \xE0s \xE0K ^@\d155 % Right \xE0M \xE0t \xE0M ^@\d157 % Up \xE0H \xE0\d141 \xE0H ^@\d152 % Down \xE0P \xE0\d145 \xE0P ^@\d160 % These keys are located on the numeric keypad % Key No-modifier Ctrl Shift Alt % ------------------------------------------------------------- % End Oq ^@u % Insert Op ^@\d146 % Home Ow ^@w % Delete On ^@\d147 % PgUP Oy ^@\d132 % PgDn Os ^@v % Left Ot ^@s % Right Ov ^@t % Up Ox ^@\d141 % Down Or ^@\d145 % Five Ou ^@\d143 % Slash OQ ^@\d149 OQ ^@\d164 % Star OR ^@\d150 OR ^@7 % Minus OS ^@\d142 OS ^@J % Plus Om ^@\d144 Om ^@N % Enter OM OM ^@\d166 % % % Key No-modifier Ctrl Shift Alt % ------------------------------------------------------------- % F1: ^@; ^@^ ^@T ^@h % F2: ^@< ^@_ ^@U ^@i % F3: ^@= ^@` ^@V ^@j % F4: ^@> ^@a ^@W ^@k % F5: ^@? ^@b ^@X ^@l % F6: ^@@ ^@c ^@Y ^@m % F7: ^@A ^@d ^@Z ^@n % F8: ^@B ^@e ^@[ ^@o % F9: ^@C ^@f ^@\ ^@p % F10: ^@D ^@g ^@] ^@q % F11: ^@\d133 ^@\d137 ^@\d135 ^@\d139 % F12: ^@\d134 ^@\d136 ^@\d136 ^@\d140 ^@W ^@k % F5: ^@? ^@b ^@X ^@l % F6: ^@@ ^@c ^@Y ^@m % F7: ^@A ^@d ^@Z ^@n % F8: ^@B ^@e ^@[ ^@o % F9: ^@C ^@f ^@\ ^@p % F10: ^@D ^@g ^@] ^@q jed-0.97.12/doc/program.txt000064400000000000003000000133620603742310000152450ustar00rootsys00000000000000This document provides some tips for writing better and more efficient S-Lang code. It is not meant to be a tutorial on S-Lang. Writing Fast Routines ===================== The first thing that one must realize is that S-Lang is an interpreted language and runs much slower than a compiled language. This fact can be used to justify a rule of thumb that may be used to gauge the speed of a S-Lang expression: Rule of Thumb: All single token intrinsic statements and expressions run at the same speed. The phrase ``intrinsic statements and expressions'' includes not only intrinsic functions but also assignment operations as well as pushing an object on the stack. For example, consider the expression: n = down (20); This expression consists of the operation of pushing `20' onto the stack followed by calling the intrinsic function `down' and assigning it to `n'. It is easiest to see this using the RPN form: . 20 down =n (Remember, all RPN expressions must lie on lines that begin with a period.). From the above rule of thumb, this expression executes at a speed of 3 units. Now consider something more tricky. Consider the expression: n = n + 1; It also executes in 3 units of time. This is equivalent to: n++; However, `n++' is a single token and executes in 1 unit of time! So, the rule is that one should try to use the `++' and `--' forms whenever possible. The same statement is true for the `+=' and `-=' operators. The statement: n += 1; parses to two tokens: . 1 +=n; and executes in 2 units. Note that n++; n++; also achieves the effect `n = n + 2' but executes in 2 units as well. * Note: These special forms are currently limited for integers and do not work with variables that represent floating point values. At this point, it should be clear that the code that executes the fastest is the code that contains the least number of tokens. However, this is only partially true and only holds for expressions that do not call other S-Lang functions. As an example, consider the recursive function below: define fib (); % definition required for recursion define fib(n) { if (n == 0) return(0); if (n == 1) return(1); return fib(n - 1) + fib(n - 2); } The first thing to do is to change if (n == 0) return 0; to !if (n) return 0; since the expression `n == 0' executes in 3 units and `n' executes in only 1. Similarly, the statement: if (n == 1) return 1; may be written: n--; !if (n) return 1; with the side effect that n is reduced by 1 in the process. But that is a good thing because we can then modify: return fib (n - 1) + fib (n - 2); to: return fib(n) + fib (n - 1); Actually, we can do better than that. We can write `n - 1' which executes in 3 units to the equivalent expression `n--, n' that executes in 2 units to produce: return fib (n) + fib (n--, n); Here the fact that `n--' does not affect the stack makes this possible. Finally, we are left with: define fib (n) { !if (n) return 0; n--; !if (n) return 1; return fib(n) + fib (n--, n); } Simply counting tokens (if, !if, fib, n, ==, 1, -, etc...) shows that the unoptimized version has 19 whereas the optimized version has 12. Applying the rule of thumb to this suggests that the optimized version should run 19/12 times faster! The reader is encouraged to compare the speed of the first version of `fib' with the optimized version to verify that this is indeed the case (use something like fib(25)). Here is a brief summary of what to do to squeeze extra speed out of S-Lang: 1. Use the `++', `--', `+=', and `-=' forms wherever possible. 2. Eliminate `if (something == 0)' in favor of `!if (something)' 3. Avoid `while(1)' and use `forever' instead. 4. For simple looping a fixed number of times use `loop'. 5. If you have something like: for (i = imin; i <= imax; i += di) { ... } replace it by the MUCH faster and smaller version _for (imin, imax, di) { i = (); . . } 6. For multiplication by 2 use the `mul2' function. 7. To square a number, do not use `x * x'. Use `sqr(x)'. Writing Memory Efficient Routines ================================= In the previous section, it was emphasized that routines that use the least number of tokens are the fastest. Since they use the smallest number of tokens, they take up less space and and are more memory efficient. Avoid the use of literal strings wherever possible. Strings take up more memory than variables assigned to strings. For example, define silly () { if (file_exists ("my_file.txt")) rename ("my_file.txt", "my_file.old"); else create ("my_file.txt"); } should be written: define silly () { variable file = "my_file.txt"; if (file_exists (file)) rename (file, "my_file.old"); else create (file); } Similarly, when working with strings with 1 character, e.g., "a", if possible, use routines that work with characters instead. For example, instead of using: insert ("a"); if (looking_at ("a")) ... use: insert_char ('a'); if (looking_at_char ('a')) ... Finally, never use `""'; use `Null_String' instead. ile = "my_file.txt"; if (file_exists (file)) rename (file, "my_file.old"); else create (file); } Similarly, when working with strings with 1 character, e.g., "a", if possible, use routines that work with characters instead. For exjed-0.97.12/doc/rgrep.doc000064400000000000003000000024020603742310000146340ustar00rootsys00000000000000This file documents rgrep, a recursive, highlighting grep program. Currently, rgrep is only available on Unix systems. To build it, move to the src directory for JED and enter: `make rgrep'. Why use rgrep instead of more traditional Unix tools? ------------------------------------------------------ Unlike grep and egrep, rgrep has the ability to recursively descend directories. The traditional way of performing this kind of search on Unix systems utilizes the `find' command in conjunction with `grep'. However, this results in very poor performance. Consider the tradional approach where one wants to search the /usr/include directory for the string `FD_SET': For this, one would use: % find /usr/include -exec grep -l FD_SET \{\} \; -print Ignoring the fact that the above expression looks complex, it failed to find any occurence of FD_SET under the /usr/include directory of my Ultrix system. Now, if rgrep is used, one types: % rgrep -lFr FD_SET /usr/include which yielded: /usr/include/sys/types.h The reason that `find' failed is that /usr/include/sys is a symbolic link to /sys/h. `rgrep' was able to succeed because of the `-F' flag which telles it to follow links. I looked in the man page for a similar option for `find' but nothing turned up. t that the above expression looks complex, it failed to find any occurence of FD_SET under the /usr/include directory of my Ultrix system. Now, if rgrep is used, one types: % rgrep -lFr FD_SET /usr/include which yielded: /usr/include/sys/types.h Thjed-0.97.12/doc/rmail.txt000064400000000000003000000064110603742310000146770ustar00rootsys00000000000000Information about the JED rmail reader. JED is able to read mail with proper file locking as long as the system mail spool directory is writable. That is, /usr/spool/mail should be writable (some systems use /var/spol/mail). This requirement is fulfilled for most systems. To install rmail, you must first create the executable `getmail'. After building JED, simply type `make getmail'. Move the resulting executable to JED_ROOT/bin. Add the following to your .jedrc file: autoload ("rmail", "rmail"); add_completion("rmail"); Mail is moved (with locking) from the spool directory to a directory $HOME/Mail. This directory is created if it does not exist. JED will then parse the new mail and moved individual messages to the directory $HOME/Mail/NewMail. Future versions will compress the new mail. JED then parses the headers of the new mail and creates a file called $HOME/Mail/NewMail.index. JED uses this index to manage files in the NewMail folder. Similar statements apply to new folders. JED will then show a window containing the index. It may look like: 4 12-Dec R Darrel R Hankerson " visits Texinfo topic, etc. --- PLEASE ADD DOCUMENTATION TO THIS TREE. (See INFO topic first.) --- * Menu: The list of major topics begins on the next line. * Info: (info). Documentation browsing system. (From GNU Emacs) * JED: (jed). JED editor documentation. * Latex: (latex). latex p This is the top of the INFO tree This (the Directory node) gives a menu of major topics. Typing "d" returns here, "q" exits, "?" lists all INFO commands, "h" gives a primer for first-timers, "mTexinfo" visits Texinfo topic, etc. --- PLEASE ADD DOCUMENTATION TO THIS TREE. (See INFO topic first.) --- * Mejed-0.97.12/info/info.info000064400000000000003000000652170603742310100150420ustar00rootsys00000000000000This file documents the Info program. -*-Text-*- The H command of Info goes to the node Help in this file. I have borrowed it from the GNU emacs distribution.  File: info Node: Top Up: (DIR) Next: Expert Info is a program for reading documentation, which you are using now. To learn how to use Info, type the command "h". It will bring you to a programmed instruction sequence. * Menu: * Expert:: Advanced Info commands: g, s, e, and 1 - 5. * Add:: Describes how to add new nodes to the hierarchy. Also tells what nodes look like. * Menus:: How to add to or create menus in Info nodes. * Cross-refs:: How to add cross-references to Info nodes. * Tags:: How to make tag tables for Info files. * Checking:: How to check the consistency of an Info file. * Texinfo: (texinfo). How to generate an Info file and a printed manual from the same source file.  File: info Node: Help-Small-Screen Next: Help Since your terminal has an unusually small number of lines on its screen, it is necessary to give you special advice at the beginning. If you see the text "--All----" at near the bottom right corner of the screen, it means the entire text you are looking at fits on the screen. If you see "--Top----" instead, it means that there is more text below that does not fit. To move forward through the text and see another screen full, press the Space bar. To move back up, press the key labeled Rubout or Delete or DEL. Here are 40 lines of junk, so you can try Spaces and Rubout and see what they do. At the end are instructions of what you should do next. This is line 17 This is line 18 This is line 19 This is line 20 This is line 21 This is line 22 This is line 23 This is line 24 This is line 25 This is line 26 This is line 27 This is line 28 This is line 29 This is line 30 This is line 31 This is line 32 This is line 33 This is line 34 This is line 35 This is line 36 This is line 37 This is line 38 This is line 39 This is line 40 This is line 41 This is line 42 This is line 43 This is line 44 This is line 45 This is line 46 This is line 47 This is line 48 This is line 49 This is line 50 This is line 51 This is line 52 This is line 53 This is line 54 This is line 55 This is line 56 If you have managed to get here, go back to the beginning with Rubout, and come back here again, then you understand Space and Rubout. So now type an "n"--just one character; don't type the quotes and don't type a Return afterward-- to get to the normal start of the course.  File: info Node: Help Next: Help-P Previous: Help-Small-Screen You are talking to the program Info, for reading documentation. Right now you are looking at one "Node" of Information. A node contains text describing a specific topic at a specific level of detail. This node's topic is "how to use Info". The top line of a node is its "header". This node's header (look at it now) says that it is the node named "Help" in the file "info". It says that the Next node after this one is the node called "Help-P". An advanced Info command lets you go to any node whose name you know. Besides a "Next", a node can have a "Previous" or an "Up". This node has a "Previous" but no "Up", as you can see. Now it's time to move on to the Next node, named "Help-P". >> Type "n" to move there. Type just one character; don't type the quotes and don't type a Return afterward. ">>" in the margin means it is really time to try a command.  File: info Node: Help-P Next: Help-^L Previous: Help This node is called "Help-P". The "Previous" node, as you see, is "Help", which is the one you just came from using the "N" command. Another "N" command now would take you to the Next node, "Help-^L". >> But don't do that yet. First, try the "p" command, which takes you to the Previous node. When you get there, you can do an "n" again to return here. This all probably seems insultingly simple so far, but DON'T be led into skimming. Things will get more complicated soon. Also, don't try a new command until you are told it's time to. Otherwise, you may make Info skip past an important warning that was coming up. >> Now do an "n" to get to the node "Help-^L" and learn more.  File: info Node: Help-^L Next: Help-M Previous: Help-P Space, Rubout, B and ^L commands. This node's header tells you that you are now at node "Help-^L", and that "P" would get you back to "Help-P". The line starting "Space," is a "Title", saying what the node is about (most nodes have titles). This is a big node and it doesn't all fit on your display screen. You can tell that there is more that isn't visible because you can see the string "--Top-----" rather than "--All-----" near the bottom right corner of the screen. The Space, Rubout and B commands exist to allow you to "move around" in a node that doesn't all fit on the screen at once. Space moves forward, to show what was below the bottom of the screen. Rubout moves backward, to show what was above the top of the screen (there isn't anything above the top until you have typed some spaces). >> Now try typing a Space (afterward, type a Rubout to return here). When you type the space, the two lines that were at the bottom of the screen appear at the top, followed by more lines. Rubout takes the two lines from the top and moves them to the bottom, USUALLY, but if there are not a full screen's worth of lines above them they may not make it all the way to the bottom. If you type a Space when there is no more to see, it will ring the bell and otherwise do nothing. The same goes for a Rubout when the header of the node is visible. If your screen is ever garbaged, you can tell Info to print it out again by typing C-l (Control-L, that is--hold down "Control" and type an "L" or "l"). >> Type C-l now. To move back to the beginning of the node you are on, you can type a lot of Rubouts. You can also type simply "b" for beginning. >> Try that now. (I have put in enough verbiage to make sure you are not on the first screenful now). Then come back, with Spaces. You have just learned a considerable number of commands. If you want to use one but have trouble remembering which, you should type a "?" which will print out a brief list of commands. When you are finished looking at the list, make it go away by typing a Space. >> Type a "?" now. After it finishes, type a Space. From now on, you will encounter large nodes without warning, and will be expected to know how to use Space and Rubout to move around in them without being told. Since not all terminals have the same size screen, it would be impossible to warn you anyway. >> Now type "n" to see the description of the "m" command.  File: info Node: Help-M Next: Help-Adv Previous: Help-^L Menus and the "m" command With only the "n" and "p" commands for moving between nodes, nodes are restricted to a linear sequence. Menus allow a branching structure. A menu is a list of other nodes you can move to. It is actually just part of the text of the node formatted specially so that Info can interpret it. The beginning of a menu is always identified by a line which starts with "* Menu:". A node contains a menu if and only if it has a line in it which starts that way. The only menu you can use at any moment is the one in the node you are in. To use a menu in any other node, you must move to that node first. After the start of the menu, each line that starts with a "*" identifies one subtopic. The line will usually contain a brief name for the subtopic (followed by a ":"), the name of the node that talks about that subtopic, and optionally some further description of the subtopic. Lines in the menu that don't start with a "*" have no special meaning - they are only for the human reader's benefit and do not define additional subtopics. Here is an example: * Foo: FOO's Node This tells about FOO The subtopic name is Foo, and the node describing it is "FOO's Node". The rest of the line is just for the reader's Information. [[ But this line is not a real menu item, simply because there is no line above it which starts with "* Menu:".]] When you use a menu to go to another node (in a way that will be described soon), what you specify is the subtopic name, the first thing in the menu line. Info uses it to find the menu line, extracts the node name from it, and goes to that node. The reason that there is both a subtopic name and a node name is that the node name must be meaningful to the computer and may therefore have to be ugly looking. The subtopic name can be chosen just to be convenient for the user to specify. Often the node name is convenient for the user to specify and so both it and the subtopic name are the same. There is an abbreviation for this: * Foo:: This tells about FOO This means that the subtopic name and node name are the same; they are both "Foo". >> Now use Spaces to find the menu in this node, then come back to the front with a "b". As you see, a menu is actually visible in its node. If you can't find a menu in a node by looking at it, then the node doesn't have a menu and the "m" command is not available. The command to go to one of the subnodes is "m" - but DON'T DO IT YET! Before you use "m", you must understand the difference between commands and arguments. So far, you have learned several commands that do not need arguments. When you type one, Info processes it and is instantly ready for another command. The "m" command is different: it is incomplete without the NAME OF THE SUBTOPIC. Once you have typed "m", Info tries to read the subtopic name. Now look for the line containing many dashes near the bottom of the screen. There is one more line beneath that one, but usually it is blank If it is empty, Info is ready for a command, such as "n" or "b" or Space or "m". If that line contains text ending in a colon, it mean Info is trying to read the ARGUMENT to a command. At such times, commands won't work, because Info will try to use them as the argument. You must either type the argument and finish the command you started, or type Control-g to cancel the command. When you have done one of those things, the line will become blank again. The command to go to a subnode via a menu is "m". After you type the "m", the line at the bottom of the screen says "Menu item: ". You must then type the name of tye subtopic you want, and end it with a Return. You can abbreviate the subtopic name. If the abbreviation is not unique, the first matching subtopic is chosen. Some menus will put the shortest possible abbreviation for each subtopic name in capital letters, so you can see how much you need to type. It does not matter whether you use upper case or lower case when you type the subtopic. You should not put any spaces at the end, or inside of the item name, except for one space where a space appears in the item in the menu. Here is a menu to give you a chance to practice. * Menu: The menu starts here. This menu givs you three ways of going to one place, Help-FOO. * Foo: Help-FOO A node you can visit for fun * Bar: Help-FOO Strange! two ways to get to the same place. * Help-FOO:: And yet another! >> Now type just an "m" and see what happens: Now you are "inside" an "m" command. Commands can't be used now; the next thing you will type must be the name of a subtopic. You can change your mind about doing the "m" by typing Control-g. >> Try that now; notice the bottom line clear. >> Then type another "m". >> Now type "BAR", the item name. Don't type Return yet. While you are typing the item name, you can use the Rubout character to cancel one character at a time if you make a mistake. >> Type one to cancel the "R". You could type another "R" to replace it. You don't have to, since "BA" is a valid abbreviation. >> Now you are ready to go. Type a Return. After visiting Help-FOO, you should return here. >> Type "n" to see more commands.  File: info Node: Help-FOO Up: Help-M The "u" command Congratulations! This is the node Help-FOO. Unlike the other nodes you have seen, this one has an "Up": "Help-M", the node you just came from via the "m" command. This is the usual convention-- the nodes you reach from a menu have Ups that lead back to the menu. Menus move Down in the tree, and Up moves Up. Previous, on the other hand, is usually used to "stay on the same level but go backwards". You can go back to the node Help-M by typing the command "u" for "Up". That will put you at the FRONT of the node - to get back to where you were reading you will have to type some Spaces. >> Now type "u" to move back up to Help-M.  File: info Node: Help-Adv Next: Help-Q Previous: Help-M Some advanced Info commands The course is almost over, so please stick with it to the end. If you have been moving around to different nodes and wish to retrace your steps, the "l" command ("l" for "last") will do that, one node at a time. If you have been following directions, an "l" command now will get you back to Help-M. Another "l" command would undo the "u" and get you back to Help-FOO. Another "l" would undo the M and get you back to Help-M. >> Try typing three "l"'s, pausing in between to see what each "l" does. Then follow directions again and you will end up back here. Note the difference between "l" and "p": "l" moves to where YOU last were, whereas "p" always moves to the node which the header says is the "Previous" node (from this node, to Help-M). The "d" command gets you instantly to the Directory node. This node, which is the first one you saw when you entered Info, has a menu which leads (directly, or indirectly through other menus), to all the nodes that exist. >> Try doing a "d", then do an "l" to return here (yes, DO return). Sometimes, in Info documentation, you will see a cross reference. Cross references look like this: *Note Cross: Help-Cross. That is a real, live cross reference which is named "Cross" and points at the node named "Help-Cross". If you wish to follow a cross reference, you must use the "f" command. The "f" must be followed by the cross reference name (in this case, "Cross"). You can use Rubout to edit the name, and if you change your mind about following any reference you can use Control-g to cancel the command. Completion is available in the "f" command; you can complete among all the cross reference names in the current node. >> Type "f", followed by "Cross", and a Return. To get a list of all the cross references in the current node, you can type "?" after an "f". The "f" continues to await a cross reference name even after printing the list, so if you don't actually want to follow a reference you should type a Control-g to cancel the "f". >> Type "f?" to get a list of the footnotes in this node. Then type a Control-g and see how the "f" gives up. >> Now type "n" to see the last node of the course.  File: info Node: Help-Cross This is the node reached by the cross reference named "Cross". While this node is specifically intended to be reached by a cross reference, most cross references lead to nodes that "belong" someplace else far away in the structure of Info. So you can't expect the footnote to have a Next, Previous or Up pointing back to where you came from. In general, the "l" (el) command is the only way to get back there. >> Type "l" to return to the node where the cross reference was.  File: info Node: Help-Q Previous: Help-Adv Up: Top To get out of Info, back to what you were doing before, type "q" for "Quit". This is the end of the course on using Info. There are some other commands that are not essential or meant for experienced users; they are useful, and you can find them by looking in the directory for documentation on Info. Finding them will be a good exercise in using Info in the usual manner. >> Type "d" to go to the Info directory node; then type "mInfo" and Return, to get to the node about Info and see what other help is available.  File: info, Node: Expert, Up: Top, Previous: Top, Next: Add Some Advanced Info Commands ("g", "s", "1" - "5", and "e"). If you know a node's name, you can go there by typing "g", the name, and Return. Thus, "gTop" would go to the node called Top in this file (its directory node). "gExpert" would come back here. Unlike "m", "g" does not allow the use of abbreviations. To go to a node in another file, you can include the filename in the node name by putting it at the front, in parentheses. Thus, "g(dir)Top" would go to the Info Directory node, which is node Top in the file dir. The node name "*" specifies the whole file. So you can look at all of the current file by typing "g*" or all of any other file with "g(FILENAME)". The "s" command allows you to search a whole file for a string. It will switch to the next node if and when that is necessary. You type "s" followed by the string to search for, terminated by Return. To search for the same string again, just "s" followed by Return will do. The file's nodes will be scanned in the order they are in in the file, which has no necessary relationship to the order that they may be in in the tree structure of menus and next's. But normally the two orders will not be far different. In any case, you can always do a "b" to find out what node you have reached, if the header isn't visible (this can happen, because "S" puts your cursor at the occurrence of the string, not at the beginning of the node). If you grudge the system each character of type-in it requires, you might like to use the commands "1", "2", "3", "4", and "5". They are short for the "m" command together with an argument. "1" goes through the first item in the current node's menu; "2" goes through the second item, etc. Note that numbers larger than 5 are not allowed. If the item you want is that far down, you are better off using an abbreviation for its name than counting. The Info command "e" changes from Info mode to an ordinary Emacs editing mode, so that you can edit the text of the current node. Type C-c C-c to switch back to Info. The "e" command is allowed only if the variable Info-enable-edit is non-nil.  File: info, Node: Add, Up: Top, Previous: Expert, Next: Menus To add a new topic to the list in the directory, you must 1) create a node, in some file, to document that topic. 2) put that topic in the menu in the directory. *Note Menu: Menus. The new node can live in an existing documentation file, or in a new one. It must have a ^_ character before it (invisible to the user; this node has one but you can't see it), and it ends with either a ^_, a ^L, or the end of file. Note: If you put in a ^L to end a new node, be sure that there is a ^_ after it to start the next one, since ^L can't START a node. Also, a nicer way to make a node boundary be a page boundary as well is to put a ^L RIGHT AFTER the ^_. The ^_ starting a node must be followed by a newline or a ^L newline, after which comes the node's header line. The header line must give the node's name (by which Info will find it), and state the names of the Next, Previous, and Up nodes (if there are any). As you can see, this node's Up node is the node Top, which points at all the documentation for Info. The Next node is "Menus". The keywords "Node", "Previous", "Up" and "Next", may appear in any order, anywhere in the header line, but the recommended order is the one in this sentence. Each keyword must be followed by a colon, spaces and tabs, and then the appropriate name. The name may be terminated with a tab, a comma, or a newline. A space does not end it; node names may contain spaces. The case of letters in the names is insignificant. A node name has two forms. A node in the current file is named by what appears after the "Node: " in that node's first line. For example, this node's name is "Add". A node in another file is named by "(FILENAME)NODE-WITHIN-FILE", as in "(info)Add" for this node. If the file name is relative, it is taken starting from the standard Info file directory of your site. The name "(FILENAME)Top" can be abbreviated to just "(FILENAME)". By convention, the name "Top" is used for the "highest" node in any single file - the node whose "Up" points out of the file. The Directory node is "(dir)". The Top node of a document file listed in the Directory should have an "Up: (dir)" in it. The node name "*" is special: it refers to the entire file. Thus, g* will show you the whole current file. The use of the node * is to make it possible to make old-fashioned, unstructured files into nodes of the tree. The "Node:" name, in which a node states its own name, must not contain a filename, since Info when searching for a node does not expect one to be there. The Next, Previous and Up names may contain them. In this node, since the Up node is in the same file, it was not necessary to use one. Note that the nodes in this file have a File name in the header line. The File names are ignored by Info, but they serve as comments to help identify the node for the user.  File: info, Node: Menus, Previous: Add, Up: Top, Next: Cross-refs How to Create Menus: Any node in the Info hierarchy may have a MENU--a list of subnodes. The "m" command searches the current node's menu for the topic which it reads from the terminal. A menu begins with a line starting with "* Menu:". The rest of the line is a comment. After the starting line, every line that begins with a "* " lists a single topic. The name of the topic--the arg that the user must give to the "m" command to select this topic-- comes right after the star and space, and is followed by a colon, spaces and tabs, and the name of the node which discusses that topic. The node name, like node names following Next, Previous and Up, may be terminated with a tab, comma, or newline; it may also be terminated with a period. If the node name and topic name are the same, than rather than giving the name twice, the abbreviation "* NAME::" may be used (and should be used, whenever possible, as it reduces the visual clutter in the menu). It is considerate to choose the topic names so that they differ from each other very near the beginning--this allows the user to type short abbreviations. In a long menu, it is a good idea to capitalize the beginning of each item name which is the minimum acceptable abbreviation for it (a long menu is more than 5 or so entries). The node's listed in a node's menu are called its "subnodes", and it is their "superior". They should each have an "Up:" pointing at the superior. It is often useful to arrange all or most of the subnodes in a sequence of Next's/Previous's so that someone who wants to see them all need not keep revisiting the Menu. The Info Directory is simply the menu of the node "(dir)Top"--that is, node Top in file .../info/dir. You can put new entries in that menu just like any other menu. The Info Directory is NOT the same as the file directory called "info". It happens that many of Info's files live on that file directory, but they don't have to; and files on that directory are not automatically listed in the Info Directory node. Also, although the Info node graph is claimed to be a "hierarchy", in fact it can be ANY directed graph. Shared structures and pointer cycles are perfectly possible, and can be used if they are appropriate to the meaning to be expressed. There is no need for all the nodes in a file to form a connected structure. In fact, this file has two connected components. You are in one of them, which is under the node Top; the other contains the node Help which the "h" command goes to. In fact, since there is no garbage collector, nothing terrible happens if a substructure is not pointed to, but such a substructure will be rather useless since nobody will ever find out that it exists.  File: info, Node: Cross-refs, Previous: Menus, Up: Top, Next: Tags Creating Cross References: A cross reference can be placed anywhere in the text, unlike a menu item which must go at the front of a line. A cross reference looks like a menu item except that it has "*note" instead of "*". It CANNOT be terminated by a ")", because ")"'s are so often part of node names. If you wish to enclose a cross reference in parentheses, terminate it with a period first. Here are two examples of cross references pointers: *Note details: commands. (See *note 3: Full Proof.) They are just examples. The places they "lead to" don't really exist!  File: info, Node: Tags, Previous: Cross-refs, Up: Top, Next: Checking Tag Tables for Info Files: You can speed up the access to nodes of a large Info file by giving it a tag table. Unlike the tag table for a program, the tag table for an Info file lives inside the file itself and will automatically be used whenever Info reads in the file. To make a tag table, go to a node in the file using Info and type M-x Info-tagify. Then you must use C-x C-s to save the file. Once the Info file has a tag table, you must make certain it is up to date. If, as a result of deletion of text, any node moves back more than a thousand characters in the file from the position recorded in the tag table, Info will no longer be able to find that node. To update the tag table, use the Info-tagify command again. An Info file tag table appears at the end of the file and looks like this: ^_ Tag Table: File: info, Node: Cross-refs21419 File: info, Node: Tags22145 ^_ End Tag Table Note that it contains one line per node, and this line contains the beginning of the node's header (ending just after the node name), a rubout character, and the character position in the file of the beginning of the node.  File: info, Node: Checking, Previous: Tags, Up: Top Checking an Info File: When creating an Info file, it is easy to forget the name of a node when you are making a pointer to it from another node. If you put in the wrong name for a node, this will not be detected until someone tries to go through the pointer using Info. Verification of the Info file is an automatic process which checks all pointers to nodes and reports any pointers which are invalid. Every Next, Previous, and Up is checked, as is every menu item and every cross reference. In addition, any Next which doesn't have a Previous pointing back is reported. Only pointers within the file are checked, because checking pointers to other files would be terribly slow. But those are usually few. To check an Info file, do M-x Info-validate while looking at any node of the file with Info.  Tag table: File: info, Tad :able: File: info, eoden ChecNing2T7g6Fil7: iifo, Node: Tags245s9-Fele:2i9f6, Nlde: Cfoss-refs23926 File: info, Node: Menus21121 File: info, Node: Add18186 File: info, Node: Expert15972 File: info Node: Help-Q15421 File: info Node: Help-Cross14907 File: info Node: Help-Adv12631 File: info Node: Help-FOO11930 File: info Node: Help-M6648L4141 File: info Node: Help-P3393 File: info Node: Help2444 File: info Node: Help-Small-Screen816 File: info Node: Top111  End tag table ile: info, Tad :able: File: info, eoden ChecNing2T7g6Fil7: iifo, Node: Tags245s9-Fele:2i9f6, Nlde: Cfoss-refs23926 File: info, Node: Menus21121 File: info, Node: Add18186 File: info, Node: Expert15972 File: info Node: Help-Q15421 File: info Node: Help-Cross14907 File: info Node: Help-Adv12631 File: info Node: Help-FOO11930 File: info Node: Help-M6648jed-0.97.12/info/jed.1in000064400000000000003000000572500603742310100144030ustar00rootsys00000000000000This is Info file jed.info, produced by Makeinfo-1.55 from the input file jed.ti.  File: jed.info, Node: Top, Next: Introduction, Up: (dir) This file documents the JED editor. Copyright (C) 1992, 1993 John E. Davis * Menu: * Introduction:: * Installing JED:: * Startup Files:: * Starting JED:: * Emulating Other Editors:: Emacs, EDT, and Wordstar emulation * File Types and Sizes:: * Backup and Autosave Files:: * Status line and Windows:: * MiniBuffer:: * Basic Editing:: * Modes:: * Keyboard Macros:: * Shells and Shell Commands:: * Getting Help:: * Editing Binary Files:: * Dired:: Using JED to maintain directories * Mail:: * Customization:: * Eight Bit Clean Issues:: * Miscellaneous::  File: jed.info, Node: Introduction, Next: Installing JED, Prev: Top, Up: Top Introduction ============ This document presents some basic information that users should know in order to use JED effectively. Any questions, comments, or bug reports, should be emailed to the author. Please be sure to include the version number. To be notified of future releases of JED, email to the address below and your email address will be placed on the announcement list. The email address is: davis@amy.tch.harvard.edu (internet) davis@ohstpy (BITNET)  File: jed.info, Node: Installing JED, Next: Startup Files, Prev: Introduction, Up: Top Installing JED ============== Building JED from its sources requires the use of a C compiler that understands function prototypes. JED has been successfully built with `cc' on the ULTRIX, VMS, and IRIX operating systems. In addition, it has been created using `gcc' under SunOS and Borland's BCC 3.0 for the PC. Detailed installation instructions are in separate, operating system dependent files. They are: UNIX: install.unx VMS: install.vms IBMPC: install.pc When JED starts up, it will first try to load a site initialization file called `site.sl'. Site specific commands are placed here. Most likely, `site.sl' will define some functions, default hooks, etc... What goes in it is left to the discretion of the user or system manager. See the file `site.sl' for examples. If you intend to use characters with ASCII codes greater than 127, it is important to read the section on "Eight Bit Clean Issues" in order to install JED in an 8 bit clean manner. When loading `site.sl' as well as other `S-Lang' files (the user's personal initialization file, `.jedrc' or `jed.rc', is a special case, see below), JED searches all directories specified by the environment variable `JED_LIBRARY', and if the file is not found, JED will look for it in the default directory. The environment variable `JED_LIBRARY' is a comma separated list of directories. Here are some examples of setting this variable for different systems: VMS: define/job JED_LIBRARY dev$lib:[jedfiles] UNIX: setenv JED_LIBRARY '/usr/local/lib/jed,~/jed' IBMPC: set JED_LIBRARY = c:\editors\jed\lib You will probably want to put define `JED_LIBRARY' in your login startup file, e.g., `autoexec.bat', `login.com', or `.cshrc'. JED versions 0.92 and later allow the value of `JED_LIBRARY' to be specified at compile time an it may only be necessary to define `JED_LIBRARY' as an environment variable to override its pre-compiled value.  File: jed.info, Node: Startup Files, Next: Starting JED, Prev: Installing JED, Up: Top Startup Files ============= Once JED has loaded the startup file `site.sl', it will try to load the user's personal initialization file. It first looks in the directory pointed to by the environment variable `JED_HOME'. If that fails, it then searches the `HOME' directory and upon failure simply loads the one supplied in `JED_LIBRARY'. The name of the user initialization file varies according to the operating system. On Unix systems this file must be called `.jedrc' while on VMS and MSDOS, it goes by the name `jed.rc'. For VMS systems, the `HOME' directory corresponds to the `SYS$LOGIN' logical name while for the other two systems, it corresponds to the `HOME' environment variable. The purpose of this file is to allow an individual user to taylor JED to his or her personal taste. Most likely, this will involve choosing an initial set of keybindings, setting some variables, and so on.  File: jed.info, Node: Starting JED, Next: Emulating Other Editors, Prev: Startup Files, Up: Top Starting JED ============ Normally, JED is started as jed FILENAME or jed FILE_LIST. However, JED also takes the following switches: `-batch' run JED in batch mode. This is a non-interactive mode. `-n' do not load `jed.rc' (`.jedrc') file. `-g N' goto line N in buffer `-l FILE' load FILE as `S-Lang' code. `-f FUNCTION' execute S-Lang function named FUNCTION `-s STRING' search forward for STRING `-2' split window `-i FILE' insert FILE into current buffer. For example, the command line: jed slang.c -g 1012 -s error -2 file.c -f eob will start up JED, read in the file `slang.c', goto line 1012 of `slang.c' and start searching for the string `error', split the window, read in `file.c' and goto the end of the file. If the `-batch' parameter is used, it must be the first parameter. Similarly, if `-n' is used, it must also be the first parameter unless used with the `-batch' parameter in which case it must the second. JED should only be run in batch mode when non-interactive operation is desired. For example, JED is distributed with a file, `mkdoc.sl', that contains S-Lang code to produce a help file for functions and variables. In fact, the help file `jed_funs.hlp' was created by entering jed -batch -n -l mkdoc.sl at the command line. Now suppose that you want to read in a file with the name of one of the switches, say `-2'. How can this be done? The answer depends upon the operating system. For unix, instead of `jed -2', use `jed ./-2'; for VMS, use `jed []-2'. The case for MSDOS is similar to unix except that one must use the backslash. It is possible to completely change JED's command line syntax through the use of the user defined function `command_line_hook'. In fact, the behavior described above is dictated by the value of `command_line_hook' as distributed in `site.sl'. See the section on hooks for details.  File: jed.info, Node: Emulating Other Editors, Next: File Types and Sizes, Prev: Starting JED, Up: Top Emulating Other Editors ======================= JED's ability to create new functions using the S-Lang programming language as well as allowing the user to choose key bindings, makes the emulation of other editors possible. Currently, JED provides reasonable emulation of the Emacs, EDT, and Wordstar editors. * Menu: * Emacs Emulation:: * EDT Emulation:: * Wordstar Emulation::  File: jed.info, Node: Emacs Emulation, Next: EDT Emulation, Prev: Emulating Other Editors, Up: Emulating Other Editors Emacs Emulation --------------- Emacs Emulation is provided by the S-Lang code in `emacs.sl'. The basic functionality of Emacs is emulated; most Emacs users should have no problem with JED. To enable Emacs emulation in JED, make sure that the line "emacs.sl" evalfile pop is in your `jed.rc' (`.jedrc') startup file. JED is distributed with this line already present in the default `jed.rc' file.  File: jed.info, Node: EDT Emulation, Next: Wordstar Emulation, Prev: Emacs Emulation, Up: Emulating Other Editors EDT Emulation ------------- For EDT emulation, `edt.sl' must be loaded. This is accomplished by ensuring that the line "edt.sl" evalfile pop is in present in the `jed.rc' (`.jedrc') Startup File. JED is distributed with EDT emulation enabled on VMS and Unix systems but the above line is commented out in the `jed.rc' file on MSDOS systems. This emulation provides a near identical emulation of the EDT keypad key commands. In addition, the smaller keypad on the newer DEC terminals is also setup. It is possible to have both EDT and Emacs emulation at the same time. The only restriction is that `emacs.sl' must be loaded before `edt.sl' is loaded. One minor difference between JED's EDT emulation and the real EDT concerns the  key. EDT normally binds this to move the cursor to the beginning of the line. However, JED uses it as a help key. Nevertheless, it is possible to rebind it. See the section on rebinding keys as well as the file `edt.sl' for hints. Alternatively, simply put "^H" unsetkey "bol" "^H" setkey in the `jed.rc' startup file after `edt.sl' is loaded. Keep in mind that the  key will no longer function as a help key if this is done. EDT emulation for PCs only work with the enhanced keyboard. When `edt.sl' is loaded, a variable `NUMLOCK_IS_GOLD' is set which instructs JED to interpret the numlock key on the square numeric keypad to function as the EDT GOLD key. In fact, this keypad should behave exactly like the keypad on VTxxx terminals. The only other problem that remains concerns the + key on the PC keypad. This key occupies two VTxxx key positions, the minus and the comma (delete word and character) keys. Thus a decision had to be made about which key to emulate. I chose the + key to return the characters ` O l' which JED maps to the delete character function. This may be changed to the delete word function if you prefer. See the file `edt.sl' for details. The GOLD-GOLD key combination toggles the keypad between application and numeric states. On the PC, this is not possible. Instead, the PC F1 key has been instructed to perform this task.  File: jed.info, Node: Wordstar Emulation, Prev: EDT Emulation, Up: Emulating Other Editors Wordstar Emulation ------------------ `wordstar.sl' contains the S-Lang code for JED's Wordstar emulation. Adding the line "wordstar.sl" evalfile pop to your `jed.rc' (`.jedrc') startup file will enable JED's Wordstar emulation.  File: jed.info, Node: File Types and Sizes, Next: Backup and Autosave Files, Prev: Emulating Other Editors, Up: Top File Types and Sizes ==================== JED is primarily a text editor; however, it can also edit binary files (see the section on editing binary files). As a result, JED may edit lines of arbitrary length (actually this depends upon the size of an integer). It is capable of editing arbitrarily large buffers as long as there is enough memory for the buffer as well as the overhead involved. This editor employs a linked list representation; hence, the overhead can be quite high.  File: jed.info, Node: Backup and Autosave Files, Next: Status line and Windows, Prev: File Types and Sizes, Up: Top Backup and Autosave Files ========================= On UNIX and MSDOS systems, JED creates backup files by appending a `~' character to the filename. The VMS operating system handles backup files itself. JED periodically autosaves its buffers. On UNIX and MSDOS, autosave files are prefixed with the pound sign `#'. On VMS, they are prefixed with `_$'. The autosave interval may be changed by setting the variable MAX_HITS to the desired value. The default is 300 "hits" on the buffer. A "hit" is defined as a key which MAY change the state of the buffer. Cursor movement keys do not cause hits on the buffer. Like many of JED's features, the names of autosave and backup files can be controlled by the user. The file `site.sl' defines two functions, `make_backup_filename', and `make_autosave_filename' that generate the file names described in the previous paragraph. Like all S-Lang functions, these functions may be overloaded and replaced with different ones. See also information about `find_file_hook' in the section on hooks. On UNIX systems, JED catches most signals and tries to autosave its buffers in the event of a crash or if the user accidently disconnects from the system (`SIGHUP'). If an autosave file exists and you is desire to recover data from the autosave file, use the function `recover_file'. Whenever JED finds a file, it checks to see if an autosave file exists as well as the file's date. If the dates are such that the autosave file is more recent JED will display a message in the minibuffer alerting the user of this fact and that the function `recover_file' should be considered.  File: jed.info, Node: Status line and Windows, Next: MiniBuffer, Prev: Backup and Autosave Files, Up: Top Status line and Windows ======================= JED supports multiple windows. Each window may contain the same buffer or different buffers. A status line is displayed immediately below each window. The status line contains information such as the JED version number, the buffer name, "mode", etc. Please beware of the following indicators: `**' buffer has been modified since last save `%%' buffer is read only `m' mark set indicator. This means a region is being defined `d' file changed on disk indicator. This indicates that the file associated with the buffer is newer than the buffer itself. `s' spot pushed indicator `+' undo is enabled for the buffer `[Macro]' a macro is being defined. `[Narrow]' buffer is narrowed to a region of LINES.  File: jed.info, Node: MiniBuffer, Next: Basic Editing, Prev: Status line and Windows, Up: Top MiniBuffer ========== The MiniBuffer consists of a single line located at the bottom of the screen. Much of the dialog between the user and JED takes place in this buffer. For example, when you search for a string, JED will prompt you for the string in the MiniBuffer. The MiniBuffer also provides a direct link to the S-Lang interpreter. To access the interpreter, press  ESC and the `S-Lang>' prompt will appear in the MiniBuffer. Enter any valid S-Lang expression for evaluation by the interpreter. It is possible to to recall data previously entered into the MiniBuffer by using the up and down arrow keys. This makes it possible to use and edit previous expressions in a convenient and efficient manner. * Menu: * Command Line Completion:: * File Names:: * Buffer Name and File Name Completion::  File: jed.info, Node: Command Line Completion, Next: File Names, Up: MiniBuffer Command Line Completion ----------------------- The JED editor has several hundred built-in functions as well as many more written in the S-Lang extension language. Many of these functions are bound to keys and many are not. It is simply unreasonable to require the user to remember if a function is bound to a key or not and, if it is, to remember the key to which it is bound. This is especially true of those functions that are bound but rarely used. More often than not, one simply forgets the exact name or spelling of a function and requires a little help. For this reason, JED supports command line completion in the minibuffer. This function, called `emacs_escape_x', is bound to the key `ESC X'. This is one binding that must be remembered! As an example, suppose that you are editing several buffers and you wish to insert the contents of one buffer into the the current buffer. The function that does this is called `insert_buffer' and has no default keybinding. Pressing `ESC X' produces the prompt `M-x'. This prompt, borrowed from the Emacs editor, simply means that `ESC X' was pressed. Now type `in' and hit the space bar or the TAB key. In this context (completion context) the space bar and the TAB will expand the string in the MiniBuffer up until it is nolonger unique. In this case, `insert_file' and `insert_buffer' are only two functions that start with `in'. Hence, `in' will expand to `insert_' at which point it becomes necessary to enter more information to uniquely specify the desired function. However, in a completion context, the space bar also has a special property that enables the user to cycle among the possible completions. For this example, hitting the space bar twice consecutively will produce the string `insert_file' and hitting it again produces the desired string `insert_buffer'. The role of the space bar in completion is a point where Emacs and JED differ. Emacs will pop up a buffer of possible completions but JED expects the user to press the space bar to cycle among them. Both have there pros and cons. Frequently, one sees messages on the Usenet newsgroup `gnu.emacs.help' from Emacs users asking for the kind of completion JED employs.  File: jed.info, Node: File Names, Next: Buffer Name and File Name Completion, Prev: Command Line Completion, Up: MiniBuffer File Names ---------- JED takes every file name and "expands it" according to a set of rules which vary according to the Operating System. For concreteness, consider JED running under MSDOS. Suppose the user reads a new file into the editor via the `find_file' command which emacs binds to  . Then the following might be displayed in the minibuffer: Find File: C:\JED\SLANG\ Here JED is prompting for a file name in the directory \JED\SLANG on disk C:. However, suppose the user wants to get the file C:\JED\SRC\VIDEO.C. Then the following responses produce equivalent filenames when JED expands them internally: Find File: C:\JED\src\video.c Find File: C:\JED\SLANG\..\src\video.c Find File: C:\JED\SLANG\../src/video.c Note that the on MSDOS systems, JED replaces the `/' with a `\' and that case is not important. Now suppose you wish to get the file VIDEO.C from disk A:. The following are also valid: Find File: A:\video.c Find File: A:video.c Find File: C:\JED\SLANG\a:\video.c In the last case, JED is smart enough to figure out what is really meant. Although the above examples are for MSDOS systems, the rules also apply to unix and VMS systems as well. The only change is the file name syntax. For example, on VMS sys$manager:[misc]dev$user:[davis.jed]vms.c dev$user:[davis.jed]vms.c become equivalent filenames upon expansion. For unix, the following are equivalent: /user1/users/davis/jed/unix.c /usr/local/src//user1/users/davis/jed/unix.c /usr/local/src/~/jed/unix.c Note the last example: the tilde character `~' always expands into the users `HOME' directory, in this case to `/user1/users/davis'. When JED writes a buffer out to a file, it usually prompts for a file name in the minibuffer displaying the directory associated with the current buffer. At this point a name can be appended to the directory string to form a valid file name or the user may simply hit the RET key. If the latter alternative is chosen, JED simply writes the buffer to the file already associated with the buffer. Once the buffer is written to a file, the buffer becomes attached to that file. * Menu: * Buffer Name and File Name Completion::  File: jed.info, Node: Buffer Name and File Name Completion, Prev: File Names, Up: MiniBuffer Buffer Name and File Name Completion ------------------------------------ When JED prompts for a file name or a buffer name, the space bar and the TAB keys are special. Hitting the TAB key will complete the name that is currently in the minibuffer up until it is no longer unique. At that point, you can either enter more characters to complete the name or hit the space bar to cycle among the possible completions. The spacebar must be pressed at least twice to cycle among the completions. On MSDOS and VMS, it is possible to use wildcard characters in the file name for completion purposes. For example, entering `*.c' and hitting the space bar will cycle among file names matching `*.c'. Unfortunately, this feature is not available on unix systems.  File: jed.info, Node: Basic Editing, Next: Modes, Prev: MiniBuffer, Up: Top Basic Editing ============= Editing with JED is pretty easy-- most keys simply insert themselves. Movement around the buffer is usually done using the arrow keys or page up and page down keys. If `edt.sl' is loaded, the keypads on VTxxx terminals function as well. Here, only the highlights are touched upon (cut/paste operations are not considered "highlights"). In the following, any character prefixed by the `^' character denotes a Control character. On keyboards without an explicit Escape key, Control-[ will most likely generate and Escape character. The following list of useful keybindings assumes that `emacs.sl' has been loaded. ` ' redraw screen `' Undo (Control-underscore, also  u) `ESC q' reformat paragraph (wrap mode) `ESC n' narrow paragraph (wrap mode) `ESC ;' Make Language comment (Fortran and C) `ESC \' Trim whitespace around point `ESC !' Execute shell command `ESC $' Ispell word (unix) ` ?' Show line/column information ``' `quoted_insert' -- insert next char as is (backquote key) `ESC s' Center line `ESC u' Upcase word `ESC d' Downcase word `ESC c' Capitalize word `ESC x' Get M-x minibuffer prompt with command completion ` ' pop up a list of buffers ` ' exit JED ` 0' Delete Current Window ` 1' One Window ` 2' Split Window ` o' Other window ` b' switch to buffer ` k' kill buffer ` s' save some buffers `ESC .' Find tag (unix ctags compatible) `X Set Mark (Begin defining a region) * Menu: * Undo:: * Marking Text (Point and Mark):: * Tab Issues.:: * Searching:: * Rectangles:: * Sorting::  File: jed.info, Node: Undo, Next: Marking Text (Point and Mark), Up: Basic Editing Undo ---- One of JED's nicest features is the ability to undo nearly any change that occurs within a buffer at the touch of a key. If you delete a word, you can undo it. If you delete 10 words in the middle of the buffer, move to the top of the buffer and randomly make changes, you can undo all of that too. By default, the `undo' function is bound to the key  (Ascii 31). Since some terminals are not capable of generating this character, it is also bound to the key sequence  u. Due to the lack of virtual memory support on IBMPC systems, the `undo' function is not enabled on every buffer. In particular, it is not enabled for the `*scratch*' buffer. However, it is enabled for any buffer which is associated with a file. A "plus" character on the left hand side of the status line indicates that undo is enabled for the buffer. It is possible to enable undo for any buffer by using the `toggle_undo' function.  File: jed.info, Node: Marking Text (Point and Mark), Next: Tab Issues., Prev: Undo, Up: Basic Editing Marking Text (Point and Mark) ----------------------------- Many commands work on certain regions of text. A region is defined by the `Point' and the `Mark' The `Point' is the location of the current editing point or cursor position. The `Mark' is the location of a mark. The mark is set using the `set_mark_cmd' which is bound to `^@' (Control-2 or Control-Space on some keyboards). When the mark is set, the `m' mark indicator will appear on the status line. This indicates that a region is being defined. Moving the cursor (`Point') defines the other end of a region. Many editors will highlight the region as it is marked. I have not added this to JED since such a feature complicates the display code without contributing any useful functionality. Of course this is only my opinion and is open for debate. It is easy to see where the location of the mark is by using the `exchange' command which is bound to  . This simply exchanges the `Point' and the `Mark'. The region is still intact since it is defined only by the `Point' and `Mark'. Pressing   again restores the mark and Point back to their original locations. Try it. not added this to JED since such a feature complicates the display code without contributing any useful functionality. Of course this is only my opinion and is open for debate. It is easy to see where the location of the mark is by using the `exchange' command which is bound to  . This simply exchanges the `Point' and the `Mark'. Thejed-0.97.12/info/jed.2in000064400000000000003000000604560603742310200144070ustar00rootsys00000000000000 File: jed.info, Node: Tab Issues., Next: Searching, Prev: Marking Text (Point and Mark), Up: Basic Editing Tab Issues. ----------- Strictly speaking, JED uses only fixed column tabs whose size is determined by the value of the `TAB' variable. Setting the `TAB' variable to 0 causes JED to not use tabs as whitespace and to display tabs as . Please note that changing the tab settings on the terminal will have no effect as far as JED is concerned. The `TAB' variable is local to each buffer allowing every buffer to have its own tab setting. The variable `TAB_DEFAULT' is the tab setting that is given to all newly created buffers. The default value for this variable is 8 which corresponds to eight column tabs. JED is also able to "simulate" arbitrary tabs as well through the use of user defined tab stops. Calling the function `edit_tab_stops' allows the user to interactively set the tab stops. That is, one simply presses `ESC X' to get the `M-x' prompt and enters `edit_tab_stops'. A window will pop open displaying the current tab settings. To add a tab stop, simply place a `T' in the appropriate column. Use the space bar to remove a tab stop. Here an argument is presented in favor of simulated tabs over real tab stops. First, consider what a "tab" really is. A "tab" in a file is nothing more than a character whose ASCII value is 9. For this reason, one also denotes a tab as ^I (Control-I). Unlike most other ASCII characters, the effect of the tab character is device dependent and is controlled through the device tab settings. Hence, a file which displays one way on one device may look totally different on another device if the tab settings do not correspond. For this reason, many people avoid tabs altogether and others the adopt "standard" of eight column tabs. Even though people always argue about what the correct tab settings should be, it must be kept in mind that this is primarily a human issue and not a machine issue. On a device employing tab stops, a tab will cause the cursor to jump to the position of the next tab stop. Now consider the effect of changing the tab settings. Assume that in one part of a document, text was entered using the first setting and in another part, the second setting was used. When moving from the part of the document where the current tab setting is appropriate to the part where the other tab setting was used will cause the document to look unformatted unless the appropriate tab settings are restored. Wordprocessors store the tab settings in the file with the text so that the tabs may be dynamically changed to eliminate such unwanted behavior. However, text editors such as JED, vi, Emacs, EDT, EVE (TPU), etc, do not store this information in the file. JED avoids this problem by using simulated tabs. When using simulated tabs, tabs are not really used at all. Rather JED inserts the appropriate number of spaces to achieve the desired effect. This also has the advantage of one being able to cut and paste from the part of a document using one tab setting to another part with a different tab setting. This simple operation may lead to unwanted results on some wordprocessors as well as those text editors using real tab stops.  File: jed.info, Node: Searching, Next: Rectangles, Prev: Tab Issues., Up: Basic Editing Searching --------- JED currently has two kinds of searches: ordinary searches and incremental searches. Both types of searches have forward and backward versions. The actual functions for binding purposes are: search_forward search_backward isearch_forward isearch_backward There is also the `occur' function which finds all occurrences of a single word (string). This function has no backwards version. By default it is not bound to any keys, so to use it, `occur' must be entered at the `M-x' prompt (`ESC X') or one is always free to bind it to a key. In the following only the incremental search is discussed. The default type of search in Emacs in the incremental search. However, since this type of search is confusing to the uninitiated, the ordinary type of search has been made the default in JED's Emacs emulation. For the traditional emacs keybinding, it is up to the user to provide the keybinding. As the name suggests, an incremental search performs a search incrementally. That is, as you enter the search string, the editor begins searching right away. For example, suppose you wish to search for the string `apple'. As soon as the letter `a' is entered into the incremental search prompt, JED will search for the first occurrence of `a'. Then as soon as the `p' is entered, JED will search from the current point for the string `ap', etc... This way, one is able to quickly locate the desired string with only a minimal amount of information. Unlike the "ordinary" search, the incremental search is not terminated with the RET (^M) key. Hitting the RET key causes JED to search for the next occurrence of the string based on the data currently entered at the prompt. The search is terminated with the ESC key. Finally, the DEL key (?) is used to erase the last character entered at the search prompt. In addition to erasing the last character of the search string, JED will return back to the location of the previous match. Erasing all characters will cause the editor to return to the place where the search began. Like many things, this is one of those that is easier to do than explain. Feel free to play around with it.  File: jed.info, Node: Rectangles, Next: Sorting, Prev: Searching, Up: Basic Editing Rectangles ---------- JED has built-in support for the editing of rectangular regions of text. One corner of rectangle is defined by setting the mark somewhere in the text. The Point (cursor location) defines the opposite corner of the rectangle. Once a rectangle is defined, one may use the following functions: `kill_rect' Delete text inside the rectangle saving the rectangle in the internal rectangle buffer. `open_rect' Push all text in the rectangle to the right outside the rectangle. `copy_rect' Copy text inside the rectangle to the internal rectangle buffer. `blank_rect' Replace all text inside the rectangle by spaces. The function `insert_rect' inserts a previously killed or copied rectangle into the text at the Point. These functions have no default binding and must be entered into the MiniBuffer by pressing `ESC X' to produce the `M-x' prompt.  File: jed.info, Node: Sorting, Prev: Rectangles, Up: Basic Editing Sorting ------- JED is capable of sorting a region of lines using the heapsort algorithm. The region is sorted alphabetically based upon the ASCII values of the characters located within a user defined rectangle in the region. That is, the rectangle simply defines the characters upon what the sort is based. Simply move to the top line of the region and set the mark on the the top left corner of the rectangle. Move to the bottom line and place the point at the position which defines the lower right corner of the rectangle. Press `ESC X' to get the `M-x' prompt and enter `sort' As as example, consider the following data: Fruit: Quantity: lemons 3 pears 37 peaches 175 apples 200 oranges 56 To sort the data based upon the name, move the Point to the top left corner of the sorting rectangle. In this case, the Point should be moved to the `l' in the word `lemons'. Set the mark. Now move to the lower right corner of the rectangle which is immediately after the `s' in `oranges'. Pressing `ESC X' and entering `sort' yields: Fruit: Quantity: apples 200 lemons 3 oranges 56 peaches 175 pears 37 Suppose that it is desired to sort by quantity instead. Looking at the original (unsorted) data, move the Point to two spaces before the `3' on the line containing `lemons'. The cursor should be right under the `u' in `Quantity'. Set the mark. Now move the Point to immediately after `56' on the `oranges' line and again press `ESC X' and enter `sort'. This yields the desired sort: Fruit: Quantity: lemons 3 pears 37 oranges 56 peaches 175 apples 200  File: jed.info, Node: Modes, Next: Keyboard Macros, Prev: Basic Editing, Up: Top Modes ===== Jed supports two internal modes as well as user defined modes. The two internal modes consist of a "C" mode for C Language programming and a "Wrap" mode for ordinary text editing. Examples of user defined modes are Fortran mode and DCL mode. Online documentation is provided for nearly every mode JED defines. For help on the current mode, press `ESC X' and enter `describe_mode'. A window will appear with a short description of the special features of the mode as well as a description of the variables affecting the mode. * Menu: * Wrap Mode:: * Smart Quotes:: * C Mode:: * Fortran Mode::  File: jed.info, Node: Wrap Mode, Next: Smart Quotes, Up: Modes Wrap Mode --------- In this mode, text is wrapped at the column given by the `WRAP' variable. The default is 78. The text does not wrap until the cursor goes beyond the wrap column and a space is inserted. * Menu: * Formatting paragraphs::  File: jed.info, Node: Formatting paragraphs, Up: Wrap Mode Formatting paragraphs ..................... Paragraph delimiters are: blank lines, lines that begin with either a percent character, `%', or a backslash character `\'. This definition is ideally suited for editing (La)TeX documents. However, it is possible for the user to change this definition. See the the discussion of the hook, `is_paragraph_separator', in the section on hooks for explicit details on how to do this. The paragraph is formatted according to the indentation of the current line. If the current line is indented, the paragraph will be given the same indentation. The default binding for this function is `ESC q'. In addition, a paragraph may be "narrowed" by the `narrow_paragraph' function which is bound to ESC N by default. This differs from the ordinary `format_paragraph' function described above in that the right margin is reduced by an amount equal to the indentation of the current line. For example: This paragraph is the result of using the function ``narrow_paragraph''. Note how the right margin is less here than in the above paragraph. Finally, if either of these functions is called from the keyboard with a prefix argument, the paragraph will be justified as well. For example, pressing `ESC 1 ESC N' on the previous paragraph yields: This paragraph is the result of using the function ``narrow_paragraph''. Note how the right margin is less here than in the above paragraph. See the discussion of `format_paragraph_hook' in the section on hooks for details on how this is implemented.  File: jed.info, Node: Smart Quotes, Next: C Mode, Prev: Wrap Mode, Up: Modes Smart Quotes ------------ You have probably noticed that many key words in this document are quoted in double quotes like "this is double quoted" and `this is single quoted'. By default, the double quote key (") and single quote key (') are bound to the function `text_smart_quote'. With this binding and in wrap mode, the single quote key inserts a single quote with the "proper" orientation and the double quote key inserts two single quotes of the "proper" direction. To turn this off, rebind the keys to `self_insert_cmd'. Some modes already do this (e.g., EDT). This brings up the question: if the double quote key is bound to `text_smart_quote' then how does one insert the character (")? The most common way is to use the `quoted_insert' function which, by default, is bound to the single backquote (``') key. This is the same mechanism that is used to insert control characters. The other method is to use the fact that if the preceding character is a backslash, `\', the character simply self inserts. Again, this is ideal for writing TeX documents.  File: jed.info, Node: C Mode, Next: Fortran Mode, Prev: Smart Quotes, Up: Modes C Mode ------ C Mode facilitates the editing of C files. Much of the latter part of the development of the JED editor was done using this mode. This mode may be customized by a judicious choice of the variables C_INDENT and C_BRACE as well as the bindings of the curly brace keys { and }. Experiment to find what you like or write your own using the S-Lang interface. By default, the RET key is bound to the function `newline_and_indent'. This does what its name suggests: inserts a newline and indents. Again, some modes may rebind this key. In addition, the keys {, }, and TAB are also special in this mode. The TAB key indents the current line and the { and } keys insert themselves and reindent. If you do not like any of these bindings, simply rebind the offending one to `self_insert_cmd'. Finally, the key sequence ESC ; is bound to a function called `c_make_comment'. This function makes and and indents a C comment to the column specified by the value of the variable `C_Comment_Column'. If a comment is already present on the line, it is indented.  File: jed.info, Node: Fortran Mode, Prev: C Mode, Up: Modes Fortran Mode ------------ Fortran Mode is written entirely in S-Lang and is designed to facilitate the writing of Fortran programs. It features automatic indentation of Fortran code as well as automatic placement of Fortran statement Labels. In this mode, the keys 0-9 are bound to a function `for_elebel' which does the following: 1. Inserts the calling character (0-9) into the buffer. 2. If the character is preceded by only other digit characters, it assumes the character is for a label and moves it to the appropriate position. 3. Reindents the line. This function is very similar to the one Emacs uses for labels.  File: jed.info, Node: Keyboard Macros, Next: Shells and Shell Commands, Prev: Modes, Up: Top Keyboard Macros =============== JED is able to record a series of keystrokes from the terminal and replay them. The saved series of keystrokes is known as a keyboard macro. To begin a keyboard macro, simply enter the begin keyboard macro key sequence which is bound to ^X( if `emacs.sl' is loaded. To stop recording the keystrokes, enter ^X). Then to "execute" the macro, press ^Xe. Please note that it is illegal to execute a macro while defining one and doing so generates an error. A macro can be aborted at anytime by pressing the  key. One nice feature JED includes is the "macro_query" function. That is, while defining a macro, the key sequence ` q' will cause JED to issue the prompt `Enter String:' in the minibuffer. Any string that is entered will be inserted into the buffer and the process of defining the macro continues. Every time the macro is executed, JED will prompt for a NEW string to be inserted. Any time an error is generated, the process of defining the macro is aborted as well as execution of the macro. This is very useful and may be exploited often. For example, suppose you want to trim excess whitespace from the end of ALL lines in a buffer. Let us also suppose that the number of lines in the buffer is less than 32000. Then consider the following keystrokes: ` (' ; begin macro `' ; goto end of line `ESC \' ; trim whitespace `DOWN' ; go down one line ` )' ; end macro Now the macro has been defined. So move to the top of the buffer and execute it 32000 times: `ESC <' ; top of buffer `ESC 3 2 0 0 0' ; repeat next command 32000 times ` e' ; execute macro If the buffer has less than 32000 lines, the end of the buffer will be reached and an error will be generated aborting the execution of the macro.  File: jed.info, Node: Shells and Shell Commands, Next: Getting Help, Prev: Keyboard Macros, Up: Top Shells and Shell Commands ========================= The default binding to execute a shell command and pump the output to a buffer is `ESC !'. JED will prompt for a command line and spawn a subprocess for its execution. Strictly speaking, JED does not support interactive subprocesses. However, JED includes S-Lang code that "emulates" such a subprocess. It may invoked by typing `shell' at the `M-x' minibuffer prompt. A window will be created with a buffer named `*shell*' attached to it. Any text entered at the system dependent shell prompt will be executed in a subprocess and the result stuffed back in the shell buffer. Don't try to execute any commands which try to take over the keyboard or the screen or something undesirable may happen. Examples of types of stupid commands are spawning other editors, logging in to remote systems, et cetera. Even `chdir' is stupid since its effect is not permanent. That is, > cd .. > dir will not do what might naively be expected. That is, the two commands above are not equivalent to the single command `dir ..'.  File: jed.info, Node: Getting Help, Next: Editing Binary Files, Prev: Shells and Shell Commands, Up: Top Getting Help ============ JED's help functions are bound to  by default. For example, ` C' will show what function a key carries out, ` i' will run JED's info reader, ` f' will give help on a particular S-Lang function, etc... However, some modes may use the  key for something else. For example, if EDT mode is in effect, then  may be bound to `bol' which causes the cursor to move to the beginning of the line. See the section on EDT for more information. If JED is properly installed, this entire document is accessable from within the editor using JED's info reader. ` i' will load `info_mode' allowing the user to browse the document as well as other "info" documents.  File: jed.info, Node: Editing Binary Files, Next: Dired, Prev: Getting Help, Up: Top Editing Binary Files ==================== JED may edit binary files as long as the proper precautions are taken. On IBMPC systems, this involves calling the S-Lang function `set_file_translation' with an integer argument. If the argument is 0, files are opened as text files; otherwise, they are opened in binary mode. There is no need to call this function for other systems. However, beware of the user variable `ADD_NEWLINE' which if non zero, a newline character will be appended to the file if the last character is not a newline character. If you are going to edit binary files, it is probably a good idea to set this variable to zero.  File: jed.info, Node: Dired, Next: Mail, Prev: Editing Binary Files, Up: Top Dired-- the Directory editor ============================ In addition to editing files, JED is also able to rename and delete them as well. JED's Dired mode allows one to do just this is a simple and safe manner. To run dired, simply press `ESC X' and enter `dired' at the prompt. JED will load `dired.sl' and prompt for a directory name. Once the directory is given, JED will display a list files in the directory in a buffer named `*dired*'. One may use normal buffer movemment commands to move around this. To delete one or more files, use the `d' key to "tag" the files. This in itself does not delete them; rather, it simply marks them for deleting. A capital `D' will appear in the left margin to indicate that a file has been tagged. Simply hit the u key to untag a file. The delete key will also untag the previously tagged file. To actually delete the tagged files, press the `x' key. This action causes JED to display a list of the tagged files in a separate window and prompt the user for confirmation. Only when the proper confirmation is given, will the file be deleted. Renaming a file is just as simple. Simply move to the line containg the name of the file that you wish to rename and hit the `r' key. JED will prompt for a filename or a directory name. If a directory is given, the file will be moved to the new directory but will keep the name. However, for the operation to succeed, the file must be one the same file system. To rename tagged files to a different directory residing on the same file system, use the `m' key. This has the effect of moving the tagged file out of the current directory to the new one. One may also use the f key to read the file indicated by the cursor position into a buffer for editing. If the file is a directory, the directory will be used for dired operations. In addition, one may also use the v to simply "view" a file. Finally, the `g' key will re-read the current directory and the `h' and `?' keys provide some help.  File: jed.info, Node: Mail, Next: Customization, Prev: Dired, Up: Top Mail ==== This section applies to Unix and VMS systems only. On these systems, it is possible to compose and send mail directly using JED. This assumes that the Unix system has `/usr/ucb/mail'. It is trivial to modify `mail.sl' to support another Unix mailer. For VMS, JED uses the callable mail interface present on VMS versions 5.0 and later. The default binding for the mail is  m. Alternatively, one may press `ESC X' and enter `mail' at the `M-x' prompt. The mail function will cause a window to open with a buffer called `*mail*' which contains the three lines: To: Subject: ---text follows this line--- Simply enter the email address of the person that you want to send the mail to on the line containing `To:' and put the subject of the message on the next line labeled `Subject:'. The text that you wish to mail follows the line labeled `---text follows this line---' which is used by JED as a marker. After you have composed the mail message, press `ESC X' and enter `send' at the `M-x' prompt. For example, the following is an email requesting to be put on the JED mailing list: To: davis@amy.tch.harvard.edu Subject: jed mailing list ---text follows this line--- Hi, Please add me to the JED mailing list so that I may be notified of upcoming releases of JED. --Maria For VMS systems, the above example will probably fail because an internet address has been used for the example. For systems using a TCP/IP package, it may be necessary to change `davis@amy.tch.harvard.edu' to something like `smtp%"davis@amy.tch.harvard.edu"'. The mail function looks for a user defined hook called `mail_hook' and execute it if it exists. This hook may be used to bind certain keys in the keymap associated with the `*mail*' buffer. For example, ( "^C" local_unsetkey "send" "^C^C" local_setkey ) mail_hook defines the key `' in the mail keymap to perform the `send' function. Other possibilities include binding a key sequence, say ^C^W, to a function that inserts the contents of a signature file.  File: jed.info, Node: Customization, Next: Eight Bit Clean Issues, Prev: Mail, Up: Top Customization ============= To extend JED, it is necessary to become familiar with the S-Lang programming language. S-Lang not a standalone programming language like C, Pascal, etc... Rather it is meant to be embedded into a C program. The S-Lang programming language itself provides only arithmetic, looping, and branching constructs. In addition, it defines a few other other primitive operations on its data structures. It is up to the application to define other built-in operations tailored to the application. That is what has been done for the JED editor. See the document `slang.txt' for S-Lang basics as well as the JED Programmer's Manual for functions JED has added to the language. In any case, look at the `*.sl' files for explicit examples. For the most part, the average user will simply want to rebind some keys and change some variables (e.g., tab width). Here I discuss setting keys and the predefined global variables. * Menu: * Setting Keys:: * Predefined Variables:: * Hooks:: * S-Lang Programming Hints (Debugging):: done for the JED editor. See the document `slang.txt' for S-Lang basics as well as the JED Programmer's Manual for functions JED has added to the language. In any case, look at the `*.sl' files for explicit jed-0.97.12/info/jed.3in000064400000000000003000000501540603742310200144020ustar00rootsys00000000000000This is Info file jed.info, produced by Makeinfo-1.55 from the input file jed.ti.  File: jed.info, Node: Setting Keys, Next: Predefined Variables, Up: Customization Setting Keys ------------ Defining a key to invoke a certain function is accomplished using the `setkey' function. This function takes two arguments: the function to be executed and the key binding. For example, suppose that you want to bind the key  to cause the cursor to go to the beginning of the current line. The JED function that causes this is `bol' (See the JED Programmer's Manual for a complete list of functions). Putting the line: "bol" "^A" setkey in the startup file `jed.rc' (`.jedrc') file will perform the binding. Here `^A' consists of the two characters `^' and `A' which JED will interpret as the single character `Ctrl-A'. For more examples, see either of the S-Lang files `emacs.sl' or `edt.sl'. In addition to being able to define keys to execute functions, it is also possible to define a key to directly insert a string of characters. For example, suppose that you want to define a key to insert the string `int main(int argc, char **argv)' whenever you press the key `ESC m'. This may be accomplished as follows: " int main(int argc, char **argv)" "\em" setkey Notice two things. First of all, the key sequence `ESC m' has been written as `"\em"' where `\e' will be interpreted by JED as ESC. The other salient feature is that the first argument to `setkey', the "function" argument, begins with a space. This tells JED that it is not be be interpreted as the name of a function; rather, the characters following the space are to be inserted into the buffer. Omitting the space character would cause JED to to execute a function called `int main(int argc, char **argv)' which would fail and generate an error. Finally, it is possible to define a key to execute a series of keystrokes similar to a keyboard macro. This is done by prefixing the "function" name with the `@' character. This instructs JED to interpret the characters following the `@' character as characters entered from the keyboard and execute any function that they are bound to. For example, consider the following key definition which will generate a C language comment to comment out the the current line of text. In C, this may be achieved by inserting symbol `"/*"' at the beginning of the line and inserting `"*/"' at the end of the line. Hence, the sequence is clear (Emacs keybindings): 1. Goto the beginning of the line:  or decimal `"\001"'. 2. Insert `"/*"'. 3. Goto end of the line:  or decimal `"\005"' 4. Insert `"*/"'. To bind this sequence of steps to the key sequence `ESC ;', simply use "@\001/*\005*/" "\e;" setkey Again, the prefix `@' lets JED know that the remaining characters will carry out the functions they are currently bound to. Also pay particular attention to the way  and  have been written. Do not attempt to use the ^ to represet "control". It does not have the same meaning in the first argument to the `setkey' function as it does in the second argument. To have control characters in the first argument, you must enter them as `\xyz' where xyz is a three digit decimal number coinciding with the ASCII value of the character. In this notation, the ESC character could have been written as `\027'. See the S-Lang Programmer's Reference Manual for further discussion of this notation. The `setkey' function sets a key in the `global' keymap from which all others are derived. It is also possible to use the function `local_setkey' which operates only upon the current keymap which may or may not be the `global' map.  File: jed.info, Node: Predefined Variables, Next: Hooks, Prev: Setting Keys, Up: Customization Predefined Variables -------------------- JED includes some predefined variables which the user may change. By convention, predefined variables are in uppercase. The variables which effect all modes include: `BLINK' (1) if non-zero, blink matching parenthesis. `TAB_DEFAULT' (8) sets default tab setting for newly created buffers to specified number of columns. `TAB' Value of tab setting for current buffer. `ADD_NEWLINE' (1) adds newline to end of file if needed when writing it out to the disk. `META_CHAR' (-1) prefix for chars with high bit set (see section on eight bit clean issues for details) `DISPLAY_EIGHT_BIT' see section on eight bit clean issues. `COLOR' (23) IBMPC background color (see `jed.rc' for meaning) `LINENUMBERS' (0) if 1, show current line number on status line `WANT_EOB' (0) if 1, [EOB] denotes end of buffer. `TERM_CANNOT_INSERT' (0) if 1, do not put the terminal in insert mode when writing to the screen. `IGNORE_BEEP' (0) do not beep the terminal when signalling errors In addition to the above, there are variables which affect only certain modes. See the section on modes for details.  File: jed.info, Node: Hooks, Next: S-Lang Programming Hints (Debugging), Prev: Predefined Variables, Up: Customization Hooks ----- A hook is a user defined function that JED calls under certain conditions which allow the user to modify default actions. For example, when JED starts up it looks for the existence of a user defined function `command_line_hook'. If this function exists, JED calls the function. What the function does is completely arbitrary and is left to the discretion of the user. The startup file, `site.sl', defines such a function which reads in the files listed on the command line. It is also this function which loads the `jed.rc' startup file. Unlike the other hooks, this one must be present in the file `site.sl' since it is the only file loaded before calling the hook. After the startup files are loaded, JED calls the hook `jed_startup_hook' immediately before entering the main editor loop. This hook is useful to modify certain data structures which may not have existed when the startup files were loaded. In addition to the above hooks, JED currently also looks for: `suspend_hook' function to be executed before suspending `resume_hook' function that gets carried out after suspension `exit_hook' gets executed before exiting JED `mode_hook' sets buffer mode based on filename extension `find_file_hook' called before file is read into a buffer. It currently checks for presence of autosave file and warns user if it is more recent than file. See `site.sl' for explicit examples of the above hooks. Another useful hook is `is_paragraph_separator'. This hook is called when JED searches for the beginning or end of a paragraph. This search is performed by all paragraph formatting functions as well as the forward and backward paragraph movement commands. As JED performs the search, it moves from one line to another testing the line to see if it separates a paragraph. The function of the hook is to make this decision and return zero if the line does not separate paragraphs or return one if it does. The default value of this hook may be written in S-Lang as ( bol "\\" looking_at {1 return} if "%" looking_at {1 return} if skip_white eolp ) is_paragraph_separator A related hook called after a paragraph is formatted is `format_paragraph_hook'. This hook is only called if either `format_paragraph' or `narrow_paragraph' is called with a prefix digit argument. For example, `format_paragraph' is bound to `ESC q'. Simply pressing this key sequence will call `format_paragraph' but `format_paragraph_hook' will not be called. However, pressing `ESC 1' followed by `ESC q' will result in a call to `format_paragraph_hook'. Currently, this hook simply justifies the paragraph. That is, it fills each line in the paragraph such that the the line ends at the right margin, which is defined by the `WRAP' variable.  File: jed.info, Node: S-Lang Programming Hints (Debugging), Prev: Hooks, Up: Customization S-Lang Programming Hints (Debugging) ------------------------------------ This section assumes some knowledge about S-Lang and is designed to explain how to debug S-Lang routines quickly. For information about S-Lang, read `slang.txt'. There are two ways of loading a file of S-Lang code into JED. The most common way is through the function `evalfile'. If an error occurs while loading a file, JED will give some indication of where the problem lies by displaying the line number and the offending bit of S-Lang code in the minibuffer. In practice though, this can be quite inefficient. The `evalfile' function is primarily designed to load debugged and tested S-Lang code. The best way to develop and test S-Lang code with JED is to use the function `evalbuffer'. Simply load the piece of code into JED as an ordinary file, press `ESC X' and enter the function `evalbuffer' If the piece of code in the buffer has any syntax errors, JED will put the cursor on the error. This is the best way to spot compile time errors such as syntax errors. However, this will not catch runtime errors. When a runtime error occurs, JED will put the cursor on the top level function where the original call was made and NOT the actual location of the function. To aid in determining where an error occurs, JED can be made to give a symbolic traceback. As the S-Lang runtime stack unwinds, S-Lang will simply print the name of function at that particular level. If the function includes local variables, their values will be dumped as well. Hence, it is easy to quickly narrow the location of an error down to function where the error occurs. By default, the traceback is disabled. The traceback is enabled by setting the S-Lang variable `_traceback' to a non-zero value. It is simpliest to just press ` ESC' and enter `1 =_traceback' at the JED prompt. This is one of those times where one needs access to the `S-Lang>' prompt and not the `M-x' prompt. For example, consider the following piece of code: ( {} forever ) fun_two ;; loops forever ( fun_two ) fun_one ;; calls fun_two-- never returns Simply enter the above into an empty JED `*scratch*' buffer, then press ` ESC' and enter `1 =_traceback evalbuffer fun_one'. This will turn on tracebacks, evaluate the buffer and call the function `fun_one'. JED will then be put into an infinite loop which can only be stopped by pressing the abort character which by default is . Doing so, will produce the traceback messages S-Lang Traceback: fun_two S-Lang Traceback: fun_one in addition to the error message `User Break!'. Of course, this technique only narrows down the source of an error to a particular function. To proceed further, it may necessary to put "print" statements at suitable places in the function. There are several ways to do this: 1. Use the `insert' function to insert the contents of a variable into the current buffer. 2. Use the `error' function to abort the function and display the value of a variable in the minibuffer. 3. Use the `message' function to display the value of a variable in the minibuffer. Unlike `error', the `message' function does not abort the execution of the function. Since each of these functions require a string argument, it is usually best to call the `string' function first for the conversion followed by the output function. This has to be done anyway if it is desired to get the contents of an integer variable. Although the second approach is prehaps the most useful in practice, it is somtimes appropriate to use a combination of these techniques. Finally, to print the entire stack, one can use the `print_stack' function. This function dumps the S-Lang runtime stack into the `*traceback*' buffer. Since S-Lang is an interpreted language, judicious application of the above techniques should lead very quickly to the source of any errors.  File: jed.info, Node: Eight Bit Clean Issues, Next: Miscellaneous, Prev: Customization, Up: Top Eight Bit Clean Issues ====================== * Menu: * Displaying Characters with the High Bit Set:: * Inputting Characters with the High Bit Set:: * Upper Case - Lower Case Conversions::  File: jed.info, Node: Displaying Characters with the High Bit Set, Next: Inputting Characters with the High Bit Set, Up: Eight Bit Clean Issues Displaying Characters with the High Bit Set ------------------------------------------- There are several issues to consider here. The most important issue is how to get JED to display 8 bit characters in a "clean" way. By "clean" I mean any character with the high bit set is sent to the display device as is. This is achieved by putting the line: 1 =DISPLAY_EIGHT_BIT in the `jed.rc' (`.jedrc') startup file. European systems might want to put this in the file `site.sl' for all users. The default is 1 so unless its value has been changed, this step may not be necessary. There is another issue. Suppose you want to display 8 bit characters with extended Ascii codes greater than or equal to some value, say 160. This is done by putting `160 =DISPLAY_EIGHT_BIT'. I believe that ISO Latin character sets assume this. This is the default value for Unix and VMS systems. See also the file `iso-latin.sl'.  File: jed.info, Node: Inputting Characters with the High Bit Set, Next: Upper Case - Lower Case Conversions, Prev: Displaying Characters with the High Bit Set, Up: Eight Bit Clean Issues Inputting Characters with the High Bit Set ------------------------------------------ Inputting a character into JED with the high bit set is another issue. How JED interprets this is controlled by the variable `META_CHAR'. Specifically what happens is this: When JED reads a character from the input device with the high bit set, it: 1. Checks the value of `META_CHAR'. If this value is -1, JED simply inserts the character into the buffer. 2. For any other value of `META_CHAR' in the range 0 to 255, JED returns two 7-bit characters. The first character returned is `META_CHAR' itself. The next character returned is the original character but with the high bit stripped. The default value of `META_CHAR' is -1 which means that when JED sees a character with the high bit set, JED leaves it as is. Please note that a character with the high bit set cannot be the prefix character of a keymap. It can be a part of the keymap but not the prefix. Some systems only handle 7-bit character sequences and as a result, JED will only see 7-bit characters. JED is still able to insert any character in the range 0-255 on a 7-bit system. This is done through the use of the `quoted_insert' function which, by default, is bound to the backquote key `. If the `quoted_insert' function is called with a digit argument (repeat argument), the character with the value of the argument is inserted into the buffer. Operationally, one hits ESC, enters the extended Ascii code and hits the backquote key. For example, to insert character 255 into the buffer, simply press the following five keys: `ESC 2 5 5 `'.  File: jed.info, Node: Upper Case - Lower Case Conversions, Prev: Inputting Characters with the High Bit Set, Up: Eight Bit Clean Issues Upper Case - Lower Case Conversions ----------------------------------- The above discussion centers around input and output of characters with the high bit set. How JED treats them internally is another issue and new questions arise. For example, what is the uppercase equivalent of a character with ASCII code 231? This may vary from language to language. Some languages even have characters whose uppercase equivalent correspond to multiple characters. For JED, the following assumptions have been made: 1. Each character is only 8 bits. 2. Each character has a unique uppercase equivalent. 3. Each character has a unique lowercase equivalent. It would be nice if a fourth assumption could be made: 4. The value of the lowercase of a character is greater than or equal to its uppercase counterpart. However, apparently this is not possible since most IBMPC character sets violate this assumption. Hence, JED does not assume it. Suppose X is the upper case value of some character and suppose Y is its lower case value. Then to make JED aware of this fact and use it it case conversions, it may be necessary to put a statement of the form: X Y define_case in the startup file. For example, suppose 211 is the uppercase of 244. Then, the line `211 244 define_case' will make JED use this fact in operations involving the case of a character. This has already been done for the ISO Latin 1 character set. See the file `iso-latin.sl' for details. For MSDOS, this will not work. Instead use the files `dos437.sl' and `dos850.sl'. By default, JED's internal lookup tables are initialized to the ISO Latin set for Unix and VMS systems and to the DOS 437 code page for the IBMPC. To change the defaults, it is only necessary to load the appropriate file. For example, to load `dos850.sl' definitions, put "dos850.sl" evalfile pop in the startup file (e.g., `site.sl'). In addition to uppercase/lowercase information, these files also contain word definitions, i.e., which characters constitute a "word".  File: jed.info, Node: Miscellaneous, Prev: Eight Bit Clean Issues, Up: Top Miscellaneous ============= * Menu: * Abort Character:: * Input Translation:: * Display Sizes::  File: jed.info, Node: Abort Character, Next: Input Translation, Up: Miscellaneous Abort Character --------------- The abort character ( by default) is special and should not be rebound. On the IBMPC, the keyboard interrupt 0x09 is hooked and a quit condition is signaled when it is pressed. For this reason, it should not be used in any keybindings. A similar statement holds for the other systems. This character may be changed using the function `set_abort_char' Using this function affects all keymaps. For example, putting the line 30 set_abort_char in your `jed.rc' file will change the abort character from its current value to 30 which is Control-^.  File: jed.info, Node: Input Translation, Next: Display Sizes, Prev: Abort Character, Up: Miscellaneous Input Translation ----------------- By using the function `map_input' the user is able to remap characters input from the terminal before JED's keymap routines have a chance to act upon them. This is useful when it is difficult to get JED to see certain characters. For example, consider the  character. This character is especially notorious because many systems use it and  for flow control. Nevertheless Emacs uses  for searching. Short of rebinding all keys which involve a  how does one work with functions that are bound to key sequences using ? This is where `map_input' comes into play. The `map_input' function requires two integer arguments which define how a given ascii character is to be mapped. Suppose that you wish to substitute  for  everywhere. The line 28 19 map_input will do the trick. Here 28 is the ascii character of  and 19 is the ascii character for the . As another example, consider the case where the backspace key sends out a  instead of the DEL character (?). 8 127 map_input will map the  (8) to the delete character (127).  File: jed.info, Node: Display Sizes, Prev: Input Translation, Up: Miscellaneous Display Sizes ------------- On VMS and unix systems, the screen size may be changed to either 80 or 132 columns by using the functions `w80' and `w132' respectively. Simply enter the appropriate function name at the `M-x' prompt in the minibuffer. The default binding for access to the minibuffer is `ESC X'. Most window systems, e.g., DECWindows, allow the window size to be changed. When this is done, JED should automatically adapt to the new size. On the PC, at this time the screen size cannot be changed while JED is running. Instead it is necessary to exit JED first then set the display size and rerun JED. y using the functions `w80' and `w132' respectively. Simply enter the appropriate function name at the `M-x' prompt in the minibuffer. The default binding for access to the minibuffer is `ESC X'. Most window systems, e.g., DECWindows, allow the window size to be changed. When this is done, JED should automatically adapt to the new size. On the PC, at this time the screen size cannot be changed jed-0.97.12/info/jed.info000064400000000000003000000030460603742310200146420ustar00rootsys00000000000000This is Info file jed.info, produced by Makeinfo-1.55 from the input file jed.ti.  Indirect: jed.1in: 83 jed.2in: 24234 jed.3in: 49114  Tag Table: (Indirect) Node: Top83 Node: Introduction709 Node: Installing JED1313 Node: Startup Files3430 Node: Starting JED4438 Node: Emulating Other Editors6529 Node: Emacs Emulation7026 Node: EDT Emulation7590 Node: Wordstar Emulation9907 Node: File Types and Sizes10279 Node: Backup and Autosave Files10894 Node: Status line and Windows12656 Node: MiniBuffer13580 Node: Command Line Completion14501 Node: File Names16808 Node: Buffer Name and File Name Completion19290 Node: Basic Editing20155 Node: Undo21943 Node: Marking Text (Point and Mark)22967 Node: Tab Issues.24234 Node: Searching27481 Node: Rectangles29905 Node: Sorting30926 Node: Modes33018 Node: Wrap Mode33723 Node: Formatting paragraphs34040 Node: Smart Quotes35827 Node: C Mode36987 Node: Fortran Mode38152 Node: Keyboard Macros38869 Node: Shells and Shell Commands40843 Node: Getting Help42061 Node: Editing Binary Files42866 Node: Dired43608 Node: Mail45714 Node: Customization47963 Node: Setting Keys49114 Node: Predefined Variables52820 Node: Hooks54172 Node: S-Lang Programming Hints (Debugging)57163 Node: Eight Bit Clean Issues61244 Node: Displaying Characters with the High Bit Set61539 Node: Inputting Characters with the High Bit Set62645 Node: Upper Case - Lower Case Conversions64483 Node: Miscellaneous66739 Node: Abort Character66919 Node: Input Translation67632 Node: Display Sizes68904  End Tag Table 42866 Node: Dired43608 Node: Mail45714 Node: Customization47963 Node: Setting Keys49114 Node: Predefined Variables52820 Node: Hooks54172 Node: S-Lang Programming Hints (Debugging)57163 Node: Eight Bit Clean Issues61244 Node: Displaying Characters with the High Bit Set61539 Node: Inputting Characters with the High Bit Set62645 Node: Upper Case - Lower Case Conversions64483 Node: Miscellaneous66739 Node: Abort Character66919 Node: Input Translation67632 Nodejed-0.97.12/lib/004075500000000000003000000000000611265627700130565ustar00rootsys00000000000000jed-0.97.12/lib/ashell.sl000064400000000000003000000033660603742310200146530ustar00rootsys00000000000000% async shell for jed !if (is_defined ("Shell_Default_Shell")) { variable Shell_Default_Shell = "sh"; } variable AShell_Id = -1; define ashell_send_input () { variable buf; variable this_line, mark_line; variable m, ch, prompt; m = process_mark (AShell_Id); this_line = what_line (); push_mark (); goto_user_mark (m); mark_line = what_line (); if (this_line >= mark_line) { pop_mark (0); push_mark (); eob (); buf = bufsubstr (); } else { bskip_chars ("\t "); push_mark (); !if (bolp ()) { go_left (1); ch = what_char (); } bol (); prompt = bufsubstr (); pop_mark (1); bol (); if (looking_at (prompt)) { go_right (strlen (prompt)); } else if (ffind (char (ch))) { go_right (1); } push_mark (); eol (); buf = bufsubstr (); eob (); insert (buf); } newline (); move_user_mark (m); send_process (AShell_Id, strcat (buf, "\n")); } $1 = "AShellMap"; !if (keymap_p ($1)) { make_keymap ($1); definekey ("ashell_send_input", "^M", $1); } define ashell_signal_handler (pid, flags) { eob (); if (flags == 2) { insert ("\n\n----- Process STOPPED ----------\n\n"); } else if (flags == 4) { insert ("\n\n----- Process EXITED ----------\n\n"); } else if (flags == 8) { insert ("\n\n----- Process SIGNALLED ----------\n\n"); } AShell_Id = -1; } define ashell () { variable buf = "*ashell*"; if (bufferp (buf)) { error ("Currently, only one shell process is supported."); } pop2buf (buf); use_keymap ("AShellMap"); erase_buffer (); AShell_Id = open_process (Shell_Default_Shell, "-i", 1); set_process (AShell_Id, "signal", "ashell_signal_handler"); } - Process EXITED ----------\n\n"); } else if (flags == 8) { insert ("\n\n----- Process SIGNALLED ----------\n\n"); } AShell_Id = -1; } define ashell () { variable buf = "*ashell*"; if (bufferp (buf)) { error ("Currently, onjed-0.97.12/lib/brief.sl000064400000000000003000000141650603742310200144710ustar00rootsys00000000000000% Brief editor emulation % I do not think that this will work very well at all on non-IBMPC systems % because of the heavy dependence on keys that are meaningless. % Since alt keys are used, make sure that they are enabled. ALT_CHAR = 0; set_status_line("(Jed %v) Brief: %b (%m%a%n%o) %p,%c %t", 1); Help_File = Null_String; define brief_home () { if (bolp ()) { if (window_line () == 1) bob (); else goto_top_of_window (); } bol (); } define brief_end () { if (eolp ()) { if (window_line () == window_info ('r')) eob (); else goto_bottom_of_window (); } eol (); } define brief_line_to_eow () { recenter (window_info ('r')); } define brief_line_to_bow () { recenter (1); } define brief_line_to_mow () { recenter (window_info ('r') / 2); } define brief_set_bkmrk_cmd (n) { ungetkey (n + '0'); bkmrk_set_mark (); } define brief_delete_to_bol () { push_mark (); bol(); del_region (); } define brief_toggle_case_search () { CASE_SEARCH = not (CASE_SEARCH); } variable Brief_Regexp_Search = 0; define brief_toggle_regexp () { Brief_Regexp_Search = not (Brief_Regexp_Search); } variable Brief_Search_Forward = 1; define brief_search_cmd () { variable search_fun; if (Brief_Search_Forward) { if (Brief_Regexp_Search) search_fun = &re_search_forward; else search_fun = &search_forward; } else { if (Brief_Regexp_Search) search_fun = &re_search_backward; else search_fun = &search_backward; } search_fun (); } define brief_reverse_search () { Brief_Search_Forward = not (Brief_Search_Forward); brief_search_cmd (); } define brief_line_mark () { bol (); smart_set_mark_cmd (); eol (); } variable Brief_Use_Rectangle = 0; define brief_yank () { if (Brief_Use_Rectangle) { insert_rect (); } else call ("yank"); } define brief_copy_region () { if (Brief_Use_Rectangle) { copy_rect (); } else call ("copy_region"); } define brief_kill_region () { if (Brief_Use_Rectangle) { kill_rect (); } else call ("kill_region"); } define brief_delete () { if (markp ()) { if (Brief_Use_Rectangle) { kill_rect (); } else { del_region (); } return; } del (); } define brief_set_mark_cmd () { Brief_Use_Rectangle = 0; smart_set_mark_cmd (); } define brief_set_column_mark () { Brief_Use_Rectangle = 1; smart_set_mark_cmd (); message ("Column mark set."); } unsetkey ("^K"); unsetkey ("^X"); unsetkey ("^W"); unsetkey ("^F"); %setkey ("bdelete_word", "^@"); % Ctrl Bksp setkey ("brief_home", "\xE0G"); % Home setkey ("brief_home", "Ow"); % Home setkey ("brief_end", "\xE0O"); % End setkey ("brief_end", "Oq"); % End setkey ("brief_line_to_bow", "^T"); setkey ("brief_line_to_mow", "^C"); setkey ("brief_line_to_eow", "^B"); setkey ("brief_delete","\xE0S"); % Delete setkey ("brief_delete","\xOn"); % Delete setkey ("undo", "\eOR"); % Keypad Star setkey ("bskip_word", "\xE0s"); % Ctrl Left setkey ("bskip_word", "^@s"); % Ctrl Left setkey ("skip_word", "\xE0t"); % Ctrl Right setkey ("skip_word", "^@t"); % Ctrl Right setkey ("bob", "\xE0\d132"); % Ctrl Pgup setkey ("bob", "^@\d132"); % Ctrl Pgup setkey ("eob", "\xE0v"); % Ctrl Pgdn setkey ("eob", "^@v"); % Ctrl Pgdn setkey ("goto_top_of_window", "\xE0w");% Ctrl Home setkey ("goto_top_of_window", "^@w");% Ctrl Home setkey ("goto_bottom_of_window", "\xE0u");% Ctrl End setkey ("goto_bottom_of_window", "^@u");% Ctrl End setkey ("brief_yank", "\xE0R"); % Insert setkey ("brief_yank", "Op"); % Insert setkey ("brief_copy_region", "\eOm"); % Keypad Plus setkey ("brief_kill_region", "\eOS"); % Keypad Minus setkey ("find_file", "^@"); % Alt E setkey ("help_prefix", "^@#"); % Alt H setkey ("write_buffer", "^@"); % Alt O setkey ("save_buffer", "^@"); % Alt W setkey ("exit_jed", "^@-"); % Alt X setkey ("replace_cmd", "^@@"); % Key F6 setkey ("brief_search_cmd", "^@?"); % Key F5 setkey ("brief_reverse_search", "^@l"); % Alt F5 setkey ("brief_search_cmd", "^@X"); % Shift F5 setkey ("brief_toggle_case_search", "^@b");% Ctrl F5 setkey ("brief_toggle_regexp", "^@c"); % Ctrl F6 setkey ("page_down", "^D"); setkey ("page_up", "^E"); setkey ("brief_delete_to_bol", "^K"); setkey ("isearch_forward", "^S"); setkey ("brief_set_mark_cmd", "^@"); % Alt A setkey ("list_buffers", "^@0"); % Alt B setkey ("brief_set_column_mark", "^@.");% Alt C setkey ("delete_line", "^@ "); % Alt D setkey ("goto_line_cmd", "^@\""); % Alt G setkey ("toggle_overwrite", "^@"); % Alt I setkey ("bkmrk_goto_mark", "^@$"); % Alt J setkey ("kill_line", "^@%"); % Alt K setkey ("set_mark_cmd", "^@2"); % Alt M setkey ("switch_to_buffer", "^@1"); % Alt N setkey ("insert_file", "^@"); % Alt R setkey ("brief_search_cmd", "^@"); % Alt S setkey ("replace_cmd", "^@"); % Alt T setkey ("undo", "^@"); % Alt U setkey ("brief_line_mark", "^@&"); % Alt L setkey (".0 brief_set_bkmrk_cmd", "^@\d129");% Alt 0 setkey (".1 brief_set_bkmrk_cmd", "^@x");% Alt 1 setkey (".2 brief_set_bkmrk_cmd", "^@y");% Alt 2 setkey (".3 brief_set_bkmrk_cmd", "^@z");% Alt 3 setkey (".4 brief_set_bkmrk_cmd", "^@{");% Alt 4 setkey (".5 brief_set_bkmrk_cmd", "^@|");% Alt 5 setkey (".6 brief_set_bkmrk_cmd", "^@}");% Alt 6 setkey (".7 brief_set_bkmrk_cmd", "^@~");% Alt 7 setkey (".8 brief_set_bkmrk_cmd", "^@");% Alt 8 setkey (".9 brief_set_bkmrk_cmd", "^@\d128");% Alt 9 setkey ("delete_word", "^@"); % Alt Bksp setkey ("goto_match", "^Q["); setkey ("goto_match", "^Q\e"); setkey ("goto_match", "^Q]"); setkey ("goto_match", "^Q^]"); % Not sure about this!!! unsetkey ("\e\e"); setkey ("end_macro", "\e\e"); % These two cannot be bound. %setkey ("scroll_left", ""); % Shift End %setkey ("scroll_right", ""); % Shift Home ");% Alt 7 setkey (".8 brief_set_bkmrk_cmd", "^@");% Alt 8 setkey (".9 brief_set_bkmrk_cmd", "^@\d128");% Alt 9 setkey ("delete_word", "^@"); % Alt Bksp setkey ("goto_match", "^Q["); setkey ("goto_match", "^Q\e"); setkey ("goto_match", "^Q]"); setkey ("goto_match", "^Q^]"); % Not sure about this!!! unsetkey ("\e\e"); setkey ("end_macro", "\e\e"); % These two cannot be jed-0.97.12/lib/lisp.sl000064400000000000003000000022050603742310200143410ustar00rootsys00000000000000% Lisp mode $1 = "LISP"; create_syntax_table ($1); define_syntax ("([", ")]", '(', $1); define_syntax (";", "", '%', $1); define_syntax ('"', '"', $1); define_syntax ('\\', '\\', $1); define_syntax ("0-9a-zA-Z_", 'w', $1); % words define_syntax ("-+0-9", '0', $1); % Numbers % define_syntax ("", ',', $1); % Delimiters define_syntax ('#', '#', $1); % preprocessor % define_syntax ("%-+/&*=<>|!~^", '+', $1); % binary operators () = define_keywords ($1, "eqifor", 2); () = define_keywords ($1, "defunwhile", 5); define lisp_indent_line () { variable val, col; push_spot (); bol (); val = find_matching_delimiter (')'); col = what_column (); if (val == 1) col += 3; pop_spot (); push_spot (); bol_skip_white (); if (col != what_column ()) { bol (); trim (); col--; whitespace (col); } pop_spot (); push_mark (); bskip_white (); if (bolp ()) { skip_white (); pop_mark (0); } else pop_mark (1); } define lisp_mode () { setmode("lisp", 2); set_buffer_hook ("indent_hook", "lisp_indent_line"); use_syntax_table ("LISP"); runhooks ("lisp_mode_hook"); } iter (')'); col = what_column (); if (val == 1) col += 3; pop_spot (); push_spot (); bol_skip_white (); if (col != what_column ()) { bol (); trim (); col--; whitespace (col); } pop_spot (); push_mark (); bskip_white (); if (bolp ()) { skip_white (); pop_mark (0); } else pop_mark (1); } define lisp_mode () { setmodejed-0.97.12/lib/html.sl000064400000000000003000000106500603742310300143420ustar00rootsys00000000000000% % file : html.sl % % Author : Raikanta Sahu, rsahu@mail.unm.edu % Modified by John E. Davis for incorporation into JED. % % Html mode for jed % % % Start up stuff for a html file % define html_start() { insert("\n\n\n\n\n") ; insert("\n\n\n\n") ; go_up(6) ; go_left(8) ; } define html_insert_go_left (s, n) { insert (s); go_left (n); } % % Make title % define html_title () { html_insert_go_left ("", 8); } % % Make h1 heading % define html_h1 () { html_insert_go_left ("

", 5); } % % Make h2 heading % define html_h2 () { html_insert_go_left ("

", 5); } % % Make h3 heading % define html_h3 () { html_insert_go_left ("

", 5); } % % Make a paragraph marker % define html_paragraph () { insert("

") ; } % % Make a unordered list marker % define html_ul () { insert("

    \n\n
") ; go_up(1) ; } % % Make a ordered list marker % define html_ol () { insert("
    \n\n
") ; go_up(1) ; } % % Make a list item % define html_item () { insert("
  • ") ; } % % Make an anchor marker % define html_anchor () { html_insert_go_left ("", 6); } % % Make an reference marker % define html_name () { html_insert_go_left ("", 6); } % % Make an address marker % define html_address () { html_insert_go_left ("
    ", 10); } % % Make markers for preformatted text % define html_preformat () { insert("
    \n\n
    ") ; go_up(1) ; } % % Make markers for code % define html_code () { html_insert_go_left ("", 7); } % % Make markers for emphasis % define html_emphasis () { html_insert_go_left ("", 5); } % % Make markers for bold % define html_bold () { html_insert_go_left ("", 4); } % % Make markers for an image % define html_image () { html_insert_go_left ("", 2); } % % main entry point into the html mode % commands available to keystrokes in html mode % $1 = "HTML"; !if (keymap_p ($1)) make_keymap ($1); definekey ("html_start", "^Cs", $1); definekey ("html_title", "^Ct", $1); definekey ("html_h1", "^C1", $1); definekey ("html_h2", "^C2", $1); definekey ("html_h3", "^C3", $1); definekey ("html_ul", "^Cu", $1); definekey ("html_ol", "^Co", $1); definekey ("html_item", "^Cl", $1); definekey ("html_paragraph", "^Cp", $1); definekey ("html_anchor", "^Ca", $1); definekey ("html_name", "^Cn", $1); definekey ("html_address", "^Cd", $1); definekey ("html_preformat", "^Cf", $1); definekey ("html_emphasis", "^Ce", $1); definekey ("html_code", "^Co", $1); definekey ("html_image", "^Ci", $1); create_syntax_table ($1); define_syntax ("<", ">", '(', $1); % make these guys blink match define_syntax ("<>", '<', $1); define_syntax ("", '%', $1); define_syntax ("A-Za-z&", 'w', $1); () = define_keywords ($1, "><", 3); () = define_keywords ($1, "Ð&ð", 4); () = define_keywords ($1, strcat ( "ÄËÏÖÜ", "äëï ö"üÿ" ), 5); () = define_keywords ($1, strcat ( "ÆÂÅÊÎÔÞÛâ", "æåêîôßþû" ), 6); () = define_keywords ($1, strncat ( "ÁÀÃÇÉÈÍÌ", "ÑÓÒØÕÚÙÝ", "áàãçéèíì", "ñóòøõúùý", 4), 7); %!% Prototype: Void html_mode (); %!% @html_mode@ is a mode designed for editing html files. It is similar to %!% @text_mode@ except it adds the following keybindings designed to %!% facilitate the entry of html files: %!% @ Function @Key %!% @ html_start ^Cs %!% @ html_title ^Ct %!% @ html_h1 ^C1 %!% @ html_h2 ^C2 %!% @ html_h3 ^C3 %!% @ html_ul ^Cu %!% @ html_ol ^Co %!% @ html_item ^Cl %!% @ html_paragraph ^Cp %!% @ html_anchor ^Ca %!% @ html_name ^Cn %!% @ html_address ^Cd %!% @ html_preformat ^Cf %!% @ html_emphasis ^Ce %!% @ html_code ^Co %!% @ html_image ^Ci %!% This function calls @html_mode_hook@ if it exists. define html_mode () { variable html = "HTML"; setmode("html", 1); use_syntax_table (html); use_keymap (html); runhooks ("html_mode_hook"); } h3 ^C3 %!% @ html_ul ^Cu %!% @ html_ol ^Co %!% @ html_item jed-0.97.12/lib/nroff.sl000064400000000000003000000020220603742310300145020ustar00rootsys00000000000000% nroff.sl -*- SLang -*- % % Primitive nroff editing mode -- just enough to define paragraphs % to prevent CMD from wrapping % define nroff_parsep () { bol (); (looking_at_char('.') or looking_at_char('\\') or (skip_white(), eolp())); } $1 = "nroff"; create_syntax_table ($1); define_syntax ("'\\\"", "", '%', $1); % Comment Syntax define_syntax ('.', '\\', $1); % Quote character define_syntax ("({[", ")]}", '(', $1); % are all these needed? define_syntax ("{}[]<>()", ',', $1); % delimiters define_syntax (".a-zA-Z", 'w', $1); % A few standard keywords -- uppercase only, nothing fancy () = define_keywords ($1, ".B.I", 2); () = define_keywords ($1, ".BR.DT.IP.PP.RB.RI.RE.RS.SB.SH.TH.TP", 3); %!% Protoytype: Void nroff_mode (); %!% A primitive mode for editing nroff/troff files. %!% mostly to define the paragraph separator define nroff_mode () { variable nroff = "nroff"; setmode (nroff, 1); use_syntax_table (nroff); set_buffer_hook ("par_sep", "nroff_parsep"); runhooks ("nroff_mode_hook"); } ".a-zA-Z", 'w', $1); % A few standard keywords -- uppercase only, nothing fancy () = define_keywords ($1, ".B.I", 2); () = define_keywords ($1, ".BR.DT.IP.PP.RB.RI.RE.RS.SB.SH.TH.TP", 3); %!% Protoytype: Void nroff_mode (); %!% A primitive mode for editing nroff/troff files. %!% mostly to define the paragraph separator define nroff_mode () { variable nroff = "nroff"; setmode (nroff, 1); use_syntax_table (nroff); set_buffer_hook ("par_sep", "nroff_parsep"); runhooks ("nrofjed-0.97.12/lib/abbrev.sl000064400000000000003000000015010603742310300146320ustar00rootsys00000000000000 !if (is_defined ("Abbrev_File")) { variable Abbrev_File; $1 = getenv ("JED_HOME"); !if (strlen ($1)) { $1 = getenv ("HOME"); } #ifdef VMS if (0 == strlen ($1)) { Abbrev_File = "SYS$LOGIN:abbrevs.sl"; } else Abbrev_File = dircat ($1, Abbrev_File); #else #ifdef MSDOS OS2 Abbrev_File = "abbrevs.sl"; #else Abbrev_File = ".abbrevs.sl"; #endif Abbrev_File = dircat ($1, Abbrev_File); #endif % VMS } if (file_status (Abbrev_File) > 0) pop (evalfile (Abbrev_File)); define set_abbrev_mode (val) { getbuf_info (); if (val) () | 0x800; else () & ~(0x800); setbuf_info(()); } define abbrev_mode () { variable flags = getbuf_info() xor 0x800; variable msg = "Abbrev mode OFF"; setbuf_info(flags); if (flags & 0x800) msg = "Abbrev mode ON"; message (msg); } bbrev_File = "abbrevs.sl"; #else Abbrev_File = ".abbrevs.sl"; #endif Abbrev_File = dircat ($1, Abbrev_File); #endif % VMS } if (file_status (Abbrev_File) > 0) pop (evalfile (Abbrev_Fijed-0.97.12/lib/abbrmisc.sl000064400000000000003000000040440603742310300151600ustar00rootsys00000000000000% Miscellaneous function for the abbrev tables evalfile ("abbrev.sl"); define define_abbrev_for_table (table, word) { variable n = what_line (); variable use_bskip = 1; variable exg = "exchange"; variable abbrev, expans; if (markp ()) { call (exg); if (n == what_line (), call (exg)) use_bskip = 0; } push_spot (); if (use_bskip) { push_mark (); bskip_chars (word); } expans = bufsubstr (); pop_spot (); !if (strlen (expans)) { expans = read_mini("For what?", Null_String, Null_String); !if (strlen (expans)) return; } abbrev = read_mini (strncat ("Enter abbrev for '", expans, "'", 3), Null_String, Null_String); !if (strlen (abbrev)) return; define_abbrev (table, abbrev, expans); } define define_abbreviation () { variable tbl, word; (tbl, word) = what_abbrev_table (); !if (strlen (tbl)) { tbl = "Global"; create_abbrev_table (tbl, Null_String); (tbl, word) = what_abbrev_table (); } define_abbrev_for_table (tbl, word); } define save_abbrevs () { variable file = read_file_from_mini ("Save abbrevs to:"); variable n, table, word; !if (strlen (extract_filename (file))) { file = dircat (file, Abbrev_File); } !if (strlen (extract_filename (file))) error ("Invalid file."); n = list_abbrev_tables (); % tables on stack !if (n) return; read_file (file); pop (); erase_buffer (); loop (n) { table = (); push_spot (); word = dump_abbrev_table (table); pop_spot (); insert(Sprintf ("create_abbrev_table (\"%s\", \"%s\");\n", table, word, 2)); go_up_1 (); while (down_1 () and not(eobp())) { insert ("define_abbrev (\""); insert(table); insert ("\",\t\""); push_spot (); while (ffind("\\")) { insert ("\\"); go_right (1); } pop_spot (); ffind ("\t"); pop (); trim (); insert ("\",\t\""); eol (); insert ("\");"); } } save_buffer (); delbuf (whatbuf); } insert(Sprintf ("create_abbrev_table (\"%s\", \"%s\");\n", table, word, 2)); go_up_1 (); while (down_1 () and not(eobp())) { insert ("define_abbrev (\""); insert(table); insert ("\",\t\""); push_spot (); while (ffind("\\")) { insert ("\\"); go_right (1); } pop_spot (); ffind ("\t"); pop (); trim (); insert ("\",\t\""); eol (); insert ("\");"); } } save_buffer (); dejed-0.97.12/lib/binary.sl000064400000000000003000000011670603742310300146650ustar00rootsys00000000000000% It is used to read a file in binary mode. define find_binary_file () { variable file, bytes, len, pos; file = read_file_from_mini ("Find Binary File:"); ERROR_BLOCK { set_file_translation (0); } set_file_translation (1); find_file(file); pop(); EXECUTE_ERROR_BLOCK; no_mode(); set_overwrite(1); % % set the binary file flags getbuf_info(); setbuf_info(() | 0x200); bytes = count_chars(); if (string_match(bytes, ".*of \\([0-9]+\\)$", 1)) { string_match_nth(1); =len; =pos; bytes = substr(bytes, pos + 1, len); message (strcat(bytes, " bytes.")); } } file = read_file_from_mini ("Find Binary File:"); ERROR_BLOCK { set_file_translation (0); } set_file_translation (1); find_file(file); pop(); EXECUTE_ERROR_BLOCK; no_mode(); set_overwrite(1); % % set the binary file flags getbuf_info(); setbuf_info(() | 0x200); bytes = count_chars(); if (string_match(bytes, ".*of \\([0-9]+\\)$", 1)) {jed-0.97.12/lib/bookmark.sl000064400000000000003000000021240603742310400152010ustar00rootsys00000000000000% These routines user 'user_marks' to implement book marks. A book mark % may be placed in any buffer and returning to the mark may cause a change % of buffer. % The only functions that are considered external are 'bkmrk_set_mark' % and 'bkmrk_goto_mark'. These functions prompt for a a key '0' to '9'. % It might be better to reserve one of the marks so that when % 'bkmrk_goto_mark' is called, the reserved mark is set to the previous % position. !if (is_defined("Book_Marks")) { % user marks are of type 128 variable Book_Marks = create_array (128, 10, 1); } define bkmrk_get_number () { variable n; flush ("Bookmark number:"); n = getkey () - '0'; if ((n < 0) or (n > 9)) error ("Number must be less than 10."); n; } define bkmrk_set_mark () { variable n = bkmrk_get_number (); Book_Marks[n] = create_user_mark (); message (Sprintf ("Bookmark %d set.", n, 1)); } define bkmrk_goto_mark () { variable n = bkmrk_get_number (); variable mrk = Book_Marks[n]; sw2buf (user_mark_buffer (mrk)); goto_user_mark (mrk); message ("done."); } umber () { variable n; flush ("Bookmark number:"); n = getkey () - '0'; if ((n < 0) or (n > 9)) error ("Number must be less than 10."); n; } define bkmrk_set_mark () { variable n = bkmrk_get_number (); Book_Marks[n] = create_user_mark (); message (Sprintf ("Bookmark %d set.", n, 1)); } define bkmrk_goto_mark () { variable n = bkmrk_get_number (); variable mrk = Book_Marks[n]; sw2buf jed-0.97.12/lib/buf.sl000064400000000000003000000060170603742310400141550ustar00rootsys00000000000000%% Buffer routines for Jed. Functions included here are: %% %% list_buffers : pop up a list of buffers %% save_buffers : saves buffers that are associated with a file %% with no user intervention %% recover_file : restore buffer from autosave file. %% %% define list_buffers () { variable i, j, tmp, this, name, flags, flag_chars, skip; skip = 0; if (prefix_argument(-1) == -1) skip = 1; tmp = "*BufferList*"; this = whatbuf(); pop2buf(tmp); set_readonly(0); erase_buffer(); insert("U:Undo O:Overwrite R:Readonly D:Disk File Changed, A:Autosave, M:Modified\n"); insert("C:CRmode, B:Binary File, K:Not backed up, N:No autosave\n\n"); flag_chars = "CBKN-UORDAM"; insert ("\t\tBuffer Name"); goto_column(45); insert("Dir/File\n"); loop (buffer_list()) { name = (); if (skip and int(name) == 32) continue; %% internal buffers begin with a space setbuf(name); flags = getbuf_info(); % more on stack setbuf(tmp); bol(); i = 0x400; j = 0; while (i) { if (flags & i) char (flag_chars[j]); else "-"; insert(()); i = i shr 1; j++; } insert_char(9); insert(()); %% buffer name goto_column(45); !if (eolp()) { eol(); insert_single_space(); } insert(()); insert(()); %% dir/file newline(); } bob(); set_buffer_modified_flag(0); set_readonly (1); pop2buf(this); } %% %% save some buffers--- saves only modified buffers associated with %% files. Does not ask user. %% define save_buffers () { variable file, dir, flags, buf, ch; loop (buffer_list()) { =buf; ch = int(buf); if ((ch == 32) or (ch == '*')) continue; %% internal buffer or special setbuf(buf); getbuf_info(); =flags; pop(); =dir; =file; !if (strlen(file)) continue; %% no file assciated with it if (flags & 1) { !if (write_buffer(strcat(dir, file))) error (strcat ("Error writing buffer ", buf)); } } } %% write region to file define write_region() { variable file; !if (markp) error("Set Mark first!"); file = read_file_from_mini("File:"); write_region_to_file(file); } define append_region () { variable file; !if (markp) error("Set Mark first!"); file = read_file_from_mini("Append to File:"); if (-1 == append_region_to_file(file)) error ("Append failed."); } ;%% restores buffer from autosave file. define recover_file () { variable flags, file, dir, as, buf; getbuf_info(); =flags; pop(); =dir; =file; !if (strlen(file)) error("Buffer not associated with a file."); as = make_autosave_filename (dir, file); if (file_status(as) != 1) { error (strcat(as, " not readable.")); } buf = whatbuf(); as; if (file_time_compare(as, strcat(dir, file))) { " more recent. Use it"; } else " not recent. Use it"; if (get_yes_no(strcat((),())) > 0) { what_line(); setbuf(buf); erase_buffer(); insert_file(as); pop(); goto_line(); } } le; !if (strlen(file)) error("Buffer not associated with a file."); as = make_autosave_filename (dir, file); if (file_status(as) != 1) { error (strcat(as, " not readable.")); } buf = whatbuf(); as; if (file_time_compare(as, strcat(dir, file))) { " more recent. Use it"; } else " not recent. Use it"; if (get_yes_no(strcat((),())) > 0) { what_line(); setbuf(buf); erase_buffer(); insert_file(as); pop(); goto_line(); jed-0.97.12/lib/bytecomp.sl000064400000000000003000000031750603742310400152250ustar00rootsys00000000000000% !! WARNING: It is not a good idea to invoke this file directly. % Instead load it via preparse.sl. This may be performed % in batch mode as: % % jed -batch -n -l preparse % % !if (is_defined ("Preprocess_Only")) { variable Preprocess_Only = 0; } Null_String; % a marker % list of file to byte compile: #ifdef UNIX VMS . "mail.sl" "iso-latin.sl" #endif #ifdef UNIX . "rmail.sl" #endif #ifdef MSDOS OS2 . "dos437.sl" "dos850.sl" "brief.sl" #endif #ifdef XWINDOWS MOUSE . "mouse.sl" #ifdef MSWINDOWS . "mswmouse.sl" #endif #endif if (is_defined ("KILL_ARRAY_SIZE")) { "yankpop.sl"; } ."nroff.sl" ."html.sl" ."idl.sl" ."shmode.sl" ."mousex.sl" ."abbrev.sl" ."abbrmisc.sl" ."dabbrev.sl" ."mutekeys.sl" ."bookmark.sl" ."replace.sl" ."srchmisc.sl" ."tex.sl" ."bibtex.sl" ."latex.sl" ."latex209.sl" ."ltx-math.sl" ."binary.sl" ."isearch.sl" ."rot13.sl" ."tabs.sl" ."untab.sl" ."jedhelp.sl" ."ctags.sl" ."compile.sl" ."menu.sl" ."dired.sl" ."util.sl" ."syntax.sl" ."tmisc.sl" ."cmisc.sl" ."misc.sl" ."help.sl" ."cal.sl" ."man.sl" ."fortran.sl" ."dcl.sl" ."shell.sl" ."most.sl" ."info.sl" ."ispell.sl" ."sort.sl" ."regexp.sl" ."wordstar.sl" ."buf.sl" ."emacsmsc.sl" ."cmode.sl" ."slmode.sl" ."search.sl" ."linux.sl" ."mini.sl" ."edt.sl" ."emacs.sl" ."site.sl" define jed_byte_compile_file(f, method) { variable file; file = expand_jedlib_file(f); if (strlen(file)) { flush(strcat("Processing ", file)); byte_compile_file(file, method); } else flush(strcat(f, " not found-- Skipped.")); } while (=$1, strlen($1)) jed_byte_compile_file($1, Preprocess_Only); exit_jed(); pell.sl" ."sort.sl" ."regexp.sl" ."wordstar.sl" ."buf.sl" ."emacsmsc.sl" ."cmode.sl" ."slmode.sl" ."search.sl" ."linux.sl" ."mini.sl" ."edt.sl" ."emacs.sl" ."site.sl" define jed_byte_compile_file(f, method) { variable file; file = expand_jedlib_file(f); if (strlen(file)) { flush(strcat("Processing ", file)); byte_compile_file(file, method); } else flush(sjed-0.97.12/lib/cal.sl000064400000000000003000000106320603742310400141360ustar00rootsys00000000000000% % calender for JED % % It was written to test a mixture of S-Lang RPN and infix notation. % % It pops up a buffer like: % Jun 1993 Jul 1993 Aug 1993 % S M Tu W Th F S S M Tu W Th F S S M Tu W Th F S % 1 2 3 4 5 1 * 3 1 2 3 4 5 6 7 % 6 7 8 9 10 11 12 4 5 6 7 8 9 10 8 9 10 11 12 13 14 %13 14 15 16 17 18 19 11 12 13 14 15 16 17 15 16 17 18 19 20 21 %20 21 22 23 24 25 26 18 19 20 21 22 23 24 22 23 24 25 26 27 28 %27 28 29 30 25 26 27 28 29 30 31 29 30 31 % % The asterix denotes the current day. % The actual computational part of the code presented here is a % translation of cal.el included with the GNU Emacs distribution. % (suitably modified to work with 16 bit integers) %---------------------------------------------------------------------- % parse date define cal_convert_month(month, type) { variable lis, m, mnth; lis = "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"; if (type == 0) return (extract_element(lis, month - 1, ' ')); for (m = 0; m < 12; ++m) { mnth = extract_element(lis, m, ' '); if (0 == strcmp(month, mnth)) return (m + 1); } } define leap_year_p (year) { if ( not(year mod 4) and (year mod 100)) return (1); not (year mod 400); } define cal_day_number(month, day, year) { variable d; d = 31 * ( month - 1 ) + day; if (month > 2) { d = d - (month * 4 + 23) / 10; if (leap_year_p (year)) { ++d } } d; } define cal_day_of_week(month, day, year) { variable c, delta, n, a, b; n = cal_day_number(month, day, year); --year; a = n + year + year/4; c = year/100 * 3; b = 0; if (c mod 4) b = 1; return (a - (b + c/4)) mod 7; } define make_month(month year indent day) { variable first, nm, ny, max, i, istr, m; m = cal_convert_month(month, 1); first = cal_day_of_week(m, 1, year); nm = m + 1; ny = year; if (nm == 13) max = 31; else max = cal_day_number(nm, 1, ny) - cal_day_number(m, 1, year); ++indent; bob; goto_column(indent); insert(" "); insert(month); insert_single_space; insert(string(year)); !if (down_1 ()) newline(); goto_column(indent); insert(" S M Tu W Th F S"); !if (down_1) newline (); goto_column(first * 3 + indent); for (i = 1; i <= max; ++i) { if (first == 7) { !if (down_1 ()) {eol; newline} goto_column(indent); first = 0; } istr = string(i); if (strlen(istr) == 1) insert_single_space(); if (day == i) push_spot(); insert(istr); insert_single_space(); ++first; } } %%% strcaps-- returns capitalized string define strcaps(str) { str = strlow(str); strsub(str, 1, int (strup(char(int(str))))); } define calendar () { variable month, day, year, t, m, nlines, wlines, obuf, default, n; n = 0; obuf = whatbuf; t = time; month = extract_element(t, 1, ' '); day = extract_element(t, 2, ' '); % Some systems display the time as: Tue Jul 06 16:31:18 1993 % while others use Tue Jul 06 16:31:18 1993 % this silly bit is a result. if (strlen(day) == 0) { day = extract_element(t, 3, ' '); n = 1 } day = integer(day); year = extract_element(t, 4 + n, ' '); default = strcat(month, strcat(" ", string(year))); t = read_mini("Month Year:", default, Null_String); t = strtrim(t); month = strcaps(substr(extract_element(t, 0, ' '), 1, 3)); year = integer(extract_element(t, 1, ' ')); m = cal_convert_month(month, 1); pop2buf("*calendar*"); set_readonly(0); erase_buffer(); --m; if (0 == m) {m = 12; --year} cal_convert_month(m, 0); make_month(year, 0, 0); ++m; if (m == 13) {m = 1; ++year} cal_convert_month(m, 0); make_month(year, 25, day); ++m; if (m == 13) {m = 1; ++year} cal_convert_month(m, 0); make_month(year, 50, 0); % % fix window size % if (nwindows == 2) { eob(); bskip_chars("\n\t "); nlines = what_line - window_info('r'); if (nlines > 0) { loop (nlines) {call("enlarge_window") } } else { call("other_window"); loop(- nlines) {call("enlarge_window")} call("other_window"); } bob(); } % find current day pop_spot(); del(); insert_char('*'); if (isdigit(what_char())) {del(); insert_char('*')} set_readonly(1); set_buffer_modified_flag(0); bob(); pop2buf(obuf); % % what the heck, give current time % message(time) } = what_line - window_info('r'); if (nlines > 0) { loop (nlines) {call("enlarge_window") } jed-0.97.12/lib/cmisc.sl000064400000000000003000000072370603742310400145040ustar00rootsys00000000000000% % Miscellaneous functions for C mode: % % c_make_comment () % c_format_paragraph () % c_comment_region () % c_top_of_function () % c_end_of_function () % c_mark_function () % produce a comment for C--- define c_make_comment () { variable d, cbeg, cend, file, mode; cbeg = "/*"; cend = "*/"; (, mode) = whatmode (); !if (mode & 2) return; (file,,,) = getbuf_info(); if (mode & 8) { cbeg = "%"; cend = Null_String; } %% search for a comment on the line eol(); if (bfind(cbeg)) { !if (bolp()) { go_left(1); trim(); ffind(cbeg); pop(); } d = C_Comment_Column - what_column; if (d > 0) whitespace(d); !if (ffind(cend)) { eol(); insert(" "); insert (cend); } bfind(cbeg); pop(); go_right(strlen(cbeg) + 1); } else %/* not found */ { if (what_column() <= C_Comment_Column) { goto_column(C_Comment_Column); } else insert(" "); insert(cbeg); insert(" "); if (strlen(cend)) { insert (cend); go_left(3); } } } % This routine formats a comment in C mode. It is assumed that the standard % Jed comment format is used. variable Cmode_Fill_Chars = Null_String; define c_paragraph_sep () { if (strlen (Cmode_Fill_Chars)) return 0; push_spot (); bol_skip_white (); if (looking_at ("* ")) { go_right (2); skip_white (); if (looking_at ("@ ")) eol (); eolp (); } else 1; pop_spot (); } define c_format_paragraph () { variable n, dwrap; % !if (is_c_mode ()) return; Cmode_Fill_Chars = Null_String; if (c_paragraph_sep ()) return; push_spot (); push_spot (); push_spot (); while (not(c_paragraph_sep ())) { !if (up_1 ()) break; } if (c_paragraph_sep ()) go_down_1 (); push_mark (); pop_spot (); while (not(c_paragraph_sep ())) { !if (down_1 ()) break; } if (c_paragraph_sep ()) go_up_1 (); narrow (); pop_spot (); bol (); push_mark (); skip_white (); if (looking_at ("* ")) go_right (2); Cmode_Fill_Chars = bufsubstr (); dwrap = what_column (); bob (); do { bol (); trim (); if (looking_at ("* ")) deln (2); } while (down_1 ()); WRAP -= dwrap; call ("format_paragraph"); WRAP += dwrap; bob (); do { insert (Cmode_Fill_Chars); } while (down_1 ()); Cmode_Fill_Chars = Null_String; widen (); pop_spot (); } define c_comment_region () { variable cbeg = "/* ", cmid = " * ", cend = " */"; variable c, c1, celm, extra; check_region (1); call ("exchange"); c = what_column (); narrow (); bob (); USER_BLOCK0 { =extra; =celm; bol_skip_white (); c1 = what_column (); if (c1 > c) { goto_column (c); insert (celm); trim (); whitespace (c1 - what_column () + extra); } else { if (eolp ()) goto_column (c); insert (celm); } } X_USER_BLOCK0 (cbeg, 0); while (down_1 ()) { X_USER_BLOCK0 (cmid, 1); } widen (); bol_skip_white (); if (looking_at(cmid)) { deln (3); } else { eol (); !if (right(1)) newline (); } X_USER_BLOCK0 (cend, 0); pop_spot (); } define c_top_of_function () { !if (bol_bsearch ("{")) { error ("Top of function not found."); } } define c_end_of_function () { !if (bolp () and looking_at ("{")) c_top_of_function (); call ("goto_match"); } define c_mark_function () { c_end_of_function (); push_mark (); call ("set_mark_cmd"); eol (); go_down_1 (); exchange_point_and_mark (); c_top_of_function (); go_up(2); bol (); } } X_USER_BLOCK0 (cend, 0); pop_spot (); } define c_top_of_function () { !if (bol_bsearch ("{")) { error ("Top of function not found."); } } define c_end_of_function () { !if (bolp () and looking_at ("{")) c_top_of_function (); call ("goto_match"); } define c_mark_function () { c_end_of_function (); pusjed-0.97.12/lib/cmode.sl000064400000000000003000000227060603742310400144730ustar00rootsys00000000000000% New C-mode indentation routines autoload ("c_make_comment", "cmisc"); autoload ("c_format_paragraph", "cmisc"); autoload ("c_paragraph_sep", "cmisc"); autoload ("c_comment_region", "cmisc"); autoload ("c_top_of_function", "cmisc"); autoload ("c_end_of_function", "cmisc"); autoload ("c_mark_function", "cmisc"); define is_slang_mode () { variable is_slang; (, is_slang) = whatmode (); is_slang & 8; } define c_find_effective_eol () { bol (); while (ffind ("%")) { go_right (1); if (parse_to_point () == -2) { return; } } eol (); } define slmode_bskip_comment () { forever { bskip_chars (" \t%"); push_mark (); bol (); pop_mark (not(looking_at_char ('#'))); !if (bolp ()) return; !if (left (1)) return; c_find_effective_eol (); } } % This function also skips preprocessor lines define c_bskip_over_comment () { if (is_slang_mode ()) return slmode_bskip_comment (); forever { bskip_chars (" \t\n"); !if (blooking_at ("*/")) { push_mark (); bol (); !if (bobp ()) if (orelse {looking_at_char ('#')} % This is a hack for C++ code. I am not sure how good it % is... {skip_white (); looking_at ("//")}) { pop_mark (0); continue; } pop_mark (1); break; } !if (bsearch ("/*")) break; } } define c_looking_at (token) { variable cse = CASE_SEARCH, ret = 0; CASE_SEARCH = 0; if (looking_at(token)) { push_spot (); go_right(strlen(token)); POINT; skip_chars ("\t :({"); ret = (POINT - ()) or eolp(); pop_spot (); } CASE_SEARCH = cse; ret; } define c_indent_to (n) { bol_skip_white (); if (what_column != n) { bol (); trim (); n--; whitespace (n); } } define c_indent_line () { variable val, col, extra_indent = 0; variable match_char, match_indent, this_char; variable match_mark; push_spot (); bol_skip_white (); this_char = what_char (); EXIT_BLOCK { bol (); trim (); pop_spot (); } if (looking_at_char ('#')) return; push_spot (); if (up_1 ()) { eol (); if (blooking_at ("\\") and not (blooking_at ("\\\\"))) { pop_spot (); return; } } pop_spot (); EXIT_BLOCK { push_mark (); bskip_white (); 1; if (bolp ()) { pop (); skip_white (); 0; } pop_mark (()); % take argument from stack } if (orelse { c_looking_at("case"); } { c_looking_at("default"); } { c_looking_at("protected");} { c_looking_at("private");} { c_looking_at("public");} ) { if (ffind (":")) { extra_indent -= C_INDENT; extra_indent += C_Colon_Offset; } bol (); } else { c_bskip_over_comment (); !if (orelse { blooking_at (";") } { blooking_at ("{") } { blooking_at ("}") } { blooking_at (":") }) { extra_indent = C_CONTINUED_OFFSET; } } val = find_matching_delimiter (')'); col = what_column (); if ((val < 0) and looking_at ("/*")) val = -2; match_mark = create_user_mark (); match_char = what_char; bol_skip_white (); match_indent = what_column (); pop_spot (); switch (val) { case 0: % mismatch if (match_char == '{') { push_spot (); goto_user_mark (match_mark); bskip_white (); if (blooking_at (")")) { go_left (1); if (1 == find_matching_delimiter (')')) { bol_skip_white (); match_indent = what_column (); } } pop_spot (); col = match_indent; col += C_INDENT; } else { push_spot (); bol (); trim (); pop_spot (); return; } } { case 1: extra_indent = 1; % match found } { case -2: % inside comment if (is_slang_mode ()) return; push_spot (); if (this_char != '\\') col++; c_indent_to (col); % col++ because we are looking at /* if ((looking_at_char ('*')) or not (eolp ())) pop_spot (); else { insert ("* "); pop_spot (); if (what_column () <= col) { goto_column (col + 2); } } return; } { case 2: push_spot (); bol (); trim (); pop_spot (); return; } switch (this_char) { case '}': col -= C_INDENT; } { case '{': col += C_BRACE; } { pop (); col += extra_indent; } push_spot (); c_indent_to (col); pop_spot (); } % This function returns zero if the line does not begin with "* @ " % or returns the indent column if it does. This combination of characters % will most certainly appear in a comment. See the c file jed/src/intrin.c % for examples of how it is exploited. define c_is_comment_example () { push_spot (); bol_skip_white (); 0; if (looking_at ("* @ ")) { pop (); what_column (); } pop_spot (); } define c_newline_and_indent () { variable slcom = "%!% "; if (is_slang_mode ()) { push_spot (); bol (); if (looking_at (slcom), pop_spot ()) { newline (); insert (slcom); return; } } variable col = c_is_comment_example (); newline (); if (col) { c_indent_to (col); insert ("* @ "); } else c_indent_line (); } define c_parse_to_point () { parse_to_point () or c_is_comment_example (); } define c_insert_bra () { if (c_parse_to_point ()) insert_char ('{'); else { push_spot (); c_bskip_over_comment (); if (blooking_at (","), pop_spot ()) { insert_char ('{'); } else { push_spot (); skip_white (); if (eolp ()) { bskip_white (); if (not (bolp ()) and C_BRA_NEWLINE, pop_spot ()) newline (); push_spot (); bskip_white (); bolp (); % on stack pop_spot (); insert_char ('{'); if ( () ) c_indent_line (); % off stack eol (); if (C_BRA_NEWLINE != -1) c_newline_and_indent (); } else { pop_spot (); insert_char ('{'); } } } } define c_insert_ket () { variable status = c_parse_to_point (); push_spot (); skip_white (); push_spot (); if (status or not (eolp ()) or (bol_skip_white (), looking_at ("{")), pop_spot ()) { pop_spot (); insert_char ('}'); blink_match (); return; } bskip_white (); if (bolp (), pop_spot ()) { insert_char ('}'); trim (); } else { eol (); insert ("\n}"); } c_indent_line (); eol (); blink_match (); c_newline_and_indent (); } define c_insert_colon () { insert_char (':'); !if (c_parse_to_point ()) c_indent_line (); } $1 = "C"; !if (keymap_p ($1)) make_keymap ($1); %definekey ("indent_line", "\t", $1); definekey ("c_newline_and_indent", "\r", $1); definekey ("c_insert_bra", "{", $1); definekey ("c_insert_ket", "}", $1); definekey ("c_insert_colon", ":", $1); definekey ("c_make_comment", "\e;", $1); definekey ("c_comment_region", "^X;", $1); definekey ("c_format_paragraph", "\eq", $1); definekey ("c_top_of_function", "\e^A", $1); definekey ("c_end_of_function", "\e^E", $1); definekey ("c_mark_function", "\e^H", $1); % Now create and initialize the syntax tables. create_syntax_table ("C"); define_syntax ("/*", "*/", '%', "C"); define_syntax ("([{", ")]}", '(', "C"); define_syntax ('"', '"', "C"); define_syntax ('\'', '\'', "C"); define_syntax ('\\', '\\', "C"); define_syntax ("0-9a-zA-Z_", 'w', "C"); % words define_syntax ("-+0-9a-fA-F.xXL", '0', "C"); % Numbers define_syntax (",;.?:", ',', "C"); define_syntax ('#', '#', "C"); define_syntax ("%-+/&*=<>|!~^", '+', "C"); set_syntax_flags ("C", 4); () = define_keywords_n ("C", "doif", 2, 0); () = define_keywords_n ("C", "asmforintnewtry", 3, 0); () = define_keywords_n ("C", "autocasecharelseenumgotolongthisvoid", 4, 0); () = define_keywords_n ("C", "breakcatchclassconstfloatshortthrowunionwhile", 5, 0); () = define_keywords_n ("C", "deletedoubleexternfriendinlinepublicreturnsignedsizeofstaticstructswitch", 6, 0); () = define_keywords_n ("C", "defaultprivatetypedefvirtual", 7, 0); () = define_keywords_n ("C", "continueoperatorregistertemplateunsignedvolatile", 8, 0); () = define_keywords_n ("C", "protected", 9, 0); () = define_keywords_n ("C", "NULLexitfreeputsread", 4, 1); () = define_keywords_n ("C", "fgetsfputsfreadwrite", 5, 1); () = define_keywords_n ("C", "callocfwritemallocsscanfstrcmpstrlen", 6, 1); () = define_keywords_n ("C", "reallocsprintfstrncmp", 7, 1); %!% Protoytype: Void cmode (); %!% This is a mode that is dedicated to facilitate the editing of C language files. %!% Functions that affect this mode include: %!% @ function: default binding: %!% @ c_insert_bra { %!% @ c_insert_ket } %!% @ c_newline_and_indent RETURN %!% @ indent_line TAB %!% @ goto_match Ctrl-\ %!% @ c_make_comment ESC ; %!% @ c_format_paragraph ESC q %!% @ c_top_of_function ESC Ctrl-A %!% @ c_end_of_function ESC Ctrl-E %!% @ c_mark_function ESC Ctrl-H %!% Variables affecting indentation include: %!% @ C_INDENT %!% @ C_BRACE %!% @ C_BRA_NEWLINE %!% @ C_CONTINUED_OFFSET %!% @ C_Comment_Column (used by c_make_comment) define c_mode () { variable kmap = "C"; setmode(kmap, 2); use_keymap(kmap); use_syntax_table (kmap); set_buffer_hook ("par_sep", "c_paragraph_sep"); set_buffer_hook ("indent_hook", "c_indent_line"); runhooks("c_mode_hook"); } C Ctrl-A %!% @ c_end_of_function ESC Ctrl-E %!% @jed-0.97.12/lib/color.sl000064400000000000003000000005030603742310400145110ustar00rootsys00000000000000#ifdef MSDOS set_color("normal", "white", "blue"); set_color("status", "black", "lightgray"); set_color("region", "yellow", "magenta"); #else x_set_color ("normal", "black", "white"); x_set_color ("cursor", "green", "red"); x_set_color ("status", "black", "skyblue"); x_set_color ("region", "deeppink", "white"); #endif set_buffer_hook ("par_sep", "c_paragraph_sep"); set_buffer_hook ("indent_hook", "c_indent_line"); runhooks("c_mode_hook"); } C Ctrl-A %!% @ c_end_of_function ESC Ctrl-E %!% @jed-0.97.12/lib/compile.dat000064400000000000003000000050740603742310500151660ustar00rootsys00000000000000-*- SLang -*- This file should not be loaded directly. This file contains a database of regular expressions for extracting information generated by various compilers. It is used by "compile.sl" Find the function for your compiler and reference it in your jed.rc file. Currently supported compilers: bcc/tcc, Ultrix_cc, gcc, hp_cc, aix_cc/xlc/c89/f77/xlf, wcc -------------------------------------------------------------------------- Borland bcc/tcc compilers Error foo.c 4: Undefined symbol 'x' in function main Warning foo.c 34: Possible use of 'y' before definition in function main %@bcc %@tcc compile_parse_regexp = "^[EW][a-r]+ \\(.+\\) \\(\\d+\\):"; -------------------------------------------------------------------------- Ultrix cc compiler ccom: Error: t.c, line 14: LC_ALL undefined %@Ultrix_cc compile_parse_regexp = "Error: +\\(.+\\)\\\", line \\(\\d+\\):"; -------------------------------------------------------------------------- hp cc compiler cc: "t.c", line 3: error 1588: "ddkldkjdldkj" undefined. %@hp_cc compile_parse_regexp = "^cc: +\\\"\\(.+\\)\\\", line \\(\\d+\\):"; -------------------------------------------------------------------------- Sun acc compiler "filename.c", line 123: error: buffer undefined "filename.c", line 123: warning: fin not used %@sun_acc compile_parse_regexp = "^\\\"\\(.+\\)\\\", line \\(\\d+\\):"; -------------------------------------------------------------------------- AIX compiler, which may be referenced under any of these names. The Fortran compiler has the same format, so allow that too "foo.c", line 13.4: 1506-045 (S) Undeclared identifier bar. "foo.f", line 21.20: 1515-019 (S) Syntax is incorrect. %@aix_cc %@aix_xlc %@aix_c89 %@aix_f77 %@aix_xlf %@xlc %@xlf compile_parse_regexp = "^\\\"\\(.+\\)\\\", line \\(\\d+\\)\\."; -------------------------------------------------------------------------- The GNU cc compiler cmds.c:33: warning: initialization of non-const * pointer... cmds.c:1041 (cmds.o): Undefined symbol _Screen_Height referenced... %@gcc compile_parse_regexp = "^\\(.+\\):\\(\\d+\\) ?(?.*)?:."; -------------------------------------------------------------------------- The WATCOM compiler wcc keymap.c(71): Error! E1011: Symbol 'show_memory' has not been declared event.c(22): Warning! W202: Symbol 'xx' has been defined, but not referenced Warning(1028): PhGetMsgSize_ is an undefined reference file event.o(/home/qnx/rwm/photon/event.c): undefined symbol PhAttach_ %@wcc compile_parse_regexp = "^\\(.+\\)(\\(\\d+\\)): [EW].+[rg]! [EW]\d+:.*"; -------------------------------------------------------------------------- ----------------------------------------------------------- The WATCOM compiler wcc keymap.c(71): Error! E1011: Symbol 'show_memory' has not been declared event.c(22): Warning! W202: Symbol 'xx' has been defined, but not referenced Warning(1028): PhGetMsgSize_ is an undefined reference file event.o(/home/qnx/rwm/photon/event.c): undefined symbol PhAttach_ %@wcc compile_parse_regexp = "^\\(.+\\)(\\(\\d+\\)): [EW].+[rg]! [EW]\d+:.*"; ---------------jed-0.97.12/lib/compile.sl000064400000000000003000000044440603742310500150340ustar00rootsys00000000000000% -*- SLang -*- % % run compiler in a subshell and parse error messages % The file compile.dat is a database for various compilers. Set the % string 'compile_parse_error_function' to the approriate compiler. % This file reads the function from compile.dat. %!% compiler name in the database "compile.dat" !if (is_defined ("compile_parse_error_function")) variable compile_parse_error_function = Null_String; %!% regular expression to extract compile errors !if (is_defined ("compile_parse_regexp")) variable compile_parse_regexp = Null_String; % extract the regexp if it is not already set. !if (strlen (compile_parse_regexp)) { !if (strlen (compile_parse_error_function)) error ("'compile_parse_error_function' needs set. See jed.rc for info."); $1 = whatbuf (); $2 = expand_jedlib_file ("compile.dat"); !if (strlen($2)) error ("compile.dat not found!"); setbuf (" *compile.dat tmp*"); $3 = insert_file_region ($2, strcat ("%@", compile_parse_error_function), "-------"); if ($3 > 0) evalbuffer (); delbuf (whatbuf); setbuf ($1); if ($3 <= 0) { error ("Compiler type not in database file compile.dat!"); } } define compile_parse_errors () { variable cbuf, obuf = "*shell-output*"; variable line, file; if (MINIBUFFER_ACTIVE) return; cbuf = pop2buf_whatbuf (obuf); if (markp ()) pop_mark (0); eol (); if (eobp) message ("No more errors!"); while (eol, not (eobp())) { bol (); if (re_fsearch (compile_parse_regexp)) { file = regexp_nth_match (1); % file name line = regexp_nth_match (2); % line number (string) !if (strlen (line)) return; message (strcat ("Line ", line)); bol(); call ("set_mark_cmd"); eol (); () = find_file (file); cbuf = whatbuf (); goto_line (integer(line)); bol_skip_white (); sw2buf (obuf); break; } go_down (1); } go_down (1); pop2buf (cbuf); } define compile () { variable b; b = whatbuf(); call ("save_buffers"); do_shell_cmd (); bob(); pop2buf(b); compile_parse_errors (); } define compile_previous_error () { variable buf = "*shell-output*"; !if (bufferp(buf)) { flush("Did you compile?"); return; } pop2buf(buf); go_up(2); compile_parse_errors(); } o_line (integer(line)); bol_skip_white (); sw2buf (obuf); break; } go_down (1); } go_down (1); pop2buf (cbuf); } define compile () { variable b; b = whatbuf(); call ("save_buffjed-0.97.12/lib/cpright.hlp000064400000000000003000000002630603742310500152040ustar00rootsys00000000000000 This is a scratch buffer. It is NOT saved when you exit. Copyright (C) 1994, 1995 John E. Davis Email comments or suggestions to davis@space.mit.edu )) { flush("Did you compile?"); return; } pop2buf(buf); go_up(2); compile_parse_errors(); } o_line (integer(line)); bol_skip_white (); sw2buf (obuf); break; } go_down (1); } go_down (1); pop2buf (cbuf); } define compile () { variable b; b = whatbuf(); call ("save_buffjed-0.97.12/lib/ctags.sl000064400000000000003000000034140603742310500145010ustar00rootsys00000000000000% % read a tags file produced by unix ctags program % % put the line: % % "find_tag" "ctags.sl" autoload "find_tag" "^[." setkey % % in your .jedrc file (or perhaps in site.sl) % Then this file is loaded when ^[. (escape-period) is executed % % By default, the file "TAGS" is used. However, setting the variable % 'Tag_File' as in % % "mytag.file" =Tag_File % % will over ride this. % . "Tag_File" is_defined . { . ". [Tag_File] \"tags\" =Tag_File" eval . } !if . ( [tag str cbuf tbuf file] =tag whatbuf =cbuf " *tags*" =tbuf . [dir cbuf] whatbuf =cbuf . tbuf bufferp tbuf setbuf . { . Tag_File insert_file 0 < { "File tags not found!" error } if . } !if % -- Tag_File extract_directory_name =dir . bob tag bol_fsearch . {"Tag not found!" error} !if . CASE_SEARCH 1 =CASE_SEARCH . "!-z" skip_chars skip_white . push_mark . "!-z" skip_chars . =CASE_SEARCH . bufsubstr =file % -- dir file dircat =file . skip_white % we are looking at "/^" --- we''d better be! . "/^" looking_at { "bad tag file." error } !if . 2 right pop push_mark . "$/" ffind { . eol trim 1 left pop . "/" looking_at {pop_mark "bad tag file." error } !if . } !if . bufsubstr =str . file read_file { "File not found." error} !if . bob str fsearch { tag fsearch pop "Tag file needs updated?" message } !if . whatbuf pop2buf cbuf pop2buf . ) tag_find1 . ( . [wrd] "_a-z0-9$" =wrd . push_spot . skip_white . wrd bskip_chars . push_mark . wrd skip_chars . bufsubstr . pop_spot . ) ctags_get_word . ( . [tag] . "Find tag:" ctags_get_word "" read_mini =tag . tag strlen { return } !if % later I will treat this better % . tag tag_find1 . ) find_tag . file read_file { "File not found." error} !if . bob str fsearch { tag fsearch pop "Tag file needs updated?" message } !if . whatbuf pop2buf cbuf pop2buf . ) tag_find1 . ( . [wrd] "_a-z0-9$" =wrd . push_spot . skip_white . wrjed-0.97.12/lib/dabbrev.sl000064400000000000003000000064060603742310500150110ustar00rootsys00000000000000% % dabbrev.sl - Author: Adrian Savage (A.F.Savage@bradford.ac.uk) % Date: May 1994 % % This file may be freely distributed and modified % % find the previous match for the current word and add it to the current word !if (is_defined("Dabbrev_Num_Matches")) { variable Dabbrev_Num_Matches = 0; variable Dabbrev_Last_Matches = create_array ('s', 10, 1); } define dabbrev_is_already_matched (str, old) { variable i; !if (strcmp(str, old)) return 1; _for (0, Dabbrev_Num_Matches - 1, 1) { =i; !if (strcmp (str, Dabbrev_Last_Matches[i])) return 1; } if (Dabbrev_Num_Matches == 10) return 0; Dabbrev_Last_Matches [Dabbrev_Num_Matches] = str; Dabbrev_Num_Matches++; return 0; } define dabbrev_skip_word_chars (dir) { if (dir > 0) { do { skip_chars ("_"); skip_word_chars (); } while (looking_at_char ('_')); return; } forever { bskip_word_chars (); if (bolp()) break; go_left(1); !if (looking_at_char ('_')) { go_right(1); break; } } } define dabbrev_expand_dir (dir) { variable hilite_wrd, num_spots = 0, num_marks = 0, ndel, complete, fun, use_call, success = 0, ch, search_fun; ERROR_BLOCK { loop (num_spots) pop_spot (); loop (num_marks) pop_mark (1); !if (success) { push_mark (); dabbrev_skip_word_chars(-1); del_region (); insert (hilite_wrd); } } push_mark (); num_marks++; % remember initial position push_mark(); % mark end of this word dabbrev_skip_word_chars(-1); % jump to beginning of word hilite_wrd = bufsubstr(); % get the word push_mark (); num_marks++; % remember beginning position ndel = strlen (hilite_wrd); search_fun = &bsearch; if (dir) { search_fun = &fsearch; go_right (ndel); } forever { !if (search_fun (hilite_wrd)) { error (strcat ("No more completions for ", hilite_wrd)); } dabbrev_skip_word_chars (-1); !if (looking_at(hilite_wrd)) { if (dir) dabbrev_skip_word_chars (1); continue; } push_mark (); % set a mark there dabbrev_skip_word_chars(1); % skip to end of word complete = bufsubstr(); % get the completed word !if (dir) dabbrev_skip_word_chars (-1); if (dabbrev_is_already_matched(complete, hilite_wrd)) continue; push_spot (); num_spots++; % remember how far we got pop_mark(1); % back to beginning push_mark; insert (complete); deln (ndel); % delete word ndel = strlen (complete); update (1); % force update ch = getkey (); ungetkey (ch); fun = get_key_function (); if (strlen (fun)) { use_call = (); } if (strcmp (fun, "dabbrev")) break; % use hit another key, done variable zzzz = create_user_mark (); pop_spot (); num_spots--; % returns and continue looking } % we get here only when we are finished success = 1; EXECUTE_ERROR_BLOCK; % pop spots/marks update (0); !if (strlen (fun)) return; if (use_call) call(fun); else eval(fun); } define dabbrev () { Dabbrev_Num_Matches = 0; ERROR_BLOCK { _clear_error (); dabbrev_expand_dir (1); } dabbrev_expand_dir (0); } ) break; % use hit another key, done variable zzzz = create_user_mark (); pop_spot (); num_spots--; % returns and continue looking } % we get here only when we are finished success = 1; EXECUTE_ERROR_BLOCK; % jed-0.97.12/lib/dcl.sl000064400000000000003000000047250603742310500141500ustar00rootsys00000000000000% dcl mode-- Special mode to facilitate editing of DCL files on VMS systems. % . ( [goal] 3 =goal . push_spot . {up_1} . { . eol trim . bol_skip_white . '$' looking_at_char . { "$\t " skip_chars . '!' looking_at_char {what_column =goal break} !if . } . { . '!' looking_at_char . { % This takes care of running text following something % like type sys$input . push_spot . up_1 eol bolp not and . {trim 1 go_left . '-' looking_at_char . { pop_spot what_column =goal break} !if . } if . pop_spot . } !if . } else . } . while . {"then" looking_at {2 +=goal 1} {0} else} . {"else" looking_at {2 +=goal 1} {0} else} . orelse pop % orelse puts final value on stack . pop_spot . bol "$\t " skip_chars . {"else" looking_at {2 -=goal 1} {0} else} . {"endif" looking_at {2 -=goal 1} {0} else} . orelse pop . goal 1 > {goal}{3} else . ) dcl_get_ind . ( . [goal] . push_spot . dcl_get_ind =goal . push_spot . up_1 {eol trim bolp {1 go_left '-' looking_at_char {2 +=goal} if} !if} if . pop_spot . bol "\t $" skip_chars . '!' looking_at_char . { "\t " bskip_chars trim goal what_column - whitespace} . !if . pop_spot . skip_white . ) dcl_indent . ( [cont p] 0 =cont . bobp bolp '$' looking_at_char and or {"$ \n" insert 1 left pop return} if . trim . push_spot % If line does not start with '$', assume something like % type sys$input going on and do not give dollar . push_spot bol . '$' looking_at_char not up_1 and . { . bolp eol trim . 1 go_left . what_char '-' != =cont . } . if . pop_spot . cont { . POINT =p "sys$input" bfind . { 9 right pop . ':' what_char == {1 right pop} if . POINT p == =cont . } if . p =POINT . } !if . bolp {1 left pop . '-' looking_at_char { 1 =cont} if . } . !if . pop_spot . newline . cont {'$' insert_char} !if . dcl_indent . ) dcl_newline . "DCL_Mode" is_defined . { . [DCL_Mode] "DCL" =DCL_Mode . DCL_Mode make_keymap . "dcl_newline" "^M" DCL_Mode definekey . "newline_and_indent" "^[^M" DCL_Mode definekey . "dcl_indent" "^I" DCL_Mode definekey . "self_insert_cmd" "\"" DCL_Mode definekey . "self_insert_cmd" "'" DCL_Mode definekey . } . !if . ( "DCL" use_keymap "dcl" 4 setmode ) dcl_mode !if . pop_spot . newline . cont {jed-0.97.12/lib/digraph.sl000064400000000000003000000037410603742310500150210ustar00rootsys00000000000000% This is digraph.sl. It allows for easy input of accented characters % and other 8-bit characters. It is an alternative to the mutekeys.sl package. % I wrote it because I don't like mutekeys. I added a lot of % characters not found in mutekeys.sl. % Usage: put this file in $JED_ROOT/lib and add a line % % autoload ("digraph_cmd", "digraph"); setkey ("digraph_cmd", "\ek"); % % to your .jedrc file. The digraphs are now available by typing % Esc-K 'accent' 'letter'. % % Thanks to John Davis for reducing the number of case statements in the % original code and for adding the user-friendly interface (don't type too % fast, otherwise you can't read it). % % This does not work yet under MSDOS and OS2 . Any volunteers? % % Ronald Rietman, 1995/03/05 #ifndef MSDOS OS2 define digraph_cmd () { variable accent, letters; variable i; EXIT_BLOCK { message (Null_String); } flush ("Enter one of the accent characters: / \" ' ` , ^ ~"); switch (getkey ()) { case '/': "aAdDeEoOstT$"; "\d229\d197\d240\d208\d230\d198\d248\d216\d223\d254\d222\d163"; } { case '\"': "aAeEiIoOsuU"; "\d228\d196\d235\d203\d239\d207\d246\d214\d223\d252\d220"; } { case '\'': "aAeEiIoOuU1/!?"; "\d225\d193\d233\d201\d237\d205\d243\d211\d250\d218\d161\d191\d161\d191"; } { case '\`': "aAeEiIoOuU"; "\d224\d192\d232\d200\d236\d204\d242\d210\d249\d217"; } { case '^': "aAeEiIoOuU"; "\d226\d194\d234\d202\d238\d206\d244\d212\d251\d219"; } { case '~': "aAnNoO!?"; "\d227\d195\d241\d209\d245\d213\d161\d191"; } { case ',': "cC"; "\d231\d199"; } { % default pop (); return; } (letters, accent) = (); flush (Sprintf ("Enter one of \"%s\" to get corresponding \"%s\"", letters, accent, 2)); i = is_substr (letters, char (getkey ())); !if (i) { beep (); return; } i--; insert_char (accent[i]); } #endif d194\d234\d202\d238\d206\d244\djed-0.97.12/lib/dired.sl000064400000000000003000000432070603742310600144740ustar00rootsys00000000000000% -*- SLang -*- dired.sl % % Simple dired mode for JED. % % % To invoke Dired, do `C-x d' or `M-x dired'. % % Moving around % ============= % % All the usual motion commands plus some extras: % % `C-n' `n' SPC % move point to the next line (at the beginning of the file name) % % `C-p' `p' % move point to the previous line (at the beginning of the file name) % % DEL % move up and unflag % % `^K' % dired_kill_line - removes a line from the dired buffer % (This must be set from the dired hook) % % ============== % % The primary use of Dired is to "flag" files for deletion and then % delete the previously flagged files. % % `d' % Flag this file for deletion. % % `u' % Remove deletion flag on this line. % % `DEL' % Move point to previous line and remove the deletion flag on that % line. % % `~' % Flag all backup files (files whose names end with `~') for deletion % % `g' % Update the entire contents of the Dired buffer % % Deleting Files % ============== % % `x' % expunge all flagged files. Displays a list of all the file names % flagged for deletion, and requests confirmation with `yes'. % After confirmation, all the flagged files are deleted and then % their lines are deleted from the Dired buffer. % % File Manipulations % ================== % % `f' % Visit the file described on the current line, like typing `C-x C-f' % and supplying that file name % % `v' % View the file described on the current line % % `r' % rename - prompts for a new name for the file on the current line % % 'm' % move - move a group of flagged files to an new directory % % `M-x dired_search' % use fsearch with the contents of LAST_SEARCH to perform a search % through the files listed in the dired buffer from the current point % forward. Since it stops in the file where the search string is % encountered, it is structured so that `M-x dired_search' from the % visited file will revert back to the dired buffer and continue the % dired_search from the next file in the list. % variable Dired_Buffer = "*dired*"; variable Dired_Current_Directory; !if (keymap_p (Dired_Buffer)) { make_keymap (Dired_Buffer); definekey ("dired_find", "f", Dired_Buffer); definekey ("dired_find", "F", Dired_Buffer); definekey ("dired_view", "v", Dired_Buffer); definekey ("dired_view", "V", Dired_Buffer); definekey ("dired_tag", "d", Dired_Buffer); definekey ("dired_tag", "D", Dired_Buffer); definekey (".1 dired_untag", "u", Dired_Buffer); definekey (".1 dired_untag", "U", Dired_Buffer); definekey ("dired_move", "M", Dired_Buffer); definekey ("dired_move", "m", Dired_Buffer); definekey ("dired_delete", "X", Dired_Buffer); definekey ("dired_delete", "x", Dired_Buffer); definekey (".1 dired_point", "^N", Dired_Buffer); definekey (".1 dired_point", "N", Dired_Buffer); definekey (".1 dired_point", "n", Dired_Buffer); definekey (".1 dired_point", " ", Dired_Buffer); definekey (".-1 dired_point", "^P", Dired_Buffer); definekey (".-1 dired_point", "P", Dired_Buffer); definekey (".-1 dired_point", "p", Dired_Buffer); #ifdef MSDOS definekey (".-1 dired_untag","\xE0S", Dired_Buffer); % DELETE definekey (".-1 dired_untag","\eOn", Dired_Buffer); % DELETE #endif #ifdef UNIX definekey (".-1 dired_untag","^?", Dired_Buffer); % DEL key #endif , definekey ("dired_flag_backup","~", Dired_Buffer); definekey ("dired_rename", "R", Dired_Buffer); definekey ("dired_rename", "r", Dired_Buffer); definekey ("dired_reread_dir","g", Dired_Buffer); definekey ("dired_reread_dir","G", Dired_Buffer); definekey ("describe_mode", "H", Dired_Buffer); definekey ("describe_mode", "h", Dired_Buffer); definekey ("dired_quick_help","?", Dired_Buffer); } #ifdef VMS % takes somthing like dev:[a.b.c] and converts it to dev:[a.b]c.dir define dired_vms_dir (dir) { variable cdir = Null_String, last = Null_String, this; variable n, file, ch; n = strlen (dir); if (int (substr (dir, n, 1)) != ']') return dir; forever { n--; !if (n) break; ch = int (substr (dir, n, 1)); if ((ch == '.') or (ch == '[')) break; } if (ch == '[') { strcat (substr (dir, 1, n), "000000]"); } else { strcat (substr (dir, 1, n - 1), "]"); } cdir = (); file = substr (dir, n + 1, strlen (dir)); file = strcat (substr (file, 1, strlen (file) - 1), ".dir"); strcat (cdir, file); } #endif define dired_read_dir (dir) { variable file, flags, spaces = " "; % % put dir in canonical form -- using trick % #ifdef MSDOS OS2 dir = expand_filename (dir); #ifdef MSDOS dir = msdos_fixup_dirspec (dir); #endif #else #ifdef VMS dir = dired_vms_dir (dir); #endif #endif if ( file_status (dir) == 2 ) { (Dired_Current_Directory,) = parse_filename (dircat (dir, Dired_Buffer)); #ifdef VMS dir = Dired_Current_Directory; #endif } else { (Dired_Current_Directory,dir) = parse_filename (dir); } if ( change_default_dir (Dired_Current_Directory) ) error ("Failed to chdir."); sw2buf (Dired_Buffer); (file,,,flags) = getbuf_info (); setbuf_info (file, Dired_Current_Directory, Dired_Buffer, flags); set_status_line (" DIRED: %b (%m%n) (%p) | press '?' for help.", 0); set_readonly (0); erase_buffer (); use_keymap (Dired_Buffer); setmode ("dired", 0); #ifdef UNIX shell_cmd (strcat ("ls -al ", dir) ); #endif #ifdef MSDOS shell_cmd (Sprintf ("dir %s /l/ogne", dir, 1)); % shell_cmd (Sprintf ("(dir %s /l/ogne) 2>&1", dir, 1)); #endif #ifdef OS2 shell_cmd (strcat ("dir /n ", dir)); #endif #ifdef VMS shell_cmd (strcat ("directory/size/date/prot/notrail ", dir)); #endif bob (); #ifdef OS2 % kill 4 lines of header junk and 2 lines of trailer junk push_mark (); go_down (4); if ( eolp () ) go_down_1 (); del_region (); eob (); push_mark (); go_up (3); % implicit eol(); del_region (); bob (); #endif #ifdef MSDOS push_mark (); go_down (5); del_region (); % header junk eob (); push_mark (); % trailer junk if ( bsearch ("bytes free") ) { go_down_1 (); del_region (); } else { pop_mark (0); } bob (); #endif #ifdef VMS push_mark (); go_down (3); del_region (); #endif do { insert (spaces); } while (down_1 ()); bob (); #ifdef UNIX if ( looking_at (" total ")) { push_mark (); eol (); go_right (1); del_region(); } #endif insert ("== "); insert (Dired_Current_Directory); newline (); set_buffer_modified_flag (0); set_readonly(1); flush (Null_String); } variable Dired_Quick_Help; Dired_Quick_Help = "d:tag file, u:untag, x:delete tagged files, r:rename, h:more help, ?:this help"; define dired_quick_help { message (Dired_Quick_Help); } define dired_reread_dir () { dired_read_dir (Dired_Current_Directory); } % set the point at the start of the file name define dired_point (dirn) { if (dirn > 0) go_down_1 (); else if (dirn < 0) go_up_1 (); #ifdef OS2 eol (); if (bfind (" ")) go_right (1); #endif #ifdef UNIX variable fields = 8; bol (); go_right (2); while (fields) { fields--; () = ffind (" "); skip_white (); } #endif #ifdef VMS MSDOS bol (); go_right (2); #endif } #ifndef VMS define dired_kill_line () { bol (); if ( bobp () ) return; % do not remove top line set_readonly (0); push_mark (); go_down_1 (); del_region (); set_buffer_modified_flag (0); set_readonly (1); dired_point (0); } #endif % (name, type) = dired_getfile () % % name = name of file or directory % % type = 0 : nothing % type = 1 : file % type = 2 : directory % type = 3 : link define dired_getfile () { variable name, type, ext; bol (); type = not (bobp ()); % assume it will be a file #ifdef MSDOS OS2 if ( type ) { go_right (2); if ( ffind ("") ) { type = 2; } else { % Following used to just be what was in the #ifndef OS2..#endif. Prolly % can be changed to just whats in the #ifdef OS2..#endif. This is a fix % for OS/2 handling MDJ 06/11/95 #ifdef OS2 if ( eolp () or what_column () > 4 ) type = 0; #else if ( eolp () or what_column () > 3 ) type = 0; #endif } } !if ( type ) { bol (); return (Null_String, type); } #ifdef OS2 eol (); bskip_white (); push_mark (); () = bfind (" "); go_right (1); % Added to fix space at start of filename MDJ[B 06/11/95 name = bufsubstr (); #else dired_point (0); push_mark (); % extract the name skip_chars ("^ "); % skip past name name = bufsubstr (); % the name skip_white (); if ( what_column () <= 12 ) { push_mark (); skip_chars ("^ "); % skip past ext ext = bufsubstr (); if (strlen (ext) or (type != 2)) name = Sprintf ("%s.%s", name, ext, 2); } #endif #endif #ifdef UNIX if (type) { go_right (2); if (looking_at_char ('l')) type = 3; if ( looking_at_char ('d') ) { type = 2; } else { skip_white (); if ( what_column () > 3 ) { type = 0; } } } !if ( type ) { bol (); return (Null_String, type); } dired_point (0); push_mark (); % extract the name eol (); name = bufsubstr (); % the name #endif #ifdef VMS if (type) { go_right (2); if ( ffind ( ".DIR" ) ) { type = 2; } else { skip_white (); if ( what_column () > 3 ) type = 0; } } !if ( type ) { bol (); return (Null_String, type); } dired_point (0); push_mark (); ffind (";"); pop (); skip_chars (";0-9"); name = bufsubstr (); % leave on the stack #endif dired_point (0); return (name, type); } define dired_tag () { variable type; EXIT_BLOCK { dired_point (1); } (, type) = dired_getfile (); if ( type != 1 ) return; % only files! set_readonly (0); bol (); insert_char ('D'); del (); set_buffer_modified_flag (0); set_readonly (1); } define dired_untag (dirn) { if ( dirn < 0 ) { !if ( up_1 () ) error ("Top of Buffer."); } bol (); if ( looking_at_char ('D') ) { set_readonly (0); insert_char (32); del (); set_buffer_modified_flag (0); set_readonly (1); } if ( dirn > 0 ) dired_point (1); } % perform operation on tagged files--- 4 parameters define dired_xop_tagged_files (prompt, msg, op_function) { variable lbuf = " *Deletions*"; variable stack, n, fails = Null_String; variable file; setbuf (Dired_Buffer); push_spot (); bob (); stack = _stkdepth; % save stack depth ERROR_BLOCK { loop ( _stkdepth - stack ) pop (); sw2buf (Dired_Buffer); set_readonly (0); bob (); while ( bol_fsearch ("%") ) { insert_char ('D'); del (); } pop_spot (); set_buffer_modified_flag (0); set_readonly (1); } set_readonly (0); while ( bol_fsearch ("D") ) { insert_char ('%'); del (); dired_getfile (); pop (); % pop type, leave name on stack } n = _stkdepth - stack; !if (n) error ("No tags!"); sw2buf (lbuf); erase_buffer (); loop (n) { insert (); % tagged files on stack newline (); } bob (); buffer_format_in_columns (); if ( get_yes_no (prompt) == 1) { sw2buf (Dired_Buffer); bob (); while ( bol_fsearch ("%") ) { (file,) = dired_getfile (); bol (); file = dircat (Dired_Current_Directory, file); if ( op_function (file) ) { flush (strcat (msg, file)); push_mark (); go_down_1 (); del_region (); go_left(1); } else { fails = strcat (strcat (fails, " "), file); insert_char (32); del (); } } } EXECUTE_ERROR_BLOCK; if ( strlen (fails) ) message (strcat ("Operation Failed:", fails)); } define dired_delete () { dired_xop_tagged_files ("Delete these files", "Deleted ", &delete_file); } variable Dired_Move_Target_Dir; define dired_do_move (file) { variable name; (name,) = dired_getfile (); name = dircat (Dired_Move_Target_Dir, name); not (rename_file (file, name)); } define dired_move () { Dired_Move_Target_Dir = read_file_from_mini ("Move to dir"); if ( file_status (Dired_Move_Target_Dir) != 2 ) error ("Expecting directory name"); strcat ("Move these to ", Dired_Move_Target_Dir); dired_xop_tagged_files ((), "Moved ", &dired_do_move); } #ifndef VMS define dired_flag_backup () { variable name, type; push_spot (); bob (); set_readonly (0); while ( fsearch ( "~" ) ) { (name, type) = dired_getfile (); if ( (type == 1) and (string_match (name, "~", strlen(name))) ) { bol (); insert_char ('D'); del (); % is a backup file } eol (); } pop_spot (); set_buffer_modified_flag (0); set_readonly (1); } #endif define dired_rename () { variable oldf, type, len, f, n, nf, nd, od, status; (oldf, type) = dired_getfile (); !if ( type ) return; Sprintf ("Rename %s to", oldf, 1); n = read_file_from_mini (()); % % If new name is a dir, move it to the dir with oldname. % If file is not a directory and exists, signal error. % status = file_status (n); if ( status == 1 ) error ("File exists. Not renamed."); else if ( status == 2 ) n = dircat (n, oldf); % % Check to see if rename to new directory % (nd,nf) = parse_filename (n); f = dircat (Dired_Current_Directory, oldf); (od,) = parse_filename (f); if ( rename_file (f, n) ) error ("Operation Failed!"); set_readonly (0); #ifdef UNIX if ( strcmp (od, nd) ) #endif #ifdef MSDOS OS2 VMS if ( strcmp (strup (od), strup (nd)) ) #endif { bol (); push_mark (); eol (); go_right (1); del_region (); } else { dired_point (0); push_mark (); #ifdef MSDOS go_right (12); del_region (); insert (Sprintf ("%-8s %-3s", extract_element (nf, 0, '.'), extract_element (nf, 1, '.'), 2)); #else go_right (strlen (oldf)); del_region (); insert (nf); #endif } dired_point (1); set_buffer_modified_flag (0); set_readonly (1); } %!%Mode designed for maintaining and editing a directory. %!% %!%To invoke Dired, do @M-x dired@ or @C-x d@ (emacs) %!% %!%Dired will prompt for a directory name and get a listing of files in the %!%requested directory. %!% %!%The primary use of Dired is to "flag" files for deletion and then delete %!%the previously flagged files. %!% %!% @d@ Flag this file for deletion. %!% @u@ Remove deletion flag on this line. %!% DEL Move point to previous line and remove deletion flag. %!% @~@ Flag all backup files for deletion. %!% %!% @x@ eXpunge all flagged files. Dired will show a list of the %!% files tagged for deletion and ask for confirmation before actually %!% deleting the files. %!% %!% @r@ Rename file on the current line; prompts for a newname %!% @m@ Move tagged files to a new dir; prompts for dir name %!% %!% @g@ Update the entire contents of the Dired buffer %!% %!% @f@ Visit the file described on the current line, like typing %!% @M-x find_file@ and supplying that file name. If current line is a %!% directory, runs dired on the directory and the old buffer is killed. %!% %!% @v@ View the file described on the current line in MOST mode. %!% %!% @M-x dired_search@ %!% use fsearch to perform a search through the files listed in the %!% dired buffer from the current point forward. @M-x dired_search@ %!% from the visited file will revert to the dired buffer and continue %!% the search from the next file in the list. %!% %!%all the usual motion commands plus some extras: %!% %!% @C-n@ @n@ SPC %!% move point to the next line (at the beginning of the file name) %!% %!% @C-p@ @p@ %!% move point to the previous line (at the beginning of the file name) %!% %!% @M-x dired_kill_line@ @^K@ (emacs) %!% removes a line from the dired buffer define dired () { dired_read_dir (read_file_from_mini ("Directory:")); dired_quick_help (); runhooks ("dired_hook"); } define dired_find () { variable name, type; (name, type) = dired_getfile (); name = dircat (Dired_Current_Directory, name); if ( type == 1 ) { !if ( read_file (name) ) error ("Unable to read file."); pop2buf (whatbuf ()); } else if ( type == 2 ) { dired_read_dir (name); return; } } define dired_view () { variable name, type; (name, type) = dired_getfile (); name = dircat (Dired_Current_Directory, name); if ( type == 1 ) { !if ( read_file (name) ) error ("Unable to read file."); pop2buf (whatbuf ()); most_mode (); } } #ifndef VMS define dired_search_files () { go_right (1); % start after this one if ( fsearch (LAST_SEARCH) ) return (1); % found - stop search if ( buffer_modified () ) error ("buffer has been modified"); delbuf (whatbuf ()); pop2buf (Dired_Buffer); return (0); } define dired_search () { variable str, name, type; !if ( bufferp (Dired_Buffer) ) error ( "*dired* not available."); if ( strcmp (Dired_Buffer, whatbuf () ) ) % continue last search { !if ( strlen (LAST_SEARCH) ) error ("No specified search string"); if ( dired_search_files () ) return; go_down_1 (); % do the next file! } else { str = read_mini ("dired_search:", Null_String, LAST_SEARCH); !if ( strlen (str) ) error ("Specify search string"); save_search_string (str); } do { (name, type) = dired_getfile (); if ( type == 1 ) % only search files { name = dircat (Dired_Current_Directory, name); !if ( read_file (name) ) error ("Unable to read file."); if ( dired_search_files () ) { pop2buf (whatbuf ()); return; } } } while ( down_1 () ); } #endif %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EARCH); !if ( strlen (str) ) error ("Specify search string"); save_search_string (str); } do { (name, type) = dired_getfile (); if ( type == 1 ) % only search files { name = dircat (Dired_Current_Directory, name); !if ( read_file (name) ) error ("Unable to read file."); if ( dired_search_files () ) { pop2buf (whajed-0.97.12/lib/dos437.sl000064400000000000003000000017470603742310600144330ustar00rootsys00000000000000#ifdef MSDOS OS2 % Initializes upper/lowercase lookup tables for DOS code page 437. % 437 is the original DOS character table. So if your DOS version % does not support code pages, use this table. 437 is also the % default code page for USA, United Kingdom, and International English. % It is the alternate code page for Belgium, Brazil, Finland, France, % Germany, Italy, Latin America, Netherlands, Spain, Sweden, and % Switzerland. % Information from MSDOS 5.0 manual % . 0 64 1 { dup define_case } _for . 65 90 1 { dup 32 + define_case } _for . 91 96 1 { dup define_case } _for . 123 255 1 { dup define_case } _for . 128 135 define_case . 142 132 define_case . 143 134 define_case . 144 130 define_case . 146 145 define_case . 153 148 define_case . 154 129 define_case . 165 164 define_case % % Now define a word. This IS NOT based on above % . "0-9a-zA-Z\d128-\d167\d224-\d235" define_word % Marko thinks: . "0-9a-zA-Z\d128-\d154\d160-\d165\d224-\d235" define_word #endif 0 64 1 { dup define_casjed-0.97.12/lib/dos850.sl000064400000000000003000000024630603742310600144260ustar00rootsys00000000000000% Initializes upper/lowercase lookup tables for DOS code page 850. % 850 is the default code page for Belgium, Brazil, Denmark, % Finland, France, Germany, Italy, Latin America, Netherlands, % Norway, Portugal, Spain, Sweden, and Switzerland. % It is the alternate code page for Canadian-French, % Czechoslovakia, Hungary, International English, Poland, United % Kingdom, USA, and (ex-)Yugoslavia % Information from MSDOS 5.0 manual % Thanks marko@cs.umd.edu . 0 64 1 { dup define_case } _for . 65 90 1 { dup 32 + define_case } _for . 91 96 1 { dup define_case } _for . 123 255 1 { dup define_case } _for % . 128 135 define_case . 154 129 define_case . 144 130 define_case . 142 132 define_case . 183 133 define_case . 143 134 define_case . 211 137 define_case . 212 138 define_case . 216 139 define_case . 215 140 define_case . 222 141 define_case . 146 145 define_case . 153 148 define_case . 227 149 define_case . 234 150 define_case . 235 151 define_case . 157 155 define_case . 181 160 define_case . 214 161 define_case . 224 162 define_case . 233 163 define_case . 165 164 define_case . 199 198 define_case . 209 208 define_case . 229 228 define_case . 232 231 define_case . 237 236 define_case . "0-9a-zA-Z\d128-\d155\d157\d160-\d165\d181-\d183\d198\d199\d208\d212\d214-\d216\d222\d224-\d237" . define_word e . 215 140 define_case . 222 141 define_case . 146 145 define_case . 153 148 define_case . 227 149 define_case . 234 150 define_case . 235 151 define_case . 157 155 define_case . 181 160 define_case . 214jed-0.97.12/lib/edt.hlp000064400000000000003000000031470603742310600143250ustar00rootsys00000000000000+-----------------------------------+ +--------+--------+--------+-------+ | ^ | DOWN | | | | | | FNDNXT | DEL L | | | | | | <---- | ----> | | *GOLD | HELP | | | | | | | | LEFT | RIGHT | | | | *FIND | *UND L| | UP | v | | | +--------+--------+--------+-------+ +-----------------------------------+ | PAGE | SECT | APPEND | DEL W | DELETE Delete character | | | | | LINEFEED Delete to beginning of word |*COMMAND| *FILL |*REPLACE|*UND W | BACKSPACE Backup to beginning of line +--------+--------+--------+-------+ CTRL/R Refresh screen | ADVANCE| BACKUP | CUT | DEL C | GOLD-Q Quit | | | | | GOLD-E Quit |*BOTTOM | *TOP |*PASTE |*UND C | +--------+--------+--------+-------+ | WORD | EOL | CHAR | | | | | | ENTER | More help follows below. |*CHGCASE|*DEL EOL|*SPECINS| | +--------+--------+--------+ | | LINE | SELECT | | | | | *SUBS | | *OPEN LINE | *RESET | | +-----------------+--------+-------+ | | | | ENTER | More help follows below. |*CHGCASE|*DEL EOL|*SPECINS| | +--------+--------+--------+ | | LINE | SELECT | | | | | *SUBS | | *OPEN LINjed-0.97.12/lib/edt.sl000064400000000000003000000342440604364437300141720ustar00rootsys00000000000000%% EDT emulation for JED -- Application Keypad. %% %% To load this, put the line: "edt.sl" evalfile %% in your jed.rc (.jedrc) file %% #ifdef MSDOS OS2 %% %% Gold-Gold to toggle keypad state %% unsetkey("^@;"); setkey(". '\e' 'O' 'P' ungetkey ungetkey ungetkey", "^@;"); %% IBM F1 key !if (is_defined ("NUMLOCK_IS_GOLD")) { eval ("variable NUMLOCK_IS_GOLD = 1;"); } #endif % MSDOS OS2 #ifdef MSDOS OS2 NUMLOCK_IS_GOLD = 1; %% This sets the numlock key on the 'application keypad' #endif set_status_line("(Jed %v) EDT: %b (%m%a%n%o) %p,%c Advance %t", 1); WANT_EOB = 1; #ifdef UNIX VMS tt_send("\e="); % turn on application keypad #endif !if (is_defined("Edt_Loaded")) { variable Edt_Loaded; variable edt_pbuf; %% a real buffer edt_pbuf = " "; whatbuf(); setbuf(edt_pbuf); sw2buf(()); } variable Edt_Keypad; Edt_Keypad = 1; define edt_togglekp () { variable on, off; #ifdef VMS UNIX off = "Numeric."; on = "Application."; #else on = "Gold ON"; off = "Gold OFF"; NUMLOCK_IS_GOLD = not(NUMLOCK_IS_GOLD); #endif #ifdef UNIX VMS if (Edt_Keypad) { off; "\e>" } else {on; "\e="} tt_send(()); #else if (Edt_Keypad) off; else on; #endif message(()); Edt_Keypad = not(Edt_Keypad); } %% %% Escape sequences for EDT keypad: %% %% PF1 = \eOP PF2 = \eOQ PF3 = \eOR PF4 = \eOS %% 7 = \eOw 8 = \eOx 9 = \eOy - = \eOm %% 4 = \eOt 5 = \eOu 6 = \eOv , = \eOl %% 1 = \eOq 2 = \eOr 3 = \eOs %% 0 = \eOp . = \eOn enter = \eOM %% %% unset some of default jed keys %% unsetkey("^W"); unsetkey("^K"); unsetkey("^U"); unsetkey("^L"); unsetkey("^H"); %% %% key bindings %% setkey("self_insert_cmd", "\""); setkey("self_insert_cmd", "'"); setkey("self_insert_cmd", "`"); setkey("self_insert_cmd", "^L"); setkey("self_insert_cmd", "^I"); setkey("help_prefix", "\eOPh"); %% help menu line setkey("edt_subs", "\eOP\eOM"); %% subs (edt style) setkey("edt_delbol", "^U"); %% delete to bol setkey("edt_help", "\eOQ"); %% help setkey("edt_findnxt", "\eOR"); %% findnxt setkey("edt_ldel", "\eOS"); %% del l setkey("edt_wdel", "\eOm"); %% del w setkey("edt_cdel", "\eOl"); %% del c setkey("smart_set_mark_cmd", "\eOn"); %% select setkey("edt_line", "\eOp"); %% line setkey("edt_word", "\eOq"); %% word setkey("edt_eol", "\eOr"); %% eol setkey("edt_bol", "^H"); %% eol setkey("edt_bword", "\eOs"); %% back word setkey("edt_advance", "\eOt"); %% advance setkey("edt_backup", "\eOu"); %% backup setkey("edt_cut", "\eOv"); %% cut setkey("edt_page", "\eOw"); %% page setkey("edt_sect", "\eOx"); %% sect setkey("edt_append", "\eOy"); %% append setkey("goto_line_cmd", "\eOP\eOQ"); %% go to line setkey("edt_find", "\eOP\eOR"); %% find setkey("edt_uldel", "\eOP\eOS"); %% udel l setkey("edt_uwdel", "\eOP\eOm"); %% udel w setkey("edt_ucdel", "\eOP\eOl"); %% udel c setkey("edt_reset", "\eOP\eOn"); %% reset setkey("edt_oline", "\eOP\eOp"); %% open line setkey("edt_chgcase", "\eOP\eOq"); %% chgcase setkey("edt_deleol", "\eOP\eOr"); %% deleol setkey("edt_specins", "\eOP\eOs"); %% specins setkey("eob", "\eOP\eOt"); %% bottom setkey("beg_of_buffer", "\eOP\eOu"); %% top setkey("edt_paste", "\eOP\eOv"); %% paste % setkey("evaluate_cmd", "\eOP\eOw"); %% cmd setkey("edt_command", "\eOP\eOw"); %% Command with completion setkey("format_paragraph", "\eOP\eOx"); %% fill setkey("edt_replace", "\eOP\eOy"); %% replace setkey("exit_mini", "\eOM"); %% enter setkey("exit", "\eOPE"); %% exit edt setkey("redraw", "^W"); %% redraw screen setkey("shell", "\eOPR"); %% run shell setkey("splitwindow", "\eOPW"); %% open new window setkey("one_window", "\eOP^W"); %% close other window setkey("otherwindow", "\eOPo"); %% toggle windows setkey("learn", "\eOPL"); %% learn %% %% the enter key requires some care--- it MUST be put in the minibuffer %% keymap. But this is not created until AFTER the init files are loaded %% so that it inherits user definitions. The above line puts it in the %% global map so that it behaves properly there. The same applies to %% the 'reset' command. %% %% The above comment WAS true in versions prior to 0.81. Now it is possible %% to achieve the desired effect in the startup_hook. I think it is time to %% think of a way to chain functions. That is, I would like to define a %% function that startup_hook will call without explicitly modifying startup %% hook and not destroying other hooks in the process. Thus, startup_hook %% should consist of a chain of functions to execute. %% if (keymap_p("Mini_Map")) { definekey("exit_mini", "\eOM", "Mini_Map"); %% enter definekey("edt_reset", "\eOP\eOn","Mini_Map"); %% reset } %% %% In EDT, a command may be repeated by GOLD number. Lets have that too %% _for (0, 9, 1) { =$0; setkey("digit_arg", strcat("\eOP", string($0))); } %% %% These are the keys on the PC keyboard %% setkey("beg_of_buffer", "^[[1~"); %% top setkey("edt_paste", "^[[2~"); %% paste setkey("edt_cdel", "^[[3~"); %% del c setkey("edt_ucdel", "^[OP^[[3~"); %% udel c setkey("eob", "^[[4~"); %% bottom setkey("page_up", "^[[5~"); %% page up setkey("page_down", "^[[6~"); %% page down %% %% Finally some definitions for scrolling the screen left/right %% setkey("beg_of_buffer", "\eOP\e[A"); % gold ^ setkey("eob", "\eOP\e[B"); % gold v setkey("scroll_left", "\eOP\e[C"); % gold -> setkey("scroll_right", "\eOP\e[D"); % gold <- %% %% Personal definitions: LaTeX %% setkey(" \\v{c}", "^[OPc"); setkey(" \\v{C}", "^[OPC"); setkey(" \\v{s}", "^[OPs"); setkey(" \\v{S}", "^[OPS"); setkey(" \\v{z}", "^[OPz"); setkey(" \\v{Z}", "^[OPZ"); %% %% The major complication is the direction. Here it is: %% variable edt_dir; edt_dir = 1; %!% %!% ADVANCE - (4) %!% Sets the current direction to forward for the CHAR, WORD, LINE, EOL, PAGE, %!% SECT, SUBS, FIND, and FNDNXT keys. ADVANCE means that movement will be %!% toward the end of the buffer; that is, to the right and down. %!% define edt_advance() { edt_dir = 1; set_status_line("(Jed %v) EDT: %b (%m%n%o) %p,%c Advance %t", 1); } %!% %!% BACKUP - (5) %!% Sets the cursor direction to backward for the CHAR, WORD, LINE, EOL, PAGE, %!% SECT, SUBS, FIND, and FNDNXT keys. BACKUP means that movement will be %!% toward the beginning of the buffer% that is, to the left and up. %!% define edt_backup() { edt_dir = -1; set_status_line("(Jed %v) EDT: %b (%m%n%o) %p,%c Backup %t", 1); } %% %% other buffers: not buffers but strings except the char buffer which is int %% variable edt_wbuf, edt_lbuf, edt_cbuf; edt_wbuf = Null_String; edt_lbuf = Null_String; edt_cbuf = 0; %% %% QUIT %% define quit() {quit_jed()} add_completion ("quit"); %% %% EXIT %% define exit() { save_buffer(); quit_jed(); } %% %% CHAR %% define edt_char() { if (edt_dir == 1) go_right(1); else go_left(1); } %% %% DEL CHAR %% define edt_cdel() { !if (eobp()) { edt_cbuf = what_char(); del(); } } %% %% UNDEL CHAR %% define edt_ucdel() { if (edt_cbuf) { insert_char (edt_cbuf); go_left(1); } } %% %% WORD %% define edt_word() { if (edt_dir == 1) { if (eolp()) return(go_right(1)); skip_word_chars(); skip_non_word_chars(); } else { if (bolp()) return (go_left(1)); bskip_non_word_chars(); bskip_word_chars(); } } %% %% BACK WORD %% define edt_bword() { if (bolp()) return (go_left(1)); bskip_non_word_chars(); bskip_word_chars(); } %!% %!% DEL WORD (-) %!% Deletes text from the cursor to the beginning of the next word, storing the %!% text in the delete word buffer. %!% define edt_wdel() { push_mark(); push_mark(); edt_word(); %% use whatever edt_word does as a region edt_wbuf = bufsubstr(); del_region(); } %% %% UNDEL WORD %% define edt_uwdel() { push_spot(); insert (edt_wbuf); pop_spot(); } %% %% SPECINS (from Clive Page) %% define edt_specins() { insert_char (integer(read_mini("char code (decimal):", "27", Null_String))); } %% %% DEL EOL %% define edt_deleol() { push_mark(); push_mark(); eol(); edt_lbuf = bufsubstr(); del_region(); } %% %% DEL BOL %% define edt_delbol() { push_mark(); push_mark(); bol(); edt_lbuf = bufsubstr(); del_region(); } %!% %!% DEL LINE - (PF4) %!% Deletes text from the cursor position to the end of the current line, including %!% the line terminator. If the cursor is positioned at the beginning of a line, %!% the entire line is deleted. The deleted text is saved in the delete line %!% buffer. %!% define edt_ldel() { push_mark(); push_mark(); eol(); go_right(1); edt_lbuf = bufsubstr(); del_region(); } %!% %!% UNDEL LINE - (GOLD PF4) %!% Inserts the contents of the delete line buffer directly to the left of the %!% cursor. %!% define edt_uldel() { push_spot(); insert (edt_lbuf); pop_spot(); } %!% %!% FIND - (GOLD PF3) %!% Searches for an occurrence of a string. Press the FIND key and then enter the %!% string using the main keyboard. End the string by pressing either the ADVANCE %!% or BACKUP key to set the direction of the search, or the ENTER key to search in %!% the current direction. %!% define edt_find() { if (edt_dir == 1) search_forward (); else search_backward (); } %!% %!% FNDNXT - (PF3) %!% Searches for the next occurrence of the search string previously entered with %!% the FIND key. The direction of the search is the current one (ADVANCE or %!% BACKUP). %!% define edt_findnxt() { variable r, found; r = 0; if (strlen(LAST_SEARCH)) { if (edt_dir == 1) { r = right(1); found = fsearch(LAST_SEARCH); } else found = bsearch(LAST_SEARCH); !if (found) { go_left(r); error("Not Found."); } } else error ("Find What?") } %!% %!% SECT - (8) %!% Moves the cursor 16 lines (one section) forward or backward, depending on the %!% current direction (see ADVANCE and BACKUP). The cursor is moved to the %!% beginning of the appropriate line. %!% define edt_sect() { if (edt_dir == 1) go_down(16); else go_up(16); bol(); } %% %% BOL %% define edt_bol() { if (edt_dir == 1) { if (bolp()) go_up(1); } else go_down(1); bol(); } %% %% EOL %% define edt_eol() { if (edt_dir == 1) { if (eolp()) go_down_1 (); } else go_up_1 (); eol(); } %% %% LINE %% define edt_line() { if (edt_dir > 0) go_down_1 (); else if (bolp()) go_up_1 (); bol(); } %% %% OPEN LINE %% define edt_oline() { newline(); go_left(1); } %% %% RESET %% define edt_reset() { edt_advance(); while(markp()) pop_mark(0); call ("kbd_quit"); } %!% %!% PAGE - (7) %!% Moves the cursor to the top of a page. A page is defined by a delimiter %!% string, which can be set by the SET ENTITY command. The default page %!% delimiter is the formfeed character (CTRL/L). %!% define edt_page() { variable ret, ff = char(12); if (edt_dir == 1) { go_down(1); ret = fsearch(ff); if (ret) recenter(4); else {if (edt_dir == 1) eob(); else bob();} } else { go_up(1); ret = bsearch(ff); if (ret) recenter(20); else {if (edt_dir == 1) eob(); else bob();} } } %% %% CUT %% define edt_cut() { variable b; !if (dupmark()) return; b = whatbuf(); setbuf(edt_pbuf); erase_buffer(); setbuf(b); copy_region(edt_pbuf); del_region(); } define edt_paste() { insbuf(edt_pbuf); } %% %% PASTE %% define edt_paste() { insbuf(edt_pbuf); } %!% %!% Although not documented in EDT online help, this deletes the region. %!% APPEND - (9) %!% Moves the select range to the end of the PASTE buffer. The select range is all %!% the text between the selected position (see SELECT) and the current cursor %!% position. If no SELECT has been made and the cursor is positioned on the %!% current search string, that string is appended. %!% define edt_append() { variable b; b = whatbuf(); setbuf(edt_pbuf); eob(); setbuf(b); if (dupmark()) { copy_region(edt_pbuf); del_region(); } else error("No Region."); } %% %% SUBSTITUTE %% define edt_subs() { if (looking_at(LAST_SEARCH)) { deln (strlen(LAST_SEARCH)); edt_paste(); !if (looking_at (LAST_SEARCH)) edt_findnxt(); } else error("Select range not active.") } %% %% HELP %% define edt_help() { jed_easy_help("edt.hlp"); } %% %% CHANGECASE %% define edt_chgcase() { variable n; !if (markp()) { push_mark(); n = strlen(LAST_SEARCH); if (n and looking_at(LAST_SEARCH)) go_right(n); else if (edt_dir == 1) go_right(1); else go_left(1); } xform_region('X'); } %!% %!% is this a better defn of what edt_replace should be? %!% REPLACE - (GOLD 9) %!% Deletes the select range and replaces it with the contents of the PASTE %!% buffer. %!% define edt_replace() { variable n; n = strlen(LAST_SEARCH); if (n and looking_at(LAST_SEARCH)) deln (n); else { !if (markp()) error("Select range not active."); del_region(); } edt_paste(); } %% %% EDT command prompt with completion %% define edt_command() { variable f = Null_String, i = 0; if (MINIBUFFER_ACTIVE) { call("evaluate_cmd"); return; } forever { if (is_internal(f)) { call(f); return; } if (is_defined(f)) { eval(f); return; } !if (EXECUTING_MACRO or DEFINING_MACRO) { if (i == 1) ungetkey(13); ungetkey(' '); ++i; } f = read_with_completion("Command:", Null_String, f, 'F') } } %% %% LEARN %% variable learn_status = 0; define learn() { if (learn_status == 0) { learn_status = 1; call("begin_macro"); } else { call("end_macro"); eval("assign_macro_to_key"); learn_status = 0; } } define assign_macro_to_key() { variable key = Null_String; variable ch = 0; flush ("Press the key you wish to use for learn"); do { ch = getkey (); if (ch == 0) ch = "^@"; else ch = char (ch); key = strcat (key, ch); } while (input_pending (5)); local_setkey (strcat ("@", get_last_macro ()), key); message (strcat ("Macro set to ", expand_keystring (key))); } add_completion ("assign_macro_to_key"); eval("assign_macro_to_key"); learn_status = 0; } } define assign_macro_to_key() { variable key = Null_String; variable ch = 0; flush ("Press the key you wish to use for learn"); do { ch = getkey (); if (ch == 0) ch = "^@"; else ch = char (ch); key = strcat (key, ch); } while (input_pending (5)); jed-0.97.12/lib/emacs.hlp000064400000000000003000000003430603742310600146340ustar00rootsys00000000000000JED Emacs keybindings: `^' means to use Ctrl key (e.g., ^X = Ctrl-X). ^X^C exit ^V PageDn ^Xu Undo ^X^W write to file ^A beg of line ^L redraw ESC V PageUp ^D delete ^X^F open a file ^E end of line } define assign_macro_to_key() { variable key = Null_String; variable ch = 0; flush ("Press the key you wish to use for learn"); do { ch = getkey (); if (ch == 0) ch = "^@"; else ch = char (ch); key = strcat (key, ch); } while (input_pending (5)); jed-0.97.12/lib/emacs.sl000064400000000000003000000127540603742310700145010ustar00rootsys00000000000000% % Emacs like bindings for Jed. % % A subset of the emacs global map is implemented here. If you % are lacking a useful keybinding, contact davis@space.mit.edu set_status_line("(Jed %v) Emacs: %b (%m%a%n%o) %p,%c %t", 1); Help_File = "emacs.hlp"; KILL_LINE_FEATURE = 0; #ifdef UNIX enable_flow_control(0); %turns off ^S/^Q processing (Unix only) #endif % % The default keybindings for Jed use ^W, ^F, and ^K keymaps. Emacs % does not bind these so turn them off unsetkey("^K"); unsetkey("^W"); unsetkey("^F"); % Jed default binding of the tab char ^I is to indent line. Here just insert % the tab % setkey("self_insert_cmd", "^I"); %% The default binding for the quote keys (", ') is 'text_smart_quote'. %% Most users do not seem to like this so it is unset here. setkey("self_insert_cmd", "\""); setkey("self_insert_cmd", "'"); % setkey("backward_delete_char", "^?"); setkey("backward_delete_char_untabify", "^?"); setkey("beg_of_line", "^A"); setkey("previous_char_cmd", "^B"); setkey("delete_char_cmd", "^D"); setkey("eol_cmd", "^E"); setkey("next_char_cmd", "^F"); setkey("newline", "^J"); setkey("kill_line", "^K"); setkey("emacs_recenter", "^L"); setkey("newline_and_indent", "^M"); setkey("next_line_cmd", "^N"); setkey("previous_line_cmd", "^P"); setkey("quoted_insert", "^Q"); %% %% Try these if you prefer % setkey("isearch_backward", "^R"); % setkey("isearch_forward", "^S"); %% setkey("search_backward", "^R"); setkey("search_forward", "^S"); setkey("page_down", "^V"); setkey("kill_region", "^W"); setkey("yank", "^Y"); setkey("sys_spawn_cmd", "^Z"); % % The escape map % setkey("bskip_word", "\eB"); setkey("delete_word", "\eD"); setkey("bdelete_word", "\e^?"); setkey("skip_word", "\ef"); setkey("replace_cmd", "\e%"); setkey("beg_of_buffer", "\e<"); setkey("end_of_buffer", "\e>"); setkey("narrow_paragraph", "\eN"); setkey("format_paragraph", "\eQ"); setkey("page_up", "\eV"); setkey("copy_region", "\eW"); setkey("trim_whitespace", "\e\\"); % % ^X map % setkey("whatpos", "^X="); setkey("begin_macro", "^X("); setkey("end_macro", "^X)"); setkey("mark_spot", "^X/"); setkey("delete_window", "^X0"); setkey("one_window", "^X1"); setkey("split_window", "^X2"); setkey("scroll_left", "^X<"); setkey("scroll_right", "^X>"); setkey("switch_to_buffer", "^XB"); setkey("dired", "^XD"); setkey("insert_file", "^XI"); setkey("execute_macro", "^XE"); setkey("pop_spot", "^XJ"); setkey("kill_buffer", "^XK"); setkey("other_window", "^XO"); setkey("exit_jed", "^X^C"); setkey("find_file", "^X^F"); setkey("toggle_readonly", "^X^Q"); setkey("save_buffer", "^X^S"); setkey("transpose_lines", "^X^T"); setkey("write_buffer", "^X^W"); % rectangle stuff setkey("kill_rect", "^XRk"); setkey("open_rect", "^XRo"); setkey("insert_rect", "^XRy"); setkey("copy_rect", "^XRr"); % On the IBM PC, the ^@ is an extended key like all the arrow keys. The % default Jed bindings enable all these keys including the ^@. See source % for details. #ifdef MSDOS OS2 setkey("smart_set_mark_cmd", "^@^C"); #else setkey("smart_set_mark_cmd", "^@"); #endif setkey ("find_buffer_other_window", "^X4b"); setkey ("find_alternate_file", "^X^V"); setkey ("find_file_other_window", "^X4f"); autoload ("find_file_other_window", "emacsmsc"); autoload ("find_buffer_other_window", "emacsmsc"); autoload ("find_alternate_file", "emacsmsc"); %% misc functions define emacs_mark_buffer() { eob(); push_mark(); bob(); } setkey("emacs_mark_buffer", "^XH"); define emacs_open_line() { newline(); go_left(1); } setkey("emacs_open_line", "^O"); define emacs_recenter() { recenter(0); } define transpose_chars () { variable c, err; err = "Top of Buffer"; if (eolp()) go_left(1); !if (left(1)) error(err); c = what_char(); del(); go_right(1); insert_char(c); } setkey("transpose_chars", "^T"); %%0 9 1 { "^U" exch string strcat "digit_arg" exch setkey } _for % % Emacs Universal argument--- bound to ^U % define universal_argument () { variable n, key, count, msg, cu, force; n = 4; count = 0; cu = "C-u"; msg = cu; force = 0; forever { !if (force) !if(input_pending(10)) force = 1; if (force) { message(strcat (msg, "-")); update(0); } msg = strcat(msg, " "); key = getkey(); switch(key) { isdigit(char(())) : key = key - '0'; count = 10 * count + key; msg = strcat(msg, string(key)); } { case 21 : % ^U !if (count) n = 4 * n; count = 0; msg = strcat (msg, cu); } { ungetkey(()); !if (count) count = n; count = string(count); n = strlen(count); _for (n, 1, -1) { count; exch(); ungetkey(int (substr((), (), 1))); } ungetkey(27); return; } } } setkey("universal_argument", "^U"); % The 8086 version of jed does not suppot yank-pop whereas jed386 does. So, % I do it this way so both executables can execute this file. if (is_defined ("KILL_ARRAY_SIZE")) { () = evalfile ("yankpop"); setkey ("yp_kill_line", "^K"); setkey ("yp_yank", "^Y"); setkey ("yp_yank_pop", "\eY"); setkey ("yp_kill_word", "\eD"); setkey ("yp_bkill_word", "\e^?"); setkey ("yp_copy_region_as_kill", "\eW"); setkey ("yp_kill_region", "^W"); } ersal_argument", "^jed-0.97.12/lib/emacsmsc.sl000064400000000000003000000017060603742310700151770ustar00rootsys00000000000000% More emacs functions. This file is autoloaded upon demand. define find_buffer_other_window () { variable n, buf, trybuf = Null_String; variable ch; n = buffer_list(); loop (n) { =buf; n--; ch = buf[0]; if ((ch == ' ') or (ch == '*') or not(strcmp (whatbuf (), buf))) continue; trybuf = buf; break; } loop (n) pop (); trybuf = read_with_completion ("Switch to buffer:", trybuf, Null_String, 'b'); if (strlen (trybuf)) pop2buf (trybuf); } define find_file_other_window () { variable file; file = read_file_from_mini ("Find file:"); !if (strlen(extract_filename(file))) return; !if (read_file(file)) message ("New file."); pop2buf (whatbuf()); } define find_alternate_file () { variable file; file = read_file_from_mini ("Find alternate file:"); !if (strlen(extract_filename(file))) return; delbuf (whatbuf()); !if (find_file (file)) message ("New file."); } b'); if (strlen (trybuf)) pop2buf (trybuf); } define jed-0.97.12/lib/fortran.sl000064400000000000003000000251750603742310700150650ustar00rootsys00000000000000% % Fortran mode for jed % % Loading this file, then executing 'fortran_mode' will start fortran mode % on the current buffer. The only keys that get remapped are: % ^M (return) which runs the fortan newline command % ^I (tab) which indents the current line % ^[; (escape semicolon) runs the fortran comment command % ^[: (escape colon) runs fortran uncomment command % ^[^M : start a continuation line !if (is_defined ("Fortran_Continue_Char")) { variable Fortran_Continue_Char = "&"; % default continuation char } !if (is_defined ("Fortran_Comment_String")) { variable Fortran_Comment_String = "C "; } !if (is_defined ("Fortran_Indent_Amount")) { variable Fortran_Indent_Amount = 2; } % goto beginning of line and skip past continuation char define fortran_skip_label () { bol (); skip_chars ("0-9 \t"); if (looking_at(Fortran_Continue_Char)) go_right(1); skip_white (); } % computes fortran indent define fortran_get_indent () { variable col = 7; %/* at top of buffer it should be 7 n'est pas? */ variable cse = CASE_SEARCH; CASE_SEARCH = 0; push_spot (); while (up_1 ()) { bol_skip_white(); if (eolp() or looking_at(Fortran_Continue_Char)) continue; fortran_skip_label (); col = what_column (); if (col == 1) continue; if (looking_at("do ") or looking_at("else")) col += Fortran_Indent_Amount; else if (looking_at("if ") or looking_at("if(")) { if (ffind ("then")) col += Fortran_Indent_Amount; } break; } % now check current line pop_spot (); push_spot (); fortran_skip_label (); if (looking_at("end") or looking_at("continue") or looking_at("else")) col -= Fortran_Indent_Amount; if (col < 7) col = 7; pop_spot (); CASE_SEARCH = cse; col; } % used below-- skips range % assumes we are after the label or continuation char % and indents the rest to goal define fortran_tough_indent (goal) { skip_chars ("0-9"); trim (); if (looking_at (Fortran_Continue_Char)) { insert_spaces (6 - what_column()); go_right(1); trim(); goal += Fortran_Indent_Amount; } insert_spaces (goal - what_column()); } % fortran indent routine define fortran_indent () { variable col, ch, n, goal; push_spot (); goal = fortran_get_indent (); bol_skip_white (); col = what_column (); switch (char(what_char())) { isdigit (()) : % label if (col >= 6) { bol (); trim (); insert_single_space (); } fortran_tough_indent (goal); } { case Fortran_Continue_Char : % continuation character bol (); trim (); insert (" "); fortran_tough_indent (goal); } { pop (); not (bolp()) or eolp (): % general case bol (); trim (); goal--; insert_spaces (goal); } pop_spot (); skip_white (); } define fortran_is_comment () { bol (); skip_chars (" \t0-9"); bolp () and not (eolp()); } define fortran_newline () { variable p, cont; if (bolp ()) { newline (); return; } fortran_indent (); push_spot (); bskip_white (); trim (); if (what_column () > 72) { push_spot (); bol_skip_white(); !if (bolp()) message ("Line exceeds 72 columns."); pop_spot (); } p = POINT; bskip_chars("-+*=/,("); cont = (p != POINT); if (fortran_is_comment ()) cont = 0; bol_skip_white (); if (looking_at("data ")) cont = 0; pop_spot (); newline (); insert_single_space (); if (cont) insert(Fortran_Continue_Char); fortran_indent (); } define fortran_continue_newline () { fortran_newline (); push_spot (); bol_skip_white (); if (looking_at(Fortran_Continue_Char)) pop_spot (); else { insert (Fortran_Continue_Char); pop_spot (); fortran_indent (); go_right(1); skip_white (); } } % % electric labels % define fortran_electric_label () { variable ch, col; insert_char (LAST_CHAR); push_spot (); bol_skip_white (); % test for comment if (bolp ()) pop_spot (); else { skip_chars ("0-9"); trim (); pop_spot (); fortran_indent (); } } % fortran comment/uncomment functions define fortran_uncomment () { push_spot (); if (fortran_is_comment ()) { bol (); if (looking_at (Fortran_Comment_String)) deln (strlen (Fortran_Comment_String)); else del (); } fortran_indent (); pop_spot (); go_down_1 (); } define fortran_comment () { !if (fortran_is_comment ()) { push_spot (); bol (); insert (Fortran_Comment_String); } pop_spot (); go_down_1 (); } % % Look for beginning of current subroutine/function % define fortran_beg_of_subprogram () { variable cas = CASE_SEARCH; CASE_SEARCH = 0; do { bol_skip_white (); if (POINT) { if (looking_at ("program") or looking_at ("function") or looking_at ("subroutine")) break; } } while (up_1 ()); CASE_SEARCH = cas; } % % Look for end of current subroutine/function % define fortran_end_of_subprogram () { variable cas = CASE_SEARCH; CASE_SEARCH = 0; do { bol_skip_white (); if (looking_at ("end")) { go_right (3); skip_white (); if (eolp ()) break; } } while (down_1 ()); CASE_SEARCH = cas; % restore search mode } % % shows a ruler for FORTRAN source. Press any key to get rid of % define fortran_ruler () { variable c = what_column (); variable r = window_line (); bol (); push_mark (); insert (" 5 7 10 15 20 25 30 35 40 45 50 55 60 65 70\n"); insert ("{ }|{ | | | | | | | | | | | | | }\n"); goto_column (c); if (r <= 2) r = 3; recenter (r); message ("Press SPACE to get rid of the ruler."); update (1); getkey (); pop (); bol (); del_region (); goto_column (c); flush_input (); recenter (r); } define fortran_prev_next_statement (dirfun) { while (dirfun(1)) { bol (); skip_chars ("^0-9 \t"); !if (POINT) break; } goto_column_best_try (7); pop (); } % % moves cursor to the next statement, skipping comment lines % define fortran_next_statement () { fortran_prev_next_statement (&down); } % % moves cursor to the previous fortran statement, skipping comments % define fortran_previous_statement () { fortran_prev_next_statement (&up); } % % main entry point into the fortran mode % !if (is_defined("Fortran_Mode")) { variable Fortran_Mode = "Fortran"; make_keymap (Fortran_Mode); definekey ("fortran_newline", "^M", Fortran_Mode); definekey ("indent_line", "\t", Fortran_Mode); definekey ("fortran_comment", "^[;", Fortran_Mode); definekey ("fortran_uncomment", "^[:", Fortran_Mode); definekey ("fortran_continue_newline", "^[^M", Fortran_Mode); definekey ("self_insert_cmd", "'", Fortran_Mode); definekey ("self_insert_cmd", "\"", Fortran_Mode); definekey ("fortran_beg_of_subprogram", "^[^A", Fortran_Mode); definekey ("fortran_end_of_subprogram", "^[^E", Fortran_Mode); definekey ("fortran_ruler", "^C^R", Fortran_Mode); definekey ("fortran_next_statement", "^C^N", Fortran_Mode); definekey ("fortran_previous_statement", "^C^P", Fortran_Mode); _for (0, 9, 1) { =$1; definekey ("fortran_electric_label", string($1), Fortran_Mode); } } % Set up syntax table $1 = "FORTRAN"; create_syntax_table ($1); define_syntax ("!", "", '%', $1); define_syntax ("([", ")]", '(', $1); define_syntax ('"', '"', $1); define_syntax ('\'', '\'', $1); % define_syntax ('\\', '\\', $1); define_syntax ("0-9a-zA-Z_", 'w', $1); % words define_syntax ("-+0-9eEdD", '0', $1); % Numbers define_syntax (",.", ',', $1); define_syntax ('D', '#', $1); define_syntax ("-+/*=", '+', $1); set_syntax_flags ($1, 1 | 2); % Fortran 77 keywords + include, record, structure, while: % backspace block % call character common complex continue % data dimension do double % else end enddo endfile endif entry equivalence exit external % format function % goto % if implicit include inquire integer intrinsic % logical % parameter pause precision program % real return rewind % save stop subroutine % then % while () = define_keywords ($1, "dogoifto", 2); () = define_keywords ($1, "end", 3); () = define_keywords ($1, "calldataelseexitgotoopenreadrealsavestopthen", 4); () = define_keywords ($1, "blockcloseenddoendifentrypauseprintwhilewrite", 5); () = define_keywords ($1, "commondoubleformatrecordreturnrewind", 6); () = define_keywords ($1, "complexendfileincludeinquireintegerlogicalprogram", 7); () = define_keywords ($1, "continueexternalfunctionimplicit", 8); () = define_keywords ($1, "backspacecharacterdimensionintrinsicparameterprecisionstructure", 9); () = define_keywords ($1, "subroutine", 10); () = define_keywords ($1, "equivalence", 11); %!% Mode designed for the purpose of editing FORTRAN files. %!% After the mode is loaded, the hook 'fortran_hook' is called. %!% Useful functions include %!% %!% Function: Default Binding: %!% indent_line TAB %!% fortran_newline RETURN %!% indents current line, inserts newline and indents it. %!% fortran_continue_newline ESC RETURN %!% indents current line, and creates a continuation line on next line. %!% fortran_comment ESC ; %!% comments out current line %!% fortran_uncomment ESC : %!% uncomments current line %!% fortran_electric_label 0-9 %!% Generates a label for current line or simply inserts a digit. %!% fortran_next_statement ^C^N %!% moves to next fortran statementm skips comment lines %!% fortran_previous_statement ^C^P %!% moves to previous fortran statement, skips comment lines %!% fortran_ruler ^C^R %!% inserts a ruler above the current line. Press any key to continue %!% fortran_beg_of_subprogram ESC ^A %!% moves cursor to beginning of current subroutine/function %!% fortran_end_of_subprogram ESC ^E %!% moves cursor to end of current subroutine/function %!% %!% Variables include: %!% Fortran_Continue_Char --- character used as a continuation character. %!% By default, its value is "&" %!% Fortran_Comment_String --- string used by 'fortran_comment' to %!% comment out a line. The default string is "C "; %!% Fortran_Indent_Amount --- number of spaces to indent statements in %!% a block. The default is 2. define fortran_mode () { use_keymap (Fortran_Mode); setmode (Fortran_Mode, 0x4 | 0x10); use_syntax_table ("FORTRAN"); set_buffer_hook ("indent_hook", "fortran_indent"); runhooks ("fortran_hook"); } By default, its value is "&" %!% Fortran_Comment_String --- string used by 'fortran_comment' to %!% comment out a line. The default string is "C "; %!% Fortran_Indent_Amount --- number of spaces to indent statements in %!% a block. The default is 2. define fortran_mode () { use_keymap (Fortran_Mode); setmode (Fortran_Mode, 0x4 | 0jed-0.97.12/lib/generic.hlp000064400000000000003000000002070603742310700151600ustar00rootsys00000000000000No help file available for this mode. Press 'ESC-X describe_bindings' for a list of keybindings. Also press Ctrl-H ? for simple menus. ault, its value is "&" %!% Fortran_Comment_String --- string used by 'fortran_comment' to %!% comment out a line. The default string is "C "; %!% Fortran_Indent_Amount --- number of spaces to indent statements in %!% a block. The default is 2. define fortran_mode () { use_keymap (Fortran_Mode); setmode (Fortran_Mode, 0x4 | 0jed-0.97.12/lib/help.sl000064400000000000003000000162120603742310700143320ustar00rootsys00000000000000%% help.sl !if (is_defined ("Jed_Doc_File")) { variable Jed_Doc_File = expand_jedlib_file ("jed_funs.hlp"); } %% apropos function define apropos() { variable n, cbuf, s; if (MINIBUFFER_ACTIVE) return; s = read_mini("apropos:", Null_String, Null_String); n = slapropos(s); cbuf = whatbuf(); pop2buf("*apropos*"); erase_buffer(); loop (n) { insert(()); newline(); } buffer_format_in_columns(); bob(); set_buffer_modified_flag(0); pop2buf(cbuf); } %!% Prototype: String expand_keystring (String key) %!% This function takes a key string that is suitable for use in a 'setkey' %!% definition and expands it to a human readable form. %!% For example, it expands ^X to the form "Ctrl-X", ^[ to "ESC", %!% ^[[A to "UP", etc... %!% See also: setkey define expand_keystring (key) { variable n = strlen (key); variable str, i = 1, ch, key_string = Null_String, the_key; while (i <= n) { ch = key[i - 1]; ++i; switch (ch) { (case '^' and (i <= n)) or (ch < 32) : % control char %% common cases are '^[, ^[[?, ^[O?' if (ch < 32) { str = strcat (char (ch + '@'), substr (key, i, 2)); i--; } else str = substr (key, i, 3); if (int(str) == '[') { i += 3; switch (str) { case "[[A" : "UP"; } { case "[[B" : "DOWN"; } { case "[[C" : "RIGHT"; } { case "[[D" : "LEFT"; } { case "[OP" : "GOLD"; } { case "[OA" : "UP"; } { case "[OB" : "DOWN"; } { case "[OC" : "RIGHT"; } { case "[OD" : "LEFT"; } { pop(); "ESC"; i -= 2; } } else { i++; strcat ("Ctrl-", char(int(str))); } } { char (()); } the_key = (); if (strlen(key_string)) key_string = strcat(key_string, " "); key_string = strcat (key_string, the_key); } key_string; } %% show key define showkey() { variable f, type, the_type = "internal"; flush("Show Key: "); f = get_key_function(); %% also, type is on stack (if defined) !if (strlen(f)) {message("Key is undefined."); return; } =type; !if (type) the_type = "S-Lang"; message (Sprintf ("Key \"%s\" runs %s function %s.", expand_keystring(LASTKEY), the_type, f, 3)); } define where_is () { variable n, cmd; if (MINIBUFFER_ACTIVE) return; cmd = read_with_completion ("Where is command:", Null_String, Null_String, 'F'); !if (strlen (cmd)) return; n = which_key (cmd); !if (n) return message ("Not on any keys."); message (expand_keystring ()); --n; loop (n) pop (); } %% %% This next functions requires a doc file to be produced. This is made %% by running 'jed -n -l mkdoc' FROM JED_ROOT/lib %% define help_cleanup () { variable pnt, at = "@"; bob (); while (down_1 ()) { skip_white (); if (looking_at ("%!%")) deln (3); } bob (); while (fsearch (at)) { del (); if (looking_at (" ")) { insert_spaces (5); eol (); continue; } if (looking_at (at)) { go_right (1); continue; } pnt = POINT; skip_white (); if (pnt != POINT) continue; insert_char ('`'); while (ffind (at)) { del (); if (looking_at (at)) { go_right (1); continue; } insert_char ('\''); break; } } bob (); set_buffer_modified_flag (0); set_readonly (1); } %% gets help for a function define help_for_function (f) { variable cbuf = whatbuf (); variable tmp = " *jed-help*"; variable help = "*function-help*"; variable flen, full_f; variable p, n; flen = strlen (f); !if (strlen (Jed_Doc_File)) error("The variable Jed_Doc_File is invalid."); if (is_defined (f)) { f; 1; % one f on the stack } else slapropos (f); % many fs on the stack n = (); if (n > 1) flush ("Building list..."); pop2buf (help); set_readonly (0); erase_buffer (); % Now loop n times popping the functions off the stack loop (n) { full_f = (); if (strncmp (f, full_f, flen) or (is_defined (full_f) < 1)) continue; if (get_doc_string (strcat ("F", full_f), Jed_Doc_File)) { % document string on the stack push_spot (); insert ( () ); pop_spot (); if (ffind (":")) { go_right (1); %% function:cfun:T:n where T is type and n is number of args insert ("\tC function: "); p = POINT; !if (ffind (":")) error ("Corrupt doc file?"); push_spot (); go_right (1); switch (what_char ()) { case 'V': "void "} { case 'S': "string "} { case 'F': "float "} { pop (); "int "} % 'I' default POINT = p; insert (()); pop_spot (); deln (3); % :T: deleted insert (" ("); eol (); trim (); insert (" args)"); } } else insert (strcat (full_f, " : Undocumented.")); eob (); insert ("\n-----------------------------------\n"); } if (n > 1) message ("Building list...done."); help_cleanup (); pop2buf (cbuf); } . ( . MINIBUFFER_ACTIVE {return} if . "Describe Function:" Null_String Null_String read_mini help_for_function . ) describe_function . ( . [tmp help f full_f cbuf] " *jed-help*" =tmp . "*function-help*" =help . whatbuf =cbuf . [p flen n] . MINIBUFFER_ACTIVE {return} if . "Describe Variable:" Null_String Null_String read_mini =f . f strlen =flen %%flen {return} !if . Jed_Doc_File strlen { "Unable to read Jed_Doc_File!" error} !if . f slapropos =n . n 1 > {"Building list..." flush} if . help pop2buf 0 set_readonly erase_buffer . n { . =full_f . f full_f flen strncmp %%flen and . {continue} if . full_f is_defined -1 > {continue} if . "V" full_f strcat " " strcat Jed_Doc_File get_doc_string . { . push_spot . insert %% help string . pop_spot . } { full_f insert} . else . eol trim "\tvalue: " insert full_f eval string insert . eob newline 50 {'-' insert_char} loop newline . } loop . newline . help_cleanup . cbuf pop2buf . ) describe_variable . ( . [flags modstr] . whatmode =flags =modstr . modstr {strlen not : "no_mode" =modstr} . {is_defined not : . modstr strlow =modstr . modstr is_defined . { . modstr "_mode" strcat =modstr . } !if . } . switch . modstr is_defined . { . flags { 1 == : "text_mode" } . { 2 & : "c_mode" } . { pop "no_mode" =modstr} . switch . } !if . modstr help_for_function . ) describe_mode define describe_bindings () { flush("Building bindings.."); variable map = what_keymap (); variable buf = whatbuf (); variable cse = CASE_SEARCH; CASE_SEARCH = 1; pop2buf("*KeyBindings*"); erase_buffer (); dump_bindings (map); bob(); replace ("ESC [ A", "UP"); bob(); replace ("ESC [ B", "DOWN"); bob(); replace ("ESC [ C", "RIGHT"); bob(); replace ("ESC [ D", "LEFT"); bob(); replace ("ESC O P", "GOLD"); bob(); CASE_SEARCH = cse; set_buffer_modified_flag(0); pop2buf (buf); message ("done"); } g bindings.."); variable map = what_keymap (); variable buf = whatbuf (); variable cse = CASE_SEARCH; CASE_SEARCH = 1; pop2buf("*KeyBindings*"); erase_buffer (); dump_bindings (map); bob(); replace ("ESC [ A", "UP"); bob(); replace ("ESC [ B", "DOWN"); bob(); replace ("ESC [ C", "RIGHT"); bob(); replace ("ESC [ D", "LEFT"); bob(); replacejed-0.97.12/lib/idl.sl000064400000000000003000000132260603742310700141540ustar00rootsys00000000000000% idl mode --- primitive --- does not define any indentation. $1 = "IDL"; create_syntax_table ($1); define_syntax (";", "", '%', $1); define_syntax ("([{", ")]}", '(', $1); define_syntax ('"', '"', $1); define_syntax ('\'', '\'', $1); define_syntax ('\\', '\\', $1); define_syntax ("$0-9a-zA-Z_", 'w', $1); % words define_syntax ("-+0-9a-fA-F.xXL", '0', $1); % Numbers define_syntax (",.?:", ',', $1); define_syntax ("%-+/&*=<>|!~^", '+', $1); define_syntax ('@', '#', $1); set_syntax_flags ($1, 1); % case insensitive % These are IDL reserved words () = define_keywords ($1, "$", 1); () = define_keywords ($1, "doeqgegtifleltneofor", 2); () = define_keywords ($1, "andendformodnotproxor", 3); () = define_keywords ($1, "caseelsegotothen", 4); () = define_keywords ($1, "beginendifuntilwhile", 5); () = define_keywords ($1, "commonendforendrependwhirepeatreturn", 6); () = define_keywords ($1, "endcaseendelse", 7); () = define_keywords ($1, "endwhilefunctionon_error", 8); () = define_keywords ($1, "endrepeat", 9); () = define_keywords ($1, "on_ioerror", 10); define_keywords_n ($1,"abscoseofexpfixhdrmaxminsintan", 3, 1); define_keywords_n ($1,"alogplotsavesizesortsqrtstopuniqwset", 4, 1); define_keywords_n ($1,"closefloatflooropenropenwplotsprintranksreadfreadsreadurebinspawntotalwherewshow", 5, 1); define_keywords_n ($1,"alog10dblarrdoublefinitefltarrindgenintarrlonarrprintfstrarrstringstrlenstrmidstrposstrputwriteuwindow", 6, 1); define_keywords_n ($1,"defsysvdindgenexecutefindgenget_lunintegerrandomnrandomustr_sepstretchstrtrim", 7, 1); define_keywords_n ($1,"findfilefree_lunn_params", 8, 1); define_keywords_n ($1,"histogramimaginaryreplicatestrupcasetranspose", 9, 1); define_keywords_n ($1,"n_elementsstrlowcasestrmessage", 10, 1); define_keywords_n ($1,"keyword_setstrcompress", 11, 1); % idl indentation routines define idl_find_effective_eol () { bol (); while (ffind (";")) { go_right (1); if (parse_to_point () == -2) { go_left (1); return; } } eol (); } define idl_beginning_of_statement () { variable n = 0; bol_skip_white (); if (looking_at ("pro ") or looking_at ("function ")) { return 0; } while (up_1 ()) { idl_find_effective_eol (); bskip_white (); !if (blooking_at ("$")) { if (bolp ()) { skip_white (); if (looking_at_char (';')) continue; } go_down_1 (); break; } n++; } bol_skip_white (); return n; } define idl_indent_to (col) { push_spot (); bol_skip_white (); if (col != what_column ()) { col--; bol (); trim(); whitespace (col); } pop_spot (); } define idl_looking_at_block (word, begin) { !if (looking_at (word)) return 0; EXIT_BLOCK { pop_spot (); } push_spot (); go_right (strlen (word)); if (ffind (begin)) return 1; do { idl_find_effective_eol (); bskip_white (); !if (blooking_at ("$")) break; } while (down (1)); bol (); return ffind(begin); } define idl_is_block_beginnning () { push_spot (); bol_skip_white (); orelse {idl_looking_at_block ("if ", " begin")} {idl_looking_at_block ("while", " begin")} {idl_looking_at_block ("else ", " begin")} {idl_looking_at_block ("for ", " begin")} {idl_looking_at_block ("case ", " of")} {idl_looking_at_block ("endif else", " begin")} {idl_looking_at_block ("repeat", " begin")} {looking_at ("function ")} {looking_at ("pro ")} { idl_find_effective_eol (); bskip_chars ("$ \t"); blooking_at ("BEGIN") and bfind(':'); } pop_spot (); } !if (is_defined ("Idl_Indent_Amount")) variable Idl_Indent_Amount = 2; define idl_indent_line () { variable len = 0, extra_indent = 0; variable word; push_spot (); EXIT_BLOCK { pop_spot (); idl_indent_to (len + extra_indent); push_mark (); bskip_white (); pop_mark (not(bolp ()), skip_white ()); } if (idl_beginning_of_statement ()) { push_mark (); pop_spot (); push_spot (); bol (); if (1 == find_matching_delimiter (')')) { len = what_column (); pop_mark (0); len++; return; } pop_mark (1); if (looking_at ("pro ") or looking_at ("function ")) { () = ffind(" "); skip_white (); } skip_chars ("A-Za-z$_!"); len = what_column () + Idl_Indent_Amount; return; } if (looking_at_char ('@')) return; if (looking_at ("end")) extra_indent = -Idl_Indent_Amount; else if looking_at ("else") { go_right (4); skip_white (); if (not(looking_at_char (':'))) { extra_indent = -Idl_Indent_Amount; } } !if (up_1 ()) { len = 0; return; } do { bol_skip_white (); !if (eolp () or looking_at_char (';') or looking_at_char ('@')) break; } while (up_1 ()); () = idl_beginning_of_statement (); len = what_column (); if (idl_is_block_beginnning ()) { len += Idl_Indent_Amount; } } define idl_newline_and_indent () { if (idl_is_block_beginnning ()) idl_indent_line (); bskip_white (); if (blooking_at (",")) insert (" $"); newline (); idl_indent_line (); } $1 = "IDL"; !if (keymap_p ($1)) { make_keymap ($1); definekey ("newline_and_indent", "\r", $1); definekey ("indent_line", "\t", $1); } define idl_mode () { variable idl = "IDL"; setmode (idl, 0); use_syntax_table (idl); use_keymap (idl); set_buffer_hook ("indent_hook", "idl_indent_line"); set_buffer_hook ("newline_indent_hook", "idl_newline_and_indent"); runhooks ("idl_mode_hook"); % This is called after the hook to give the hook a chance to load the % abbrev table. if (abbrev_table_p (idl)) use_abbrev_table (idl); } 1); definekey ("newline_and_indent", "\r", $1); definekey ("indent_line", "\t", $1); } define idl_mode () { variable idl = "IDL"; setmode (idl, 0); use_syntax_table (idl); use_keymap (idl); set_buffer_hook ("indent_hook", "idl_indent_line"); set_buffer_hook ("newline_indent_hook", "idl_newline_and_indent"); runhooks ("idl_mode_hook"jed-0.97.12/lib/info.sl000064400000000000003000000446260603742310700143470ustar00rootsys00000000000000% % Info reader for JED % variable Info_This_Filename = Null_String; variable Info_This_Filedir = Null_String; #ifndef VMS % returns compression extension if file is compressed or "" if not define info_is_compressed (file) { variable exts, ext, n; exts = ".Z,.z,.gz"; n = 0; while (ext = extract_element(exts, n, ','), strlen(ext)) { if (1 == file_status(strcat(file, ext))) break; n++; } ext; } #endif define info_make_file_name (file) { variable n, dir, dirfile, df, df_low; #ifndef VMS variable cext; % compressed extension cext = Null_String; #endif n = 0; forever { % % Try to find requested file in remembered directory. % dirfile = expand_filename(dircat(Info_This_Filedir, file)); if (1 == file_status(dirfile)) break; dir = extract_element(Info_Directory, n, ','); df = expand_filename(dircat(dir,file)); % try with first with info extension #ifdef VMS dirfile = strcat (df, "info"); % VMS adds a '.' upon expansion #else dirfile = strcat (df, ".info"); #endif if (1 == file_status(dirfile)) break; #ifndef VMS cext = info_is_compressed(dirfile); if (strlen(cext)) break; #endif df_low = expand_filename(dircat(dir,strlow(file))); #ifdef VMS dirfile = strcat (df_low, "info"); % VMS adds a '.' upon expansion #else dirfile = strcat (df_low, ".info"); #endif if (1 == file_status(dirfile)) break; #ifndef VMS cext = info_is_compressed(dirfile); if (strlen(cext)) break; #endif #ifndef MSDOS % try next with inf extension, since .info causes problems on FAT % In addition, Unix and VMS distributions may have been derived from % PC 8+3 distributions. dirfile = strcat (df_low, ".inf"); if (1 == file_status(dirfile)) break; #endif % Not MSDOS #ifndef VMS cext = info_is_compressed(dirfile); if (strlen(cext)) break; #endif % repeat without extension dirfile = df; if (1 == file_status(dirfile)) break; #ifndef VMS cext = info_is_compressed(dirfile); if (strlen(cext)) break; #endif dirfile = df_low; if (1 == file_status(dirfile)) break; #ifdef UNIX cext = info_is_compressed(dirfile); if (strlen(cext)) break; #endif !if (strlen(dir)) error (strcat("Info file not found: ", file)); ++n; } (Info_This_Filedir, ) = parse_filename(dirfile); #ifndef VMS cext; #endif dirfile; } define info_find_file (file) { variable dirfile, flags, buf, dir; #ifndef VMS variable ext; #endif dirfile = info_make_file_name(file); #ifndef VMS =ext; #endif setbuf("*Info*"); set_readonly(0); widen(); erase_buffer(); #ifndef VMS if (strlen(ext)) { % use zcat to uncompress it #ifdef UNIX run_shell_cmd(Sprintf("zcat -f %s%s", dirfile, ext, 2)); #else run_shell_cmd(Sprintf("gzip -dc %s%s", dirfile, ext, 2)); #endif } else #endif insert_file(dirfile); pop(); % This also pops the return value of % run_shell_cmd bob(); Info_This_Filename = dirfile; set_readonly(1); set_buffer_modified_flag(0); setmode("Info", 1); use_keymap("Infomap"); set_status_line(" Jed Info: %f (%m%n) Press '?' for help. (%p)", 0); ( , dir, buf, flags) = getbuf_info(); setbuf_info(extract_filename(Info_This_Filename), dir, buf, flags); % if (strcmp(whatbuf(), "*Info*")) error ("Not info!! in find file"); } define info_find_node_split_file(); % extern variable Info_Split_File_Buffer; Info_Split_File_Buffer = Null_String; variable Info_Split_Filename; Info_Split_Filename = Null_String; define info_search_marker(dir) { variable mark, pnt, search_fun; mark = "\x1F"; if (dir > 0) search_fun = &fsearch; else search_fun = &bsearch; push_mark(); forever { if (not(search_fun(mark))) { pop_mark(1); return(0); } if (bolp()) break; pnt = POINT; bol(); skip_chars("\x01-\x1E "); go_right(1); pnt = POINT - pnt; if ((pnt == 1) and (eolp() or looking_at_char('\xC'))) break; if (dir > 0) eol(); else bol(); } pop_mark(0); return (1); } define info_find_node_this_file (the_node) { variable node, len, fnd; CASE_SEARCH = 0; node = strcat("Node: ", the_node); len = strlen(node); widen(); bob(); forever { % some of this could/should be replaced by a regular expression: % !if (re_fsearch("^[\t ]*\x1F")) .... !if (info_search_marker(1)) { % dont give up, maybe this is a split file !if (strlen(Info_Split_File_Buffer)) error(strcat ("Marker not found. ", node)); setbuf(Info_Split_File_Buffer); info_find_node_split_file(the_node); return; } go_down_1 (); % bol(); --- already implicit if (ffind(node)) { % is this really it? --- go_right(len); if (eolp() or looking_at_char(',') or looking_at_char('\t')) break; } eol (); } push_mark(); if (info_search_marker(1)) go_up_1(); else eob(); narrow(); bob(); } define info_find_node_split_file (node) { variable tag, tagpos, pos, pos_len, tag_len, buf, file; variable re; buf = " *Info*"; !if (bufferp(buf), setbuf(buf)) { insbuf("*Info*"); } widen(); % make this re safe tag = str_quote_string (node, "\\^$[]*.+?", '\\'); tag = strcat("Node: ", tag); eob(); %!if (bol_bsearch(tag)) error("tag not found."); %go_right(strlen(tag)); %skip_chars(" \t\x7F"); re = strcat(tag, "[\t \x7F]\\d+[ \t]*$"); !if (re_bsearch(re)) error ("tag not found"); eol (); bskip_chars(" \t"); push_mark(); bskip_chars ("0-9"); tagpos = bufsubstr(); % see comment about DOS below tag_len = strlen(tagpos); bob (); bol_fsearch("Indirect:"); pop(); push_mark(); !if (info_search_marker(1)) eob(); narrow(); bob(); forever { !if (down_1 ()) break; % bol(); --- implicit in down !if (ffind(": ")) break; go_right(2); % This will not work on DOS with 16 bit ints. Do strcmp instead. push_mark(); eol(); pos = bufsubstr(); pos_len = strlen(pos); if (tag_len > pos_len) continue; if (tag_len < pos_len) break; % now == if (strcmp(tagpos, pos) < 0) break; } Info_Split_File_Buffer = Null_String; go_up_1 (); bol(); push_mark(); ffind(": "); pop(); widen(); file = bufsubstr(); info_find_file(file); info_find_node_this_file(node); Info_Split_File_Buffer = buf; } define info_narrow() { if (strcmp(whatbuf(), "*Info*")) return; push_spot(); push_spot(); info_search_marker(-1); pop(); go_down_1 (); push_mark(); pop_spot(); if (info_search_marker(1)) go_up_1 (); else eob(); narrow(); pop_spot(); } % stack for last position !if (is_defined("Info_Stack_Line")) { variable Info_Stack_Depth; Info_Stack_Depth = 0; variable Info_Stack_File, Info_Stack_Line; Info_Stack_File = create_array('s', 16, 2, 2); Info_Stack_Line = create_array('i', 16, 1); } define info_push_position(file, split, line) { variable i, j; if (Info_Stack_Depth == 16) { --Info_Stack_Depth; for (i = 1; i < 16; i++) { j = i - 1; Info_Stack_File[j, 0] = Info_Stack_File[i, 0]; Info_Stack_File[j, 1] = Info_Stack_File[i, 1]; Info_Stack_Line[j] = Info_Stack_Line[i]; } } Info_Stack_File[Info_Stack_Depth, 0] = file; Info_Stack_File[Info_Stack_Depth, 1] = split; Info_Stack_Line[Info_Stack_Depth] = line; ++Info_Stack_Depth; } define info_record_position () { variable i, file; if (strcmp(whatbuf(), "*Info*")) return; widen(); file = Null_String; if (strlen (Info_Split_File_Buffer)) file = Info_Split_Filename; info_push_position(Info_This_Filename, file, what_line()); info_narrow(); } define info_find_node(node) { variable the_node, file, n, len; n = 0; info_record_position(); ERROR_BLOCK { info_mode (); } len = strlen(node); % if it looks like (file)node, extract file, node if (is_substr(node, "(") == 1) n = is_substr(node, ")"); if (n) { the_node = node; node = substr(the_node, n + 1, strlen(node)); the_node = strsub(the_node, n, 0); % truncate string file = substr(the_node, 2, n); if (bufferp(Info_Split_File_Buffer)) delbuf(Info_Split_File_Buffer); Info_Split_File_Buffer = Null_String; info_find_file(file); } !if (strlen(node)) node = "Top"; widen(); push_spot(); bob(); !if (info_search_marker(1)) error("Marker not found."); go_down_1 (); if (looking_at("Indirect:"), pop_spot()) { Info_Split_Filename = Info_This_Filename; info_find_node_split_file(node); } else info_find_node_this_file(node); } % If buffer has a menu, point is put on line after menu marker if argument % is non-zero, otherwise leave point as is. % signals error if no menu. define info_find_menu(save) { variable menu; menu = "* Menu:"; push_spot(); eob(); !if (bol_bsearch(menu)) { pop_spot(); error ("Node has no menu."); } !if (save) { pop_spot(); return; } eol(); go_right(1); push_mark(); pop_spot(); pop_mark(1); } % Move move the cursor to the start of the next nearest menu item or % note reference in this node if possible. % define info_next_xref () { push_mark (); go_right(1); if (re_fsearch("[*].*:")) exchange_point_and_mark (); pop_mark(1); } % % Move move the cursor to the start of the previous nearest menu item or % note reference in this node if possible. % define info_prev_xref () { push_mark (); go_left(1); if (re_bsearch("[*].*:")) exchange_point_and_mark (); pop_mark(1); } % menu references define info_menu () { variable node, colons, colon, menu; node = Null_String; colon = ":"; colons = "::"; menu = "* Menu:"; info_find_menu(0); push_spot(); bol(); if (looking_at("* ") and ffind(colon)) { push_mark(); bol(); go_right(2); node = strcat (bufsubstr(), colon); } pop_spot(); !if (strlen (node) and (LAST_CHAR == '\r')) node = read_mini("Menu item:", node, Null_String); eob(); bol_bsearch(menu); pop(); !if (bol_fsearch(strcat("* ", node))) error ("Menu Item not found."); !if (ffind(colon)) error ("Corrupt File?"); if (looking_at(colons)) { push_mark(); bol(); go_right(2); } else { go_right(1); skip_white(); push_mark(); if (looking_at_char('(')) { ffind (char(')')); pop(); } % comma, tab, '.', or newline terminates skip_chars("\d032-\d043\d045\d047-\d255"); bskip_chars(" "); } info_find_node(bufsubstr(())); } define info_up () { bob(); !if (ffind("Up: ")) error ("Node has no UP."); go_right(4); push_mark(); % comma, tab, or newline terminates skip_chars("\d032-\d043\d045-\d255"); bskip_chars(" "); info_find_node(bufsubstr(())); } define info_prev() { variable n; n = 10; bob(); !if (ffind("Previous: ")) { !if (ffind("Prev: ")) error ("Node has no PREVIOUS"); n = 6; } go_right(n); push_mark(); skip_chars("\d032-\d043\d045-\d255"); bskip_chars(" "); info_find_node(bufsubstr(())); } define info_next () { bob(); !if (ffind("Next: ")) error ("Node has no NEXT."); go_right(6); push_mark(); % comma, tab, or newline terminates skip_chars("\d032-\d043\d045-\d255"); bskip_chars(" "); info_find_node(bufsubstr(())); } define info_quick_help() { message("q:quit, h:tutorial, SPC:next screen, DEL:prev screen, m:menu, s:search"); } !if (keymap_p("Infomap")) { make_keymap("Infomap"); definekey("info_quick_help", "?", "Infomap"); definekey("info_tutorial", "h", "Infomap"); definekey("info_tutorial", "H", "Infomap"); definekey("info_menu", "^M", "Infomap"); definekey("info_menu", "M", "Infomap"); definekey("info_menu", "m", "Infomap"); definekey("info_next_xref", "^I", "Infomap"); #ifdef MSDOS definekey("info_prev_xref", "^@^O", "Infomap"); #endif definekey("info_next", "N", "Infomap"); definekey("info_next", "n", "Infomap"); definekey("info_prev", "P", "Infomap"); definekey("info_prev", "p", "Infomap"); definekey("info_up", "U", "Infomap"); definekey("info_up", "u", "Infomap"); definekey("page_down", " ", "Infomap"); definekey("page_up", "^?", "Infomap"); definekey("bob", "B", "Infomap"); definekey("bob", "b", "Infomap"); definekey("info_goto_node", "G", "Infomap"); definekey("info_goto_node", "g", "Infomap"); definekey("info_quit", "q", "Infomap"); definekey("info_quit", "Q", "Infomap"); definekey("info_goto_last_position", "l", "Infomap"); definekey("info_goto_last_position", "L", "Infomap"); definekey("info_search", "S", "Infomap"); definekey("info_search", "s", "Infomap"); definekey("info_follow_reference", "f", "Infomap"); definekey("info_follow_reference", "F", "Infomap"); definekey("info_find_dir", "D", "Infomap"); definekey("info_find_dir", "d", "Infomap"); _for (1, 9, 1) { =$1; definekey("info_menu_number", string($1), "Infomap"); } } define info_goto_last_position() { variable split_file, file, n, i; if (Info_Stack_Depth == 0) return; --Info_Stack_Depth; i = Info_Stack_Depth; split_file = Info_Stack_File[i, 1]; file = Info_Stack_File[i, 0]; n = Info_Stack_Line[i]; if (not(strcmp(file, Info_This_Filename)) and bufferp("*Info*")) { widen(); goto_line(n); bol(); info_narrow(); return; } if (strlen(split_file)) { setbuf(" *Info*"); set_readonly(0); widen(); erase_buffer(); #ifndef VMS variable ext = info_is_compressed(split_file); if (strlen(ext)) { % use zcat to uncompress it #ifdef UNIX run_shell_cmd(Sprintf("zcat -f %s%s", split_file, ext, 2)); #else run_shell_cmd(Sprintf("gzip -dc %s%s", split_file, ext, 2)); #endif } else #endif insert_file (split_file); pop (); setbuf ("*Info*"); } !if (strlen(file)) return; info_find_file(file); goto_line(n); bol(); info_narrow(); } define info_find_dir() { info_find_node ("(DIR)top"); } define info_mode () { variable ibuf; ibuf = "*Info*"; if (Info_Stack_Depth) info_goto_last_position (); !if (bufferp(ibuf)) info_find_dir(); pop2buf(ibuf); onewindow(); runhooks ("info_mode_hook"); } define info_quit () { info_record_position(); widen(); delbuf("*Info*"); } define info_goto_node() { info_find_node (read_mini("Node:", Null_String, Null_String)); } define info_search () { variable this_line, this_file, str, err_str, file, wline, ifile, ext; err_str = "String not found."; str = read_mini("Re-Search:", LAST_SEARCH, Null_String); !if (strlen(str)) return; save_search_string(str); widen(); go_right(1); if (re_fsearch(str)) { info_narrow(); return; } % % Not found. Look to see if this is split. % !if (strlen(Info_Split_File_Buffer)) { info_narrow(); error (err_str); } this_file = Info_This_Filename; this_line = what_line(); wline = window_line(); %need this so state can be restored after a failure. setbuf(Info_Split_File_Buffer); widen(); bob(); bol_fsearch("Indirect:"); pop(); push_mark(); if (info_search_marker(1)) go_up_1 (); else eob(); narrow(); bob(); bol_fsearch(extract_filename(this_file)); pop(); while (down_1 ()) { % bol(); --- implicit push_mark(); !if (ffind(":")) {pop_mark(0); break; } file = bufsubstr(); flush(strcat("Searching ", file)); ifile = info_make_file_name(file); #ifdef UNIX OS2 =ext; if (strlen(ext)) { setbuf(" *Info*zcat*"); erase_buffer(); #ifdef UNIX () = run_shell_cmd(Sprintf("zcat -f %s%s | grep -ci '%s'", ifile, ext, str, 3)); #else () = run_shell_cmd(Sprintf("gzip -dc %s%s | grep -ci '%s'", ifile, ext, str, 3)); #endif bob(); if (looking_at("0")) { delbuf(whatbuf()); setbuf(Info_Split_File_Buffer); continue; } setbuf(Info_Split_File_Buffer); } else #endif !if (search_file(ifile, str, 1)) { setbuf(Info_Split_File_Buffer); continue; } info_find_file(file); pop(fsearch(str)); info_narrow(); info_push_position(this_file, Info_Split_Filename, this_line); return; } widen(); info_find_file (this_file); goto_line(this_line); eol(); info_narrow(); recenter(wline); error (err_str); } define info_follow_reference () { variable colon, colons, note, err, item, node, ref; colon = ":"; colons = "::"; note = "*Note"; err = "No cross references."; push_spot(); !if (fsearch(note)) { !if (bsearch(note)) { pop_spot(); error(err); } } pop_spot(); ref = read_mini("Follow *Note", Null_String, Null_String); push_spot(); bob(); forever { !if (fsearch(note)) { pop_spot(); error ("Bad reference."); } go_right (5); skip_chars (" \t\n"); % skip_white(); % if (eolp()) % { % go_right(1); skip_white(); % } if (looking_at(ref)) break; } push_mark(); pop_spot(); %info_record_position pop_mark(1); push_spot(); !if (fsearch(colon)) { pop_spot(); error ("Corrupt File?"); } if (looking_at(colons)) { push_mark(); pop_spot(); node = bufsubstr(); } else { go_right(1); skip_white(); if (eolp()) { go_right(1); skip_white(); } push_mark(); if (looking_at_char('(')) pop(ffind(char(')'))); % comma, tab, '.', or newline terminates skip_chars("\d032-\d043\d045\d047-\d255"); bskip_chars(" "); node = bufsubstr(()); pop_spot(); } info_find_node(node); } define info_menu_number () { variable node; node = Null_String; variable colon, colons; colons = "::"; colon = ":"; variable n; n = LAST_CHAR; if ((n < '1') or (n > '9')) return (beep()); n -= '0'; info_find_menu(1); while (n) { !if (bol_fsearch("* ")) return (beep()); if (ffind(colon)) --n; else eol(); } if (looking_at(colons)) { push_mark(); bol(); go_right(2); } else { go_right(1); skip_white(); push_mark(); if (looking_at_char('(')) { ffind (char(')')); pop(); } % comma, tab, '.', or newline terminates skip_chars("\d032-\d043\d045\d047-\d255"); bskip_chars(" "); } info_find_node(bufsubstr(())); } define info_tutorial() { info_find_node("(info)help"); } define info_reader () { info_mode (); variable f = "exit_jed"; local_setkey (f, "q"); local_setkey (f, "Q"); } push_mark(); bol(); go_right(2); } else { go_right(1); skip_white(); push_mark(); if (lojed-0.97.12/lib/isearch.sl000064400000000000003000000100660603742310700150210ustar00rootsys00000000000000%% isearch.sl %% Routines here perform incremental forward/backward searches %% %% ESCAPE key aborts the search %% ENTER key finds next match %% DELETE key deletes last character entered and returns to previous point %% %% "isearch_forward" "^FIf" setkey %(sample bindings) %% "isearch_backward" "^FIb" setkey . [Isearch_Last_Search] Null_String =Isearch_Last_Search %% This code fragment checks to see what the isearch keys are bound to . [Isearch_Forward_Char] 19 =Isearch_Forward_Char %^S . [Isearch_Backward_Char] 18 =Isearch_Backward_Char %^R . "isearch_forward" which_key . { . dup strlen 2 == . { dup . int '^' == . { 2 1 substr int . dup 'S' != {'@' - =Isearch_Forward_Char}{pop} else . }{pop} . else . }{pop} else . } loop . "isearch_backward" which_key . { . dup strlen 2 == . { dup . int '^' == . { 2 1 substr int . dup 'Q' != {'@' - =Isearch_Backward_Char}{pop} else . }{pop} . else . }{pop} else . } loop . ( . [dir] =dir . dir 0 > . {"Search:"} . {"Search Backwards:"} . else Isearch_Last_Search Null_String read_mini . =Isearch_Last_Search . Isearch_Last_Search . dir 0 > . {fsearch}{bsearch} else . {"Not Found." error} !if . ) isearch_simple_search . ( . [str] =str . [n] str strlen =n . n { . str 1 n 1 - substr =str . } if . str . ) isearch_del . ( . [dir] =dir . [prompt] . [str] Null_String =str . [c m int first] push_mark 1 =m 1 =first % This is tricky. I am leaving a 1 or a 0 on the stack which indicates % whether or not a character is attached to a mark. The number of ones % and zeros on the stack should match the value of m. % Since a mark was pushed and not attached to a character, push 0 . 0 . { m { pop 0 pop_mark} loop } ERROR_BLOCK %% make sure we pop marks . { . "Isearch " dir 1 == {"forward: "}{"Backward: "} else strcat =prompt . prompt str strcat message . push_spot . dir 0 > str looking_at and . { . str strlen right pop . } if . 0 update . pop_spot . getkey =c . c { 27 == first and : dir isearch_simple_search break} . { 27 == : break} . { 13 == c Isearch_Forward_Char == or : % return or ^S . push_mark ++m 0 % mark not attached to char! . dir 1 == { 1 right pop } if . str strlen {Isearch_Last_Search =str} !if . } . { Isearch_Backward_Char == : %^R . dir 0 > { . m {pop 0 pop_mark} loop . -1 =dir push_mark 0 1 =m . } . { . push_mark ++m 0 % mark not attached to char! . str strlen {Isearch_Last_Search =str} !if . } . else . } . { 127 == : % pop last integer off stack to see whether last mark % pushed was result of a char . m 1 == or { str isearch_del =str } if . m {--m 1 pop_mark} if . m {1 =m push_mark 0} !if . continue . } . { 32 < : break} % terminate search . { char str exch strcat =str . 1 ++m push_mark % 1 pushed as well %%str looking_at {++m push_mark 1} !if %%m 1 + =m push_mark %%str looking_at 1 dir == and {1 right pop} if . } . switch . 0 =first . dir 0 < m 1 > and str looking_at c ' ' >= and {continue} if . str dir 1 == {fsearch}{bsearch} else . { . str " not found." strcat flush beep . 10 input_pending pop . c 13 == {1 left pop} . {str isearch_del =str 0 pop_mark --m pop} %pop char flag . else . } !if . } forever . EXECUTE_ERROR_BLOCK . str strlen {str =Isearch_Last_Search} if . dir 1 == {str strlen right pop} if . "Done." message . { 0 input_pending } { getkey pop } while . ) isearch_dir . ( 1 isearch_dir ) isearch_forward . ( -1 isearch_dir ) isearch_backward { . str " not found." strcat flush beep . 10 input_pending pop . c 13 == {1 left pop} . {str isearch_del =str 0 pop_mark --m pop} %pop char flag . else . } !if . } forever . EXECUTE_ERROR_BLOCK . str strlen {str =Isearch_Last_Search} if . dir 1 == {str strlen right pop} if . "Done." message . { 0 input_pending } { getkey pop } while . ) isearch_dir . ( 1 isearch_dir ) isearjed-0.97.12/lib/iso-latin.sl000064400000000000003000000007340603742311000152750ustar00rootsys00000000000000%% %% Initializes upper/lowercase lookup tables for ISO Latin 1 %% Information here derived from staring at a vt420 %% . 0 64 1 { dup define_case } _for . 65 90 1 { dup 32 + define_case } _for . 91 96 1 { dup define_case } _for . 123 191 1 { dup define_case } _for . 192 221 1 { dup 32 + define_case } _for . 215 215 define_case . 223 223 define_case . 247 247 define_case . 255 255 define_case . "0-9a-zA-Z\d191-\d214\d216-\d222\d224-\d246\d248-\d254" define_word arch_dir . ( 1 isearch_dir ) isearjed-0.97.12/lib/iso2xxx.sl000064400000000000003000000033130603742311000150160ustar00rootsys00000000000000% Thanks to torres@upf.es for the bulk of this variable ISO_Latin_Chars = strncat ("\d225\d233\d237\d243\d250\d193\d201\d205\d211\d218", % "" "\d224\d232\d236\d242\d249\d192\d200\d204\d210\d217", % "" "\d226\d234\d238\d244\d251\d194\d202\d206\d212\d219", % "" "\d228\d235\d239\d246\d252\d196\d203\d207\d214\d220", % "" "\d161\d191\d231\d199\d241\d209\d230\d198", % "" "\d248\d216\d229\d197\d223", % "" 6); variable ISO_TeX_Chars = strncat ("\\'a,\\'e,\\'{\\i},\\'o,\\'u,\\'A,\\'E,\\'I,\\'O,\\'U,", "\\`a,\\`e,\\`{\\i},\\`o,\\`u,\\`A,\\`E,\\`I,\\`O,\\`U,", "\\^a,\\^e,\\^{\\i},\\^o,\\^u,\\^A,\\^E,\\^I,\\^O,\\^U,", "\\\"a,\\\"e,\\\"{\\i},\\\"o,\\\"u,\\\"A,\\\"E,\\\"I,\\\"O,\\\"U,", "!`,?`,\\c{c},\\c{C},\\~n,\\~N,{\\ae},{\\AE},", "{\\o},{\\O},{\\aa},{\\AA},{\\ss}", 6); define iso2tex () { variable i, str_old, str_new; variable save_case_search = CASE_SEARCH; CASE_SEARCH = 1; push_spot (); bob (); _for (0, strlen (ISO_Latin_Chars) - 1, 1) { i = (); str_new = extract_element (ISO_TeX_Chars, i, ','); str_old = char (ISO_Latin_Chars[i]); %bob (); --- not needed since replace does not move the point replace (str_old, str_new); } pop_spot(); CASE_SEARCH = save_case_search; } define tex2iso () { variable i, str_old, str_new; variable save_case_search = CASE_SEARCH; CASE_SEARCH = 1; push_spot (); _for (0, strlen (ISO_Latin_Chars) - 1, 1) { i = (); str_old = extract_element (ISO_TeX_Chars, i, ','); str_new = char (ISO_Latin_Chars[i]); bob (); replace (str_old, str_new); } pop_spot(); CASE_SEARCH = save_case_search; } eplace does not move the point replace (str_old, str_new); } pop_spot(); CASE_SEARCH = save_case_search; } define tex2iso () { variable i, str_old, str_new; variable save_case_search = CASE_SEARCH; CASE_SEARCH = 1; push_spot (); _for (0, strlen (ISO_Latin_Chars) - 1, 1) jed-0.97.12/lib/ispell.sl000064400000000000003000000042610603742311000146650ustar00rootsys00000000000000%% %% Ispell interface %% define ispell() { variable ibuf, buf, file, letters, num_win, old_buf; variable word, cmd, p, word, num, n, new_word; #ifdef OS2 file = make_tmp_file("jedt"); #else file = make_tmp_file("/tmp/jed_ispell"); #endif letters = "a-zA-Z"; ibuf = " *ispell*"; buf = whatbuf(); skip_chars(letters); bskip_chars(letters); push_mark(); push_mark(); n = POINT; skip_chars(letters); if (POINT == n) { pop_mark(0); pop_mark(0); return; } word = bufsubstr(); pipe_region(strcat("ispell -a > ", file)); setbuf(ibuf); erase_buffer(); insert_file(file); pop(); delete_file(file); pop(); %% %% parse output %% bob(); if (looking_at_char('@')) % ispell header { push_mark(); eol(); go_right(1); del_region(); } if (looking_at_char('*') or looking_at_char('+')) { message ("Correct"); % '+' ==> is derived from bury_buffer (ibuf); return; } if (looking_at_char('#')) { bury_buffer (ibuf); return (message("No clue.")); } del(); trim(); eol(); trim(); bol(); if (ffind(":")) { skip_chars(":\t "); push_mark(); bol(); del_region(); } insert ("(0) "); n = 1; while (ffind(" ")) { go_left(1); if (looking_at_char(',')) del(); else go_right(1); trim(); newline(); insert_char('('); insert(string(n)); insert_char(')'); insert_single_space(); ++n; } bob(); num_win = nwindows(); pop2buf(buf); old_buf = pop2buf_whatbuf(ibuf); ERROR_BLOCK { sw2buf(old_buf); pop2buf(buf); if (num_win == 1) onewindow(); bury_buffer(ibuf); } set_buffer_modified_flag(0); num = read_mini("Enter choice. (^G to abort)", "0", Null_String); num = strcat(strcat("(", num), ")"); if (fsearch(num)) { ffind(" "); pop(); trim(); push_mark(); eol(); trim(); new_word = bufsubstr(); set_buffer_modified_flag(0); sw2buf(old_buf); pop2buf(buf); bskip_chars(letters); push_mark(); skip_chars(letters); del_region(); insert(new_word); } else { sw2buf(old_buf); pop2buf(buf); } if (num_win == 1) onewindow(); bury_buffer(ibuf); } ied_flag(0); num = read_mini("Enter choice. (^G to abort)", "0", Null_String); num = strcat(strcat("(", num), ")"); if (fsearch(num)) { ffind(" "); pop(); trim(); push_mark(); eol(); trim(); new_word = bufsubstr(); set_buffer_modified_flag(0); sw2buf(old_buf); pop2buf(buf); bskip_chars(letters); push_mark(); jed-0.97.12/lib/jed.hlp000064400000000000003000000005440603742311000143040ustar00rootsys00000000000000Basic JED Commands: `^' means to use Ctrl key (e.g., ^D = Ctrl-D) ^KE exit ^D pagedown ^FF search ^K^B set mark ^V delete ^U pageup ^FB search back ^KK copy region ^E end of line ^K^W write buffer ^K^R replace ^K^P paste ^B beginning of line ^KG find file ^R redraw ^K^V cut region (); push_mark(); eol(); trim(); new_word = bufsubstr(); set_buffer_modified_flag(0); sw2buf(old_buf); pop2buf(buf); bskip_chars(letters); push_mark(); jed-0.97.12/lib/jed.rc000064400000000000003000000300430604364315000141270ustar00rootsys00000000000000% User Initialization file for the JED editor -*- slang -*- % If a user does not have a startup file in the user's home directory, % JED will automatically load this from JED_LIBRARY. Thus is is easier % for a system manager to make defaults for all users. % Do not edit this file directly. Instead, copy it to your home % directory (sys$login:jed.rc on VMS or $HOME/.jedrc on Unix) and edit % the resulting file. % To uncomment a line, simply remove any leading '%' characters. % This file is divided into various sections. The first section pertains % to keybindings (e.g., Wordstar, Emacs, EDT, etc...) and the following % sections pertain to user preferences such as default TAB sizes, line % and column numbers on status line, colors, indentation style, etc... if (BATCH == 0) { %---------------------------------------------------------------------- % Keybindings (not loaded for batch processes) % % Default bindings are Emacs-like with EDT emulation on Unix and VMS. % For the PC, only Emacs is enabled by default. If you do not want EDT % bindings, simply coment out the appropriate line. % % For Wordstar like bindings, comment out EDT and Emacs lines and % uncomment Wordstar line. A similar statement applies for BRIEF. % % () = evalfile("emacs"); % Emacs-like bindings #ifndef MSDOS OS2 () = evalfile("edt"); % EDT--- Unix and VMS % setkey ("bol", "^H"); % causes ^H to go to beg of line (EDT) #else % () = evalfile ("brief"); % Brief Keybindings % % Note: jed386.exe requires that the GOLD.COM TSR be loaded. This TSR is % available from space.mit.edu:/pub/davis/jed % % () = evalfile("edt"); % EDT--- IBMPC #endif % evalfile("wordstar"); pop(); % Wordstar % !!!! ^S/^Q flow control problems !!!! % if you experience problems with JED suddenly going into search % for some reason then you are a victim of emacs brain dead binding of ^S % to search. TO prevent this from happening, either find out how to % prevent unwanted ^S/^Q characters or uncomment the next line: %enable_flow_control (1); %---------------------------------------------------------------------- % % TAB key setting -- by default, the tab key is bound to 'indent_line_cmd'. % If you want a real tab inserted, uncomment next line. % % setkey("self_insert_cmd", "^I"); %---------------------------------------------------------------------- % Initial help screen --- comment out to disable. % Note that for the help to be valid, it must occur AFTER bindings are % loaded. % help(); % Pops up a help window-- bound to Control-H Control-H } %Batch %%%%%%%%%%%%%%%% top menu bar %%%%%%%%%%%%%%% % To disable it, uncomment the next line. enable_top_status_line (0); %---------------------------------------------------------------------- % JED global variables --- defaults shown % #ifdef VMS UNIX USE_ANSI_COLORS = 1; % if non-zero, JED will display colors on a color % terminal (Unix and VMS only) See doc/color.txt % for more discussion and look below for setting % the colors. #endif No_Backups = 0; % If non-zero, backup files will not be created. Startup_With_File = 1; % if greater then zero, force JED to prompt for a file % if none is specified on the command line. If % negative, inhibit startup message. DISPLAY_TIME = -1; % non-zero enables the time to be displayed on % status line, zero disables it. If this value % is -1, 24 hour time will be used. HIGHLIGHT = 1; % non-zero for region highlighting WANT_SYNTAX_HIGHLIGHT = 1; % Highlight syntax in C, Fortran, and TeX modes. % See section on colors % below for choosing how to highlight. On Unix and % VMS systems, USE_ANSI_COLORS must also be non-zero. HORIZONTAL_PAN = 20; % if zero, no automatic panning. If positive, only % the current line is panned. If negative, pan window. #ifdef MSDOS % For msdos, panning window might be better: HORIZONTAL_PAN = -1; #endif #ifdef MSDOS LINENUMBERS = 1; % A value of zero means do NOT display line number on #else % status line line. A value of 1, means to display LINENUMBERS = 2; % the linenumber. A value greater than 1 will also #endif % display column number information. I recommend a % value of 2 only at high baud rates BLINK = 1; % if non zero, blink matching parenthesis TAB_DEFAULT = 8; % Tab size (also try edit_tab_stops) WRAP = 78; % wrap column ADD_NEWLINE = 1; % add newline to file when writing if one not present IGNORE_BEEP = 3; % Beep terminal during error messages--- % 1 == sound only, 2 = visible bell only, 3 = both _traceback = 0; % Non zero means dump traceback on S-Lang errors WRAP_INDENTS = 0; % Non zero indents next line after wrapping current. % Make this a 1 if you want indented text mode. %KILL_LINE_FEATURE = 0; % If non-zero, kill line will kill through end of the % line if Point is at the beginning of the line. For % emacs-like behavior, set this to zero. #ifndef MSDOS OS2 OUTPUT_RATE = 0; % Should be set automatically by JED. It is the % of chars sent to terminal / second. (0 = Infinity) % % If JED pauses during screen updates, then you need % to set your baud rate properly or simply set this % variable to zero. JED is not slow, rather it assumes % your terminal is, so JED sleeps when writing to the % terminal. By default, this is set to zero. I % suggest that you comment it out and let JED set it % ASSUMING YOUR BAUD RATE IS CORRECT. For example, on % Unix, enter 'stty 2400' at the shell prompt to set % the baud rate to 2400. Setting this variable % properly will synchronize JED's screen writes to % your terminal output rate for increased performance. #endif % C-mode variables: C_INDENT = 3; % amount of space to indent within block. C_BRACE = 2; % amount of space to indent brace C_BRA_NEWLINE = 0; % If non-zero, insert a newline first before inserting % a '{'. Many C programmers like this to be 0. A zero % value will force '{' to be on same line as insertion. % Note that in C mode, the keys '{' and '}' are bound % to the commands 'brace_bra_cmd' and 'brace_ket_cmd' % respectively. '}' '}' variable C_No_Brace_Offset = 1; % Set this variable to the amount of EXTRA space to % add for the indentation of lines following 'if', % 'else', etc.... Try 0 if you set C_BRA_NEWLINE to % 1. #ifdef UNIX % JED Email. JED uses the UC Berkeley mail program for Email. Most systems % have this. Try ^Xm mail and you get an error, uncomment this next line % restart JED and try again. This is definitely the case for Linux. Again, % only uncomment out this line if mail fails! % variable UCB_Mailer; UCB_Mailer = "/bin/mail"; #endif #ifdef MSDOS XWINDOWS % Alt-key handling. Setting this variable controls how the % Alt key is handled. By default it is set to 27 (Ascii ESCAPE). This means % that any key pressed in conjunction with the alt key produces ESCAPE % followed by the key itself. If ALT-X is pressed, an ESCAPE-X is generated. % Set it to zero to turn off Alt key processing. On XWindow systems, setting % this to zero will cause the high bit to be set on the character. % ALT_CHAR = 27; #endif % Mute (dead or accent) keys % Valid Mute keys are: % ^, ~, ', `, \d168 (ISO Diaeresis), \d180 (ISO Acute), and \". % This means pressing this key then the key you want to accent yields % the accented character. If you do not know what this is, you do not % need them. By default, they are turned off. %mute_set_mute_keys (" ^ ~ ' ` \d168 \d180 \" "); % choose all or subset % % 8 bit stuff -- see documentation for a complete discussion % META_CHAR = -1; % All chars with hi bit set will self insert #ifdef MSDOS OS2 DISPLAY_EIGHT_BIT = 1; #else DISPLAY_EIGHT_BIT = 160; % Other systems assume ISO Latin 1 #endif #ifndef XWINDOWS % COLORS: % % Note that to use the colors below with MS-Kermit, do % 'set term color 30 47' at the MS-Kermit prompt. % (See the file 'colors.txt' for a description of using JED with color % terminals.) % Foreground and background: % "black", "blue", "green", "cyan", "red", "magenta", "brown", "lightgray" % Foreground Only: % "gray", "brightblue", "brightgreen", "brightcyan", "brightred", % "brightmagenta", "yellow", "white" % This is a limitation of video adapters on PC systems. For MSDOS, I % reprogram the controller so that high intensity background colors may be % displayed. There does not seem to be a way to do this in MS-Kermit. $1 = "black"; $2 = "white"; set_color("menu", "white", "blue"); % menu bar set_color("normal", $1, $2); % default fg/bg set_color("status", "yellow", "blue"); % status or mode line set_color("region", "yellow", "brightmagenta");% for marking regions set_color("operator", $1, $2); % +, -, etc.. set_color("number", "brightblue", $2); % 10, 2.71,... TeX formulas set_color("comment", "magenta", "brightcyan"); % /* comment */ set_color("string", "brightblue", $2); % "string" or 'char' set_color("keyword", "brightred", $2); % if, while, unsigned, ... set_color("keyword1", "green", $2); % malloc, exit, etc... set_color("delimiter", $1, $2); % {}[](),.;... set_color("preprocess", "magenta", $2); % #ifdef .... set_color("message", "blue", $2); % color for messages set_color("error", "brightred", $2); % color for errors set_color("dollar", "magenta", $2); % color dollar sign continuation #ifdef UNIX VMS if (USE_ANSI_COLORS) call ("redraw"); #else call("redraw"); #endif #endif XWindows #ifdef UNIX % % Terminal type. By default, on Unix termcap is used. However, some % (if not all) termcaps do not include AL, DL strings for vtxxx terminals. % % True blue vt100 terminals cannot insert and delete lines so the AL and DL % termcap entries are not appropriate for them. However, almost no one % uses a true vt100 terminal anymore but they set their TERM variable to % vt100 just the same. If you do not like the way your terminal scrolls, % and it is more than a vt100, either set your TERM variable appropriately % or add vt100 to the list below. % $1 = "vt102 vt200 vt220 vt300 vt320 vt420 xterms con80x25 console xterm"; if (is_substr($1, getenv("TERM"))) set_term_vtxxx(0); #endif variable compile_parse_error_function; % % Compiler interface --- uncomment one of the following: % compile_parse_error_function = "gcc"; % GNU compiler % compile_parse_error_function = "Ultrix_cc"; % cc on Ultrix % compile_parse_error_function = "bcc"; % Borlands BCC % compile_parse_error_function = "sun_acc"; % SunOS C++ and ACC % compile_parse_error_function = "hp_cc"; % HPUX cc % % Hooks: read jed/doc/hooks.sl for more information % define dired_hook () { local_unsetkey ("^K"); local_setkey ("dired_kill_line", "^K"); } %define text_mode_hook () %{ %} % %define fortran_hook () %{ %} % %define tex_mode_hook () %{ %} % %define c_mode_hook () %{ %} % %define mail_hook () %{ % local_unsetkey ("^C"); % local_setkey ("send", "^C^C"); %emacs-like %} % %define slang_mode_hook () %{ %} % %define dired_mode_hook () %{ %} %----------------------------------------------------------------------- % % Insert contents of other window % define insert_other_window() { if (nwindows() != 2) return; otherwindow(); whatbuf(); otherwindow(); insbuf(); } #ifdef MSWINDOWS enable_top_status_line (0); () = evalfile("wmenu.sl"); simple_menu(); #endif %{ %} % %define mail_hook () %{ % local_unsetkey ("^C"); % local_setkey ("send", "^C^C"); %emacs-like %} % %define slang_mode_hook () %{ %} % %define dired_mode_hook () %{ %} %----------------------------------------------------------------------- % % Insert contents of other window % define insert_other_window() { if (nwindows() != 2) return; otherwindow(); whatbuf(); otherwindow(); insbuf(); } #ifdef MSWINDOWS enable_top_status_line (0); () = evalfile(jed-0.97.12/lib/jed_funs.hlp000064400000000000003000004322720603742311100153470ustar00rootsys00000000000000../../slang/src/slunix.c Funix_kill :unix_kill:I:0Prototype: Integer unix_kill(Integer pid, Integer sig);This function may be used to send a signal given by the integer @sig@to the process specified by @pid@. The function returns zero uponsucess and @-1@ upon failure. Funix_ctime :unix_ctime:S:1Prototype: String unix_ctime(Integer secs);This function returns a string representation of the time as given by @secs@ seconds since 1970.  Flstat_file :unix_lstat_file:I:1Prototype: Integer lstat_file(String file);This function is like @stat_file@ but if @file@ is a symbolic link,this @lstat_file@ returns information about the link itself. See the documentation for @stat_file@ for more information.Related Functions: @stat_file@  Fstat_file :unix_stat_file:I:1Prototype: Integer stat_file(String file);This function returns information about @file@ through the use of thesystem @stat@ call. If the stat call fails, the function returns anegative integer. If it is successful, it returns zero. Upon failureit returns a negative number. To retrieve information obtained by thisthis function call, use the @stat_struct@ function. Related Functions: @lstat_file@, @stat_struct@ Fstat_struct :unix_stat_struct:I:1Prototype: Integer stat_struct(String field);This functions returns information obtained by the most recent call tothe @stat_file@ or @lstat_file@ functions. The @field@ argumentspecifies what piece of information to return. Valid values for@field@ are:@ "dev"@ "ino"@ "mode"@ "nlink"@ "uid"@ "gid"@ "rdev"@ "size"@ "atime"@ "mtime"@ "ctime"See the man page for @stat@ for a discussion of these fields.Example:@ define file_size (file)@ {@ if (stat_file(file) < 0) error ("Unable to stat file!");@ return stat_struct("size");@ }Related Functions: @lstat_file@, @stat_file@ Fchown :unix_chown:I:3Prototype: Integer chown(String file, Integer uid, Integer gid);This function may be used to change the ownership of @file@ to that ofuser id @uid@ and group id @gid@. This function returns 0 uponsuccess and a negative number up failure. Specifically, it returns -1if the process does not have sufficent privileges to change theownership, or -2 if the file does not exist. Related Functions: @chmod@, @stat_file@ Fchmod :unix_chmod:I:2Prototype: Integer chmod(String file, Integer mode);The @chmod@ function changes the permissions of @file@ to thosespecified by @mode@. It returns 0 upon success, -1 if the processlacks sufficient privilege for the operation, or -2 if the file doesnot exist. See the system specific documentation for the C libraryfunction @chmod@ for a discussion of the @mode@ parameter.Related Functions: @chown@, @stat_file@ ../../slang/src/slmath.c Fpolynom :math_poly:F:0Prototype: Float polynom (a, b, ..., c, Integer n, Float x);This function returns the value of the polynomial expression:@ ax^n + bx^(n - 1) + ... cSee also: @pow@ Fsin :math_sin:F:0Prototype: Float sin (Float x);This function returns the sine of @x@.See also: @cos@, @asin@ Fcos :math_cos:F:0Prototype: Float cos (Float x);This function returns the cosine of @x@.See also: @sin@, @acos@ Ftan :math_tan:F:0Prototype: Float tan (Float x);This function returns the tangent of @x@.See also: @cos@, @sin@, @sqrt@, @atan@ Fatan :math_atan:F:0Prototype: Float atan (Float x);This function returns the arc tangent of @x@.See also: @sqrt@, @tan@,  Facos :math_acos:F:0Prototype: Float acos (Float x);This function returns the arc cosine of @x@.See also: @cos@, @sin@ Fasin :math_asin:F:0Prototype: Float asin (Float x);This function returns the arc sine of @x@.See also: @cos@, @sin@ Fexp :math_exp:F:0Prototype: Float exp (Float x);This function returns the exponental of @x@. That is, @2.7182818...@to the @x@ power.See also: @sqrt@, @log@ Flog :math_log:F:0Prototype: Float log (Float x);This function returns the natural logarithm of @x@.Note: @x@ must be greater than zero.See also: @exp@, @log10@ Fsqrt :math_sqrt:F:0Prototype: Float sqrt (Float x);This function returns the square root of @x@.Note: @x@ must be greater than or equal to zero.See also: @pow@ Flog10 :math_log10:F:0Prototype: Float log10 (Float x);This function returns the base ten logarithm of @x@.Note: @x@ must be greater than zero.See also: @log@, @pow@ Fpow :math_pow:F:0Prototype: Float pow (Float x, Float y);This function returns the value of @x@ raised to the @y@ power.Note: @x@ must be greater than or equal to zero.See also: @exp@, @log@, @sqrt@ VE Prototype: Float E = 2.718281828459045;The variable E is a read-only variable that represents the value ofthe base of the natural logarithms. VPI Prototype: Float PI = 3.141592653589793;The variable PI is a read-only floating point number. Ffloat :slmath_do_float:F:0Prototype: Float float (Object x);The @float@ function takes an object such as a string or an integerand converts it to its floating point equivalent.For example, @float ("12.34")@ returns the floating point number @12.34@.See also: @integer@, @string@, @char@, @Sprintf@ ../../slang/src/slstd.c Fautoload :SLang_autoload:V:2Prototype: Void autoload(String fun, String file);This function simply declares function @fun@ to the interpreter. When@fun@ is actually called, its actual function definition will be loadedfrom @file@. For example,@ autoload ("bessel_j0", "bessel.sl");tells the interpreter that the function definition for @bessel_j0@ from is to be loaded from the file @bessel.sl@ when the function is executed.Related Functions: @evalfile@ Fpop :SLdo_pop:V:0Prototype: Void pop ();@pop@ is used to remove the top object from the S-Lang stack. It is typically used to ignore values from function that return a value. Forexample, the @fflush@ function which is used to flush an output streamreturns an integer value that indicates whether it was sucessful or not.Usually, it is safe to ignore this value and one simple writes@ fflush (stdout); pop ();Related Functions: @dup@ Fstrcmp :SLdo_strcmp:V:0Prototype: Integer strcmp (String a, String b);@strcmp@ performs a case sensitive comparison between two strings. Itreturns 0 if the strings are identical, a negative number if @a@ is lessthan @b@, or a positive result if @a@ is greater than @b@ (in alexicographic sense).To perform a case insensitive comparison, one can use the @strup@ functionto convert both parameters @a@ and @b@ to uppercase before calling @strcmp@.Related Functions: @strup@, @strlow@, @strncmp@ Fstrcat :SLdo_strcat:V:0Prototype: String strcat(String a, String b);This function takes two strings, @a@ and @b@, concatenates them togetherand returns the result. For example,@ strcat ("Hello ", "World");produces the string @"Hello World"@.Related Functions: @Sprintf@ Fstrlen :SLdo_strlen:V:0Prototype: Integer strlen (String a);The @strlen@ returns the length of the string @a@. The length of astring is simply the number of characters that comprise the string.Related Functions: @char@ Fstr_replace :str_replace:I:0Prototype: Integer str_replace (String a, String b, String c);This function replaces the first occurance of @b@ in @a@ with @c@ and returnsan integer that indicates whether a replacement was made or not. If @b@does not occur in @a@, zero is returned. However, if @b@ occurs in @a@, a non-zero integer is returned as well as the new string resulting from thereplacement. For example, @ define str_replace_all (orig, match, replacement)@ {@ while (str_replace (orig, match, replacement))@ orig = ();@ return orig;@ }is a function that replaces all occurances in a string.Related Functions: @is_substr@, @strsub@, @strtrim@ Fis_defined :SLang_is_defined:I:1Prototype: Integer is_defined (String obj);This function is used to determine whether or not @obj@ has been defined.If @obj@ is not defined, it returns 0. Otherwise, it returns a non-zerovalue that defpends on the type of object @obj@ represents. Specifically:@ +1 if arg is an intrinsic function @ +2 if user defined function@ -1 if intrinsic variable@ -2 if user defined variable @ 0 if undefinedFor example, consider the function:@ define runhooks (hook)@ { @ if (2 == is_defined(hook)) eval(hook);@ }This function could be called from another S-Lang function to allow customization of that function, e.g., if the function represents a mode, the hook could be called to setup keybinding for the mode.Related Functions: @eval@, @autoload@ Fstring :SLdo_string:V:0Prototype: String string (obj);Here @obj@ can be of any type. The function @string@ will return a stringrepresentation of @obj@.For example, @string(12.34)@ returns @"12.34"@.Note: Not all objects may have a meaningful string representation.Related Functions: @Sprintf@, @integer@, @char@ Fgetenv :lang_getenv_cmd:V:1Prototype: String getenv(String var);Returns value of an environment variable @var@ as a string. The emptystring @""@ is returned if @var@ is not defined. Here is a simple exampleof how an environment variable can be used in a S-Lang program: @ if (strlen (getenv ("USE_COLOR")))@ {@ set_color ("normal", "white", "blue");@ set_color ("status", "black", "gray");@ USE_ANSI_COLORS = 1;@ }Related Functions: @putenv@, @strlen@ Fputenv :lang_putenv_cmd:V:0Prototype: Void putenv (String s);This functions adds string @s@ to the environment. Typically, @s@ shouldbe a string of the form @"name=value"@. It signals an error upon failure.Note: This function is not available on all systems.Related Functions: @getenv@ Fevalfile :SLang_load_file:I:1Prototype: Integer evalfile (String file);Load @file@ as S-Lang code. If loading is successful, a non-zero result will be returned. If @file@ is not found, zero will be returned.Note: some applications embedding S-Lang may override the definition ofthis function. For example, the JED editor overrides the default definitionand will generate an error if @file@ cannot be opened.Related Functions: @eval@, @autoload@ Fchar :SLdo_char:V:0Prototype: String char (Integer c);This function takes and integer and returns a string of length one whose first character has ascii value @c@. For example, @char('a')@ returns the string @"a"@.Related Functions: @integer@, @string@. Feval :SLang_load_string:V:1Prototype: Void eval (String expression);The @eval@ function parses a string as S-Lang code and executes the result. This is a useful function in many contexts such as dynamicallygenerating function definitions where there is no way to generate them otherwise.Related Functions: @is_defined@ Fdup :SLdo_dup:V:0Prototype: dup ();This function returns an exact duplicate of the object on top of thestack. For some objects such as arrays, it creates a new reference tothe array. However, for simple S-Lang types such as Strings, Integers, and Floats, it creates a new copy of the object.Related Functions: @pop@, @copy_array@ Fsubstr :SLdo_substr:V:0Prototype: String substr (String s, Integer n, Integer len);This function returns a substring with length @len@ of string @s@beginning at position @n@. The first character of @s@ is given by @n@equal to 1. For example, @ substr ("To be or not to be", 7, 5);returns @"or no"@.Related Functions: @is_substr@ Finteger :SLdo_integer:V:0Prototype: Integer integer (String s)This function converts the string representation of an integer backto an integer. For example, @integer ("1234")@ returns the integer value @1234@.Related Functions: @string@, @Sprintf@, @char@ Fis_substr :SLdo_issubstr:V:0Prototype: Integer is_substr (String a, String b);This function may be used to determine if @a@ contains the string @b@.If it does not, the function returns 0; otherwise it returns the positionof @b@ in @a@. Like all S-Lang strings, positions start at 1. That is, the first character of @a@ is given by position 1.Related Functions: @substr@, @string_match@ Fstrsub :SLdo_strsub:V:0Prototype: String strsub (String s, Integer pos, Integer ch);This function replaces the character at position @pos@ in string @s@by the character @ch@ and returns the resulting string.The first character in the string @s@ is specified by @pos@ equal to 1.For example, @ define replace_spaces_with_comma (s)@ {@ variable n;@ while (n = is_substr (s, " "), n) s = strsub (s, n, ',');@ return s;@ }replaces all spaces with a comma.Related Functions: @is_substr@, @str_replace@ Fextract_element :SLang_extract_list_element:S:3Prototype: String extract_element (String list, Integer nth, Integer delim);Returns @nth@ element in @list@ where @delim@ separates elements of the list. @delim@ is an integer that represents the ascii value of thecharacter that serves as the delimiter. Elements are numbered from 0.For example:@ extract_element ("element 0, element 1, element 2", 1, ',');returns the string @" element 1"@, whereas @ extract_element ("element 0, element 1, element 2", 2, ' ');returns @"0,"@.Related Functions: @is_list_element@, @is_substr@. Fis_list_element :SLang_is_list_element:I:3Prototype: Integer is_list_element (String list, String elem, Integer delim);If @elem@ is an element of @list@ where @list@ is a @delim@ seperated list of strings, this function returns 1 plus the matching element number. If @elem@ is not a member of the list, zero is returned.For example:@ is_list_element ("element 0, element 1, element 2", "0,", ' ');returns 2 since @"0,"@ is element number one of the list (numbered fromzero).Related Functions: @extract_element@. Fcase :generic_equals:I:0Prototype: Integer case(Object a, Object b);The @case@ function is a generic comparison operation that is able tocompare objects of different types. The @case@ function returns zero if @a@ and @b@ have different types or have different values; otherewise, it returns one.This function is parsed a little different than other functions in the sense that parenthesis are not required around its arguments. If no parenthisisfollows the @case@ token, it is assumed that the first argument is presenton the stack and that the token immediately following the @case@ token isthe second argument. This means that @ case (a, b);and@ a; case b;are equivalent. This parsing feature makes the @case@ function useful for use in a @switch@ statement. In a @switch@ statment, it may be used as:@ switch (token)@ { case "return": return_function ();}@ { case "break": break_function ();}Unlike the C version, it one cannot use:@ switch (i)@ {case 10: case 20: do_ten_or_twenty (i);}Instead, one must do either:@ switch (i)@ {case 10 or case (i, 20) : do_ten_or_twenty (i);}or:@ switch (i)@ {case 10: do_ten_or_twenty (i);}@ {case 20: do_ten_or_twenty (i);}Related Functions: @strcmp@ Fstring_match :string_match:I:3Prototype: Integer string_match(String str, String pat, Integer pos);Returns 0 if @str@ does not match regular expression specified by@pat@. This function performs the match starting at position @pos@ in@str@. The first character of @str@ corresponds to @pos@ equal to one.This function returns the position of the start of the match. To findthe exact substring actually matched, use @string_match_nth@. Related Functions: @string_match_nth@, @strcmp@, @strncmp@ Fstring_match_nth :string_match_nth:I:1Prototype: Integer string_match_nth(Integer nth);This function returns 2 integers describing the result of the lastcall to @string_match@. It returns both the offset into the string and the length of characters matches by the @nth@ submatch. By convention, @nth@ equal to zero means the entire match. Otherwise,@nth@ must be an integer, 1 to 9, and refers to the set of charactersmatched by the @nth@ regular expression delimited by @\(@, @\)@ pairs.For example, consider:@ variable matched, pos, len;@ matched = string_match("hello world", "\\([a-z]+\\) \\([a-z]+\\)", 1);@ if (matched) {@ (pos, len) = string_match_nth(2);@ }This will set @matched@ to 1 since a match will be found at the firstposition, @pos@ to 7 since @w@ is the 7th character of the string, andlen to 5 since @"world"@ is 5 characters long.Please note that the position offset is affected by the value of the offset parameter to the @string_match@ function. For example, if the valueof the last parameter to the @string_match@ function had been 3, @pos@ wouldhave been set to 5. V_traceback Prototype Integer _traceback;An error is generated when the integer variable @_traceback@ isnon-zero will result in a function traceback showing the functions thatwere active at the time of the error as well as the values of any localvariable that the functions may have.Local variables are represented in the form @$n@ where @n@ is aninteger numbered from zero. More explicitly, @$0@ represents thefirst declared local variable, @$1@ represents the seconds, and so on.Please note that function parameters are local variables and that thefirst parameter corresponds to @$0@.Related functions: @_slangtrace@ V_slangtrace If non-zero, begin tracing when function declared by @slang_trace_function@ is entered. This does not trace intrinsic functions. Fsystem :my_system:I:1Prototype: Integer system (String cmd);The system function may be used to execute the string expression @cmd@ inan inferior shell. It returns 127 if the inferior shell could not be invoked, -1 if there was some other error, otherwise it returns the return code for @cmd@. For example,@ define dir ()@ {@ () = system ("DIR");@ }displays a directory listing of the current directory under MSDOS or VMS. Fslapropos :lang_apropos:V:1Prototype: Integer slapropos (String s);The @slapropos@ function may be used to get a list of all definedobjects whose name consists of the substring @s@. The number ofmatches is returned. If the number returned is non-zero, that numberof strings which represent the names of the matched objects will willalso be present on the stack. For example, the function@ define apropos (s)@ {@ variable n, name;@ n = slapropos (s);@ if (n) print (Sprintf ("Found %d matches:", n, 1));@ else print ("No matches.");@ loop (n) @ {@ name = ();@ print (name);@ }@ }prints a list of all matches. It assumes the existence of a @print@ intrinsic function.Related Functions: @is_defined@, @Sprintf@ Fslang_trace_function :SLang_trace_fun:V:1Prototype: Void slang_trace_function (String f);This function declares that the S-Lang function with name @f@ is to betraced when it is called. Calling @slang_trace_function@ does not initself turn tracing on. Tracing is turned on only when the variable@_slangtrace@ is non-zero.Related Functions: @print_stack@Related Variables: @_slangtrace@, @_traceback@. Fcreate_array :SLang_create_array:V:0Prototype: create_array (Integer type, Integer i_1, i_2...i_dim, Integer dim);Creates an array of type @type@ with dimension @dim@.@i_n@ is an integer which specifies the maximum size of array in direction @n@. @type@ is a control integer which specifies the type of the array.Types are:@ 's' : array of strings@ 'f' : array of floats@ 'i' : array of integers@ 'c' : array of charactersCurrently, @dim@ cannot be larger than 3.Also note that space is dynamically allocated for the array and thatcopies of the array are NEVER put on the stack. Rather, references tothe array are put on the stack.For example,@ variable a = create_array ('f', 10, 1);creates a 1 dimensional array of 10 floats and assigns it to @a@. Faget :SLarray_getelem:V:0Syntax: i j ... k ARRAY agetreturns ARRAY[i][j]...[k] Faput :SLarray_putelem:V:0Syntax: x i j ... k ARRAY putsets ARRAY[i][j]...[k] = x Fstrncmp :SLdo_strncmp:V:0Prototype: Integer strncmp (String a, String b, Integer n);This function behaves like @strcmp@ except that it compares only the first @n@ characters in the strings @a@ and @b@.For example,@ strcmp ("apple", "appliance", 3);returns zero since the first three characters match.Related Functions: @strcmp@ Fstrlow :SLdo_strlow:V:0Prototype: String strlow (String s);This function takes a string @s@ and returns another string identicalto @s@ except that all upper case characters that comprise @s@ will beconverted to lower case. For example, the function@ define Strcmp (a, b)@ {@ return strcmp (strlow (a), strlow (b));@ }performs a case insensitive comparison operation on two strings byconverting them to lower case first.Related Functions: @strup@, @strcmp@, @strtrim@, @define_case@ Fstrup :SLdo_strup:V:0Prototype: String strup (String s);This function takes a string @s@ and returns another string identicalto @s@ except that all lower case characters that comprise @s@ will beconverted to upper case. For example, the function@ define Strcmp (a, b)@ {@ return strcmp (strup (a), strup (b));@ }performs a case insensitive comparison operation on two strings byconverting them to upper case first.Related Functions: @strlow@, @strcmp@, @strtrim@, @define_case@ Fisdigit :SLdo_isdigit:I:1Prototype: Integer isdigit (String s);This function returns a non-zero value if the first character in thestring @s@ is a digit; otherwise, it returns zero. A simple, user definedimplementation of @isdigit@ is@ define isdigit (s)@ {@ return ((int (s) <= '9') and (int (s) >= '0'));@ }However, the intrinsic function @isdigit@ executes up to ten times fasterthan the equivalent representation defined above.Related Functions: @int@, @integer@ Fstrtrim :SLdo_strtrim:V:0Prototype: String strtrim (String s);The @strtrim@ function removes all leading and trailing whitespacecharacters from the string @s@ and returns the result. Whitespace isdefined to be any combination of spaces, tabs, and newline characters.Related Functions: @int@, @strlow@, @strup@, @strcompress@ Fstrcompress :SLdo_strcompress:V:0Prototype: String strtrim (String s, String white);The @strcompress@ function compresses the string @s@ by removing all repeated characters specified by @white@ from the interior of @s@. Inaddition, it also removes all leading and trailing characters from @s@that are part of @white@. For example,@ strcompress (",;apple,,cherry;,banana", ",;");returns the string @"apple,cherry;banana"@.Related Functions: @strtrim@ Fint :SLdo_int:V:0Prototype: Integer int (String s);This function returns the ascii value value of the first character ofthe string @s@. It is often used to convert single character stringsto integers. For example, the intrinsic function @isdigit@ may bedefined as@ define isdigit (s)@ {@ if ((int (s) >= '0') and (int (s) <= '9')) return 1;@ return 0;@ }Related Functions: @char@, @isdigit@ Farray_sort :SLarray_sort:V:1Prototype: Array array_sort (Array a, String f);@array_sort@ sorts the array @a@ into ascending order according to the function @f@ and returns an integer array that represents the result of the sort.The integer array returned by this function is simply an index that indicates the order of the sorted array. The input array @a@ is not changed. For example, if the input array consists of the three strings@ {"gamma", "alpha", "beta"}and the sort function @f@ is defined to be@ define f (a, b)@ { return strcmp (a, b); }then the index array will be returned as:@ {2, 0, 1}Note that the comparison cannot be an intrinsic function; it must be a S-Lang user defined function. The function takes two argumentsand returns an integer that is less than zero if the first parameter is considered to be less than the second, zero if they are equal, and a value greater than zero if the first is greater than the second.Related Functions: @create_array@. F_stkdepth :SLstack_depth:I:0Prototype: Integer: _stkdepth ();This function returns number of items on stack prior to the call of@_stkdepth@.Related Functions: @print_stack@ Fprint_stack :lang_print_stack:V:0Prototype: Void print_stack (void);This function dumps out what is currently on the S-Lang stack. It does notalter the stack and it is usually used for debugging purposes.Related Functions: @_stkdepth@, @string@ FSprintf :SLsprintf:V:0Prototype: String Sprintf(String format, ..., Integer n);Sprintf formats a string from @n@ objects according to @format@. Unlike its C counterpart, Sprintf requires the number of items toformat. Example:@ Sprintf("%f is greater than %f but %s is better than %s\n",@ PI, E, "Cake" "Pie", 4);The final argument to @Sprintf@ is the number of items to format; inthis case, there are 4 items.Related Functions: @string@ Finit_char_array :SLinit_char_array:V:0Prototype: Void init_char_array(Array_Type a, String s);This function may be used to initialize a character array. Here @a@is an array type character and @s@ is a string. This function simplysets the elements of the array @a@ to the corresponding characters ofthe string @s@. For example,@ variable a = create_array ('c', 10, 1);@ init_char_array (a, "HelloWorld");creates an character array and initializes its elements to thecharacters in the string @"HelloWorld"@. Note: The character array must be large enough to hold all thecharacters of the initialization string.Related Functions: @create_array@, @strlen@, @strcat@ Fbyte_compile_file :SLang_byte_compile_file:V:2Prototype: Void byte_compile_file (String file, Integer method);byte compiles @file@ producing a new file with the same name except a @c@ is added to the output file name. For example, @ byte_compile_file("site.sl");produces a new file named @site.slc@. If @method@ is non-zero, the file is preprocessed only. Note that the resulting bytecompiled filemust only be used by the executable that produced it. Set @method@ to a non-zero value to use the byte compiled file with more than one executable. Fmake_printable_string :make_printable_string:V:1Prototype: String make_printable_string(String str);Takes input string @str@ and creates a new string that may be used by theinterpreter as an argument to the @eval@ function. The resulting string isidentical to @str@ except that it is enclosed in double quotes and thebackslash, newline, and double quote characters are expanded. Related Functions: @eval@, @str_quote_string@ Fstr_quote_string :SLquote_string:V:0Prototype: String str_quote_string(String str, String qlis, Integer quote);Return a string identical to @str@ except that all characters in the string @qlis@ are escaped with the @quote@ character including the quotecharacter itself.Related Functions: @str_uncomment_string@ Fstr_uncomment_string :uncomment_string:V:3Prototype: String str_uncomment_string(String s, String beg, String end);@beg@ and @end@ are strings whose characters define a set of comment delimiters. This function removes comments defined by the delimiter setfrom the input string @s@ and returns it. For example,@ str_uncomment_string ("Hello (testing) 'example' World", "'(", "')");returns the string @"Hello World"@.Note: this routine does not handle multicharacter comment delimiters and itassumes that comments are not nested.Related Functions: @str_quote_string@ Fdefine_case :SLang_define_case:V:2Prototype: Void define_case (Integer ch_up, Integer ch_low);This function defines an upper and lowercase relationship between two characters specified by the arguments. This relationship is used by routines which perform uppercase and lowercase conversions.The first integer @ch_up@ is the ascii value of the upprcase character and the second parameter @ch_low@ is the ascii value of its lowercase counterpart.Related Functions: @strlow@, @strup@. F_clear_error :SLang_clear_error:V:0Prototype: Void _clear_error ();This function may be used only in error blocks to clear the error that triggered the error block. Execution resumes following the statementthat triggered the error.Related Functions: @slang_trace_function@Related Variables: @_slangtrace@, @_traceback@ V_slang_version Fset_float_format :set_float_format:V:1Prototype: Void set_float_format (String fmt);This function is used to set the floating point format to be usedwhen floating point numbers are printed. The routines that use thisare the traceback routines and the @string@ function. The defaultvalue is @"%f"@.Related Functions: @string@, @float@ Fcopy_array :SLcopy_array:V:0Prototype: Void copy_array(Array b, Array a);Copies the contents of array @a@ to array @b@. Both arrays must be ofthe same type and dimension.Related Functions: @create_array@, @dup@ Farray_info :SLarray_info:V:0Prototype: Var array_info (Array a);This function returns information about the array @a@. The number ofvalues returned depend on the type of array. It always returns atleast three values to the stack. For two and three dimensionalarrays, it returns four and fives values, resp.The values are ordered in such a way that it may be used as an argument to the @create_array@ function. For example, @ define duplicate_array (a)@ {@ variable b = create_array (array_info (a));@ return copy_array (b, a);@ }See also: @create_array@, @copy_array@ ../src/xterm.c Fx_set_window_name :set_window_name:V:1 Fx_warp_pointer :x_warp_pointer:V:0 Fx_insert_cutbuffer :x_insert_cutbuffer:I:0Prototype: Integer x_insert_cut_buffer ();Inserts cutbuffer into the current buffer and returns the numberof characters inserted. Fx_copy_region_to_cutbuffer :x_region_2_cutbuffer:V:0Prototype: Void x_copy_region_to_cutbuffer(); Fx_set_keysym :x_set_keysym:V:3Prototype: Void x_set_keysym (Integer keysym, Integer shift, String str);This function may be used to assocate a string 'str' with a key'keysym' modified by mask @shift@. Pressing the key associated with@keysym@ will then generate the keysequence given by @str@. Thefunction keys are mapped to integers in the range @0xFF00@ to @0xFFFF@.On most systems, the keys that these mappings refer to are located inthe file @/usr/include/X11/keysymdef.h@. For example, on my system, thekeysyms for the function keys @XK_F1@ to @XK_F35@ fall in the range@0xFFBE@ to @0xFFE0@. So to make the @F1@ key correspond to the stringgiven by the two characters @Ctrl-X@ @Ctrl-C@, simply use:@ x_set_keysym (0xFFBE, 0, "^X^C");The @shift@ argument is an integer with the following meanings:@ 0 : unmodified key@ '$' : shifted@ '^' : controlAny other value for shift will default to 0 (unshifted). VALT_CHAR VX_LAST_KEYSYM ../src/intrin.c Fsetkey :set_key:V:2Prototype: Void setkey(String fun, String key);This function may be used to define a key sequence specified by thestring @key@ to the function @fun@. @key@ can contain the @^@character which denotes that the following character is to beinterpreted as a control character, e.g.,@ setkey("bob", "^Kt");sets the key sequence @Ctrl-K t@ to the function @bob@.The @fun@ argument is usually the name of an internal or a userdefined S-Lang function. However, if may also be a sequence offunctions or even another keysequence (a keyboard macro). Forexample, @ setkey ("bol;insert(string(whatline()))", "^Kw");assigns the key sequence @Ctrl-K w@ to move to the beginning of a lineand insert the current line number. For more information about this important function, see the JED User Manual.Note that @setkey@ works on the "global" keymap. Related Functions: @unsetkey@, @definekey@ F_autoload :autoload_n:V:0Prototype Void _autoload (String fun, String fn, ..., Integer n);The @_autoload@ function is like the @autoload@ function except thatit takes @n@ pairs of function name (@fun@) / filename (@fn@) pairs.For example, @ _autoload ("fun_a", "file_a", "fun_b", "file_b", 2);is equivalent to@ autoload ("fun_a", "file_a");@ autoload ("fun_b", "file_b");See also: @autoload@ Fpush_mark :push_mark:V:0Prototype: Void push_mark();This function marks the current position as the beginning of a region.and pushes other marks onto a stack. A region is defined by thismark and the editing point. The mark is removed from the stack onlywhen the function @pop_mark@ is called. For example, @ define mark_buffer ()@ {@ bob (); @ push_mark ();@ eob ();@ }marks the entire buffer as a region.Related Functions: @pop_mark@, @push_spot@, @markp@, @dupmark@, @check_region@  Fbol :bol:V:0Prototype: Void bol();This function moves the current editing point to the beginning of thecurrent line. The function @bolp@ may be used to see if one is alreadyat the beginning of a line.Related Functions: @eol@, @bob@, @eob@, @bolp@  Finsert :insert_string:V:1Prototype: Void insert (String str);Inserts string @str@ into buffer at the current position. The editingpoint is moved to the end of the of the string that was inserted.Related Functions: @del@, @insert_file@, @insbuf@  Feol :eol:V:0Prototype: Void eol();Moves the current position to the end of the current line. The function@eolp@ may be used to see if one is at the end of a line or not.Related Functions: @eolp@, @bol@, @bob@, @eob@ Fsetbuf :set_buffer:V:1Prototype: Void setbuf(String buf);Changes the default buffer to one named @buf@. If the buffer does notexist, it will be created. Note: This change only lasts until toplevel of editor loop is reached at which point the the bufferassociated with current window will be made the default. That is thischange should only be considered as temporary. To make a long lastingchange, use the function @sw2buf@. Related Functions: @sw2buf@, @pop2buf@, @whatbuf@, @pop2buf_whatbuf@  Fmessage :message:V:1Prototype: Void message(String msg);The @message@ function displays the string @msg@ at the bottom of thedisplay where the minibuffer is located. This in itself does notimmediately cause the message to be display. In fact, it may not evenbe displayed at all. The message is only displayed when the editorupdates the screen. If the @message@ function is called again beforethe screen update, the new message will be the one that will bedisplayed when the screen is finally updated. For an immediate effect,the function @flush@ should be used instead.Related Functions: @flush@, @error@, @update@ F_add_completion :add_to_completion_n:V:0Prototype Void _add_completion (String f1, String f2, ..., Integer n);The @_add_completion@ function is like the @add_completion@ functionexcept that it takes @n@ names @f1@, ... @fn@.For example, @ _add_completion ("fun_a", "fun_b", 2);is equivalent to@ add_completion ("fun_a");@ add_completion ("fun_b");See also: @add_completion@ Fdel_region :delete_region:V:0Prototype: Void del_region ();This function deletes the region defined by the mark and the current editing point. For example,@ define delete_this_line ()@ {@ bol (); push_mark (); eol ();@ del_region ();@ }defines a function that deletes all characters on the current linefrom the beginning of the line until the end of the line. It does not delete the line itself.Related Functions: @push_mark@, @markp@, @check_region@ Fbufsubstr :buffer_substring:V:0Prototype: String bufsubstr ();This function returns a string that contains the characters in theregion specified by a mark and the current editing point.If the region crosses lines, the string will contain newlinecharacters.Related Functions: @insbuf@, @push_mark@ Fright :forwchars:I:1Prototype: Integer right(Integer n);This function moves the editing position forward forward @n@characters. It returns the number of characters actually moved. Thenumber returned will be smaller than @n@ if the end of the buffer isreached.Related Functions: @left@, @up@, @down@, @eol@, @eob@ Fdefinekey :set_key_in_keymap:V:3Prototype: Void definekey(String f, String key, String kmap);Unlike @setkey@ which operates on the global keymap, this function isused for binding keys to functions in a specific keymap. Here @f@ isthe function to be bound, @key@ is a string of characters that make upthe key sequence and @kmap@ is the name of the keymap to be used. See@setkey@ for more information about the arguments.Related Functions: @setkey@, @undefinekey@, @make_keymap@, @use_keymap@  VUSE_ANSI_COLORS VStatus_Line_String A read-only String variable containing the format of the status lineapplied to newly created buffers.Related Functions: set_status_line VMINIBUFFER_ACTIVE A read-only variable that is non-zero when the MiniBuffer is activelybeing used. Fleft :backwchars:I:1Prototype: Integer left(Integer n);@left@ moves the editing point backward @n@ characters and returns thenumber actually moved. The number returned will be less than @n@ onlyif the top of the buffer is reached. Related Functions: @right@, @up@, @down@, @bol@, @bob@  Fwhatbuf :what_buffer:S:0Prototype: String what_buffer();@whatbuf@ returns the name of the current buffer. It is usually used in functions when one wants to work with more than one buffer. The function @setbuf_info@ may be used to change the name of the buffer.Related Functions: @getbuf_info@, @bufferp@  Ferror :msg_error:V:1Prototype: Void error(String msg);This function signals an error condition and displays the string @msg@at the bottom of the display. The error can be caught by an@ERROR_BLOCK@ and cleared with the S-Lang @_clear_error@ function.Unless caught, the error will abort execution of S-Lang functions andthe S-Lang stack will unwind to the top level. For more informationabout handling error conditions see the S-Lang User's Guide.Related Functions: @message@, @flush@ Fgetbuf_info :get_buffer_info:V:0Prototype: getbuf_info ();This function returns values to the stack. The four values from thetop are:@ Integer % buffer flags@ String % name of buffer@ String % directory associated with buffer@ String % name of file associated with buffer (if any).The integer that corresponds to the buffer flags are encoded as:@ bit 0: buffer modified@ bit 1: auto save mode@ bit 2: file on disk modified@ bit 3: read only bit@ bit 4: overwrite mode@ bit 5: undo enabled@ bit 6: buffer buried@ bit 7: Force save upon exit.@ bit 8: Do not backup@ bit 9: File associated with buffer is a binary file@ bit 10: Add CR to end of lines when writing buffer to disk.@ bit 11: Abbrev mode For example, @ (file,,,flags) = getbuf_info();returns the file and the flags associated with the current buffer.Related Functions: @setbuf_info@, @whatbuf@ Fotherwindow :other_window:V:0Prototype: Void otherwindow ();This function will make the next window in the ring of windows as thedefault window. For example,@ define zoom_next_window ()@ {@ otherwindow (); onewindow ();@ }defines a function that moves to the next window and then makes it the only window on the screen.Related Functions: @nwindows@, @onewindow@Related Variables: @MINIBUFFER_ACTIVE@ Fis_internal :is_internal:I:1Prototype: Integer is_internal(String f);@is_internal@ returns non-zero is function @f@ is defined as aninternal function or returns zero if not. Internal functions notimmediately accessable from S-Lang; rather, they must be called usingthe @call@ function. See also the related S-Lang function@is_defined@ in the S-Lang Programmer's Reference.Related Functions: @call@ Fsetbuf_info :set_buffer_info:V:4Prototype: Void setbuf_info(String file, String dir, String buf, Integer flags);This function may be used to change attributes regarding the currentbuffer. It performs the opposite function of the related function@getbuf_info@. Here @file@ is the name of the file to be associatedwith the buffer; @dir@ is the directory to be associated with thebuffer; @buf@ is the name to be assigned to the buffer, and @flags@describe the buffer attributes. See @getbuf_info@ for a discussion of@flags@. Note that the actual file associated with the buffer islocated in directory @dir@ with the name @file@.For example, the function@ define set_overwrite_mode ()@ {@ variable dir, file, flags, name;@ (file, dir, name, flags) = getbuf_info ();@ flags = flags | (1 shl 4);@ setbuf_info (file, dir, name, flags);@ }may be used to turn on overwrite mode for the current buffer. Notethat it is better exploit the fact that S-Lang is a stack based languageand simply write the above function as:@ define set_overwrite_mode ()@ {@ setbuf_info (getbuf_info () | 0x10);@ }Here, @(1 shl 4)@ has been written as the hexidecimal number @0x10@.Related Functions: @getbuf_info@, @setbuf@, @whatbuf@ Fup :prevline:I:1Prototype: Integer up(Integer n);This function moves the current point up @n@ lines and returns thenumber of lines actually moved. The number returned will be less than@n@ only if the top of the buffer is reached.Related Functions: @down@, @left@, @right@  Fdown :nextline:I:1Prototype: Integer down(Integer n);The @down@ function is used to move the editing point down a number oflines specified by the integer @n@. It returns the number of linesactually moved. The number returned will be less than @n@ only if thelast line of the buffer has been reached. The editing point will beleft at the beginning of the line if it succeeds in going down morethan one line.Example: The function@ define trim_buffer@ {@ bob ();@ do @ {@ eol (); trim ();@ }@ while (down (1));@ }removes excess whitespace from the end of every line in the buffer.Related Functions: @down@, @left@, @right@, @goto_line@ Fcall :call_cmd:V:1Prototype: Void call(String f);The @call@ function is used to execute an internal function which isnot directly accessable to the S-Lang interpreter.Related Functions: @is_internal@ Feob :eob:V:0Prototype: Void eob();The @eob@ function is used to move the current point to the end of thebuffer. The function @eobp@ may be used to see if the currentposition is at the end of the buffer.Related Functions: @eobp@, @bob@, @bol@, @eol@ Funsetkey :unset_key:V:1Prototype: Void unsetkey(String key);This function is used to remove the definition of the key sequence@key@ from the "global" keymap. This is sometimes necessary to bindnew key sequences which conflict with other ones. For example, the"global" keymap binds the keys @"^[[A"@, @"^[[B"@, @"^[[C"@, and@"^[[D"@ to the character movement functions. Using@unsetkey("^[[A")@ will remove the binding of @"^[[A"@ from the globalkeymap but the other three will remain. However, @unsetkey("^[[")@will remove the definition of all the above keys. This might benecessary to bind, say, @"^[["@ to some function.Related Functions: @setkey@, @undefinekey@ Fbob :bob:V:0Prototype: Void bob ();The function @bob@ is used to move the current editing point to thebeginning of the buffer. The function @bobp@ may be used to determineif the editing point is at the beginning of the buffer or not.Related Functions: @bobp@, @eob@, @bol@, @eol@ Flooking_at :looking_at:I:1Prototype: Integer looking_at (String s);This function returns non-zero if the characters immediately followingthe current editing point match the string specified by @s@. Whetherthe match is case-sensitive or not depends upon the value of thevariable @CASE_SEARCH@. The function returns zero if there is no match.Related Functions: @ffind@, @fsearch@, @re_fsearch@, @bfind@ Fdel :del:V:0Prototype: Void del ();The @del@ function deletes the character at the current editingposition. If the position is at the end of the buffer, nothing happens.If the deletion occurs at the end of a line, the next line will be joinedwith the current one.Related Functions: @eobp@, @erase_buffer@, @insert@ Fmarkp :markp:I:0Prototype: Void markp ();This function returns a non-zero value if the mark is set; otherwise, itreturns zero. If a mark is set, a region is defined.Related Functions: @push_mark@, @pop_mark@, @check_region@, @push_spot@ Fnwindows :num_windows:I:0Prototype: Integer nwindows ();The @nwindows@ function returns the number of windows currently visible.If the variable @MINIBUFFER_ACTIVE@ is non-zero, the minibuffer is busy and contributes to the number of windows.Related Functions: @splitwindow@, @onewindow@, @window_size@Related Variables: @MINIBUFFER_ACTIVE@ Fadd_completion :add_to_completion:V:1Prototype: Void add_completion(String f);The @add_completion@ function adds the user defined S-Lang functionwith name specified by the string @f@ to the list of functions thatare eligible for mini-buffer completion. The function specified by@f@ must be already defined before this function is called. TheS-Lang function @is_defined@ may be used to test whether or not thefunction is defined.Related Functions: @read_with_completion@, @_add_completion@ Fwhat_column :calculate_column:I:0Prototype: Integer what_column ();The @what_column@ function returns the current column number expandingtabs, control characters, etc... The beginning of the line is atcolumn number one. Related Functions: @whatline@, @whatpos@, @goto_column@, @bolp@, @eolp@ Feobp :eobp:I:0Prototype: Integer eobp ();The functio @eobp@ is used to determine if the current position is atthe end of the buffer or not. It returns a non-zero value if at theend of the buffer or zero if not.Related Functions: @eob@, @bolp@, @eolp@ Fsetmode :set_mode_cmd:V:2Prototype: Void setmode(String mode, Integer flags);This function sets buffer mode flags and status line mode name. @mode@is a string which is displayed on the status line if the @%m@ statusline format specifier is used. The second argument, @flags@ is aninteger with the possible values:@ 0 : no mode. Very generic@ 1 : Wrap mode. Lines are automatically wrapped at wrap column.@ 2 : C mode.@ 4 : Language mode. Mode does not wrap but is useful for computer @ languages.@ 8 : S-Lang mode@ 16: Fortran mode highlighting@ 32: TeX mode highlightingRelated Functions: @whatmode@, @getbuf_info@, @setbuf_info@.  Ffsearch :search_forward:I:1Prototype: Integer fsearch (String str);This function may be used to search forward in buffer looking for thestring @str@. If not found, this functions returns zero. However, iffound, it returns non-zero and moves the current point to the to thestart of the match. It respects the setting of the variable@CASE_SEARCH@. If the string that one is searching for is known to be at the beginning of a line, the function @bol_fsearch@ should be usedinstead.Note: This function cannot find a match that crosses lines.Related Functions: @ffind@, @bsearch@, @bol_fsearch@, @re_fsearch@, @looking_at@Related Variables: @CASE_SEARCH@ Fbuffer_visible :jed_buffer_visible:I:1Prototype: Integer buffer_visible (String buf);This function is used to determine whether or not a buffer with namespecified by the string @buf@ is in a window or not. More explicitly,it returns the number of windows containing @buf@. This means that if@buf@ does not occupy a window, it returns zero. For Example,@ define find_buffer_in_window (buf)@ {@ !if (buffer_visible (buf)) return 0;@ pop2buf (buf);@ return 1;@ }is a function that moves to the window containing @buf@ if @buf@ is ina window.Related Functions: @bufferp@, @nwindows@ Fexit_jed :exit_jed:V:0Prototype: Void exit_jed ();This function should be called to exit JED is a graceful and safemanner. If any buffers have been modified but not saved, the user isqueried about whether or not to save each one first. @exit_jed@ callsthe S-Lang hook @exit_hook@ if it is defined. If @exit_hook@ isdefined, it must either call @quit_jed@ or @exit_jed@ to really exitthe editor. If @exit_jed@ is called from @exit_hook@, @exit_hook@ willnot be called again. For example:@ define exit_hook ()@ {@ flush ("Really Exit?");@ @ forever @ {@ switch (getkey () & 0x20) % map to lowercase@ { case 'y': exit_jed (); }@ { case 'n': return; }@ beep ();@ }@ }may be used to prompt user for confirmation of exit.Related Functions: @quit_jed@, @suspend@, @flush@, @getkey@Related Variables: @BATCH@ Fset_color :set_term_colors:V:3Prototype: Void set_color(String obj, String fg, String bg);This function sets the foreground and background colors of an objectspecified by the string @obj@ to @fg@ and @bg@. The exact values ofthe strings @fg@ and @bg@ are system dependent. For the X-Windowsystem, they can be any string that the server understands, e.g.,@"SteelBlue"@. For other systems, the color must be one of thefollowing:@ "black" "gray" @ "red" "brightred" @ "green" "brightgreen" @ "brown" "yellow" @ "blue" "brightblue" @ "magenta" "brightmagenta"@ "cyan" "brightcyan" @ "lightgray" "white" One most terminals, the values in the second column have no affectwhen used as the background color.The valid names for @obj@ are:@ "normal" Default foreground/background@ "status" The status window line@ "region" Highlighted Regions@ "cursor" Text Cursor (X-Windows)@ "menu" The menu bar@ "error" Error messages@ "message" Other messages@ "dollar" Color of the indicator that text extends beyond the@ boundary of the window.If color syntax highlighting is enabled, the following object namesare also meaningful:@ "number" Numbers in C-mode and Equations in TeX-mode@ "delimiter" Commas, semi-colons, etc...@ "keyword" Language dependent@ "string" Literal strings@ "comment" Comments@ "operator" Such as +, -, etc...@ "preprocess" Preprocessor linesSee a discussion in the JED User Manual for more discussion.Related Functions: @set_color_esc@, @set_column_colors@, @set_color_object@Related Variables: @WANT_SYNTAX_HIGHLIGHT@, @USE_ANSI_COLORS@ Fcolor_number :map_color_object_to_number:I:1Prototype: Integer color_number (String obj);This function returns the object number associated with thestring @obj@. Valid names for @obj@ are as per @set_color@.Related Functions: @set_color@, @set_column_colors@Related Variables: @WANT_SYNTAX_HIGHLIGHT@, @USE_ANSI_COLORS@ Fset_color_esc :set_term_color_esc:V:2Prototype: Void set_color_esc (String object, String esc_seq);This function may be used to associate an escape sequence with anobject. The escape sequence will be sent to the terminal prior tosending updating the object. It may be used on mono terminals tounderline objects, etc... The object names are the same names used bythe @set_color@ function. Note: Care should be exercised when usingthis function. Also, one may need to experiment around a little toget escape sequences that work together.Related Functions: @set_color@ Fextract_filename :extract_file:S:1Prototype: String extract_filename (String filespec);This function may be used to separate the file name from the path ofof a file specified by @filespec@. For example, under Unix, theexpression@ extract_filename ("/tmp/name");returns the string @"name"@.Related Functions: @expand_filename@ Ftrim :trim_whitespace:V:0Prototype: Void trim (); The @trim@ function removes all whitespace around the current editingpoint. In this context, whitespace is considered to be anycombination of tab and space characters. In particular, it does notinclude the newline character. This means that the @trim@ functionwill not delete across lines. Related Functions: @skip_chars@, @skip_white@, @del@, @del_region@ Fpop2buf :pop_to_buffer:V:1Prototype: Void pop2buf (String buf);The @pop2buf@ function will switch to another window and display thebuffer specified by @buf@ in it. If @buf@ does not exist, it will becreated. If @buf@ already exists in a window, the window containing@buf@ will become the active one. This function will create a newwindow if necessary. All that is guaranteed is that the currentwindow will continue to display the same buffer before and after thecall to @pop2buf@.Related Functions: @whatbuf@, @pop2buf_whatbuf@, @setbuf@, @sw2buf@, @nwindows@ Fpop2buf_whatbuf :pop_to_buffer:S:1Prototype: String pop2buf_whatbuf (String buf);This function performs the same function as @pop2buf@ except that thename of the buffer that @buf@ replaced in the window is returned.This allows one to restore the buffer in window to what it was beforethe call to @pop2buf_whatbuf@.Related Functions: @pop2buf@, @whatbuf@ VDISPLAY_EIGHT_BIT Prototype: Integer DISPLAY_EIGHT_BIT;This variable determines how characters with the high bit set are tobe displayed. Specifically, any character whose value is greater thanor equal to the value of @DISPLAY_EIGHT_BIT@ is output to the terminalas is. Characters with the high bit set but less than this value aresent to the terminal in a multiple character representation. For Unixand VMS systems the value should be set to 160. This is because manyterminals use the characters with values between 128 and 160 as eightbit control characters. For other systems, it can be set to zero.Related Variables: @META_CHAR@ VJED_CSI Control Sequence Introducer. --- reserved for future use Fcopy_region :copy_region_cmd:V:1Prototype: Void copy_region (String buf);This function may be used to copy a region defined by a mark and thecurrent position to the buffered specified by the name @buf@. It doesnot delete the characters in region but it does pop the mark thatdetermines the region.Related Functions: @insbuf@, @bufsubstr@, @push_mark@, @pop_mark@, @bufferp@ Finsbuf :insert_buffer_name:V:1Prototype: Void insbuf (String buf);This function may be used to insert the contents of a buffer specifiedby the name @buf@ into the current buffer. The editing position isadvanced to the end of the insertion.Related Functions: @copy_region@, @narrow@ Fbolp :bolp:I:0Prototype: Integer bolp ();@bolp@ is used to test if the current position is at the beginning ofa line or not. It returns non-zero if the position is at thebeginning of a line or zero if not. Related Functions: @bol@, @eolp@, @bobp@, @eobp@ Fbeep :beep:V:0Prototype: Void beep ();The @beep@ function causes the terminal to beep according to the valueof the variable @IGNORE_BEEP@.Related Functions: @tt_send@Related Variables: @IGNORE_BEEP@ Fonewindow :one_window:V:0Prototype: Void onewindow ();This function deletes all other windows except the current window andthe mini-buffer window.Related Functions: @nwindows@, @splitwindow@, @enlargewin@Related Variables: @MINIBUFFER_ACTIVE@ Fpop_spot :pop_spot:V:0Prototype: Void pop_spot ();This function is used after a call to @push_spot@ to return to theediting position at the last call to @push_spot@ in the current buffer.Related Functions: @push_spot@, @pop_mark@ Fpush_spot :push_spot:V:0Prototype: Void push_spot ();@push_spot@ pushes the location of the current buffer location onto astack. This function does not set the mark. The function @push_mark@should be used for that purpose. The spot can be returned to using thefunction @pop_spot@. Note: Spots are local to each buffer. It is notpossible to call @push_spot@ from one buffer and then subsequentlycall @pop_spot@ from another buffer to return to the position in thefirst buffer. For this purpose, one must use user marks instead.Related Functions: @pop_spot@, @push_mark@, @create_user_mark@ Fbsearch :search_backward:I:1Prototype: Integer bsearch (String str);The @bsearch@ function searches backward from the current position forthe string @str@. If @str@ is found, this function will returnnon-zero and move the current position to the beginning of the matchedtext. If a match is not found, zero will be returned and the positionwill not change. It respects the value of the variable @CASE_SEARCH@.Related Functions: @fsearch@, @bol_bsearch@, @re_bsearch@  Fsw2buf :switch_to_buffer_cmd:V:1Prototype: Void sw2buf (String buf);This function is used to switch to another buffer whose name isspecified by the parameter @buf@. If the buffer specified by @buf@does not exist, one will be created. Note: Unlike @setbuf@, the changeto the new buffer is more permanent in the sense that when controlpassed back out of S-Lang to the main editor loop, if the currentbuffer at that time is the buffer specified here, this buffer will beattached to the window.See also: @setbuf@, @pop2buf@, @bufferp@ Ftt_send :do_tt_write_string:V:1Prototype: Void tt_send (String s);This function may be used to send a string specified by @s@ directlyto the terminal with no interference by the editor. One shouldexercise caution when using this routine since it may interfere withJED's screen management routines forcing one to redraw the screen.Nevertheless, it can serve a useful purpose. For example, when run inan XTerm window, using@ tt_send ("\e[?9h");will enable sending mouse click information to JED encoded askeypresses.See also: @beep@ Feolp :eolp:I:0Prototype: Integer eolp ();This function may be used to determine whether or not the currentposition is at the end of a line ot not. If it is, the routinereturns a non-zero value; otherwise it returns zero.See also: @eol@, @bolp@, @eobp@, @bobp@ Fwhat_keymap :what_keymap:S:0Prototype: String what_keymap ();This function returns the name of the keymap associated with thecurrent buffer.See also: @create_keymap@, @keymap_p@ Ffind_file :find_file_in_window:I:1Prototype: Integer find_file (String name);The @find_file@ function switches to the buffer associated with thefile specified by @name@. If no such buffer exists, one is createdand the file specified by @name@ is read from the disk and associatedwith the new buffer. The buffer will also become attached to thecurrent window. Use the @read_file@ function to find a file but notassociate it with the current window.Related Functions: @read_file@ Fset_status_line :set_status_format:V:2Prototype: set_status_line (String format, Integer flag);This function may be used to customize the status line of the currentwindow according to the string @format@. If the second parameter@flag@ is non-zero, @format@ will apply to the global format string;otherwise it applies to current buffer only. Newly created bufferinherit the global format string when they appear in a window.The format string may contain the following format specifiers:@ %b buffer name@ %f file name@ %v JED version@ %t current time --- only used if variable DISPLAY_TIME is non-zero@ %p line number or percent string@ %% literal '%' character@ %m mode string@ %a If abbrev mode, expands to "abbrev"@ %n If buffer is narrowed, expands to "Narrow"@ %o If overwrite mode, expands to "Ovwrt"@ %c If the variable LINENUMBERS is 2, this expands to the current@ column number. For example, the default status line used by JED's EDT emulation usesthe format string:@ "(Jed %v) EDT: %b (%m%a%n%o) %p,%c Advance %t"See also: @set_mode@, @narrow@, @whatbuf@, @getbuf_info@Related Variables: @DISPLAY_TIME@, @LINENUMBERS@ Fbury_buffer :bury_buffer:V:1Prototype: Void bury_buffer (String name);The @bury_buffer@ function may be used to make it unlikely for thebuffer specified by the paramter @name@ to appear in a window.See also: @sw2buf@, @getbuf_info@ Fdupmark :dup_mark:I:0Prototype: Integer dupmark ();This function returns zero if the mark is not set or, if the mark isset, a duplicate of it is pushed onto the mark stack and a non-zerovalue is returned.See also: @push_mark@, @markp@, @pop_mark@ Ferase_buffer :erase_buffer:V:0Prototype: erase_buffer ();The @erase_buffer@ function erases all text from the current buffer.However, it does not delete the buffer itself. Note: This function destroys all undo information associated with thebuffer making it impossible to undo the result of this function. See also: @delbuf@, @del@ Fwindow_info :window_size_intrinsic:I:1Prototype: Integer window_info(Integer item);The @window_info@ function returns information concerning the currentwindow. The actual information that is returned depends on the @item@parameter. Acceptable values of @item@ and the description of theinformation returned is given in the following table:@ 'r' : Number of rows@ 'w' : Width of window @ 'c' : Starting column (from 1)@ 't' : Screen line of top line of window (from 1)See also: @otherwindow@, @nwindows@Related Variables: @SCREEN_HEIGHT@, @SCREEN_WIDTH@ Fcopy_region_to_kill_array :copy_region_to_kill_array:V:1Prototype: Void copy_region_to_kill_array (Integer n);This function copies the currently defined region to the nth element,specified by @n@, of an internal array of character strings replacingwhat is currently there. Note: This function is not available on 16 bit systems. See also: @insert_from_kill_array@, @append_region_kill_array@ Related Variables: @KILL_ARRAY_SIZE@ Fappend_region_to_kill_array :append_region_to_kill_array:V:1Prototype: Void append_region_to_kill_array (Integer n);This function appends the currently defined region to the contents ofnth element, specified by @n@, of an internal array of character strings.Note: This function is not available on 16 bit systems. See also: @insert_from_kill_array@, @copy_region_to_kill_array@ Related Variables: @KILL_ARRAY_SIZE@ Finsert_from_kill_array :insert_from_kill_array:V:1Prototype: Void insert_from_kill_array (Integer n);This function inserts the contents of the nth element, specified by@n@, of an internal array of character strings.Note: This function is not available on 16 bit systems. See also: @insert_from_kill_array@, @copy_region_to_kill_array@ Related Variables: @KILL_ARRAY_SIZE@ VKILL_ARRAY_SIZE Prototype: Integer KILL_ARRAY_SIZE;This variable contains the value of the size of of the internal killarray of character strings. Any number from zero upto but notincluding the value of @KILL_ARRAY_SIZE may be used as an argument inthe functions that manipulate this array.Note: This variable is a read-only varaible and it is not available on16 bit systems. See also: @insert_from_kill_array@, @copy_region_to_kill_array@, @append_region_to_kill_array@ Vwhat_line Prototype: Integer what_line ();This function returns the value of the current line number. Lines arenumbered from one. Note: The actual number is measured from the top ofthe buffer which is itself is affected by whether the buffer isnarrowed or not. For example, @ define one ()@ {@ push_mark (); narrow@ push_mark (); narrow ();@ return what_line ();@ }always returns 1.See also: @goto_line@, @what_column@, @whatbuf@ VBLINK Prototype: Integer BLINK = 1;The @BLINK@ variable determines whether or not matching parenthesisare blinked. If its value is one, they are blinked; otherwise, theyare not.Related Variable: @C_INDENT@, @C_BRA_NEWLINE@ VWRAP_INDENTS Prototype: Integer WRAP_INDENTS = 1;If this variable is non-zero, after a line is wrapped, the new linewill start at the same indentation as the current one. On the otherhand, if the value of @WRAP_INDENTS@ is zero, the new line will beginin the first column.Related Variables: Fgoto_column :goto_column:V:1Prototype: Void goto_column (Integer n);This function moves the current editing point to the column specifiedby the parameter @n@. It will insert a combination of spaces and tabsif necessary to achieve the goal.Note: The actual character number offset from the beginning of theline depends upon tab settings and the visual expansion of othercontrol characters.See also: @goto_column_best_try@, @what_column@, @left@, @right@, @goto_line@Related Variables: @TAB@, @TAB_DEFAULT@, @DISPLAY_EIGHT_BIT@ Fgoto_column_best_try :goto_column1:I:1Prototype: Integer goto_column_best_try (Integer c);This function is like @goto_column@ except that it will not insertwhitespace. This means that it may fail to achieve the column numberspecified by the argument @c@. It returns the current column number.See also: @goto_column@, @what_column@ VTAB_DEFAULT Prototype: Integer TAB_DEFAULT = 8;@TAB_DEFAULT@ is the default tab setting given to all newly createdbuffers. The variable @TAB@ may be used to change the currentbuffer's tab setting. A value of zero means that tab characters arenot expanded and that tabs are never used to produce whitespace.Related Variables: @TAB@, @DISPLAY_EIGHT_BIT@ Fgoto_line :goto_line:V:1Prototype: Void goto_line (Integer n);The @goto_line@ function may be used to move to a specific line numberspecified by the parameter @n@.Note: The actual column that the editing point will be left in isindeterminate.See also: @what_line@, @goto_column@, @down@, @up@. Fbfind :backward_search_line:I:1Prototype: Integer bfind (String str);The @bfind@ funtion searches backward on the current looking for@str@. Unlike the function @bsearch@, this function will not searchfor @str@ beyond the current line. If @str@ is not found, @bfind@returns zero and the editing point is unchanged. However, if @str@ isfound on the current line, the function returns non-zero and theediting point will be left at the beginning of the match.Note: This function respects the setting of the @CASE_SEARCH@ variable.See also: @bsearch@, @ffind@, @bol_bsearch@, @re_bsearch@Related Variables: @CASE_SEARCH@ Fpop_mark :pop_mark:V:1Prototype: pop_mark (Integer g);@pop_mark@ pops the most recent mark pushed onto the mark stack. Ifthe argument @g@ is non-zero, the editing position will be moved tothe location of the mark. However, if @g@ is zero, the editingposition will be unchanged.See also: @push_mark@, @pop_spot@, @markp@, @check_region@, @goto_user_mark@ Fread_mini :mini_read:V:3Prototype: String read_mini (String prompt, String dflt, String init);The @read_mini@ function reads a line of input from the user in themini-buffer. The first parameter, @prompt@, is used to prompt theuser. The second parameter, @dflt@, is what is returned as a defaultvalue if the user simply presses the return key. The final parameter,@init@, is stuffed into the mini-buffer for editing by the user.For example, @ define search_whole_buffer ()@ {@ variable str;@ str = read_mini ("Search for:", "", "");@ !if (strlen (str)) return;@ !if (fsearch (str))@ { @ push_mark (); bob ();@ if (fsearch (str)) pop_mark (0);@ else pop_mark (1);@ {@ pop_mark (1);@ error ("Not found");@ }@ }@ }reads a string from the user and then searches forward for it and ifnot found, it resumes the search from the beginning of the buffer.Note: If the user aborts the function @mini_read@ by pressing thekeyboard quit character (e.g., Ctrl-G), an error is signaled. Thiserror can be caught by an @ERROR_BLOCK@ and the appropriate actiontaken. Also if the mini-buffer is already in use, this function shouldnot be called. The variable @MINIBUFFER_ACTIVE@ may be checked todetermine if this is the case or not.See also: @read_with_completion@, @getkey@, @input_pending@ Related Variables: @MINIBUFFER_ACTIVE@ Ffile_status :file_status:I:1Prototype: Integer file_status (String filename);The @file_status@ function returns information about a file specifiedby the name @filename@. It returns an integer describing the filetype:2 file is a directory1 file exists and is not a directory0 file does not exist.-1 no access.-2 path invalid-3 unknown error Fskip_white :skip_whitespace:V:0Prototype: Void skip_white ();The @skip_white@ function moves the current point forward until itreaches a non-whitespace character or the end of the current line,whichever happens first. In this context, whitespace is considered tobe any combination of space and tab characters. To skip newlinecharacters as well, the function @skip_chars@ may be used.See also: @bskip_chars@, @what_char@, @trim@, @right@ Fbobp :bobp:I:0Prototype: Integer bobp ();The @bolp@ function is used to determine if the current position is atthe beginning of the buffer or not. If so, it returns a non-zerovalue. However, if it is not, it returns zero. This simple example,@ define is_buffer_empty ()@ {@ return bobp () and eobp (); @ }returns non-zero if the buffer is empty; otherwise, it returns zero.See also: @bob@, @eobp@, @bolp@, @eolp@ Fffind :forward_search_line:I:1Prototype: Integer ffind (String s);This function searches forward from the current position to the end ofthe current line for the string specified by @s@. If it does not findit on the current line, it returns zero. However, if a match is foundon the current line, it returns non-zero and moves the current pointto the start of the match. Note: This function respects the setting of the @CASE_SEARCH@ variable.To perform a search that includes multiple lines, use the @fsearch@function.See also: @fsearch@, @bfind@, @re_fsearch@, @bol_fsearch@ Fbol_fsearch :bol_fsearch:I:1Prototype: Integer bol_fsearch (str);This function may be used to search forward from the current pointuntil the end of the buffer for the occurance of the string @str@ atthe beginning of a line. It will not consider occurances in themiddle of the line. If it does not find a match at the beginning of aline, it returns zero. Otherwise, it returns a non-zero result and moves the current point to the start of the match.Note: One might be tempted to use something like @re_fsearch@ toperform a search that matches the beginning of a line. However, the@bol_fsearch@ function is much faster and should be used instead.See also: @bol_bsearch@, @fsearch@, @looking_at@, @ffind@, @re_fsearch@ Fbol_bsearch :bol_bsearch:I:1Prototype: Integer bol_bsearch (str);This function may be used to search backward from the current pointuntil the end of the buffer for the occurance of the string @str@ atthe beginning of a line. It will not consider occurances in themiddle of the line. If it does not find a match at the beginning of aline, it returns zero. Otherwise, it returns a non-zero result and moves the current point to the start of the match.Note: One might be tempted to use something like @re_bsearch@ toperform a search that matches the beginning of a line. However, the@bol_bsearch@ function is much faster and should be used instead.See also: @bol_fsearch@, @bsearch@, @bfind@, @re_bsearch@ Fflush :flush_message:V:1Prototype: Void flush (String msg);The @flush@ function behaves like @message@ except that it immediatelydisplays its argument @msg@ as a message in the mini-buffer. That is,it is not necessary to call @update@ to see the message appear.See also: @message@, @error@ Finput_pending :input_pending:I:1Prototype: Integer input_pending (Integer tsecs);This function is used to see if keyboard input is available to be reador not. The paramter @tsecs@ is the amount of time to wait for inputbefore returning if input is not available. The time unit for @tsecs@is one-tenth of a second. That is, to wait up to one second, pass avalue of ten to this routine. It returns zero if no input isavailable, otherwise it returns non-zero. As an example, @ define peek_key ()@ {@ variable ch;@ !if (input_pending (0)) return -1;@ ch = getkey ();@ ungetkey (ch);@ return ch;@ } returns the value of the next character to be read if one isavailable; otherwise, it returns -1.See also: @getkey@, @ungetkey@ VC_INDENT Prototype: Integer C_INDENT = 3;This value determines the number of columns the current line is indentedpast the previous line containing an opening @'{'@ character.Related Variables: @C_BRACE@, @C_BRA_NEWLINE@. VIGNORE_BEEP Prototype: Integer IGNORE_BEEP = 3;This variable determines how the terminal is to be ``beeped''. It maybe any one of the following values:@ 0 Do not beep the terminal in any way.@ 1 Produce an audible beep only.@ 2 Produce an visible beep only by flashing the display.@ 3 Produce both audible and visible bells.Note: Not all terminals support visible bells. VADD_NEWLINE Prototype: Integer ADD_NEWLINE = 1;If this variable is non-zero, a newline character will be silentlyadded to the end of a buffer when the buffer is written out to a fileif the buffer does not end with a newline character. If it is zero,one will not be added. VLASTKEY Prototype: String LASTKEY;The LASTKEY variable contains the most recently entered keyboardsequence.Note: Key sequences using the null character will not be recorded accurately.Related Variable: @LAST_CHAR@ VC_BRA_NEWLINE Prototype: Integer C_BRA_NEWLINE = 1;This variable is used by the indentation routines for the C langauge.If it is non-zero, the @'{'@ character will be placed on a line byitself when one presses the @'{'@ character. For K&R indentation style, set this variable to zero.Related Variables: @C_INDENT@, @C_BRA_NEWLINE@ VDISPLAY_TIME Prototype: Integer DISPLAY_TIME = 1;If this variable is non-zero, the current time will be displayed on thestatus line if the format for the status line permits it. If it is zero,the time will not be displayed even if the @%t@ format string is partof the status line format.See also: @set_status_line@ VWANT_EOB Prototype: Integer WANT_EOB = 0;If this variable is non-zero, an ``end of buffer'' indicator @"[EOB]"@will be displayed at the end of the buffer. Such an indicator is used for various editor emulations such as the VAX/VMS EDT editor. Finsert_file :insert_file:I:1Prototype: Integer insert_file (String f);This function may be used to inset the contents of a file named @f@into the buffer at the current position. The current editing pointwill be placed at the end of the inserted text. The function returns@-1@ if the file was unable to be opened; otherwise it returns thenumber of lines inserted. This number can be zero if the file is empty.See also: @read_file@, @find_file@, @insert@ Fkeymap_p :keymap_p:I:1Prototype: Integer keymap_p (String kmap);The @keymap_p@ function may be used to determine whether or not akeymap with name @kmap@ exists. If the keymap specified by @kmap@exists, the function returns non-zero. It returns zero if the keymapdoes not exist.See also: @make_keymap@, @definekey@ VWRAP Prototype: Integer WRAP = 78;The @WRAP@ variable determines the column number where text iswrapped at. When entering text, if the current point goes beyondthis column, the text will automatically wrap to the next line.This will only happen for those buffers for which the wrap flag is set.See also: @getbuf_info@, @setbuf_info@, @setmode@Related Variables: @WRAP_INDENTS@ Fwhat_char :what_char:I:0Prototype: Integer what_char ();The @what_char@ function returns the value of the character at thecurrent position as an integer in the range 0 to 256. This simpleexample,@ while (not (eolp ()))@ {@ if (what_char () == '_') @ {@ del (); insert ("\\_");@ }@ }has the effect of replacing all underscore characters on the currentline with a backslash-underscore combination.See also: @looking_at@ Frecenter :recenter:V:1Prototype: Void recenter (Integer nth);This function may be used to scroll the window such that the @nth@ lineof the window contains the current line. If @nth@ is zero, the current line will be placed at the center of the window and the screen will becompletely redrawn.See also: @nwindows@, @window_info@ Fbufferp :bufferp:I:1Prototype: Integer bufferp (String buf);This function is used to see if a buffer exists or not. If a buffer withname @buf@ exists, it returns a non-zero value. If it does not exist,it returns zero.See also: @setbuf@, @getbuf_info@ Fget_key_function :get_key_function:V:0Prototype: String get_key_function ();@get_key_function@ waits for a key to be pressed and returns a stringthat represents the binding of the key. If the key has no bindingthe empty string is returned. Otherwise, it also returns an integerthat describes whether or not the function is an internal one. Ifthe function is internal, @1@ will be returned; otherwise zero willbe returned to indicate that the binding is either to an S-Langfunction or a macro. If it is a macro, the first character of the of returned string will be the `@@' character.See also: @getkey@, @input_pending@ Fdump_bindings :dump_bindings:V:1Prototype: Void dump_bindings(String map);This functions inserts a formatted list of keybindings for the keymapspecified by @map@ into the buffer at the current point.See also: @get_key_function@ VMETA_CHAR Prototype: Integer META_CHAR;This variable determines how input characters with the high bit setare to be treated. If @META_CHAR@ is less than zero, the characteris passed through un-processed. However, if @META_CHAR@ is greaterthan or equal to zero, an input character with the high bit set ismapped to a two character sequence. The first character of thesequence is the character whose ascii value is @META_CHAR@ and thesecond character is the input with its high bit stripped off. VDEC_8BIT_HACK Prototype: Integer DEC_8BIT_HACK = 1;If set to a non-zero value, a input character between 128 and 160will be converted into a two character sequence: @ESC@ and thecharacter itself stripped of the high bit + 64. The motivationbehind this variable is to enable the editor to work with VTxxxterminals that are in eight bit mode.Related Variables: @META_CHAR@ Fundefinekey :unset_key_in_keymap:V:2Prototype: Void undefinekey (String key, String kmap);This function may be used to remove a keybinding from a specifiedkeymap. The key sequence is given by the parameter @key@ and thekeymap is specified by the second parameter @kmap@.See also: @unsetkey@, @definekey@, @what_keymap@ Fgetpid :jed_getpid:I:0Prototype: Integer getpid ();This function returns the process identification number for the currenteditor process. Fupdate :update_cmd:V:1Prototype: Void update (Integer f);This function may be called to update the display. If the parameter@f@ is non-zero, the display will be updated even if there is inputpending. If @f@ is zero, the display may only be partially updated ifinput is pending.See also: @input_pending@, @flush@ Fskip_word_chars :skip_word_chars:V:0Prototype: Void skip_word_chars ();This function moves the current editing point forward across allcharacters that constitute a word until a non-word character isencountered. Characters that make up a word are set by the@define_word@ function.See also: @define_word@, @skip_non_word_chars@, @skip_chars@, @bskip_word_chars@ Fskip_non_word_chars :skip_non_word_chars:V:0Prototype: Void skip_non_word_chars ();This function moves the current editing point forward past allnon-word characters until a word character is encountered.Characters that make up a word are set by the @define_word@ function.See also: @define_word@, @skip_word_chars@, @skip_chars@, @bskip_non_word_chars@ Fbskip_word_chars :bskip_word_chars:V:0Prototype: Void bskip_word_chars ();This function moves the current editing point backward past allword characters until a non-word character is encountered.Characters that make up a word are set by the @define_word@ function.See also: @define_word@, @skip_word_chars@, @bskip_chars@, @bskip_non_word_chars@ Fbskip_non_word_chars :bskip_non_word_chars:V:0Prototype: Void bskip_word_chars ();This function moves the current editing point backward past allnon-word characters until a word character is encountered.Characters that make up a word are set by the @define_word@ function.See also: @define_word@, @skip_non_word_chars@, @bskip_chars@, @bskip_word_chars@ Fwhich_key :which_key:I:1Prototype: Integer which_key (String f);The @which_key@ function returns the the number of keys that arebound to the function @f@ in the current keymap. It also returnsthat number of key sequences with control characters expanded as thetwo character sequence @^@ and the the whose ascii value is thecontrol character + 64. For example, @ define insert_key_bindings (f)@ {@ variable n, key;@ n = which_key (f);@ loop (n)@ {@ str = ();@ insert (str);@ insert ("\n");@ }@ }inserts into the buffer all the key sequences that are bound to thefunction @f@.See also: @get_key_function@, @setkey@, @what_keymap@ Fwhitespace :insert_whitespace:V:1Prototype: whitespace (Integer n);The @whitespace@ function inserts white space of length @n@ into thecurrent buffer using a combination of spaces and tabs. The actualcombination of spaces and tabs used depends upon the buffer localvariable @TAB@. In particular, if @TAB@ is zero, no tab characterswill be used for the expansion.See also: @insert@, @trim@, @goto_column@Related Variables: @TAB@, @TAB_DEFAULT@ Fenlargewin :enlarge_window:V:0Prototype: Void enlargewin ();This function increases the size of the current window by one line byadjusting the size of the other windows accordingly.See also: @window_info@, @onewindow@ Fsplitwindow :split_window:V:0Prototype: Void splitwindow ();This function splits the current window vertically creating anotherwindow that carries the current window's buffer.See also: @onewindow@, @enlargewin@, @window_info@ VC_BRACE Prototype: Integer C_BRACE;This is a C-mode variable that specifies how much an opening braceshould be indented compared its surrounding block. Related Variables: @C_INDENT@, @C_BRA_NEWLINE@ Ffile_time_compare :file_time_cmp:I:2Prototype: Integer file_time_cmp (String file1, String file2);This function compares the modification times of two files, @file1@and @file2@. It returns an integer that is either positive, negative,or zero integer for @file1 > file2@, @file1 < file2@, or @file1 == file2@, respectively. In this context, the comparisonoperators are comparing file modification times. That is, theoperator @>@ should be read ``is more recent than''. The conventionadopted by this routine is that if a file does not exist, itsmodification time is taken to be at the beginning of time. Thus, if@f@ exists, but @g@ does not, the @file_time_compare (f, g)@ willreturn a positive number. See also: @file_status@, @time@ Fxform_region :transform_region:V:1Prototype: Void xform_region (Integer how);This function changes the characters in the region in a way specified by the parameter @how@. This is an integer that can be any of of thefollowing:@ 'u' Upcase_region@ 'd' Downcase_region@ 'c' Capitalize regionAnything else will change case of region.See also: @translate_region@, @define_case@ VNUMLOCK_IS_GOLD VCHEAP_VIDEO non zero if snow appears on screen when updating it. VOUTPUT_RATE Terminal baud rate Fskip_chars :skip_chars:V:1Prototype: Void skip_chars(String s);This fnction may be used to move the editing point forward past allcharacters in string @s@ which contains the chars to skip, or a rangeof characters. A character range is denoted by two charctersseparated by a hyphen. If the first character of the string @s@ is a@'^'@ character, then the list of characters actually denotes thecomplement of the set of characters to be skipped. To explicitlyinclude the hyphen character in the list, it must be either the firstor the second character of the string, depending upon whether or notthe @'^'@ character is present. So for example, @ skip_chars ("- \t0-9ai-o_");will skip the hyphen, space, tab, numerals @0@ to @9@, the letter @a@,the letters @i@ to @o@, and underscore. An example which illustrates the complement of a range is@ skip_chars("^A-Za-z");which skips all characters except the letters. Note: The backslash character may be used to escape only the firstcharacter in the string. That is, "\\^" is to be used to skip over@^@ characters. Related Functions: @bskip_chars@, @skip_white@  Fcommand_line_arg :command_line_argv:S:1Prototype: String command_line_argv (Integer n);This function may be used to determine the command line parametersthat invoked the editor. The parameter @n@ is an integer the range zeroup-to but not including the value of the variable @MAIN_ARGC@. Related Variables: @MAIN_ARGC@ VMAIN_ARGC Prototype: Integer MAIN_ARGC;@MAIN_ARGC@ is a global read-only variable that indicates the numberof command line parameters.See also: @command_line_argv@ Fset_file_translation :set_file_trans:V:1Prototype: set_file_translation (Integer n);This function affects only the way the next file is opened. Itsaffect does not last beyond that. If it the value of the parameteris 1, the next file will be opened in binary mode. If the parameter iszero, the file will be opened in text mode. Fpipe_region :pipe_region:I:1Prototype: Integer pipe_region (String cmd);The @pipe_region@ function executes @cmd@ in a separate process andsends the region of characters defined by the mark and the currentpoint to the standard input of the process. It returns the number oflines written to the process or -1 upon failure.Note: This function is only available for Unix and OS/2 systems.See also: @run_shell_cmd@, @push_mark@ Frun_shell_cmd :shell_command:I:1Prototype: Void run_shell_cmd (String cmd);The @run_shell_cmd@ function may be used to run @cmd@ in a separateprocess. Any output generated by the process is inserted into thebuffer at the current point. It generates a S-Lang error if theprocess specified by @cmd@ could not be opened. Otherwise, itreturns the exit status of the process. Fmkdir :make_directory:I:1Prototype: Integer mkdir (String dir);The @mkdir@ function may be used to create a new directory with namespecified by @dir@. It returns zero if the directory could not becreated or non-zero if a directory with the specified name was created.See also: @rmdir@, @file_status@ Frmdir :delete_directory:I:1Prototype: Integer rmdir (dir);@rmdir@ may be used to delete the directory specified by the name@dir@. If the directory was sucessfully deleted, the functionreturns a non-zero value. Otherwise, the directory could not bedeleted and zero will be returned.See also: @mkdir@, @delete_file@ Fappend_region_to_file :append_to_file:I:1Prototype: Integer append_region_to_file (String file);Appends a marked region to @file@ returning number of lines written or -1on error. This does NOT modify a buffer visiting the file; however,it does flag the buffer as being changed on disk. Fautosave :auto_save:V:0Prototype: Void autosave ();The @autosave@ function saves the current buffer in an auto save fileif the buffer has been marked for the auto save operation. See also: @setbuf_info@, @autosaveall@Related Variables: @MAX_HITS@ Fautosaveall :auto_save_all:V:0Prototype: Void autosaveall ();This function is like @autosave@ except that it causes all filesmarked for the auto save operation to be auto-saved.See also: @autosave@, @setbuf_info@Related Variables: @MAX_HITS@ Fbackward_paragraph :backward_paragraph:V:0Prototype: Void backward_paragraph ();This function moves the current editing point backward past thecurrent paragraph to the line that is a paragraph separator. Such aline is determined by the S-Lang hook @is_paragraph_separator@. Thishook can be modified on a buffer by buffer basis by using thefunction @set_buffer_hook@. See also: @forward_paragraph@, @set_buffer_hook@ Fblank_rect :blank_rectangle:V:0The @blank_rect@ function replaces all text in the rectangle defined bythe current editing point and the mark by spaces.See also: @push_mark@, @kill_rect@, @insert_rect@, @copy_rect@ Fbskip_chars :bskip_chars:V:1Prototype: Void bskip_chars (String str);This function may be used to skip past all characters defined by the string @str@. See @skip_chars@ for the definition of @str@.The following example illustrates how to skip past all whitespace including newline characters:@ bskip_chars (" \t\n");See also: @skip_chars@, @left@ Fbuffer_list :make_buffer_list:V:0Prototype: Integer buffer_list ();This function returns an integer indicating the number of buffers andleaves the names of the buffers on the stack. For example, the following function displays the names of all buffers attached to files:@ define show_buffers ()@ {@ variable b, str = "", file;@ loop (buffer_list ())@ {@ b = ();@ setbuf (b);@ (file,,,) = getbuf_info ();@ if (strlen (file)) str = strcat (str, strcat (" ", b));@ }@ message (str);@ }See also: @getbuf_info@, @whatbuf@ Fcheck_region :check_region:V:1Prototype: Void check_region (Integer ps);This function checks to see if a region is defined and may exchangethe current editing point and the mark to define a canonical region.If the mark is not set, it signals an S-Lang error. A canonicalregion is one with the mark set earlier in the buffer than than theediting point. Always call this if using a region which requiressuch a situation. If the argument @ps@ is non-zero, @push_spot@ will be called,otherwise, @ps@ is zero and it will not be called.As an example, the following function counts the number of lines in a region:@ define count_lines_region ()@ {@ variable n;@ check_region (1); % spot pushed@ narrow ();@ n = what_line ();@ widen ();@ pop_spot ();@ return n;@ }See also: @markp@, @push_mark@ Fcopy_rect :copy_rectangle:V:0Prototype: Void copy_rect ();The @copy_rect@ function is used to copy the contents of thecurrently defined rectangle to the rectangle buffer. It overwritesthe previous contents of the rectangle buffer. A rectangle is defined by the diagonal formed by the mark and the current point.See also: @insert_rect@, @kill_rect@, @blank_rect@ Fdefine_word :define_word:V:1Prototype: Void define_word (String s);This function is used to define the set of characters that form aword. The string @s@ consists of those characters or ranges ofcharacters that define the word. For example, to define only thecharacters @A-Z@ and @a-z@ as word characters, use:@ define_word ("A-Za-z");To include a hyphen as part of a word, it must be the first characterof the control string @s@. So for example,@ define_word ("-i-n");defines a word to consist only of the letters @i@ to @n@ and thehyphen character. Fdelbuf :kill_buffer_cmd:V:1Prototype: Void delbuf (String buf);@delbuf@ may be used to delete a buffer with the name specified by@buf@. If the buffer does not exist, a S-Lang error will be generated.See also: @whatbuf@, @bufferp@, @sw2buf@ Fdelete_file :sys_delete_file:I:1Prototype: Integer delete_file (String file);This function may be used to delete a file specified by the @file@parameter. It returns non-zero if the file was sucessfully deletedor zero otherwise.See also: @rmdir@ Fdirectory :expand_wildcards:I:1returns number of files and list of files which match filename. On unix, this defaults to filename*. It is primarily useful forDOS and VMS to expand wilcard filenames Fevalbuffer :load_buffer:V:0Prototype: Void evalbuffer ();This function causes the current buffer to be sent to the S-Langinterpreter for evaluation. If an error is encountered while parsingthe buffer, the cursor will be placed at the location of the error.See also: @evalfile@ Fexpand_filename :expand_filename:S:1Prototype: String expand_filename (String file);The @expand_filename@ function expands a file to a canonical form.For example, under Unix, if @file@ has the value @"/a/b/../c/d"@, itreturns @"/a/c/d"@. Similarly, if @file@ has the value@/a/b/c//d/e"@, @"/d/e" is returned. Ffilechgondsk :file_changed_on_disk:I:1Prototype: Integer filechgondsk (String fn);This function may be used to determine if the disk file specified by the parameter @fn@ is more recent than the current buffer. See also: @file_time_compare@ Fforward_paragraph :forward_paragraph:V:0Prototype: Void forward_paragraph ();This function moves the current editing point forward past the end ofthe current paragraph. Paragraph delimiters are defined through eithera buffer hook or via the hook @is_paragraph_separator@.See also: @backward_paragraph@, @set_buffer_hook@ Fgetkey :jed_getkey:I:0Prototype: Integer getkey ();The @getkey@ function may be used to read an input character from the keyboard. It returns an integer in the range 0 to 256 which represents the ASCII or extended ASCII value of the character.See also: @input_pending@, @ungetkey@ Findent_line :indent_line:V:0Prototype: Void indent_line ();The @indent_line@ line function indents the current line in a mannerwhich depends upon the current buffer. The actual function that gets called is set via a prior call the @set_buffer_hook@ to set the indenthook. The default value is to indent the line to the indentationlevel of the previous line.See also: @set_buffer_hook@ Finsert_rect :insert_rectangle:V:0Prototype: insert_rect ();The @insert_rect@ function inserts the contents of the rectangle bufferat the current editing point. The rectangle buffer is not modified.Any text that the rectangle would overwrite is moved to the right by an amount that is equal to the width of the rectangle.See also: @kill_rect@, @blank_rect@, @copy_rect@ Fkill_rect :kill_rectangle:V:0Prototype: Void kill_rect ();This function deletes the rectangle defined by the mark and the current point. The contents of the rectangle are saved in the rectangle bufferfor later retrieval via the @insert_rect@ function. The previous contents of the rectangle buffer will be lost.See also: @insert_rect@, @blank_rect@, @copy_rect@ Fmake_keymap :create_keymap:V:1Prototype: Void make_keymap (String km);The @make_keymap@ function creates a keymap with a name specified bythe @km@ parameter. The new keymap is an exact copy of thepre-defined @"global"@ keymap.See also: @use_keymap@, @keymap_p@, @definekey@, @setkey@ Fmap_input :map_character:V:2Prototype: Void map_input (Integer x, Integer y);The @map_input@ function may be used to remap an input character withascii value @x@ from the keyboard to a different character with asciivalue @y@. This mapping can be quite useful because it takes placebefore the editor interprets the character. One simply use of thisfunction is to swap the backspace and delete characters. Since thebackspace character has an ascii value of @8@ and the delete character has ascii value @127@, the statement @ map_input (8, 127);maps the backspace character to a delete character and @ map_input (127, 8);maps the delete character to a backspace character. Used together,these two statement effectively swap the delete and backspace keys.See also: @getkey@ Fnarrow :narrow_to_region:V:0Prototype: Void narrow ();This function may be used to restict editing to the region of linesbetween the mark and the editing point. The region includes the linecontaining the mark as well as the line at the current point. Allother lines outside this region are completely inacessable withoutfirst lifting the restriction using the @widen@ function. As a simpleexample, suppose that there is a function called @print_buffer@ thatoperates on the entire buffer. Then the following function will workon a region of lines:@ define print_region ()@ {@ narrow ();@ print_buffer ();@ widen ();@ }The @narrow@ function will signal an error if the mark is not set.Note also that the narrow function may be used recursively in thesense that a narrowed region may be further restricted using the@narrow@ function. For each narrow, the @widen@ function must be called to lift each restriction.See also: @widen@ Fopen_rect :open_rectangle:V:0Prototype: Void open_rect ();The @open_rect@ function may be used to insert a blank rectangle whosesize is determined by the mark and the current editing point. Any textthat lies in the region of the rectangle will be pushed to the right.See also: @insert_rect@, @kill_rect@, @copy_rect@ Fquit_jed :quit_jed:V:0Prototype: Void quit_jed ();This function quits the editor immediately. No buffers areauto-saved and no hooks are called. The function @exit_jed@ should becalled when it is desired to exit in a safe way.See also: @exit_jed@ Fread_file :find_file_cmd:I:1Prototype: Integer read_file (string fn);The @read_file@ function may be used to read a file specified by @fn@into its own buffer. It returns a non-zero value upon success andsignals an error upon failure. The hook @find_file_hook@ is calledafter the file is read in. Unlike the related function, @find_file@, this function does not create a window for the newly created buffer.See also: @find_file@, @file_status@, @write_buffer@ Fread_with_completion :read_object_with_completion:V:4Prototype: Void read_with_completion (String prt, String dflt, String s, Integer type);This function may be used to read one of the objects specified by thelast parameter @type@. The first parameter, @prt@, is used as aprompt, the second parameter, @dflt@, is used to specify a default,and the third parameter, @s@, is used to initialize the string to be read.@type@ is an integer with the following meanings:@ 'f' file name@ 'b' buffer name@ 'F' function name@ 'V' variable name.Finally, if @type@ has the value @'s'@, then the set of completionswill be defined by a zeroth parameter, @list@, to the function call.This parameter is simple a comma separated list of completions.For example, @ read_with_completion ("Larry,Curly,Moe", "Favorite Stooge:",@ "Larry", "", 's');provides completion over the set of three stooges.The function returns the string read.See also: @read_mini@ Freplace :replace_cmd:V:2Prototype: Void replace(String old, String new);This function may be used to replace all occurances of the string@old@ with the string, @new@, from current editing point to the endof the buffer. The editing point is returned to the initial location.That is, this function does not move the editing point.See also: @fsearch@, @re_fsearch@, @bsearch@, @ffind@, @del@ Fset_abort_char :set_abort_char:V:1Change Abort character to CHAR. The default is 7 which is ^G.Using this function modifies ALL keymaps Fsuspend :sys_spawn_cmd:V:0Suspend jed and return to calling process or spawn subprocess."suspend_hook" is called before suspension and "resume_hook" is calledafter. These are user defined S-Lang functions. Ftime :get_time:S:0return current date and time string Fungetkey :ungetkey:V:1push ASCII value of character on input stream Fbuffer_keystring :do_buffer_keystring:V:1Prototype: Void buffer_keystring (String str);Append string @str@ to the end of the input stream to be read by JED'sgetkey routines.Related Functions: ungetkey, getkey Fuse_keymap :use_keymap:V:1Asscoiate KEYMAP with buffer. Fw132 :screen_w132:V:0 Fw80 :screen_w80:V:0 Fwhatmode :what_mode:I:0returns buffer mode string and mode flag. See setmode for details. Fwiden :widen:V:0Opposite of Narrow. See narrow for additional information. Fwindow_line :window_line:I:0returns number of line in window. top line is 1. Fwrite_buffer :write_buffer_cmd:I:1writes buffer to FILE. Returns number of lines written or signals error on failure. Fwrite_region_to_file :write_region:I:1Prototype: Integer write_region_to_file (String file);Write region to @file@. Returns number of lines written or signalserror on failure.  Fcount_chars :count_chars:V:0returns a string of form "char 37, point 2150 of 10067"where 2150 is character number of Point and 10067 is the total.37 is the ascii value of current character.A string is returned instead of numbers because MSDOSints are only 16 bits and S-Lang does not have long integer types. Fget_yes_no :get_yes_no:I:1Takes one argument-- a string that is used to get yes or no responce from user. Returns 1 if yes, 0 if no. Also returns -1 if abort and signals error. Frename_file :rename_file:I:2rename file from OLD_NAME to NEW_NAME returning 0 if the operation succeeds, and a non-zero value if it fails. Both files must be on the same file system. Fchange_default_dir :ch_dir:I:1Change default directory to new directory. Returns 0 uponsuccess and -1 upon failure. All relative path names are expandedwith respect to the new default directory. Fprefix_argument :do_prefix_argument:I:1Usage: int prefix_argument(int default); Returns value of prefix argument if there is one otherwise returns @default@. Fregexp_nth_match :regexp_nth_match:V:1 Freplace_match :replace_match:I:2Prototype: Integer replace_match(String s, Integer how);This function replaces text previously matched with `re_fsearch' or`re_bsearch' at the current editing point with string @s@. If @how@ iszero, @s@ is a specially formatted string of the form described below.If @how@ is non-zero, @s@ is regarded as a simple string and is usedliterally. If the replacement fails, this function returns zerootherwise, it returns non-zero. Fre_fsearch :re_search_forward:I:1Prototype: Integer re_fsearch(String pattern);Search forward for regular expression @pattern@. This function returnsthe 1 + length of the string matched. If no match is found, it returns 0.Related Functions: fsearch, bol_fsearch, re_bsearch Fre_bsearch :re_search_backward:I:1Prototype: Integer re_bsearch(String pattern);Search backward for regular expression @pattern@. This function returnsthe 1 + length of the string matched. If no match is found, it returns 0.Related Functions: bsearch, bol_bsearch, re_fsearch Fset_buffer_hook :set_buffer_hook:V:2Prototype: Void set_buffer_hook (String hook, String f);Set current buffer hook @hook@ to function @f@. @f@ is a userdefined S-Lang function. Currently, name can be any one of: "par_sep" -- returns zero if the current line does not constitute the beginning or end of a paragraph.  It returns non-zero otherwise. The default value of @hook@ is  @is_paragraph_separator@. "indent_hook" -- returns nothing. It is called by the indent line routines. "wrap_hook" hook that is called after a line is wrapped. Returns nothing "newline_indent_hook" --- returns nothing. If this hook is defined, it will be called instead of the internal function  @newline_and_indent@ is called. Finsert_file_region :insert_file_region:I:3Prototype: Integer insert_file_region (String file, String beg, String end);This function may be used to insert a region specified by the strings@beg@ and @end@ of the file with name @file@ into the current buffer.The file is scanned line by line until a line that begins with thestring given by @beg@ is encountered. Then, that line and allsuccessive lines upto the one that starts with the string specifiedby @end@ is inserted into the buffer. The line beginning with thevalue of @end@ is not inserted although the one beginning with @beg@ is.The function returns the number of lines inserted or @-1@ upon failureto open the file.See also: @insert_file@ Fsearch_file :search_file:I:3search FILE for STRING returning TRUE if string found. Frandom :make_random_number:I:2Usage: seed n randomReturns a random number in the range 0 to n - 1. If seed is 0, the number generated depends on previous seed. If seed is -1, a seed based on current time and pid is used, otherwise, seed is used as a seed. Fset_term_vtxxx :do_tt_set_term_vtxxx:V:1Set terminal display appropriate for a vtxxx terminal. This function takes a single integer parameter. If non-zero, the terminal type is set for a vt100. This means the terminal lacks the ability to insert/deletelines and characters. If the parameter is zero, the terminal is assumedto be vt102 compatable. Unless you are using a VERY old terminal or a primitive emulator, use zero as the parameter. VTERM_CANNOT_INSERT Set this variable to 1 in your jed startup file (jed.rc) if your terminal is unable to insert (not vt102 compatable) VTERM_CANNOT_SCROLL Set this variable to 1 in your jed startup file (jed.rc) if your terminal is unable to scroll. VBATCH non-zero if JED is running in batch mode. This variable is read only. VTAB Tab setting for the current buffer. VSELECTIVE_DISPLAY If negative, ^M (RET) makes rest of line invisible. Hidden text is indicated by @...@. VLAST_CHAR Last character entered from the keyboard VMAX_HITS maximum number of @hits@ on a buffer before an autosave is performed. VCASE_SEARCH if 1, searches are case sensitive. If 0, they are not VPOINT VMESSAGE_BUFFER Read only string indicating current message to be displayed oris displayed in the message buffer VIGNORE_USER_ABORT If set to a non-zero value, the Abort Character will not trigger aS-Lang error. When JED starts up, this value is set to 1 so that the user cannot abort the loading of site.sl. Later, it is set to 0 VKILL_LINE_FEATURE If non-zero, kill_line will kill through end of line character ifPoint is at beginning of the line. Otherwise, it will kill only untilthe end of the line. By default, this feature is turned on. VSCREEN_HEIGHT number of rows on the screen. VSCREEN_WIDTH number of columns on the screen VJED_LIBRARY Read only string variable indicating the directory where JED libraryfiles are kept. This variable may be set using an environment variable VJED_ROOT Read only string variable indicating JED's root directory.This variable may be set using an environment variable VLINENUMBERS If set to 0, line numbers are not displayed on the screen. If set to 1, line numbers will be displayed. If set to anything else, the %c column format specifier will be parsed allowing the column numberto be displayed on the screen. VALT_CHAR If this variable is non-zero, characters pressed in combinationthe ALT key will generate a two character sequence: the first character is the value of the ALT_CHAR itself followed by the character pressed. For example, if ALT-X is pressed and ALT_CHAR has a value of 27, the characters ESCAPE X will be generated. VMOUSE_X VMOUSE_Y VMOUSE_DELTA_TIME VMOUSE_BUTTON VMOUSE_EVENT_TYPE Value is 1 if the event is a keypress and 0 if a release. VMOUSE_STATE The state of the shift, control, and button keys BEFORE the event.This is an integer with the following meaning for the bits: 0: left button pressed 1: middle button pressed 2: right button pressed 3: shift key pressed 4: control key pressed VHIGHLIGHT Set this variable non-zero to highlight marked regions VHORIZONTAL_PAN If this variable is non-zero, the window pans with the Point. Actuallyif the value is less than zero, the entire window pans. If the value is positive, only the current line will pan. The absolute value of the number determines the panning increment. Fvms_get_help :vms_get_help:V:2 Fvms_send_mail :vms_send_mail:I:2Takes 2 string arguments: TO and SUBJECT. TO may be a comma separated list of names. The buffer will bemailed to names on this list with SUBJECT. This routine uses callable VMS mail. Fenable_flow_control :enable_flow_control:V:1If integer argument is non-zero, ^S/^Q flow control is enabled. Ifargument is 0, ^S/^Q processing by the terminal is disabled. Emacs modesets this to 0 (flow control off). Fcore_dump :exit_error_cmd:V:2Prototype: Void core_dump(String msg, Integer severity);Exit editor sumping the state of some crucial variables. If severity is 1, dump core if possible. Message msg is also displayed. Fget_last_macro :get_last_macro:V:0Prototype: String get_last_macro ();This function returns characters composing the last keyboard macro. Thecharactors that make up the macro are encoded as themselves except thefollowing characters:@ '\n' ----> \J@ null ----> \@@ \ ----> \\@ '"' ----> \" FIsHPFSFileSystem :IsHPFSFileSystem:I:1Prototype: Integer IsHPFSFileSystem(String path);Returns TRUE if drive of @path@ (possibly the default drive) is HPFS. Fmsdos_fixup_dirspec :msdos_pinhead_fix_dir:S:1Prototype: String msdos_fixup_dirspec (String dir);The motivation behind this is that DOS does not like a trailingbackslash @\\@ except if it is for the root dir. This function makes@dir@ conform to that VC_COMMENT_HINT VWANT_SYNTAX_HIGHLIGHT Fset_top_status_line :define_top_screen_line:V:1Prototype: String set_top_status_line (String str);This functions sets the string to be displayed at the top of the display. It returns the value of the line that was previously displayed.Related Functions: enable_top_status_line Fenable_top_status_line :enable_menu_bar:V:1Prototype: Void enable_top_status_line (Integer x);If x is non-zero, the top status line is enabled. If x is zero, thetop status line is disabled and hidden.Related Functions: set_top_status_line VTOP_WINDOW_ROW This read-only variable gives the value of the starting row of the topwindow.  VDEFINING_MACRO VEXECUTING_MACRO Fcreate_user_mark :create_user_mark:V:0Prototype: User_Mark create_user_mark ();The function @create_user_mark@ returns an object of the type@User_Mark@. This object contains information regarding the currentposition. Unlike other marks and spots, a User Mark is not localto a buffer. In this example,@ define create_buffer (buf)@ {@ variable mark = create_user_mark ();@ setbuf (buf);@ goto_user_mark (mark);@ }a User Mark has been created prior to the call to @setbuf@. Thenafter returning from @setbuf@, the current position and current bufferis set to that specified by the User Mark. This example has theeffect of creating a buffer named @buf@ if does not already exist butnot switching to it.See also: @move_user_mark@, @goto_user_mark@, @user_mark_buffer@ Fgoto_user_mark :goto_user_mark:V:0Prototype: Void goto_user_mark (User_Mark mark);This function returns to the position of the User Mark @mark@. SinceUser Marks are not local to a buffer, if the User Mark @mark@ was setin another buffer, that buffer will become the current buffer.See also: @move_user_mark@, @create_user_mark@, @user_mark_buffer@ Fmove_user_mark :move_user_mark:V:0Prototype: Void move_user_mark (User_Mark mark);This function call takes a previously created User Mark, @mark@, andmoves it to the current position and buffer. This means that if onesubsequently calls @goto_user_mark@ with this mark as an argument, thethe position will be set to what it is prior to the call to@move_user_mark@.Note: This function call is not equivalent to simply using@ mark = create_user_mark ();because independent copies of a User Mark are not created uponnassignment. That is, if one has@ variable mark1, mark2;@ setbuf ("first");@ mark1 = create_user_mark ();@ mark2 = mark1;@ setbuf ("second");and then calls @ move_user_mark (mark1);both user marks, @mark1@ and @mark2@ will be moved since they refer tothe same mark.See also: @goto_user_mark@, @create_user_mark@, @user_mark_buffer@ Fuser_mark_buffer :user_mark_buffer:S:0Prototype: String user_mark_buffer (User_Mark m);This function returns the name of the buffer associated with the User Mark specified by @m@.See also: @goto_user_mark@, @create_user_mark@, @move_user_mark@ Flist_abbrev_tables :list_abbrev_tables:I:0Prototype: Integer list_abbrev_tables ();This function returns the names of all currently defined abbreviation tables. The top item on the stack will be the number oftables followed by the names of the tables. Fuse_abbrev_table :use_abbrev_table:V:1Prototype: Void use_abbrev_table (String table);Use the abbreviation table named @table@ as the abbreviation table for the current buffer. By default, the "Global" table is used. Fcreate_abbrev_table :create_abbrev_table:V:2Prototype: Void create_abbrev_table (String name, String word);Create an abbreviation table with name @name@. The second parameter@word@ is the list of characters used to represent a word for the table. If the empty string is passed for @word@, the characters thatcurrently constitute a word are used. Fdefine_abbrev :define_abbrev:V:3Prototype: Void define_abbrev (String tbl, String abbrv, String expans);This function is used to define an abbreviation @abbrv@ that will be expanded to @expans@. The definition will be placed in the table withname @tbl@. Fabbrev_table_p :abbrev_table_p:I:1Prototype: Integer abbrev_table_p (String name);Returns non-zero if an abbreviation table with called @name@ exists. Ifthe table does not exist, it returns zero. Fdump_abbrev_table :dump_abbrev_table:V:1Prototype: Void dump_abbrev_table (String name);This function inserts the contents of the abbreviation table called@name@ into the current buffer. Fwhat_abbrev_table :what_abbrev_table:V:0Prototype: (String, String) what_abbrev_table ();This functions returns both the name of the abbreviation table and the definition of the word for the table currently associated with the current buffer. If none is defined it returns two empty strings. Fdelete_abbrev_table :delete_abbrev_table:V:1Prototype: Void delete_abbrev_table (String name);Delete the abbrev table specified by @name@. Fset_column_colors :set_column_colors:V:3Prototype: Void set_column_colors (Integer color, Integer c0, Integer c1);This function associates a color with columns @c0@ through @c1@ in the current buffer. That is, if there is no syntax highlighting alreadydefined for the current buffer, when the current buffer is displayed, columns @c0@ through @c1@ will be displayed with the attributes of the@color@ object. The parameters @c0@ and @c1@ are restricted to the range1 through SCREEN_WIDTH. Use the function @set_color_object@ to assignattributes to the @color@ object.Related Functions: @set_color_object@ Fset_color_object :set_color_object:V:3Prototype: Void set_color_object (Integer obj, String fg, String bg);Associate colors fg and bg with object obj. Valid values for @obj@ are in the range 30 to 128. All other values are reserved. Values forthe strings @fg@ and @bg@ are as given by the description for @set_color@.Related Functions: @set_column_colors@, @set_color@ Ftranslate_region :translate_region:V:0Prototype: Void translate_region ();This function uses the global character array @TRANSLATE_ARRAY@ tomodify the characters in a region based on the mapping defined by thearray. The only restriction is that the newline character cannot bemapped. This example@ define swap_a_and_b ()@ {@ variable i;@ _for (0; 255, 1)@ {@ i = ();@ TRANSLATE_ARRAY[i] = i;@ }@ TRANSLATE_ARRAY['a'] = 'b';@ TRANSLATE_ARRAY['b'] = 'a';@ bob (); push_mark (); eob ();@ translate_region ();@ }uses @translate_region@ to swap the @'a'@ and @'b'@ characters in the current buffer.Related Functions: @insert@, @delete@, @what_char@Related Variables: @TRANSLATE_ARRAY@ Fset_current_kbd_command :set_current_kbd_command:V:1Prototype: Void set_current_kbd_command (String s); VLAST_KBD_COMMAND VCURRENT_KBD_COMMAND Ffind_matching_delimiter :find_matching_delimiter:I:1Prototype: Integer find_matching_delimiter (Integer ch);This function scans either forward or backward looking for thedelimiter that matches the character specified by @ch@. The actualdirection depends upon the syntax of the character @ch@. Thematching delimiter pair must be declared as such by a prior call to@define_syntax@. This function returns one of the following values:@ 1 Match found@ 0 Match not found@ -1 A match was attempted from within a string.@ -2 A match was attempted from within a comment@ 2 No informationIn addition, the current point is left either at the match or is leftat the place where the routine either detected a mismatch or gave up.In the case of a comment or a string (return values of -2 or -1), the current point is left at the beginning of a comment.Note: If the of @ch@ is zero, the character at the current point will be used.See also: @blink_match@, @create_syntax_table@, @define_syntax@, @parse_to_point@ Fblink_match :blink_match:V:0Prototype: Void blink_match ();This function will attempt to blink the matching delimiter immediately before the editing point.See also: @find_matching_delimiter@, @define_syntax@ Fparse_to_point :parse_to_point:I:0Prototype: Integer parse_to_point ();This function attempts to determine the syntactic context of thecurrent editing point. That is, it tries to determine whether or notthe current point is in a comment, a string, or elsewhere.It returns:@ -2 In a comment@ -1 In a string or a character@ 0 Neither of the aboveNote: This routine is rather simplistic since it makes the assumption that the character at the beginning of the current line is not in a comment nor is in a string.See also: @define_syntax@, @find_matching_delimiter@ Fset_syntax_flags :set_syntax_flags:V:2Prototype: Void set_syntax_flags (String table, Integer flag);This function may be used to set the flags in the syntax tablespecified by the @table@ parameter. The @flag@ parameter may takeany of the following values or any combination bitwise or-ed together:@ 1 Keywords are case insensitive@ 2 Comments are Fortran-like@ 4 Comments are C-like@ 8 Keywords are TeX-likeA Fortran-like comment means that any line that begins with anycharacter that is not a digit is considered to be a comment. AC-like comment means that any line that starts with @"* "@ preceededby any ammount of whitespace is to be highlighted as a comment.A TeX-like keyword is any word that follows the quote character.See also: @define_syntax@ Fdefine_syntax :define_syntax:V:2Prototype: Void define_syntax (..., Integer type, String name);This function adds a syntax entry to the table specified by the lastparameter @name@. The actual number of parameters vary according tothe next to the last parameter @type@.If @type@ is @'"'@ or @'\''@, a string or character delimiter syntax isdefined. In this case, @define_syntax@ only takes three parameterswhere the first parameter is an integer that represents the characterfor which the syntax is to be applied.Similarly, if @type@ is @'\\'@, then a quote syntax is defined andagain @define_syntax@ only takes three parameters where the firstparameter is an integer that represents the character for which thesyntax is to be applied. A quote character is one in which thesyntax of the following character is not treated as special.If @type@ is @'('@, then @define_syntax@ takes four parameters wherethe first two parameters are strings that represent a matching set ofdelimiters. The first string contains the set of opening delimitersand the second string specifies the set of closing delimiters thatmatch the first set. If a character from the closing set is enteredinto the buffer, the corresponding delimiter from the opening setwill be blinked. For example, if the C language syntax table iscalled @"C"@, then one would use@ define_syntax ("([{", ")]}", '(', "C");to declare the matching delimiter set. Note that the order of thecharacters in the two strings must correspond. That is, the aboveexample says that @'('@ matches @')'@ and so on.If @type@ is @'%'@, a comment syntax is defined. As in theprevious case, @define_syntax@ takes four parameters where therefirst two parameters are strings that represent the begin and endcomment delimiters. If the comment syntax is such that the commentends at the end of a line, the second string must either be the emptystring, @""@, or a newline @"\n"@. In the current implementation, atmost the begin and end comment strings can consist of at most twocharacters.If @type@ is @'+'@, the first parameter is a string whose charactersare given the operator syntax. If type is @','@, the first parameteris a string composed of characters that are condered to bedelimiters. If type is '0', the first parameter is a string composedof characters that make up a number.If @type@ is @<@, the first parameter is a string whose successivecharacters form begin and end keyword highlight directives.Finally, if @type@ is @'#'@, the first parameter is an integer whosevalue corresponds to the character used to begin preprocessor lines.As an example, imagine a language in which the dollar sign character@$@ is used as a string delimiter, the backward quote character @`@is used as a quote character, comments begin with a semi-colon andend at the end of a line, and the characters @'<'@ and @'>'@ form matching delimiters. The one might use@ create_syntax_table ("strange");@ define_syntax ('$', '"', "strange");@ define_syntax ('`', '\\', "strange");@ define_syntax (";", "", '%', "strange");@ define_syntax ("<", ">", '(', "strange");to create a syntax table called @"strange"@ and define thesyntax entries for appropriate this example.See also: @create_syntax_table@, @use_syntax_table@, @find_matching_delimiter@Related Variables: @BLINK@ Fuse_syntax_table :use_syntax_table:V:1Prototype: Void use_syntax_table (String n);This function associates the current buffer with the syntax tablespecified by the name @n@. Until another syntax table is associatedwith the buffer, the syntax table named @n@ will be used in alloperations that require a syntax. This includes parenthesis matching,indentation, etc.See also: @create_syntax_table@, @define_syntax@ Fcreate_syntax_table :create_syntax_table:V:1Prototype: Void create_syntax_table (String name);This the purpose of this function is to create a new syntax tablewith the name specified by @name@. If the table already exists, thisfunction does nothing.See also: @define_syntax@, @use_syntax_table@, @define_keywords@ Fdefine_keywords_n :define_keywords:V:4Prototype: String define_keywords_n (String table, String kws, Integer len, Integer n);This function is used to define a set of keywords that will be colorsyntax highlighted in the keyword color associated with the tablespecified by @n@. The first parameter, @table@, specifies whichsyntax table is to be used for the definition. The second parameter,@kws@, is a string that is the concatenation of keywords of lengthspecified by the last parameter @len@. The list of keywords specifiedby @kws@ must be in alphabetic order. The function returns theprevious list of keywords of length @len@. For example, C mode usesthe statement@ () = define_keywords_n ("C", "asmforintnewtry", 3, 0);to define the four three-letter keywords @asm@, @for@, @int@, @new@,and @try@. Note that in the above example, the return value is not used.See also: @define_syntax@, @set_color@Related Variables: @WANT_SYNTAX_HIGHLIGHT@, @USE_ANSI_COLORS@ VDOLLAR_CHARACTER Prototype: Integer DOLLAR_CHARACTER = '$';Character that is to be used to indicate that text extends to the leftor right of the window. This character is traditionally a dollar sign.The @"dollar"@ object may be used to assign it a color.See also: @set_color@ V_jed_version Prototype: Integer _jed_version; Fset_expansion_hook :set_expansion_hook:V:1Prototype: Void set_expansion_hook (String fname);This function may be used to specify a function that will be called toexpand a filename upon TAB completion. The function @fname@ mustalready be defined. When @fname@ is called, it is given a string tobe expanded. If it changes the string, it must return a non-zero valueand the modified string. If the string is not modified, it must simplyreturn zero. Fget_passwd_info :get_passwd_info:V:1Prototype: (dir, shell, pwd, uid, gid) = get_passwd_info (String username);This function returns password information about the user with name@username@. The returned variables have the following meaning:@ dir: login directory@ shell: login shell@ pwd: encripted password@ uid: user identification number@ gid: group identification numberIf the user does not exist, or the system call fails, the functionreturns with @uid@ and @gid@ set to @-1@. Fget_termcap_string :get_termcap_string:S:1Prototype: String get_termcap_string (String cap);This function may be used to extract the string associated with thetermcap capability associated with @cap@.Note: This function is only available on Unix systems. Fget_doc_string :get_doc_string:I:2read doc string for OBJECT from FILE. Returns 1 and stringupon success or 0 on failure. If OBJECT is a functiion, it must be prefixed with an @F@. If it is a variable, the prefixcharacter is a @V@. Example: "Fget_doc_string" Fkill_process :jed_close_process:V:1Prototype: Void kill_process (Integer id);Kill the subprocess specified by the process handle @id@. Fsend_process :jed_send_process:V:2Prototype: Void send_process (Integer id, String s); Fopen_process :jed_open_process:I:1Prototype: Integer open_process (name, argv1, argv2, ..., argvN, N);Returns id of process, -1 upon failure. Fprocess_mark :jed_get_process_mark:V:1Prototype: User_Mark process_mark (Integer id);This function returns the user mark that contains the position of the last output by the process. Fset_process :jed_set_process:V:3Prototype: Void set_process (Integer pid, String what, String value);@pid@ is the process hendle returned by @open_process@. The secondparameter, @what@, specifies what to set. It must be one of thestrings:@ "signal" : indicates that 'value' is the name of a function to call@ when the process status changed. The function specified@ by 'value' must be declared to accept an argument list:@ (pid, flags) where 'pid' has the same meaning as above and@ flags is an integer with the meanings:@ 1: Process Running@ 2: Process Stopped@ 4: Process Exited Normally@ 8: Process Exited via Signal@ To obtain more information about the process, e.g., exit_status,@ use the function 'get_process_status'.@ Note: when this function is called, the current buffer is@ guaranteed to be the buffer associated with the process.@ @ output" : This parameter determines how output from the process is @ is processed. If the 'value' is the empty string "", output@ will go to the end of the buffer associated with the process @ and the point will be left there.@ If value is ".", output will go at the current buffer position. @ If value is "@", output will go to the end of the buffer but@ the point will not move. Otherwise, 'value' is the name of @ a slang function with arguments: (pid, data) where pid has@ the above meaning and data is the output from the process. Fsend_process_eof :jed_send_process_eof:V:1Prototype: send_process_eof (Integer pid);This function closes the @stdin@ of the process specified by thehandle @pid@. Fget_process_input :get_process_input:V:0Prototype: Void get_process_input (Integer tsecs);Read all pending input by all subprocesses. If no input isavailable, this function will wait for input until @tsecs@ tenth ofseconds have expired. html.sl Fhtml_mode Prototype: Void html_mode ();%!% @html_mode@ is a mode designed for editing html files. It is similar to%!% @text_mode@ except it adds the following keybindings designed to %!% facilitate the entry of html files:%!% @ Function @Key%!% @ html_start ^Cs%!% @ html_title ^Ct%!% @ html_h1 ^C1%!% @ html_h2 ^C2%!% @ html_h3 ^C3%!% @ html_ul ^Cu%!% @ html_ol ^Co%!% @ html_item ^Cl%!% @ html_paragraph ^Cp%!% @ html_anchor ^Ca%!% @ html_name ^Cn%!% @ html_address ^Cd%!% @ html_preformat ^Cf%!% @ html_emphasis ^Ce%!% @ html_code ^Co%!% @ html_image ^Ci%!% This function calls @html_mode_hook@ if it exists. untab.sl Funtab Prototype: Void untab ();%!% This function may be used either to convert tabs to spaces or, if called%!% with a prefix argument, it will perform the opposite conversion from %!% spaces to tabs. This function operates on a region. cmisc.sl slmode.sl cmode.sl Fc_mode () Protoytype: Void cmode ();%!% This is a mode that is dedicated to facilitate the editing of C language files. %!% Functions that affect this mode include:%!% @ function: default binding:%!% @ c_insert_bra {%!% @ c_insert_ket }%!% @ c_newline_and_indent RETURN%!% @ indent_line TAB%!% @ goto_match Ctrl-\ %!% @ c_make_comment ESC ;%!% @ c_format_paragraph ESC q%!% @ c_top_of_function ESC Ctrl-A%!% @ c_end_of_function ESC Ctrl-E%!% @ c_mark_function ESC Ctrl-H%!% Variables affecting indentation include:%!% @ C_INDENT%!% @ C_BRACE%!% @ C_BRA_NEWLINE%!% @ C_CONTINUED_OFFSET%!% @ C_Comment_Column (used by c_make_comment) tex.sl Ftex_mode () Mode useful for editing TeX and LaTeX modes. %!% Useful bindings:%!% '"' : tex_insert_quote%!% '\'' : tex_insert_quote%!% '$' : tex_blink_dollar%!% '.' : tex_ldots. Inserts a '.' except if preceeded by two dots. In %!% this case, the dots are converted to \ldots.%!%%!% When tex mode is loaded, 'tex_mode_hook' is called. This hook will allow%!% users to customize the mode. In particular, certain functions here have%!% no keybindings, e.g., 'latex_do_environment'. So, in your jed.rc file,%!% add something like:%!% define tex_mode_hook () {%!% local_setkey ("latex_do_environment", "^C^E");%!% }%!% which binds the function to Ctrl-C Ctrl-E. misc.sl Fmake_tmp_buffer_name Prototype: String make_tmp_buffer_name (String base);%!% Generates a unique buffer name using the string 'base' for the beginning%!% of the name. The buffer name is returned. The buffer is not created. Fappend_string_to_file Prototype: Integer append_string_to_file (String str, String file);%!% The string 'str' is appended to file 'file'. This function returns -1%!% upon failure or the number of lines written upon success.%!% See append_region_to_file for more information. Fwrite_string_to_file Prototype: Integer write_string_to_file (String str, String file);%!% The string 'str' is written to file 'file'. This function returns -1%!% upon failure or the number of lines written upon success.%!% This function does not modify a buffer visiting the file. fortran.sl Ffortran_mode () Mode designed for the purpose of editing FORTRAN files.%!% After the mode is loaded, the hook 'fortran_hook' is called.%!% Useful functions include%!% %!% Function: Default Binding:%!% indent_line TAB%!% fortran_newline RETURN %!% indents current line, inserts newline and indents it.%!% fortran_continue_newline ESC RETURN%!% indents current line, and creates a continuation line on next line.%!% fortran_comment ESC ;%!% comments out current line%!% fortran_uncomment ESC :%!% uncomments current line%!% fortran_electric_label 0-9%!% Generates a label for current line or simply inserts a digit.%!% fortran_next_statement ^C^N%!% moves to next fortran statementm skips comment lines%!% fortran_previous_statement ^C^P%!% moves to previous fortran statement, skips comment lines%!% fortran_ruler ^C^R%!% inserts a ruler above the current line. Press any key to continue%!% fortran_beg_of_subprogram ESC ^A%!% moves cursor to beginning of current subroutine/function%!% fortran_end_of_subprogram ESC ^E%!% moves cursor to end of current subroutine/function%!% %!% Variables include:%!% Fortran_Continue_Char --- character used as a continuation character. %!% By default, its value is "&"%!% Fortran_Comment_String --- string used by 'fortran_comment' to %!% comment out a line. The default string is "C ";%!% Fortran_Indent_Amount --- number of spaces to indent statements in %!% a block. The default is 2. most.sl Fmost_mode () Emulates MOST fileviewer%!% The following keys are defined:%!% SPACE next screen%!% DELETE previous screen%!% / search_forward%!% ? search_backward%!% n find next occurrence%!% q quit most mode (usually kills buffer if not modified)%!% e edit buffer%!% h help summary%!% t Top of Buffer%!% b End of Buffer dired.sl Fdired ()Mode designed for maintaining and editing a directory.%!%%!%To invoke Dired, do @M-x dired@ or @C-x d@ (emacs)%!%%!%Dired will prompt for a directory name and get a listing of files in the%!%requested directory.%!%%!%The primary use of Dired is to "flag" files for deletion and then delete%!%the previously flagged files.%!%%!% @d@ Flag this file for deletion.%!% @u@ Remove deletion flag on this line.%!% DEL Move point to previous line and remove deletion flag.%!% @~@ Flag all backup files for deletion.%!%%!% @x@ eXpunge all flagged files. Dired will show a list of the%!% files tagged for deletion and ask for confirmation before actually%!% deleting the files.%!%%!% @r@ Rename file on the current line; prompts for a newname%!% @m@ Move tagged files to a new dir; prompts for dir name%!%%!% @g@ Update the entire contents of the Dired buffer%!%%!% @f@ Visit the file described on the current line, like typing%!% @M-x find_file@ and supplying that file name. If current line is a%!% directory, runs dired on the directory and the old buffer is killed.%!%%!% @v@ View the file described on the current line in MOST mode.%!%%!% @M-x dired_search@%!% use fsearch to perform a search through the files listed in the%!% dired buffer from the current point forward. @M-x dired_search@%!% from the visited file will revert to the dired buffer and continue%!% the search from the next file in the list.%!%%!%all the usual motion commands plus some extras:%!%%!% @C-n@ @n@ SPC%!% move point to the next line (at the beginning of the file name)%!%%!% @C-p@ @p@%!% move point to the previous line (at the beginning of the file name)%!%%!% @M-x dired_kill_line@ @^K@ (emacs)%!% removes a line from the dired buffer util.sl help.sl Fexpand_keystring Prototype: String expand_keystring (String key)%!% This function takes a key string that is suitable for use in a 'setkey'%!% definition and expands it to a human readable form. %!% For example, it expands ^X to the form "Ctrl-X", ^[ to "ESC", %!% ^[[A to "UP", etc...%!% See also: setkey buf.sl site.sl Fdircat(dir, file) A function to contat a directory with a filename. Basically checks%!% for the final slash on the dir and adds on if necessary VInfo_Directory  A Comma separated list of info directories to search. VC_CONTINUED_OFFSET  Prototype: Integer C_CONTINUED_OFFSET = 2;%!% This variable controls the indentation of statements that are continued%!% onto the next line as in the following example:%!% @ if (something)%!% @ continued_statement ();%!% @ else%!% @ another_continued_statement ();%!% Related Variables: @C_BRA_NEWLINE@, @C_BRACE@, @C_INDENT@, @C_Colon_Offset@ VC_Colon_Offset  Integer C_Colon_Offset = 1;%!% This variable may be changed to adjust the indentation of @case@ statements%!% in C-Mode.%!% See also: @c_mode@%!% Related Variables: @C_BRA_NEWLINE@, @C_BRACE@, @C_INDENT@, @C_Colon_Offset@ Fstrncat Prototype: Void strncat (String a, String b, ..., Integer n);%!% Returns concatenated string "abc..." Fbol_skip_white Prototype: Void bol_skip_white ();%!% This function combines the two functions @bol@ and @skip_white@ into a%!% single operation. That is, it moves the point to the beginning of the%!% line and then skips over whitespace to the first non-whitespace character.%!% See also: @bol@, @skip_white@, @skip_chars@ Fbskip_white Prototype: Void bskip_white ();%!% This function skips backward over whitespace.%!% Note: it does not cross lines.%!% See also: @skip_white@, @bskip_chars@ VC_Comment_Column  Column to begin a C comment--- used by c_make_comment Fgo_up Prototype: Void go_up (Integer n);%!% Move up 'n' lines.%!% See also: up, go_down Fup_1 Prototype: Void up_1 ();%!% Move up 1 line. If successful, returns 1 otherwise it returns 0.%!% See also: @up@, @go_down@, @go_up@, @go_up_1@ Fgo_up_1 Prototype: Void go_up_1 ();%!% Move up exactly 1 line if possible.%!% See also: up, go_down Fgo_down Prototype: Void go_down (Integer n);%!% Move down 'n' lines.%!% See also: go_up, down Fdown_1 Prototype: Void down_1 ();%!% Move down exactly one lines. If sucessful, 1 is returned otherwise%!% zero is returned.%!% See also: @go_up@, @down@, @go_down_1@ Fgo_down_1 Prototype: Void go_down_1 ();%!% Move down one lines.%!% See also: go_up, down Fgo_left Prototype: Void go_left (Integer n);%!% Move backward 'n' characters.%!% See also: left, go_right Fgo_right Prototype: Void go_right (Integer n);%!% Move forward 'n' characters.%!% See also: right, go_left Frunhooks Prototype: Void runhooks (String fun)%!% if S-Lang function 'fun' is defined, execute it. It does nothing if 'fun'%!% does not exist. Flocal_setkey Prototype: Void local_setkey (String fun, String key);%!% This function is like 'setkey' but unlike 'setkey' which operates on the%!% global keymap, 'local_setkey' operates on the current keymap which may or%!% may not be the global one.%!% See also: setkey, definekey, local_unsetkey Flocal_unsetkey Prototype: Void local_unsetkey (String key);%!% This function is like 'unsetkey' but unlike 'unsetkey' which unsets a key%!% from the global keymap, 'local_unsetkey' operates on the current keymap%!% which may or may not be the global one.%!% See also: unsetkey, undefinekey, local_setkey Finsert_char () insert a character into a buffer.%!% This function should be called instead of 'insert' when it is desired to%!% insert a 1 character string. Unlike 'insert', insert_char takes an integer%!% argument. For example, %!% 'x' insert_char%!% and %!% "x" insert%!% are functionally equivalent but insert_char is more memory efficient. Fnewline Prototype: Void newline (Void);%!% insert a newline in the buffer at point.%!% See also: insert, insert_char Finsert_single_space () insert a single space into the buffer. Flooking_at_char Prototype: Integer looking_at_char (Integer ch);%!% This function returns non-zero if the character at the current editing%!% point is 'ch' otherwise it retuns zero. This function performs a case %!% sensitive comparison. Ffile_type(file) returns type of file. e.g., /usr/a.b/file.c --> c Ftext_mode() Mode for indenting and wrapping text%!% Functions that affect this mode include:%!%%!% Function: Default Binding:%!% indent_line TAB%!% newline_and_indent RETURN%!% format_paragraph ESC Q%!% narrow_paragraph ESC N%!%%!% Variables include:%!% WRAP_INDENTS, WRAP%!% TAB, TAB_DEFAULT Fno_mode() Generic mode not designed for anything in particular.%!% See: text_mode, c_mode Vmode_hook_pointer  called from mode_hook. Returns 0 if it is desired that control return%!% to mode_hook or 1 if mode hook should exit after calling mode_hook_ptr Fmodeline_hook() check first line for the simplest Emacs mode statement%!% -*- modename -*- Fadd_mode_for_extension Prototype: Void add_mode_for_extension (String mode, String ext);%!% This function modifies Mode_List in such a way that when a file with %!% filename extension `ext' is read in, function strcat (mode, "_mode")%!% will be called to set the mode. That is, the first parameter 'mode' %!% is the name of a mode without the '_mode' added to the end of it. Fmode_hook (ext) This is a hook called by find_file routines to set the mode%!% for the buffer. This function takes one parameter, the filename extension%!% and returns nothing. Fset_buffer_modified_flag(modif) sets buf modified flag. If argument is 1, mark%!% buffer as modified. If argument is 0, mark buffer as unchanged. Fbuffer_modified () returns non-zero if the buffer modified flag is set. It returns zero%!% if the buffer modified flag is not been set. This works on the %!% current buffer. See also 'set_buffer_modified_flag'. Fset_buffer_undo(modif) set undo mode for buffer. If argument is 1, undo is on. 0 turns it off Fset_readonly(n) Takes 1 parameter: 0 turn off readonly%!% 1 turn on readonly Fset_overwrite(n) Takes 1 parameter: 0 turn off overwrite%!% 1 turn on overwrite Vhelp_for_help_string  string to display at bottom of screen upon JED startup and when%!% user executes the help function. Fread_file_from_mini Prototype: String read_file_from_mini (String p);%!% This function prompts the user for a file name using @p@ as a prompt.%!% It reads a filename with completion from the mini-buffer and returns%!% it.%!% Related Functions: @read_with_completion@, @read_mini@ Fexpand_jedlib_file(f) Search for FILE in directories specified by JED_LIBRARY returning%!% expanded pathname if found or the Null string otherwise. Fread_string_with_completion Prototype: String read_string_with_completion (prompt, dflt, list)%!% This function takes 3 String parameters and returns a String. The%!% first parameter is used as the prompt, the second parameter is the %!% default value to be returned and the third parameter is a list to be used%!% for completions. This list is simply a comma separated list of strings. VStartup_With_File  If non-zero, startup by asking user for a filename if one was%!% not specified on the command line. Fjed_startup_hook() Function that gets executed right before JED enters its main editing%!% loop. This is for last minute modifications of data structures that%!% did not exist when startup files were loaded (e.g., minibuffer keymap) Fwhatpos () display row and column information in minibuffer Ffind_jedlib_file(file) find a file from JED_LIBRARY, returns number of lines read or 0 if not %!% found. VHelp_File  name of the file to load when the help function is called. Fhelp() Pop up a window containing a help file. The help file that is read%!% in is given by the variable Help_File. Fmake_backup_filename(dir, file) returns backup filename. Arguments to function are dir and file. Fmake_autosave_filename(dir, file) returns autosave filename. Arguments to function are dir and file. Fparse_filename(fn) breaks a filespec into dir filename--- %!% this routine returns dir and filename such that a simple strcat will%!% suffice to put them together again. For example, on unix, /a/b/c%!% returns /a/b/ and c Ffind_file_hook(file) called AFTER a file is read in to a buffer. FILENAME is on the stack. Fbuffer_filename Prototype: String buffer_filename ();%!% Returns the name of the file associated with the current buffer. If %!% there is none associated with it, the empty string is returned. Fbuffer_format_in_columns() Prototype Void buffer_format_in_columns();%!% takes a buffer consisting of a sigle column of items and converts the%!% buffer to a multi-column format. Fpop_n Prototype: Void pop_n (Integer n); Fmake_tmp_file Prototype: String make_tmp_file (String base);%!% This function returns a unique file name that begins with @base@. Fcommand_line_hook() called from main in JED executable. Fdeln Prototype: Void deln (Integer n);%!% delete the next 'n' characters. s returned. Fbuffer_format_in_columns() Prototype Void buffer_format_in_columns();%!% takes a buffer consisting of a sigle column of items and converts the%!% buffer to a multi-column format. Fpop_n Prototype: Void pop_n (Integer n); Fmake_tmp_file Prototype: String make_tmp_file (String base);%!% This function retujed-0.97.12/lib/jedhelp.sl000064400000000000003000000026760603742311100150210ustar00rootsys00000000000000% % This is supposed to be an easy to use help facility % $1 = " *EZhelp*"; !if (keymap_p($1)) { make_keymap($1); definekey("page_up", "^?", $1); definekey("page_up", "u", $1); definekey("page_up", "U", $1); definekey("page_down", " ", $1); definekey("page_down", "d", $1); definekey("page_down", "D", $1); definekey("search_forward", "S", $1); definekey("search_forward", "F", $1); definekey("search_forward", "f", $1); definekey("search_forward", "s", $1); definekey("search_backward", "b", $1); definekey("search_backward", "B", $1); definekey("ezhelp_quit", "q", $1); definekey("ezhelp_quit", "Q", $1); } variable EZhelp_Last_Buffer; define ezhelp_quit() { sw2buf(EZhelp_Last_Buffer); } define jed_easy_help(file) { variable c, hlpbuf, hlpfile, err, flags, dir; hlpbuf = " *EZhelp*"; !if (strcmp(hlpbuf, whatbuf())) return; EZhelp_Last_Buffer = whatbuf(); err = strcat("Help file not found: ", file); ERROR_BLOCK { ezhelp_quit(); } sw2buf(hlpbuf); getbuf_info(); =flags; =hlpbuf; =dir; =hlpfile(); if (strcmp(hlpfile, file)) { hlpfile = expand_jedlib_file(file); !if (strlen(hlpfile)) error(err); erase_buffer(); set_readonly(0); if (insert_file(hlpfile) <= 0) error(err); setbuf_info(file, dir, hlpbuf, flags); bob(); set_readonly(1); } use_keymap(hlpbuf); set_status_line(" u:Page Up, d:Page Down, s:Search, q:Quit Help (%p)", 0); } t found: ", file); ERROR_BLOCK { ezhelp_quit(); } jed-0.97.12/lib/bibtex.sl000064400000000000003000000273470603742311100146650ustar00rootsys00000000000000% BIBTeX mode for JED % % Version: 1.4 % Author: Carsten Tinggaard Nielsen, tinggard@iesd.auc.dk % Update: 29 May 1995 % ----------------------------------------------------------------------- % History: % 1.4 29 May 1995 % fixed bug refering to bibtex_insert_quote: using tex_insert_quote % added usage of LaTeX font commands: ^C^F % as suggested by Franz-Josef Knelangen % 1.3 16 May 1995 % next/prev field can now position correct in "" and "{}" % changed def of next entry to ESC N / Meta N % changed def of prev entry to ESC P / Meta P % ESC p and ESC P does the same job now. % 1.2 11 May 1995 % from fjk@ruf.uni-freiburg.de (Franz-Josef Knelangen): % next field ^n % prev field ^p % next entry ESC n % prev entry ESC p % 1.1 10 May 1995 % Optimized code after suggestions by John E. Davis % 1.0 08 May 1995 % Public release to comp.editors,comp.text.tex,alt.lang.s-lang % ----------------------------------------------------------------------- % % When bibtex mode is loaded, 'bibtex_mode_hook' is called. % This hook will allow users to customize the mode. % So, in your jed.rc /.jedrc file, % add something like: % define bibtex_mode_hook () { % local_setkey ("bibtex_Article", "^C^E^A"); % } % which binds the function to Ctrl-C Ctrl-E Ctrl-A % % For customization, the 'bibtex_item_hook' is called everytime a % template is entered into the buffer. % To add your own entry, % then add something like (in your jed.rc /.jedrc file): % define bibtex_item_hook () { % bib_field("myentry"); % } % Your additions will be placed before the note/annote field. % The variable bibtex_item_name holds current name like Article, Manual etc. %------------------------------------------------------------------------- % Load the common definitions if not already loaded. This also defines % the TeX-Mode syntax table !if (is_defined ("tex_font")) () = evalfile("latex"); %------------------------------------------------------------------------- variable bib_OPT_flag = 0; % if true then insert OPT in the field names variable bib_indent = 16; % amount of whitespace before '=' variable bibtex_item_name = Null_String; % name of current item define bib_set_OPT () { bib_OPT_flag = 1; } define bib_unset_OPT () { bib_OPT_flag = 0; } define bib_field (fieldstr) { variable sl; sl = bib_indent - strlen(fieldstr); insert(",\n "); if (bib_OPT_flag) { insert("OPT"); sl -= 3; } insert(Sprintf("%s =", fieldstr, 1)); insert_spaces(sl); if (strcmp(fieldstr,"title")) insert("\"\""); else insert("\"\{\}\""); } define bib_journal () { bib_field("journal"); } define bib_year () { bib_field("year"); } define bib_volume () { bib_field("volume"); } define bib_number () { bib_field("number"); } define bib_pages () { bib_field("pages"); } define bib_month () { bib_field("month"); } define bib_editor () { bib_field("editor"); } define bib_publisher () { bib_field("publisher"); } define bib_series () { bib_field("series"); } define bib_address () { bib_field("address"); } define bib_edition () { bib_field("edition"); } define bib_howpublished () { bib_field("howpublished"); } define bib_booktitle () { bib_field("booktitle"); } define bib_organization () { bib_field("organization"); } define bib_institution () { bib_field("institution"); } define bib_school () { bib_field("school"); } define bib_type () { bib_field("type"); } define bib_chapter () { bib_field("chapter"); } define bib_note () { bib_field("note"); } define bib_author () { bib_field("author"); } define bib_item (itemstr, use_author) { insert(Sprintf("@%s{", itemstr, 1)); bibtex_item_name = itemstr; bib_unset_OPT(); if (use_author) { bib_author();} bib_field("title"); } define bib_itemend (use_note) { bib_field("location"); bib_field("isbn"); bib_field("keywords"); runhooks("bibtex_item_hook"); if (use_note) { bib_note(); } bib_field("annote"); insert("\n}\n\n"); pop(bsearch("{,")); go_right(1); } define bib_cref_and_key() { bib_set_OPT(); bib_field("crossref"); bib_field("key"); } define bibtex_Article () { bib_item("Article", 1); bib_journal(); bib_year(); bib_cref_and_key(); bib_volume(); bib_number(); bib_pages(); bib_month(); bib_itemend(1); } define bibtex_Book () { bib_item("Book", 1); bib_publisher(); bib_year(); bib_cref_and_key(); bib_editor(); bib_volume(); bib_number(); bib_series(); bib_address(); bib_edition(); bib_month(); bib_itemend(1); } define bibtex_preamble () { insert("@Preamble\{\}\n"); go_left(2); } define bibtex_string () { insert("@string\{ = \"\"\}\n"); go_left(7); } define bibtex_Unpublished () { bib_item("Unpublished", 1); bib_note(); bib_cref_and_key(); bib_year(); bib_month(); bib_itemend(0); } define bibtex_TechReport () { bib_item("TechReport", 1); bib_institution(); bib_year(); bib_cref_and_key(); bib_type(); bib_number(); bib_address(); bib_month(); bib_itemend(1); } define bibtex_PhdThesis () { bib_item("PhdThesis", 1); bib_school(); bib_year(); bib_cref_and_key(); bib_address(); bib_month(); bib_type(); bib_itemend(1); } define bibtex_Proceedings () { bib_item("Proceedings", 0); bib_year(); bib_cref_and_key(); bib_editor(); bib_volume(); bib_series(); bib_publisher(); bib_organization(); bib_address(); bib_month(); bib_itemend(1); } define bibtex_Misc () { bib_item("Misc", 0); bib_cref_and_key(); bib_author(); bib_howpublished(); bib_year(); bib_month(); bib_itemend(1); } define bibtex_MastersThesis () { bib_item("MastersThesis", 1); bib_school(); bib_year(); bib_cref_and_key(); bib_address(); bib_month(); bib_type(); bib_itemend(1); } define bibtex_Manual () { bib_item("Manual", 0); bib_cref_and_key(); bib_author(); bib_organization(); bib_address(); bib_edition(); bib_year(); bib_month(); bib_itemend(1); } define bibtex_InProceedings () { bib_item("InProceedings", 1); bib_cref_and_key(); bib_editor(); bib_volume(); bib_number(); bib_series(); bib_pages(); bib_booktitle(); bib_year(); bib_organization(); bib_publisher(); bib_address(); bib_month(); bib_itemend(1); } define bibtex_InCollection () { bib_item("InCollection", 1); bib_cref_and_key(); bib_booktitle(); bib_publisher(); bib_year(); bib_editor(); bib_volume(); bib_number(); bib_series(); bib_type(); bib_chapter(); bib_pages(); bib_address(); bib_edition(); bib_month(); bib_itemend(1); } define bibtex_InBook () { bib_item("InBook", 1); bib_chapter(); bib_cref_and_key(); bib_publisher(); bib_year(); bib_editor(); bib_pages(); bib_volume(); bib_number(); bib_series(); bib_address(); bib_edition(); bib_type(); bib_month(); bib_itemend(1); } define SearchInThisLine(str) { % return 1 if str is found at current line variable thisline = what_line(); variable res = 0; bol(); if (fsearch(str)) if (thisline == what_line()) res = 1; !if (res) { goto_line(thisline); bol(); } return res; } variable bibtex_remove_value = 0; % 0:nothing removed 1:OPT 2:killed define bibtex_removeOPT () { % remove the string OPT from the current line % if there is no text in the entry then the line is deleted % ensure beginning of current line bol(); bibtex_remove_value = 0; % if current line has OPT then go on if (SearchInThisLine(" OPT")) { % replace OPT with spaces after = go_right(1); deln(3); if (SearchInThisLine(" =")) { go_right(2); insert_spaces(3); } bibtex_remove_value = 1; % if the line has no information then kill it if (SearchInThisLine("\"\"")) { delete_line(); bibtex_remove_value = 2; } } } define bibtex_clean_entry () { % remove lines where field starts with OPT and ends with "" % remove lines if the contains no information % if lines has OPT and "" then OPT is removed and % line is adjusted accordingly % the stopmark is "}" at the first position in a line or eobp(). pop(bsearch("@")); go_down_1(); while (looking_at_char('}') == 0) { bibtex_removeOPT(); if (bibtex_remove_value == 1) go_down(1); % removed OPT in line with content !if (bibtex_remove_value) { % did nothing, check for empty line if (SearchInThisLine("\"\"")) delete_line(); else go_down_1(); } bol(); } % there must not be a comma after the last entry go_left(2); if (looking_at_char(',')) del(); bol(); go_down(3); } define bibtex_no(whatdir, whatstr) { message(Sprintf("There is no %s %s", whatdir, whatstr, 2)); } define bibtex_no_next(whatstr) { bibtex_no("next", whatstr); } define bibtex_no_prev(whatstr) { bibtex_no("previous", whatstr); } define bibtex_next_entry() { % jump to the next entry: Article, Manual if (fsearch("@")) { % first char of entry pop(fsearch("{")); % point at label go_right(1); } else bibtex_no_next("entry"); } define bibtex_prev_entry() { % jump to the previous entry: Article, Manual if (bsearch("}")){ % last char of entry pop(bsearch("@")); % first char of entry pop(fsearch("{")); % point at label go_right(1); } else bibtex_no_prev("entry"); } define bibtex_go_into_field() { % A std. field is of the form "" % the title field is of the form "{}" % if the field is of the title form "{}" the % posiiton the cursor between the braces. go_right(2); if (looking_at("{")) go_right(1); } define bibtex_next_field() { % jump to the next field: author, title if (fsearch(" \"")) bibtex_go_into_field(); else bibtex_no_next("field"); } define bibtex_prev_field() { % jump to the previous field: author,title bol(); if (bsearch(" \"")) bibtex_go_into_field(); else bibtex_no_prev("field"); } variable bibtexName = "BibTeX"; variable bibtexModeName = strcat(bibtexName, "-Mode"); !if (keymap_p(bibtexModeName)) { make_keymap (bibtexModeName); definekey ("tex_insert_quote", "\"", bibtexModeName); definekey ("tex_insert_quote", "'", bibtexModeName); definekey ("tex_blink_dollar", "$", bibtexModeName); } define bibtex_mode () { use_keymap (bibtexModeName); setmode (bibtexName, 0x1 | 0x20); set_buffer_hook ("par_sep", "tex_paragraph_separator"); set_buffer_hook ("wrap_hook", "tex_wrap_hook"); TAB = 0; % pure spaces in this mode local_setkey("bibtex_Article", "^Ca"); local_setkey("bibtex_Book", "^Cb"); local_setkey("bibtex_Unpublished", "^Cu"); local_setkey("bibtex_string", "^Cs"); local_setkey("bibtex_TechReport", "^Ct"); local_setkey("bibtex_PhdThesis", "^CT"); local_setkey("bibtex_preamble", "^CP"); local_setkey("bibtex_Proceedings", "^Cp"); local_setkey("bibtex_Misc", "^CM"); local_setkey("bibtex_MastersThesis", "^Cm"); local_setkey("bibtex_Manual", "^C^M"); local_setkey("bibtex_InProceedings", "^CI"); local_setkey("bibtex_InCollection", "^Ci"); local_setkey("bibtex_InBook", "^CB"); local_setkey("bibtex_removeOPT", "^C^O"); local_setkey("bibtex_clean_entry", "^C^C"); local_setkey("bibtex_next_field", "^N"); local_setkey("bibtex_prev_field", "^P"); local_setkey("bibtex_next_entry", "^[N"); local_setkey("bibtex_prev_entry", "^[P"); local_setkey("tex_font", "^C^F"); runhooks ("bibtex_mode_hook"); } %-----------------------------------------------------------% define bibtex_info_find_node () { variable node; node = read_mini ("Node:", Null_String, Null_String); !if (strlen (node)) return; info_mode (); info_find_node ("(bibtex)top"); info_find_node (strcat ("(bibtex)", node)); } local_setkey("bibtex_prev_field", "^P"); local_setkey("bibtex_next_entry", "^[N"); local_setkey("bibtex_prev_entry", "^[P"); local_setkey("tex_font", "^C^F"); runhooks ("bibtex_mode_hook"); } %-----------------------------------------------------------% define bibtex_jed-0.97.12/lib/latex.sl000064400000000000003000000623260603742311200145220ustar00rootsys00000000000000% latex.sl % % AUC-TeX style LaTeX-mode (v0.18) by Kevin Humphreys % % For JED (v0.97.9b) by John E. Davis % % Based on AUC-TeX (v9.1i) by Per Abrahamsen % % Differences from AUC-TeX 9: - no shell interaction commands % - simplified insert TeX macro (C-c RET) % ------------------------------------------------------------------------ % % TO USE THIS MODE: add the line: % % add_mode_for_extension ("latex", "tex"); % % to your .jedrc file. % % To override the default values below, simply declare and initialize % the approriate variables in your .jedrc file, e.g., % % variable LaTeX_default_options = "12pt,a4paper"; % variable LaTeX_default_document_style = "article"; % % To make LaTeX209 the default set LaTeX_default_documentstyle variable to a % non-null value (e.g. "article"). % % Other variables to change in the latex mode hook include: % % variable LaTeX_default_documentclass = "article"; % for LaTeX 2e % variable LaTeX_default_options = Null_String; % variable LaTeX_default_section = "section"; % variable LaTeX_default_environment = "itemize"; % variable LaTeX_default_figure_label = "fig:"; % variable LaTeX_default_table_label = "tab:"; % variable LaTeX_default_section_label = "sec:"; % variable LaTeX_default_documentstyle = Null_String; % for LaTeX 2.09 % ------------------------------------------------------------------------ % CHANGES HISTORY: % --- % Modified to work with jed0.97-5. % --- v0.17-0.18 % fixed indent_line to keep the correct cursor position % --- v0.16-0.17 % added latex_help (C-c i) using latex.texi info file (should be on C-h C-l) % added completion for documentclass/style, sections, environments % added tex_complete_symbol (M-TAB) using ltx-comp.dat file % added simple tex_insert_macro (C-c RET) with completion from ltx-comp.dat % added tex_current_env for use by tex_mark_environment etc. % --- v0.15-0.16 (released 2/11/94) % added insertions for letter class % used built-in indent_hook for indentation % added tex_embrace for font specifier insertion using region % added latex_embrace_env for environment insertion using region % added latex_change_env for C-c C-e with prefix arg % made tex_mark_environment more intuitive by doing fsearch first % --- v0.14-0.15 (released 30/10/94) % added an attempt to do indentation % --- v0.13-0.14 (released 27/10/94) % added option to use latex209 font selections and documentstyle % added C-c : for uncomment_region and made uncomment_region more robust % --- v0.12-0.13 (released 25/10/94) % always pass env to insert_env functions % fixed insert_figure_env to prompt for center environment % fixed insert_list_env to insert \item % --- v0.11-0.12 (first release 20/10/94) % added math mode % added all standard environments %------------------------------------------------------------------------- % Load the common definitions if not already loaded. This also defines % the TeX-Mode syntax table !if (is_defined ("tex_ldots")) () = evalfile("texcom"); % ---------------------------------------------------------------------------- % Exported global variables % !if (is_defined ("LaTeX_default_documentclass")) variable LaTeX_default_documentclass = "article"; % for LaTeX 2e !if (is_defined ("LaTeX_default_options")) variable LaTeX_default_options = Null_String; !if (is_defined ("LaTeX_default_section")) variable LaTeX_default_section = "section"; !if (is_defined ("LaTeX_default_environment")) variable LaTeX_default_environment = "itemize"; !if (is_defined ("LaTeX_default_figure_label")) variable LaTeX_default_figure_label = "fig:"; !if (is_defined ("LaTeX_default_table_label")) variable LaTeX_default_table_label = "tab:"; !if (is_defined ("LaTeX_default_section_label")) variable LaTeX_default_section_label = "sec:"; !if (is_defined ("LaTeX_default_documentstyle")) variable LaTeX_default_documentstyle = Null_String; % for LaTeX 2.09 %----------------------------------------------------------------------------- % documentclass/style symbols variable LaTeX_classes = "book,article,letter,slides,report"; % section symbols variable LaTeX_sections = "part,chapter,section,subsection,subsubsection,paragraph,subparagraph"; % environment symbols variable LaTeX_environments = "document,enumerate,itemize,list,trivlist,picture,tabular,array,eqnarray,equation,minipage,description,figure,table,thebibliography,theindex,sloppypar,tabbing,verbatim,flushright,flushleft,displaymath,math,quote,quotation,"; % problems with above line over 255 chars. LaTeX_environments = strcat(LaTeX_environments,"abstract,center,titlepage,verse"); % Load LaTeX-math-mode as required autoload("latex_math_mode", "ltx-math"); !if (keymap_p("LaTeX-Mode")) { make_keymap ("LaTeX-Mode"); % from tex.sl definekey ("tex_insert_quote", "\"", "LaTeX-Mode"); definekey ("tex_insert_quote", "'", "LaTeX-Mode"); definekey ("tex_blink_dollar", "$", "LaTeX-Mode"); definekey ("tex_ldots", ".", "LaTeX-Mode"); % AUC-TeX bindings definekey ("tex_insert_braces", "^C{", "LaTeX-Mode"); definekey ("tex_font", "^C^F", "LaTeX-Mode"); definekey ("latex_environment", "^C^E", "LaTeX-Mode"); definekey ("latex_section", "^C^S", "LaTeX-Mode"); definekey ("latex_close_environment", "^C]", "LaTeX-Mode"); definekey ("latex_insert_item", "^C^J", "LaTeX-Mode"); definekey ("tex_comment_region", "^C;", "LaTeX-Mode"); definekey ("tex_uncomment_region", "^C:", "LaTeX-Mode"); definekey ("tex_comment_paragraph", "^C%", "LaTeX-Mode"); definekey ("tex_mark_environment", "^C.", "LaTeX-Mode"); definekey ("tex_mark_section", "^C*", "LaTeX-Mode"); definekey ("latex_math_mode", "^C~", "LaTeX-Mode"); definekey ("tex_insert_macro", "^C^M", "LaTeX-Mode"); definekey ("tex_complete_symbol", "^[^I", "LaTeX-Mode"); definekey ("latex_help", "^Ci", "LaTeX-Mode"); % indentation definekey ("latex_indent_next_line", "^J", "LaTeX-Mode"); definekey ("latex_indent_region", "^C^Q^R", "LaTeX-Mode"); definekey ("latex_indent_section", "^C^Q^S", "LaTeX-Mode"); definekey ("latex_indent_environment", "^C^Q^E", "LaTeX-Mode"); } % Font Selection - LaTeX2e define tex_embrace(pre, post) { if (markp()) { % if region is set check_region (1); pop_mark(1); insert(pre); pop_spot(); insert(post); } else { % if not mid (or end of) word just insert normally go_left(1); if (looking_at_char(' ') or looking_at_char('\t') or looking_at_char('\n')) { go_right(1); insert(pre); push_spot(); insert(post); pop_spot(); } else { % surround word, including any initial '\' go_right(1); push_spot(); bskip_word(); go_left(1); !if (looking_at_char('\\')) go_right(1); insert(pre); skip_word(); insert(post); pop_spot(); } } } define tex_insert_font (pre, post, arg) { if (arg == -1) tex_embrace(pre, post); else % if prefix argument { push_spot(); () = bsearch("\\"); if (looking_at ("\\text") or looking_at ("\\emph")) { delete_word(); del (); insert (pre); } pop_spot (); } } define tex_delete_font () { push_spot(); () = bsearch("\\"); if (looking_at ("\\text") or looking_at ("\\emph")) { delete_word(); del (); () = fsearch ("}"); del (); } pop_spot (); } define tex_font () { variable arg = prefix_argument(-1); variable brace = "}"; switch (getkey()) { case 2 : "\\textbf{";} % C-b { case 3 : "\\textsc{";} % C-c { case 5 : "\\emph{";} % C-e { case 6 : "\\textsf{";} % C-f { case 9 : "\\textit{";} % C-i { case 13 : "\\textmd{";} % C-m { case 14 : "\\textnormal{";} % C-n { case 18 : "\\textrm{";} % C-r { case 19 : "\\textsl{";} % C-s { case 20 : "\\texttt{";} % C-t { case 21 : "\\textup{";} % C-u { case 4 : tex_delete_font (); return; } % C-d { pop(); return;} tex_insert_font ( (), brace, arg); } % Command Insertion % environments: define tex_current_env () { % find previous unmatched \begin statement variable env = Null_String, count; push_mark(); bob(); narrow(); eob (); while (bsearch("\\begin{")) { count = 1; push_spot(); go_right(7); push_mark(); () = ffind("}"); env = bufsubstr(); push_spot(); while (fsearch(Sprintf("\\\\begin{%s}", env, 1)) and down_1 ()) count++; pop_spot(); while (fsearch(Sprintf("\\\\end{%s}", env, 1)) and down_1 ()) count--; pop_spot(); if (count > 0) break; } widen(); return env; } define latex_embrace_env(pre, post) { if (markp()) { check_region (0); exchange_point_and_mark (); insert (pre); pop_mark (1); insert (post); %% This was: % check_region(1); % pop_mark(1); insert(pre); % pop_spot(); insert(post); } else { insert(pre); indent_line (); eol(); push_spot(); newline(); insert(post); pop_spot(); } } define latex_insert_simple_env (env) { latex_embrace_env(Sprintf("\\\\begin{%s}\n", env, 1), Sprintf("\\\\end{%s}\n", env, 1)); } define latex_insert_item_env (env) { variable braces = " "; !if (strcmp(env, "description")) braces = "[]"; latex_embrace_env(Sprintf("\\\\begin{%s}\n\\\\item%s", env, braces, 2), Sprintf("\\\\end{%s}\n", env, 1)); () = bfind("]"); } define latex_insert_array_env (env) { variable position = read_mini ("Enter Position:", Null_String, "[htbp]"); variable format = read_mini ("Enter Format:", Null_String, Null_String); latex_embrace_env(Sprintf("\\\\begin{%s}%s{%s}\n", env, position, format, 3), Sprintf("\\\\end{%s}\n", env, 1)); } define latex_insert_label_env (env) { variable label = read_mini ("Enter Label:", Null_String, Null_String); if (strcmp(label, Null_String)) label = Sprintf("\\\\label{%s}\n", label, 1); latex_embrace_env(Sprintf("\\\\begin{%s}\n%s", env, label, 2), Sprintf("\\\\end{%s}\n", env, 1)); } define latex_insert_figure_env (env) { variable label_prefix = Null_String; switch (env) { case "figure" : label_prefix = LaTeX_default_figure_label; } { case "figure*" : label_prefix = LaTeX_default_figure_label; } { case "table" : label_prefix = LaTeX_default_table_label; } { case "table*" : label_prefix = LaTeX_default_table_label; } { pop(); } variable position = read_mini ("Enter Position:", Null_String, "[htbp]"); variable caption = read_mini ("Enter Caption:", Null_String, Null_String); if (strcmp(caption, Null_String)) caption = Sprintf("\\\\caption{%s}\n", caption, 1); variable label = read_mini ("Enter Label:", Null_String, label_prefix); if (strcmp(label, label_prefix)) label = Sprintf("\\\\label{%s}\n", label, 1); else label = Null_String; latex_embrace_env(Sprintf("\\\\begin{%s}%s\n", env, position, 2), Sprintf("%s%s\\\\end{%s}\n", caption, label, env, 3)); push_spot(); !if (strcmp(env, "figure") and strcmp(env, "figure*")) { flush ("Center Figure? (y/n)"); if (getkey() == 'y') { newline(); latex_insert_simple_env ("center"); pop_spot(); go_down(2); push_spot(); } } pop_spot(); } define latex_insert_list_env (env) { variable label = read_mini ("Enter Default Label:", Null_String, Null_String); latex_embrace_env(Sprintf("\\\\begin{%s}{%s}{}\n\\\\item ", env, label, 2), Sprintf("\\\\end{%s}\n", env, 1)); } define latex_insert_minipage_env (env) { variable position = read_mini ("Enter Position:", Null_String, "[htbp]"); variable width = read_mini ("Enter Width:", "4cm", Null_String); latex_embrace_env(Sprintf("\\\\begin{%s}%s{%s}\n", env, position, width, 3), Sprintf("\\\\end{%s}\n", env, 1)); } define latex_insert_picture_env (env) { variable width = read_mini ("Enter Width:", Null_String, Null_String); variable height = read_mini ("Enter Height:", Null_String, Null_String); variable x_offset = read_mini ("Enter X Offset:", "0", Null_String); variable y_offset = read_mini ("Enter Y Offset:", "0", Null_String); variable offset = Null_String; if (strcmp(x_offset, "0") or strcmp(y_offset, "0")) offset = Sprintf("(%s,%s)", x_offset, y_offset, 2); latex_embrace_env(Sprintf("\\\\begin{%s}(%s,%s)%s\n", env, width, height, offset, 4), Sprintf("\\\\end{%s}\n", env, 1)); } define latex_insert_bib_env (env) { variable label = read_mini ("Enter Label for Bibitem:", Null_String, "99"); variable blabel = read_mini ("Enter (Optional) Bibitem Label:", Null_String, Null_String); if (strlen(blabel)) blabel = Sprintf("[%s]", blabel, 1); variable key = read_mini ("Enter Key:", Null_String, Null_String); latex_embrace_env(Sprintf("\\\\begin{%s}{%s}\n\\\\bibitem%s{%s}", env, label, blabel, key, 4), Sprintf("\\\\end{%s}\n", env, 1)); } define latex_insert_letter_args () { push_spot (); insert ("\\address{}\n\\signature{}\n\\begin{letter}{}\n\\opening{}\n\n\n\n\\closing{}\n\\end{letter}"); pop_spot (); () = ffind ("}"); } define latex_insert_document_env () { variable class = read_with_completion(LaTeX_classes, "Enter Document Class:", LaTeX_default_documentclass, Null_String, 's'); variable options = read_mini ("Enter Class Options:", LaTeX_default_options, Null_String); if (strlen (options)) options = Sprintf("[%s]", options, 1); bob (); insert (Sprintf("\\\\documentclass%s{%s}\n\n", options, class, 2)); insert ("\\begin{document}\n\n\n\n\\end{document}\n"); go_up(3); !if (strcmp(class, "letter")) latex_insert_letter_args(); } define latex_change_env (env) { push_spot(); variable oldenv = tex_current_env(); if (strlen(oldenv)) { () = ffind("{"); go_right(1); push_mark(); () = ffind("}"); del_region(); insert(env); pop_spot(); push_spot(); if (fsearch(Sprintf("\\\\end{%s}", oldenv, 1))) { () = ffind("{"); go_right(1); push_mark(); () = ffind("}"); del_region(); insert(env); } } pop_spot(); } % This function takes a single argument which will ride on the stack define latex_insert_env () { dup (); % 2 copies, 1 for switch and for function switch () { case "document" : pop (); latex_insert_document_env () } { case "enumerate" : latex_insert_item_env ( () ) } { case "itemize" : latex_insert_item_env ( () ) } { case "list" : latex_insert_list_env ( () ) } { case "trivlist" : latex_insert_item_env ( () ) } { case "picture" : latex_insert_picture_env ( () ) } { case "tabular" : latex_insert_array_env ( () ) } { case "tabular*" : latex_insert_array_env ( () ) } { case "array" : latex_insert_array_env ( () ) } { case "eqnarray" : latex_insert_label_env ( () ) } { case "eqnarray*" : latex_insert_label_env ( () ) } { case "equation" : latex_insert_label_env ( () ) } { case "minipage" : latex_insert_minipage_env ( () ) } { case "description" : latex_insert_item_env ( () ) } { case "figure" : latex_insert_figure_env ( () ) } { case "figure*" : latex_insert_figure_env ( () ) } { case "table" : latex_insert_figure_env ( () ) } { case "table*" : latex_insert_figure_env ( () ) } { case "thebibliography" : latex_insert_bib_env ( () ) } { case "theindex" : latex_insert_item_env ( () ) } { pop(); latex_insert_simple_env ( () ) } } define latex_environment () { variable arg = prefix_argument(-1); variable env = LaTeX_default_environment; if (bobp) env = "document"; env = read_with_completion(LaTeX_environments, "Enter Environment Name:", env, Null_String, 's'); if (strcmp(env, "document")) LaTeX_default_environment = env; if (arg == -1) latex_insert_env (env); else latex_change_env (env); } define latex_close_environment () { push_spot (); variable env = tex_current_env(); pop_spot(); if (strlen (env)) { insert (Sprintf("\\\\end{%s}\n", env, 1)); } } % sectioning define latex_section () { LaTeX_default_section = read_with_completion (LaTeX_sections, "Enter Section Level:", LaTeX_default_section, Null_String, 's'); variable name = read_mini ("Enter Section Name:", Null_String, Null_String); variable label = read_mini ("Enter Label Name:", Null_String, LaTeX_default_section_label); eol (); newline (); insert (Sprintf("\\\\%s{%s}\n", LaTeX_default_section, name, 2)); if (strcmp(label, LaTeX_default_section_label)) insert (Sprintf("\\\\label{%s}\n", label, 1)); newline (); } % commenting define tex_insert_comment () { insert("% "); while (down(2) == 2) { go_up_1 (); bol(); insert("% "); } } define tex_uncomment_region () { push_spot (); narrow (); bob (); go_down_1 (); do { go_up_1 (); bol(); if (looking_at("% ")) deln(2); } while (down(2) == 2); widen (); pop_spot (); } define tex_comment_region () { if (-1 == prefix_argument (-1)) { push_spot (); narrow (); bob (); tex_insert_comment (); widen (); pop_spot (); } else tex_uncomment_region(); } define tex_comment_paragraph () { push_spot (); if (-1 == prefix_argument (-1)) { forward_paragraph (); tex_isolate_paragraph (); % pushes spot pop_spot (); bob (); go_down_1 (); tex_insert_comment (); widen (); } else { push_spot (); go_up_1 (); bol(); while (looking_at("% ")) { deln(2); go_up_1 (); bol(); } pop_spot (); while (looking_at("% ")) { deln(2); go_down_1 (); } } pop_spot (); } % marking define tex_mark_environment () { push_spot(); variable env = tex_current_env(); if (strlen (env)) { smart_set_mark_cmd(); pop_spot(); if (fsearch(Sprintf("\\\\end{%s}", env, 1))) go_down_1 (); else eob(); } else pop_spot(); } define tex_mark_section () { if (re_bsearch ("\\\\[sub]*section")) { bol(); smart_set_mark_cmd (); go_down_1 (); if (re_fsearch ("\\\\[sub]*section")) { go_up_1 () } else eob(); } else if (bsearch ("\\chapter")) { bol(); smart_set_mark_cmd (); go_down_1 (); if (fsearch ("\\chapter")) { go_up_1 () } else eob(); } } % indentation variable LaTeX_indent_level = 2; variable LaTeX_item_indent = 2; variable TeX_brace_indent_level = 2; % This is a useful function that should be made either an intrinsic or % more available to other packages. define current_indentation () { % return column of first non-whitespace character push_spot(); bol_skip_white(); what_column(); % left on stack pop_spot(); () - 1; } define tex_brace_count_line () { % this will count braces even inside comments variable count = 0; push_spot(); bol(); while (ffind("{")) { count += TeX_brace_indent_level; go_right(1); } bol(); while (ffind("}")) { count -= TeX_brace_indent_level; go_right(1); } pop_spot(); count; } define latex_indent_calculate_last () {} % need dummy to allow recursive defn. define latex_indent_calculate_last () { % return the indentation of the previous normal text bol(); if (bobp()) return 0; % ignore comments do { go_up_1 (); bol_skip_white(); } while (looking_at_char ('%') and not(bobp())); if (looking_at("\\begin{document}")) return current_indentation(); if (looking_at("\\end{verbatim")) { % skip to before start of verbatim environment if (bsearch("\\begin{verbatim")) return latex_indent_calculate_last(); else return 0; } if (looking_at("\\begin{") or looking_at("\\left")) LaTeX_indent_level; else if (looking_at("\\item") or looking_at("\\bibitem")) LaTeX_item_indent; else 0; () + tex_brace_count_line() + current_indentation(); } define latex_indent_calculate () { % return the indentation of the current text bol_skip_white(); % keep verbatim environments flush left if (looking_at("\\begin{verbatim") or looking_at("\\end{verbatim")) return 0; if (looking_at("\\end{") or looking_at("\\right")) return latex_indent_calculate_last() - LaTeX_indent_level; if (looking_at("\\item") or looking_at("\\bibitem")) return latex_indent_calculate_last() - LaTeX_item_indent; latex_indent_calculate_last(); } define latex_indent_line () { push_spot(); latex_indent_calculate(); % on stack pop_spot(); push_spot(); bol(); trim(); whitespace( () ); pop_spot(); } define latex_indent_next_line () { push_spot(); go_down_1 (); latex_indent_line(); pop_spot(); } define latex_indent_region () { check_region(1); pop_mark(1); push_mark(); latex_indent_line(); % set initial line indentation before narrowing pop_spot(); push_spot(); go_up_1 (); narrow(); bob(); while (down_1 ()) % indent line by line (ie slowly) latex_indent_line(); % a good latex_format_paragraph would be nice... widen(); pop_spot(); } define latex_indent_section () { tex_mark_section(); latex_indent_region(); } define latex_indent_environment () { tex_mark_environment(); go_down_1 (); latex_indent_region(); } % misc define tex_insert_braces () { insert ("{}"); go_left(1); } define latex_insert_item () { eol (); insert ("\n\\item "); } % symbol completion define tex_complete_symbol () { variable symbol, completion; variable insertbuf = whatbuf(), searchbuf = "*ltx-comp*"; !if (bufferp(searchbuf)) { sw2buf(searchbuf); insert_file( expand_jedlib_file("ltx-comp.dat") ); bob(); set_buffer_modified_flag(0); sw2buf(insertbuf); bury_buffer(searchbuf); } push_spot(); push_mark(); bskip_word(); symbol = bufsubstr(); setbuf(searchbuf); !if (bol_fsearch(Sprintf("\\\\%s", symbol, 1))) bob(); % wrap to start if (bol_fsearch(Sprintf("\\\\%s", symbol, 1))) { go_right(1); go_right(strlen(symbol)); push_mark(); eol(); completion = bufsubstr(); } else { setbuf(insertbuf); pop_mark(0); pop_spot(); error("No completion found"); } setbuf(insertbuf); pop_spot(); push_spot(); push_mark(); !if (ffind(" ")) eol(); del_region(); insert(completion); pop_spot(); } variable LaTeX_macros = Null_String; define tex_insert_macro () { variable insertbuf = whatbuf(), searchbuf = "*ltx-comp*"; !if (strcmp(LaTeX_macros, Null_String)) { !if (bufferp(searchbuf)) { sw2buf(searchbuf); insert_file( expand_jedlib_file("ltx-comp.dat") ); set_buffer_modified_flag(0); sw2buf(insertbuf); bury_buffer(searchbuf); } sw2buf(searchbuf); bob(); while (bol_fsearch("\\")) { go_right(1); push_mark(); eol(); LaTeX_macros = strcat(strcat(LaTeX_macros, bufsubstr()),","); } sw2buf(insertbuf); } variable macro = read_with_completion (LaTeX_macros, "Enter Macro Name:", Null_String, Null_String, 's'); insert (Sprintf("\\\\%s", macro, 1)); go_left(1); !if (looking_at_char('}')) go_right(1); } % info file interface variable LaTeX_help = Null_String; define latex_help () { variable info_file = "(latex)"; variable latex_buf = whatbuf(), info_buf = "*Info*"; push_spot(); variable guess = tex_current_env(); pop_spot(); !if (strcmp(guess, "document")) guess = Null_String; ERROR_BLOCK { sw2buf(latex_buf); } !if (strcmp(LaTeX_help, Null_String)) { info_find_node(Sprintf("%sList of Commands", info_file, 1)); sw2buf(info_buf); if (fsearch("* Menu:")) go_down_1 (); while (bol_fsearch("* ")) { go_right(2); push_mark(); eol(); go_left(2); LaTeX_help = strcat(strcat(LaTeX_help, bufsubstr()), ","); } } sw2buf(latex_buf); push_spot(); !if (looking_at_char('\\')) { go_left(1); !if (looking_at_char('\\')) { pop_spot(); push_spot(); bskip_word(); go_left(1); } } if (looking_at_char('\\')) { push_mark(); skip_word(); guess = bufsubstr(); } pop_spot(); guess = read_with_completion(LaTeX_help, "Describe LaTeX command:", guess, Null_String, 's'); info_find_node(Sprintf("%s%s", info_file, guess, 2)); pop2buf(info_buf); } %!% Prototype: Void latex_mode (); %!% This mode is designed to facilitate the task of editing latex files. %!% It calls the function @latex_mode_hook@ if it is defined. In addition, %!% if the abbreviation table @"TeX"@ is defined, that table is used. define latex_mode () { variable tex = "TeX"; use_keymap ("LaTeX-Mode"); setmode ("LaTeX", 0x1 | 0x20); set_buffer_hook ("par_sep", "tex_paragraph_separator"); set_buffer_hook ("wrap_hook", "tex_wrap_hook"); set_buffer_hook ("indent_hook", "latex_indent_line"); runhooks("latex_mode_hook"); use_syntax_table ("TeX-Mode"); % This is called after the hook to give the hook a chance to load the % abbrev table. if (abbrev_table_p (tex)) use_abbrev_table (tex); } % overload alternative function definitions for LaTeX 2.09 if required if (strcmp(LaTeX_default_documentstyle, Null_String)) { evalfile("latex209"); pop(); } separator"); set_buffer_hook ("wrap_hook", "tex_wrap_hook"); set_buffer_hook ("indent_hook", "latex_indent_line"); runhooks("latex_mode_hook"); use_syntax_table ("TeX-Mode"); % This is called after the hook to give the hook a chance to load the % abbrev table. if (abbrjed-0.97.12/lib/latex209.sl000064400000000000003000000044200603742311200147440ustar00rootsys00000000000000% latex209.sl % % AUC-TeX style LaTeX209-mode (v0.3) by Kevin Humphreys % % For JED (v0.97.9b) by John E. Davis % % Based on AUC-TeX (v7.3) by Per Abrahamsen % Loaded from latex.sl if LaTeX_default_documentstyle is non-null % (If you don't use LaTeX209 you don't need this file) % CHANGES HISTORY: % Modified for integration into the main jed distribution. % --- v0.2-0.3 % added call to read_with_completion for documentstyle % --- v0.1-0.2 % added insertions for letter style % call tex_embrace for font specifier insertion define latex_insert_document_env () { variable class = read_with_completion(LaTeX_classes, "Enter Document Class:", LaTeX_default_documentstyle, Null_String, 's'); variable options = read_mini ("Enter Style Options:", LaTeX_default_options, Null_String); if (strlen (options)) options = Sprintf("[%s]", options, 1); bob (); insert (Sprintf("\\\\documentstyle%s{%s}\n\n", options, class, 2)); insert ("\\begin{document}\n\n\n\n\\end{document}\n"); go_up(3); !if (strcmp(class, "letter")) latex_insert_letter_args(); } % Font Selection - LaTeX209 define tex_insert_font (pre, post, arg) { if (arg == -1) tex_embrace(pre, post); else % if prefix argument { push_spot(); bsearch("{\\"); pop(); delete_word(); del (); insert (pre); fsearch("}"); pop(); del (); go_left(2); if (looking_at("\\/")) del (); else go_right(2); insert(post); pop_spot (); } } define tex_delete_font () { push_spot(); () = bsearch("{\\"); delete_word(); del (); () = fsearch("}"); del (); go_left(2); if (looking_at("\\/")) deln(2); pop_spot (); } define tex_font () { variable arg = prefix_argument(-1); switch (getkey()) { case 2 : tex_insert_font ("{\\bf ", "}", arg) } % C-b { case 3 : tex_insert_font ("{\\sc ", "}", arg) } % C-c { case 5 : tex_insert_font ("{\\em ", "\\/}", arg) } % C-e { case 9 : tex_insert_font ("{\\it ", "\\/}", arg) } % C-i { case 18 : tex_insert_font ("{\\rm ", "}", arg) } % C-r { case 19 : tex_insert_font ("{\\sl ", "\\/}", arg) } % C-s { case 20 : tex_insert_font ("{\\tt ", "}", arg) } % C-t { case 4 : tex_delete_font () } % C-d { pop(); } } e 2 : tex_insert_font ("{\\bf ", "}", arg) } % C-b { case 3 : tex_insert_font ("{\\sc ", "}", arg) } % C-c { case 5 : tex_insert_font ("{\\em ", "\\/}", arg) } % C-e { case 9 : tex_insert_font ("{\\it ", "\\/}", argjed-0.97.12/lib/linux.sl000064400000000000003000000015470603742311200145420ustar00rootsys00000000000000% % Special file for Linux systems--- do NOT preparse it. % % This file sets up the console keys pgup/dn, etc. % To use it, simply rename it to defaults.sl. variable UCB_Mailer; UCB_Mailer = "/bin/mail"; % The directory where info files are kept. Modify this appropriately. See % 'install.all' for a discussion of this. %Info_Directory = ??? $1 = getenv ("TERM"); if (is_list_element ("linux,console,con80x25,con80x28", $1, ',')) { USE_ANSI_COLORS = 1; % uncomment if your console is a color one! OUTPUT_RATE = 0; TERM_CANNOT_SCROLL = -1; % Truth is, linux console does not scroll well. setkey("bol", "^[[1~"); % home setkey("toggle_overwrite", "^[[2~"); % insert setkey("delete_char_cmd", "^[[3~"); % delete setkey("eol", "^[[4~"); % end setkey("page_up", "^[[5~"); setkey("page_down", "^[[6~"); } getenv ("TERM"); if (is_list_element ("linux,console,con80x25,con80x28", $1, ',')) { USE_ANSI_COLORS = 1; % uncomment if your console is a color onejed-0.97.12/lib/ltx-comp.dat000064400000000000003000000040120603742311200152660ustar00rootsys00000000000000\LaTeX \TeX \\[] \\*[] \addcontentsline{}{}{} \addtocontents{}{} \addtocounter{}{} \addtolength{}{} \addvspace{} \alph{} \and \arabic{} \arraystretch \author{} \bibitem[]{} \bibliography{} \bibliographystyle{} \bigskip \caption{} \centering \circle{} \circle*{} \cite[]{} \cleardoublepage \clearpage \cline{-} \dashbox{}(,)[]{} \date{} \documentclass[]{} \documentstyle[]{} \extracolsep{} \fbox{} \flushbottom \fnsymbol{} \footnote[]{} \footnotemark[] \footnotetext[]{} \frac{}{} \frame{} \framebox[][]{} \fussy \glossary{} \hline \hspace{} \hspace*{} \hyphenation{} \include{} \includeonly{} \index{} \input{} \item[] \kill \label{} \left \lefteqn{} \line(,){} \linebreak[] \linethickness{} \makebox[][]{} \makeglossary \makeindex \marginpar[]{} \markboth{}{} \markright{} \mbox{} \medskip \multicolumn{}{}{} \multiput(,)(,){}{} \newcommand{}[][]{} \newcounter{}[] \newenvironment{}[][]{}{} \newfont \newlength{} \newline \newpage \newsavebox{} \newtheorem{}[]{}[] \nocite{} \nolinebreak[] \nonumber \nopagebreak[] \normalmarginpar \numberline{}{} \onecolumn \oval[](,)[] \overbrace{} \overline{} \pagebreak[] \pagenumbering{} \pageref{} \pagestyle{} \parbox[]{}{} \poptabs \protect \pushtabs \put(,){} \raggedbottom \raggedleft \raggedright \raisebox{}[][]{} \ref{} \refstepcounter{} \renewcommand{}[][]{} \renewenvironment{}[][]{}{} \reversemarginpar \roman{} \rule[]{}{} \samepage \savebox{}[][]{} \sbox{}{} \setcounter{}{} \setlength{}{} \settowidth{}{} \shortstack[]{} \sloppy \smallskip \sqrt[]{} \stackrel{}{} \stepcounter{} \stretch{} \suppressfloats[] \thanks{} \thicklines \thinlines \thispagestyle{} \title{} \twocolumn[] \typein[]{} \typeout{} \underbrace{} \underline{} \usebox{} \usecounter{} \usepackage[]{} \value{} \vector(,){} \verb \verb* \vline \vspace{} \vspace*{} % sectioning \part[]{} \part*{} \chapter[]{} \chapter*{} \section[]{} \section*{} \subsection[]{} \subsection*{} \subsubsection[]{} \subsubsection*{} \paragraph[]{} \paragraph*{} \subparagraph[]{} \subparagraph*{} \appendix \tableofcontents \listoffigures \listoftables uppressfloats[] \thanks{} \thicklines \thinlines \thispagestyle{} \title{} \twocolumn[] \typein[]{} \typeout{} \underbrace{} \underline{} \usebox{} \usecounter{} \usepackage[]{} \value{} \vector(,){} \verb \verb* \vline \vspace{} \vspace*{} % sectioning \part[]{} \part*{} \chapter[]{} \chapter*{} \section[]{} \section*{} \subsection[]{} \subsection*{} \subsubsection[]{} \subsubsection*{} \paragraph[]{} \paragraph*{} \subparagraph[]{} \subparagraph*{} \appendix \tableofcontents \listoffigures \lisjed-0.97.12/lib/ltx-math.sl000064400000000000003000000076070603742311200151440ustar00rootsys00000000000000% ltx-math.sl % % AUC-TeX style LaTeX-math-mode (v0.2) by Kevin Humphreys % % For JED (v0.97.9b) by John E. Davis % % Based on AUC-TeX (v9.1i) by Per Abrahamsen % Autoloaded by latex_math_mode (C-c ~) in latex.sl % CHANGES HISTORY: % Modifed for use in main jed distribution % --- v0.1-0.2 % reduce memory usage by using array (thanks to John E. Davis) variable latex_math_mode_toggle = 0; variable Latex_Math_Array = create_array ('s', 128, 1); _for (0, 127, 1) { =$1; Latex_Math_Array[$1] = Null_String; } Latex_Math_Array['a'] = "alpha"; Latex_Math_Array['b'] = "beta"; Latex_Math_Array['c'] = "mathcal{}"; Latex_Math_Array['d'] = "delta"; Latex_Math_Array['e'] = "epsilon"; Latex_Math_Array['f'] = "phi"; Latex_Math_Array['g'] = "gamma"; Latex_Math_Array['h'] = "eta"; Latex_Math_Array['k'] = "kappa"; Latex_Math_Array['l'] = "lambda"; Latex_Math_Array['m'] = "mu"; Latex_Math_Array['N'] = "nabla"; Latex_Math_Array['n'] = "nu"; Latex_Math_Array['o'] = "omega"; Latex_Math_Array['p'] = "pi"; Latex_Math_Array['q'] = "theta"; Latex_Math_Array['r'] = "rho"; Latex_Math_Array['s'] = "sigma"; Latex_Math_Array['t'] = "tau"; Latex_Math_Array['u'] = "upsilon"; Latex_Math_Array['x'] = "chi"; Latex_Math_Array['y'] = "psi"; Latex_Math_Array['z'] = "zeta"; Latex_Math_Array['D'] = "Delta"; Latex_Math_Array['G'] = "Gamma"; Latex_Math_Array['Q'] = "Theta"; Latex_Math_Array['L'] = "Lambda"; Latex_Math_Array['Y'] = "Psi"; Latex_Math_Array['P'] = "Pi"; Latex_Math_Array['S'] = "Sigma"; Latex_Math_Array['U'] = "Upsilon"; Latex_Math_Array['V'] = "Phi"; Latex_Math_Array['O'] = "Omega"; Latex_Math_Array[6] = "rightarrow"; % C-f Latex_Math_Array[2] = "leftarrow"; % C-b Latex_Math_Array[16] = "uparrow"; % C-p Latex_Math_Array[14] = "downarrow"; % C-n Latex_Math_Array['<'] = "leq"; Latex_Math_Array['>'] = "geq"; Latex_Math_Array['~'] = "tilde"; Latex_Math_Array['I'] = "infty"; Latex_Math_Array['A'] = "forall"; Latex_Math_Array['E'] = "exists"; Latex_Math_Array['!'] = "neg"; Latex_Math_Array['i'] = "in"; Latex_Math_Array['*'] = "times"; Latex_Math_Array['.'] = "cdot"; Latex_Math_Array['{'] = "subset"; Latex_Math_Array['}'] = "supset"; Latex_Math_Array['['] = "subseteq"; Latex_Math_Array[']'] = "supseteq"; Latex_Math_Array['/'] = "not"; Latex_Math_Array['\\'] = "setminus"; Latex_Math_Array['+'] = "cup"; Latex_Math_Array['-'] = "cap"; Latex_Math_Array['&'] = "wedge"; Latex_Math_Array['|'] = "vee"; Latex_Math_Array['('] = "langle"; Latex_Math_Array[')'] = "rangle"; Latex_Math_Array[5] = "exp"; % C-e Latex_Math_Array[19] = "sin"; % C-s Latex_Math_Array[3] = "cos"; % C-c Latex_Math_Array[30] = "sup"; % C-^ Latex_Math_Array[31] = "inf"; % C-_ Latex_Math_Array[4] = "det"; % C-d Latex_Math_Array[12] = "lim"; % C-l Latex_Math_Array[20] = "tan"; % C-t Latex_Math_Array['^'] = "hat"; Latex_Math_Array['v'] = "vee"; Latex_Math_Array['0'] = "emptyset"; define latex_insert_math () { variable arg = prefix_argument(-1); variable ch = getkey (); if (ch > 127) return; if (arg != -1) insert_char ('$'); insert_char ('\\'); insert (Latex_Math_Array[ch]); if (ch == 'c') % position cursor correctly for \mathcal{} { if (arg != -1) { insert_char ('$'); go_left(2); } else go_left(1); } else { if (arg != -1) insert_char ('$'); } } define latex_math_mode () { if (latex_math_mode_toggle == 0) { local_setkey("latex_insert_math", "`"); setmode("LaTeX Math", 0x1 | 0x20); latex_math_mode_toggle = 1; } else { local_setkey("quoted_insert", "`"); setmode("LaTeX", 0x1 | 0x20); latex_math_mode_toggle = 0; } } ion cursor correctly for \mathcal{} { if (arg != -1) { insert_char ('$'); go_left(2); } else go_left(1); jed-0.97.12/lib/mail.sl000064400000000000003000000072160603742311200143240ustar00rootsys00000000000000% Mail for VMS and Unix systems % % On VMS, this uses callable mail interface. % For Unix, uses /usr/ucb/mail % % Calls mail_hook if defined. "mail_hook" can either load a file % to override some of the functions here. #ifdef UNIX %%% University of California, Berkeley mail program %%% "/usr/ucb/mail" on most unix, "/usr/sbin/Mail" on others !if (is_defined("UCB_Mailer")) { variable UCB_Mailer; UCB_Mailer = "/usr/ucb/mail"; if (1 != file_status(UCB_Mailer)) { UCB_Mailer = "/usr/sbin/Mail"; if (1 != file_status (UCB_Mailer)) { error ("UCB Mail program not found!"); } } } define unix_send_mail (to, cc, subj) { subj = str_quote_string (subj, "'", '\''); % This is a total crock. For ucb mail, we need to 'quote' lines beginning % with '~'. Lets do it now: check_region (0); () = dupmark(); narrow (); bob(); while (bol_fsearch("~")) insert (" "); bob (); if (strlen(cc)) { push_spot (); insert (Sprintf("~c %s\n", cc, 1)); } eob(); widen(); pipe_region (Sprintf("%s -s '%s' '%s'", UCB_Mailer, subj, to, 3)); if (strlen(cc)) { pop_spot (); delete_line(); } } #endif variable Mail_Previous_Buffer = Null_String; variable Mail_Previous_Windows = 1; define send () { variable mail_cmd, to = Null_String, subj = Null_String; variable dir, file, cc = Null_String, sent; push_spot (); bob (); !if (bol_fsearch ("---text follows this line---")) { pop_spot (); error ("Failed to find text divider."); } push_mark (); bob (); narrow (); if (re_fsearch("^To:[ \t]*\\(.*\\)")) { to = regexp_nth_match (1); } if (re_fsearch("^Cc:[ \t]*\\(.*\\)")) { cc = regexp_nth_match (1); } if (re_fsearch("^Subject:[ \t]*\\(.*\\)")) { subj = regexp_nth_match (1); } eob(); widen (); !if (strlen(to)) { pop_spot (); error ("Bad To: field."); } #ifdef VMS if (strlen(cc)) { to = strncat (to, ",", cc, 3); } #endif !if (down_1 ()) { pop_spot(); error ("No message!"); } push_mark (); eob (); flush("Sending..."); #ifdef UNIX sent = unix_send_mail (to, cc, subj); #endif #ifdef VMS narrow(); sent = vms_send_mail (to, subj); widen (); #endif if (sent) { flush ("Sending...done"); set_buffer_modified_flag (0); (file, dir,,) = getbuf_info(); () = delete_file (make_autosave_filename(dir, file)); } else { message ("No message sent."); } pop_spot (); whatbuf(); if (bufferp(Mail_Previous_Buffer)) sw2buf (Mail_Previous_Buffer); if (1 == Mail_Previous_Windows) onewindow(); bury_buffer(()); } add_completion("send"); define mail_format_buffer () { variable mail_map = "mail_map"; erase_buffer(); text_mode(); insert("To: \nCc: \nSubject: \n---text follows this line---\n"); bob(); eol(); set_buffer_modified_flag(0); set_buffer_undo(1); setbuf_info (getbuf_info () & ~(0x40)); % turn off buried buffer flag !if (keymap_p(mail_map)) make_keymap(mail_map); use_keymap(mail_map); } define mail() { variable mail_buf, old, status; mail_buf = "*mail*"; variable file, dir; old = bufferp(mail_buf); Mail_Previous_Windows = nwindows(); Mail_Previous_Buffer = pop2buf_whatbuf(mail_buf); %% if buffer is not old, turn autosave on if (old == 0) { #ifdef VMS dir = "sys$login:"; #else dir = dircat(getenv("HOME"), Null_String); #endif file = "__jed_mail__"; setbuf_info(file, dir, mail_buf, 2); } else { (,,,status) = getbuf_info(); if (status & 1) return(); } mail_format_buffer (); runhooks("mail_hook"); } able file, dir; old = bufferp(mail_buf); Mail_Previous_Windows = nwindows(); Mail_Previous_Buffer = pop2buf_whatbuf(mail_buf); %% if buffer is not old, turn autosave on if (old == 0) { #ifdef VMS dir = "sys$login:"; #else dir = dircat(getenv("HOME"), Null_String); #endif file = "__jed_mail__"; setbuf_info(file, dir, mail_buf, 2); jed-0.97.12/lib/man.sl000064400000000000003000000040400603742311300141460ustar00rootsys00000000000000%% %% execute man then remove backspaces %% %!% remove _^H and ^H combinations and multiple blank lines (man page) define clean_manpage () { variable clean = "Cleaning man page..."; push_spot (); bob (); flush (clean); replace ("_\010", Null_String); % remove _^H underscores while ( fsearch ("\010") ) { del (); del (); } % remove overstrike trim_buffer (); % remove multiple blank lines pop_spot (); flush (strcat (clean, "done")); } %!% retrieve a man page entry and use clean_manpage to clean it up define unix_man () { variable subj, buf = "*manual-entry*", msg = "Getting man page..."; subj = read_mini ("man", Null_String, Null_String); !if ( strlen (subj) ) return; pop2buf (buf); set_readonly (0); erase_buffer (); flush (msg); #ifdef OS2 () = run_shell_cmd (Sprintf ("man %s 2> nul", subj, 1)); #else () = run_shell_cmd (Sprintf ("man %s 2> /dev/null", subj, 1)); #endif clean_manpage (); bob (); set_buffer_modified_flag (0); most_mode (); set_readonly (1); } #ifdef 0 . ( [clean buf cmd subj ctrl_h] "*manual-entry*" =buf . "Cleaning man page..." =clean . "man" Null_String Null_String read_mini =subj . subj strlen {return} !if #ifdef OS2 . "man " subj strcat " 2> nul" strcat =cmd #else . "man " subj strcat " 2> /dev/null" strcat =cmd #endif . buf pop2buf . 0 set_readonly . erase_buffer . "Getting man page..." flush . cmd run_shell_cmd pop . clean flush . 8 char =ctrl_h . bob "_" ctrl_h strcat Null_String replace %% remove _^H combinations . bob {ctrl_h fsearch} {del del} while %% remove remaining overstrikes %% %% remove multiple blank lines--- should make this standalone %% . bob {eolp eobp not and}{del} while . {down_1} { . eol bolp . { down_1 {break} !if . {{eol bolp}{eobp not} andelse} {del} while . } if . } while . bob %% %% set buffer no modified %% . getbuf_info pop 0 setbuf_info . clean "done" strcat flush . most_mode . 1 set_readonly . ) unix_man #endif ove _^H combinations . bob {ctrl_h fsearch} {del del} while %% remove remaining overstrikes %% %% remove multiple blank lines--- should make this standalone %% . bob {eolp eobp not and}{del} while . {down_1} { . eol bolp . { down_1 {break} !if . {{eol bolp}{eobp not} andelse} {del} while . } if . } while . bob %% %% set buffer no modified %% . getbuf_info pop 0 setbuf_info . clean "done" strcat flush . most_mode . 1 sjed-0.97.12/lib/menu.sl000064400000000000003000000114020603742311300143370ustar00rootsys00000000000000% % Example of menus for JED. This is designed to aid in learning % the editor since after a menu item has been chosen, the user is % informed of the keybinding of the function. % enable_top_status_line (1); if (TOP_WINDOW_ROW == 1) error ("Menu bar has been disabled. It must be present to use the menus."); define menu_build_display_string (list) { variable i = 0, cmd, s = Null_String; forever { cmd = extract_element (list, i, ','); !if (strlen(cmd)) break; if (i) s = strcat(s, ", "); s = Sprintf("%s(%d)%s", s, i, cmd, 3); ++i; } s; } define menu_list_length (list) { variable i = 0; i - 1; } variable Menu_Last_Cmd; variable Menu_Abort; Menu_Abort = 0; define menu_select_cmd (s_list, cmd_list) { variable cmd, i, s, n; i = 0; n = 0; while (strlen(extract_element(cmd_list, n, ','))) n++; n--; s = strcat ("Menu: ", menu_build_display_string(s_list)); do { Menu_Abort = 0; forever { message ("Pick a number or press Ctrl-G to abort or SPACE to go back to previous level."); set_top_status_line (s); pop (); update(1); i = getkey(); if (i == 7) call ("kbd_quit"); if (i == ' ') { Menu_Abort = 1; return; } i -= '0'; if ((i >= 0) and (i <= n)) break; beep(); flush_input(); % flush("Pick a number or press Ctrl-G to abort or SPACE to go back."); % pop(input_pending(20)); } cmd = extract_element(cmd_list, i, ','); if (int (substr(cmd, 1, 1)) == '@') { Menu_Last_Cmd = substr(cmd, 2, strlen(cmd)); call (Menu_Last_Cmd); } else { Menu_Last_Cmd = cmd; eval(strcat (".", cmd)); % Use RPN--- no need to parse it } } while(Menu_Abort); } define menu_window_cmds () { menu_select_cmd ("One window,Split Window,Other Window,Del Window,Redraw", "@one_window,@split_window,@other_window,@delete_window,@redraw"); } define search_replace () { menu_select_cmd ("Search Forward,Search Backward,Replace", "search_forward,search_backward,replace_cmd"); } define menu_deletion_cmd () { menu_select_cmd ("Delete Char,Delete Word", "del,delete_word"); } define menu_cut_paste () { menu_select_cmd ("Deleting,Begin Region,Cut Region,Copy Region,Paste", "menu_deletion_cmd,@set_mark_cmd,@kill_region,@copy_region,@yank"); } define menu_movement () { menu_select_cmd ("Page Up,Page Down,Top,Bottom,Page Left,Page Right", "@page_up,@page_down,@beg_of_buffer,@end_of_buffer,@scroll_right,@scroll_left"); } define menu_buffer_modes () { menu_select_cmd ("C-Mode,Text-Mode,No-Mode,Fortran-Mode", "c_mode,text_mode,no_mode,fortran"); } define menu_basics () { menu_select_cmd ("Search/Replace,Movement,Cut/Paste,Undo,Formatting", "search_replace,menu_movement,menu_cut_paste,@undo,@format_paragraph"); } define menu_buffers () { menu_select_cmd ("Kill Buffer,Switch To Buffer,List Buffers,Set buffer modes", "@kill_buffer,@switch_to_buffer,list_buffers,menu_buffer_modes"); } define menu_files () { menu_select_cmd ("Open File,Save to File,Save Buffers,Insert File", "@find_file,@write_buffer,@save_buffers,@insert_file"); } define menu_help () { menu_select_cmd ("Pop up help,Browse Documentation,Show Key,Where is Command", "help,info_mode,showkey,where_is"); } define menu_misc () { #ifdef UNIX VMS menu_select_cmd ("compose mail,send mail,ispell,shell command,suspend", "mail,send,ispell,do_shell_cmd,@sys_spawn_cmd"); #else menu_select_cmd ("Shell command,Suspend", "do_shell_cmd,@sys_spawn_cmd"); #endif } define menu_main_cmds () { variable n, key, len, next, nlen; ERROR_BLOCK { set_top_status_line (Global_Top_Status_Line); pop (); } menu_select_cmd ("File,Edit,Buffers,Windows,Help,Misc,Exit", "menu_files,menu_basics,menu_buffers,menu_window_cmds,menu_help,menu_misc,@exit_jed"); EXECUTE_ERROR_BLOCK (); % % Show user keybinding of the function. % The problem with this is that any function which leaves a message % in the message buffer, the message will be destroyed. Here I % update screen and sleep for a second before continuing. Menus are % intrinsically inefficient anyway. % if (strlen(MESSAGE_BUFFER)) { update (0); input_pending(20); pop(); } if (Menu_Abort) { return; } if (n = which_key (Menu_Last_Cmd), n) { =key; n--; len = strlen (key); loop (n) { =next; nlen = strlen (next); if (nlen < len) { len = nlen; key = next; } } Sprintf ("%s is on key %s", Menu_Last_Cmd, expand_keystring (key), 2); } else strcat (Menu_Last_Cmd, " is not on any keys."); message (()); } if (strlen(MESSAGE_BUFFER)) { update (0); input_pending(20); pop(); } if (Menu_Abort) { return; } if (n = which_key (Menu_Last_Cmd), n) { =key; n--; len = strlen (key); loop (n) { =next; jed-0.97.12/lib/mini.sl000064400000000000003000000027000603742311300143300ustar00rootsys00000000000000% % Recall previous commands in MiniBuffer % !if (is_defined ("Mini_Previous_Lines")) { variable Mini_Previous_Lines, Mini_Last_Line, Mini_Next_Line, Mini_First_Line; Mini_Previous_Lines = create_array ('s', 12, 1); _for (0, 11, 1) { =$1; Mini_Previous_Lines[$1] = Null_String; } } Mini_Last_Line = 0; Mini_First_Line = 0; Mini_Next_Line = 0; define mini_use_this_line () { erase_buffer (); insert (Mini_Previous_Lines[Mini_Next_Line]); } define next_mini_command () { variable line; if (Mini_Next_Line == Mini_Last_Line) { error ("End of list!"); } Mini_Next_Line++; if (Mini_Next_Line == 12) Mini_Next_Line = 0; mini_use_this_line (); } define prev_mini_command () { variable line; line = Mini_Next_Line; if (Mini_First_Line == Mini_Next_Line) { Mini_Next_Line = line; error ("Top of list!"); } Mini_Next_Line--; if (Mini_Next_Line < 0) Mini_Next_Line = 11; mini_use_this_line (); } define mini_exit_minibuffer () { bol_skip_white (); !if (eolp ()) { bol (); push_mark (); eol (); Mini_Previous_Lines[Mini_Last_Line] = bufsubstr (); Mini_Last_Line++; if (Mini_Last_Line == 12) Mini_Last_Line = 0; if (Mini_Last_Line == Mini_First_Line) { Mini_First_Line++; if (Mini_First_Line == 12) Mini_First_Line = 0; } } Mini_Next_Line = Mini_Last_Line; Mini_Previous_Lines[Mini_Last_Line] = Null_String; call ("exit_mini"); } ni_use_this_line (); } define mini_exit_minibuffer () { bol_jed-0.97.12/lib/misc.sl000064400000000000003000000032450603742311300143340ustar00rootsys00000000000000% misc functions that should be in site.sl but they are not because we want % jed to start up fast and they are not always needed. %!% Prototype: String make_tmp_buffer_name (String base); %!% Generates a unique buffer name using the string 'base' for the beginning %!% of the name. The buffer name is returned. The buffer is not created. define make_tmp_buffer_name (tmp) { variable n = 0, buf; variable t = time (); tmp = strcat (tmp, time); do { buf = Sprintf("%s%d", tmp, n); n++; } while (bufferp(buf)); buf; } define misc_do_write_to_file (str, file, write_function) { variable ret = -1; variable buf = make_tmp_buffer_name (Null_String); variable cbuf = whatbuf (); setbuf (buf); insert (str); set_buffer_modified_flag (0); push_mark (); bob (); ERROR_BLOCK { _clear_error (); } ret = write_function (file); setbuf (cbuf); delbuf (buf); ret; } %!% Prototype: Integer append_string_to_file (String str, String file); %!% The string 'str' is appended to file 'file'. This function returns -1 %!% upon failure or the number of lines written upon success. %!% See append_region_to_file for more information. define append_string_to_file (str, file) { misc_do_write_to_file (str, file, &append_region_to_file); } %!% Prototype: Integer write_string_to_file (String str, String file); %!% The string 'str' is written to file 'file'. This function returns -1 %!% upon failure or the number of lines written upon success. %!% This function does not modify a buffer visiting the file. define write_string_to_file (str, file) { misc_do_write_to_file (str, file, &write_region_to_file); } to_file for more information. define append_string_to_file (str, file) { misc_do_write_to_file (str, file, &append_region_to_file); } %!% Prototype: Integer write_string_to_file (String str, String file); %!% The string 'str' is written to file 'file'. This function returns -1 %!% upon failure or the number of lines written upon success. %!jed-0.97.12/lib/mkdoc.sl000064400000000000003000000147430603742311300145030ustar00rootsys00000000000000_traceback = 1; % mkdoc.sl ---- load this file from JED_ROOT/lib!!!! % % Extract documentation from .sl and .c files % For this to work, a strict format must be followed. % In .c files, add_intrinsic and add_variable statements are checked. The % syntax prototype is: % % MAKE_INTRINSIC("name", function, TYPE, n)% % /* This is a function called name which returns TYPE % and takes n arguments. */ % % Note that it is assummed that comments cannot be nested. % For .sl files, the syntax follows: % % %!% This function pops an integer n off the stack and an object s. % %!% It returns n copies of s on the stack. % define dupn (n, s) % { % loop (n) { s; } % } % % Here I search for '%!%' in column 1 which make indicate a doc string and % then search for 'define' preceed by only whitespace. The '%!%' must start in % column 1. % % There is no ambiguity as long as the doc strings are placed BEFORE the % object they describe. %!% Extracts doc string from FILE and appends it to BUFFER. %!% Returns 0 upon failure. define mkdoc_process_sl_file (file, doc_buf) { variable cbuf, doc_ind = "%!%", chars = "a-zA-Z0-9_$!"; variable c, ctrlm = 1, name; variable has_proto; !if (read_file(file)) return 0; cbuf = whatbuf (); bob (); setbuf (doc_buf); eob (); !if (bolp()) newline (); insert_char (ctrlm); insert (file); newline (); push_spot (); setbuf (cbuf); while (bol_fsearch (doc_ind)) { setbuf (doc_buf); eob (); !if (bolp()) newline (); push_spot (); setbuf (cbuf); go_right (3); push_mark (); skip_white (); has_proto = looking_at ("Prototype: "); while (down_1 () and looking_at (doc_ind)); copy_region (doc_buf); % now look for what this documents forever { bol (); skip_chars (" \t\n"); c = what_char (); if (looking_at ("variable")) { go_right (strlen("variable")); skip_white (); push_mark (); skip_chars (chars); name = Sprintf ("V%s ", bufsubstr(), 1); break; } if (looking_at ("define")) { go_right (strlen ("define")); skip_white (); push_mark (); skip_chars (chars); !if (has_proto) if (ffind (")")) go_right (1); name = strcat ("F", bufsubstr ()); break; } !if (down_1 ()) error (strcat ("Error parsing ", file)); } %% now we have the name with the appropriate prefix. Insert it and %% replace newlines with ctrlm setbuf (doc_buf); pop_spot (); insert (name); insert_char (ctrlm); while (eol, not(eobp())) { del (); insert_char (ctrlm); } newline (); setbuf (cbuf); } 1; } . %% same routine for C files. Looks for MAKE_INTRINSIC and MAKE_VARIABLE . %% macros. . ( . [file doc_buf cbuf] =doc_buf =file . [f v name ctrlm c] 1 char =ctrlm . . file read_file {0 return} !if . whatbuf =cbuf . . doc_buf setbuf . eob . bolp {newline} !if . ctrlm insert file insert newline . cbuf setbuf . bob . . { . 0 =f 0 =v . "MAKE_" fsearch . { . "MAKE_INTRINSIC" looking_at =f . "MAKE_VARIABLE" looking_at =v . }{break} else . . POINT bol_skip_white . POINT - {eol continue} if %%continue if in middle of line . %% found . . doc_buf setbuf . eob . bolp {newline} !if . cbuf setbuf . . %% formats are MAKE_INTRINSIC(".fun", cfun, TYPE, n) . %% and MAKE_VARIABLE(".var", &c_var, TYPE, flag) . %% where the & may not be present for string variables . . "\"." ffind {"Corrupt file." error} !if . 2 right pop push_mark . "\"" ffind {"Corrupt file." error} !if . bufsubstr " " strcat =name . 1 right pop . . %% if it is a function, get the c function info as well . f { . "F" name strcat ":" strcat =name %%Ffun: . ",\t " skip_chars . push_mark "$_A-Za-z0-9" skip_chars . name bufsubstr strcat ":" strcat %%Ffun:cfun: . ",\t " skip_chars . what_char char strcat ":" strcat %%Ffun:cfun:T: . "," ffind pop %% assume ok . ", \t" skip_chars push_mark "0-9" skip_chars . bufsubstr strcat =name %%Whew!! %%Ffun:cfun:T:0 . }{ . "V" name strcat =name . } . else . . doc_buf setbuf name insert push_spot . cbuf setbuf . . %% look for documentation . {down_1} . { . bol_skip_white eolp {continue} if . "/*" looking_at {break} !if . 2 go_right skip_white . what_column =c . push_mark . "*/" fsearch pop %% I assume it compiled . . doc_buf copy_region . doc_buf setbuf . pop_spot . push_spot . {down_1} . { . bol_skip_white . "*" looking_at {del skip_white} if . what_column bol trim c - {" " insert} loop . } . while . pop_spot . ctrlm insert . {eol eobp not} . {del ctrlm insert} while . newline . cbuf setbuf . break . } while . } forever . 1 . ) mkdoc_process_c_file . . . %%% Make documentation for set of files. Function takes as top argument . %%% the name of docfile to be produced followed by number n of files . %%% then followed by the n filenames. . ( . [docfile] =docfile . [argc argv] =argc . [docbuf cbuf] whatbuf =cbuf . [type] . . docfile setbuf erase_buffer . whatbuf =docbuf . cbuf setbuf . . argc . { . =argv . argv file_type =type . "processing " argv strcat flush . type . {"c" strcmp not type "C" strcmp not or . type "ci" strcmp not or : . argv docbuf mkdoc_process_c_file . { argv " could not be processed!" strcat error } !if . } . {"sl" strcmp not type "SL" strcmp not or : . argv docbuf mkdoc_process_sl_file . { argv " could not be processed!" strcat error } !if . } . {" File type not supported!" strcat error} . switch . whatbuf docbuf strcmp {whatbuf delbuf} if . } . loop . . . docbuf setbuf . docfile write_buffer {"Unable to write doc file!" error} !if . 0 set_buffer_modified_flag docbuf delbuf . cbuf setbuf . ) mkdoc !if (is_defined ("__load__mkdoc__only__")) { . _stkdepth =$1 . "site.sl" "buf.sl" "help.sl" "util.sl" "dired.sl" "most.sl" "fortran.sl" . "misc.sl" "tex.sl" "cmode.sl" "slmode.sl" "cmisc.sl" "untab.sl" "html.sl" . "../src/intrin.c" "../src/xterm.c" . "../../slang/src/slstd.c" . "../../slang/src/slmath.c" #ifdef UNIX . "../../slang/src/slunix.c" #endif . _stkdepth $1 - . % number of files listed above . "jed_funs.hlp" mkdoc quit_jed (); } fer_modified_flag docbuf delbjed-0.97.12/lib/mktex.sl000064400000000000003000000077360603742311300145420ustar00rootsys00000000000000define mktex_fixup_underscores () { push_spot (); bol (); while (ffind ("_")) { del (); insert ("\\_"); } pop_spot (); } define mktex_format_rest () { variable pnt, at = "@"; bob (); while (down (1)) { skip_white (); if (looking_at ("%!%")) deln (3); if (looking_at ("Related Functions:") or looking_at ("Related Variables:")) { insert ("\n{\\bf "); go_right (18); insert ("}"); trim (); insert (" "); } } bob (); while (fsearch (at)) { if (looking_at ("@ ")) { bskip_chars (" "); !if (bolp ()) { error ("Found @SPACE not at beginning of line!"); } % verbatim bol (); insert ("\\begin{verbatim}\n"); forever { skip_white (); if (looking_at ("@ ")) { del (); insert (" "); } else { % at the end bol (); insert ("\\end{verbatim}\n"); break; } while (ffind ("@")) { del (); !if (eolp ()) go_right (1); } !if (down (1)) { eol (); insert ("\n\\end{verbatim}\n"); break; } } continue; } else { del (); if (looking_at (at)) continue; } insert ("\\verb|"); forever { !if (ffind (at)) error ("Unbalanced '@'"); del (); if (looking_at (at)) { go_right (1); continue; } insert_char ('|'); break; } } } define mktex_format_function () { variable pnt; del (); % remove the F at bol insert ("\\parbox{\\textwidth}{\\MYBOX{"); mktex_fixup_underscores (); if (ffind (":")) { %% function:cfun:T:n where T is type and n is number of args del (); insert ("}\n"); delete_line (); % c fun information-- unused if (looking_at ("Prototype:")) { mktex_fixup_underscores (); insert ("{\\bf "); ffind (":"); pop (); go_right(1); insert ("}"); trim (); insert (" "); push_spot (); % look for return type information skip_chars ("a-zA-Z_"); trim (); if (looking_at ("(")) pop_spot (); else { push_mark (); pop_spot (); insert ("{\\em "); pop_mark (1); insert ("}"); } insert (" {\\tt "); ffind ("("); pop (); go_right (1); !if (looking_at (")")) { insert ("}"); % assume type information present for arguments forever { trim (); insert ("{\\em "); skip_chars ("a-zA-Z"); insert ("} {\\tt"); trim (); insert (" "); if (ffind (",")) { go_right (1); insert (" }"); } else break; } } eol (); insert ("}"); % close tt } insert ("}\n\n"); mktex_format_rest (); } else { insert ("}}\n\n"); } } %% gets help for a function define mktex_process_buffer (do_header) { variable p, n; bob (); if (do_header) { insert ("\\documentstyle{article}\n"); insert ("\\parindent=0mm\n"); insert ("\\parskip=3mm\n"); insert ("\\setlength{\\oddsidemargin}{0mm}\n"); insert ("\\setlength{\\evensidemargin}{0mm}\n"); insert ("\\setlength{\\textwidth}{160mm}\n"); insert ("\\setlength{\\topmargin}{-10mm}\n"); insert ("\\setlength{\\textheight}{220mm}\n"); } insert ("\n\\newcommand{\\MYBOX}[1]{{\\rule[2mm]{\\textwidth}{0.25mm}\\par\n"); insert ("{\\huge\\bf #1}\\hfill\\par\\rule{\\textwidth}{0.25mm}}\\par}\n"); if (do_header) { insert ("\\begin{document}\n"); } do { push_mark (); narrow (); if (looking_at ("F")) { replace (char (1), "\n"); mktex_format_function (); } % else if (looking_at ("V")) mktex_format_variable (); else insert ("%"); eob (); newline (); widen (); } while (down (1)); eob (); newline (); if (do_header) insert ("\n\\end{document}\n"); } \\par\n"); insert ("{\\huge\\bf #jed-0.97.12/lib/most.sl000064400000000000003000000073430603742311400143670ustar00rootsys00000000000000%% %% Most/more/less file viewing %% define most_edit () { set_readonly(0); getbuf_info(); pop(); pop(); pop(); file_type(); runhooks("mode_hook"); set_status_line(Null_String, 0); } variable Most_N_Windows = 1; define most_exit_most () { variable flags; most_edit (); (,,,flags) = getbuf_info (); !if (flags & 1) delbuf (whatbuf ()); otherwindow (); if (Most_N_Windows == 2) onewindow (); message ("Done."); } define most_help () { message ( "SPC:pg dn, DEL:pg up, /:search forw, ?:search back, q:quit, e:edit, h:this help" ); } variable Most_Map = "Most"; !if (keymap_p (Most_Map)) { make_keymap (Most_Map); _for ('A', 'z', 1) { undefinekey (char (), Most_Map); } definekey ("page_up", char (127), Most_Map); % delete definekey ("page_down", char (' '), Most_Map); definekey ("most_exit_most", char ('q'), Most_Map); definekey ("most_edit", char ('e'), Most_Map); definekey ("most_find_f", char ('s'), Most_Map); definekey ("most_find_f", char ('S'), Most_Map); definekey ("most_find_f", char ('/'), Most_Map); definekey ("most_find_b", char ('?'), Most_Map); definekey ("most_find_n", char ('N'), Most_Map); definekey ("most_help", char ('h'), Most_Map); definekey ("eob", char ('B'), Most_Map); definekey ("bob", char ('T'), Most_Map); } %!% Emulates MOST fileviewer %!% The following keys are defined: %!% SPACE next screen %!% DELETE previous screen %!% / search_forward %!% ? search_backward %!% n find next occurrence %!% q quit most mode (usually kills buffer if not modified) %!% e edit buffer %!% h help summary %!% t Top of Buffer %!% b End of Buffer define most_mode () { use_keymap (Most_Map); set_readonly (1); setmode (Most_Map, 0); set_status_line (" MOST : press 'h' for help. %b (%p)", 0); Most_N_Windows = nwindows (); } variable Most_Search_Dir = 1; define most_find_n () { variable r; !if (strlen (LAST_SEARCH)) error ("Find What?"); if (Most_Search_Dir > 0) { r = right (1); if (fsearch (LAST_SEARCH)) return; go_left (r); } else { if (bsearch (LAST_SEARCH)) return; } error ("Not Found."); } define most_find_b () { Most_Search_Dir = -1; search_backward (); } define most_find_f () { Most_Search_Dir = 1; search_forward (); } %%% Emulate MOST fileviewer. variable Most_Min_Arg, Most_Current_Arg; define run_most (arg) { Most_Min_Arg = arg; Most_Current_Arg = arg; if (arg != MAIN_ARGC) pop (find_file (command_line_arg (arg))); most_mode (); definekey ("most_next_file", ":N", Most_Map); definekey ("exit_jed", "q", Most_Map); definekey ("exit_jed", "Q", Most_Map); definekey ("most_exit_most", ":Q", Most_Map); help_for_help_string = "Most Mode: SPC- next screen, DEL- prev screen, Q Quit, :n next file, :Q edit"; } define most_next_file () { variable f, file, dir = 1; forever { Most_Current_Arg += dir; if (Most_Current_Arg == MAIN_ARGC) Most_Current_Arg = Most_Min_Arg; if (Most_Current_Arg < Most_Min_Arg) Most_Current_Arg = MAIN_ARGC - 1; file = command_line_arg (Most_Current_Arg); flush (strcat ("Next File (Use Arrow keys to select): ", file)); f = get_key_function (); if (strlen (f)) { pop (); % pops off second return value of get_key_function !if (strcmp ("previous_line_cmd", f)) { dir = 1; continue; } !if (strcmp ("next_line_cmd", f)) { dir = -1; continue; } break; } else beep (); } () = find_file (file); message (Null_String); most_mode (); } mmand_line_arg (Most_Current_Arg); flush (strcat ("Next File (Use Arrow keys to select): ", file)); f = get_key_function (); if (strlen (f)) { pop (); % pops off second return value of get_key_function !if (strcmp ("previous_line_cmd", f)) { dir = 1; jed-0.97.12/lib/mouse.sl000064400000000000003000000163500603742311400145330ustar00rootsys00000000000000% % JED mouse interface % % These routines assume a 3 button mouse % % left : set point to mouse point % middle : paste from cut buffer moving point to mouse point % right : copy region from point to mouse point to cut buffer % drag left : mark a region and copy it to cut buffer % drag right : mark a region and copy it to cut buffer % shift left : split window mouse is in % control left : delete window mouse is in % control right : kill region between point and mouse point to cut buffer % % Other buttons are undefined. % setkey ("mouse_set_point_open", "^[^@Dl"); % left button down setkey ("mouse_set_point_close", "^[^@Ul"); % left button up setkey ("mouse_yank_cutbuffer", "^[^@Dm"); % middle down setkey ("mouse_mark_and_copy", "^[^@Dr"); % right down setkey ("mouse_set_point_close", "^[^@Ur"); % right up setkey ("mouse_null", "^[^@Um"); % middle up % dragging setkey ("mouse_drag", "^[^@^@l"); % left dragging setkey ("mouse_drag", "^[^@^@r"); % right dragging setkey ("mouse_null", "^[^@^@^L"); % C-left dragging setkey ("mouse_drag", "^[^@^@^R"); % C-right dragging setkey ("mouse_null", "^[^@^@L"); % S-left dragging setkey ("mouse_null", "^[^@^@R"); % S-right dragging % shifted setkey ("mouse_split_window", "^[^@DL"); % Shift-left button down setkey ("mouse_null", "^[^@UL"); % left button up setkey ("mouse_yank_from_jed", "^[^@DM"); % middle down setkey ("mouse_null", "^[^@DR"); % right down setkey ("mouse_null", "^[^@UR"); % right up setkey ("mouse_null", "^[^@UM"); % middle up % ctrl setkey ("mouse_delete_window", "^[^@D^L"); % left button down setkey ("mouse_null", "^[^@U^L"); % left button up setkey ("mouse_null", "^[^@D^M"); % middle down setkey ("mouse_kill_region", "^[^@D^R"); % right down setkey ("mouse_set_point_close", "^[^@U^R"); % right up setkey ("mouse_null", "^[^@U^M"); % middle up define mouse_null (); define mouse_set_mark_cmd () { push_mark (); call("set_mark_cmd"); } % loop through windows moving the point to the mouse point % if same_window is false, and mouse is on status line, call status_fun % if use_status_fun is non-zero. % It returns zero if the status function was used, otherwise, it returns 1 define mouse_point_mouse (force, same_window, push, use_status_fun, status_fun) { variable n = nwindows (); variable top, bot, dy, col, want_col; while (n) { top = window_info('t'); bot = window_info('r') + top; if ((MOUSE_Y >= top) and (MOUSE_Y < bot)) { if (push) mouse_set_mark_cmd (); dy = MOUSE_Y - (top - 1 + window_line()); if (dy > 0) { dy -= down(dy); eol(); if (force) loop (dy) newline(); } else go_up(- dy); eol(); col = what_column (); want_col = window_info('c') + MOUSE_X - 1; !if (force or (want_col <= col)) want_col = col; () = goto_column_best_try(want_col); return 1; } if (same_window) { if (push) mouse_set_mark_cmd (); if (MOUSE_Y >= bot) { go_down(MOUSE_Y - bot + 1); } else { go_up(top - MOUSE_Y); } x_warp_pointer (); return 1; } if ((bot == MOUSE_Y) and (use_status_fun)) { status_fun (); return 0; } otherwindow(); n--; } error ("Mouse not in a window."); } variable Mouse_Drag_Mode = 0; variable Mouse_Buffer = " *Mouse buffer*"; variable Mouse_Delete_Region = 0; define copy_kill_to_mouse_buffer () { variable cbuf = whatbuf (); variable pnt, n; % % We are not going to copy to the pastebuffer if the region is nil % n = what_line(); pnt = POINT; push_spot(); pop_mark(1); if ((what_line() == n) and (POINT == pnt)) { pop_spot(); return; } push_mark(); pop_spot(); setbuf(Mouse_Buffer); erase_buffer (); setbuf (cbuf); if (Mouse_Delete_Region) () = dupmark(); () = dupmark(); %/* for cut buffer */ x_copy_region_to_cutbuffer (); copy_region(Mouse_Buffer); if (Mouse_Delete_Region) { Mouse_Delete_Region = 0; del_region(); } message ("region copied."); } define mouse_next_buffer () { variable n, buf, cbuf = whatbuf (); n = buffer_list (); %/* buffers on stack */ loop (n) { =buf; n--; if (buf[0] == ' ') continue; if (buffer_visible (buf)) continue; sw2buf (buf); loop (n) pop (); return; } error ("All buffers are visible."); } !if (is_defined ("Mouse_Save_Point_Mode")) { %!% Prototype: Integer Mouse_Save_Point_Mode = 1; %!% If this variable is non-zero, the editing point will be restored to its %!% original position when the left button is used to copy a region to the %!% cutbuffer. If the variable is zero, the current point is left at the %!% end of the copied region. variable Mouse_Save_Point_Mode = 1; } variable Mouse_Save_Point_Window; variable Mouse_Save_Point_Mark; define mouse_set_point_open () { Mouse_Drag_Mode = 0; Mouse_Save_Point_Window = window_info ('t'); Mouse_Save_Point_Mark = create_user_mark (); if (Mouse_Save_Point_Mode) Mouse_Save_Point_Mode = -1; if (mouse_point_mouse (0, 0, 0, 1, &mouse_next_buffer) and Mouse_Save_Point_Mode) { Mouse_Save_Point_Mode = 1; } } define mouse_set_point_close () { if (Mouse_Drag_Mode) { copy_kill_to_mouse_buffer (); Mouse_Drag_Mode = 0; if ((MOUSE_BUTTON == 1) and (Mouse_Save_Point_Mode > 0)) { loop (nwindows ()) { if (window_info ('t') == Mouse_Save_Point_Window) { !if (strcmp (whatbuf (), user_mark_buffer (Mouse_Save_Point_Mark))) goto_user_mark (Mouse_Save_Point_Mark); break; } otherwindow (); } Mouse_Save_Point_Mode = -1; } } else if (MOUSE_BUTTON == 3) { dupmark(); pop(); copy_kill_to_mouse_buffer (); pop_mark(1); } } define mouse_yank_from_jed () { () = mouse_point_mouse (0, 0, 0, 0, 0); if (bufferp(Mouse_Buffer)) insbuf(Mouse_Buffer); } define mouse_yank_cutbuffer () { variable w = window_info ('t'); variable max_loops = nwindows (); variable m = create_user_mark (); if (mouse_point_mouse (0, 0, 1, 1, &splitwindow)) { pop_mark (1); % since we set it in the function call while (max_loops and (w != window_info ('t'))) { otherwindow (); max_loops--; } if (max_loops) { goto_user_mark (m); () = x_insert_cutbuffer (); } } } define delete_window () { call("delete_window"); } define mouse_mark_and_copy () { Mouse_Drag_Mode = 0; () = mouse_point_mouse (0, 0, 1, 1, &delete_window); } define mouse_drag () { !if (Mouse_Drag_Mode) { mouse_set_mark_cmd (); Mouse_Drag_Mode = 1; } () = mouse_point_mouse (0, 1, 0, 0, 0); update (not(input_pending(0))); } define mouse_kill_region () { Mouse_Delete_Region = 1; mouse_mark_and_copy (0, 0, 1); } define mouse_split_window () { () = mouse_point_mouse (0, 0, 0, 0, 0); splitwindow(); } define mouse_delete_window () { () = mouse_point_mouse (0, 0, 0, 0, 0); delete_window (); } lete_window); } define mouse_drag () { !if (Mouse_Drag_Mode) { mouse_set_mark_cmd (); Mouse_Drag_Mode = 1; } () = mouse_point_mouse (0, 1, 0, 0, 0); update (not(input_pending(0))); } define mouse_kill_region () { Mouse_Delete_Region = 1; moujed-0.97.12/lib/mswmouse.sl000064400000000000003000000160160603742311400152610ustar00rootsys00000000000000% % JED mouse interface % % These routines assume a 2 button mouse % % left : set point to mouse point % right : paste from cut buffer moving point to mouse point % drag left : mark a region and copy it to cut buffer % shift left : split window mouse is in % control left : delete window mouse is in % % Other buttons are undefined. % setkey ("mouse_set_point_open", "^[^@Dl"); % left button down setkey ("mouse_set_point_close", "^[^@Ul"); % left button up setkey ("mouse_yank_cutbuffer", "^[^@Dm"); % middle down setkey ("mouse_yank_cutbuffer", "^[^@Dr"); % right down setkey ("mouse_null", "^[^@Um"); % middle up setkey ("mouse_null", "^[^@Ur"); % right up % dragging setkey ("mouse_drag", "^[^@^@l"); % left dragging setkey ("mouse_drag", "^[^@^@r"); % right dragging setkey ("mouse_null", "^[^@^@^L"); % C-left dragging setkey ("mouse_drag", "^[^@^@^R"); % C-right dragging setkey ("mouse_null", "^[^@^@L"); % S-left dragging setkey ("mouse_null", "^[^@^@R"); % S-right dragging % shifted setkey ("mouse_split_window", "^[^@DL"); % Shift-left button down setkey ("mouse_null", "^[^@UL"); % left button up setkey ("mouse_yank_from_jed", "^[^@DM"); % middle down setkey ("mouse_yank_from_jed", "^[^@DR"); % right down setkey ("mouse_null", "^[^@UR"); % right up setkey ("mouse_null", "^[^@UM"); % middle up % ctrl setkey ("mouse_delete_window", "^[^@D^L"); % left button down setkey ("mouse_null", "^[^@U^L"); % left button up setkey ("mouse_null", "^[^@D^M"); % middle down setkey ("mouse_null", "^[^@D^R"); % middle down setkey ("mouse_null", "^[^@U^M"); % middle up setkey ("mouse_null", "^[^@U^R"); % middle up define mouse_null (); define mouse_set_mark_cmd () { push_mark (); call("set_mark_cmd"); } % loop through windows moving the point to the mouse point % if same_window is false, and mouse is on status line, call status_fun % if use_status_fun is non-zero. % It returns zero if the status function was used, otherwise, it returns 1 define mouse_point_mouse (force, same_window, push, use_status_fun, status_fun) { variable n = nwindows (); variable top, bot, dy, col, want_col; while (n) { top = window_info('t'); bot = window_info('r') + top; if ((MOUSE_Y >= top) and (MOUSE_Y < bot)) { if (push) mouse_set_mark_cmd (); dy = MOUSE_Y - (top - 1 + window_line()); if (dy > 0) { dy -= down(dy); eol(); if (force) loop (dy) newline(); } else go_up(- dy); eol(); col = what_column (); want_col = window_info('c') + MOUSE_X - 1; !if (force or (want_col <= col)) want_col = col; () = goto_column_best_try(want_col); return 1; } if (same_window) { if (push) mouse_set_mark_cmd (); if (MOUSE_Y >= bot) { go_down(MOUSE_Y - bot + 1); } else { go_up(top - MOUSE_Y); } x_warp_pointer (); return 1; } if ((bot == MOUSE_Y) and (use_status_fun)) { status_fun (); return 0; } otherwindow(); n--; } error ("Mouse not in a window."); } variable Mouse_Drag_Mode = 0; variable Mouse_Buffer = " *Mouse buffer*"; variable Mouse_Delete_Region = 0; define copy_kill_to_mouse_buffer () { variable cbuf = whatbuf (); variable pnt, n; % % We are not going to copy to the pastebuffer if the region is nil % n = what_line(); pnt = POINT; push_spot(); pop_mark(1); if ((what_line() == n) and (POINT == pnt)) { pop_spot(); return; } push_mark(); pop_spot(); setbuf(Mouse_Buffer); erase_buffer (); setbuf (cbuf); if (Mouse_Delete_Region) () = dupmark(); () = dupmark(); %/* for cut buffer */ x_copy_region_to_cutbuffer (); copy_region(Mouse_Buffer); if (Mouse_Delete_Region) { Mouse_Delete_Region = 0; del_region(); } message ("region copied."); } define mouse_next_buffer () { variable n, buf, cbuf = whatbuf (); n = buffer_list (); %/* buffers on stack */ loop (n) { =buf; n--; if (buf[0] == ' ') continue; if (buffer_visible (buf)) continue; sw2buf (buf); loop (n) pop (); return; } error ("All buffers are visible."); } !if (is_defined ("Mouse_Save_Point_Mode")) { %!% Prototype: Integer Mouse_Save_Point_Mode = 1; %!% If this variable is non-zero, the editing point will be restored to its %!% original position when the left button is used to copy a region to the %!% cutbuffer. If the variable is zero, the current point is left at the %!% end of the copied region. variable Mouse_Save_Point_Mode = 1; } variable Mouse_Save_Point_Window; variable Mouse_Save_Point_Mark; define mouse_set_point_open () { Mouse_Drag_Mode = 0; Mouse_Save_Point_Window = window_info ('t'); Mouse_Save_Point_Mark = create_user_mark (); if (Mouse_Save_Point_Mode) Mouse_Save_Point_Mode = -1; if (mouse_point_mouse (0, 0, 0, 1, &mouse_next_buffer) and Mouse_Save_Point_Mode) { Mouse_Save_Point_Mode = 1; } } define mouse_set_point_close () { if (Mouse_Drag_Mode) { copy_kill_to_mouse_buffer (); Mouse_Drag_Mode = 0; if ((MOUSE_BUTTON == 1) and (Mouse_Save_Point_Mode > 0)) { loop (nwindows ()) { if (window_info ('t') == Mouse_Save_Point_Window) { !if (strcmp (whatbuf (), user_mark_buffer (Mouse_Save_Point_Mark))) goto_user_mark (Mouse_Save_Point_Mark); break; } otherwindow (); } Mouse_Save_Point_Mode = -1; } } else if (MOUSE_BUTTON == 3) { dupmark(); pop(); copy_kill_to_mouse_buffer (); pop_mark(1); } } define mouse_yank_from_jed () { () = mouse_point_mouse (0, 0, 0, 0, 0); if (bufferp(Mouse_Buffer)) insbuf(Mouse_Buffer); } define mouse_yank_cutbuffer () { variable w = window_info ('t'); variable max_loops = nwindows (); variable m = create_user_mark (); if (mouse_point_mouse (0, 0, 1, 1, &splitwindow)) { pop_mark (1); % since we set it in the function call while (max_loops and (w != window_info ('t'))) { otherwindow (); max_loops--; } if (max_loops) { goto_user_mark (m); () = x_insert_cutbuffer (); } } } define delete_window () { call("delete_window"); } define mouse_mark_and_copy () { Mouse_Drag_Mode = 0; () = mouse_point_mouse (0, 0, 1, 1, &delete_window); } define mouse_drag () { !if (Mouse_Drag_Mode) { mouse_set_mark_cmd (); Mouse_Drag_Mode = 1; } () = mouse_point_mouse (0, 1, 0, 0, 0); update (not(input_pending(0))); } define mouse_kill_region () { Mouse_Delete_Region = 1; mouse_mark_and_copy (0, 0, 1); } define mouse_split_window () { () = mouse_point_mouse (0, 0, 0, 0, 0); splitwindow(); } define mouse_delete_window () { () = mouse_point_mouse (0, 0, 0, 0, 0); delete_window (); } lete_window); } define mouse_drag () { !if (Mouse_Drag_Mode) { mouse_set_mark_cmd (); Mouse_Drag_Mode = 1; } () = mouse_point_mouse (0, 1, 0, 0, 0); update (not(input_pending(0))); } define mouse_kill_region () { Mouse_Delete_Region = 1; mouse_mark_and_copy (0, 0, 1); } define mouse_split_window () { () = mouse_point_mouse (0, 0, 0, 0, 0); splitwindow(); } define mouse_delete_window () { () = mouse_point_mouse (0, 0, 0, 0, 0); delete_windjed-0.97.12/lib/mousex.sl000064400000000000003000000131350603742311400147210ustar00rootsys00000000000000% mousex.sl % % Mouse routines for use inside an XTerm. % % It's reputed to work with the Linux Console (running selection -- gpm) % but it doesn't on my machine. % % % % Mouse actions: New rules (more XTerm-like) % % LEFT button: % If a region is marked, unmark it. % Move the point to this new location. % % MIDDLE button: % If a region is marked, copy it to the pastebuffer. % Otherwise, paste contents of the pastebuffer at the current point. % % RIGHT button: % Extend the region to this point. % % Special actions for the status line: % LEFT: switch window to a different buffer % MIDDLE: split the window % RIGHT: delete the window. % % % Cut/Paste Tips: % % To mark and manipulate a region: % % 1. Click the LEFT mouse button at the beginning of the region. % 2. Move the mouse to the end of the region and click the RIGHT % mouse button. The region should now be marked. % % Repeat step 2 to extend the marked region, as required. % Repeat step 1 to start again. % % 3. Click the MIDDLE button to copy the marked region to the pastebuffer. % % 4. Clicking the MIDDLE button will paste the contents of the pastebuffer % at the current point (use Step 1 to set the current point). % % Notes: % To delete the marked region, use the normal keystrokes, it's not % so convenient, but it does save making mistakes and is consistent % with the XTerm convention. If this restriction is too annoying, % then it's probably worth using an ESC prefixed sequence. % % % If you use the specially patched rxvt, holding down Alt (Mod1) while % using the mouse will permit the normal XTerm selection and pasting % to work. % % mj olesen % enable mouse tt_send ("\e[?9h"); % hooks to properly restore selection state (See $JED_ROOT/doc/mouse.txt) define exit_hook () { tt_send ("\e[?9l"); exit_jed (); } define suspend_hook () { tt_send ("\e[?9l"); } define resume_hook () { tt_send ("\e[?9h"); } % define keys setkey ("mouse_button1", "\e[M\040"); setkey ("mouse_button2", "\e[M\041"); setkey ("mouse_button3", "\e[M\042"); % for the future? % setkey ("esc_mouse_button1", "\e\e[M\040"); % setkey ("esc_mouse_button2", "\e\e[M\041"); % setkey ("esc_mouse_button3", "\e\e[M\042"); % misc service functions define pop_n () % argument on stack { loop () pop (); } define otherwindow_n () % argument on stack { loop () otherwindow (); } % returns values: line/column of mouse point, number of windows away, and % flag indicating whether or not the point in on the status line. % usage: % (is_status, nwins, row, column) = mouse_whereis (); define mouse_whereis () { variable is_status = 0, n, y, x, top, bot; n = nwindows (); x = getkey () - ' '; y = getkey () - ' '; % error (Sprintf ("x: %d, y: %d", x, y, 2)); while (n) { top = window_info('t'); bot = window_info('r') + top; if ((y >= top) and (y < bot)) { y += 1 + what_line () - (top + window_line()); break; } if (y == bot) { is_status = 1; break; } otherwindow(); n--; } !if (n) error ("Mouse not in a window."); otherwindow_n (n); x += window_info('c') - 1; return (is_status, nwindows () - n, x, y); } define mouse_next_buffer () { variable n, buf, cbuf = whatbuf (); n = buffer_list (); % buffers on stack loop (n) { buf = (); n--; if (buf[0] == ' ') continue; if (buffer_visible (buf)) continue; sw2buf (buf); pop_n (n); return; } error ("All buffers are visible."); } % Left mouse button define mouse_button1 () { variable is_status, n, x, y; (is_status, n, x, y) = mouse_whereis (); otherwindow_n (n); if (is_status) { mouse_next_buffer (); return; } if (markp()) pop_mark (0); goto_line (y); () = goto_column_best_try (x); } % Middle mouse button define mouse_button2 () { variable is_status, n; (is_status, n,,) = mouse_whereis (); if (is_status) { otherwindow_n (n); splitwindow (); return; } if (markp ()) { otherwindow_n (n); call ("copy_region"); message ("Region copied."); return; } call ("yank"); } % Right mouse button define mouse_button3 () { variable is_status, n, x, y; (is_status, n, x, y) = mouse_whereis (); otherwindow_n (n); if (is_status) { call ("delete_window"); return; } !if (markp ()) call ("set_mark_cmd"); goto_line (y); () = goto_column_best_try (x); } %%%%%%%%%%%%%%%%%%%%%%%%%% end-of-file (SLang) %%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % for historic purposes, here are the old rules % % LEFT button: % Move the point to this new location. % % MIDDLE button: % If a region is marked, copy it to the pastebuffer. % Otherwise, paste contents of the pastebuffer at the current point. % % RIGHT button: % If a region is marked, kill it to the pastebuffer. % Otherwise, set the mark to define a region. % % Special actions for the status line: % LEFT: switch window to a different buffer % MIDDLE: split the window % RIGHT: delete the window. % % Cut/Paste Tips: % % To mark and manipulate a region do: % % 1. Click the LEFT mouse button at the beginning of the region. % 2. Move the mouse to the end of the region and click the RIGHT % mouse button. The region should now be marked. % 3. To delete it and copy it to the paste buffer, press the RIGHT button % again. To simply copy it without deleting it, press the MIDDLE button. % % 4. To paste from the pastebuffer, move the mouse to where you want to % paste and press the MIDDLE button. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% e button at the beginning of the region. % 2. Move the mouse to the end of the region and click the RIGHT % mouse button. The region should now be marked. % 3. To delete it and copy it to the paste buffer, press the RIGHT button % again. To simply copy it without deleting it, press the MIDDLE button. % % 4. To paste from the pastebuffer, move the mouse to where you want to % paste and press tjed-0.97.12/lib/mutekeys.sl000064400000000000003000000110370603742311400152460ustar00rootsys00000000000000% % Mute (Dead or accent) keys for JED. % % To use this package, put a line like the following in your jed.rc % % mute_set_mute_keys ("`'^"); % % Here, the keys `, ', and ^ will be mute keys. That is, pressing one of % these followed by the character to accent will insert an accented % character in the buffer. This affects only the local keymap. Valid % % Valid Mute keys are: % ^, ~, ', `, \d168 (ISO Diaeresis), \d180 (ISO Acute), and ". define mute_insert_accent (wants_accent, ok_chars, maps_to) { variable pos, ch; ch = maps_to[0]; if (wants_accent) { !if (input_pending (10)) { message (strcat (char(ch), "-")); update (0); } ch = getkey (); pos = is_substr (ok_chars, char (ch)); if (pos) { pos--; ch = maps_to[pos]; } else { insert_char (maps_to[0]); ungetkey (ch); return; } } insert_char (ch); } variable Mute_Acute = 0; variable Mute_ISOAcute = 0; variable Mute_Circumflex = 0; variable Mute_Grave = 0; variable Mute_Tilde = 0; variable Mute_Diaeresis = 0; variable Mute_ISODiaeresis = 0; define mute_set_mute_keys (str) { variable i; Mute_Acute = 0; Mute_ISOAcute = 0; Mute_Circumflex = 0; Mute_Grave = 0; Mute_Tilde = 0; Mute_Diaeresis = 0; Mute_ISODiaeresis = 0; _for (0, strlen(str) - 1, 1) { i = (); switch (str[i]) { case '\'': local_setkey ("mute_keymap_39", "'"); Mute_Acute = 1; } { %% Asciitilde would be better to acute accent, if included in keyboard case '\d180': local_setkey ("mute_keymap_180", "\d180"); Mute_ISOAcute = 1; } { case '^': local_setkey ("mute_keymap_94", "^"); Mute_Circumflex = 1; } { case '`': local_setkey ("mute_keymap_96", "`"); Mute_Grave = 1; } { case '~': local_setkey ("mute_keymap_126", "~"); Mute_Tilde = 1; } { case '"': local_setkey ("mute_keymap_34", "\""); Mute_Diaeresis = 1; } { %% ISOLatin 1 diaeresis would be better, if included in keyboard case '\d168': local_setkey ("mute_keymap_168", "\d168"); Mute_ISODiaeresis = 1; } } } define mute_keymap_39 () % ' map { #ifdef MSDOS OS2 variable ok_chars = "'Eeaiou"; variable maps_to = "'\d144\d130\d160\d161\d162\d163"; #else variable ok_chars = "'AEIOUYaeiouy?!/1Cc"; variable maps_to = "'\d193\d201\d205\d211\d218\d221\d225\d233\d237\d243\d250\d253\d191\d161\d191\d161\d199\d231"; #endif mute_insert_accent (Mute_Acute, ok_chars, maps_to); } define mute_keymap_180 () % \d180 map { #ifdef MSDOS OS2 variable ok_chars = "'Eeaiou"; variable maps_to = "'\d144\d130\d160\d161\d162\d163"; #else variable ok_chars = "\d180AEIOUYaeiouy"; variable maps_to = "\d180\d193\d201\d205\d211\d218\d221\d225\d233\d237\d243\d250\d253"; #endif mute_insert_accent (Mute_ISOAcute, ok_chars, maps_to); } define mute_keymap_94 () % ^ map { #ifdef OS2 MSDOS variable ok_chars = "^aeiou"; variable maps_to = "^\d131\d136\d140\d147\d150"; #else variable ok_chars = "^aeiou"; variable maps_to = "^\d226\d234\d238\d244\d251"; #endif mute_insert_accent (Mute_Circumflex, ok_chars, maps_to); } define mute_keymap_96 % ` map { #ifdef OS2 MSDOS variable ok_chars = "`aeiou"; variable maps_to = "`\d133\d138\d141\d149\d151"; #else variable ok_chars = "`AEIOUaeiou"; variable maps_to = "`\d192\d200\d204\d210\d217\d224\d232\d236\d242\d249"; #endif mute_insert_accent (Mute_Grave, ok_chars, maps_to); } define mute_keymap_126 % ~ map { #ifdef MSDOS OS2 variable ok_chars = "~Nn"; variable maps_to = "~\d165\d164"; #else variable ok_chars = "~NnAOao"; variable maps_to = "~\d209\d241\d195\d213\d227\d245"; #endif mute_insert_accent (Mute_Tilde, ok_chars, maps_to); } define mute_keymap_34 % \" map { #ifdef MSDOS OS2 variable ok_chars = "\"uaAeioyOU"; variable maps_to = "\"\d129\d132\d142\d137\d139\d148\d152\d153\d154"; #else variable ok_chars = "\"AEIOUaeiouys"; variable maps_to = "\"\d196\d203\d207\d214\d220\d228\d235\d239\d246\d252\d255\d223"; #endif mute_insert_accent (Mute_Diaeresis, ok_chars, maps_to); } define mute_keymap_168 % \d168 map { #ifdef MSDOS OS2 variable ok_chars = "\"uaAeioyOU"; variable maps_to = "\"\d129\d132\d142\d137\d139\d148\d152\d153\d154"; #else variable ok_chars = "\d168AEIOUaeiouy"; variable maps_to = "\d168\d196\d203\d207\d214\d220\d228\d235\d239\d246\d252\d255"; #endif mute_insert_accent (Mute_ISODiaeresis, ok_chars, maps_to); } "\d196\d203\d207\d214\d220\d228\d235\d239\d246\d252\d255\d223"; #endif mute_insert_accent (Mute_Diaeresis, ok_chars, maps_to); } define mute_keymap_168 % \d168 map { #ifdef MSDOS OS2 variable ok_chars = "\"uaAeioyOU"; variable maps_to = "\"\d129\d132\d142\d137\d139\d148\d152\d153\d154"; #else variable ok_chars = "\d168AEIOUaeiouy"; variable maps_to = "\d168\d196\d203\d207\d214\d220\d228\d235\d239\d246\d252\d255"; #endif mute_insert_accent (Mute_ISODiajed-0.97.12/lib/os.sl000064400000000000003000000011510603742311400140150ustar00rootsys00000000000000% This file should not be byte-compiled. % It is loaded from site.sl and permits various flavors of jed to share the % same set of S-Lang files. It is written in RPN for efficiency. #ifdef XWINDOWS MOUSE #ifdef MSWINDOWS . "mswmouse" evalfile pop #else . "mouse" evalfile pop #endif #endif #ifdef XWINDOWS . "HOST" getenv =$1 . $1 strlen { "XJed@" $1 strcat x_set_window_name } if . "skip_word" "^[[c" setkey %/* shift-right */ . "bskip_word" "^[[d" setkey %/* shift-left */ . "goto_top_of_window" "^[[a" setkey %/* shift-up */ . "goto_bottom_of_window" "^[[b" setkey %/* shift-down */ #endif o share the % same set of S-Lang files. It is written in RPN for efficiency. #ifdef XWINDOWS MOUSE #ifdef MSWINDOWS . "mswmouse" evalfile pop #else . "mouse" evalfile pop #endif #endif #ifdef XWINDOWS . "HOST" getenv =$1 . $1 strlen { "XJed@" $1 strcat x_set_window_name } if . "skip_word" "^[[c" setkey %/* shift-right */ . "bskip_word" "^[[d" setkey %/* shift-left */ . "goto_top_of_window" jed-0.97.12/lib/pipe.sl000064400000000000003000000010420603742311400143300ustar00rootsys00000000000000variable Last_Process_Command = Null_String; define process_region () { variable cmd, tmp_file; cmd = read_mini ("Pipe to command:", Last_Process_Command, Null_String); !if (strlen (cmd)) return; Last_Process_Command = cmd; tmp_file = make_tmp_file ("/tmp/jedpipe"); cmd = strncat (cmd, " > ", tmp_file, " 2>&1", 4); !if (dupmark ()) error ("Mark not set."); if (-1 == pipe_region (cmd)) error ("Pipe failed."); del_region (); () = insert_file (tmp_file); () = delete_file (tmp_file); } ll_String; define process_region () { variable cmd, tmp_file; cmd = read_mini ("Pipe to command:", Last_Process_Command, Null_String); !if (strlen (cmd)) return; Last_Process_Command = cmd; tmp_file = make_tmp_file ("/tmp/jedpipe"); cmd = strncat (cmd, " > ", tmp_file, " 2>&1", 4); !if (dupmark ()) error ("Mark not set."); if (-1 == pipe_region (cmd)) error ("Pipe failed."); del_region (); () = insert_file (tmp_file); () = djed-0.97.12/lib/preparse.sl000064400000000000003000000001010603742311500152100ustar00rootsys00000000000000variable Preprocess_Only = 1; evalfile ("bytecomp.sl"); pop (); on () { variable cmd, tmp_file; cmd = read_mini ("Pipe to command:", Last_Process_Command, Null_String); !if (strlen (cmd)) return; Last_Process_Command = cmd; tmp_file = make_tmp_file ("/tmp/jedpipe"); cmd = strncat (cmd, " > ", tmp_file, " 2>&1", 4); !if (dupmark ()) error ("Mark not set."); if (-1 == pipe_region (cmd)) error ("Pipe failed."); del_region (); () = insert_file (tmp_file); () = djed-0.97.12/lib/regexp.sl000064400000000000003000000031200603742311500146650ustar00rootsys00000000000000% % Interactive Regular expression searches. These highlight region matched % until next key is pressed. % !if (is_defined ("replace_with_query")) pop(evalfile ("srchmisc")); define re_search_dir (pat, dir) { variable ret; if (dir > 0) ret = re_fsearch (pat); else ret = re_bsearch (pat); ret--; ret; } define re_search_forward() { variable pat, not_found = 1; pat = read_mini("Search (Regexp):", Null_String, Null_String); !if (strlen(pat)) return; push_mark(); ERROR_BLOCK { pop_mark (not_found); } not_found = not (search_maybe_again (&re_search_dir, pat, 1)); if (not_found) error ("Not found."); EXECUTE_ERROR_BLOCK; } define re_search_backward() { variable pat, not_found; pat = read_mini("Backward Search (Regexp):", Null_String, Null_String); !if (strlen(pat)) return; push_mark(); ERROR_BLOCK { pop_mark (not_found); } not_found = not (search_maybe_again (&re_search_dir, pat, -1)); if (not_found) error ("Not found."); EXECUTE_ERROR_BLOCK; } define research_search_function (pat) { re_fsearch (pat) - 1; } define re_replace_function (str, len) { replace_match(str, 0); pop (); -2; } define query_replace_match() { variable pat, n, rep, prompt, doit, err, ch; err = "Replace Failed!"; pat = read_mini("Regexp:", Null_String, Null_String); !if (strlen(pat)) return; prompt = strcat (strcat ("Replace '", pat), "' with:"); rep = read_mini(prompt, Null_String, Null_String); replace_with_query (&research_search_function, pat, rep, 1, &re_replace_function); } re_fsearch (pat) - 1; } define re_replace_function (str, len) { replace_match(str, 0); pop (); -2; } define query_replace_match() { variable pat, n, rep, prompt, doit, err, ch; err = "Replace Failed!"; pat = read_mini("Regexp:", Null_String, Null_String); !if (strlen(pat)) return; prompt = strcat (strcat ("Replace '", pat), "' with:"); rep = read_mini(prompt, Null_String, Null_String); replacjed-0.97.12/lib/replace.sl000064400000000000003000000023470603742311500150200ustar00rootsys00000000000000% % This function executes a query-replace across all buffers attached to % a file. % !if (is_defined ("search_search_function")) pop (evalfile ("search")); % This evalfile also brings in replace_do_replace. define replace_across_buffer_files () { variable cbuf = whatbuf (); variable n = buffer_list (); variable buf, file, flags; variable pat, rep; pat = read_mini ("Replace:", Null_String, Null_String); !if (strlen (pat)) return; rep = read_mini ("Replace with:", Null_String, Null_String); push_spot (); % save our location ERROR_BLOCK { sw2buf (cbuf); pop_spot (); loop (n) pop (); % remove buffers from stack } while (n) { buf = (); n--; % skip special buffers if ((buf[0] == '*') or (buf[0] == ' ')) continue; sw2buf (buf); (file,,,flags) = getbuf_info (); % skip if no file associated with buffer, or is read only !if (strlen (file) or (flags & 8)) continue; % ok, this buffer is what we want. push_spot (); ERROR_BLOCK { pop_spot (); } bob (); replace_with_query (&search_search_function, pat, rep, 1, &replace_do_replace); pop_spot (); } EXECUTE_ERROR_BLOCK; message ("Done."); } ip special buffers if ((buf[0] == '*') or (buf[0] == ' ')) continue; sw2buf (buf); (file,,,flags) = getbuf_info (); % skip if no file associated with buffer, or is read only !if (strlen (file) or (flags & 8)) continue; % ok, this buffer is what we want. push_spotjed-0.97.12/lib/rmail.sl000064400000000000003000000711630603742311500145130ustar00rootsys00000000000000%!% variable that controls the location of the mailbox for new mail variable Rmail_Spool_Dir = "/usr/spool/mail"; $1 = getenv("MAIL"); if (strlen($1)) Rmail_Spool_Dir = $1; %!% where the JED mail reader should put the mail !if (is_defined("Rmail_Directory")) { variable Rmail_Directory = dircat(getenv("HOME"), "Mail"); } %!% temporary mailbox where newmail is moved to before parsed and converted. variable Rmail_Tmp_Mbox = dircat(Rmail_Directory, "#NewMail#"); %!% name to use to indicate that this directory is locked. This way %!% another jed rmail reader cannot read this now. variable Rmail_Lock_File_Name = "___LOCKED___"; variable Rmail_Master_Index_File = dircat(Rmail_Directory, "_Root_Index.index"); variable Rmail_Folder_Buffer = Null_String; variable Rmail_Folder_Name = Null_String; variable Rmail_Newmail_Folder = "New-Mail"; variable Rmail_Root_Buffer = "Rmail: Folder List"; variable Rmail_Mail_Buffer_Name = Null_String; !if (is_defined("Rmail_Dont_Reply_To")) { % comma separated list of name to not reply to. variable Rmail_Dont_Reply_To; $1 = getenv("USER"); $2 = getenv("HOST"); variable Rmail_Dont_Reply_To = $1; if (strlen($1) and strlen ($2)) { Rmail_Dont_Reply_To = Sprintf("%s,%s@%s", $1, $1, $2, 3); } } Rmail_Dont_Reply_To = strlow (Rmail_Dont_Reply_To); variable Rmail_Message_Number = Null_String; %/* this is a string!! */ % check for existence of Rmail directory. Create it if it does not exist. !if (file_status(Rmail_Directory)) { !if (mkdir(Rmail_Directory)) error(strcat ("Unable to create ", Rmail_Directory)); if (chmod(Rmail_Directory, 0700)) error ("chmod failed!"); } define rmail_buffer_name(folder) { strcat ("Rmail: ", folder); } define rmail_folder_file(folder) { strcat (dircat (Rmail_Directory, folder), ".index"); } % set buffer flags so that autosave is off but save anyway is on. % This way it gets saved in case of a power failure or something. define rmail_set_buffer_flags() { variable flags = getbuf_info(); flags = (flags | 0x80) & ~(0x2); % turn off autosave, turn on save flags = flags & ~(0x20); % turn off undo flags = flags | 0x100; % No backup file. setbuf_info(flags); } define rmail_save_buffer_secure() { variable dir, file, flags; flags = getbuf_info(); pop(); =dir; =file; !if ((flags & 1) and strlen(file)) return; file = dircat(dir, file); write_buffer(file); pop(); chmod(file, 0600); pop(); } define rmail_update_master_index (folder, n, total, n_unread) { variable cbuf = whatbuf(), f, fline; fline = Sprintf("Folder:\t%20s\t(%d/%d) messages. %d unread.\n", folder, n, total, n_unread, 4); variable flags; read_file(Rmail_Master_Index_File); pop(); rmail_set_buffer_flags(); push_spot(); bob(); % only save if necessary. !if (bol_fsearch(fline)) { !if (bol_fsearch(Sprintf("Folder:\t%20s\t(", folder, 1))) eob(); set_readonly(0); delete_line(); insert(fline); set_readonly(1); } rmail_save_buffer_secure(); % only if modified. pop_spot(); setbuf(cbuf); } define rmail_save_folder (folder, delit) { !if (bufferp(Rmail_Folder_Buffer)) return; variable file = rmail_folder_file(folder), n; variable total, n_ok, n_unread; setbuf(Rmail_Folder_Buffer); set_readonly(0); n = string(what_line()); % This is a good place to update the master index. % calculate total messages and number of deleted ones. eob(); bskip_chars(" \t\n"); total = what_line(); if (bobp ()) { total = 0; n = "0"; } bob(); n_ok = total; n_unread = 0; forever { if (looking_at("D")) n_ok--; else if (looking_at("-")) n_unread++; !if (down_1 ()) break; bol(); } rmail_update_master_index(folder, n_ok, total, n_unread); widen(); bob(); go_down_1 (); bol(); push_mark(); eol(); if (strcmp(bufsubstr(), n)) { delete_line(); insert(n); newline(); } rmail_save_buffer_secure(); if (delit) { delbuf(whatbuf()); return; } % % narrow it back % bob(); bol_fsearch("\x1F\xC\n"); pop(); go_down_1 (); push_mark(); eob(); narrow(); } define rmail_find_folder (folder) { variable file = rmail_folder_file(folder); rmail_save_folder(Rmail_Folder_Name, 1); Rmail_Folder_Buffer = rmail_buffer_name(folder); find_file(file); pop(); rmail_set_buffer_flags(); rename_buffer(Rmail_Folder_Buffer); Rmail_Folder_Name = folder; % make sure buffer is properly formatted. Routines expect this to be % widened. widen(); bob(); if (eobp()) { % new, format it insert("0\n1\n\x1F\xC\n") } } define rmail_get_header(h) { bob(); !if (strcmp(h, "Date: ")) { % special treatment for date. It always looks like: % Wed, 11 jun 1993 % or: Sun Dec 04, 1994 11:05:52 GMT % The day and , are somtimes missing and 1993 may be just 93. if (re_fsearch("^Date:[ \t]+[a-zA-Z,]* *0?\\([1-3]?\\d\\) +\\([a-zA-Z]+\\) +")) return Sprintf("%s-%s", regexp_nth_match(1), regexp_nth_match(2), 2); if (re_fsearch("^Date:[ \t]+[a-zA-Z]+ \\([a-zA-Z]+\\) +0?\\([1-3]?\\d\\)[ ,]+")) return Sprintf("%s-%s", regexp_nth_match(2), regexp_nth_match(1), 2); return Null_String; } !if (bol_fsearch(h)) return Null_String; go_right(strlen(h)); skip_white(); push_mark(); eol(); trim(); bufsubstr(); } define rmail_extract_headers() { variable from = Null_String, date = Null_String, subject = Null_String; push_spot(); bob(); push_mark(); push_mark(); skip_chars("\n \t"); del_region(); newline(); !if (bol_fsearch("\n")) eob(); narrow(); from = rmail_get_header("From "); !if (strlen(from)) from = rmail_get_header("From: "); date = rmail_get_header("Date: "); subject = rmail_get_header("Subject: "); widen(); pop_spot(); % RAFE (flags, the - means it has not been read.) Sprintf(" %6s %25.25s %s\n", date, from, subject, 3); } % This routine assumes that the buffer is narrow. define rmail_make_filename() { variable cbuf = whatbuf(), n; setbuf(Rmail_Folder_Buffer); bob(); push_mark(); push_mark(); eol(); n = bufsubstr(); del_region(); if (strlen(n)) n = integer(n); else n = 0; ++n; n = string(n); bob(); insert(n); if (eobp()) { insert("\n1\n\x1F\xC\n"); } setbuf(cbuf); return n; } define rmail_create_folder(folder) { variable dir = dircat(Rmail_Directory, folder); if (file_status(dir)) return dir; !if (mkdir(dir)) error ("Unable to create folder directory."); chmod(dir, 0700); pop(); rmail_update_master_index(folder, 0, 0, 0); return (dir); } define rmail_output_newmail() { variable headers = rmail_extract_headers(); variable cbuf = whatbuf(); variable n = rmail_make_filename(), file; file = rmail_create_folder (Rmail_Folder_Name); file = dircat(file, n); bob(); push_mark(); skip_chars("\n \t"); del_region(); push_mark(); eob(); write_region_to_file(file); pop(); chmod(file, 0600); pop(); setbuf(Rmail_Folder_Buffer); eob(); % If this format is changed, change it in xpunge as well. insert(Sprintf("-%3s", n, 1)); insert(headers); setbuf(cbuf); } define rmail_process_newmail (mbox) { variable n = 0, from = "^\\cFrom "; rmail_find_folder(Rmail_Newmail_Folder); eob(); push_spot(); setbuf(" *rmail-newmail*"); erase_buffer(); if (insert_file(mbox) <= 0) error ("File not inserted."); bob(); push_mark(); !if (re_fsearch(from)) error ("New mail with no messages!"); del_region(); forever { push_mark(); eol(); if (re_fsearch(from)) go_up_1 (); else eob(); narrow(); ++n; flush (Sprintf ("Prcoessing %d messages...", n, 1)); rmail_output_newmail(); erase_buffer(); widen(); if (eobp()) break; del(); } % pop back to beginning of the newest messages in the folder. % in addition, save_folder expects the buffer to be narrowed. whatbuf(); setbuf(Rmail_Folder_Buffer); bob(); bol_fsearch("\x1F\xC\n"); pop(); go_down_1 (); push_mark(); eob(); narrow(); pop_spot(); setbuf(()); rmail_save_folder(Rmail_Newmail_Folder, 1); return n; } define rmail_get_newmail() { variable file, n; variable nomail, cmd; variable exec_file; nomail = "No new mail."; file = getenv("MAIL"); !if (strlen(file)) file = dircat(Rmail_Spool_Dir, getenv("USER")); if (stat_file(file)) { message(nomail); return (0); } !if (stat_struct("size")) { message(nomail); return (0); } flush("Getting new mail..."); exec_file = dircat(Jed_Bin_Dir, "getmail"); if (file_status(exec_file) != 1) { error (strcat (exec_file, " not found!")); } cmd = Sprintf("%s %s %s", exec_file, file, Rmail_Tmp_Mbox, 3); push_mark(); pipe_region(cmd); pop(); n = rmail_process_newmail (Rmail_Tmp_Mbox); % delete_file(Rmail_Tmp_Mbox); return n; } define rmail_folder_mode() { variable flags; find_file(Rmail_Master_Index_File); pop(); set_readonly(1); rmail_set_buffer_flags(); rename_buffer(Rmail_Root_Buffer); bob(); use_keymap("Rmail-Folder"); } define rmail_exit_folder () { rmail_save_folder(Rmail_Folder_Name, 1); if (bufferp(Rmail_Root_Buffer)) pop2buf(Rmail_Root_Buffer); else rmail_folder_mode(); onewindow(); if (bufferp(Rmail_Mail_Buffer_Name)) { delbuf(Rmail_Mail_Buffer_Name); Rmail_Message_Number = Null_String; } Rmail_Mail_Buffer_Name = Null_String; message(Null_String); } variable Rmail_Headers_Hidden = 0; define rmail_unhide_headers () { variable mark = "\x1F\xC\n"; Rmail_Headers_Hidden = 0; set_readonly(0); widen(); bob(); push_mark(); !if (bol_fsearch("\n")) eob(); narrow(); bob(); % make a mark if not found if (bol_fsearch(mark)) { go_down_1 (); push_spot(); % delete visible headers push_mark(); eob(); del_region(); % restore old ones bob(); push_mark(); bol_fsearch(mark); pop(); bufsubstr(); eob(); insert(); pop_spot(); } else { insert(mark); push_mark(); eob(); bskip_chars("\n"); bufsubstr(); bob(); insert(); newline(); go_down(2); } push_mark(); widen(); eob(); narrow(); bob(); set_readonly(1); } define rmail_hide_headers() { variable ok_headers = "From,Subj,Cc,Organ,In-Reply,Date,Reply-To,To", header; variable n; rmail_unhide_headers(); Rmail_Headers_Hidden = 1; widen(); bob(); push_mark(); !if (bol_fsearch("\n")) eob(); narrow(); bob(); !if (bol_fsearch("\x1F\xC\n")) error ("Unable to find marker."); set_readonly(0); push_spot(); n = 0; % mark ok lines while (header = extract_element(ok_headers, n, ','), strlen(header)) { n++; while (bol_fsearch(header)) { insert("\xFF"); } pop_spot(); push_spot(); } pop_spot(); eol(); go_right(1); % delete unmarked lines while(not(eobp())) { bol(); if (looking_at("\xFF")) { del(); eol(); go_right(1); continue; } push_mark(); eol(); skip_chars("\n"); del_region(); eol(); } %newline(); widen(); bob(); bol_fsearch("\x1F\xC\n"); pop(); go_down_1 (); push_mark(); eob(); narrow(); bob(); } % This routines returns the file number of current summary line as a string. % If the line is invalid, it returns the null string. define rmail_extract_file_number() { bol(); go_right(1); skip_white(); push_mark(); skip_chars("0-9"); bufsubstr(); } define rmail_add_flag(flag) { variable n = 13, flags = "RFE"; flag = char(flag); n += is_substr(flags, flag); goto_column(n); !if (looking_at(flag)) { insert(flag); del(); } } % this routine returns 0 if line does not contain a valid message % 1 if the message is already in the window, 2 if not but it exists, -1 % if it had to be read in. define rmail_get_message(flag) { variable buf, file, n, n1, pop_buf, ret; !if (bufferp(Rmail_Folder_Buffer)) return (0); pop2buf(Rmail_Folder_Buffer); file = rmail_extract_file_number(); !if (strlen(file)) return 0; Rmail_Message_Number = file; set_readonly(0); bol(); if (looking_at("-")) { del(); insert_single_space (); } if (flag) rmail_add_flag(flag); set_readonly(1); buf = Sprintf("Rmail: %s(%s)", Rmail_Folder_Name, file, 2); pop_buf = buf; ret = 2; if (strcmp(buf, Rmail_Mail_Buffer_Name) or not(bufferp(buf))) { % % we have to read it in. % ret = -1; if (bufferp(Rmail_Mail_Buffer_Name)) { pop_buf = Rmail_Mail_Buffer_Name; } } if (buffer_visible(pop_buf)) { pop2buf(pop_buf); if (ret == 2) ret = 1; } else { % I want summary window at top. There is no nice way to do it % at present. onewindow(); n = window_info('r'); pop2buf(pop_buf); if (TOP_WINDOW_ROW == window_info('t')) { pop2buf(Rmail_Folder_Buffer); sw2buf(pop_buf); } n1 = window_info('r'); % we want n to be 4 lines % now it is: n -= n1 + 1; loop (n - 4) enlargewin(); pop2buf(Rmail_Folder_Buffer); pop2buf(pop_buf); } if (ret != -1) return ret; set_readonly(0); widen(); erase_buffer(); Rmail_Mail_Buffer_Name = buf; file = dircat(dircat(Rmail_Directory, Rmail_Folder_Name), file); n = insert_file(file); ERROR_BLOCK { set_readonly(1); set_buffer_modified_flag(0); } if (n < 0) { bob (); push_mark (); eob (); write_region_to_file (file); pop (); error ("File not found!"); } bob(); rename_buffer(buf); rmail_hide_headers(); EXECUTE_ERROR_BLOCK; return (ret); } define rmail_toggle_headers() { !if (rmail_get_message(0)) return; if (Rmail_Headers_Hidden) { rmail_unhide_headers(); } else rmail_hide_headers(); set_buffer_modified_flag(0); set_readonly(1); pop2buf(Rmail_Folder_Buffer); } define rmail_scroll_forward() { ERROR_BLOCK { pop2buf(Rmail_Folder_Buffer); } if (rmail_get_message(0) == 1) { update(0); call("page_down"); } EXECUTE_ERROR_BLOCK; } define re_looking_at (str) { push_mark (); narrow (); bol (); re_fsearch (strcat ("^", str)); widen (); } define rmail_skip_quotes () { ERROR_BLOCK { pop2buf(Rmail_Folder_Buffer); } if (rmail_get_message(0) == 1) { update(0); goto_top_of_window (); go_down_1 (); if (re_fsearch ("^ *[>:|=]")) { while (orelse {re_looking_at (" *[>:|=]")} {skip_white (); eolp ();}) { !if (down (1)) break; } recenter (1); } } EXECUTE_ERROR_BLOCK; } define rmail_scroll_backward() { ERROR_BLOCK { pop2buf(Rmail_Folder_Buffer); } if (rmail_get_message(0) == 1) { update(0); call("page_up"); } EXECUTE_ERROR_BLOCK; } define rmail_forward_message() { variable cbuf; !if (rmail_get_message('F')) { beep(); return; } cbuf = whatbuf(); mail(); if (buffer_modified ()) { !if (get_yes_no("Mail already being composed. Erase it")) return; } eob(); insbuf(cbuf); bob(); eol(); } define str_remove_spaces (f) { while (str_replace (f, " ", ",")) f = (); return strcompress (f, ","); } define rmail_complex_get_from (from) { variable f, sub_f, n; f = strtrim(str_uncomment_string (regexp_nth_match (1), "\"'(", "\"')")); f = str_remove_spaces (f); !if (strlen(f)) return from; % add to list if (strlen(from)) { % Now see if any part of it is in the list. n = 0; while (sub_f = extract_element (f, n, ','), strlen (sub_f)) { n++; !if (is_list_element(Rmail_Dont_Reply_To, strlow(sub_f), ',')) { from = strncat (from, ",", sub_f, 3); } } f = from; } f; } define rmail_reply() { !if (rmail_get_message('R')) { beep(); return; } variable subj = Null_String, from = Null_String, cbuf = whatbuf(); variable cc = Null_String; push_spot(); bob(); push_mark(); !if (bol_fsearch("\n")) eob(); narrow(); if (orelse {re_bsearch("^\\CReply-To:.*<\\(.+\\)>");} {re_bsearch("^\\CReply-To: *\\([^ ]+\\) *");} {re_bsearch("^\\CFrom:.*<\\(.+\\)>");} {re_bsearch("^\\CFrom:.*<\\(.+\\)>");} {re_bsearch("^\\CFrom: *\\([^ ]+\\) *");} {re_bsearch("^\\cFrom +\\([^ ]+\\) *");} ) { from = rmail_complex_get_from(from); } eob(); if (re_bsearch("^Subject: *\\(.*\\)$")) { subj = regexp_nth_match(1); } bob(); if (orelse {re_fsearch("^\\CCC:.*<\\(.+\\)>");} {re_fsearch("^\\CCC: *\\(.*\\)$");} ) { cc = rmail_complex_get_from(cc); } bob(); if (orelse {re_fsearch("^\\CTo:.*<\\(.+\\)>");} {re_fsearch("^\\CTo: *\\(.*\\)$");} ) { from = rmail_complex_get_from(from); } widen(); pop_spot(); mail(); onewindow(); if (buffer_modified ()) { !if (get_yes_no("Mail already being composed. Erase it")) return; } mail_format_buffer (); bob(); do { if (looking_at("To:")) { eol (); insert(from); } else if (looking_at("Cc:")) { eol (); insert (cc); } else if (looking_at("Subject:")) { eol (); insert (subj); bol (); ffind(":"); pop(); go_right(1); skip_white(); !if (looking_at("Re:")) insert ("Re: "); } } while (down_1 () and not (looking_at("-"))); eob(); push_mark(); narrow(); % This trick allows a single undo to remove the later insertion: erase_buffer(); insbuf(cbuf); bob(); do { bol(); insert(">"); } while (down_1 ()); newline(); bob(); widen(); !if (strlen(from)) { bob(); eol(); } } define rmail_find_next_message() { push_mark(); while (down_1 () and looking_at("D")); if (eobp()) { pop_mark(1); message("No more undeleted messages."); return(0); } pop_mark(0); 1; } define rmail_find_prev_message() { variable d = "D"; push_mark(); while (up_1 (), bol(), () and looking_at(d)); if (bobp() and looking_at(d)) { pop_mark(1); message("No more undeleted messages."); return(0); } pop_mark(0); 1; } define rmail_delete_forward() { bol(); if (eolp()) return beep(); !if (looking_at("D")) { set_readonly(0); del(); insert("D"); set_readonly(1); } rmail_find_next_message(); pop(); } define rmail_undelete () { push_mark(); eol(); if (bol_bsearch("D")) { set_readonly(0); del(); insert_single_space (); set_readonly(1); pop_mark(0); return; } pop_mark(1); beep(); } define rmail_next_message() { if (rmail_find_next_message()) { rmail_scroll_forward(); } } define rmail_prev_message() { if (rmail_find_prev_message()) { rmail_scroll_forward(); } } define rmail_select_folder (folder) { variable n; rmail_find_folder(folder); bob(); go_down_1 (); bol(); push_mark(); eol(); n = integer(bufsubstr()); bol_fsearch("\x1F\xC\n"); pop; go_down_1 (); push_mark(); eob(); narrow(); pop2buf(whatbuf()); goto_line(n); bol(); use_keymap("Rmail-Read"); set_status_line("Jed %b Folder. (%p) %t", 0); set_readonly(1); runhooks ("rmail_folder_hook"); } define rmail_folder_newmail() { variable n; if (-1 != prefix_argument (-1)) { variable file = read_file_from_mini ("Mailbox:"); !if (strlen (file)) return; n = rmail_process_newmail (file); } else { n = rmail_get_newmail(); } if (n) { flush(Sprintf("%d new messages.", n, 1)); rmail_select_folder(Rmail_Newmail_Folder); } else flush("No new mail."); } variable Rmail_Last_Folder = Null_String; % This routine deletes buffer containing message n if it exists % it returns 1 if is exists and is visible otherwise it returns 0. define rmail_validate_message () { variable vis = 0; variable buf = Sprintf("Rmail: %s(%s)", Rmail_Folder_Name, Rmail_Message_Number, 2); if (bufferp(buf)) { vis = buffer_visible(buf); delbuf(buf); } return vis; } define rmail_update_folder_and_save () { variable new_n; eob (); bskip_chars ("\n \t"); bol (); new_n = rmail_extract_file_number (); !if (strlen(new_n)) new_n = "0"; widen(); bob(); push_mark(); eol(); if (strcmp(bufsubstr(), new_n)) { delete_line(); insert(new_n); newline(); } bol_fsearch("\x1F\xC\n"); pop(); go_down_1 (); push_mark(); eob(); narrow(); pop_mark(1); rmail_save_folder(Rmail_Folder_Name, 0); } define rmail_resequence_folder () { variable n, file, new_file, dir, new_n = "0"; variable update_message = 0; ERROR_BLOCK { rmail_update_folder_and_save (); pop_spot (); } push_spot(); set_readonly(0); flush("Resequencing folder..."); dir = dircat(Rmail_Directory, Rmail_Folder_Name); n = 0; bob(); while (file = rmail_extract_file_number (), strlen(file)) { n++; new_n = string(n); if (strcmp(file, new_n)) { file = dircat(dir, file); new_file = dircat(dir, new_n); if (file_status (new_file)) error (strcat("Error renaming ", file)); if (rename_file(file, new_file)) error (strcat("Error renaming ", file)); bol(); go_right(1); push_mark(); skip_white(); skip_chars("0-9"); del_region(); insert(Sprintf("%3s", new_n, 1)); !if (strcmp(new_n, Rmail_Message_Number)) { update_message = rmail_validate_message (); } } !if (down_1 ()) break; } % update the last file number rmail_update_folder_and_save (); pop_spot(); eol (); bskip_chars("\n"); bol (); set_readonly(1); if (update_message or (integer(new_n) < integer(Rmail_Message_Number))) { Rmail_Message_Number = Null_String; rmail_scroll_forward (); } message("done."); } define rmail_build_folder_list () { variable slist = Null_String; variable cbuf = whatbuf (); setbuf (Rmail_Root_Buffer); push_spot (); bob (); while (bol_fsearch("Folder:\t")) { go_right (8); skip_white (); push_mark (); ffind ("\t"); pop (); slist = strncat (slist, ",", bufsubstr (), 3); } pop_spot (); setbuf (cbuf); slist; } define rmail_output_to_folder() { variable folder, header, old_n, new_n, new_file, old_file; variable old_folder = Rmail_Folder_Name; variable buf, vis; variable new_dir, old_dir = dircat(Rmail_Directory, Rmail_Folder_Name); old_n = rmail_extract_file_number (); !if (strlen(old_n)) return; folder = read_string_with_completion ("Move to folder:", Rmail_Last_Folder, rmail_build_folder_list ()); !if (strlen(folder)) return; !if (strcmp(folder, Rmail_Folder_Name)) return; new_dir = dircat(Rmail_Directory, folder); if (file_status(new_dir) != 2) { if (1 != get_yes_no(Sprintf("Folder %s does not exist, create it", folder, 1))) { return; } rmail_create_folder(folder); pop(); } % lets get this header bol(); push_mark(); eol(); header = bufsubstr(); rmail_find_folder (folder); % % generate a new filename % new_n = rmail_make_filename(); new_file = dircat(new_dir, new_n); old_file = dircat(old_dir, old_n); if (rename_file(old_file, new_file)) { rmail_select_folder(old_folder); error("Unable to rename file."); } eob(); insert(header); bol(); go_right(1); push_mark(); skip_white(); skip_chars("0-9"); del_region(); insert(Sprintf("%3s", new_n, 1)); Rmail_Last_Folder = folder; % Now narrow it so next routine can process it bob(); bol_fsearch("\x1F\xC\n"); pop; go_down_1 (); push_mark(); eob(); narrow(); rmail_select_folder(old_folder); set_readonly(0); bob(); bol_fsearch(header); pop(); delete_line(); rmail_resequence_folder(); } % This function is assumed to be called from within a folder. It REALLY % deletes files marked with the D. define rmail_xpunge_deletions () { variable file, dir, n, new_file; % variable old_n = Null_String; flush("Expunging messages..."); push_mark(); ERROR_BLOCK { rmail_resequence_folder (); pop_mark(0); set_readonly(1); } set_readonly(0); dir = dircat(Rmail_Directory, Rmail_Folder_Name); bob(); while (bol_fsearch("D")) { file = rmail_extract_file_number(); !if (strlen(file)) continue; % !if (strcmp(file, Rmail_Message_Number)) % { % old_n = file; % } file = dircat(dir, file); if (file_status(file) == 1) { !if (delete_file(file)) { error (strcat("Unable to delete ", file)); } delete_line(); } else { error(strcat("Unable to access ", file)); } } pop_mark(1); rmail_resequence_folder (); } $1 = "Rmail-Read"; !if (keymap_p($1)) { make_keymap($1); _for (' ', 127, 1) { $2 = char(()); undefinekey($2, $1); } definekey("rmail_skip_quotes", "\t", $1); definekey("rmail_delete_forward", "D", $1); definekey("rmail_delete_forward", "d", $1); definekey("rmail_exit_folder", "q", $1); definekey("rmail_exit_folder", "Q", $1); definekey("rmail_folder_newmail", "g", $1); definekey("rmail_folder_newmail", "G", $1); definekey("rmail_next_message", "n", $1); definekey("rmail_next_message", "N", $1); definekey("rmail_prev_message", "p", $1); definekey("rmail_prev_message", "P", $1); definekey("rmail_toggle_headers", "t", $1); definekey("rmail_toggle_headers", "T", $1); definekey("rmail_scroll_forward", " ", $1); definekey("rmail_scroll_forward", "\r", $1); definekey("rmail_scroll_backward", "^?", $1); definekey("rmail_xpunge_deletions", "x", $1); definekey("rmail_xpunge_deletions", "X", $1); definekey("rmail_reply", "r", $1); definekey("rmail_reply", "R", $1); definekey("rmail_forward_message", "f", $1); definekey("rmail_forward_message", "F", $1); definekey("rmail_output_to_folder", "o", $1); definekey("rmail_undelete", "u", $1); definekey("rmail_undelete", "U", $1); definekey("mail", "m", $1); definekey("mail", "M", $1); } define rmail_select_this_folder () { bol(); !if (looking_at("Folder:\t")) return beep(); ffind("\t"); pop(); skip_white(); push_mark(); !if (ffind("\t(")) { pop_mark(); beep(); return; } rmail_select_folder (bufsubstr()); } $1 = "Rmail-Folder"; !if (keymap_p($1)) { make_keymap($1); _for (' ', 127, 1) { $2 = char(()); undefinekey($2, $1); } definekey("rmail_folder_newmail", "g", $1); definekey("rmail_folder_newmail", "G", $1); definekey("rmail_quit_rmail", "q", $1); definekey("rmail_quit_rmail", "Q", $1); definekey("rmail_select_this_folder", " ", $1); definekey("rmail_select_this_folder", "\r", $1); definekey("mail", "m", $1); definekey("mail", "M", $1); } % if parameter is 0, unlock it if it is ours. Otherwise, lock or steal it. % it returns 1 if the lock was made, 0 if not. define rmail_check_lock_file(lck) { variable lpid, this_pid = string(getpid()), do_del; variable lock_file = dircat (Rmail_Directory, Rmail_Lock_File_Name); variable ret = 0, write_it = 0, lbuf; variable errbuf; read_file(lock_file); pop(); message (Null_String); lbuf = whatbuf(); ERROR_BLOCK { set_buffer_modified_flag(0); delbuf(lbuf); } % extract the pid, it will be null if file was created bob(); push_mark(); eol(); lpid = bufsubstr(); delete_line(); insert(this_pid); if (lck) { % check existence of pid if (unix_kill(integer (lpid), 0)) lpid = Null_String; if (orelse {not (strlen(lpid)) or not(strcmp(lpid, this_pid))} {error (Sprintf("Pid %s is locking mail directory. Sorry.", lpid, 1));} ) { ret = 1; write_it = 1; } } else !if (strcmp(lpid, this_pid)) { delete_file(lock_file); pop(); } % get_yes_no WILL change the buffer. This is because read_file was used % which is effectively a setbuf. get_yes_no calls update which restores % top level buffer. setbuf(lbuf); if (write_it) save_buffer(); EXECUTE_ERROR_BLOCK; return (ret); } define rmail_quit_rmail() { rmail_exit_folder(); % This puts us at the root again so save and get out. rmail_save_buffer_secure(); delbuf(Rmail_Root_Buffer); rmail_check_lock_file(0); pop(); % deletes the lock file. } define rmail () { variable n; !if (rmail_check_lock_file(1)) return; rmail_save_folder(Rmail_Folder_Name, 1); Rmail_Folder_Buffer = Null_String; rmail_folder_mode(); n = rmail_get_newmail(); if (n) { flush(Sprintf("%d new messages.", n, 1)); rmail_select_folder(Rmail_Newmail_Folder); } else { message("No new mail."); } } rmail_save_buffer_secure(); delbuf(Rmail_Root_Buffer); rmail_check_lock_file(0); pop(); % deletes the lock file. } define rmail () { variable n; !if (rmail_check_lock_file(1)) return; rmail_save_folder(Rmail_Folder_Name, 1); Rmail_Folder_Buffer = Null_String; rmail_folder_mode(); n = rmail_get_newmail(); if (n) { flush(Sprintf("%d new messages.", n,jed-0.97.12/lib/rot13.sl000064400000000000003000000010220603742311500143420ustar00rootsys00000000000000%% %% rot13.sl---- rotates text by 13 characters %% define rot13 () { variable i, j; % Initialize the array _for (0, 255, 1) { i = (); TRANSLATE_ARRAY [i] = i; } _for ('A', 'M', 1) { i = (); TRANSLATE_ARRAY [i] = i + 13; % Now take care of lower case ones i = i | 0x20; TRANSLATE_ARRAY [i] = i + 13; } _for ('N', 'Z', 1) { i = (); TRANSLATE_ARRAY [i] = i - 13; % Now take care of lower case ones i = i | 0x20; TRANSLATE_ARRAY [i] = i - 13; } translate_region (); } - rotates text by 13 characters %% define rot13 () { variable i, j; % Initialize the array _for (0, 255, 1) { i = (); TRANSLATE_ARRAY [i] = i; } _for ('A', 'M', 1) { i = (); TRANSLATE_ARRAY [i] = i + 13; % Now take care of lower case ones i = i | 0x20; TRANSLATE_ARRAY [i] = i + 13; } _for ('N', 'Z', 1) { i = (); TRANSLATE_ARRAY [i] = i - 13; % Now take care of lower case ones i = i | 0x20; TRANSLATE_ARRAY [i] = i - 13; } transjed-0.97.12/lib/search.sl000064400000000000003000000040650603742311500146510ustar00rootsys00000000000000% % forward and backward search functions. These functions can search across % lines. % !if (is_defined ("replace_with_query")) () = evalfile ("srchmisc"); define search_across_lines (str, dir) { variable n, s, s1, fun, len; len = strlen (str); fun = &fsearch; if (dir < 0) fun = &bsearch; n = is_substr (str, "\n"); !if (n) { if (fun (str)) return len; return -1; } s = substr (str, 1, n); s1 = substr (str, n + 1, strlen(str)); n = strlen(s); push_mark (); while (fun(s)) { % we are matched at end of the line. go_right (n); if (looking_at(s1)) { go_left(n); pop_mark(0); return len; } if (dir < 0) go_left (n); } pop_mark(1); -1; } define search_forward () { variable str, not_found = 1; str = read_mini("Search forward:", LAST_SEARCH, Null_String); !if (strlen(str)) return; push_mark (); ERROR_BLOCK { pop_mark (not_found); } if (looking_at(str)) go_right(1); save_search_string (str); not_found = not (search_maybe_again (&search_across_lines, str, 1)); if (not_found) error ("Not found."); EXECUTE_ERROR_BLOCK; } define search_backward () { variable str; str = read_mini("Search backward:", LAST_SEARCH, Null_String); !if (strlen(str)) return; save_search_string (str); !if (search_maybe_again (&search_across_lines, str, -1)) error ("Not found."); } define replace_do_replace (str, len) { push_mark (); go_right(len); del_region (); insert (str); strlen (str); } define search_search_function (pat) { variable len = strlen (pat); if (search_across_lines (pat, 1) > 0) return len; return -1; } define replace_cmd () { variable pat, prompt, rep; pat = read_mini("Replace:", Null_String, Null_String); !if (strlen (pat)) return; prompt = strcat (strcat ("Replace '", pat), "' with:"); rep = read_mini(prompt, Null_String, Null_String); replace_with_query (&search_search_function, pat, rep, 1, &replace_do_replace); message ("done."); } fine search_search_function (pat) { variable len = strlen (pat); if (search_across_lines (pat, 1) > 0) return len; return -1; } define replace_cmd () { variable pat, prompt, rep; pat = read_mini("Replace:", Null_String, Null_String); !if (strlen (pat)) return; prompt = strcat (strcat ("Replace '", pat), "' with:"); rep = read_mini(prompt, Null_String, Null_String); replace_with_query (&search_search_function, pat, rep, jed-0.97.12/lib/shell.sl000064400000000000003000000141200603742311600145050ustar00rootsys00000000000000% -*- SLang -*- shell.sl % % %% system specific routines variable Shell_Last_Shell_Command = Null_String; variable Shell_Prompt; #ifdef UNIX Shell_Prompt = "% "; #endif #ifdef MSDOS OS2 Shell_Prompt = "> "; #endif #ifdef VMS Shell_Prompt = "$ "; #endif #ifdef VMS define run_shell_cmd (cmd) { variable cfile, file = "_jed_shell.cmd_"; variable tmpdir; tmpdir = getenv ("SYS$SCRATCH"); !if (strlen (tmpdir)) tmpdir = "SYS$LOGIN:"; file = dircat (tmpdir, file); cfile = expand_jedlib_file ("vms_shell.com"); !if ( strlen (cfile) ) error ("Unable to open vms_shell.com"); flush ("starting process ..."); () = system ((Sprintf ("@%s/output=%s \"%s\"", cfile, file, cmd, 3))); () = insert_file (file); delete_file (file); % value returned } define do_shell_cmd () { variable cmd, dir; cmd = read_mini ("Shell Command:", Null_String, Shell_Last_Shell_Command); !if ( strlen (cmd) ) return; Shell_Last_Shell_Command = cmd; (,dir,,) = getbuf_info (); % get directory if ( change_default_dir (dir) ) error ("Unable to chdir!"); pop2buf ("*shell-output*"); erase_buffer (); run_shell_cmd (Shell_Last_Shell_Command); bob (); } #endif VMS #ifdef MSDOS % pass "(cmd) 2>&1" contructs to the system as "(cmd) > tmpfile 2>&1" define run_shell_cmd (cmd) { variable msg = "opening pipe ..."; variable tmp = "_jed_shl.cmd"; flush (msg); %% if ( is_substr (cmd, "2>&1") ) %% both; %% argv = extract_element (cmd, 1, ' '); if (system (Sprintf ("%s &> %s", cmd, tmp, 2)) < 0) error ("system failed."); () = insert_file (tmp); flush (strcat (msg, "done")); delete_file (tmp); % value returned } define do_shell_cmd () { variable cmd, dir; cmd = read_mini ("Shell Command:", Null_String, Shell_Last_Shell_Command); !if ( strlen (cmd) ) return; Shell_Last_Shell_Command = cmd; (,dir,,) = getbuf_info (); % get directory if ( change_default_dir (dir) ) error ("Unable to chdir!"); pop2buf ("*shell-output*"); erase_buffer (); shell_cmd (Shell_Last_Shell_Command); bob (); } #endif MSDOS #ifdef UNIX OS2 define do_shell_cmd () { variable cmd, dir, msg = "opening pipe ..."; cmd = read_mini ("Shell Command:", Null_String, Shell_Last_Shell_Command); !if ( strlen (cmd) ) return; Shell_Last_Shell_Command = cmd; (,dir,,) = getbuf_info (); % get directory if ( change_default_dir (dir) ) error ("Unable to chdir!"); pop2buf ("*shell-output*"); erase_buffer (); flush (msg); shell_cmd (Sprintf ("(%s) 2>&1", Shell_Last_Shell_Command, 1)); bob (); flush (strcat (msg, "done")); } #endif UNIX OS2 define shell () { variable dir, buf = "*shell*"; !if ( keymap_p (buf) ) { make_keymap (buf); definekey ("shell_input", "^M", buf); } (,dir,,) = getbuf_info (); % get directory if ( change_default_dir (dir) ) error ("Unable to chdir!"); pop2buf (buf); use_keymap (buf); insert (Sprintf ("\n(%s)\n%s", dir, Shell_Prompt, 2)); % no backup (0x100), no save ~(0x80), no undo ~(0x20), no autosave ~(0x2) % unmodified ~(0x1) getbuf_info (); setbuf_info ((() | 0x100) & ~(0xA3)); } %!% rudimentary `builtin' shell commands: %!% `cd [dir]' change the default directory %!% `exit' exit the subshell %!% `pwd' Print Working Directory %!% %!% functions to eliminate some jed/shell vs. real shell problems %!% `clear' erase the *shell* buffer %!% `e' simulate ^X^F keybinding %!% `jed' simulate ^X^F keybinding %!% %!% %!% returns one of the following on the stack %!% Null_String - builtin dispatched, no prompt %!% "pwd" - builtin dispatched, give prompt %!% cmd - use shell to execute CMD define shell_builtin (cmd) { variable argv, dir, buf, flag, pwd = "pwd"; variable cmd1 = strcompress (cmd, " \t"); (,dir,buf,flag) = getbuf_info (); % cwd info argv = extract_element (cmd, 0, ' '); % parse cmd switch (argv) % simple "aliases" {case pwd: argv} % 'pwd'='pwd' (no args) #ifdef UNIX {case "dir": % 'dir'='ls -Al' [dir [dir]] () = str_replace (cmd, argv, "ls -Al"); } #endif {case "clear": erase_buffer; pwd} % 'clear'=erase_buffer() {case "exit": % 'exit' set_buffer_modified_flag (0); delbuf (buf); Null_String; } {case "cd": % 'cd' [dir] argv = extract_element (cmd1, 1, ' '); !if ( strlen (argv) ) #ifdef MSDOS OS2 return pwd; #else argv = "~/"; #endif argv = expand_filename (argv); if ( change_default_dir (argv) ) insert ("Unable to chdir!\n"); else setbuf_info (Null_String, argv, buf, flag); pwd; % only "pwd" pending } {case "jed" or case ("e", argv): % jed argv = extract_element (cmd1, 1, ' '); if ( strlen (argv) ) () = find_file (expand_filename (dircat (dir, argv))); Null_String; % nothing pending } {pop (); cmd} % default = failure, cmd still pending } define shell_input () { variable cmd, dir, tmp; bol (); skip_chars (Shell_Prompt); skip_white (); push_mark (); eol (); cmd = bufsubstr (); eob (); bol (); skip_chars (Shell_Prompt); skip_white (); !if ( looking_at (cmd) ) insert (cmd); eol (); newline (); update (0); % Update now so user see that things are ok if ( strlen (cmd) ) { cmd = shell_builtin (cmd); !if ( strlen (cmd) ) { update (0); return; } (,dir,,) = getbuf_info (); % get directory if ( change_default_dir (dir) ) error ("Unable to chdir!"); if ( strcmp (cmd, "pwd") ) % not "pwd" { #ifdef VMS tmp = make_tmp_file ("sys$login:_jed_shell_."); variable file = expand_jedlib_file ("vms_shell.com"); !if ( strlen (file) ) error ("Unable to find vms_shell.com"); () = system (Sprintf ("@%s/output= %s %s", file, tmp, cmd, 3)); () = insert_file (tmp); () = delete_file (tmp); #else #ifdef MSDOS shell_cmd (cmd); #else shell_cmd (Sprintf ("(%s) 2>&1", cmd, 1)); #endif #endif } insert (Sprintf ("\n(%s)\n%s", dir, Shell_Prompt, 2)); } else { !if ( bolp () ) newline (); insert (Shell_Prompt); } set_buffer_modified_flag (0); #ifdef OS2 update (1); % Update due to problems with Borland C #endif } %%%%%%%%%%%%%%%%%%%%%%%%%% system (Sprintf ("@%s/output= %s %s", file, tmp, cmd, 3)); () = insert_file (tmp); () = delete_file (tmp); #else #ifdef MSDOS shell_cmd (cmd); #else shell_cmd (Sprintf ("(%s) 2>&1", cmd, 1)); #endif #endif } insert (Sprintf ("\n(%s)\n%s", dir, Shell_Prompt, 2)); } else { !if ( bolp () ) newline (); insert (Shell_Prompt); } set_buffer_modified_flag (0); #ifdef OS2 update (1);jed-0.97.12/lib/shmode.sl000064400000000000003000000016260603742311600146640ustar00rootsys00000000000000% This is a simple shell mode. It does not defined any form of indentation % style. Rather, it simply implements a highlighting scheme. $1 = "SH"; create_syntax_table ($1); define_syntax ("#", "", '%', $1); define_syntax ("([{", ")]}", '(', $1); define_syntax ('"', '"', $1); define_syntax ('\'', '\'', $1); define_syntax ('\\', '\\', $1); define_syntax ("-0-9a-zA-Z_", 'w', $1); % words define_syntax ("-+0-9", '0', $1); % Numbers define_syntax (",;:", ',', $1); define_syntax ("%-+/&*=<>|!~^", '+', $1); () = define_keywords ($1, "dofiif", 2); () = define_keywords ($1, "set", 3); () = define_keywords ($1, "casedoneechoelseesacexitthen", 4); () = define_keywords ($1, "aliasendifendswshiftunsetwhile", 5); () = define_keywords ($1, "setenvsourceswitch", 6); () = define_keywords ($1, "breaksw", 7); define sh_mode () { setmode("SH", 0); use_syntax_table ("SH"); runhooks("sh_mode_hook"); } syntax ("-+0-9", '0', $1); % Numbers define_syntax (",;:", ',', $1); define_syntax ("%-+/&*=<>|!~^", '+'jed-0.97.12/lib/simple.hlp000064400000000000003000000006270603742311600150430ustar00rootsys00000000000000Press Control-X to get simple menus or (^K = Control-K): ^KE exit ^D pagedown ^FF search ^K^B set mark ^V delete ^U pageup ^FB search back ^KK copy region ^E end of line ^K^W write buffer ^K^R replace ^K^P paste ^B beginning of line ^KG find file ^R redraw ^K^V cut region ^_ undo ^H^H this help ^Hi jed documentation yntax ("-+0-9", '0', $1); % Numbers define_syntax (",;:", ',', $1); define_syntax ("%-+/&*=<>|!~^", '+'jed-0.97.12/lib/site.sl000064400000000000003000001110770604364311200143500ustar00rootsys00000000000000%_traceback = 1; % % Site specific initialiation file. % % This file must be present in the JED_LIBRARY. JED loads it first--- even % before reading command line arguments. The command line arguments are then % passed to a hook declared in this file for further processing. % % In addition to some hooks, this file declares some autoloads for various % functions and defines utility functions. Any user specific stuff should be % placed in the jed.rc (.jedrc) user startup file. Only put here what you % believe EVERY user on your system should get! % % The best way to make changes in this file is to put all your changes in a % separate file, defaults.sl. defaults.sl is NOT distributed with JED. Code % at the edn of this file checks for the existence of `defaults.sl' and loads % it if found. Functions occuring in this file (site.sl) may be overloaded in % defaults.sl. Making changes this way also makes it easier to upgrade to % future JED versions. % % -------------------------------------------------------------------------- % Note: Some of the small routines here have been written in such a way that % the stack based nature of the language is exploited. That is, instead of % writing: % define sum (a, b) { return a + b; } % I use: % define sum () { () + (); } % The former parses to the bytecode: =b =a a b + return % where as the latter parses to: + % which is 6 times faster and 6 times more memory efficient! % -------------------------------------------------------------------------- % compatability define define_keywords () { define_keywords_n (0); } %!% A function to contat a directory with a filename. Basically checks %!% for the final slash on the dir and adds on if necessary define dircat(dir, file) { variable n = strlen(dir); if (n) { #ifdef MSDOS OS2 variable slash = "\\"; if (strcmp(substr(dir, n, 1), slash)) dir = strcat(dir, slash); #endif #ifdef UNIX variable slash = "/"; if (strcmp(substr(dir, n, 1), slash)) dir = strcat(dir, slash); #endif #ifdef VMS % convert a.dir;1 to [.a] first variable f1, d1; dir = extract_element(dir, 0, ';'); f1 = extract_element(dir, 1, ']'); if (strlen(f1)) f1 = strcat(".", extract_element(f1, 0, '.')); d1 = extract_element(dir, 0, ']'); strcat(d1, f1); if (':' != int(substr(dir, strlen(dir), 1))) strcat((), "]"); dir = (); #endif } expand_filename (strcat (dir, file)); } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Global Variables %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% variable Null_String = ""; %!% A Comma separated list of info directories to search. variable Info_Directory; variable Jed_Bin_Dir; %!% Prototype: Integer C_CONTINUED_OFFSET = 2; %!% This variable controls the indentation of statements that are continued %!% onto the next line as in the following example: %!% @ if (something) %!% @ continued_statement (); %!% @ else %!% @ another_continued_statement (); %!% Related Variables: @C_BRA_NEWLINE@, @C_BRACE@, @C_INDENT@, @C_Colon_Offset@ variable C_CONTINUED_OFFSET = 2; %!% Integer C_Colon_Offset = 1; %!% This variable may be changed to adjust the indentation of @case@ statements %!% in C-Mode. %!% See also: @c_mode@ %!% Related Variables: @C_BRA_NEWLINE@, @C_BRACE@, @C_INDENT@, @C_Colon_Offset@ variable C_Colon_Offset = 1; %!% Prototype: Void strncat (String a, String b, ..., Integer n); %!% Returns concatenated string "abc..." define strncat (n) { n--; loop (n) strcat (); } % For compatability variable LAST_SEARCH = ""; define save_search_string () { LAST_SEARCH = (); } %!% Prototype: Void bol_skip_white (); %!% This function combines the two functions @bol@ and @skip_white@ into a %!% single operation. That is, it moves the point to the beginning of the %!% line and then skips over whitespace to the first non-whitespace character. %!% See also: @bol@, @skip_white@, @skip_chars@ define bol_skip_white () { bol (); skip_white (); } %!% Prototype: Void bskip_white (); %!% This function skips backward over whitespace. %!% Note: it does not cross lines. %!% See also: @skip_white@, @bskip_chars@ define bskip_white () { bskip_chars ("\t "); } %% Convert Unix- or OS/2- style path to comma-delimited list define path2list(path) { #ifdef VMS path; #else variable n, pathsep, a_path; #ifdef UNIX pathsep = ':'; #else pathsep = ';'; #endif n = 0; Null_String; Null_String; while (a_path = extract_element(path, n, pathsep), strlen(a_path)) { strncat ((), (), a_path, 3); % strcat((), strcat((), a_path)); ","; n++; } pop(); #endif } #ifdef VMS Info_Directory = strcat(JED_ROOT, "[info]"); Jed_Bin_Dir = strcat(JED_ROOT, "[bin]"); #else Info_Directory = dircat(JED_ROOT, "info"); Jed_Bin_Dir = dircat(JED_ROOT, "bin"); #endif $1 = getenv("INFOPATH"); if (strlen($1)) Info_Directory = path2list($1); %!% Column to begin a C comment--- used by c_make_comment variable C_Comment_Column = 40; #ifdef UNIX if (OUTPUT_RATE > 9600) OUTPUT_RATE = 0; %% coming through a network? #endif %% %% Some key definitions %% % These two are for compatability: setkey("search_forward", "^Ff"); setkey("search_backward", "^Fb"); setkey("skip_word", "^[^[[C"); %escape right arrow. setkey("bskip_word", "^[^[[D"); %escape left arrow setkey("upcase_word", "^[U"); setkey("downcase_word", "^[L"); setkey("capitalize_word", "^[C"); setkey("emacs_escape_x", "^[X"); setkey("undo", "^Xu"); %% Also ^_ but vtxxx have problems with it setkey("transpose_lines", "^X^T"); setkey("help_prefix", "^H"); %setkey("indent_line_cmd", "^I"); %setkey("insert_colon_cmd", ":"); % setkey("newline_and_indent_cmd", "^M"); setkey("do_shell_cmd", "^[!"); setkey("find_tag", "^[."); setkey("dabbrev", "\e/"); setkey("save_buffers", "^Xs"); setkey("whatpos", "^X?"); setkey("list_buffers", "^X^B"); setkey ("set_fill_column", "^Xf"); setkey ("compile_parse_errors", "^X'"); #ifdef UNIX OS2 setkey("ispell", "^[$"); #endif #ifndef MSDOS OS2 setkey("mail", "^Xm"); #endif %% %% Autoloads %% $0 = _stkdepth (); _autoload("c_mode", "cmode", "slang_mode", "slmode", "find_binary_file", "binary", "jed_easy_help", "jedhelp", "query_replace_match", "regexp", "re_search_forward", "regexp", "re_search_backward", "regexp", "dired", "dired", "calendar", "cal", "menu_main_cmds", "menu", "trim_buffer", "util", "occur", "util", "info_reader", "info", "info_mode", "info", "info_find_node", "info", "list_buffers", "buf", "append_region", "buf", "write_region", "buf", "recover_file", "buf", "most_mode", "most", "run_most", "most", "compile", "compile", "sort", "sort", "untab", "untab", "fortran_mode", "fortran", "save_buffers", "buf", "sh_mode", "shmode", "rot13", "rot13", "search_forward", "search", "search_backward", "search", "replace_cmd", "search", "replace_across_buffer_files","replace", "isearch_forward", "isearch", "isearch_backward", "isearch", "shell", "shell", "mute_set_mute_keys", "mutekeys", #ifndef OS2 UNIX "run_shell_cmd", "shell", #endif "html_mode", "html", "do_shell_cmd", "shell", "find_tag", "ctags", "apropos", "help", "expand_keystring", "help", "describe_bindings", "help", "describe_function", "help", "describe_variable", "help", "help_for_function", "help", "where_is", "help", "showkey", "help", "describe_mode", "help", "format_paragraph_hook", "tmisc", "dabbrev", "dabbrev", "tex_mode", "tex", "bibtex_mode", "bibtex", "latex_mode", "latex", "bkmrk_goto_mark", "bookmark", "bkmrk_set_mark", "bookmark", "add_keyword", "syntax", "lisp_mode", "lisp", %% %% By default, tabs are every TAB columns (default 8). Calling this function %% will allow the user to set the tabs arbitrarily and bind the TAB key %% appropriately. "edit_tab_stops", "tabs", "tab_to_tab_stop", "tabs", "append_string_to_file", "misc", "write_string_to_file", "misc", "make_tmp_buffer_name", "misc", "abbrev_mode", "abbrev", "set_abbrev_mode", "abbrev", "save_abbrevs", "abbrmisc", "define_abbreviation", "abbrmisc", #ifdef UNIX VMS "mail", "mail", "mail_format_buffer", "mail", "dcl_mode", "dcl", #endif #ifdef UNIX OS2 "unix_man", "man", "ispell", "ispell", #endif #ifdef UNIX "rmail", "rmail", #endif #ifdef VMS "vms_help", "vmshelp", #endif "idl_mode", "idl", "nroff_mode", "nroff", (_stkdepth () - $0) / 2); % matches start of _autoload %------------------------------------------------------------------------- % Utility functions % For compatability define shell_cmd () { () = run_shell_cmd (); } %!% Prototype: Void go_up (Integer n); %!% Move up 'n' lines. %!% See also: up, go_down define go_up() { () = up(); } %!% Prototype: Void up_1 (); %!% Move up 1 line. If successful, returns 1 otherwise it returns 0. %!% See also: @up@, @go_down@, @go_up@, @go_up_1@ define up_1() { up(1); } %!% Prototype: Void go_up_1 (); %!% Move up exactly 1 line if possible. %!% See also: up, go_down define go_up_1 () { () = up_1(); } %!% Prototype: Void go_down (Integer n); %!% Move down 'n' lines. %!% See also: go_up, down define go_down() { () = down(); } %!% Prototype: Void down_1 (); %!% Move down exactly one lines. If sucessful, 1 is returned otherwise %!% zero is returned. %!% See also: @go_up@, @down@, @go_down_1@ define down_1 () { down (1); } %!% Prototype: Void go_down_1 (); %!% Move down one lines. %!% See also: go_up, down define go_down_1 () { () = down_1(); } %!% Prototype: Void go_left (Integer n); %!% Move backward 'n' characters. %!% See also: left, go_right define go_left() { () = left();} %!% Prototype: Void go_right (Integer n); %!% Move forward 'n' characters. %!% See also: right, go_left define go_right() { () = right();} %% emacs-like escape-x function define emacs_escape_x() { variable f = Null_String, i = 0; if (MINIBUFFER_ACTIVE) { call("evaluate_cmd"); return; } forever { if (is_internal(f)) { call(f); return; } if (is_defined(f)) { eval(f); return; } !if (EXECUTING_MACRO or DEFINING_MACRO) { if (i == 1) ungetkey(13); ungetkey(' '); ++i; } f = read_with_completion("M-x", Null_String, f, 'F') } } define goto_line_cmd() { read_mini("Goto line:", Null_String, Null_String); goto_line(integer(())); } define goto_column_cmd() { read_mini("Goto Column:", Null_String, Null_String); goto_column(integer(())); } %!% Prototype: Void runhooks (String fun) %!% if S-Lang function 'fun' is defined, execute it. It does nothing if 'fun' %!% does not exist. define runhooks(fun) { if (is_defined (fun)) eval(fun); } %!% Prototype: Void local_setkey (String fun, String key); %!% This function is like 'setkey' but unlike 'setkey' which operates on the %!% global keymap, 'local_setkey' operates on the current keymap which may or %!% may not be the global one. %!% See also: setkey, definekey, local_unsetkey define local_setkey () { definekey((), (), what_keymap()); } %!% Prototype: Void local_unsetkey (String key); %!% This function is like 'unsetkey' but unlike 'unsetkey' which unsets a key %!% from the global keymap, 'local_unsetkey' operates on the current keymap %!% which may or may not be the global one. %!% See also: unsetkey, undefinekey, local_setkey define local_unsetkey () { undefinekey( (), what_keymap()); } %!% insert a character into a buffer. %!% This function should be called instead of 'insert' when it is desired to %!% insert a 1 character string. Unlike 'insert', insert_char takes an integer %!% argument. For example, %!% 'x' insert_char %!% and %!% "x" insert %!% are functionally equivalent but insert_char is more memory efficient. define insert_char () { insert (char( () )); } %!% Prototype: Void newline (Void); %!% insert a newline in the buffer at point. %!% See also: insert, insert_char define newline () { insert_char('\n'); } %!% insert a single space into the buffer. define insert_single_space () { insert_char(' '); } %!% Prototype: Integer looking_at_char (Integer ch); %!% This function returns non-zero if the character at the current editing %!% point is 'ch' otherwise it retuns zero. This function performs a case %!% sensitive comparison. define looking_at_char () { what_char () == (); } %!% returns type of file. e.g., /usr/a.b/file.c --> c define file_type(file) { variable n; file = extract_filename(file); n = is_substr(file, "."); !if (n) return (Null_String); substr(file, n + 1, strlen(file)); } %;; scroll other window macros-- bind them yourself define next_wind_up() { otherwindow(); call("page_up"); loop (nwindows() - 1) otherwindow(); } define next_wind_dn() { otherwindow(); call("page_down"); loop (nwindows() - 1) otherwindow(); } %!% Mode for indenting and wrapping text %!% Functions that affect this mode include: %!% %!% Function: Default Binding: %!% indent_line TAB %!% newline_and_indent RETURN %!% format_paragraph ESC Q %!% narrow_paragraph ESC N %!% %!% Variables include: %!% WRAP_INDENTS, WRAP %!% TAB, TAB_DEFAULT define text_mode() { setmode("Text", 1); use_keymap("global"); runhooks ("text_mode_hook"); } %!% Generic mode not designed for anything in particular. %!% See: text_mode, c_mode define no_mode() { setmode(Null_String, 0); use_keymap("global"); } % Function prototypes % These 'functions' are only here to initialize function pointers. define _function_pop_0 (x) {0} %!% called from mode_hook. Returns 0 if it is desired that control return %!% to mode_hook or 1 if mode hook should exit after calling mode_hook_ptr variable mode_hook_pointer = &_function_pop_0; variable Default_Mode = &text_mode; % Emacs allows a mode definition on the first line of a file % -*- mode: MODENAME; VAR: VALUE; ... -*- % which can also include values of local variables %!% check first line for the simplest Emacs mode statement %!% -*- modename -*- define modeline_hook() { variable mode = Null_String; push_spot(); bob(); go_down (4); push_mark (); bob (); narrow (); if (looking_at("#!")) mode = "sh"; % #!/bin/sh, #!/usr/local/bin/perl, ... if (re_fsearch ("-\\*- *\\([-A-Za-z_]+\\) *-\\*-")) mode = strlow (regexp_nth_match (1)); widen (); pop_spot (); % restore place if ( strlen(mode) ) { variable mstr = "_mode"; while (str_replace (mode, "-", "_")) mode = (); !if (is_substr (mode, mstr)) mode = strcat (mode, "_mode" ); if (is_defined(mode)) { eval (mode); return 1; } } 0; } variable Mode_List_Exts = "c,h,cc,cpp,sl,txt,doc,tex,f,for,pro,idl,1"; variable Mode_List_Modes = "c,c,c,c,slang,text,text,tex,fortran,fortran,idl,idl,nroff"; #ifdef MSDOS OS2 Mode_List_Exts = strcat (Mode_List_Exts, ",rc,bat,htm"); % resource file Mode_List_Modes = strcat (Mode_List_Modes, ",c,no,html"); #endif #ifdef VMS UNIX Mode_List_Exts = strcat (Mode_List_Exts, ",com,html"); % resource file Mode_List_Modes = strcat (Mode_List_Modes, ",dcl,html"); #endif #ifdef UNIX Mode_List_Exts = strcat (Mode_List_Exts, ",cshrc,tcshrc,login,profile,conf"); Mode_List_Modes = strcat (Mode_List_Modes, ",sh,sh,sh,sh,sh"); #endif %!% Prototype: Void add_mode_for_extension (String mode, String ext); %!% This function modifies Mode_List in such a way that when a file with %!% filename extension `ext' is read in, function strcat (mode, "_mode") %!% will be called to set the mode. That is, the first parameter 'mode' %!% is the name of a mode without the '_mode' added to the end of it. define add_mode_for_extension (mode, ext) { variable comma = ","; Mode_List_Modes = strncat (mode, comma, Mode_List_Modes, 3); Mode_List_Exts = strncat (ext, comma, Mode_List_Exts, 3); } %!% This is a hook called by find_file routines to set the mode %!% for the buffer. This function takes one parameter, the filename extension %!% and returns nothing. define mode_hook (ext) { variable n, mode; #ifdef VMS ext = extract_element(ext, 0, ';'); #endif #ifdef MSDOS OS2 VMS ext = strlow (ext); #endif if (mode_hook_pointer(ext)) return; if (modeline_hook ()) return; n = is_list_element (Mode_List_Exts, ext, ','); if (n) { n--; mode = strcat (extract_element (Mode_List_Modes, n, ','), "_mode"); if (is_defined(mode)) { eval (mode); return; } } Default_Mode (); } %!% sets buf modified flag. If argument is 1, mark %!% buffer as modified. If argument is 0, mark buffer as unchanged. define set_buffer_modified_flag(modif) { getbuf_info(); if (modif) () | 1; else () & ~(1); setbuf_info(()); } %!% returns non-zero if the buffer modified flag is set. It returns zero %!% if the buffer modified flag is not been set. This works on the %!% current buffer. See also 'set_buffer_modified_flag'. define buffer_modified () { variable flags; (, , , flags) = getbuf_info (); flags & 1; } %!% set undo mode for buffer. If argument is 1, undo is on. 0 turns it off define set_buffer_undo(modif) { getbuf_info(); if (modif) () | 32; else () & ~(32); setbuf_info(()); } %!% Takes 1 parameter: 0 turn off readonly %!% 1 turn on readonly define set_readonly(n) { getbuf_info(); if (n) () | 8; else () & ~(8); setbuf_info(()); } %!% Takes 1 parameter: 0 turn off overwrite %!% 1 turn on overwrite define set_overwrite(n) { getbuf_info(); if (n) () | 16; else () & ~(16); setbuf_info(()); } define toggle_crmode () { setbuf_info(getbuf_info() xor 0x400); set_buffer_modified_flag (1); } define toggle_readonly() { setbuf_info(getbuf_info() xor 8); } define toggle_overwrite() { setbuf_info(getbuf_info() xor 16); } #ifdef MSDOS OS2 setkey(" /", "\eOQ"); setkey(" *", "\eOR"); setkey(" +", "\eOm"); setkey(" -", "\eOS"); setkey("toggle_overwrite", "\xE0R"); %/* insert key */ setkey("toggle_overwrite", "\eOn"); %/* insert key */ #endif define toggle_undo() { setbuf_info(getbuf_info() xor 32); } define double_line() { POINT; bol(); push_mark(); eol(); bufsubstr(); newline(); insert(()); =POINT; } define transpose_lines() { variable line; bol(); push_mark(); push_mark(); eol(); line = bufsubstr(); go_right(1); del_region(); go_up_1 (); bol(); insert(line); newline(); go_down_1 (); % goes to bol } %!% string to display at bottom of screen upon JED startup and when %!% user executes the help function. variable help_for_help_string; help_for_help_string = #ifdef VMS "^H -> Help:^H Menu:? Info:I Apropos:A Key:K Where:W Fnct:F VMSHELP:M Var:V"; #endif #ifdef MSDOS "^H -> Help:^H Menu:? Info:I Apropos:A Key:K Where:W Fnct:F Var:V Mem:M"; #endif #ifdef UNIX OS2 "^H -> Help:^H Menu:? Info:I Apropos:A Key:K Where:W Fnct:F Var:V Man:M"; #endif % Load minibuffer routines now before any files are loaded. % This will reduce fragmentation on PC. !if (BATCH) { #ifdef MSDOS UNIX OS2 VMS () = evalfile("mini"); #else autoload ("mini_exit_minibuffer", "mini"); autoload ("prev_mini_command", "mini"); autoload ("next_mini_command", "mini"); #endif } %for compatability with older versions %!% Prototype: String read_file_from_mini (String p); %!% This function prompts the user for a file name using @p@ as a prompt. %!% It reads a filename with completion from the mini-buffer and returns %!% it. %!% Related Functions: @read_with_completion@, @read_mini@ define read_file_from_mini () { read_with_completion( () , Null_String, Null_String, 'f'); } %!% Search for FILE in directories specified by JED_LIBRARY returning %!% expanded pathname if found or the Null string otherwise. define expand_jedlib_file(f) { variable n = 0, dir, file; forever { dir = extract_element(JED_LIBRARY, n, ','); !if (strlen(dir)) return (Null_String); file = dircat(dir, f); if (file_status(file) == 1) break; ++n; } file; } %!% Prototype: String read_string_with_completion (prompt, dflt, list) %!% This function takes 3 String parameters and returns a String. The %!% first parameter is used as the prompt, the second parameter is the %!% default value to be returned and the third parameter is a list to be used %!% for completions. This list is simply a comma separated list of strings. define read_string_with_completion (prompt, dflt, list) { read_with_completion (list, prompt, dflt, Null_String, 's'); } %!% If non-zero, startup by asking user for a filename if one was %!% not specified on the command line. variable Startup_With_File = 0; %% startup hook %!% Function that gets executed right before JED enters its main editing %!% loop. This is for last minute modifications of data structures that %!% did not exist when startup files were loaded (e.g., minibuffer keymap) define jed_startup_hook() { variable n, hlp, ok = 0, mini = "Mini_Map", file, do_message = 1; #ifdef MSDOS OS2 definekey ("next_mini_command", "\eOr", mini); definekey ("next_mini_command", "\xE0P", mini); definekey ("prev_mini_command", "\xE0H", mini); definekey ("prev_mini_command", "\eOx", mini); #else definekey ("next_mini_command", "^[[B", mini); definekey ("prev_mini_command", "^[[A", mini); #endif definekey ("mini_exit_minibuffer", "^M", mini); definekey ("exit_mini", "^[^M", mini); % turn on Abort character processing IGNORE_USER_ABORT = 0; runhooks ("startup_hook"); !if (strcmp(whatbuf(), "*scratch*") or buffer_modified()) { ERROR_BLOCK { erase_buffer (); set_buffer_modified_flag (0); } () = insert_file (expand_jedlib_file("cpright.hlp")); set_buffer_modified_flag (0); bob(); file = Null_String; if (Startup_With_File > 0) { forever { file = read_file_from_mini ("Enter Filename:"); if (strlen(extract_filename(file))) break; } } else !if (Startup_With_File) { message(help_for_help_string); do_message = 0; update(1); $1 = ""; #ifdef 0 while (input_pending (0)) { variable silly = getkey (); if (silly == 0) silly = "^@"; else silly = char (silly); $1 = strncat ($1, "|", silly, 3); } #endif () = input_pending(600); } EXECUTE_ERROR_BLOCK; if (strlen (file)) () = find_file(file); } if (do_message) message(help_for_help_string); } %!% display row and column information in minibuffer define whatpos () { variable max_lines; push_spot (); eob (); max_lines = what_line (); pop_spot (); message (Sprintf ("%s, Line %d of %d lines, Column %d", count_chars (), what_line(), max_lines, what_column (), 4)); } %!% find a file from JED_LIBRARY, returns number of lines read or 0 if not %!% found. define find_jedlib_file(file) { file = expand_jedlib_file(file); !if (strlen(file)) return(0); find_file(file); } %% %% help function %% %!% name of the file to load when the help function is called. variable Help_File = "jed.hlp"; %% other modes will override this. %!% Pop up a window containing a help file. The help file that is read %!% in is given by the variable Help_File. define help() { variable hlp = "*help*", buf, rows; !if (buffer_visible (hlp)) { !if (strlen(Help_File)) Help_File = "generic.hlp"; Help_File = expand_jedlib_file(Help_File); buf = whatbuf(); onewindow(); rows = window_info('r'); setbuf(hlp); set_readonly(0); erase_buffer(); () = insert_file(Help_File); pop2buf(hlp); eob(); bskip_chars("\n"); rows = rows / 2 - (what_line() + 1); bob(); set_buffer_modified_flag(0); set_readonly(1); pop2buf(buf); loop (rows) enlargewin(); } update (1); message(help_for_help_string); } #ifdef VMS %% This resume hook is need for VMS when returning from spawn. %% In fact, it is NEEDED for certain JED functions on VMS so declare it. define resume_hook() { variable file = getenv("JED_FILE_NAME"); !if (strlen(file)) return; !if (find_file(file)) error("File not found!"); } #endif VMS %%file hooks %!% returns backup filename. Arguments to function are dir and file. define make_backup_filename(dir, file) { #ifdef UNIX strncat (dir, file, "~", 3); #endif #ifdef MSDOS OS2 variable type; #ifdef OS2 !if (IsHPFSFileSystem(dir)) { #endif % There are several things to worry about. Here just break up the % filename and truncate type to 2 chars and paste it back. % note that this takes a name like file.c and produces file.c~ % Also, note that if the type is empty as in 'file', it produces % 'file.~' type = file_type(file); file = strncat (extract_element(file, 0, '.'), ".", substr(type, 1, 2), 3); #ifdef OS2 } #endif strncat (dir, file, "~", 3); #endif } %!% returns autosave filename. Arguments to function are dir and file. define make_autosave_filename(dir, file) { #ifdef VMS Sprintf ("%s_$%s;1", dir, file, 2); #endif #ifdef UNIX Sprintf ("%s#%s#", dir, file, 2); #endif #ifdef MSDOS OS2 #ifdef OS2 !if (IsHPFSFileSystem(dir)) { #endif variable type = file_type(file); file = substr(extract_element(file, 0, '.'), 1, 7); if (strlen(type)) file = strcat(file, "."); file = strcat (file, type); #ifdef OS2 } #endif strncat (dir, "#", file, 3); #endif } %!% breaks a filespec into dir filename--- %!% this routine returns dir and filename such that a simple strcat will %!% suffice to put them together again. For example, on unix, /a/b/c %!% returns /a/b/ and c define parse_filename(fn) { variable f, dir, n; f = extract_filename(fn); n = strlen(fn) - strlen(f); dir = substr(fn, 1, n); dir; f; } define set_buffer_no_backup () { setbuf_info (getbuf_info() | 0x100); } define set_buffer_no_autosave () { setbuf_info (getbuf_info() & ~(0x2)); } variable No_Backups = 0; %!% called AFTER a file is read in to a buffer. FILENAME is on the stack. define find_file_hook(file) { variable dir, a, f, m; (dir, f) = parse_filename(file); #ifndef VMS if (file_status(dir) != 2) { error (Sprintf("Directory %s is invalid!", dir, 1)); } #endif if (No_Backups) set_buffer_no_backup (); a = make_autosave_filename(dir, f); if (file_time_compare(a, file) > 0) { m = "Autosave file is newer. Use ESC-X recover_file."; flush(m); () = input_pending(10); message(m); } runhooks ("user_find_file_hook"); } % % completions -- everything here must be predefined % I just push the strings onto the stack and loop 'add_completion' over them % $0 = _stkdepth(); _add_completion ("toggle_undo", "calendar", "trim_buffer", "abbrev_mode", "define_abbreviation", "save_abbrevs", "occur", "append_region", "write_region", "replace_across_buffer_files", "recover_file", "compile", "sort", "untab", "fortran_mode", "save_buffers", "isearch_forward", "isearch_backward", "shell", "edit_tab_stops", "c_mode", "toggle_crmode", "text_mode", "no_mode", "goto_line_cmd", "goto_column_cmd", "describe_mode", "evalbuffer", "open_rect", "kill_rect", "insert_rect", "copy_rect", "blank_rect", "dired", "re_search_forward", "re_search_backward", "query_replace_match", "describe_bindings", "search_backward", "search_forward", "replace_cmd", "find_binary_file", "latex_mode", "sh_mode", #ifndef MSDOS OS2 "mail", #endif #ifdef UNIX OS2 "ispell", #endif _stkdepth - $0); % matches _add_completion %!% Prototype: String buffer_filename (); %!% Returns the name of the file associated with the current buffer. If %!% there is none associated with it, the empty string is returned. define buffer_filename () { variable file, dir; (file, dir, , ) = getbuf_info(); !if (strlen (file)) dir = Null_String; strcat (dir, file); } % save buffer if necessary define save_buffer() { variable flags, dir, file; (file, , , flags) = getbuf_info(); !if (flags & 1) return (message("Buffer not modified.")); if (strlen(file)) { () = write_buffer(buffer_filename ()); } else call ("save_buffers"); } add_completion("save_buffer"); define insert_buffer() { read_with_completion("Insert Buffer:", Null_String, Null_String, 'b'); push_spot(); ERROR_BLOCK {pop_spot()} insbuf(()); EXECUTE_ERROR_BLOCK; } add_completion("insert_buffer"); variable Global_Top_Status_Line = " *** To activate menus, press `Ctrl-H ?'. For help, press `Ctrl-H' twice. ***"; () = set_top_status_line (Global_Top_Status_Line); define help_prefix() { variable c; !if (input_pending(0)) flush (help_for_help_string); c = int (strup(char(getkey()))); switch (c) { case 8 : help } { case 'A' : apropos } { case 'I' : info_mode} { case '?' : menu_main_cmds} { case 'F' : describe_function} { case 'V' : describe_variable} { case 'W' : where_is} { case 'C' or case ('K', c) : showkey} { case 'M' : #ifdef UNIX OS2 unix_man(); #else #ifdef VMS vms_help (); #endif #endif #ifdef MSDOS call("coreleft"); #endif } { pop(); beep(); } } %% %% word movement definitions. Since these vary according to editors, %% they are S-Lang routines. %% define skip_word () { while (skip_non_word_chars(), eolp()) { if (1 != right(1)) break; } skip_word_chars(); } define bskip_word() { while (bskip_non_word_chars(), bolp()) { !if (left(1)) break; } bskip_word_chars(); } define delete_word() { push_mark(); skip_word(); del_region(); } define bdelete_word () { push_mark(); bskip_word(); del_region(); } define xform_word () % parameter on stack { while (skip_non_word_chars(), eolp()) { if (1 != right(1)) break; } push_mark(); skip_word(); xform_region(()); } define capitalize_word() { xform_word('c'); } define upcase_word() { xform_word('u'); } define downcase_word() { xform_word('d'); } define smart_set_mark_cmd () { if (markp()) pop_mark(0); else call("set_mark_cmd"); } define flush_input() { while (input_pending(0)) () = getkey(); } %!% Prototype Void buffer_format_in_columns(); %!% takes a buffer consisting of a sigle column of items and converts the %!% buffer to a multi-column format. define buffer_format_in_columns() { push_spot(); bob(); forever { _for (0,4,1) { goto_column(() * 14 + 1); if (eolp()) { if (eobp()) { pop_spot(); return; } insert_single_space; del(); } } !if (down_1 ()) break; % bol (); % this is a side effect of going down } pop_spot(); } define delete_line() { bol(); push_mark(); eol(); go_right(1); del_region(); } define set_fill_column () { push_spot(); eol(); WRAP = what_column (); pop_spot(); message (Sprintf("WRAP column at %d.", WRAP, 1)); } define rename_buffer(name) { variable flags = getbuf_info(); pop(); setbuf_info(name, flags); } define info () { info_mode (); definekey("exit_jed", "Q", "Infomap"); definekey("exit_jed", "q", "Infomap"); runhooks ("info_mode_hook"); } %!% Prototype: Void pop_n (Integer n); define pop_n () { loop () pop (); } %!% Prototype: String make_tmp_file (String base); %!% This function returns a unique file name that begins with @base@. define make_tmp_file(base) { variable pid = getpid(), file, n = 1000; while (n) { file = strcat(base, string(pid)); !if (file_status(file)) return (file); pid++; } error ("Unable to create a tmp file!"); } define goto_top_of_window () { go_up (window_line () - 1); } define goto_bottom_of_window () { go_down (window_info ('r') - window_line ()); } %!% called from main in JED executable. define command_line_hook() { variable n, i, file, depth, jedrc, home, next_file; variable script_file = Null_String; jedrc = "jed.rc"; #ifdef UNIX jedrc = ".jedrc"; #endif home = getenv("JED_HOME"); #ifdef VMS %% allows JED_HOME: to be search list--- %% thanks to SYSTEM@VACMZB.chemie.Uni-Mainz.DE for suggestion if (strlen(home)) home = "JED_HOME:"; #endif !if (strlen(home)) { home = getenv("HOME"); #ifdef VMS home = "SYS$LOGIN:"; #endif } jedrc = dircat(home, jedrc); n = MAIN_ARGC; --n; %% argv[0], here it is not used. % % If batch then first argument is not used so start at second % Also, n is the number of effective command line parameters so reduce it. % if (BATCH) { --n; 2; } else 1; =i; % % if first argument is -n then do NOT load init file % % stuff left on stack for if if (n) strcmp (command_line_arg(i), "-n"); else 1; if (()) { depth = _stkdepth; if (file_status(jedrc) == 1) jedrc; else "jed.rc"; () = evalfile(()); if ( _stkdepth != depth) { flush(strcat ("Excess junk left on stack by ", jedrc)); () = input_pending(10); } pop_n (_stkdepth - depth); } else if (n) ++i; n = MAIN_ARGC - i; !if (n) return; % % Is JED to emulate most? % !if (strcmp(command_line_arg(i), "-most")) { run_most (i + 1); return; } while (n > 0) { #ifdef MSDOS % lowercase name file = strlow (command_line_arg(i)); #else file = command_line_arg(i); #endif --n; ++i; if (n) { #ifdef MSDOS % use lowercase name next_file = strlow (command_line_arg(i)); #else next_file = command_line_arg(i); #endif } switch(file) {case "-f" and n : eval(next_file)} {case "-g" and n : goto_line(integer(next_file))} {case "-s" and n : () = fsearch(next_file); save_search_string(next_file); } {case "-l" and n : () = evalfile(next_file); } {case "-i" and n : () = insert_file(next_file);} {case "-2" : splitwindow(); ++n; --i;} {case "-tmp": set_buffer_no_backup (); set_buffer_no_autosave (); ++n; --i; } { pop (); depth = _stkdepth; % The integer call below could fail... ERROR_BLOCK { pop_n (_stkdepth - depth); _clear_error (); 0; } (andelse { n and (file[0] == '+');} {integer (file) >= 0}) : () = find_file (next_file); goto_line (integer (file)); } {() = find_file(()); ++n; --i;} --n; ++i; } if (strlen(script_file)) () = evalfile(script_file); } %!% Prototype: Void deln (Integer n); %!% delete the next 'n' characters. define deln (n) { push_mark (); go_right(n); del_region (); } define insert_spaces (n) { loop (n) insert_single_space (); } define blooking_at (str) { variable n = strlen (str); EXIT_BLOCK { pop_spot (); } push_spot (); if (n != left(n)) return 0; return looking_at (str); } define exchange_point_and_mark () { call ("exchange"); } % This ought to be a slang intrinsic!!! define str_split (str, n) { substr (str, 1, n - 1); substr (str, n, strlen (str)); } #ifndef VMS define expand_file_hook (file) { variable changed = 0; variable envvar; variable pos, len, name, dir; variable file0, file1, file2; file2 = file; file = Null_String; % Check for environment variable of form $(variable) while (andelse {strlen (file2)} {string_match (file2, "\\$[^/$]+", 1)}) { changed++; (pos, len) = string_match_nth (0); pos++; (file0, file1) = str_split (file2, pos); (file1, file2) = str_split (file1, len + 1); envvar = getenv (substr (file1, 2, len - 1)); file = strncat (file, file0, envvar, 3); } file = strcat (file, file2); #ifdef UNIX % Now look for things like: /~name/... if (orelse {pos = string_match (file, "^~", 1); pos;} {pos = -string_match (file, "/~", 1); pos;}) { if (pos < 0) { pos = -pos; pos++; } pos++; file = substr (file, pos, strlen (file)); pos = is_substr (file, "/"); if (pos) { (name, file) = str_split (file, pos); } else { name = file; file = Null_String; } if (file[0] == '/') (, file) = str_split (file, 2); (dir,,,,) = get_passwd_info (name); file = dircat (dir, file); changed++; } #endif if (changed) { file; } changed; } set_expansion_hook ("expand_file_hook"); #endif VMS % This fixes some bug in OS2 dealing with 'dir' issued non-interactively. #ifdef OS2 if (strlen(getenv("DIRCMD"))) putenv("DIRCMD=/ogn"); #endif () = evalfile ("os.sl"); % % This code fragment looks for the existence of "defaults.sl" and loads % it. This file IS NOT distributed with JED. % if (strlen(expand_jedlib_file("defaults.sl"))) () = evalfile("defaults"); anged++; } #endif if (changed) { file; } changed; } set_expansion_hook ("expand_file_hook"); #endif VMS % This fixes some bug in OS2 dealing with 'dir' issued non-interactively. #ifdef OS2 if (strlen(getenv("DIRCMD"))) putenv("DIRCMD=/ogn"); #endif () = evalfile ("os.sl"); % % This code fragment looks for the existence of "defaults.sl" and loads % it. This file IS NOT distributed with JED. % if (strlen(ejed-0.97.12/lib/slmode.sl000064400000000000003000000021010603742311600146550ustar00rootsys00000000000000% S-Lang mode is just a superset of C mode so make sure it is loaded. !if (keymap_p ("C")) () = evalfile ("cmode"); $1 = "SLANG"; create_syntax_table ($1); define_syntax ("%", "", '%', $1); define_syntax ("([{", ")]}", '(', $1); define_syntax ('"', '"', $1); define_syntax ('\'', '\'', $1); define_syntax ('\\', '\\', $1); define_syntax ("0-9a-zA-Z_", 'w', $1); % words define_syntax ("-+0-9a-fA-F.xX", '0', $1); % Numbers define_syntax (",;:", ',', $1); define_syntax ('#', '#', $1); define_syntax ("%-+/&*=<>|!~^", '+', $1); () = define_keywords ($1, "doifor", 2); () = define_keywords ($1, "andfor", 3); () = define_keywords ($1, "_forcaseelseloop", 4); () = define_keywords ($1, "breakwhile", 5); () = define_keywords ($1, "defineorelsereturnswitch", 6); () = define_keywords ($1, "andelseforever", 7); () = define_keywords ($1, "continuevariable", 8); () = define_keywords ($1, "EXIT_BLOCK", 10); () = define_keywords ($1, "ERROR_BLOCK", 11); define slang_mode () { c_mode (); setmode("SL", 2 | 8); use_syntax_table ("SLANG"); runhooks("slang_mode_hook"); } ; () = define_keywords ($1, "andfor", 3); () = define_keywords ($1, "_forcaseelseloop", 4); () = define_keywords ($1, "breakwhile", 5); () = define_keywords ($1, "defineorelsereturnswitch", 6); () = define_keywords ($1, "andelseforever", 7); () = define_keywords ($1, "continuevariable", 8); () = define_keywords ($1, "EXIT_BLOCK", 10); () = define_keywords ($1, "ERROR_BLOCK", 11); define slang_mode () { c_mode (); setmode("SL", 2 | 8); jed-0.97.12/lib/sort.sl000064400000000000003000000022730603742311600143730ustar00rootsys00000000000000define sort_mycmp () { strcmp ((), ()) < 0; } define sort_using_function (sort_fun) { variable end_line, n, index, i, beg, begc, endc, keys; check_region(0); endc = what_column(); end_line = what_line(); pop_mark(1); beg = what_line(); n = end_line - beg; ++n; %/* number of lines */ begc = what_column(); if (endc < begc) { endc; endc = begc; =begc; } keys = create_array('s', n, 1); % % extract keys and fill array % goto_line(beg); for (i = 0; i < n; ++i) { goto_column(begc); push_mark(); eol(); if (what_column() > endc) goto_column(endc); keys[i] = bufsubstr(); go_down_1 (); } index = array_sort(keys, sort_fun); % % arrange region % goto_line(end_line); !if (down_1 ()) { eol(); newline(); } push_spot(); for(i = 0; i < n; ++i) { goto_line(index[i] + beg); bol(); push_mark(); eol(); bufsubstr(); pop_spot(); bol(); insert(()); newline(); push_spot(); } pop_spot(); goto_line(beg); bol(); push_mark(); goto_line(end_line + 1); bol(); del_region(); flush("Done."); } define sort () { sort_using_function ("sort_mycmp"); } ay_sort(keys, sort_fun); % % arrange region % goto_line(end_line); !if (down_1 ()) { eol(); newline(); } push_spot(); for(i = 0; i < n; ++i) { goto_line(index[i] + beg); bol(); push_mark(); eol(); bufsubstr(); pop_spot(); bol(); insert(()); newline(); push_spot(); } jed-0.97.12/lib/sortmisc.sl000064400000000000003000000014200603742311700152410ustar00rootsys00000000000000% This function sorts a region of lines of the form: % keyname % text... % delimeter string % keyname % text... % delimeter string define sort_region_internal (line_break_str, delim) { check_region (0); narrow (); bob (); do { push_mark (); !if (bol_fsearch (delim)) eob (); narrow (); ERROR_BLOCK { widen(); widen (); } bob (); while (eol(), not(eobp())) { del (); insert (line_break_str); } widen (); } while (down_1 ()); bob (); push_mark (); eob (); goto_column (32); ERROR_BLOCK { variable len = strlen (line_break_str); bob (); while (fsearch (line_break_str)) { deln (len); newline (); } widen (); } sort (); EXECUTE_ERROR_BLOCK; } push_mark (); !if (bol_fsearch (delim)) eob (); narrow (); ERROR_BLOCK { widen(); widen (); } bob (); while (eol(), not(eobp())) { del (); insert (line_break_str); } widen (); } while (down_1 ()); jed-0.97.12/lib/srchmisc.sl000064400000000000003000000045540603742311700152240ustar00rootsys00000000000000% These routines are common to both regular expression searches and ordinary % searches. define mark_next_nchars (n, dir) { ERROR_BLOCK {pop_mark(0)} push_mark(); call ("set_mark_cmd"); go_right(n); if (dir < 0) exchange_point_and_mark (); update(1); ungetkey(getkey()); EXECUTE_ERROR_BLOCK; } % The search function is to return: 0 if non-match found or the length of the % item matched. % search_fun takes the pattern to search for and returns the length of the % pattern matched. % rep_fun returns the length of characters replaced. define replace_with_query (search_fun, pat, rep, query, rep_fun) { variable n, prompt, doit, err, ch, pat_len; variable last; variable rep_len = -1; ERROR_BLOCK { if (rep_len != -1) pop_mark (0); } prompt = Sprintf ("Replace '%s' with '%s'? (y/n/!/+/q/h)", pat, rep, 2); while (pat_len = search_fun (pat), pat_len >= 0) { !if (query) { () = rep_fun (rep, pat_len); continue; } do { message(prompt); mark_next_nchars (pat_len, -1); ch = getkey (); if (ch == 'r') { recenter (window_info('r') / 2); } } while (ch == 'r'); switch(ch) { case 'u' and (rep_len >= 0): pop_mark (1); push_spot (); () = rep_fun (last, rep_len); pop_spot (); rep_len = -1; } { case 'y' : if (rep_len != -1) pop_mark (0); push_spot(); push_mark (); go_right (pat_len); last = bufsubstr (); pop_spot (); push_mark (); rep_len = rep_fun (rep, pat_len); } { case 'n' : go_right(1);} { case '+' : () = rep_fun (rep, pat_len); break; } { case '!' : do { () = rep_fun (rep, pat_len); } while (search_fun (pat) > 0); } { case 'q' : break; } { pop(); flush ("y:replace, n:skip, !:replace all, u: undo last, +:replace then quit, q:quit"); () = input_pending (30); } } EXECUTE_ERROR_BLOCK; } define search_maybe_again (fun, str, dir) { variable ch, len; while (len = fun (str, dir), len >= 0) { if (EXECUTING_MACRO or DEFINING_MACRO) return 1; message ("Press RET to continue searching."); mark_next_nchars (len, -1); ch = getkey (); if (ch != '\r') { ungetkey (ch); return 1; } if (dir > 0) go_right (1); } return 0; } ip, !:replace all, u: undo last, +:replace then quit, q:quit"); () = input_pending (30); } } EXECUTE_ERROR_BLOCK; } define searcjed-0.97.12/lib/syntax.sl000064400000000000003000000017370603742311700147370ustar00rootsys00000000000000% The functions here are used to manipulate the syntax keyword tables define syntax_strcmp () { strcmp ((), ()) < 0; } define add_keyword_n (table, kw, n) { variable old_list, new_list; variable len = strlen (kw); variable a, nelems, i, oldkw; variable index_array; !if (len) return; % get the keyword list for this table old_list = define_keywords_n (table, Null_String, len, n); % create an array to sort nelems = 1 + strlen (old_list) / len; a = create_array ('s', nelems, 1); _for (0, nelems - 2, 1) { i = (); a[i] = substr (old_list, 1 + i * len, len); } a[nelems - 1] = kw; index_array = array_sort (a, "syntax_strcmp"); new_list = Null_String; _for (0, nelems - 1, 1) { i = (); new_list = strcat (new_list, a[index_array[i]]); } message (strncat(new_list, " ", old_list, 3)); () = define_keywords_n (table, new_list, len, n); } define add_keyword () { add_keyword_n (0); } t) / len; a = create_array ('sjed-0.97.12/lib/tabs.sl000064400000000000003000000030240603742311700143310ustar00rootsys00000000000000%% %% Tab routines for JED %% !if (is_defined("Tab_Stops")) { variable Tab_Stops; Tab_Stops = create_array('i', 20, 1); %% The following defines the tab stops to be 8 column: _for (0, 19, 1) { =$1; Tab_Stops[$1] = $1 * 8 + 1; } } define tab_to_tab_stop () { variable c, goal, i; c = what_column (); _for (0, 19, 1) { =i; goal = Tab_Stops[i]; if (goal > c) break; } insert_spaces (goal - c); } setkey ("tab_to_tab_stop", "^I"); variable _Tabs_Buffer; $1 = "*TabsEdit*"; !if (keymap_p($1)) { make_keymap ($1); undefinekey ("^C", $1); definekey ("tabs_install_tab_stops", "^C^C", $1); } %% emacs like edit tab stops define edit_tab_stops () { variable tbuf, i; _Tabs_Buffer = whatbuf(); tbuf = "*TabsEdit*"; sw2buf(tbuf); erase_buffer(); TAB = 0; use_keymap(tbuf); _for (0, 19, 1) { =i; goto_column (Tab_Stops[i]); insert ("T"); } newline (); _for (1, 13, 1) { =i; goto_column (10 * i); insert (string(i)); } newline (); loop (13) insert ("1234567890"); insert ("\nTo install changes, type control-c control-c."); bob (); set_buffer_modified_flag (0); set_overwrite (1); } define tabs_install_tab_stops () { variable i; bob (); _for (0, 19, 1) { =i; skip_white (); if (eolp()) break; Tab_Stops[i] = what_column (); go_right(1); } _for (i, 19, 1) { =i; Tab_Stops[i] = 0;} set_buffer_modified_flag (0); delbuf (whatbuf ()); sw2buf ( _Tabs_Buffer); } } newline (); loop (13) insert ("1234567890"); insert ("\nTo install changes, type control-c control-c."); bob (); set_buffer_modified_flag (0); set_overwrite (1); } define tabs_install_tab_stops () { variable i; bob (); _for (0, 19, 1) { =i; skip_white (); if (eolp()) break; Tab_Stops[i] = what_column (); go_right(1); } _for (i, 19, 1) { =i; Tab_Stops[i] = 0;} set_buffer_modified_flag (0); delbuf (whatbuf ()); sw2bufjed-0.97.12/lib/tex.sl000064400000000000003000000043170603742311700142060ustar00rootsys00000000000000% % simple TeX mode for JED % % When tex mode is loaded, 'tex_mode_hook' is called. This hook will allow % users to customize the mode. In particular, certain functions here have % no keybindings, e.g., 'latex_do_environment'. So, in your jed.rc file, % add something like: % define tex_mode_hook () { % local_setkey ("latex_do_environment", "^C^E"); % } % which binds the function to Ctrl-C Ctrl-E. % Load the common definitions if not already loaded. !if (is_defined ("tex_ldots")) () = evalfile ("texcom"); $1 = "TeX-Mode"; !if (keymap_p($1)) { make_keymap ($1); definekey ("tex_insert_quote", "\"", $1); definekey ("tex_insert_quote", "'", $1); definekey ("tex_blink_dollar", "$", $1); definekey ("tex_ldots", ".", $1); } %!% Mode useful for editing TeX and LaTeX modes. %!% Useful bindings: %!% '"' : tex_insert_quote %!% '\'' : tex_insert_quote %!% '$' : tex_blink_dollar %!% '.' : tex_ldots. Inserts a '.' except if preceeded by two dots. In %!% this case, the dots are converted to \ldots. %!% %!% When tex mode is loaded, 'tex_mode_hook' is called. This hook will allow %!% users to customize the mode. In particular, certain functions here have %!% no keybindings, e.g., 'latex_do_environment'. So, in your jed.rc file, %!% add something like: %!% define tex_mode_hook () { %!% local_setkey ("latex_do_environment", "^C^E"); %!% } %!% which binds the function to Ctrl-C Ctrl-E. define tex_mode () { variable mode = "TeX"; variable texmode = "TeX-Mode"; use_keymap (texmode); setmode ("TeX", 0x1 | 0x20); set_buffer_hook ("par_sep", "tex_paragraph_separator"); set_buffer_hook ("wrap_hook", "tex_wrap_hook"); use_syntax_table (texmode); runhooks ("tex_mode_hook"); % This is called after the hook to give the hook a chance to load the % abbrev table. if (abbrev_table_p (mode)) use_abbrev_table (mode); } %-----------------------------------------------------------% #ifdef 0 define tex_info_find_node () { variable node; node = read_mini ("Node:", Null_String, Null_String); !if (strlen (node)) return; info_mode (); info_find_node ("(latex)top"); info_find_node (strcat ("(latex)", node)); } #endif e (texmode); runhooks ("tex_mode_hook"); % This is called after the hook to give the hook a chance to load the % abbrev table. if (abbrev_table_p (mode)) use_abbrev_table (mode); } %-----------------------------------------------------------% #ifdef 0 define tex_info_find_node () { variabjed-0.97.12/lib/texcom.sl000064400000000000003000000073560603742312000147050ustar00rootsys00000000000000% The functions here are common to both TeX and LaTeX modes. $1 = "TeX-Mode"; create_syntax_table ($1); define_syntax ("%", "", '%', $1); % Comment Syntax define_syntax ('\\', '\\', $1); % Quote character define_syntax ("{[", "}]", '(', $1); % are all these needed? define_syntax ('$', '"', $1); % string define_syntax ("~^_&#", '+', $1); % operators define_syntax ("|&{}[]", ',', $1); % delimiters define_syntax ("a-zA-Z@", 'w', $1); set_syntax_flags ($1, 8); % This hook identifies lines containing TeX comments as paragraph separator define tex_is_comment () { bol (); while (ffind ("\\%")) go_right (2); ffind ("%"); % return value on stack } variable Tex_Ignore_Comment = 0; % if true, line containing a comment % does not delimit a paragraph define tex_paragraph_separator () { bol(); if (looking_at("\\") or (skip_white(), eolp()) or looking_at("$$")) return 1; if (looking_at ("\\")) { if (orelse {looking_at ("\\begin")} {looking_at ("\\item")} {looking_at ("\\end")}) return 1; } % % look for comment % return not (Tex_Ignore_Comment) and tex_is_comment (); } define tex_wrap_hook () { variable yep; push_spot (); yep = up_1 () and tex_is_comment (); pop_spot (); if (yep) { push_spot (); bol_skip_white (); insert ("% "); pop_spot (); } } define tex_isolate_paragraph () { variable ic = Tex_Ignore_Comment; Tex_Ignore_Comment = 1; push_spot (); push_mark (); backward_paragraph (); narrow (); Tex_Ignore_Comment = ic; } define tex_blink_dollar () { variable d = "$", p, unmatched, p1, n, n1; variable pnow = POINT, pmax; insert(d); if (blooking_at ("\\$")) return; push_spot (); tex_isolate_paragraph (); % spot pushed pop_spot (); n = what_line (); bob (); unmatched = 0; while (fsearch (d)) { p = POINT; pmax = 0x7FFF; if (tex_is_comment ()) { pmax = POINT; } POINT = p; if ((n == what_line ()) and (pnow < pmax)) pmax = pnow; if (p >= pmax) { if (n == what_line ()) break; eol (); continue; } if (blooking_at("\\")) { POINT++; continue; } !if (unmatched) { p1 = p; n1 = what_line (); } unmatched = not(unmatched); POINT++; } if (unmatched) { n = n - n1; goto_line (n1); POINT = p1; widen (); if (n >= window_info ('r')) { bol (); push_mark (); eol (); message (strcat ("Matches ", bufsubstr ())); } else { update(0); input_pending(10); pop(); } } else widen (); pop_spot (); } define tex_insert_quote () { variable c, l, r; l = char ('`'); r = char ('\''); if ((LAST_CHAR != '\'') and (LAST_CHAR != '"')) { insert(char(LAST_CHAR)); return; } c = '['; !if (bolp()) { go_left(1); c = what_char(); go_right(1); } if (c == '\\') { insert (char(LAST_CHAR)); return(); } if (is_substr("[({\t ", char(c))) { insert (l); if (LAST_CHAR == '"') insert (l); } else { insert (r); if (LAST_CHAR == '"') insert (r); } } define latex_do_environment () { variable env = Null_String; push_spot (); if (bsearch ("\\begin{")) { go_right (7); push_mark (); ffind ("}"); pop (); env = bufsubstr (); } pop_spot (); eol (); newline (); env = read_mini ("Enter Environment Name:", env, Null_String); insert (Sprintf("\\\\begin{%s}\n\n\\\\end{%s}\n", env, env, 2)); go_up(2); } define tex_ldots () { if (blooking_at ("..")) { go_left (2); deln (2); insert ("\\ldots "); return; } insert_char ('.'); } () { variable env = Null_String; push_spot (); if (bsearch ("\\begin{")) { go_right (7); push_mark (); ffind ("}"); pop (); env = bufsubstr (); } pop_spot (); eol (); newline (); env = read_mini ("Enter Environment Name:", env, Null_jed-0.97.12/lib/tmisc.sl000064400000000000003000000016000603742312000145070ustar00rootsys00000000000000% % Miscellaneous text functions % define text_justify_line () { variable space, min, max, r, count; count = 100; space = char (' '); push_spot(); bol_skip_white(); if (eolp) {pop_spot(); return; } min = what_column(); eol(); trim(); max = what_column(); while ((max < WRAP) and count) { r = random(0, max); --count; if (r < min) continue; goto_column(r); skip_white(); if (ffind(space)){ insert_single_space(); ++max; eol()} } pop_spot(); } define format_paragraph_hook() { variable n; push_spot(); backward_paragraph(); n = what_line(); forward_paragraph (); go_up(2); if (n - what_line() > 0) {pop_spot(); return; } push_mark(); backward_paragraph(); if (what_line() != 1) go_down_1 (); narrow(); bob(); forever { text_justify_line(); !if (down_1 ()) break; } widen(); pop_spot(); } olumn(r); skip_white(); if (ffind(space)){ insert_single_space(); ++max; eol()} } pop_spot(); } define format_paragrapjed-0.97.12/lib/tpascal.sl000064400000000000003000000107030603742312000150230ustar00rootsys00000000000000% TurboPascal Mode for the jed editor % jed097b9 and later % % Version: minimal % Update : 06 apr 1995 % Author : Carsten Tinggaard Nielsen, tinggard@iesd.auc.dk % variable tpas_objname = "*UnDef ObjectName*"; variable tpas_indent = 2; variable tpas_tab_save = 0; define tpas_is_comment() { return 0; } define tpas_getname(tellstring) { variable gname = read_mini(tellstring, Null_String, Null_String); return gname; } % -------------------------------------------------------------- % Utility routines define ins_snlp(pos str) { % insert str, newline and indent to pos % note that str must be formatted with Sprintf insert(str); insert("\n"); if (pos > 0) loop(pos) insert_single_space(); } define tpas_pos() { return what_column() - 1;} define tpas_paspf(p, name) { ins_snlp(p, "(* "); ins_snlp(p, " * "); ins_snlp(p, " *)"); ins_snlp(p, "BEGIN"); insert("END; (* "); insert(name); ins_snlp(p, " *)"); } define tpas_delim_string() { return "--------------------------------------------------"; } define tpas_prog_unit_start() { variable s = tpas_delim_string(); insert(Sprintf("(* %s\n", s, 1)); insert(" * Author : Carsten Tinggaard Nielsen\n"); insert(" * Project: \n"); insert(" * Module : \n * \n"); insert(" * $Revision$ $Date$\n"); insert(" * $Locker$ $Source$\n"); insert(Sprintf(" * %s *)\n", s, 1)); insert("(*$I-,V-,B+*)\n"); } define tpas_prog_unit_end() { insert("\n USES\n DOS;\n\n"); insert("BEGIN\n"); insert("END.\n"); insert("(* History:\n * --------\n * $Log$\n *)\n"); } define tpas_main() { variable progname = tpas_getname("Name of program:"); bob(); insert(Sprintf("PROGRAM %s;\n", progname, 1)); tpas_prog_unit_start(); insert("(*$M 16000, 128000, 512000 *)\n"); tpas_prog_unit_end(); bob(); } define tpas_unit() { variable unitname = tpas_getname("Name of unit:"); bob(); insert(Sprintf("UNIT %s;\n", unitname, 1)); insert("INTERFACE\n\n USES\n DOS;\n\n"); insert("IMPLEMENTATION\n"); tpas_prog_unit_start(); tpas_prog_unit_end(); bob(); } define tpas_proc() { variable p = tpas_pos(); variable name = tpas_getname("Procedure:"); ins_snlp(p, Sprintf("PROCEDURE %s();", name, 1)); tpas_paspf(p, name); bsearch(");"); } define tpas_func() { variable p = tpas_pos(); variable name = tpas_getname("Function:"); ins_snlp(p, Sprintf("FUNCTION %s() : ;", name, 1)); tpas_paspf(p, name); bsearch(") :"); } define tpas_wrap_hook() { variable p; push_spot(); go_up(1); bol(); skip_white(); p = POINT; if (looking_at("BEGIN")) { go_down(1); bol (); skip_white (); p = what_column (); bol (); trim (); whitespace (p + tpas_indent); } pop_spot(); } % -------------------------------------------------------------- % keymap definiiton % variable tpmode = "TPas"; !if (keymap_p(tpmode)) { make_keymap(tpmode); } define tpas_set_localkeys() { local_setkey("tpas_main", "^Cm"); local_setkey("tpas_unit", "^Cu"); local_setkey("tpas_proc", "^Cp"); local_setkey("tpas_func", "^Cf"); } create_syntax_table(tpmode); define_syntax("(*", "*)", '%', tpmode); define_syntax ("([", ")]", '(', tpmode); define_syntax ('\'', '\'', tpmode); define_syntax ("0-9a-zA-Z_", 'w', tpmode); % words define_syntax ("-+0-9a-FA-F.", '0', tpmode); % Numbers define_syntax (",;.?:", ',', tpmode); define_syntax ("@$()[]%-+/*=<>^", '+', tpmode); set_syntax_flags (tpmode, 5); % case insensitive + C-mode () = define_keywords (tpmode, "doifofto", 2); () = define_keywords (tpmode, "endfornewnilsetvar", 3); () = define_keywords (tpmode, "bytecasecharelseexitfilehaltrealtextthentypeunituseswithword", 4); () = define_keywords (tpmode, "arraybeginconstuntilwhile", 5); () = define_keywords (tpmode, "downtoinlineobjectrecordrepeatstring", 6); () = define_keywords (tpmode, "booleanintegerlongintpointerprogram", 7); () = define_keywords (tpmode, "functionshortint", 8); () = define_keywords (tpmode, "interfaceotherwiseprocedure", 9); () = define_keywords (tpmode, "implementation", 14); define tpas_par_sep_hook() { variable p; push_spot(); pop_spot(); } % -------------------------------------------------------------- % Main entry % define tpas_mode () { setmode(tpmode, 2); use_keymap(tpmode); use_syntax_table(tpmode); set_buffer_hook("wrap_hook", "tpas_wrap_hook"); set_buffer_hook("par_sep", "tpas_par_sep_hook"); tpas_set_localkeys(); runhooks("tpas_mode_hook"); } pmode, "interfaceotherwiseprocedure", 9); () = define_keywordjed-0.97.12/lib/untab.sl000064400000000000003000000017160603742312000145110ustar00rootsys00000000000000% untabify region function define untab_convert_to_tabs () { variable c; while (fsearch (" ")) { c = what_column (); push_mark (); skip_white (); c = what_column () - c; if (c > 1) { del_region (); whitespace (c); } else pop_mark (0); } } %!% Prototype: Void untab (); %!% This function may be used either to convert tabs to spaces or, if called %!% with a prefix argument, it will perform the opposite conversion from %!% spaces to tabs. This function operates on a region. define untab () { check_region (0); narrow (); bob (); if (-1 != prefix_argument (-1)) { untab_convert_to_tabs (); } else { while (fsearch ("\t")) { TAB; % on stack skip_white (); what_column (); % on stack bskip_chars ("\t "); () - what_column (); % on stack trim (); TAB = 0; whitespace (()); TAB = (); } } widen (); } %!% spaces to tabs. This function operates on ajed-0.97.12/lib/util.sl000064400000000000003000000022030603742312000143450ustar00rootsys00000000000000%% %% utility functions which Must be available (e.g., autoload) %% %% %% A routine that trims the buffer by: removing excess whitespace at the %% end of lines and removing excess newlines %% define trim_buffer() { push_spot(); bob(); forever { eol(); trim(); bol(); if (eolp()) { go_down_1 (); while (eol(), trim(), bol(), eolp() and not(eobp())) del(); } !if (down_1 ()) break(); } bob(); eol(); trim(); bol(); if (eolp()) del(); pop_spot(); message ("done."); } %% occur function %% define occur() { variable str, cbuf, tmp, n; str = read_mini("Find All (Regexp):", LAST_SEARCH, Null_String); tmp = "*occur*"; cbuf = whatbuf(); pop2buf(tmp); erase_buffer(); pop2buf(cbuf); push_spot(); while (re_fsearch(str)) { n = string(what_line()); bol(); push_mark(); eol(); bufsubstr(); % stack setbuf(tmp); insert(n); goto_column(5); insert_char (':'); insert(()); newline(); setbuf(cbuf); eol(); %% so we do not find another occurance on same line } pop_spot(); setbuf(tmp); bob(); set_buffer_modified_flag(0); } , LAST_SEARCH, Null_String); tmp = "*occur*"; cbuf = whatbuf(); pop2buf(tmp); erase_buffer(); pop2buf(cbuf); push_spot(); while (re_fsearch(str)) { n = string(what_line()); bol(); push_mark(); eol(); bufsubstr(); % stack setbuf(tmp); insert(n); goto_column(5); insert_char (':'); insert(()); newline(); setbuf(cbuf); eol(); %jed-0.97.12/lib/vms_shell.com000064400000000000003000000004150603742312100155300ustar00rootsys00000000000000$! $! This is used by JED to execute a command in the shell. I do $! it this way because not every command takes a /output qualifier $! $ define/user/nolog sys$error sys$output $ define/user/nolog sys$input nl: $ 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' 'p9' $ exit ot(); while (re_fsearch(str)) { n = string(what_line()); bol(); push_mark(); eol(); bufsubstr(); % stack setbuf(tmp); insert(n); goto_column(5); insert_char (':'); insert(()); newline(); setbuf(cbuf); eol(); %jed-0.97.12/lib/vmshelp.sl000064400000000000003000000042700603742312100150550ustar00rootsys00000000000000% Interface to VMS Help variable VMSHelp_Topic_Len = 0; variable VMS_Help_Library = "SYS$HELP:HELPLIB.HLB"; % change as necessary - routines work with any .HLB file. define vms_help () { variable curr_buf, helptopic; if (VMSHelp_Topic_Len) return; curr_buf = whatbuf(); ERROR_BLOCK { pop_mark(0); sw2buf(curr_buf); VMSHelp_Topic_Len = -0; } helptopic = read_mini("VMS Help Topic:", Null_String, Null_String); sw2buf ("*VMS-Help*"); % set_readonly (0); erase_buffer (); push_mark(); % This mark is popped later VMSHelp_Topic_Len = -1; vms_get_help (VMS_Help_Library, helptopic); EXECUTE_ERROR_BLOCK; } variable VMSHelp_This_Topic = Null_String; define vms_help_grab_topic () { variable word = "-/_@=:0-9a-zA-Z\277-\326\330-\336\340-\366\370-\376"; bskip_chars (word); push_mark(); skip_chars (word); VMSHelp_This_Topic = bufsubstr (); strlen (VMSHelp_This_Topic); } define vms_help_newtopic (prompt) { variable use_call, fun, ch, topic, msg; setbuf ("*VMS-Help*"); pop_mark(1); % set_readonly (1); VMSHelp_This_Topic = Null_String; if (VMSHelp_Topic_Len) { msg = Sprintf("Hit RET for '%s', PgDn/PgUp, ", prompt, 1); recenter (1); forever { ERROR_BLOCK { _clear_error (); } message (msg); update (1); ch = getkey (); if (ch == '\r') break; if (ch == '.') { if (vms_help_grab_topic ()) break; continue; } if (ch == 127) { use_call = 1; fun = "page_up"; } else { ungetkey (ch); fun = get_key_function (); =use_call; } !if (strcmp(fun, "self_insert_cmd")) { if (ch == ' ') fun = "page_down"; else { ungetkey(ch); break; } } if (use_call) call (fun); else eval (fun); } } re_fsearch ("^[\t ]*\\cAdditional information available:"); pop(); topic = strtrim(read_mini(prompt, VMSHelp_This_Topic, Null_String)); % set_readonly (0); VMSHelp_Topic_Len = strlen (topic); if (VMSHelp_Topic_Len) eob(); push_mark(); topic; } !if (strcmp(fun, "self_insert_cmd")) { if (ch == ' ') fun = "page_down"; else { ungetkey(ch); break; } } if (use_call) call (fun); else eval (fun); } } re_fsearch ("^[\t ]*\\cAdditional information available:"); pop(); topic = strjed-0.97.12/lib/wmenu.sl000064400000000000003000000074430603742312100145370ustar00rootsys00000000000000define simple_menu() { variable menubar; variable file_popup, edit_popup, search_popup, buffers_popup, modes_popup, windows_popup, help_popup; destroy_menubar(); file_popup = create_popup_menu(); ERROR_BLOCK { destroy_menu(file_popup); } append_menu_item(file_popup, "Open\t^X^F", 0x1, "find_file"); append_menu_item(file_popup, "Save\t^X^W", 0x2, "write_buffer"); append_menu_item(file_popup, "Save Buffers\t^X^s", 0x3, "save_buffers"); append_menu_item(file_popup, "Insert File\t^Xi", 0x4, "insert_file"); append_separator(file_popup); append_menu_item(file_popup, "Shell Cmd", 0x5, "do_shell_cmd"); append_separator(file_popup); append_menu_item(file_popup, "Exit\t^X^C", 0x6, "exit_jed"); edit_popup = create_popup_menu(); ERROR_BLOCK { destroy_menu(file_popup); destroy_menu(edit_popup); } append_menu_item(edit_popup, "Undo\t^Xu", 10, "undo"); append_separator(edit_popup); append_menu_item(edit_popup, "Cut", 11, "kill_region"); append_menu_item(edit_popup, "Copy", 12, "copy_region"); append_menu_item(edit_popup, "Paste", 13, "yank"); search_popup = create_popup_menu(); ERROR_BLOCK { destroy_menu(file_popup); destroy_menu(edit_popup); destroy_menu(search_popup); } append_menu_item(search_popup, "Search Forward", 20, "search_forward"); append_menu_item(search_popup, "Search Backward", 21, "search_backward"); append_menu_item(search_popup, "Replace", 23, "replace_cmd"); buffers_popup = create_popup_menu(); ERROR_BLOCK { destroy_menu(file_popup); destroy_menu(edit_popup); destroy_menu(search_popup); destroy_menu(buffers_popup); } append_menu_item(buffers_popup, "Kill", 30, "kill_buffer"); append_menu_item(buffers_popup, "Switch To", 31, "switch_to_buffer"); append_menu_item(buffers_popup, "List Buffers", 32, "list_buffers"); modes_popup = create_popup_menu(); ERROR_BLOCK { destroy_menu(file_popup); destroy_menu(edit_popup); destroy_menu(search_popup); destroy_menu(buffers_popup); destroy_menu(modes_popup); } append_menu_item(modes_popup, "C Mode", 40, "c_mode"); append_menu_item(modes_popup, "Text Mode", 41, "text_mode"); append_menu_item(modes_popup, "No Mode", 42, "no_mode"); append_menu_item(modes_popup, "Fortran Mode", 43, "fortran"); append_popup_menu(buffers_popup, "Modes", modes_popup); windows_popup = create_popup_menu(); ERROR_BLOCK { destroy_menu(file_popup); destroy_menu(edit_popup); destroy_menu(search_popup); destroy_menu(buffers_popup); destroy_menu(modes_popup); destroy_menu(windows_popup); } append_menu_item(windows_popup, "One Window", 50, "one_window"); append_menu_item(windows_popup, "Split Window", 51, "split_window"); append_menu_item(windows_popup, "Other Window", 52, "other_window"); append_menu_item(windows_popup, "Delete Window", 53, "delete_window"); append_separator(windows_popup); append_menu_item(windows_popup, "Redraw", 54, "redraw"); help_popup = create_popup_menu(); ERROR_BLOCK { destroy_menu(file_popup); destroy_menu(edit_popup); destroy_menu(search_popup); destroy_menu(buffers_popup); destroy_menu(modes_popup); destroy_menu(windows_popup); destroy_menu(help_popup); } append_menu_item(help_popup, "Show Key", 60, "showkey"); append_menu_item(help_popup, "Where Is Command", 61, "where_is"); menubar = get_menubar(); append_popup_menu(menubar, "&File", file_popup); append_popup_menu(menubar, "&Edit", edit_popup); append_popup_menu(menubar, "&Search", search_popup); append_popup_menu(menubar, "&Buffers", buffers_popup); append_popup_menu(menubar, "&Windows", windows_popup); append_popup_menu(menubar, "&Help", help_popup); redraw_menubar(); } pend_menu_item(help_popup, "Show Key", 60, "showkey"); append_menu_item(help_popup, "Where Is Command", 61, "where_is"); menubar = get_menubar(); append_popup_menu(menubar, "&File", file_popup); append_popjed-0.97.12/lib/wordstar.sl000064400000000000003000000100060603742312100152360ustar00rootsys00000000000000% % Wordstar Mode for JED % % Put the line: evalfile ("wordstar.sl"); pop (); % in your jed.rc startup file. % Help_File = Null_String; set_status_line (" Jed %v : %b (%m%n) (%p %c) %t", 1); Help_File = Null_String; set_abort_char (30); % ^^ (Control 6 on most keyboards) % Note, the above command BREAKS ^G emacs abort. unsetkey("^K"); unsetkey("^X"); unsetkey("^W"); unsetkey("^F"); setkey ("ws_insert_last_block", "^P"); setkey ("next_char_cmd","^D"); setkey ("previous_char_cmd","^S"); setkey ("previous_line_cmd","^E"); setkey ("next_line_cmd","^X"); setkey ("page_up","^R"); setkey ("page_down","^C"); setkey ("skip_word","^F"); setkey ("bskip_word","^A"); setkey ("delete_char_cmd","^G"); setkey ("ws_delete_word","^T"); setkey ("delete_line","^Y"); setkey ("ws_repeat_search","^L"); setkey ("ws_window_up","^W"); setkey ("ws_window_down","^Z"); % % Control-Q keys --- hope you figure out how to pass ^Q/^S through system % setkey ("eol","^Q^D"); setkey ("eol","^QD"); setkey ("bol","^Q^S"); setkey ("bol","^QS"); setkey ("bob","^Q^R"); setkey ("bob","^QR"); setkey ("eob","^Q^C"); setkey ("eob","^QC"); setkey ("search_forward","^Q^F"); setkey ("search_forward","^QF"); setkey ("replace_cmd","^Q^A"); setkey ("replace_cmd","^QA"); setkey ("kill_line","^Q^Y"); setkey ("kill_line","^QY"); setkey ("goto_top_of_window","^QE"); setkey ("goto_top_of_window","^Q^E"); setkey ("goto_bottom_of_window","^Q^X"); setkey ("goto_bottom_of_window","^QX"); % % Control-K map % setkey ("ws_begin_block","^K^B"); setkey ("ws_begin_block","^KB"); setkey ("ws_end_block","^K^K"); setkey ("ws_end_block","^KK"); setkey ("ws_delete_block","^K^Y"); setkey ("ws_delete_block","^KY"); setkey ("ws_copy_block","^K^C"); setkey ("ws_copy_block","^KC"); setkey ("insert_file","^K^R"); setkey ("insert_file","^KR"); setkey ("save_buffer","^K^S"); setkey ("save_buffer","^KS"); setkey ("exit_jed","^K^Q"); setkey ("exit_jed","^KQ"); setkey ("ws_exit_jed","^K^D"); setkey ("ws_exit_jed","^KD"); define ws_window_up () { recenter (window_line() + 1); } define ws_window_down () { recenter (window_line() + 1); } % Not implemented: % ^K^H - Hide or unhide the currently selected block define ws_repeat_search () { go_right (1); !if (fsearch(LAST_SEARCH)) error ("Not found."); } % the blocks are very different. Here we cheat. Two marks are pushed-- % One at beginning of block and one at end. Assumption is that the spots % we see are the ones we put. variable WS_Mark_Pushed = 0; define ws_begin_block () { loop (WS_Mark_Pushed) pop_mark (0); WS_Mark_Pushed = 1; push_mark(); push_mark (); call ("set_mark_cmd"); message ("Begin Block."); } % copies block to internal buffer-- preserves block variable WS_Block_Buffer = " *ws-internal*"; define ws_copy_block_to_buffer () { if (WS_Mark_Pushed < 2) error ("Block Not defined."); push_spot (); pop_mark (1); % end of block dupmark(); pop(); % dup beginning because we want to keep it whatbuf (); setbuf (WS_Block_Buffer); erase_buffer (); setbuf(()); copy_region (WS_Block_Buffer); push_mark (); pop_spot (); } define ws_end_block () { if (WS_Mark_Pushed != 1) { loop (WS_Mark_Pushed) pop_mark(0); WS_Mark_Pushed = 0; error ("Begin Block First!"); } !if (markp()) { WS_Mark_Pushed = 0; error ("Wordstar Error."); } WS_Mark_Pushed = 2; pop_mark (0); % pops visible mark from begin block push_mark (); ws_copy_block_to_buffer (); message ("Block Defined."); } define ws_delete_block () { ws_copy_block_to_buffer (); pop_mark (1); del_region (); } define ws_copy_block () { ws_copy_block_to_buffer (); insbuf (WS_Block_Buffer); message ("Region Copied."); } define ws_exit_jed () { save_buffer (); exit_jed (); } define ws_delete_word () { variable p = POINT; push_mark (); skip_white (); if (POINT == p) { skip_word (); skip_white (); } del_region (); } define ws_insert_last_block () { if (bufferp(WS_Block_Buffer)) insbuf (WS_Block_Buffer); } _block_to_buffer (); pop_mark (1); del_region (); } define ws_copy_block () { ws_copy_block_to_buffer (); insbuf (WS_Block_Buffer); message ("Region Copied."); } define ws_exit_jed () { save_buffer (); exit_jed (); } define ws_delete_word () { variable p = POINT; push_mark (); skip_white (); if (POINT == p) { skip_word (); skip_white (); } del_region (); } define ws_insert_last_block () { if (bufferp(WS_Block_Buffer)) insbuf (WS_Block_Buffejed-0.97.12/lib/yankpop.sl000064400000000000003000000035540603742312100150640ustar00rootsys00000000000000% Note the functions used here are not available on 16 bit systems. variable Kill_Buffer_Number = -1; variable Kill_Buffer_Yank_Number = -1; variable Kill_Buffer_Max_Number = -1; % Instead of using a new user mark, I should probably set aside a bookmark % to allow the user to goto it. variable Kill_Buffer_User_Mark; define yp_copy_region_as_kill () { variable kill_fun = "%kill%"; if (strcmp (LAST_KBD_COMMAND, kill_fun)) { Kill_Buffer_Number++; if (Kill_Buffer_Number == KILL_ARRAY_SIZE) { Kill_Buffer_Number = 0; } if (Kill_Buffer_Number > Kill_Buffer_Max_Number) Kill_Buffer_Max_Number = Kill_Buffer_Number; copy_region_to_kill_array (Kill_Buffer_Number); Kill_Buffer_Yank_Number = Kill_Buffer_Number; } else { append_region_to_kill_array (Kill_Buffer_Number); } set_current_kbd_command (kill_fun); } define yp_kill_region () { () = dupmark (); yp_copy_region_as_kill (); del_region (); } define yp_kill_line () { variable one; variable kill_fun = "%kill%"; one = eolp () or (KILL_LINE_FEATURE and bolp ()); push_mark (); eol (); go_right (one); yp_kill_region (); } define yp_yank () { Kill_Buffer_User_Mark = create_user_mark (); insert_from_kill_array (Kill_Buffer_Yank_Number); set_current_kbd_command ("%yank%"); } define yp_yank_pop () { if (strcmp (LAST_KBD_COMMAND, "%yank%")) { error ("The last command must be a yank one."); } Kill_Buffer_Yank_Number--; if (Kill_Buffer_Yank_Number < 0) { Kill_Buffer_Yank_Number = Kill_Buffer_Max_Number; } % Delete the previous yank push_mark (); goto_user_mark (Kill_Buffer_User_Mark); del_region (); yp_yank (); } define yp_kill_word () { push_mark(); skip_word(); yp_kill_region (); } define yp_bkill_word () { push_mark(); bskip_word(); yp_kill_region (); } ND, "%yank%")) { error ("The last command must be a yank one."); } Kill_Buffer_Yank_Number--; if (Kill_Buffer_Yank_Number < 0) jed-0.97.12/lib/site.sl.ORG000064400000000000003000001111000603742311600147640ustar00rootsys00000000000000%_traceback = 1; % % Site specific initialiation file. % % This file must be present in the JED_LIBRARY. JED loads it first--- even % before reading command line arguments. The command line arguments are then % passed to a hook declared in this file for further processing. % % In addition to some hooks, this file declares some autoloads for various % functions and defines utility functions. Any user specific stuff should be % placed in the jed.rc (.jedrc) user startup file. Only put here what you % believe EVERY user on your system should get! % % The best way to make changes in this file is to put all your changes in a % separate file, defaults.sl. defaults.sl is NOT distributed with JED. Code % at the edn of this file checks for the existence of `defaults.sl' and loads % it if found. Functions occuring in this file (site.sl) may be overloaded in % defaults.sl. Making changes this way also makes it easier to upgrade to % future JED versions. % % -------------------------------------------------------------------------- % Note: Some of the small routines here have been written in such a way that % the stack based nature of the language is exploited. That is, instead of % writing: % define sum (a, b) { return a + b; } % I use: % define sum () { () + (); } % The former parses to the bytecode: =b =a a b + return % where as the latter parses to: + % which is 6 times faster and 6 times more memory efficient! % -------------------------------------------------------------------------- % compatability define define_keywords () { define_keywords_n (0); } %!% A function to contat a directory with a filename. Basically checks %!% for the final slash on the dir and adds on if necessary define dircat(dir, file) { variable n = strlen(dir); if (n) { #ifdef MSDOS OS2 variable slash = "\\"; if (strcmp(substr(dir, n, 1), slash)) dir = strcat(dir, slash); #endif #ifdef UNIX variable slash = "/"; if (strcmp(substr(dir, n, 1), slash)) dir = strcat(dir, slash); #endif #ifdef VMS % convert a.dir;1 to [.a] first variable f1, d1; dir = extract_element(dir, 0, ';'); f1 = extract_element(dir, 1, ']'); if (strlen(f1)) f1 = strcat(".", extract_element(f1, 0, '.')); d1 = extract_element(dir, 0, ']'); strcat(d1, f1); if (':' != int(substr(dir, strlen(dir), 1))) strcat((), "]"); dir = (); #endif } expand_filename (strcat (dir, file)); } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Global Variables %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% variable Null_String = ""; %!% A Comma separated list of info directories to search. variable Info_Directory; variable Jed_Bin_Dir; %!% Prototype: Integer C_CONTINUED_OFFSET = 2; %!% This variable controls the indentation of statements that are continued %!% onto the next line as in the following example: %!% @ if (something) %!% @ continued_statement (); %!% @ else %!% @ another_continued_statement (); %!% Related Variables: @C_BRA_NEWLINE@, @C_BRACE@, @C_INDENT@, @C_Colon_Offset@ variable C_CONTINUED_OFFSET = 2; %!% Integer C_Colon_Offset = 1; %!% This variable may be changed to adjust the indentation of @case@ statements %!% in C-Mode. %!% See also: @c_mode@ %!% Related Variables: @C_BRA_NEWLINE@, @C_BRACE@, @C_INDENT@, @C_Colon_Offset@ variable C_Colon_Offset = 1; %!% Prototype: Void strncat (String a, String b, ..., Integer n); %!% Returns concatenated string "abc..." define strncat (n) { n--; loop (n) strcat (); } % For compatability variable LAST_SEARCH = ""; define save_search_string () { LAST_SEARCH = (); } %!% Prototype: Void bol_skip_white (); %!% This function combines the two functions @bol@ and @skip_white@ into a %!% single operation. That is, it moves the point to the beginning of the %!% line and then skips over whitespace to the first non-whitespace character. %!% See also: @bol@, @skip_white@, @skip_chars@ define bol_skip_white () { bol (); skip_white (); } %!% Prototype: Void bskip_white (); %!% This function skips backward over whitespace. %!% Note: it does not cross lines. %!% See also: @skip_white@, @bskip_chars@ define bskip_white () { bskip_chars ("\t "); } %% Convert Unix- or OS/2- style path to comma-delimited list define path2list(path) { #ifdef VMS path; #else variable n, pathsep, a_path; #ifdef UNIX pathsep = ':'; #else pathsep = ';'; #endif n = 0; Null_String; Null_String; while (a_path = extract_element(path, n, pathsep), strlen(a_path)) { strncat ((), (), a_path, 3); % strcat((), strcat((), a_path)); ","; n++; } pop(); #endif } #ifdef VMS Info_Directory = strcat(JED_ROOT, "[info]"); Jed_Bin_Dir = strcat(JED_ROOT, "[bin]"); #else Info_Directory = dircat(JED_ROOT, "info"); Jed_Bin_Dir = dircat(JED_ROOT, "bin"); #endif $1 = getenv("INFOPATH"); if (strlen($1)) Info_Directory = path2list($1); %!% Column to begin a C comment--- used by c_make_comment variable C_Comment_Column = 40; #ifdef UNIX if (OUTPUT_RATE > 9600) OUTPUT_RATE = 0; %% coming through a network? #endif %% %% Some key definitions %% % These two are for compatability: setkey("search_forward", "^Ff"); setkey("search_backward", "^Fb"); setkey("skip_word", "^[^[[C"); %escape right arrow. setkey("bskip_word", "^[^[[D"); %escape left arrow setkey("upcase_word", "^[U"); setkey("downcase_word", "^[L"); setkey("capitalize_word", "^[C"); setkey("emacs_escape_x", "^[X"); setkey("undo", "^Xu"); %% Also ^_ but vtxxx have problems with it setkey("transpose_lines", "^X^T"); setkey("help_prefix", "^H"); %setkey("indent_line_cmd", "^I"); %setkey("insert_colon_cmd", ":"); % setkey("newline_and_indent_cmd", "^M"); setkey("do_shell_cmd", "^[!"); setkey("find_tag", "^[."); setkey("dabbrev", "\e/"); setkey("save_buffers", "^Xs"); setkey("whatpos", "^X?"); setkey("list_buffers", "^X^B"); setkey ("set_fill_column", "^Xf"); setkey ("compile_parse_errors", "^X'"); #ifdef UNIX OS2 setkey("ispell", "^[$"); #endif #ifndef MSDOS OS2 setkey("mail", "^Xm"); #endif %% %% Autoloads %% $0 = _stkdepth (); _autoload("c_mode", "cmode", "slang_mode", "slmode", "find_binary_file", "binary", "jed_easy_help", "jedhelp", "query_replace_match", "regexp", "re_search_forward", "regexp", "re_search_backward", "regexp", "dired", "dired", "calendar", "cal", "menu_main_cmds", "menu", "trim_buffer", "util", "occur", "util", "info_reader", "info", "info_mode", "info", "info_find_node", "info", "list_buffers", "buf", "append_region", "buf", "write_region", "buf", "recover_file", "buf", "most_mode", "most", "run_most", "most", "compile", "compile", "sort", "sort", "untab", "untab", "fortran_mode", "fortran", "save_buffers", "buf", "sh_mode", "shmode", "rot13", "rot13", "search_forward", "search", "search_backward", "search", "replace_cmd", "search", "replace_across_buffer_files","replace", "isearch_forward", "isearch", "isearch_backward", "isearch", "shell", "shell", "mute_set_mute_keys", "mutekeys", #ifndef OS2 UNIX "run_shell_cmd", "shell", #endif "html_mode", "html", "do_shell_cmd", "shell", "find_tag", "ctags", "apropos", "help", "expand_keystring", "help", "describe_bindings", "help", "describe_function", "help", "describe_variable", "help", "help_for_function", "help", "where_is", "help", "showkey", "help", "describe_mode", "help", "format_paragraph_hook", "tmisc", "dabbrev", "dabbrev", "tex_mode", "tex", "bibtex_mode", "bibtex", "latex_mode", "latex", "bkmrk_goto_mark", "bookmark", "bkmrk_set_mark", "bookmark", "add_keyword", "syntax", "lisp_mode", "lisp", %% %% By default, tabs are every TAB columns (default 8). Calling this function %% will allow the user to set the tabs arbitrarily and bind the TAB key %% appropriately. "edit_tab_stops", "tabs", "tab_to_tab_stop", "tabs", "append_string_to_file", "misc", "write_string_to_file", "misc", "make_tmp_buffer_name", "misc", "abbrev_mode", "abbrev", "set_abbrev_mode", "abbrev", "save_abbrevs", "abbrmisc", "define_abbreviation", "abbrmisc", #ifdef UNIX VMS "mail", "mail", "mail_format_buffer", "mail", "dcl_mode", "dcl", #endif #ifdef UNIX OS2 "unix_man", "man", "ispell", "ispell", #endif #ifdef UNIX "rmail", "rmail", #endif #ifdef VMS "vms_help", "vmshelp", #endif "idl_mode", "idl", "nroff_mode", "nroff", (_stkdepth () - $0) / 2); % matches start of _autoload %------------------------------------------------------------------------- % Utility functions % For compatability define shell_cmd () { () = run_shell_cmd (); } %!% Prototype: Void go_up (Integer n); %!% Move up 'n' lines. %!% See also: up, go_down define go_up() { () = up(); } %!% Prototype: Void up_1 (); %!% Move up 1 line. If successful, returns 1 otherwise it returns 0. %!% See also: @up@, @go_down@, @go_up@, @go_up_1@ define up_1() { up(1); } %!% Prototype: Void go_up_1 (); %!% Move up exactly 1 line if possible. %!% See also: up, go_down define go_up_1 () { () = up_1(); } %!% Prototype: Void go_down (Integer n); %!% Move down 'n' lines. %!% See also: go_up, down define go_down() { () = down(); } %!% Prototype: Void down_1 (); %!% Move down exactly one lines. If sucessful, 1 is returned otherwise %!% zero is returned. %!% See also: @go_up@, @down@, @go_down_1@ define down_1 () { down (1); } %!% Prototype: Void go_down_1 (); %!% Move down one lines. %!% See also: go_up, down define go_down_1 () { () = down_1(); } %!% Prototype: Void go_left (Integer n); %!% Move backward 'n' characters. %!% See also: left, go_right define go_left() { () = left();} %!% Prototype: Void go_right (Integer n); %!% Move forward 'n' characters. %!% See also: right, go_left define go_right() { () = right();} %% emacs-like escape-x function define emacs_escape_x() { variable f = Null_String, i = 0; if (MINIBUFFER_ACTIVE) { call("evaluate_cmd"); return; } forever { if (is_internal(f)) { call(f); return; } if (is_defined(f)) { eval(f); return; } !if (EXECUTING_MACRO or DEFINING_MACRO) { if (i == 1) ungetkey(13); ungetkey(' '); ++i; } f = read_with_completion("M-x", Null_String, f, 'F') } } define goto_line_cmd() { read_mini("Goto line:", Null_String, Null_String); goto_line(integer(())); } define goto_column_cmd() { read_mini("Goto Column:", Null_String, Null_String); goto_column(integer(())); } %!% Prototype: Void runhooks (String fun) %!% if S-Lang function 'fun' is defined, execute it. It does nothing if 'fun' %!% does not exist. define runhooks(fun) { if (is_defined (fun)) eval(fun); } %!% Prototype: Void local_setkey (String fun, String key); %!% This function is like 'setkey' but unlike 'setkey' which operates on the %!% global keymap, 'local_setkey' operates on the current keymap which may or %!% may not be the global one. %!% See also: setkey, definekey, local_unsetkey define local_setkey () { definekey((), (), what_keymap()); } %!% Prototype: Void local_unsetkey (String key); %!% This function is like 'unsetkey' but unlike 'unsetkey' which unsets a key %!% from the global keymap, 'local_unsetkey' operates on the current keymap %!% which may or may not be the global one. %!% See also: unsetkey, undefinekey, local_setkey define local_unsetkey () { undefinekey( (), what_keymap()); } %!% insert a character into a buffer. %!% This function should be called instead of 'insert' when it is desired to %!% insert a 1 character string. Unlike 'insert', insert_char takes an integer %!% argument. For example, %!% 'x' insert_char %!% and %!% "x" insert %!% are functionally equivalent but insert_char is more memory efficient. define insert_char () { insert (char( () )); } %!% Prototype: Void newline (Void); %!% insert a newline in the buffer at point. %!% See also: insert, insert_char define newline () { insert_char('\n'); } %!% insert a single space into the buffer. define insert_single_space () { insert_char(' '); } %!% Prototype: Integer looking_at_char (Integer ch); %!% This function returns non-zero if the character at the current editing %!% point is 'ch' otherwise it retuns zero. This function performs a case %!% sensitive comparison. define looking_at_char () { what_char () == (); } %!% returns type of file. e.g., /usr/a.b/file.c --> c define file_type(file) { variable n; file = extract_filename(file); n = is_substr(file, "."); !if (n) return (Null_String); substr(file, n + 1, strlen(file)); } %;; scroll other window macros-- bind them yourself define next_wind_up() { otherwindow(); call("page_up"); loop (nwindows() - 1) otherwindow(); } define next_wind_dn() { otherwindow(); call("page_down"); loop (nwindows() - 1) otherwindow(); } %!% Mode for indenting and wrapping text %!% Functions that affect this mode include: %!% %!% Function: Default Binding: %!% indent_line TAB %!% newline_and_indent RETURN %!% format_paragraph ESC Q %!% narrow_paragraph ESC N %!% %!% Variables include: %!% WRAP_INDENTS, WRAP %!% TAB, TAB_DEFAULT define text_mode() { setmode("Text", 1); use_keymap("global"); runhooks ("text_mode_hook"); } %!% Generic mode not designed for anything in particular. %!% See: text_mode, c_mode define no_mode() { setmode(Null_String, 0); use_keymap("global"); } % Function prototypes % These 'functions' are only here to initialize function pointers. define _function_pop_0 (x) {0} %!% called from mode_hook. Returns 0 if it is desired that control return %!% to mode_hook or 1 if mode hook should exit after calling mode_hook_ptr variable mode_hook_pointer = &_function_pop_0; variable Default_Mode = &text_mode; % Emacs allows a mode definition on the first line of a file % -*- mode: MODENAME; VAR: VALUE; ... -*- % which can also include values of local variables %!% check first line for the simplest Emacs mode statement %!% -*- modename -*- define modeline_hook() { variable mode = Null_String; push_spot(); bob(); go_down (4); push_mark (); bob (); narrow (); if (looking_at("#!")) mode = "sh"; % #!/bin/sh, #!/usr/local/bin/perl, ... if (re_fsearch ("-\\*- *\\([-A-Za-z_]+\\) *-\\*-")) mode = strlow (regexp_nth_match (1)); widen (); pop_spot (); % restore place if ( strlen(mode) ) { variable mstr = "_mode"; while (str_replace (mode, "-", "_")) mode = (); !if (is_substr (mode, mstr)) mode = strcat (mode, "_mode" ); if (is_defined(mode)) { eval (mode); return 1; } } 0; } variable Mode_List_Exts = "c,h,cc,cpp,sl,txt,doc,tex,f,for,pro,idl,1"; variable Mode_List_Modes = "c,c,c,c,slang,text,text,tex,fortran,fortran,idl,idl,nroff"; #ifdef MSDOS OS2 Mode_List_Exts = strcat (Mode_List_Exts, ",rc,bat,htm"); % resource file Mode_List_Modes = strcat (Mode_List_Modes, ",c,no,html"); #endif #ifdef VMS UNIX Mode_List_Exts = strcat (Mode_List_Exts, ",com,html"); % resource file Mode_List_Modes = strcat (Mode_List_Modes, ",dcl,html"); #endif #ifdef UNIX Mode_List_Exts = strcat (Mode_List_Exts, ",cshrc,tcshrc,login,profile,conf"); Mode_List_Modes = strcat (Mode_List_Modes, ",sh,sh,sh,sh,sh"); #endif %!% Prototype: Void add_mode_for_extension (String mode, String ext); %!% This function modifies Mode_List in such a way that when a file with %!% filename extension `ext' is read in, function strcat (mode, "_mode") %!% will be called to set the mode. That is, the first parameter 'mode' %!% is the name of a mode without the '_mode' added to the end of it. define add_mode_for_extension (mode, ext) { variable comma = ","; Mode_List_Modes = strncat (mode, comma, Mode_List_Modes, 3); Mode_List_Exts = strncat (ext, comma, Mode_List_Exts, 3); } %!% This is a hook called by find_file routines to set the mode %!% for the buffer. This function takes one parameter, the filename extension %!% and returns nothing. define mode_hook (ext) { variable n, mode; #ifdef VMS ext = extract_element(ext, 0, ';'); #endif #ifdef MSDOS OS2 VMS ext = strlow (ext); #endif if (mode_hook_pointer(ext)) return; if (modeline_hook ()) return; n = is_list_element (Mode_List_Exts, ext, ','); if (n) { n--; mode = strcat (extract_element (Mode_List_Modes, n, ','), "_mode"); if (is_defined(mode)) { eval (mode); return; } } Default_Mode (); } %!% sets buf modified flag. If argument is 1, mark %!% buffer as modified. If argument is 0, mark buffer as unchanged. define set_buffer_modified_flag(modif) { getbuf_info(); if (modif) () | 1; else () & ~(1); setbuf_info(()); } %!% returns non-zero if the buffer modified flag is set. It returns zero %!% if the buffer modified flag is not been set. This works on the %!% current buffer. See also 'set_buffer_modified_flag'. define buffer_modified () { variable flags; (, , , flags) = getbuf_info (); flags & 1; } %!% set undo mode for buffer. If argument is 1, undo is on. 0 turns it off define set_buffer_undo(modif) { getbuf_info(); if (modif) () | 32; else () & ~(32); setbuf_info(()); } %!% Takes 1 parameter: 0 turn off readonly %!% 1 turn on readonly define set_readonly(n) { getbuf_info(); if (n) () | 8; else () & ~(8); setbuf_info(()); } %!% Takes 1 parameter: 0 turn off overwrite %!% 1 turn on overwrite define set_overwrite(n) { getbuf_info(); if (n) () | 16; else () & ~(16); setbuf_info(()); } define toggle_crmode () { setbuf_info(getbuf_info() xor 0x400); set_buffer_modified_flag (1); } define toggle_readonly() { setbuf_info(getbuf_info() xor 8); } define toggle_overwrite() { setbuf_info(getbuf_info() xor 16); } #ifdef MSDOS OS2 setkey(" /", "\eOQ"); setkey(" *", "\eOR"); setkey(" +", "\eOm"); setkey(" -", "\eOS"); setkey("toggle_overwrite", "\xE0R"); %/* insert key */ setkey("toggle_overwrite", "\eOn"); %/* insert key */ #endif define toggle_undo() { setbuf_info(getbuf_info() xor 32); } define double_line() { POINT; bol(); push_mark(); eol(); bufsubstr(); newline(); insert(()); =POINT; } define transpose_lines() { variable line; bol(); push_mark(); push_mark(); eol(); line = bufsubstr(); go_right(1); del_region(); go_up_1 (); bol(); insert(line); newline(); go_down_1 (); % goes to bol } %!% string to display at bottom of screen upon JED startup and when %!% user executes the help function. variable help_for_help_string; help_for_help_string = #ifdef VMS "^H -> Help:^H Menu:? Info:I Apropos:A Key:K Where:W Fnct:F VMSHELP:M Var:V"; #endif #ifdef MSDOS "^H -> Help:^H Menu:? Info:I Apropos:A Key:K Where:W Fnct:F Var:V Mem:M"; #endif #ifdef UNIX OS2 "^H -> Help:^H Menu:? Info:I Apropos:A Key:K Where:W Fnct:F Var:V Man:M"; #endif % Load minibuffer routines now before any files are loaded. % This will reduce fragmentation on PC. !if (BATCH) { #ifdef MSDOS UNIX OS2 VMS () = evalfile("mini"); #else autoload ("mini_exit_minibuffer", "mini"); autoload ("prev_mini_command", "mini"); autoload ("next_mini_command", "mini"); #endif } %for compatability with older versions %!% Prototype: String read_file_from_mini (String p); %!% This function prompts the user for a file name using @p@ as a prompt. %!% It reads a filename with completion from the mini-buffer and returns %!% it. %!% Related Functions: @read_with_completion@, @read_mini@ define read_file_from_mini () { read_with_completion( () , Null_String, Null_String, 'f'); } %!% Search for FILE in directories specified by JED_LIBRARY returning %!% expanded pathname if found or the Null string otherwise. define expand_jedlib_file(f) { variable n = 0, dir, file; forever { dir = extract_element(JED_LIBRARY, n, ','); !if (strlen(dir)) return (Null_String); file = dircat(dir, f); if (file_status(file) == 1) break; ++n; } file; } %!% Prototype: String read_string_with_completion (prompt, dflt, list) %!% This function takes 3 String parameters and returns a String. The %!% first parameter is used as the prompt, the second parameter is the %!% default value to be returned and the third parameter is a list to be used %!% for completions. This list is simply a comma separated list of strings. define read_string_with_completion (prompt, dflt, list) { read_with_completion (list, prompt, dflt, Null_String, 's'); } %!% If non-zero, startup by asking user for a filename if one was %!% not specified on the command line. variable Startup_With_File = 0; %% startup hook %!% Function that gets executed right before JED enters its main editing %!% loop. This is for last minute modifications of data structures that %!% did not exist when startup files were loaded (e.g., minibuffer keymap) define jed_startup_hook() { variable n, hlp, ok = 0, mini = "Mini_Map", file, do_message = 1; #ifdef MSDOS OS2 definekey ("next_mini_command", "\eOr", mini); definekey ("next_mini_command", "\xE0P", mini); definekey ("prev_mini_command", "\xE0H", mini); definekey ("prev_mini_command", "\eOx", mini); #else definekey ("next_mini_command", "^[[B", mini); definekey ("prev_mini_command", "^[[A", mini); #endif definekey ("mini_exit_minibuffer", "^M", mini); definekey ("exit_mini", "^[^M", mini); % turn on Abort character processing IGNORE_USER_ABORT = 0; runhooks ("startup_hook"); !if (strcmp(whatbuf(), "*scratch*") or buffer_modified()) { ERROR_BLOCK { erase_buffer (); set_buffer_modified_flag (0); } () = insert_file (expand_jedlib_file("cpright.hlp")); set_buffer_modified_flag (0); bob(); file = Null_String; if (Startup_With_File > 0) { forever { file = read_file_from_mini ("Enter Filename:"); if (strlen(extract_filename(file))) break; } } else !if (Startup_With_File) { message(help_for_help_string); do_message = 0; update(1); $1 = ""; #ifdef 0 while (input_pending (0)) { variable silly = getkey (); if (silly == 0) silly = "^@"; else silly = char (silly); $1 = strncat ($1, "|", silly, 3); } #endif () = input_pending(600); } EXECUTE_ERROR_BLOCK; if (strlen (file)) () = find_file(file); } if (do_message) message(help_for_help_string); } %!% display row and column information in minibuffer define whatpos () { variable max_lines; push_spot (); eob (); max_lines = what_line (); pop_spot (); message (Sprintf ("%s, Line %d of %d lines, Column %d", count_chars (), what_line(), max_lines, what_column (), 4)); } %!% find a file from JED_LIBRARY, returns number of lines read or 0 if not %!% found. define find_jedlib_file(file) { file = expand_jedlib_file(file); !if (strlen(file)) return(0); find_file(file); } %% %% help function %% %!% name of the file to load when the help function is called. variable Help_File = "jed.hlp"; %% other modes will override this. %!% Pop up a window containing a help file. The help file that is read %!% in is given by the variable Help_File. define help() { variable hlp = "*help*", buf, rows; !if (buffer_visible (hlp)) { !if (strlen(Help_File)) Help_File = "generic.hlp"; Help_File = expand_jedlib_file(Help_File); buf = whatbuf(); onewindow(); rows = window_info('r'); setbuf(hlp); set_readonly(0); erase_buffer(); () = insert_file(Help_File); pop2buf(hlp); eob(); bskip_chars("\n"); rows = rows / 2 - (what_line() + 1); bob(); set_buffer_modified_flag(0); set_readonly(1); pop2buf(buf); loop (rows) enlargewin(); } update (1); message(help_for_help_string); } #ifdef VMS %% This resume hook is need for VMS when returning from spawn. %% In fact, it is NEEDED for certain JED functions on VMS so declare it. define resume_hook() { variable file = getenv("JED_FILE_NAME"); !if (strlen(file)) return; !if (find_file(file)) error("File not found!"); } #endif VMS %%file hooks %!% returns backup filename. Arguments to function are dir and file. define make_backup_filename(dir, file) { #ifdef UNIX strncat (dir, file, "~", 3); #endif #ifdef MSDOS OS2 variable type; #ifdef OS2 !if (IsHPFSFileSystem(dir)) { #endif % There are several things to worry about. Here just break up the % filename and truncate type to 2 chars and paste it back. % note that this takes a name like file.c and produces file.c~ % Also, note that if the type is empty as in 'file', it produces % 'file.~' type = file_type(file); file = strncat (extract_element(file, 0, '.'), ".", substr(type, 1, 2), 3); #ifdef OS2 } #endif strncat (dir, file, "~", 3); #endif } %!% returns autosave filename. Arguments to function are dir and file. define make_autosave_filename(dir, file) { #ifdef VMS Sprintf ("%s_$%s;1", dir, file, 2); #endif #ifdef UNIX Sprintf ("%s#%s#", dir, file, 2); #endif #ifdef MSDOS OS2 #ifdef OS2 !if (IsHPFSFileSystem(dir)) { #endif variable type = file_type(file); file = substr(extract_element(file, 0, '.'), 1, 7); if (strlen(type)) file = strcat(file, "."); file = strcat (file, type); #ifdef OS2 } #endif strncat (dir, "#", file, 3); #endif } %!% breaks a filespec into dir filename--- %!% this routine returns dir and filename such that a simple strcat will %!% suffice to put them together again. For example, on unix, /a/b/c %!% returns /a/b/ and c define parse_filename(fn) { variable f, dir, n; f = extract_filename(fn); n = strlen(fn) - strlen(f); dir = substr(fn, 1, n); dir; f; } define set_buffer_no_backup () { setbuf_info (getbuf_info() | 0x100); } define set_buffer_no_autosave () { setbuf_info (getbuf_info() & ~(0x2)); } variable No_Backups = 0; %!% called AFTER a file is read in to a buffer. FILENAME is on the stack. define find_file_hook(file) { variable dir, a, f, m; (dir, f) = parse_filename(file); #ifndef VMS if (file_status(dir) != 2) { error (Sprintf("Directory %s is invalid!", dir, 1)); } #endif if (No_Backups) set_buffer_no_backup (); a = make_autosave_filename(dir, f); if (file_time_compare(a, file) > 0) { m = "Autosave file is newer. Use ESC-X recover_file."; flush(m); () = input_pending(10); message(m); } runhooks ("user_find_file_hook"); } % % completions -- everything here must be predefined % I just push the strings onto the stack and loop 'add_completion' over them % $0 = _stkdepth(); _add_completion ("toggle_undo", "calendar", "trim_buffer", "abbrev_mode", "define_abbreviation", "save_abbrevs", "occur", "append_region", "write_region", "replace_across_buffer_files", "recover_file", "compile", "sort", "untab", "fortran_mode", "save_buffers", "isearch_forward", "isearch_backward", "shell", "edit_tab_stops", "c_mode", "toggle_crmode", "text_mode", "no_mode", "goto_line_cmd", "goto_column_cmd", "describe_mode", "evalbuffer", "open_rect", "kill_rect", "insert_rect", "copy_rect", "blank_rect", "dired", "re_search_forward", "re_search_backward", "query_replace_match", "describe_bindings", "search_backward", "search_forward", "replace_cmd", "find_binary_file", "latex_mode", "sh_mode", #ifndef MSDOS OS2 "mail", #endif #ifdef UNIX OS2 "ispell", #endif _stkdepth - $0); % matches _add_completion %!% Prototype: String buffer_filename (); %!% Returns the name of the file associated with the current buffer. If %!% there is none associated with it, the empty string is returned. define buffer_filename () { variable file, dir; (file, dir, , ) = getbuf_info(); !if (strlen (file)) dir = Null_String; strcat (dir, file); } % save buffer if necessary define save_buffer() { variable flags, dir, file; (file, , , flags) = getbuf_info(); !if (flags & 1) return (message("Buffer not modified.")); if (strlen(file)) { () = write_buffer(buffer_filename ()); } else call ("save_buffers"); } add_completion("save_buffer"); define insert_buffer() { read_with_completion("Insert Buffer:", Null_String, Null_String, 'b'); push_spot(); ERROR_BLOCK {pop_spot()} insbuf(()); EXECUTE_ERROR_BLOCK; } add_completion("insert_buffer"); variable Global_Top_Status_Line = " *** To activate menus, press `Ctrl-H ?'. For help, press `Ctrl-H' twice. ***"; () = set_top_status_line (Global_Top_Status_Line); define help_prefix() { variable c; !if (input_pending(20)) flush (help_for_help_string); c = int (strup(char(getkey()))); switch (c) { case 8 : help } { case 'A' : apropos } { case 'I' : info_mode} { case '?' : menu_main_cmds} { case 'F' : describe_function} { case 'V' : describe_variable} { case 'W' : where_is} { case 'C' or case ('K', c) : showkey} { case 'M' : #ifdef UNIX OS2 unix_man(); #else #ifdef VMS vms_help (); #endif #endif #ifdef MSDOS call("coreleft"); #endif } { pop(); beep(); } } %% %% word movement definitions. Since these vary according to editors, %% they are S-Lang routines. %% define skip_word () { while (skip_non_word_chars(), eolp()) { if (1 != right(1)) break; } skip_word_chars(); } define bskip_word() { while (bskip_non_word_chars(), bolp()) { !if (left(1)) break; } bskip_word_chars(); } define delete_word() { push_mark(); skip_word(); del_region(); } define bdelete_word () { push_mark(); bskip_word(); del_region(); } define xform_word () % parameter on stack { while (skip_non_word_chars(), eolp()) { if (1 != right(1)) break; } push_mark(); skip_word(); xform_region(()); } define capitalize_word() { xform_word('c'); } define upcase_word() { xform_word('u'); } define downcase_word() { xform_word('d'); } define smart_set_mark_cmd () { if (markp()) pop_mark(0); else call("set_mark_cmd"); } define flush_input() { while (input_pending(0)) () = getkey(); } %!% Prototype Void buffer_format_in_columns(); %!% takes a buffer consisting of a sigle column of items and converts the %!% buffer to a multi-column format. define buffer_format_in_columns() { push_spot(); bob(); forever { _for (0,4,1) { goto_column(() * 14 + 1); if (eolp()) { if (eobp()) { pop_spot(); return; } insert_single_space; del(); } } !if (down_1 ()) break; % bol (); % this is a side effect of going down } pop_spot(); } define delete_line() { bol(); push_mark(); eol(); go_right(1); del_region(); } define set_fill_column () { push_spot(); eol(); WRAP = what_column (); pop_spot(); message (Sprintf("WRAP column at %d.", WRAP, 1)); } define rename_buffer(name) { variable flags = getbuf_info(); pop(); setbuf_info(name, flags); } define info () { info_mode (); definekey("exit_jed", "Q", "Infomap"); definekey("exit_jed", "q", "Infomap"); runhooks ("info_mode_hook"); } %!% Prototype: Void pop_n (Integer n); define pop_n () { loop () pop (); } %!% Prototype: String make_tmp_file (String base); %!% This function returns a unique file name that begins with @base@. define make_tmp_file(base) { variable pid = getpid(), file, n = 1000; while (n) { file = strcat(base, string(pid)); !if (file_status(file)) return (file); pid++; } error ("Unable to create a tmp file!"); } define goto_top_of_window () { go_up (window_line () - 1); } define goto_bottom_of_window () { go_down (window_info ('r') - window_line ()); } %!% called from main in JED executable. define command_line_hook() { variable n, i, file, depth, jedrc, home, next_file; variable script_file = Null_String; jedrc = "jed.rc"; #ifdef UNIX jedrc = ".jedrc"; #endif home = getenv("JED_HOME"); #ifdef VMS %% allows JED_HOME: to be search list--- %% thanks to SYSTEM@VACMZB.chemie.Uni-Mainz.DE for suggestion if (strlen(home)) home = "JED_HOME:"; #endif !if (strlen(home)) { home = getenv("HOME"); #ifdef VMS home = "SYS$LOGIN:"; #endif } jedrc = dircat(home, jedrc); n = MAIN_ARGC; --n; %% argv[0], here it is not used. % % If batch then first argument is not used so start at second % Also, n is the number of effective command line parameters so reduce it. % if (BATCH) { --n; 2; } else 1; =i; % % if first argument is -n then do NOT load init file % % stuff left on stack for if if (n) strcmp (command_line_arg(i), "-n"); else 1; if (()) { depth = _stkdepth; if (file_status(jedrc) == 1) jedrc; else "jed.rc"; () = evalfile(()); if ( _stkdepth != depth) { flush(strcat ("Excess junk left on stack by ", jedrc)); () = input_pending(10); } pop_n (_stkdepth - depth); } else if (n) ++i; n = MAIN_ARGC - i; !if (n) return; % % Is JED to emulate most? % !if (strcmp(command_line_arg(i), "-most")) { run_most (i + 1); return; } while (n > 0) { #ifdef MSDOS % lowercase name file = strlow (command_line_arg(i)); #else file = command_line_arg(i); #endif --n; ++i; if (n) { #ifdef MSDOS % use lowercase name next_file = strlow (command_line_arg(i)); #else next_file = command_line_arg(i); #endif } switch(file) {case "-f" and n : eval(next_file)} {case "-g" and n : goto_line(integer(next_file))} {case "-s" and n : () = fsearch(next_file); save_search_string(next_file); } {case "-l" and n : () = evalfile(next_file); } {case "-i" and n : () = insert_file(next_file);} {case "-2" : splitwindow(); ++n; --i;} {case "-tmp": set_buffer_no_backup (); set_buffer_no_autosave (); ++n; --i; } { pop (); depth = _stkdepth; % The integer call below could fail... ERROR_BLOCK { pop_n (_stkdepth - depth); _clear_error (); 0; } (andelse { n and (file[0] == '+');} {integer (file) >= 0}) : () = find_file (next_file); goto_line (integer (file)); } {() = find_file(()); ++n; --i;} --n; ++i; } if (strlen(script_file)) () = evalfile(script_file); } %!% Prototype: Void deln (Integer n); %!% delete the next 'n' characters. define deln (n) { push_mark (); go_right(n); del_region (); } define insert_spaces (n) { loop (n) insert_single_space (); } define blooking_at (str) { variable n = strlen (str); EXIT_BLOCK { pop_spot (); } push_spot (); if (n != left(n)) return 0; return looking_at (str); } define exchange_point_and_mark () { call ("exchange"); } % This ought to be a slang intrinsic!!! define str_split (str, n) { substr (str, 1, n - 1); substr (str, n, strlen (str)); } #ifndef VMS define expand_file_hook (file) { variable changed = 0; variable envvar; variable pos, len, name, dir; variable file0, file1, file2; file2 = file; file = Null_String; % Check for environment variable of form $(variable) while (andelse {strlen (file2)} {string_match (file2, "\\$[^/$]+", 1)}) { changed++; (pos, len) = string_match_nth (0); pos++; (file0, file1) = str_split (file2, pos); (file1, file2) = str_split (file1, len + 1); envvar = getenv (substr (file1, 2, len - 1)); file = strncat (file, file0, envvar, 3); } file = strcat (file, file2); #ifdef UNIX % Now look for things like: /~name/... if (orelse {pos = string_match (file, "^~", 1); pos;} {pos = -string_match (file, "/~", 1); pos;}) { if (pos < 0) { pos = -pos; pos++; } pos++; file = substr (file, pos, strlen (file)); pos = is_substr (file, "/"); if (pos) { (name, file) = str_split (file, pos); } else { name = file; file = Null_String; } if (file[0] == '/') (, file) = str_split (file, 2); (dir,,,,) = get_passwd_info (name); file = dircat (dir, file); changed++; } #endif if (changed) { file; } changed; } set_expansion_hook ("expand_file_hook"); #endif VMS % This fixes some bug in OS2 dealing with 'dir' issued non-interactively. #ifdef OS2 if (strlen(getenv("DIRCMD"))) putenv("DIRCMD=/ogn"); #endif () = evalfile ("os.sl"); % % This code fragment looks for the existence of "defaults.sl" and loads % it. This file IS NOT distributed with JED. % if (strlen(expand_jedlib_file("defaults.sl"))) () = evalfile("defaults"); anged++; } #endif if (changed) { file; } changed; } set_expansion_hook ("expand_file_hook"); #endif VMS % This fixes some bug in OS2 dealing with 'dir' issued non-interactively. #ifdef OS2 if (strlen(getenv("DIRCMD"))) putenv("DIRCMD=/ogn"); #endif () = evalfile ("os.sl"); % % This code fragment looks for the existence of "defaults.sl" and loads % it. This file IS NOT distributed with JED. % if (strlen(jed-0.97.12/lib/jed.rc.ORG000064400000000000003000000300170603742311000145510ustar00rootsys00000000000000% User Initialization file for the JED editor -*- slang -*- % If a user does not have a startup file in the user's home directory, % JED will automatically load this from JED_LIBRARY. Thus is is easier % for a system manager to make defaults for all users. % Do not edit this file directly. Instead, copy it to your home % directory (sys$login:jed.rc on VMS or $HOME/.jedrc on Unix) and edit % the resulting file. % To uncomment a line, simply remove any leading '%' characters. % This file is divided into various sections. The first section pertains % to keybindings (e.g., Wordstar, Emacs, EDT, etc...) and the following % sections pertain to user preferences such as default TAB sizes, line % and column numbers on status line, colors, indentation style, etc... if (BATCH == 0) { %---------------------------------------------------------------------- % Keybindings (not loaded for batch processes) % % Default bindings are Emacs-like with EDT emulation on Unix and VMS. % For the PC, only Emacs is enabled by default. If you do not want EDT % bindings, simply coment out the appropriate line. % % For Wordstar like bindings, comment out EDT and Emacs lines and % uncomment Wordstar line. A similar statement applies for BRIEF. % () = evalfile("emacs"); % Emacs-like bindings #ifndef MSDOS OS2 () = evalfile("edt"); % EDT--- Unix and VMS % setkey ("bol", "^H"); % causes ^H to go to beg of line (EDT) #else % () = evalfile ("brief"); % Brief Keybindings % % Note: jed386.exe requires that the GOLD.COM TSR be loaded. This TSR is % available from space.mit.edu:/pub/davis/jed % % () = evalfile("edt"); % EDT--- IBMPC #endif % evalfile("wordstar"); pop(); % Wordstar % !!!! ^S/^Q flow control problems !!!! % if you experience problems with JED suddenly going into search % for some reason then you are a victim of emacs brain dead binding of ^S % to search. TO prevent this from happening, either find out how to % prevent unwanted ^S/^Q characters or uncomment the next line: %enable_flow_control (1); %---------------------------------------------------------------------- % % TAB key setting -- by default, the tab key is bound to 'indent_line_cmd'. % If you want a real tab inserted, uncomment next line. % % setkey("self_insert_cmd", "^I"); %---------------------------------------------------------------------- % Initial help screen --- comment out to disable. % Note that for the help to be valid, it must occur AFTER bindings are % loaded. % help(); % Pops up a help window-- bound to Control-H Control-H } %Batch %%%%%%%%%%%%%%%% top menu bar %%%%%%%%%%%%%%% % To disable it, uncomment the next line. % enable_top_status_line (0); %---------------------------------------------------------------------- % JED global variables --- defaults shown % #ifdef VMS UNIX %USE_ANSI_COLORS = 1; % if non-zero, JED will display colors on a color % terminal (Unix and VMS only) See doc/color.txt % for more discussion and look below for setting % the colors. #endif No_Backups = 0; % If non-zero, backup files will not be created. Startup_With_File = 1; % if greater then zero, force JED to prompt for a file % if none is specified on the command line. If % negative, inhibit startup message. DISPLAY_TIME = 1; % non-zero enables the time to be displayed on % status line, zero disables it. If this value % is -1, 24 hour time will be used. HIGHLIGHT = 1; % non-zero for region highlighting WANT_SYNTAX_HIGHLIGHT = 1; % Highlight syntax in C, Fortran, and TeX modes. % See section on colors % below for choosing how to highlight. On Unix and % VMS systems, USE_ANSI_COLORS must also be non-zero. HORIZONTAL_PAN = 20; % if zero, no automatic panning. If positive, only % the current line is panned. If negative, pan window. #ifdef MSDOS % For msdos, panning window might be better: HORIZONTAL_PAN = -1; #endif #ifdef MSDOS LINENUMBERS = 1; % A value of zero means do NOT display line number on #else % status line line. A value of 1, means to display LINENUMBERS = 2; % the linenumber. A value greater than 1 will also #endif % display column number information. I recommend a % value of 2 only at high baud rates BLINK = 1; % if non zero, blink matching parenthesis TAB_DEFAULT = 8; % Tab size (also try edit_tab_stops) WRAP = 78; % wrap column ADD_NEWLINE = 1; % add newline to file when writing if one not present IGNORE_BEEP = 3; % Beep terminal during error messages--- % 1 == sound only, 2 = visible bell only, 3 = both _traceback = 0; % Non zero means dump traceback on S-Lang errors WRAP_INDENTS = 0; % Non zero indents next line after wrapping current. % Make this a 1 if you want indented text mode. %KILL_LINE_FEATURE = 0; % If non-zero, kill line will kill through end of the % line if Point is at the beginning of the line. For % emacs-like behavior, set this to zero. #ifndef MSDOS OS2 OUTPUT_RATE = 0; % Should be set automatically by JED. It is the % of chars sent to terminal / second. (0 = Infinity) % % If JED pauses during screen updates, then you need % to set your baud rate properly or simply set this % variable to zero. JED is not slow, rather it assumes % your terminal is, so JED sleeps when writing to the % terminal. By default, this is set to zero. I % suggest that you comment it out and let JED set it % ASSUMING YOUR BAUD RATE IS CORRECT. For example, on % Unix, enter 'stty 2400' at the shell prompt to set % the baud rate to 2400. Setting this variable % properly will synchronize JED's screen writes to % your terminal output rate for increased performance. #endif % C-mode variables: C_INDENT = 3; % amount of space to indent within block. C_BRACE = 2; % amount of space to indent brace C_BRA_NEWLINE = 0; % If non-zero, insert a newline first before inserting % a '{'. Many C programmers like this to be 0. A zero % value will force '{' to be on same line as insertion. % Note that in C mode, the keys '{' and '}' are bound % to the commands 'brace_bra_cmd' and 'brace_ket_cmd' % respectively. '}' '}' variable C_No_Brace_Offset = 1; % Set this variable to the amount of EXTRA space to % add for the indentation of lines following 'if', % 'else', etc.... Try 0 if you set C_BRA_NEWLINE to % 1. #ifdef UNIX % JED Email. JED uses the UC Berkeley mail program for Email. Most systems % have this. Try ^Xm mail and you get an error, uncomment this next line % restart JED and try again. This is definitely the case for Linux. Again, % only uncomment out this line if mail fails! % variable UCB_Mailer; UCB_Mailer = "/bin/mail"; #endif #ifdef MSDOS XWINDOWS % Alt-key handling. Setting this variable controls how the % Alt key is handled. By default it is set to 27 (Ascii ESCAPE). This means % that any key pressed in conjunction with the alt key produces ESCAPE % followed by the key itself. If ALT-X is pressed, an ESCAPE-X is generated. % Set it to zero to turn off Alt key processing. On XWindow systems, setting % this to zero will cause the high bit to be set on the character. % ALT_CHAR = 27; #endif % Mute (dead or accent) keys % Valid Mute keys are: % ^, ~, ', `, \d168 (ISO Diaeresis), \d180 (ISO Acute), and \". % This means pressing this key then the key you want to accent yields % the accented character. If you do not know what this is, you do not % need them. By default, they are turned off. %mute_set_mute_keys (" ^ ~ ' ` \d168 \d180 \" "); % choose all or subset % % 8 bit stuff -- see documentation for a complete discussion % META_CHAR = -1; % All chars with hi bit set will self insert #ifdef MSDOS OS2 DISPLAY_EIGHT_BIT = 1; #else DISPLAY_EIGHT_BIT = 160; % Other systems assume ISO Latin 1 #endif #ifndef XWINDOWS % COLORS: % % Note that to use the colors below with MS-Kermit, do % 'set term color 30 47' at the MS-Kermit prompt. % (See the file 'colors.txt' for a description of using JED with color % terminals.) % Foreground and background: % "black", "blue", "green", "cyan", "red", "magenta", "brown", "lightgray" % Foreground Only: % "gray", "brightblue", "brightgreen", "brightcyan", "brightred", % "brightmagenta", "yellow", "white" % This is a limitation of video adapters on PC systems. For MSDOS, I % reprogram the controller so that high intensity background colors may be % displayed. There does not seem to be a way to do this in MS-Kermit. $1 = "black"; $2 = "white"; set_color("menu", "white", "blue"); % menu bar set_color("normal", $1, $2); % default fg/bg set_color("status", "yellow", "blue"); % status or mode line set_color("region", "yellow", "brightmagenta");% for marking regions set_color("operator", $1, $2); % +, -, etc.. set_color("number", "brightblue", $2); % 10, 2.71,... TeX formulas set_color("comment", "magenta", "brightcyan"); % /* comment */ set_color("string", "brightblue", $2); % "string" or 'char' set_color("keyword", "brightred", $2); % if, while, unsigned, ... set_color("keyword1", "green", $2); % malloc, exit, etc... set_color("delimiter", $1, $2); % {}[](),.;... set_color("preprocess", "magenta", $2); % #ifdef .... set_color("message", "blue", $2); % color for messages set_color("error", "brightred", $2); % color for errors set_color("dollar", "magenta", $2); % color dollar sign continuation #ifdef UNIX VMS if (USE_ANSI_COLORS) call ("redraw"); #else call("redraw"); #endif #endif XWindows #ifdef UNIX % % Terminal type. By default, on Unix termcap is used. However, some % (if not all) termcaps do not include AL, DL strings for vtxxx terminals. % % True blue vt100 terminals cannot insert and delete lines so the AL and DL % termcap entries are not appropriate for them. However, almost no one % uses a true vt100 terminal anymore but they set their TERM variable to % vt100 just the same. If you do not like the way your terminal scrolls, % and it is more than a vt100, either set your TERM variable appropriately % or add vt100 to the list below. % $1 = "vt102 vt200 vt220 vt300 vt320 vt420 xterms"; if (is_substr($1, getenv("TERM"))) set_term_vtxxx(0); #endif variable compile_parse_error_function; % % Compiler interface --- uncomment one of the following: % % compile_parse_error_function = "gcc"; % GNU compiler % compile_parse_error_function = "Ultrix_cc"; % cc on Ultrix % compile_parse_error_function = "bcc"; % Borlands BCC % compile_parse_error_function = "sun_acc"; % SunOS C++ and ACC % compile_parse_error_function = "hp_cc"; % HPUX cc % % Hooks: read jed/doc/hooks.sl for more information % define dired_hook () { local_unsetkey ("^K"); local_setkey ("dired_kill_line", "^K"); } %define text_mode_hook () %{ %} % %define fortran_hook () %{ %} % %define tex_mode_hook () %{ %} % %define c_mode_hook () %{ %} % %define mail_hook () %{ % local_unsetkey ("^C"); % local_setkey ("send", "^C^C"); %emacs-like %} % %define slang_mode_hook () %{ %} % %define dired_mode_hook () %{ %} %----------------------------------------------------------------------- % % Insert contents of other window % define insert_other_window() { if (nwindows() != 2) return; otherwindow(); whatbuf(); otherwindow(); insbuf(); } #ifdef MSWINDOWS enable_top_status_line (0); () = evalfile("wmenu.sl"); simple_menu(); #endif %{ %} % %define mail_hook () %{ % local_unsetkey ("^C"); % local_setkey ("send", "^C^C"); %emacs-like %} % %define slang_mode_hook () %{ %} % %define dired_mode_hook () %{ %} %----------------------------------------------------------------------- % % Insert contents of other window % define insert_other_window() { if (nwindows() != 2) return; otherwindow(); whatbuf(); otherwindow(); insbuf(); } #ifdef MSWINDOWS enable_top_status_line (0); () = evalfile("wmenu.sl"); simple_jed-0.97.12/lib/edt.sl.ORG000064400000000000003000000316310603742310600146050ustar00rootsys00000000000000%% EDT emulation for JED -- Application Keypad. #ifdef MSDOS OS2 %% %% Gold-Gold to toggle keypad state %% unsetkey("^@;"); setkey(". '\e' 'O' 'P' ungetkey ungetkey ungetkey", "^@;"); %% IBM F1 key !if (is_defined ("NUMLOCK_IS_GOLD")) { eval ("variable NUMLOCK_IS_GOLD = 1;"); } #endif % MSDOS OS2 %% %% To load this, put the line: "edt.sl" evalfile %% in your jed.rc (.jedrc) file %% %% Here the user gets to choose the action of the 'subs' key (Gold-enter) %% By default, it behaves as EDT. By putting the next line in JED.RC, this %% key is bound to a more conventional query replace %% setkey ("replace_cmd", "\eOP\eOM"); %% subs (query replace) %% %% The default binding for the quote keys (", ') is 'text_smart_quote'. %% Most users do not seem to like this so it is unset here. setkey("self_insert_cmd", "\""); setkey("self_insert_cmd", "'"); %% %% In addition, if you want the ^H key to move to the beginning of line %% then uncomment the next two lines. % unsetkey("^H"); % setkey("beg_of_line", "^H"); %% beginning of line %% By default, these are bound %% to help functions (man page, etc...). %% conventional subs key definition: setkey("edt_subs", "\eOP\eOM"); %% subs (edt style) #ifdef MSDOS OS2 NUMLOCK_IS_GOLD = 1; %% This sets the numlock key on the 'application keypad' #endif set_status_line("(Jed %v) EDT: %b (%m%a%n%o) %p,%c Advance %t", 1); %% %% Escape sequences for EDT keypad: %% %% FP1 = \eOP FP2 = \eOQ FP3 = \eOR PF4 = \eOS %% 7 = \eOw 8 = \eOx 9 = \eOy - = \eOm %% 4 = \eOt 5 = \eOu 6 = \eOv , = \eOl %% 1 = \eOq 2 = \eOr 3 = \eOs %% 0 = \eOp . = \eOn enter = \eOM WANT_EOB = 1; #ifdef UNIX VMS tt_send("\e="); % turn on application keypad #endif !if (is_defined("Edt_Loaded")) { variable Edt_Loaded; variable edt_pbuf; %% a real buffer edt_pbuf = " "; whatbuf(); setbuf(edt_pbuf); sw2buf(()); } %% unset some of default jed keys--- lose window capability on "^W" one %% unsetkey ("^W"); %% setkey ("redraw", "^W"); %% unsetkey("^K"); unsetkey %%-- unset this, we lose kill line in emacs.sl unsetkey("^U"); %% emacs.sl rebinds this to digit-arg %% Give user ability to exit via GOLD-Q, GOLD-E setkey("exit_jed", "\eOPQ"); setkey("exit_jed", "\eOPE"); define quit() {exit_jed()} define exit() {exit_jed()} variable Edt_Keypad; Edt_Keypad = 1; define edt_togglekp () { variable on, off; #ifdef VMS UNIX off = "Numeric."; on = "Application."; #else on = "Gold ON"; off = "Gold OFF"; NUMLOCK_IS_GOLD = not(NUMLOCK_IS_GOLD); #endif #ifdef UNIX VMS if (Edt_Keypad) { off; "\e>" } else {on; "\e="} tt_send(()); #else if (Edt_Keypad) off; else on; #endif message(()); Edt_Keypad = not(Edt_Keypad); } setkey("edt_togglekp", "\eOP\eOP"); %% Gold-Gold toggles keypad % setkey("self_insert_cmd", "^I"); %% tab inserts tab. setkey("edt_delbol", "^U"); %% delete to bol setkey("edt_help", "\eOQ"); %% help setkey("edt_findnxt", "\eOR"); %% findnxt setkey("edt_ldel", "\eOS"); %% del l setkey("edt_cdel", "\eOl"); %% del c setkey("edt_wdel", "\eOm"); %% del w setkey("smart_set_mark_cmd", "\eOn"); %% select setkey("edt_line", "\eOp"); %% line setkey("edt_word", "\eOq"); %% word setkey("edt_eol", "\eOr"); %% eol setkey("edt_char", "\eOs"); %% char setkey("edt_advance", "\eOt"); %% advance setkey("edt_backup", "\eOu"); %% backup setkey("edt_cut", "\eOv"); %% cut setkey("edt_page", "\eOw"); %% page setkey("edt_sect", "\eOx"); %% sect setkey("edt_append", "\eOy"); %% append setkey("edt_help", "\eOP\eOQ"); %% help setkey("edt_find", "\eOP\eOR"); %% find setkey("edt_uldel", "\eOP\eOS"); %% udel l setkey("edt_ucdel", "\eOP\eOl"); %% udel c setkey("edt_uwdel", "\eOP\eOm"); %% udel w setkey("edt_reset", "\eOP\eOn"); %% reset setkey("edt_oline", "\eOP\eOp"); %% open line setkey("edt_chgcase", "\eOP\eOq"); %% chgcase setkey("edt_deleol", "\eOP\eOr"); %% deleol %% %% There are two possible definitions for the specins key. Let's choose %% the edt one though I prefer the other %% setkey("edt_specins", "\eOP\eOs"); %% specins % setkey("quoted_insert", "\eOP\eOs"); %% specins setkey("eob", "\eOP\eOt"); %% bottom setkey("beg_of_buffer", "\eOP\eOu"); %% top setkey("edt_paste", "\eOP\eOv"); %% paste setkey("evaluate_cmd", "\eOP\eOw"); %% cmd setkey("format_paragraph", "\eOP\eOx"); %% fill setkey("edt_replace", "\eOP\eOy"); %% replace setkey("exit_mini", "\eOM"); %% enter %% %% the enter key requires some care--- it MUST be put in the minibuffer %% keymap. But this is not created until AFTER the init files are loaded %% so that it inherits user definitions. The above line puts it in the %% global map so that it behaves properly there. The same applies to %% the 'reset' command. %% %% The above comment WAS true in versions prior to 0.81. Now it is possible %% to achieve the desired effect in the startup_hook. I think it is time to %% think of a way to chain functions. That is, I would like to define a %% function that startup_hook will call without explicitly modifying startup %% hook and not destroying other hooks in the process. Thus, startup_hook %% should consist of a chain of functions to execute. %% if (keymap_p("Mini_Map")) { definekey("exit_mini", "\eOM", "Mini_Map"); %% enter definekey("edt_reset", "\eOP\eOn","Mini_Map"); %% reset } %% %% In EDT, a command may be repeated by GOLD number. Lets have that too %% _for (0, 9, 1) { =$0; setkey("digit_arg", strcat("\eOP", string($0))); } %% These are the keys on the vt220 keyboard setkey("edt_find", "\e[1~"); %%differs from vt220.sl setkey("yank", "\e[2~"); setkey("kill_region", "\e[3~"); setkey("smart_set_mark_cmd", "\e[4~"); setkey("page_up", "\e[5~"); setkey("page_down", "\e[6~"); % setkey(evaluate_cmd", "\e[29~"); setkey("emacs_escape_x", "\e[29~"); setkey("edt_help", "\e[28~"); %% %% Finally some definitions for scrolling the screen left/right %% setkey("beg_of_buffer", "\eOP\e[A"); % gold ^ setkey("eob", "\eOP\e[B"); % gold v setkey("scroll_left", "\eOP\e[C"); % gold -> setkey("scroll_right", "\eOP\e[D"); % gold <- %% The major complication is the direction. Here it is: variable edt_dir; edt_dir = 1; %!%ADVANCE - (4) %!%Sets the current direction to forward for the CHAR, WORD, LINE, EOL, PAGE, %!%SECT, SUBS, FIND, and FNDNXT keys. ADVANCE means that movement will be %!%toward the end of the buffer; that is, to the right and down. define edt_advance() { edt_dir = 1; set_status_line("(Jed %v) EDT: %b (%m%n%o) %p,%c Advance %t", 1); } %!%BACKUP - (5) %!%Sets the cursor direction to backward for the CHAR, WORD, LINE, EOL, PAGE, %!%SECT, SUBS, FIND, and FNDNXT keys. BACKUP means that movement will be %!%toward the beginning of the buffer% that is, to the left and up. define edt_backup() { edt_dir = -1; set_status_line("(Jed %v) EDT: %b (%m%n%o) %p,%c Backup %t", 1); } %% other buffers: not buffers but strings except the char buffer which is int variable edt_wbuf, edt_lbuf, edt_cbuf; edt_wbuf = Null_String; edt_lbuf = Null_String; edt_cbuf = 0; %% character (un)deletion define edt_cdel() { !if (eobp()) { edt_cbuf = what_char(); del(); } } define edt_ucdel() { if (edt_cbuf) { insert_char (edt_cbuf); go_left(1); } } define edt_word() { if (edt_dir == 1) { if (eolp()) return(go_right(1)); skip_word_chars(); skip_non_word_chars(); } else { if (bolp()) return (go_left(1)); bskip_non_word_chars(); bskip_word_chars(); } } %!%DEL W - (-) %!%Deletes text from the cursor to the beginning of the next word, storing the %!%text in the delete word buffer. define edt_wdel() { push_mark(); push_mark(); edt_word(); %% use whatever edt_word does as a region edt_wbuf = bufsubstr(); del_region(); } %% another one from Clive Page. define edt_specins() { insert_char (integer(read_mini("char code (decimal):", "27", Null_String))); } %!%UND W - (GOLD -) %!%Inserts the contents of the delete word buffer directly to the left of the %!%cursor. define edt_uwdel() { push_spot(); insert (edt_wbuf); pop_spot(); } %% aparantly deleol also saves what it did in buffer... define edt_deleol() { push_mark(); push_mark(); eol(); edt_lbuf = bufsubstr(); del_region(); } define edt_delbol() { push_mark(); push_mark(); bol(); edt_lbuf = bufsubstr(); del_region(); } %% the line %!%DEL L - (PF4) %!%Deletes text from the cursor position to the end of the current line, including %!%the line terminator. If the cursor is positioned at the beginning of a line, %!%the entire line is deleted. The deleted text is saved in the delete line %!%buffer. define edt_ldel() { push_mark(); push_mark(); eol(); go_right(1); edt_lbuf = bufsubstr(); del_region(); } %!%UND L - (GOLD PF4) %!%Inserts the contents of the delete line buffer directly to the left of the %!%cursor. define edt_uldel() { push_spot(); insert (edt_lbuf); pop_spot(); } %!%FIND - (GOLD PF3) %!%Searches for an occurrence of a string. Press the FIND key and then enter the %!%string using the main keyboard. End the string by pressing either the ADVANCE %!%or BACKUP key to set the direction of the search, or the ENTER key to search in %!%the current direction. define edt_find() { if (edt_dir == 1) search_forward (); else search_backward (); } %!%FNDNXT - (PF3) %!%Searches for the next occurrence of the search string previously entered with %!%the FIND key. The direction of the search is the current one (ADVANCE or %!%BACKUP). define edt_findnxt() { variable r, found; r = 0; if (strlen(LAST_SEARCH)) { if (edt_dir == 1) { r = right(1); found = fsearch(LAST_SEARCH); } else found = bsearch(LAST_SEARCH); !if (found) { go_left(r); error("Not Found."); } } else error ("Find What?") } %!%SECT - (8) %!%Moves the cursor 16 lines (one section) forward or backward, depending on the %!%current direction (see ADVANCE and BACKUP). The cursor is moved to the %!%beginning of the appropriate line. define edt_sect() { if (edt_dir == 1) go_down(16); else go_up(16); bol(); } define edt_eol() { if (edt_dir == 1) { if (eolp()) go_down_1 (); } else go_up_1 (); eol(); } define edt_line() { if (edt_dir > 0) go_down_1 (); else if (bolp()) go_up_1 (); bol(); } define edt_char() { if (edt_dir == 1) go_right(1); else go_left(1); } define edt_oline() { newline(); go_left(1); } %% reset also pops marks. define edt_reset() { edt_advance(); while(markp()) pop_mark(0); call ("kbd_quit"); } %% edt page searches for a form feed. However, real edt allows user to %% change this. %!%PAGE - (7) %!%Moves the cursor to the top of a page. A page is defined by a delimiter %!%string, which can be set by the SET ENTITY command. The default page %!%delimiter is the formfeed character (CTRL/L). define edt_page() { variable ret, ff; ff = char(12); if (edt_dir == 1) ret = fsearch(ff); else ret = bsearch(ff); if (ret) recenter(1); } define edt_cut() { variable b; !if (dupmark()) return; b = whatbuf(); setbuf(edt_pbuf); erase_buffer(); setbuf(b); copy_region(edt_pbuf); del_region(); } define edt_paste() { insbuf(edt_pbuf); } %% Although not documented in EDT online help, this deletes the region. %!%APPEND - (9) %!%Moves the select range to the end of the PASTE buffer. The select range is all %!%the text between the selected position (see SELECT) and the current cursor %!%position. If no SELECT has been made and the cursor is positioned on the %!%current search string, that string is appended. define edt_append() { variable b; b = whatbuf(); setbuf(edt_pbuf); eob(); setbuf(b); if (dupmark()) { copy_region(edt_pbuf); del_region(); } else error("No Region."); } define edt_replace() { del_region(); edt_paste(); } %% a real edt_subs function %% deletes search string, substitutes what is in the pastebuffer and finds %% the next. define edt_subs() { if (looking_at(LAST_SEARCH)) { deln (strlen(LAST_SEARCH)); edt_paste(); !if (looking_at (LAST_SEARCH)) edt_findnxt(); } else error("Select range not active.") } %% a help for the help key define edt_help() { jed_easy_help("edt.hlp"); } %% Chngcase define edt_chgcase() { variable n; !if (markp()) { push_mark(); n = strlen(LAST_SEARCH); if (n and looking_at(LAST_SEARCH)) go_right(n); else if (edt_dir == 1) go_right(1); else go_left(1); } xform_region('X'); } %% is this a better defn of what edt_replace should be? %!%REPLACE - (GOLD 9) %!%Deletes the select range and replaces it with the contents of the PASTE %!%buffer. define edt_replace() { variable n; n = strlen(LAST_SEARCH); if (n and looking_at(LAST_SEARCH)) deln (n); else { !if (markp()) error("Select range not active."); del_region(); } edt_paste(); } looking_at(LAST_SEARCH)) go_right(n); else if (edt_dir == 1) go_right(1); else go_left(1); } jed-0.97.12/lib/defaults.sl000064400000000000003000000006160604364330200152100ustar00rootsys00000000000000%!% returns backup filename. Arguments to function are dir and file. % define make_backup_filename(dir, file) { strncat (dir, ".#", file, 3); } %!% returns autosave filename. Arguments to function are dir and file. % define make_autosave_filename(dir, file) { Sprintf ("%s.##%s", dir, file, 2); } %!% load linux specific stuff % %() = evalfile ("linux.sl"); define_word ("\d33-\d255"); paste(); } looking_at(LAST_SEARCH)) go_right(n); else if (edt_dir == 1) go_right(1); else go_left(1); } jed-0.97.12/lib/.#edt.sl000064400000000000003000000342440604364324600143110ustar00rootsys00000000000000%% EDT emulation for JED -- Application Keypad. %% %% To load this, put the line: "edt.sl" evalfile %% in your jed.rc (.jedrc) file %% #ifdef MSDOS OS2 %% %% Gold-Gold to toggle keypad state %% unsetkey("^@;"); setkey(". '\e' 'O' 'P' ungetkey ungetkey ungetkey", "^@;"); %% IBM F1 key !if (is_defined ("NUMLOCK_IS_GOLD")) { eval ("variable NUMLOCK_IS_GOLD = 1;"); } #endif % MSDOS OS2 #ifdef MSDOS OS2 NUMLOCK_IS_GOLD = 1; %% This sets the numlock key on the 'application keypad' #endif set_status_line("(Jed %v) EDT: %b (%m%a%n%o) %p,%c Advance %t", 1); WANT_EOB = 1; #ifdef UNIX VMS tt_send("\e="); % turn on application keypad #endif !if (is_defined("Edt_Loaded")) { variable Edt_Loaded; variable edt_pbuf; %% a real buffer edt_pbuf = " "; whatbuf(); setbuf(edt_pbuf); sw2buf(()); } variable Edt_Keypad; Edt_Keypad = 1; define edt_togglekp () { variable on, off; #ifdef VMS UNIX off = "Numeric."; on = "Application."; #else on = "Gold ON"; off = "Gold OFF"; NUMLOCK_IS_GOLD = not(NUMLOCK_IS_GOLD); #endif #ifdef UNIX VMS if (Edt_Keypad) { off; "\e>" } else {on; "\e="} tt_send(()); #else if (Edt_Keypad) off; else on; #endif message(()); Edt_Keypad = not(Edt_Keypad); } %% %% Escape sequences for EDT keypad: %% %% PF1 = \eOP PF2 = \eOQ PF3 = \eOR PF4 = \eOS %% 7 = \eOw 8 = \eOx 9 = \eOy - = \eOm %% 4 = \eOt 5 = \eOu 6 = \eOv , = \eOl %% 1 = \eOq 2 = \eOr 3 = \eOs %% 0 = \eOp . = \eOn enter = \eOM %% %% unset some of default jed keys %% unsetkey("^W"); unsetkey("^K"); unsetkey("^U"); unsetkey("^L"); unsetkey("^H"); %% %% key bindings %% setkey("self_insert_cmd", "\""); setkey("self_insert_cmd", "'"); setkey("self_insert_cmd", "`"); setkey("self_insert_cmd", "^L"); setkey("self_insert_cmd", "^I"); setkey("help_prefix", "\eOPh"); %% help menu line setkey("edt_subs", "\eOP\eOM"); %% subs (edt style) setkey("edt_delbol", "^U"); %% delete to bol setkey("edt_help", "\eOQ"); %% help setkey("edt_findnxt", "\eOR"); %% findnxt setkey("edt_ldel", "\eOS"); %% del l setkey("edt_wdel", "\eOl"); %% del w setkey("edt_cdel", "\eOm"); %% del c setkey("smart_set_mark_cmd", "\eOn"); %% select setkey("edt_line", "\eOp"); %% line setkey("edt_word", "\eOq"); %% word setkey("edt_eol", "\eOr"); %% eol setkey("edt_bol", "^H"); %% eol setkey("edt_bword", "\eOs"); %% back word setkey("edt_advance", "\eOt"); %% advance setkey("edt_backup", "\eOu"); %% backup setkey("edt_cut", "\eOv"); %% cut setkey("edt_page", "\eOw"); %% page setkey("edt_sect", "\eOx"); %% sect setkey("edt_append", "\eOy"); %% append setkey("goto_line_cmd", "\eOP\eOQ"); %% go to line setkey("edt_find", "\eOP\eOR"); %% find setkey("edt_uldel", "\eOP\eOS"); %% udel l setkey("edt_uwdel", "\eOP\eOl"); %% udel w setkey("edt_ucdel", "\eOP\eOm"); %% udel c setkey("edt_reset", "\eOP\eOn"); %% reset setkey("edt_oline", "\eOP\eOp"); %% open line setkey("edt_chgcase", "\eOP\eOq"); %% chgcase setkey("edt_deleol", "\eOP\eOr"); %% deleol setkey("edt_specins", "\eOP\eOs"); %% specins setkey("eob", "\eOP\eOt"); %% bottom setkey("beg_of_buffer", "\eOP\eOu"); %% top setkey("edt_paste", "\eOP\eOv"); %% paste % setkey("evaluate_cmd", "\eOP\eOw"); %% cmd setkey("edt_command", "\eOP\eOw"); %% Command with completion setkey("format_paragraph", "\eOP\eOx"); %% fill setkey("edt_replace", "\eOP\eOy"); %% replace setkey("exit_mini", "\eOM"); %% enter setkey("exit", "\eOPE"); %% exit edt setkey("redraw", "^W"); %% redraw screen setkey("shell", "\eOPR"); %% run shell setkey("splitwindow", "\eOPW"); %% open new window setkey("one_window", "\eOP^W"); %% close other window setkey("otherwindow", "\eOPo"); %% toggle windows setkey("learn", "\eOPL"); %% learn %% %% the enter key requires some care--- it MUST be put in the minibuffer %% keymap. But this is not created until AFTER the init files are loaded %% so that it inherits user definitions. The above line puts it in the %% global map so that it behaves properly there. The same applies to %% the 'reset' command. %% %% The above comment WAS true in versions prior to 0.81. Now it is possible %% to achieve the desired effect in the startup_hook. I think it is time to %% think of a way to chain functions. That is, I would like to define a %% function that startup_hook will call without explicitly modifying startup %% hook and not destroying other hooks in the process. Thus, startup_hook %% should consist of a chain of functions to execute. %% if (keymap_p("Mini_Map")) { definekey("exit_mini", "\eOM", "Mini_Map"); %% enter definekey("edt_reset", "\eOP\eOn","Mini_Map"); %% reset } %% %% In EDT, a command may be repeated by GOLD number. Lets have that too %% _for (0, 9, 1) { =$0; setkey("digit_arg", strcat("\eOP", string($0))); } %% %% These are the keys on the PC keyboard %% setkey("beg_of_buffer", "^[[1~"); %% top setkey("edt_paste", "^[[2~"); %% paste setkey("edt_cdel", "^[[3~"); %% del c setkey("edt_ucdel", "^[OP^[[3~"); %% udel c setkey("eob", "^[[4~"); %% bottom setkey("page_up", "^[[5~"); %% page up setkey("page_down", "^[[6~"); %% page down %% %% Finally some definitions for scrolling the screen left/right %% setkey("beg_of_buffer", "\eOP\e[A"); % gold ^ setkey("eob", "\eOP\e[B"); % gold v setkey("scroll_left", "\eOP\e[C"); % gold -> setkey("scroll_right", "\eOP\e[D"); % gold <- %% %% Personal definitions: LaTeX %% setkey(" \\v{c}", "^[OPc"); setkey(" \\v{C}", "^[OPC"); setkey(" \\v{s}", "^[OPs"); setkey(" \\v{S}", "^[OPS"); setkey(" \\v{z}", "^[OPz"); setkey(" \\v{Z}", "^[OPZ"); %% %% The major complication is the direction. Here it is: %% variable edt_dir; edt_dir = 1; %!% %!% ADVANCE - (4) %!% Sets the current direction to forward for the CHAR, WORD, LINE, EOL, PAGE, %!% SECT, SUBS, FIND, and FNDNXT keys. ADVANCE means that movement will be %!% toward the end of the buffer; that is, to the right and down. %!% define edt_advance() { edt_dir = 1; set_status_line("(Jed %v) EDT: %b (%m%n%o) %p,%c Advance %t", 1); } %!% %!% BACKUP - (5) %!% Sets the cursor direction to backward for the CHAR, WORD, LINE, EOL, PAGE, %!% SECT, SUBS, FIND, and FNDNXT keys. BACKUP means that movement will be %!% toward the beginning of the buffer% that is, to the left and up. %!% define edt_backup() { edt_dir = -1; set_status_line("(Jed %v) EDT: %b (%m%n%o) %p,%c Backup %t", 1); } %% %% other buffers: not buffers but strings except the char buffer which is int %% variable edt_wbuf, edt_lbuf, edt_cbuf; edt_wbuf = Null_String; edt_lbuf = Null_String; edt_cbuf = 0; %% %% QUIT %% define quit() {quit_jed()} add_completion ("quit"); %% %% EXIT %% define exit() { save_buffer(); quit_jed(); } %% %% CHAR %% define edt_char() { if (edt_dir == 1) go_right(1); else go_left(1); } %% %% DEL CHAR %% define edt_cdel() { !if (eobp()) { edt_cbuf = what_char(); del(); } } %% %% UNDEL CHAR %% define edt_ucdel() { if (edt_cbuf) { insert_char (edt_cbuf); go_left(1); } } %% %% WORD %% define edt_word() { if (edt_dir == 1) { if (eolp()) return(go_right(1)); skip_word_chars(); skip_non_word_chars(); } else { if (bolp()) return (go_left(1)); bskip_non_word_chars(); bskip_word_chars(); } } %% %% BACK WORD %% define edt_bword() { if (bolp()) return (go_left(1)); bskip_non_word_chars(); bskip_word_chars(); } %!% %!% DEL WORD (-) %!% Deletes text from the cursor to the beginning of the next word, storing the %!% text in the delete word buffer. %!% define edt_wdel() { push_mark(); push_mark(); edt_word(); %% use whatever edt_word does as a region edt_wbuf = bufsubstr(); del_region(); } %% %% UNDEL WORD %% define edt_uwdel() { push_spot(); insert (edt_wbuf); pop_spot(); } %% %% SPECINS (from Clive Page) %% define edt_specins() { insert_char (integer(read_mini("char code (decimal):", "27", Null_String))); } %% %% DEL EOL %% define edt_deleol() { push_mark(); push_mark(); eol(); edt_lbuf = bufsubstr(); del_region(); } %% %% DEL BOL %% define edt_delbol() { push_mark(); push_mark(); bol(); edt_lbuf = bufsubstr(); del_region(); } %!% %!% DEL LINE - (PF4) %!% Deletes text from the cursor position to the end of the current line, including %!% the line terminator. If the cursor is positioned at the beginning of a line, %!% the entire line is deleted. The deleted text is saved in the delete line %!% buffer. %!% define edt_ldel() { push_mark(); push_mark(); eol(); go_right(1); edt_lbuf = bufsubstr(); del_region(); } %!% %!% UNDEL LINE - (GOLD PF4) %!% Inserts the contents of the delete line buffer directly to the left of the %!% cursor. %!% define edt_uldel() { push_spot(); insert (edt_lbuf); pop_spot(); } %!% %!% FIND - (GOLD PF3) %!% Searches for an occurrence of a string. Press the FIND key and then enter the %!% string using the main keyboard. End the string by pressing either the ADVANCE %!% or BACKUP key to set the direction of the search, or the ENTER key to search in %!% the current direction. %!% define edt_find() { if (edt_dir == 1) search_forward (); else search_backward (); } %!% %!% FNDNXT - (PF3) %!% Searches for the next occurrence of the search string previously entered with %!% the FIND key. The direction of the search is the current one (ADVANCE or %!% BACKUP). %!% define edt_findnxt() { variable r, found; r = 0; if (strlen(LAST_SEARCH)) { if (edt_dir == 1) { r = right(1); found = fsearch(LAST_SEARCH); } else found = bsearch(LAST_SEARCH); !if (found) { go_left(r); error("Not Found."); } } else error ("Find What?") } %!% %!% SECT - (8) %!% Moves the cursor 16 lines (one section) forward or backward, depending on the %!% current direction (see ADVANCE and BACKUP). The cursor is moved to the %!% beginning of the appropriate line. %!% define edt_sect() { if (edt_dir == 1) go_down(16); else go_up(16); bol(); } %% %% BOL %% define edt_bol() { if (edt_dir == 1) { if (bolp()) go_up(1); } else go_down(1); bol(); } %% %% EOL %% define edt_eol() { if (edt_dir == 1) { if (eolp()) go_down_1 (); } else go_up_1 (); eol(); } %% %% LINE %% define edt_line() { if (edt_dir > 0) go_down_1 (); else if (bolp()) go_up_1 (); bol(); } %% %% OPEN LINE %% define edt_oline() { newline(); go_left(1); } %% %% RESET %% define edt_reset() { edt_advance(); while(markp()) pop_mark(0); call ("kbd_quit"); } %!% %!% PAGE - (7) %!% Moves the cursor to the top of a page. A page is defined by a delimiter %!% string, which can be set by the SET ENTITY command. The default page %!% delimiter is the formfeed character (CTRL/L). %!% define edt_page() { variable ret, ff = char(12); if (edt_dir == 1) { go_down(1); ret = fsearch(ff); if (ret) recenter(4); else {if (edt_dir == 1) eob(); else bob();} } else { go_up(1); ret = bsearch(ff); if (ret) recenter(20); else {if (edt_dir == 1) eob(); else bob();} } } %% %% CUT %% define edt_cut() { variable b; !if (dupmark()) return; b = whatbuf(); setbuf(edt_pbuf); erase_buffer(); setbuf(b); copy_region(edt_pbuf); del_region(); } define edt_paste() { insbuf(edt_pbuf); } %% %% PASTE %% define edt_paste() { insbuf(edt_pbuf); } %!% %!% Although not documented in EDT online help, this deletes the region. %!% APPEND - (9) %!% Moves the select range to the end of the PASTE buffer. The select range is all %!% the text between the selected position (see SELECT) and the current cursor %!% position. If no SELECT has been made and the cursor is positioned on the %!% current search string, that string is appended. %!% define edt_append() { variable b; b = whatbuf(); setbuf(edt_pbuf); eob(); setbuf(b); if (dupmark()) { copy_region(edt_pbuf); del_region(); } else error("No Region."); } %% %% SUBSTITUTE %% define edt_subs() { if (looking_at(LAST_SEARCH)) { deln (strlen(LAST_SEARCH)); edt_paste(); !if (looking_at (LAST_SEARCH)) edt_findnxt(); } else error("Select range not active.") } %% %% HELP %% define edt_help() { jed_easy_help("edt.hlp"); } %% %% CHANGECASE %% define edt_chgcase() { variable n; !if (markp()) { push_mark(); n = strlen(LAST_SEARCH); if (n and looking_at(LAST_SEARCH)) go_right(n); else if (edt_dir == 1) go_right(1); else go_left(1); } xform_region('X'); } %!% %!% is this a better defn of what edt_replace should be? %!% REPLACE - (GOLD 9) %!% Deletes the select range and replaces it with the contents of the PASTE %!% buffer. %!% define edt_replace() { variable n; n = strlen(LAST_SEARCH); if (n and looking_at(LAST_SEARCH)) deln (n); else { !if (markp()) error("Select range not active."); del_region(); } edt_paste(); } %% %% EDT command prompt with completion %% define edt_command() { variable f = Null_String, i = 0; if (MINIBUFFER_ACTIVE) { call("evaluate_cmd"); return; } forever { if (is_internal(f)) { call(f); return; } if (is_defined(f)) { eval(f); return; } !if (EXECUTING_MACRO or DEFINING_MACRO) { if (i == 1) ungetkey(13); ungetkey(' '); ++i; } f = read_with_completion("Command:", Null_String, f, 'F') } } %% %% LEARN %% variable learn_status = 0; define learn() { if (learn_status == 0) { learn_status = 1; call("begin_macro"); } else { call("end_macro"); eval("assign_macro_to_key"); learn_status = 0; } } define assign_macro_to_key() { variable key = Null_String; variable ch = 0; flush ("Press the key you wish to use for learn"); do { ch = getkey (); if (ch == 0) ch = "^@"; else ch = char (ch); key = strcat (key, ch); } while (input_pending (5)); local_setkey (strcat ("@", get_last_macro ()), key); message (strcat ("Macro set to ", expand_keystring (key))); } add_completion ("assign_macro_to_key"); eval("assign_macro_to_key"); learn_status = 0; } } define assign_macro_to_key() { variable key = Null_String; variable ch = 0; flush ("Press the key you wish to use for learn"); do { ch = getkey (); if (ch == 0) ch = "^@"; else ch = char (ch); key = strcat (key, ch); } while (input_pending (5)); jed-0.97.12/lib/site.slc000064400000000000003000000373620604364522000145210ustar00rootsys00000000000000.@!(!01define_keywords_n!)/define_keywords!(![#dir$file!]%=file$=dir![!n!]#dir&strlen"=n!n!{![%slash!]#"/"&=slash#dir!n!1&substr%slash&strcmp!{#dir%slash&strcat$=dir!}"if!}"if#dir$file&strcat/expand_filename!)&dircat![+Null_String!]""",=Null_String![ .@.Info_Directory!]![+Jed_Bin_Dir!]![2C_CONTINUED_OFFSET!]!23=C_CONTINUED_OFFSET![.C_Colon_Offset!]!1/=C_Colon_Offset!(![!n!]"=n#--n!n!{&strcat!}$loop!)'strncat![+LAST_SEARCH!]""",=LAST_SEARCH!(,=LAST_SEARCH!)2save_search_string!(#bol*skip_white!) .@.bol_skip_white!(%"\t "+bskip_chars!)+bskip_white!(![$path!]%=path![!n'pathsep&a_path!]"58(=pathsep!0"=n+Null_String+Null_String!{$path!n'pathsep/extract_element'=a_path&a_path&strlen!}!{&a_path!3'strncat#","#++n!}%while#pop!))path2list(JED_ROOT .@&"info"&dircat/=Info_Directory(JED_ROOT%"bin"&dircat,=Jed_Bin_Dir*"INFOPATH"&getenv#=$1"$1&strlen!{"$1)path2list/=Info_Directory!}"if![0C_Comment_Column!]"401=C_Comment_Column+OUTPUT_RATE$9600!>!{!0,=OUTPUT_RATE!}"if0"search_forward"%"^Ff"&setkey .@1"search_backward"%"^Fb"&setkey+"skip_word"("^[^[[C"&setkey,"bskip_word"("^[^[[D"&setkey-"upcase_word"%"^[U"&setkey/"downcase_word"%"^[L"&setkey1"capitalize_word"%"^[C"&setkey0"emacs_escape_x"%"^[X"&setkey&"undo"%"^Xu"&setkey1"transpose_lines"&"^X^T" .@&setkey-"help_prefix"$"^H"&setkey."do_shell_cmd"%"^[!"&setkey*"find_tag"%"^[."&setkey)"dabbrev"%"\e/"&setkey."save_buffers"%"^Xs"&setkey)"whatpos"%"^X?"&setkey."list_buffers"&"^X^B"&setkey1"set_fill_column"%"^Xf"&setkey6"compile_parse_errors"%"^X'" .@&setkey("ispell"%"^[$"&setkey&"mail"%"^Xm"&setkey)_stkdepth#=$0("c_mode"'"cmode","slang_mode"("slmode"2"find_binary_file"("binary"/"jed_easy_help")"jedhelp"5"query_replace_match"("regexp"3"re_search_forward"("regexp"4"re_search_backward"("regexp" .@'"dired"'"dired"*"calendar"%"cal"0"menu_main_cmds"&"menu"-"trim_buffer"&"util"'"occur"&"util"-"info_reader"&"info"+"info_mode"&"info"0"info_find_node"&"info"."list_buffers"%"buf"/"append_region"%"buf"."write_region"%"buf"."recover_file"%"buf" .@+"most_mode"&"most"*"run_most"&"most")"compile")"compile"&"sort"&"sort"'"untab"'"untab"."fortran_mode")"fortran"."save_buffers"%"buf")"sh_mode"("shmode"'"rot13"'"rot13"0"search_forward"("search"1"search_backward"("search"-"replace_cmd"("search" .@="replace_across_buffer_files")"replace"1"isearch_forward")"isearch"2"isearch_backward")"isearch"'"shell"'"shell"4"mute_set_mute_keys"*"mutekeys"+"html_mode"&"html"."do_shell_cmd"'"shell"*"find_tag"'"ctags")"apropos"&"help"2"expand_keystring"&"help" .@3"describe_bindings"&"help"3"describe_function"&"help"3"describe_variable"&"help"3"help_for_function"&"help"*"where_is"&"help")"showkey"&"help"/"describe_mode"&"help"7"format_paragraph_hook"'"tmisc")"dabbrev")"dabbrev"*"tex_mode"%"tex"-"bibtex_mode" .@("bibtex","latex_mode"'"latex"1"bkmrk_goto_mark"*"bookmark"0"bkmrk_set_mark"*"bookmark"-"add_keyword"("syntax"+"lisp_mode"&"lisp"0"edit_tab_stops"&"tabs"1"tab_to_tab_stop"&"tabs"7"append_string_to_file"&"misc"6"write_string_to_file"&"misc" .@6"make_tmp_buffer_name"&"misc"-"abbrev_mode"("abbrev"1"set_abbrev_mode"("abbrev"."save_abbrevs"*"abbrmisc"5"define_abbreviation"*"abbrmisc"&"mail"&"mail"4"mail_format_buffer"&"mail"*"dcl_mode"%"dcl"*"unix_man"%"man"("ispell"("ispell"'"rmail"'"rmail" .@*"idl_mode"%"idl","nroff_mode"'"nroff")_stkdepth"$0!-!2!/)_autoload!(-run_shell_cmd#pop!))shell_cmd!("up#pop!)%go_up!(!1"up!)$up_1!($up_1#pop!)'go_up_1!($down#pop!)'go_down!(!1$down!)&down_1!(&down_1#pop!))go_down_1!($left#pop!)'go_left!(%right#pop!) .@(go_right!(![!f!]+Null_String"=f![!i!]!0"=i1MINIBUFFER_ACTIVE!{."evaluate_cmd"$call&return!}"if!{!f+is_internal!{!f$call&return!}"if!f*is_defined!{!f$eval&return!}"if/EXECUTING_MACRO.DEFINING_MACRO"or!{!i!1"==!{"13(ungetkey!}"if"32(ungetkey#++i!}#!if .@%"M-x"+Null_String!f"704read_with_completion"=f!}'forever!).emacs_escape_x!(,"Goto line:"+Null_String+Null_String)read_mini'integer)goto_line!)-goto_line_cmd!(."Goto Column:"+Null_String+Null_String)read_mini'integer+goto_column!)/goto_column_cmd!(![ .@#fun!]$=fun#fun*is_defined!{#fun$eval!}"if!)(runhooks!(+what_keymap)definekey!),local_setkey!(+what_keymap+undefinekey!).local_unsetkey!($char&insert!)+insert_char!("10+insert_char!)'newline!("32+insert_char!)3insert_single_space!()what_char"==!) .@/looking_at_char!(![$file!]%=file![!n!]$file0extract_filename%=file$file#".")is_substr"=n!n!{+Null_String&return!}#!if$file!n!1!+$file&strlen&substr!))file_type!(+otherwindow)"page_up"$call(nwindows!1!-!{+otherwindow!}$loop!),next_wind_up!( .@+otherwindow+"page_down"$call(nwindows!1!-!{+otherwindow!}$loop!),next_wind_dn!(&"Text"!1'setmode("global"*use_keymap0"text_mode_hook"(runhooks!))text_mode!(+Null_String!0'setmode("global"*use_keymap!)'no_mode!(![!x!]"=x!0!)/_function_pop_0![ .@1mode_hook_pointer!]0&_function_pop_02=mode_hook_pointer![,Default_Mode!]*&text_mode-=Default_Mode!(![$mode!]+Null_String%=mode)push_spot#bob!4'go_down)push_mark#bob&narrow$"#!"*looking_at!{$"sh"%=mode!}"ifA"-\\*- *\\([-A-Za-z_]+\\) *-\\*-"*re_fsearch .@!{!10regexp_nth_match&strlow%=mode!}"if%widen(pop_spot$mode&strlen!{![$mstr!]'"_mode"%=mstr!{$mode#"-"#"_"+str_replace!}!{%=mode!}%while$mode$mstr)is_substr!{$mode'"_mode"&strcat%=mode!}#!if$mode*is_defined!{$mode$eval!1&return!}"if!}"if!0!) .@-modeline_hook![.Mode_List_Exts!]K"c,h,cc,cpp,sl,txt,doc,tex,f,for,pro,idl,1"/=Mode_List_Exts![/Mode_List_Modes!]["c,c,c,c,slang,text,text,tex,fortran,fortran,idl,idl,nroff"0=Mode_List_Modes.Mode_List_Exts+",com,html"&strcat/=Mode_List_Exts .@/Mode_List_Modes+",dcl,html"&strcat0=Mode_List_Modes.Mode_List_ExtsB",cshrc,tcshrc,login,profile,conf"&strcat/=Mode_List_Exts/Mode_List_Modes1",sh,sh,sh,sh,sh"&strcat0=Mode_List_Modes!(![$mode#ext!]$=ext%=mode![%comma!]#","&=comma$mode%comma .@/Mode_List_Modes!3'strncat0=Mode_List_Modes#ext%comma.Mode_List_Exts!3'strncat/=Mode_List_Exts!)6add_mode_for_extension!(![#ext!]$=ext![!n$mode!]#ext1mode_hook_pointer!{&return!}"if-modeline_hook!{&return!}"if.Mode_List_Exts#ext"44/is_list_element"=n .@!n!{#--n/Mode_List_Modes!n"44/extract_element'"_mode"&strcat%=mode$mode*is_defined!{$mode$eval&return!}"if!}"if,Default_Mode!))mode_hook!(![%modif!]&=modif+getbuf_info%modif!{!1!|!}!{!1!~!&!}$else+setbuf_info!)8set_buffer_modified_flag!(![%flags!] .@+getbuf_info&=flags#pop#pop#pop%flags!1!&!)/buffer_modified!(![%modif!]&=modif+getbuf_info%modif!{"32!|!}!{"32!~!&!}$else+setbuf_info!)/set_buffer_undo!(![!n!]"=n+getbuf_info!n!{!8!|!}!{!8!~!&!}$else+setbuf_info!),set_readonly!(![!n!]"=n+getbuf_info!n .@!{"16!|!}!{"16!~!&!}$else+setbuf_info!)-set_overwrite!(+getbuf_info%0x400#xor+setbuf_info!18set_buffer_modified_flag!)-toggle_crmode!(+getbuf_info!8#xor+setbuf_info!)/toggle_readonly!(+getbuf_info"16#xor+setbuf_info!)0toggle_overwrite!(+getbuf_info"32 .@#xor+setbuf_info!)+toggle_undo!(%POINT#bol)push_mark#eol)bufsubstr'newline&insert&=POINT!)+double_line!(![$line!]#bol)push_mark)push_mark#eol)bufsubstr%=line!1(go_right*del_region'go_up_1#bol$line&insert'newline)go_down_1!)/transpose_lines![ .@4help_for_help_string!]p"^H -> Help:^H Menu:? Info:I Apropos:A Key:K Where:W Fnct:F Var:V Man:M"5=help_for_help_string%BATCH!{&"mini"(evalfile#pop!}#!if!(+Null_String+Null_String#1024read_with_completion!)3read_file_from_mini!(![!f!]"=f![!n!] .@!0"=n![#dir$file!]!{+JED_LIBRARY!n"44/extract_element$=dir#dir&strlen!{+Null_String&return!}#!if#dir!f&dircat%=file$file+file_status!1"==!{%break!}"if#++n!}'forever$file!)2expand_jedlib_file!(![&prompt$dflt$list!]%=list%=dflt'=prompt$list&prompt$dflt .@+Null_String#1154read_with_completion!);read_string_with_completion![1Startup_With_File!]!02=Startup_With_File!(![!n#hlp"ok!]!0#=ok![$mini!]*"Mini_Map"%=mini![$file*do_message!]!1+=do_message3"next_mini_command"&"^[[B"$mini)definekey .@3"prev_mini_command"&"^[[A"$mini)definekey6"mini_exit_minibuffer"$"^M"$mini)definekey+"exit_mini"&"^[^M"$mini)definekey!02=IGNORE_USER_ABORT."startup_hook"(runhooks'whatbuf+"*scratch*"&strcmp/buffer_modified"or!{!{,erase_buffer!0 .@8set_buffer_modified_flag!}+ERROR_BLOCK-"cpright.hlp"2expand_jedlib_file+insert_file#pop!08set_buffer_modified_flag#bob+Null_String%=file1Startup_With_File!0!>!{!{1"Enter Filename:"3read_file_from_mini%=file$file0extract_filename&strlen!{%break!}"if!} .@'forever!}!{1Startup_With_File!{4help_for_help_string'message!0+=do_message!1&update"""#=$1#600-input_pending#pop!}#!if!}$else3EXECUTE_ERROR_BLOCK$file&strlen!{$file)find_file#pop!}"if!}#!if*do_message!{4help_for_help_string'message!}"if!) .@0jed_startup_hook!(![)max_lines!])push_spot#eob)what_line*=max_lines(pop_spotD"%s, Line %d of %d lines, Column %d"+count_chars)what_line)max_lines+what_column!4'Sprintf'message!)'whatpos!(![$file!]%=file$file2expand_jedlib_file%=file$file&strlen!{!0 .@&return!}#!if$file)find_file!)0find_jedlib_file![)Help_File!])"jed.hlp"*=Help_File!(![#hlp!]("*help*"$=hlp![#buf$rows!]#hlp.buffer_visible!{)Help_File&strlen!{-"generic.hlp"*=Help_File!}#!if)Help_File2expand_jedlib_file*=Help_File'whatbuf$=buf .@)onewindow#114+window_info%=rows#hlp&setbuf!0,set_readonly,erase_buffer)Help_File+insert_file#pop#hlp'pop2buf#eob$"\n"+bskip_chars$rows!2!/)what_line!1!+!-%=rows#bob!08set_buffer_modified_flag!1,set_readonly#buf'pop2buf$rows!{*enlargewin!}$loop!}#!if .@!1&update4help_for_help_string'message!)$help!(![#dir$file!]%=file$=dir#dir$file#"~"!3'strncat!)4make_backup_filename!(![#dir$file!]%=file$=dir("%s#%s#"#dir$file!2'Sprintf!)6make_autosave_filename!(!["fn!]#=fn![!f#dir!n!]"fn0extract_filename"=f"fn .@&strlen!f&strlen!-"=n"fn!1!n&substr$=dir#dir!f!).parse_filename!(+getbuf_info%0x100!|+setbuf_info!)4set_buffer_no_backup!(+getbuf_info#0x2!~!&+setbuf_info!)6set_buffer_no_autosave![*No_Backups!]!0+=No_Backups!(![$file!]%=file![#dir!a!f!m!]$file .@.parse_filename"=f$=dir#dir+file_status!2"!=!{:"Directory %s is invalid!"#dir!1'Sprintf%error!}"if*No_Backups!{4set_buffer_no_backup!}"if#dir!f6make_autosave_filename"=a!a$file1file_time_compare!0!>!{Q"Autosave file is newer. Use ESC-X recover_file." .@"=m!m%flush"10-input_pending#pop!m'message!}"if5"user_find_file_hook"(runhooks!).find_file_hook)_stkdepth#=$0-"toggle_undo"*"calendar"-"trim_buffer"-"abbrev_mode"5"define_abbreviation"."save_abbrevs"'"occur"/"append_region"."write_region" .@="replace_across_buffer_files"."recover_file")"compile"&"sort"'"untab"."fortran_mode"."save_buffers"1"isearch_forward"2"isearch_backward"'"shell"0"edit_tab_stops"("c_mode"/"toggle_crmode"+"text_mode")"no_mode"/"goto_line_cmd"1"goto_column_cmd" .@/"describe_mode","evalbuffer"+"open_rect"+"kill_rect"-"insert_rect"+"copy_rect","blank_rect"'"dired"3"re_search_forward"4"re_search_backward"5"query_replace_match"3"describe_bindings"1"search_backward"0"search_forward"-"replace_cmd"2"find_binary_file" .@,"latex_mode")"sh_mode"&"mail"("ispell")_stkdepth"$0!-/_add_completion!(![$file#dir!]+getbuf_info#pop#pop$=dir%=file$file&strlen!{+Null_String$=dir!}#!if#dir$file&strcat!)/buffer_filename!(![%flags#dir$file!]+getbuf_info&=flags#pop#pop%=file%flags!1!& .@!{6"Buffer not modified."'message&return!}#!if$file&strlen!{/buffer_filename,write_buffer#pop!}!{."save_buffers"$call!}$else!)+save_buffer-"save_buffer".add_completion!(0"Insert Buffer:"+Null_String+Null_String"984read_with_completion)push_spot!{ .@(pop_spot!}+ERROR_BLOCK&insbuf3EXECUTE_ERROR_BLOCK!)-insert_buffer/"insert_buffer".add_completion![6Global_Top_Status_Line!]p" *** To activate menus, press `Ctrl-H ?'. For help, press `Ctrl-H' twice. ***"7=Global_Top_Status_Line .@6Global_Top_Status_Line3set_top_status_line#pop!(![!c!]!0-input_pending!{4help_for_help_string%flush!}#!if&getkey$char%strup#int"=c!c!{!8$case!:$help!}!{"65$case!:'apropos!}!{"73$case!:)info_mode!}!{"63$case!:.menu_main_cmds!}!{"70$case!: .@1describe_function!}!{"86$case!:1describe_variable!}!{"87$case!:(where_is!}!{"67$case"75!c$case"or!:'showkey!}!{"77$case!:(unix_man!}!{#pop$beep!}&switch!)+help_prefix!(!{3skip_non_word_chars$eolp!}!{!1!1%right"!=!{%break!}"if!}%while/skip_word_chars .@!))skip_word!(!{4bskip_non_word_chars$bolp!}!{!1$left!{%break!}#!if!}%while0bskip_word_chars!)*bskip_word!()push_mark)skip_word*del_region!)+delete_word!()push_mark*bskip_word*del_region!),bdelete_word!(!{3skip_non_word_chars$eolp!}!{!1!1%right"!=!{ .@%break!}"if!}%while)push_mark)skip_word,xform_region!)*xform_word!("99*xform_word!)/capitalize_word!(#117*xform_word!)+upcase_word!(#100*xform_word!)-downcase_word!(%markp!{!0(pop_mark!}!{."set_mark_cmd"$call!}$else!)2smart_set_mark_cmd!(!{!0 .@-input_pending!}!{&getkey#pop!}%while!)+flush_input!()push_spot#bob!{!0!4!1!{"14!*!1!++goto_column$eolp!{$eobp!{(pop_spot&return!}"if3insert_single_space#del!}"if!}$_for&down_1!{%break!}#!if!}'forever(pop_spot!)8buffer_format_in_columns!(#bol .@)push_mark#eol!1(go_right*del_region!)+delete_line!()push_spot#eol+what_column%=WRAP(pop_spot4"WRAP column at %d."$WRAP!1'Sprintf'message!)/set_fill_column!(![$name!]%=name![%flags!]+getbuf_info&=flags#pop$name%flags+setbuf_info!)-rename_buffer!( .@)info_mode*"exit_jed"#"Q")"Infomap")definekey*"exit_jed"#"q")"Infomap")definekey0"info_mode_hook"(runhooks!)$info!(!{#pop!}$loop!)%pop_n!(![$base!]%=base![#pid!]&getpid$=pid![$file!n!]$1000"=n!{!n!}!{$base#pid&string&strcat%=file$file+file_status!{ .@$file&return!}#!if%++pid!}%while>"Unable to create a tmp file!"%error!)-make_tmp_file!(+window_line!1!-%go_up!)2goto_top_of_window!(#114+window_info+window_line!-'go_down!)5goto_bottom_of_window!(![!n!i$file%depth%jedrc$home)next_file!]![+script_file .@!]+Null_String,=script_file("jed.rc"&=jedrc(".jedrc"&=jedrc*"JED_HOME"&getenv%=home$home&strlen!{&"HOME"&getenv%=home!}#!if$home%jedrc&dircat&=jedrc)MAIN_ARGC"=n#--n%BATCH!{#--n!2!}!{!1!}$else"=i!n!{!i0command_line_arg$"-n"&strcmp!}!{!1!}$else!{ .@)_stkdepth&=depth%jedrc+file_status!1"==!{%jedrc!}!{("jed.rc"!}$else(evalfile#pop)_stkdepth%depth"!=!{?"Excess junk left on stack by "%jedrc&strcat%flush"10-input_pending#pop!}"if)_stkdepth%depth!-%pop_n!}!{!n!{#++i!}"if!}$else)MAIN_ARGC!i!-"=n!n!{ .@&return!}#!if!i0command_line_arg'"-most"&strcmp!{!i!1!+(run_most&return!}#!if!{!n!0!>!}!{!i0command_line_arg%=file#--n#++i!n!{!i0command_line_arg*=next_file!}"if$file!{$"-f"$case!n#and!:)next_file$eval!}!{$"-g"$case!n#and!:)next_file'integer)goto_line .@!}!{$"-s"$case!n#and!:)next_file'fsearch#pop)next_file2save_search_string!}!{$"-l"$case!n#and!:)next_file(evalfile#pop!}!{$"-i"$case!n#and!:)next_file+insert_file#pop!}!{$"-2"$case!:+splitwindow#++n#--i!}!{&"-tmp"$case!:4set_buffer_no_backup .@6set_buffer_no_autosave#++n#--i!}!{#pop)_stkdepth&=depth!{)_stkdepth%depth!-%pop_n,_clear_error!0!}+ERROR_BLOCK!{!n!0$file$aget"43"==#and!}!{$file'integer!0">=!}'andelse!:)next_file)find_file#pop$file'integer)goto_line!}!{)find_file#pop#++n#--i!} .@&switch#--n#++i!}%while+script_file&strlen!{+script_file(evalfile#pop!}"if!)1command_line_hook!(![!n!]"=n)push_mark!n(go_right*del_region!)$deln!(![!n!]"=n!n!{3insert_single_space!}$loop!)-insert_spaces!(![#str!]$=str![!n!]#str&strlen"=n!{(pop_spot!} .@*EXIT_BLOCK)push_spot!n!n$left"!=!{!0&return!}"if#str*looking_at&return!)+blooking_at!(*"exchange"$call!)7exchange_point_and_mark!(![#str!n!]"=n$=str#str!1!n!1!-&substr#str!n#str&strlen&substr!))str_split!(![$file!]%=file!['changed!]!0(=changed![ .@&envvar!]![#pos#len$name#dir!]![%file0%file1%file2!]$file&=file2+Null_String%=file!{!{%file2&strlen!}!{%file2+"\\$[^/$]+"!1,string_match!}'andelse!}!{)++changed!00string_match_nth$=len$=pos%++pos%file2#pos)str_split&=file1&=file0%file1#len!1!+ .@)str_split&=file2&=file1%file1!2#len!1!-&substr&getenv'=envvar$file%file0&envvar!3'strncat%=file!}%while$file%file2&strcat%=file!{$file$"^~"!1,string_match$=pos#pos!}!{$file$"/~"!1,string_match#chs$=pos#pos!}&orelse!{#pos!0!"&setkey2"narrow_paragraph" .@%"\eN"&setkey2"format_paragraph"%"\eQ"&setkey)"page_up"%"\eV"&setkey-"copy_region"%"\eW"&setkey1"trim_whitespace"&"\e\\"&setkey)"whatpos"%"^X="&setkey-"begin_macro"%"^X("&setkey+"end_macro"%"^X)"&setkey+"mark_spot"%"^X/"&setkey/"delete_window"%"^X0" .@&setkey,"one_window"%"^X1"&setkey."split_window"%"^X2"&setkey-"scroll_left"%"^X<"&setkey."scroll_right"%"^X>"&setkey2"switch_to_buffer"%"^XB"&setkey'"dired"%"^XD"&setkey-"insert_file"%"^XI"&setkey/"execute_macro"%"^XE"&setkey*"pop_spot"%"^XJ"&setkey .@-"kill_buffer"%"^XK"&setkey."other_window"%"^XO"&setkey*"exit_jed"&"^X^C"&setkey+"find_file"&"^X^F"&setkey1"toggle_readonly"&"^X^Q"&setkey-"save_buffer"&"^X^S"&setkey1"transpose_lines"&"^X^T"&setkey."write_buffer"&"^X^W"&setkey+"kill_rect"&"^XRk" .@&setkey+"open_rect"&"^XRo"&setkey-"insert_rect"&"^XRy"&setkey+"copy_rect"&"^XRr"&setkey4"smart_set_mark_cmd"$"^@"&setkey:"find_buffer_other_window"&"^X4b"&setkey5"find_alternate_file"&"^X^V"&setkey8"find_file_other_window"&"^X4f"&setkey .@8"find_file_other_window"*"emacsmsc"(autoload:"find_buffer_other_window"*"emacsmsc"(autoload5"find_alternate_file"*"emacsmsc"(autoload!(#eob)push_mark#bob!)1emacs_mark_buffer3"emacs_mark_buffer"%"^XH"&setkey!('newline!1'go_left!)/emacs_open_line .@1"emacs_open_line"$"^O"&setkey!(!0(recenter!).emacs_recenter!(![!c#err!]/"Top of Buffer"$=err$eolp!{!1'go_left!}"if!1$left!{#err%error!}#!if)what_char"=c#del!1(go_right!c+insert_char!)/transpose_chars1"transpose_chars"$"^T"&setkey!(![!n#key%count#msg .@"cu%force!]!4"=n!0&=count%"C-u"#=cu"cu$=msg!0&=force!{%force!{"10-input_pending!{!1&=force!}#!if!}#!if%force!{#msg#"-"&strcat'message!0&update!}"if#msg#" "&strcat$=msg&getkey$=key#key!{$char'isdigit!:#key"48!-$=key"10%count!*#key!+&=count#msg#key .@&string&strcat$=msg!}!{"21$case!:%count!{!4!n!*"=n!}#!if!0&=count#msg"cu&strcat$=msg!}!{(ungetkey%count!{!n&=count!}#!if%count&string&=count%count&strlen"=n!n!1"-1!{%count$exch!1&substr#int(ungetkey!}$_for"27(ungetkey&return!}&switch!}'forever!) .@2universal_argument4"universal_argument"$"^U"&setkey1"KILL_ARRAY_SIZE"*is_defined!{)"yankpop"(evalfile#pop."yp_kill_line"$"^K"&setkey)"yp_yank"$"^Y"&setkey-"yp_yank_pop"%"\eY"&setkey."yp_kill_word"%"\eD"&setkey/"yp_bkill_word"&"\e^?"&setkey .@8"yp_copy_region_as_kill"%"\eW"&setkey0"yp_kill_region"$"^W"&setkey!}"if #!if!0&=count#msg"cu&strcat$=msg!}!{(ungetkey%count!{!n&=count!}#!if%count&string&=count%count&strlen"=n!n!1"-1!{%count$exch!1&substr#int(ungetkey!}$_for"27(ungetkey&return!}&switch!}'forever!) .@2universal_argument4"universal_argument"$"^U"&setkey1"KILL_ARRAY_SIZE"*is_defined!{)"yankpojed-0.97.12/lib/edt.slc000064400000000000003000000144150604364522000143230ustar00rootsys00000000000000.@U"(Jed %v) EDT: %b (%m%a%n%o) %p,%c Advance %t"!1/set_status_line!1)=WANT_EOB%"\e="'tt_send,"Edt_Loaded"*is_defined!{![*Edt_Loaded!]![(edt_pbuf!](" ")=edt_pbuf'whatbuf(edt_pbuf&setbuf&sw2buf!}#!if![*Edt_Keypad!]!1+=Edt_Keypad!(!["on#off!] .@*"Numeric."$=off."Application."#=on*Edt_Keypad!{#off%"\e>"!}!{"on%"\e="!}$else'tt_send'message*Edt_Keypad#not+=Edt_Keypad!),edt_togglekp$"^W"(unsetkey$"^K"(unsetkey$"^U"(unsetkey$"^L"(unsetkey$"^H"(unsetkey1"self_insert_cmd"$"\""&setkey .@1"self_insert_cmd"#"'"&setkey1"self_insert_cmd"#"`"&setkey1"self_insert_cmd"$"^L"&setkey1"self_insert_cmd"$"^I"&setkey-"help_prefix"'"\eOPh"&setkey*"edt_subs"*"\eOP\eOM"&setkey,"edt_delbol"$"^U"&setkey*"edt_help"&"\eOQ"&setkey-"edt_findnxt"&"\eOR" .@&setkey*"edt_ldel"&"\eOS"&setkey*"edt_wdel"&"\eOm"&setkey*"edt_cdel"&"\eOl"&setkey4"smart_set_mark_cmd"&"\eOn"&setkey*"edt_line"&"\eOp"&setkey*"edt_word"&"\eOq"&setkey)"edt_eol"&"\eOr"&setkey)"edt_bol"$"^H"&setkey+"edt_bword"&"\eOs"&setkey .@-"edt_advance"&"\eOt"&setkey,"edt_backup"&"\eOu"&setkey)"edt_cut"&"\eOv"&setkey*"edt_page"&"\eOw"&setkey*"edt_sect"&"\eOx"&setkey,"edt_append"&"\eOy"&setkey/"goto_line_cmd"*"\eOP\eOQ"&setkey*"edt_find"*"\eOP\eOR"&setkey+"edt_uldel"*"\eOP\eOS"&setkey .@+"edt_uwdel"*"\eOP\eOm"&setkey+"edt_ucdel"*"\eOP\eOl"&setkey+"edt_reset"*"\eOP\eOn"&setkey+"edt_oline"*"\eOP\eOp"&setkey-"edt_chgcase"*"\eOP\eOq"&setkey,"edt_deleol"*"\eOP\eOr"&setkey-"edt_specins"*"\eOP\eOs"&setkey%"eob"*"\eOP\eOt"&setkey .@/"beg_of_buffer"*"\eOP\eOu"&setkey+"edt_paste"*"\eOP\eOv"&setkey-"edt_command"*"\eOP\eOw"&setkey2"format_paragraph"*"\eOP\eOx"&setkey-"edt_replace"*"\eOP\eOy"&setkey+"exit_mini"&"\eOM"&setkey&"exit"'"\eOPE"&setkey("redraw"$"^W"&setkey'"shell"'"\eOPR" .@&setkey-"splitwindow"'"\eOPW"&setkey,"one_window"("\eOP^W"&setkey-"otherwindow"'"\eOPo"&setkey'"learn"'"\eOPL"&setkey*"Mini_Map"(keymap_p!{+"exit_mini"&"\eOM"*"Mini_Map")definekey+"edt_reset"*"\eOP\eOn"*"Mini_Map")definekey!}"if!0!9!1!{#=$0 .@+"digit_arg"&"\eOP""$0&string&strcat&setkey!}$_for/"beg_of_buffer"'"^[[1~"&setkey+"edt_paste"'"^[[2~"&setkey*"edt_cdel"'"^[[3~"&setkey+"edt_ucdel"+"^[OP^[[3~"&setkey%"eob"'"^[[4~"&setkey)"page_up"'"^[[5~"&setkey+"page_down"'"^[[6~"&setkey .@/"beg_of_buffer"*"\eOP\e[A"&setkey%"eob"*"\eOP\e[B"&setkey-"scroll_left"*"\eOP\e[C"&setkey."scroll_right"*"\eOP\e[D"&setkey)" \\v{c}"'"^[OPc"&setkey)" \\v{C}"'"^[OPC"&setkey)" \\v{s}"'"^[OPs"&setkey)" \\v{S}"'"^[OPS"&setkey)" \\v{z}"'"^[OPz"&setkey .@)" \\v{Z}"'"^[OPZ"&setkey!['edt_dir!]!1(=edt_dir!(!1(=edt_dirT"(Jed %v) EDT: %b (%m%n%o) %p,%c Advance %t"!1/set_status_line!)+edt_advance!("-1(=edt_dirT"(Jed %v) EDT: %b (%m%n%o) %p,%c Backup %t"!1/set_status_line!)*edt_backup![ .@(edt_wbuf(edt_lbuf(edt_cbuf!]+Null_String)=edt_wbuf+Null_String)=edt_lbuf!0)=edt_cbuf!((quit_jed!)$quit&"quit".add_completion!(+save_buffer(quit_jed!)$exit!('edt_dir!1"==!{!1(go_right!}!{!1'go_left!}$else!)(edt_char!($eobp!{)what_char)=edt_cbuf#del!} .@#!if!)(edt_cdel!((edt_cbuf!{(edt_cbuf+insert_char!1'go_left!}"if!))edt_ucdel!('edt_dir!1"==!{$eolp!{!1(go_right&return!}"if/skip_word_chars3skip_non_word_chars!}!{$bolp!{!1'go_left&return!}"if4bskip_non_word_chars0bskip_word_chars!}$else!)(edt_word!( .@$bolp!{!1'go_left&return!}"if4bskip_non_word_chars0bskip_word_chars!))edt_bword!()push_mark)push_mark(edt_word)bufsubstr)=edt_wbuf*del_region!)(edt_wdel!()push_spot(edt_wbuf&insert(pop_spot!))edt_uwdel!(6"char code (decimal):"$"27"+Null_String .@)read_mini'integer+insert_char!)+edt_specins!()push_mark)push_mark#eol)bufsubstr)=edt_lbuf*del_region!)*edt_deleol!()push_mark)push_mark#bol)bufsubstr)=edt_lbuf*del_region!)*edt_delbol!()push_mark)push_mark#eol!1(go_right)bufsubstr)=edt_lbuf .@*del_region!)(edt_ldel!()push_spot(edt_lbuf&insert(pop_spot!))edt_uldel!('edt_dir!1"==!{.search_forward!}!{/search_backward!}$else!)(edt_find!(![!r%found!]!0"=r+LAST_SEARCH&strlen!{'edt_dir!1"==!{!1%right"=r+LAST_SEARCH'fsearch&=found!}!{+LAST_SEARCH .@'bsearch&=found!}$else%found!{!r'go_left,"Not Found."%error!}#!if!}!{,"Find What?"%error!}$else!)+edt_findnxt!('edt_dir!1"==!{"16'go_down!}!{"16%go_up!}$else#bol!)(edt_sect!('edt_dir!1"==!{$bolp!{!1%go_up!}"if!}!{!1'go_down!}$else#bol!)'edt_bol!( .@'edt_dir!1"==!{$eolp!{)go_down_1!}"if!}!{'go_up_1!}$else#eol!)'edt_eol!('edt_dir!0!>!{)go_down_1!}!{$bolp!{'go_up_1!}"if!}$else#bol!)(edt_line!('newline!1'go_left!))edt_oline!(+edt_advance!{%markp!}!{!0(pop_mark!}%while*"kbd_quit"$call!))edt_reset!(![ .@#ret"ff!]"12$char#=ff'edt_dir!1"==!{!1'go_down"ff'fsearch$=ret#ret!{!4(recenter!}!{'edt_dir!1"==!{#eob!}!{#bob!}$else!}$else!}!{!1%go_up"ff'bsearch$=ret#ret!{"20(recenter!}!{'edt_dir!1"==!{#eob!}!{#bob!}$else!}$else!}$else!)(edt_page!(![!b!]'dupmark!{ .@&return!}#!if'whatbuf"=b(edt_pbuf&setbuf,erase_buffer!b&setbuf(edt_pbuf+copy_region*del_region!)'edt_cut!((edt_pbuf&insbuf!))edt_paste!((edt_pbuf&insbuf!))edt_paste!(![!b!]'whatbuf"=b(edt_pbuf&setbuf#eob!b&setbuf'dupmark!{(edt_pbuf+copy_region .@*del_region!}!{,"No Region."%error!}$else!)*edt_append!(+LAST_SEARCH*looking_at!{+LAST_SEARCH&strlen$deln)edt_paste+LAST_SEARCH*looking_at!{+edt_findnxt!}#!if!}!{:"Select range not active."%error!}$else!)(edt_subs!()"edt.hlp"-jed_easy_help!)(edt_help .@!(![!n!]%markp!{)push_mark+LAST_SEARCH&strlen"=n!n+LAST_SEARCH*looking_at#and!{!n(go_right!}!{'edt_dir!1"==!{!1(go_right!}!{!1'go_left!}$else!}$else!}#!if"88,xform_region!)+edt_chgcase!(![!n!]+LAST_SEARCH&strlen"=n!n+LAST_SEARCH*looking_at#and!{!n .@$deln!}!{%markp!{:"Select range not active."%error!}#!if*del_region!}$else)edt_paste!)+edt_replace!(![!f!]+Null_String"=f![!i!]!0"=i1MINIBUFFER_ACTIVE!{."evaluate_cmd"$call&return!}"if!{!f+is_internal!{!f$call&return!}"if!f*is_defined!{!f$eval&return .@!}"if/EXECUTING_MACRO.DEFINING_MACRO"or!{!i!1"==!{"13(ungetkey!}"if"32(ungetkey#++i!}#!if*"Command:"+Null_String!f"704read_with_completion"=f!}'forever!)+edt_command![,learn_status!]!0-=learn_status!(,learn_status!0"==!{!1-=learn_status-"begin_macro" .@$call!}!{+"end_macro"$call5"assign_macro_to_key"$eval!0-=learn_status!}$else!)%learn!(![#key!]+Null_String$=key!["ch!]!0#=chI"Press the key you wish to use for learn"%flush!{&getkey#=ch"ch!0"==!{$"^@"#=ch!}!{"ch$char#=ch!}$else#key"ch&strcat$=key!}!{ .@!5-input_pending!}(do_while#"@".get_last_macro&strcat#key,local_setkey/"Macro set to "#key0expand_keystring&strcat'message!)3assign_macro_to_key5"assign_macro_to_key".add_completion atus!]!0-=learn_status!(,learn_status!0"==!{!1-=learn_status-"begin_macro" .@$call!}!{+"end_macro"$call5"assign_macro_to_key"$eval!0-=learn_status!}$else!)%learn!(![#key!]+Null_String$=key!["ch!]!0#=chI"Press the key you wish to use for learn"jed-0.97.12/lib/mini.slc000064400000000000003000000021740604364522000145020ustar00rootsys00000000000000.@5"Mini_Previous_Lines"*is_defined!{![3Mini_Previous_Lines.Mini_Last_Line.Mini_Next_Line/Mini_First_Line!]#115"12!1,create_array4=Mini_Previous_Lines!0"11!1!{#=$1+Null_String"$13Mini_Previous_Lines$aput!}$_for!}#!if!0/=Mini_Last_Line!0 .@0=Mini_First_Line!0/=Mini_Next_Line!(,erase_buffer.Mini_Next_Line3Mini_Previous_Lines$aget&insert!)2mini_use_this_line!(![$line!].Mini_Next_Line.Mini_Last_Line"==!{."End of list!"%error!}"if0++Mini_Next_Line.Mini_Next_Line"12"==!{!0/=Mini_Next_Line!} .@"if2mini_use_this_line!)1next_mini_command!(![$line!].Mini_Next_Line%=line/Mini_First_Line.Mini_Next_Line"==!{$line/=Mini_Next_Line."Top of list!"%error!}"if0--Mini_Next_Line.Mini_Next_Line!0!!{#len&return!}"if"-1&return!) .@6search_search_function!(![#pat&prompt#rep!]*"Replace:"+Null_String+Null_String)read_mini$=pat#pat&strlen!{&return!}#!if+"Replace '"#pat&strcat)"' with:"&strcat'=prompt&prompt+Null_String+Null_String)read_mini$=rep7&search_search_function#pat#rep!1 .@3&replace_do_replace2replace_with_query'"done."'message!)+replace_cmd !]$=len$=str)push_mark#len(go_right*del_region#str&insert#str&strlen!)2replace_do_replace!(![#pat!]$=pat![#len!]#pat&strlen$=len#pat!13search_across_lines!0!>!{#len&return!}"if"-1&return!) .@6search_search_function!(![#pat&prompt#rep!]*"Replace:"+Null_String+Null_String)read_mini$=pat#pat&strlen!{&return!}#!if+"Replace '"#pat&strcat)"' with:"&strcat'=prompt&prompt+Null_String+Null_String)read_mini$=rep7&search_search_function#pat#rep!1 .@3&replace_do_replace2replace_with_query'"done."'message!)jed-0.97.12/lib/slmode.slc000064400000000000003000000015010604364522000150220ustar00rootsys00000000000000.@#"C"(keymap_p!{'"cmode"(evalfile#pop!}#!if'"SLANG"#=$1"$13create_syntax_table#"%"""""37"$1-define_syntax%"([{"%")]}""40"$1-define_syntax"34"34"$1-define_syntax"39"39"$1-define_syntax"92"92"$1-define_syntax,"0-9a-zA-Z_"#119"$1-define_syntax .@0"-+0-9a-fA-F.xX""48"$1-define_syntax%",;:""44"$1-define_syntax"35"35"$1-define_syntax/"%-+/&*=<>|!~^""43"$1-define_syntax"$1("doifor"!2/define_keywords#pop"$1("andfor"!3/define_keywords#pop"$12"_forcaseelseloop"!4/define_keywords#pop"$1,"breakwhile" .@!5/define_keywords#pop"$1:"defineorelsereturnswitch"!6/define_keywords#pop"$10"andelseforever"!7/define_keywords#pop"$12"continuevariable"!8/define_keywords#pop"$1,"EXIT_BLOCK""10/define_keywords#pop"$1-"ERROR_BLOCK""11/define_keywords#pop!(&c_mode .@$"SL"!2!8!|'setmode'"SLANG"0use_syntax_table1"slang_mode_hook"(runhooks!)*slang_mode ne_syntax/"%-+/&*=<>|!~^""43"$1-define_syntax"$1("doifor"!2/define_keywords#pop"$1("andfor"!3/define_keywords#pop"$12"_forcaseelseloop"!4/define_keywords#pop"$1,"breakwhile" .@!5/define_keywojed-0.97.12/lib/cmode.slc000064400000000000003000000133700604364522000146350ustar00rootsys00000000000000.@0"c_make_comment"'"cmisc"(autoload4"c_format_paragraph"'"cmisc"(autoload1"c_paragraph_sep"'"cmisc"(autoload2"c_comment_region"'"cmisc"(autoload3"c_top_of_function"'"cmisc"(autoload3"c_end_of_function"'"cmisc"(autoload1"c_mark_function"'"cmisc" .@(autoload!(![(is_slang!](whatmode)=is_slang#pop(is_slang!8!&!)-is_slang_mode!(#bol!{#"%"%ffind!}!{!1(go_right.parse_to_point"-2"==!{&return!}"if!}%while#eol!)4c_find_effective_eol!(!{&" \t%"+bskip_chars)push_mark#bol"35/looking_at_char#not(pop_mark .@$bolp!{&return!}#!if!1$left!{&return!}#!if4c_find_effective_eol!}'forever!)4slmode_bskip_comment!(-is_slang_mode!{4slmode_bskip_comment&return!}"if!{'" \t\n"+bskip_chars$"*/"+blooking_at!{)push_mark#bol$bobp!{!{"35/looking_at_char!}!{*skip_white$"//" .@*looking_at!}&orelse!{!0(pop_mark(continue!}"if!}#!if!1(pop_mark%break!}#!if$"/*"'bsearch!{%break!}#!if!}'forever!)4c_bskip_over_comment!(![%token!]&=token![#cse!]+CASE_SEARCH$=cse![#ret!]!0$=ret!0,=CASE_SEARCH%token*looking_at!{)push_spot%token .@&strlen(go_right%POINT("\t :({"*skip_chars%POINT!-$eolp"or$=ret(pop_spot!}"if#cse,=CASE_SEARCH#ret!),c_looking_at!(![!n!]"=n.bol_skip_white+what_column!n"!=!{#bol$trim#--n!n*whitespace!}"if!)+c_indent_to!(![#val#col,extra_indent!]!0-=extra_indent![ .@*match_char,match_indent)this_char!]![*match_mark!])push_spot.bol_skip_white)what_char*=this_char!{#bol$trim(pop_spot!}*EXIT_BLOCK"35/looking_at_char!{&return!}"if)push_spot$up_1!{#eol$"\\"+blooking_at&"\\\\"+blooking_at#not#and!{(pop_spot&return!}"if .@!}"if(pop_spot!{)push_mark+bskip_white!1$bolp!{#pop*skip_white!0!}"if(pop_mark!}*EXIT_BLOCK!{&"case",c_looking_at!}!{)"default",c_looking_at!}!{+"protected",c_looking_at!}!{)"private",c_looking_at!}!{("public",c_looking_at!}&orelse!{#":"%ffind!{ .@(C_INDENT.-=extra_indent.C_Colon_Offset.+=extra_indent!}"if#bol!}!{4c_bskip_over_comment!{#";"+blooking_at!}!{#"{"+blooking_at!}!{#"}"+blooking_at!}!{#":"+blooking_at!}&orelse!{2C_CONTINUED_OFFSET-=extra_indent!}#!if!}$else"417find_matching_delimiter .@$=val+what_column$=col#val!0!<$"/*"*looking_at#and!{"-2$=val!}"if0create_user_mark+=match_mark)what_char+=match_char.bol_skip_white+what_column-=match_indent(pop_spot#val!{!0$case!:*match_char#123"==!{)push_spot*match_mark.goto_user_mark+bskip_white .@#")"+blooking_at!{!1'go_left!1"417find_matching_delimiter"==!{.bol_skip_white+what_column-=match_indent!}"if!}"if(pop_spot,match_indent$=col(C_INDENT%+=col!}!{)push_spot#bol$trim(pop_spot&return!}$else!}!{!1$case!:!1-=extra_indent!}!{"-2$case!: .@-is_slang_mode!{&return!}"if)push_spot)this_char"92"!=!{%++col!}"if#col+c_indent_to"42/looking_at_char$eolp#not"or!{(pop_spot!}!{$"* "&insert(pop_spot+what_column#col"<=!{#col!2!++goto_column!}"if!}$else&return!}!{!2$case!:)push_spot#bol$trim(pop_spot .@&return!}&switch)this_char!{#125$case!:(C_INDENT%-=col!}!{#123$case!:'C_BRACE%+=col!}!{#pop,extra_indent%+=col!}&switch)push_spot#col+c_indent_to(pop_spot!)-c_indent_line!()push_spot.bol_skip_white!0&"* @ "*looking_at!{#pop+what_column!}"if(pop_spot!) .@4c_is_comment_example!(![%slcom!]&"%!% "&=slcom-is_slang_mode!{)push_spot#bol%slcom*looking_at(pop_spot!{'newline%slcom&insert&return!}"if!}"if![#col!]4c_is_comment_example$=col'newline#col!{#col+c_indent_to&"* @ "&insert!}!{-c_indent_line!}$else!) .@4c_newline_and_indent!(.parse_to_point4c_is_comment_example"or!)0c_parse_to_point!(0c_parse_to_point!{#123+insert_char!}!{)push_spot4c_bskip_over_comment#","+blooking_at(pop_spot!{#123+insert_char!}!{)push_spot*skip_white$eolp!{+bskip_white$bolp#not .@-C_BRA_NEWLINE#and(pop_spot!{'newline!}"if)push_spot+bskip_white$bolp(pop_spot#123+insert_char!{-c_indent_line!}"if#eol-C_BRA_NEWLINE"-1"!=!{4c_newline_and_indent!}"if!}!{(pop_spot#123+insert_char!}$else!}$else!}$else!),c_insert_bra!(![&status!] .@0c_parse_to_point'=status)push_spot*skip_white)push_spot&status$eolp#not.bol_skip_white#"{"*looking_at"or"or(pop_spot!{(pop_spot#125+insert_char+blink_match&return!}"if+bskip_white$bolp(pop_spot!{#125+insert_char$trim!}!{#eol%"\n}"&insert!}$else .@-c_indent_line#eol+blink_match4c_newline_and_indent!),c_insert_ket!("58+insert_char0c_parse_to_point!{-c_indent_line!}#!if!).c_insert_colon#"C"#=$1"$1(keymap_p!{"$1+make_keymap!}#!if6"c_newline_and_indent"$"\r""$1)definekey."c_insert_bra"#"{""$1 .@)definekey."c_insert_ket"#"}""$1)definekey0"c_insert_colon"#":""$1)definekey0"c_make_comment"%"\e;""$1)definekey2"c_comment_region"%"^X;""$1)definekey4"c_format_paragraph"%"\eq""$1)definekey3"c_top_of_function"&"\e^A""$1)definekey3"c_end_of_function" .@&"\e^E""$1)definekey1"c_mark_function"&"\e^H""$1)definekey#"C"3create_syntax_table$"/*"$"*/""37#"C"-define_syntax%"([{"%")]}""40#"C"-define_syntax"34"34#"C"-define_syntax"39"39#"C"-define_syntax"92"92#"C"-define_syntax,"0-9a-zA-Z_"#119#"C" .@-define_syntax1"-+0-9a-fA-F.xXL""48#"C"-define_syntax'",;.?:""44#"C"-define_syntax"35"35#"C"-define_syntax/"%-+/&*=<>|!~^""43#"C"-define_syntax#"C"!40set_syntax_flags#"C"&"doif"!2!01define_keywords_n#pop#"C"1"asmforintnewtry"!3!01define_keywords_n#pop .@#"C"F"autocasecharelseenumgotolongthisvoid"!4!01define_keywords_n#pop#"C"O"breakcatchclassconstfloatshortthrowunionwhile"!5!01define_keywords_n#pop#"C"j"deletedoubleexternfriendinlinepublicreturnsignedsizeofstaticstructswitch"!6!01define_keywords_n .@#pop#"C">"defaultprivatetypedefvirtual"!7!01define_keywords_n#pop#"C"R"continueoperatorregistertemplateunsignedvolatile"!8!01define_keywords_n#pop#"C"+"protected"!9!01define_keywords_n#pop#"C"6"NULLexitfreeputsread"!4!11define_keywords_n#pop#"C" .@6"fgetsfputsfreadwrite"!5!11define_keywords_n#pop#"C"F"callocfwritemallocsscanfstrcmpstrlen"!6!11define_keywords_n#pop#"C"7"reallocsprintfstrncmp"!7!11define_keywords_n#pop!(![$kmap!]#"C"%=kmap$kmap!2'setmode$kmap*use_keymap$kmap0use_syntax_table .@)"par_sep"1"c_paragraph_sep"/set_buffer_hook-"indent_hook"/"c_indent_line"/set_buffer_hook-"c_mode_hook"(runhooks!)&c_mode nedvolatile"!8!01define_keywords_n#pop#"C"+"protected"!9!01define_keywords_n#pop#"C"6"NULLexitfreeputsread"!4!11define_keywords_n#pop#"C" .@6"fgetsfputsfreadwrite"!5!11define_keywords_n#pop#"C"F"callocfwritemallocsscanfstrcmpstrlen"!6!11define_keywords_n#pop#"C"7"jed-0.97.12/lib/emacsmsc.slc000064400000000000003000000012710604364522000153360ustar00rootsys00000000000000.@!(![!n#buf&trybuf!]+Null_String'=trybuf!["ch!]+buffer_list"=n!n!{$=buf#--n!0#buf$aget#=ch"ch"32"=="ch"42"=='whatbuf#buf&strcmp#not"or"or!{(continue!}"if#buf'=trybuf%break!}$loop!n!{#pop!}$loop3"Switch to buffer:"&trybuf+Null_String"98 .@4read_with_completion'=trybuf&trybuf&strlen!{&trybuf'pop2buf!}"if!)8find_buffer_other_window!(![$file!],"Find file:"3read_file_from_mini%=file$file0extract_filename&strlen!{&return!}#!if$file)read_file!{+"New file."'message!}#!if'whatbuf'pop2buf!) .@6find_file_other_window!(![$file!]6"Find alternate file:"3read_file_from_mini%=file$file0extract_filename&strlen!{&return!}#!if'whatbuf&delbuf$file)find_file!{+"New file."'message!}#!if!)3find_alternate_file op!}$loop3"Switch to buffer:"&trybuf+Null_String"98 .@4read_with_completion'=trybuf&trybuf&strlen!{&trybuf'pop2buf!}"if!)8find_buffer_other_window!(![$file!],"Find file:"3read_file_from_mini%=file$file0extract_filename&strlen!{&return!}#!if$file)read_file!{+"New file."'message!}#!if'whatbuf'pop2buf!) .@6find_file_other_windowjed-0.97.12/lib/buf.slc000064400000000000003000000034560604364522000143260ustar00rootsys00000000000000.@!(![!i!j#tmp$this$name%flags*flag_chars$skip!]!0%=skip"-1/prefix_argument"-1"==!{!1%=skip!}"if."*BufferList*"$=tmp'whatbuf%=this#tmp'pop2buf!0,set_readonly,erase_bufferm"U:Undo O:Overwrite R:Readonly D:Disk File Changed, A:Autosave, M:Modified\n" .@&insert]"C:CRmode, B:Binary File, K:Not backed up, N:No autosave\n\n"&insert-"CBKN-UORDAM"+=flag_chars1"\t\tBuffer Name"&insert"45+goto_column,"Dir/File\n"&insert+buffer_list!{%=name$skip$name#int"32"==#and!{(continue!}"if$name&setbuf+getbuf_info .@&=flags#tmp&setbuf#bol%0x400"=i!0"=j!{!i!}!{%flags!i!&!{!j*flag_chars$aget$char!}!{#"-"!}$else&insert!i!1#shr"=i#++j!}%while!9+insert_char&insert"45+goto_column$eolp!{#eol3insert_single_space!}#!if&insert&insert'newline!}$loop#bob!0 .@8set_buffer_modified_flag!1,set_readonly$this'pop2buf!),list_buffers!(![$file#dir%flags#buf"ch!]+buffer_list!{$=buf#buf#int#=ch"ch"32"=="ch"42"=="or!{(continue!}"if#buf&setbuf+getbuf_info&=flags#pop$=dir%=file$file&strlen!{(continue!}#!if%flags!1!&!{ .@#dir$file&strcat,write_buffer!{7"Error writing buffer "#buf&strcat%error!}#!if!}"if!}$loop!),save_buffers!(![$file!]%markp!{1"Set Mark first!"%error!}#!if'"File:"3read_file_from_mini%=file$file4write_region_to_file!),write_region!(![$file!]%markp!{ .@1"Set Mark first!"%error!}#!if1"Append to File:"3read_file_from_mini%=file"-1$file5append_region_to_file"==!{0"Append failed."%error!}"if!)-append_region!(![%flags$file#dir"as#buf!]+getbuf_info&=flags#pop$=dir%=file$file&strlen!{ .@D"Buffer not associated with a file."%error!}#!if#dir$file6make_autosave_filename#=as"as+file_status!1"!=!{"as0" not readable."&strcat%error!}"if'whatbuf$=buf"as"as#dir$file&strcat1file_time_compare!{6" more recent. Use it"!}!{5" not recent. Use it"!} .@$else&strcat*get_yes_no!0!>!{)what_line#buf&setbuf,erase_buffer"as+insert_file#pop)goto_line!}"if!),recover_file nd_region_to_file"==!{0"Append failed."%error!}"if!)-append_region!(![%flags$file#dir"as#buf!]+getbuf_info&=flags#pop$=dir%=file$file&strlen!{ .@D"Buffer not associated with a file."%error!}#!if#dir$file6make_ajed-0.97.12/lib/wordstar.slc000064400000000000003000000053640604364522000154170ustar00rootsys00000000000000.@+Null_String*=Help_FileF" Jed %v : %b (%m%n) (%p %c) %t"!1/set_status_line+Null_String*=Help_File"30.set_abort_char$"^K"(unsetkey$"^X"(unsetkey$"^W"(unsetkey$"^F"(unsetkey6"ws_insert_last_block"$"^P"&setkey/"next_char_cmd"$"^D"&setkey .@3"previous_char_cmd"$"^S"&setkey3"previous_line_cmd"$"^E"&setkey/"next_line_cmd"$"^X"&setkey)"page_up"$"^R"&setkey+"page_down"$"^C"&setkey+"skip_word"$"^F"&setkey,"bskip_word"$"^A"&setkey1"delete_char_cmd"$"^G"&setkey0"ws_delete_word"$"^T"&setkey .@-"delete_line"$"^Y"&setkey2"ws_repeat_search"$"^L"&setkey."ws_window_up"$"^W"&setkey0"ws_window_down"$"^Z"&setkey%"eol"&"^Q^D"&setkey%"eol"%"^QD"&setkey%"bol"&"^Q^S"&setkey%"bol"%"^QS"&setkey%"bob"&"^Q^R"&setkey%"bob"%"^QR"&setkey%"eob"&"^Q^C"&setkey .@%"eob"%"^QC"&setkey0"search_forward"&"^Q^F"&setkey0"search_forward"%"^QF"&setkey-"replace_cmd"&"^Q^A"&setkey-"replace_cmd"%"^QA"&setkey+"kill_line"&"^Q^Y"&setkey+"kill_line"%"^QY"&setkey4"goto_top_of_window"%"^QE"&setkey4"goto_top_of_window"&"^Q^E" .@&setkey7"goto_bottom_of_window"&"^Q^X"&setkey7"goto_bottom_of_window"%"^QX"&setkey0"ws_begin_block"&"^K^B"&setkey0"ws_begin_block"%"^KB"&setkey."ws_end_block"&"^K^K"&setkey."ws_end_block"%"^KK"&setkey1"ws_delete_block"&"^K^Y"&setkey1"ws_delete_block" .@%"^KY"&setkey/"ws_copy_block"&"^K^C"&setkey/"ws_copy_block"%"^KC"&setkey-"insert_file"&"^K^R"&setkey-"insert_file"%"^KR"&setkey-"save_buffer"&"^K^S"&setkey-"save_buffer"%"^KS"&setkey*"exit_jed"&"^K^Q"&setkey*"exit_jed"%"^KQ"&setkey-"ws_exit_jed" .@&"^K^D"&setkey-"ws_exit_jed"%"^KD"&setkey!(+window_line!1!+(recenter!),ws_window_up!(+window_line!1!+(recenter!).ws_window_down!(!1(go_right+LAST_SEARCH'fsearch!{,"Not found."%error!}#!if!)0ws_repeat_search![.WS_Mark_Pushed!]!0/=WS_Mark_Pushed!( .@.WS_Mark_Pushed!{!0(pop_mark!}$loop!1/=WS_Mark_Pushed)push_mark)push_mark."set_mark_cmd"$call."Begin Block."'message!).ws_begin_block![/WS_Block_Buffer!]0" *ws-internal*"0=WS_Block_Buffer!(.WS_Mark_Pushed!2!!{#pat*re_fsearch$=ret!}!{#pat*re_bsearch$=ret!}$else%--ret#ret!)-re_search_dir!(![#pat)not_found!]!1*=not_found2"Search (Regexp):"+Null_String .@+Null_String)read_mini$=pat#pat&strlen!{&return!}#!if)push_mark!{)not_found(pop_mark!}+ERROR_BLOCK.&re_search_dir#pat!12search_maybe_again#not*=not_found)not_found!{,"Not found."%error!}"if3EXECUTE_ERROR_BLOCK!)1re_search_forward!(![#pat)not_found!] .@;"Backward Search (Regexp):"+Null_String+Null_String)read_mini$=pat#pat&strlen!{&return!}#!if)push_mark!{)not_found(pop_mark!}+ERROR_BLOCK.&re_search_dir#pat"-12search_maybe_again#not*=not_found)not_found!{,"Not found."%error!}"if3EXECUTE_ERROR_BLOCK .@!)2re_search_backward!(![#pat!]$=pat#pat*re_fsearch!1!-!)8research_search_function!(![#str#len!]$=len$=str#str!0-replace_match#pop"-2!)3re_replace_function!(![#pat!n#rep&prompt$doit#err"ch!]1"Replace Failed!"$=err)"Regexp:"+Null_String+Null_String .@)read_mini$=pat#pat&strlen!{&return!}#!if+"Replace '"#pat&strcat)"' with:"&strcat'=prompt&prompt+Null_String+Null_String)read_mini$=rep9&research_search_function#pat#rep!14&re_replace_function2replace_with_query!)3query_replace_match !}"if3EXECUTE_ERROR_BLOCK .@!)2re_search_backward!(![#pat!]$=pat#pat*re_fsearch!1!-!)8research_search_function!(![#str#len!]$=len$=str#str!0-replace_match#pop"-2!)3re_replace_function!(![#pat!n#rep&prompt$doit#err"ch!]1"Replace Failed!"$=err)"Regexp:"+Null_String+Null_String .@)read_mini$=pat#pjed-0.97.12/lib/sort.slc000064400000000000003000000014620604364522000145340ustar00rootsys00000000000000.@!(&strcmp!0!!{$endc+goto_column!}"if)bufsubstr!i$keys$aput)go_down_1!}#for$keys(sort_fun*array_sort&=index(end_line)goto_line&down_1!{#eol .@'newline!}#!if)push_spot!{!0"=i!}!{!i!n!!{$endc+goto_column!}"if)bufsubstr!i$keys$aput)go_down_1!}#for$keys(sort_fun*array_sort&=index(end_line)goto_line&down_1!{#eol .@'newljed-0.97.12/lib/ispell.slc000064400000000000003000000027330604364522000150370ustar00rootsys00000000000000.@!(![$ibuf#buf$file'letters'num_win'old_buf!]![$word#cmd!p$word#num!n(new_word!]1"/tmp/jed_ispell"-make_tmp_file%=file("a-zA-Z"(=letters+" *ispell*"%=ibuf'whatbuf$=buf'letters*skip_chars'letters+bskip_chars)push_mark)push_mark%POINT"=n'letters .@*skip_chars%POINT!n"==!{!0(pop_mark!0(pop_mark&return!}"if)bufsubstr%=word."ispell -a > "$file&strcat+pipe_region$ibuf&setbuf,erase_buffer$file+insert_file#pop$file+delete_file#pop#bob"64/looking_at_char!{)push_mark#eol!1(go_right*del_region!}"if"42 .@/looking_at_char"43/looking_at_char"or!{)"Correct"'message$ibuf+bury_buffer&return!}"if"35/looking_at_char!{$ibuf+bury_buffer*"No clue."'message&return!}"if#del$trim#eol$trim#bol#":"%ffind!{&":\t "*skip_chars)push_mark#bol*del_region!}"if&"(0) " .@&insert!1"=n!{#" "%ffind!}!{!1'go_left"44/looking_at_char!{#del!}!{!1(go_right!}$else$trim'newline"40+insert_char!n&string&insert"41+insert_char3insert_single_space#++n!}%while#bob(nwindows(=num_win#buf'pop2buf$ibuf/pop2buf_whatbuf(=old_buf!{'old_buf .@&sw2buf#buf'pop2buf'num_win!1"==!{)onewindow!}"if$ibuf+bury_buffer!}+ERROR_BLOCK!08set_buffer_modified_flag="Enter choice. (^G to abort)"#"0"+Null_String)read_mini$=num#"("#num&strcat#")"&strcat$=num#num'fsearch!{#" "%ffind#pop$trim)push_mark#eol$trim .@)bufsubstr)=new_word!08set_buffer_modified_flag'old_buf&sw2buf#buf'pop2buf'letters+bskip_chars)push_mark'letters*skip_chars*del_region(new_word&insert!}!{'old_buf&sw2buf#buf'pop2buf!}$else'num_win!1"==!{)onewindow!}"if$ibuf+bury_buffer!)&ispell !{'old_buf .@&sw2buf#buf'pop2buf'num_jed-0.97.12/lib/info.slc000064400000000000003000000277730604364522100145160ustar00rootsys00000000000000.@![2Info_This_Filename!]+Null_String3=Info_This_Filename![1Info_This_Filedir!]+Null_String2=Info_This_Filedir!(![$file!]%=file![$exts#ext!n!]+".Z,.z,.gz"%=exts!0"=n!{$exts!n"44/extract_element$=ext#ext&strlen!}!{!1$file#ext&strcat+file_status"==!{ .@%break!}"if#++n!}%while#ext!)2info_is_compressed!(![$file!]%=file![!n#dir'dirfile"df&df_low!]![$cext!]+Null_String%=cext!0"=n!{1Info_This_Filedir$file&dircat/expand_filename(=dirfile!1'dirfile+file_status"==!{%break!}"if.Info_Directory!n"44 .@/extract_element$=dir#dir$file&dircat/expand_filename#=df"df'".info"&strcat(=dirfile!1'dirfile+file_status"==!{%break!}"if'dirfile2info_is_compressed%=cext$cext&strlen!{%break!}"if#dir$file&strlow&dircat/expand_filename'=df_low&df_low'".info"&strcat .@(=dirfile!1'dirfile+file_status"==!{%break!}"if'dirfile2info_is_compressed%=cext$cext&strlen!{%break!}"if&df_low&".inf"&strcat(=dirfile!1'dirfile+file_status"==!{%break!}"if'dirfile2info_is_compressed%=cext$cext&strlen!{%break!}"if"df(=dirfile!1 .@'dirfile+file_status"==!{%break!}"if'dirfile2info_is_compressed%=cext$cext&strlen!{%break!}"if&df_low(=dirfile!1'dirfile+file_status"==!{%break!}"if'dirfile2info_is_compressed%=cext$cext&strlen!{%break!}"if#dir&strlen!{7"Info file not found: "$file .@&strcat%error!}#!if#++n!}'forever'dirfile.parse_filename#pop2=Info_This_Filedir$cext'dirfile!)3info_make_file_name!(![$file!]%=file!['dirfile%flags#buf#dir!]![#ext!]$file3info_make_file_name(=dirfile$=ext("*Info*"&setbuf!0,set_readonly%widen .@,erase_buffer#ext&strlen!{."zcat -f %s%s"'dirfile#ext!2'Sprintf-run_shell_cmd!}!{'dirfile+insert_file!}$else#pop#bob'dirfile3=Info_This_Filename!1,set_readonly!08set_buffer_modified_flag&"Info"!1'setmode)"Infomap"*use_keymap .@V" Jed Info: %f (%m%n) Press '?' for help. (%p)"!0/set_status_line+getbuf_info&=flags$=buf$=dir#pop2Info_This_Filename0extract_filename#dir#buf%flags+setbuf_info!).info_find_file!(!)9info_find_node_split_file![6Info_Split_File_Buffer!] .@+Null_String7=Info_Split_File_Buffer![3Info_Split_Filename!]+Null_String4=Info_Split_Filename!(![#dir!]$=dir![$mark#pnt*search_fun!]&"\x1F"%=mark#dir!0!>!{(&fsearch+=search_fun!}!{(&bsearch+=search_fun!}$else)push_mark!{$mark*search_fun#not!{!1 .@(pop_mark!0&return!}"if$bolp!{%break!}"if%POINT$=pnt#bol,"\x01-\x1E "*skip_chars!1(go_right%POINT#pnt!-$=pnt#pnt!1"==$eolp"12/looking_at_char"or#and!{%break!}"if#dir!0!>!{#eol!}!{#bol!}$else!}'forever!0(pop_mark!1&return!)2info_search_marker!(![ .@(the_node!])=the_node![$node#len#fnd!]!0,=CASE_SEARCH("Node: "(the_node&strcat%=node$node&strlen$=len%widen#bob!{!12info_search_marker!{6Info_Split_File_Buffer&strlen!{4"Marker not found. "$node&strcat%error!}#!if6Info_Split_File_Buffer&setbuf .@(the_node9info_find_node_split_file&return!}#!if)go_down_1$node%ffind!{#len(go_right$eolp"44/looking_at_char!9/looking_at_char"or"or!{%break!}"if!}"if#eol!}'forever)push_mark!12info_search_marker!{'go_up_1!}!{#eob!}$else&narrow#bob!) .@8info_find_node_this_file!(![$node!]%=node![#tag&tagpos#pos'pos_len'tag_len#buf$file!]!["re!])" *Info*"$=buf#buf'bufferp#buf&setbuf!{("*Info*"&insbuf!}#!if%widen$node,"\\^$[]*.+?""920str_quote_string$=tag("Node: "#tag&strcat$=tag#eob#tag .@6"[\t \x7F]\\d+[ \t]*$"&strcat#=re"re*re_bsearch!{/"tag not found"%error!}#!if#eol%" \t"+bskip_chars)push_mark%"0-9"+bskip_chars)bufsubstr'=tagpos&tagpos&strlen(=tag_len#bob+"Indirect:"+bol_fsearch#pop)push_mark!12info_search_marker!{#eob!}#!if&narrow .@#bob!{&down_1!{%break!}#!if$": "%ffind!{%break!}#!if!2(go_right)push_mark#eol)bufsubstr$=pos#pos&strlen(=pos_len'tag_len'pos_len!>!{(continue!}"if'tag_len'pos_len!"zcat -f %s%s | grep -ci '%s'"%ifile#ext#str!3'Sprintf-run_shell_cmd#pop#bob#"0"*looking_at!{'whatbuf&delbuf6Info_Split_File_Buffer&setbuf(continue!}"if6Info_Split_File_Buffer&setbuf!}!{%ifile#str!1+search_file!{ .@6Info_Split_File_Buffer&setbuf(continue!}#!if!}$else$file.info_find_file#str'fsearch#pop+info_narrow)this_file3Info_Split_Filename)this_line2info_push_position&return!}%while%widen)this_file.info_find_file)this_line)goto_line#eol+info_narrow%wline .@(recenter'err_str%error!)+info_search!(![%colon&colons$note#err$item$node#ref!]#":"&=colon$"::"'=colons'"*Note"%=note6"No cross references."$=err)push_spot$note'fsearch!{$note'bsearch!{(pop_spot#err%error!}#!if!}#!if(pop_spot."Follow *Note" .@+Null_String+Null_String)read_mini$=ref)push_spot#bob!{$note'fsearch!{(pop_spot0"Bad reference."%error!}#!if!5(go_right'" \t\n"*skip_chars#ref*looking_at!{%break!}"if!}'forever)push_mark(pop_spot!1(pop_mark)push_spot%colon'fsearch!{(pop_spot .@/"Corrupt File?"%error!}#!if&colons*looking_at!{)push_mark(pop_spot)bufsubstr%=node!}!{!1(go_right*skip_white$eolp!{!1(go_right*skip_white!}"if)push_mark"40/looking_at_char!{"41$char%ffind#pop!}"if="\d032-\d043\d045\d047-\d255"*skip_chars#" " .@+bskip_chars)bufsubstr%=node(pop_spot!}$else$node.info_find_node!)5info_follow_reference!(![$node!]+Null_String%=node![%colon&colons!]$"::"'=colons#":"&=colon![!n!])LAST_CHAR"=n!n"49!"or!{$beep&return!}"if"48#-=n!1.info_find_menu!{!n!}!{$"* " .@+bol_fsearch!{$beep&return!}#!if%colon%ffind!{#--n!}!{#eol!}$else!}%while&colons*looking_at!{)push_mark#bol!2(go_right!}!{!1(go_right*skip_white)push_mark"40/looking_at_char!{"41$char%ffind#pop!}"if="\d032-\d043\d045\d047-\d255"*skip_chars#" " .@+bskip_chars!}$else)bufsubstr.info_find_node!)0info_menu_number!(,"(info)help".info_find_node!)-info_tutorial!()info_mode![!f!]*"exit_jed""=f!f#"q",local_setkey!f#"Q",local_setkey!)+info_reader 9!!{!1%right"=r+LAST_SEARCH'fsearch!{&return!}"if!r'go_left!}!{+LAST_SEARCH'bsearch!{&return!}"if!}$else,"Not Found."%error!)+most_find_n!("-10=Most_Search_Dir/search_backward!)+most_find_b!(!1 .@0=Most_Search_Dir.search_forward!)+most_find_f![,Most_Min_Arg0Most_Current_Arg!]!(![#arg!]$=arg#arg-=Most_Min_Arg#arg1=Most_Current_Arg#arg)MAIN_ARGC"!=!{#arg0command_line_arg)find_file#pop!}"if)most_mode0"most_next_file"$":N"(Most_Map)definekey .@*"exit_jed"#"q"(Most_Map)definekey*"exit_jed"#"Q"(Most_Map)definekey0"most_exit_most"$":Q"(Most_Map)definekeyn"Most Mode: SPC- next screen, DEL- prev screen, Q Quit, :n next file, :Q edit"5=help_for_help_string!)(run_most!(![!f$file#dir!]!1$=dir!{#dir .@2+=Most_Current_Arg0Most_Current_Arg)MAIN_ARGC"==!{,Most_Min_Arg1=Most_Current_Arg!}"if0Most_Current_Arg,Most_Min_Arg!&1"8Shell_Last_Shell_Command!1'Sprintf)shell_cmd#bob#msg&"done"&strcat%flush!) .@,do_shell_cmd!(![#dir#buf!])"*shell*"$=buf#buf(keymap_p!{#buf+make_keymap-"shell_input"$"^M"#buf)definekey!}#!if+getbuf_info#pop#pop$=dir#pop#dir2change_default_dir!{2"Unable to chdir!"%error!}"if#buf'pop2buf#buf*use_keymap,"\n(%s)\n%s"#dir .@,Shell_Prompt!2'Sprintf&insert+getbuf_info%0x100!|$0xA3!~!&+setbuf_info!)%shell!(![#cmd!]$=cmd![$argv#dir#buf$flag#pwd!]%"pwd"$=pwd![$cmd1!]#cmd%" \t"+strcompress%=cmd1+getbuf_info%=flag$=buf$=dir#pop#cmd!0"32/extract_element%=argv$argv!{#pwd$case!: .@$argv!}!{%"dir"$case!:#cmd$argv("ls -Al"+str_replace#pop!}!{'"clear"$case!:,erase_buffer#pwd!}!{&"exit"$case!:!08set_buffer_modified_flag#buf&delbuf+Null_String!}!{$"cd"$case!:$cmd1!1"32/extract_element%=argv$argv&strlen!{$"~/"%=argv!}#!if$argv .@/expand_filename%=argv$argv2change_default_dir!{4"Unable to chdir!\n"&insert!}!{+Null_String$argv#buf$flag+setbuf_info!}$else#pwd!}!{%"jed"$case#"e"$argv$case"or!:$cmd1!1"32/extract_element%=argv$argv&strlen!{#dir$argv&dircat/expand_filename)find_file .@#pop!}"if+Null_String!}!{#pop#cmd!}&switch!)-shell_builtin!(![#cmd#dir#tmp!]#bol,Shell_Prompt*skip_chars*skip_white)push_mark#eol)bufsubstr$=cmd#eob#bol,Shell_Prompt*skip_chars*skip_white#cmd*looking_at!{#cmd&insert!}#!if#eol'newline!0&update#cmd .@&strlen!{#cmd-shell_builtin$=cmd#cmd&strlen!{!0&update&return!}#!if+getbuf_info#pop#pop$=dir#pop#dir2change_default_dir!{2"Unable to chdir!"%error!}"if#cmd%"pwd"&strcmp!{+"(%s) 2>&1"#cmd!1'Sprintf)shell_cmd!}"if,"\n(%s)\n%s"#dir,Shell_Prompt!2'Sprintf .@&insert!}!{$bolp!{'newline!}#!if,Shell_Prompt&insert!}$else!08set_buffer_modified_flag!)+shell_input t*skip_chars*skip_white)push_mark#eol)bufsubstr$=cmd#eob#bol,Shell_Prompt*skip_chars*skip_white#cmd*looking_at!{#cmd&insert!}#!if#eol'newline!0&update#cmd .@&strlen!{#cmd-shell_builtin$=cmd#cmd&strlen!{!0&update&return!}#!if+getbuf_info#pop#pop$=dir#pop#dir2change_default_dir!{2"Unable to chdir!"%error!}"if#cmd%"pwd"&strcmp!{+"(%s) 2>&1"#cmd!1'Sprintf)shell_cmd!}"if,"\n(%s)\n%s"#dir,Shell_Prompt!2'Sprintf .@&insert!}!{$bolp!{'newline!}#!if,Shell_Prompt&insertjed-0.97.12/lib/dcl.slc000064400000000000003000000032470604364522100143130ustar00rootsys00000000000000.@!(![$goal!]!3%=goal)push_spot!{$up_1!}!{#eol$trim.bol_skip_white"36/looking_at_char!{&"$\t "*skip_chars"33/looking_at_char!{+what_column%=goal%break!}#!if!}!{"33/looking_at_char!{)push_spot$up_1#eol$bolp#not#and!{$trim!1'go_left"45/looking_at_char!{ .@(pop_spot+what_column%=goal%break!}#!if!}"if(pop_spot!}#!if!}$else!}%while!{&"then"*looking_at!{!2&+=goal!1!}!{!0!}$else!}!{&"else"*looking_at!{!2&+=goal!1!}!{!0!}$else!}&orelse#pop(pop_spot#bol&"$\t "*skip_chars!{&"else"*looking_at!{!2&-=goal!1!}!{!0 .@!}$else!}!{'"endif"*looking_at!{!2&-=goal!1!}!{!0!}$else!}&orelse#pop$goal!1!>!{$goal!}!{!3!}$else!)+dcl_get_ind!(![$goal!])push_spot+dcl_get_ind%=goal)push_spot$up_1!{#eol$trim$bolp!{!1'go_left"45/looking_at_char!{!2&+=goal!}"if!}#!if!}"if(pop_spot .@#bol&"\t $"*skip_chars"33/looking_at_char!{%"\t "+bskip_chars$trim$goal+what_column!-*whitespace!}#!if(pop_spot*skip_white!)*dcl_indent!(![$cont!p!]!0%=cont$bobp$bolp"36/looking_at_char#and"or!{&"$ \n"&insert!1$left#pop&return!}"if$trim)push_spot .@)push_spot#bol"36/looking_at_char#not$up_1#and!{$bolp#eol$trim!1'go_left)what_char"45"!=%=cont!}"if(pop_spot$cont!{%POINT"=p+"sys$input"%bfind!{!9%right#pop"58)what_char"==!{!1%right#pop!}"if%POINT!p"==%=cont!}"if!p&=POINT!}#!if$bolp!{!1$left#pop"45 .@/looking_at_char!{!1%=cont!}"if!}#!if(pop_spot'newline$cont!{"36+insert_char!}#!if*dcl_indent!)+dcl_newline*"DCL_Mode"*is_defined!{![(DCL_Mode!]%"DCL")=DCL_Mode(DCL_Mode+make_keymap-"dcl_newline"$"^M"(DCL_Mode)definekey4"newline_and_indent"&"^[^M" .@(DCL_Mode)definekey,"dcl_indent"$"^I"(DCL_Mode)definekey1"self_insert_cmd"$"\""(DCL_Mode)definekey1"self_insert_cmd"#"'"(DCL_Mode)definekey!}#!if!(%"DCL"*use_keymap%"dcl"!4'setmode!)(dcl_mode #pop!}"if%POINT!p"==%=cont!}"if!p&=POINT!}#!if$bolp!{!1$left#pop"45 .@/looking_at_char!{!1%=cont!}"if!}#!if(pop_spot'newline$cont!{"36+insert_char!}#!if*dcl_indent!)+dcl_newline*"DCL_Mode"*is_defined!{![(DCL_Mode!]%"DCL")=DCL_Mode(DCL_Mode+make_keymap-"dcl_newline"$"^M"(DCL_Mode)definekey4"newline_and_indent"&"^[^M" .@(DCL_Mode)definekey,"dcl_jed-0.97.12/lib/fortran.slc000064400000000000003000000131540604364522100152220ustar00rootsys00000000000000.@7"Fortran_Continue_Char"*is_defined!{![5Fortran_Continue_Char!]#"&"6=Fortran_Continue_Char!}#!if8"Fortran_Comment_String"*is_defined!{![6Fortran_Comment_String!]$"C "7=Fortran_Comment_String!}#!if7"Fortran_Indent_Amount"*is_defined!{![ .@5Fortran_Indent_Amount!]!26=Fortran_Indent_Amount!}#!if!(#bol("0-9 \t"*skip_chars5Fortran_Continue_Char*looking_at!{!1(go_right!}"if*skip_white!)2fortran_skip_label!(![#col!]!7$=col![#cse!]+CASE_SEARCH$=cse!0,=CASE_SEARCH)push_spot!{$up_1!}!{ .@.bol_skip_white$eolp5Fortran_Continue_Char*looking_at"or!{(continue!}"if2fortran_skip_label+what_column$=col#col!1"==!{(continue!}"if%"do "*looking_at&"else"*looking_at"or!{5Fortran_Indent_Amount%+=col!}!{%"if "*looking_at%"if("*looking_at"or!{&"then" .@%ffind!{5Fortran_Indent_Amount%+=col!}"if!}"if!}$else%break!}%while(pop_spot)push_spot2fortran_skip_label%"end"*looking_at*"continue"*looking_at&"else"*looking_at"or"or!{5Fortran_Indent_Amount%-=col!}"if#col!7!=!{#bol$trim3insert_single_space!}"if$goal4fortran_tough_indent!}!{5Fortran_Continue_Char$case!:#bol$trim'" "&insert$goal .@4fortran_tough_indent!}!{#pop$bolp#not$eolp"or!:#bol$trim&--goal$goal-insert_spaces!}&switch(pop_spot*skip_white!).fortran_indent!(#bol(" \t0-9"*skip_chars$bolp$eolp#not#and!)2fortran_is_comment!(![!p$cont!]$bolp!{'newline&return!}"if.fortran_indent .@)push_spot+bskip_white$trim+what_column"72!>!{)push_spot.bol_skip_white$bolp!{:"Line exceeds 72 columns."'message!}#!if(pop_spot!}"if%POINT"=p)"-+*=/,("+bskip_chars!p%POINT"!=%=cont2fortran_is_comment!{!0%=cont!}"if.bol_skip_white'"data "*looking_at!{ .@!0%=cont!}"if(pop_spot'newline3insert_single_space$cont!{5Fortran_Continue_Char&insert!}"if.fortran_indent!)/fortran_newline!(/fortran_newline)push_spot.bol_skip_white5Fortran_Continue_Char*looking_at!{(pop_spot!}!{5Fortran_Continue_Char&insert .@(pop_spot.fortran_indent!1(go_right*skip_white!}$else!)8fortran_continue_newline!(!["ch#col!])LAST_CHAR+insert_char)push_spot.bol_skip_white$bolp!{(pop_spot!}!{%"0-9"*skip_chars$trim(pop_spot.fortran_indent!}$else!)6fortran_electric_label!()push_spot .@2fortran_is_comment!{#bol6Fortran_Comment_String*looking_at!{6Fortran_Comment_String&strlen$deln!}!{#del!}$else!}"if.fortran_indent(pop_spot)go_down_1!)1fortran_uncomment!(2fortran_is_comment!{)push_spot#bol6Fortran_Comment_String&insert!}#!if .@(pop_spot)go_down_1!)/fortran_comment!(![#cas!]+CASE_SEARCH$=cas!0,=CASE_SEARCH!{.bol_skip_white%POINT!{)"program"*looking_at*"function"*looking_at,"subroutine"*looking_at"or"or!{%break!}"if!}"if!}!{$up_1!}(do_while#cas,=CASE_SEARCH!) .@9fortran_beg_of_subprogram!(![#cas!]+CASE_SEARCH$=cas!0,=CASE_SEARCH!{.bol_skip_white%"end"*looking_at!{!3(go_right*skip_white$eolp!{%break!}"if!}"if!}!{&down_1!}(do_while#cas,=CASE_SEARCH!)9fortran_end_of_subprogram!(![!c!]+what_column"=c![!r!] .@+window_line"=r#bol)push_markj" 5 7 10 15 20 25 30 35 40 45 50 55 60 65 70\n"&insertl"{ }|{ | | | | | | | | | | | | | }\n"&insert!c+goto_column!r!2"<=!{!3"=r!}"if!r(recenter .@F"Press SPACE to get rid of the ruler."'message!1&update&getkey#pop#bol*del_region!c+goto_column+flush_input!r(recenter!)-fortran_ruler!(![&dirfun!]'=dirfun!{!1&dirfun!}!{#bol)"^0-9 \t"*skip_chars%POINT!{%break!}#!if!}%while!74goto_column_best_try#pop .@!);fortran_prev_next_statement!(%&down;fortran_prev_next_statement!)6fortran_next_statement!(#&up;fortran_prev_next_statement!):fortran_previous_statement."Fortran_Mode"*is_defined!{![,Fortran_Mode!])"Fortran"-=Fortran_Mode,Fortran_Mode+make_keymap .@1"fortran_newline"$"^M",Fortran_Mode)definekey-"indent_line"$"\t",Fortran_Mode)definekey1"fortran_comment"%"^[;",Fortran_Mode)definekey3"fortran_uncomment"%"^[:",Fortran_Mode)definekey:"fortran_continue_newline"&"^[^M",Fortran_Mode)definekey .@1"self_insert_cmd"#"'",Fortran_Mode)definekey1"self_insert_cmd"$"\"",Fortran_Mode)definekey;"fortran_beg_of_subprogram"&"^[^A",Fortran_Mode)definekey;"fortran_end_of_subprogram"&"^[^E",Fortran_Mode)definekey/"fortran_ruler"&"^C^R",Fortran_Mode .@)definekey8"fortran_next_statement"&"^C^N",Fortran_Mode)definekey<"fortran_previous_statement"&"^C^P",Fortran_Mode)definekey!0!9!1!{#=$18"fortran_electric_label""$1&string,Fortran_Mode)definekey!}$_for!}#!if)"FORTRAN"#=$1"$13create_syntax_table#"!"""" .@"37"$1-define_syntax$"(["$")]""40"$1-define_syntax"34"34"$1-define_syntax"39"39"$1-define_syntax,"0-9a-zA-Z_"#119"$1-define_syntax+"-+0-9eEdD""48"$1-define_syntax$",.""44"$1-define_syntax"68"35"$1-define_syntax'"-+/*=""43"$1-define_syntax"$1!1!2!| .@0set_syntax_flags"$1*"dogoifto"!2/define_keywords#pop"$1%"end"!3/define_keywords#pop"$1N"calldataelseexitgotoopenreadrealsavestopthen"!4/define_keywords#pop"$1O"blockcloseenddoendifentrypauseprintwhilewrite"!5/define_keywords#pop"$1 .@F"commondoubleformatrecordreturnrewind"!6/define_keywords#pop"$1S"complexendfileincludeinquireintegerlogicalprogram"!7/define_keywords#pop"$1B"continueexternalfunctionimplicit"!8/define_keywords#pop"$1 .@a"backspacecharacterdimensionintrinsicparameterprecisionstructure"!9/define_keywords#pop"$1,"subroutine""10/define_keywords#pop"$1-"equivalence""11/define_keywords#pop!(,Fortran_Mode*use_keymap,Fortran_Mode#0x4$0x10!|'setmode)"FORTRAN" .@0use_syntax_table-"indent_hook"0"fortran_indent"/set_buffer_hook."fortran_hook"(runhooks!),fortran_mode wind"!6/define_keywords#pop"$1S"complexendfileincludeinquireintegerlogicalprogram"!7/define_keywords#pop"$1B"continueexternalfunctionimplicit"!8/define_keywords#pop"$1 .@a"backspacecharacterdimensionintrinsicparameterprecisionstructure"!9/define_keywords#pop"$1,"subroutine""10/define_keywords#pop"$1-"equivalence""11/define_keywords#pop!(,Fortran_Mode*use_keymap,Fortran_Mode#0x4$0x10!|'setmode)"FORTRANjed-0.97.12/lib/man.slc000064400000000000003000000010300604364522100143100ustar00rootsys00000000000000.@!(![%clean!]6"Cleaning man page..."&=clean)push_spot#bob%clean%flush'"_\010"+Null_String'replace!{&"\010"'fsearch!}!{#del#del!}%while+trim_buffer(pop_spot%clean&"done"&strcat%flush!)-clean_manpage!(![$subj#buf!]0"*manual-entry*"$=buf![#msg!] .@5"Getting man page..."$=msg%"man"+Null_String+Null_String)read_mini%=subj$subj&strlen!{&return!}#!if#buf'pop2buf!0,set_readonly,erase_buffer#msg%flush5"man %s 2> /dev/null"$subj!1'Sprintf-run_shell_cmd#pop-clean_manpage#bob!08set_buffer_modified_flag .@)most_mode!1,set_readonly!)(unix_man man page..."&=clean)push_spot#bob%clean%flush'"_\010"+Null_String'replace!{&"\010"'fsearch!}!{#del#del!}%while+trim_buffer(pop_spot%clean&"done"&strcat%flush!)-clean_manpage!(![$subj#buf!]0"*manual-entry*"$=buf![#msg!] .@5"Getting man page..."$=msg%"man"+Null_String+Null_String)read_mini%=subj$subj&strlen!{&return!}#!if#buf'pop2buf!0,set_readonly,erase_buffer#msg%flush5"man %s 2> /dev/null"$subj!1'Sprintf-run_shell_cmd#pop-clean_manpage#bob!08set_buffer_modified_flag .@)most_mode!1,jed-0.97.12/lib/cal.slc000064400000000000003000000052170604364522100143070ustar00rootsys00000000000000.@!(![%month$type!]%=type&=month![#lis!m$mnth!]Q"Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"$=lis$type!0"==!{#lis%month!1!-"32/extract_element&return!}"if!{!0"=m!}!{!m"12!!{!d%month!4!*"23!+"10!/!-"=d$year .@+leap_year_p!{#++d!}"if!}"if!d!).cal_day_number!(![%month#day$year!]%=year$=day&=month![!c%delta!n!a!b!]%month#day$year.cal_day_number"=n&--year!n$year!+$year!4!/!+"=a$year#100!/!3!*"=c!0"=b!c!4#mod!{!1"=b!}"if!a!b!c!4!/!+!-!7#mod&return!) .@/cal_day_of_week!(![%month$year&indent#day!]$=day'=indent%=year&=month![%first"nm"ny#max!i$istr!m!]%month!11cal_convert_month"=m!m!1$year/cal_day_of_week&=first!m!1!+#=nm$year#=ny"nm"13"==!{"31$=max!}!{"nm!1"ny.cal_day_number!m!1$year.cal_day_number!- .@$=max!}$else(++indent#bob&indent+goto_column'" "&insert%month&insert3insert_single_space$year&string&insert&down_1!{'newline!}#!if&indent+goto_column6" S M Tu W Th F S"&insert&down_1!{'newline!}#!if%first!3!*&indent!++goto_column!{!1"=i!}!{!i .@#max"<=!}!{#++i!}!{%first!7"==!{&down_1!{#eol'newline!}#!if&indent+goto_column!0&=first!}"if!i&string%=istr$istr&strlen!1"==!{3insert_single_space!}"if#day!i"==!{)push_spot!}"if$istr&insert3insert_single_space'++first!}#for!)*make_month!(![#str!]$=str .@#str&strlow$=str#str!1#str#int$char%strup#int&strsub!)'strcaps!(![%month#day$year!t!m&nlines&wlines$obuf'default!n!]!0"=n'whatbuf%=obuf$time"=t!t!1"32/extract_element&=month!t!2"32/extract_element$=day#day&strlen!0"==!{!t!3"32/extract_element$=day!1 .@"=n!}"if#day'integer$=day!t!4!n!+"32/extract_element%=year%month#" "$year&string&strcat&strcat(=default-"Month Year:"'default+Null_String)read_mini"=t!t'strtrim"=t!t!0"32/extract_element!1!3&substr'strcaps&=month!t!1"32/extract_element'integer%=year .@%month!11cal_convert_month"=m,"*calendar*"'pop2buf!0,set_readonly,erase_buffer#--m!0!m"==!{"12"=m&--year!}"if!m!01cal_convert_month$year!0!0*make_month#++m!m"13"==!{!1"=m&++year!}"if!m!01cal_convert_month$year"25#day*make_month#++m!m"13"==!{!1"=m .@&++year!}"if!m!01cal_convert_month$year"50!0*make_month(nwindows!2"==!{#eob'"\n\t "+bskip_chars)what_line#114+window_info!-'=nlines&nlines!0!>!{&nlines!{0"enlarge_window"$call!}$loop!}!{."other_window"$call&nlines#chs!{0"enlarge_window"$call!}$loop .@."other_window"$call!}$else#bob!}"if(pop_spot#del"42+insert_char)what_char'isdigit!{#del"42+insert_char!}"if!1,set_readonly!08set_buffer_modified_flag#bob$obuf'pop2buf$time'message!)(calendar if!m!01cal_convert_month$year"25#day*make_month#++m!m"13"==!{!1"=m .@&++year!}"if!m!01cal_convert_month$year"50!0*make_month(nwindows!2"==!{#eob'"\n\t "+bskip_chars)what_line#114+window_info!-'=nlines&nlines!0!>!{&nlines!{0"enlarge_window"$call!}$loop!}!{."other_window"$call&nlines#chs!{0"enlarge_window"$call!}$loop .@."other_window"$call!}$else#bob!}"if(pop_spot#deljed-0.97.12/lib/help.slc000064400000000000003000000111200604364522100144660ustar00rootsys00000000000000.@."Jed_Doc_File"*is_defined!{![,Jed_Doc_File!]."jed_funs.hlp"2expand_jedlib_file-=Jed_Doc_File!}#!if!(![!n$cbuf!s!]1MINIBUFFER_ACTIVE!{&return!}"if*"apropos:"+Null_String+Null_String)read_mini"=s!s)slapropos"=n'whatbuf%=cbuf+"*apropos*"'pop2buf .@,erase_buffer!n!{&insert'newline!}$loop8buffer_format_in_columns#bob!08set_buffer_modified_flag$cbuf'pop2buf!)'apropos!(![#key!]$=key![!n!]#key&strlen"=n![#str!i!]!1"=i!["ch*key_string!]+Null_String+=key_string!['the_key!]!{!i!n"<=!}!{!i!1!-#key$aget .@#=ch#++i"ch!{"94$case!i!n"<=#and"ch"32!<"or!:"ch"32!!{2"Building list..."%flush!}"if$help'pop2buf!0,set_readonly,erase_buffer!n!{'=full_f!f&full_f$flen'strncmp&full_f*is_defined!1!<"or!{(continue!}"if .@#"F"&full_f&strcat,Jed_Doc_File.get_doc_string!{)push_spot&insert(pop_spot#":"%ffind!{!1(go_right0"\tC function: "&insert%POINT"=p#":"%ffind!{3"Corrupt doc file?"%error!}#!if)push_spot!1(go_right)what_char!{"86$case!:'"void "!}!{"83$case!:)"string "!} .@!{"70$case!:("float "!}!{#pop&"int "!}&switch!p&=POINT&insert(pop_spot!3$deln$" ("&insert#eol$trim(" args)"&insert!}"if!}!{&full_f2" : Undocumented."&strcat&insert!}$else#eobI"\n-----------------------------------\n"&insert!}$loop!n!1!>!{ .@7"Building list...done."'message!}"if,help_cleanup$cbuf'pop2buf!)1help_for_function!(1MINIBUFFER_ACTIVE!{&return!}"if4"Describe Function:"+Null_String+Null_String)read_mini1help_for_function!)1describe_function!(![#tmp$help!f&full_f$cbuf!] .@-" *jed-help*"$=tmp1"*function-help*"%=help'whatbuf%=cbuf![!p$flen!n!]1MINIBUFFER_ACTIVE!{&return!}"if4"Describe Variable:"+Null_String+Null_String)read_mini"=f!f&strlen%=flen,Jed_Doc_File&strlen!{>"Unable to read Jed_Doc_File!"%error!}#!if!f .@)slapropos"=n!n!1!>!{2"Building list..."%flush!}"if$help'pop2buf!0,set_readonly,erase_buffer!n!{'=full_f!f&full_f$flen'strncmp!{(continue!}"if&full_f*is_defined"-1!>!{(continue!}"if#"V"&full_f&strcat#" "&strcat,Jed_Doc_File.get_doc_string!{)push_spot .@&insert(pop_spot!}!{&full_f&insert!}$else#eol$trim+"\tvalue: "&insert&full_f$eval&string&insert#eob'newline"50!{"45+insert_char!}$loop'newline!}$loop'newline,help_cleanup$cbuf'pop2buf!)1describe_variable!(![%flags&modstr!](whatmode&=flags'=modstr .@&modstr!{&strlen#not!:)"no_mode"'=modstr!}!{*is_defined#not!:&modstr&strlow'=modstr&modstr*is_defined!{&modstr'"_mode"&strcat'=modstr!}#!if!}&switch&modstr*is_defined!{%flags!{!1"==!:+"text_mode"!}!{!2!&!:("c_mode"!}!{#pop)"no_mode"'=modstr!}&switch!} .@#!if&modstr1help_for_function!)-describe_mode!(5"Building bindings.."%flush![#map!]+what_keymap$=map![#buf!]'whatbuf$=buf![#cse!]+CASE_SEARCH$=cse!1,=CASE_SEARCH/"*KeyBindings*"'pop2buf,erase_buffer#map-dump_bindings#bob)"ESC [ A"$"UP"'replace#bob .@)"ESC [ B"&"DOWN"'replace#bob)"ESC [ C"'"RIGHT"'replace#bob)"ESC [ D"&"LEFT"'replace#bob)"ESC O P"&"GOLD"'replace#bob#cse,=CASE_SEARCH!08set_buffer_modified_flag#buf'pop2buf&"done"'message!)1describe_bindings !&!:("c_mode"!}!{#pop)"no_mode"'=modstr!}&switch!} .@#!if&modstr1help_for_function!)-describe_mode!(5"Building bindings.."%flush![#map!]+what_keymap$=map![#buf!]'whatbuf$=buf![#cse!]+CASE_SEARCH$=cse!1,=CASE_SEARCH/"*KeyBindings*"'pop2buf,erase_buffer#map-dump_bindings#bob)"ESC [ A"$"UP"'replace#bob .@)"ESC [ B"&"DOWN"'replace#bob)"ESC [ C"'"RIGHT"'replace#bob)"ESC [ D"&"LEFT"'replace#bob)"ESC O P"&"GOLD"'replace#bob#cse,=CASE_Sjed-0.97.12/lib/misc.slc000064400000000000003000000012500604364522100144740ustar00rootsys00000000000000.@!(![#tmp!]$=tmp![!n!]!0"=n![#buf!]![!t!]$time"=t#tmp$time&strcat$=tmp!{&"%s%d"#tmp!n'Sprintf$=buf#++n!}!{#buf'bufferp!}(do_while#buf!)4make_tmp_buffer_name!(![#str$file.write_function!]/=write_function%=file$=str![#ret!]"-1$=ret![#buf!]+Null_String .@4make_tmp_buffer_name$=buf![$cbuf!]'whatbuf%=cbuf#buf&setbuf#str&insert!08set_buffer_modified_flag)push_mark#bob!{,_clear_error!}+ERROR_BLOCK$file.write_function$=ret$cbuf&setbuf#buf&delbuf#ret!)5misc_do_write_to_file!(![#str$file!]%=file$=str#str .@$file6&append_region_to_file5misc_do_write_to_file!)5append_string_to_file!(![#str$file!]%=file$=str#str$file5&write_region_to_file5misc_do_write_to_file!)4write_string_to_file le.write_function!]/=write_function%=file$=str![#ret!]"-1$=ret![#buf!]+Null_String .@4make_tmp_buffer_name$=buf![$cbuf!]'whatbuf%=cbuf#buf&setbuf#str&insert!08set_buffer_modified_flag)push_mark#bob!{,_clear_error!}+ERROR_BLOCK$file.write_function$=ret$cbuf&setbuf#buf&delbuf#ret!)5misc_do_write_to_file!(![#str$file!]%=file$=str#str .@$file6&apjed-0.97.12/lib/cmisc.slc000064400000000000003000000043710604364522100146460ustar00rootsys00000000000000.@!(![!d$cbeg$cend$file$mode!]$"/*"%=cbeg$"*/"%=cend(whatmode%=mode#pop$mode!2!&!{&return!}#!if+getbuf_info#pop#pop#pop%=file$mode!8!&!{#"%"%=cbeg+Null_String%=cend!}"if#eol$cbeg%bfind!{$bolp!{!1'go_left$trim$cbeg%ffind#pop!}#!if0C_Comment_Column .@+what_column!-"=d!d!0!>!{!d*whitespace!}"if$cend%ffind!{#eol$" "&insert$cend&insert!}#!if$cbeg%bfind#pop$cbeg&strlen!1!+(go_right!}!{+what_column0C_Comment_Column"<=!{0C_Comment_Column+goto_column!}!{%" "&insert!}$else$cbeg&insert$" "&insert$cend .@&strlen!{$cend&insert!3'go_left!}"if!}$else!).c_make_comment![0Cmode_Fill_Chars!]+Null_String1=Cmode_Fill_Chars!(0Cmode_Fill_Chars&strlen!{!0&return!}"if)push_spot.bol_skip_white$"* "*looking_at!{!2(go_right*skip_white$"@ "*looking_at!{#eol!}"if$eolp .@!}!{!1!}$else(pop_spot!)/c_paragraph_sep!(![!n%dwrap!]+Null_String1=Cmode_Fill_Chars/c_paragraph_sep!{&return!}"if)push_spot)push_spot)push_spot!{/c_paragraph_sep#not!}!{$up_1!{%break!}#!if!}%while/c_paragraph_sep!{)go_down_1!}"if)push_mark(pop_spot!{ .@/c_paragraph_sep#not!}!{&down_1!{%break!}#!if!}%while/c_paragraph_sep!{'go_up_1!}"if&narrow(pop_spot#bol)push_mark*skip_white$"* "*looking_at!{!2(go_right!}"if)bufsubstr1=Cmode_Fill_Chars+what_column&=dwrap#bob!{#bol$trim$"* "*looking_at!{!2$deln!}"if .@!}!{&down_1!}(do_while%dwrap&-=WRAP2"format_paragraph"$call%dwrap&+=WRAP#bob!{0Cmode_Fill_Chars&insert!}!{&down_1!}(do_while+Null_String1=Cmode_Fill_Chars%widen(pop_spot!)2c_format_paragraph!(![$cbeg!]%"/* "%=cbeg![$cmid!]%" * "%=cmid![$cend!]%" */" .@%=cend![!c"c1$celm%extra!]!1,check_region*"exchange"$call+what_column"=c&narrow#bob!{&=extra%=celm.bol_skip_white+what_column#=c1"c1!c!>!{!c+goto_column$celm&insert$trim"c1+what_column!-%extra!+*whitespace!}!{$eolp!{!c+goto_column!}"if$celm&insert!} .@$else!}+USER_BLOCK0$cbeg!0-X_USER_BLOCK0!{&down_1!}!{$cmid!1-X_USER_BLOCK0!}%while%widen.bol_skip_white$cmid*looking_at!{!3$deln!}!{#eol!1%right!{'newline!}#!if!}$else$cend!0-X_USER_BLOCK0(pop_spot!)0c_comment_region!(#"{"+bol_bsearch!{ .@<"Top of function not found."%error!}#!if!)1c_top_of_function!($bolp#"{"*looking_at#and!{1c_top_of_function!}#!if,"goto_match"$call!)1c_end_of_function!(1c_end_of_function)push_mark."set_mark_cmd"$call#eol)go_down_17exchange_point_and_mark .@1c_top_of_function!2%go_up#bol!)/c_mark_function 0$cbeg!0-X_USER_BLOCK0!{&down_1!}!{$cmid!1-X_USER_BLOCK0!}%while%widen.bol_skip_white$cmid*looking_at!{!3$deln!}!{#eol!1%right!{'newline!}#!if!}$else$cend!0-X_USER_BLOCK0(pop_spot!)0c_comment_region!(#"{"+bol_bsearch!{ .@<"Top of function not found."%error!}#!if!jed-0.97.12/lib/tmisc.slc000064400000000000003000000011600604364522100146600ustar00rootsys00000000000000.@!(![%space#min#max!r%count!]#100&=count"32$char&=space)push_spot.bol_skip_white$eolp!{(pop_spot&return!}"if+what_column$=min#eol$trim+what_column$=max!{#max$WRAP!<%count#and!}!{!0#max&random"=r'--count!r#min!!{(pop_spot&return!}"if)push_mark2backward_paragraph)what_line!1"!=!{ .@)go_down_1!}"if&narrow#bob!{1text_justify_line&down_1!{%break!}#!if!}'forever%widen(pop_spot!)5format_paragraph_hook at_column$=min#eol$trim+what_column$=max!{#max$WRAP!<%count#and!}!{!0#max&random"=r'--count!r#min!!{(pop_spot&return!}"if)push_mark2backward_paragraph)what_line!1"!=!{ .@)go_djed-0.97.12/lib/syntax.slc000064400000000000003000000012110604364522100150640ustar00rootsys00000000000000.@!(&strcmp!0!!{)go_down_1!}!{ .@$dirn!0!!{!0%=type!}"if!}$else!}"if$type!{#bol+Null_String$type&return!}#!if .@!0+dired_point)push_mark#eol)bufsubstr%=name!0+dired_point$name$type&return!)-dired_getfile!(![$type!]!{!1+dired_point!}*EXIT_BLOCK-dired_getfile%=type#pop$type!1"!=!{&return!}"if!0,set_readonly#bol"68+insert_char#del!08set_buffer_modified_flag!1 .@,set_readonly!))dired_tag!(![$dirn!]%=dirn$dirn!0!!{!1+dired_point!}"if!)+dired_untag!(![ .@&prompt#msg+op_function!],=op_function$=msg'=prompt![$lbuf!]." *Deletions*"%=lbuf![%stack!n%fails!]+Null_String&=fails![$file!],Dired_Buffer&setbuf)push_spot#bob)_stkdepth&=stack!{)_stkdepth%stack!-!{#pop!}$loop,Dired_Buffer&sw2buf!0,set_readonly#bob .@!{#"%"+bol_fsearch!}!{"68+insert_char#del!}%while(pop_spot!08set_buffer_modified_flag!1,set_readonly!}+ERROR_BLOCK!0,set_readonly!{#"D"+bol_fsearch!}!{"37+insert_char#del-dired_getfile#pop!}%while)_stkdepth%stack!-"=n!n!{*"No tags!"%error!}#!if$lbuf .@&sw2buf,erase_buffer!n!{&insert'newline!}$loop#bob8buffer_format_in_columns&prompt*get_yes_no!1"==!{,Dired_Buffer&sw2buf#bob!{#"%"+bol_fsearch!}!{-dired_getfile#pop%=file#bol7Dired_Current_Directory$file&dircat%=file$file+op_function!{#msg$file&strcat .@%flush)push_mark)go_down_1*del_region!1'go_left!}!{%fails#" "&strcat$file&strcat&=fails"32+insert_char#del!}$else!}%while!}"if3EXECUTE_ERROR_BLOCK%fails&strlen!{3"Operation Failed:"%fails&strcat'message!}"if!)6dired_xop_tagged_files!( .@4"Delete these files"*"Deleted ",&delete_file6dired_xop_tagged_files!),dired_delete![5Dired_Move_Target_Dir!]!(![$file!]%=file![$name!]-dired_getfile#pop%=name5Dired_Move_Target_Dir$name&dircat%=name$file$name+rename_file#not!)-dired_do_move!( .@-"Move to dir"3read_file_from_mini6=Dired_Move_Target_Dir5Dired_Move_Target_Dir+file_status!2"!=!{:"Expecting directory name"%error!}"if0"Move these to "5Dired_Move_Target_Dir&strcat("Moved ".&dired_do_move6dired_xop_tagged_files!)*dired_move!(![$name .@$type!])push_spot#bob!0,set_readonly!{#"~"'fsearch!}!{-dired_getfile%=type%=name$type!1"==$name#"~"$name&strlen,string_match#and!{#bol"68+insert_char#del!}"if#eol!}%while(pop_spot!08set_buffer_modified_flag!1,set_readonly!)1dired_flag_backup!(![$oldf .@$type#len!f!n"nf"nd"od&status!]-dired_getfile%=type%=oldf$type!{&return!}#!if."Rename %s to"$oldf!1'Sprintf3read_file_from_mini"=n!n+file_status'=status&status!1"==!{;"File exists. Not renamed."%error!}!{&status!2"==!{!n$oldf&dircat"=n!}"if!}$else!n .@.parse_filename#=nf#=nd7Dired_Current_Directory$oldf&dircat"=f!f.parse_filename#pop#=od!f!n+rename_file!{3"Operation Failed!"%error!}"if!0,set_readonly"od"nd&strcmp!{#bol)push_mark#eol!1(go_right*del_region!}!{!0+dired_point)push_mark$oldf&strlen .@(go_right*del_region"nf&insert!}$else!1+dired_point!08set_buffer_modified_flag!1,set_readonly!),dired_rename!(,"Directory:"3read_file_from_mini.dired_read_dir0dired_quick_help,"dired_hook"(runhooks!)%dired!(![$name$type!]-dired_getfile%=type%=name .@7Dired_Current_Directory$name&dircat%=name$type!1"==!{$name)read_file!{6"Unable to read file."%error!}#!if'whatbuf'pop2buf!}!{$type!2"==!{$name.dired_read_dir&return!}"if!}$else!)*dired_find!(![$name$type!]-dired_getfile%=type%=name .@7Dired_Current_Directory$name&dircat%=name$type!1"==!{$name)read_file!{6"Unable to read file."%error!}#!if'whatbuf'pop2buf)most_mode!}"if!)*dired_view!(!1(go_right+LAST_SEARCH'fsearch!{!1&return!}"if/buffer_modified!{:"buffer has been modified"%error .@!}"if'whatbuf&delbuf,Dired_Buffer'pop2buf!0&return!)2dired_search_files!(![#str$name$type!],Dired_Buffer'bufferp!{8"*dired* not available."%error!}#!if,Dired_Buffer'whatbuf&strcmp!{+LAST_SEARCH&strlen!{<"No specified search string"%error!}#!if .@2dired_search_files!{&return!}"if)go_down_1!}!{/"dired_search:"+Null_String+LAST_SEARCH)read_mini$=str#str&strlen!{7"Specify search string"%error!}#!if#str2save_search_string!}$else!{-dired_getfile%=type%=name$type!1"==!{7Dired_Current_Directory$name .@&dircat%=name$name)read_file!{6"Unable to read file."%error!}#!if2dired_search_files!{'whatbuf'pop2buf&return!}"if!}"if!}!{&down_1!}(do_while!),dired_search r!}#!if,Dired_Buffer'whatbuf&strcmp!{+LAST_SEARCH&strlen!{<"No specified search string"%jed-0.97.12/lib/menu.slc000064400000000000003000000062720604364522100145160ustar00rootsys00000000000000.@!16enable_top_status_line.TOP_WINDOW_ROW!1"==!{c"Menu bar has been disabled. It must be present to use the menus."%error!}"if!(![$list!]%=list![!i!]!0"=i![#cmd!s!]+Null_String"=s!{$list!i"44/extract_element$=cmd#cmd&strlen!{%break!}#!if!i!{!s$", " .@&strcat"=s!}"if*"%s(%d)%s"!s!i#cmd!3'Sprintf"=s#++i!}'forever!s!)9menu_build_display_string!(![$list!]%=list![!i!]!0"=i!i!1!-!)0menu_list_length![-Menu_Last_Cmd!]![*Menu_Abort!]!0+=Menu_Abort!(![&s_list(cmd_list!])=cmd_list'=s_list![#cmd!i!s!n!]!0"=i .@!0"=n!{(cmd_list!n"44/extract_element&strlen!}!{#++n!}%while#--n("Menu: "&s_list9menu_build_display_string&strcat"=s!{!0+=Menu_Abort!{o"Pick a number or press Ctrl-G to abort or SPACE to go back to previous level."'message!s3set_top_status_line#pop!1 .@&update&getkey"=i!i!7"==!{*"kbd_quit"$call!}"if!i"32"==!{!1+=Menu_Abort&return!}"if"48#-=i!i!0">=!i!n"<=#and!{%break!}"if$beep+flush_input!}'forever(cmd_list!i"44/extract_element$=cmd#cmd!1!1&substr#int"64"==!{#cmd!2#cmd&strlen&substr.=Menu_Last_Cmd .@-Menu_Last_Cmd$call!}!{#cmd.=Menu_Last_Cmd#"."#cmd&strcat$eval!}$else!}!{*Menu_Abort!}(do_while!)/menu_select_cmd!(X"One window,Split Window,Other Window,Del Window,Redraw"`"@one_window,@split_window,@other_window,@delete_window,@redraw" .@/menu_select_cmd!)0menu_window_cmds!(H"Search Forward,Search Backward,Replace"L"search_forward,search_backward,replace_cmd"/menu_select_cmd!).search_replace!(9"Delete Char,Delete Word"1"del,delete_word"/menu_select_cmd!)1menu_deletion_cmd!( .@T"Deleting,Begin Region,Cut Region,Copy Region,Paste"a"menu_deletion_cmd,@set_mark_cmd,@kill_region,@copy_region,@yank"/menu_select_cmd!).menu_cut_paste!(S"Page Up,Page Down,Top,Bottom,Page Left,Page Right" .@n"@page_up,@page_down,@beg_of_buffer,@end_of_buffer,@scroll_right,@scroll_left"/menu_select_cmd!)-menu_movement!(G"C-Mode,Text-Mode,No-Mode,Fortran-Mode"B"c_mode,text_mode,no_mode,fortran"/menu_select_cmd!)1menu_buffer_modes!( .@S"Search/Replace,Movement,Cut/Paste,Undo,Formatting"e"search_replace,menu_movement,menu_cut_paste,@undo,@format_paragraph"/menu_select_cmd!)+menu_basics!(\"Kill Buffer,Switch To Buffer,List Buffers,Set buffer modes" .@_"@kill_buffer,@switch_to_buffer,list_buffers,menu_buffer_modes"/menu_select_cmd!),menu_buffers!(Q"Open File,Save to File,Save Buffers,Insert File"U"@find_file,@write_buffer,@save_buffers,@insert_file"/menu_select_cmd!)*menu_files!( .@\"Pop up help,Browse Documentation,Show Key,Where is Command"A"help,info_mode,showkey,where_is"/menu_select_cmd!))menu_help!(U"compose mail,send mail,ispell,shell command,suspend"N"mail,send,ispell,do_shell_cmd,@sys_spawn_cmd"/menu_select_cmd!) .@)menu_misc!(![!n#key#len$next$nlen!]!{6Global_Top_Status_Line3set_top_status_line#pop!}+ERROR_BLOCKJ"File,Edit,Buffers,Windows,Help,Misc,Exit"t"menu_files,menu_basics,menu_buffers,menu_window_cmds,menu_help,menu_misc,@exit_jed"/menu_select_cmd .@3EXECUTE_ERROR_BLOCK.MESSAGE_BUFFER&strlen!{!0&update"20-input_pending#pop!}"if*Menu_Abort!{&return!}"if-Menu_Last_Cmd)which_key"=n!n!{$=key#--n#key&strlen$=len!n!{%=next$next&strlen%=nlen$nlen#len!"compile_parse_error_function"*is_defined!{![!{*evalbuffer!}"if'whatbuf&delbuf"$1&setbuf"$3!0"<=!{Q"Compiler type not in database file compile.dat!"%error!}"if!}#!if!(![$cbuf$obuf!]0"*shell-output*"%=obuf![$line .@$file!]1MINIBUFFER_ACTIVE!{&return!}"if$obuf/pop2buf_whatbuf%=cbuf%markp!{!0(pop_mark!}"if#eol$eobp!{1"No more errors!"'message!}"if!{#eol$eobp#not!}!{#bol4compile_parse_regexp*re_fsearch!{!10regexp_nth_match%=file!20regexp_nth_match%=line$line&strlen .@!{&return!}#!if'"Line "$line&strcat'message#bol."set_mark_cmd"$call#eol$file)find_file#pop'whatbuf%=cbuf$line'integer)goto_line.bol_skip_white$obuf&sw2buf%break!}"if!1'go_down!}%while!1'go_down$cbuf'pop2buf!)4compile_parse_errors!(![!b!]'whatbuf"=b .@."save_buffers"$call,do_shell_cmd#bob!b'pop2buf4compile_parse_errors!)'compile!(![#buf!]0"*shell-output*"$=buf#buf'bufferp!{2"Did you compile?"%flush&return!}#!if#buf'pop2buf!2%go_up4compile_parse_errors!)6compile_previous_error p_nth_match%=line$line&strlen .@!{&return!}jed-0.97.12/lib/ctags.slc000064400000000000003000000017600604364522100146500ustar00rootsys00000000000000.@*"Tag_File"*is_defined!{B". [Tag_File] \"tags\" =Tag_File"$eval!}#!if!(![#tag#str$cbuf$tbuf$file!]$=tag'whatbuf%=cbuf)" *tags*"%=tbuf![#dir$cbuf!]'whatbuf%=cbuf$tbuf'bufferp$tbuf&setbuf!{(Tag_File+insert_file!0!!{*del_region!c*whitespace!}!{!0(pop_mark!}$else!}%while!)5untab_convert_to_tabs!(!0,check_region&narrow#bob"-1"-1/prefix_argument"!=!{5untab_convert_to_tabs!}!{!{ .@$"\t"'fsearch!}!{#TAB*skip_white+what_column%"\t "+bskip_chars+what_column!-$trim!0$=TAB*whitespace$=TAB!}%while!}$else%widen!)%untab %error!}#!if,erase_buffer!0,set_readonly'hlpfile+insert_file!0"<=!{#err%error!}"if$file#dir .@&hlpbuf%flags+setbuf_info#bobjed-0.97.12/lib/tabs.slc000064400000000000003000000020320604364522200144720ustar00rootsys00000000000000.@+"Tab_Stops"*is_defined!{![)Tab_Stops!]#105"20!1,create_array*=Tab_Stops!0"19!1!{#=$1"$1!8!*!1!+"$1)Tab_Stops$aput!}$_for!}#!if!(![!c$goal!i!]+what_column"=c!0"19!1!{"=i!i)Tab_Stops$aget%=goal$goal!c!>!{%break!}"if!}$_for$goal!c!--insert_spaces!) .@/tab_to_tab_stop1"tab_to_tab_stop"$"^I"&setkey![,_Tabs_Buffer!],"*TabsEdit*"#=$1"$1(keymap_p!{"$1+make_keymap$"^C""$1+undefinekey8"tabs_install_tab_stops"&"^C^C""$1)definekey!}#!if!(![$tbuf!i!]'whatbuf-=_Tabs_Buffer,"*TabsEdit*"%=tbuf$tbuf&sw2buf .@,erase_buffer!0$=TAB$tbuf*use_keymap!0"19!1!{"=i!i)Tab_Stops$aget+goto_column#"T"&insert!}$_for'newline!1"13!1!{"=i"10!i!*+goto_column!i&string&insert!}$_for'newline"13!{,"1234567890"&insert!}$loopQ"\nTo install changes, type control-c control-c." .@&insert#bob!08set_buffer_modified_flag!1-set_overwrite!).edit_tab_stops!(![!i!]#bob!0"19!1!{"=i*skip_white$eolp!{%break!}"if+what_column!i)Tab_Stops$aput!1(go_right!}$_for!i"19!1!{"=i!0!i)Tab_Stops$aput!}$_for!08set_buffer_modified_flag'whatbuf&delbuf .@,_Tabs_Buffer&sw2buf!)6tabs_install_tab_stops "19!1!{"=i!i)Tab_Stops$aget+goto_column#"T"&insert!}$_for'newline!1"13!1!{"=i"10!i!*+goto_column!i&string&insert!}$_for'newline"13!{,"1234567890"&insert!}$loopQ"\nTo install changes, type control-c control-c." .@&insert#bob!08set_buffer_modified_flag!1-set_overwrite!).edit_tab_stops!(![!i!]#bob!0"19!1!{"=i*skip_white$eolp!{%break!}"if+what_column!i)Tab_Stops$aput!1(go_right!}$_for!i"19!1!{"=i!0!i)Tab_Stops$aput!}$_for!08set_buffer_modified_flag'whatbuf&delbuf .@,_Tabs_Buffer&sw2bufjed-0.97.12/lib/rot13.slc000064400000000000003000000004160604364522200145150ustar00rootsys00000000000000.@!(![!i!j!]!0#255!1!{"=i!i!i/TRANSLATE_ARRAY$aput!}$_for"65"77!1!{"=i!i"13!+!i/TRANSLATE_ARRAY$aput!i$0x20!|"=i!i"13!+!i/TRANSLATE_ARRAY$aput!}$_for"78"90!1!{"=i!i"13!-!i/TRANSLATE_ARRAY$aput!i$0x20!|"=i!i"13!-!i/TRANSLATE_ARRAY$aput!}$_for .@0translate_region!)%rot13 d_flag!1-set_overwrite!).edit_tab_stops!(![!i!]#bob!0"19!1!{"=i*skip_white$eolp!{%break!}"if+what_column!i)Tab_Stops$aput!1(go_right!}$_for!i"19!1!{"=i!0!i)Tab_Stops$aput!}$_for!08set_buffer_modified_flag'whatbuf&delbuf .@,_Tabs_Buffer&sw2bufjed-0.97.12/lib/isearch.slc000064400000000000003000000042650604364522200151710ustar00rootsys00000000000000.@![3Isearch_Last_Search!]+Null_String4=Isearch_Last_Search![4Isearch_Forward_Char!]"195=Isearch_Forward_Char![5Isearch_Backward_Char!]"186=Isearch_Backward_Char1"isearch_forward")which_key!{#dup&strlen!2"==!{#dup#int"94"==!{!2!1&substr#int#dup"83"!=!{ .@"64!-5=Isearch_Forward_Char!}!{#pop!}$else!}!{#pop!}$else!}!{#pop!}$else!}$loop2"isearch_backward")which_key!{#dup&strlen!2"==!{#dup#int"94"==!{!2!1&substr#int#dup"81"!=!{"64!-6=Isearch_Backward_Char!}!{#pop!}$else!}!{#pop!}$else!}!{#pop!}$else!}$loop .@!(![#dir!]$=dir#dir!0!>!{)"Search:"!}!{3"Search Backwards:"!}$else3Isearch_Last_Search+Null_String)read_mini4=Isearch_Last_Search3Isearch_Last_Search#dir!0!>!{'fsearch!}!{'bsearch!}$else!{,"Not Found."%error!}#!if!)5isearch_simple_search!(![#str!] .@$=str![!n!]#str&strlen"=n!n!{#str!1!n!1!-&substr$=str!}"if#str!)+isearch_del!(![#dir!]$=dir![&prompt!]![#str!]+Null_String$=str![!c!m#int%first!])push_mark!1"=m!1&=first!0!{!m!{#pop!0(pop_mark!}$loop!}+ERROR_BLOCK!{*"Isearch "#dir!1"==!{+"forward: "!} .@!{,"Backward: "!}$else&strcat'=prompt&prompt#str&strcat'message)push_spot#dir!0!>#str*looking_at#and!{#str&strlen%right#pop!}"if!0&update(pop_spot&getkey"=c!c!{"27"==%first#and!:#dir5isearch_simple_search%break!}!{"27"==!:%break!}!{"13"==!c .@4Isearch_Forward_Char"=="or!:)push_mark#++m!0#dir!1"==!{!1%right#pop!}"if#str&strlen!{3Isearch_Last_Search$=str!}#!if!}!{5Isearch_Backward_Char"==!:#dir!0!>!{!m!{#pop!0(pop_mark!}$loop"-1$=dir)push_mark!0!1"=m!}!{)push_mark#++m!0#str&strlen!{ .@3Isearch_Last_Search$=str!}#!if!}$else!}!{#127"==!:!m!1"=="or!{#str+isearch_del$=str!}"if!m!{#--m!1(pop_mark!}"if!m!{!1"=m)push_mark!0!}#!if(continue!}!{"32!#and .@#str*looking_at!c"32">=#and!{(continue!}"if#str#dir!1"==!{'fsearch!}!{'bsearch!}$else!{#str-" not found."&strcat%flush$beep"10-input_pending#pop!c"13"==!{!1$left#pop!}!{#str+isearch_del$=str!0(pop_mark#--m#pop!}$else!}#!if!}'forever .@3EXECUTE_ERROR_BLOCK#str&strlen!{#str4=Isearch_Last_Search!}"if#dir!1"==!{#str&strlen%right#pop!}"if'"Done."'message!{!0-input_pending!}!{&getkey#pop!}%while!)+isearch_dir!(!1+isearch_dir!)/isearch_forward!("-1+isearch_dir!)0isearch_backward witch!0&=first#dir!0!#and .@#str*looking_at!c"32">=#and!{(continue!}"if#str#dir!1"==!{'fsearch!}!{'bsearch!}$else!{#str-" not found."&strcat%flush$beep"10-input_pending#pop!c"13"==!{!1$left#pop!}!{#str+isearch_del$=str!0(pop_mark#--m#pop!}$else!}#!if!}'forever .@3EXECUTE_ERROR_BLOCK#str&strlen!{#str4=Isearch_Last_Search!}"jed-0.97.12/lib/binary.slc000064400000000000003000000006350604364522200150340ustar00rootsys00000000000000.@!(![$file%bytes#len#pos!]3"Find Binary File:"3read_file_from_mini%=file!{!04set_file_translation!}+ERROR_BLOCK!14set_file_translation$file)find_file#pop3EXECUTE_ERROR_BLOCK'no_mode!1-set_overwrite+getbuf_info%0x200!|+setbuf_info+count_chars&=bytes .@%bytes4".*of \\([0-9]+\\)$"!1,string_match!{!10string_match_nth$=len$=pos%bytes#pos!1!+#len&substr&=bytes%bytes)" bytes."&strcat'message!}"if!)0find_binary_file mark#--m#pop!}$else!}#!if!}'forever .@3EXECUTE_ERROR_BLOCK#str&strlen!{#str4=Isearch_Last_Search!}"jed-0.97.12/lib/ltx-math.slc000064400000000000003000000057470604364522200153170ustar00rootsys00000000000000.@![6latex_math_mode_toggle!]!07=latex_math_mode_toggle![0Latex_Math_Array!]#115#128!1,create_array1=Latex_Math_Array!0#127!1!{#=$1+Null_String"$10Latex_Math_Array$aput!}$_for'"alpha""970Latex_Math_Array$aput&"beta""980Latex_Math_Array$aput+"mathcal{}" .@"990Latex_Math_Array$aput'"delta"#1000Latex_Math_Array$aput)"epsilon"#1010Latex_Math_Array$aput%"phi"#1020Latex_Math_Array$aput'"gamma"#1030Latex_Math_Array$aput%"eta"#1040Latex_Math_Array$aput'"kappa"#1070Latex_Math_Array$aput("lambda"#108 .@0Latex_Math_Array$aput$"mu"#1090Latex_Math_Array$aput'"nabla""780Latex_Math_Array$aput$"nu"#1100Latex_Math_Array$aput'"omega"#1110Latex_Math_Array$aput$"pi"#1120Latex_Math_Array$aput'"theta"#1130Latex_Math_Array$aput%"rho"#1140Latex_Math_Array$aput .@'"sigma"#1150Latex_Math_Array$aput%"tau"#1160Latex_Math_Array$aput)"upsilon"#1170Latex_Math_Array$aput%"chi"#1200Latex_Math_Array$aput%"psi"#1210Latex_Math_Array$aput&"zeta"#1220Latex_Math_Array$aput'"Delta""680Latex_Math_Array$aput'"Gamma""71 .@0Latex_Math_Array$aput'"Theta""810Latex_Math_Array$aput("Lambda""760Latex_Math_Array$aput%"Psi""890Latex_Math_Array$aput$"Pi""800Latex_Math_Array$aput'"Sigma""830Latex_Math_Array$aput)"Upsilon""850Latex_Math_Array$aput%"Phi""860Latex_Math_Array$aput .@'"Omega""790Latex_Math_Array$aput,"rightarrow"!60Latex_Math_Array$aput+"leftarrow"!20Latex_Math_Array$aput)"uparrow""160Latex_Math_Array$aput+"downarrow""140Latex_Math_Array$aput%"leq""600Latex_Math_Array$aput%"geq""620Latex_Math_Array$aput'"tilde" .@#1260Latex_Math_Array$aput'"infty""730Latex_Math_Array$aput("forall""650Latex_Math_Array$aput("exists""690Latex_Math_Array$aput%"neg""330Latex_Math_Array$aput$"in"#1050Latex_Math_Array$aput'"times""420Latex_Math_Array$aput&"cdot""460Latex_Math_Array .@$aput("subset"#1230Latex_Math_Array$aput("supset"#1250Latex_Math_Array$aput*"subseteq""910Latex_Math_Array$aput*"supseteq""930Latex_Math_Array$aput%"not""470Latex_Math_Array$aput*"setminus""920Latex_Math_Array$aput%"cup""430Latex_Math_Array$aput%"cap" .@"450Latex_Math_Array$aput'"wedge""380Latex_Math_Array$aput%"vee"#1240Latex_Math_Array$aput("langle""400Latex_Math_Array$aput("rangle""410Latex_Math_Array$aput%"exp"!50Latex_Math_Array$aput%"sin""190Latex_Math_Array$aput%"cos"!30Latex_Math_Array$aput .@%"sup""300Latex_Math_Array$aput%"inf""310Latex_Math_Array$aput%"det"!40Latex_Math_Array$aput%"lim""120Latex_Math_Array$aput%"tan""200Latex_Math_Array$aput%"hat""940Latex_Math_Array$aput%"vee"#1180Latex_Math_Array$aput*"emptyset""480Latex_Math_Array .@$aput!(![#arg!]"-1/prefix_argument$=arg!["ch!]&getkey#=ch"ch#127!>!{&return!}"if#arg"-1"!=!{"36+insert_char!}"if"92+insert_char"ch0Latex_Math_Array$aget&insert"ch"99"==!{#arg"-1"!=!{"36+insert_char!2'go_left!}!{!1'go_left!}$else!}!{#arg"-1"!=!{"36 .@+insert_char!}"if!}$else!)1latex_insert_math!(6latex_math_mode_toggle!0"==!{3"latex_insert_math"#"`",local_setkey,"LaTeX Math"#0x1$0x20!|'setmode!17=latex_math_mode_toggle!}!{/"quoted_insert"#"`",local_setkey'"LaTeX"#0x1$0x20!|'setmode!0 .@7=latex_math_mode_toggle!}$else!)/latex_math_mode gument$=arg!["ch!]&getkeyjed-0.97.12/lib/latex209.slc000064400000000000003000000024300604364522200151130ustar00rootsys00000000000000.@!(![%class!]-LaTeX_classes7"Enter Document Class:";LaTeX_default_documentstyle+Null_String#1154read_with_completion&=class!['options!]6"Enter Style Options:"5LaTeX_default_options+Null_String)read_mini(=options'options&strlen!{&"[%s]"'options!1 .@'Sprintf(=options!}"if#bob="\\\\documentstyle%s{%s}\n\n"'options%class!2'Sprintf&insertL"\\begin{document}\n\n\n\n\\end{document}\n"&insert!3%go_up%class("letter"&strcmp!{8latex_insert_letter_args!}#!if!)9latex_insert_document_env!(![#pre$post#arg!] .@$=arg%=post$=pre#arg"-1"==!{#pre$post+tex_embrace!}!{)push_spot%"{\\"'bsearch#pop+delete_word#del#pre&insert#"}"'fsearch#pop#del!2'go_left%"\\/"*looking_at!{#del!}!{!2(go_right!}$else$post&insert(pop_spot!}$else!)/tex_insert_font!()push_spot%"{\\" .@'bsearch#pop+delete_word#del#"}"'fsearch#pop#del!2'go_left%"\\/"*looking_at!{!2$deln!}"if(pop_spot!)/tex_delete_font!(![#arg!]"-1/prefix_argument$=arg&getkey!{!2$case!:("{\\bf "#"}"#arg/tex_insert_font!}!{!3$case!:("{\\sc "#"}"#arg/tex_insert_font!}!{ .@!5$case!:("{\\em "&"\\/}"#arg/tex_insert_font!}!{!9$case!:("{\\it "&"\\/}"#arg/tex_insert_font!}!{"18$case!:("{\\rm "#"}"#arg/tex_insert_font!}!{"19$case!:("{\\sl "&"\\/}"#arg/tex_insert_font!}!{"20$case!:("{\\tt "#"}"#arg/tex_insert_font!}!{!4$case!: .@/tex_delete_font!}!{#pop!}&switch!)(tex_font pop#del!2'go_left%"\\/"*looking_at!{!2$deln!}"if(pop_spot!)/tex_delete_font!(![#arg!]"-1/prefix_argument$=arg&getkey!{!2$case!:("{\\bf "#"}"#arg/tex_insert_font!}!{!3$case!:("{\\sc "#"}"#arg/tex_insert_font!}!{ .@!5$case!:("{\\em "&jed-0.97.12/lib/latex.slc000064400000000000003000000403220604364522200146620ustar00rootsys00000000000000.@+"tex_ldots"*is_defined!{("texcom"(evalfile#pop!}#!if="LaTeX_default_documentclass"*is_defined!{![;LaTeX_default_documentclass!])"article"<=LaTeX_default_documentclass!}#!if7"LaTeX_default_options"*is_defined!{![5LaTeX_default_options!]+Null_String .@6=LaTeX_default_options!}#!if7"LaTeX_default_section"*is_defined!{![5LaTeX_default_section!])"section"6=LaTeX_default_section!}#!if;"LaTeX_default_environment"*is_defined!{![9LaTeX_default_environment!])"itemize":=LaTeX_default_environment!}#!if .@<"LaTeX_default_figure_label"*is_defined!{![:LaTeX_default_figure_label!]&"fig:";=LaTeX_default_figure_label!}#!if;"LaTeX_default_table_label"*is_defined!{![9LaTeX_default_table_label!]&"tab:":=LaTeX_default_table_label!}#!if .@="LaTeX_default_section_label"*is_defined!{![;LaTeX_default_section_label!]&"sec:"<=LaTeX_default_section_label!}#!if="LaTeX_default_documentstyle"*is_defined!{![;LaTeX_default_documentstyle!]+Null_String<=LaTeX_default_documentstyle!}#!if![ .@-LaTeX_classes!]C"book,article,letter,slides,report".=LaTeX_classes![.LaTeX_sections!]f"part,chapter,section,subsection,subsubsection,paragraph,subparagraph"/=LaTeX_sections![2LaTeX_environments!] .@"document,enumerate,itemize,list,trivlist,picture,tabular,array,eqnarray,equation,minipage,description,figure,table,thebibliography,theindex,sloppypar,tabbing,verbatim,flushright,flushleft,displaymath,math,quote,quotation,"3=LaTeX_environments .@2LaTeX_environmentsA"abstract,center,titlepage,verse"&strcat3=LaTeX_environments1"latex_math_mode"*"ltx-math"(autoload,"LaTeX-Mode"(keymap_p!{,"LaTeX-Mode"+make_keymap2"tex_insert_quote"$"\"","LaTeX-Mode")definekey2"tex_insert_quote"#"'","LaTeX-Mode" .@)definekey2"tex_blink_dollar"#"$","LaTeX-Mode")definekey+"tex_ldots"#".","LaTeX-Mode")definekey3"tex_insert_braces"%"^C{","LaTeX-Mode")definekey*"tex_font"&"^C^F","LaTeX-Mode")definekey3"latex_environment"&"^C^E","LaTeX-Mode")definekey/"latex_section" .@&"^C^S","LaTeX-Mode")definekey9"latex_close_environment"%"^C]","LaTeX-Mode")definekey3"latex_insert_item"&"^C^J","LaTeX-Mode")definekey4"tex_comment_region"%"^C;","LaTeX-Mode")definekey6"tex_uncomment_region"%"^C:","LaTeX-Mode")definekey .@7"tex_comment_paragraph"%"^C%","LaTeX-Mode")definekey6"tex_mark_environment"%"^C.","LaTeX-Mode")definekey2"tex_mark_section"%"^C*","LaTeX-Mode")definekey1"latex_math_mode"%"^C~","LaTeX-Mode")definekey2"tex_insert_macro"&"^C^M","LaTeX-Mode")definekey .@5"tex_complete_symbol"&"^[^I","LaTeX-Mode")definekey,"latex_help"%"^Ci","LaTeX-Mode")definekey8"latex_indent_next_line"$"^J","LaTeX-Mode")definekey5"latex_indent_region"("^C^Q^R","LaTeX-Mode")definekey6"latex_indent_section"("^C^Q^S","LaTeX-Mode" .@)definekey:"latex_indent_environment"("^C^Q^E","LaTeX-Mode")definekey!}#!if!(![#pre$post!]%=post$=pre%markp!{!1,check_region!1(pop_mark#pre&insert(pop_spot$post&insert!}!{!1'go_left"32/looking_at_char!9/looking_at_char"10/looking_at_char"or"or!{!1 .@(go_right#pre&insert)push_spot$post&insert(pop_spot!}!{!1(go_right)push_spot*bskip_word!1'go_left"92/looking_at_char!{!1(go_right!}#!if#pre&insert)skip_word$post&insert(pop_spot!}$else!}$else!)+tex_embrace!(![#pre$post#arg!]$=arg%=post$=pre#arg"-1"== .@!{#pre$post+tex_embrace!}!{)push_spot$"\\"'bsearch#pop("\\text"*looking_at("\\emph"*looking_at"or!{+delete_word#del#pre&insert!}"if(pop_spot!}$else!)/tex_insert_font!()push_spot$"\\"'bsearch#pop("\\text"*looking_at("\\emph"*looking_at"or!{+delete_word .@#del#"}"'fsearch#pop#del!}"if(pop_spot!)/tex_delete_font!(![#arg!]"-1/prefix_argument$=arg![%brace!]#"}"&=brace&getkey!{!2$case!:+"\\textbf{"!}!{!3$case!:+"\\textsc{"!}!{!5$case!:)"\\emph{"!}!{!6$case!:+"\\textsf{"!}!{!9$case!:+"\\textit{"!}!{"13$case .@!:+"\\textmd{"!}!{"14$case!:/"\\textnormal{"!}!{"18$case!:+"\\textrm{"!}!{"19$case!:+"\\textsl{"!}!{"20$case!:+"\\texttt{"!}!{"21$case!:+"\\textup{"!}!{!4$case!:/tex_delete_font&return!}!{#pop&return!}&switch%brace#arg/tex_insert_font!)(tex_font!(![ .@#env!]+Null_String$=env![%count!])push_mark#bob&narrow#eob!{*"\\begin{"'bsearch!}!{!1&=count)push_spot!7(go_right)push_mark#"}"%ffind#pop)bufsubstr$=env)push_spot!{/"\\\\begin{%s}"#env!1'Sprintf'fsearch&down_1#and!}!{'++count!}%while(pop_spot!{ .@-"\\\\end{%s}"#env!1'Sprintf'fsearch&down_1#and!}!{'--count!}%while(pop_spot%count!0!>!{%break!}"if!}%while%widen#env&return!)/tex_current_env!(![#pre$post!]%=post$=pre%markp!{!0,check_region7exchange_point_and_mark#pre&insert!1(pop_mark$post&insert!} .@!{#pre&insert+indent_line#eol)push_spot'newline$post&insert(pop_spot!}$else!)1latex_embrace_env!(![#env!]$=env1"\\\\begin{%s}\n"#env!1'Sprintf/"\\\\end{%s}\n"#env!1'Sprintf1latex_embrace_env!)7latex_insert_simple_env!(![#env!]$=env![&braces!]#" " .@'=braces#env-"description"&strcmp!{$"[]"'=braces!}#!if;"\\\\begin{%s}\n\\\\item%s"#env&braces!2'Sprintf/"\\\\end{%s}\n"#env!1'Sprintf1latex_embrace_env#"]"%bfind#pop!)5latex_insert_item_env!(![#env!]$=env![(position!]1"Enter Position:"+Null_String .@("[htbp]")read_mini)=position![&format!]/"Enter Format:"+Null_String+Null_String)read_mini'=format7"\\\\begin{%s}%s{%s}\n"#env(position&format!3'Sprintf/"\\\\end{%s}\n"#env!1'Sprintf1latex_embrace_env!)6latex_insert_array_env!(![#env!]$=env![%label!] .@."Enter Label:"+Null_String+Null_String)read_mini&=label%label+Null_String&strcmp!{1"\\\\label{%s}\n"%label!1'Sprintf&=label!}"if3"\\\\begin{%s}\n%s"#env%label!2'Sprintf/"\\\\end{%s}\n"#env!1'Sprintf1latex_embrace_env!)6latex_insert_label_env!(![#env .@!]$=env![,label_prefix!]+Null_String-=label_prefix#env!{("figure"$case!::LaTeX_default_figure_label-=label_prefix!}!{)"figure*"$case!::LaTeX_default_figure_label-=label_prefix!}!{'"table"$case!:9LaTeX_default_table_label-=label_prefix!}!{("table*" .@$case!:9LaTeX_default_table_label-=label_prefix!}!{#pop!}&switch![(position!]1"Enter Position:"+Null_String("[htbp]")read_mini)=position!['caption!]0"Enter Caption:"+Null_String+Null_String)read_mini(=caption'caption+Null_String&strcmp!{ .@3"\\\\caption{%s}\n"'caption!1'Sprintf(=caption!}"if![%label!]."Enter Label:"+Null_String,label_prefix)read_mini&=label%label,label_prefix&strcmp!{1"\\\\label{%s}\n"%label!1'Sprintf&=label!}!{+Null_String&=label!}$else3"\\\\begin{%s}%s\n"#env(position .@!2'Sprintf3"%s%s\\\\end{%s}\n"'caption%label#env!3'Sprintf1latex_embrace_env)push_spot#env("figure"&strcmp#env)"figure*"&strcmp#and!{6"Center Figure? (y/n)"%flush&getkey#121"==!{'newline("center"7latex_insert_simple_env(pop_spot!2'go_down)push_spot!} .@"if!}#!if(pop_spot!)7latex_insert_figure_env!(![#env!]$=env![%label!]6"Enter Default Label:"+Null_String+Null_String)read_mini&=label@"\\\\begin{%s}{%s}{}\n\\\\item "#env%label!2'Sprintf/"\\\\end{%s}\n"#env!1'Sprintf1latex_embrace_env!) .@5latex_insert_list_env!(![#env!]$=env![(position!]1"Enter Position:"+Null_String("[htbp]")read_mini)=position![%width!]."Enter Width:"%"4cm"+Null_String)read_mini&=width7"\\\\begin{%s}%s{%s}\n"#env(position%width!3'Sprintf/"\\\\end{%s}\n"#env!1 .@'Sprintf1latex_embrace_env!)9latex_insert_minipage_env!(![#env!]$=env![%width!]."Enter Width:"+Null_String+Null_String)read_mini&=width![&height!]/"Enter Height:"+Null_String+Null_String)read_mini'=height![(x_offset!]1"Enter X Offset:"#"0"+Null_String .@)read_mini)=x_offset![(y_offset!]1"Enter Y Offset:"#"0"+Null_String)read_mini)=y_offset![&offset!]+Null_String'=offset(x_offset#"0"&strcmp(y_offset#"0"&strcmp"or!{)"(%s,%s)"(x_offset(y_offset!2'Sprintf'=offset!}"if:"\\\\begin{%s}(%s,%s)%s\n"#env%width .@&height&offset!4'Sprintf/"\\\\end{%s}\n"#env!1'Sprintf1latex_embrace_env!)8latex_insert_picture_env!(![#env!]$=env![%label!]:"Enter Label for Bibitem:"+Null_String$"99")read_mini&=label![&blabel!]A"Enter (Optional) Bibitem Label:"+Null_String .@+Null_String)read_mini'=blabel&blabel&strlen!{&"[%s]"&blabel!1'Sprintf'=blabel!}"if![#key!],"Enter Key:"+Null_String+Null_String)read_mini$=keyF"\\\\begin{%s}{%s}\n\\\\bibitem%s{%s}"#env%label&blabel#key!4'Sprintf/"\\\\end{%s}\n"#env!1'Sprintf .@1latex_embrace_env!)4latex_insert_bib_env!()push_spot~"\\address{}\n\\signature{}\n\\begin{letter}{}\n\\opening{}\n\n\n\n\\closing{}\n\\end{letter}"&insert(pop_spot#"}"%ffind#pop!)8latex_insert_letter_args!(![%class!]-LaTeX_classes .@7"Enter Document Class:";LaTeX_default_documentclass+Null_String#1154read_with_completion&=class!['options!]6"Enter Class Options:"5LaTeX_default_options+Null_String)read_mini(=options'options&strlen!{&"[%s]"'options!1'Sprintf(=options!}"if#bob .@="\\\\documentclass%s{%s}\n\n"'options%class!2'Sprintf&insertL"\\begin{document}\n\n\n\n\\end{document}\n"&insert!3%go_up%class("letter"&strcmp!{8latex_insert_letter_args!}#!if!)9latex_insert_document_env!(![#env!]$=env)push_spot![&oldenv!] .@/tex_current_env'=oldenv&oldenv&strlen!{#"{"%ffind#pop!1(go_right)push_mark#"}"%ffind#pop*del_region#env&insert(pop_spot)push_spot-"\\\\end{%s}"&oldenv!1'Sprintf'fsearch!{#"{"%ffind#pop!1(go_right)push_mark#"}"%ffind#pop*del_region#env&insert!}"if!} .@"if(pop_spot!)0latex_change_env!(#dup!{*"document"$case!:#pop9latex_insert_document_env!}!{+"enumerate"$case!:5latex_insert_item_env!}!{)"itemize"$case!:5latex_insert_item_env!}!{&"list"$case!:5latex_insert_list_env!}!{*"trivlist"$case!: .@5latex_insert_item_env!}!{)"picture"$case!:8latex_insert_picture_env!}!{)"tabular"$case!:6latex_insert_array_env!}!{*"tabular*"$case!:6latex_insert_array_env!}!{'"array"$case!:6latex_insert_array_env!}!{*"eqnarray"$case!:6latex_insert_label_env!}!{ .@+"eqnarray*"$case!:6latex_insert_label_env!}!{*"equation"$case!:6latex_insert_label_env!}!{*"minipage"$case!:9latex_insert_minipage_env!}!{-"description"$case!:5latex_insert_item_env!}!{("figure"$case!:7latex_insert_figure_env!}!{)"figure*"$case!: .@7latex_insert_figure_env!}!{'"table"$case!:7latex_insert_figure_env!}!{("table*"$case!:7latex_insert_figure_env!}!{1"thebibliography"$case!:4latex_insert_bib_env!}!{*"theindex"$case!:5latex_insert_item_env!}!{#pop7latex_insert_simple_env!}&switch!) .@0latex_insert_env!(![#arg!]"-1/prefix_argument$=arg![#env!]9LaTeX_default_environment$=env$bobp!{*"document"$=env!}"if2LaTeX_environments9"Enter Environment Name:"#env+Null_String#1154read_with_completion$=env#env*"document"&strcmp!{#env .@:=LaTeX_default_environment!}"if#arg"-1"==!{#env0latex_insert_env!}!{#env0latex_change_env!}$else!)1latex_environment!()push_spot![#env!]/tex_current_env$=env(pop_spot#env&strlen!{/"\\\\end{%s}\n"#env!1'Sprintf&insert!}"if!)7latex_close_environment!( .@.LaTeX_sections6"Enter Section Level:"5LaTeX_default_section+Null_String#1154read_with_completion6=LaTeX_default_section![$name!]5"Enter Section Name:"+Null_String+Null_String)read_mini%=name![%label!]3"Enter Label Name:"+Null_String .@;LaTeX_default_section_label)read_mini&=label#eol'newline."\\\\%s{%s}\n"5LaTeX_default_section$name!2'Sprintf&insert%label;LaTeX_default_section_label&strcmp!{1"\\\\label{%s}\n"%label!1'Sprintf&insert!}"if'newline!)-latex_section!($"% "&insert!{!2 .@$down!2"==!}!{'go_up_1#bol$"% "&insert!}%while!)2tex_insert_comment!()push_spot&narrow#bob)go_down_1!{'go_up_1#bol$"% "*looking_at!{!2$deln!}"if!}!{!2$down!2"==!}(do_while%widen(pop_spot!)4tex_uncomment_region!("-1"-1/prefix_argument"==!{)push_spot .@&narrow#bob2tex_insert_comment%widen(pop_spot!}!{4tex_uncomment_region!}$else!)2tex_comment_region!()push_spot"-1"-1/prefix_argument"==!{1forward_paragraph5tex_isolate_paragraph(pop_spot#bob)go_down_12tex_insert_comment%widen!}!{)push_spot'go_up_1#bol .@!{$"% "*looking_at!}!{!2$deln'go_up_1#bol!}%while(pop_spot!{$"% "*looking_at!}!{!2$deln)go_down_1!}%while!}$else(pop_spot!)5tex_comment_paragraph!()push_spot![#env!]/tex_current_env$=env#env&strlen!{2smart_set_mark_cmd(pop_spot-"\\\\end{%s}"#env!1 .@'Sprintf'fsearch!{)go_down_1!}!{#eob!}$else!}!{(pop_spot!}$else!)4tex_mark_environment!(3"\\\\[sub]*section"*re_bsearch!{#bol2smart_set_mark_cmd)go_down_13"\\\\[sub]*section"*re_fsearch!{'go_up_1!}!{#eob!}$else!}!{+"\\chapter"'bsearch!{#bol .@2smart_set_mark_cmd)go_down_1+"\\chapter"'fsearch!{'go_up_1!}!{#eob!}$else!}"if!}$else!)0tex_mark_section![2LaTeX_indent_level!]!23=LaTeX_indent_level![1LaTeX_item_indent!]!22=LaTeX_item_indent![6TeX_brace_indent_level!]!27=TeX_brace_indent_level!( .@)push_spot.bol_skip_white+what_column(pop_spot!1!-!)3current_indentation!(![%count!]!0&=count)push_spot#bol!{#"{"%ffind!}!{6TeX_brace_indent_level'+=count!1(go_right!}%while#bol!{#"}"%ffind!}!{6TeX_brace_indent_level'-=count!1(go_right!}%while .@(pop_spot%count!)4tex_brace_count_line!(!);latex_indent_calculate_last!(#bol$bobp!{!0&return!}"if!{'go_up_1.bol_skip_white!}!{"37/looking_at_char$bobp#not#and!}(do_while3"\\begin{document}"*looking_at!{3current_indentation&return!}"if0"\\end{verbatim" .@*looking_at!{2"\\begin{verbatim"'bsearch!{;latex_indent_calculate_last&return!}!{!0&return!}$else!}"if*"\\begin{"*looking_at("\\left"*looking_at"or!{2LaTeX_indent_level!}!{("\\item"*looking_at+"\\bibitem"*looking_at"or!{1LaTeX_item_indent!}!{!0!}$else .@!}$else4tex_brace_count_line!+3current_indentation!+!);latex_indent_calculate_last!(.bol_skip_white2"\\begin{verbatim"*looking_at0"\\end{verbatim"*looking_at"or!{!0&return!}"if("\\end{"*looking_at)"\\right"*looking_at"or!{;latex_indent_calculate_last .@2LaTeX_indent_level!-&return!}"if("\\item"*looking_at+"\\bibitem"*looking_at"or!{;latex_indent_calculate_last1LaTeX_item_indent!-&return!}"if;latex_indent_calculate_last!)6latex_indent_calculate!()push_spot6latex_indent_calculate(pop_spot)push_spot .@#bol$trim*whitespace(pop_spot!)1latex_indent_line!()push_spot)go_down_11latex_indent_line(pop_spot!)6latex_indent_next_line!(!1,check_region!1(pop_mark)push_mark1latex_indent_line(pop_spot)push_spot'go_up_1&narrow#bob!{&down_1!}!{1latex_indent_line!} .@%while%widen(pop_spot!)3latex_indent_region!(0tex_mark_section3latex_indent_region!)4latex_indent_section!(4tex_mark_environment)go_down_13latex_indent_region!)8latex_indent_environment!($"{}"&insert!1'go_left!)1tex_insert_braces!(#eol+"\n\\item " .@&insert!)1latex_insert_item!(![&symbol*completion!]![)insertbuf!]'whatbuf*=insertbuf![)searchbuf!],"*ltx-comp*"*=searchbuf)searchbuf'bufferp!{)searchbuf&sw2buf."ltx-comp.dat"2expand_jedlib_file+insert_file#bob!08set_buffer_modified_flag)insertbuf .@&sw2buf)searchbuf+bury_buffer!}#!if)push_spot)push_mark*bskip_word)bufsubstr'=symbol)searchbuf&setbuf("\\\\%s"&symbol!1'Sprintf+bol_fsearch!{#bob!}#!if("\\\\%s"&symbol!1'Sprintf+bol_fsearch!{!1(go_right&symbol&strlen(go_right)push_mark#eol)bufsubstr .@+=completion!}!{)insertbuf&setbuf!0(pop_mark(pop_spot5"No completion found"%error!}$else)insertbuf&setbuf(pop_spot)push_spot)push_mark#" "%ffind!{#eol!}#!if*del_region*completion&insert(pop_spot!)3tex_complete_symbol![,LaTeX_macros!]+Null_String .@-=LaTeX_macros!(![)insertbuf!]'whatbuf*=insertbuf![)searchbuf!],"*ltx-comp*"*=searchbuf,LaTeX_macros+Null_String&strcmp!{)searchbuf'bufferp!{)searchbuf&sw2buf."ltx-comp.dat"2expand_jedlib_file+insert_file!08set_buffer_modified_flag)insertbuf&sw2buf .@)searchbuf+bury_buffer!}#!if)searchbuf&sw2buf#bob!{$"\\"+bol_fsearch!}!{!1(go_right)push_mark#eol,LaTeX_macros)bufsubstr&strcat#","&strcat-=LaTeX_macros!}%while)insertbuf&sw2buf!}#!if![%macro!],LaTeX_macros3"Enter Macro Name:"+Null_String+Null_String .@#1154read_with_completion&=macro("\\\\%s"%macro!1'Sprintf&insert!1'go_left#125/looking_at_char!{!1(go_right!}#!if!)0tex_insert_macro![*LaTeX_help!]+Null_String+=LaTeX_help!(![)info_file!])"(latex)"*=info_file![)latex_buf!]'whatbuf*=latex_buf![ .@(info_buf!]("*Info*")=info_buf)push_spot![%guess!]/tex_current_env&=guess(pop_spot%guess*"document"&strcmp!{+Null_String&=guess!}#!if!{)latex_buf&sw2buf!}+ERROR_BLOCK*LaTeX_help+Null_String&strcmp!{4"%sList of Commands")info_file!1'Sprintf .@.info_find_node(info_buf&sw2buf)"* Menu:"'fsearch!{)go_down_1!}"if!{$"* "+bol_fsearch!}!{!2(go_right)push_mark#eol!2'go_left*LaTeX_help)bufsubstr&strcat#","&strcat+=LaTeX_help!}%while!}#!if)latex_buf&sw2buf)push_spot"92/looking_at_char!{!1'go_left"92 .@/looking_at_char!{(pop_spot)push_spot*bskip_word!1'go_left!}#!if!}#!if"92/looking_at_char!{)push_mark)skip_word)bufsubstr&=guess!}"if(pop_spot*LaTeX_help9"Describe LaTeX command:"%guess+Null_String#1154read_with_completion&=guess&"%s%s")info_file .@%guess!2'Sprintf.info_find_node(info_buf'pop2buf!)*latex_help!(![#tex!]%"TeX"$=tex,"LaTeX-Mode"*use_keymap'"LaTeX"#0x1$0x20!|'setmode)"par_sep"9"tex_paragraph_separator"/set_buffer_hook+"wrap_hook"/"tex_wrap_hook"/set_buffer_hook-"indent_hook" .@3"latex_indent_line"/set_buffer_hook1"latex_mode_hook"(runhooks*"TeX-Mode"0use_syntax_table#tex.abbrev_table_p!{#tex0use_abbrev_table!}"if!)*latex_mode;LaTeX_default_documentstyle+Null_String&strcmp!{*"latex209"(evalfile#pop!}"if ompletion&=guess&"%s%s")info_file .@%guess!2'Sprintf.info_find_node(info_buf'pop2buf!)*latex_help!(![#tex!]%"TeX"$=tex,"LaTeX-Mode"*use_keymap'"LaTeX"#0x1$0x20!|'setmode)"par_sep"9"tex_paragraph_separator"/set_buffer_hook+"wrap_hook"/"tex_wrap_hook"/set_buffer_hook-"indent_hook" .@3"latex_indent_line"jed-0.97.12/lib/bibtex.slc000064400000000000003000000150450604364522200150260ustar00rootsys00000000000000.@*"tex_font"*is_defined!{'"latex"(evalfile#pop!}#!if![,bib_OPT_flag!]!0-=bib_OPT_flag![*bib_indent!]"16+=bib_indent![0bibtex_item_name!]+Null_String1=bibtex_item_name!(!1-=bib_OPT_flag!)+bib_set_OPT!(!0-=bib_OPT_flag!)-bib_unset_OPT!(![(fieldstr!] .@)=fieldstr!["sl!]*bib_indent(fieldstr&strlen!-#=sl'",\n "&insert,bib_OPT_flag!{%"OPT"&insert!3$-=sl!}"if&"%s ="(fieldstr!1'Sprintf&insert"sl-insert_spaces(fieldstr'"title"&strcmp!{&"\"\""&insert!}!{*"\"\{\}\""&insert!}$else!))bib_field!()"journal" .@)bib_field!)+bib_journal!(&"year")bib_field!)(bib_year!(("volume")bib_field!)*bib_volume!(("number")bib_field!)*bib_number!('"pages")bib_field!))bib_pages!('"month")bib_field!))bib_month!(("editor")bib_field!)*bib_editor!(+"publisher")bib_field!) .@-bib_publisher!(("series")bib_field!)*bib_series!()"address")bib_field!)+bib_address!()"edition")bib_field!)+bib_edition!(."howpublished")bib_field!)0bib_howpublished!(+"booktitle")bib_field!)-bib_booktitle!(."organization")bib_field!) .@0bib_organization!(-"institution")bib_field!)/bib_institution!(("school")bib_field!)*bib_school!(&"type")bib_field!)(bib_type!()"chapter")bib_field!)+bib_chapter!(&"note")bib_field!)(bib_note!(("author")bib_field!)*bib_author!(!['itemstr*use_author!] .@+=use_author(=itemstr&"@%s{"'itemstr!1'Sprintf&insert'itemstr1=bibtex_item_name-bib_unset_OPT*use_author!{*bib_author!}"if'"title")bib_field!)(bib_item!(![(use_note!])=use_note*"location")bib_field&"isbn")bib_field*"keywords")bib_field .@2"bibtex_item_hook"(runhooks(use_note!{(bib_note!}"if("annote")bib_field)"\n}\n\n"&insert$"{,"'bsearch#pop!1(go_right!)+bib_itemend!(+bib_set_OPT*"crossref")bib_field%"key")bib_field!)0bib_cref_and_key!()"Article"!1(bib_item+bib_journal(bib_year .@0bib_cref_and_key*bib_volume*bib_number)bib_pages)bib_month!1+bib_itemend!).bibtex_Article!(&"Book"!1(bib_item-bib_publisher(bib_year0bib_cref_and_key*bib_editor*bib_volume*bib_number*bib_series+bib_address+bib_edition)bib_month!1+bib_itemend!) .@+bibtex_Book!(1"@Preamble\{\}\n"&insert!2'go_left!)/bibtex_preamble!(6"@string\{ = \"\"\}\n"&insert!7'go_left!)-bibtex_string!(-"Unpublished"!1(bib_item(bib_note0bib_cref_and_key(bib_year)bib_month!0+bib_itemend!)2bibtex_Unpublished!(,"TechReport"!1 .@(bib_item/bib_institution(bib_year0bib_cref_and_key(bib_type*bib_number+bib_address)bib_month!1+bib_itemend!)1bibtex_TechReport!(+"PhdThesis"!1(bib_item*bib_school(bib_year0bib_cref_and_key+bib_address)bib_month(bib_type!1+bib_itemend!) .@0bibtex_PhdThesis!(-"Proceedings"!0(bib_item(bib_year0bib_cref_and_key*bib_editor*bib_volume*bib_series-bib_publisher0bib_organization+bib_address)bib_month!1+bib_itemend!)2bibtex_Proceedings!(&"Misc"!0(bib_item0bib_cref_and_key*bib_author .@0bib_howpublished(bib_year)bib_month!1+bib_itemend!)+bibtex_Misc!(/"MastersThesis"!1(bib_item*bib_school(bib_year0bib_cref_and_key+bib_address)bib_month(bib_type!1+bib_itemend!)4bibtex_MastersThesis!(("Manual"!0(bib_item0bib_cref_and_key*bib_author .@0bib_organization+bib_address+bib_edition(bib_year)bib_month!1+bib_itemend!)-bibtex_Manual!(/"InProceedings"!1(bib_item0bib_cref_and_key*bib_editor*bib_volume*bib_number*bib_series)bib_pages-bib_booktitle(bib_year0bib_organization-bib_publisher .@+bib_address)bib_month!1+bib_itemend!)4bibtex_InProceedings!(."InCollection"!1(bib_item0bib_cref_and_key-bib_booktitle-bib_publisher(bib_year*bib_editor*bib_volume*bib_number*bib_series(bib_type+bib_chapter)bib_pages+bib_address+bib_edition)bib_month .@!1+bib_itemend!)3bibtex_InCollection!(("InBook"!1(bib_item+bib_chapter0bib_cref_and_key-bib_publisher(bib_year*bib_editor)bib_pages*bib_volume*bib_number*bib_series+bib_address+bib_edition(bib_type)bib_month!1+bib_itemend!)-bibtex_InBook!(![#str!] .@$=str![(thisline!])what_line)=thisline![#res!]!0$=res#bol#str'fsearch!{(thisline)what_line"==!{!1$=res!}"if!}"if#res!{(thisline)goto_line#bol!}#!if#res&return!)0SearchInThisLine![3bibtex_remove_value!]!04=bibtex_remove_value!(#bol!0 .@4=bibtex_remove_value&" OPT"0SearchInThisLine!{!1(go_right!3$deln$" ="0SearchInThisLine!{!2(go_right!3-insert_spaces!}"if!14=bibtex_remove_value&"\"\""0SearchInThisLine!{+delete_line!24=bibtex_remove_value!}"if!}"if!)0bibtex_removeOPT!(#"@"'bsearch .@#pop)go_down_1!{#125/looking_at_char!0"==!}!{0bibtex_removeOPT3bibtex_remove_value!1"==!{!1'go_down!}"if3bibtex_remove_value!{&"\"\""0SearchInThisLine!{+delete_line!}!{)go_down_1!}$else!}#!if#bol!}%while!2'go_left"44/looking_at_char!{#del!}"if#bol!3 .@'go_down!)2bibtex_clean_entry!(!['whatdir'whatstr!](=whatstr(=whatdir3"There is no %s %s"'whatdir'whatstr!2'Sprintf'message!))bibtex_no!(!['whatstr!](=whatstr&"next"'whatstr)bibtex_no!).bibtex_no_next!(!['whatstr!](=whatstr*"previous"'whatstr .@)bibtex_no!).bibtex_no_prev!(#"@"'fsearch!{#"{"'fsearch#pop!1(go_right!}!{'"entry".bibtex_no_next!}$else!)1bibtex_next_entry!(#"}"'bsearch!{#"@"'bsearch#pop#"{"'fsearch#pop!1(go_right!}!{'"entry".bibtex_no_prev!}$else!)1bibtex_prev_entry!(!2(go_right .@#"{"*looking_at!{!1(go_right!}"if!)4bibtex_go_into_field!(%" \""'fsearch!{4bibtex_go_into_field!}!{'"field".bibtex_no_next!}$else!)1bibtex_next_field!(#bol%" \""'bsearch!{4bibtex_go_into_field!}!{'"field".bibtex_no_prev!}$else!)1bibtex_prev_field![ .@*bibtexName!]("BibTeX"+=bibtexName![.bibtexModeName!]*bibtexName'"-Mode"&strcat/=bibtexModeName.bibtexModeName(keymap_p!{.bibtexModeName+make_keymap2"tex_insert_quote"$"\"".bibtexModeName)definekey2"tex_insert_quote"#"'".bibtexModeName)definekey .@2"tex_blink_dollar"#"$".bibtexModeName)definekey!}#!if!(.bibtexModeName*use_keymap*bibtexName#0x1$0x20!|'setmode)"par_sep"9"tex_paragraph_separator"/set_buffer_hook+"wrap_hook"/"tex_wrap_hook"/set_buffer_hook!0$=TAB0"bibtex_Article"%"^Ca",local_setkey .@-"bibtex_Book"%"^Cb",local_setkey4"bibtex_Unpublished"%"^Cu",local_setkey/"bibtex_string"%"^Cs",local_setkey3"bibtex_TechReport"%"^Ct",local_setkey2"bibtex_PhdThesis"%"^CT",local_setkey1"bibtex_preamble"%"^CP",local_setkey4"bibtex_Proceedings"%"^Cp" .@,local_setkey-"bibtex_Misc"%"^CM",local_setkey6"bibtex_MastersThesis"%"^Cm",local_setkey/"bibtex_Manual"&"^C^M",local_setkey6"bibtex_InProceedings"%"^CI",local_setkey5"bibtex_InCollection"%"^Ci",local_setkey/"bibtex_InBook"%"^CB",local_setkey .@2"bibtex_removeOPT"&"^C^O",local_setkey4"bibtex_clean_entry"&"^C^C",local_setkey3"bibtex_next_field"$"^N",local_setkey3"bibtex_prev_field"$"^P",local_setkey3"bibtex_next_entry"%"^[N",local_setkey3"bibtex_prev_entry"%"^[P",local_setkey*"tex_font" .@&"^C^F",local_setkey2"bibtex_mode_hook"(runhooks!)+bibtex_mode!(![$node!]'"Node:"+Null_String+Null_String)read_mini%=node$node&strlen!{&return!}#!if)info_mode-"(bibtex)top".info_find_node*"(bibtex)"$node&strcat.info_find_node!)5bibtex_info_find_node ocal_setkey .@2"bibtex_removeOPT"&"^C^O",local_setkey4"bibtex_clean_entry"&"^C^C",local_setkey3"bibtex_next_field"$"^N",local_setkey3"bibtex_prev_field"$"^P",local_setkey3"bibtex_next_entry"%"^[N",local_setkey3"bibtex_prev_entry"%"^[P",local_setkey*"tex_font" .@&"^C^F",local_setkey2"bibtex_mode_hook"(runhooks!)+bibtex_mode!(![$node!]'"Node:"+Null_String+Null_String)read_mini%=node$node&strlen!{&return!}#!if)info_mode-"(bibtex)top".info_find_node*"(bibtex)"$node&strcat.injed-0.97.12/lib/tex.slc000064400000000000003000000010530604364522200143430ustar00rootsys00000000000000.@+"tex_ldots"*is_defined!{("texcom"(evalfile#pop!}#!if*"TeX-Mode"#=$1"$1(keymap_p!{"$1+make_keymap2"tex_insert_quote"$"\"""$1)definekey2"tex_insert_quote"#"'""$1)definekey2"tex_blink_dollar"#"$""$1)definekey+"tex_ldots"#".""$1)definekey!}#!if!(![$mode .@!]%"TeX"%=mode!['texmode!]*"TeX-Mode"(=texmode'texmode*use_keymap%"TeX"#0x1$0x20!|'setmode)"par_sep"9"tex_paragraph_separator"/set_buffer_hook+"wrap_hook"/"tex_wrap_hook"/set_buffer_hook'texmode0use_syntax_table/"tex_mode_hook"(runhooks$mode .@.abbrev_table_p!{$mode0use_abbrev_table!}"if!)(tex_mode le#pop!}#!if*"TeX-Mode"#=$1"$1(keymap_p!{"$1+make_keymap2"tex_insert_quote"$"\"""$1)definekey2"tex_insert_quote"#"'""$1)definekey2"tex_blink_dollar"#"$""$1)definekey+"tex_ldots"#".""$1)definekey!}#!if!(![$mode .@!]%"TeX"%=mode!['texmode!]*"TeX-Mode"(=texmode'texmode*use_keymap%"TeX"#0x1$0x20!|'setmode)"par_sep"9"tex_paragraph_separator"/set_buffer_hook+"wrap_hook"/"tex_wrap_hook"/set_buffer_hook'texmode0use_syntax_table/"tex_mode_hook"(runhooks$mode .@.abbrev_tablejed-0.97.12/lib/srchmisc.slc000064400000000000003000000030470604364522200153630ustar00rootsys00000000000000.@!(![!n#dir!]$=dir"=n!{!0(pop_mark!}+ERROR_BLOCK)push_mark."set_mark_cmd"$call!n(go_right#dir!0!=!}!{%query .@!{#rep'pat_len'rep_fun#pop(continue!}#!if!{&prompt'message'pat_len"-10mark_next_nchars&getkey#=ch"ch#114"==!{#114+window_info!2!/(recenter!}"if!}!{"ch#114"==!}(do_while"ch!{#117$case'rep_len!0">=#and!:!1(pop_mark)push_spot$last'rep_len'rep_fun#pop .@(pop_spot"-1(=rep_len!}!{#121$case!:'rep_len"-1"!=!{!0(pop_mark!}"if)push_spot)push_mark'pat_len(go_right)bufsubstr%=last(pop_spot)push_mark#rep'pat_len'rep_fun(=rep_len!}!{#110$case!:!1(go_right!}!{"43$case!:#rep'pat_len'rep_fun#pop%break!}!{"33$case .@!:!{#rep'pat_len'rep_fun#pop!}!{#pat*search_fun!0!>!}(do_while!}!{#113$case!:%break!}!{#popm"y:replace, n:skip, !:replace all, u: undo last, +:replace then quit, q:quit"%flush"30-input_pending#pop!}&switch!}%while3EXECUTE_ERROR_BLOCK!) .@2replace_with_query!(![#fun#str#dir!]$=dir$=str$=fun!["ch#len!]!{#str#dir#fun$=len#len!0">=!}!{/EXECUTING_MACRO.DEFINING_MACRO"or!{!1&return!}"ifB"Press RET to continue searching."'message#len"-10mark_next_nchars&getkey#=ch"ch"13"!=!{"ch(ungetkey!1 .@&return!}"if#dir!0!>!{!1(go_right!}"if!}%while!0&return!)2search_maybe_again do_while!}!{#113$case!:%break!}!{#popm"y:replace, n:skip, !:replace all, u: undo last, +:replace then quit, q:quit"%flush"30-input_pending#pop!}&switch!}%while3EXECUTE_ERROR_BLOCK!) .@2replace_with_query!(![#fun#str#dir!]$=dir$=str$=fun!["ch#len!]!{#str#dir#fun$=len#len!0">=!}!{/EXECUTING_MACRO.DEFINING_MACRO"or!{!1&return!}"ifB"Press RET to continue searching."'message#len"-10mark_next_nchars&getkey#=ch"ch"13"!=!{"ch(ungetkey!1 .@&return!}"if#dir!0!>!{!1(go_right!}"ifjed-0.97.12/lib/replace.slc000064400000000000003000000012700604364522200151570ustar00rootsys00000000000000.@8"search_search_function"*is_defined!{("search"(evalfile#pop!}#!if!(![$cbuf!]'whatbuf%=cbuf![!n!]+buffer_list"=n![#buf$file%flags!]![#pat#rep!]*"Replace:"+Null_String+Null_String)read_mini$=pat#pat&strlen!{&return!}#!if/"Replace with:"+Null_String .@+Null_String)read_mini$=rep)push_spot!{$cbuf&sw2buf(pop_spot!n!{#pop!}$loop!}+ERROR_BLOCK!{!n!}!{$=buf#--n!0#buf$aget"42"==!0#buf$aget"32"=="or!{(continue!}"if#buf&sw2buf+getbuf_info&=flags#pop#pop%=file$file&strlen%flags!8!&"or!{(continue!}#!if .@)push_spot!{(pop_spot!}+ERROR_BLOCK#bob7&search_search_function#pat#rep!13&replace_do_replace2replace_with_query(pop_spot!}%while3EXECUTE_ERROR_BLOCK'"Done."'message!);replace_across_buffer_files d_mini$=pat#pat&strlen!{&return!}#!if/"Replace with:"+Null_String .@+Null_String)read_mini$=rep)push_spot!{$cbuf&sw2buf(pop_spot!n!{#pop!}$loop!}+ERROR_BLOCK!{!n!}!{$=buf#--n!0#buf$aget"42"==!0#buf$aget"32"=="or!{(continue!}"if#buf&sw2buf+getbuf_info&=flags#pop#pop%=file$file&strlen%flags!8!&"or!{(continue!}#!if .@)push_spot!{jed-0.97.12/lib/bookmark.slc000064400000000000003000000007320604364522200153530ustar00rootsys00000000000000.@,"Book_Marks"*is_defined!{![*Book_Marks!]#128"10!1,create_array+=Book_Marks!}#!if!(![!n!]2"Bookmark number:"%flush&getkey"48!-"=n!n!0!"or!{>"Number must be less than 10."%error!}"if!n!)0bkmrk_get_number!(![!n!]0bkmrk_get_number"=n .@0create_user_mark!n*Book_Marks$aput2"Bookmark %d set."!n!1'Sprintf'message!).bkmrk_set_mark!(![!n!]0bkmrk_get_number"=n![#mrk!]!n*Book_Marks$aget$=mrk#mrk0user_mark_buffer&sw2buf#mrk.goto_user_mark'"done."'message!)/bkmrk_goto_mark 8!&"or!{(continue!}#!if .@)push_spot!{jed-0.97.12/lib/mutekeys.slc000064400000000000003000000050610604364522200154140ustar00rootsys00000000000000.@!(![,wants_accent(ok_chars'maps_to!](=maps_to)=ok_chars-=wants_accent![#pos"ch!]!0'maps_to$aget#=ch,wants_accent!{"10-input_pending!{"ch$char#"-"&strcat'message!0&update!}#!if&getkey#=ch(ok_chars"ch$char)is_substr$=pos#pos!{%--pos#pos'maps_to$aget .@#=ch!}!{!0'maps_to$aget+insert_char"ch(ungetkey&return!}$else!}"if"ch+insert_char!)2mute_insert_accent![*Mute_Acute!]!0+=Mute_Acute![-Mute_ISOAcute!]!0.=Mute_ISOAcute![/Mute_Circumflex!]!00=Mute_Circumflex![*Mute_Grave!]!0+=Mute_Grave![*Mute_Tilde!]!0 .@+=Mute_Tilde![.Mute_Diaeresis!]!0/=Mute_Diaeresis![1Mute_ISODiaeresis!]!02=Mute_ISODiaeresis!(![#str!]$=str![!i!]!0+=Mute_Acute!0.=Mute_ISOAcute!00=Mute_Circumflex!0+=Mute_Grave!0+=Mute_Tilde!0/=Mute_Diaeresis!02=Mute_ISODiaeresis!0#str&strlen!1!-!1!{ .@"=i!i#str$aget!{"39$case!:0"mute_keymap_39"#"'",local_setkey!1+=Mute_Acute!}!{#180$case!:1"mute_keymap_180"'"\d180",local_setkey!1.=Mute_ISOAcute!}!{"94$case!:0"mute_keymap_94"#"^",local_setkey!10=Mute_Circumflex!}!{"96$case!:0"mute_keymap_96"#"`" .@,local_setkey!1+=Mute_Grave!}!{#126$case!:1"mute_keymap_126"#"~",local_setkey!1+=Mute_Tilde!}!{"34$case!:0"mute_keymap_34"$"\"",local_setkey!1/=Mute_Diaeresis!}!{#168$case!:1"mute_keymap_168"'"\d168",local_setkey!12=Mute_ISODiaeresis!}&switch!}$_for!) .@2mute_set_mute_keys!(![(ok_chars!]5"'AEIOUYaeiouy?!/1Cc")=ok_chars!['maps_to!]}"'\d193\d201\d205\d211\d218\d221\d225\d233\d237\d243\d250\d253\d191\d161\d191\d161\d199\d231"(=maps_to*Mute_Acute(ok_chars'maps_to2mute_insert_accent!).mute_keymap_39!(![ .@(ok_chars!]3"\d180AEIOUYaeiouy")=ok_chars!['maps_to!]c"\d180\d193\d201\d205\d211\d218\d221\d225\d233\d237\d243\d250\d253"(=maps_to-Mute_ISOAcute(ok_chars'maps_to2mute_insert_accent!)/mute_keymap_180!(![(ok_chars!]("^aeiou")=ok_chars!['maps_to!] .@<"^\d226\d234\d238\d244\d251"(=maps_to/Mute_Circumflex(ok_chars'maps_to2mute_insert_accent!).mute_keymap_94!(![(ok_chars!]-"`AEIOUaeiou")=ok_chars!['maps_to!]U"`\d192\d200\d204\d210\d217\d224\d232\d236\d242\d249"(=maps_to*Mute_Grave(ok_chars'maps_to .@2mute_insert_accent!).mute_keymap_96!(![(ok_chars!])"~NnAOao")=ok_chars!['maps_to!]A"~\d209\d241\d195\d213\d227\d245"(=maps_to*Mute_Tilde(ok_chars'maps_to2mute_insert_accent!)/mute_keymap_126!(![(ok_chars!]0"\"AEIOUaeiouys")=ok_chars!['maps_to!] .@`"\"\d196\d203\d207\d214\d220\d228\d235\d239\d246\d252\d255\d223"(=maps_to.Mute_Diaeresis(ok_chars'maps_to2mute_insert_accent!).mute_keymap_34!(![(ok_chars!]2"\d168AEIOUaeiouy")=ok_chars!['maps_to!] .@^"\d168\d196\d203\d207\d214\d220\d228\d235\d239\d246\d252\d255"(=maps_to1Mute_ISODiaeresis(ok_chars'maps_to2mute_insert_accent!)/mute_keymap_168 ]A"~\d209\d241\d195\d213\d227\d245"(=maps_to*Mute_Tilde(ok_chars'maps_to2mute_insert_accent!)/mute_keymap_126!(![(ok_chars!]0"\"AEIOUaeiouys")=ok_chars!['maps_to!] .@`"\"\d196\d203\d207\d214\d220\d228\d235\d239\d246\d252\d255\d223"(=maps_to.Mute_Diaeresis(ok_chars'maps_to2mute_insert_accent!).mute_keymap_34!(![(ok_chars!]2"\d168AEIOUaeiouy")=ok_chars!['maps_to!] .@^"\d168\d196\d203\d207\d214\d220\d228\d235\d239\d246\d252\d255"(=maps_to1Mute_ISODiaeresis(ok_chjed-0.97.12/lib/dabbrev.slc000064400000000000003000000040260604364522200151530ustar00rootsys00000000000000.@5"Dabbrev_Num_Matches"*is_defined!{![3Dabbrev_Num_Matches!]!04=Dabbrev_Num_Matches![4Dabbrev_Last_Matches!]#115"10!1,create_array5=Dabbrev_Last_Matches!}#!if!(![#str#old!]$=old$=str![!i!]#str#old&strcmp!{!1&return!}#!if!03Dabbrev_Num_Matches!1!-!1!{ .@"=i#str!i4Dabbrev_Last_Matches$aget&strcmp!{!1&return!}#!if!}$_for3Dabbrev_Num_Matches"10"==!{!0&return!}"if#str3Dabbrev_Num_Matches4Dabbrev_Last_Matches$aput5++Dabbrev_Num_Matches!0&return!):dabbrev_is_already_matched!(![#dir!]$=dir#dir!0!>!{!{#"_" .@*skip_chars/skip_word_chars!}!{"95/looking_at_char!}(do_while&return!}"if!{0bskip_word_chars$bolp!{%break!}"if!1'go_left"95/looking_at_char!{!1(go_right%break!}#!if!}'forever!)7dabbrev_skip_word_chars!(![#dir!]$=dir![*hilite_wrd)num_spots!]!0 .@*=num_spots![)num_marks!]!0*=num_marks![$ndel(complete#fun(use_call'success!]!0(=success!["ch*search_fun!]!{)num_spots!{(pop_spot!}$loop)num_marks!{!1(pop_mark!}$loop'success!{)push_mark"-17dabbrev_skip_word_chars*del_region*hilite_wrd&insert!}#!if!} .@+ERROR_BLOCK)push_mark+++num_marks)push_mark"-17dabbrev_skip_word_chars)bufsubstr+=hilite_wrd)push_mark+++num_marks*hilite_wrd&strlen%=ndel(&bsearch+=search_fun#dir!{(&fsearch+=search_fun$ndel(go_right!}"if!{*hilite_wrd*search_fun!{ .@:"No more completions for "*hilite_wrd&strcat%error!}#!if"-17dabbrev_skip_word_chars*hilite_wrd*looking_at!{#dir!{!17dabbrev_skip_word_chars!}"if(continue!}#!if)push_mark!17dabbrev_skip_word_chars)bufsubstr)=complete#dir!{"-17dabbrev_skip_word_chars!} .@#!if(complete*hilite_wrd:dabbrev_is_already_matched!{(continue!}"if)push_spot+++num_spots!1(pop_mark)push_mark(complete&insert$ndel$deln(complete&strlen%=ndel!1&update&getkey#=ch"ch(ungetkey0get_key_function$=fun#fun&strlen!{)=use_call!}"if#fun .@)"dabbrev"&strcmp!{%break!}"if![$zzzz!]0create_user_mark%=zzzz(pop_spot+--num_spots!}'forever!1(=success3EXECUTE_ERROR_BLOCK!0&update#fun&strlen!{&return!}#!if(use_call!{#fun$call!}!{#fun$eval!}$else!)2dabbrev_expand_dir!(!04=Dabbrev_Num_Matches!{ .@,_clear_error!12dabbrev_expand_dir!}+ERROR_BLOCK!02dabbrev_expand_dir!)'dabbrev if)push_spot+++num_spots!1(pop_mark)push_mark(complete&insert$ndel$deln(complete&strlen%=ndel!1&update&getkey#=ch"ch(ungetkey0get_key_function$=fun#fun&strlen!{)=use_call!}"if#fun .@)"dabbrev"&strcmp!{%break!}"if![$zzzz!]0create_user_mark%=zzzz(pop_spot+--num_spots!}'forever!1(=success3EXECUTE_ERROR_BLOCK!0&update#fun&strlen!{&return!}#!if(use_call!{#fun$call!}!{#fun$eval!}$else!)2dabbrev_expand_dir!(!04=Dabbrev_Num_Matches!{ .@,_clear_error!12dabbrev_expand_dir!}+ERROR_BLOCK!02dabbrevjed-0.97.12/lib/abbrmisc.slc000064400000000000003000000026510604364522200153320ustar00rootsys00000000000000.@+"abbrev.sl"(evalfile!(![%table$word!]%=word&=table![!n!])what_line"=n![)use_bskip!]!1*=use_bskip![#exg!]*"exchange"$=exg![&abbrev&expans!]%markp!{#exg$call!n)what_line"==#exg$call!{!0*=use_bskip!}"if!}"if)push_spot)use_bskip!{)push_mark$word .@+bskip_chars!}"if)bufsubstr'=expans(pop_spot&expans&strlen!{+"For what?"+Null_String+Null_String)read_mini'=expans&expans&strlen!{&return!}#!if!}#!if4"Enter abbrev for '"&expans#"'"!3'strncat+Null_String+Null_String)read_mini'=abbrev&abbrev&strlen!{ .@&return!}#!if%table&abbrev&expans-define_abbrev!)7define_abbrev_for_table!(![#tbl$word!]1what_abbrev_table%=word$=tbl#tbl&strlen!{("Global"$=tbl#tbl+Null_String3create_abbrev_table1what_abbrev_table%=word$=tbl!}#!if#tbl$word7define_abbrev_for_table!) .@3define_abbreviation!(![$file!]2"Save abbrevs to:"3read_file_from_mini%=file![!n%table$word!]$file0extract_filename&strlen!{$file+Abbrev_File&dircat%=file!}#!if$file0extract_filename&strlen!{/"Invalid file."%error!}#!if2list_abbrev_tables"=n!n!{ .@&return!}#!if$file)read_file#pop,erase_buffer!n!{&=table)push_spot%table1dump_abbrev_table%=word(pop_spotI"create_abbrev_table (\"%s\", \"%s\");\n"%table$word!2'Sprintf&insert'go_up_1!{&down_1$eobp#not#and!}!{3"define_abbrev (\""&insert%table&insert .@)"\",\t\""&insert)push_spot!{$"\\"%ffind!}!{$"\\"&insert!1(go_right!}%while(pop_spot$"\t"%ffind#pop$trim)"\",\t\""&insert#eol&"\");"&insert!}%while!}$loop+save_buffer'whatbuf&delbuf!),save_abbrevs rlen!{/"Invalid file."%error!}#!if2list_abbrev_tables"=n!n!{ .@&return!}#!if$file)read_jed-0.97.12/lib/abbrev.slc000064400000000000003000000007460604364522200150140ustar00rootsys00000000000000.@-"Abbrev_File"*is_defined!{![+Abbrev_File!]*"JED_HOME"&getenv#=$1"$1&strlen!{&"HOME"&getenv#=$1!}#!if-".abbrevs.sl",=Abbrev_File"$1+Abbrev_File&dircat,=Abbrev_File!}#!if+Abbrev_File+file_status!0!>!{+Abbrev_File(evalfile#pop!}"if!(![#val!]$=val .@+getbuf_info#val!{%0x800!|!}!{%0x800!~!&!}$else+setbuf_info!)/set_abbrev_mode!(![%flags!]+getbuf_info%0x800#xor&=flags![#msg!]1"Abbrev mode OFF"$=msg%flags+setbuf_info%flags%0x800!&!{0"Abbrev mode ON"$=msg!}"if#msg'message!)+abbrev_mode .@&return!}#!if$file)read_jed-0.97.12/lib/mousex.slc000064400000000000003000000030050604364522200150620ustar00rootsys00000000000000.@("\e[?9h"'tt_send!(("\e[?9l"'tt_send(exit_jed!))exit_hook!(("\e[?9l"'tt_send!),suspend_hook!(("\e[?9h"'tt_send!)+resume_hook/"mouse_button1"*"\e[M\040"&setkey/"mouse_button2"*"\e[M\041"&setkey/"mouse_button3"*"\e[M\042"&setkey!(!{#pop!}$loop!)%pop_n .@!(!{+otherwindow!}$loop!)-otherwindow_n!(![)is_status!]!0*=is_status![!n!y!x#top#bot!](nwindows"=n&getkey"32!-"=x&getkey"32!-"=y!{!n!}!{#116+window_info$=top#114+window_info#top!+$=bot!y#top">=!y#bot!<#and!{!1)what_line!+#top+window_line!+!-#+=y%break .@!}"if!y#bot"==!{!1*=is_status%break!}"if+otherwindow#--n!}%while!n!{8"Mouse not in a window."%error!}#!if!n-otherwindow_n"99+window_info!1!-#+=x)is_status(nwindows!n!-!x!y&return!)-mouse_whereis!(![!n#buf$cbuf!]'whatbuf%=cbuf+buffer_list"=n!n!{$=buf .@#--n!0#buf$aget"32"==!{(continue!}"if#buf.buffer_visible!{(continue!}"if#buf&sw2buf!n%pop_n&return!}$loop:"All buffers are visible."%error!)1mouse_next_buffer!(![)is_status!n!x!y!]-mouse_whereis"=y"=x"=n*=is_status!n-otherwindow_n)is_status!{ .@1mouse_next_buffer&return!}"if%markp!{!0(pop_mark!}"if!y)goto_line!x4goto_column_best_try#pop!)-mouse_button1!(![)is_status!n!]-mouse_whereis#pop#pop"=n*=is_status)is_status!{!n-otherwindow_n+splitwindow&return!}"if%markp!{!n-otherwindow_n .@-"copy_region"$call0"Region copied."'message&return!}"if&"yank"$call!)-mouse_button2!(![)is_status!n!x!y!]-mouse_whereis"=y"=x"=n*=is_status!n-otherwindow_n)is_status!{/"delete_window"$call&return!}"if%markp!{."set_mark_cmd"$call!}#!if!y)goto_line!x .@4goto_column_best_try#pop!)-mouse_button3 n!}"if%markp!{!0(pop_mark!}"if!y)goto_line!x4goto_column_best_try#pop!)-mouse_button1!(![)is_status!n!]-mouse_whereis#pop#pop"=n*=is_status)is_status!{!n-otherwindow_n+splitwindow&return!}"if%markp!{!n-otherwindow_n .@-"copy_region"$call0"Region copied."'message&return!}"if&"yank"$call!)-mouse_button2!(![)is_status!n!x!y!]-mouse_whereis"=y"=x"=n*=is_status!n-otherwindow_n)is_status!{/"delete_window"$call&return!}"if%markp!{."set_mark_cmd"$call!}#!if!y)goto_line!x .@4goto_column_best_try#pop!)-mouse_butjed-0.97.12/lib/shmode.slc000064400000000000003000000011630604364522200150240ustar00rootsys00000000000000.@$"SH"#=$1"$13create_syntax_table#"#"""""37"$1-define_syntax%"([{"%")]}""40"$1-define_syntax"34"34"$1-define_syntax"39"39"$1-define_syntax"92"92"$1-define_syntax-"-0-9a-zA-Z_"#119"$1-define_syntax'"-+0-9""48"$1-define_syntax%",;:""44"$1-define_syntax .@/"%-+/&*=<>|!~^""43"$1-define_syntax"$1("dofiif"!2/define_keywords#pop"$1%"set"!3/define_keywords#pop"$1>"casedoneechoelseesacexitthen"!4/define_keywords#pop"$1@"aliasendifendswshiftunsetwhile"!5/define_keywords#pop"$14"setenvsourceswitch"!6 .@/define_keywords#pop"$1)"breaksw"!7/define_keywords#pop!($"SH"!0'setmode$"SH"0use_syntax_table."sh_mode_hook"(runhooks!)'sh_mode x"39"39"$1-define_syntax"92"92"$1-define_syntax-"-0-9a-zA-Z_"#119"$1-define_syntax'"-+0-9""48"$1-define_syntax%",;:""44"$1-define_syntax .@/"%-+/&*=<>|!~^""43"$1-define_syntax"$1("dofiif"!2/define_keywords#pop"$1%"set"!3/define_keywords#pop"$1>"casedoneechoelseesacexitthen"!4/define_keywords#pop"$1@"aliasendifendswshiftunsetwhile"!5/define_keywords#pop"$14"setenvsourceswitch"!6 .@/define_keyworjed-0.97.12/lib/idl.slc000064400000000000003000000104570604364522300143240ustar00rootsys00000000000000.@%"IDL"#=$1"$13create_syntax_table#";"""""37"$1-define_syntax%"([{"%")]}""40"$1-define_syntax"34"34"$1-define_syntax"39"39"$1-define_syntax"92"92"$1-define_syntax-"$0-9a-zA-Z_"#119"$1-define_syntax1"-+0-9a-fA-F.xXL""48"$1-define_syntax&",.?:""44"$1 .@-define_syntax/"%-+/&*=<>|!~^""43"$1-define_syntax"64"35"$1-define_syntax"$1!10set_syntax_flags"$1#"$"!1/define_keywords#pop"$16"doeqgegtifleltneofor"!2/define_keywords#pop"$17"andendformodnotproxor"!3/define_keywords#pop"$12"caseelsegotothen"!4 .@/define_keywords#pop"$16"beginendifuntilwhile"!5/define_keywords#pop"$1F"commonendforendrependwhirepeatreturn"!6/define_keywords#pop"$10"endcaseendelse"!7/define_keywords#pop"$1:"endwhilefunctionon_error"!8/define_keywords#pop"$1+"endrepeat"!9 .@/define_keywords#pop"$1,"on_ioerror""10/define_keywords#pop"$1@"abscoseofexpfixhdrmaxminsintan"!3!11define_keywords_n"$1F"alogplotsavesizesortsqrtstopuniqwset"!4!11define_keywords_n"$1 .@r"closefloatflooropenropenwplotsprintranksreadfreadsreadurebinspawntotalwherewshow"!5!11define_keywords_n"$1"alog10dblarrdoublefinitefltarrindgenintarrlonarrprintfstrarrstringstrlenstrmidstrposstrputwriteuwindow"!6!11define_keywords_n"$1 .@o"defsysvdindgenexecutefindgenget_lunintegerrandomnrandomustr_sepstretchstrtrim"!7!11define_keywords_n"$1:"findfilefree_lunn_params"!8!11define_keywords_n"$1O"histogramimaginaryreplicatestrupcasetranspose"!9!11define_keywords_n"$1 .@@"n_elementsstrlowcasestrmessage""10!11define_keywords_n"$18"keyword_setstrcompress""11!11define_keywords_n!(#bol!{#";"%ffind!}!{!1(go_right.parse_to_point"-2"==!{!1'go_left&return!}"if!}%while#eol!)6idl_find_effective_eol!(![!n!]!0"=n.bol_skip_white .@&"pro "*looking_at+"function "*looking_at"or!{!0&return!}"if!{$up_1!}!{6idl_find_effective_eol+bskip_white#"$"+blooking_at!{$bolp!{*skip_white"59/looking_at_char!{(continue!}"if!}"if)go_down_1%break!}#!if#++n!}%while.bol_skip_white!n&return!) .@:idl_beginning_of_statement!(![#col!]$=col)push_spot.bol_skip_white#col+what_column"!=!{%--col#bol$trim#col*whitespace!}"if(pop_spot!)-idl_indent_to!(![$word%begin!]&=begin%=word$word*looking_at!{!0&return!}#!if!{(pop_spot!}*EXIT_BLOCK)push_spot$word .@&strlen(go_right%begin%ffind!{!1&return!}"if!{6idl_find_effective_eol+bskip_white#"$"+blooking_at!{%break!}#!if!}!{!1$down!}(do_while#bol%begin%ffind&return!)4idl_looking_at_block!()push_spot.bol_skip_white!{%"if "(" begin"4idl_looking_at_block!}!{ .@'"while"(" begin"4idl_looking_at_block!}!{'"else "(" begin"4idl_looking_at_block!}!{&"for "(" begin"4idl_looking_at_block!}!{'"case "%" of"4idl_looking_at_block!}!{,"endif else"(" begin"4idl_looking_at_block!}!{("repeat"(" begin"4idl_looking_at_block .@!}!{+"function "*looking_at!}!{&"pro "*looking_at!}!{6idl_find_effective_eol&"$ \t"+bskip_chars'"BEGIN"+blooking_at"58%bfind#and!}&orelse(pop_spot!)7idl_is_block_beginnning3"Idl_Indent_Amount"*is_defined!{![1Idl_Indent_Amount!]!22=Idl_Indent_Amount!} .@#!if!(![#len!]!0$=len![,extra_indent!]!0-=extra_indent![$word!])push_spot!{(pop_spot#len,extra_indent!+-idl_indent_to)push_mark+bskip_white$bolp#not*skip_white(pop_mark!}*EXIT_BLOCK:idl_beginning_of_statement!{)push_mark(pop_spot)push_spot#bol!1"41 .@7find_matching_delimiter"==!{+what_column$=len!0(pop_mark%++len&return!}"if!1(pop_mark&"pro "*looking_at+"function "*looking_at"or!{#" "%ffind#pop*skip_white!}"if+"A-Za-z$_!"*skip_chars+what_column1Idl_Indent_Amount!+$=len&return!}"if"64 .@/looking_at_char!{&return!}"if%"end"*looking_at!{1Idl_Indent_Amount#chs-=extra_indent!}!{&"else"*looking_at!{!4(go_right*skip_white"58/looking_at_char#not!{1Idl_Indent_Amount#chs-=extra_indent!}"if!}"if!}$else$up_1!{!0$=len&return!}#!if!{ .@.bol_skip_white$eolp"59/looking_at_char"64/looking_at_char"or"or!{%break!}#!if!}!{$up_1!}(do_while:idl_beginning_of_statement#pop+what_column$=len7idl_is_block_beginnning!{1Idl_Indent_Amount%+=len!}"if!)/idl_indent_line!(7idl_is_block_beginnning!{ .@/idl_indent_line!}"if+bskip_white#","+blooking_at!{$" $"&insert!}"if'newline/idl_indent_line!)6idl_newline_and_indent%"IDL"#=$1"$1(keymap_p!{"$1+make_keymap4"newline_and_indent"$"\r""$1)definekey-"indent_line"$"\t""$1)definekey!}#!if!(![#idl!]%"IDL" .@$=idl#idl!0'setmode#idl0use_syntax_table#idl*use_keymap-"indent_hook"1"idl_indent_line"/set_buffer_hook5"newline_indent_hook"8"idl_newline_and_indent"/set_buffer_hook/"idl_mode_hook"(runhooks#idl.abbrev_table_p!{#idl0use_abbrev_table!}"if!)(idl_mode nning!{ .@/idl_indent_line!}"if+bskip_white#","+blooking_at!{$" $"&insert!}"if'newline/idl_indent_line!)6idl_newline_and_indent%"IDL"#=$1"$1(keymap_p!{"$1+make_keymap4"newline_and_indent"$"\r""$1)definekey-"injed-0.97.12/lib/html.slc000064400000000000003000000045130604364522300145140ustar00rootsys00000000000000.@!(N"\n\n\n\n\n"&insert>"\n\n\n\n"&insert!6%go_up!8'go_left!)*html_start!(![!s!n!]"=n"=s!s&insert!n'go_left!)3html_insert_go_left!(1""!83html_insert_go_left!)*html_title!( .@+"

    "!53html_insert_go_left!)'html_h1!(+"

    "!53html_insert_go_left!)'html_h2!(+"

    "!53html_insert_go_left!)'html_h3!(%"

    "&insert!).html_paragraph!(/"

      \n\n
    "&insert!1%go_up!)'html_ul!(/"
      \n\n
    "&insert!1%go_up!) .@'html_ol!(&"
  • "&insert!))html_item!(3""!63html_insert_go_left!)+html_anchor!(3""!63html_insert_go_left!))html_name!(5"
    ""103html_insert_go_left!),html_address!(1"
    \n\n
    "&insert!1%go_up!) .@.html_preformat!(/""!73html_insert_go_left!))html_code!(+""!53html_insert_go_left!)-html_emphasis!()""!43html_insert_go_left!))html_bold!(0""!23html_insert_go_left!)*html_image&"HTML"#=$1"$1(keymap_p!{"$1 .@+make_keymap!}#!if,"html_start"%"^Cs""$1)definekey,"html_title"%"^Ct""$1)definekey)"html_h1"%"^C1""$1)definekey)"html_h2"%"^C2""$1)definekey)"html_h3"%"^C3""$1)definekey)"html_ul"%"^Cu""$1)definekey)"html_ol"%"^Co""$1)definekey+"html_item"%"^Cl""$1 .@)definekey0"html_paragraph"%"^Cp""$1)definekey-"html_anchor"%"^Ca""$1)definekey+"html_name"%"^Cn""$1)definekey."html_address"%"^Cd""$1)definekey0"html_preformat"%"^Cf""$1)definekey/"html_emphasis"%"^Ce""$1)definekey+"html_code"%"^Co""$1)definekey .@,"html_image"%"^Ci""$1)definekey"$13create_syntax_table#"<"#">""40"$1-define_syntax$"<>""60"$1-define_syntax$"""37"$1-define_syntax)"A-Za-z&"#119"$1-define_syntax"$1("><"!3/define_keywords#pop"$1."Ð&ð"!4/define_keywords#pop"$1 .@;"ÄËÏÖÜ"J"äëï ö"üÿ"&strcat!5/define_keywords#pop"$1X"ÆÂÅÊÎÔÞÛâ"R"æåêîôßþû"&strcat!6/define_keywords#pop"$1 .@Z"ÁÀÃÇÉÈÍÌ"Z"ÑÓÒØÕÚÙÝ"Z"áàãçéèíì"Z"ñóòøõúùý"!4'strncat!7 .@/define_keywords#pop!(![$html!]&"HTML"%=html&"html"!1'setmode$html0use_syntax_table$html*use_keymap0"html_mode_hook"(runhooks!))html_mode ÊÎÔÞÛâ"R"æåêîôßþû"&strcat!6/define_keywords#pop"$1 .@Z"ÁÀÃÇÉÈÍÌjed-0.97.12/lib/nroff.slc000064400000000000003000000010040604364522300146520ustar00rootsys00000000000000.@!(#bol"46/looking_at_char"92/looking_at_char*skip_white$eolp"or"or!),nroff_parsep'"nroff"#=$1"$13create_syntax_table'"'\\\""""""37"$1-define_syntax"46"92"$1-define_syntax%"({["%")]}""40"$1-define_syntax*"{}[]<>()""44"$1-define_syntax)".a-zA-Z"#119"$1 .@-define_syntax"$1&".B.I"!2/define_keywords#pop"$1F".BR.DT.IP.PP.RB.RI.RE.RS.SB.SH.TH.TP"!3/define_keywords#pop!(![%nroff!]'"nroff"&=nroff%nroff!1'setmode%nroff0use_syntax_table)"par_sep"."nroff_parsep"/set_buffer_hook1"nroff_mode_hook"(runhooks!) .@*nroff_mode #bol"46/looking_at_char"92/looking_at_char*skip_white$eolp"or"or!),nroff_parsep'"nroff"#=$1"$13create_syntax_table'"'\\\""""""37"$1-define_syntax"46"92"$1-define_syntax%"({["%")]}""40"$1-define_syntax*"{}[]<>()""44"$1-define_syntax)".a-zA-Z"#119"$1 .@-define_syntax"$1&".B.I"!2/define_keywords#pop"$1F".BR.DT.IP.PP.RB.RI.RE.RS.SB.SH.TH.TP"!3/define_keywords#pop!(![%nroff!]'"nroff"&=nroff%nroff!1'setmode%nroff0use_syntax_table)"par_sep"."nroff_parsep"/set_buffer_hook1"nroff_mode_hook"(runhooks!) .@*nroff_mjed-0.97.12/lib/yankpop.slc000064400000000000003000000025360604364522300152340ustar00rootsys00000000000000.@![2Kill_Buffer_Number!]"-13=Kill_Buffer_Number![7Kill_Buffer_Yank_Number!]"-18=Kill_Buffer_Yank_Number![6Kill_Buffer_Max_Number!]"-17=Kill_Buffer_Max_Number![5Kill_Buffer_User_Mark!]!(![(kill_fun!]("%kill%")=kill_fun0LAST_KBD_COMMAND(kill_fun&strcmp .@!{4++Kill_Buffer_Number2Kill_Buffer_Number/KILL_ARRAY_SIZE"==!{!03=Kill_Buffer_Number!}"if2Kill_Buffer_Number6Kill_Buffer_Max_Number!>!{2Kill_Buffer_Number7=Kill_Buffer_Max_Number!}"if2Kill_Buffer_Number9copy_region_to_kill_array2Kill_Buffer_Number .@8=Kill_Buffer_Yank_Number!}!{2Kill_Buffer_Number;append_region_to_kill_array!}$else(kill_fun7set_current_kbd_command!)6yp_copy_region_as_kill!('dupmark#pop6yp_copy_region_as_kill*del_region!).yp_kill_region!(![#one!]![(kill_fun!]("%kill%")=kill_fun .@$eolp1KILL_LINE_FEATURE$bolp#and"or$=one)push_mark#eol#one(go_right.yp_kill_region!),yp_kill_line!(0create_user_mark6=Kill_Buffer_User_Mark7Kill_Buffer_Yank_Number6insert_from_kill_array("%yank%"7set_current_kbd_command!)'yp_yank!(0LAST_KBD_COMMAND .@("%yank%"&strcmp!{F"The last command must be a yank one."%error!}"if9--Kill_Buffer_Yank_Number7Kill_Buffer_Yank_Number!0!:|=]"*re_fsearch!{!{!{*" *[>:|=]"-re_looking_at!}!{*skip_white$eolp!}&orelse!}!{!1$down!{%break!}#!if!}%while!1 .@(recenter!}"if!}"if3EXECUTE_ERROR_BLOCK!)1rmail_skip_quotes!(!{3Rmail_Folder_Buffer'pop2buf!}+ERROR_BLOCK!01rmail_get_message!1"==!{!0&update)"page_up"$call!}"if3EXECUTE_ERROR_BLOCK!)5rmail_scroll_backward!(![$cbuf!]"701rmail_get_message!{$beep&return .@!}#!if'whatbuf%=cbuf$mail/buffer_modified!{H"Mail already being composed. Erase it"*get_yes_no!{&return!}#!if!}"if#eob$cbuf&insbuf#bob#eol!)5rmail_forward_message!(![!f!]"=f!{!f#" "#","+str_replace!}!{"=f!}%while!f#","+strcompress&return!) .@1str_remove_spaces!(![$from!]%=from![!f%sub_f!n!]!10regexp_nth_match&"\"'("&"\"')"4str_uncomment_string'strtrim"=f!f1str_remove_spaces"=f!f&strlen!{$from&return!}#!if$from&strlen!{!0"=n!{!f!n"44/extract_element&=sub_f%sub_f&strlen!}!{#++n .@3Rmail_Dont_Reply_To%sub_f&strlow"44/is_list_element!{$from#","%sub_f!3'strncat%=from!}#!if!}%while$from"=f!}"if!f!)6rmail_complex_get_from!("821rmail_get_message!{$beep&return!}#!if![$subj!]+Null_String%=subj![$from!]+Null_String%=from![$cbuf!] .@'whatbuf%=cbuf!["cc!]+Null_String#=cc)push_spot#bob)push_mark$"\n"+bol_fsearch!{#eob!}#!if&narrow!{;"^\\CReply-To:.*<\\(.+\\)>"*re_bsearch!}!{>"^\\CReply-To: *\\([^ ]+\\) *"*re_bsearch!}!{7"^\\CFrom:.*<\\(.+\\)>"*re_bsearch!}!{7"^\\CFrom:.*<\\(.+\\)>" .@*re_bsearch!}!{:"^\\CFrom: *\\([^ ]+\\) *"*re_bsearch!}!{9"^\\cFrom +\\([^ ]+\\) *"*re_bsearch!}&orelse!{$from6rmail_complex_get_from%=from!}"if#eob6"^Subject: *\\(.*\\)$"*re_bsearch!{!10regexp_nth_match%=subj!}"if#bob!{5"^\\CCC:.*<\\(.+\\)>" .@*re_fsearch!}!{4"^\\CCC: *\\(.*\\)$"*re_fsearch!}&orelse!{"cc6rmail_complex_get_from#=cc!}"if#bob!{5"^\\CTo:.*<\\(.+\\)>"*re_fsearch!}!{4"^\\CTo: *\\(.*\\)$"*re_fsearch!}&orelse!{$from6rmail_complex_get_from%=from!}"if%widen(pop_spot$mail)onewindow .@/buffer_modified!{H"Mail already being composed. Erase it"*get_yes_no!{&return!}#!if!}"if2mail_format_buffer#bob!{%"To:"*looking_at!{#eol$from&insert!}!{%"Cc:"*looking_at!{#eol"cc&insert!}!{*"Subject:"*looking_at!{#eol$subj&insert#bol#":"%ffind#pop!1 .@(go_right*skip_white%"Re:"*looking_at!{&"Re: "&insert!}#!if!}"if!}$else!}$else!}!{&down_1#"-"*looking_at#not#and!}(do_while#eob)push_mark&narrow,erase_buffer$cbuf&insbuf#bob!{#bol#">"&insert!}!{&down_1!}(do_while'newline#bob%widen$from&strlen!{#bob .@#eol!}#!if!)+rmail_reply!()push_mark!{&down_1#"D"*looking_at#and!}!{!}%while$eobp!{!1(pop_mark="No more undeleted messages."'message!0&return!}"if!0(pop_mark!1!)7rmail_find_next_message!(![!d!]#"D""=d)push_mark!{$up_1#bol!d*looking_at#and!}!{!}%while .@$bobp!d*looking_at#and!{!1(pop_mark="No more undeleted messages."'message!0&return!}"if!0(pop_mark!1!)7rmail_find_prev_message!(#bol$eolp!{$beep&return!}"if#"D"*looking_at!{!0,set_readonly#del#"D"&insert!1,set_readonly!}#!if7rmail_find_next_message .@#pop!)4rmail_delete_forward!()push_mark#eol#"D"+bol_bsearch!{!0,set_readonly#del3insert_single_space!1,set_readonly!0(pop_mark&return!}"if!1(pop_mark$beep!).rmail_undelete!(7rmail_find_next_message!{4rmail_scroll_forward!}"if!)2rmail_next_message!( .@7rmail_find_prev_message!{4rmail_scroll_forward!}"if!)2rmail_prev_message!(![&folder!]'=folder![!n!]&folder1rmail_find_folder#bob)go_down_1#bol)push_mark#eol)bufsubstr'integer"=n+"\x1F\xC\n"+bol_fsearch#pop)go_down_1)push_mark#eob&narrow'whatbuf .@'pop2buf!n)goto_line#bol,"Rmail-Read"*use_keymap>"Jed %b Folder. (%p) %t"!0/set_status_line!1,set_readonly3"rmail_folder_hook"(runhooks!)3rmail_select_folder!(![!n!]"-1"-1/prefix_argument"!=!{![$file!]*"Mailbox:"3read_file_from_mini%=file$file .@&strlen!{&return!}#!if$file5rmail_process_newmail"=n!}!{1rmail_get_newmail"=n!}$else!n!{2"%d new messages."!n!1'Sprintf%flush4Rmail_Newmail_Folder3rmail_select_folder!}!{."No new mail."%flush!}$else!)4rmail_folder_newmail![1Rmail_Last_Folder!] .@+Null_String2=Rmail_Last_Folder!(![#vis!]!0$=vis![#buf!]/"Rmail: %s(%s)"1Rmail_Folder_Name4Rmail_Message_Number!2'Sprintf$=buf#buf'bufferp!{#buf.buffer_visible$=vis#buf&delbuf!}"if#vis&return!)6rmail_validate_message!(![%new_n!]#eob'"\n \t" .@+bskip_chars#bol9rmail_extract_file_number&=new_n%new_n&strlen!{#"0"&=new_n!}#!if%widen#bob)push_mark#eol)bufsubstr%new_n&strcmp!{+delete_line%new_n&insert'newline!}"if+"\x1F\xC\n"+bol_fsearch#pop)go_down_1)push_mark#eob&narrow!1(pop_mark .@1Rmail_Folder_Name!01rmail_save_folder!)"---text follows this line---"+bol_fsearch!{(pop_spot>"Failed to find text divider."%error!}#!if)push_mark#bob&narrow4"^To:[ \t]*\\(.*\\)"*re_fsearch!{!10regexp_nth_match#=to!}"if4"^Cc:[ \t]*\\(.*\\)"*re_fsearch!{!1 .@0regexp_nth_match#=cc!}"if9"^Subject:[ \t]*\\(.*\\)"*re_fsearch!{!10regexp_nth_match%=subj!}"if#eob%widen"to&strlen!{(pop_spot0"Bad To: field."%error!}#!if&down_1!{(pop_spot-"No message!"%error!}#!if)push_mark#eob,"Sending..."%flush"to"cc$subj .@.unix_send_mail%=sent$sent!{0"Sending...done"%flush!08set_buffer_modified_flag+getbuf_info#pop#pop$=dir%=file#dir$file6make_autosave_filename+delete_file#pop!}!{2"No message sent."'message!}$else(pop_spot'whatbuf4Mail_Previous_Buffer'bufferp!{ .@4Mail_Previous_Buffer&sw2buf!}"if!15Mail_Previous_Windows"==!{)onewindow!}"if+bury_buffer!)$send&"send".add_completion!(![(mail_map!]*"mail_map")=mail_map,erase_buffer)text_modeW"To: \nCc: \nSubject: \n---text follows this line---\n"&insert#bob#eol!0 .@8set_buffer_modified_flag!1/set_buffer_undo+getbuf_info$0x40!~!&+setbuf_info(mail_map(keymap_p!{(mail_map+make_keymap!}#!if(mail_map*use_keymap!)2mail_format_buffer!(![(mail_buf#old&status!]("*mail*")=mail_buf![$file#dir!](mail_buf'bufferp$=old .@(nwindows6=Mail_Previous_Windows(mail_buf/pop2buf_whatbuf5=Mail_Previous_Buffer#old!0"==!{&"HOME"&getenv+Null_String&dircat$=dir."__jed_mail__"%=file$file#dir(mail_buf!2+setbuf_info!}!{+getbuf_info'=status#pop#pop#pop&status!1!&!{&return!}"if!}$else .@2mail_format_buffer+"mail_hook"(runhooks!)$mail fer_undo+getbuf_info$0x40!~!&+setbuf_info(mail_map(keymap_p!{(mail_map+make_keymap!}#!if(mail_map*use_keymap!)2mail_format_buffer!(![(mail_buf#old&status!]("*mail*")=mail_buf![$file#dir!](mail_buf'bufferp$=old .@(nwindows6=Mail_Previous_Windows(mail_buf/pop2buf_whatbuf5=Mjed-0.97.12/src/004075500000000000003000000000000611265677000130755ustar00rootsys00000000000000jed-0.97.12/src/mswin.c000064400000000000003000001723020603742312200143640ustar00rootsys00000000000000#include #include #include #include #include #include #include #include #include #include #include #include "config.h" #include "display.h" #include "sysdep.h" #include "screen.h" #include "keymap.h" #include "slang.h" #include "hooks.h" #include "ins.h" #include "ledit.h" #include "misc.h" #include "cmds.h" #include "sig.h" #ifndef _USERENTRY #define _USERENTRY #endif #define MSW_STRING_TYPE 1 #define MSW_INT_TYPE 2 #define MSW_COLOR_TYPE 3 #define MAX_KEYS 128 #define KEY_SHIFT 1 #define KEY_CONTROL 2 #define KEY_ALT 4 #define SPACE_CHAR (32 | (JNORMAL_COLOR << 8)) #define MOUSE_RELEASE 'U' #define MOUSE_DRAG 0 #define MOUSE_PRESS 'D' #define MAX_MENU_ID 256 /* externs */ extern char Jed_Root_Dir[256]; /* extern char *Msw_Keycodes[4][256]; */ extern HINSTANCE _hInstance; extern HINSTANCE _hPrev; typedef struct { char *name; int type; char *dflt; void *buf; } Msw_Ini_Type; typedef struct { COLORREF bg; COLORREF fg; HBRUSH hbrBG; } Color_Type; typedef struct { char *name; int r, g, b; } Color_Value_Type; typedef struct { char title[30]; HWND w; HDC hdc; int ndc; char font_name[50]; int font_height; int font_width; HFONT font; int x; int y; int height; int width; int scroll_r1, scroll_r2; /* scrolling region */ int cursor_row, cursor_col; /* row column of cursor (1,1) origin */ int vis_curs_row, vis_curs_col; /* position of VISIBLE cursor */ int cursor_showing; Color_Type *current_color; int focus; } MSWindow_Type; LRESULT CALLBACK JEDWndProc(HWND, UINT, WPARAM, LPARAM); void _USERENTRY msw_cleanup(void); static void msw_get_defaults(void); static void msw_get_default(Msw_Ini_Type *t); static void get_dc(void); static void release_dc(void); static void init_application(void); static void init_instance(void); static void process_message(void); static char _getkey(void); static void _putkey(char); static void show_cursor(void); static void hide_cursor(void); static void msw_normal_video(void); static void set_window_name(char *s); static void x_warp_pointer(void); static int x_insert_cutbuffer(void); static void x_region_2_cutbuffer(void); static int msw_system(char *, int *); static int dos_system(char *); static void msw_define_color(char *, int *, int *, int *); static void get_menubar(void); static void destroy_menubar(void); static void create_popup_menu(void); static void destroy_menu(void); static void append_menu_item(void); static void append_popup_menu(void); static void append_separator(void); static void insert_menu_item(void); static void insert_menu_item_pos(void); static void insert_popup_menu(void); static void insert_popup_menu_pos(void); static void insert_separator(void); static void insert_separator_pos(void); static void delete_menu_item(void); static void delete_menu_item_pos(void); static void get_menu_state(void); static void get_menu_state_pos(void); static void get_popup_menu(void); static void check_menu_item(void); static void check_menu_item_pos(void); static void enable_menu_item(void); static void enable_menu_item_pos(void); static void redraw_menubar(void); int Abort_Char = 7; int NumLock_Is_Gold = 0; int PC_Alt_Char = 27; static HINSTANCE hPrevInst; static HINSTANCE hInstance; static char *szJedSection = "WJED"; static int JX_Screen_Cols; static int JX_Screen_Rows; static int JX_Term_Cannot_Scroll = 0; static int JX_Term_Cannot_Insert = 0; static int JX_Baud_Rate = 0; static int JX_Use_Ansi_Colors = 1; static int JX_Ignore_Beep = 3; static int Performing_Update; static MSWindow_Type This_Window; static Color_Type colors[JMAX_COLORS]; static char Key_Stack[MAX_KEYS]; static int Key_Num; static int Key_Head; static int Key_Tail; static char *Menu_Callbacks[MAX_MENU_ID]; Msw_Ini_Type Msw_Ini_List[] = { { "Font", MSW_STRING_TYPE, "fixed", This_Window.font_name }, { "FontHeight", MSW_INT_TYPE, "12", &This_Window.font_height }, { "Background", MSW_COLOR_TYPE, "0,0,0", &colors[JNORMAL_COLOR].bg }, { "Foreground", MSW_COLOR_TYPE, "192,192,192", &colors[JNORMAL_COLOR].fg }, { "StatusBG", MSW_COLOR_TYPE, "0,0,128", &colors[JSTATUS_COLOR].bg }, { "StatusFG", MSW_COLOR_TYPE, "255,255,0", &colors[JSTATUS_COLOR].fg }, { "RegionBG", MSW_COLOR_TYPE, "255,0,255", &colors[JREGION_COLOR].bg }, { "RegionFG", MSW_COLOR_TYPE, "255,255,255", &colors[JREGION_COLOR].fg }, { "OperatorBG", MSW_COLOR_TYPE, "0,0,0", &colors[JOP_COLOR].bg }, { "OperatorFG", MSW_COLOR_TYPE, "255,255,255", &colors[JOP_COLOR].fg }, { "NumberBG", MSW_COLOR_TYPE, "0,0,0", &colors[JNUM_COLOR].bg }, { "NumberFG", MSW_COLOR_TYPE, "0,0,192", &colors[JNUM_COLOR].fg }, { "StringBG", MSW_COLOR_TYPE, "0,0,0", &colors[JSTR_COLOR].bg }, { "StringFG", MSW_COLOR_TYPE, "0,192,255", &colors[JSTR_COLOR].fg }, { "CommentBG", MSW_COLOR_TYPE, "0,0,0", &colors[JCOM_COLOR].bg }, { "CommentFG", MSW_COLOR_TYPE, "0,128,0", &colors[JCOM_COLOR].fg }, { "KeywordBG", MSW_COLOR_TYPE, "0,0,0", &colors[JKEY_COLOR].bg }, { "KeywordFG", MSW_COLOR_TYPE, "255,255,255", &colors[JKEY_COLOR].fg }, { "Keyword1BG", MSW_COLOR_TYPE, "0,0,0", &colors[JKEY_COLOR + 1].bg }, { "Keyword1FG", MSW_COLOR_TYPE, "255,255,255", &colors[JKEY_COLOR + 1].fg }, { "DelimiterBG", MSW_COLOR_TYPE, "0,0,0", &colors[JDELIM_COLOR].bg }, { "DelimiterFG", MSW_COLOR_TYPE, "255,255,255", &colors[JDELIM_COLOR].fg }, { "PreprocessBG", MSW_COLOR_TYPE, "0,0,0", &colors[JPREPROC_COLOR].bg }, { "PreprocessFG", MSW_COLOR_TYPE, "0,255,0", &colors[JPREPROC_COLOR].fg }, { "MessageBG", MSW_COLOR_TYPE, "0,0,0", &colors[JMESSAGE_COLOR].bg}, { "MessageFG", MSW_COLOR_TYPE, "255,255,0", &colors[JMESSAGE_COLOR].fg}, { "ErrorFG", MSW_COLOR_TYPE, "255,0,0", &colors[JERROR_COLOR].fg}, { "ErrorBG", MSW_COLOR_TYPE, "0,0,0", &colors[JERROR_COLOR].bg}, { "MenuFG", MSW_COLOR_TYPE, "0,0,0", &colors[JMENU_COLOR].fg}, { "MenuBG", MSW_COLOR_TYPE, "0,255,255", &colors[JMENU_COLOR].bg}, {"CursorFG", MSW_COLOR_TYPE, "0,255,0", &colors[JCURSOR_COLOR].fg}, {"CursorBG", MSW_COLOR_TYPE, "255,0,0", &colors[JCURSOR_COLOR].bg}, {"DollarFG", MSW_COLOR_TYPE, "0,0,255", &colors[JDOLLAR_COLOR].fg}, {"DollarBG", MSW_COLOR_TYPE, "0,0,0", &colors[JDOLLAR_COLOR].bg}, { "Title", MSW_STRING_TYPE, "WJED", &This_Window.title }, { "X", MSW_INT_TYPE, "0", &This_Window.x }, { "Y", MSW_INT_TYPE, "0", &This_Window.y }, { "Width", MSW_INT_TYPE, "700", &This_Window.width }, { "Height", MSW_INT_TYPE, "500", &This_Window.height }, { NULL, 0, NULL, NULL } }; static Color_Value_Type Msw_Std_Color[] = { {"black", 0, 0, 0}, {"blue", 0, 0, 192}, {"green", 0, 128, 0}, {"cyan", 0, 192, 192}, {"red", 192, 0, 0}, {"magenta", 192, 0, 192}, {"lightgray", 192, 192, 192}, {"gray", 128, 128, 128}, {"brightblue", 0, 0, 255}, {"brightred", 255, 0, 0}, {"brightgreen", 0, 255, 0}, {"brightcyan", 0, 255, 255}, {"brightmagenta", 255, 0, 255}, {"yellow", 255, 255, 0}, {"white", 255, 255, 255}, {"brown", 110, 74, 32}, {NULL, 0, 0, 0} }; static SLang_Name_Type Sl_Msw_Table[] = { MAKE_INTRINSIC(".x_set_window_name", set_window_name, VOID_TYPE, 1), MAKE_INTRINSIC(".x_warp_pointer", x_warp_pointer, VOID_TYPE, 0), MAKE_INTRINSIC(".x_insert_cutbuffer", x_insert_cutbuffer, INT_TYPE, 0), /* Prototype: Integer x_insert_cut_buffer (); * Inserts cutbuffer into the current buffer and returns the number * of characters inserted. */ MAKE_INTRINSIC(".x_copy_region_to_cutbuffer", x_region_2_cutbuffer, VOID_TYPE, 0), /*Prototype: Void x_copy_region_to_cutbuffer();*/ MAKE_INTRINSIC(".define_color", msw_define_color, VOID_TYPE, 4), /*Prototype: Void msw_define_color(char *, int, int, int);*/ MAKE_INTRINSIC(".get_menubar", get_menubar, VOID_TYPE, 0), /* Prototype: Integer get_menubar(Void) * Returns integer which is handle of menubar. If there is no * menubar, it creates it. * To show menubar, call `redraw_menu' */ MAKE_INTRINSIC(".destroy_menubar", destroy_menubar, VOID_TYPE, 0), /* Prototype: Void destroy_menubar(Void) * Destroys menubar */ MAKE_INTRINSIC(".create_popup_menu", create_popup_menu, VOID_TYPE, 0), /* Prototype: Integer create_popup_menu(Void) * Creates empty popup menu and returns integer value which is * it's handle. If popup is not appended to another menu, it must * destroyed after use. */ MAKE_INTRINSIC(".destroy_menu", destroy_menu, VOID_TYPE, 0), /* Prototype: Void destroy_menu(Integer hmenu) * Destroys menu and all it's popup menus. * Note: Do not destroy menubar with this function * (use `destroy_menubar') */ MAKE_INTRINSIC(".append_menu_item", append_menu_item, VOID_TYPE, 0), /* Prototype: Void append_menu_item(Integer hmenu, String name, Integer id, String callback) * Appends menu item with name 'name' and identifier 'id' at the end * of 'hmenu'. When item is selected, the 'callback' will be executed. * Callback can be intrinsic or internal function. */ MAKE_INTRINSIC(".append_popup_menu", append_popup_menu, VOID_TYPE, 0), /* Prototype: Void append_popop_menu(Integer hmenu, String name, Integer popup) * Appends popup menu with name 'name' and handle 'popup' at the end * of 'hmenu' */ MAKE_INTRINSIC(".append_separator", append_separator, VOID_TYPE, 0), /* Prototype: Void append_separator(Integer hmenu) * Appends menu separator at the end of 'hmenu' */ MAKE_INTRINSIC(".insert_menu_item", insert_menu_item, VOID_TYPE, 0), /* Prototype: Void insert_menu_item(Integer hmenu, Integer id, String name, Integer idNew, String callback) * Inserts menu item with name 'name' and identifier 'idNew' before * menu item with identifier 'id'. * When item is selected, the 'callback' will be executed. * Callback can be intrinsic or internal function. */ MAKE_INTRINSIC(".insert_menu_item_pos", insert_menu_item_pos, VOID_TYPE, 0), /* Prototype: Void insert_menu_item_pos(Integer hmenu, Integer pos, String name, Integer idNew, String callback) * Inserts menu item with name 'name' and identifier 'idNew' before * menu item with zero-based position 'pos' in 'hmenu'. * When item is selected, the 'callback' will be executed. * Callback can be intrinsic or internal function. */ MAKE_INTRINSIC(".insert_popup_menu", insert_popup_menu, VOID_TYPE, 0), /* Prototype: Void insert_popup_menu(Integer hmenu, Integer id, String name, Integer popup) * Inserts popup menu with name 'name' and handle 'popup' before * menu item with identifier 'id' */ MAKE_INTRINSIC(".insert_popup_menu_pos", insert_popup_menu_pos, VOID_TYPE, 0), /* Prototype: Void insert_popup_menu_pos(Integer hmenu, Integer pos, String name, Integer popup) * Inserts popup menu with name 'name' and handle 'popup' before * menu item with zero-based position 'pos' in 'hmenu' */ MAKE_INTRINSIC(".insert_separator", insert_separator, VOID_TYPE, 0), /* Prototype: Void insert_separator(Integer hmenu, Integer id) * Inserts menu separator before menu item with identifier 'id' */ MAKE_INTRINSIC(".insert_separator_pos", insert_separator_pos, VOID_TYPE, 0), /* Prototype: Void insert_separator_pos(Integer hmenu, Integer pos) * Inserts menu separator before menu item with zero-based position 'pos' */ MAKE_INTRINSIC(".delete_menu_item", delete_menu_item, VOID_TYPE, 0), /* Prototype: Void delete_menu_item(Integer hmenu, Integer id) * Deletes menu item with identifier id from menu with handle 'hmenu' */ MAKE_INTRINSIC(".delete_menu_item_pos", delete_menu_item_pos, VOID_TYPE, 0), /* Prototype: Void delete_menu_item_pos(Integer hmenu, Integer pos) * Deletes menu item at zero-based position 'pos' from menu 'hmenu' */ MAKE_INTRINSIC(".get_menu_state", get_menu_state, VOID_TYPE, 0), /* Prototype: Integer get_menu_state(Integer hmenu, Integer id) * Gets state of menu item with identifier 'id' * & 1 == 1 if menu item is enabled * & 2 == 1 if menu item is checked */ MAKE_INTRINSIC(".get_menu_state_pos", get_menu_state_pos, VOID_TYPE, 0), /* Prototype: Integer get_menu_state(Integer hmenu, Integer pos) * Gets state of menu item at zero-based position 'pos' * & 1 == 1 if menu item is enabled * & 2 == 1 if menu item is checked */ MAKE_INTRINSIC(".get_popup_menu", get_popup_menu, VOID_TYPE, 0), /* Prototype: Void get_popup_menu(Integer hmenu, Integer pos) * Returns handle of popup menu at zero-based position 'pos' * If return value is 0, there is no popup at the position. */ MAKE_INTRINSIC(".check_menu_item", check_menu_item, VOID_TYPE, 0), /* Prototype: Void check_menu_item(Integer hmenu, Integer id, Integer flag) * This functions changes check state of menu item. If flag is nonzero, * it checks menu item, otherwise it unchecks it */ MAKE_INTRINSIC(".check_menu_item_pos", check_menu_item_pos, VOID_TYPE, 0), /* Prototype: Void check_menu_item(Integer hmenu, Integer pos, Integer flag) * This functions changes check state of menu item. If flag is nonzero, * it checks menu item, otherwise it unchecks it */ MAKE_INTRINSIC(".enable_menu_item", enable_menu_item, VOID_TYPE, 0), /* Prototype: Void check_menu_item(Integer hmenu, Integer id, Integer flag) * This functions enable or disable menu item. If flag is nonzero, the * menu item will be enabled, otherwise it'll be disabled. */ MAKE_INTRINSIC(".enable_menu_item_pos", enable_menu_item_pos, VOID_TYPE, 0), /* Prototype: Void check_menu_item(Integer hmenu, Integer pos, Integer flag) * This functions enable or disable menu item. If flag is nonzero, the * menu item will be enabled, otherwise it'll be disabled. */ MAKE_INTRINSIC(".redraw_menubar", redraw_menubar, VOID_TYPE, 0), /* Prototype: Void redraw_menubar(Void) * Redraws menubar. This functions should be called if menubar is changed */ SLANG_END_TABLE }; /* Key storage functions */ static char _getkey(void) { char c = 0; if (Key_Num) { c = Key_Stack[Key_Head++]; if (Key_Head >= MAX_KEYS) Key_Head = 0; Key_Num--; } return c; } static void _putkey(char c) { if (c == Abort_Char) { if (Ignore_User_Abort == 0) SLang_Error = USER_BREAK; SLKeyBoard_Quit = 1; } Key_Stack[Key_Tail++] = c; if (Key_Tail >= MAX_KEYS) Key_Tail = 0; if (Key_Tail == Key_Head) { msg_error("Key queue overflow."); _getkey(); } Key_Num++; } /* Getting defaults from INI file */ static COLORREF msw_get_color(char *s, char *dflt) { if (s[0] >= '0' && s[0] <= '9') { long r, g, b; char *sptr, *endptr; sptr = s; r = strtol(sptr, &endptr, 0); while ((*endptr == ' ') || (*endptr == '\t')) endptr++; /* skipping whitespace */ if ((sptr == endptr) || (*endptr++ != ',')) return msw_get_color(dflt, dflt); sptr = endptr; g = strtol(sptr, &endptr, 0); while ((*endptr == ' ') || (*endptr == '\t')) endptr++; /* skipping whitespace */ if ((sptr == endptr) || (*endptr++ != ',')) return msw_get_color(dflt, dflt); sptr = endptr; b = strtol(sptr, &endptr, 0); while ((*endptr == ' ') || (*endptr == '\t')) endptr++; /* skipping whitespace */ if ((sptr == endptr) || (*endptr++ != 0)) return msw_get_color(dflt, dflt); return RGB((BYTE)r, (BYTE)g, (BYTE)b); } else { char buf[50]; GetProfileString(szJedSection, s, dflt, buf, sizeof(buf)); if (buf[0] >='0' && buf[0] <= '9') return msw_get_color(buf, dflt); else return msw_get_color(dflt, dflt); } } static void msw_get_default(Msw_Ini_Type *t) { char s[50]; GetProfileString(szJedSection, t->name, t->dflt, s, sizeof(s)); switch (t->type) { case MSW_STRING_TYPE: strcpy((char *)t->buf, s); break; case MSW_INT_TYPE: *(int *)t->buf = atoi(s); break; case MSW_COLOR_TYPE: *(COLORREF *)t->buf = msw_get_color(s, t->dflt); break; } } static void msw_get_defaults(void) { int i = 0; char buf[20]; /* Check for standard color names in INI file. * Add they if cannot find. */ while (Msw_Std_Color[i].name != NULL) { if (!GetProfileString(szJedSection, Msw_Std_Color[i].name, "", buf, sizeof(buf))) msw_define_color(Msw_Std_Color[i].name, &Msw_Std_Color[i].r, &Msw_Std_Color[i].g, &Msw_Std_Color[i].b); i++; } i = 0; while (Msw_Ini_List[i].name != NULL) msw_get_default(&Msw_Ini_List[i++]); } static void get_dc(void) { if (!This_Window.ndc) This_Window.hdc = GetDC(This_Window.w); This_Window.ndc++; } static void release_dc(void) { assert(This_Window.ndc); if (This_Window.ndc == 1) ReleaseDC(This_Window.w, This_Window.hdc); This_Window.ndc--; } static void process_message(void) { MSG msg; if (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) { TranslateMessage(&msg); DispatchMessage(&msg); } } static void init_application(void) { WNDCLASS wc; wc.style = 0; wc.lpfnWndProc = JEDWndProc; wc.cbClsExtra = 0; wc.cbWndExtra = 0; wc.hInstance = hInstance; wc.hIcon = LoadIcon(NULL, IDI_APPLICATION); wc.hCursor = LoadCursor(NULL, IDC_IBEAM); wc.hbrBackground = NULL; wc.lpszMenuName = NULL; wc.lpszClassName = "wjed"; RegisterClass(&wc); } static void init_instance(void) { int i; TEXTMETRIC tm; /* initializing key queue */ Key_Num = 0; Key_Head = 0; Key_Tail = 0; This_Window.hdc = NULL; This_Window.ndc = 0; for(i = 0; i < MAX_MENU_ID; i++) Menu_Callbacks[i] = NULL; msw_get_defaults(); /* creating fonts, brushes etc */ This_Window.font = CreateFont(-This_Window.font_height, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0, 0, FIXED_PITCH, This_Window.font_name); for(i = 0; i < JMAX_COLORS; i++) colors[i].hbrBG = CreateSolidBrush(colors[i].bg); msw_normal_video(); /* creating window */ This_Window.w = CreateWindow("wjed", This_Window.title, WS_OVERLAPPEDWINDOW, This_Window.x, This_Window.y, This_Window.width, This_Window.height, NULL, NULL, hInstance, NULL); /* function that will be called when jed exits (deletes fonts, brushes etc.) */ atexit(msw_cleanup); /* retrieve font metrics (width and base) */ get_dc(); SelectObject(This_Window.hdc, This_Window.font); GetTextMetrics(This_Window.hdc, &tm); This_Window.font_width = tm.tmAveCharWidth; This_Window.font_height = tm.tmHeight; release_dc(); ShowWindow(This_Window.w, SW_SHOW); UpdateWindow(This_Window.w); SetTimer(This_Window.w, 42, 30000, NULL); /* used for updating display time */ } void init_tty (void) { if (Batch) return; hInstance = _hInstance; hPrevInst = _hPrev; if (!hPrevInst) init_application(); init_instance(); } void reset_tty(void) { } static void copy_rect(int x1, int y1, int x2, int y2, int x3, int y3) { int dx, dy; RECT rcSrc; dx = (x3 - x1) * This_Window.font_width; dy = (y3 - y1) * This_Window.font_height; SetRect(&rcSrc, x1 * This_Window.font_width, y1 * This_Window.font_height, x2 * This_Window.font_width, y2 * This_Window.font_height); ScrollWindow(This_Window.w, dx, dy, &rcSrc, NULL); #ifdef __WIN32__ UpdateWindow(This_Window.w); #endif } static void blank_rect(int x1, int y1, int x2, int y2) { RECT rc; SetRect(&rc, x1 * This_Window.font_width, y1 * This_Window.font_height, x2 * This_Window.font_width, y2 * This_Window.font_height); get_dc(); FillRect(This_Window.hdc, &rc, colors[JNORMAL_COLOR].hbrBG); release_dc(); } /* This routine assumes that cursor is in the correct location. The cursor is placed at the end of the string. */ static void tt_write(char *s, int n) { get_dc(); if (This_Window.cursor_showing) hide_cursor(); SelectObject(This_Window.hdc, This_Window.font); SetTextColor(This_Window.hdc, This_Window.current_color->fg); SetBkColor(This_Window.hdc, This_Window.current_color->bg); TextOut(This_Window.hdc, This_Window.cursor_col * This_Window.font_width, This_Window.cursor_row * This_Window.font_height, s, n); This_Window.cursor_col += n; if (This_Window.cursor_col >= JX_Screen_Cols) This_Window.cursor_col = JX_Screen_Cols - 1; release_dc(); } static void hide_cursor(void) { unsigned short *s; char ch; int col = This_Window.vis_curs_col, row = This_Window.vis_curs_row; Color_Type *color; if (This_Window.cursor_showing == 0) return; This_Window.cursor_showing = 0; s = JScreen[row].old; if (s == NULL) return; s += col; ch = (char) (*s & 0xFF); get_dc(); color = &colors[*s >> 8]; SelectObject(This_Window.hdc, This_Window.font); SetTextColor(This_Window.hdc, color->fg); SetBkColor(This_Window.hdc, color->bg); TextOut(This_Window.hdc, This_Window.cursor_col * This_Window.font_width, This_Window.cursor_row * This_Window.font_height, &ch, 1); release_dc(); } static void show_cursor(void) { unsigned short *s; char ch; int c, r; Color_Type *curs_color; RECT rc; if (This_Window.cursor_showing) hide_cursor(); This_Window.cursor_showing = 1; r = This_Window.vis_curs_row = This_Window.cursor_row; c = This_Window.vis_curs_col = This_Window.cursor_col; s = JScreen[r].old; if (s == NULL) return; s += c; ch = (char) (*s & 0xFF); curs_color = &colors[JCURSOR_COLOR]; get_dc(); if (This_Window.focus) { SelectObject(This_Window.hdc, This_Window.font); SetTextColor(This_Window.hdc, curs_color->fg); SetBkColor(This_Window.hdc, curs_color->bg); TextOut(This_Window.hdc, This_Window.cursor_col * This_Window.font_width, This_Window.cursor_row * This_Window.font_height, &ch, 1); } else { rc.left = This_Window.cursor_col * This_Window.font_width; rc.top = This_Window.cursor_row * This_Window.font_height; rc.right = rc.left + This_Window.font_width; rc.bottom = rc.top + This_Window.font_height; FrameRect(This_Window.hdc, &rc, curs_color->hbrBG); } release_dc(); } unsigned char sys_getkey(void) { int n; while (!SLKeyBoard_Quit && !Key_Num) process_message(); if (SLKeyBoard_Quit) return Abort_Char; n = _getkey(); SLKeyBoard_Quit = 0; return n; } int sys_input_pending(int *tsecs, int unused) { DWORD t = GetTickCount() + *tsecs * 100L; (void) unused; while ((!Key_Num) && (GetTickCount() < t)) process_message(); return Key_Num != 0; } void sys_suspend(void) { ShowWindow(This_Window.w, SW_MINIMIZE); } int get_term_dimensions(int *cols, int *rows) { *cols = This_Window.width / This_Window.font_width; *rows = This_Window.height / This_Window.font_height; return 0; } /* Hooks */ static void msw_update_open (void) { hide_cursor (); Performing_Update = 1; } static void msw_update_close (void) { Performing_Update = 0; if (JWindow->trashed) return; show_cursor (); } static void msw_suspend (void) { WINDOWPLACEMENT wndpl; GetWindowPlacement(This_Window.w, &wndpl); if (wndpl.showCmd == SW_MINIMIZE) ShowWindow(This_Window.w, SW_NORMAL); else ShowWindow(This_Window.w, SW_MINIMIZE); } static int msw_init_slang (void) { SLadd_name ("msw_system", (long) msw_system, SLANG_INTRINSIC, SLANG_MAKE_ARGS(INT_TYPE, 1)); return SLang_add_table(Sl_Msw_Table, "MSWJed") && SLdefine_for_ifdef("MSWINDOWS") && SLdefine_for_ifdef("MOUSE"); } static void msw_define_xkeys (SLKeyMap_List_Type *map) { SLang_define_key1("^[Ow", (VOID *) bob, SLKEY_F_INTRINSIC, map); SLang_define_key1("^[Oq", (VOID *) eob, SLKEY_F_INTRINSIC, map); SLang_define_key1("\xE0\xE0", (VOID *) ins_char_cmd, SLKEY_F_INTRINSIC, map); } /* This routine is called from S-Lang inner interpreter. It serves as a poor mans version of an interrupt 9 handler */ static void msw_check_kbd(void) { MSG msg; if (Batch) return; while (PeekMessage(&msg, 0, 0, 0, PM_NOREMOVE)) process_message(); } /* Terminal functions */ static void msw_goto_rc(int r, int c) { get_dc(); if (This_Window.cursor_showing) hide_cursor(); if (r > JX_Screen_Rows) r = JX_Screen_Rows; if (c > JX_Screen_Cols) c = JX_Screen_Cols; This_Window.cursor_row = r + This_Window.scroll_r1; This_Window.cursor_col = c; if (!Performing_Update) show_cursor(); release_dc(); } static void msw_begin_insert(void) { hide_cursor(); copy_rect(This_Window.cursor_col, This_Window.cursor_row, JX_Screen_Cols - 1, This_Window.cursor_row + 1, This_Window.cursor_col + 1, This_Window.cursor_row); } static void msw_end_insert(void) { } static void msw_del_eol(void) { blank_rect(This_Window.cursor_col, This_Window.cursor_row, JX_Screen_Cols, This_Window.cursor_row + 1); } static void msw_delete_nlines(int n) { int r1, r2; r1 = This_Window.cursor_row; r2 = This_Window.scroll_r2; if (r1 <= r2 - n) copy_rect(0, r1 + n, JX_Screen_Cols, r2 + 1, 0, r1); if (Scroll_By_Copying == 0) blank_rect(0, r2 - n, JX_Screen_Cols, r2); } static void msw_delete_char(void) { copy_rect(This_Window.cursor_col + 1, This_Window.cursor_row, JX_Screen_Cols, This_Window.cursor_row + 1, This_Window.cursor_col, This_Window.cursor_row); } static void msw_erase_line(void) { blank_rect(0, This_Window.cursor_row, JX_Screen_Cols, This_Window.cursor_row + 1); } static int Rev_Vid_Flag; static void msw_reverse_video(int color) { Rev_Vid_Flag = color; This_Window.current_color = &colors[color]; } static void msw_normal_video(void) { Rev_Vid_Flag = JNORMAL_COLOR; This_Window.current_color = &colors[JNORMAL_COLOR]; } static void msw_cls(void) { RECT rc; get_dc(); GetClientRect(This_Window.w, &rc); FillRect(This_Window.hdc, &rc, colors[JNORMAL_COLOR].hbrBG); release_dc(); } static void msw_beep(void) { MessageBeep(0); } static void msw_reverse_index(int n) { int r1, r2; r1 = This_Window.scroll_r1; r2 = This_Window.scroll_r2; if (r2 >= r1 + n) copy_rect(0, r1, JX_Screen_Cols, r2 - n + 1, 0, r1 + n); if (Scroll_By_Copying == 0) blank_rect(0, r1, JX_Screen_Cols, r1 + n); } static void msw_write_string (char *s) { get_dc(); tt_write(s, strlen(s)); if (!Performing_Update) show_cursor (); release_dc(); } static void send_attr_str(unsigned short *s, unsigned short *smax) { unsigned char out[250], ch, attr, *p; register unsigned short sh; p = out; get_dc(); while (s < smax) { sh = (unsigned short) *s++; ch = sh & 0xFF; attr = sh >> 8; if ((attr == 0) && (Rev_Vid_Flag != 0)) { if (p != out) { *p = 0; msw_write_string ((char *) out); p = out; } tt_normal_video(); /* Rev_Vid_Flag = 0; */ } else if ((attr != 0) && (Rev_Vid_Flag != attr)) { if (p != out) { *p = 0; msw_write_string ((char *) out); p = out; } msw_reverse_video(attr); /* Rev_Vid_Flag = 1; */ } *p++ = ch; } *p = 0; if (p != out) msw_write_string ((char *) out); /* if (Rev_Vid_Flag) tt_normal_video(); */ release_dc(); } static void msw_smart_puts(unsigned short *neww, unsigned short *oldd, int len, int row) { if (0 == memcmp ((char *) neww, (char *) oldd, len * sizeof (short))) return; msw_goto_rc (row, 0); send_attr_str (neww, neww + len); } /* This function is called assuming that cursor is in correct position */ static void msw_putchar(char ch) { if (ch == '\b') { ch = ' '; if (This_Window.cursor_col == 0) return; This_Window.cursor_col--; } get_dc(); if (Rev_Vid_Flag != JNORMAL_COLOR) tt_normal_video(); tt_write(&ch, 1); show_cursor (); release_dc(); } static void msw_init_video (void) { } static void msw_reset_video (void) { tt_normal_video (); } static void msw_set_scroll_region(int r1, int r2) { This_Window.scroll_r1 = r1; This_Window.scroll_r2 = r2; } static void msw_reset_scroll_region() { This_Window.scroll_r1 = 0; This_Window.scroll_r2 = JX_Screen_Cols - 1; } static void msw_get_terminfo() { JX_Screen_Cols = 80; JX_Screen_Rows = 24; Scroll_By_Copying = 1; /* init hooks */ X_Update_Open_Hook = msw_update_open; X_Update_Close_Hook = msw_update_close; X_Suspend_Hook = msw_suspend; /* X_Argc_Argv_Hook = X_eval_command_line; */ X_Init_SLang_Hook = msw_init_slang; X_Define_Keys_Hook = msw_define_xkeys; SLang_Interrupt = msw_check_kbd; /* Set this so that main will not try to read from stdin. It is quite * likely that this is started from a menu or something. */ Stdin_Is_TTY = -1; } static void msw_set_color (int i, char *what, char *fg, char *bg) { int r, g, b; char buf[30]; (void) what; r = GetRValue(colors[i].fg); g = GetGValue(colors[i].fg); b = GetBValue(colors[i].fg); sprintf(buf, "%d,%d,%d", r, g, b); colors[i].fg = msw_get_color(fg, buf); r = GetRValue(colors[i].bg); g = GetGValue(colors[i].bg); b = GetBValue(colors[i].bg); sprintf(buf, "%d,%d,%d", r, g, b); colors[i].bg = msw_get_color(bg, buf); DeleteObject(colors[i].hbrBG); colors[i].hbrBG = CreateSolidBrush(colors[i].bg); InvalidateRect(This_Window.w, NULL, FALSE); } static void msw_narrow_width (void) { } static void msw_wide_width (void) { } static void msw_enable_cursor_keys(void) { } static void msw_set_term_vtxxx (int *n) { (void) n; } int msw_system(char *command_line, int *nCmdShow) { UINT retcode; unsigned char ch; char buf [256], *b, *c, *cmax; /* Winexec cannot be trusted. For now until we think of something better, * assume pick off first word of command line and treat it as a file. */ b = buf; c = command_line; cmax = c + 255; while ((c < cmax) && ((ch = (unsigned char) *c++) > ' ')) *b++ = (char) ch; *b = 0; if (1 != file_status(buf)) { retcode = 2; } else retcode = WinExec(command_line, *nCmdShow); if (retcode < 32) { switch (retcode) { case 0: return -1; case 11: case 12: case 14: case 15: msg_error("Invalid EXE file"); break; case 2: msg_error("File not found"); break; case 3: msg_error("Path not found"); break; case 8: msg_error("Out of memory"); break; case 10: msg_error("Incorrect MS Windows version"); break; case 16: msg_error("Cannot run more that one instance of application"); break; case 20: msg_error("Cannot find one of required DLL's"); break; case 21: msg_error("Application requires MS Windows 32-bit extension"); break; default: msg_error("Unknown error"); } return retcode; } return 0; } int sys_System(char *command_line) { return dos_system(command_line); } /* There is no way to say Windows to wait for process. * The only idea I have is to use file to indicate * end of process (for DOS programs) */ static int dos_system(char *command_line) { char *tmp_file = "jedshell.tmp"; char buf[256]; FILE *f; MSG msg; HCURSOR hcur, hcur_old; int ret; int nCmdShow = SW_SHOWMINIMIZED; sprintf(buf, "%s\\bin\\mswshell.pif %s", Jed_Root_Dir, command_line); sys_delete_file(tmp_file); if (msw_system(buf, &nCmdShow) != 0) return 1; hcur = LoadCursor(NULL, IDC_WAIT); hcur_old = SetCursor(hcur); while (NULL == (f = fopen(tmp_file, "r"))) if (PeekMessage(&msg, 0, 0, 0, PM_NOREMOVE)) { process_message(); SetCursor(hcur); } SetCursor(hcur_old); fgets(buf, sizeof(buf), f); ret = (int) atol(buf); *buf = 0; fgets(buf, sizeof(buf), f); fclose(f); sys_delete_file(tmp_file); if (*buf != 0) msg_error(buf); return ret; } /* to make slang.lib happy * There is no definition of function system for MS Windows */ int system(const char *command) { return sys_System((char *) command); } static void cover_exposed_area (int x, int y, int width, int height) { unsigned short *s, *smax; int row, save_row, save_col, max_col, max_row, col; Performing_Update++; hide_cursor (); save_row = This_Window.cursor_row; save_col = This_Window.cursor_col; col = x / This_Window.font_width; row = y / This_Window.font_height; max_col = 2 + col + width / This_Window.font_width; max_row = 2 + row + height / This_Window.font_height; if (max_col > JX_Screen_Cols) max_col = JX_Screen_Cols; if (max_row > JX_Screen_Rows) max_row = JX_Screen_Rows; for (This_Window.cursor_row = row; This_Window.cursor_row < max_row; This_Window.cursor_row++) { This_Window.cursor_col = col; s = JScreen[This_Window.cursor_row].old + This_Window.cursor_col; smax = JScreen[This_Window.cursor_row].old + max_col; if (s) send_attr_str(s, smax); } This_Window.cursor_row = save_row; This_Window.cursor_col = save_col; Performing_Update--; show_cursor (); } static void push_mouse_event(char button, int x, int y, int state, char type) { unsigned int s = 0; int col, row; static char last_button; if (button == 0) button = last_button; else last_button = button; if (state & MK_LBUTTON) s |= 1; if (state & MK_MBUTTON) s |= 2; if (state & MK_RBUTTON) s |= 4; switch (button) { case 'l': JMouse.button = 1; break; #if 0 /* I cannot get this to work right. I need to buy some windows documentation. * Basically I am trying to simulate the middle button keypress if the alt key * is down. Is this possible? */ if (GetKeyState(VK_MENU) == 0) { JMouse.button = 1; break; } button = 'm'; /* drop */ #endif case 'm': JMouse.button = 2; break; case 'r': JMouse.button = 3; break; default: JMouse.button = 0; } if (state & MK_CONTROL) { button = button - 'a' + 1; s |= 8; } if (state & MK_SHIFT) { button = button - 'a' + 'A'; s |= 16; } col = 1 + x / This_Window.font_width; row = 1 + y / This_Window.font_height; if ((col == JMouse.x) && (row == JMouse.y) && (type == 0)) return; if ((type == MOUSE_RELEASE) && (!JMouse.state & (1 << (JMouse.button - 1)))) return; JMouse.state = s; JMouse.x = col; JMouse.y = row; _putkey('\033'); _putkey(0); _putkey(type); _putkey(button); } static void x_warp_pointer (void) { } static void x_region_2_cutbuffer (void) { int nbytes; char *dat; int i, x; HGLOBAL hBuf; char *buf; dat = make_buffer_substring(&nbytes); if (dat == NULL) return; OpenClipboard(This_Window.w); EmptyClipboard(); for(i = x = 0; i < nbytes; i++) if (dat[i] == '\n') x++; hBuf = GlobalAlloc(GHND, x + nbytes); buf = (char *) GlobalLock(hBuf); for(i = x = 0; i < nbytes; i++) { if (dat[i] == '\n') buf[x++] = '\r'; buf[x++] = dat[i]; } GlobalUnlock(hBuf); SetClipboardData(CF_TEXT, hBuf); CloseClipboard(); } static int x_insert_cutbuffer (void) { int nbytes = 0; char *dat; int i, x; HGLOBAL hBuf; char *buf; CHECK_READ_ONLY OpenClipboard(This_Window.w); hBuf = GetClipboardData(CF_TEXT); CloseClipboard(); if (hBuf) { buf = (char *)GlobalLock(hBuf); for(i = x = 0; buf[i] != 0; i++) if (buf[i] != '\r') x++; nbytes = x; dat = SLMALLOC(x + 1); for(i = x = 0; buf[i] != 0; i++) if (buf[i] != '\r') dat[x++] = buf[i]; dat[x] = 0; ins_chars((unsigned char *) dat, nbytes); GlobalUnlock(hBuf); } return nbytes; } static void msw_define_color(char *color_name, int *pr, int *pg, int *pb) { char buf[30]; sprintf(buf, "%d,%d,%d", *pr, *pg, *pb); WriteProfileString(szJedSection, color_name, buf); } static void set_window_name (char *s) { if (Batch) return; strcpy(This_Window.title, s); SetWindowText(This_Window.w, s); } static void _USERENTRY msw_cleanup(void) { int i; char buf[10]; RECT rc; GetWindowRect(This_Window.w, &rc); itoa(rc.left, buf, 10); WriteProfileString(szJedSection, "X", buf); itoa(rc.top, buf, 10); WriteProfileString(szJedSection, "Y", buf); itoa(rc.right - rc.left, buf, 10); WriteProfileString(szJedSection, "Width", buf); itoa(rc.bottom - rc.top, buf, 10); WriteProfileString(szJedSection, "Height", buf); KillTimer(This_Window.w, 42); if (This_Window.w) DestroyWindow(This_Window.w); DeleteObject(This_Window.font); for(i = 0; i < JMAX_COLORS; i++) if (colors[i].hbrBG) DeleteObject(colors[i].hbrBG); } static int Ignore_Wchar_Message; static char f_keys[4][12] = { { 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 133, 134 }, { 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 135, 136 }, { 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 137, 138 }, { 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 139, 140 } }; static char small_keypad_keys[4][13] = { { 'G', 'H', 'I', 0, 'K', 0, 'M', 0, 'O', 'P', 'Q', 'R', 'S' }, { '0', '1', '2', 0, '3', 0, '4', 0, '5', '6', '7', '8', '9' }, { 'w', 141, 132, 0, 's', 0, 't', 0, 'u', 145, 'v', 146, 147 }, { 151, 152, 153, 0, 155, 0, 157, 0, 159, 160, 161, 162, 163 } }; static char num_keypad_keys[4][13] = { { 'w', 'x', 'y', 0, 't', 'u', 'v', 0, 'q', 'r', 's', 'p', 'n' }, { '0', '1', '2', 0, '3', 0 , '4', 0, '5', '6', '7', '8', '9' }, { 'w', 141, 132, 0, 's', 143, 't', 0, 'u', 145, 'v', 146, 147 }, { 'w', 'x', 'y', 0, 't', 'u', 'v', 0, 'q', 'r', 's', 'p', 'n' } }; LRESULT CALLBACK process_key_down (HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam) { unsigned int key_state = 0; unsigned int scan; int c1 = 0; char prefix; int i, state; if (GetKeyState(VK_CONTROL) & 0x8000) key_state |= KEY_CONTROL; if (GetKeyState(VK_SHIFT) & 0x8000) key_state |= KEY_SHIFT; if (GetKeyState(VK_MENU) & 0x8000) key_state |= KEY_ALT; Ignore_Wchar_Message = 0; scan = (unsigned int) ((lParam >> 16) & 0x1FF); switch (scan) { default: return DefWindowProc(hWnd, msg, wParam, lParam); case 0x00E: /* backspace */ _putkey (127); Ignore_Wchar_Message = 1; return 0; case 0x039: /* space */ Ignore_Wchar_Message = 1; if ((key_state & KEY_CONTROL) == 0) { _putkey (' '); return 0; } _putkey (0); _putkey (3); return 0; case 0x003: /* 2 key */ if (key_state & KEY_CONTROL) { Ignore_Wchar_Message = 1; _putkey (0); return 0; } return DefWindowProc(hWnd, msg, wParam, lParam); case 0x00C: /* -/_ key */ if (key_state & KEY_CONTROL) { Ignore_Wchar_Message = 1; _putkey (31); /* ^_ */ return 0; } return DefWindowProc(hWnd, msg, wParam, lParam); case 0xE02F: c1 = 'Q'; break; /* KEYPAD SLASH */ case 0x037: /* KEYPAD STAR */ c1 = 'R'; Ignore_Wchar_Message = 1; break; case 0x04A: /* KEYPAD MINUS */ c1 = 'S'; Ignore_Wchar_Message = 1; break; case 0x04E: /* KEYPAD PLUS */ c1 = 'm'; Ignore_Wchar_Message = 1; break; case 0x047: /* KEYPAD HOME */ case 0x048: /* KEYPAD UP */ case 0x049: /* KEYPAD PGUP */ case 0x04B: /* KEYPAD LEFT */ case 0x04C: /* KEYPAD 5 */ case 0x04D: /* KEYPAD RIGHT */ case 0x04F: /* KEYPAD END */ case 0x050: /* KEYPAD DOWN */ case 0x051: /* KEYPAD PGDN */ case 0x053: /* KEYPAD DEL */ case 0x052: /* KEYPAD INSERT */ prefix = 0xE0; state = 0; if (key_state & KEY_SHIFT) state = 1; if (key_state & KEY_CONTROL) state = 2; if (key_state & KEY_ALT) state = 3; if (key_state & (KEY_CONTROL | KEY_ALT)) { _putkey (0); _putkey (num_keypad_keys[state][scan - 0x47]); return 0; } else c1 = num_keypad_keys[state][scan - 0x47]; break; case 0x10D: /* KEYPAD ENTER */ if (key_state & KEY_ALT) { _putkey(0); _putkey(166); /* Does this drop here??? */ } else { c1 = 'M'; break; } case 0x147: /* home */ case 0x148: /* UP */ case 0x149: /* PGUP */ case 0x14B: /* LEFT */ case 0x14D: /* RIGHT */ case 0x14F: /* END */ case 0x150: /* DOWN */ case 0x151: /* PGDN */ case 0x153: /* DEL */ case 0x152: /* INSERT */ prefix = 0xE0; state = 0; if (key_state & KEY_SHIFT) state = 1; if (key_state & KEY_CONTROL) state = 2; if (key_state & KEY_ALT) { prefix = 0; state = 3; } _putkey (prefix); _putkey (small_keypad_keys[state][scan - 0x147]); return 0; case 0x3b: /* F1 */ case 0x3c: case 0x3d: case 0x3e: case 0x3f: case 0x40: case 0x41: case 0x42: case 0x43: case 0x44: case 0x57: case 0x58: /* F12 */ i = scan - 0x3b; if (i > 9) i -= 0x12; state = 0; if (key_state & KEY_SHIFT) state = 1; if (key_state & KEY_CONTROL) state = 2; if (key_state & KEY_ALT) if (i == 3) /* Alt-F4 */ return DefWindowProc(hWnd, msg, wParam, lParam); else state = 3; _putkey(0); _putkey(f_keys[state][i]); return 0; } if (GetKeyState(VK_NUMLOCK) & 0x8000) { Ignore_Wchar_Message = 0; return DefWindowProc(hWnd, msg, wParam, lParam); } _putkey (27); _putkey ('O'); _putkey (c1); return 0; } LRESULT CALLBACK JEDWndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam) { PAINTSTRUCT ps; RECT rc; switch (msg) { case WM_CREATE: This_Window.w = hWnd; return 0; case WM_SIZE: if (wParam != SIZE_MINIMIZED) { This_Window.width = LOWORD(lParam); This_Window.height = HIWORD(lParam); reset_display(); init_display(1); } break; case WM_PAINT: BeginPaint(This_Window.w, &ps); This_Window.hdc = ps.hdc; This_Window.ndc = 1; cover_exposed_area(ps.rcPaint.left, ps.rcPaint.top, ps.rcPaint.right - ps.rcPaint.left, ps.rcPaint.bottom - ps.rcPaint.top); EndPaint(This_Window.w, &ps); This_Window.hdc = NULL; This_Window.ndc = 0; break; case WM_ERASEBKGND: GetClientRect(This_Window.w, &rc); FillRect((HDC)wParam, &rc, colors[JNORMAL_COLOR].hbrBG); break; case WM_SYSCHAR: if (Ignore_Wchar_Message == 0) { switch (wParam) { case 9: /* ALT-Tab */ case ' ': /* ALT-Space */ return DefWindowProc(hWnd, msg, wParam, lParam); default: _putkey('\033'); _putkey(wParam); } break; } else return DefWindowProc(hWnd, msg, wParam, lParam); case WM_CHAR: if (Ignore_Wchar_Message == 0) { if (wParam == 0xE0) _putkey(wParam); _putkey(wParam); break; } return DefWindowProc(hWnd, msg, wParam, lParam); case WM_SYSKEYDOWN: case WM_KEYDOWN: return process_key_down (hWnd, msg, wParam, lParam); case WM_KEYUP: Ignore_Wchar_Message = 0; break; case WM_SYSKEYUP: Ignore_Wchar_Message = 0; return DefWindowProc(hWnd, msg, wParam, lParam); case WM_LBUTTONUP: push_mouse_event('l', LOWORD(lParam), HIWORD(lParam), wParam, MOUSE_RELEASE); break; case WM_MBUTTONUP: push_mouse_event('m', LOWORD(lParam), HIWORD(lParam), wParam, MOUSE_RELEASE); break; case WM_RBUTTONUP: push_mouse_event('r', LOWORD(lParam), HIWORD(lParam), wParam, MOUSE_RELEASE); break; case WM_LBUTTONDOWN: push_mouse_event('l', LOWORD(lParam), HIWORD(lParam), wParam, MOUSE_PRESS); break; case WM_MBUTTONDOWN: push_mouse_event('m', LOWORD(lParam), HIWORD(lParam), wParam, MOUSE_PRESS); break; case WM_RBUTTONDOWN: push_mouse_event('r', LOWORD(lParam), HIWORD(lParam), wParam, MOUSE_PRESS); break; case WM_MOUSEMOVE: if (wParam & (MK_LBUTTON | MK_MBUTTON | MK_RBUTTON)) push_mouse_event(0, LOWORD(lParam), HIWORD(lParam), wParam, MOUSE_DRAG); break; case WM_SETFOCUS: case WM_KILLFOCUS: hide_cursor(); This_Window.focus = (msg == WM_SETFOCUS); show_cursor(); break; case WM_CLOSE: exit_jed(); break; case WM_TIMER: if (Display_Time) { JWindow->trashed = 1; update((Line *) NULL, 0, 1); } return 0; case WM_COMMAND: if (wParam < MAX_MENU_ID) { int force = 1; if (Menu_Callbacks[wParam]) { if (is_internal(Menu_Callbacks[wParam])) { char buf[50]; sprintf(buf, "call(\"%s\");", Menu_Callbacks[wParam]); SLang_load_string(buf); } else if (SLang_execute_function(Menu_Callbacks[wParam]) == 0) msg_error(Menu_Callbacks[wParam]); } update_cmd(&force); } return 0; default: return DefWindowProc(hWnd, msg, wParam, lParam); } return 0; } /* FUNCTIONS STOLEN FROM DOS_OS2.C */ void sys_flush (int dummy) { (void) dummy; } /* Delete the file NAME. returns 0 on failure, 1 on sucess * Under OS/2 and DOS, unlink()[UNIX] and remove()[ANSI] are equivalent. */ int sys_delete_file(char *name) { return(1 + remove(name)); } /* Rename the file or directory OLDNAME to NEWNAME. Moving a file * to a different directory on the same drive is possible. * returns 0 on success and -1 on error */ int sys_rename(char *oldname, char *newname) { return(rename(oldname,newname)); } static struct ffblk The_ffblk; static int File_Attr; #define HIDDEN FA_HIDEN #define SYSTEM FA_SYSTEM #define SUBDIR FA_DIREC #define READON FA_RDONLY static char Found_Dir[256]; #define lcase(x) if (((x) >= 'A') && ((x) <= 'Z')) (x) |= 0x20 static void fixup_name(char *file) { int dir; char *p, name[256]; strcpy(file, Found_Dir); strcpy(name, The_ffblk.ff_name); dir = (The_ffblk.ff_attrib & SUBDIR); p = name; while (*p) { lcase(*p); p++; } strcat(file, name); if (dir) strcat(file, "\\"); } int sys_findfirst(char *thefile) { char *f, the_path[256], *file, *f1; char *pat; File_Attr = READON | SUBDIR; file = expand_filename(thefile); f1 = f = extract_file(file); strcpy (Found_Dir, file); Found_Dir[(int) (f - file)] = 0; strcpy(the_path, file); while (*f1 && (*f1 != '*')) f1++; if (! *f1) { while (*f && (*f != '.')) f++; if (*f) strcat(the_path, "*"); else #ifdef __WIN32__ strcat(the_path, "*"); #else strcat(the_path, "*.*"); #endif } pat = the_path; if (!findfirst(pat, &The_ffblk, File_Attr)) { fixup_name(file); strcpy(thefile, file); return(1); } else return 0; } int sys_findnext(char *file) { if (!findnext(&The_ffblk)) { fixup_name(file); return(1); } else return(0); } /* Here we do a find first followed by calling routine to conver time */ unsigned long sys_file_mod_time(char *file) { struct tm t; /* struct tm *local; */ time_t secs; unsigned int dat, tim; File_Attr = READON | SUBDIR; if (!findfirst(file, &The_ffblk, File_Attr)) { tim = The_ffblk.ff_ftime; dat = The_ffblk.ff_fdate; t.tm_min = (tim >> 5) & 63; t.tm_hour = (tim >> 11) & 31; t.tm_sec = 2 * (tim & 31); t.tm_mday = dat & 31; t.tm_mon = (dat >> 5) & 15 - 1; t.tm_year = 80 + ((dat >> 9) & 0x7F); secs = mktime(&t); return((unsigned long) secs); } else return 0; } int sys_chmod(char *file, int what, int *mode, short *dum1, short *dum2) { int flag = 0, m = *mode; (void) dum1; (void) dum2; file = msdos_pinhead_fix_dir (file); if ((m = _chmod(file, what, m)) == -1) { flag = errno; /* Here if carry flag is set */ if (flag == ENOENT) return(0);/* file not found */ return -1; } if (what == 0) { *mode = m; } if (m & 0x10) { /* msg_error("File is a directory."); */ return(2); } return(1); } void flush_output (void) { fflush (stdout); } void get_menubar() { HMENU hmenu = GetMenu(This_Window.w); if (!hmenu) { hmenu = CreateMenu(); SetMenu(This_Window.w, hmenu); DrawMenuBar(This_Window.w); } SLang_push_integer((int) hmenu); } void destroy_menubar() { int i; HMENU hmenu = GetMenu(This_Window.w); if (hmenu) { SetMenu(This_Window.w, NULL); DestroyMenu(hmenu); } for(i = 0; i < MAX_MENU_ID; i++) Menu_Callbacks[i] = NULL; } void create_popup_menu() { HMENU hmenu = CreatePopupMenu(); SLang_push_integer((int) hmenu); } void destroy_menu() { HMENU hmenu; int count, i; int id; if (!SLang_pop_integer((int *)&hmenu)) { count = GetMenuItemCount(hmenu); for(i = 0; i < count; i++) { id = GetMenuItemID(hmenu, i); if (id > 0 && Menu_Callbacks[id] != NULL) { SLFREE(Menu_Callbacks[id]); Menu_Callbacks[id] = NULL; } } if (!DestroyMenu(hmenu)) msg_error("Cannot destroy menu"); } } void append_menu_item() { HMENU hmenu; char *name; int name_flag; int id; char *callback; int callback_flag; if (!SLang_pop_string(&callback, &callback_flag) && !SLang_pop_integer(&id) && !SLang_pop_string(&name, &name_flag) && !SLang_pop_integer((int *)&hmenu)) { if (id >= MAX_MENU_ID) msg_error("Id is too big"); else { if (!AppendMenu(hmenu, MF_STRING, id, name)) msg_error("Cannot append menu item"); else { if (Menu_Callbacks[id]) { char buf[50]; sprintf(buf, "Id %d is already used.", id); msg_error(buf); } else { Menu_Callbacks[id] = SLMALLOC(strlen(callback) + 1); strcpy(Menu_Callbacks[id], callback); } } } if (name_flag) SLFREE(name); if (callback_flag) SLFREE(callback); } } void append_popup_menu() { HMENU hmenu; char *name; int name_flag; HMENU popup; if (!SLang_pop_integer((int *)&popup) && !SLang_pop_string(&name, &name_flag) && !SLang_pop_integer((int *)&hmenu)) { if (!AppendMenu(hmenu, MF_STRING | MF_POPUP, (UINT)popup, name)) msg_error("Cannot append popup menu"); if (name_flag) SLFREE(name); } } void append_separator() { HMENU hmenu; if (!SLang_pop_integer((int *)&hmenu)) { if (!AppendMenu(hmenu, MF_STRING | MF_SEPARATOR, 0, 0)) msg_error("Cannot append separator"); } } void insert_menu_item() { HMENU hmenu; int id; char *name; int name_flag; int idNew; char *callback; int callback_flag; if (!SLang_pop_string(&callback, &callback_flag) && !SLang_pop_integer(&idNew) && !SLang_pop_string(&name, &name_flag) && !SLang_pop_integer(&id) && !SLang_pop_integer((int *)&hmenu)) { if (idNew >= MAX_MENU_ID) msg_error("Id is too big"); else { if (!InsertMenu(hmenu, id, MF_STRING | MF_BYCOMMAND, idNew, name)) msg_error("Cannot insert menu item"); else { if (Menu_Callbacks[idNew]) { char buf[50]; sprintf(buf, "Id %d is already used.", idNew); msg_error(buf); } else { Menu_Callbacks[idNew] = SLMALLOC(strlen(callback) + 1); strcpy(Menu_Callbacks[idNew], callback); } } } if (name_flag) SLFREE(name); if (callback_flag) SLFREE(callback); } } void insert_popup_menu() { HMENU hmenu; int id; char *name; int name_flag; HMENU popup; if (!SLang_pop_integer((int *)&popup) && !SLang_pop_string(&name, &name_flag) && !SLang_pop_integer(&id) && !SLang_pop_integer((int *)&hmenu)) { if (!InsertMenu(hmenu, id, MF_STRING | MF_POPUP | MF_BYCOMMAND, (UINT)popup, name)) msg_error("Cannot insert popup menu"); if (name_flag) SLFREE(name); } } void insert_separator() { HMENU hmenu; int id; if (!SLang_pop_integer(&id) && !SLang_pop_integer((int *)&hmenu)) { if (!InsertMenu(hmenu, id, MF_STRING | MF_SEPARATOR | MF_BYCOMMAND, 0, 0)) msg_error("Cannot insert separator"); } } void insert_menu_item_pos() { HMENU hmenu; int pos; char *name; int name_flag; int idNew; char *callback; int callback_flag; if (!SLang_pop_string(&callback, &callback_flag) && !SLang_pop_integer(&idNew) && !SLang_pop_string(&name, &name_flag) && !SLang_pop_integer(&pos) && !SLang_pop_integer((int *)&hmenu)) { if (idNew >= MAX_MENU_ID) msg_error("Id is too big"); else { if (!InsertMenu(hmenu, pos, MF_STRING | MF_BYPOSITION, idNew, name)) msg_error("Cannot insert menu item"); else { if (Menu_Callbacks[idNew]) { char buf[50]; sprintf(buf, "Id %d is already used.", idNew); msg_error(buf); } else { Menu_Callbacks[idNew] = SLMALLOC(strlen(callback) + 1); strcpy(Menu_Callbacks[idNew], callback); } } } if (name_flag) SLFREE(name); if (callback_flag) SLFREE(callback); } } void insert_popup_menu_pos() { HMENU hmenu; int pos; char *name; int name_flag; HMENU popup; if (!SLang_pop_integer((int *)&popup) && !SLang_pop_string(&name, &name_flag) && !SLang_pop_integer(&pos) && !SLang_pop_integer((int *)&hmenu)) { if (!InsertMenu(hmenu, pos, MF_STRING | MF_POPUP | MF_BYPOSITION, (UINT)popup, name)) msg_error("Cannot insert popup menu"); if (name_flag) SLFREE(name); } } void insert_separator_pos() { HMENU hmenu; int pos; if (!SLang_pop_integer(&pos) && !SLang_pop_integer((int *)&hmenu)) { if (!InsertMenu(hmenu, pos, MF_STRING | MF_SEPARATOR | MF_BYPOSITION, 0, 0)) msg_error("Cannot insert separator"); } } void delete_menu_item() { HMENU hmenu; int id; if (!SLang_pop_integer(&id) && !SLang_pop_integer((int *)&hmenu)) { if (!DeleteMenu(hmenu, id, MF_BYCOMMAND)) msg_error("Cannot delete menu"); else { if (Menu_Callbacks[id]) { SLFREE(Menu_Callbacks[id]); Menu_Callbacks[id] = NULL; } } } } void delete_menu_item_pos() { HMENU hmenu, popup; int pos; int id; if (!SLang_pop_integer(&pos) && !SLang_pop_integer((int *)&hmenu)) { id = GetMenuItemID(hmenu, pos); if ((id > 0) && (Menu_Callbacks[id] != NULL)) { SLFREE(Menu_Callbacks[id]); Menu_Callbacks[id] = NULL; } else if (id == -1) { popup = GetSubMenu(hmenu, pos); SLang_push_integer((int)popup); destroy_menu(); } if (!DeleteMenu(hmenu, pos, MF_BYPOSITION)) msg_error("Cannot delete menu"); } } void get_menu_state() { HMENU hmenu; int id; UINT mstate; int state; if (!SLang_pop_integer(&id) && !SLang_pop_integer((int *)&hmenu)) { if (-1 == (int)(mstate = GetMenuState(hmenu, id, MF_BYCOMMAND))) msg_error("Cannot get menu state"); else { state = 0; if (mstate & MF_ENABLED) state = 1; if (mstate & MF_CHECKED) state |= 2; SLang_push_integer(state); } } } void get_menu_state_pos() { HMENU hmenu; int pos; UINT mstate; int state; if (!SLang_pop_integer(&pos) && !SLang_pop_integer((int *)&hmenu)) { if (-1 == (int)(mstate = GetMenuState(hmenu, pos, MF_BYPOSITION))) msg_error("Cannot get menu state"); else { state = 0; if (mstate & MF_GRAYED) state = 1; if (mstate & MF_CHECKED) state |= 2; SLang_push_integer(state); } } } void get_popup_menu() { HMENU hmenu; int pos; HMENU popup; if (!SLang_pop_integer(&pos) && !SLang_pop_integer((int *)&hmenu)) { popup = GetSubMenu(hmenu, pos); SLang_push_integer((int) popup); } } void check_menu_item() { HMENU hmenu; int id; int flag; if (!SLang_pop_integer(&flag) && !SLang_pop_integer(&id) && !SLang_pop_integer((int *)&hmenu)) { if (-1 == CheckMenuItem(hmenu, id, MF_BYCOMMAND | (flag)?MF_CHECKED:MF_UNCHECKED)) msg_error("Menu item does not exist"); } } void check_menu_item_pos() { HMENU hmenu; int pos; int flag; if (!SLang_pop_integer(&flag) && !SLang_pop_integer(&pos) && !SLang_pop_integer((int *)&hmenu)) { if (!CheckMenuItem(hmenu, pos, MF_BYPOSITION | (flag)?MF_CHECKED:MF_UNCHECKED)) msg_error("Menu item does not exist"); } } void enable_menu_item() { HMENU hmenu; int id; int flag; if (!SLang_pop_integer(&flag) && !SLang_pop_integer(&id) && !SLang_pop_integer((int *)&hmenu)) { if (-1 == EnableMenuItem(hmenu, id, MF_BYCOMMAND | (flag)?MF_ENABLED:MF_GRAYED)) msg_error("Menu item does not exist"); } } void enable_menu_item_pos() { HMENU hmenu; int pos; int flag; if (!SLang_pop_integer(&flag) && !SLang_pop_integer(&pos) && !SLang_pop_integer((int *)&hmenu)) { if (-1 == EnableMenuItem(hmenu, pos, MF_BYPOSITION | (flag)?MF_ENABLED:MF_DISABLED)) msg_error("Menu item does not exist"); } } void redraw_menubar() { DrawMenuBar(This_Window.w); } int (*X_Argc_Argv_Hook)(int, char **); /* the links to functions and variables here */ void (*tt_goto_rc)(int, int) = msw_goto_rc; void (*tt_begin_insert)(void) = msw_begin_insert; void (*tt_end_insert)(void) = msw_end_insert; void (*tt_del_eol)(void) = msw_del_eol; void (*tt_delete_nlines)(int) = msw_delete_nlines; void (*tt_delete_char)(void) = msw_delete_char; void (*tt_erase_line)(void) = msw_erase_line; void (*tt_tt_normal_video)(void) = msw_normal_video; void (*tt_cls)(void) = msw_cls; void (*tt_beep)(void) = msw_beep; void (*tt_reverse_index)(int) = msw_reverse_index; void (*tt_smart_puts)(unsigned short *, unsigned short *, int, int) = msw_smart_puts; void (*tt_write_string)(char *) = msw_write_string; void (*tt_putchar)(char) = msw_putchar; void (*tt_init_video)(void) = msw_init_video; void (*tt_reset_video)(void) = msw_reset_video; void (*tt_normal_video)(void) = msw_normal_video; void (*tt_set_scroll_region)(int, int) = msw_set_scroll_region; void (*tt_reset_scroll_region)(void) = msw_reset_scroll_region; void (*tt_get_terminfo)(void) = msw_get_terminfo; void (*tt_set_color)(int, char *, char *, char *) = msw_set_color; void (*tt_set_color_esc)(int, char *); void (*tt_wide_width)(void) = msw_wide_width; void (*tt_narrow_width)(void) = msw_narrow_width; void (*tt_enable_cursor_keys)(void) = msw_enable_cursor_keys; void (*tt_set_term_vtxxx)(int *) = msw_set_term_vtxxx; int *tt_Ignore_Beep = &JX_Ignore_Beep; int *tt_Use_Ansi_Colors = &JX_Use_Ansi_Colors; int *tt_Term_Cannot_Scroll = &JX_Term_Cannot_Scroll; int *tt_Term_Cannot_Insert = &JX_Term_Cannot_Insert; int *tt_Screen_Rows = &JX_Screen_Rows; int *tt_Screen_Cols = &JX_Screen_Cols; int *tt_Baud_Rate = &JX_Baud_Rate; /* Unused but required. */ int (*X_Open_Mouse_Hook)(void); void (*X_Close_Mouse_Hook)(void); int (*JMouse_Event_Hook)(void); void (*JMouse_Hide_Mouse_Hook)(int); #ifdef __WIN32__ HINSTANCE _hPrev; int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInst, LPSTR lpszCmdLine, int nCmdShow) { char **argv; int argc; int count, handles = 0; char *pt; char *command_line = SLMALLOC(strlen(lpszCmdLine) + 7 /* "wjed32" */); strcpy(command_line, "wjed32 "); strcat(command_line, lpszCmdLine); _hPrev = hPrevInst; while ( (*command_line != '\0') && (*command_line == ' ')) command_line++; /* start on 1st non-space */ pt = command_line; count = 0; while ( *pt != '\0' ) { count++; /* this is an argument */ while ((*pt != '\0') && (*pt != ' ')) pt++; /* advance until a space */ while ( *pt == ' ' ) pt++; /* advance until a non-space */ } argv = (char **) SLMALLOC( (count+3) * sizeof(char *) ); if (argv == NULL ) return 0; /* malloc error */ argc = 0; pt = command_line; while ((argc < count) && (*pt != '\0')) { argv[ argc ] = pt; argc++; while ( *pt != '\0' && *pt != ' ' ) pt++; /* advance until a space */ if ( *pt != '\0' ) *(pt++) = '\0'; /* parse argument here */ while ( *pt == ' ') pt++; /* advance until a non-space */ } argv [ argc ] = (char *) NULL; /* NULL terminated list */ return main(argc, argv); SLFREE(command_line); } #endif oc error */ argc = 0; pt = command_line; while ((argc < count) && (*pt != '\0')) { argv[ argc ] = pt; argc++; while ( *pt != '\0' && *pt != ' ' ) pt++; /* advance until a space */ if ( *pt != '\0' ) *(pt++) = '\0'; /* parse argument here */ while ( *pt == jed-0.97.12/src/wjed.def000064400000000000003000000001670603742312200144730ustar00rootsys00000000000000NAME WJED EXETYPE WINDOWS CODE PRELOAD MOVEABLE DISCARDABLE DATA PRELOAD MOVEABLE HEAPSIZE 100 STACKSIZE 16384 t */ return main(argc, argv); SLFREE(command_line); } #endif oc error */ argc = 0; pt = command_line; while ((argc < count) && (*pt != '\0')) { argv[ argc ] = pt; argc++; while ( *pt != '\0' && *pt != ' ' ) pt++; /* advance until a space */ if ( *pt != '\0' ) *(pt++) = '\0'; /* parse argument here */ while ( *pt == jed-0.97.12/src/wjed.rsp000064400000000000003000000004210603742312200145320ustar00rootsys00000000000000buffer.obj+ cmds.obj+ misc.obj+ file.obj+ main.obj+ ins.obj+ sysdep.obj+ screen.obj+ paste.obj+ ledit.obj+ line.obj+ vterm.obj+ keymap.obj+ replace.obj+ window.obj+ search.obj+ text.obj+ undo.obj+ vfile.obj+ intrin.obj+ syntax.obj+ abbrev.obj+ indent.obj wjed.exe wjed.map (*pt != '\0')) { argv[ argc ] = pt; argc++; while ( *pt != '\0' && *pt != ' ' ) pt++; /* advance until a space */ if ( *pt != '\0' ) *(pt++) = '\0'; /* parse argument here */ while ( *pt == jed-0.97.12/src/mswshell.c000064400000000000003000000165220603742312200150660ustar00rootsys00000000000000#include #include #include #include #include #include #include #include char err_buf[128]; void msg_error(char *msg) { strcpy(err_buf, msg); } static char *shell = NULL, *shell_switch = NULL; static void discover_shell(void) { #ifdef SH_SHELL /* maybe some day ... */ shell_switch = "-c"; if ( (shell = getenv("SHELL")) != NULL ) return; #endif shell_switch = "/c"; if ( (shell = getenv("COMSPEC")) != NULL ) return; shell = "command.com"; /* absolute last resort! */ } /* /////////////////////////////////////////////////////////////////// // Function: static int parse_command_line( int *argc, char ***argv, // char **fname, // char *command_line ); // Descript: parse command_line // // Returns: the handles to redirect // // Caveat: requires spaces to separate each argument // ie., args>filename will NOT work ///////////////////////////////////////////////////////////////////// */ #define DIRECT_SPAWN 0x1000 /* some arbitrary number */ static int parse_command_line( int *argc, char ***argv, char **fname, char *command_line ) { int count, handles = 0; char *pt; discover_shell(); /* find which shell to use */ while ( (*command_line != '\0') && (*command_line == ' ')) command_line++; /* start on 1st non-space */ if ( *command_line == '!' ) { handles = DIRECT_SPAWN; command_line++; /* advance past '!' */ while ((*command_line != '\0') && (*command_line == ' ')) command_line++; /* start on next non-space */ } pt = command_line; count = 0; while ( *pt != '\0' ) { count++; /* this is an argument */ while ((*pt != '\0') && (*pt != ' ')) { if ( *pt == '|' ) /* cannot spawn directly */ handles = 0; /* need shell for pipes */ pt++; /* advance until a space */ } while ( *pt == ' ' ) pt++; /* advance until a non-space */ } *argv = (char **) malloc( (count+3) * sizeof(char *) ); if ( *argv == NULL ) return 0; /* malloc error */ *argc = 0; if ( !(handles & DIRECT_SPAWN) ) { (*argv)[ *argc ] = shell; (*argc)++; if ( count > 0 ) { (*argv)[ *argc ] = shell_switch; (*argc)++; } count += (*argc); } pt = command_line; while ((*argc < count) && (*pt != '\0')) { (*argv)[ *argc ] = pt; (*argc)++; while ( *pt != '\0' && *pt != ' ' ) pt++; /* advance until a space */ if ( *pt != '\0' ) *(pt++) = '\0'; /* parse argument here */ while ( *pt == ' ') pt++; /* advance until a non-space */ } (*argv) [ *argc ] = (char *) NULL; /* NULL terminated list */ /* now examine the arguments for '>' redirect */ for ( count = 0; count < *argc; count++ ) { for ( pt = (*argv)[count]; *pt && *pt != '>'; pt++ ) /* find '>' char */; if ( *pt == '>' ) { if ( pt == (*argv)[count] ) { handles |= 0x01; } else { switch ( *(--pt) ) { case '1': handles |= 0x01; break; case '2': handles |= 0x02; break; case '&': handles |= 0x03; break; } } (*argv)[count] = NULL; /* remove from the list */ count++; /* file name follows '>' */ if ( (*argv)[count] != NULL ) *fname = (*argv)[count]; } } if ((*fname == NULL) || (**fname == '\0' )) handles = 0x00; /* don't redirect if there is no name */ return handles; } /* /////////////////////////////////////////////////////////////////// // Function: int sys_System(char *command_line); // // Descript: shell wrapper that understands some common redirection syntax // command args > filename ; stdout // command args 1> filename ; stdout // command args 2> filename ; stderr // command args &> filename ; stdout+stderr // command args > filename 2>&1 ; stdout+stderr // // additionally, if command is prefixed by a '!', then the command is // spawned directly without invoking the shell // // Returns: returns error codes as per spawn*() // // Caveat: requires spaces to separate each argument // ie., command args>filename will NOT work ///////////////////////////////////////////////////////////////////// */ static int execute_the_command (char **, int, char *); int sys_System(char *command_line) { int ret = -1, handles, argc = 0; char *fname = NULL, **argv = NULL; handles = parse_command_line( &argc, &argv, &fname, command_line ); if (argc) { ret = execute_the_command (argv, handles, fname); } return ret; } static int execute_the_command (char **argv, int handles, char *file) { int ret = 0; int fd1 = -1, fd2 = -1; int fd_err = -1, fd_out = -1; if (handles & 1) { /* save stdout file handle */ fd1 = dup (fileno (stdout)); if (fd1 == -1) { msg_error ("Unable to dup stdout"); return -1; } fd_out = open (file, O_CREAT | O_TRUNC | O_TEXT | O_WRONLY | O_APPEND, S_IREAD | S_IWRITE); if ((fd_out == -1) || (-1 == dup2 (fd_out, fileno (stdout)))) { msg_error ("Unable to redirect stdout!"); ret = -1; } } if (handles & 0x2) /* stderr */ { /* save stderr file handle */ fd2 = dup (fileno (stderr)); if (fd2 == -1) { msg_error ("Unable to dup stderr"); return -1; } if (fd_out == -1) { fd_err = open (file, O_CREAT | O_TRUNC | O_TEXT | O_RDWR | O_APPEND, S_IREAD | S_IWRITE); } else fd_err = fd_out; if ((fd_err == -1) || (-1 == dup2 (fd_err, fileno (stderr)))) { msg_error ("Unable to redirect stderr!"); ret = -1; } } if (fd_out != -1) close (fd_out); if ((fd_err != -1) && (fd_err != fd_out)) close (fd_err); if (ret == 0) { ret = spawnvp(P_WAIT, argv[0], (void *) argv); if (-1 == ret ) { switch(errno) { case ENOENT: if (handles & DIRECT_SPAWN ) msg_error("Command not found."); else msg_error("Shell not found."); break; case ENOMEM: msg_error("Insufficient Memory."); break; default: msg_error("Unknown Error."); } } } if (fd1 != -1) { if (-1 == dup2 (fd1, fileno (stdout))) { msg_error ("Unable to reattach stdout"); } close (fd1); } if (fd2 != -1) { if (-1 == dup2 (fd2, fileno (stderr))) { msg_error ("Unable to reattach stderr"); } close (fd2); } return ret; } int main(int argc, char **argv) { char *command_line, *p; int i, j; FILE *f; int ret; err_buf[0] = 0; for(i = j = 1; i < argc; i++) j += strlen(argv[i]) + 1; if (NULL == (p = command_line = malloc(j + 1))) { msg_error("Malloc error"); ret = -1; } else { for(i = 1; i < argc; i++) { strcpy(p, argv[i]); p += strlen(argv[i]); *p++ = ' '; } *p = 0; ret = sys_System(command_line); free(command_line); } f = fopen("jedshell.tmp", "w"); if (f == NULL) { /* I realize that this does nothing... */ msg_error ("Unable to open tmp file."); return -1; } fprintf(f, "%d\n%s", ret, err_buf); fclose(f); return 0; } _line = malloc(j + 1))) { msg_error("Malloc error"); ret = -1; } else { for(i = 1; i < argc; i++) { strcpy(p, argv[i]); p += strlen(argv[ijed-0.97.12/src/jprocess.c000064400000000000003000000334770603742312200150700ustar00rootsys00000000000000#include #include #include #include #ifndef NO_UNISTD_H # include # include #endif #include #include #include "config.h" #include "buffer.h" #include "ins.h" #include "ledit.h" #include "misc.h" #include "jprocess.h" #include "slang.h" #include "paste.h" int Num_Subprocesses; int Max_Subprocess_FD; int Subprocess_Read_fds [MAX_PROCESSES][2]; /* 0 is actual fd, 1 is our rep */ volatile int Child_Status_Changed_Flag;/* if this is non-zero, editor * should call the appropriate * function below to call slang * handlers. */ typedef struct { int flags; /* This is zero if the process is gone * and the status is nolonger avail */ #define PROCESS_RUNNING 1 #define PROCESS_STOPPED 2 #define PROCESS_ALIVE 3 #define PROCESS_EXITED 4 #define PROCESS_SIGNALLED 8 int return_status; /* This value depends on the flags */ int status_changed; /* non-zero if status changed. */ int rd, wd; /* read/write descriptors */ int pid; /* real process pid */ int output_type; #define PROCESS_USE_BUFFER 1 #define PROCESS_USE_SLANG 2 #define PROCESS_SAVE_POINT 4 #define PROCESS_AT_POINT 8 Buffer *buffer; /* buffer associated with process */ SLang_Name_Type *slang_fun; /* function to pass output to */ SLuser_Object_Type *umark; /* marks point of last output */ SLang_Name_Type *status_change_fun; /* call this if process status changes * The function should be declared like * define fun (pid, flags); * The flags parameter corresponds to * the flags field in this struct and * the pid is NOT the pid of this struct */ } Process_Type; static Process_Type Processes[MAX_PROCESSES]; static Process_Type *get_process (int fd) { Process_Type *p; if ((fd >= 0) && (fd < MAX_PROCESSES) && (p = &Processes[fd], p->flags != 0)) return p; msg_error ("process does not exist."); return NULL; } static void call_slang_status_change_hook (Process_Type *p) { Buffer *cbuf = CBuf; if ((p->status_change_fun == NULL) || (p->buffer == NULL)) return; cbuf->locked++; switch_to_buffer (p->buffer); SLang_push_integer ((int) (p - Processes)); SLang_push_integer (p->flags); SLexecute_function (p->status_change_fun); touch_screen (); if (CBuf != cbuf) switch_to_buffer (cbuf); cbuf->locked--; } #if 0 static int jed_signal_process (int *fd, int *sig) { Process_Type *p; if (NULL == (p = get_process (*fd))) return -1; kill (p->pid, *sig); return 0; } #endif /* This routine is called to clean up after the process has exited. * After getting the exit status, we call a slang hook and if the * process is dead, adjust the process arrays to delete the process. */ static void get_process_status (Process_Type *p) { int i; int fd, slfd; /* Call slang to let it know what happened. Do it first before we * really shut it down to give the hook a chance to query the state of * it before it returns. */ call_slang_status_change_hook (p); if (p->flags & PROCESS_ALIVE) return; /* Process is dead. So perform clean up. */ if (p->buffer != NULL) p->buffer->subprocess = 0; slfd = (int) (p - Processes); fd = Subprocess_Read_fds [slfd][0]; p->flags = 0; if (p->umark != NULL) jed_free_user_object_mark (p->umark); /* Adjust the array of read descriptors */ i = 0; while (i < Num_Subprocesses) { if (Subprocess_Read_fds[i][0] == fd) { while (i < Num_Subprocesses - 1) { Subprocess_Read_fds[i][0] = Subprocess_Read_fds[i + 1][0]; Subprocess_Read_fds[i][1] = Subprocess_Read_fds[i + 1][1]; i++; } break; } i++; } Num_Subprocesses--; if (Max_Subprocess_FD == fd) { i = 0; fd = -1; while (i < Num_Subprocesses) { if (Subprocess_Read_fds[i][0] > fd) fd = Subprocess_Read_fds[i][0]; i++; } Max_Subprocess_FD = fd; } } int jed_close_process (int *fd) { Process_Type *p; if (NULL == (p = get_process (*fd))) return -1; close (p->rd); close (p->wd); kill (-p->pid, SIGINT); /* This is probably a bad idea. It is better to check to see if it still * around and the set a flag indicating that the user wants it killed. */ /* Did we kill it? Make sure. */ kill (-p->pid, SIGKILL); if (p->buffer != NULL) p->buffer->subprocess = 0; /* This next function wraps things up --- no need to. Let handler do it. */ /* get_process_status (p); */ return 0; } void jed_kill_process (int fd) { /* This function is called when the buffer is going to be destroyed */ Processes[fd].buffer = NULL; jed_close_process (&fd); } void jed_get_child_status (void) { Process_Type *p, *pmin; Child_Status_Changed_Flag--; pmin = Processes; p = pmin + Num_Subprocesses; while (p > pmin) { p--; if (p->status_changed) { p->status_changed--; get_process_status (p); } } } static void child_signal_handler (int sig) { int status; int return_status; int pid; Process_Type *p, *pmax; while (1) { pid = (int) waitpid (-1, &status, WNOHANG | WUNTRACED); if (pid == -1) { if (errno == ECHILD) break; continue; } if (pid == 0) break; return_status = 0; if (WIFEXITED (status)) { return_status = WEXITSTATUS (status); status = PROCESS_EXITED; } else if (WIFSIGNALED (status)) { status = PROCESS_SIGNALLED; return_status = WTERMSIG (status); } else if (WIFSTOPPED (status)) { status = PROCESS_STOPPED; } /* What else?? */ p = Processes; pmax = p + Num_Subprocesses; while (p < pmax) { if (p->pid == pid) { p->flags = status; p->status_changed++; p->return_status = return_status; break; } p++; } } signal (SIGCHLD, child_signal_handler); Child_Status_Changed_Flag++; } static int open_process (char *pgm, char **argv) { int spfd, val; int pd; int fds0[2], fds1[2]; int pid, i; Process_Type *p; SLuser_Object_Type *uo; pd = 0; while ((pd < MAX_PROCESSES) && Processes[pd].flags) pd++; if (pd == MAX_PROCESSES) return -1; p = &Processes[pd]; MEMSET ((char *) p, 0, sizeof (Process_Type)); if (0 == pipe (fds0)) { if (-1 == pipe (fds1)) { close (fds0[0]); close (fds0[1]); return -1; } } else return -1; if (NULL == (uo = jed_make_user_object_mark (SLANG_IVARIABLE))) return -1; signal (SIGCHLD, child_signal_handler); if ((pid = fork ()) < 0) { close (fds1[0]); close (fds1[1]); close (fds0[0]); close (fds0[1]); p->flags = 0; jed_free_user_object_mark (uo); return -1; } p->pid = pid; /* Make the child its own process group leader. Do it here too because * we are not sure which one will run first. We have to do this because * if not, a ^G will be sent to ALL child subprocesses possibly killing * them unless they catch the signal. This call means that the INTR signal * will not be sent to any child processes sent by this fork. */ setpgid(pid, pid); if (pid == 0) { char ch; /* child code */ /* Wait here for the parent to initialize its structures */ /* This will block */ read (fds0[0], &ch, 1); for (i = 0; i < 32; i++) signal(i, SIG_DFL); close (fds0[1]); /* close write end of 0 */ close (fds1[0]); /* close read end of 1 */ if ((dup2(fds0[0], 0) < 0) /* stdin */ || (dup2 (fds1[1], 1) < 0) /* stdout */ || (dup2 (fds1[1], 2) < 0)) /* stderr */ { fprintf (stderr, "Dups failed!\n"); exit (-1); } if (execvp (pgm, argv) < 0) { fprintf (stderr, "exec failed!\n"); exit (-1); } } /* parent */ close (fds0[0]); /* close read of child read */ close (fds1[1]); /* close write of child write */ p->flags = PROCESS_RUNNING; spfd = p->rd = fds1[0]; p->wd = fds0[1]; Subprocess_Read_fds[Num_Subprocesses][0] = spfd; Subprocess_Read_fds[Num_Subprocesses][1] = pd; if (spfd > Max_Subprocess_FD) Max_Subprocess_FD = spfd; Num_Subprocesses += 1; val = fcntl (spfd, F_GETFL, 0); val |= O_NONBLOCK; fcntl (spfd, F_SETFL, val); CBuf->subprocess = pd + 1; /* Processing options */ p->buffer = CBuf; p->output_type = PROCESS_USE_BUFFER; p->umark = uo; /* Tell child it is ok to go. */ write (p->wd, "&", 1); return pd; } /* This function is only called when we are reading characters from the * keyboard. Keyboard input has the highest priority and this is called only * if there is no input ready. */ void read_process_input (int fd) { unsigned char buf[513]; /* last byte for 0 char */ int n; Buffer *b = CBuf, *pbuf; Process_Type *p; int otype, total; /* Should never happen */ if (NULL == (p = get_process (fd))) return; otype = p->output_type; pbuf = p->buffer; if (pbuf != NULL) { switch_to_buffer (pbuf); pbuf->locked++; } total = 0; if (otype & PROCESS_SAVE_POINT) push_spot (); while ((n = read (p->rd, buf, 512)) > 0) { total += n; if (p->buffer == NULL) continue; if (otype & PROCESS_USE_BUFFER) { if (0 == (otype & PROCESS_AT_POINT)) eob (); ins_chars (buf, n); jed_move_user_object_mark (p->umark); } else if (otype == PROCESS_USE_SLANG) { buf[n] = 0; SLang_push_string ((char *) buf); SLang_push_integer ((int) (p - Processes)); SLexecute_function (p->slang_fun); /* function to pass output to */ } } if (otype & PROCESS_SAVE_POINT) pop_spot (); else if (otype & PROCESS_USE_BUFFER) move_window_marks (0); if (p->buffer != NULL) { if (b != CBuf) switch_to_buffer (b); pbuf->locked--; } if (total) touch_screen (); } int jed_send_process (int *fd, char *str) { Process_Type *p = get_process (*fd); if ((p == NULL) || (p->wd == -1)) return -1; write (p->wd, str, strlen(str)); return 0; } void jed_send_process_eof (int *fd) { Process_Type *p = get_process (*fd); if (p == NULL) return; if (p->wd != -1) close (p->wd); p->wd = -1; } void jed_set_process (int *pd, char *what, char *s) { Process_Type *p; SLang_Name_Type *f; if (NULL == (p = get_process (*pd))) return; if (!strcmp (what, "output")) { if (*s == '.') p->output_type = PROCESS_AT_POINT | PROCESS_USE_BUFFER; else if (*s == '@') p->output_type = PROCESS_SAVE_POINT | PROCESS_USE_BUFFER; else if (*s && (NULL != (f = SLang_get_function (s)))) { p->output_type = PROCESS_USE_SLANG; p->slang_fun = f; } else p->output_type = PROCESS_USE_BUFFER; } else if (!strcmp (what, "signal")) { if (*s && (NULL != (f = SLang_get_function (s)))) { p->status_change_fun = f; } } } void jed_get_process_mark (int *fd) { Process_Type *p; if (NULL == (p = get_process (*fd))) return; SLang_push_user_object (p->umark); } int jed_open_process (int *np) { int fd = -1; char *argv[502]; int do_free[502]; int n = *np; if (CBuf->subprocess) { msg_error ("There is already a process attached to this buffer."); return -1; } if ((n > 500) || (n < 0)) { msg_error ("Arguments out of range."); return -1; } n++; /* for argv0 since *np does not include * it. */ argv[n] = NULL; while (n--) { if (SLang_pop_string (&argv[n], &do_free[n])) { n++; goto free_return; } } n = 0; if ((fd = open_process(argv[0], argv)) < 0) { msg_error ("Unable to open process."); } /* free up the argument strings */ free_return: while (n <= *np) { if (do_free[n]) SLFREE (argv[n]); n++; } return fd; } /* These are my versions of popen/pclose. For some reason, the popen/pclose * do not work on SunOS when there are subprocesses. I think it has * something to do with the way pclose is waiting. * See Steven's book for more information. */ #ifndef OPEN_MAX #define OPEN_MAX 256 #endif static pid_t Popen_Child_Pids[OPEN_MAX]; FILE *jed_popen(char *cmd, char *type) { int i, pfd[2], fd; pid_t pid; FILE *fp; if (((*type != 'r') && (*type != 'w')) || (*(type + 1) != 0)) { errno = EINVAL; /* required by POSIX.2 */ return(NULL); } if (pipe(pfd) < 0) return(NULL); /* errno set by pipe() or fork() */ if ((pid = fork()) < 0) return(NULL); if (pid == 0) { /* child */ if (*type == 'r') { close(pfd[0]); if (pfd[1] != 1) dup2(pfd[1], 1); close(pfd[1]); } else { close(pfd[1]); if (pfd[0] != 0) { dup2(pfd[0], STDIN_FILENO); close(pfd[0]); } } /* POSIX requires that all streams open by previous popen * be closed. */ for (i = 0; i < OPEN_MAX; i++) { if (Popen_Child_Pids[i] > 0) close(i); } execl("/bin/sh", "sh", "-c", cmd, (char *) 0); _exit(127); } /* parent */ if (*type == 'r') { close(pfd[1]); if (NULL == (fp = fdopen(pfd[0], type))) return(NULL); } else { close(pfd[0]); if (NULL == (fp = fdopen(pfd[1], type))) return(NULL); } fd = fileno (fp); if (fd >= OPEN_MAX) { #ifdef EMFILE errno = EMFILE; #endif fclose (fp); return NULL; } Popen_Child_Pids [fd] = pid; return(fp); } int jed_pclose(FILE *fp) { int fd, stat; pid_t pid; fd = fileno(fp); if ((fd >= OPEN_MAX) || (0 == (pid = Popen_Child_Pids[fd]))) return -1; Popen_Child_Pids [fd] = 0; if (fclose(fp) == EOF) return(-1); /* This is the part that the SunOS pclose was apparantly screwing up. */ while (waitpid(pid, &stat, 0) < 0) { if (errno != EINTR) return(-1); } return(stat); } endif fclose (fp); return NULL; } Popen_Child_Pids [fd] = pid; return(fp); } int jed_pclose(FILE *fp) { int fd, stat; pid_t pid; fd = fileno(fp); if ((fd >= OPEN_MAX)jed-0.97.12/src/jprocess.h000064400000000000003000000013170603742312200150610ustar00rootsys00000000000000#define MAX_PROCESSES 10 extern int Subprocess_Read_fds [MAX_PROCESSES][2]; extern int Max_Subprocess_FD; extern int Num_Subprocesses; extern volatile int Child_Status_Changed_Flag; extern void read_process_input (int); extern int jed_close_process (int *); extern int jed_send_process (int *, char *); extern int jed_open_process (int *); extern void jed_get_child_status (void); extern void jed_kill_process (int); extern void jed_get_process_mark (int *); extern void jed_set_process (int *, char *, char *); extern void jed_send_process_eof (int *); extern void get_process_input (int *); extern FILE *jed_popen (char *, char *); extern int jed_pclose (FILE *); #define popen jed_popen #define pclose jed_pclose s_input (int); extern int jed_close_process (int *); extern int jed_send_process (int *, char *); extern int jed_open_process (int *); extern void jed_get_child_status (void); extern void jed_kill_process (int); extern void jed_get_process_mark (int *); extern void jed_set_process (int *, char *, char *)jed-0.97.12/src/abbrev.c000064400000000000003000000147360603742312300144770ustar00rootsys00000000000000#include #include #include "config.h" #include "buffer.h" #include "abbrev.h" #include "text.h" #include "ledit.h" #include "ins.h" #include "cmds.h" #include "misc.h" #ifdef HAS_ABBREVS #ifdef pc_system #define MAX_ABBREVS 48 #else #define MAX_ABBREVS 256 #endif #define MAX_ABBREV_LEN 48 #define MAX_ABBREV_TABLES 10 typedef struct Abbrev_Table_Type { int len; /* current length of abbrev */ int empty; /* number of cell known to be empty */ char abbrevs [MAX_ABBREVS][MAX_ABBREV_LEN]; /* formatted as abbrev\0expansion */ char word_chars[256]; /* word delimiters */ char name[16]; /* name of table */ } Abbrev_Table_Type; static Abbrev_Table_Type *Global_Abbrev_Table; static Abbrev_Table_Type *Abbrev_Tables [MAX_ABBREV_TABLES]; int expand_abbrev (unsigned char ch) { Abbrev_Table_Type *tbl; int len, i; unsigned char *p; char *abbrev; if ((i = CBuf->abbrev_table_handle) == -1) tbl = NULL; else tbl = Abbrev_Tables [i]; if (tbl == NULL) { tbl = Global_Abbrev_Table; if (tbl == NULL) return 0; } if (tbl->len == 0) return 0; if (tbl->word_chars[(int) ch]) return 0; /* not a delimiter */ p = CLine->data + (Point - 1); while ((p >= CLine->data) && (tbl->word_chars[(int) *p])) { p--; } p++; len = (int) ((CLine->data + Point) - p); if ((len == 0) || (len >= MAX_ABBREV_LEN / 2)) return 0; /* It makes no sense to have an abbrev larger than its expansion! */ ch = *p; for (i = 0; i < tbl->len; i++) { abbrev = tbl->abbrevs [i]; if ((*abbrev == (char) ch) && (abbrev[len] == 0) && (0 == strncmp (abbrev, (char *) p, len))) { Point -= len; abbrev += len + 1; deln (&len); len = strlen (abbrev); if (CBuf->flags & OVERWRITE_MODE) { deln (&len); /* this does not delete across lines */ } ins_chars ((unsigned char *) abbrev, len); return 1; } } return 0; } static Abbrev_Table_Type *find_table (char *name, int *loc, int err) { Abbrev_Table_Type **tbl, **max; Abbrev_Table_Type **empty_tbl = NULL; tbl = Abbrev_Tables; max = tbl + MAX_ABBREV_TABLES; while (tbl < max) { if (*tbl == NULL) { if (empty_tbl == NULL) empty_tbl = tbl; } else if (strcmp (name, (*tbl)->name) == 0) { break; } tbl++; } *loc = (int) (tbl - Abbrev_Tables); if (tbl == max) { if (empty_tbl != NULL) *loc = (int) (empty_tbl - Abbrev_Tables); if (err) msg_error ("Table does not exist."); return NULL; } return *tbl; } void create_abbrev_table (char *name, char *word_chars) { Abbrev_Table_Type *tbl; int loc; tbl = find_table (name, &loc, 0); if (tbl == NULL) { if (loc == MAX_ABBREV_TABLES) { msg_error ("Abbrev Table Quota reached."); return; } tbl = (Abbrev_Table_Type *) SLMALLOC (sizeof (Abbrev_Table_Type)); if (tbl == NULL) { msg_error ("Malloc error."); return; } Abbrev_Tables [loc] = tbl; } MEMSET ((char *) tbl, 0, sizeof (Abbrev_Table_Type)); if (*word_chars == 0) word_chars = Jed_Word_Range; jed_make_lut ((unsigned char *) tbl->word_chars, (unsigned char *) word_chars, 0); strncpy (tbl->name, name, 15); /* The null char is here because of * the MEMSET */ if (strcmp (name, "Global") == 0) Global_Abbrev_Table = tbl; } void delete_abbrev_table (char *name) { Abbrev_Table_Type *tbl; int n; Buffer *b; tbl = find_table (name, &n, 1); if (tbl == NULL) return; SLFREE (tbl); Abbrev_Tables[n] = NULL; if (tbl == Global_Abbrev_Table) Global_Abbrev_Table = NULL; b = CBuf; do { if (b->abbrev_table_handle == n) b->abbrev_table_handle = -1; b = b->next; } while (b != CBuf); } void define_abbrev (char *table, char *abbrev, char *expans) { Abbrev_Table_Type *tbl; int len, lena; int i; char *a; tbl = find_table (table, &len, 1); if (tbl == NULL) return; if (tbl->len == MAX_ABBREVS) return; /* silently return */ lena = strlen (abbrev); len = lena + strlen (expans) + 1; if (len >= MAX_ABBREV_LEN) { msg_error ("Expansion is too long."); } for (i = 0; i < MAX_ABBREVS; i++) { a = tbl->abbrevs[i]; if ((*a == 0) || ((a[lena] == 0) && (0 == strcmp (a, abbrev)))) { strcpy (a, abbrev); strcpy (a + lena + 1, expans); tbl->len++; return; } } } void use_abbrev_table (char *name) { Abbrev_Table_Type *tbl; int loc; tbl = find_table (name, &loc, 1); if (tbl == NULL) return; CBuf->abbrev_table_handle = loc; } int abbrev_table_p (char *name) { int loc; if (find_table (name, &loc, 0) != NULL) return 1; return 0; } static void push_word (Abbrev_Table_Type *tbl) { char buf[256], *b, *w; int i, in_range; b = buf; w = tbl->word_chars; if (w[(unsigned char) '-'] != 0) *b++ = '-'; in_range = 0; for (i = 33; i < 256; i++) { if ((i != '-') && (0 != w[i])) { if (i == '\\') *b++ = (char) i; *b = (char) i; if (in_range == 0) { *(b + 1) = '-'; b += 2; *b = 0; in_range = 1; } } else { if (in_range) { if (*b == 0) b--; else b++; in_range = 0; } } } *b = 0; SLang_push_string (buf); } void what_abbrev_table (void) { Abbrev_Table_Type *tbl; int i; char *w = ""; if ((i = CBuf->abbrev_table_handle) == -1) tbl = NULL; else tbl = Abbrev_Tables [i]; if (tbl == NULL) tbl = Global_Abbrev_Table; if (tbl == NULL) { SLang_push_string (w); SLang_push_string (w); } else { SLang_push_string (tbl->name); push_word (tbl); } } void dump_abbrev_table (char *name) { Abbrev_Table_Type *tbl; char *abbrev; int i, len; if (NULL == (tbl = find_table (name, &len, 1))) return; len = tbl->len; for (i = 0; i < len; i++) { abbrev = tbl->abbrevs [i]; if (*abbrev) { insert_string (abbrev); ins ('\t'); insert_string (abbrev + (1 + strlen (abbrev))); newline (); } } push_word (tbl); } int list_abbrev_tables (void) { int n = 0; Abbrev_Table_Type **tbl, **max; tbl = Abbrev_Tables; max = tbl + MAX_ABBREV_TABLES; while ((tbl < max) && (*tbl != NULL)) { n++; SLang_push_string ((*tbl)->name); tbl++; } return n; } #endif /* HAS_ABBREVS */ { abbrev = tbl->abbrevs [i]jed-0.97.12/src/abbrev.h000064400000000000003000000005730603742312300144760ustar00rootsys00000000000000extern void use_abbrev_table (char *); extern void define_abbrev (char *, char *, char *); extern void create_abbrev_table (char *, char *); extern int expand_abbrev (unsigned char); extern int abbrev_table_p (char *); extern void dump_abbrev_table (char *); extern void what_abbrev_table (void); extern int list_abbrev_tables (void); extern void delete_abbrev_table (char *); n++; SLang_push_string ((*tbl)->name); tbl++; } return n; } #endif /* HAS_ABBREVS */ { abbrev = tbl->abbrevs [i]jed-0.97.12/src/buffer.c000064400000000000003000000465160603742312300145100ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #if defined (msdos) || defined (__os2_16__) #include #include #endif #include #include #include "config.h" #include "buffer.h" #include "window.h" #include "file.h" #include "ins.h" #include "misc.h" #include "paste.h" #include "sysdep.h" #ifdef HAS_SUBPROCESSES #include "jprocess.h" #endif extern int Goal_Column; typedef struct { jmp_buf b; } jmp_buf_struct; extern jmp_buf_struct Jump_Buffer, *Jump_Buffer_Ptr; typedef struct Buffer_List_Type { Buffer *buf; struct Buffer_List_Type *next; } Buffer_List_Type; Buffer_List_Type *Buffer_Stack; /* a filo */ #ifndef ULONG_MAX #define MAX_LONG (0xFFFFFFFFL | (0xFFFFFFFFL << (sizeof(long) / 8))) #else #define MAX_LONG ULONG_MAX #endif Buffer *CBuf; Line *CLine; Buffer_Local_Type Buffer_Local = {8, 0}; int Number_One = 1; /* these should be const but */ int Number_Zero = 0; /* some compilers complain */ int Number_Two = 2; int Number_Ten = 10; char *Read_Only_Error = (char *) "Buffer is read only!"; unsigned int LineNum = 1; unsigned int Max_LineNum; int Point = 0; /* move point to top of buffer */ int bob() { CLine = CBuf->beg; Point = 0; LineNum = 1; return(1); } int eob() /* point to end of buffer */ { CLine = CBuf->end; LineNum = Max_LineNum; if (CLine == NULL) { Point = 0; return(0); } Point = CLine->len - 1; if (Point < 0) { Point = 0; return(1); } if ((CLine->data[Point] != '\n') || (CBuf == MiniBuffer)) Point++; return(1); } int bol() { Point = 0; Goal_Column = 1; return(1); } int eol() { int newline = 1; if (CLine != NULL) { Point = CLine->len - 1; if (Point < 0) { Point = 0; return(0); } if (((CLine->data)[Point] != '\n') || (CBuf == MiniBuffer)) newline = 0; if (!newline) Point++; } else Point = 0; return(1); } int bobp() /* returns 1 if top line of buffer, 0 otherwise */ { if ((CBuf->beg == CLine) && (Point == 0)) return(1); else return(0); } int eolp() { int len; if (CLine == NULL) return(1); len = CLine->len; if (len == 0) return(1); if (Point < len - 1) return(0); if (CBuf == MiniBuffer) { if (Point < len) return 0; else return (1); } /* Point is either len or len - 1 */ if ((CLine->data)[len-1] == '\n') return (1); if (Point == len) return(1); Point = len - 1; return(0); } int eobp() { if (CLine != CBuf->end) return(0); return(eolp()); } int bolp() { if (Point) return(0); else return(1); } /* Attempt to goback n lines, return actual number. */ int prevline(int *n) { int i = 0; Line *prev; Point = 0; /* return to beginning of this line */ while (i < *n) { prev = CLine->prev; while((prev != NULL) && (prev->len == 0)) prev = prev->prev; if (prev == NULL) break; i++; CLine = prev; } if (i) eol(); LineNum -= (unsigned int) i; return(i); } int nextline(int *np) { register Line *next; register int i = 0, n = *np; while(i < n) { next = CLine->next; if (next == NULL) break; CLine = next; i++; } if (i) Point = 0; LineNum += (unsigned int) i; return(i); } /* The algorithm: go to Point = len - 1. Then forward a line counted as 1 */ int forwchars(int *np) { int len, total = 0; unsigned char *p; Line *next; int n = *np; if (n < 0) return 0; if (CBuf == MiniBuffer) { total = CLine->len - Point; if (n > total) n = total; Point += n; return n; } while(1) { len = CLine->len; /* if (Point == len) return(total); */ p = CLine->data + Point; while(n && (Point < len) && (*p != '\n')) { Point++; n--; p++; total++; } if (!n) return(total); if ((Point < len) && (*p == '\n')) { total++; n--; } if (NULL == (next = CLine->next)) { if ((Point < len) && (*p == '\n')) total--; return(total); } Point = 0; CLine = next; LineNum++; } } int backwchars(int *np) { int total = 0; int n = *np; if (n < 0) return 0; if (CBuf == MiniBuffer) { if (n > Point) n = Point; Point -= n; return (n); } do { if (n <= Point) { total += n; Point = Point - n; return(total); } n = n - Point - 1; /* Point + newline */ total += Point + 1; /* ditto */ } while(prevline(&Number_One)); return(total - 1); } /* assuming 8 bit bytes */ #define BUNCH_SIZE 8 * sizeof(long) static unsigned char NewLine_Buffer[1] = {'\n'}; typedef struct Bunch_Lines_Type { struct Bunch_Lines_Type *next; unsigned long flags; /* describes which are free */ Line lines[BUNCH_SIZE]; } Bunch_Lines_Type; static int Next_Free_Offset = BUNCH_SIZE; static int Last_Free_Offset; static Bunch_Lines_Type *Last_Free_Group; static Bunch_Lines_Type *Bunch_Lines; static unsigned int Number_Freed; /* amount of Lines available */ static Line *create_line_from_bunch(void) { register Bunch_Lines_Type *b, *bsave; Line *l; unsigned long flags; int count; if (Last_Free_Group != NULL) { l = &Last_Free_Group->lines[Last_Free_Offset]; flags = ((unsigned long) 1L << Last_Free_Offset); if ((Last_Free_Group->flags & flags) == 0) { exit_error("create group: internal error 1", 1); } Last_Free_Group->flags &= ~flags; Last_Free_Group = NULL; Number_Freed--; return (l); } if (Next_Free_Offset < BUNCH_SIZE) { flags = ((unsigned long) 1L << Next_Free_Offset); if ((Bunch_Lines->flags & flags) == 0) { exit_error("free group: internal error 2", 1); } Bunch_Lines->flags &= ~flags; Number_Freed--; return(&Bunch_Lines->lines[Next_Free_Offset++]); } /* search list */ b = Bunch_Lines; if (b != NULL) { b = b->next; } if ((b != NULL) && Number_Freed) { bsave = b; do { if (b->flags) { flags = b->flags; count = 0; while ((flags & 1) == 0) { flags = flags >> 1; count++; } l = &b->lines[count]; flags = (unsigned long) 1 << count; if ((b->flags & flags) == 0) { exit_error("free group: internal error 2", 1); } b->flags &= ~flags; Number_Freed--; return (l); } b = b->next; } while (b != bsave); } /* failed so now malloc new bunch */ if (NULL != (b = (Bunch_Lines_Type *) SLMALLOC(sizeof(Bunch_Lines_Type)))) { if (Bunch_Lines == NULL) { Bunch_Lines = b; b->next = b; } else { b->next = Bunch_Lines->next; Bunch_Lines->next = b; Bunch_Lines = b; } b->flags = MAX_LONG; Next_Free_Offset = 1; b->flags &= ~(unsigned long) 1; Number_Freed += BUNCH_SIZE - 1; return(&b->lines[0]); } return(NULL); } static void destroy_bunch_line(Line *l) { #ifdef _MSC_VER Line *ll; #else register Line *ll; #endif register Bunch_Lines_Type *b, *bsave, *last, *next; static Bunch_Lines_Type *slast; if (slast != NULL) last = slast; else last = Bunch_Lines; b = bsave = last; do { ll = b->lines; if ( #if (defined (msdos) && !defined(__WATCOMC__) && !defined(__WIN32__)) || defined (__os2_16__) /* stupid DOS and its memory segmentation forces me to consider segment then offset */ (FP_SEG(ll) == FP_SEG(l)) && #endif ((ll <= l) && (l < ll + BUNCH_SIZE))) { while (ll != l) ll++; Last_Free_Offset = (int) (l - b->lines); if (b->flags & (1L << Last_Free_Offset)) { exit_error("free group: internal error 2", 1); } b->flags |= (unsigned long) 1L << Last_Free_Offset; /* if this whole structure is free, free it */ if (b->flags == MAX_LONG) { if (last == b) { while ((next = last->next) != b) last = next; } last->next = b->next; if (b == Bunch_Lines) { if (last == b) { last = NULL; /* last = last->next; if (last == b) last = NULL; */ } Bunch_Lines = last; Next_Free_Offset = BUNCH_SIZE; } SLFREE(b); if (last == b) last = NULL; b = NULL; Number_Freed -= BUNCH_SIZE - 1; slast = last; } else { Number_Freed++; } Last_Free_Group = b; if (Bunch_Lines == NULL) goto L1; return; } last = b; b = b->next; } while (b != bsave); L1: exit_error("destroy_bunch_line: internal error 1", 1); } Line *make_line1(int size) { Line *new_line; unsigned char *data = NULL; char buff[80]; unsigned int chunk; /* 4 byte chunks */ #if defined(msdos) && !defined(__WIN32__) chunk = (unsigned) (size + 3) & 0xFFFC; #else chunk = ((unsigned) (size + 3)) & 0xFFFFFFFC; #endif new_line = (Line *) create_line_from_bunch(); if (new_line != NULL) { if (size == 1) { data = NewLine_Buffer; chunk = 1; } else data = (unsigned char *) SLMALLOC(chunk); /* was chunk + 1 */ } if ((new_line == NULL) || (data == NULL)) { *Error_Buffer = 0; /* this is critical */ sprintf(buff, "Malloc Error in make_line: requested size: %d.", size); msg_error(buff); longjmp(Jump_Buffer_Ptr->b, 1); /* exit_error(buff); */ } new_line->data = data; new_line->len = 0; #ifdef KEEP_SPACE_INFO new_line->space = chunk; #endif return(new_line); } /* adds a new link to list of lines at current point */ unsigned char *make_line(int size) { Line *new_line; new_line = make_line1(size); /* if CLine is Null, then we are at the top of a NEW buffer. Make this explicit. */ if (CLine == NULL) { new_line -> prev = NULL; new_line -> next = NULL; CBuf -> beg = CBuf ->end = new_line; } else if (CLine == CBuf->end) /* at end of buffer */ { CBuf->end = new_line; new_line->next = NULL; new_line->prev = CLine; CLine->next = new_line; } else { new_line -> next = CLine -> next; if (CLine->next != NULL) CLine->next->prev = new_line; CLine->next = new_line; new_line->prev = CLine; } if (CLine == NULL) { Max_LineNum = LineNum = 1; } else { Max_LineNum++; LineNum++; } CLine = new_line; return(CLine->data); } void free_line(Line *line) { register unsigned char *dat = line->data; if (dat != NewLine_Buffer) SLFREE(dat); destroy_bunch_line(line); } /* deletes the line we are on and returns the prev one. It does not * delete the top line of the buffer. Furthermore, it does not * update any marks. */ int delete_line() { Line *n, *p, *tthis; p = CLine -> prev; if (p == NULL) return(1); n = CLine -> next; tthis = CLine; if (n == NULL) { CBuf->end = p; p->next = NULL; } else { p->next = n; n->prev = p; } free_line(tthis); CLine = p; LineNum--; Max_LineNum--; return(0); } unsigned char *remake_line(int size) { char buf[80]; unsigned char *d = CLine->data; unsigned int mask; #if defined(msdos) && !defined(__WIN32__) mask = 0xFFFCu; #else mask = 0xFFFFFFFCu; #endif size = (unsigned) (size + 3) & mask; /* 4 byte chunks */ if (d == NewLine_Buffer) { if (NULL != (d = (unsigned char *) SLMALLOC(size))) *d = '\n'; } else { #if 0 #ifndef KEEP_SPACE_INFO if (((CLine->len + 3) & mask) == size) return d; #endif #endif d = (unsigned char *) SLREALLOC(d, size); } if (d == NULL) { *Error_Buffer = 0; /* critical error */ sprintf(buf, "remake_line: realloc error!, size = %d", size); msg_error(buf); longjmp(Jump_Buffer_Ptr->b, 1); /* exit_error(buf); */ } #ifdef KEEP_SPACE_INFO CLine->space = size; #endif CLine->data = d; return(d); } void uniquely_name_buffer(char *trry) { Buffer *b; int exists, version = 0, n; char neew[48]; *CBuf->name = 0; strncpy(neew, trry, 45); neew[45] = 0; n = strlen(neew); while (1) { exists = 0; b = CBuf->next; while(b != CBuf) { if (!strcmp(neew, b->name)) exists = 1; b = b->next; } if (!exists) { strcpy(CBuf->name,neew); return; } version++; sprintf(neew + n, "<%d>", version); } } /* make a buffer and insert it in the list */ Buffer *make_buffer() { Buffer *newB; /* SLCALLOC used since it zeros region too */ newB = (Buffer *) SLCALLOC(sizeof(Buffer), 1); if (newB == (Buffer *) NULL) { exit_error("make_buffer: malloc error", 0); } MEMSET ((char *) newB, sizeof(Buffer), 0); newB->keymap = Global_Map; newB->c_time = sys_time(); newB->tab = User_Vars.tab; #ifdef HAS_ABBREVS newB->abbrev_table_handle = -1; #endif if (CBuf == NULL) { newB->next = newB; newB->prev = newB; } else { newB->next = CBuf; newB->prev = CBuf->prev; CBuf->prev->next = newB; CBuf->prev = newB; } #ifdef pc_system newB->flags |= ADD_CR_ON_WRITE_FLAG; #endif newB->syntax_table = Default_Syntax_Table; return(newB); } /* if there is a window attached to this buffer, then there are problems * if we get to update() without attaching another one to it. So * beware! Always make sure CBuf is set too! kill_buffer command * takes care of this */ void delete_buffer(Buffer *buf) { Line *l,*n; Mark *m, *m1; while (buf->narrow != NULL) widen_buffer(buf); if (buf -> beg != NULL) for (l = buf -> beg; l != NULL; l = n) { n = l -> next; free_line(l); /* SLFREE( l->data); SLFREE( l); */ } m = buf->marks; while (m != NULL) { m1 = m->next; if (m == &buf->mark_array[buf->mark_ptr - 1]) { buf->mark_ptr--; } else SLFREE(m); m = m1; } m = buf->spots; while (m != NULL) { m1 = m->next; if (m == &buf->spot_array[buf->spot_ptr - 1]) { buf->spot_ptr--; } else SLFREE(m); m = m1; } if (buf->user_marks != NULL) free_user_marks (buf); if (buf->undo != NULL) delete_undo_ring(buf); #ifdef COLOR_COLUMNS if (buf->column_colors != NULL) SLFREE (buf->column_colors); #endif buf->prev->next = buf->next; buf->next->prev = buf->prev; #ifdef HAS_SUBPROCESSES if (buf->subprocess) jed_kill_process (buf->subprocess - 1); #endif SLFREE( buf); } /* need to make this exploit MaxLine info! */ void goto_line(int *np) { unsigned int n; unsigned int half1 = LineNum / 2; unsigned int half2 = (Max_LineNum + LineNum) / 2; int sn; if (*np <= 1) n = 0; else n = (unsigned int) *np; if (n < LineNum) { if (n > half1) { sn = (int) (LineNum - n); prevline(&sn); } else { bob(); sn = (int) n; if (sn-- > 0) nextline(&sn); } } else if (n < half2) { sn = (int) (n - LineNum); nextline(&sn); } else { eob(); sn = (int) (Max_LineNum - n); prevline(&sn); } } Line *dup_line(Line *l) { Line *neew; int n; unsigned char *p, *q; #ifdef KEEP_SPACE_INFO n = l->space; #else n = l->len; #endif neew = (Line *) SLMALLOC(sizeof(Line)); if ((neew == NULL) || (NULL == (neew->data = (unsigned char *) SLMALLOC(n)))) { exit_error("Malloc Error in dup_line.", 0); } neew->next = l->next; neew->prev = l->prev; neew->len = n; #ifdef KEEP_SPACE_INFO neew->space = l->space; #endif p = neew->data; q = l->data; while (n--) *p++ = *q++; return(neew); } Buffer *find_buffer(char *name) { Buffer *b; b = CBuf; do { if (!strcmp(b->name, name)) return(b); b = b->next; } while(b != CBuf); #ifdef __os2__ b = CBuf; do { if (!strcmpi(b->name, name)) return(b); b = b->next; } while(b != CBuf); #endif return(NULL); } int buffer_exists(Buffer *b) { Buffer *c = CBuf; do { if (b == c) return 1; c = c->next; } while (c != CBuf); return 0; } int switch_to_buffer(Buffer *buf) { /* unlink buf */ /* save this buffer position */ CBuf->line = CLine; CBuf->point = Point; CBuf->linenum = LineNum; CBuf->max_linenum = Max_LineNum; /* local variables */ CBuf->tab = Buffer_Local.tab; CBuf->sd = Buffer_Local.sd; if (buf == CBuf) return(0); buf->prev->next = buf->next; buf->next->prev = buf->prev; buf->next = CBuf; buf->prev = CBuf->prev; CBuf->prev->next = buf; CBuf->prev = buf; /* now restore new buffer */ CBuf = buf; CLine = CBuf->line; Point = CBuf->point; /* Buffer local variables */ Buffer_Local.tab = CBuf->tab; Buffer_Local.sd = CBuf->sd; LineNum = CBuf->linenum; Max_LineNum = CBuf->max_linenum; if (CLine == NULL) { make_line(25); Point = 0; } CBuf->line = CLine; CBuf->point = Point; return(1); } /* we assume that file has already been expanded--- that is, canonical. */ Buffer *find_file_buffer(char *file) { Buffer *b; char *f; long n, m; f = extract_file(file); n = f - file; b = CBuf; do { m = strlen(b->dir); #ifndef __os2__ if ((m == n) && (!strcmp(b->file,f)) && (!strncmp(b->dir, file, (int) n))) #else if ((m == n) && (!strcmpi(b->file,f)) && (!strncmpi(b->dir, file, (int) n))) #endif return(b); b = b->next; } while (b != CBuf); return(NULL); } /* take a dir and a filename, expand them then put in buffer structure */ void buffer_filename(char *dir, char *file) { strcpy(CBuf->dir, dir); if ((file == NULL) || (*file == 0)) { file = extract_file(CBuf->dir); strcpy(CBuf->file, file); *file = 0; } else strcpy(CBuf->file, file); uniquely_name_buffer(CBuf->file); } /* This kills all undo information! */ int erase_buffer() { Line *beg, *tthis; /* CLine = CBuf->end; */ beg = CBuf->beg; bob(); CLine = CLine->next; LineNum++; Suspend_Screen_Update = 1; while(CLine != NULL) { tthis = CLine; beg->next = tthis->next; tthis->prev = beg; update_marks(LDELETE, 1); CLine = tthis->next; Max_LineNum--; free_line(tthis); } CLine = CBuf->beg; LineNum = 1; Point = 0; update_marks(CDELETE, CLine->len); CLine->len = 0; /* CLine->next = NULL; */ if (CBuf->undo != NULL) delete_undo_ring(CBuf); CBuf->undo = NULL; CBuf->end = CLine; touch_screen_for_buffer(CBuf); return(1); } void mark_buffer_modified(int *flag) { unsigned long now; if (*flag) { if (CBuf->flags & BUFFER_TRASHED) return; now = sys_time(); CBuf->m_time = now; CBuf->flags |= BUFFER_TRASHED; return; } else CBuf->flags &= ~BUFFER_TRASHED; } void check_line() { if ((CLine->len == 1) && (*CLine->data == '\n') && (CLine->data != NewLine_Buffer)) { SLFREE(CLine->data); CLine->data = NewLine_Buffer; #ifdef KEEP_SPACE_INFO CLine->space = 1; #endif } } uffer(CBuf); return(1); } void mark_buffer_modified(int *flag) { unsigned long now; if (*flag) { if (CBuf->flags & BUFFER_TRASHED) return; now = sys_time(); CBjed-0.97.12/src/buffer.h000064400000000000003000000166440603742312300145140ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #ifndef __JED_BUFFER_H_ #define __JED_BUFFER_H_ #ifndef sequent #include #endif #include "slang.h" #include "keymap.h" #include "undo.h" #include "indent.h" /* #define sprintf simple_sprintf extern char *simple_sprintf(char *, char *, ...); */ typedef struct Line { struct Line *next; /* pointer to next line */ struct Line *prev; /* pointer to prev line */ unsigned char *data; /* data for the line */ int len; /* actual length of line */ #ifdef KEEP_SPACE_INFO int space; /* space allocated for line */ #endif } Line; /* This is the price we pay for a linked list approach. With straight buffer gap, this would be an integer. Sigh. */ typedef struct Mark { Line *line; /* line that marker points at */ int point; /* offset from beginning */ unsigned int n; /* line number in buffer */ struct Mark *next; unsigned int flags; /* visible mark if non-zero */ #define MARK_INVALID 0x1 #define VISIBLE_MARK 0x2 } Mark; extern unsigned int LineNum; /* current line number */ extern unsigned int Max_LineNum; /* max line number */ typedef struct Narrow_Type { struct Narrow_Type *next; unsigned int nup, ndown; /* (relative) lines above this narrow */ Line *beg, *end; /* pointers to lines to linkup with */ Line *beg1, *end1; /* beg and end before narrow */ } Narrow_Type; typedef struct Buffer { Line *beg; /* Top line of buffer */ Line *end; /* Bottom line */ Line *line; /* current line */ int point; /* current offset */ unsigned int linenum; /* current line number */ unsigned int max_linenum; /* lines in buffer */ char file[256]; /* filename sans dir */ char dir[256]; /* directory of file */ char name[50]; /* name of this buffer */ unsigned int flags; /* flags (autosave, etc...) */ Narrow_Type *narrow; /* info for use by widen */ unsigned int nup; /* lines above narrow (absolute) */ unsigned int ndown; /* lines below narrow */ Mark *marks; Mark *spots; Mark *user_marks; unsigned int modes; /* c-mode, wrap, etc... */ SLKeyMap_List_Type *keymap; /* keymap attached to this buffer */ struct Buffer *next; /* */ struct Buffer *prev; char mode_str[13]; int hits; /* number of hits on buffer since * last autosave. A hit is the number * of times the buffer was hit on at top level */ unsigned long m_time; /* time when buffer first modified */ unsigned long c_time; /* time when buffer first created or */ /* when file visited */ Undo_Type *undo; /* pointer to undo ring */ /* local variables */ int tab; /* tab setting for buffer */ int sd; /* selective display */ #define SPOT_ARRAY_SIZE 4 Mark spot_array[SPOT_ARRAY_SIZE]; Mark mark_array[SPOT_ARRAY_SIZE]; int mark_ptr; int spot_ptr; int vis_marks; /* number of visible marks */ char status_line[80]; SLang_Name_Type *par_sep; /* paragraph sep function */ SLang_Name_Type *indent_hook; SLang_Name_Type *newline_indent_hook; SLang_Name_Type *wrap_hook; #ifdef COLOR_COLUMNS unsigned int coloring_style; unsigned char *column_colors; #endif #ifdef HAS_ABBREVS int abbrev_table_handle; #endif Syntax_Table_Type *syntax_table; #ifdef HAS_SUBPROCESSES int subprocess; /* 1 + subprocess id */ int locked; #endif } Buffer; extern char Default_Status_Line[80]; /* flags */ #define BUFFER_TRASHED 0x01 /* This flag cannot be used with the AUTO_SAVE_JUST_SAVE flag */ #define AUTO_SAVE_BUFFER 0x02 /* these two flags are to tell user that the buffer and the file on disk have been modified--- see update_marks and main editor loop */ #define FILE_MODIFIED 0x04 #define READ_ONLY 0x08 #define OVERWRITE_MODE 0x10 #define UNDO_ENABLED 0x20 /* skip this buffer if looking for a pop up one. */ #define BURIED_BUFFER 0x40 /* Instead of autosaving saving the buffer, just save it. This flag * is only used when SIGHUP or something like that hits. It is also * used when exiting the editor. It will cause the buffer to be silently * saved. It is possible that I need another flag for this. */ #define AUTO_SAVE_JUST_SAVE 0x80 #define NO_BACKUP_FLAG 0x100 #define BINARY_FILE 0x200 #define ADD_CR_ON_WRITE_FLAG 0x400 #define ABBREV_MODE 0x800 extern char *Read_Only_Error; #define CHECK_READ_ONLY\ if (CBuf->flags & READ_ONLY) { msg_error(Read_Only_Error); return(1);} #define CHECK_READ_ONLY_VOID\ if (CBuf->flags & READ_ONLY) { msg_error(Read_Only_Error); return;} #define NO_MODE 0x00 #define WRAP_MODE 0x01 #define C_MODE 0x02 #define LANG_MODE 0x04 /* to be a replacement for C_MODE */ #define SL_MODE 0x08 /* S-Lang mode (ored with C_MODE) */ #define F_MODE 0x10 /* Fortran mode */ #define TEX_MODE 0x20 /* ored with TEXT_MODE */ typedef struct User_Variable_Type { int wrap_column; int tab; /* tab size, if 0 display as ^I */ int c_indent; /* indent level past brace */ int c_brace; /* indent of brace */ int max_hits; /* autosave interval */ } User_Variable_Type; /* These are buffer local variables that slang can access */ typedef struct { int tab; /* tab width */ int sd; /* selective display */ } Buffer_Local_Type; extern Buffer_Local_Type Buffer_Local; extern User_Variable_Type User_Vars; extern Buffer *CBuf; extern Line *CLine; extern int bob(void); extern int eob(void); /* point to end of buffer */ extern int bol(void); extern int eol(void); extern int bobp(void); extern int eobp(void); extern int eolp(void); extern int bolp(void); extern int prevline(int *); extern int nextline(int *); extern int forwchars(int *); extern int backwchars(int *); extern void goto_line(int *); extern Line *make_line1(int); extern unsigned char *make_line(int); extern unsigned char *remake_line(int); extern Buffer *make_buffer(void); extern void uniquely_name_buffer(char *); extern void buffer_filename(char *, char *); extern Buffer *find_file_buffer(char *); extern Buffer *find_buffer(char *); extern int delete_line(void); extern void delete_buffer(Buffer *); extern int switch_to_buffer(Buffer *); extern int get_percent(void); extern int what_line(void); extern int erase_buffer(void); extern void mark_buffer_modified(int *); extern Line *dup_line(Line *); extern void free_line(Line *); extern void check_buffers(void); extern int buffer_exists(Buffer *); extern int Point; extern int Number_Zero; extern int Number_One; extern int Number_Two; extern int Number_Ten; /* extern unsigned char Chg_UCase_Lut[256]; extern unsigned char Chg_LCase_Lut[256]; #define UPPER_CASE(x) (Chg_UCase_Lut[(unsigned char) (x)]) #define LOWER_CASE(x) (Chg_LCase_Lut[(unsigned char) (x)]) #define CHANGE_CASE(x) (((x) == Chg_LCase_Lut[(unsigned char) (x)]) ?\ Chg_UCase_Lut[(unsigned char) (x)] : Chg_LCase_Lut[(unsigned char) (x)]) */ extern void mark_undo_boundary(Buffer *); extern void delete_undo_ring(Buffer *); extern int Batch; /* JED used in batch mode. */ extern void touch_screen(void); extern void check_line(void); extern Buffer *MiniBuffer; #endif ut[256]; #define UPPER_CASE(x) (Chg_UCase_Lut[(unsigned char) (x)]) #define LOWER_CASE(x) (Cjed-0.97.12/src/chkslang.c000064400000000000003000000014270603742312300150210ustar00rootsys00000000000000/* It is too bad that this cannot be done at the preprocessor level. * Unfortunately, C is not completely portable yet. */ #include #include "slang.h" int main (int argc, char **argv) { unsigned int min_version, sl_version, a, b, c; if (argc != 3) { fprintf (stderr, "Usage: %s \n", argv[0]); return 1; } sscanf (argv[2], "%u", &min_version); #ifndef SLANG_VERSION sl_version = 0; #else sl_version = SLANG_VERSION; #endif a = min_version/10000; b = (min_version - a * 10000) / 100; c = min_version - (a * 10000) - (b * 100); if (sl_version < min_version) { fprintf (stderr, "This version of %s requires slang version %d.%d.%d\n", argv[1], a, b, c); return 1; } return 0; } rintf (stderr, "Usage: %s \n", argv[0]); return 1; } sscanf (argv[2], "%u", &min_version); #ifndef SLANG_VERSION sl_version = 0; #else sl_version = SLANG_VERSION; #endif a = min_version/1000jed-0.97.12/src/cmds.c000064400000000000003000000556540603742312300141700ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "slang.h" #include "buffer.h" #include "screen.h" #include "window.h" #include "ins.h" #include "ledit.h" #include "cmds.h" #include "line.h" #include "paste.h" #include "display.h" #include "vterm.h" #include "sysdep.h" #include "text.h" #include "file.h" #include "misc.h" #include "search.h" #include "hooks.h" #include "abbrev.h" void (*X_Suspend_Hook)(void); int Blink_Flag = 1; int Indented_Text_Mode = 0; /* if non zero, intent line after wrap */ int Kill_Line_Feature = 1; /* non-zero means kill through eol if bolp */ int C_Bra_Newline = 1; /* if zero, do not insert newline before '{' */ int C_Comment_Hint; static char *Top_Of_Buffer_Error = "Top Of Buffer."; static char *End_Of_Buffer_Error = "End Of Buffer."; /* return 1 if line extends beyond the screen */ static int long_line(void) { int p, col; col = Screen_Col; p = Point; Point = CLine->len - 1; if ((*(CLine->data + Point) != '\n') || (CBuf == MiniBuffer)) Point++; if (calculate_column() >= JWindow->width - 1) { Point = p; Screen_Col = col; return(1); } Screen_Col = col; Point = p; return(0); } #define FAST_NOT_OK ((Repeat_Factor != NULL) || JWindow->trashed\ || (ch < ' ') || (ch > 126) || Input_Buffer_Len\ || Suspend_Screen_Update\ || (Screen_Col >= JWindow->width - 2) || (JWindow->column > 1)\ || Batch || (CLine->len == 0)\ || ((CBuf->marks != NULL) && Wants_Attributes)\ || input_pending(&Number_Zero) || Executing_Keyboard_Macro\ || tabs_present()\ || (Read_This_Character != NULL)) int newline() { int push = 0; CHECK_READ_ONLY if (CBuf == MiniBuffer) return exit_minibuffer(); /* This bit of nonsense gives a better looking screen update */ if (bolp() && (CLine->prev != NULL) && (CLine->len > 1)) { push = 1; push_spot(); CLine = CLine->prev; LineNum--; Point = 0; eol(); } split_line(); ins('\n'); check_line(); if (push) { pop_spot(); return(1); } Point--; forwchars(&Number_One); return(1); } int previous_char_cmd() { int pnt; Cursor_Motion = 1; if (bobp()) { msg_error(Top_Of_Buffer_Error); return(0); } pnt = Point - 1; backwchars(&Number_One); Goal_Column = calculate_column(); /* For syntax highlighting */ if ((Last_Key_Function != (VOID *) previous_char_cmd) && ((Last_Key_Function == (VOID *) ins_char_cmd) || (Last_Key_Function == (VOID *) delete_char_cmd) || (Last_Key_Function == (VOID *) backward_delete_char_cmd) || (Last_Key_Function == (VOID *) backward_delete_char_untabify))) register_change(0); return (pnt == -1) || JWindow->trashed; } /* Slang calls by reference so make this a pointer ! */ void insert_whitespace(int *n) { int tab = Buffer_Local.tab; int c1, c2, i, k, nspace; if ((nspace = *n) <= 0) return; CHECK_READ_ONLY_VOID c1 = calculate_column() - 1; c2 = c1 + nspace; if (tab) { i = c1 / tab; k = c2 / tab - i; if (k) nspace = c2 - (i + k) * tab; ins_char_n_times('\t', k); } ins_char_n_times(' ', nspace); } /* check from point to end of line looking for tabs */ static int tabs_present(void) { unsigned char *p, *pmax; if (!Buffer_Local.tab) return(0); pmax = CLine->data + CLine->len; p = CLine->data + Point; while (p < pmax) if (*p++ == '\t') return(1); return(0); } int delete_char_cmd() { int upd, n; char ch; CHECK_READ_ONLY if (eobp()) { msg_error(End_Of_Buffer_Error); return(0); } ch = *(CLine->data + Point); if (FAST_NOT_OK || long_line () || *tt_Term_Cannot_Insert ) { if ((Point == 0) && eolp()) n = 1; else n = 0; /* same effect, update looks better */ n = backwchars(&n); del(); forwchars(&n); upd = 1; } else { upd = ((CBuf->flags & BUFFER_TRASHED) == 0); fast_del(); tt_delete_char (); } return(upd); } int backward_delete_char_cmd() { char ch; int ret; CHECK_READ_ONLY if (bobp()) { msg_error(Top_Of_Buffer_Error); return(0); } if (bolp()) { backwchars(&Number_One); return delete_char_cmd(); } ch = *(CLine->data + (Point - 1)); if (FAST_NOT_OK || long_line () || *tt_Term_Cannot_Insert ) { backwchars(&Number_One); del(); return(1); } ret = ((CBuf->flags & BUFFER_TRASHED) == 0); backwchars(&Number_One); tt_putchar('\b'); Screen_Col--; fast_del(); tt_delete_char(); return(ret); } int backward_delete_char_untabify() { unsigned char *p; int n; CHECK_READ_ONLY p = CLine->data + (Point - 1); /* note that short circuit is assumed to avoid seg fault */ if (!Point || bobp() || (*p != '\t') || !Buffer_Local.tab) return backward_delete_char_cmd(); n = calculate_column() - 1; backwchars(&Number_One); del(); n = n - calculate_column(); ins_char_n_times(' ', n); return(1); } int previous_line_cmd() { int ret, gc; if (CLine == CBuf->beg) { msg_error(Top_Of_Buffer_Error); return(0); } check_line(); gc = calculate_column(); if (Cursor_Motion <= 0) Goal_Column = gc; else if (Goal_Column < gc) Goal_Column = gc; Cursor_Motion = 2; /* For syntax highlighting */ if ((Last_Key_Function != (VOID *) previous_line_cmd) && ((Last_Key_Function == (VOID *) ins_char_cmd) || (Last_Key_Function == (VOID *) delete_char_cmd) || (Last_Key_Function == (VOID *) backward_delete_char_cmd) || (Last_Key_Function == (VOID *) backward_delete_char_untabify))) register_change(0); ret = JWindow->trashed || (CLine == JScreen[JWindow->top - 1].line); CLine = CLine->prev; LineNum--; point_column(Goal_Column); return(ret); } int next_line_cmd() { int ret, gc; if (CLine == CBuf->end) { msg_error(End_Of_Buffer_Error); return(0); } check_line(); gc = calculate_column(); if (Cursor_Motion <= 0) Goal_Column = gc; else if (Goal_Column < gc) Goal_Column = gc; Cursor_Motion = 2; /* For syntax highlighting */ if ((Last_Key_Function != (VOID *) next_line_cmd) && ((Last_Key_Function == (VOID *) ins_char_cmd) || (Last_Key_Function == (VOID *) delete_char_cmd) || (Last_Key_Function == (VOID *) backward_delete_char_cmd) || (Last_Key_Function == (VOID *) backward_delete_char_untabify))) register_change(0); ret = JWindow->trashed || (CLine == JScreen[JWindow->top + JWindow->rows - 2].line); CLine = CLine->next; LineNum++; point_column(Goal_Column); return(ret); } int next_char_cmd() { Cursor_Motion = 1; /* For syntax highlighting */ if ((Last_Key_Function != (VOID *) next_char_cmd) && ((Last_Key_Function == (VOID *) ins_char_cmd) || (Last_Key_Function == (VOID *) delete_char_cmd) || (Last_Key_Function == (VOID *) backward_delete_char_cmd) || (Last_Key_Function == (VOID *) backward_delete_char_untabify))) register_change(0); if (!forwchars(&Number_One)) { msg_error(End_Of_Buffer_Error); return (0); } Goal_Column = calculate_column(); return !Point || JWindow->trashed; /* Point = 0 ==> moved a line */ } extern Buffer *Paste_Buffer; int kill_line() { int n, pnt, flag = 0; CHECK_READ_ONLY if (eobp()) { msg_error(End_Of_Buffer_Error); return(0); } push_mark(); push_spot(); pnt = Point; eol(); n = Point - pnt; if ((!pnt && Kill_Line_Feature) || !n) { /* Either of these (flag =0,1) have the same effect on the buffer. * However, the first sets the mark at the end of the line and moves * the point to the end of the previous line. This way the current * line structure is deleted and the screen update looks better. */ if (!pnt && (CLine->prev != NULL) && (CLine->next != NULL)) { flag = 1; forwchars(&Number_One); } else n += forwchars(&Number_One); } if ((Last_Key_Function == (VOID *) kill_line) && (Paste_Buffer != NULL)) { copy_region_to_buffer(Paste_Buffer); } else copy_to_pastebuffer(); pop_spot(); if (flag) n += backwchars(&Number_One); generic_deln(&n); if (flag) forwchars(&Number_One); return(1); } /* get indent value of current line, n is the column */ unsigned char *get_current_indent(int *np) { unsigned char *p, *pmax; int tab, n; tab = Buffer_Local.tab; p = CLine->data; pmax = CLine->data + CLine->len; n = 0; while((p < pmax) && ((*p == ' ') || (tab && (*p == '\t')))) { if (*p == '\t') n = tab * (n / tab + 1); else n++; p++; } *np = n; return p; } int trim_whitespace() { register unsigned char *p, *pmax, ch; int n, save_point, len; CHECK_READ_ONLY len = CLine->len; if (len == 0) return(0); save_point = Point; if (Point == len) Point--; /* Note that we save the point before --ing it. This way the comparison made below will effectively restore it if pointing at non whitespace */ p = CLine->data + Point; if (Point && (*p == '\n') && (CBuf != MiniBuffer)) { Point--; p--; } while ((Point > 0) && (((ch = *p) == '\t') || (ch == ' '))) { Point--; p--; } if (save_point != Point) if (!eolp() && ((*p != ' ') && (*p != '\t'))) { Point++; p++; } n = 0; /* this needs to be inlined. Actually for undo, I need del(n)! */ pmax = CLine->data + CLine->len; while ((p < pmax) && ((ch = *p) != '\n') && ((ch == ' ') || (ch == '\t'))) p++, n++; deln(&n); return(1); } /* indent line to column n */ void indent_to(int n) { int m; get_current_indent(&m); if (n != m) { Point = 0; trim_whitespace(); if (n >= 0) insert_whitespace(&n); } } int indent_line () { int n, n1; static int in_function; if (in_function) return -1; if (CBuf->indent_hook != NULL) { in_function = 1; SLexecute_function(CBuf->indent_hook); in_function = 0; return 1; } CHECK_READ_ONLY if (CLine == CBuf->beg) return(0); push_spot(); CLine = CLine->prev; get_current_indent (&n); CLine = CLine->next; indent_to(n); pop_spot(); /* This moves the cursor to the first non whitspace char if we are before it. Otherwise leave it alone */ n1 = calculate_column(); get_current_indent(&n); if (n1 <= n) point_column(n + 1); return 1; } int newline_and_indent() { static int in_function; if (in_function) return -1; if (CBuf->newline_indent_hook != NULL) { in_function = 1; SLexecute_function(CBuf->newline_indent_hook); in_function = 0; return 1; } newline(); indent_line(); return(1); } int ins_char_cmd() { char ch; int wrap = User_Vars.wrap_column; int ret, ll; CHECK_READ_ONLY ch = (char) SLang_Last_Key_Char; if (ch == '\n') { newline(); return(1); } #ifdef HAS_ABBREVS if (CBuf->flags & ABBREV_MODE) { expand_abbrev (ch); } #endif if ((CBuf->flags & OVERWRITE_MODE) && !eolp()) del(); if (((ch == ' ') || (Point >= wrap)) && (CBuf->modes & WRAP_MODE) && (calculate_column() > wrap)) /* JWindow->width */ { ins(ch); wrap_line(0); /* do not format--- just wrap */ if (Indented_Text_Mode) indent_line (); if (CBuf->wrap_hook != NULL) SLexecute_function(CBuf->wrap_hook); return(1); } if ((ch == ' ') || FAST_NOT_OK || (CBuf->flags & OVERWRITE_MODE) || (*tt_Term_Cannot_Insert && !eolp()) ) { ins(ch); if ((CBuf->syntax_table != NULL) && (CBuf->syntax_table->char_syntax[(unsigned char) ch] & CLOSE_DELIM_SYNTAX) && !input_pending(&Number_Zero)) blink_match (); /* (ch); */ return(1); } ret = ((CBuf->flags & BUFFER_TRASHED) == 0) || (User_Prefers_Line_Numbers > 1); if (long_line ()) ll = 1; else ll = 0; ret = ret || ll; /* fast_ins goes first so that screen structure is updated now for following calls to use. */ fast_ins(ch); if (!eolp() || ll) { tt_begin_insert(); tt_putchar(ch); tt_end_insert(); if (ll) register_change(0); } else tt_putchar(ch); Screen_Col++; if ((CBuf->syntax_table != NULL) && (CBuf->syntax_table->char_syntax[(unsigned char) ch] & CLOSE_DELIM_SYNTAX) && !input_pending(&Number_Zero)) blink_match (); /* (ch); */ return(ret); } int eol_cmd() { if (!eolp()) eol(); if (! (CBuf->flags & READ_ONLY)) trim_whitespace(); return(1); } int sys_spawn_cmd() { if (Jed_Secure_Mode) { msg_error ("Access to shell denied."); return -1; } if (Batch) { sys_suspend (); return 0; } if (X_Suspend_Hook != NULL) { (*X_Suspend_Hook) (); return (0); } SLang_run_hooks("suspend_hook", NULL, NULL); if (SLang_Error) return(0); reset_display(); reset_tty(); sys_suspend(); init_tty(); flush_input (); init_display(1); /* cls(); */ SLang_run_hooks("resume_hook", NULL, NULL); check_buffers(); return(1); } int quit_jed(void) { Buffer *b = CBuf; /* Any buffer marked with AUTO_SAVE_JUST_SAVE flag should be saved * if it has not already been. That is what the flag is for and this * code fragment carries this out. */ do { if ((b->flags & AUTO_SAVE_JUST_SAVE) && (b->flags & BUFFER_TRASHED) && (*b->file)) { while (b->narrow != NULL) widen_buffer(b); auto_save_buffer(b); /* actually, it will save it */ } b = b->next; } while (b != CBuf); reset_display(); reset_tty(); #ifdef VMS vms_cancel_exithandler(); #endif #ifdef SLANG_STATS SLang_dump_stats("slang.dat"); #endif #ifdef MALLOC_DEBUG SLmalloc_dump_statistics (); #endif exit(0); return(1); } int quoted_insert() { char ch; int lerr = SLang_Error; CHECK_READ_ONLY if (*Error_Buffer || SLKeyBoard_Quit) return(0); if (Repeat_Factor != NULL) { ch = *Repeat_Factor; Repeat_Factor = NULL; } else { SLang_Key_TimeOut_Flag = 1; ch = jed_getkey(); SLang_Key_TimeOut_Flag = 0; } SLang_Error = lerr; /* ^G may set it */ if ((ch == '\n') && (CBuf == MiniBuffer)) { ins('\n'); /* msg_error("Not allowed!"); */ return (1); } SLKeyBoard_Quit = 0; ins_char_n_times(ch, 1); if ((CBuf->syntax_table != NULL) && (CBuf->syntax_table->char_syntax[(unsigned char) ch] & CLOSE_DELIM_SYNTAX) && !input_pending(&Number_Zero)) blink_match (); /* (ch); */ return(1); } /* I should try it like emacs--- if prefix argument, then save all without user intervention */ int save_some_buffers(void) { Buffer *b, *tmp; int ans = 0; char msg[256]; int err; b = CBuf; do { /* if ((b->flags & AUTO_SAVE_BUFFER) && (b->flags & BUFFER_TRASHED) */ if ((b->flags & BUFFER_TRASHED) && (*b->file)) { sprintf(msg,"Buffer %s not saved. Save it? (y/n)", b->name); flush_message(msg); ans = my_getkey(); while (1) { if ((ans == 'y') || (ans == 'Y')) { tmp = CBuf; switch_to_buffer(b); while (b->narrow != NULL) widen_buffer(b); err = write_file_with_backup(b->dir, b->file); switch_to_buffer(tmp); if (err < 0) return(-1); b->flags &= ~BUFFER_TRASHED; b->flags |= AUTO_SAVE_BUFFER; b->hits = 0; break; } else if ((ans == 'n') || (ans == 'N')) { /* disabling this */ /* auto_save_buffer(b); */ break; } else if (SLKeyBoard_Quit) { /* warning--- bug here if user edits file at startup and forgets to save it then aborts. */ return(-1); } else { beep(); sprintf(msg,"Buffer %s not saved. Save it", b->name); ans = get_yes_no(msg); if (ans == 1) ans = 'y'; else if (!ans) ans = 'n'; else return(-1); } } } b = b->next; } while (b != CBuf); message(" "); return(1); } int exit_jed() { static int in_exit_jed = 0; if (!in_exit_jed) { in_exit_jed = 1; if (SLang_run_hooks("exit_hook", NULL, NULL)) { in_exit_jed = 0; return(1); } } in_exit_jed = 0; if (SLang_Error) return(0); if (save_some_buffers() > 0) quit_jed(); return(1); } int jed_buffer_visible (char *b) { return buffer_visible (find_buffer(b)); } static void scroll_completion (int dir) { Window_Type *w; if (jed_buffer_visible (Completion_Buffer)) { pop_to_buffer (Completion_Buffer); if (dir > 0) pagedown_cmd (); else pageup_cmd (); while (!IS_MINIBUFFER) other_window (); } else { w = JWindow; other_window(); if (!IS_MINIBUFFER) { if (dir > 0) pagedown_cmd (); else pageup_cmd (); } while (JWindow != w) other_window (); } } static int goto_bottom_of_window (void) { int n; n = JWindow->rows - window_line (); return n == nextline (&n); } static void goto_top_of_window (void) { int n; n = window_line () - 1; (void) prevline (&n); } static int Last_Page_Line; static int Last_Page_Point; /* the page up/down commands set cursor_motion to -1 because we do not want to use any goal column information */ int pagedown_cmd() { int col, this_line, this_point; int n; Cursor_Motion = -1; if (IS_MINIBUFFER) { scroll_completion (1); return 1; } if (eobp()) { msg_error(End_Of_Buffer_Error); return 1; } n = JWindow->rows; if ((CBuf != JWindow->buffer) || JWindow->trashed || (n == 1)) return (nextline(&n)); #if 0 lpl = window_line(); lp = Last_Page_Point; Last_Page_Point = Point; col = calculate_column (); dn = n - lpl; if (dn == nextline(&dn)) recenter(&Number_One); goto_column1 (&col); #endif this_line = LineNum; this_point = Point; col = calculate_column (); if (goto_bottom_of_window ()) { recenter (&Number_One); } goto_column1 (&col); if ((Last_Key_Function == (VOID *) pageup_cmd) && is_line_visible (Last_Page_Line)) { goto_line (&Last_Page_Line); Point = Last_Page_Point; } else if (CLine->next == NULL) eol(); else Point = 0; Last_Page_Line = this_line; Last_Page_Point = this_point; return(1); } int pageup_cmd (void) { int col, this_line, this_point; int n; Cursor_Motion = -1; if (IS_MINIBUFFER) { scroll_completion (-1); return 1; } if (bobp()) { msg_error(Top_Of_Buffer_Error); return 1; } n = JWindow->rows; if ((CBuf != JWindow->buffer) || JWindow->trashed || (n == 1)) return(prevline(&n)); this_line = LineNum; this_point = Point; col = calculate_column (); goto_top_of_window (); (void) goto_column1(&col); recenter(&JWindow->rows); if ((Last_Key_Function == (VOID *) pagedown_cmd) && is_line_visible (Last_Page_Line)) { goto_line (&Last_Page_Line); Point = Last_Page_Point; } else Point = 0; /* something like: Point = point_column(JWindow->column) better? */ Last_Page_Line = this_line; Last_Page_Point = this_point; return(1); } int scroll_right() { if (JWindow->column == 1) return(0); if ((JWindow->column = JWindow->column - JWindow->width / 2) < 1) { JWindow->column = 1; } touch_window(); return(1); } int scroll_left() { JWindow->column = JWindow->column + JWindow->width / 2; touch_window(); return(1); } /* goto to column c, returns actual column */ int goto_column1(int *cp) { int c1, c = *cp; if (c <= 0) c = 1; eol(); c1 = calculate_column(); if (c1 > c) { point_column(c); c1 = calculate_column(); } return(c1); } /* move cursor to column c adding spaces if necessary */ void goto_column(int *c) { int c1 = *c; if (c1 <= 0) c1 = 1; c1 = c1 - goto_column1(&c1); insert_whitespace(&c1); } /* does not leave current line */ unsigned int skip_whitespace() { unsigned char *p, *pmax; if (CLine->len == 0) return('\n'); p = CLine->data + Point; eol(); pmax = CLine->data + Point; while(p < pmax) { if ((*p != ' ') && (*p != '\t')) break; p++; } Point = (int) (p - CLine->data); return(*p); } #define upcase(ch) (Case_Sensitive ? ch : UPPER_CASE(ch)) /* returns < 0 if what is smaller than current thing, 0 if matched, pos otherwise */ int looking_at(char *what) { register unsigned char *p, *pmax; register unsigned char *w = (unsigned char *) what, ch; Line *l = CLine; p = l->data + Point; while (1) { pmax = l->data + l->len; while (((ch = *w) != 0) && (p < pmax)) { if ((upcase(ch) != upcase(*p))) return 0; p++; w++; } if (ch == 0) return 1; l = l->next; if (l == NULL) return 0; p = l->data; } } void jed_make_lut (unsigned char *lut, unsigned char *range, unsigned char reverse) { register unsigned char *l = lut, *lmax = lut + 256; int i, r1, r2; while (l < lmax) *l++ = reverse; while (*range) { r1 = *range; if (*(range + 1) == '-') { range += 2; r2 = *range; } else r2 = r1; for (i = r1; i <= r2; i++) lut[i] = !reverse; if (*range) range++; } /* more flexibility is achieved with following line */ if (reverse && lut['\n']) lut['\n'] = 0; } void skip_chars1(char *range, int reverse) { unsigned char lut[256]; unsigned char *p, *pmax; Line *line; int n = 0; jed_make_lut(lut, (unsigned char *) range, (unsigned char) reverse); line = CLine; while (line != NULL) { CLine = line; p = line->data + Point; pmax = line->data + line->len; while (p < pmax) { if (0 == lut[*p]) { Point = (int)(p - CLine->data); LineNum += n; return; } p++; } Point = 0; line = CLine->next; n++; } eob(); } void bskip_chars1(char *range, int reverse) { unsigned char lut[256]; unsigned char *p; Line *line = CLine; int n = 0; jed_make_lut(lut, (unsigned char *) range, (unsigned char) reverse); while (1) { if (Point == 0) { if (lut['\n'] == 0) return; if (NULL == (line = CLine->prev)) break; Point = line->len - 1; n++; } CLine = line; p = line->data + (Point - 1); while (p >= line->data) { if (0 == lut[*p]) { Point = 1 + (int)(p - line->data); LineNum -= n; return; } p--; } Point = 0; } bob(); } void skip_chars (char *range) { if (*range == '^') skip_chars1(range + 1, 1); else { if (*range == '\\') range++; skip_chars1(range, 0); } } void bskip_chars (char *range) { if (*range == '^') bskip_chars1(range + 1, 1); else { if (*range == '\\') range++; bskip_chars1(range, 0); } } { if (0 == lut[*p]) { Point = 1 + (int)(p - line->data); jed-0.97.12/src/cmds.h000064400000000000003000000033600603742312400141610ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern int jed_buffer_visible (char *b); extern int newline(void); extern int previous_char_cmd(void); extern int delete_char_cmd(void); extern int backward_delete_char_cmd(void); extern int backward_delete_char_untabify(void); extern int previous_line_cmd(void); extern int next_line_cmd(void); extern int next_char_cmd(void); extern int kill_line(void); extern void insert_line(Line *line); extern int double_line(void); extern int kill_eol_cmd(void); extern int kill_line_cmd(void); extern int trim_whitespace(void); extern int indent_line(void); extern int transpose_lines(void); extern int newline_and_indent(void); extern int eol_cmd(void); extern int c_comment(void); extern int sys_spawn_cmd(void); extern int ins_char_cmd(void); extern int exit_jed(void); extern int quit_jed(void); extern int save_some_buffers(void); extern int pagedown_cmd(void); extern int pageup_cmd(void); extern int quoted_insert(void); extern int scroll_left(void); extern int scroll_right(void); extern void indent_to(int); extern int goto_column1(int *); extern void goto_column(int *); extern void insert_whitespace(int *); extern unsigned char *get_current_indent(int *); extern unsigned int skip_whitespace(void); extern int looking_at(char *); extern void skip_chars(char *); extern void skip_chars1(char *, int); extern void bskip_chars(char *); extern void bskip_chars1(char *, int); extern int Blink_Flag; extern int Indented_Text_Mode; extern int Kill_Line_Feature; extern int C_Bra_Newline; extern int C_Comment_Hint; extern int Jed_Secure_Mode; #if 0 extern int new_find_matching (int *, int *); #endif extern void jed_make_lut (unsigned char *, unsigned char *, unsigned char); unsigned int skip_whitespace(void); extern int looking_at(char *); extern void skip_chars(char *); extern void skip_chars1(char *, int); extern void bskip_chars(char *); extern void bskip_chars1(char *, int); extern int Blink_Flag; extern int Indented_Text_Mode; extern ijed-0.97.12/src/config.h000064400000000000003000000024120603742312400144750ustar00rootsys00000000000000#ifndef _JED_CONFIG_H_ #define _JED_CONFIG_H_ /* * Copyright (c) 1993, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #if !defined(unix) && !defined(VMS) && !defined(msdos) && !defined(__os2__) # define unix #endif #ifdef NeXT # ifndef sequent # define sequent # endif #endif #ifdef unix # ifndef NO_UNISTD_H # include # endif #endif #ifndef NO_STDLIB_H # include #endif #if defined(msdos) || defined (__GO32__) || defined (__os2__) # define pc_system #endif #if defined (msdos) || defined (__os2_16__) # define Sixteen_Bit_System #endif #ifdef msdos # define HAS_MEMCMP # define HAS_MEMCHR #endif #ifdef __cplusplus #define EXTERN extern "C" #else #define EXTERN extern #endif #if defined(_MSC_VER) || defined(__EMX__) #define strcmpi stricmp #define strncmpi strnicmp #endif #if !defined(__WATCOMC__) #define HAS_MOUSE #endif /* #define USE_EFENCE */ #ifdef USE_EFENCE extern char *Xstrcpy(char *, char *); extern int Xstrcmp(char *a, char *b); extern char *Xstrncpy(char *, char *, int); #undef HAS_MEMCPY #undef HAS_MEMCMP #undef HAS_MEMSET #define strcpy Xstrcpy #define strcmp Xstrcmp #define strncpy Xstrncpy #endif #define HAS_ABBREVS #define COLOR_COLUMNS #endif #ifndef pc_system #define HAS_DISPLAY_TABLE #endif __) #define strcmpi stricmp #define strncmpi strnicmp #endif #if !defined(__WATCOMC__) #define HAS_MOUSE #endif /* #define USE_EFENCE */ #ifdef USE_EFENCE extern char *Xstrcpy(char *, char *); extern int Xstrcmp(char *a, char *b); extern char jed-0.97.12/src/copyright000064400000000000003000000013700603742312400150140ustar00rootsys00000000000000/* Copyright (c) 1992, 1993 by John E. Davis davis@amy.tch.harvard.edu Permission to use, copy, modify, and distribute this software and its documentation for any non-commercial purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this software or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability withjed-0.97.12/src/deccmake.com000064400000000000003000000055540603742312400153250ustar00rootsys00000000000000$! ver = f$verify(0) $! Makefile for VMS $ axp = 1 $ if (p1 .eqs. "INSTALL") then goto install $ defs = "" $! $! If you do not want floating point, comment out next line $ defs = "FLOAT_TYPE," $! $! S-Lang Include directory (where slang.olb is located) $ slang_dir = "[-.-.slang.src]" $! $ Link_Flags = "" $ Link_Libs = "" $ C_C := CC/PREFIX_LIBRARY_ENTRIES=ALL_ENTRIES $! $ start: $ defs = defs + "HAS_MEMCPY,HAS_MEMSET,HAS_MEMCMP" $ bfiles = "vmsmail," + "sysdep," + "buffer," + "cmds," + "misc," + "file," - + "main," + "ins," + "sig," + "screen," + "paste," + "ledit," - + "line," + "vterm," + "search," + "text," + "keymap," + "replace," - + "window,undo,vfile,intrin,vmshelp,syntax,abbrev,indent" $! $ jfiles = bfiles + ",display,mouse" $ xfiles = bfiles + ",xterm" $ if (p2 .eqs. "XJED") then goto make_xjed_label $! $ files = jfiles $ make_return = "make_xjed_label" $ jexec = "jed.exe" $ goto simple_make $! $ make_xjed_label: $ files = xfiles $ make_return = "exit_label" $ jexec = "xjed.exe" $ goto simple_make $! $ exit_label: $ exit $! $! $! simple make $! $ simple_make: $ count = 0 $ next_file: $ f = f$element(count, ",", files) $ count = count + 1 $ if (f .eqs. ",") then goto do_link $ objf = f$search("''f'.obj") $ if (objf .eqs. "") then goto compile_it $ tobj = f$file_attr(objf, "RDT") $ tc = f$file_attr("''f'.c", "RDT") $ if (f .eqs. "sysdep") $ then $ if ( f$cvtime(tobj) .lts. f$cvtime(f$file_attr("vms.c","RDT"))) - then goto compile_it $ endif $ if (f$cvtime(tc) .lts. f$cvtime(tobj)) then goto next_file $ compile_it: $ write sys$output "''C_C'/define=(''defs',JED)/include=(''slang_dir') ''f'.c" $ 'C_C'/define=('defs')/include=('slang_dir') 'f'.c $ goto next_file $ do_link: $ if make_return .eqs. "make_xjed_label" $ then $ set verify $ link/exec='jexec' 'Link_Flags' 'files', 'slang_dir'slang/LIBR 'Link_Libs' $ set noverify $ else $ set verify $ link/exec='jexec' 'Link_Flags' 'files', 'slang_dir'slang/LIBR 'Link_Libs', - sys$input/opt sys$share:decw$xlibshr.exe/share $ set noverify $ endif $! rename /log 'jexec' [-.bin] $ goto 'make_return' $! $! Installation $! $ Install: $ write sys$output "Sorry, no installation implemented yet." $! destdef = f$trnlnm("JED_LIBRARY") $! again: $! def = "" $! if (destdef .nes. "") then def = "(default ''destdef')" $! write sys$output "Installation Directory" $! inquire dest "''def'" $! if (dest .eqs. "") then dest = destdef $! if (dest .eqs. "") then goto again $! if (f$parse(dest) .nes. "") then goto do_copy $! write sys$output "Directory does not exist. Creating it." $! create/dir/prot=(w:re) 'dest' $! do_copy: $! copy/log/prot=(w:re) *.sl, *.hlp, *.rc, *.info, jed.*in, jed.exe, *.com - ! 'dest' $ The_Exit: $ if (ver .eq. 1) then set verify $ exit then def = "(default ''destdef')" $! write sys$output "Installation Directory" $! inquire dest "''def'" $! if (dest .eqs. "") then dest = destjed-0.97.12/src/descrip.mms000064400000000000003000000030660603742312400152340ustar00rootsys00000000000000# # MMS file to build Jed (Thanks to Hunter Goatley) # .IFDEF __MATTS_MMS__ .ELSE EXE = .EXE OBJ = .OBJ .ENDIF .IFDEF __ALPHA__ CC = CC/STANDARD=VAXC OPTFILE = OPTIONS = .ELSE OPTFILE = ,VAXCRTL.OPT OPTIONS = $(OPTFILE)/OPTIONS .ENDIF .IFDEF __DEBUG__ CFLAGS = $(CFLAGS)/DEBUG/NOOPTIMIZE LINKFLAGS = $(LINKFLAGS)/DEBUG .ELSE LINKFLAGS = $(LINKFLAGS)/NOTRACE .ENDIF .IFDEF SLANG_OLB .ELSE SLANG_DIR = [-.-.SLANG.SRC] SLANG_OLB = $(SLANG_DIR)SLANG$(OLB) .ENDIF CFLAGS = $(CFLAGS)/DEFINE=(HAS_MEMCPY,HAS_MEMSET,HAS_MEMCMP,JED)/INCLUDE=$(SLANG_DIR) OBJS = BUFFER$(OBJ),CMDS$(OBJ),MISC$(OBJ),FILE$(OBJ),MAIN$(OBJ),- DISPLAY$(OBJ),INS$(OBJ),SIG$(OBJ),SYSDEP$(OBJ),SCREEN$(OBJ),- PASTE$(OBJ),LEDIT$(OBJ),LINE$(OBJ),VTERM$(OBJ),SEARCH$(OBJ),- TEXT$(OBJ),KEYMAP$(OBJ),REPLACE$(OBJ),WINDOW$(OBJ),- UNDO$(OBJ),VFILE$(OBJ),INTRIN$(OBJ),VMSMAIL$(OBJ),- VMSHELP$(OBJ),SYNTAX$(OBJ),ABBREV$(OBJ) HFILES = BUFFER.H,CMDS.H,DISPLAY.H,FILE.H,INS.H,KEYMAP.H,LEDIT.H,LINE.H,- MISC.H,PASTE.H,SCREEN.H,SEARCH.H,SIG.H,SYSDEP.H,TEXT.H,VTERM.H,- REPLACE.H,WINDOW.H,UNDO.H JED$(EXE) : JED$(OLB)($(OBJS))$(OPTFILE),$(SLANG_OLB) $(LINK)$(LINKFLAGS) JED$(OLB)/INCLUDE=main/LIBRARY$(OPTIONS),- $(SLANG_OLB)/LIBRARY # # Most modules depend on most of the .H files, so I'm going to be lazy # and just make them all depend on all of them. # SYSDEP$(OBJ) : SYSDEP.C,VMS.C $(OBJS) : $(HFILES) # # Build the linker options file for OpenVMS VAX and VAX C. # VAXCRTL.OPT : @ open/write tmp vaxcrtl.opt @ write tmp "SYS$SHARE:VAXCRTL.EXE/SHARE" @ close tmp ED$(EXE) : JED$(OLB)($(OBJS))$(OPTFILE),$(SLANG_OLB) $(LINK)$(LINKFLAGS) JED$(OLB)/INCLUDE=main/LIBRARY$(OPTIONS),- $(SLANG_OLB)/LIBRARY # # Most modules depend on most of the .H files, so I'm going to be lazy # and just make them all depend on all of them. # SYSDEP$(OBJ) : SYSDEP.C,VMS.C $(OBJS) : $(HFILES) # # Build the linker options file for OpenVMS VAX and VAX C. # VAXCRTL.OPT : @ open/write tmp vaxcrtl.opt @ write tjed-0.97.12/src/display.c000064400000000000003000000041530603742312400146740ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include "config.h" #include "display.h" #include "slang.h" #include "hooks.h" void (*tt_goto_rc)(int, int) = SLtt_goto_rc; void (*tt_begin_insert)(void) = SLtt_begin_insert; void (*tt_end_insert)(void) = SLtt_end_insert; void (*tt_del_eol)(void) = SLtt_del_eol; void (*tt_delete_nlines)(int) = SLtt_delete_nlines; void (*tt_delete_char)(void) = SLtt_delete_char; void (*tt_erase_line)(void) = SLtt_erase_line; void (*tt_tt_normal_video)(void) = SLtt_normal_video; void (*tt_cls)(void) = SLtt_cls; void (*tt_beep)(void) = SLtt_beep; void (*tt_reverse_index)(int) = SLtt_reverse_index; void (*tt_smart_puts)(unsigned short *, unsigned short *, int, int) = SLtt_smart_puts; void (*tt_write_string)(char *) = SLtt_write_string; void (*tt_putchar)(char) = SLtt_putchar; void (*tt_init_video)(void) = SLtt_init_video; void (*tt_reset_video)(void) = SLtt_reset_video; void (*tt_normal_video)(void) = SLtt_normal_video; void (*tt_set_scroll_region)(int, int) = SLtt_set_scroll_region; void (*tt_reset_scroll_region)(void) = SLtt_reset_scroll_region; void (*tt_get_terminfo)(void) = SLtt_get_terminfo; void (*tt_set_color)(int, char *, char *, char *) = SLtt_set_color; #ifndef pc_system void (*tt_set_color_esc)(int, char *) = SLtt_set_color_esc; void (*tt_wide_width)(void) = SLtt_wide_width; void (*tt_narrow_width)(void) = SLtt_narrow_width; void (*tt_enable_cursor_keys)(void) = SLtt_enable_cursor_keys; void (*tt_set_term_vtxxx)(int *) = SLtt_set_term_vtxxx; #endif int *tt_Ignore_Beep = &SLtt_Ignore_Beep; int *tt_Use_Ansi_Colors = &SLtt_Use_Ansi_Colors; int *tt_Term_Cannot_Scroll = &SLtt_Term_Cannot_Scroll; int *tt_Term_Cannot_Insert = &SLtt_Term_Cannot_Insert; int *tt_Screen_Rows = &SLtt_Screen_Rows; int *tt_Screen_Cols = &SLtt_Screen_Cols; #ifndef pc_system int *tt_Baud_Rate = &SLtt_Baud_Rate; #endif /* a hook to parse some command line args. */ int (*X_Argc_Argv_Hook)(int, char **); void flush_output (void) { SLtt_flush_output (); } endif int *tt_Ignore_Beep = &SLtt_Ignore_Beep; int *tt_Use_Ansi_Colors = &SLtt_Use_Ansi_Colors; int *tt_Term_Cannot_Scroll = &SLtt_Term_Cannot_Scroll; int *tt_Term_Cannot_Insert = &SLtt_Term_Cannot_Insert; int *tt_Screen_Rows = &SLtt_Screen_Rows; int *tt_Screen_Cols = &SLtt_Screen_Cols; #ifndef pc_system int *tt_Baud_Rate = &SLtt_Baud_Rate; #endif /* a hook to parse some command lijed-0.97.12/src/display.h000064400000000000003000000030530603742312400146770ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern void (*tt_goto_rc)(int, int); extern void (*tt_begin_insert)(void); extern void (*tt_end_insert)(void); extern void (*tt_del_eol)(void); extern void (*tt_delete_nlines)(int); extern void (*tt_delete_char)(void); extern void (*tt_erase_line)(void); extern void (*tt_cls)(void); extern void (*tt_beep)(void); extern void (*tt_reverse_index)(int); extern void (*tt_smart_puts)(unsigned short *, unsigned short *, int, int); extern void (*tt_wide_width)(void); extern void (*tt_narrow_width)(void); extern void (*tt_write_string)(char *); extern void (*tt_putchar)(char); extern void (*tt_init_video)(void); extern void (*tt_reset_video)(void); extern void (*tt_normal_video)(void); extern void (*tt_set_scroll_region)(int, int); extern void (*tt_reset_scroll_region)(void); extern void (*tt_get_terminfo)(void); extern void (*tt_enable_cursor_keys)(void); extern void (*tt_set_term_vtxxx)(int *); extern void (*tt_set_color)(int, char *, char *, char *); extern void (*tt_set_color_esc)(int, char *); extern int *tt_Ignore_Beep; extern int *tt_Term_Cannot_Insert; extern int *tt_Use_Ansi_Colors; extern int *tt_Term_Cannot_Scroll; extern int *tt_Screen_Rows; extern int *tt_Screen_Cols; extern int *tt_Baud_Rate; #ifdef pc_system extern int Attribute_Byte; # ifndef __GO32__ extern int Cheap_Video; extern void video_off(void); extern void video_on(void); # endif #endif /* Miscellaneous Stuff */ extern int Scroll_By_Copying; extern void flush_output (void); id (*tt_set_color_esc)(int, char *); extern int *tt_Ignore_Beep; extern int *tt_Term_Cannot_Insert; extern int *tt_Use_Ansi_Colors; extern int *tt_Term_Cannot_Scroll; extern int *tt_Screen_Rows; extern int *tt_Screen_Cols; extern int *tt_Baud_Rate; #ifdef pc_system extern int Attribute_Byte; # ifndef __GO32__ extern int Cheap_Video; extern void video_off(void); extern void video_on(void); # endif #endif /* Miscellaneous Stuff */ extern int Scroll_By_jed-0.97.12/src/dos_os2.c000064400000000000003000000205360603742312500146030ustar00rootsys00000000000000/* /////////////////////////////////////////////////////////////////// // File: dos_os2.c // // Descript: routines that are common to dos & os/2 and `fairly' // compiler independent // included by i386.c, ibmpc.c, os2.c // // Public: sys_flush(); // sys_delete_file(); // sys_rename(); // sys_suspend(); // sys_System(); // // Private: discover_shell(); // parse_command_line(); // // Public: NumLock_Is_Gold, PC_Alt_Char // // Private: --- // // Revisions: // - --- -- --- --- /////////////////////////////////////////////////////////////////// */ #ifndef __DOS_OS2_CODE_INCLUDED #define __DOS_OS2_CODE_INCLUDED #ifdef __GO32__ # include # include # include # include #endif #ifdef __os2__ #include #include #include #include #endif #ifdef msdos #include #include #include #endif #ifdef UNIXSLASH const char SlashChar[2] = "/"; #else const char SlashChar[2] = "\\"; #endif extern char *get_cwd (void); int NumLock_Is_Gold = 0; /* map numlock key to F1 */ int PC_Alt_Char = 27; void sys_flush (int dummy) { (void) dummy; } /* Delete the file NAME. returns 0 on failure, 1 on sucess * Under OS/2 and DOS, unlink()[UNIX] and remove()[ANSI] are equivalent. */ int sys_delete_file(char *name) { return(1 + remove(name)); } /* Rename the file or directory OLDNAME to NEWNAME. Moving a file * to a different directory on the same drive is possible. * returns 0 on success and -1 on error */ int sys_rename(char *oldname, char *newname) { return(rename(oldname,newname)); } /* find shell (once only) */ static char *shell = NULL, *shell_switch = NULL; static void discover_shell(void) { if ( shell != NULL ) return; #ifdef SH_SHELL /* maybe some day ... */ shell_switch = "-c"; if ( (shell = getenv("SHELL")) != NULL ) return; #endif shell_switch = "/c"; if ( (shell = getenv("COMSPEC")) != NULL ) return; #ifdef __os2__ shell = "cmd.exe"; /* absolute last resort! */ #else shell = "command.com"; /* absolute last resort! */ #endif } /* /////////////////////////////////////////////////////////////////// // Function: static int parse_command_line( int *argc, char ***argv, // char **fname, // char *command_line ); // Descript: parse command_line // // Returns: the handles to redirect // // Caveat: requires spaces to separate each argument // ie., args>filename will NOT work ///////////////////////////////////////////////////////////////////// */ #define DIRECT_SPAWN 0x1000 /* some arbitrary number */ static int parse_command_line( int *argc, char ***argv, char **fname, char *command_line ) { int count, handles = 0; char *pt; discover_shell(); /* find which shell to use */ while ( (*command_line != '\0') && (*command_line == ' ')) command_line++; /* start on 1st non-space */ if ( *command_line == '!' ) { handles = DIRECT_SPAWN; command_line++; /* advance past '!' */ while ((*command_line != '\0') && (*command_line == ' ')) command_line++; /* start on next non-space */ } pt = command_line; count = 0; while ( *pt != '\0' ) { count++; /* this is an argument */ while ((*pt != '\0') && (*pt != ' ')) { if ( *pt == '|' ) /* cannot spawn directly */ handles = 0; /* need shell for pipes */ pt++; /* advance until a space */ } while ( *pt == ' ' ) pt++; /* advance until a non-space */ } *argv = (char **) SLMALLOC( (count+3) * sizeof(char *) ); if ( *argv == NULL ) return 0; /* malloc error */ *argc = 0; if ( !(handles & DIRECT_SPAWN) ) { (*argv)[ *argc ] = shell; (*argc)++; if ( count > 0 ) { (*argv)[ *argc ] = shell_switch; (*argc)++; } count += (*argc); } pt = command_line; while ((*argc < count) && (*pt != '\0')) { (*argv)[ *argc ] = pt; (*argc)++; while ( *pt != '\0' && *pt != ' ' ) pt++; /* advance until a space */ if ( *pt != '\0' ) *(pt++) = '\0'; /* parse argument here */ while ( *pt == ' ') pt++; /* advance until a non-space */ } (*argv) [ *argc ] = (char *) NULL; /* NULL terminated list */ /* now examine the arguments for '>' redirect */ for ( count = 0; count < *argc; count++ ) { for ( pt = (*argv)[count]; *pt && *pt != '>'; pt++ ) /* find '>' char */; if ( *pt == '>' ) { if ( pt == (*argv)[count] ) { handles |= 0x01; } else { switch ( *(--pt) ) { case '1': handles |= 0x01; break; case '2': handles |= 0x02; break; case '&': handles |= 0x03; break; } } (*argv)[count] = NULL; /* remove from the list */ count++; /* file name follows '>' */ if ( (*argv)[count] != NULL ) *fname = (*argv)[count]; } } if ((*fname == NULL) || (**fname == '\0' )) handles = 0x00; /* don't redirect if there is no name */ return handles; } /* /////////////////////////////////////////////////////////////////// // Function: int sys_System(char *command_line); // // Descript: shell wrapper that understands some common redirection syntax // command args > filename ; stdout // command args 1> filename ; stdout // command args 2> filename ; stderr // command args &> filename ; stdout+stderr // command args > filename 2>&1 ; stdout+stderr // // additionally, if command is prefixed by a '!', then the command is // spawned directly without invoking the shell // // Returns: returns error codes as per spawn*() // // Caveat: requires spaces to separate each argument // ie., command args>filename will NOT work ///////////////////////////////////////////////////////////////////// */ static int execute_the_command (char **, int, char *); int sys_System(char *command_line1) { int ret = -1, handles, argc = 0; char *fname = NULL, **argv = NULL, *command_line; if (NULL == (command_line = (char *) SLMALLOC (strlen (command_line1) + 1))) { msg_error ("Malloc error."); return -1; } strcpy (command_line, command_line1); handles = parse_command_line( &argc, &argv, &fname, command_line ); if (argc) { ret = execute_the_command (argv, handles, fname); if (argc) SLFREE(argv); } SLFREE (command_line); return ret; } void sys_suspend(void) { sys_System( "" ); } static int execute_the_command (char **argv, int handles, char *file) { int ret = 0; int fd1 = -1, fd2 = -1; int fd_err = -1, fd_out = -1; if (handles & 1) { /* save stdout file handle */ fd1 = dup (fileno (stdout)); if (fd1 == -1) { msg_error ("Unable to dup stdout"); return -1; } fd_out = open (file, O_CREAT | O_TRUNC | O_TEXT | O_WRONLY | O_APPEND, S_IREAD | S_IWRITE); if ((fd_out == -1) || (-1 == dup2 (fd_out, fileno (stdout)))) { msg_error ("Unable to redirect stdout!"); ret = -1; } } if (handles & 0x2) /* stderr */ { /* save stderr file handle */ fd2 = dup (fileno (stderr)); if (fd2 == -1) { msg_error ("Unable to dup stderr"); return -1; } if (fd_out == -1) { fd_err = open (file, O_CREAT | O_TRUNC | O_TEXT | O_RDWR | O_APPEND, S_IREAD | S_IWRITE); } else fd_err = fd_out; if ((fd_err == -1) || (-1 == dup2 (fd_err, fileno (stderr)))) { msg_error ("Unable to redirect stderr!"); ret = -1; } } if (fd_out != -1) close (fd_out); if ((fd_err != -1) && (fd_err != fd_out)) close (fd_err); if (ret == 0) { ret = spawnvp(P_WAIT, argv[0], (void *) argv); if (-1 == ret ) { switch(errno) { case ENOENT: if (handles & DIRECT_SPAWN ) msg_error("Command not found."); else msg_error("Shell not found."); break; case ENOMEM: msg_error("Insufficient Memory."); break; default: msg_error("Unknown Error."); } } } if (fd1 != -1) { if (-1 == dup2 (fd1, fileno (stdout))) { msg_error ("Unable to reattach stdout"); } close (fd1); } if (fd2 != -1) { if (-1 == dup2 (fd2, fileno (stderr))) { msg_error ("Unable to reattach stderr"); } close (fd2); } return ret; } #endif /* whole file */ sg_error("Shell not found."); break; case ENOMEM: msg_error("Insufficient Memory."); break; default: msg_error("Unknown Error."); } jed-0.97.12/src/doskeys.c000064400000000000003000000074010603742312500147100ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #define PC_NULL "\xE0^C" #define PC_SLASH "\033OQ" #define PC_STAR "\033OR" #define PC_MINUS "\033OS" #define PC_PLUS "\033Om" #define PC_ENTER "\033OM" #define PC_KP5 "\033Ou" #define PC_UP "\xE0H" #define PC_UP1 "\033Ox" #define PC_DN "\xE0P" #define PC_DN1 "\033Or" #define PC_RT "\xE0M" #define PC_RT1 "\033Ov" #define PC_LT "\xE0K" #define PC_LT1 "\033Ot" #define PC_PGUP "\xE0I" #define PC_PGUP1 "\033Oy" #define PC_PGDN "\xE0Q" #define PC_PGDN1 "\033Os" #define PC_INS "\xE0R" #define PC_INS1 "\033Op" #define PC_DEL "\xE0S" #define PC_DEL1 "\033On" #define PC_END "\xE0O" #define PC_END1 "\033Oq" #define PC_HOME "\xE0G" #define PC_HOME1 "\033Ow" #define PC_F1 "^@;" #define PC_F2 "^@<" #define PC_F3 "^@=" #define PC_F4 "^@>" #define PC_F5 "^@?" #define PC_F6 "^@@" #define PC_F7 "^@A" #define PC_F8 "^@B" #define PC_F9 "^@C" #define PC_F10 "^@D" #define PC_ALT_F1 "^@h" #define PC_ALT_F2 "^@i" #define PC_ALT_F3 "^@j" #define PC_ALT_F4 "^@k" #define PC_ALT_F5 "^@l" #define PC_ALT_F6 "^@m" #define PC_ALT_F7 "^@n" #define PC_ALT_F8 "^@o" #define PC_ALT_F9 "^@p" #define PC_ALT_F10 "^@q" #define PC_SHIFT_F1 "^@T" #define PC_SHIFT_F2 "^@U" #define PC_SHIFT_F3 "^@V" #define PC_SHIFT_F4 "^@W" #define PC_SHIFT_F5 "^@X" #define PC_SHIFT_F6 "^@Y" #define PC_SHIFT_F7 "^@Z" #define PC_SHIFT_F8 "^@[" #define PC_SHIFT_F9 "^@\\" #define PC_SHIFT_F10 "^@]" SLang_define_key1(PC_DEL, (VOID *) delete_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_DEL1, (VOID *) delete_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_NULL, (VOID *) set_mark_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_LT, (VOID *) previous_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_LT1, (VOID *) previous_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_UP, (VOID *) previous_line_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_UP1, (VOID *) previous_line_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_DN, (VOID *) next_line_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_DN1, (VOID *) next_line_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_RT, (VOID *) next_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_RT1, (VOID *) next_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_PGUP, (VOID *) pageup_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_PGUP1, (VOID *) pageup_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_PGDN, (VOID *) pagedown_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_PGDN1, (VOID *) pagedown_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_HOME, (VOID *) bol, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_HOME1, (VOID *) bol, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_END, (VOID *) eol_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_END1, (VOID *) eol_cmd, SLKEY_F_INTRINSIC, Global_Map); /* Now special keypad stuff */ SLang_define_key1(PC_ENTER, (VOID *) newline, SLKEY_F_INTRINSIC, Global_Map); /* wordperfect type stuff */ SLang_define_key1(PC_F1, (VOID *) kbd_quit, SLKEY_F_INTRINSIC, Global_Map); /* SLang_define_key1(PC_F2, (VOID *) search_forward_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_SHIFT_F2, (VOID *) search_backward_cmd, SLKEY_F_INTRINSIC, Global_Map); */ SLang_define_key1(PC_F4, (VOID *) indent_line, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_ALT_F5, (VOID *) set_mark_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_SHIFT_F4, (VOID *) narrow_paragraph, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_SHIFT_F6, (VOID *) center_line, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_F7, (VOID *) exit_jed, SLKEY_F_INTRINSIC, Global_Map); ; SLang_define_key1(PC_SHIFT_F2, (VOID *) search_backward_cmd, SLKEY_F_INTRINSIC, Global_Map); */ SLang_define_key1(PC_F4, (VOID *) indent_line, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1(PC_ALT_F5, (VOID *) set_mark_cmd, SLKEY_F_INTRINSIC, Global_jed-0.97.12/src/file.c000064400000000000003000000472400603742312500141530ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include #ifdef unix # include # include # include # ifdef SYSV # include # endif #endif #ifdef __os2__ #include #include #include #include typedef struct HOLDFEA *PHOLDFEA; PHOLDFEA QueryEAs (char *name); int WriteEAs (char *name, PHOLDFEA pHoldFEA); #endif #ifdef msdos #include #include #include #endif #ifdef __GO32__ #include #endif #ifdef __DECC #include #include #endif /* Was anything missed? */ #ifndef O_RDONLY #ifdef VMS #include #else #include #endif #endif #include "config.h" #include "buffer.h" #include "file.h" #include "misc.h" #include "sysdep.h" #include "paste.h" #include "slang.h" #include "ins.h" #include "ledit.h" #if defined (msdos) || defined (__os2_16__) #define MAX_LINE_LEN 1024 #else #define MAX_LINE_LEN 64 * 1024 #endif #ifdef VMS static int vms_max_rec_size; #include #include static int VMS_write_rfm_fixed; int vms_stupid_open(char *file) { struct stat s; char rat_buf[80], rfm_buf[80], mrs_buf[40], *rfm = "var"; unsigned short mode = 0, c; int ret; VMS_write_rfm_fixed = 0; strcpy(rfm_buf, "rfm="); if (0 == stat(file, &s)) { strcpy(rat_buf, "rat"); c = s.st_fab_rat; if (c & FAB$M_FTN) strcat(rat_buf, ",ftn"); if (c & FAB$M_CR) strcat(rat_buf, ",cr"); if (c & FAB$M_PRN) strcat(rat_buf, ",prn"); if (c & FAB$M_BLK) strcat(rat_buf, ",blk"); if (rat_buf[3] != 0) rat_buf[3] = '='; else *rat_buf = 0; c = s.st_fab_rfm; switch(c) { case FAB$C_UDF: rfm = "udf"; break; case FAB$C_FIX: rfm = "fix"; if (s.st_fab_rat & (FAB$M_CR | FAB$M_CR)) VMS_write_rfm_fixed = 1; break; case FAB$C_VAR: rfm = "var"; break; case FAB$C_VFC: rfm = "vfc"; break; case FAB$C_STM: rfm = "stm"; break; case FAB$C_STMLF: rfm = "stmlf"; break; case FAB$C_STMCR: rfm = "stmcr"; break; } mode = s.st_mode & 0777; } else strcpy (rat_buf, "rat=cr"); strcat(rfm_buf, rfm); if (vms_max_rec_size <= 0) vms_max_rec_size = 255; sprintf(mrs_buf, "mrs=%d", vms_max_rec_size); if (*rfm == 's') /* stream */ { ret = creat(file, mode, rfm_buf); } else { if (*rat_buf) ret = creat(file, mode, rfm_buf, mrs_buf, rat_buf); else ret = creat(file, mode, rfm_buf, mrs_buf); } if (ret >= 0) chmod(file, mode); return ret; } #endif int Require_Final_Newline = 0; /* 0 = read, 1 = write , 2 = append... */ static int sys_open(char *file, int acces) { int fp = -1; int flags; unsigned int mode; #ifdef VMS char *p, neew[256]; #endif #ifdef O_BINARY mode = O_BINARY; #else mode = 0; #endif flags = file_status(file); if ((flags < 0) || (flags > 1)) return(fp); /* on VMS I cheat since I do not want to deal with RMS at this point */ #ifdef VMS VMS_write_rfm_fixed = 0; strcpy(neew, file); p = neew; while (*p) if (*p == ';') *p = 0; else p++; if (acces == 0) fp = open(file, O_RDONLY, "ctx=rec","mbf=8","mbc=32","rop=RAH","shr=upi,get,put"); else if (acces == 1) { fp = vms_stupid_open(neew); } else if (acces == 2) fp = open(file, O_WRONLY | O_APPEND | O_CREAT | mode); #else switch(acces) { case 0: flags = O_RDONLY; break; case 1: flags = O_WRONLY | O_CREAT | O_TRUNC; break; case 2: flags = O_WRONLY | O_CREAT | O_APPEND; break; default: return(fp); } flags |= mode; #if defined (msdos) || defined (__os2__) fp = open(file, flags, S_IREAD | S_IWRITE); #else fp = open(file, flags, 0666); #endif #endif /* VMS */ return(fp); } /* Leaves Point at last line inserted */ /* returns -1 if unable to open file, -2 if memory allocation error otherwise returns number of lines read */ char *file_type(char *file) { char *p, *psave; if ((file == (char *) NULL) || (*file == 0)) return( (char *) NULL); file = extract_file(file); p = file; while (*p != 0) p++; psave = p; while((p != file) && (*p != '.')) p--; if (*p == '.') p++; if (p == file) return(psave); else return(p); } void set_file_modes() { char *type; if (CBuf == NULL) return; CBuf->c_time = sys_time(); if (CBuf->file[0]) { #if defined(msdos) && !defined(W_OK) #define W_OK 2 #define F_OK 0 #endif #ifdef W_OK #ifdef __GO32__ # define access i386_access #endif char name[512]; #ifndef VMS { /* COmment: I need a more generic call to contruct a directory * name. site.sl already does this properly. */ int n; strcpy (name, CBuf->dir); n = strlen (name); if (n > #ifdef pcsystem 3 /* allow C:/file */ #else 1 /* allow /file */ #endif ) { name[n - 1] = 0; /* knock off slash */ if (!access (name, F_OK) && (access (name, W_OK))) CBuf->flags |= READ_ONLY; } } #endif /* NOT VMS */ sprintf (name, "%s%s", CBuf->dir, CBuf->file); if (!access(name, F_OK) && access(name, W_OK)) CBuf->flags |= READ_ONLY; #endif /* W_OK */ CBuf->flags |= AUTO_SAVE_BUFFER; CBuf->hits = 0; type = file_type(CBuf->file); } else type = (char *) NULL; if (type == (char *) NULL) CBuf->modes = NO_MODE; else if (SLang_run_hooks("mode_hook", type, NULL)); else CBuf->modes = NO_MODE; } int read_file(char *file) { int fp; int n, status; if ((fp = sys_open(file, 0)) < 0) { status = file_status(file); if (!status) return(-1); /* file does not exist */ return(-2); /* exists but not readable */ } n = read_file_pointer(fp); close(fp); eob(); if ('\n' == *(CLine->data + Point)) make_line(2); VFile_Mode = VFILE_TEXT; return n; } int insert_file_pointer(VFILE *vp) { int n = 0; unsigned int num; unsigned char *vbuf; Suspend_Screen_Update = 1; while(NULL != (vbuf = (unsigned char *) vgets(vp, &num))) { n++; if (SLang_Error) break; quick_insert(vbuf, (int) num); } return(n); } int insert_file(char *file) { VFILE *vp; int n; if (NULL == (vp = vopen(file, 0, VFile_Mode))) return(-1); n = insert_file_pointer(vp); vclose(vp); return(n); } #define WRITE jed_write1 #ifdef unix # define BUFSIZE 0x10000 #else #ifdef VMS # define BUFSIZE 0x3FFF #else # define BUFSIZE 512 #endif #endif static int Output_Buffer_Size = BUFSIZE; static char Output_Buffer[BUFSIZE]; static char *Output_Bufferp; static char *Output_Bufferp_max; /* definitely perform the write. Return number of chars written */ static int jed_write1(int fd, char *b, unsigned int n) { #if !defined(msdos) || defined(__WATCOMC__) || defined(__WIN32__) int len; unsigned int total = 0; #ifdef VMS register char *bmax; #endif while (total < n) { len = n - total; #ifdef VMS if (VMS_write_rfm_fixed) { } /* VMS wants to terminate a record with a cr so adjust for this * unfortunate fact. The len - 1 stuff is so *bmax does not peek * beyond its boundary. */ bmax = b + (len - 1); while ((bmax > b) && (*bmax != '\n')) bmax--; if (bmax == b) bmax = b + (len - 1); /* cannot be helped */ len = (int) (bmax - b) + 1; #endif if ((len = write (fd, b, len)) < 0) { /* If the write is interruped, what should I do?? */ break; } total += (unsigned int) len; b += len; } return total; #else int num = -1; asm mov ah, 40h asm mov bx, fd asm mov cx, n asm push ds asm lds dx, dword ptr b asm int 21h asm pop ds asm jc L1 asm mov num, ax /* number of bytes written */ L1: return(num); #endif } /* RMS wants to start a NEW record after a write so just forget it! */ /* maybe do write-- return number of chars possibly written */ static int jed_write(int fd, char *b, unsigned int n) { int num, max, nl_flag = 0; unsigned int nsave = n; int cr_flag = CBuf->flags & ADD_CR_ON_WRITE_FLAG; /* amount of space left in buffer */ /* copy whats in b to the output buffer */ while (n > 0) { num = (int) (Output_Bufferp_max - Output_Bufferp); if (n > num) { #ifdef VMS max = (int) (Output_Bufferp - Output_Buffer); if (max) { if (max != WRITE(fd, Output_Buffer, max)) return(-1); Output_Bufferp = Output_Buffer; continue; } #endif max = num; MEMCPY(Output_Bufferp, b, max); Output_Bufferp += max; } else if (cr_flag && (*(b + (n - 1)) == '\n') && (VFile_Mode == VFILE_TEXT)) { max = n - 1; MEMCPY(Output_Bufferp, b, max); Output_Bufferp += max; *Output_Bufferp++ = '\r'; max++; /* can only write the \r */ if (n == num) nl_flag = 1; else *Output_Bufferp++ = '\n'; } else { max = n; MEMCPY(Output_Bufferp, b, max); Output_Bufferp += max; } if (Output_Bufferp == Output_Bufferp_max) { Output_Bufferp = Output_Buffer; if (Output_Buffer_Size != WRITE(fd, Output_Buffer, Output_Buffer_Size)) return(-1); if (nl_flag) { nl_flag = 0; *Output_Bufferp++ = '\n'; } } b += max; n -= max; } return(nsave); } /* returns -1 on failure */ int write_region_to_fp(int fp) { register int pnt, len; register Line *first, *last; int last_pnt, n = 0; char *err = "Write Failed!"; #ifndef VMS char nl = '\n'; #endif Output_Bufferp = Output_Buffer; Output_Bufferp_max = Output_Buffer + BUFSIZE; Output_Buffer_Size = BUFSIZE; #ifdef VMS if (VMS_write_rfm_fixed && (vms_max_rec_size <= BUFSIZE)) { Output_Buffer_Size = vms_max_rec_size; } else VMS_write_rfm_fixed = 0; #endif if (!check_region(&Number_One)) return(-1); last = CLine; last_pnt = Point; pop_mark(&Number_One); first = CLine; pnt = Point; /* first should never be null without hitting last first. If this ever happens, check_region failed. */ while (first != last) { len = first->len - pnt; if (len != jed_write(fp, (char *) (first->data + pnt), len)) { msg_error(err); } /* This goes here inside the loop because it is possible for external events to set error_buffer */ pnt = 0; if (SLang_Error) break; first = first->next; n++; } if (!SLang_Error && (last_pnt != 0)) { len = last_pnt - pnt; if (len != jed_write(fp, (char *) (last->data + pnt), len)) { msg_error(err); } n++; } #ifndef VMS if ((Require_Final_Newline) && (CBuf->end == last)) { eob(); if (Point) jed_write(fp, &nl, 1); } #endif /* Now flush output buffer if necessary */ len = (int) (Output_Bufferp - Output_Buffer); if (!SLang_Error && len) if (len != WRITE(fp, Output_Buffer, len)) { msg_error(err); } Output_Bufferp = Output_Buffer; pop_spot(); VFile_Mode = VFILE_TEXT; if (SLang_Error) return(-1); return(n); } /* write current buffer to open file pointer. Return number of lines */ int write_region(char *file) { int fp; int n; char msg[256]; if (!check_region(&Number_Zero)) return(-1); if ((fp = sys_open(file, 1)) < 0) { sprintf(msg, "Unable to open %s for writing.", file); msg_error(msg); return(-1); } n = write_region_to_fp(fp); close(fp); return(n); } /* returns -1 on failure and number of lines on success */ static int write_file(char *file) { Mark *m; int n = -1; int fnl; #ifdef VMS register Line *l = CBuf->beg; register int len = 0, max = 0; while (l != NULL) { len = l->len; if (len > max) max = len; l = l->next; } vms_max_rec_size = max; #endif push_spot(); bob(); push_mark(); m = CBuf->marks; eob(); fnl = Require_Final_Newline; if (CBuf->flags & BINARY_FILE) { VFile_Mode = VFILE_BINARY; Require_Final_Newline = 0; #ifdef VMS vms_max_rec_size = 512; #endif } n = write_region(file); Require_Final_Newline = fnl; VFile_Mode = VFILE_TEXT; if (m == CBuf->marks) pop_mark(&Number_Zero); pop_spot(); return(n); } int append_to_file(char *file) { int fp; int n; if ((fp = sys_open(file, 2)) < 0) return(-1); n = write_region_to_fp(fp); close(fp); check_buffers(); return(n); } static int make_autosave_filename(char *save, char *dir, char *file) { char *s; int dat; if (*file == 0) return(0); if (SLang_run_hooks("make_autosave_filename", dir, file) && !SLang_Error) { if (SLang_pop_string(&s, &dat)) return(0); strncpy(save, s, 254); save[255] = 0; if (dat == 1) SLFREE(s); } else { #ifdef unix sprintf(save, "%s#%s#", dir, file); #else #if defined (msdos) || defined (__os2__) sprintf(save, "%s#%s", dir, file); #else sprintf(save, "%s_$%s;1", dir, file); #endif #endif } return(1); } int write_file_with_backup(char *dir, char *file) { char neew[256]; char save[256]; int n; int mode, do_mode; short uid, gid; #ifndef VMS char *old; int ok = 0, bu, do_free = 0; #endif #ifdef __os2__ PHOLDFEA EAs; #endif if (*file == 0) return(-1); sprintf(neew, "%s%s", dir, file); if (((CBuf->flags & AUTO_SAVE_BUFFER) == 0) || !make_autosave_filename(save, dir, file)) *save = 0; do_mode = sys_chmod(neew, 0, &mode, &uid, &gid); if ((do_mode < 0) || (do_mode > 1)) return(-1); #ifndef VMS #ifdef __os2__ EAs = QueryEAs (neew); #endif bu = 1; if (((CBuf->flags & NO_BACKUP_FLAG) == 0) && SLang_run_hooks("make_backup_filename", dir, file)) { if (((bu = !SLang_pop_string(&old, &do_free)) != 0) && (*old)) { unlink(old); ok = !rename(neew, old); } } #endif if (-1 != (n = write_file(neew))) { if (*save) { sys_delete_file(save); } if (do_mode) /* must be an existing file, so preserve mode */ { #ifdef msdos /* Want the archive bit set since this is a new version */ mode |= 1 << 5; #endif sys_chmod (neew, 1, &mode, &uid, &gid); #ifdef __os2__ WriteEAs (neew, EAs); #endif } /* This is for NFS time problems */ CBuf->c_time = sys_file_mod_time(neew); /* CBuf->c_time = sys_time(); */ } #ifndef VMS else if (ok && bu && *old) rename(old, neew); /* error -- put it back */ if ((do_free == 1) && bu) SLFREE(old); #endif return(n); } /* warning-- this saves on the narrowed part of buffer. Here, I widen first. I need a save_restriction type of thing because I do not narrow back. */ void auto_save_buffer(Buffer *b) { char tmp[256]; Buffer *old_buf; unsigned int vfm = VFile_Mode; if (b == NULL) return; b->hits = 0; if ((b->narrow != NULL) || !(b->flags & BUFFER_TRASHED)) return; old_buf = CBuf; switch_to_buffer(b); if (b->flags & BINARY_FILE) VFile_Mode = VFILE_BINARY; else VFile_Mode = VFILE_TEXT; if (b->flags & AUTO_SAVE_BUFFER) { if (make_autosave_filename(tmp, b->dir, b->file)) { flush_message("autosaving..."); sys_delete_file(tmp); write_file(tmp); message("autosaving...done"); } } else if (b->flags & AUTO_SAVE_JUST_SAVE) { if (write_file_with_backup(b->dir, b->file) >= 0) { b->flags &= ~BUFFER_TRASHED; } } switch_to_buffer(old_buf); VFile_Mode = vfm; } void auto_save_all() { Buffer *b; if (NULL == (b = CBuf)) return; do { while (b->narrow != NULL) widen_buffer(b); if ((*b->file != 0) && (b->hits != 0)) auto_save_buffer(b); b = b->next; } while (b != CBuf); } #ifdef unix #ifndef __GO32__ static int is_link(char *f, char *f1) { struct stat s; int l; int is_dir = 0; char work[256]; l = strlen(f) - 1; if ((f[l] == '/') && (l > 1)) { strcpy(work, f); is_dir = 1; f = work; f[l] = 0; } if (( lstat(f, &s) == -1 ) /* || ((s.st_mode & S_IFMT) S_IFLNK)) */ || (((s.st_mode & S_IFMT) & S_IFLNK) == 0)) return(0); l = 255; if (is_dir) { /* This way, it will be expanded properly upon return */ *f1++ = '.'; *f1++ = '.'; *f1++ = '/'; l -= 4; /* 1 for final slash */ } if (-1 == (l = readlink(f, f1, l))) return(0); if (is_dir) f1[l++] = '/'; f1[l] = 0; return(1); } /* we do not worry about the dir--- only the filename */ char *expand_link(char *f) { char work[256], lnk[256]; char *d = expand_filename(f); if (is_link(d, lnk)) { strcpy(work, d); *(extract_file(work)) = 0; strcat(work, lnk); d = expand_filename(work); } return (d); } #endif #endif void visit_file(char *dir, char *file) { #ifndef __os2__ if (strcmp(file, CBuf->file) || strcmp(dir, CBuf->dir)) #else if (strcmpi(file, CBuf->file) || strcmp(dir, CBuf->dir)) #endif { if (NULL == find_buffer(file)) strcpy(CBuf->name, file); else uniquely_name_buffer(file); strcpy(CBuf->dir, dir); strcpy(CBuf->file, file); } /* We have already taken care of this in write buffer function. */ /* CBuf->c_time = sys_time(); */ check_buffers(); } char *dir_file_merge(char *dir, char *file) /* * returns result of merging dir with file. If file is empty, dir is * considered to be whole file. */ { char name[512]; strcpy (name, dir); if ((file != NULL) && *file) { fixup_dir(name); strcat(name, file); } return expand_filename(name); } int file_status(char *file) /* * Returns a coded integer about file. If the file does not exist, 0 is * returned. Meaning: * * 2 file is a directory * 1 file exists * 0 file does not exist. * -1 no access. * -2 path invalid * -3 unknown error */ { int mode = 0; short uid, gid; return sys_chmod(file, 0, &mode, &uid, &gid); } int file_changed_on_disk(char *file) { unsigned long t; Buffer *buf; if (NULL == (buf = find_file_buffer(file))) return(0); t = sys_file_mod_time(file); return(t > buf->c_time); } int file_time_cmp(char *file1, char *file2) { unsigned long t1, t2; t1 = sys_file_mod_time(file1); t2 = sys_file_mod_time(file2); /*These times are modification times from 1970. Hence, the bigger * number represents the more recent change. Let '>' denote * 'more recent than'. This function returns: * 1: file1 > file2 * 0: file 1 == file2 * -1: otherwise. * So: */ if (t1 == t2) return(0); if (t1 > t2) return(1); return(-1); } void auto_save(void) { auto_save_buffer(CBuf); } void check_buffer(Buffer *b) { if ((*b->file != 0) && file_changed_on_disk(dir_file_merge(b->dir, b->file))) { b->flags |= FILE_MODIFIED; } else b->flags &= ~FILE_MODIFIED; } void check_buffers() { Buffer *b = CBuf; do { check_buffer(b); b = b->next; } while (b != CBuf); } void set_file_trans(int *mode) { if (*mode) VFile_Mode = VFILE_BINARY; else VFile_Mode = VFILE_TEXT; } int read_file_pointer(int fp) { int n = 1; unsigned int num; unsigned char *vbuf; VFILE *vp; if (SLang_Error || (vp = vstream(fp, MAX_LINE_LEN, VFile_Mode)) == NULL) return(-1); if (NULL == (vbuf = (unsigned char *) vgets(vp, &num))) return(0); #ifdef KEEP_SPACE_INFO if (CLine->space < num) #endif remake_line(CLine->len + num + 1); MEMCPY((char *) CLine->data, (char *) vbuf, (int) num); CLine->len = num; while(NULL != (vbuf = (unsigned char *) vgets(vp, &num))) { n++; if ((num == 1) && (*vbuf == '\n')) make_line(num); else make_line(num + 1); MEMCPY((char *) CLine->data, (char *) vbuf, (int) num); CLine->len = num; if (SLang_Error) break; } if (vp->buf != NULL) SLFREE(vp->buf); if (vp->cr_flag) CBuf->flags |= ADD_CR_ON_WRITE_FLAG; else CBuf->flags &= ~ADD_CR_ON_WRITE_FLAG; SLFREE(vp); return n; } *) CLine->data, (char *) vbuf, (int) num); CLine->len = num; while(NULL != (vbuf = (unsigned char *) vgets(vp, &num))) { n++; if ((num == 1) && (*vbuf == '\n')) make_line(num); else make_line(num + 1); MEMCPY((char *) CLine->data, (char *) vbuf, (int) num); CLine->len = num; if (SLang_Error) break; } if (vp->buf != NULL) jed-0.97.12/src/file.h000064400000000000003000000020250603742312500141500ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #ifdef VMS #include #endif #include "buffer.h" #include "vfile.h" extern int Require_Final_Newline; extern int read_file(char *); extern int insert_file(char *); extern void set_file_modes(void); extern void auto_save_buffer(Buffer *); extern void auto_save_all(void); extern void auto_save(void); extern int write_region_to_fp(int); extern int write_region(char *); extern int read_file_pointer(int); extern int insert_file_pointer(VFILE *); extern int append_to_file(char *); extern int write_file_with_backup(char *, char *); extern void visit_file(char *, char *); extern void fixup_dir(char *); extern char *dir_file_merge(char *, char *); extern int file_status(char *); extern int file_changed_on_disk(char *); extern int file_time_cmp(char *, char *); extern char *file_type(char *); extern void check_buffer(Buffer *); extern void set_file_trans(int *); #ifdef unix extern char *expand_link(char *); #endif ern int insert_file_pointer(VFILE *); extern int append_to_file(char *); extern int write_file_with_backup(char *, char *); extern void visit_file(char *, char *); extern void fixup_dir(char *); extern char *dir_file_merge(char *, char *); extern int file_status(char *); extern int file_changed_on_disk(char *); extern int file_time_cmp(char *, char *); extern char *file_type(char *); extern void check_buffer(Buffer *); extern void set_file_trans(int *); #ifdef unix extern char *expand_jed-0.97.12/src/fmerge.c000064400000000000003000000047330603742312500145010ustar00rootsys00000000000000/* Merges small files back to original using descriptor file. */ #include #include #include #ifndef sequent #include #endif #ifdef VMS #include #endif #ifdef unix #include #include #include #ifdef SYSV #include #endif #endif #ifdef msdos #include #include #include #endif #ifndef msdos #define MAX_LEN 65536 #else #define MAX_LEN 4096 #endif #include "vfile.h" int Quiet = 0; void usage(char *prog) { char *str = "filename"; fprintf(stderr, "%s: Usage: %s [-quiet]\n", prog, str); exit(1); } void error(char *fmt, char *str) { fprintf(stderr, fmt, str); putc('\n', stderr); exit(1); } int Max_Lines = 2000; FILE *open_descriptor_file(char *file) { FILE *fp; #ifdef msdos _fmode = O_TEXT; #endif if (NULL == (fp = fopen(file, "r"))) { error("Unable to open descriptor file %s", file); } #ifdef msdos _fmode = O_BINARY; #endif return (fp); } /* file is name of dsc file */ void merge(char *file) { VFILE *vp; unsigned int total, len; int fp; char *buf, *p; char buffer[256], fsplit[256]; FILE *fd; fd = open_descriptor_file(file); fgets(fsplit, 255, fd); /* remove newline char */ p = fsplit; while (*p > ' ') p++; *p = 0; /* next line is format--- ignore it. */ fgets(buffer, 255, fd); #ifdef VMS fp = open(fsplit, O_WRONLY | O_CREAT | O_TRUNC, 0, "rat=cr", "rfm=var"); #else #ifdef unix fp = open(fsplit, O_WRONLY | O_CREAT | O_TRUNC, 0666); #else _fmode = O_BINARY; fp = open(fsplit, O_WRONLY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE); #endif #endif if (fp < 0) { error("Error creating %s", fsplit); } while (1) { if (buf == NULL) { if (vp != NULL) vclose(vp); if (fgets(fsplit, 255, fd) == NULL) break; p = fsplit; while (*p > ' ') p++; *p = 0; if (NULL == (vp = vopen(fsplit, MAX_LEN))) { error("Error opening %s", fsplit); } if (!Quiet) fprintf(stdout, "Processing %s.\n", fsplit); } else write(fp, buf, len); buf = vgets(vp, &len); } if (vp != NULL) { vclose(vp); } fclose(fd); close(fp); } int main(int argc, char **argv) { char *file; switch (argc) { case 3: Quiet = 1; case 2: file = argv[1]; break; default: usage(argv[0]); } merge(file); return(0); } = (vp = vopen(fsplit, MAX_LEN))) jed-0.97.12/src/fsplit.c000064400000000000003000000067010603742312500145320ustar00rootsys00000000000000/* Splits a large file into smaller ones --- This file also creates a descriptor file describing what happened. */ #include #include #include #ifndef sequent #include #endif #ifdef VMS #include #endif #ifdef unix #include #include #include #ifdef SYSV #include #endif #endif #ifdef msdos #include #include #include #endif #include "vfile.h" void usage(char *prog) { char *str = "[-l max_lines] -f infile -o out_file_fmt -d dsc_name"; fprintf(stderr, "%s: Usage: %s\n", prog, str); exit(1); } void error(char *fmt, char *str) { fprintf(stderr, fmt, str); putc('\n', stderr); exit(1); } #ifndef msdos #define MAX_LEN 65536 int Max_Lines = 2000; #else #define MAX_LEN 4096 int Max_Lines = 1000; #endif int Quiet = 0; char *Dsc_File; char *Split_Fmt; FILE *open_descriptor_file() { FILE *fp; #ifdef msdos _fmode = O_TEXT; #endif if (NULL == (fp = fopen(Dsc_File, "w"))) { error("Unable to create descriptor file %s", Dsc_File); } #ifdef msdos _fmode = O_BINARY; #endif return (fp); } void split(char *file) { VFILE *vp; unsigned int total, len; register int n = Max_Lines + 1; int fp_split = -1, ext = -1; char *buf; char fsplit[256]; FILE *fd; register int max_low = Max_Lines - 50; register int max_hi = Max_Lines + 50; register int flag; if (max_low < 0) max_low = Max_Lines; #ifdef msdos _fmode = O_BINARY; #endif if (NULL == (vp = vopen(file, MAX_LEN))) { error("Error opening %s\n", file); } fd = open_descriptor_file(); fprintf(fd, "%s\n%s\n", file, Split_Fmt); while (NULL != (buf = vgets(vp, &len))) { if ((n >= max_hi) || flag) { if (fp_split != -1) { close(fp_split); fprintf(fd, "%s : %d lines\n", fsplit, n); } sprintf(fsplit, Split_Fmt, ++ext); #ifdef VMS fp_split = open(fsplit, O_WRONLY | O_CREAT | O_TRUNC, 0, "rat=cr", "rfm=var"); #else #ifdef unix fp_split = open(fsplit, O_WRONLY | O_CREAT | O_TRUNC, 0666); #else fp_split = open(fsplit, O_WRONLY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE); #endif #endif if (fp_split < 0) { error("Error creating %s", fsplit); } else if (!Quiet) { fprintf(stderr, "Writing %s\n", fsplit); } n = 0; } write(fp_split, buf, len); flag = 0; if ((n > max_low) && (*buf == '}')) flag = 1; n++; } if (fp_split != -1) { close(fp_split); fprintf(fd, "%s : %d lines\n", fsplit, n); } fclose(fd); vclose(vp); } int main(int argc, char **argv) { char *file = NULL; int i; /* if (argc < 2) usage(argv[0]); */ for (i = 1; i < argc; i++) { if (!strcmp(argv[i], "-quiet")) Quiet = 1; else if (!strcmp(argv[i], "-l")) { i++; if ((i >= argc) || (1 != sscanf(argv[i], "%d", &Max_Lines))) usage(argv[0]); } else if (!strcmp(argv[i], "-f")) { i++; if (i >= argc) usage(argv[0]); file = argv[i]; } else if (!strcmp(argv[i], "-o")) { i++; if (i >= argc) usage(argv[0]); Split_Fmt = argv[i]; } else if (!strcmp(argv[i], "-d")) { i++; if (i >= argc) usage(argv[0]); Dsc_File = argv[i]; } else usage(argv[0]); } if ((file == NULL) || (Split_Fmt == NULL) || (Dsc_File == NULL)) usage(argv[0]); split(file); return(0); } ]); } else if (!strcmp(argv[i], "-f")) { i++; jed-0.97.12/src/getmail.c000064400000000000003000000102710603742312600146510ustar00rootsys00000000000000/*-------------------------------*- C -*--------------------------------*\ * File: getmail.c * * Usage: getmail * * typical usage: * getmail /usr/spool/mail/$USER $HOME/Mail/#NewMail# * * ----------------------------------------------------------------------- * Moving mail from a maildir. Written in C to avoid a race condition. * * Two methods of file locking. * * 1) Write a lock file into the mail spool directory * file = "/usr/mail/spool/username" * lock = "/usr/mail/spool/username.lock" * * * Requires sgid (possible security hole) or a world-writeable * spool directory (minor security hole - but not serious) * * 2) use fcntl () call. * * * Should always work provided the fcntl call supports file locking. * This code was inspired by the Pine mailer implementation of flock. * * Depending on your system, you may need to define or comment out * the following line: \*----------------------------------------------------------------------*/ /* #define USE_LOCK_FILE */ /* mail spool is writeable */ /*----------------------------------------------------------------------*/ #include #include #include #include #include #include #ifdef SYSV # include #endif #include "config.h" static char *Program_Name; static void usage (void) { fprintf (stderr, "%s: usage: %s infile outfile\n", Program_Name, Program_Name); exit (-1); } #ifdef USE_LOCK_FILE static char Lock_File [256]; #endif static void unlock_mail_file (void) { #ifdef USE_LOCK_FILE unlink (Lock_File); #endif } static void exit_error (char *msg, int l) { fprintf (stderr, "%s: %s\n", Program_Name, msg); if (l) unlock_mail_file (); exit (-1); } #ifdef USE_LOCK_FILE static int lock_mail_file (char *file, int attempts) { struct stat s; char buf[80]; int fd; sprintf (Lock_File, "%s.lock", file); while (attempts-- > 0) { if (stat (Lock_File, &s) < 0) { if (errno != ENOENT) exit_error ("stat failed.", 0); fd = open (Lock_File, O_EXCL | O_CREAT, 0666); if (fd >= 0) { sprintf (buf, "%d", getpid()); write (fd, buf, strlen(buf)); close (fd); return (0); } perror (NULL); fprintf (stderr, "Attempt %d: can\'t lock <%s>", attempts, Lock_File); } else if (time((time_t *) NULL) - s.st_ctime > 60) { unlock_mail_file (); } sleep (1); } return (-1); } #endif #ifndef USE_LOCK_FILE /* This chunk was inspired by the way the pine mailer implemented flock. */ static void our_flock (int fd) { struct flock f; f.l_type = F_WRLCK; f.l_pid = 0; /* not used for setting locks*/ /* set up rest of structure to lock whole file */ f.l_whence = 0; /* from beginning of file */ f.l_start = f.l_len = 0; /* entire file */ /* we are going to block */ if (fcntl (fd, F_SETLKW, (int) &f) == -1) { exit_error ("Unable to lock file.", 0); } } #endif static void mv_mail (char *from, char *to) { char buf[8192]; int fdfrom, fdto; int n; int flags; #ifdef USE_LOCK_FILE flags = O_RDONLY; #else flags = O_RDWR; #endif if ((fdfrom = open (from, flags, 0666)) < 0) exit_error ("Unable to open input file.", 1); #ifndef USE_LOCK_FILE our_flock (fdfrom); #endif if ((fdto = open (to, O_WRONLY | O_CREAT | O_TRUNC, 0600)) < 0) exit_error ("Unable to create output file.", 1); while ((n = read (fdfrom, buf, sizeof(buf))) > 0) { if (n != write (fdto, buf, n)) { exit_error ("write failed.", 1); } } close (fdto); close (fdfrom); #ifndef TEST_DONT_UNLINK if ( unlink (from) ) { if ((fdfrom = open (from, O_WRONLY | O_CREAT | O_TRUNC, 0600)) >= 0) close (fdfrom); } #endif unlock_mail_file (); } int main (int argc, char **argv) { char *in = argv[1]; char *out = argv[2]; Program_Name = argv [0]; if (argc != 3) usage (); #ifdef USE_LOCK_FILE if (lock_mail_file (in, 60)) exit_error ("Unable to lock file."); #endif mv_mail (in, out); return (0); } /* /////////////////////// end of file (c source) ///////////////////// */ nk (from) ) { if ((fdfrom = open (from, O_WRONLY | O_CREAT | O_TRUNC, 0600)) >= 0) close (fdfrom); } #endif unlock_mail_file (); } int main (int argc, char **argv) { char *in = argv[1]; char *out = argv[2]; Program_Name = argv [0]; if (argc != 3) usage (); #ifdef USE_LOCK_FILE if (lock_mjed-0.97.12/src/gpmmouse.c000064400000000000003000000106540603742312600150700ustar00rootsys00000000000000#include /* This is the interface to the GPM mouse under Linux */ #define MOD_SHIFT 1 #define MOD_CTRL 4 static int Mouse_Showing; static int MouseX, MouseY; static void draw_mouse (void) { Gpm_Event event; int ok = 1; if (MouseX <= 0) { ok = 0; MouseX = 0; } else if (MouseX > *tt_Screen_Cols) { ok = 0; MouseX = *tt_Screen_Cols + 1; } if (MouseY <= 0) { ok = 0; MouseY = 0; } else if (MouseY > *tt_Screen_Rows) { ok = 0; MouseY = *tt_Screen_Rows + 1; } if (ok) { event.x = MouseX; event.y = MouseY; GPM_DRAWPOINTER(&event); Mouse_Showing = 1; } /* else turn off the pointer. However, there seems to be no mechanism * for this!!! */ } static int mouse_handler_2 (void) { int b = 0, nbuttons; Gpm_Event event; unsigned char buf[6]; if (Gpm_GetEvent (&event) <= 0) return -1; if (Suspend_Mouse_Events) { if (Suspend_Mouse_Events == -1) Suspend_Mouse_Events = 0; return -1; } MouseX += event.dx; MouseY += event.dy; draw_mouse (); if (event.type & GPM_MOVE) return 0; nbuttons = 0; if (event.buttons & GPM_B_LEFT) { b = 'l'; JMouse.button = 1; nbuttons++; } if (event.buttons & GPM_B_MIDDLE) { b = 'm'; JMouse.button = 2; nbuttons++; } if (event.buttons & GPM_B_RIGHT) { JMouse.button = 3; b = 'r'; nbuttons++; } if (nbuttons != 1) return 0; buf[0] = 27; buf[1] = 0; if (event.type & GPM_DRAG) buf[2] = 0; else if (event.type & GPM_DOWN) buf[2] = 'D'; else if (event.type & GPM_UP) buf[2] = 'U'; else return 0; if (event.modifiers & MOD_SHIFT) { b = b - 'a' + 'A'; } else if (event.modifiers & MOD_CTRL) { b = b - 'a' + 1; } buf[3] = b; ungetkey_string (buf, 4); JMouse.x = MouseX; JMouse.y = MouseY; return 1; } static int Warp_Pending; static void close_update (void) { if (Warp_Pending || Mouse_Showing) { if (Warp_Pending) { JMouse.x = MouseX = Screen_Col; JMouse.y = MouseY = Screen_Row; } else { MouseX = JMouse.x; MouseY = JMouse.y; } draw_mouse (); Warp_Pending = 0; } else Mouse_Showing = 0; } static void warp_pointer (void) { Warp_Pending = 1; } static char *CutBuffer; static int CutBuffer_Len; static int insert_cutbuffer (void) { CHECK_READ_ONLY if (CutBuffer == NULL) return 0; if (CutBuffer_Len) ins_chars ((unsigned char *) CutBuffer, CutBuffer_Len); return CutBuffer_Len; } static void region_to_cutbuffer (void) { int nbytes; if (CutBuffer != NULL) { SLFREE (CutBuffer); } CutBuffer = make_buffer_substring(&nbytes); CutBuffer_Len = nbytes; } static SLang_Name_Type gpm_mouse_table[] = { MAKE_INTRINSIC(".x_warp_pointer", warp_pointer, VOID_TYPE, 0), MAKE_INTRINSIC(".x_insert_cutbuffer", insert_cutbuffer, INT_TYPE, 0), /* Prototype: Integer x_insert_cut_buffer (); * Inserts cutbuffer into the current buffer and returns the number * of characters inserted. */ MAKE_INTRINSIC(".x_copy_region_to_cutbuffer", region_to_cutbuffer, VOID_TYPE, 0), /* Prototype: Void x_copy_region_to_cutbuffer(); */ SLANG_END_TABLE }; static void hide_mouse (int show) { Mouse_Showing = show; } static int open_mouse (void) { static int not_first_time; Gpm_Connect conn; char *term; /* Unbelievable. If we are running in an Xterm, gpm will turn on mouse * reporting. Nice huh? NOT!!! */ term = getenv ("TERM"); if ((term != NULL) && !strncmp (term, "xterm", 5)) return -1; conn.eventMask = ~0; conn.defaultMask = 0; conn.maxMod = MOD_CTRL | MOD_SHIFT; conn.minMod = 0; Mouse_Showing = 0; Suspend_Mouse_Events = -1; MouseX = *tt_Screen_Cols / 2; MouseY = *tt_Screen_Rows / 2; if (-1 == Gpm_Open (&conn, 0)) return -1; if (not_first_time == 0) { if (!SLang_add_table(gpm_mouse_table, "Mouse") || !SLdefine_for_ifdef("MOUSE")) return -1; not_first_time = 1; } JMouse_Event_Hook = mouse_handler_2; X_Update_Close_Hook = close_update; JMouse_Hide_Mouse_Hook = hide_mouse; return gpm_fd; } static void close_mouse (void) { X_Update_Close_Hook = NULL; if (JMouse_Event_Hook == NULL) return; JMouse_Event_Hook = NULL; Gpm_Close (); } int (*X_Open_Mouse_Hook)(void) = open_mouse; void (*X_Close_Mouse_Hook)(void) = close_mouse; able(gpm_mouse_table, "Mouse") || !SLdefine_for_ifdef("MOUSE")) return -1; njed-0.97.12/src/hooks.h000064400000000000003000000014700603742312600143600ustar00rootsys00000000000000/* * Copyright (c) 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern int (*X_Read_Hook) (void); extern int (*X_Input_Pending_Hook) (void); extern void (*X_Get_Term_Size_Hook) (int *, int *); extern void (*X_Suspend_Hook)(void); extern int (*X_Argc_Argv_Hook)(int, char **); extern int (*X_Init_SLang_Hook)(void); extern int (*X_Init_Term_Hook) (void); extern void (*X_Reset_Term_Hook) (void); extern void (*X_Update_Open_Hook)(void); /* hooks called when starting */ extern void (*X_Update_Close_Hook)(void); /* and finishing update */ extern void (*X_Define_Keys_Hook) (SLKeyMap_List_Type *); #ifdef HAS_MOUSE extern int (*X_Open_Mouse_Hook)(void); extern void (*X_Close_Mouse_Hook)(void); extern int (*JMouse_Event_Hook)(void); extern void (*JMouse_Hide_Mouse_Hook)(int); #endif int (*X_Init_SLang_Hook)(void); extern int (*X_Init_Term_Hook) (void); extern void (*X_Reset_Term_Hook) (void); extern void (*X_Update_Open_Hook)(void); /* hooks called when starting */ extern vjed-0.97.12/src/i386.c000064400000000000003000000225230603742312600137230ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #ifndef __WATCOMC__ #include #include #include #include #else #include #include #include #include #include /* for some reason _bios_keybrd seems to work better than kbhit() * even though the documentation indicates they do the same thing. */ #define kbhit() _bios_keybrd(_NKEYBRD_READY) #endif /* NOT WATCOM */ #include #include "config.h" #include "sysdep.h" #define BIOSKEY i386_bioskey #include #include #include #include "dos_os2.c" int Abort_Char = 7; /* scan code for G (control) */ #ifndef __WATCOMC__ unsigned int i386_bioskey(int f) { union REGS in, out; in.h.ah = f | 0x10; /* use enhanced kbd */ int86(0x16, &in, &out); return(out.x.ax & 0xFFFF); } #endif static void read_and_buffer_keys (void) { char *normal = "!@#$%^&*()-=\t*\0177QWERTYUIOP[]\r*ASDFGHJKL;'`*\\ZXCVBNM<>/"; unsigned int i, num = 1, c0, c1, shft; unsigned char pair[3]; #ifdef __WATCOMC__ i = _bios_keybrd(_NKEYBRD_READ); shft = _bios_keybrd(_NKEYBRD_SHIFTSTATUS) & 0xF; #else i = (unsigned int) BIOSKEY(0); shft = BIOSKEY(2) & 0xF; #endif switch (i) { case 0x0E08: c0 = 127; break; case 0x0EFF: c0 = 8; break; case 0xE02F: /* KEYPAD SLASH */ pair[1] = 'O'; pair[2] = 'Q'; num = 3; c0 = 27; break; case 0x372A: /* KEYPAD STAR */ pair[1] = 'O'; pair[2] = 'R'; num = 3; c0 = 27; break; case 0x4A2D: /* KEYPAD MINUS */ pair[1] = 'O'; pair[2] = 'S'; num = 3; c0 = 27; break; case 0x4700: /* KEYPAD HOME */ pair[1] = 'O'; pair[2] = 'w'; num = 3; c0 = 27; break; case 0x4800: /* KEYPAD UP */ pair[1] = 'O'; pair[2] = 'x'; num = 3; c0 = 27; break; case 0x4900: /* KEYPAD PGUP */ pair[1] = 'O'; pair[2] = 'y'; num = 3; c0 = 27; break; case 0x4B00: /* KEYPAD LEFT */ pair[1] = 'O'; pair[2] = 't'; num = 3; c0 = 27; break; case 0x4C00: /* KEYPAD 5 */ pair[1] = 'O'; pair[2] = 'u'; num = 3; c0 = 27; break; case 0x4D00: /* KEYPAD RIGHT */ pair[1] = 'O'; pair[2] = 'v'; num = 3; c0 = 27; break; case 0x4F00: /* KEYPAD END */ pair[1] = 'O'; pair[2] = 'q'; num = 3; c0 = 27; break; case 0x5000: /* KEYPAD DOWN */ pair[1] = 'O'; pair[2] = 'r'; num = 3; c0 = 27; break; case 0x5100: /* KEYPAD PGDN */ pair[1] = 'O'; pair[2] = 's'; num = 3; c0 = 27; break; case 0x4E2B: /* KEYPAD PLUS */ pair[1] = 'O'; pair[2] = 'm'; num = 3; c0 = 27; break; case 0xE00D: /* KEYPAD ENTER */ pair[1] = 'O'; pair[2] = 'M'; num = 3; c0 = 27; break; case 0x5300: /* KEYPAD DEL */ pair[1] = 'O'; pair[2] = 'n'; num = 3; c0 = 27; break; case 0x5200: /* KEYPAD INSERT */ pair[1] = 'O'; pair[2] = 'p'; num = 3; c0 = 27; break; case 0x3920: /* Ctrl-SPACE */ if ((shft & 4) == 0) { c0 = ' '; break; } i = 0x0300; /* drop */ default: c0 = i & 0xFF; c1 = i >> 8; if ((c0 == 0) || (c0 == 0xE0)) { if (PC_Alt_Char && (shft == 0x8)) { if ((c1 >= 14) && (c1 <= 53)) { c1 = (unsigned int) normal[c1]; } else if ((c1 >= 120) && (c1 <= 131)) { c1 = (unsigned int) normal[c1 - 120]; } else if (c1 == 165) /* tab */ { c1 = (unsigned int) normal[c1 - 165 + 12]; } c0 = PC_Alt_Char; } pair[1] = c1; num = 2; } } pair[0] = c0; buffer_keystring (pair, num); } /* Here I also map keys to edt keys */ unsigned char sys_getkey() { int wit = 300; if ( #ifdef __WATCOMC__ (!_bios_keybrd(_NKEYBRD_READY)) #else (!kbhit()) #endif ) while (!sys_input_pending(&wit, 0)) { if (Display_Time) { JWindow->trashed = 1; update((Line *) NULL, 0, 1); } } #ifdef HAS_MOUSE /* This can only be set by the mouse */ if (JMouse_Hide_Mouse_Hook != NULL) (*JMouse_Hide_Mouse_Hook) (0); if (Input_Buffer_Len == 0) #endif read_and_buffer_keys (); return my_getkey (); } static int sys_input_pending(int *tsecs, int unused) { int count = *tsecs * 5; (void) unused; if (Batch || Input_Buffer_Len) return(Input_Buffer_Len); if (kbhit()) return 1; while (count > 0) { delay(20); /* 20 ms or 1/50 sec */ if (kbhit() #ifdef HAS_MOUSE || ((JMouse_Event_Hook != NULL) && ((*JMouse_Event_Hook)() > 0)) #endif ) break; count--; } return (count); } /* This is to get the size of the terminal */ #ifndef __WATCOMC__ /* DJGPP */ #include #include int get_term_dimensions(int *cols, int *rows) { *rows = ScreenRows(); *cols = ScreenCols(); /* Number of scanlines/character */ return _farpeekw (_go32_conventional_mem_selector (), 0x485); } #else #include int get_term_dimensions(int *cols, int *rows) { struct videoconfig vc; _getvideoconfig(&vc); *rows = vc.numtextrows; *cols = vc.numtextcols; return 0; } #endif /* returns 0 if file does not exist, 1 if it is not a dir, 2 if it is */ int sys_chmod(char *file, int what, int *mode, short *dum1, short *dum2) { struct stat buf; int m; *dum1 = *dum2 = 0; file = msdos_pinhead_fix_dir (file); if (what) { chmod(file, *mode); return(0); } if (stat(file, &buf) < 0) switch (errno) { case EACCES: return(-1); /* es = "Access denied."; break; */ case ENOENT: return(0); /* ms = "File does not exist."; */ case ENOTDIR: return(-2); /* es = "Invalid Path."; */ default: return(-3); /* "stat: unknown error."; break;*/ } m = buf.st_mode; /* AIX requires this */ #ifdef _S_IFDIR #ifndef S_IFDIR #define S_IFDIR _S_IFDIR #endif #endif *mode = m & 0777; #ifndef __WATCOMC__ if (m & S_IFDIR) return (2); #else if (S_ISDIR(m)) return(2); #endif return(1); } int i386_access (char *file, int mode) { struct stat buf; if (stat(file, &buf) < 0) return -1; if (mode == W_OK) { if (buf.st_mode & S_IWRITE) return 0; return -1; } return 0; } unsigned long sys_file_mod_time(char *file) { struct stat buf; if (stat(file, &buf) < 0) return(0); return((unsigned long) buf.st_mtime); } #ifndef __WATCOMC__ static int cbreak; #endif void reset_tty() { #ifndef __WATCOMC__ setcbrk(cbreak); #endif #ifdef HAS_MOUSE if (X_Close_Mouse_Hook != NULL) (*X_Close_Mouse_Hook) (); #endif } void init_tty() { #ifndef __WATCOMC__ cbreak = getcbrk(); setcbrk(0); #endif #ifdef HAS_MOUSE if (X_Open_Mouse_Hook != NULL) (*X_Open_Mouse_Hook) (); #endif } #ifndef __WATCOMC__ static struct ffblk Dos_DTA; #else static struct find_t fileinfo; #endif static char Found_Dir[256], *Found_File; /* found_File is a pointer into found_Dir such that the * full pathname is stored in the following form * "c:/dir/path/\0filename.ext\0" */ #define lcase(x) if (((x) >= 'A') && ((x) <= 'Z')) (x) |= 0x20 static void dta_fixup_name (char *file) { char *p; #ifndef __WATCOMC__ strcpy (Found_File, Dos_DTA.ff_name); #else strcpy (Found_File, fileinfo.name); #endif p = Found_File; while (*p) { lcase(*p); p++; } strcpy(file, Found_Dir); strcat(file, Found_File); #ifndef __WATCOMC__ if (Dos_DTA.ff_attrib & FA_DIREC) strcat(file, "\\"); #else if (fileinfo.attrib & _A_SUBDIR) strcat(file, "\\"); #endif } int sys_findfirst(char *file) { char *f; strcpy(Found_Dir, expand_filename(file) ); Found_File = extract_file( Found_Dir ); f = Found_File; while (*f && (*f != '*')) f++; if (! *f) { f = Found_File; while (*f && (*f != '.')) f++; if (*f) strcat(Found_Dir, "*"); else strcat(Found_Dir, "*.*"); } #ifndef __WATCOMC__ if (findfirst(Found_Dir, &Dos_DTA, FA_RDONLY | FA_DIREC)) #else if (_dos_findfirst(Found_Dir, _A_RDONLY | _A_SUBDIR, &fileinfo)) #endif { *Found_File++ = 0; return 0; } *Found_File++ = 0; dta_fixup_name(file); return(1); } int sys_findnext(char *file) { #ifndef __WATCOMC__ if (findnext(&Dos_DTA)) return(0); #else if (_dos_findnext (&fileinfo)) return(0); #endif dta_fixup_name(file); return(1); } /* This routine is called from S-Lang inner interpreter. It serves as a poor mans version of an interrupt 9 handler */ void i386_check_kbd() { while (kbhit()) { read_and_buffer_keys (); } } char *djgpp_current_time (void) { union REGS rg; unsigned int year; unsigned char month, day, weekday, hour, minute, sec; char days[] = "SunMonTueWedThuFriSat"; char months[] = "JanFebMarAprMayJunJulAugSepOctNovDec"; static char the_date[26]; rg.h.ah = 0x2A; #ifndef __WATCOMC__ int86(0x21, &rg, &rg); year = rg.x.cx & 0xFFFF; #else int386(0x21, &rg, &rg); year = rg.x.ecx & 0xFFFF; #endif month = 3 * (rg.h.dh - 1); day = rg.h.dl; weekday = 3 * rg.h.al; rg.h.ah = 0x2C; #ifndef __WATCOMC__ int86(0x21, &rg, &rg); #else int386(0x21, &rg, &rg); #endif hour = rg.h.ch; minute = rg.h.cl; sec = rg.h.dh; /* we want this form: Thu Apr 14 15:43:39 1994\n */ sprintf(the_date, "%.3s %.3s%3d %02d:%02d:%02d %d\n", days + weekday, months + month, day, hour, minute, sec, year); return the_date; } year = rg.x.ecx & 0xFFFF; #endif month = 3 * (rg.h.dh - 1); day = rg.h.dl; weekday = 3 * rg.h.al; rg.h.ah = 0x2C; #ifndef __WATCOMC__ int86(0xjed-0.97.12/src/ibmpc.c000064400000000000003000000265310603742312700143300ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include #include #include "config.h" #include "sysdep.h" #include #include #include #include #include #include #include /* for stat */ #include #include #ifdef __cplusplus #define _DOTS_ ... #else #define _DOTS_ void #endif void interrupt (*oldint9)(_DOTS_); static unsigned char far *shift = (unsigned char far *) 0x417; static unsigned int far *kbptr = (unsigned int far *) 0x41a; static unsigned int far *kbnext = (unsigned int far *) 0x41c; static unsigned int far *kbbeg = (unsigned int far *) 0x480; static unsigned int far *kbend = (unsigned int far *) 0x482; int Abort_Char = 34; #include "dos_os2.c" /* Macro to get char from BIOS not dos */ void interrupt int9_handler(_DOTS_) { unsigned int scan = (unsigned int) Abort_Char; /* 34 = scan code for ^G */ unsigned char s, s1; unsigned int offset, f1_scan = 0x3B00; /* f1 key */ unsigned int *p; unsigned int numlock = 0x45; s1 = *shift & 0xF; /* ignoring caps, ins, num lock, scroll lock */ s = inp(0x60); if (s1 & 0x04) /* control key */ { if (s == scan) { if (Ignore_User_Abort == 0) SLang_Error = 2; SLKeyBoard_Quit = 1; } else if (s == 28) /* Control - enter, ignore it!! */ { s = inp(0x61); outportb(0x61, s | 0x80); outportb(0x61, s); outportb(0x20, 0x20); return; } } else if (NumLock_Is_Gold && ((s & 0x7F) == numlock)) { if (s == numlock) { offset = *kbnext; offset += 2; if (offset == *kbend) offset = *kbbeg; if (offset != *kbptr) /* buffer not full */ { p = (unsigned int *) (0x400L + (*kbnext)); *p = f1_scan; *kbnext = offset; } } s = inp(0x61); outportb(0x61, s | 0x80); outportb(0x61, s); outportb(0x20, 0x20); return; } (*oldint9)(); } void init_int9_handler(void) { oldint9 = getvect(9); setvect(9, int9_handler); } void restore_int9_handler(void) { setvect(9, oldint9); } static void set_ctrl_break(int state) { static int prev = 0; asm { mov dl, byte ptr prev mov ax, state cmp ax, 0 jne L1 mov ah, 33h mov al, 0 mov dl, byte ptr prev int 21h xor ax, ax mov al, dl mov prev, ax mov dl, 0 } L1: asm { mov al, 1 mov ah, 33h int 21h } } #if 0 /* Here I just flag the error and return to the user-- hopefully jed will catch it and user will know what to do. */ static char *int24_errs[] = { "write protect", "bad unit", "drive not ready", "unknown", "CRC error", "request error", "seek error", "unknown media", "sector not found", "printer out of paper", "general write failure", "general read failure", "general failure", "reserved", "reserved", "invalid disk change" }; int int24_handler(int err, int ax, int bp, int si) { unsigned int di; di = _DI; (void) ax; (void) bp; msg_error(int24_errors[di & 0x000F]); } #endif static int ctrl_break(void) { msg_error("Control Break ignored!"); return(1); } #define BIOSKEY(x) bioskey((x) | bios_key_f) static int bios_key_f; void init_tty (void) { bios_key_f = peekb(0x40,0x96) & 0x10; /* enhanced keyboard flag */ set_ctrl_break(0); ctrlbrk(ctrl_break); init_int9_handler(); if (Batch) return; if (X_Open_Mouse_Hook != NULL) (*X_Open_Mouse_Hook) (); } void reset_tty (void) { restore_int9_handler(); set_ctrl_break(1); if (Batch) return; #ifdef HAS_MOUSE if (X_Close_Mouse_Hook != NULL) (*X_Close_Mouse_Hook) (); #endif SLtt_reset_video(); } /* Here I also map keys to edt keys */ unsigned char sys_getkey() { unsigned int c0, c1, shft; unsigned int i; int timeout; char *normal = "!@#$%^&*()-=\t*\0177QWERTYUIOP[]\r*ASDFGHJKL;'`*\\ZXCVBNM<>/"; timeout = 300; if (BIOSKEY(1) == 0) while (!sys_input_pending(&timeout, 0)) { if (Display_Time) { JWindow->trashed = 1; update((Line *) NULL, 0, 1); } } #ifdef HAS_MOUSE /* This can only be set by the mouse */ if (Input_Buffer_Len) return my_getkey (); if (JMouse_Hide_Mouse_Hook != NULL) (*JMouse_Hide_Mouse_Hook) (0); #endif i = BIOSKEY(0); shft = *shift & 0xF; switch (i) { case 0x0E08: return 127; case 0x0E7F: return 8; case 0xE02F: c1 = 'Q'; break; /* KEYPAD SLASH */ case 0x372A: c1 = 'R'; break; /* KEYPAD STAR */ case 0x4A2D: c1 = 'S'; break; /* KEYPAD MINUS */ case 0x4700: c1 = 'w'; break; /* KEYPAD HOME */ case 0x4800: c1 = 'x'; break; /* KEYPAD UP */ case 0x4900: c1 = 'y'; break; /* KEYPAD PGUP */ case 0x4B00: c1 = 't'; break; /* KEYPAD LEFT */ case 0x4C00: c1 = 'u'; break; /* KEYPAD 5 */ case 0x4D00: c1 = 'v'; break; /* KEYPAD RIGHT */ case 0x4F00: c1 = 'q'; break; /* KEYPAD END */ case 0x5000: c1 = 'r'; break; /* KEYPAD DOWN */ case 0x5100: c1 = 's'; break; /* KEYPAD PGDN */ case 0x4E2B: c1 = 'm'; break; /* KEYPAD PLUS */ case 0xE00D: c1 = 'M'; break; /* KEYPAD ENTER */ case 0x5300: c1 = 'n'; break; /* KEYPAD DEL */ case 0x5200: c1 = 'p'; break; /* KEYPAD INSERT */ case 0x3920: if ((shft & 4) == 0) return ' '; i = 0x0300; /* drop */ default: c0 = i & 0xFF; c1 = i >> 8; if ((c0 == 0) || (c0 == 0xE0)) { if (PC_Alt_Char && (shft == 0x8)) { if ((c1 >= 14) && (c1 <= 53)) { c1 = (unsigned int) normal[c1]; } else if ((c1 >= 120) && (c1 <= 131)) { c1 = (unsigned int) normal[c1 - 120]; } else if (c1 == 165) /* tab */ { c1 = (unsigned int) normal[c1 - 165 + 12]; } c0 = PC_Alt_Char; } ungetkey ((int *) &c1); } return c0; } ungetkey ((int *) &c1); c0 = 'O'; ungetkey ((int *) &c0); return 27; } /* sleep for *tsecs tenths of a sec waiting for input */ static int sys_input_pending(int *tsecs, int unused) { int count = *tsecs * 5; (void) unused; if (Batch || Input_Buffer_Len) return(Input_Buffer_Len); if (count) { while(count > 0) { delay(20); /* 20 ms or 1/50 sec */ if (BIOSKEY(1) #ifdef HAS_MOUSE || ((JMouse_Event_Hook != NULL) && ((*JMouse_Event_Hook)() > 0)) #endif ) break; count--; } return(count); } else return( BIOSKEY(1) #ifdef HAS_MOUSE || ((JMouse_Event_Hook != NULL) && ((*JMouse_Event_Hook)() > 0)) #endif ); } /* Thanks to Robert Schmidt - robert@alkymi.unit.no - Buuud@IRC for some of code below */ int get_term_dimensions(int *w, int *h) { int scan_lines = 8; *h = 0; /* Get BIOS's screenwidth, this works on ALL displays. */ *w = *((int *)MK_FP(0x40, 0x4a)); /* Use Ralf Brown test for EGA or greater */ asm mov ah, 12h asm mov bl, 10h asm mov bh, 0xFF /* EGA or greater will change this */ asm int 10h asm cmp bh, 0xFF asm je L1 /* if EGA or compatible: Get BIOS's number of rows. */ *h = *(char *)MK_FP(0x40, 0x84) + 1; scan_lines = *(int *) 0x485; L1: if (*h <= 0) *h = 25; return scan_lines; } int sys_chmod(char *file, int what, int *mode, short *dum1, short *dum2) { int flag = 0, m = *mode; (void) dum1; (void) dum2; file = msdos_pinhead_fix_dir (file); asm mov ah, 43h asm mov al, byte ptr what asm mov cx, m asm push ds asm lds dx, dword ptr file asm int 21h asm pop ds asm mov m, cx asm jnc L1 asm mov flag, ax /* Here if carry flag is set */ if (flag == 0x2) return(0); /* file not found */ if (flag == 0x3) return(-2); /* msg_error("Path does not exist."); */ /* else return (-3); */ /* sprintf(buf, "chmod: Unknown Error. %d", out.x.ax); msg_error(buf); */ return(-1); /* carry flag is 0 */ L1: if (what == 0) { *mode = m; } if (m & 0x10) { /* msg_error("File is a directory."); */ return(2); } return(1); } typedef struct Dos_DTA_Type { unsigned char undoc[21]; unsigned char attr; unsigned int time; unsigned int date; unsigned char low_size[2]; unsigned char high_size[2]; char name[13]; } Dos_DTA_Type; static Dos_DTA_Type Dos_DTA; static void set_dta (void) { Dos_DTA_Type *dummy = &Dos_DTA; asm mov ah, 0x1A asm push ds asm lds dx, dword ptr dummy asm int 21h asm pop ds } static int File_Attr; #define HIDDEN 0x2 #define SYSTEM 0x4 #define SUBDIR 0x10 #define READON 0x1 static char Found_Dir[256]; #define lcase(x) if (((x) >= 'A') && ((x) <= 'Z')) (x) |= 0x20 void dta_fixup_name(char *file) { int dir; char *p, name[13]; strcpy(file, Found_Dir); strcpy(name, Dos_DTA.name); dir = (Dos_DTA.attr & SUBDIR); p = name; while (*p) { lcase(*p); p++; } strcat(file, name); if (dir) strcat(file, "\\"); } int sys_findfirst(char *thefile) { char *f, the_path[256], *file, *f1; char *pat, *fudge; set_dta(); File_Attr = READON | SUBDIR; file = expand_filename(thefile); f1 = f = extract_file(file); strcpy (Found_Dir, file); Found_Dir[(int) (f - file)] = 0; strcpy(the_path, file); while (*f1 && (*f1 != '*')) f1++; if (! *f1) { while (*f && (*f != '.')) f++; if (*f) strcat(the_path, "*"); else strcat(the_path, "*.*"); } pat = the_path; /* Something is very wrong after this returns. * thefile gets trashed for some reason. Here I fudge until I figure * out what is going on * * Note: This has been fixed. I am just too lazy to remove the fudge. */ fudge = thefile; asm mov ah, 0x4e asm mov cx, File_Attr asm push ds asm lds dx, dword ptr pat asm int 21h asm pop ds asm jc L1 thefile = fudge; /* fprintf(stderr, "asm:%lu\t|%s|\n", thefile, thefile); */ dta_fixup_name(file); strcpy(thefile, file); return(1); L1: return 0; } int sys_findnext(char *file) { asm mov ah, 0x4F asm int 21h asm jc L1 dta_fixup_name(file); return(1); L1: return(0); } #if 0 unsigned long sys_file_mod_time(char *file) { struct stat buf; if (stat(file, &buf) != 0) return(0); return ((unsigned long) buf.st_mtime); close(fd); return ((unsigned long) buf.st_mtime); /* asm mov ah, 57h asm mov al, 0 asm mov bx, fd asm int 21h asm mov cx, d asm mov dx, t close(fd); fprintf(stderr, "Time ok."); return(1); */ } #endif /* Here we do a find first followed by calling routine to conver time */ unsigned long sys_file_mod_time(char *file) { struct time t; struct date d; /* struct tm *local; */ time_t secs; unsigned int dat, tim; File_Attr = READON | SUBDIR; set_dta(); asm mov ah, 0x4e asm mov cx, File_Attr asm push ds asm lds dx, dword ptr file asm int 21h asm pop ds asm jnc A_LABEL return 0; A_LABEL: tim = Dos_DTA.time; dat = Dos_DTA.date; t.ti_min = (tim >> 5) & 63; t.ti_hour = (tim >> 11) & 31; t.ti_hund = 0; t.ti_sec = 2 * (tim & 31); d.da_day = dat & 31; d.da_mon = (dat >> 5) & 15; d.da_year = 1980 + ((dat >> 9) & 0x7F); secs = dostounix(&d, &t); return((unsigned long) secs); } IR; set_dta(); asm mov ah, 0x4e asm mov cx, File_Attr asm push ds asm lds dx, dword ptr file asm int 21h asm pop ds asm jnc A_LABEL retjed-0.97.12/src/indent.c000064400000000000003000000474140603742312700145220ustar00rootsys00000000000000/* * Copyright (c) 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "buffer.h" #include "window.h" #include "misc.h" #include "cmds.h" #include "display.h" #include "ledit.h" #include "screen.h" #include "sysdep.h" static Syntax_Table_Type *Syntax_Tables; static void goto_effective_eol (Syntax_Table_Type *table) { unsigned char *p, *pmax; unsigned short *syntax; register unsigned char ch; unsigned char in_char = 0; int cb0, cb1, quote, sc, cc; cb0 = table->comment_beg; quote = table->quote_char; sc = table->string_char; cc = table->char_char; syntax = table->char_syntax; if (table->flags & MULTICHAR_TYPE) cb1 = table->comment_beg2; else cb1 = -1; p = CLine->data; pmax = CLine->data + CLine->len; while (p < pmax) { ch = *p++; if ((syntax[ch] & SYNTAX_MASK) == 0) continue; if ((in_char == 0) && (ch == cb0)) { if (cb1 != -1) { if ((p < pmax) && (*p != cb1)) continue; p--; } p -= 2; Point = (int) (p - CLine->data); /* Note: it is ok if Point is negative here. */ return; } if (ch == quote) { p++; continue; } if (ch == in_char) in_char = 0; else if (in_char == 0) { if (ch == sc) in_char = sc; if (ch == cc) in_char = cc; } } Point = CLine->len - 1; } Syntax_Table_Type *Default_Syntax_Table; /* Go backward looking for the matching ch--- not the char that matches ch. * Rather, ch is the matching character. * This routine returns: * 1 if found and leaves the point on the match * -2 if not found but we appear to be in a comment. In this case, the point * if left at the beginning of the comment * -1 Not found but we appear to be in a string. This leaves the point at the * beginning of the string. * 0 if not found. The point is left where we gave up * 2 if went back too far * count is the number of lines to go back */ static int backward_goto_match (int count, unsigned char ch) { unsigned char *p, *pmin, *save_pos = NULL, want_ch; unsigned short *syntax; int in_string, in_comment, level, is_quoted; int cb, ce, ce0, cb0, quote, flags; Syntax_Table_Type *table; unsigned int this_syntax; p = CLine->data + Point; table = CBuf->syntax_table; if (table == NULL) return 0; syntax = table->char_syntax; quote = table->quote_char; flags = table->flags; if (flags & MULTICHAR_TYPE) { cb = table->comment_beg2; ce = table->comment_end2; cb0 = table->comment_beg; ce0 = table->comment_end; } else { cb = table->comment_beg; ce = table->comment_end; cb0 = -1; ce0 = -1; } /* Here we go */ if (ch == 0) ch = *p; want_ch = table->matching_delim [ch]; if (want_ch == 0) return 0; level = 1; in_string = 0; in_comment = 0; Point--; while (count) { p = CLine->data + Point; pmin = CLine->data; /* This loop here is where it all happens. */ while (p >= pmin) { ch = *p--; if ((syntax[ch] & SYNTAX_MASK) == 0) continue; /* Check to see if it is quoted. */ if ((p >= pmin) && (*p == quote)) { unsigned char *psave; is_quoted = 0; psave = p; while ((p >= pmin) && (*p == quote)) { p--; is_quoted = !is_quoted; } if (is_quoted) continue; p = psave; } this_syntax = syntax[ch]; if (this_syntax & COMMENT_SYNTAX) { if (in_string && !in_comment) continue; if (in_comment == 0) { if (ch == ce) { if (ce0 != -1) { if ((p >= pmin) && (*p == ce0)) { in_comment = 1; p--; } } else in_comment = 1; } if (in_comment) continue; } if (ch == cb) { /* if we hit a comment start, we are out of * here since there is no point in parsing beyond * because there are no syntax contraints within a * comment. */ if (cb0 != -1) { if ((p >= pmin) && (*p == cb0)) { in_comment--; p--; } else goto comment_endif; } else in_comment--; if (in_comment || in_string) { p++; Point = (int) (p - pmin); return -2; } continue; } } comment_endif: if (this_syntax & STRING_SYNTAX) { /* string/char */ if (in_comment) continue; if (in_string == 0) in_string = ch; else if (in_string == ch) in_string = 0; /* Save this in case we are really in a comment * because if we do not find the other match, we * must come back again. Sigh. */ if (in_string) save_pos = p; continue; } if (this_syntax & OPEN_DELIM_SYNTAX) { /* opening delimiter */ if (in_string || in_comment) continue; if (level == 1) { Point = (int) (p - pmin) + 1; if (ch == want_ch) return 1; return 0; } level--; } if (this_syntax & CLOSE_DELIM_SYNTAX) { if (!in_string && !in_comment) level++; } } /* END OF MAIN LOOP: while (p >= pmin) */ if (in_string && !in_comment) { /* Ok so we have several choices. Here I am going to assume * that we are in a comment unless there is a quote char at the * end of the previous line to indicate a continuation. */ if ((CLine->prev == NULL) || (CLine->prev->len <= 1) || (quote != *(CLine->prev->data + (CLine->prev->len - 2)))) { /* * Do the same for the current line since it is possible * for the quote at the end of the line to indicate that * the string char is really the beginning. */ if ((CLine->len <= 1) || (quote != *(CLine->data + (CLine->len - 2)))) { in_comment = 1; } /* So we have a quote at the end of this line. So, * instead of assuming a comment, let's assume that we * are really back in code again. */ else in_string = 0; /* go back and try again under new assumption */ Point = (int) (save_pos - CLine->data); continue; } } /* Move to the previous line. */ if (CLine->prev == NULL) { Point = 0; break; } CLine = CLine->prev; LineNum--; Point = CLine->len - 1; count--; /* Compute the effective end of line since we do not want to * start out in a comment. This only happens for eol type comments. * This means the the Point is now in a position to continue parsing * from. It is possible that Point is negative after this call meaning * that the comment started at the beginning of the line. */ if (flags & EOL_COMMENT_TYPE) goto_effective_eol (table); } /* What have we learned? */ if (Point < 0) Point = 0; if (count == 0) { /* In this case, we went back as far as permitted. Nothing much can be * said. */ Point = 0; return 2; } if (in_string) return -1; if (in_comment) return -2; /* If we are here, then we have a mismatch */ return 0; } static int forward_goto_match (unsigned char ch) { unsigned char *p, *pmax, want_ch; unsigned short *syntax; int in_string, in_comment, level; int cb, ce, ce1, cb1, flags; unsigned int this_syntax; Syntax_Table_Type *table; p = CLine->data + Point; table = CBuf->syntax_table; if (table == NULL) return 0; syntax = table->char_syntax; flags = table->flags; if (flags & MULTICHAR_TYPE) { cb1 = table->comment_beg2; ce1 = table->comment_end2; cb = table->comment_beg; ce = table->comment_end; } else { cb = table->comment_beg; ce = table->comment_end; cb1 = -1; ce1 = -1; } /* Here we go */ if (ch == 0) ch = *p; want_ch = table->matching_delim [ch]; if (want_ch == 0) return 0; level = 1; in_string = 0; in_comment = 0; Point++; while (1) /* The only way to get out of * this loop is to find a match. */ { p = CLine->data + Point; pmax = CLine->data + CLine->len; /* This loop here is where it all happens. */ while (p < pmax) { ch = *p++; if ((syntax[ch] & SYNTAX_MASK) == 0) continue; this_syntax = syntax[ch]; if (this_syntax & COMMENT_SYNTAX) { if (in_string) continue; if (in_comment) { if (ch == ce) { if (ce1 != -1) { if ((p < pmax) && (*p == ce1)) { in_comment = 0; p++; } } else in_comment = 0; } if (in_comment == 0) continue; } else if (ch == cb) /* not in comment */ { if (cb1 != -1) { if ((p < pmax) && (*p == cb1)) { in_comment = 1; p++; } } else in_comment = 1; if (in_comment && (flags & EOL_COMMENT_TYPE)) { /* This will need modified once I support two * types of comments, e.g., C++ (yuk) */ p = pmax; in_comment = 0; } if (in_comment) continue; } } if (this_syntax & STRING_SYNTAX) { /* string/char */ if (in_comment) continue; if (in_string == 0) in_string = ch; else if (in_string == ch) in_string = 0; continue; } if (this_syntax & OPEN_DELIM_SYNTAX) { if (!in_string && !in_comment) level++; continue; } if (this_syntax & CLOSE_DELIM_SYNTAX) { if (in_string || in_comment) continue; if (level == 1) { Point = (int) (p - CLine->data) - 1; if (ch == want_ch) return 1; return 0; } level--; continue; } if (this_syntax & QUOTE_SYNTAX) p++; /* skip next char */ } /* END OF MAIN LOOP: while (p < pmax) */ /* Move to the next line. */ if (CLine->next == NULL) break; CLine = CLine->next; LineNum++; Point = 0; } eol (); if (in_string) return -1; if (in_comment) return -2; /* If we are here, then we have a mismatch */ return 0; } int find_matching_delimiter (int *ch) { unsigned char ch1 = (unsigned char) *ch; Syntax_Table_Type *table = CBuf->syntax_table; if (ch1 == 0) ch1 = *(CLine->data + Point); if (table->char_syntax[ch1] & OPEN_DELIM_SYNTAX) return forward_goto_match (ch1); else return backward_goto_match (1000, ch1); } int goto_match (void) { unsigned char ch; int ret; Syntax_Table_Type *table = CBuf->syntax_table; ch = *(CLine->data + Point); if (table->char_syntax[ch] & OPEN_DELIM_SYNTAX) ret = forward_goto_match (ch); else ret = backward_goto_match (LineNum, ch); if (ret != 1) { if (!IS_MINIBUFFER) msg_error("Mismatch!!"); return (0); } return (1); } static int parse_to_point1 (Syntax_Table_Type *table) { unsigned char *p, *pmax, ch; unsigned char in_char = 0, in_comm = 0; int cb0, cb1, ce0, ce1, quote, sc, cc, flags; sc = table->string_char; cc = table->char_char; flags = table->flags; if (flags & MULTICHAR_TYPE) { cb0 = table->comment_beg; ce0 = table->comment_end; cb1 = table->comment_beg2; ce1 = table->comment_end2; } else { cb0 = table->comment_beg; ce0 = table->comment_end; cb1 = ce1 = -1; } quote = table->quote_char; p = CLine->data; pmax = p + Point; while (p < pmax) { ch = *p++; if (in_comm) { if (ch == ce0) { if (ce1 == -1) in_comm = 0; else if ((p < pmax) && (*p == ce1)) { in_comm = 0; p++; } } if (in_comm) continue; } if (in_char) { if (ch == in_char) in_char = 0; else if (ch == quote) p++; continue; } if (ch == cb0) { if (cb1 == -1) in_comm = 1; else if ((p < pmax) && (*p == cb1)) { in_comm = 1; p++; } if (in_comm) continue; } if ((ch == cc) || (ch == sc)) in_char = ch; } if (in_char) return -1; if (in_comm) return -2; return 0; } int parse_to_point (void) { Syntax_Table_Type *table = CBuf->syntax_table; if (table == NULL) return 0; return parse_to_point1 (table); } /* blink the matching fence. This assumes that the window is ok */ void blink_match (void) { Line *save; int pnt, code, matchp; unsigned int l; char buf[600], strbuf[256]; if (!Blink_Flag || (Repeat_Factor != NULL) || Batch) return; if (JWindow->trashed) update((Line *) NULL, 0, 0); if (JWindow->trashed) return; pnt = Point; save = CLine; l = LineNum; if (Point) Point--; code = backward_goto_match (1000, 0); if (code == 0) { if ((! (CBuf->modes == WRAP_MODE)) && (!IS_MINIBUFFER)) message("Mismatch??"); } else if ((code == 1) && is_line_visible (LineNum)) { point_cursor(0); input_pending(&Number_Ten); Point = pnt; CLine = save; LineNum = l; point_cursor(0); return; } else if (code == 1) { matchp = Point; Point = 0; strcpy(buf, "Matches "); skip_whitespace(); if ((matchp == Point) && prevline(&Number_One)) { Point = 0; strcat(buf, make_line_string(strbuf)); nextline(&Number_One); Point = 0; } strcat(buf, make_line_string(strbuf)); message(buf); } Point = pnt; CLine = save; LineNum = l; } static Syntax_Table_Type *find_syntax_table (char *name, int err) { Syntax_Table_Type *table = Syntax_Tables; while (table != NULL) { if (!strncmp (table->name, name, 15)) return table; table = table->next; } if (err) msg_error ("Syntax table undefined."); return table; } void set_syntax_flags (char *name, int *flags) { Syntax_Table_Type *table; table = find_syntax_table (name, 1); if (table == NULL) return; table->flags |= *flags & 0xFF; } void define_syntax (int *what, char *name) { Syntax_Table_Type *table; int c1, c2, i; char *s1 = NULL, *s2 = NULL; unsigned char lut[256], *s; table = find_syntax_table (name, 1); if (table == NULL) return; switch (*what) { case '%': if (SLang_pop_string (&s2, &c2)) break; if (SLang_pop_string (&s1, &c1)) break; table->char_syntax[(unsigned char) *s2] |= COMMENT_SYNTAX; if (0 != (table->comment_end = (unsigned char) *s2)) { table->comment_end2 = (unsigned char) *(s2 + 1); table->char_syntax[(unsigned char) *(s2 + 1)] |= COMMENT_SYNTAX; } table->char_syntax[(unsigned char) *s1] |= COMMENT_SYNTAX; if (0 != (table->comment_beg = (unsigned char) *s1)) { table->comment_beg2 = (unsigned char) *(s1 + 1); table->char_syntax[(unsigned char) *(s1 + 1)] |= COMMENT_SYNTAX; } if (table->comment_beg2) table->flags |= MULTICHAR_TYPE; if ((table->comment_end == 0) || (table->comment_end == '\n')) table->flags |= EOL_COMMENT_TYPE; break; case '\\': if (SLang_pop_integer (&c2)) break; table->char_syntax[(unsigned char) c2] |= QUOTE_SYNTAX; table->quote_char = (unsigned char) c2; break; case '#': if (SLang_pop_integer (&c2)) break; table->preprocess = (unsigned char) c2; break; case '\'': if (SLang_pop_integer (&c2)) break; table->char_syntax[(unsigned char) c2] |= STRING_SYNTAX; table->char_char = (unsigned char) c2; break; case '"': if (SLang_pop_integer (&c2)) break; table->char_syntax[(unsigned char) c2] |= STRING_SYNTAX; table->string_char = (unsigned char) c2; break; case '<': case '>': if (SLang_pop_string (&s1, &c1)) break; s2 = s1; while (*s2 != 0) { if (*(s2 + 1) == 0) break; table->char_syntax[(unsigned char) *s2] |= HTML_START_SYNTAX; table->char_syntax[(unsigned char) *(s2 + 1)] |= HTML_END_SYNTAX; s2 += 2; } s2 = NULL; break; case '(': case ')': if (SLang_pop_string (&s2, &c2)) break; if (SLang_pop_string (&s1, &c1)) break; i = strlen (s1); if (i != strlen (s2)) { msg_error ("Delimiter set does not match."); } while (i > 0) { unsigned char ch1, ch2; i--; ch1 = (unsigned char) s1[i]; ch2 = (unsigned char) s2[i]; table->char_syntax[ch1] |= OPEN_DELIM_SYNTAX; table->char_syntax[ch2] |= CLOSE_DELIM_SYNTAX; table->matching_delim[ch2] = ch1; table->matching_delim[ch1] = ch2; } break; case '+': if (SLang_pop_string (&s1, &c1)) break; for (i = 0; i < 256; i++) table->char_syntax[i] &= ~OP_SYNTAX; s = (unsigned char *) s1; while (*s) { table->char_syntax[*s] |= OP_SYNTAX; s++; } break; case '0': if (SLang_pop_string (&s1, &c1)) break; jed_make_lut (lut, (unsigned char *) s1, 0); for (i = 0; i < 256; i++) { if (lut[i]) table->char_syntax[i] |= NUMBER_SYNTAX; else table->char_syntax[i] &= ~NUMBER_SYNTAX; } break; case ',': if (SLang_pop_string (&s1, &c1)) break; s = (unsigned char *) s1; for (i = 0; i < 256; i++) table->char_syntax[i] &= ~DELIM_SYNTAX; while (*s) { table->char_syntax[*s] |= DELIM_SYNTAX; s++; } break; case 'w': if (SLang_pop_string (&s1, &c1)) break; jed_make_lut (lut, (unsigned char *) s1, 0); for (i = 0; i < 256; i++) { if (lut[i]) table->char_syntax[i] |= WORD_SYNTAX; else table->char_syntax[i] &= ~WORD_SYNTAX; } break; default: msg_error ("Bad parameter to define_syntax"); } if ((s1 != NULL) && c1) SLFREE (s1); if ((s2 != NULL) && c2) SLFREE (s2); } void use_syntax_table (char *s) { Syntax_Table_Type *table = find_syntax_table (s, 1); if (table == NULL) return; CBuf->syntax_table = table; } void create_syntax_table (char *name) { Syntax_Table_Type *table; if (NULL != find_syntax_table (name, 0)) return; if (NULL == (table = (Syntax_Table_Type *) SLMALLOC(sizeof (Syntax_Table_Type)))) { SLang_Error = SL_MALLOC_ERROR; return; } MEMSET ((char *) table, 0, sizeof (Syntax_Table_Type)); table->next = Syntax_Tables; Syntax_Tables = table; strncpy (table->name, name, 15); table->name[15] = 0; } void init_syntax_tables (void) { unsigned short *a; unsigned char *m; Default_Syntax_Table = (Syntax_Table_Type *) SLMALLOC (sizeof (Syntax_Table_Type)); if (Default_Syntax_Table == NULL) return; MEMSET ((char *) Default_Syntax_Table, 0, sizeof (Syntax_Table_Type)); a = Default_Syntax_Table->char_syntax; m = Default_Syntax_Table->matching_delim; a [(unsigned char) '['] = OPEN_DELIM_SYNTAX; m[(unsigned char) '['] = ']'; a [(unsigned char) ']'] = CLOSE_DELIM_SYNTAX; m[(unsigned char) ']'] = '['; a [(unsigned char) '('] = OPEN_DELIM_SYNTAX; m[(unsigned char) '('] = ')'; a [(unsigned char) ')'] = CLOSE_DELIM_SYNTAX; m[(unsigned char) ')'] = '('; a [(unsigned char) '{'] = OPEN_DELIM_SYNTAX; m[(unsigned char) '{'] = '}'; a [(unsigned char) '}'] = CLOSE_DELIM_SYNTAX; m[(unsigned char) '}'] = '{'; } void define_keywords (char *name, char *kwords, int *lenp, int *tbl_nump) { char *kw; int len; int kwlen; unsigned int table_number = (unsigned int) *tbl_nump; Syntax_Table_Type *table = find_syntax_table (name, 1); if (table == NULL) return; if (table_number >= MAX_KEYWORD_TABLES) { msg_error ("Table number too high."); return; } len = *lenp; if ((len < 1) || (len > MAX_KEYWORD_LEN)) { msg_error ("Keyword length not supported."); return; } kwlen = strlen (kwords); if (kwlen % len) { msg_error ("Keyword list is improperly formed."); return; } len--; kw = table->keywords[table_number][len]; if (kw == NULL) SLang_push_string (""); else SLang_push_malloced_string (kw); kw = (char *) SLMALLOC (kwlen + 1); if (kw == NULL) { SLang_Error = SL_MALLOC_ERROR; return; } strcpy (kw, kwords); table->keywords[table_number][len] = kw; } ngth not supported."); return; } kwlen = strlen (kwords); if (kwlen % len) { msg_error ("Keyword list is improperly formed."); return; } len--; kw = table->keywords[table_number][len]; if (kw == NULL) SLjed-0.97.12/src/indent.h000064400000000000003000000047050603742312700145230ustar00rootsys00000000000000/* * Copyright (c) 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #ifndef __JED_INDENT_H_ #define __JED_INDENT_H_ typedef struct Syntax_Table_Type { unsigned char string_char; /* character for string delim */ unsigned char char_char; /* char for char delim */ unsigned int flags; #define SYNTAX_NOT_CASE_SENSITIVE 1 #define FORTRAN_TYPE 0x2 /* means if non-digit in first column, it is a comment */ #define C_COMMENT_TYPE 0x4 /* This means that a '* ' combination preceeded by whitespace marks the * line as a comment line (like this one). */ #define TEX_LIKE_KEYWORDS 0x8 #define MULTICHAR_TYPE 0x0100 /* More than one character form the comment delimeters */ #define EOL_COMMENT_TYPE 0x0200 /* Comments start and stop on the same line, e.g., * C++ (yuk), S-Lang, Postscript, Fortran, ... */ unsigned char comment_beg; /* beginning of comment */ unsigned char comment_beg2; /* second comment beginning char */ unsigned char comment_end; /* end of comment */ unsigned char comment_end2; /* second comment end char */ unsigned char quote_char; /* used for quoting in strings */ unsigned char preprocess; /* start preprocessor lines */ unsigned short char_syntax[256]; /* syntax type for characters */ unsigned char matching_delim[256]; /* matching pairs */ char name[16]; /* name of this table */ #define MAX_KEYWORD_LEN 16 #define MAX_KEYWORD_TABLES 2 char *keywords[MAX_KEYWORD_TABLES][MAX_KEYWORD_LEN]; struct Syntax_Table_Type *next; /* pointer to next table */ } Syntax_Table_Type; #define WORD_SYNTAX 0x001 #define NUMBER_SYNTAX 0x002 #define DELIM_SYNTAX 0x004 #define SYNTAX_MASK 0xFFF8 #define QUOTE_SYNTAX 0x008 #define STRING_SYNTAX 0x010 #define OPEN_DELIM_SYNTAX 0x020 #define CLOSE_DELIM_SYNTAX 0x040 #define COMMENT_SYNTAX 0x080 #define OP_SYNTAX 0x100 #define HTML_START_SYNTAX 0x200 #define HTML_END_SYNTAX 0x400 extern Syntax_Table_Type *Default_Syntax_Table; extern int find_matching_delimiter (int *); extern int parse_to_point (void); extern void use_syntax_table (char *); extern void create_syntax_table (char *); extern void define_syntax (int *, char *); extern void init_syntax_tables (void); extern void blink_match(void); extern int goto_match(void); extern void set_syntax_flags (char *, int *); extern void define_keywords (char *, char *, int *, int *); #endif /* __JED_INDENT_H_ */ ne HTML_END_SYNTAX 0x400 extern Syntax_Table_Type *Defauljed-0.97.12/src/ins.c000064400000000000003000000160730603742312700140270ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "buffer.h" #include "ins.h" #include "line.h" #include "screen.h" #include "window.h" #include "misc.h" #include "paste.h" #include "vterm.h" #include "ledit.h" #include "undo.h" int Suspend_Screen_Update = 0; static void update_generic_marks(register Mark *m, register int type, int n) { int tmp; if (m == NULL) return; if (type == CINSERT) while(m != NULL) { if ((m->line == CLine) && (m->point > Point)) { m->point += n; } m = m->next; } else if (type == CDELETE) while(m != NULL) { if ((m->line == CLine) && (m->point > Point)) { /* BCC generates wrong code here with optimization */ tmp = m->point; tmp -= n; if (tmp < Point) tmp = Point; m->point = tmp; /* BAD CODE: m->point -= n; if (m->point < Point) m->point = Point; */ } m = m->next; } /* called by line deletion routines */ else if (type == LDELETE) while(m != NULL) { if (CLine == m->line) { if (CLine->prev != NULL) { m->line = CLine->prev; } else m->line = CBuf->beg; m->point = 0; } if (LineNum + CBuf->nup <= m->n) m->n -= 1; m = m->next; } /* newline added-- affects only marks onward from insertion point */ else if (type == NLINSERT) while(m != NULL) { /* This is a bit controversial if the mark corresponds to JWindow->beg. In this case, JWindow beg gets shifted if Point = 0. */ if ((LineNum + CBuf->nup < m->n) || ((LineNum + CBuf->nup == m->n) && (m->point > Point))) m->n += 1; if ((m->line == CLine) && (m->point > Point)) { m->line = CLine->next; m->point -= Point; if (m->point > m->line->len) m->point = m->line->len; } m = m->next; } /* deletion performed at end of a line (CLine->prev) */ else if (type == NLDELETE) while(m != NULL) { if (m->line == CLine) { m->line = CLine->prev; m->point += Point; } if (LineNum + CBuf->nup <= m->n) m->n -= 1; m = m->next; } } void update_marks(int type, int n) { register Window_Type *w; register Buffer *b = CBuf; Mark *m; if (!n) return; Cursor_Motion = 0; if (b->flags & UNDO_ENABLED) { if (b->undo == NULL) create_undo_ring(); Undo_Buf_Unch_Flag = !(b->flags & BUFFER_TRASHED); } mark_buffer_modified(&Number_One); if ((m = b->spots) != NULL) update_generic_marks(m, type, n); if ((m = b->marks) != NULL) update_generic_marks(m, type, n); if ((m = b->user_marks) != NULL) update_generic_marks(m, type, n); w = JWindow; do { if (w->buffer == b) { update_generic_marks(&w->mark, type, n); update_generic_marks(&w->beg, type, n); } w = w->next; } while(w != JWindow); if (!Suspend_Screen_Update) register_change(type); } void ins(char c) { register unsigned char *p, *p1, *p2; if (CLine == NULL) { exit_error("ins: CLine is NULL", 1); } #ifdef KEEP_SPACE_INFO if (CLine->space <= CLine->len + 1) remake_line(CLine->space + 15); #else remake_line (CLine->len + 1); #endif p = CLine->data + Point; if (Point < CLine->len) { p1 = CLine->data + (CLine->len - 1); p2 = p1 + 1; while(p1 >= p) { *p2 = *p1; p2 = p1; p1--; /* *(p1 + 1) = *p1; p1--; */ } } *p = c; CLine->len += 1; update_marks(CINSERT,1); if ((c != '\n') || (CBuf == MiniBuffer)) record_insertion(1); Point++; } void del_newline(void) { CHECK_READ_ONLY_VOID if (!eol() || eobp()) return; #ifdef DEBUG_JED if (CLine->len == 0) { exit_error("del(): empty line", 1); } #endif CLine->len -= 1; update_marks(CDELETE,1); record_deletion((unsigned char *) "\n", 1); splice_line(); } /* del *np chars up until newline. Return actual number deleted */ int deln(int *np) { int n = *np; register int nn; register unsigned char *p, *pmax; if ((n == 0) || !CLine->len) return(0); nn = CLine->len - 1; p = CLine->data + nn; if ((*p == '\n') && (CBuf != MiniBuffer)) nn = nn - Point; else nn = nn - Point + 1; p = CLine->data + Point; nn = nn > n ? n : nn; if (!nn) return (0); update_marks(CDELETE, nn); record_deletion(p, nn); CLine->len -= nn; pmax = CLine->data + CLine->len; while (p < pmax) { *p = *(p + nn); p++; } return(nn); } /* delete n characters, crossing nl if necessary */ void generic_deln(int *np) { int n = *np; CHECK_READ_ONLY_VOID while(n > 0) { if (eobp()) { msg_error("End of Buffer."); return; } n -= deln(&n); if (n) del_newline(); n--; } } void del() { generic_deln(&Number_One); } void quick_insert(register unsigned char *s, int n) { register unsigned char *p, *p1; int nl = 0; if (n == 0) return; if ((*(s + (n - 1)) == '\n') && (CBuf != MiniBuffer)) { n--; nl = 1; } #ifdef KEEP_SPACE_INFO if (CLine->space <= CLine->len + n + 1) remake_line(CLine->space + n + 8); #else if (n) remake_line (CLine->len + n); #endif /* shove n chars over to make space */ p = CLine->data + Point; if (Point < CLine->len) /* could be equal for last line of buffer */ { p1 = CLine->data + CLine->len - 1; while(p1 >= p) { *(p1 + n) = *p1; p1--; } } CLine->len += n; MEMCPY((char *) p, (char *) s, n); update_marks(CINSERT, n); record_insertion(n); Point += n; if (nl) { split_line(); ins('\n'); CLine = CLine->next; LineNum++; Point = 0; } } void ins_chars(unsigned char *ss, int n) { register unsigned char nl, *pmax; register unsigned char *p, *p1, *s = ss; int n1; if (CBuf == MiniBuffer) nl = 0; else nl = '\n'; p1 = s; while (1) { p = p1; /* count the number until a new line is reached */ pmax = p1 + n; while((p1 < pmax) && (*p1 != nl)) p1++; n1 = (int) (p1 - p); if (p1 != pmax) n1++; quick_insert(p, n1); if (p1++ == pmax) return; n -= n1; } } /* This needs fixed to handle large n */ void ins_char_n_times(char c, int n) { char b[256], *p; int n1; if (n == 0) return; if (n > 255) n = 255; p = b; n1 = n; while(n1--) *p++ = c; ins_chars((unsigned char *) b, n); } void insert_buffer(Buffer *b) { Buffer *cb; if ((cb = CBuf) == b) return; switch_to_buffer(b); push_spot(); bob(); push_mark(); eob(); copy_region_to_buffer(cb); pop_spot(); switch_to_buffer(cb); touch_window(); } int No_Screen_Update; void fast_ins(char ch) { if (JWindow == JWindow->next) No_Screen_Update = 1; vins(ch); ins(ch); } void fast_del() { if (JWindow == JWindow->next) No_Screen_Update = 1; vdel(); del(); } void replace_char(unsigned char ch) { if (ch == '\n') return; if (*(CLine->data + Point) == ch) return; ins(ch); del(); Point--; } ush_spot(); bob(); push_mark(); eob(); copy_region_to_buffer(cb); pop_spot(); switch_to_buffer(cb); touch_window(); } int No_Screen_Update; void fast_ins(char ch) { if (JWindow == JWindow->next) No_Screen_Update = 1; vins(ch); ins(ch); } void fast_del() { if (JWindow == JWindow->next) No_Screen_Update = 1; vdel(); del(); } void replace_char(unsigned char ch) { if (ch == '\n') return; if (*(CLine->jed-0.97.12/src/ins.h000064400000000000003000000015220603742312700140250ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ /* For undo, these flags assumed to be <= 0xFF */ #define CDELETE 0x1 #define CINSERT 0x2 #define LDELETE 0x4 #define NLINSERT 0x8 /* causes marks to be moved to next line */ #define NLDELETE 0x10 /* opposite of above */ extern void update_marks(int, int); extern int No_Screen_Update; extern int deln(int *); extern void generic_deln(int *); extern void del(void); extern void ins( char); extern void fast_del(void); extern void fast_ins(char); extern void insert_buffer(Buffer *); extern void quick_insert(register unsigned char *, int); extern void ins_chars(unsigned char *, int); extern void ins_char_n_times(char, int); extern void del_newline(void); extern void replace_char(unsigned char); extern int Suspend_Screen_Update; xtern void update_marks(int, int); extern int No_Screen_Update; extern int deln(int *); extern void generic_deln(int *); extern void del(void); extern void ins( char); extejed-0.97.12/src/intrin.c000064400000000000003000003715360603742313000145430ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include "config.h" #include "slang.h" #include "buffer.h" #include "keymap.h" #include "file.h" #include "ins.h" #include "ledit.h" #include "screen.h" #include "window.h" #include "display.h" #include "search.h" #include "misc.h" #include "replace.h" #include "paste.h" #include "sysdep.h" #include "cmds.h" #include "text.h" #include "abbrev.h" #ifdef HAS_SUBPROCESSES #include "jprocess.h" #endif #ifdef __DECC # include #endif #if defined(__GO32__) || defined(__WATCOMC__) #define LANG_INTERRUPT i386_check_kbd extern void i386_check_kbd (void); #endif #if defined(msdos) || defined(__os2__) #include #endif extern char Jed_Root_Dir[256]; static void do_buffer_keystring (char *s) { buffer_keystring (s, strlen(s)); } static void do_tt_write_string (char *s) { if (Batch) { fputs (s, stdout); } else tt_write_string (s); } #ifndef pc_system static void do_tt_set_term_vtxxx (int *i) { tt_set_term_vtxxx (i); } #endif static void autoload_n (void) { int n, free_file, free_fun; char *file, *fun; if (SLang_pop_integer (&n)) return; while (n > 0) { n--; if (SLang_pop_string (&file, &free_file)) return; if (SLang_pop_string (&fun, &free_fun)) { if (free_file) SLFREE (file); return; } SLang_autoload (fun, file); if (free_file) SLFREE (file); if (free_fun) SLFREE (fun); if (SLang_Error) break; } } static void add_to_completion_n (void) { int n, free_fun; char *fun; if (SLang_pop_integer (&n)) return; while (n > 0) { n--; if (SLang_pop_string (&fun, &free_fun)) return; add_to_completion (fun); if (free_fun) SLFREE (fun); if (SLang_Error) break; } } static unsigned char Translate_Region_Array[256]; static void translate_region (void) { Line *last; int last_pnt, len, one = 1; unsigned char ch, ch1; if (!check_region (&one)) return; Suspend_Screen_Update = 1; last = CLine; last_pnt = Point; pop_mark(&one); Translate_Region_Array ['\n'] = '\n'; while (CLine != last) { len = CLine->len; while (Point < len) { ch = *(CLine->data + Point); ch1 = Translate_Region_Array [ch]; if (ch == ch1) Point++; else { del (); ins ((char) ch1); } } CLine = CLine->next; LineNum++; Point = 0; } while (Point < last_pnt) { ch = *(CLine->data + Point); if (ch != '\n') { del (); ins ((char) Translate_Region_Array[ch]); } } pop_spot(); } static int jed_getpid (void) { return getpid (); } #ifdef COLOR_COLUMNS static void set_column_colors (int *color, int *c0p, int *c1p) { unsigned char *p, *pmax, ch; int c1 = *c1p, c0 = *c0p - 1; ch = (unsigned char) *color; if ((*color < 0) || (ch >= JMAX_COLORS)) return; if (NULL == (p = CBuf->column_colors)) { p = CBuf->column_colors = (unsigned char *) SLMALLOC (*tt_Screen_Cols); if (p == NULL) return; MEMSET ((char *) p, 0, *tt_Screen_Cols); CBuf->coloring_style = 1; } if (c1 > *tt_Screen_Cols) c1 = *tt_Screen_Cols; if (c0 < 0) c0 = 0; pmax = p + c1; p += c0; while (p < pmax) *p++ = ch; } static void set_color_object (int *i, char *fg, char *bg) { int obj = *i; if ((obj < 0) || (obj >= JMAX_COLORS)) return; tt_set_color (obj, NULL, fg, bg); } #endif static int map_color_object_to_number (char *what) { int i; if (!strcmp("normal", what)) i = JNORMAL_COLOR; else if (!strcmp("status", what)) i = JSTATUS_COLOR; else if (!strcmp("region", what)) i = JREGION_COLOR; else if (!strcmp("cursor", what)) i = JCURSOR_COLOR; else if (!strcmp("operator", what)) i = JOP_COLOR; else if (!strcmp("number", what)) i = JNUM_COLOR; else if (!strcmp("string", what)) i = JSTR_COLOR; else if (!strcmp("comment", what)) i = JCOM_COLOR; else if (!strncmp("delimiter", what, 5)) i = JDELIM_COLOR; /* Oops!-- earlier version had delimiter spelled delimeter. This is * for backward compatability. */ else if (!strcmp("preprocess", what)) i = JPREPROC_COLOR; else if (!strcmp("menu", what)) i = JMENU_COLOR; else if (!strcmp("message", what)) i = JMESSAGE_COLOR; else if (!strcmp("error", what)) i = JERROR_COLOR; else if (!strcmp("dollar", what)) i = JDOLLAR_COLOR; else if (!strncmp("keyword", what, 7)) { char ch = what[7]; if ((ch >= '0') && (ch <= '9')) i = JKEY_COLOR + (ch - '0'); else i = JKEY_COLOR; } else i = -1; return i; } static void enable_menu_bar (int *what) { Window_Type *w; /* find the top window */ w = JWindow; while (w->top != Top_Window_Row) w = w->next; if (*what) { if (Top_Window_Row != 1) return; if (w->rows < 3) { /* window is too small --- fix it. */ one_window (); w = JWindow; if (w->rows < 3) return; } w->top = Top_Window_Row = 2; w->rows -= 1; } else { if (Top_Window_Row == 1) return; w->top = Top_Window_Row = 1; w->rows += 1; } touch_screen (); } static int rename_file (char *f1, char *f2) { return rename (f1, f2); } static void set_term_colors(char *what, char *fg, char *bg) { int i; i = map_color_object_to_number (what); tt_set_color (i, what, fg, bg); } #ifndef pc_system static void set_term_color_esc (char *what, char *esc) { int i; if (tt_set_color_esc == NULL) return; i = map_color_object_to_number (what); tt_set_color_esc (i, esc); } #endif static void exit_error_cmd (char *msg, int *severity) { exit_error (msg, *severity); } static int do_prefix_argument(int *n) { int ret = *n; if (Repeat_Factor != NULL) { ret = *Repeat_Factor; Repeat_Factor = NULL; } return ret; } static void bury_buffer(char *name) { Buffer *b, *cp, *bp, *bn; if ((NULL == (b = find_buffer(name))) || (b == CBuf) || (CBuf == (bn = b->next))) return; cp = CBuf->prev; bp = b->prev; CBuf->prev = b; /* my definition of bury buffer */ b->next = CBuf; b->flags |= BURIED_BUFFER; bp->next = bn; bn->prev = bp; cp->next = b; b->prev = cp; } static void set_buffer_hook (char *s, char *h) { SLang_Name_Type *f; f = SLang_get_function (h); if (!strcmp("par_sep", s)) CBuf->par_sep = f; else if (!strcmp("indent_hook", s)) CBuf->indent_hook = f; else if (!strcmp("wrap_hook", s)) CBuf->wrap_hook = f; else if (!strcmp("newline_indent_hook", s)) CBuf->newline_indent_hook = f; } #ifdef unix #ifndef __GO32__ static char *get_termcap_string (char *cap) { char *s; if (Batch) s = NULL; else s = SLtt_tgetstr (cap); if (s == NULL) s = ""; return s; } #endif #endif static SLang_Name_Type jed_intrinsics[] = { MAKE_INTRINSIC(".setkey", set_key, VOID_TYPE, 2), /* Prototype: Void setkey(String fun, String key); * This function may be used to define a key sequence specified by the * string @key@ to the function @fun@. @key@ can contain the @^@ * character which denotes that the following character is to be * interpreted as a control character, e.g., * @ setkey("bob", "^Kt"); * sets the key sequence @Ctrl-K t@ to the function @bob@. * * The @fun@ argument is usually the name of an internal or a user * defined S-Lang function. However, if may also be a sequence of * functions or even another keysequence (a keyboard macro). For * example, * @ setkey ("bol;insert(string(whatline()))", "^Kw"); * assigns the key sequence @Ctrl-K w@ to move to the beginning of a line * and insert the current line number. For more information about this * important function, see the JED User Manual. * * Note that @setkey@ works on the "global" keymap. * Related Functions: @unsetkey@, @definekey@ */ MAKE_INTRINSIC("._autoload", autoload_n, VOID_TYPE, 0), /* Prototype Void _autoload (String fun, String fn, ..., Integer n); * The @_autoload@ function is like the @autoload@ function except that * it takes @n@ pairs of function name (@fun@) / filename (@fn@) pairs. * For example, * @ _autoload ("fun_a", "file_a", "fun_b", "file_b", 2); * is equivalent to * @ autoload ("fun_a", "file_a"); * @ autoload ("fun_b", "file_b"); * See also: @autoload@ */ MAKE_INTRINSIC(".push_mark", push_mark,VOID_TYPE, 0), /* Prototype: Void push_mark(); * This function marks the current position as the beginning of a region. * and pushes other marks onto a stack. A region is defined by this * mark and the editing point. The mark is removed from the stack only * when the function @pop_mark@ is called. * For example, * @ define mark_buffer () * @ { * @ bob (); * @ push_mark (); * @ eob (); * @ } * marks the entire buffer as a region. * * Related Functions: @pop_mark@, @push_spot@, @markp@, @dupmark@, @check_region@ */ MAKE_INTRINSIC(".bol", bol,VOID_TYPE, 0), /* Prototype: Void bol(); * This function moves the current editing point to the beginning of the * current line. The function @bolp@ may be used to see if one is already * at the beginning of a line. * * Related Functions: @eol@, @bob@, @eob@, @bolp@ */ MAKE_INTRINSIC(".insert", insert_string,VOID_TYPE, 1), /* Prototype: Void insert (String str); * Inserts string @str@ into buffer at the current position. The editing * point is moved to the end of the of the string that was inserted. * * Related Functions: @del@, @insert_file@, @insbuf@ */ MAKE_INTRINSIC(".eol", eol,VOID_TYPE, 0), /* Prototype: Void eol(); * Moves the current position to the end of the current line. The function * @eolp@ may be used to see if one is at the end of a line or not. * Related Functions: @eolp@, @bol@, @bob@, @eob@ */ MAKE_INTRINSIC(".setbuf", set_buffer, VOID_TYPE, 1), /* Prototype: Void setbuf(String buf); * Changes the default buffer to one named @buf@. If the buffer does not * exist, it will be created. * Note: This change only lasts until top * level of editor loop is reached at which point the the buffer * associated with current window will be made the default. That is this * change should only be considered as temporary. To make a long lasting * change, use the function @sw2buf@. * Related Functions: @sw2buf@, @pop2buf@, @whatbuf@, @pop2buf_whatbuf@ */ MAKE_INTRINSIC(".message", message, VOID_TYPE, 1), /* Prototype: Void message(String msg); * The @message@ function displays the string @msg@ at the bottom of the * display where the minibuffer is located. This in itself does not * immediately cause the message to be display. In fact, it may not even * be displayed at all. The message is only displayed when the editor * updates the screen. If the @message@ function is called again before * the screen update, the new message will be the one that will be * displayed when the screen is finally updated. For an immediate effect, * the function @flush@ should be used instead. * Related Functions: @flush@, @error@, @update@ */ MAKE_INTRINSIC("._add_completion", add_to_completion_n, VOID_TYPE, 0), /* Prototype Void _add_completion (String f1, String f2, ..., Integer n); * The @_add_completion@ function is like the @add_completion@ function * except that it takes @n@ names @f1@, ... @fn@. * For example, * @ _add_completion ("fun_a", "fun_b", 2); * is equivalent to * @ add_completion ("fun_a"); * @ add_completion ("fun_b"); * See also: @add_completion@ */ MAKE_INTRINSIC(".del_region", delete_region, VOID_TYPE, 0), /* Prototype: Void del_region (); * This function deletes the region defined by the mark and the current * editing point. For example, * @ define delete_this_line () * @ { * @ bol (); push_mark (); eol (); * @ del_region (); * @ } * defines a function that deletes all characters on the current line * from the beginning of the line until the end of the line. It does not * delete the line itself. * Related Functions: @push_mark@, @markp@, @check_region@ */ MAKE_INTRINSIC(".bufsubstr", buffer_substring, VOID_TYPE, 0), /* Prototype: String bufsubstr (); * This function returns a string that contains the characters in the * region specified by a mark and the current editing point. * If the region crosses lines, the string will contain newline * characters. * Related Functions: @insbuf@, @push_mark@ */ MAKE_INTRINSIC(".right", forwchars,INT_TYPE, 1), /* Prototype: Integer right(Integer n); * This function moves the editing position forward forward @n@ * characters. It returns the number of characters actually moved. The * number returned will be smaller than @n@ if the end of the buffer is * reached. * * Related Functions: @left@, @up@, @down@, @eol@, @eob@ */ MAKE_INTRINSIC(".definekey", set_key_in_keymap, VOID_TYPE, 3), /* Prototype: Void definekey(String f, String key, String kmap); * Unlike @setkey@ which operates on the global keymap, this function is * used for binding keys to functions in a specific keymap. Here @f@ is * the function to be bound, @key@ is a string of characters that make up * the key sequence and @kmap@ is the name of the keymap to be used. See * @setkey@ for more information about the arguments. * * Related Functions: @setkey@, @undefinekey@, @make_keymap@, @use_keymap@ */ #ifndef pc_system MAKE_VARIABLE(".USE_ANSI_COLORS", &tt_Use_Ansi_Colors, INTP_TYPE, 0), #endif MAKE_VARIABLE(".Status_Line_String", Default_Status_Line, STRING_TYPE, 1), /*A read-only String variable containing the format of the status line * applied to newly created buffers. Related Functions: set_status_line */ MAKE_VARIABLE(".MINIBUFFER_ACTIVE", &MiniBuffer_Active, INT_TYPE, 1), /*A read-only variable that is non-zero when the MiniBuffer is actively * being used. */ MAKE_INTRINSIC(".left", backwchars,INT_TYPE, 1), /* Prototype: Integer left(Integer n); * @left@ moves the editing point backward @n@ characters and returns the * number actually moved. The number returned will be less than @n@ only * if the top of the buffer is reached. * Related Functions: @right@, @up@, @down@, @bol@, @bob@ */ MAKE_INTRINSIC(".whatbuf", what_buffer, STRING_TYPE, 0), /* Prototype: String what_buffer(); * @whatbuf@ returns the name of the current buffer. It is usually used * in functions when one wants to work with more than one buffer. The * function @setbuf_info@ may be used to change the name of the buffer. * Related Functions: @getbuf_info@, @bufferp@ */ MAKE_INTRINSIC(".error", msg_error, VOID_TYPE, 1), /* Prototype: Void error(String msg); * This function signals an error condition and displays the string @msg@ * at the bottom of the display. The error can be caught by an * @ERROR_BLOCK@ and cleared with the S-Lang @_clear_error@ function. * Unless caught, the error will abort execution of S-Lang functions and * the S-Lang stack will unwind to the top level. For more information * about handling error conditions see the S-Lang User's Guide. * * Related Functions: @message@, @flush@ */ MAKE_INTRINSIC(".getbuf_info", get_buffer_info, VOID_TYPE, 0), /* Prototype: getbuf_info (); * This function returns values to the stack. The four values from the * top are: * @ Integer % buffer flags * @ String % name of buffer * @ String % directory associated with buffer * @ String % name of file associated with buffer (if any). * The integer that corresponds to the buffer flags are encoded as: * @ bit 0: buffer modified * @ bit 1: auto save mode * @ bit 2: file on disk modified * @ bit 3: read only bit * @ bit 4: overwrite mode * @ bit 5: undo enabled * @ bit 6: buffer buried * @ bit 7: Force save upon exit. * @ bit 8: Do not backup * @ bit 9: File associated with buffer is a binary file * @ bit 10: Add CR to end of lines when writing buffer to disk. * @ bit 11: Abbrev mode * For example, * @ (file,,,flags) = getbuf_info(); * returns the file and the flags associated with the current buffer. * Related Functions: @setbuf_info@, @whatbuf@ */ MAKE_INTRINSIC(".otherwindow", other_window, VOID_TYPE, 0), /* Prototype: Void otherwindow (); * This function will make the next window in the ring of windows as the * default window. For example, * @ define zoom_next_window () * @ { * @ otherwindow (); onewindow (); * @ } * defines a function that moves to the next window and then makes it the * only window on the screen. * Related Functions: @nwindows@, @onewindow@ * Related Variables: @MINIBUFFER_ACTIVE@ */ MAKE_INTRINSIC(".is_internal", is_internal, INT_TYPE, 1), /* Prototype: Integer is_internal(String f); * @is_internal@ returns non-zero is function @f@ is defined as an * internal function or returns zero if not. Internal functions not * immediately accessable from S-Lang; rather, they must be called using * the @call@ function. See also the related S-Lang function * @is_defined@ in the S-Lang Programmer's Reference. * Related Functions: @call@ */ MAKE_INTRINSIC(".setbuf_info", set_buffer_info, VOID_TYPE, 4), /* Prototype: Void setbuf_info(String file, String dir, String buf, Integer flags); * This function may be used to change attributes regarding the current * buffer. It performs the opposite function of the related function * @getbuf_info@. Here @file@ is the name of the file to be associated * with the buffer; @dir@ is the directory to be associated with the * buffer; @buf@ is the name to be assigned to the buffer, and @flags@ * describe the buffer attributes. See @getbuf_info@ for a discussion of * @flags@. Note that the actual file associated with the buffer is * located in directory @dir@ with the name @file@. * For example, the function * @ define set_overwrite_mode () * @ { * @ variable dir, file, flags, name; * @ (file, dir, name, flags) = getbuf_info (); * @ flags = flags | (1 shl 4); * @ setbuf_info (file, dir, name, flags); * @ } * may be used to turn on overwrite mode for the current buffer. Note * that it is better exploit the fact that S-Lang is a stack based language * and simply write the above function as: * @ define set_overwrite_mode () * @ { * @ setbuf_info (getbuf_info () | 0x10); * @ } * Here, @(1 shl 4)@ has been written as the hexidecimal number @0x10@. * Related Functions: @getbuf_info@, @setbuf@, @whatbuf@ */ MAKE_INTRINSIC(".up", prevline, INT_TYPE, 1), /* Prototype: Integer up(Integer n); * This function moves the current point up @n@ lines and returns the * number of lines actually moved. The number returned will be less than * @n@ only if the top of the buffer is reached. * Related Functions: @down@, @left@, @right@ */ MAKE_INTRINSIC(".down", nextline,INT_TYPE, 1), /* Prototype: Integer down(Integer n); * The @down@ function is used to move the editing point down a number of * lines specified by the integer @n@. It returns the number of lines * actually moved. The number returned will be less than @n@ only if the * last line of the buffer has been reached. The editing point will be * left at the beginning of the line if it succeeds in going down more * than one line. * Example: The function * @ define trim_buffer * @ { * @ bob (); * @ do * @ { * @ eol (); trim (); * @ } * @ while (down (1)); * @ } * removes excess whitespace from the end of every line in the buffer. * Related Functions: @down@, @left@, @right@, @goto_line@ */ MAKE_INTRINSIC(".call", call_cmd, VOID_TYPE, 1), /* Prototype: Void call(String f); * The @call@ function is used to execute an internal function which is * not directly accessable to the S-Lang interpreter. * Related Functions: @is_internal@ */ MAKE_INTRINSIC(".eob", eob,VOID_TYPE, 0), /* Prototype: Void eob(); * The @eob@ function is used to move the current point to the end of the * buffer. The function @eobp@ may be used to see if the current * position is at the end of the buffer. * * Related Functions: @eobp@, @bob@, @bol@, @eol@ */ MAKE_INTRINSIC(".unsetkey", unset_key, VOID_TYPE, 1), /* Prototype: Void unsetkey(String key); * This function is used to remove the definition of the key sequence * @key@ from the "global" keymap. This is sometimes necessary to bind * new key sequences which conflict with other ones. For example, the * "global" keymap binds the keys @"^[[A"@, @"^[[B"@, @"^[[C"@, and * @"^[[D"@ to the character movement functions. Using * @unsetkey("^[[A")@ will remove the binding of @"^[[A"@ from the global * keymap but the other three will remain. However, @unsetkey("^[[")@ * will remove the definition of all the above keys. This might be * necessary to bind, say, @"^[["@ to some function. * Related Functions: @setkey@, @undefinekey@ */ MAKE_INTRINSIC(".bob", bob,VOID_TYPE, 0), /* Prototype: Void bob (); * The function @bob@ is used to move the current editing point to the * beginning of the buffer. The function @bobp@ may be used to determine * if the editing point is at the beginning of the buffer or not. * Related Functions: @bobp@, @eob@, @bol@, @eol@ */ MAKE_INTRINSIC(".looking_at", looking_at, INT_TYPE, 1), /* Prototype: Integer looking_at (String s); * This function returns non-zero if the characters immediately following * the current editing point match the string specified by @s@. Whether * the match is case-sensitive or not depends upon the value of the * variable @CASE_SEARCH@. The function returns zero if there is no match. * Related Functions: @ffind@, @fsearch@, @re_fsearch@, @bfind@ */ MAKE_INTRINSIC(".del", del,VOID_TYPE, 0), /* Prototype: Void del (); * The @del@ function deletes the character at the current editing * position. If the position is at the end of the buffer, nothing happens. * If the deletion occurs at the end of a line, the next line will be joined * with the current one. * Related Functions: @eobp@, @erase_buffer@, @insert@ */ MAKE_INTRINSIC(".markp", markp, INT_TYPE, 0), /* Prototype: Void markp (); * This function returns a non-zero value if the mark is set; otherwise, it * returns zero. If a mark is set, a region is defined. * Related Functions: @push_mark@, @pop_mark@, @check_region@, @push_spot@ */ MAKE_INTRINSIC(".nwindows", num_windows,INT_TYPE, 0), /* Prototype: Integer nwindows (); * The @nwindows@ function returns the number of windows currently visible. * If the variable @MINIBUFFER_ACTIVE@ is non-zero, the minibuffer is busy and * contributes to the number of windows. * Related Functions: @splitwindow@, @onewindow@, @window_size@ * Related Variables: @MINIBUFFER_ACTIVE@ */ MAKE_INTRINSIC(".add_completion", add_to_completion, VOID_TYPE, 1), /* Prototype: Void add_completion(String f); * The @add_completion@ function adds the user defined S-Lang function * with name specified by the string @f@ to the list of functions that * are eligible for mini-buffer completion. The function specified by * @f@ must be already defined before this function is called. The * S-Lang function @is_defined@ may be used to test whether or not the * function is defined. * Related Functions: @read_with_completion@, @_add_completion@ */ MAKE_INTRINSIC(".what_column", calculate_column,INT_TYPE, 0), /* Prototype: Integer what_column (); * The @what_column@ function returns the current column number expanding * tabs, control characters, etc... The beginning of the line is at * column number one. * Related Functions: @whatline@, @whatpos@, @goto_column@, @bolp@, @eolp@ */ MAKE_INTRINSIC(".eobp", eobp,INT_TYPE, 0), /* Prototype: Integer eobp (); * The functio @eobp@ is used to determine if the current position is at * the end of the buffer or not. It returns a non-zero value if at the * end of the buffer or zero if not. * Related Functions: @eob@, @bolp@, @eolp@ */ MAKE_INTRINSIC(".setmode", set_mode_cmd, VOID_TYPE, 2), /* Prototype: Void setmode(String mode, Integer flags); * This function sets buffer mode flags and status line mode name. @mode@ * is a string which is displayed on the status line if the @%m@ status * line format specifier is used. The second argument, @flags@ is an * integer with the possible values: * @ 0 : no mode. Very generic * @ 1 : Wrap mode. Lines are automatically wrapped at wrap column. * @ 2 : C mode. * @ 4 : Language mode. Mode does not wrap but is useful for computer * @ languages. * @ 8 : S-Lang mode * @ 16: Fortran mode highlighting * @ 32: TeX mode highlighting * * Related Functions: @whatmode@, @getbuf_info@, @setbuf_info@. */ MAKE_INTRINSIC(".fsearch", search_forward, INT_TYPE, 1), /* Prototype: Integer fsearch (String str); * This function may be used to search forward in buffer looking for the * string @str@. If not found, this functions returns zero. However, if * found, it returns non-zero and moves the current point to the to the * start of the match. It respects the setting of the variable * @CASE_SEARCH@. If the string that one is searching for is known to be * at the beginning of a line, the function @bol_fsearch@ should be used * instead. * Note: This function cannot find a match that crosses lines. * Related Functions: @ffind@, @bsearch@, @bol_fsearch@, @re_fsearch@, @looking_at@ * Related Variables: @CASE_SEARCH@ */ MAKE_INTRINSIC(".buffer_visible", jed_buffer_visible, INT_TYPE, 1), /* Prototype: Integer buffer_visible (String buf); * This function is used to determine whether or not a buffer with name * specified by the string @buf@ is in a window or not. More explicitly, * it returns the number of windows containing @buf@. This means that if * @buf@ does not occupy a window, it returns zero. For Example, * @ define find_buffer_in_window (buf) * @ { * @ !if (buffer_visible (buf)) return 0; * @ pop2buf (buf); * @ return 1; * @ } * is a function that moves to the window containing @buf@ if @buf@ is in * a window. * Related Functions: @bufferp@, @nwindows@ */ MAKE_INTRINSIC(".exit_jed", exit_jed, VOID_TYPE, 0), /* Prototype: Void exit_jed (); * This function should be called to exit JED is a graceful and safe * manner. If any buffers have been modified but not saved, the user is * queried about whether or not to save each one first. @exit_jed@ calls * the S-Lang hook @exit_hook@ if it is defined. If @exit_hook@ is * defined, it must either call @quit_jed@ or @exit_jed@ to really exit * the editor. If @exit_jed@ is called from @exit_hook@, @exit_hook@ will * not be called again. For example: * @ define exit_hook () * @ { * @ flush ("Really Exit?"); * @ * @ forever * @ { * @ switch (getkey () & 0x20) % map to lowercase * @ { case 'y': exit_jed (); } * @ { case 'n': return; } * @ beep (); * @ } * @ } * may be used to prompt user for confirmation of exit. * Related Functions: @quit_jed@, @suspend@, @flush@, @getkey@ * Related Variables: @BATCH@ */ MAKE_INTRINSIC(".set_color", set_term_colors, VOID_TYPE, 3), /* Prototype: Void set_color(String obj, String fg, String bg); * This function sets the foreground and background colors of an object * specified by the string @obj@ to @fg@ and @bg@. The exact values of * the strings @fg@ and @bg@ are system dependent. For the X-Window * system, they can be any string that the server understands, e.g., * @"SteelBlue"@. For other systems, the color must be one of the * following: * @ "black" "gray" * @ "red" "brightred" * @ "green" "brightgreen" * @ "brown" "yellow" * @ "blue" "brightblue" * @ "magenta" "brightmagenta" * @ "cyan" "brightcyan" * @ "lightgray" "white" * One most terminals, the values in the second column have no affect * when used as the background color. * * The valid names for @obj@ are: * @ "normal" Default foreground/background * @ "status" The status window line * @ "region" Highlighted Regions * @ "cursor" Text Cursor (X-Windows) * @ "menu" The menu bar * @ "error" Error messages * @ "message" Other messages * @ "dollar" Color of the indicator that text extends beyond the * @ boundary of the window. * If color syntax highlighting is enabled, the following object names * are also meaningful: * @ "number" Numbers in C-mode and Equations in TeX-mode * @ "delimiter" Commas, semi-colons, etc... * @ "keyword" Language dependent * @ "string" Literal strings * @ "comment" Comments * @ "operator" Such as +, -, etc... * @ "preprocess" Preprocessor lines * See a discussion in the JED User Manual for more discussion. * Related Functions: @set_color_esc@, @set_column_colors@, @set_color_object@ * Related Variables: @WANT_SYNTAX_HIGHLIGHT@, @USE_ANSI_COLORS@ */ MAKE_INTRINSIC(".color_number", map_color_object_to_number, INT_TYPE, 1), /* Prototype: Integer color_number (String obj); * This function returns the object number associated with the * string @obj@. Valid names for @obj@ are as per @set_color@. * * Related Functions: @set_color@, @set_column_colors@ * Related Variables: @WANT_SYNTAX_HIGHLIGHT@, @USE_ANSI_COLORS@ */ #ifndef pc_system MAKE_INTRINSIC(".set_color_esc", set_term_color_esc, VOID_TYPE, 2), /* Prototype: Void set_color_esc (String object, String esc_seq); * This function may be used to associate an escape sequence with an * object. The escape sequence will be sent to the terminal prior to * sending updating the object. It may be used on mono terminals to * underline objects, etc... The object names are the same names used by * the @set_color@ function. * Note: Care should be exercised when using * this function. Also, one may need to experiment around a little to * get escape sequences that work together. * Related Functions: @set_color@ */ #endif MAKE_INTRINSIC(".extract_filename", extract_file, STRING_TYPE, 1), /* Prototype: String extract_filename (String filespec); * This function may be used to separate the file name from the path of * of a file specified by @filespec@. For example, under Unix, the * expression * @ extract_filename ("/tmp/name"); * returns the string @"name"@. * Related Functions: @expand_filename@ */ MAKE_INTRINSIC(".trim", trim_whitespace,VOID_TYPE, 0), /* Prototype: Void trim (); * The @trim@ function removes all whitespace around the current editing * point. In this context, whitespace is considered to be any * combination of tab and space characters. In particular, it does not * include the newline character. This means that the @trim@ function * will not delete across lines. * Related Functions: @skip_chars@, @skip_white@, @del@, @del_region@ */ MAKE_INTRINSIC(".pop2buf", pop_to_buffer, VOID_TYPE, 1), /* Prototype: Void pop2buf (String buf); * The @pop2buf@ function will switch to another window and display the * buffer specified by @buf@ in it. If @buf@ does not exist, it will be * created. If @buf@ already exists in a window, the window containing * @buf@ will become the active one. This function will create a new * window if necessary. All that is guaranteed is that the current * window will continue to display the same buffer before and after the * call to @pop2buf@. * * Related Functions: @whatbuf@, @pop2buf_whatbuf@, @setbuf@, @sw2buf@, @nwindows@ */ MAKE_INTRINSIC(".pop2buf_whatbuf", pop_to_buffer, STRING_TYPE, 1), /* Prototype: String pop2buf_whatbuf (String buf); * This function performs the same function as @pop2buf@ except that the * name of the buffer that @buf@ replaced in the window is returned. * This allows one to restore the buffer in window to what it was before * the call to @pop2buf_whatbuf@. * Related Functions: @pop2buf@, @whatbuf@ */ MAKE_VARIABLE(".DISPLAY_EIGHT_BIT", &Display_Eight_Bit, INT_TYPE, 0), /* Prototype: Integer DISPLAY_EIGHT_BIT; * This variable determines how characters with the high bit set are to * be displayed. Specifically, any character whose value is greater than * or equal to the value of @DISPLAY_EIGHT_BIT@ is output to the terminal * as is. Characters with the high bit set but less than this value are * sent to the terminal in a multiple character representation. For Unix * and VMS systems the value should be set to 160. This is because many * terminals use the characters with values between 128 and 160 as eight * bit control characters. For other systems, it can be set to zero. * Related Variables: @META_CHAR@ */ MAKE_VARIABLE(".JED_CSI", &JED_CSI, INT_TYPE, 0), /* Control Sequence Introducer. --- reserved for future use */ MAKE_INTRINSIC(".copy_region", copy_region_cmd, VOID_TYPE, 1), /* Prototype: Void copy_region (String buf); * This function may be used to copy a region defined by a mark and the * current position to the buffered specified by the name @buf@. It does * not delete the characters in region but it does pop the mark that * determines the region. * Related Functions: @insbuf@, @bufsubstr@, @push_mark@, @pop_mark@, @bufferp@ */ MAKE_INTRINSIC(".insbuf", insert_buffer_name, VOID_TYPE, 1), /* Prototype: Void insbuf (String buf); * This function may be used to insert the contents of a buffer specified * by the name @buf@ into the current buffer. The editing position is * advanced to the end of the insertion. * Related Functions: @copy_region@, @narrow@ */ MAKE_INTRINSIC(".bolp", bolp,INT_TYPE, 0), /* Prototype: Integer bolp (); * @bolp@ is used to test if the current position is at the beginning of * a line or not. It returns non-zero if the position is at the * beginning of a line or zero if not. * Related Functions: @bol@, @eolp@, @bobp@, @eobp@ */ MAKE_INTRINSIC(".beep", beep, VOID_TYPE, 0), /* Prototype: Void beep (); * The @beep@ function causes the terminal to beep according to the value * of the variable @IGNORE_BEEP@. * Related Functions: @tt_send@ * Related Variables: @IGNORE_BEEP@ */ MAKE_INTRINSIC(".onewindow", one_window,VOID_TYPE, 0), /* Prototype: Void onewindow (); * This function deletes all other windows except the current window and * the mini-buffer window. * Related Functions: @nwindows@, @splitwindow@, @enlargewin@ * Related Variables: @MINIBUFFER_ACTIVE@ */ MAKE_INTRINSIC(".pop_spot", pop_spot,VOID_TYPE, 0), /* Prototype: Void pop_spot (); * This function is used after a call to @push_spot@ to return to the * editing position at the last call to @push_spot@ in the current buffer. * Related Functions: @push_spot@, @pop_mark@ */ MAKE_INTRINSIC(".push_spot", push_spot,VOID_TYPE, 0), /* Prototype: Void push_spot (); * @push_spot@ pushes the location of the current buffer location onto a * stack. This function does not set the mark. The function @push_mark@ * should be used for that purpose. The spot can be returned to using the * function @pop_spot@. * Note: Spots are local to each buffer. It is not * possible to call @push_spot@ from one buffer and then subsequently * call @pop_spot@ from another buffer to return to the position in the * first buffer. For this purpose, one must use user marks instead. * Related Functions: @pop_spot@, @push_mark@, @create_user_mark@ */ MAKE_INTRINSIC(".bsearch", search_backward, INT_TYPE, 1), /* Prototype: Integer bsearch (String str); * The @bsearch@ function searches backward from the current position for * the string @str@. If @str@ is found, this function will return * non-zero and move the current position to the beginning of the matched * text. If a match is not found, zero will be returned and the position * will not change. It respects the value of the variable @CASE_SEARCH@. * Related Functions: @fsearch@, @bol_bsearch@, @re_bsearch@ */ MAKE_INTRINSIC(".sw2buf", switch_to_buffer_cmd, VOID_TYPE, 1), /* Prototype: Void sw2buf (String buf); * This function is used to switch to another buffer whose name is * specified by the parameter @buf@. If the buffer specified by @buf@ * does not exist, one will be created. * Note: Unlike @setbuf@, the change * to the new buffer is more permanent in the sense that when control * passed back out of S-Lang to the main editor loop, if the current * buffer at that time is the buffer specified here, this buffer will be * attached to the window. * See also: @setbuf@, @pop2buf@, @bufferp@ */ MAKE_INTRINSIC(".tt_send", do_tt_write_string, VOID_TYPE, 1), /* Prototype: Void tt_send (String s); * This function may be used to send a string specified by @s@ directly * to the terminal with no interference by the editor. One should * exercise caution when using this routine since it may interfere with * JED's screen management routines forcing one to redraw the screen. * Nevertheless, it can serve a useful purpose. For example, when run in * an XTerm window, using * @ tt_send ("\e[?9h"); * will enable sending mouse click information to JED encoded as * keypresses. * See also: @beep@ */ MAKE_INTRINSIC(".eolp", eolp,INT_TYPE, 0), /* Prototype: Integer eolp (); * This function may be used to determine whether or not the current * position is at the end of a line ot not. If it is, the routine * returns a non-zero value; otherwise it returns zero. * See also: @eol@, @bolp@, @eobp@, @bobp@ */ MAKE_INTRINSIC(".what_keymap", what_keymap, STRING_TYPE, 0), /* Prototype: String what_keymap (); * This function returns the name of the keymap associated with the * current buffer. * See also: @create_keymap@, @keymap_p@ */ MAKE_INTRINSIC(".find_file", find_file_in_window, INT_TYPE, 1), /* Prototype: Integer find_file (String name); * The @find_file@ function switches to the buffer associated with the * file specified by @name@. If no such buffer exists, one is created * and the file specified by @name@ is read from the disk and associated * with the new buffer. The buffer will also become attached to the * current window. Use the @read_file@ function to find a file but not * associate it with the current window. * Related Functions: @read_file@ */ MAKE_INTRINSIC(".set_status_line", set_status_format, VOID_TYPE, 2), /* Prototype: set_status_line (String format, Integer flag); * This function may be used to customize the status line of the current * window according to the string @format@. If the second parameter * @flag@ is non-zero, @format@ will apply to the global format string; * otherwise it applies to current buffer only. Newly created buffer * inherit the global format string when they appear in a window. * The format string may contain the following format specifiers: * @ %b buffer name * @ %f file name * @ %v JED version * @ %t current time --- only used if variable DISPLAY_TIME is non-zero * @ %p line number or percent string * @ %% literal '%' character * @ %m mode string * @ %a If abbrev mode, expands to "abbrev" * @ %n If buffer is narrowed, expands to "Narrow" * @ %o If overwrite mode, expands to "Ovwrt" * @ %c If the variable LINENUMBERS is 2, this expands to the current * @ column number. * For example, the default status line used by JED's EDT emulation uses * the format string: * @ "(Jed %v) EDT: %b (%m%a%n%o) %p,%c Advance %t" * See also: @set_mode@, @narrow@, @whatbuf@, @getbuf_info@ * Related Variables: @DISPLAY_TIME@, @LINENUMBERS@ */ MAKE_INTRINSIC(".bury_buffer", bury_buffer, VOID_TYPE, 1), /* Prototype: Void bury_buffer (String name); * The @bury_buffer@ function may be used to make it unlikely for the * buffer specified by the paramter @name@ to appear in a window. * See also: @sw2buf@, @getbuf_info@ */ MAKE_INTRINSIC(".dupmark", dup_mark, INT_TYPE, 0), /* Prototype: Integer dupmark (); * This function returns zero if the mark is not set or, if the mark is * set, a duplicate of it is pushed onto the mark stack and a non-zero * value is returned. * See also: @push_mark@, @markp@, @pop_mark@ */ MAKE_INTRINSIC(".erase_buffer", erase_buffer, VOID_TYPE, 0), /* Prototype: erase_buffer (); * The @erase_buffer@ function erases all text from the current buffer. * However, it does not delete the buffer itself. * * Note: This function destroys all undo information associated with the * buffer making it impossible to undo the result of this function. * See also: @delbuf@, @del@ */ MAKE_INTRINSIC(".window_info", window_size_intrinsic, INT_TYPE, 1), /* Prototype: Integer window_info(Integer item); * The @window_info@ function returns information concerning the current * window. The actual information that is returned depends on the @item@ * parameter. Acceptable values of @item@ and the description of the * information returned is given in the following table: * @ 'r' : Number of rows * @ 'w' : Width of window * @ 'c' : Starting column (from 1) * @ 't' : Screen line of top line of window (from 1) * See also: @otherwindow@, @nwindows@ * Related Variables: @SCREEN_HEIGHT@, @SCREEN_WIDTH@ */ #ifndef Sixteen_Bit_System MAKE_INTRINSIC(".copy_region_to_kill_array", copy_region_to_kill_array, VOID_TYPE, 1), /* Prototype: Void copy_region_to_kill_array (Integer n); * This function copies the currently defined region to the nth element, * specified by @n@, of an internal array of character strings replacing * what is currently there. * * Note: This function is not available on 16 bit systems. * * See also: @insert_from_kill_array@, @append_region_kill_array@ * Related Variables: @KILL_ARRAY_SIZE@ */ MAKE_INTRINSIC(".append_region_to_kill_array", append_region_to_kill_array, VOID_TYPE, 1), /* Prototype: Void append_region_to_kill_array (Integer n); * This function appends the currently defined region to the contents of * nth element, specified by @n@, of an internal array of character strings. * * Note: This function is not available on 16 bit systems. * * See also: @insert_from_kill_array@, @copy_region_to_kill_array@ * Related Variables: @KILL_ARRAY_SIZE@ */ MAKE_INTRINSIC(".insert_from_kill_array", insert_from_kill_array, VOID_TYPE, 1), /* Prototype: Void insert_from_kill_array (Integer n); * This function inserts the contents of the nth element, specified by * @n@, of an internal array of character strings. * * Note: This function is not available on 16 bit systems. * * See also: @insert_from_kill_array@, @copy_region_to_kill_array@ * Related Variables: @KILL_ARRAY_SIZE@ */ MAKE_VARIABLE(".KILL_ARRAY_SIZE", &Kill_Array_Size, INT_TYPE, 1), /* Prototype: Integer KILL_ARRAY_SIZE; * This variable contains the value of the size of of the internal kill * array of character strings. Any number from zero upto but not * including the value of @KILL_ARRAY_SIZE may be used as an argument in * the functions that manipulate this array. * * Note: This variable is a read-only varaible and it is not available on * 16 bit systems. * * See also: @insert_from_kill_array@, @copy_region_to_kill_array@, @append_region_to_kill_array@ */ #endif MAKE_VARIABLE(".what_line", &LineNum,INT_TYPE, 1), /* Prototype: Integer what_line (); * This function returns the value of the current line number. Lines are * numbered from one. Note: The actual number is measured from the top of * the buffer which is itself is affected by whether the buffer is * narrowed or not. For example, * @ define one () * @ { * @ push_mark (); narrow * @ push_mark (); narrow (); * @ return what_line (); * @ } * always returns 1. * See also: @goto_line@, @what_column@, @whatbuf@ */ MAKE_VARIABLE(".BLINK", &Blink_Flag, INT_TYPE, 0), /* Prototype: Integer BLINK = 1; * The @BLINK@ variable determines whether or not matching parenthesis * are blinked. If its value is one, they are blinked; otherwise, they * are not. * Related Variable: @C_INDENT@, @C_BRA_NEWLINE@ */ MAKE_VARIABLE(".WRAP_INDENTS", &Indented_Text_Mode, INT_TYPE, 0), /* Prototype: Integer WRAP_INDENTS = 1; * If this variable is non-zero, after a line is wrapped, the new line * will start at the same indentation as the current one. On the other * hand, if the value of @WRAP_INDENTS@ is zero, the new line will begin * in the first column. * Related Variables: */ MAKE_INTRINSIC(".goto_column", goto_column, VOID_TYPE, 1), /* Prototype: Void goto_column (Integer n); * This function moves the current editing point to the column specified * by the parameter @n@. It will insert a combination of spaces and tabs * if necessary to achieve the goal. * Note: The actual character number offset from the beginning of the * line depends upon tab settings and the visual expansion of other * control characters. * See also: @goto_column_best_try@, @what_column@, @left@, @right@, @goto_line@ * Related Variables: @TAB@, @TAB_DEFAULT@, @DISPLAY_EIGHT_BIT@ */ MAKE_INTRINSIC(".goto_column_best_try", goto_column1, INT_TYPE, 1), /* Prototype: Integer goto_column_best_try (Integer c); * This function is like @goto_column@ except that it will not insert * whitespace. This means that it may fail to achieve the column number * specified by the argument @c@. It returns the current column number. * See also: @goto_column@, @what_column@ */ MAKE_VARIABLE(".TAB_DEFAULT", &User_Vars.tab, INT_TYPE, 0), /* Prototype: Integer TAB_DEFAULT = 8; * @TAB_DEFAULT@ is the default tab setting given to all newly created * buffers. The variable @TAB@ may be used to change the current * buffer's tab setting. A value of zero means that tab characters are * not expanded and that tabs are never used to produce whitespace. * Related Variables: @TAB@, @DISPLAY_EIGHT_BIT@ */ MAKE_INTRINSIC(".goto_line", goto_line,VOID_TYPE, 1), /* Prototype: Void goto_line (Integer n); * The @goto_line@ function may be used to move to a specific line number * specified by the parameter @n@. * Note: The actual column that the editing point will be left in is * indeterminate. * See also: @what_line@, @goto_column@, @down@, @up@. */ MAKE_INTRINSIC(".bfind", backward_search_line, INT_TYPE, 1), /* Prototype: Integer bfind (String str); * The @bfind@ funtion searches backward on the current looking for * @str@. Unlike the function @bsearch@, this function will not search * for @str@ beyond the current line. If @str@ is not found, @bfind@ * returns zero and the editing point is unchanged. However, if @str@ is * found on the current line, the function returns non-zero and the * editing point will be left at the beginning of the match. * Note: This function respects the setting of the @CASE_SEARCH@ variable. * See also: @bsearch@, @ffind@, @bol_bsearch@, @re_bsearch@ * Related Variables: @CASE_SEARCH@ */ MAKE_INTRINSIC(".pop_mark", pop_mark, VOID_TYPE, 1), /* Prototype: pop_mark (Integer g); * @pop_mark@ pops the most recent mark pushed onto the mark stack. If * the argument @g@ is non-zero, the editing position will be moved to * the location of the mark. However, if @g@ is zero, the editing * position will be unchanged. * See also: @push_mark@, @pop_spot@, @markp@, @check_region@, @goto_user_mark@ */ MAKE_INTRINSIC(".read_mini", mini_read, VOID_TYPE, 3), /* Prototype: String read_mini (String prompt, String dflt, String init); * The @read_mini@ function reads a line of input from the user in the * mini-buffer. The first parameter, @prompt@, is used to prompt the * user. The second parameter, @dflt@, is what is returned as a default * value if the user simply presses the return key. The final parameter, * @init@, is stuffed into the mini-buffer for editing by the user. * For example, * @ define search_whole_buffer () * @ { * @ variable str; * @ str = read_mini ("Search for:", "", ""); * @ !if (strlen (str)) return; * @ !if (fsearch (str)) * @ { * @ push_mark (); bob (); * @ if (fsearch (str)) pop_mark (0); * @ else pop_mark (1); * @ { * @ pop_mark (1); * @ error ("Not found"); * @ } * @ } * @ } * reads a string from the user and then searches forward for it and if * not found, it resumes the search from the beginning of the buffer. * Note: If the user aborts the function @mini_read@ by pressing the * keyboard quit character (e.g., Ctrl-G), an error is signaled. This * error can be caught by an @ERROR_BLOCK@ and the appropriate action * taken. Also if the mini-buffer is already in use, this function should * not be called. The variable @MINIBUFFER_ACTIVE@ may be checked to * determine if this is the case or not. * See also: @read_with_completion@, @getkey@, @input_pending@ * Related Variables: @MINIBUFFER_ACTIVE@ */ MAKE_INTRINSIC(".file_status", file_status, INT_TYPE, 1), /* Prototype: Integer file_status (String filename); * The @file_status@ function returns information about a file specified * by the name @filename@. It returns an integer describing the file * type: * 2 file is a directory * 1 file exists and is not a directory * 0 file does not exist. * -1 no access. * -2 path invalid * -3 unknown error */ MAKE_INTRINSIC(".skip_white", skip_whitespace, VOID_TYPE, 0), /* Prototype: Void skip_white (); * The @skip_white@ function moves the current point forward until it * reaches a non-whitespace character or the end of the current line, * whichever happens first. In this context, whitespace is considered to * be any combination of space and tab characters. To skip newline * characters as well, the function @skip_chars@ may be used. * See also: @bskip_chars@, @what_char@, @trim@, @right@ */ MAKE_INTRINSIC(".bobp", bobp,INT_TYPE, 0), /* Prototype: Integer bobp (); * The @bolp@ function is used to determine if the current position is at * the beginning of the buffer or not. If so, it returns a non-zero * value. However, if it is not, it returns zero. This simple example, * @ define is_buffer_empty () * @ { * @ return bobp () and eobp (); * @ } * returns non-zero if the buffer is empty; otherwise, it returns zero. * See also: @bob@, @eobp@, @bolp@, @eolp@ */ MAKE_INTRINSIC(".ffind", forward_search_line, INT_TYPE, 1), /* Prototype: Integer ffind (String s); * This function searches forward from the current position to the end of * the current line for the string specified by @s@. If it does not find * it on the current line, it returns zero. However, if a match is found * on the current line, it returns non-zero and moves the current point * to the start of the match. * Note: This function respects the setting of the @CASE_SEARCH@ variable. * To perform a search that includes multiple lines, use the @fsearch@ * function. * See also: @fsearch@, @bfind@, @re_fsearch@, @bol_fsearch@ */ MAKE_INTRINSIC(".bol_fsearch", bol_fsearch, INT_TYPE, 1), /* Prototype: Integer bol_fsearch (str); * This function may be used to search forward from the current point * until the end of the buffer for the occurance of the string @str@ at * the beginning of a line. It will not consider occurances in the * middle of the line. If it does not find a match at the beginning of a * line, it returns zero. Otherwise, it returns a non-zero result and * moves the current point to the start of the match. * Note: One might be tempted to use something like @re_fsearch@ to * perform a search that matches the beginning of a line. However, the * @bol_fsearch@ function is much faster and should be used instead. * See also: @bol_bsearch@, @fsearch@, @looking_at@, @ffind@, @re_fsearch@ */ MAKE_INTRINSIC(".bol_bsearch", bol_bsearch, INT_TYPE, 1), /* Prototype: Integer bol_bsearch (str); * This function may be used to search backward from the current point * until the end of the buffer for the occurance of the string @str@ at * the beginning of a line. It will not consider occurances in the * middle of the line. If it does not find a match at the beginning of a * line, it returns zero. Otherwise, it returns a non-zero result and * moves the current point to the start of the match. * Note: One might be tempted to use something like @re_bsearch@ to * perform a search that matches the beginning of a line. However, the * @bol_bsearch@ function is much faster and should be used instead. * See also: @bol_fsearch@, @bsearch@, @bfind@, @re_bsearch@ */ MAKE_INTRINSIC(".flush", flush_message, VOID_TYPE, 1), /* Prototype: Void flush (String msg); * The @flush@ function behaves like @message@ except that it immediately * displays its argument @msg@ as a message in the mini-buffer. That is, * it is not necessary to call @update@ to see the message appear. * See also: @message@, @error@ */ MAKE_INTRINSIC(".input_pending", input_pending, INT_TYPE, 1), /* Prototype: Integer input_pending (Integer tsecs); * This function is used to see if keyboard input is available to be read * or not. The paramter @tsecs@ is the amount of time to wait for input * before returning if input is not available. The time unit for @tsecs@ * is one-tenth of a second. That is, to wait up to one second, pass a * value of ten to this routine. It returns zero if no input is * available, otherwise it returns non-zero. As an example, * @ define peek_key () * @ { * @ variable ch; * @ !if (input_pending (0)) return -1; * @ ch = getkey (); * @ ungetkey (ch); * @ return ch; * @ } * returns the value of the next character to be read if one is * available; otherwise, it returns -1. * See also: @getkey@, @ungetkey@ */ MAKE_VARIABLE(".C_INDENT", &User_Vars.c_indent, INT_TYPE, 0), /* Prototype: Integer C_INDENT = 3; * This value determines the number of columns the current line is indented * past the previous line containing an opening @'{'@ character. * Related Variables: @C_BRACE@, @C_BRA_NEWLINE@. */ MAKE_VARIABLE(".IGNORE_BEEP", &tt_Ignore_Beep, INTP_TYPE, 0), /* Prototype: Integer IGNORE_BEEP = 3; * This variable determines how the terminal is to be ``beeped''. It may * be any one of the following values: * @ 0 Do not beep the terminal in any way. * @ 1 Produce an audible beep only. * @ 2 Produce an visible beep only by flashing the display. * @ 3 Produce both audible and visible bells. * Note: Not all terminals support visible bells. */ MAKE_VARIABLE(".ADD_NEWLINE", &Require_Final_Newline, INT_TYPE, 0), /* Prototype: Integer ADD_NEWLINE = 1; * If this variable is non-zero, a newline character will be silently * added to the end of a buffer when the buffer is written out to a file * if the buffer does not end with a newline character. If it is zero, * one will not be added. */ MAKE_VARIABLE(".LASTKEY", Jed_Key_Buffer, STRING_TYPE, 1), /* Prototype: String LASTKEY; * The LASTKEY variable contains the most recently entered keyboard * sequence. * Note: Key sequences using the null character will not be recorded * accurately. * Related Variable: @LAST_CHAR@ */ MAKE_VARIABLE(".C_BRA_NEWLINE", &C_Bra_Newline, INT_TYPE, 0), /* Prototype: Integer C_BRA_NEWLINE = 1; * This variable is used by the indentation routines for the C langauge. * If it is non-zero, the @'{'@ character will be placed on a line by * itself when one presses the @'{'@ character. For K&R indentation style, * set this variable to zero. * Related Variables: @C_INDENT@, @C_BRA_NEWLINE@ */ MAKE_VARIABLE(".DISPLAY_TIME", &Display_Time, INT_TYPE, 0), /* Prototype: Integer DISPLAY_TIME = 1; * If this variable is non-zero, the current time will be displayed on the * status line if the format for the status line permits it. If it is zero, * the time will not be displayed even if the @%t@ format string is part * of the status line format. * See also: @set_status_line@ */ MAKE_VARIABLE(".WANT_EOB", &Want_Eob, INT_TYPE, 0), /* Prototype: Integer WANT_EOB = 0; * If this variable is non-zero, an ``end of buffer'' indicator @"[EOB]"@ * will be displayed at the end of the buffer. Such an indicator is used * for various editor emulations such as the VAX/VMS EDT editor. */ MAKE_INTRINSIC(".insert_file", insert_file, INT_TYPE, 1), /* Prototype: Integer insert_file (String f); * This function may be used to inset the contents of a file named @f@ * into the buffer at the current position. The current editing point * will be placed at the end of the inserted text. The function returns * @-1@ if the file was unable to be opened; otherwise it returns the * number of lines inserted. This number can be zero if the file is empty. * See also: @read_file@, @find_file@, @insert@ */ MAKE_INTRINSIC(".keymap_p", keymap_p, INT_TYPE, 1), /* Prototype: Integer keymap_p (String kmap); * The @keymap_p@ function may be used to determine whether or not a * keymap with name @kmap@ exists. If the keymap specified by @kmap@ * exists, the function returns non-zero. It returns zero if the keymap * does not exist. * See also: @make_keymap@, @definekey@ */ MAKE_VARIABLE(".WRAP", &User_Vars.wrap_column, INT_TYPE, 0), /* Prototype: Integer WRAP = 78; * The @WRAP@ variable determines the column number where text is * wrapped at. When entering text, if the current point goes beyond * this column, the text will automatically wrap to the next line. * This will only happen for those buffers for which the wrap flag is set. * See also: @getbuf_info@, @setbuf_info@, @setmode@ * Related Variables: @WRAP_INDENTS@ */ MAKE_INTRINSIC(".what_char", what_char, INT_TYPE, 0), /* Prototype: Integer what_char (); * The @what_char@ function returns the value of the character at the * current position as an integer in the range 0 to 256. This simple * example, * @ while (not (eolp ())) * @ { * @ if (what_char () == '_') * @ { * @ del (); insert ("\\_"); * @ } * @ } * has the effect of replacing all underscore characters on the current * line with a backslash-underscore combination. * See also: @looking_at@ */ MAKE_INTRINSIC(".recenter", recenter, VOID_TYPE, 1), /* Prototype: Void recenter (Integer nth); * This function may be used to scroll the window such that the @nth@ line * of the window contains the current line. If @nth@ is zero, the current * line will be placed at the center of the window and the screen will be * completely redrawn. * See also: @nwindows@, @window_info@ */ MAKE_INTRINSIC(".bufferp", bufferp, INT_TYPE, 1), /* Prototype: Integer bufferp (String buf); * This function is used to see if a buffer exists or not. If a buffer with * name @buf@ exists, it returns a non-zero value. If it does not exist, * it returns zero. * See also: @setbuf@, @getbuf_info@ */ MAKE_INTRINSIC(".get_key_function", get_key_function, VOID_TYPE, 0), /* Prototype: String get_key_function (); * @get_key_function@ waits for a key to be pressed and returns a string * that represents the binding of the key. If the key has no binding * the empty string is returned. Otherwise, it also returns an integer * that describes whether or not the function is an internal one. If * the function is internal, @1@ will be returned; otherwise zero will * be returned to indicate that the binding is either to an S-Lang * function or a macro. If it is a macro, the first character of the * of returned string will be the `@@' character. * See also: @getkey@, @input_pending@ */ MAKE_INTRINSIC(".dump_bindings", dump_bindings, VOID_TYPE, 1), /* Prototype: Void dump_bindings(String map); * This functions inserts a formatted list of keybindings for the keymap * specified by @map@ into the buffer at the current point. * See also: @get_key_function@ */ MAKE_VARIABLE(".META_CHAR", &Meta_Char, INT_TYPE, 0), /* Prototype: Integer META_CHAR; * This variable determines how input characters with the high bit set * are to be treated. If @META_CHAR@ is less than zero, the character * is passed through un-processed. However, if @META_CHAR@ is greater * than or equal to zero, an input character with the high bit set is * mapped to a two character sequence. The first character of the * sequence is the character whose ascii value is @META_CHAR@ and the * second character is the input with its high bit stripped off. */ MAKE_VARIABLE(".DEC_8BIT_HACK", &DEC_8Bit_Hack, INT_TYPE, 0), /* Prototype: Integer DEC_8BIT_HACK = 1; * If set to a non-zero value, a input character between 128 and 160 * will be converted into a two character sequence: @ESC@ and the * character itself stripped of the high bit + 64. The motivation * behind this variable is to enable the editor to work with VTxxx * terminals that are in eight bit mode. * Related Variables: @META_CHAR@ */ MAKE_INTRINSIC(".undefinekey", unset_key_in_keymap, VOID_TYPE, 2), /* Prototype: Void undefinekey (String key, String kmap); * This function may be used to remove a keybinding from a specified * keymap. The key sequence is given by the parameter @key@ and the * keymap is specified by the second parameter @kmap@. * See also: @unsetkey@, @definekey@, @what_keymap@ */ MAKE_INTRINSIC(".getpid", jed_getpid, INT_TYPE, 0), /* Prototype: Integer getpid (); * This function returns the process identification number for the current * editor process. */ MAKE_INTRINSIC(".update", update_cmd, VOID_TYPE, 1), /* Prototype: Void update (Integer f); * This function may be called to update the display. If the parameter * @f@ is non-zero, the display will be updated even if there is input * pending. If @f@ is zero, the display may only be partially updated if * input is pending. * See also: @input_pending@, @flush@ */ MAKE_INTRINSIC(".skip_word_chars", skip_word_chars, VOID_TYPE, 0), /* Prototype: Void skip_word_chars (); * This function moves the current editing point forward across all * characters that constitute a word until a non-word character is * encountered. Characters that make up a word are set by the * @define_word@ function. * See also: @define_word@, @skip_non_word_chars@, @skip_chars@, @bskip_word_chars@ */ MAKE_INTRINSIC(".skip_non_word_chars", skip_non_word_chars, VOID_TYPE, 0), /* Prototype: Void skip_non_word_chars (); * This function moves the current editing point forward past all * non-word characters until a word character is encountered. * Characters that make up a word are set by the @define_word@ function. * See also: @define_word@, @skip_word_chars@, @skip_chars@, @bskip_non_word_chars@ */ MAKE_INTRINSIC(".bskip_word_chars", bskip_word_chars, VOID_TYPE, 0), /* Prototype: Void bskip_word_chars (); * This function moves the current editing point backward past all * word characters until a non-word character is encountered. * Characters that make up a word are set by the @define_word@ function. * See also: @define_word@, @skip_word_chars@, @bskip_chars@, @bskip_non_word_chars@ */ MAKE_INTRINSIC(".bskip_non_word_chars", bskip_non_word_chars, VOID_TYPE, 0), /* Prototype: Void bskip_word_chars (); * This function moves the current editing point backward past all * non-word characters until a word character is encountered. * Characters that make up a word are set by the @define_word@ function. * See also: @define_word@, @skip_non_word_chars@, @bskip_chars@, @bskip_word_chars@ */ MAKE_INTRINSIC(".which_key", which_key, INT_TYPE, 1), /* Prototype: Integer which_key (String f); * The @which_key@ function returns the the number of keys that are * bound to the function @f@ in the current keymap. It also returns * that number of key sequences with control characters expanded as the * two character sequence @^@ and the the whose ascii value is the * control character + 64. For example, * @ define insert_key_bindings (f) * @ { * @ variable n, key; * @ n = which_key (f); * @ loop (n) * @ { * @ str = (); * @ insert (str); * @ insert ("\n"); * @ } * @ } * inserts into the buffer all the key sequences that are bound to the * function @f@. * See also: @get_key_function@, @setkey@, @what_keymap@ */ MAKE_INTRINSIC(".whitespace", insert_whitespace,VOID_TYPE, 1), /* Prototype: whitespace (Integer n); * The @whitespace@ function inserts white space of length @n@ into the * current buffer using a combination of spaces and tabs. The actual * combination of spaces and tabs used depends upon the buffer local * variable @TAB@. In particular, if @TAB@ is zero, no tab characters * will be used for the expansion. * See also: @insert@, @trim@, @goto_column@ * Related Variables: @TAB@, @TAB_DEFAULT@ */ MAKE_INTRINSIC(".enlargewin", enlarge_window,VOID_TYPE, 0), /* Prototype: Void enlargewin (); * This function increases the size of the current window by one line by * adjusting the size of the other windows accordingly. * See also: @window_info@, @onewindow@ */ MAKE_INTRINSIC(".splitwindow", split_window,VOID_TYPE, 0), /* Prototype: Void splitwindow (); * This function splits the current window vertically creating another * window that carries the current window's buffer. * See also: @onewindow@, @enlargewin@, @window_info@ */ MAKE_VARIABLE(".C_BRACE", &User_Vars.c_brace, INT_TYPE, 0), /* Prototype: Integer C_BRACE; * This is a C-mode variable that specifies how much an opening brace * should be indented compared its surrounding block. * Related Variables: @C_INDENT@, @C_BRA_NEWLINE@ */ MAKE_INTRINSIC(".file_time_compare", file_time_cmp, INT_TYPE, 2), /* Prototype: Integer file_time_cmp (String file1, String file2); * This function compares the modification times of two files, @file1@ * and @file2@. It returns an integer that is either positive, negative, * or zero integer for @file1 > file2@, @file1 < file2@, * or @file1 == file2@, respectively. In this context, the comparison * operators are comparing file modification times. That is, the * operator @>@ should be read ``is more recent than''. The convention * adopted by this routine is that if a file does not exist, its * modification time is taken to be at the beginning of time. Thus, if * @f@ exists, but @g@ does not, the @file_time_compare (f, g)@ will * return a positive number. See also: @file_status@, @time@ */ MAKE_INTRINSIC(".xform_region", transform_region, VOID_TYPE, 1), /* Prototype: Void xform_region (Integer how); * This function changes the characters in the region in a way specified * by the parameter @how@. This is an integer that can be any of of the * following: * @ 'u' Upcase_region * @ 'd' Downcase_region * @ 'c' Capitalize region * Anything else will change case of region. * See also: @translate_region@, @define_case@ */ #ifdef pc_system #if !defined(__GO32__) && !defined(__WATCOMC__) MAKE_VARIABLE(".NUMLOCK_IS_GOLD", &NumLock_Is_Gold, INT_TYPE, 0), #endif #if !defined(__os2__) && !defined(__WATCOMC__) && !defined(__GO32__) #ifndef MSWINDOWS MAKE_VARIABLE(".CHEAP_VIDEO", &SLtt_Msdos_Cheap_Video, INTP_TYPE, 0), /* non zero if snow appears on screen when updating it. */ #endif #endif #else MAKE_VARIABLE(".OUTPUT_RATE", &tt_Baud_Rate, INTP_TYPE, 0), /* Terminal baud rate */ #endif MAKE_INTRINSIC(".skip_chars", skip_chars, VOID_TYPE, 1), /* Prototype: Void skip_chars(String s); * This fnction may be used to move the editing point forward past all * characters in string @s@ which contains the chars to skip, or a range * of characters. A character range is denoted by two charcters * separated by a hyphen. If the first character of the string @s@ is a * @'^'@ character, then the list of characters actually denotes the * complement of the set of characters to be skipped. To explicitly * include the hyphen character in the list, it must be either the first * or the second character of the string, depending upon whether or not * the @'^'@ character is present. So for example, * @ skip_chars ("- \t0-9ai-o_"); * will skip the hyphen, space, tab, numerals @0@ to @9@, the letter @a@, * the letters @i@ to @o@, and underscore. An example which illustrates * the complement of a range is * @ skip_chars("^A-Za-z"); * which skips all characters except the letters. * Note: The backslash character may be used to escape only the first * character in the string. That is, "\\^" is to be used to skip over * @^@ characters. * Related Functions: @bskip_chars@, @skip_white@ */ MAKE_INTRINSIC(".command_line_arg", command_line_argv, STRING_TYPE, 1), /* Prototype: String command_line_argv (Integer n); * This function may be used to determine the command line parameters * that invoked the editor. The parameter @n@ is an integer the range zero * up-to but not including the value of the variable @MAIN_ARGC@. * Related Variables: @MAIN_ARGC@ */ MAKE_VARIABLE(".MAIN_ARGC", &Main_Argc, INT_TYPE, 1), /* Prototype: Integer MAIN_ARGC; * @MAIN_ARGC@ is a global read-only variable that indicates the number * of command line parameters. * See also: @command_line_argv@ */ MAKE_INTRINSIC(".set_file_translation", set_file_trans, VOID_TYPE, 1), /* Prototype: set_file_translation (Integer n); * This function affects only the way the next file is opened. Its * affect does not last beyond that. If it the value of the parameter * is 1, the next file will be opened in binary mode. If the parameter is * zero, the file will be opened in text mode. */ #if defined (unix) || defined (__os2__) #ifndef __GO32__ MAKE_INTRINSIC(".pipe_region", pipe_region, INT_TYPE, 1), /* Prototype: Integer pipe_region (String cmd); * The @pipe_region@ function executes @cmd@ in a separate process and * sends the region of characters defined by the mark and the current * point to the standard input of the process. It returns the number of * lines written to the process or -1 upon failure. * Note: This function is only available for Unix and OS/2 systems. * See also: @run_shell_cmd@, @push_mark@ */ MAKE_INTRINSIC(".run_shell_cmd", shell_command, INT_TYPE, 1), /* Prototype: Void run_shell_cmd (String cmd); * The @run_shell_cmd@ function may be used to run @cmd@ in a separate * process. Any output generated by the process is inserted into the * buffer at the current point. It generates a S-Lang error if the * process specified by @cmd@ could not be opened. Otherwise, it * returns the exit status of the process. */ #endif #endif MAKE_INTRINSIC(".mkdir", make_directory, INT_TYPE, 1), /* Prototype: Integer mkdir (String dir); * The @mkdir@ function may be used to create a new directory with name * specified by @dir@. It returns zero if the directory could not be * created or non-zero if a directory with the specified name was created. * See also: @rmdir@, @file_status@ */ MAKE_INTRINSIC(".rmdir", delete_directory, INT_TYPE, 1), /* Prototype: Integer rmdir (dir); * @rmdir@ may be used to delete the directory specified by the name * @dir@. If the directory was sucessfully deleted, the function * returns a non-zero value. Otherwise, the directory could not be * deleted and zero will be returned. * See also: @mkdir@, @delete_file@ */ MAKE_INTRINSIC(".append_region_to_file", append_to_file, INT_TYPE, 1), /* Prototype: Integer append_region_to_file (String file); * Appends a marked region to @file@ returning number of lines written or -1 * on error. This does NOT modify a buffer visiting the file; however, * it does flag the buffer as being changed on disk. */ MAKE_INTRINSIC(".autosave", auto_save, VOID_TYPE, 0), /* Prototype: Void autosave (); * The @autosave@ function saves the current buffer in an auto save file * if the buffer has been marked for the auto save operation. * See also: @setbuf_info@, @autosaveall@ * Related Variables: @MAX_HITS@ */ MAKE_INTRINSIC(".autosaveall", auto_save_all, VOID_TYPE, 0), /* Prototype: Void autosaveall (); * This function is like @autosave@ except that it causes all files * marked for the auto save operation to be auto-saved. * See also: @autosave@, @setbuf_info@ * Related Variables: @MAX_HITS@ */ MAKE_INTRINSIC(".backward_paragraph", backward_paragraph, VOID_TYPE, 0), /* Prototype: Void backward_paragraph (); * This function moves the current editing point backward past the * current paragraph to the line that is a paragraph separator. Such a * line is determined by the S-Lang hook @is_paragraph_separator@. This * hook can be modified on a buffer by buffer basis by using the * function @set_buffer_hook@. * See also: @forward_paragraph@, @set_buffer_hook@ */ MAKE_INTRINSIC(".blank_rect", blank_rectangle, VOID_TYPE, 0), /* The @blank_rect@ function replaces all text in the rectangle defined by * the current editing point and the mark by spaces. * See also: @push_mark@, @kill_rect@, @insert_rect@, @copy_rect@ */ MAKE_INTRINSIC(".bskip_chars", bskip_chars, VOID_TYPE, 1), /* Prototype: Void bskip_chars (String str); * This function may be used to skip past all characters defined by the * string @str@. See @skip_chars@ for the definition of @str@. * The following example illustrates how to skip past all whitespace * including newline characters: * @ bskip_chars (" \t\n"); * See also: @skip_chars@, @left@ */ MAKE_INTRINSIC(".buffer_list", make_buffer_list, VOID_TYPE, 0), /* Prototype: Integer buffer_list (); * This function returns an integer indicating the number of buffers and * leaves the names of the buffers on the stack. For example, the * following function displays the names of all buffers attached to * files: * @ define show_buffers () * @ { * @ variable b, str = "", file; * @ loop (buffer_list ()) * @ { * @ b = (); * @ setbuf (b); * @ (file,,,) = getbuf_info (); * @ if (strlen (file)) str = strcat (str, strcat (" ", b)); * @ } * @ message (str); * @ } * See also: @getbuf_info@, @whatbuf@ */ MAKE_INTRINSIC(".check_region", check_region, VOID_TYPE, 1), /* Prototype: Void check_region (Integer ps); * This function checks to see if a region is defined and may exchange * the current editing point and the mark to define a canonical region. * If the mark is not set, it signals an S-Lang error. A canonical * region is one with the mark set earlier in the buffer than than the * editing point. Always call this if using a region which requires * such a situation. * * If the argument @ps@ is non-zero, @push_spot@ will be called, * otherwise, @ps@ is zero and it will not be called. * * As an example, the following function counts the number of lines in * a region: * @ define count_lines_region () * @ { * @ variable n; * @ check_region (1); % spot pushed * @ narrow (); * @ n = what_line (); * @ widen (); * @ pop_spot (); * @ return n; * @ } * See also: @markp@, @push_mark@ */ MAKE_INTRINSIC(".copy_rect", copy_rectangle, VOID_TYPE, 0), /* Prototype: Void copy_rect (); * The @copy_rect@ function is used to copy the contents of the * currently defined rectangle to the rectangle buffer. It overwrites * the previous contents of the rectangle buffer. A rectangle is defined * by the diagonal formed by the mark and the current point. * See also: @insert_rect@, @kill_rect@, @blank_rect@ */ MAKE_INTRINSIC(".define_word", define_word, VOID_TYPE, 1), /* Prototype: Void define_word (String s); * This function is used to define the set of characters that form a * word. The string @s@ consists of those characters or ranges of * characters that define the word. For example, to define only the * characters @A-Z@ and @a-z@ as word characters, use: * @ define_word ("A-Za-z"); * To include a hyphen as part of a word, it must be the first character * of the control string @s@. So for example, * @ define_word ("-i-n"); * defines a word to consist only of the letters @i@ to @n@ and the * hyphen character. */ MAKE_INTRINSIC(".delbuf", kill_buffer_cmd, VOID_TYPE, 1), /* Prototype: Void delbuf (String buf); * @delbuf@ may be used to delete a buffer with the name specified by * @buf@. If the buffer does not exist, a S-Lang error will be generated. * See also: @whatbuf@, @bufferp@, @sw2buf@ */ MAKE_INTRINSIC(".delete_file", sys_delete_file, INT_TYPE, 1), /* Prototype: Integer delete_file (String file); * This function may be used to delete a file specified by the @file@ * parameter. It returns non-zero if the file was sucessfully deleted * or zero otherwise. * See also: @rmdir@ */ MAKE_INTRINSIC(".directory", expand_wildcards, INT_TYPE, 1), /* returns number of files and list of files which match filename. On unix, this defaults to filename*. It is primarily useful for DOS and VMS to expand wilcard filenames */ MAKE_INTRINSIC(".evalbuffer", load_buffer, VOID_TYPE ,0), /* Prototype: Void evalbuffer (); * This function causes the current buffer to be sent to the S-Lang * interpreter for evaluation. If an error is encountered while parsing * the buffer, the cursor will be placed at the location of the error. * See also: @evalfile@ */ MAKE_INTRINSIC(".expand_filename", expand_filename, STRING_TYPE, 1), /* Prototype: String expand_filename (String file); * The @expand_filename@ function expands a file to a canonical form. * For example, under Unix, if @file@ has the value @"/a/b/../c/d"@, it * returns @"/a/c/d"@. Similarly, if @file@ has the value * @/a/b/c//d/e"@, @"/d/e" is returned. */ MAKE_INTRINSIC(".filechgondsk", file_changed_on_disk, INT_TYPE, 1), /* Prototype: Integer filechgondsk (String fn); * This function may be used to determine if the disk file specified by the * parameter @fn@ is more recent than the current buffer. * See also: @file_time_compare@ */ MAKE_INTRINSIC(".forward_paragraph", forward_paragraph, VOID_TYPE, 0), /* Prototype: Void forward_paragraph (); * This function moves the current editing point forward past the end of * the current paragraph. Paragraph delimiters are defined through either * a buffer hook or via the hook @is_paragraph_separator@. * See also: @backward_paragraph@, @set_buffer_hook@ */ MAKE_INTRINSIC(".getkey", jed_getkey, INT_TYPE, 0), /* Prototype: Integer getkey (); * The @getkey@ function may be used to read an input character from the * keyboard. It returns an integer in the range 0 to 256 which represents * the ASCII or extended ASCII value of the character. * See also: @input_pending@, @ungetkey@ */ MAKE_INTRINSIC(".indent_line", indent_line, VOID_TYPE, 0), /* Prototype: Void indent_line (); * The @indent_line@ line function indents the current line in a manner * which depends upon the current buffer. The actual function that gets * called is set via a prior call the @set_buffer_hook@ to set the indent * hook. The default value is to indent the line to the indentation * level of the previous line. * See also: @set_buffer_hook@ */ MAKE_INTRINSIC(".insert_rect", insert_rectangle, VOID_TYPE, 0), /* Prototype: insert_rect (); * The @insert_rect@ function inserts the contents of the rectangle buffer * at the current editing point. The rectangle buffer is not modified. * Any text that the rectangle would overwrite is moved to the right by an * amount that is equal to the width of the rectangle. * See also: @kill_rect@, @blank_rect@, @copy_rect@ */ MAKE_INTRINSIC(".kill_rect", kill_rectangle, VOID_TYPE, 0), /* Prototype: Void kill_rect (); * This function deletes the rectangle defined by the mark and the current * point. The contents of the rectangle are saved in the rectangle buffer * for later retrieval via the @insert_rect@ function. The previous * contents of the rectangle buffer will be lost. * See also: @insert_rect@, @blank_rect@, @copy_rect@ */ MAKE_INTRINSIC(".make_keymap", create_keymap, VOID_TYPE, 1), /* Prototype: Void make_keymap (String km); * The @make_keymap@ function creates a keymap with a name specified by * the @km@ parameter. The new keymap is an exact copy of the * pre-defined @"global"@ keymap. * See also: @use_keymap@, @keymap_p@, @definekey@, @setkey@ */ MAKE_INTRINSIC(".map_input", map_character, VOID_TYPE, 2), /* Prototype: Void map_input (Integer x, Integer y); * The @map_input@ function may be used to remap an input character with * ascii value @x@ from the keyboard to a different character with ascii * value @y@. This mapping can be quite useful because it takes place * before the editor interprets the character. One simply use of this * function is to swap the backspace and delete characters. Since the * backspace character has an ascii value of @8@ and the delete character * has ascii value @127@, the statement * @ map_input (8, 127); * maps the backspace character to a delete character and * @ map_input (127, 8); * maps the delete character to a backspace character. Used together, * these two statement effectively swap the delete and backspace keys. * See also: @getkey@ */ MAKE_INTRINSIC(".narrow", narrow_to_region, VOID_TYPE, 0), /* Prototype: Void narrow (); * This function may be used to restict editing to the region of lines * between the mark and the editing point. The region includes the line * containing the mark as well as the line at the current point. All * other lines outside this region are completely inacessable without * first lifting the restriction using the @widen@ function. As a simple * example, suppose that there is a function called @print_buffer@ that * operates on the entire buffer. Then the following function will work * on a region of lines: * @ define print_region () * @ { * @ narrow (); * @ print_buffer (); * @ widen (); * @ } * The @narrow@ function will signal an error if the mark is not set. * Note also that the narrow function may be used recursively in the * sense that a narrowed region may be further restricted using the * @narrow@ function. For each narrow, the @widen@ function must be called * to lift each restriction. * See also: @widen@ */ MAKE_INTRINSIC(".open_rect", open_rectangle, VOID_TYPE, 0), /* Prototype: Void open_rect (); * The @open_rect@ function may be used to insert a blank rectangle whose * size is determined by the mark and the current editing point. Any text * that lies in the region of the rectangle will be pushed to the right. * See also: @insert_rect@, @kill_rect@, @copy_rect@ */ MAKE_INTRINSIC(".quit_jed", quit_jed, VOID_TYPE, 0), /* Prototype: Void quit_jed (); * This function quits the editor immediately. No buffers are * auto-saved and no hooks are called. The function @exit_jed@ should be * called when it is desired to exit in a safe way. * See also: @exit_jed@ */ MAKE_INTRINSIC(".read_file", find_file_cmd, INT_TYPE, 1), /* Prototype: Integer read_file (string fn); * The @read_file@ function may be used to read a file specified by @fn@ * into its own buffer. It returns a non-zero value upon success and * signals an error upon failure. The hook @find_file_hook@ is called * after the file is read in. Unlike the related function, @find_file@, * this function does not create a window for the newly created buffer. * See also: @find_file@, @file_status@, @write_buffer@ */ MAKE_INTRINSIC(".read_with_completion", read_object_with_completion, VOID_TYPE, 4), /* Prototype: Void read_with_completion (String prt, String dflt, String s, Integer type); * This function may be used to read one of the objects specified by the * last parameter @type@. The first parameter, @prt@, is used as a * prompt, the second parameter, @dflt@, is used to specify a default, * and the third parameter, @s@, is used to initialize the string to * be read. * @type@ is an integer with the following meanings: * @ 'f' file name * @ 'b' buffer name * @ 'F' function name * @ 'V' variable name. * * Finally, if @type@ has the value @'s'@, then the set of completions * will be defined by a zeroth parameter, @list@, to the function call. * This parameter is simple a comma separated list of completions. * For example, * @ read_with_completion ("Larry,Curly,Moe", "Favorite Stooge:", * @ "Larry", "", 's'); * provides completion over the set of three stooges. * The function returns the string read. * See also: @read_mini@ */ MAKE_INTRINSIC(".replace", replace_cmd, VOID_TYPE, 2), /* Prototype: Void replace(String old, String new); * This function may be used to replace all occurances of the string * @old@ with the string, @new@, from current editing point to the end * of the buffer. The editing point is returned to the initial location. * That is, this function does not move the editing point. * See also: @fsearch@, @re_fsearch@, @bsearch@, @ffind@, @del@ */ MAKE_INTRINSIC(".set_abort_char", set_abort_char, VOID_TYPE, 1), /* Change Abort character to CHAR. The default is 7 which is ^G. Using this function modifies ALL keymaps */ MAKE_INTRINSIC(".suspend", sys_spawn_cmd, VOID_TYPE, 0), /* Suspend jed and return to calling process or spawn subprocess. "suspend_hook" is called before suspension and "resume_hook" is called after. These are user defined S-Lang functions. */ MAKE_INTRINSIC(".time", get_time, STRING_TYPE, 0), /* return current date and time string */ MAKE_INTRINSIC(".ungetkey", ungetkey, VOID_TYPE, 1), /* push ASCII value of character on input stream */ MAKE_INTRINSIC(".buffer_keystring", do_buffer_keystring, VOID_TYPE, 1), /* Prototype: Void buffer_keystring (String str); * Append string @str@ to the end of the input stream to be read by JED's * getkey routines. * Related Functions: ungetkey, getkey */ MAKE_INTRINSIC(".use_keymap", use_keymap, VOID_TYPE, 1), /* Asscoiate KEYMAP with buffer. */ #ifndef pc_system MAKE_INTRINSIC(".w132", screen_w132, VOID_TYPE, 0), MAKE_INTRINSIC(".w80", screen_w80, VOID_TYPE, 0), #endif MAKE_INTRINSIC(".whatmode", what_mode, INT_TYPE, 0), /* returns buffer mode string and mode flag. See setmode for details. */ MAKE_INTRINSIC(".widen", widen, VOID_TYPE, 0), /* Opposite of Narrow. See narrow for additional information. */ MAKE_INTRINSIC(".window_line", window_line, INT_TYPE, 0), /* returns number of line in window. top line is 1. */ MAKE_INTRINSIC(".write_buffer", write_buffer_cmd, INT_TYPE, 1), /* writes buffer to FILE. Returns number of lines written or signals error on failure. */ MAKE_INTRINSIC(".write_region_to_file", write_region, INT_TYPE, 1), /* Prototype: Integer write_region_to_file (String file); * Write region to @file@. Returns number of lines written or signals * error on failure. */ MAKE_INTRINSIC(".count_chars", count_chars, VOID_TYPE, 0), /* returns a string of form "char 37, point 2150 of 10067" where 2150 is character number of Point and 10067 is the total. 37 is the ascii value of current character. A string is returned instead of numbers because MSDOSints are only 16 bits and S-Lang does not have long integer types. */ MAKE_INTRINSIC(".get_yes_no", get_yes_no, INT_TYPE, 1), /* Takes one argument-- a string that is used to get yes or no responce from user. Returns 1 if yes, 0 if no. Also returns -1 if abort and signals error. */ MAKE_INTRINSIC(".rename_file", rename_file, INT_TYPE, 2), /* rename file from OLD_NAME to NEW_NAME returning 0 if the operation succeeds, and a non-zero value if it fails. Both files must be on the same file system. */ MAKE_INTRINSIC(".change_default_dir", ch_dir, INT_TYPE, 1), /* Change default directory to new directory. Returns 0 upon success and -1 upon failure. All relative path names are expanded with respect to the new default directory. */ MAKE_INTRINSIC(".prefix_argument", do_prefix_argument, INT_TYPE, 1), /* Usage: int prefix_argument(int default); Returns value of prefix argument if there is one otherwise returns @default@. */ MAKE_INTRINSIC(".regexp_nth_match", regexp_nth_match, VOID_TYPE, 1), MAKE_INTRINSIC(".replace_match", replace_match, INT_TYPE, 2), /* Prototype: Integer replace_match(String s, Integer how); * This function replaces text previously matched with `re_fsearch' or * `re_bsearch' at the current editing point with string @s@. If @how@ is * zero, @s@ is a specially formatted string of the form described below. * If @how@ is non-zero, @s@ is regarded as a simple string and is used * literally. If the replacement fails, this function returns zero * otherwise, it returns non-zero. */ MAKE_INTRINSIC(".re_fsearch", re_search_forward, INT_TYPE, 1), /* Prototype: Integer re_fsearch(String pattern); * Search forward for regular expression @pattern@. This function returns * the 1 + length of the string matched. If no match is found, it returns * 0. * * Related Functions: fsearch, bol_fsearch, re_bsearch */ MAKE_INTRINSIC(".re_bsearch", re_search_backward, INT_TYPE, 1), /* Prototype: Integer re_bsearch(String pattern); * Search backward for regular expression @pattern@. This function returns * the 1 + length of the string matched. If no match is found, it returns * 0. * * Related Functions: bsearch, bol_bsearch, re_fsearch */ MAKE_INTRINSIC(".set_buffer_hook", set_buffer_hook, VOID_TYPE, 2), /* Prototype: Void set_buffer_hook (String hook, String f); * Set current buffer hook @hook@ to function @f@. @f@ is a user * defined S-Lang function. Currently, name can be any one of: * "par_sep" -- returns zero if the current line does not * constitute the beginning or end of a paragraph. * It returns non-zero otherwise. The default value of @hook@ is * @is_paragraph_separator@. * "indent_hook" -- returns nothing. It is called by the indent line * routines. * "wrap_hook" hook that is called after a line is wrapped. Returns * nothing * "newline_indent_hook" --- returns nothing. If this hook is defined, * it will be called instead of the internal function * @newline_and_indent@ is called. */ MAKE_INTRINSIC(".insert_file_region", insert_file_region, INT_TYPE, 3), /* Prototype: Integer insert_file_region (String file, String beg, String end); * This function may be used to insert a region specified by the strings * @beg@ and @end@ of the file with name @file@ into the current buffer. * The file is scanned line by line until a line that begins with the * string given by @beg@ is encountered. Then, that line and all * successive lines upto the one that starts with the string specified * by @end@ is inserted into the buffer. The line beginning with the * value of @end@ is not inserted although the one beginning with @beg@ is. * The function returns the number of lines inserted or @-1@ upon failure * to open the file. * See also: @insert_file@ */ MAKE_INTRINSIC(".search_file", search_file, INT_TYPE, 3), /* search FILE for STRING returning TRUE if string found. */ MAKE_INTRINSIC(".random", make_random_number, INT_TYPE, 2), /* Usage: seed n random Returns a random number in the range 0 to n - 1. If seed is 0, the number generated depends on previous seed. If seed is -1, a seed based on current time and pid is used, otherwise, seed is used as a seed. */ #ifndef pc_system MAKE_INTRINSIC(".set_term_vtxxx", do_tt_set_term_vtxxx, VOID_TYPE, 1), /* Set terminal display appropriate for a vtxxx terminal. This function * takes a single integer parameter. If non-zero, the terminal type is set * for a vt100. This means the terminal lacks the ability to insert/delete * lines and characters. If the parameter is zero, the terminal is assumed * to be vt102 compatable. Unless you are using a VERY old terminal or * a primitive emulator, use zero as the parameter. */ MAKE_VARIABLE(".TERM_CANNOT_INSERT", &tt_Term_Cannot_Insert, INTP_TYPE, 0), /* Set this variable to 1 in your jed startup file (jed.rc) if your terminal is unable to insert (not vt102 compatable) */ MAKE_VARIABLE(".TERM_CANNOT_SCROLL", &tt_Term_Cannot_Scroll, INTP_TYPE, 0), /* Set this variable to 1 in your jed startup file (jed.rc) if your terminal is unable to scroll. */ #endif MAKE_VARIABLE(".BATCH", &Batch, INT_TYPE, 1), /* non-zero if JED is running in batch mode. This variable is read only. */ MAKE_VARIABLE(".TAB", &Buffer_Local.tab, INT_TYPE, 0), /* Tab setting for the current buffer. */ MAKE_VARIABLE(".SELECTIVE_DISPLAY", &Buffer_Local.sd, INT_TYPE, 0), /* If negative, ^M (RET) makes rest of line invisible. Hidden text is indicated by @...@. */ MAKE_VARIABLE(".LAST_CHAR", &SLang_Last_Key_Char, INT_TYPE, 0), /* Last character entered from the keyboard */ MAKE_VARIABLE(".MAX_HITS", &User_Vars.max_hits, INT_TYPE, 0), /* maximum number of @hits@ on a buffer before an autosave is performed. */ MAKE_VARIABLE(".CASE_SEARCH", &Case_Sensitive, INT_TYPE, 0), /* if 1, searches are case sensitive. If 0, they are not */ MAKE_VARIABLE(".POINT", &Point, INT_TYPE, 0), MAKE_VARIABLE(".MESSAGE_BUFFER", Message_Buffer, STRING_TYPE, 1), /* Read only string indicating current message to be displayed or is displayed in the message buffer */ MAKE_VARIABLE(".IGNORE_USER_ABORT", &Ignore_User_Abort, INT_TYPE, 0), /* If set to a non-zero value, the Abort Character will not trigger a S-Lang error. When JED starts up, this value is set to 1 so that the user cannot abort the loading of site.sl. Later, it is set to 0 */ MAKE_VARIABLE(".KILL_LINE_FEATURE", &Kill_Line_Feature, INT_TYPE, 0), /* If non-zero, kill_line will kill through end of line character if Point is at beginning of the line. Otherwise, it will kill only until the end of the line. By default, this feature is turned on. */ MAKE_VARIABLE(".SCREEN_HEIGHT", &tt_Screen_Rows, INTP_TYPE, 1), /* number of rows on the screen. */ MAKE_VARIABLE(".SCREEN_WIDTH", &tt_Screen_Cols, INTP_TYPE, 1), /* number of columns on the screen */ MAKE_VARIABLE(".JED_LIBRARY", Jed_Library, STRING_TYPE, 1), /* Read only string variable indicating the directory where JED library files are kept. This variable may be set using an environment variable */ MAKE_VARIABLE(".JED_ROOT", Jed_Root_Dir, STRING_TYPE, 1), /* Read only string variable indicating JED's root directory. This variable may be set using an environment variable */ MAKE_VARIABLE(".LINENUMBERS", &User_Prefers_Line_Numbers, INT_TYPE, 0), /* If set to 0, line numbers are not displayed on the screen. If set to 1, line numbers will be displayed. If set to anything else, the %c column format specifier will be parsed allowing the column number to be displayed on the screen. */ #ifdef pc_system MAKE_VARIABLE(".ALT_CHAR", &PC_Alt_Char, INT_TYPE, 0), /* If this variable is non-zero, characters pressed in combination the ALT key will generate a two character sequence: the first character is the value of the ALT_CHAR itself followed by the character pressed. For example, if ALT-X is pressed and ALT_CHAR has a value of 27, the characters ESCAPE X will be generated. */ #endif #ifdef HAS_MOUSE MAKE_VARIABLE(".MOUSE_X", &JMouse.x, INT_TYPE, 1), MAKE_VARIABLE(".MOUSE_Y", &JMouse.y, INT_TYPE, 1), MAKE_VARIABLE(".MOUSE_DELTA_TIME", &JMouse.time, INT_TYPE, 1), MAKE_VARIABLE(".MOUSE_BUTTON", &JMouse.button, INT_TYPE, 1), MAKE_VARIABLE(".MOUSE_EVENT_TYPE", &JMouse.type, INT_TYPE, 1), /* Value is 1 if the event is a keypress and 0 if a release. */ MAKE_VARIABLE(".MOUSE_STATE", &JMouse.state, INT_TYPE, 1), /* The state of the shift, control, and button keys BEFORE the event. * This is an integer with the following meaning for the bits: * 0: left button pressed * 1: middle button pressed * 2: right button pressed * 3: shift key pressed * 4: control key pressed */ #endif MAKE_VARIABLE(".HIGHLIGHT", &Wants_Attributes, INT_TYPE, 0), /* Set this variable non-zero to highlight marked regions */ MAKE_VARIABLE(".HORIZONTAL_PAN", &Wants_HScroll, INT_TYPE, 0), /* If this variable is non-zero, the window pans with the Point. Actually * if the value is less than zero, the entire window pans. If the value is * positive, only the current line will pan. The absolute value of the * number determines the panning increment. */ #ifdef VMS MAKE_INTRINSIC(".vms_get_help", vms_get_help,VOID_TYPE, 2), MAKE_INTRINSIC(".vms_send_mail", vms_send_mail, INT_TYPE, 2), /* Takes 2 string arguments: TO and SUBJECT. * TO may be a comma separated list of names. The buffer will be * mailed to names on this list with SUBJECT. This routine uses * callable VMS mail. */ #endif #ifdef unix #ifndef __GO32__ MAKE_INTRINSIC(".enable_flow_control", enable_flow_control, VOID_TYPE, 1), /* If integer argument is non-zero, ^S/^Q flow control is enabled. If * argument is 0, ^S/^Q processing by the terminal is disabled. Emacs mode * sets this to 0 (flow control off). */ #endif #endif MAKE_INTRINSIC(".core_dump", exit_error_cmd, VOID_TYPE, 2), /* Prototype: Void core_dump(String msg, Integer severity); * Exit editor sumping the state of some crucial variables. If severity is 1, * dump core if possible. Message msg is also displayed. */ MAKE_INTRINSIC(".get_last_macro", get_last_macro, VOID_TYPE, 0), /* Prototype: String get_last_macro (); * This function returns characters composing the last keyboard macro. The * charactors that make up the macro are encoded as themselves except the * following characters: * @ '\n' ----> \J * @ null ----> \@ * @ \ ----> \\ * @ '"' ----> \" */ #ifdef __os2__ MAKE_INTRINSIC(".IsHPFSFileSystem", IsHPFSFileSystem, INT_TYPE, 1), /* Prototype: Integer IsHPFSFileSystem(String path); Returns TRUE if drive of @path@ (possibly the default drive) is HPFS. */ #endif #ifdef pc_system MAKE_INTRINSIC(".msdos_fixup_dirspec", msdos_pinhead_fix_dir, STRING_TYPE, 1), /* Prototype: String msdos_fixup_dirspec (String dir); * The motivation behind this is that DOS does not like a trailing * backslash @\\@ except if it is for the root dir. This function makes * @dir@ conform to that */ #endif MAKE_VARIABLE(".C_COMMENT_HINT", &C_Comment_Hint, INT_TYPE, 1), MAKE_VARIABLE(".WANT_SYNTAX_HIGHLIGHT", &Wants_Syntax_Highlight, INT_TYPE, 0), MAKE_INTRINSIC(".set_top_status_line", define_top_screen_line, VOID_TYPE, 1), /* Prototype: String set_top_status_line (String str); * This functions sets the string to be displayed at the top of the * display. It returns the value of the line that was previously * displayed. * * Related Functions: enable_top_status_line */ MAKE_INTRINSIC(".enable_top_status_line", enable_menu_bar, VOID_TYPE, 1), /* Prototype: Void enable_top_status_line (Integer x); * If x is non-zero, the top status line is enabled. If x is zero, the * top status line is disabled and hidden. * Related Functions: set_top_status_line */ MAKE_VARIABLE(".TOP_WINDOW_ROW", &Top_Window_Row, INT_TYPE, 1), /* This read-only variable gives the value of the starting row of the top * window. */ MAKE_VARIABLE(".DEFINING_MACRO", &Defining_Keyboard_Macro, INT_TYPE, 1), MAKE_VARIABLE(".EXECUTING_MACRO", &Executing_Keyboard_Macro, INT_TYPE, 1), MAKE_INTRINSIC(".create_user_mark", create_user_mark, VOID_TYPE, 0), /* Prototype: User_Mark create_user_mark (); * The function @create_user_mark@ returns an object of the type * @User_Mark@. This object contains information regarding the current * position. Unlike other marks and spots, a User Mark is not local * to a buffer. In this example, * @ define create_buffer (buf) * @ { * @ variable mark = create_user_mark (); * @ setbuf (buf); * @ goto_user_mark (mark); * @ } * a User Mark has been created prior to the call to @setbuf@. Then * after returning from @setbuf@, the current position and current buffer * is set to that specified by the User Mark. This example has the * effect of creating a buffer named @buf@ if does not already exist but * not switching to it. * * See also: @move_user_mark@, @goto_user_mark@, @user_mark_buffer@ */ MAKE_INTRINSIC(".goto_user_mark", goto_user_mark, VOID_TYPE, 0), /* Prototype: Void goto_user_mark (User_Mark mark); * This function returns to the position of the User Mark @mark@. Since * User Marks are not local to a buffer, if the User Mark @mark@ was set * in another buffer, that buffer will become the current buffer. * See also: @move_user_mark@, @create_user_mark@, @user_mark_buffer@ */ MAKE_INTRINSIC(".move_user_mark", move_user_mark, VOID_TYPE, 0), /* Prototype: Void move_user_mark (User_Mark mark); * This function call takes a previously created User Mark, @mark@, and * moves it to the current position and buffer. This means that if one * subsequently calls @goto_user_mark@ with this mark as an argument, the * the position will be set to what it is prior to the call to * @move_user_mark@. * Note: This function call is not equivalent to simply using * @ mark = create_user_mark (); * because independent copies of a User Mark are not created uponn * assignment. That is, if one has * @ variable mark1, mark2; * @ setbuf ("first"); * @ mark1 = create_user_mark (); * @ mark2 = mark1; * @ setbuf ("second"); * and then calls * @ move_user_mark (mark1); * both user marks, @mark1@ and @mark2@ will be moved since they refer to * the same mark. * See also: @goto_user_mark@, @create_user_mark@, @user_mark_buffer@ */ MAKE_INTRINSIC(".user_mark_buffer", user_mark_buffer, STRING_TYPE, 0), /* Prototype: String user_mark_buffer (User_Mark m); * This function returns the name of the buffer associated with the * User Mark specified by @m@. * See also: @goto_user_mark@, @create_user_mark@, @move_user_mark@ */ #ifdef HAS_ABBREVS MAKE_INTRINSIC(".list_abbrev_tables", list_abbrev_tables, INT_TYPE, 0), /* Prototype: Integer list_abbrev_tables (); * This function returns the names of all currently defined * abbreviation tables. The top item on the stack will be the number of * tables followed by the names of the tables. */ MAKE_INTRINSIC(".use_abbrev_table", use_abbrev_table, VOID_TYPE, 1), /* Prototype: Void use_abbrev_table (String table); * Use the abbreviation table named @table@ as the abbreviation table for * the current buffer. By default, the "Global" table is used. */ MAKE_INTRINSIC(".create_abbrev_table", create_abbrev_table, VOID_TYPE, 2), /* Prototype: Void create_abbrev_table (String name, String word); * Create an abbreviation table with name @name@. The second parameter * @word@ is the list of characters used to represent a word for the * table. If the empty string is passed for @word@, the characters that * currently constitute a word are used. */ MAKE_INTRINSIC(".define_abbrev", define_abbrev, VOID_TYPE, 3), /* Prototype: Void define_abbrev (String tbl, String abbrv, String expans); * This function is used to define an abbreviation @abbrv@ that will be * expanded to @expans@. The definition will be placed in the table with * name @tbl@. */ MAKE_INTRINSIC(".abbrev_table_p", abbrev_table_p, INT_TYPE, 1), /* Prototype: Integer abbrev_table_p (String name); * Returns non-zero if an abbreviation table with called @name@ exists. If * the table does not exist, it returns zero. */ MAKE_INTRINSIC(".dump_abbrev_table", dump_abbrev_table, VOID_TYPE, 1), /* Prototype: Void dump_abbrev_table (String name); * This function inserts the contents of the abbreviation table called * @name@ into the current buffer. */ MAKE_INTRINSIC(".what_abbrev_table", what_abbrev_table, VOID_TYPE, 0), /* Prototype: (String, String) what_abbrev_table (); * This functions returns both the name of the abbreviation table and the * definition of the word for the table currently associated with the * current buffer. If none is defined it returns two empty strings. */ MAKE_INTRINSIC(".delete_abbrev_table", delete_abbrev_table, VOID_TYPE, 1), /* Prototype: Void delete_abbrev_table (String name); * Delete the abbrev table specified by @name@. */ #endif #ifdef COLOR_COLUMNS MAKE_INTRINSIC(".set_column_colors", set_column_colors, VOID_TYPE, 3), /* Prototype: Void set_column_colors (Integer color, Integer c0, Integer c1); * This function associates a color with columns @c0@ through @c1@ in the * current buffer. That is, if there is no syntax highlighting already * defined for the current buffer, when the current buffer is displayed, * columns @c0@ through @c1@ will be displayed with the attributes of the * @color@ object. The parameters @c0@ and @c1@ are restricted to the range * 1 through SCREEN_WIDTH. Use the function @set_color_object@ to assign * attributes to the @color@ object. * Related Functions: @set_color_object@ */ MAKE_INTRINSIC(".set_color_object", set_color_object, VOID_TYPE, 3), /* Prototype: Void set_color_object (Integer obj, String fg, String bg); * Associate colors fg and bg with object obj. Valid values for @obj@ * are in the range 30 to 128. All other values are reserved. Values for * the strings @fg@ and @bg@ are as given by the description for @set_color@. * Related Functions: @set_column_colors@, @set_color@ */ #endif MAKE_INTRINSIC(".translate_region", translate_region, VOID_TYPE, 0), /* Prototype: Void translate_region (); * This function uses the global character array @TRANSLATE_ARRAY@ to * modify the characters in a region based on the mapping defined by the * array. The only restriction is that the newline character cannot be * mapped. This example * @ define swap_a_and_b () * @ { * @ variable i; * @ _for (0; 255, 1) * @ { * @ i = (); * @ TRANSLATE_ARRAY[i] = i; * @ } * @ TRANSLATE_ARRAY['a'] = 'b'; * @ TRANSLATE_ARRAY['b'] = 'a'; * @ bob (); push_mark (); eob (); * @ translate_region (); * @ } * uses @translate_region@ to swap the @'a'@ and @'b'@ characters in the * current buffer. * Related Functions: @insert@, @delete@, @what_char@ * Related Variables: @TRANSLATE_ARRAY@ */ MAKE_INTRINSIC(".set_current_kbd_command", set_current_kbd_command, VOID_TYPE, 1), /* Prototype: Void set_current_kbd_command (String s); */ MAKE_VARIABLE(".LAST_KBD_COMMAND", Last_Kbd_Command_String, STRING_TYPE, 1), MAKE_VARIABLE(".CURRENT_KBD_COMMAND", Current_Kbd_Command_String, STRING_TYPE, 1), MAKE_INTRINSIC(".find_matching_delimiter", find_matching_delimiter, INT_TYPE, 1), /* Prototype: Integer find_matching_delimiter (Integer ch); * This function scans either forward or backward looking for the * delimiter that matches the character specified by @ch@. The actual * direction depends upon the syntax of the character @ch@. The * matching delimiter pair must be declared as such by a prior call to * @define_syntax@. This function returns one of the following values: * @ 1 Match found * @ 0 Match not found * @ -1 A match was attempted from within a string. * @ -2 A match was attempted from within a comment * @ 2 No information * In addition, the current point is left either at the match or is left * at the place where the routine either detected a mismatch or gave up. * In the case of a comment or a string (return values of -2 or -1), the * current point is left at the beginning of a comment. * Note: If the of @ch@ is zero, the character at the current point will be * used. * See also: @blink_match@, @create_syntax_table@, @define_syntax@, @parse_to_point@ */ MAKE_INTRINSIC(".blink_match", blink_match, VOID_TYPE, 0), /* Prototype: Void blink_match (); * This function will attempt to blink the matching delimiter immediately * before the editing point. * See also: @find_matching_delimiter@, @define_syntax@ */ MAKE_INTRINSIC(".parse_to_point", parse_to_point, INT_TYPE, 0), /* Prototype: Integer parse_to_point (); * This function attempts to determine the syntactic context of the * current editing point. That is, it tries to determine whether or not * the current point is in a comment, a string, or elsewhere. * It returns: * @ -2 In a comment * @ -1 In a string or a character * @ 0 Neither of the above * Note: This routine is rather simplistic since it makes the assumption * that the character at the beginning of the current line is not in a * comment nor is in a string. * See also: @define_syntax@, @find_matching_delimiter@ */ MAKE_INTRINSIC(".set_syntax_flags", set_syntax_flags, VOID_TYPE, 2), /* Prototype: Void set_syntax_flags (String table, Integer flag); * This function may be used to set the flags in the syntax table * specified by the @table@ parameter. The @flag@ parameter may take * any of the following values or any combination bitwise or-ed together: * @ 1 Keywords are case insensitive * @ 2 Comments are Fortran-like * @ 4 Comments are C-like * @ 8 Keywords are TeX-like * A Fortran-like comment means that any line that begins with any * character that is not a digit is considered to be a comment. A * C-like comment means that any line that starts with @"* "@ preceeded * by any ammount of whitespace is to be highlighted as a comment. * A TeX-like keyword is any word that follows the quote character. * See also: @define_syntax@ */ MAKE_INTRINSIC(".define_syntax", define_syntax, VOID_TYPE, 2), /* Prototype: Void define_syntax (..., Integer type, String name); * This function adds a syntax entry to the table specified by the last * parameter @name@. The actual number of parameters vary according to * the next to the last parameter @type@. * * If @type@ is @'"'@ or @'\''@, a string or character delimiter syntax is * defined. In this case, @define_syntax@ only takes three parameters * where the first parameter is an integer that represents the character * for which the syntax is to be applied. * * Similarly, if @type@ is @'\\'@, then a quote syntax is defined and * again @define_syntax@ only takes three parameters where the first * parameter is an integer that represents the character for which the * syntax is to be applied. A quote character is one in which the * syntax of the following character is not treated as special. * * If @type@ is @'('@, then @define_syntax@ takes four parameters where * the first two parameters are strings that represent a matching set of * delimiters. The first string contains the set of opening delimiters * and the second string specifies the set of closing delimiters that * match the first set. If a character from the closing set is entered * into the buffer, the corresponding delimiter from the opening set * will be blinked. For example, if the C language syntax table is * called @"C"@, then one would use * @ define_syntax ("([{", ")]}", '(', "C"); * to declare the matching delimiter set. Note that the order of the * characters in the two strings must correspond. That is, the above * example says that @'('@ matches @')'@ and so on. * * If @type@ is @'%'@, a comment syntax is defined. As in the * previous case, @define_syntax@ takes four parameters where there * first two parameters are strings that represent the begin and end * comment delimiters. If the comment syntax is such that the comment * ends at the end of a line, the second string must either be the empty * string, @""@, or a newline @"\n"@. In the current implementation, at * most the begin and end comment strings can consist of at most two * characters. * * If @type@ is @'+'@, the first parameter is a string whose characters * are given the operator syntax. If type is @','@, the first parameter * is a string composed of characters that are condered to be * delimiters. If type is '0', the first parameter is a string composed * of characters that make up a number. * * If @type@ is @<@, the first parameter is a string whose successive * characters form begin and end keyword highlight directives. * * Finally, if @type@ is @'#'@, the first parameter is an integer whose * value corresponds to the character used to begin preprocessor lines. * * As an example, imagine a language in which the dollar sign character * @$@ is used as a string delimiter, the backward quote character @`@ * is used as a quote character, comments begin with a semi-colon and * end at the end of a line, and the characters @'<'@ and @'>'@ form * matching delimiters. The one might use * @ create_syntax_table ("strange"); * @ define_syntax ('$', '"', "strange"); * @ define_syntax ('`', '\\', "strange"); * @ define_syntax (";", "", '%', "strange"); * @ define_syntax ("<", ">", '(', "strange"); * to create a syntax table called @"strange"@ and define the * syntax entries for appropriate this example. * See also: @create_syntax_table@, @use_syntax_table@, @find_matching_delimiter@ * Related Variables: @BLINK@ */ MAKE_INTRINSIC(".use_syntax_table", use_syntax_table, VOID_TYPE, 1), /* Prototype: Void use_syntax_table (String n); * This function associates the current buffer with the syntax table * specified by the name @n@. Until another syntax table is associated * with the buffer, the syntax table named @n@ will be used in all * operations that require a syntax. This includes parenthesis matching, * indentation, etc. * See also: @create_syntax_table@, @define_syntax@ */ MAKE_INTRINSIC(".create_syntax_table", create_syntax_table, VOID_TYPE, 1), /* Prototype: Void create_syntax_table (String name); * This the purpose of this function is to create a new syntax table * with the name specified by @name@. If the table already exists, this * function does nothing. * See also: @define_syntax@, @use_syntax_table@, @define_keywords@ */ MAKE_INTRINSIC(".define_keywords_n", define_keywords, VOID_TYPE, 4), /* Prototype: String define_keywords_n (String table, String kws, Integer len, Integer n); * This function is used to define a set of keywords that will be color * syntax highlighted in the keyword color associated with the table * specified by @n@. The first parameter, @table@, specifies which * syntax table is to be used for the definition. The second parameter, * @kws@, is a string that is the concatenation of keywords of length * specified by the last parameter @len@. The list of keywords specified * by @kws@ must be in alphabetic order. The function returns the * previous list of keywords of length @len@. For example, C mode uses * the statement * @ () = define_keywords_n ("C", "asmforintnewtry", 3, 0); * to define the four three-letter keywords @asm@, @for@, @int@, @new@, * and @try@. Note that in the above example, the return value is not used. * See also: @define_syntax@, @set_color@ * Related Variables: @WANT_SYNTAX_HIGHLIGHT@, @USE_ANSI_COLORS@ */ MAKE_VARIABLE(".DOLLAR_CHARACTER", &Jed_Dollar, INT_TYPE, 0), /* Prototype: Integer DOLLAR_CHARACTER = '$'; * Character that is to be used to indicate that text extends to the left * or right of the window. This character is traditionally a dollar sign. * The @"dollar"@ object may be used to assign it a color. * See also: @set_color@ */ MAKE_VARIABLE("._jed_version", &Jed_Version_Number, INT_TYPE, 1), /* Prototype: Integer _jed_version; */ MAKE_INTRINSIC(".set_expansion_hook", set_expansion_hook, VOID_TYPE, 1), /* Prototype: Void set_expansion_hook (String fname); * This function may be used to specify a function that will be called to * expand a filename upon TAB completion. The function @fname@ must * already be defined. When @fname@ is called, it is given a string to * be expanded. If it changes the string, it must return a non-zero value * and the modified string. If the string is not modified, it must simply * return zero. */ #ifdef unix #ifndef __GO32__ MAKE_INTRINSIC(".get_passwd_info", get_passwd_info, VOID_TYPE, 1), /* Prototype: (dir, shell, pwd, uid, gid) = get_passwd_info (String username); * This function returns password information about the user with name * @username@. The returned variables have the following meaning: * @ dir: login directory * @ shell: login shell * @ pwd: encripted password * @ uid: user identification number * @ gid: group identification number * If the user does not exist, or the system call fails, the function * returns with @uid@ and @gid@ set to @-1@. */ MAKE_INTRINSIC(".get_termcap_string", get_termcap_string, STRING_TYPE, 1), /* Prototype: String get_termcap_string (String cap); * This function may be used to extract the string associated with the * termcap capability associated with @cap@. * Note: This function is only available on Unix systems. */ #endif #endif MAKE_INTRINSIC(".get_doc_string", get_doc_string, INT_TYPE, 2), /* read doc string for OBJECT from FILE. Returns 1 and string upon success or 0 on failure. If OBJECT is a functiion, it must be prefixed with an @F@. If it is a variable, the prefix character is a @V@. Example: "Fget_doc_string" */ #ifdef HAS_SUBPROCESSES MAKE_INTRINSIC(".kill_process", jed_close_process, VOID_TYPE, 1), /* Prototype: Void kill_process (Integer id); * Kill the subprocess specified by the process handle @id@. */ MAKE_INTRINSIC(".send_process", jed_send_process, VOID_TYPE, 2), /* Prototype: Void send_process (Integer id, String s); */ MAKE_INTRINSIC(".open_process", jed_open_process, INT_TYPE, 1), /* Prototype: Integer open_process (name, argv1, argv2, ..., argvN, N); * Returns id of process, -1 upon failure. */ MAKE_INTRINSIC(".process_mark", jed_get_process_mark, VOID_TYPE, 1), /* Prototype: User_Mark process_mark (Integer id); * This function returns the user mark that contains the position of the * last output by the process. */ MAKE_INTRINSIC(".set_process", jed_set_process, VOID_TYPE, 3), /* Prototype: Void set_process (Integer pid, String what, String value); * @pid@ is the process hendle returned by @open_process@. The second * parameter, @what@, specifies what to set. It must be one of the * strings: * @ "signal" : indicates that 'value' is the name of a function to call * @ when the process status changed. The function specified * @ by 'value' must be declared to accept an argument list: * @ (pid, flags) where 'pid' has the same meaning as above and * @ flags is an integer with the meanings: * @ 1: Process Running * @ 2: Process Stopped * @ 4: Process Exited Normally * @ 8: Process Exited via Signal * @ To obtain more information about the process, e.g., exit_status, * @ use the function 'get_process_status'. * @ Note: when this function is called, the current buffer is * @ guaranteed to be the buffer associated with the process. * @ * @ output" : This parameter determines how output from the process is * @ is processed. If the 'value' is the empty string "", output * @ will go to the end of the buffer associated with the process * @ and the point will be left there. * @ If value is ".", output will go at the current buffer position. * @ If value is "@", output will go to the end of the buffer but * @ the point will not move. Otherwise, 'value' is the name of * @ a slang function with arguments: (pid, data) where pid has * @ the above meaning and data is the output from the process. */ MAKE_INTRINSIC(".send_process_eof", jed_send_process_eof, VOID_TYPE, 1), /* Prototype: send_process_eof (Integer pid); * This function closes the @stdin@ of the process specified by the * handle @pid@. */ MAKE_INTRINSIC(".get_process_input", get_process_input, VOID_TYPE, 0), /* Prototype: Void get_process_input (Integer tsecs); * Read all pending input by all subprocesses. If no input is * available, this function will wait for input until @tsecs@ tenth of * seconds have expired. */ #endif SLANG_END_TABLE }; static int jed_system (char *s) { if (Jed_Secure_Mode) { msg_error ("Access denied."); return -1; } #ifdef pc_system return sys_System (s); #else return system (s); #endif } int init_jed_intrinsics (void) { int ret; ret = SLang_add_table(jed_intrinsics, "Jed"); /* overload default slang version of system */ SLadd_name ("system", (long) jed_system, SLANG_INTRINSIC, SLANG_MAKE_ARGS(INT_TYPE, 1)); #ifdef HAS_DISPLAY_TABLE SLang_add_array ("Display_Map", /* slang name */ (long *) Output_Display_Table, /* location of the array */ 1, /* number of dimensions */ 256, /* number of elements in X direction */ 0, 0, /* Number in Y and Z directions */ 'c', /* character array */ SLANG_IVARIABLE); /* Read/Write array */ #endif SLang_add_array ("TRANSLATE_ARRAY", /* slang name */ (long *) Translate_Region_Array, /* location of the array */ 1, /* number of dimensions */ 256, /* number of elements in X direction */ 0, 0, /* Number in Y and Z directions */ 'c', /* character array */ SLANG_IVARIABLE); /* Read/Write array */ #ifdef Sixteen_Bit_System SLdefine_for_ifdef("16_BIT_SYSTEM"); #endif return ret; } y */ SLANG_IVARIABLE); /* Read/Write array */ #endif SLang_add_array ("TRANSLATE_ARRAY", /* slang name */ (long *) Translate_Region_Array, jed-0.97.12/src/jed.rsp000064400000000000003000000004210603742313000143420ustar00rootsys00000000000000/P=4096 cmds.obj misc.obj file.obj main.obj display.obj ins.obj sysdep.obj screen.obj paste.obj ledit.obj line.obj vterm.obj search.obj window.obj text.obj keymap.obj replace.obj buffer.obj undo.obj abbrev.obj vfile.obj intrin.obj syntax.obj mouse.obj indent.obj slang.lib Bit_System SLdefine_for_ifdef("16_BIT_SYSTEM"); #endif return ret; } y */ SLANG_IVARIABLE); /* Read/Write array */ #endif SLang_add_array ("TRANSLATE_ARRAY", /* slang name */ (long *) Translate_Region_Array, jed-0.97.12/src/jed386.rsp000064400000000000003000000003150603742313000146050ustar00rootsys00000000000000main.o cmds.o misc.o file.o ins.o abbrev.o sysdep.o screen.o paste.o ledit.o line.o vterm.o search.o window.o text.o keymap.o replace.o buffer.o undo.o display.o vfile.o intrin.o syntax.o mouse.o indent.o .obj vfile.obj intrin.obj syntax.obj mouse.obj indent.obj slang.lib Bit_System SLdefine_for_ifdef("16_BIT_SYSTEM"); #endif return ret; } y */ SLANG_IVARIABLE); /* Read/Write array */ #endif SLang_add_array ("TRANSLATE_ARRAY", /* slang name */ (long *) Translate_Region_Array, jed-0.97.12/src/jedwcc.rsp000064400000000000003000000006430603742313000150450ustar00rootsys00000000000000name jedwcc libpath ..\..\slang\src library slang.lib file abbrev.obj file buffer.obj file cmds.obj file display.obj file file.obj file ins.obj file indent.obj file intrin.obj file keymap.obj file ledit.obj file line.obj file main.obj file misc.obj file paste.obj file replace.obj file screen.obj file search.obj file syntax.obj file sysdep.obj file text.obj file undo.obj file vfile.obj file vterm.obj file window.obj ng_add_array ("TRANSLATE_ARRAY", /* slang name */ (long *) Translate_Region_Array, jed-0.97.12/src/keymap.c000064400000000000003000000560330603742313000145160ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include #include "config.h" #include "buffer.h" #include "cmds.h" #include "paste.h" #include "screen.h" #include "window.h" #include "text.h" #include "ledit.h" #include "keymap.h" #include "sysdep.h" #include "misc.h" #include "display.h" #include "file.h" #include "slang.h" #include "undo.h" #include "ins.h" #include "hooks.h" void (*X_Define_Keys_Hook)(SLKeyMap_List_Type *); typedef struct { jmp_buf b; } jmp_buf_struct; jmp_buf_struct Jump_Buffer, *Jump_Buffer_Ptr; VOID *Last_Key_Function; int *Repeat_Factor; /* repeats a key sequence if non null */ char *Read_This_Character = NULL; /* alternate keyboard buffer */ char Jed_Key_Buffer[13]; char Key_Buffer[13]; char *Key_Bufferp = Key_Buffer; static int Last_Key_Buffer_Len; #ifdef HAS_MOUSE JMouse_Type JMouse; #endif int beep (void) { tt_beep (); flush_output (); return 1; } SLKeymap_Function_Type Jed_Functions[] = { {"backward_delete_char", backward_delete_char_cmd}, {"backward_delete_char_untabify", backward_delete_char_untabify}, {"beep", beep}, {"begin_macro", begin_keyboard_macro}, {"beg_of_buffer", bob}, {"beg_of_line", bol}, {"center_line", center_line}, {"copy_region", copy_to_pastebuffer}, #if defined(msdos) || defined(__GO32__) {"coreleft", show_memory}, #endif {"delete_char_cmd", delete_char_cmd}, {"delete_window", delete_window}, {"digit_arg", digit_arg}, /* {"double_line", double_line}, */ {"end_macro", end_keyboard_macro}, {"enlarge_window", enlarge_window}, {"end_of_buffer", eob}, {"eol_cmd", eol_cmd}, {"evaluate_cmd", evaluate_cmd}, {"execute_macro", execute_keyboard_macro}, {"exchange",exchange_point_mark}, {"exit_jed", exit_jed}, {"exit_mini", exit_minibuffer}, {"find_file", find_file}, {"format_paragraph", text_format_paragraph}, {"goto_match", goto_match}, {"indent_line", indent_line}, {"insert_file", insert_file_cmd}, {"kbd_quit", kbd_quit}, {"kill_buffer", kill_buffer}, {"kill_line", kill_line}, {"kill_region", kill_region}, {"macro_query", macro_query}, {"mark_spot", mark_spot}, {"mini_complete", mini_complete}, {"narrow", narrow_to_region}, {"narrow_paragraph", narrow_paragraph}, {"newline", newline}, {"newline_and_indent", newline_and_indent}, {"next_char_cmd", next_char_cmd}, {"next_line_cmd", next_line_cmd}, {"one_window", one_window}, {"other_window", other_window}, {"page_down", pagedown_cmd}, {"page_up", pageup_cmd}, {"pop_spot", pop_spot}, {"previous_char_cmd", previous_char_cmd}, {"previous_line_cmd", previous_line_cmd}, {"quoted_insert", quoted_insert}, {"redraw", redraw}, /* {"replace", replace}, */ {"save_buffers", save_some_buffers}, {"scroll_left", scroll_left}, {"scroll_right", scroll_right}, /* {"search_backward", search_backward_cmd}, {"search_forward", search_forward_cmd}, */ {"self_insert_cmd", ins_char_cmd}, {"set_mark_cmd", set_mark_cmd}, {"split_window", split_window}, {"switch_to_buffer", get_buffer}, {"sys_spawn_cmd", sys_spawn_cmd}, {"text_smart_quote", text_smart_quote}, /* {"transpose_lines", transpose_lines}, */ {"trim_whitespace", trim_whitespace}, {"undo", undo}, {"widen", widen}, {"write_buffer", write_buffer}, {"yank", yank}, {(char *) NULL, NULL} }; SLKeyMap_List_Type *Global_Map; SLKeyMap_List_Type *Mini_Map; int kbd_quit(void) { int sle = SLang_Error; SLKeyBoard_Quit = 1; /* --- never serious, testing only if (Repeat_Factor != NULL) { msg_error("Bang!"); longjmp(Jump_Buffer_Ptr->b, 1); } */ msg_error("Quit!"); if (Ignore_User_Abort) SLang_Error = sle; return(1); } void init_keymaps(void) { int ch; char simple[2]; simple[1] = 0; if (NULL == (Global_Map = SLang_create_keymap ("global", NULL))) exit_error ("Malloc error creating keymap.", 0); Global_Map->functions = Jed_Functions; /* This breaks under some DEC ALPHA compilers (scary!) */ #ifndef __DECC for (ch = ' '; ch < 256; ch++) { simple[0] = (char) ch; SLang_define_key1(simple, (VOID *) ins_char_cmd, SLKEY_F_INTRINSIC, Global_Map); } #else ch = ' '; while (1) { simple[0] = (char) ch; SLang_define_key1(simple, (VOID *) ins_char_cmd, SLKEY_F_INTRINSIC, Global_Map); ch = ch + 1; if (ch == 256) break; } #endif SLang_define_key1("^[1", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[2", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[3", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[4", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[5", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[6", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[7", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[8", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[9", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[0", (VOID *) digit_arg, SLKEY_F_INTRINSIC, Global_Map); #ifndef pc_system /* give vtxxx arrow keys */ SLang_define_key1("^[[D", (VOID *) previous_char_cmd,SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[OD", (VOID *) previous_char_cmd,SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[[A", (VOID *) previous_line_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[OA", (VOID *) previous_line_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[[B", (VOID *) next_line_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[OB", (VOID *) next_line_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[[C", (VOID *) next_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[OC", (VOID *) next_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[[6~", (VOID *) pagedown_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[[5~", (VOID *) pageup_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K^[[C", (VOID *) scroll_left, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K^[[D", (VOID *) scroll_right, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K^[[A", (VOID *) bob, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K^[[B", (VOID *)eob, SLKEY_F_INTRINSIC, Global_Map); #ifdef sun SLang_define_key1("\033[216z", (VOID *) pageup_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("\033[222z", (VOID *) pagedown_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("\033[214z", (VOID *) bol, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("\033[220z", (VOID *) eol_cmd, SLKEY_F_INTRINSIC, Global_Map); #endif #else #include "doskeys.c" #endif SLang_define_key1("'", (VOID *) text_smart_quote, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("\"", (VOID *) text_smart_quote, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^_", (VOID *) undo, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^?", (VOID *) backward_delete_char_untabify, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^B", (VOID *) bol, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^D", (VOID *) pagedown_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^E", (VOID *) eol_cmd, SLKEY_F_INTRINSIC, Global_Map); /* SLang_define_key1("^FB", (VOID *) search_backward_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^FF", (VOID *) search_forward_cmd, SLKEY_F_INTRINSIC, Global_Map); */ SLang_define_key1("^G", (VOID *) kbd_quit, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^I", (VOID *) indent_line, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K(", (VOID *) begin_keyboard_macro, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K)", (VOID *) end_keyboard_macro, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^KD", (VOID *) evaluate_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^KE", (VOID *) exit_jed, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^KG", (VOID *) find_file, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^KK", (VOID *) copy_to_pastebuffer, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^KM", (VOID *) mark_spot, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^KX", (VOID *) execute_keyboard_macro, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K^B", (VOID *) set_mark_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K^I", (VOID *) insert_file_cmd, SLKEY_F_INTRINSIC, Global_Map); /* SLang_define_key1("^K^L", (VOID *) double_line, SLKEY_F_INTRINSIC, Global_Map); */ SLang_define_key1("^K^M", (VOID *) pop_spot, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K^P", (VOID *) yank, SLKEY_F_INTRINSIC, Global_Map); /* SLang_define_key1("^K^R", (VOID *) replace, SLKEY_F_INTRINSIC, Global_Map); */ SLang_define_key1("^K^V", (VOID *) kill_region, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^K^W", (VOID *) write_buffer, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^L", (VOID *) kill_line, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^M", (VOID *) newline_and_indent, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^R", (VOID *) redraw, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^U", (VOID *) pageup_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^V", (VOID *) delete_char_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^W0", (VOID *) delete_window, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^W1", (VOID *) one_window, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^W2", (VOID *) split_window, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^WO", (VOID *) other_window, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^XB", (VOID *) get_buffer, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^XK", (VOID *) kill_buffer, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^XN", (VOID *) narrow_to_region, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^XQ", (VOID *) macro_query, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^XS", (VOID *) save_some_buffers, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^XW", (VOID *) widen, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^X^", (VOID *) enlarge_window, SLKEY_F_INTRINSIC, Global_Map); /* SLang_define_key1("^X^T", (VOID *) transpose_lines, SLKEY_F_INTRINSIC, Global_Map); */ SLang_define_key1("^X^[", (VOID *) evaluate_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^X^X", (VOID *) exchange_point_mark, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^Z", (VOID *) sys_spawn_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[<", (VOID *) bob, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[>", (VOID *) eob, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[N", (VOID *) narrow_paragraph, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[Q", (VOID *) text_format_paragraph, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[S", (VOID *) center_line, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[X", (VOID *) evaluate_cmd, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^[\\", (VOID *) trim_whitespace, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("^\\", (VOID *) goto_match, SLKEY_F_INTRINSIC, Global_Map); SLang_define_key1("`", (VOID *) quoted_insert, SLKEY_F_INTRINSIC, Global_Map); if (X_Define_Keys_Hook != NULL) (*X_Define_Keys_Hook)(Global_Map); } char Last_Kbd_Command_String[32]; char Current_Kbd_Command_String[32]; void set_current_kbd_command (char *s) { strncpy (Current_Kbd_Command_String, s, 31); Current_Kbd_Command_String[31] = 0; } static int key_interpret(SLang_Key_Type *key) { char *rtc_save; char *str; int ret; static int macro_depth; strcpy (Last_Kbd_Command_String, Current_Kbd_Command_String); if (key->type == SLKEY_F_INTRINSIC) { set_current_kbd_command (Jed_Key_Buffer); Current_Kbd_Command_String[31] = 0; ret = (int) ((int (*)(void)) key->f)(); } else { str = (char *) key->f; set_current_kbd_command (str); if (*str == ' ') { /* string to insert */ insert_string(str + 1); } else if ((*str == '@') && (0 != *(str + 1))) { int repeat; if (Repeat_Factor != NULL) { repeat = *Repeat_Factor; Repeat_Factor = NULL; } else repeat = 1; if (macro_depth > 10) { macro_depth = 0; msg_error ("Possible runaway macro aborted."); return 1; } macro_depth++; rtc_save = Read_This_Character; while (repeat-- > 0) { Read_This_Character = str + 1; do { do_key(); } while ((Read_This_Character != NULL) && (SLKeyBoard_Quit == 0) && (SLang_Error == 0)); if (SLKeyBoard_Quit || SLang_Error) break; } Read_This_Character = rtc_save; macro_depth--; } else if ((*str == '.') || !SLang_execute_function(str)) SLang_load_string(str); ret = 1; } Last_Key_Function = key->f; return(ret); } static void update_jed_keybuffer (void) { Last_Key_Buffer_Len = (int) (Key_Bufferp - Key_Buffer); if (Last_Key_Buffer_Len == 1) { *Jed_Key_Buffer = *Key_Buffer; *(Jed_Key_Buffer + 1) = 0; } else { *Key_Bufferp = 0; strcpy (Jed_Key_Buffer, Key_Buffer); } Key_Bufferp = Key_Buffer; } #define XKEY(key) key_interpret((key)) int do_key (void) { SLang_Key_Type *key; int repeat; if (SLang_Key_TimeOut_Flag == 0) { Key_Bufferp = Key_Buffer; *Key_Bufferp = 0; } key = SLang_do_key (CBuf->keymap, jed_getkey); update_jed_keybuffer (); if ((key != NULL) && (key->f != NULL)) { if (Repeat_Factor == NULL) return XKEY(key); repeat = *Repeat_Factor; Suspend_Screen_Update = 1; /* some routines may use the repeat factor as a prefix argument */ while (repeat-- > 0) { if (SLKeyBoard_Quit || SLang_Error || (Repeat_Factor == NULL)) break; /* (!Executing_Keyboard_Macro && (Repeat_Factor == NULL))) break; */ XKEY(key); } Repeat_Factor = NULL; return(1); } else if (!Executing_Keyboard_Macro && !SLKeyBoard_Quit) { beep (); flush_input(); } if (SLKeyBoard_Quit) kbd_quit(); return(0); } void do_jed(void) { char *name; Buffer *tthis = CBuf; /* Mark Undo boundary now because tthis might not be valid later */ mark_undo_boundary(tthis); Repeat_Factor = NULL; if (do_key()) JWindow->trashed = 1; /* internal editing commands may have selected a different buffer so put it back. */ if (CBuf != JWindow->buffer) { if (buffer_exists(JWindow->buffer)) name = JWindow->buffer->name; else name = "*scratch*"; switch_to_buffer_cmd(name); } } void jed(void) { /* This routine is called from main. So before actually strting, check one more hook to just to make sure all things are go. */ char *startup = ".()jed_startup_hook"; if (2 == SLang_is_defined(startup + 3)) { SLang_run_hooks(startup + 3, NULL, NULL); /* remove its definition from memory */ SLang_load_string (startup); } Jump_Buffer_Ptr = &Jump_Buffer; if (setjmp(Jump_Buffer.b) != 0) { SLang_restart(1); /* just in case */ } if (CBuf != JWindow->buffer) { switch_to_buffer(JWindow->buffer); window_buffer(CBuf); } JWindow->trashed = 1; update((Line *) NULL, 0, 0); Read_This_Character = NULL; while(1) { Suspend_Screen_Update = 0; do_jed(); if (!SLKeyBoard_Quit && (CBuf->flags & BUFFER_TRASHED) && (!Cursor_Motion)) CBuf->hits += 1; if (CBuf->hits > User_Vars.max_hits) { auto_save_buffer(CBuf); check_buffers(); /* check files on disk to see if they are recent */ } if ((Last_Key_Function != (VOID *) ins_char_cmd) || (JWindow->trashed) || (JWindow != JWindow->next) || Suspend_Screen_Update || (Mini_Ghost) || (*Message_Buffer) || (*Error_Buffer)) { update((Line *) NULL, 0, 0); } } } int digit_arg(void) { static int repeat; char buf[20]; int key; int i; i = 0; buf[i++] = (char) SLang_Last_Key_Char; /* After do_key (what called this), Key_Bufferp is reset. However, I want * to keep it for echoing subsequent characters. I restore its previous * value so that echoing will continue. */ Key_Bufferp = Key_Buffer + Last_Key_Buffer_Len; SLang_Key_TimeOut_Flag = 1; while(1) { buf[i] = 0; key = jed_getkey(); if ((key < '0') || (key > '9')) break; buf[i++] = (char) key; } repeat = atoi(buf); Repeat_Factor = &repeat; if (Executing_Keyboard_Macro) Macro_Buffer_Ptr--; else { ungetkey (&key); if (Defining_Keyboard_Macro) Macro_Buffer_Ptr--; } if (Key_Bufferp != Key_Buffer) Key_Bufferp--; /* Key_Timeout is still active and is only reset after this call. */ do_key(); return(1); } int which_key (char *f) { int num = 0, i; SLang_Key_Type *key, *key_root; VOID *fp; unsigned char type; unsigned char buf[5]; if (NULL == (fp = (VOID *) SLang_find_key_function(f, CBuf->keymap))) type = SLKEY_F_INTERPRET; else type = SLKEY_F_INTRINSIC; i = 256; key_root = CBuf->keymap->keymap; while (i--) { key = key_root->next; if ((key == NULL) && (type == key_root->type) && (((type == SLKEY_F_INTERPRET) && (!strcmp((char *) f, (char *) key_root->f))) || ((type == SLKEY_F_INTRINSIC) && (fp == key_root->f)))) { *buf = 2; *(buf + 1) = 256 - 1 - i; SLang_push_string(SLang_make_keystring(buf)); num++; } while (key != NULL) { if ((key->type == type) && (((type == SLKEY_F_INTERPRET) && (!strcmp((char *) f, (char *) key->f))) || ((type == SLKEY_F_INTRINSIC) && (fp == key->f)))) { SLang_push_string(SLang_make_keystring(key->str)); num++; } key = key->next; } key_root++; } return(num); } static char *find_function_string (VOID *f) { SLKeymap_Function_Type *fp; fp = Jed_Functions; if (f == (VOID *) ins_char_cmd) return "self_insert_cmd"; while((fp != NULL) && (fp->name != NULL)) { if ((VOID *) fp->f == f) return fp->name; fp++; } return NULL; } static void dump_this_binding (unsigned char *s, VOID *f, int type) { unsigned char ch; char *str, ctrl[2]; char *fun; int n, len; ctrl[0] = '^'; len = *s++ - 1;; while (len-- > 0) { n = 1; ch = *s++; if (ch == 127) { str = "DEL"; n = 3; } else if (ch > ' ') str = (char *) &ch; else if (ch == 27) { str = "ESC"; n = 3; } else if (ch == ' ') { str = "SPACE"; n = 5; } else if (ch == '\t') { str = "TAB"; n = 3; } else { str = ctrl; *(str + 1) = ch + '@'; n = 2; } quick_insert((unsigned char *) str, n); ins(' '); } ins_char_n_times('\t', 3); if (type == SLKEY_F_INTRINSIC) { fun = find_function_string (f); } else fun = (char *) f; insert_string (fun); newline(); } void dump_bindings(char *map) { int i; SLang_Key_Type *next, *key_root; SLKeyMap_List_Type *kml; if (NULL == (kml = SLang_find_keymap(map))) { msg_error("Keymap undefined."); return; } key_root = kml->keymap; for (i = 0; i < 256; i++) { next = key_root->next; if (next != NULL) { while (next != NULL) { dump_this_binding (next->str, next->f, next->type); next = next->next; } } else if (key_root->f != NULL) dump_this_binding (key_root->str, key_root->f, key_root->type); key_root++; } } char *find_key(int *ret) { char *fstr = NULL; SLang_Key_Type *key; *ret = 0; SLang_Key_TimeOut_Flag = 0; Key_Bufferp = Key_Buffer; key = SLang_do_key (CBuf->keymap, jed_getkey); update_jed_keybuffer (); if (key == NULL) return(NULL); if (key->type == SLKEY_F_INTRINSIC) { *ret = 1; fstr = find_function_string (key->f); } else fstr = (char *) key->f; return(fstr); } void use_keymap(char *name) { SLKeyMap_List_Type *map; if (NULL == (map = SLang_find_keymap(name))) { msg_error("Unknown keymap."); } else (CBuf->keymap = map); } char *what_keymap() { return CBuf->keymap->name; } void set_abort_char(int *c) { char str[2]; int i; #ifdef pc_system char ch, *s, *scan = "@#$%^&*()_+?IQWERTYUIOP[]!!ASDFGHJKL!!!!\\ZXCVBNM"; ch = 64 + (char) *c; s = scan; while (*s && (*s != ch)) s++; if (*s == 0) return; Abort_Char = (int) (s - scan) + 0x03; #else Abort_Char = *c; #endif reset_tty(); init_tty(); str[0] = *c; str[1] = 0; for (i = 0; i < SLANG_MAX_KEYMAPS; i++) { if (SLKeyMap_List[i].keymap == NULL) continue; SLang_undefine_key(str, &SLKeyMap_List[i]); SLang_define_key1(str, (VOID *) kbd_quit, SLKEY_F_INTRINSIC, &SLKeyMap_List[i]); } } static SLKeymap_Function_Type *Flist_Context; static int Flist_Context_Len; #define MAX_USER_FLIST 100 static char *Slang_Functions[MAX_USER_FLIST]; static char **Slang_Flist_Context; int next_function_list(char *buf) { SLKeymap_Function_Type *tthis = Jed_Functions; register char *name; char **max; /* Convert '-' to '_' */ name = buf; while (*name != 0) { if (*name == '-') *name = '_'; name++; } while (1) { tthis = Flist_Context; name = tthis->name; if (name == NULL) break; Flist_Context++; if (!Flist_Context_Len || !strncmp(buf, name, Flist_Context_Len)) { strcpy(buf, name); return(1); } } max = Slang_Functions + MAX_USER_FLIST; while (Slang_Flist_Context < max) { name = *Slang_Flist_Context; if (name == NULL) return(0); name++; /* skip past hash mark */ Slang_Flist_Context++; if (!Flist_Context_Len || !strncmp(buf, name, Flist_Context_Len)) { strcpy(buf, name); return(1); } } return(0); } int open_function_list(char *buf) { Flist_Context = Jed_Functions; Slang_Flist_Context = Slang_Functions; Flist_Context_Len = strlen(buf); return next_function_list(buf); } void add_to_completion(char *name) { char **p, *n; static char **last = Slang_Functions; n = SLang_find_name(name); if (n == NULL) { msg_error("Undefined Symbol."); return; } p = last; /* Slang_Functions; */ while (p < Slang_Functions + MAX_USER_FLIST) { if (*p == NULL) { *p = n; last = ++p; return; } p++; } msg_error("Completion Quota Exceeded."); } int is_internal(char *f) { if (NULL == SLang_find_key_function(f, CBuf->keymap)) return(0); return 1; } void create_keymap (char *name) { if (NULL == SLang_create_keymap (name, Global_Map)) { msg_error ("Unable to create keymap."); } } ."); return; } p = last; /* Slang_Functions; */ while (p < Slang_Functions + MAX_USER_FLIST) { if (*p == NULL) { *p = n; last = ++p; return; } p++; } msg_error("Completion Quota Exceeded."); } int is_internal(char *f) { if (NULL == SLang_find_key_function(f, CBuf->keymap)) return(0); return 1; } void create_keymap (char *name) { if (NULL == SLang_create_keymap (name, Global_Map)) { msg_error ("Unable to jed-0.97.12/src/keymap.h000064400000000000003000000036320603742313100145210ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #ifndef _JED_KEYMAP_H_ #define _JED_KEYMAP_H_ /* Jed Keymap routines. The main problem here is how to associate a sequence of characters to a given function in as fast a way as possible. In addition, I require that the procedure be memory efficient as well as allowing the user the flexability to redefine the keys and add new keymaps. To do this, I define a key map to be an array of keys. There may be many keymaps (global, local, etc...). A key structure is defined */ #ifdef HAS_MOUSE typedef struct { int x, y; /* row column of mouse event */ int time; /* time since last event */ int button; /* button that triggered event */ int state; /* button info BEFORE event */ int type; /* type of event. 1 is press 0 release */ } JMouse_Type; extern JMouse_Type JMouse; #endif extern SLKeyMap_List_Type *Global_Map, *Mini_Map; extern void init_keymaps(void); extern int digit_arg(void); extern void do_jed(void); extern void jed(void); extern int do_key(void); extern int kbd_quit(void); extern VOID *Last_Key_Function; extern int *Repeat_Factor; extern char *find_key(int *); extern char *what_keymap(void); extern int which_key(char *); extern void use_keymap(char *); extern void set_abort_char(int *); extern int next_function_list(char *); extern int open_function_list(char *); extern char *Read_This_Character; /* alternate keyboard buffer */ extern void add_to_completion(char *); extern int is_internal(char *); extern void dump_bindings (char *); extern void create_keymap (char *); extern char Key_Buffer[13]; extern char Jed_Key_Buffer[13]; extern char *Key_Bufferp; extern int beep (void); extern void set_current_kbd_command (char *); extern char Current_Kbd_Command_String[32]; extern char Last_Kbd_Command_String[32]; #endif har *); extern int open_function_list(char *); extern char *Read_This_Character; /* alternate kejed-0.97.12/src/ledit.c000064400000000000003000001136140603742313100143310ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #ifdef pc_system # include #endif #ifdef MSWINDOWS # ifndef __WIN32__ # include # else # include # endif #endif #include "buffer.h" #include "keymap.h" #include "file.h" #include "ins.h" #include "ledit.h" #include "screen.h" #include "window.h" #include "display.h" #include "search.h" #include "misc.h" #include "replace.h" #include "paste.h" #include "sysdep.h" #include "cmds.h" #include "text.h" #include "slang.h" #include "hooks.h" #define JED_PROMPT "Command:" #ifdef HAS_SUBPROCESSES #include "jprocess.h" #endif Buffer *MiniBuffer; Buffer *Last_Buffer; char *Token_Pointer; Buffer *The_MiniBuffer; /* this never gets deleted since we may need it */ Window_Type *The_MiniWindow; extern char *get_cwd(void); int Ignore_Beep = 0; int MiniBuffer_Active = 0; User_Variable_Type User_Vars = { 78, /* wrap-column */ 8, /* tabs */ 3, /* c_indent */ 2, /* c_brace */ 300, /* max_hits */ }; #ifdef pc_system char Jed_Library[256]; #else char Jed_Library[1024]; #endif int (*complete_open)(char *); int (*complete_next)(char *); static int Buf_List_Len; Buffer *Buf_Context; static char *Expect_File_Error = "Expecting filename."; static char *Keymap_Error = "Unknown_Keymap"; /* read doc file */ int get_doc_string(char *f, char *file) { char *buf, *b, *f1; VFILE *fp; int ret = 0; unsigned int n; char nline = 1; /* ascii value of line term (^A) */ if (*f == 0) return(0); if ((fp = vopen(file, 1024, VFILE_TEXT)) == NULL) return(0); while ((buf = vgets(fp, &n)) != NULL) { f1 = f; b = buf; while (*f1 && (*f1 == *b)) f1++, b++; if (*f1) continue; b = buf; b[n - 1] = 0; while (*b) { if (*b == nline) *b = '\n'; b++; } SLang_push_string(buf + 1); /* lose the prefix */ ret = 1; break; } vclose(fp); return(ret); } static int next_bufflist(char *buf) { Buffer *tthis; while (1) { tthis = Buf_Context; if (tthis == MiniBuffer) return(0); Buf_Context = Buf_Context->next; #ifdef __os2__ if (!Buf_List_Len || !strncmpi(buf, tthis->name, Buf_List_Len)) #else if (!Buf_List_Len || !strncmp(buf, tthis->name, Buf_List_Len)) #endif { if (*tthis->name == ' ') continue; /* internal buffers */ strcpy(buf, tthis->name); return(1); } } } static int open_bufflist(char *buf) { if ((Buf_Context = MiniBuffer) == NULL) return(0); Buf_Context = Buf_Context->next; Buf_List_Len = strlen(buf); return next_bufflist(buf); } char *what_buffer() { return (CBuf->name); } int bufferp(char *name) { if (NULL == find_buffer(name)) return(0); else return(1); } int insert_buffer_name(char *name) { Buffer *buf; if (NULL != (buf = find_buffer(name))) { insert_buffer(buf); return(1); } else msg_error("Unable to find buffer."); return(0); } int replace_cmd(char *old, char *neew) { int n = 0; CHECK_READ_ONLY push_spot (); if (search(old, 1, 0)) while(replace_next(old, neew)) n++; pop_spot(); return n; } static Buffer *find_scratch_buffer (void) { char *sname = "*scratch*"; Buffer *scratch; scratch = find_buffer (sname); if (NULL == scratch) { scratch = make_buffer(); strcpy(scratch->name, sname); strcpy(scratch->dir, CBuf->dir); *scratch->file = 0; } return scratch; } /* Try to find any other buffer but kill_buf such that the buffer is not * visible, not scratch and not buried. */ static Buffer *find_non_visible_buffer (Buffer *kill_buf) { Buffer *buf, *scratch; buf = kill_buf->next; scratch = find_scratch_buffer (); while ((buf != kill_buf) && ((*buf->name == ' ') || (buf->flags & BURIED_BUFFER) || (buf == scratch) || (buffer_visible(buf)))) { buf = buf->next; } if (buf == kill_buf) buf = scratch; return buf; } int kill_buffer_cmd(char *name) { Buffer *this_buf, *kill_buf, *scratch, *buf; Window_Type *w; int kill; if (NULL == (kill_buf = find_buffer(name))) { msg_error("Buffer does not exist."); return(0); } this_buf = CBuf; switch_to_buffer(kill_buf); #ifdef HAS_SUBPROCESSES if (kill_buf->locked) { erase_buffer (); switch_to_buffer (this_buf); return 0; } #endif kill = 1; if ((*name != ' ') && (kill_buf->flags & BUFFER_TRASHED)) { char msgbuf[256]; sprintf (msgbuf,"Buffer %s modified. Kill, Save First, Abort: [KSA]", name); flush_message(msgbuf); /* This does not go through keyboard macro routines on purpose! */ switch (my_getkey()) { case 'k': case 'K': kill = 1; break; case 's': case 'S': kill = 2; break; default: msg_error("Aborted."); return(0); } message(""); } if (kill == 2) { write_buffer(); if (SLang_Error) { switch_to_buffer(this_buf); return(0); } } /* if it is the scratch buffer, just erase it since we are going to recreate it anyway. */ scratch = find_scratch_buffer (); if (kill_buf == scratch) { erase_buffer(); switch_to_buffer(this_buf); return 1; } /* find a buffer to replace this one with if it is in a window */ if (buffer_visible(kill_buf)) { buf = find_non_visible_buffer (kill_buf); /* search through windows looking for the buffer and replace it */ w = JWindow; do { if (kill_buf == JWindow->buffer) { touch_window_hard (JWindow, 0); window_buffer(buf); /* I should choose a different one every time */ } JWindow = JWindow->next; } while (w != JWindow); } else buf = scratch; if (kill_buf == Last_Buffer) Last_Buffer = NULL; if (kill_buf == this_buf) this_buf = buf; switch_to_buffer(this_buf); delete_buffer(kill_buf); return(1); } int write_buffer_cmd(char *filestr) { #ifdef VMS char *ff; #endif char dir[256], *f, file[256]; char msgstr[132]; int n; #ifdef unix #ifndef __GO32__ f = expand_link(filestr); #else f = expand_filename(filestr); #endif #else f = expand_filename(filestr); #endif strncpy(file, f, 255); file[255] = 0; f = extract_file(file); if ((*f == 0) && (*CBuf->file == 0)) { msg_error("Filename Required."); return(0); } n = (int) (f - file); MEMCPY((char *) dir, (char *) file, n); dir[n] = 0; if (*f == 0) f = CBuf->file; n = write_file_with_backup(dir, f); if (n >= 0) { #ifdef VMS ff = f; while (*ff) if (*ff == ';') *ff = 0; else ff++; #endif sprintf(msgstr,"Wrote %d lines to %s%s", n, dir, f); message(msgstr); CBuf->flags &= ~BUFFER_TRASHED; CBuf->flags |= AUTO_SAVE_BUFFER; CBuf->hits = 0; visit_file(dir, f); return(1); } else { sprintf(msgstr,"Error writing file %s%s", dir, f); msg_error(msgstr); return(0); } } #if defined(msdos) && !defined(__WATCOMC__) && !defined(MSWINDOWS) int show_memory() { struct farheapinfo hi; char buf[132]; char *c; unsigned long total = 0, core, used = 0; unsigned long max = 0; int i = 0; hi.ptr = NULL; if (farheapcheck() == _HEAPCORRUPT) c = "corrupt"; else c = "ok"; while (farheapwalk(&hi) == _HEAPOK) { if (hi.in_use) used += hi.size; else { total += hi.size; if (hi.size > max) max = hi.size; i++; } } core = farcoreleft(); sprintf(buf, "used:%lu, core:%lu, free:%lu, grand:%lu, max:%lu, frag:%d (%s)", used, core, total, core + total, max, i, c); message(buf); return (0); } #endif #ifdef MSWINDOWS int show_memory (void) { char buf[132]; #ifndef __WIN32__ MEMMANINFO mmi; if (MemManInfo(&mmi)) { sprintf(buf, "tot pages: %lu, free pages: %lu", mmi.dwTotalLinearSpace, mmi.dwFreeLinearSpace); message(buf); } #else MEMORYSTATUS mst; GlobalMemoryStatus(&mst); sprintf(buf, "avail space: %lu, tot phys space: %lu, avail phys space: %lu", mst.dwAvailPhys + mst.dwAvailPageFile, mst.dwTotalPhys, mst.dwAvailPhys); message(buf); #endif return 0; } #endif #ifdef __WATCOMC__ #include int show_memory() { char buf[132]; sprintf(buf, "avail mem: %lu, tot phys pgs: ???, free lin space: %lu", _memavl (), _memmax ()); message(buf); return (0); } #endif #ifdef __GO32__ #include int show_memory() { char buf[132]; unsigned long mem; _go32_dpmi_meminfo info; _go32_dpmi_get_free_memory_information(&info); if (info.available_physical_pages != -1) mem = info.available_physical_pages * 4096; else mem = info.available_memory; sprintf(buf, "avail mem: %lu, tot phys pgs: %lu, free lin space: %lu", mem, info.total_physical_pages, info.free_linear_space); message(buf); return (0); } #endif int set_buffer(char *name) { Buffer *buf; if ((name == NULL) || (*name == 0)) { msg_error("set_buffer: Buffer name is NULL"); return (0); } /* Last_Buffer = CBuf; */ if (NULL == (buf = find_buffer(name))) { buf = make_buffer(); strcpy(buf->dir, CBuf->dir); *buf->file = 0; switch_to_buffer(buf); uniquely_name_buffer(name); } else switch_to_buffer(buf); return(1); } int get_yes_no(char *question) { char buf[256], *tmp; int n; strncpy(buf, question, 240); buf[240] = 0; strcat(buf, "? (yes or no)"); while(1) { if (NULL == (tmp = read_from_minibuffer(buf, 0, NULL, &n))) return(-1); if (!strcmp(tmp, "yes")) { SLFREE(tmp); return(1); } if (!strcmp(tmp, "no")) { SLFREE(tmp); return(0); } msg_error("yes or no!"); SLFREE(tmp); } } int find_file_cmd(char *filestr) /* filestr is const ! */ { char *f, *file, filebuf[256]; char msgstr[132]; Buffer *buf; int n; #ifdef unix #ifndef __GO32__ file = expand_link(filestr); #else file = expand_filename(filestr); #endif #else file = expand_filename(filestr); #endif safe_strcpy(filebuf, file, sizeof (filebuf)); file = filebuf; f = extract_file(file); if ((*file == 0) || (*f == 0)) { msg_error(Expect_File_Error); return(0); } /* search for the file in current buffer list */ if (NULL != (buf = find_file_buffer(file))) { if (file_changed_on_disk(file)) { if (get_yes_no("File changed on disk. Read From Disk")) { if (*Error_Buffer) return(1); n = (int) buf->linenum; buf->flags &= ~BUFFER_TRASHED; kill_buffer_cmd(buf->name); find_file_cmd(file); goto_line(&n); return(1); } } switch_to_buffer (buf); return(1); } buf = make_buffer(); switch_to_buffer(buf); buffer_filename(file, NULL); n = read_file(file); CLine = CBuf->beg; Point = 0; LineNum = 1; if (CLine == NULL) make_line(25); set_file_modes(); CBuf->flags |= UNDO_ENABLED; switch(n) { case -2: msg_error("File not readable."); break; default: if (Batch == 2) break; if (*Message_Buffer) break; /* autosave warning? */ if (n == -1) message("New file."); else { sprintf(msgstr,"%d lines read", n); message(msgstr); } } SLang_run_hooks("find_file_hook", file, NULL); return(1); } int find_file_in_window(char *file) { int ret; Buffer *b = CBuf; ret = find_file_cmd(file); if ((b != CBuf) && (*CBuf->name != ' ')) Last_Buffer = CBuf; window_buffer(CBuf); return(ret); } void set_mode_cmd(char *mode, int *flags) { char *m = CBuf->mode_str; CBuf->modes = *flags; strncpy((char *) m, (char *) mode, 12); m[12] = 0; } /* create a minibuffer with window and switch to it. */ static void create_minibuffer(void) { Window_Type *w; MiniBuffer = The_MiniBuffer; /* I want to make Mini_Window->next = Current Window so that scroll other window routines will scroll it. */ w = JWindow; do other_window(); while (JWindow->next != w); JWindow->next = The_MiniWindow; The_MiniWindow->next = w; The_MiniWindow->column = 1; Mini_Info.action_window = w; other_window(); /* now in minibuffer window */ window_buffer(MiniBuffer); switch_to_buffer(MiniBuffer); MiniBuffer_Active = 1; erase_buffer (); /* allow kill region to kill to beginning of minibuffer. * Suggested by stefen@uni-paderborn.de */ push_mark (); } char *Completion_Buffer = "*Completions*"; static char *Last_Completion_Buffer; static int Last_Completion_Windows; /* evaluate command in minibuffer and leave */ int exit_minibuffer() { if (IS_MINIBUFFER) { if (Last_Completion_Buffer != NULL) { pop_to_buffer (Completion_Buffer); CBuf->flags &= ~BUFFER_TRASHED; switch_to_buffer_cmd (Last_Completion_Buffer); kill_buffer_cmd (Completion_Buffer); touch_window_hard (JWindow, 0); if (Last_Completion_Windows == 1) one_window (); } select_minibuffer (); Exit_From_MiniBuffer = 1; } Last_Completion_Buffer = NULL; return(0); } /* return 1 if minibuffer already exists otherwise returns 0 */ int select_minibuffer() { Window_Type *w; /* Try to find active minibuffer and go there */ w = JWindow; while (MiniBuffer != NULL) { if (JWindow->top == *tt_Screen_Rows) return(1); other_window(); if (w == JWindow) exit_error("Internal Error: no window!", 1); } /* switchs to minibuffer too */ create_minibuffer(); return(0); } /* if cmd != NULL, insert it into minibuffer and then send the result to the appropriate routine. */ static int ledit(void) { int n; char *tmp; if (MiniBuffer == NULL) complete_open = NULL; if (NULL == (tmp = read_from_minibuffer(JED_PROMPT, 0, NULL, &n))) return(0); SLang_Error = 0; Suspend_Screen_Update = 1; SLang_load_string(tmp); SLFREE(tmp); if ((SLang_Error == -1) && SLKeyBoard_Quit) { msg_error("Quit!"); } SLang_Error = 0; return(1); } static char *read_file_from_minibuffer(char *prompt, char *def) { int n; char buf[256]; complete_open = sys_findfirst; complete_next = sys_findnext; if (*CBuf->dir == 0) strcpy(CBuf->dir, get_cwd()); strcpy(buf, CBuf->dir); return read_from_minibuffer(prompt, def, buf, &n); } static char *String_Completion_Str; static char *String_Completion_Str_Next; static int String_Completion_Str_Len; static int next_string_list (char *buf) { register char *s = String_Completion_Str_Next; int len; while (*s) { while (*s && (*s != ',')) s++; len = (int) (s - String_Completion_Str_Next); if (*s == ',') s++; if (!len || strncmp (buf, String_Completion_Str_Next, String_Completion_Str_Len)) { String_Completion_Str_Next = s; continue; } if (len > 255) len = 255; strncpy (buf, String_Completion_Str_Next, len); buf[len] = 0; String_Completion_Str_Next = s; return 1; } String_Completion_Str_Next = s; return 0; } static int open_string_list (char *buf) { String_Completion_Str_Next = String_Completion_Str; String_Completion_Str_Len = strlen (buf); return next_string_list (buf); } void read_object_with_completion(char *prompt, char *dflt, char *stuff, int *typep) { int type = *typep, n; char buf[256], *tmp; char *str = NULL; int dofree = 0; *buf = 0; if (type == 'f') /* file */ { complete_open = sys_findfirst; complete_next = sys_findnext; if (*CBuf->dir == 0) strcpy(CBuf->dir, get_cwd()); strcpy(buf, CBuf->dir); } else if (type == 'b') /* buffer */ { complete_open = open_bufflist; complete_next = next_bufflist; } else if (type == 'F') /* function */ { complete_open = open_function_list; complete_next = next_function_list; } else if (type == 's') { complete_open = open_string_list; complete_next = next_string_list; if (SLang_pop_string (&str, &dofree)) return; String_Completion_Str = str; } else { complete_open = NULL; } strcat (buf, stuff); if (NULL != (tmp = read_from_minibuffer(prompt, dflt, buf, &n))) { if (type == 'f') SLang_push_string(expand_filename(tmp)); else SLang_push_string(tmp); SLFREE(tmp); if (dofree) SLFREE (str); } } int insert_file_cmd() { char *filebuf, *f, *file; CHECK_READ_ONLY if (NULL == (filebuf = read_file_from_minibuffer("Insert file:", NULL))) return(0); file = expand_filename(filebuf); SLFREE (filebuf); f = extract_file(file); if ((*file == 0) || (*f == 0)) { msg_error(Expect_File_Error); return(1); } if (insert_file(file) < 0) msg_error("Error inserting file."); return(1); } int find_file() { char *tmp; if (NULL == (tmp = read_file_from_minibuffer("Find file:", (char *) NULL))) return(0); find_file_in_window(tmp); SLFREE(tmp); return(0); } int write_buffer() { char *tmp; if (NULL == (tmp = read_file_from_minibuffer("Write to file:", (char *) NULL))) return(0); write_buffer_cmd(tmp); SLFREE(tmp); return(1); } void switch_to_buffer_cmd(char *name) { Buffer *tthis = CBuf; set_buffer(name); window_buffer(CBuf); if ((CBuf != tthis) && (*CBuf->name != ' ')) Last_Buffer = tthis; } static void get_last_buffer(void) { if ((Last_Buffer == CBuf) || (Last_Buffer == NULL) || (*Last_Buffer->name == ' ') || (Last_Buffer->flags & BURIED_BUFFER)) { Last_Buffer = find_non_visible_buffer (CBuf); } } int get_buffer() { char *tmp; int n; complete_open = open_bufflist; complete_next = next_bufflist; get_last_buffer (); if (NULL == (tmp = read_from_minibuffer("Switch to buffer:", Last_Buffer->name, NULL, &n))) return(0); switch_to_buffer_cmd(tmp); SLFREE(tmp); return(1); } int kill_buffer (void) { char *tmp; int n; complete_open = open_bufflist; complete_next = next_bufflist; tmp = read_from_minibuffer("Kill buffer:", (char *) CBuf->name, NULL, &n); if (tmp != NULL) { #ifdef HAS_SUBPROCESSES Buffer *b = find_buffer(tmp); if (b->subprocess) { if (0 == get_yes_no("Buffer has a subprocess attached. Continue")) return 0; } #endif kill_buffer_cmd(tmp); SLFREE(tmp); return(1); } return 0; } int evaluate_cmd() { return(!ledit()); } void insert_string(char *s) { CHECK_READ_ONLY_VOID ins_chars((unsigned char *) s, strlen(s)); } /* This is weird, Ultrix cc will not compile if set_key comes before unset_key */ void unset_key(char *key) { SLang_undefine_key(key, Global_Map); } void set_key(char *function, char *key) { SLang_define_key(key, function, Global_Map); } void unset_key_in_keymap(char *key, char *map) { SLKeyMap_List_Type *kmap; if (NULL == (kmap = SLang_find_keymap(map))) { msg_error(Keymap_Error); return; } SLang_undefine_key(key, kmap); } int keymap_p(char *name) { return ! (NULL == SLang_find_keymap(name)); } void set_key_in_keymap(char *f, char *key, char *map) { SLKeyMap_List_Type *kmap; if (NULL == (kmap = SLang_find_keymap(map))) { msg_error(Keymap_Error); return; } SLang_define_key(key, f, kmap); } char *pop_to_buffer(char *name) { Window_Type *w, *action, *use_this; char *bname; Line *line, *oldline; int p, oldp, lnum, oldlnum; Buffer *b, *oldb; if (!strcmp(name, " ")) { select_minibuffer (); return CBuf->name; } /* save position so we can pop back to it if buffer already exists in window */ oldb = CBuf; oldline = CLine; oldp = Point; oldlnum = LineNum; set_buffer(name); line = CLine; p = Point; lnum = LineNum; use_this = NULL; if (MiniBuffer != NULL) { action = Mini_Info.action_window; } else action = NULL; w = JWindow; /* find a window to use */ do { if (w->top != *tt_Screen_Rows) { if (action != NULL) { if (w != action) use_this = w; } else if (w != JWindow) use_this = w; if (w->buffer == CBuf) { use_this = w; break; } } w = w->next; } while (w != JWindow); b = CBuf; if (use_this != NULL) { while(JWindow != use_this) other_window(); /* This is a good reason for haveing otherwindow avoid switching buffers */ if (CBuf == oldb) { CLine = oldline; Point = oldp; LineNum = oldlnum; } } else { if (action != NULL) while(JWindow != action) other_window(); split_window(); /* * doing it this way makes screen update look better */ w = JWindow; do { other_window(); } while (JWindow->buffer != w->buffer); JWindow->column = 1; } bname = CBuf->name; switch_to_buffer(b); b->line = CLine = line; b->point = Point = p; b->linenum = LineNum = lnum; if (b != JWindow->buffer) window_buffer(b); return bname; } /* return number of windows */ int num_windows() { Window_Type *w; int i = 0; w = JWindow->next; while (i++, w != JWindow) w = w->next; return(i); } /* I need to make this take another parameter which indicates what to do * with the cursor rather than sticking it at the end. Call the parameter p. * Then try: * if (p <= 0) p = strlen(Message_Buffer) + 1; * tt_goto_rc(Screen_Height, p); */ void flush_message(char *m) { message(m); if ((JScreen[0].old == NULL) || Batch) return; do_dialog(Message_Buffer); tt_goto_rc(*tt_Screen_Rows - 1, strlen(Message_Buffer)); *Message_Buffer = 0; JWindow->trashed = 1; flush_output (); } #if defined (unix) || defined (__os2__) # if defined (__BORLANDC__) || defined (_MSC_VER) # define popen _popen # define pclose _pclose # endif #ifndef __GO32__ static char *Process_Error = "Unable to open process."; int shell_command(char *cmd) { FILE *pp; VFILE *vp; if (Jed_Secure_Mode) { msg_error ("Access denied."); return -1; } if (NULL == (pp = popen(cmd, "r"))) { msg_error(Process_Error); return -1; } if (NULL != (vp = vstream(fileno(pp), 0, VFILE_BINARY))) { (void) insert_file_pointer(vp); if (vp->buf != NULL) SLFREE(vp->buf); SLFREE(vp); } else msg_error("Malloc Error."); return pclose(pp); } int pipe_region(char *cmd) { FILE *pp; int n; if (Jed_Secure_Mode) { msg_error ("Access denied."); return -1; } if (NULL == (pp = popen(cmd, "w"))) { msg_error(Process_Error); return(0); } n = write_region_to_fp(fileno(pp)); pclose(pp); return(n); } #endif #endif /* called by SLang_load_file Try to open a .slc then a .sl */ #ifdef msdos #define VFILE_BUF_SIZE 1024 #else #define VFILE_BUF_SIZE 4096 #endif static VFILE *jed_open_lib_file(char *file) { char *lib = Jed_Library, libfsl[256], libfslc[256], *libp, buff[256], *type, *libf; int n, comma = ','; VFILE *vp; #ifdef VMS int vmsn; #endif if (*file == '.') lib = ""; else if (*lib == 0) { exit_error("JED_ROOT environment variable needs set.", 0); } n = 0; type = file_type(file); while (1) { libp = SLang_extract_list_element(lib, &n, &comma); n++; safe_strcpy(libfsl, libp, sizeof (libfsl)); fixup_dir(libfsl); safe_strcat(libfsl, file, sizeof (libfsl)); strcpy(libfsl, expand_filename(libfsl)); if (*type == 0) { #ifdef VMS /* remove trailing '.' */ if (0 != (vmsn = strlen(libfsl))) { vmsn--; if (libfsl[vmsn] == '.') libfsl[vmsn] = 0; } #endif strcat(libfsl, ".sl"); strcpy(libfslc, libfsl); strcat(libfslc, "c"); if (file_time_cmp(libfslc, libfsl) > 0) libf = libfslc; else libf = libfsl; } else libf = libfsl; vp = vopen(libf, VFILE_BUF_SIZE, VFILE_TEXT); if ((vp != NULL) || (*libp == 0)) break; } if (Batch != 2) { sprintf(buff, "loading %s", libf); flush_message(buff); } return (vp); } static int jed_close_object(SLang_Load_Type *x) { switch (x->type) { case 'F': /* File */ vclose((VFILE *) x->handle); return (1); default: return SL_OBJ_UNKNOWN; } } static char *jed_read_from_file(SLang_Load_Type *x) { char *s; unsigned int n; if ((s = vgets((VFILE *) x->handle, &n)) != NULL) { if (s[n - 1] != '\n') s[n] = 0; } return (x->buf = s); } static char *jed_read_from_buffer(SLang_Load_Type *x) { int n; Line *l = (Line *) x->handle; char *buf = x->buf; if (l == NULL) return (NULL); n = l->len; if (n > 255) n = 255; MEMCPY(buf, (char *) l->data, n); buf[n] = 0; x->handle = (long) l->next; return(buf); } /* returns 0 if successful */ static int jed_open_object(SLang_Load_Type *x) { switch (x->type) { case 'F': /* File */ x->read = jed_read_from_file; if (0 == (x->handle = (long) jed_open_lib_file((char *) x->name))) { return (SL_OBJ_NOPEN); } x->buf = (long) NULL; x->n = 0; return (0); case 'B': /* Buffer */ x->read = jed_read_from_buffer; x->handle = (long) (((Buffer *) (x->name))->beg); return (0); default: return SL_OBJ_UNKNOWN; } } void load_buffer() { SLang_Load_Type x; Buffer *cbuf = CBuf; int flags = CBuf->flags; char buf[256]; Line *l, *lwant; cbuf->flags |= READ_ONLY; x.name = (long) cbuf; x.type = 'B'; x.buf = buf; SLang_load_object(&x); if (SLang_Error || *Error_Buffer) { SLang_doerror(NULL); pop_to_buffer(cbuf->name); /* if (x.ptr != NULL) { */ lwant = (Line *) x.handle; if (lwant != NULL) { bob(); while (1) { l = CLine->next; if ((l == NULL) || (l == lwant)) break; CLine = l; LineNum++; } } else eob(); Point = x.ofs; /* Point = (int) (x.ptr - buf); */ if ((Point >= 0) && (Point < CLine->len)) { (void) skip_whitespace(); } else Point = 0; /* } */ } cbuf->flags = flags; } void get_key_function() { char *s; int kind; s = find_key(&kind); if (s != NULL) { if (SLKeyBoard_Quit && (SLang_Error == USER_BREAK)) { SLang_Error = 0; SLKeyBoard_Quit = 0; /* s = "kbd_quit"; */ } SLang_push_integer(kind); } else s = ""; SLang_push_string(s); } static SLang_Name_Type *Expand_File_Hook; void set_expansion_hook (char *s) { if (NULL == (Expand_File_Hook = SLang_get_function (s))) { msg_error ("The expansion hook has not been defined."); } } int mini_complete (void) { char *pl, *pb; char last[256], buf[256], *tmp; static char prev[256]; int n, last_key_char = SLang_Last_Key_Char; static int flag = 0; /* when flag goes 0, we call open */ if (complete_open == NULL) return ins_char_cmd(); Point = 0; push_mark(); eob(); if (NULL == (tmp = make_buffer_substring(&n))) return(1); safe_strcpy(buf, tmp, sizeof (buf)); SLFREE(tmp); if ((last_key_char == ' ') && ((long) Last_Key_Function == (long) mini_complete)) { if (!flag || !(flag = (*complete_next)(buf))) { safe_strcpy(buf, prev, sizeof (buf)); flag = (*complete_open)(buf); } strcpy(last, buf); n = -1; } else { n = 0; strcpy(prev, buf); /* save this search context */ } if (!n) { if ((Repeat_Factor != NULL) || (complete_open != sys_findfirst) || (Expand_File_Hook == NULL)) flag = (*complete_open)(buf); else { int do_free; SLang_push_string (buf); SLexecute_function (Expand_File_Hook); if (SLang_Error == 0) SLang_pop_integer (&do_free); if (SLang_Error == 0) { if (do_free == 0) { flag = (*complete_open) (buf); goto start_loop; } } if (SLang_Error || SLang_pop_string (&tmp, &do_free)) { msg_error ("Error encounter during expansion. Disabling expansion hook."); Expand_File_Hook = NULL; return 1; } safe_strcpy (last, tmp, sizeof (last)); strcpy (prev, last); if (do_free) SLFREE (tmp); n = -1; } } start_loop: if (!n && flag) { strcpy(last, buf); /* This do loop tests all values from complete_next and returns the smallest length match of initial characters of buf */ do { if ((n == 0) && (last_key_char == '\t')) { set_buffer (Completion_Buffer); erase_buffer (); CBuf->flags |= BURIED_BUFFER; insert_string ("!!! Use Page Up/Down keys to scroll this window. !!!\n"); } n++; pl = last; pb = buf; #ifdef __os2__ if (complete_open == open_bufflist) while (*pl && (tolower(*pl) == tolower(*pb))) pl++, pb++; else /* next statement */ #endif while (*pl && (*pl == *pb)) pl++, pb++; *pl = 0; if (last_key_char == '\t') { while (*pb) pb++; quick_insert ((unsigned char *)buf, (int) (pb - buf)); newline (); } } while(0 != (flag = (*complete_next)(buf))); #ifdef __os2__ /* OS/2 uses case-insensitive search on buffer-names. Set the * flag if there is an exact match, so that completion will * cycle without repeats through all the matches. */ if (complete_open == open_bufflist) { strcpy(buf, last); (*complete_open)(buf); do { if (!strcmp(buf, last)) { flag = 1; break; } } while ((*complete_next)(buf)); } #endif } if ((n > 1) && (last_key_char == '\t') && (Last_Completion_Buffer == NULL)) { Last_Completion_Windows = num_windows () - 1; /* not including mini */ Last_Completion_Buffer = pop_to_buffer (Completion_Buffer); bob (); } while ((CBuf != MiniBuffer) || !IS_MINIBUFFER) other_window (); if (n) { erase_buffer(); /* strcpy(last, buf); */ insert_string(last); if ((n == 1) && ((long) Last_Key_Function == (long) mini_complete)) message("[Sole Completion.]"); } else msg_error("No Match!"); return(1); } int what_char() { if (eobp()) return(0); return( (int) *(CLine->data + Point) ); } void update_cmd(int *force) { if (Batch) return; JWindow->trashed = 1; update((Line *) NULL, *force, 0); } void call_cmd(char *str) { int (*fp)(void); if (NULL == (fp = (int (*)(void)) SLang_find_key_function(str, CBuf->keymap))) { msg_error("Function does not exist!"); } else (void) (*fp)(); } void copy_region_cmd(char *name) { Buffer *buf; if (NULL != (buf = find_buffer(name))) { copy_region_to_buffer(buf); } else msg_error("Unable to find buffer."); } #ifndef pc_system void screen_w80() { tt_narrow_width(); change_screen_size(80, *tt_Screen_Rows); } void screen_w132() { tt_wide_width(); change_screen_size(132, *tt_Screen_Rows); } #endif char *make_line_string(char *string) { unsigned char *tmp, *p1, *p2; int n; if (CBuf->marks == NULL) { p1 = CLine->data + Point; p2 = CLine->data + CLine->len; } else { p1 = CLine->data + CBuf->marks->point; p2 = CLine->data + Point; if (p2 < p1) { tmp = p1; p1 = p2; p2 = tmp; } pop_mark(&Number_Zero); } n = (int) (p2 - p1); if (n > 254) n = 254; MEMCPY(string, (char *) p1, n); string[n] = 0; return(string); } char *make_buffer_substring(int *np) { Line *tthis, *beg; int n = 1, dn, thisp; unsigned char *buf; if (!check_region(&n)) return (NULL); /* spot pushed */ /* Point now at end of the region */ beg = tthis = CBuf->marks->line; thisp = CBuf->marks->point; n = 0; pop_mark(&n); while (tthis != CLine) { n += tthis->len; tthis = tthis->next; } n -= thisp; n += Point; if (NULL == (buf = (unsigned char *) SLMALLOC(n + 1))) { msg_error("Malloc Error"); pop_spot(); return (NULL); } if (CLine == (tthis = beg)) { MEMCPY((char *)buf, (char *) (tthis->data + thisp), n); } else { n = 0; while (tthis != CLine) { dn = tthis->len - thisp; MEMCPY((char *)(buf + n), (char *) (tthis->data + thisp), dn); tthis = tthis->next; thisp = 0; n += dn; } MEMCPY((char *)(buf + n), (char *) tthis->data, Point); n += Point; } buf[n] = 0; *np = n; pop_spot(); return ((char *) buf); } void buffer_substring() { char *buf; int n; if (NULL == (buf = make_buffer_substring(&n))) return; SLang_push_malloced_string((char *)buf); } int markp(void) { return (CBuf->marks != NULL); } int dup_mark(void) { if (CBuf->marks == NULL) return(0); push_spot(); goto_mark(CBuf->marks); push_mark(); pop_spot(); return(1); } void mini_read(char *prompt, char *def, char *stuff) { char *buf; int n; complete_open = NULL; if (NULL == (buf = read_from_minibuffer(prompt, def, stuff, &n))) SLang_push_string (""); else SLang_push_malloced_string(buf); } void get_buffer_info(void) { SLang_push_string(CBuf->file); SLang_push_string(CBuf->dir); SLang_push_string(CBuf->name); SLang_push_integer(CBuf->flags); } void set_buffer_info(char *file, char *dir, char *name, int *flags) { safe_strcpy(CBuf->file, file, sizeof (CBuf->file)); /* I have to handle this in this way because expand_filename does not modify * its argument. */ safe_strcpy(CBuf->dir, dir, sizeof (CBuf->dir)); fixup_dir(CBuf->dir); strcpy (CBuf->dir, expand_filename (CBuf->dir)); safe_strcpy(CBuf->name, name, sizeof (CBuf->name)); CBuf->flags = *flags; } void make_buffer_list(void) { int n = 0; Buffer *b; b = CBuf; do { SLang_push_string(b->name); b = b->next; n++; } while (b != CBuf); SLang_push_integer(n); } int window_size_intrinsic(int *what) { register int n = 0; switch (*what) { case 'r': n = JWindow->rows; break; case 'c': n = JWindow->column; break; case 't': n = JWindow->top; break; case 'w': n = JWindow->width; break; default: SLang_Error = UNKNOWN_ERROR; } return (n); } int what_mode(void) { SLang_push_string (CBuf->mode_str); return CBuf->modes; } /* Given a file name with wildcards return expanded list to S-Lang stack * with number. This does NOT work on unix with wild cards. Instead the * expansion is file* (completion) */ int expand_wildcards(char *file) { char buf[256]; int n = 0; safe_strcpy(buf, file, sizeof (buf)); if (sys_findfirst(buf)) { do { n++; SLang_push_string(buf); } while (sys_findnext(buf)); } return (n); } static void jed_traceback(char *s) { char *n; if (!Batch) { n = CBuf->name; set_buffer("*traceback*"); eob(); insert_string(s); set_buffer(n); } else fprintf(stderr, s); } #if 0 static struct { int depth = 0; char *name[20]; int marks[20]; } FName_Stack; void enter_function(char *name) { if (depth > 20) { msg_error("Function Stack too deep."); return; } FName_Stack->name[depth] = name; FName_Stack->marks[depth] = 0; } void exit_function(char *name) { int n = FName_Stack->marks[depth]; } #endif #if 0 void make_istring(char *buf, int i) { register char *b, *b1, ch; int sign, d; b = buf; if (i >= 0) { sign = 1; } else { sign = -1; i = -i; } do { d = i % 10; i = i / 10; *b++ = d + '0'; } while (i > 0); if (sign == -1) *b++ = '-'; *b-- = 0; b1 = buf; /* now reverse it */ while (b > b1) { ch = *b; *b-- = *b1; *b1++ = ch; } } #include char *simple_sprintf(char *str, char *fmt, ...) { va_list ap; register char ch, *s = str, *string; char *fmtmax = fmt + strlen(fmt); int dig; char buf[80]; va_start(ap, fmt); while (fmt < fmtmax) { ch = *fmt++; switch(ch) { case '%': ch = *fmt++; string = buf; switch(ch) { case 'c': ch = (char) va_arg(ap, int); /* drop */ case '%': buf[0] = ch; buf[1] = 0; break; case 's': string = va_arg(ap, char *); break; case 'l': case 'd': default: dig = va_arg(ap, int); make_istring(buf, dig); break; } while (*string) *s++ = *string++; break; case '\\': ch = *fmt++; switch(ch) { case 'b': ch = '\b'; break; case 'r': ch = 13; break; case 'n': ch = '\n'; break; case 'e': ch = 27; break; case 'a': ch = 7; break; } /* drop */ default: *s++ = ch; } } va_end(ap); *s = 0; return(str); } #endif char *command_line_argv(int *nn) { int n = *nn; if ((n >= Main_Argc) || (n < 0)) { msg_error("Argc out of bounds."); n = 0; } return Main_Argv[n]; } void count_chars(void) { unsigned long n = 0, m = 0; int ch; char buf[132]; Line *l = CBuf->beg; while (l != NULL) { n += l->len; l = l->next; } l = CBuf->beg; while (l != CLine) { m += l->len; l = l->next; } m += Point + 1; ch = eobp() ? 0 : (int) *(CLine->data + Point); sprintf(buf, "'@'=%d/0x%x, point %lu of %lu", ch, ch, m, n); if (ch != 0) buf[1] = ch; else buf[0] = '^'; SLang_push_string(buf); } static void jed_clear_error(void) { *Error_Buffer = 0; SLKeyBoard_Quit = 0; } int (*X_Init_SLang_Hook)(void); void init_minibuffer() { Buffer *tmp; tmp = CBuf; The_MiniBuffer = make_buffer(); The_MiniBuffer->modes = 0; strcpy(The_MiniBuffer->name, " "); /* do some initializing */ switch_to_buffer(The_MiniBuffer); remake_line(132); The_MiniWindow = create_window(*tt_Screen_Rows, 1, 1, *tt_Screen_Cols); The_MiniWindow->buffer = CBuf; Buffer_Local.tab = 0; switch_to_buffer(tmp); SLang_Dump_Routine = jed_traceback; #ifdef __GO32__ SLang_Interrupt = i386_check_kbd; #endif #if 0 SLang_Enter_Function = enter_function; SLang_Exit_Function = exit_function; #endif if (!init_SLang() #ifdef FLOAT_TYPE || !init_SLmath() #endif #ifndef pc_system #ifdef unix || !init_SLunix() #endif #endif || !init_jed_intrinsics() || !register_jed_classes () || ((X_Init_SLang_Hook != NULL) && !(*X_Init_SLang_Hook)())) { exit_error("Unable to initialize S-Lang!", 0); } /* use jed rouotines instead of default slang ones */ SLang_Error_Routine = msg_error; SLang_User_Open_Slang_Object = jed_open_object; SLang_User_Close_Slang_Object = jed_close_object; SLang_User_Clear_Error = jed_clear_error; } #ifndef pc_system #ifdef unix || !init_SLunix() #endif #endif || !init_jed_intrinsics() || !regjed-0.97.12/src/ledit.h000064400000000000003000000054530603742313100143370ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern Buffer *The_MiniBuffer; extern int load_file(char *); extern int find_file_in_window(char *); extern int find_file(void); extern int get_buffer(void); extern int evaluate_cmd(void); extern int kill_buffer(void); extern int write_buffer(void); extern int search_forward_cmd(void); extern int global_setkey_cmd(void); extern int search_backward_cmd(void); extern int insert_file_cmd(void); extern void init_minibuffer(void); extern int exit_minibuffer(void); extern int select_minibuffer(void); extern void flush_message(char *); extern int mini_complete(void); extern void buffer_substring(void); extern char *make_line_string(char *); extern int set_buffer(char *); extern void insert_string(char *); extern void unset_key(char *); extern void set_key(char *, char *); extern void unset_key_in_keymap(char *, char *); extern int keymap_p(char *); extern void set_key_in_keymap(char *, char *, char *); extern char *pop_to_buffer(char *); extern int num_windows(void); extern int init_jed_intrinsics(void); #if defined (unix) || defined (__os2__) extern int shell_command(char *); extern int pipe_region(char *); #endif extern void load_buffer(void); extern void get_key_function(void); extern int what_char(void); extern void update_cmd(int *); extern void call_cmd(char *); extern void copy_region_cmd(char *); #ifndef pc_system # if defined(__QNX__) extern int show_memory(void); # endif extern void screen_w80(void); extern void screen_w132(void); #else extern int show_memory(void); #endif extern int markp(void); extern int dup_mark(void); extern void mini_read(char *, char *, char *); extern void send_string_to_term(char *); extern void get_buffer_info(void); extern void set_buffer_info(char *, char *, char *, int *); extern void make_buffer_list(void); extern char *make_buffer_substring(int *); extern int window_size_intrinsic(int *); extern int what_mode(void); extern int expand_wildcards(char *); extern int bufferp(char *); extern int kill_buffer_cmd(char *); extern int get_doc_string(char *, char *); extern int insert_buffer_name(char *); extern int find_file_cmd(char *); extern void read_object_with_completion(char *, char *, char *, int *); extern int replace_cmd(char *, char *); extern void set_mode_cmd(char *, int *); extern void switch_to_buffer_cmd(char *); extern char *what_buffer(void); extern int write_buffer_cmd(char *); extern char Last_Search_Str[132]; extern void set_tab(int *); extern int get_yes_no(char *); extern char *command_line_argv(int *); extern void count_chars(void); extern int MiniBuffer_Active; extern int Main_Argc; extern char **Main_Argv; extern char Jed_Library[]; extern FILE *jed_open_slang_file(char *, char *); extern char *Completion_Buffer; extern void set_expansion_hook (char *); *, int *); extern void switch_to_buffer_cmd(char *); extern char *what_buffer(void); extern int write_buffer_cmd(char *); extern char Last_Search_Str[132]; extern void set_tab(int *); extern int get_yes_no(char *)jed-0.97.12/src/line.c000064400000000000003000000025520603742313100141550ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "buffer.h" #include "ins.h" #include "misc.h" #include "paste.h" #include "undo.h" #include "line.h" /* breaks line at current point leaving point at end of current line */ int split_line (void) { int size; if (CLine == NULL) { exit_error("split_line: Null Line", 1); } size = CLine->len - Point; if (NULL == make_line(size + 1)) { exit_error("Allocation Failure in split_line", 0); } MEMCPY((char *) CLine->data, (char *) (CLine->prev->data + Point), size); CLine->len = size; CLine = CLine->prev; LineNum--; CLine->len = Point; remake_line(Point + 1); /* now update the marks */ update_marks(NLINSERT, 1); record_newline_insertion(); return(0); } void splice_line (void) { int n1, n2; if (CLine->next == NULL) { exit_error("splice line: next line is Null", 1); } push_spot(); n1 = CLine->len; n2 = CLine->next->len; #ifdef KEEP_SPACE_INFO if (n1 + n2 > CLine->space) #endif remake_line(n1 + n2 + 1); MEMCPY((char *) (CLine->data + Point), (char *) CLine->next->data, n2); CLine->len = n1 + n2; CLine = CLine->next; LineNum++; update_marks(NLDELETE, 1); delete_line(); pop_spot(); } eturn(0); } void splice_line (void) { int n1, n2; if (CLine->next == NULL) { exit_error("splice line: next line is Null", 1); } jed-0.97.12/src/line.h000064400000000000003000000002740603742313100141610ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern void swap_lines(void); extern int split_line(void); extern void splice_line(void); ta + Point), (char *) CLine->next->data, n2); CLine->len = n1 + n2; CLine = CLine->next; LineNum++; update_marks(NLDELETE, 1); delete_line(); pop_spot(); } eturn(0); } void splice_line (void) { int n1, n2; if (CLine->next == NULL) { exit_error("splice line: next line is Null", 1); } jed-0.97.12/src/main.c000064400000000000003000000146670603742313100141640ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include #ifdef unix # ifdef SYSV # include # include # endif # include #endif #ifdef msdos # include # if !defined(__WATCOMC__) # include extern unsigned _stklen = 10000U; # else # include # endif #endif #ifdef __DECC #include #include #endif #ifndef O_RDWR #ifndef VMS # include #endif #endif #include "config.h" #include "file.h" #include "buffer.h" #include "display.h" #include "sysdep.h" #include "sig.h" #include "misc.h" #include "keymap.h" #include "screen.h" #include "ledit.h" #include "slang.h" #include "search.h" #include "text.h" #include "hooks.h" int Jed_Secure_Mode; char Jed_Root_Dir[256]; typedef struct { jmp_buf b; } jmp_buf_struct; extern jmp_buf_struct Jump_Buffer, *Jump_Buffer_Ptr; int Batch = 0; char *get_cwd(void) { static char cwd[256]; #if defined (sequent) if(!getwd(cwd)) return ""; #else #if defined (__EMX__) _getcwd2(cwd, 254); /* includes drive specifier */ #else getcwd(cwd, 254); /* djggp includes drive specifier */ #endif #endif #ifndef VMS slash2slash(cwd); fixup_dir(cwd); #endif return(cwd); } #if 0 void load_init_file(void) { FILE *fp; #ifdef unix char *file = ".jedrc"; #else char *file = "jed.rc"; #endif char initfile[256], *home; home = getenv("JED_HOME"); #ifndef VMS if ((home != NULL) || (NULL != (home = getenv("HOME")))) { strcpy(initfile, home); fixup_dir(initfile); } else initfile[0] = 0; #else if (home == NULL) home = "SYS$LOGIN:"; strcpy(initfile, home); #endif strcat(initfile, file); if ((fp = fopen(initfile,"r")) == NULL) return; fclose(fp); SLang_load_file(initfile); } #endif void (*X_Init_Global_Structures_Hook)(void); int Stdin_Is_TTY; int Main_Argc; char **Main_Argv; int main(int argc, char **argv) { char *cmd_hook = ".()command_line_hook", *jl, *jr; int i, fd; #ifdef __EMX__ _response(&argc, &argv); _wildcard(&argc, &argv); #endif #ifdef msdos define_word("0-9a-zA-Z\200-\232\240-\245\341-\353"); #else define_word("0-9a-zA-Z\277-\326\330-\336\340-\366\370-\376"); #endif #ifdef HAS_DISPLAY_TABLE for (i = 0; i < 256; i++) Output_Display_Table[i] = i; #endif if ((argc > 1) && !strcmp (argv[1], "-secure")) { Jed_Secure_Mode = 1; argc--; argv[1] = argv[0]; argv++; } /* If this hook is defined, let it peel off what ever arguments it wants. It should return the number of remaining arguments */ if (X_Argc_Argv_Hook != NULL) { i = (*X_Argc_Argv_Hook)(argc, argv) - 1; argv[i] = argv[0]; argc -= i; argv += i; } if (argc > 1) { if (!strcmp(argv[1], "-batch")) { Batch = 1; SLang_Traceback = 1; } else if (!strcmp(argv[1], "-script")) { Batch = 2; SLang_Traceback = 1; } } if (Batch == 0) tt_get_terminfo(); #ifdef unix #ifdef __GO32__ fd = 2; #else if (Batch) fd = 2; else { if ((fd = open("/dev/tty", O_RDWR)) >= 0) { dup2(fd, 2); /* tty uses 2 as the descriptor */ } else fd = 2; /* exit_error("Unable to open /dev/tty.", 0); */ } #endif #else fd = 2; /* 2 is stderr, assume it is ok */ #endif init_tty(); init_display(1); /* sets up virtual screen */ init_syntax_tables (); Jump_Buffer_Ptr = &Jump_Buffer; /* incase something goes wrong before we even get started... */ if (setjmp(Jump_Buffer_Ptr->b) != 0) { /* hmm.... just exit I guess */ exit_error("main: Fatal Error", 0); return -1; } /* This order here is crucial! */ init_keymaps(); if (NULL == (CBuf = make_buffer())) { exit_error("main: Allocation Failure", 0); } CLine = NULL; strcpy(CBuf->name, "*scratch*"); *CBuf->file = 0; strcpy(CBuf->dir, get_cwd()); init_minibuffer(); set_file_modes(); /* what if someone pipes something to jed, allow it */ if (Stdin_Is_TTY == 0) Stdin_Is_TTY = isatty (0); if (Stdin_Is_TTY == 0) /* 1 if stdin is a terminal, 0 otherwise */ { set_buffer("*stdin*"); read_file_pointer(fileno(stdin)); bob(); fclose(stdin); dup2(fd, 0); } if (CLine == NULL) make_line(25); Point = 0; window_buffer(CBuf); if (!Batch) tt_cls(); #ifndef VMS #ifndef msdos #if !defined (__GO32__) && !defined (__os2__) init_signals(); #endif #endif #endif #ifdef VMS jr = "JED_ROOT:"; #else jr = (char *) getenv("JED_ROOT"); #endif #ifdef JED_ROOT if ((jr == NULL) && (file_status(JED_ROOT) == 2)) { jr = JED_ROOT; } #endif if (jr != NULL) { strcpy(Jed_Root_Dir, jr); strcpy(Jed_Library, jr); #ifndef VMS fixup_dir(Jed_Library); strcat(Jed_Library, "lib"); #else strcat(Jed_Library, "[lib]"); #endif } jl = (char *) getenv("JED_LIBRARY"); if (jl == NULL) { if (*Jed_Library == 0) { jl = extract_file(argv[0]); i = (int) (jl - argv[0]); strncpy(Jed_Library, argv[0], i); Jed_Library[i] = 0; } } else strcpy(Jed_Library, jl); SLang_load_file("site"); /* set up command line args */ Main_Argc = argc; Main_Argv = argv; if (Batch) Ignore_User_Abort = 0; if (Batch == 2) { if (argc > 2) SLang_load_file(argv[2]); } else { if (SLang_is_defined(cmd_hook + 3)) { SLang_run_hooks(cmd_hook + 3, NULL, NULL); /* This has the effect of removing the memory that cmd_hook * is using. */ SLang_load_string (cmd_hook); } else if (!SLang_Error && (argc > 2)) { find_file_in_window(argv[2]); } } /* after we have possible loaded key definitions, we can fix up the minibuffer map. This way user definitions are used. */ if (NULL == (Mini_Map = SLang_create_keymap("Mini_Map", Global_Map))) exit_error("main: malloc error", 0); SLang_undefine_key("^M", Mini_Map); SLang_define_key1("^M", (VOID *) exit_minibuffer, SLKEY_F_INTRINSIC, Mini_Map); SLang_define_key1("^I", (VOID *) mini_complete, SLKEY_F_INTRINSIC, Mini_Map); SLang_define_key1(" ", (VOID *) mini_complete, SLKEY_F_INTRINSIC, Mini_Map); The_MiniBuffer->keymap = Mini_Map; /* edit_loop */ if (!Batch) jed(); /* never returns */ exit_error ("Batch End with no exit", 0); return(-1); } i_Map", Global_Map))) exit_error("main: malloc error", 0); SLang_undefjed-0.97.12/src/makefile.djg000064400000000000003000000015320603742313100153220ustar00rootsys00000000000000# DJGPP Makefile for JED -*- sh -*- GO32 = G:/djgpp/bin/go32.exe SLIB = ../../slang/src# LFLAGS = -L$(SLIB) -lslang -lpc CFLAGS = -Wall -O -DHAS_MEMSET -DHAS_MEMCPY -DHAS_MEMCMP CC = gcc OBJS = buffer.o cmds.o misc.o file.o main.o ins.o\ sysdep.o screen.o paste.o ledit.o line.o vterm.o search.o text.o\ keymap.o replace.o window.o undo.o vfile.o\ intrin.o syntax.o display.o abbrev.o mouse.o indent.o SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.o: $(CC) -c $(CFLAGS) $(CFLAGS1) -DJED -I$(SLIB) $*.c jed: slangversion $(OBJS) $(CC) @jed386.rsp $(LFLAGS) -o jed386.386 strip jed386.386 coff2exe -s $(GO32) jed386.386 slangversion: chkslang $(GO32) chkslang.386 jed 9919 chkslang: chkslang.o $(CC) chkslang.o -o chkslang.386 mouse.c: pcmouse.c touch mouse.c sysdep.c: ibmpc.c touch sysdep.c export: export -f zip.lis ce.o window.o undo.o vfile.o\ intrin.o syntax.o display.o abbrev.o mouse.o indent.o SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.o: $(CC) -c $(CFLAGS) $(CFLAGS1) -DJEjed-0.97.12/src/makefile.dos000064400000000000003000000020570603742313100153460ustar00rootsys00000000000000# -*- sh -*- LIBD = ..\..\slang\src CC = bcc CFLAGS = -G- -H -O1 -w -ml -Dmsdos -DHAS_MEMCMP -DHAS_MEMCHR -DJED# -DFLOAT_TYPE #CFLAGS = -N -v -H -w -ml -Dmsdos -DHAS_MEMCMP -DHAS_MEMCHR -DJED#-DFLOAT_TYPE #-DMALLOC_DEBUG OBJS = buffer.obj cmds.obj misc.obj file.obj main.obj display.obj ins.obj\ sysdep.obj screen.obj paste.obj ledit.obj line.obj vterm.obj\ keymap.obj replace.obj window.obj search.obj text.obj\ undo.obj vfile.obj intrin.obj syntax.obj abbrev.obj\ mouse.obj indent.obj jed.exe: slangversion $(OBJS) $(HFILES) $(CC) $(CFLAGS) -L$(LIBD) -ejed.exe @jed.rsp slang.lib slangversion: chkslang chkslang jed 9919 chkslang: chkslang.obj $(CC) $(CFLAGS) -echkslang.exe chkslang.obj SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.obj: $(CC) -c $(CFLAGS) -I$(LIBD) $*.c mouse.c: pcmouse.c touch mouse.c sysdep.c: ibmpc.c touch sysdep.c rgrep: vfile.obj rgrep.obj $(CC) $(CFLAGS) -L$(LIBD) -ergrep.exe vfile.obj rgrep.obj slang.lib zip: pkzip jed.zip @zip.lis jed.exe export: export -f zip.lis ersion $(OBJS) $(HFILES) $(CC) $(CFLAGS) -L$(LIBD) -ejed.exe @jed.rsp slang.lib slangversion: chkslang chkslang jed 9919 chkslang: chkslang.obj $(CC) $(CFLAGS) -echkslang.exe chkslang.obj SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.obj: $(CC) -c $(CFLAGS) -I$(LIBD) $*.c mouse.c: pcmouse.c touch mouse.c sysdep.c: ibmpc.c touch sysdep.c rgrep: vfile.obj rgrep.obj $(CC) $(CFLAGS) -L$(LIBD) -ergrep.exe vfile.obj rgrep.obj slang.lib zip: pkzip jed.zip @jed-0.97.12/src/makefile.unx000064400000000000003000000155720603742313100154010ustar00rootsys00000000000000# Unix Makefile for JED -*- sh -*- # Note!!! You also need to build the S-Lang library. You should have # received a copy of it with this distribution. # Build it first. # This file is divided into sections as follows: # The first section consists of compile time options: # 1. location of jed library files. # 2. Non-X mouse setup (GPM Linux) # 3. XWindows setup # # The second section is system specific so read it # carefully. The final section can be ignored. #------------------------------------------------------------------------- # You must undefine any of these if you compiler does not have the appropriate # function (memset, memcpy, memcmp, memchr) # I have come to the conclusion that most Unix memchr routines are poor. # JED's is MUCH better. Also note that JED assumes that yor machines `memcmp' # function uses an unsigned comparision. This is NOT true for SunOS. CFLAGS1A = -DHAS_MEMSET -DHAS_MEMCPY #-DHAS_MEMCMP #-DHAS_MEMCHR # Root directory where jed files are going to be kept. This is the parent # of JED's src, lib, etc, bin, and info directories. MAKE SURE THAT THE '#' # IMMEDIATELY FOLLOWS THE PATH. THERE CAN BE NO WHITESPACE HERE! JED_ROOT = /usr/local/jed# # S-Lang Library include path. This one assumes that slang and jed are on # the same level in the directory tree. SLIB = ../../slang/src # Random number function # There are many variations here. The random number generator is only need # to justify paragraphs. If your system does not have the `random' function # comment out the next line and `srand' will be used (not as good). RANDOM = -DHAS_RANDOM # Note that since version 0.92, JED has had the ability to do floating point # arithmetic. This is enable by defining FLOAT_TYPE. If you want # floating point support AND you have compiled the S-Lang library # with floating point support, remove the `#' symbol from the # next two lines: CFLAGS1 = $(CFLAGS1A) -DFLOAT_TYPE LFLAGS = -lm # ---------------------------------------------------------------------- # Mouse Setup (Linux) # ------------------- # If using the GPM server, uncomment the next two lines: #MFLAGS = -DUSE_GPM_MOUSE #MLIB = -lgpm #------------------------------------------------------------ # XWindow version of JED specifics # # If you are also compiling an XWindows version of JED, you need to # set up the path for the X11 include files. This is simply the directory # that contains the X11 directory. Try using one of the following: XINCLUDE = -I/usr/include/mit #XINCLUDE = -I/usr/local/X11/include #XINCLUDE = -I/usr/openwin/share/include/X11 # Some Solaris #XINCLUDE = -I/usr/openwin/share/include # Other Solaris #XINCLUDE = -I/usr/include/X11R5 # HP-UX (9.01) #XINCLUDE = -I/usr/include/X11 # OSF1 # Library to use for linking in the X11 code. On many systems, it is simply # given by -lX11, while for some, it is -lX11-mit, and so on. XLIB = -lX11 #XLIB = -lX11-mit #XLIB = -L/usr/X11/lib -lX11 # Linux #XLIB = -lX11 -lsocket # Solaris #XLIB = -L/usr/lib/X11R5 -lX11 # HP-UX (9.01) #XLIB = -L/usr/openwin/lib -lX11 # Sun4 #XLIB = -L/usr/lib/X11 -lX11_s # QNX #----------------------------- Async Subprocess support ------------------- # Warning!!! This is highly experiemental. Uncomment next 2 lines only if # you want to experiment. Currently, there is not much support # for this. #PROCESS_O = jprocess.o #HASSUBPROCESS = -DHAS_SUBPROCESSES #------------------------ machine specific flags -------------------------- # # Look for your machine in right margin and comment out others. # If your system does NOT have stdlib.h add: -DNO_STDLIB_H # If your system does NOT have unistd.h add: -DNO_UNISTD_H # These files should be in /usr/include, e.g., /usr/include/stdlib.h # ULTRIX CFLAGS = -O -DNO_PROTOTYPES CC =cc # SunOS #CC =gcc #also try acc # Note: SunOS cc is NOT ansi C compliant #CFLAGS = -O -traditional-cpp # Note: solaris 2 might require -lucb flag. # HP-UX # CFLAGS =-Aa -D_HPUX_SOURCE -Dunix # CC = cc # AIX #CC = xlc #CFLAGS = -O -D_POSIX_SOURCE -D_ALL_SOURCE # If you do not have 'xlc' (Do all AIX systems have it??), try: #CFLAGS = -DAIX -Dunix #CC = cc # Sequent, NeXT #CFLAGS = -Dsequent -DNO_UNISTD_H -DNO_STDLIB_H #CC = cc # or: gcc # Linux # #CFLAGS= -O2 -Wall -Wstrict-prototypes -fstrength-reduce -DPOSIX_SOURCE #CC=gcc # QNX #CFLAGS = -O -D_POSIX_SOURCE -DQNX -MetroLink #CC = cc # SYSV ISC R3.2 v3.0 #CC=gcc #CFLAGS= -Dunix -DSYSV #LIBS = -linet -lnsl_s -lcposix # # OSF1 #CC = cc #CFLAGS = -O -DXLIB_ILLEGAL_ACCESS -Olimit 2000 # CRAY #CFLAGS = -O -Dunix -DSYSV #CC =cc # # some systems may need to define POSIX as well, e.g., IRIX #CFLAGS = -O -prototypes -DPOSIX #----------------------------------------------------------------------- OBJS = buffer.o cmds.o misc.o file.o main.o ins.o sig.o\ sysdep.o screen.o paste.o ledit.o line.o vterm.o search.o text.o\ keymap.o replace.o window.o undo.o vfile.o\ intrin.o syntax.o abbrev.o indent.o $(PROCESS_O) .c.o: $(CC) -c $(CFLAGS) $(CFLAGS1) $(HASSUBPROCESS) -DJED -I$(SLIB) $(XINCLUDE) $*.c jed: slangversion $(OBJS) display.o mouse.o $(CC) $(OBJS) display.o mouse.o -o jed -L$(SLIB) -lslang $(LFLAGS) $(MLIB) slangversion: chkslang ./chkslang jed 9919 chkslang: chkslang.o $(CC) chkslang.o -o chkslang chkslang.o: chkslang.c $(SLIB)/slang.h $(CC) -c $(CFLAGS) -I$(SLIB) chkslang.c mouse.o: mouse.c $(CC) -c $(CFLAGS) $(CFLAGS1) $(MFLAGS) -DJED -I$(SLIB) $*.c main.o: main.c $(CC) -c $(CFLAGS) $(CFLAGS1) -DJED -DJED_ROOT='"$(JED_ROOT)"' -DJED_LIBRARY='"$(JED_ROOT)/lib"' -I. -I$(SLIB) main.c sysdep.c: unix.c sysdep.o: sysdep.c unix.c xjed: slangversion $(OBJS) xterm.o $(CC) $(OBJS) xterm.o -o xjed -L$(SLIB) -lslang $(XLIB) $(LFLAGS) export: export -f zip.lis rgrep: vfile.o rgrep.o $(CC) vfile.o rgrep.o -o rgrep -L$(SLIB) -lslang getmail.o: getmail.c @echo Note: -------------------------------------------------------- @echo If this fails to compile, remove the line referencing flock @echo from getmail.c @echo -------------------------------------------------------------- $(CC) -c $(CFLAGS) $(CFLAGS1) getmail.c getmail: getmail.o $(CC) getmail.o -o ../bin/getmail BJS) xterm.o -o xjed -L$(SLIB) -lslang $(XLIB) $(LFLAGS) export: export -f zip.lis rgrep: vfile.o rgrep.o $(CC) vfile.o rgrep.o -jed-0.97.12/src/makefile.wcc000064400000000000003000000014020603742313200153270ustar00rootsys00000000000000LIBD = ..\..\slang\src CC = wcl386 LD = wlink LDFLAGS = opt stack=20k CFLAGS = -w4 -I. -Dmsdos -DDOS386 -DFLOAT_TYPE -DHAS_MEMCPY -DHAS_MEMCMP\ -DHAS_MEMSET -DHAS_MEMCHR -DJED OBJS = buffer.obj cmds.obj misc.obj file.obj main.obj display.obj ins.obj\ sysdep.obj screen.obj paste.obj ledit.obj line.obj vterm.obj\ keymap.obj replace.obj window.obj search.obj text.obj\ undo.obj vfile.obj intrin.obj syntax.obj abbrev.obj indent.obj jedwcc.exe: $(OBJS) $(HFILES) $(LD) $(LDFLAGS) @jedwcc.rsp .c.obj: $(CC) -c $(CFLAGS) -I$(LIBD) $*.c rgrep: vfile.obj rgrep.obj $(CC) $(CFLAGS) -L$(LIBD) -ergrep.exe vfile.obj rgrep.obj slang.lib zip: pkzip jed.zip @zip.lis jed.exe export: export -f zip.lis sysdep.obj: sysdep.c ibmpc.c i386.c os2.c sysdep.obj screen.obj paste.obj ledit.obj line.obj vterm.obj\ keymap.obj replace.obj window.obj search.obj text.obj\ undo.obj vfile.obj intrin.obj syntax.obj abbrev.obj indent.obj jedwcc.exe: $(OBJS) $(HFILES) $(LD) $(LDFLAGS) @jedwcc.rsjed-0.97.12/src/makefile.os2000064400000000000003000000073640603742313200152730ustar00rootsys00000000000000#================ JED makefile for DMAKE 3.8 ====================== # This makefile is for DMAKE, either under DOS or OS/2 # The following OS/Compiler combinations are supported: # # Target Compiler Command Compiler # Operating Mnemoic Line # System #----------------------------------------------------------------------- # OS2 MSC OS=OS2 COMP=MSC Microsoft C # OS2 EMX OS=OS2 COMP=EMX emx/gcc #----------------------------------------------------------------------- MODEL = L #----------------------------------------------------------------------- # default setup for EMX under OS/2, optimized version # change values below or override with -e switch on command line #----------------------------------------------------------------------- OS=OS2 COMP=EMX OPT=Y #----------------------------------------------------------------------- .IF $(TOS) == $(NULL) TOS = $(OS) .END .IF $(OS) == OS2 #======================================================================== #========================= OS2 - MSC ==================================== #======================================================================== .IF $(COMP) == MSC CC = cl -nologo -MT .IF $(OPT) == N CDBUG = -Od -Zi -W2 LDEBUG = -Zi .ELSE CDBUG = LDEBUG = .END CDEBUG = -Gt16384 -D__os2_16__ $(CDBUG) O = .obj L = .lib SLANG = $(SLIB)\slang$L LFLAGS2 = setargv.obj $(SLANG) os2jed16.def -link /NOE #======================================================================== #========================= OS2 - EMX ==================================== #======================================================================== .ELIF $(COMP) == EMX CC = gcc -Zmtd .IF $(OPT) == N CDEBUG =-g LDEBUG = .ELSE CDEBUG = -O LDEBUG = -s .END O = .o L = .a SLANG = $(SLIB)\slang$L LFLAGS2 = -L$(SLIB) os2jed.def -lslang .ENDIF .ENDIF CFILES = buffer.c cmds.c misc.c file.c main.c display.c ins.c\ sysdep.c screen.c paste.c ledit.c line.c vterm.c search.c text.c\ keymap.c replace.c window.c undo.c vfile.c intrin.c syntax.c\ abbrev.c mouse.c indent.c OBJS = $(CFILES:s/.c/$O/) %OBJS = buffer.obj cmds.obj misc.obj file.obj main.obj display.obj ins.obj\ % sysdep.obj screen.obj paste.obj ledit.obj line.obj vterm.obj\ % keymap.obj replace.obj window.obj search.obj text.obj\ % undo.obj vfile.obj intrin.obj HFILES = buffer.h file.h display.h sysdep.h screen.h paste.h ins.h misc.h\ ledit.h cmds.h text.h keymap.h replace.h window.h line.h\ vterm.h search.h undo.h MFILES = makefile zip.lis vms.c bsd.c sys5.c sig.c sig.h display.c JFILES = emacs.jed jed.rc most.jed edt.jed fortran.jed jed.doc read.me # Root directory where jed files are going to be kept. This is the parent # of JED's src, lib, etc, bin, and info directories. prefix = c:/jed JED_ROOT = -DJED_ROOT="\"$(prefix)\"" #JED_LIB = -DJED_LIBRARY="\"$(JED_ROOT)/lib\"" JED_PATHS = $(JED_ROOT) $(JED_LIB) # S-Lang Library include path. This one assumes that slang and jed are on # the same level in the directory tree. SLIB = ..\..\slang\src CFLAGS = $(CDEBUG) -D__os2__ \ -DHAS_MEMCMP -DHAS_MEMCHR -DHAS_MEMCPY -DHAS_MEMSET -DFLOAT_TYPE LFLAGS = $(LDEBUG) .SUFFIXES: .obj .c jed.exe: $(OBJS) $(HFILES) $(SLANG) $(CC) $(LFLAGS) -o $@ $(OBJS) $(LFLAGS2) $(SLANG): cd $(SLIB) && $(MAKE) -f makefile.os2 OS=$(OS) COMP=$(COMP) OPT=$(OPT) .c$O: $(CC) -c $(CFLAGS) -DJED -I$(SLIB) $*.c main$O: main.c $(CC) -c $(CFLAGS) -DJED $(JED_PATHS) -I$(SLIB) main.c sysdep$O : os2.c config.h sysdep.h screen.h buffer.h misc.h mouse$O : os2mouse.c \slang\src CFLAGS = $(CDEBUG) -D__os2__ \ -DHAS_MEMCMP -DHAS_MEMCHR -DHAS_MEMCPY -DHAS_MEMSET -DFLOAT_TYPE LFLAGS = $(LDEBUG) .SUFFIXES: .obj .c jed.exe: $(OBJS) $(HFILES) $(SLANG) $(CC) $(LFLAGS) -o $@ $(OBJS) $(LFLAGS2) $(SLANG): cd $(SLIB) && $(MAKE) -f makejed-0.97.12/src/makefile.msw000064400000000000003000000021560603742313200153700ustar00rootsys00000000000000# -*- sh -*- BCCLIB = C:\BCC31\LIB SLIB = ..\..\slang\src CC = bcc CFLAGS = -G- -H -O1 -w -ml -Dmsdos -DMSWINDOWS -DJED -W #CFLAGS = -N -v -H -w -ml -Dmsdos -Dmswin -DHAS_MEMCMP -DHAS_MEMCHR -DJED -WS#-DFLOAT_TYPE #-DMALLOC_DEBUG CP = command/c copy OBJS = buffer.obj cmds.obj misc.obj file.obj main.obj ins.obj\ sysdep.obj screen.obj paste.obj ledit.obj line.obj vterm.obj\ keymap.obj replace.obj window.obj search.obj text.obj\ undo.obj vfile.obj intrin.obj syntax.obj abbrev.obj\ indent.obj SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.obj: $(CC) -c $(CFLAGS) -I$(SLIB) $*.c wjed.exe: ..\bin\mswshell.exe $(OBJS) wjed.def @$(CP) wjed.rsp _wjed.rsp @echo $(SLIB)\wslang+ >> _wjed.rsp @echo $(BCCLIB)\import+ >> _wjed.rsp @echo $(BCCLIB)\mathwl+ >> _wjed.rsp @echo $(BCCLIB)\cwl >> _wjed.rsp @echo wjed.def >> _wjed.rsp tlink /Twe/m/v/c/P/i/s $(BCCLIB)\c0wl @_wjed.rsp @del _wjed.rsp ..\bin\mswshell.exe: mswshell.c $(CC) -ml -e..\bin\mswshell.exe mswshell.c sysdep.c: mswin.c touch sysdep.c zip: pkzip jed.zip @zip.lis jed.exe export: export -f zip.lis (SLIB) $*.c wjed.exe: ..\bin\mswshell.exe $(OBJS) wjed.def @$(CP) wjed.rsp _wjed.rsp @echo $(SLIB)\wslang+ >> _wjed.rsp @echo $(BCCLIB)\import+ >> _wjed.rsp @echo $(BCCLIB)\mathwl+ >> _wjed.rsp @echo $(BCCLIB)\cwl >> _wjed.rsp @echo wjed.def >> _wjed.rsp tlink /Twe/m/v/c/P/i/s $(BCCLIB)\c0wl @_wjed.rsp @del _wjed.rsp ..\bin\mswshell.exe: mswshell.c $(CC) -ml -e..\bin\mswshell.exe mswshejed-0.97.12/src/misc.c000064400000000000003000000245230603742313200141640ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include #include "config.h" #include "buffer.h" #include "screen.h" #include "window.h" #include "display.h" #include "sysdep.h" #include "file.h" #include "keymap.h" #include "ledit.h" #include "misc.h" #include "ins.h" #include "slang.h" #include "paste.h" char Error_Buffer[256]; char Message_Buffer[256]; volatile int SLKeyBoard_Quit; int Exit_From_MiniBuffer; typedef struct { jmp_buf b; } jmp_buf_struct; extern jmp_buf_struct Jump_Buffer, *Jump_Buffer_Ptr; #define MACRO_SIZE 256 char Macro_Buffer[MACRO_SIZE]; char *Macro_Buffer_Ptr = Macro_Buffer; char *Macro_Ptr_Max = Macro_Buffer; int Defining_Keyboard_Macro = 0; int Executing_Keyboard_Macro = 0; static struct { int def; int exe; } Macro_State; MiniInfo_Type Mini_Info; static void macro_store_key(char ch) { /* I need to put something here to increase the size of the Macro_Buffer in case of overflow */ if (Macro_Buffer_Ptr - Macro_Buffer >= MACRO_SIZE) msg_error("Macro Size exceeded."); else *Macro_Buffer_Ptr++ = ch; } static void restore_macro_state(void) { Defining_Keyboard_Macro = Macro_State.def; Executing_Keyboard_Macro = Macro_State.exe; } static void set_macro_state(void) { Macro_State.def = Defining_Keyboard_Macro; Macro_State.exe = Executing_Keyboard_Macro; } /* if not in the mini buffer and if during keyboard macro, allow user to enter different text each time macro is executed */ int macro_query() { char *s; int n; /* macro state is already set */ Defining_Keyboard_Macro = 0; Executing_Keyboard_Macro = 0; if (!IS_MINIBUFFER) { if (NULL == (s = read_from_minibuffer("Enter String:", (char *) NULL, NULL, &n))) return(0); ins_chars((unsigned char *) s, n); SLFREE(s); } /* exit from mini restores the state */ return(1); } int jed_getkey() { int ch, diff, ch1; static int mini_flag = 0; int *srf; if (Read_This_Character != NULL) { ch = *Read_This_Character++; if (ch == 0) Read_This_Character = NULL; else { if ((ch1 = *Read_This_Character) == 0) { Read_This_Character = NULL; return (ch); } if (ch == '^') { if (ch1 == '?') ch = 127; else ch = ch1 - '@'; Read_This_Character++; } else if (ch == '\\') { ch = ch1; Read_This_Character++; } if (*Read_This_Character == 0) Read_This_Character = NULL; return(ch); } } if (Executing_Keyboard_Macro) { if (Macro_Buffer_Ptr < Macro_Ptr_Max) return (*Macro_Buffer_Ptr++); Executing_Keyboard_Macro = 0; update((Line *) NULL, 0, 0); } diff = (int) (Key_Bufferp - Key_Buffer); if (!SLang_Error && SLang_Key_TimeOut_Flag && ((mini_flag && (diff > 0)) || !input_pending(&Number_Ten))) { message(Key_Buffer); strcat(Message_Buffer, "-"); /* This ensures that the update is performed if we are echoing from * digit argument */ srf = Repeat_Factor; Repeat_Factor = NULL; update((Line *)NULL, 0, 0); Repeat_Factor = srf; message(" "); /* ensures that previous message will get erased. */ mini_flag = 1; } else (mini_flag = 0); ch = my_getkey(); if (diff < 13) { *Key_Bufferp++ = (char) ch; *Key_Bufferp = 0; } else { /* msg_error("KeyBuffer overflow!"); */ Key_Bufferp = Key_Buffer; } if (Defining_Keyboard_Macro) { /* starting a new keysequence to save this point */ if (diff == 0) { Macro_Ptr_Max = Macro_Buffer_Ptr; } macro_store_key(ch); } return(ch); } void msg_error(char *msg) { flush_input(); JWindow->trashed = 1; Defining_Keyboard_Macro = Executing_Keyboard_Macro = 0; Read_This_Character = NULL; Repeat_Factor = NULL; set_macro_state(); if (Batch) fprintf(stderr, "%s\n", msg); if (!SLang_Error) SLang_Error = INTRINSIC_ERROR; if (Error_Buffer[0] == 0) safe_strcpy(Error_Buffer, msg, sizeof (Error_Buffer)); } /* later I will do more with this-- for now, keep last one */ void message(char *msg) { if (Executing_Keyboard_Macro) return; if (Batch || (JScreen[0].old == NULL)) fprintf(stderr, "%s\n", msg); if (msg == NULL) *Message_Buffer = 0; else { if (*msg == 0) msg = " "; strncpy(Message_Buffer, msg, 255); Message_Buffer[255] = 0; } } /* read from minibuffer using prompt providing a default, and stuffing the minibuffer with init if necessary */ /* I should make recursive mini buffers */ char *read_from_minibuffer(char *prompt, char *deflt, char *what, int *n) { char buf[256]; jmp_buf_struct *mini_jmp_save, mini_jmp_buf; unsigned char *ps; unsigned char *p, ch; static Window_Type *current_window; /* may get changed if user leaves minibuffer and returns from other window which means that the new window becomes target of minibuffer action */ Window_Type *w; char *ret; int len, save_point; if (!IS_MINIBUFFER) current_window = JWindow; if (select_minibuffer()) return(NULL); /* we should be on a new line of mini buffer */ ps = Mini_Info.prompt; p = (unsigned char *) prompt; len = 0; if (p != NULL) { while (0 != (ch = *p++)) { *ps++ = ch; len++; } *ps++ = ' '; len++; } if ((deflt != NULL) && (*deflt != 0)) { sprintf(buf,"(default: %s) ", deflt); p = (unsigned char *) buf; while (0 != (ch = *p++)) { *ps++ = ch; len++; } } *ps = 0; /* Use calculate column to find effective length */ Mini_Info.prompt_len = len; p = CLine->data; save_point = Point; CLine->data = Mini_Info.prompt; Point = len; Mini_Info.effective_prompt_len = 0; Mini_Info.effective_prompt_len = calculate_column() - 1; CLine->data = p; Point = save_point; touch_window(); if (what != NULL) insert_string(what); update((Line *) NULL, 0, 0); mini_jmp_save = Jump_Buffer_Ptr; Jump_Buffer_Ptr = &mini_jmp_buf; if (setjmp(mini_jmp_buf.b) != 0) { SLang_restart(1); /* just in case */ update((Line *) NULL, 0, 0); } while(!Exit_From_MiniBuffer) { do_jed(); /* if (setjmp(Jump_Buffer) != 0) * { * Exit_From_MiniBuffer = 1; * } */ if (SLKeyBoard_Quit && IS_MINIBUFFER) break; update((Line *) NULL, 0, 0); } if (Exit_From_MiniBuffer && !Executing_Keyboard_Macro && (Repeat_Factor == NULL) && !JWindow->trashed && !input_pending(&Number_Zero)) { tt_goto_rc (*tt_Screen_Rows - 1, 0); flush_output (); } Jump_Buffer_Ptr = mini_jmp_save; exit_minibuffer (); /* be graceful */ Exit_From_MiniBuffer = 0; MiniBuffer_Active = 0; restore_macro_state(); if (!SLKeyBoard_Quit) { if (CLine->len == 0) { if (deflt != NULL) insert_string(deflt); } bob(); push_mark(); eob(); ret = make_buffer_substring(n); } else ret = NULL; /* we should be in minibuffer so delete marks and spots */ while (CBuf->spots) pop_spot(); while (CBuf->marks) pop_mark(&Number_Zero); erase_buffer(); /* Remove MiniWindow from the ring */ w = JWindow; while (w->next != JWindow) w = w->next; other_window(); w->next = JWindow; /* Note that by this time, current_window might be history. */ while((JWindow != current_window) && (JWindow != w)) other_window(); JWindow->trashed = 1; /* delete_buffer(MiniBuffer); */ MiniBuffer = NULL; return(ret); } static int Macro_Illegal_Now = 0; static int check_macro_legality(void) { if (Macro_Illegal_Now) { msg_error("Illegal context for Macro definition."); return (0); } return (1); } int begin_keyboard_macro() { if (!check_macro_legality()) return (0); Macro_Buffer_Ptr = Macro_Buffer; message("Defining Macro."); Defining_Keyboard_Macro = 1; set_macro_state(); return(1); } int end_keyboard_macro() { if (Defining_Keyboard_Macro) message("Macro Defined."); else { if (!Executing_Keyboard_Macro) msg_error("Not defining Macro!"); Executing_Keyboard_Macro = 0; return(1); } /* Macro_Ptr_Max = Macro_Buffer_Ptr; */ Defining_Keyboard_Macro = 0; set_macro_state(); return(1); } int execute_keyboard_macro() { int repeat = 0, *repeat_ptr; if (!check_macro_legality()) return (0); if (Defining_Keyboard_Macro) { msg_error("Can't execute a macro while defining one."); return(0); } Executing_Keyboard_Macro = 1; set_macro_state(); Macro_Buffer_Ptr = Macro_Buffer; /* save the repeat context */ repeat_ptr = Repeat_Factor; if (repeat_ptr != NULL) repeat = *repeat_ptr; JWindow->trashed = 1; Macro_Illegal_Now = 1; while ((Macro_Buffer_Ptr < Macro_Ptr_Max) && Executing_Keyboard_Macro) /* since we might enter minibuffer and stop macro before returning here */ { Repeat_Factor = NULL; /* ch = *Macro_Buffer_Ptr++; */ do_key(); if (SLKeyBoard_Quit || (*Error_Buffer)) break; } Macro_Illegal_Now = 0; /* restore context */ Repeat_Factor = repeat_ptr; if (repeat_ptr != NULL) *repeat_ptr = repeat; Executing_Keyboard_Macro = 0; set_macro_state(); return(1); } /* before this can be of any real use, I need strings without the NULL chars! */ /* int get_macro() { if ((Defining_Keyboard_Macro) || (Executing_Keyboard_Macro)) { msg_error("Macro Buffer locked!"); return(0); } if (Macro_Ptr_Max == Macro_Buffer) return (0); } */ void get_last_macro () { register char *m, *s, ch; char buf[2 * MACRO_SIZE + 1]; if (Defining_Keyboard_Macro) { msg_error("Complete Macro first!"); return; } m = Macro_Buffer; if (m == Macro_Ptr_Max) { msg_error("Macro not defined."); return; } s = buf; while (m < Macro_Ptr_Max) { ch = *m++; if ((ch < ' ') || (ch == 127)) { *s++ = '^'; if (ch == 127) ch = '?'; else ch = '@' + ch; } else if ((ch == '^') || (ch == '\\')) { *s++ = '\\'; } *s++ = ch; } *s = 0; SLang_push_string(buf); } char *safe_strcpy (char *a, char *b, int n) { n--; strncpy (a, b, n); a[n] = 0; return a; } char *safe_strcat (char *a, char *b, int n) { int len = strlen (a); int max; n--; max = n - len; if (max > 0) { strncpy (a + len, b, max); a[n] = 0; } return a; } { *s++ = '^'; if (ch == 127) ch = '?'; else ch = '@' + ch; } else if ((ch == '^') || (ch == '\\')) { *s++ = '\\'; } *s++ = ch; } *s = jed-0.97.12/src/misc.h000064400000000000003000000025350603742313300141710ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #ifndef _JED_MISC_H_ #define _JED_MISC_H_ #include "window.h" extern void exit_error(char *, int); extern void msg_error(char *); extern void message(char *); extern void read_string(char *, int *); extern void do_error(void); extern void clear_error(void); extern int jed_getkey(void); extern int begin_keyboard_macro(void); extern int macro_query(void); extern int end_keyboard_macro(void); extern int execute_keyboard_macro(void); extern void get_last_macro(void); extern int Defining_Keyboard_Macro; extern int Executing_Keyboard_Macro; extern char Error_Buffer[256]; extern char Message_Buffer[256]; /* information needed by minibuffer and display routines */ typedef struct MiniInfo_Type { Window_Type *action_window; /* buffer for minibuffer action */ unsigned char prompt[132]; int prompt_len; int effective_prompt_len; /* length when tabs/etc are expanded */ } MiniInfo_Type; extern MiniInfo_Type Mini_Info; extern int get_macro(void); extern int Exit_From_MiniBuffer; extern char *Macro_Buffer_Ptr; extern char *read_from_minibuffer(char *, char *, char *, int *); extern char *safe_strcat (char *, char *, int); extern char *safe_strcpy (char *, char *, int); #define IS_MINIBUFFER (JWindow->top == *tt_Screen_Rows) #endif ction */ unsigned char prompt[132]; int prompt_len; int effective_prompt_len; /* length when tabs/etc are expanded */ } MiniInfo_Type; extjed-0.97.12/src/mkdoc.c000064400000000000003000000110330603742313300143170ustar00rootsys00000000000000#include FILE *Fpin = stdin; FILE *Fpout = stdout; #define SKIP_TO(x) while (c = getc(Fpin), (c != EOF) && (c != (x))) #define SKIP_WHITE while (c = getc(Fpin), (c == ' ') || (c == '\t')) void do_sl_file() { int c = '\n'; int type, n; /* looking for this format: ) function ;%% doc... */ while (c != EOF) { while ((c != '\n') && (c != EOF)) c = getc(Fpin); n = 0; while (1) { SKIP_WHITE; if (c != ';') break; if (getc(Fpin) != '%') break; if (getc(Fpin) != '%') break; SKIP_WHITE; n = 1; if (c == EOF) break; do { putc(c, Fpout); } SKIP_TO('\n'); putc(1, Fpout); } if (n) putc('\n', Fpout); } } void do_c_file() { int c = '\n'; int type; while (c != EOF) { while ((c != '\n') && (c != EOF)) c = getc(Fpin); SKIP_WHITE; if (c != 'a') continue; c = getc(Fpin); if (c != 'd') continue; c = getc(Fpin); if (c != 'd') continue; c = getc(Fpin); if (c != '_') continue; c = getc(Fpin); if (c == 'i') { c = getc(Fpin); if (c != 'n') continue; c = getc(Fpin); if (c != 't') continue; c = getc(Fpin); if (c != 'r') continue; c = getc(Fpin); if (c != 'i') continue; c = getc(Fpin); if (c != 'n') continue; c = getc(Fpin); if (c != 's') continue; c = getc(Fpin); if (c != 'i') continue; c = getc(Fpin); if (c != 'c') continue; type = 'f'; putc('F', Fpout); } else if (c != 'v') continue; else { c = getc(Fpin); if (c != 'a') continue; c = getc(Fpin); if (c != 'r') continue; c = getc(Fpin); if (c != 'i') continue; c = getc(Fpin); if (c != 'a') continue; c = getc(Fpin); if (c != 'b') continue; c = getc(Fpin); if (c != 'l') continue; c = getc(Fpin); if (c != 'e') continue; type = 'v'; putc('V', Fpout); } SKIP_WHITE; if (c != '(') continue; SKIP_WHITE; if (c != '"') continue; SKIP_TO('"') { if (c == '\\') { c = getc(Fpin); if ((c != '"') && (c != '\\')) putc('\\', Fpout); } putc(c, Fpout); } fflush(Fpout); if (type == 'f') /* get function, parameter number and return type */ { /* example: add_intrinsic("coreleft", (long) show_memory,VOID_TYPE, 0); */ SKIP_TO(')'); /* (long) */ SKIP_WHITE; putc(':', Fpout); putc(c, Fpout); SKIP_TO(',') { putc(c, Fpout); } putc(':', Fpout); SKIP_WHITE; putc(c, Fpout); /* type: V,S,I (void, string , integer ) */ SKIP_TO(','); putc(':', Fpout); SKIP_WHITE; if (c != EOF) putc(c, Fpout); /* number of parameters */ } putc(1, Fpout); /* get doc string */ SKIP_TO('\n'); SKIP_WHITE; /* doc follows / * ;; syntax */ if (c != '/') { ungetc(c, Fpin); c = '\n'; putc('\n', Fpout); continue; } c = getc(Fpin); if (c != '*') { putc('\n', Fpout); continue; } while (1) { SKIP_WHITE; if (c != ';') break; c = getc(Fpin); if (c != ';') break; SKIP_TO('\n') putc(c, Fpout); putc(1, Fpout); /* literal ^A to separate lines */ } ungetc(c, Fpin); c = '\n'; putc('\n', Fpout); } } int process_file(char *file) { if ((Fpin = fopen(file,"r")) == NULL) return(0); /* do_sl_file(); */ do_c_file(); fclose(Fpin); } void do_filelist(char *file) { char line[512], *chp, *linep; FILE *fp; if (NULL == (fp = fopen(file, "r"))) { fprintf(stderr, "unable to open input file: %s\n", file); exit(1); } while(NULL != fgets(line, 511, fp)) { if (*line == '#') continue; linep = line; while(*linep && (*linep <= ' ')) linep++; chp = linep; while (*chp > ' ') chp++; *chp = 0; if (! *linep) continue; if (!process_file(linep)) { fprintf(stderr, "Unable to open %s\n", linep); } } fclose(fp); } void usage(void) { fprintf(stderr, "mkdoc [-o docfile] [-i filelist] [file1 ...]\n"); exit(1); } int main(int argc, char **argv) { int i; char *arg; if (argc < 2) usage(); for (i = 1; i < argc; ) { arg = argv[i++]; if ((i != argc) && !strcmp(arg, "-i")) { do_filelist(argv[i++]); } else if ((i != argc) && !strcmp(arg, "-o")) { if ((Fpout != NULL) && (Fpout != stdout)) fclose(Fpout); if ((Fpout = fopen(argv[i++], "w")) == NULL) { fprintf(stderr, "Unable to open output file %s\n", argv[i - 1]); exit(1); } } else process_file(arg); } exit(0); return(0); } char *arg; if (argc < 2) usage(); for (i = 1; i < argc; ) { arg = argv[i++]; if ((i != argc) && !strcmp(arg, "-i")) { do_filelist(argv[i++]); } else if ((i != argc) && !strcmp(arg, "-o")) { if ((Fpout != NULL) && (Fpout != stdout)) fclose(Fpout); if ((Fpout = fopen(argv[i++], "w")) == NULL) { fprintf(stderr, "Unable to open output file %s\n", argv[i - 1]); exit(1); } } else process_file(arg); } jed-0.97.12/src/mouse.c000064400000000000003000000011620603742313300143540ustar00rootsys00000000000000#include #include "config.h" #include "sysdep.h" #include "slang.h" #include "keymap.h" #include "misc.h" #include "paste.h" #include "screen.h" #include "ledit.h" #include "ins.h" #include "display.h" #include "hooks.h" int (*JMouse_Event_Hook)(void); void (*JMouse_Hide_Mouse_Hook) (int); int Suspend_Mouse_Events; #ifdef USE_GPM_MOUSE # include "gpmmouse.c" #else #if defined(msdos) || defined(__GO32__) # include "pcmouse.c" #else # ifdef __os2__ # include "os2mouse.c" # else int (*X_Open_Mouse_Hook)(void); void (*X_Close_Mouse_Hook)(void); # endif /* os2 */ #endif /* ibmpc */ #endif /* USE_GPM_MOUSE */ " #include "paste.h" #include "screen.h" #include "ledit.h" #include "ins.h" #include "display.h" #include "hooks.h" int (*JMouse_Event_Hook)(void); void (*JMouse_Hide_Mouse_Hook) (int); int Suspend_Mouse_Events; #ifdef USE_GPM_MOUSE # include "gpmmouse.c" #else #if defined(msdos) || defined(__GO32__) # include "pcmouse.c" #else # ifdef __os2__ # include "os2mouse.c" # else int (*X_Open_Moujed-0.97.12/src/os2.c000064400000000000003000000561750603742313300137450ustar00rootsys00000000000000#if !defined (_MSC_VER) && !defined (__EMX__) # include #endif #define INCL_BASE #define INCL_NOPM #define INCL_VIO #define INCL_KBD #define INCL_DOS #include #include #include #include #include #include #include #include #include "config.h" #include "sysdep.h" #include "screen.h" #include "buffer.h" #include "misc.h" #include "hooks.h" int Abort_Char = 7; /* scan code for G (control) */ #include "dos_os2.c" extern char *get_cwd (void); void delay (int time); void set_kbd (void); void os2_kbdhandler_thread (void); #define lowercase strlwr KBDINFO initialKbdInfo; /* keyboard info */ static int atEnd = 0; #ifdef __os2_16__ typedef USHORT APIRET; typedef HSEM OS2_SEM; #define DosRequestMutexSem(hmtx,timeout) DosSemRequest(hmtx,timeout) #define DosReleaseMutexSem(hmtx) DosSemClear(hmtx) #define DosCloseMutexSem(hmtx) DosCloseSem(hmtx) #else /* !defined(__os2_16__) */ typedef HMTX OS2_SEM; #endif /* Semaphore code for accessing keyboard buffers in threads*/ static OS2_SEM Hmtx_Kbd ; /* Mutex Semaphore */ APIRET CreateSem(OS2_SEM *Hmtx) { APIRET result; #ifdef __os2_16__ static SemNo = 0; char SemName[32]; sprintf(SemName, "\\SEM\\jed\\%u", getpid() + SemNo++); result = DosCreateSem (0, Hmtx, SemName); #else result = DosCreateMutexSem (NULL, Hmtx, 0, 0); #endif DosReleaseMutexSem (*Hmtx); return result; } APIRET CloseSem (OS2_SEM Hmtx) { return( DosCloseMutexSem (Hmtx) ); } /* define these using macros to improve efficiency */ #define RequestSem(Hmtx) DosRequestMutexSem (Hmtx, -1); #define ReleaseSem(Hmtx) DosReleaseMutexSem (Hmtx); #undef USING_INPUT_BUFFER #undef DONE_WITH_INPUT_BUFFER #define USING_INPUT_BUFFER RequestSem (Hmtx_Kbd); #define DONE_WITH_INPUT_BUFFER ReleaseSem (Hmtx_Kbd); /* do this using a macro to improve efficiency */ #define os2_buffer_keystring(s, n) \ if (!(n + Input_Buffer_Len > MAX_INPUT_BUFFER_LEN - 3)) { \ \ USING_INPUT_BUFFER \ MEMCPY ((char *) Input_Buffer + Input_Buffer_Len, s, n); \ Input_Buffer_Len += n; \ DONE_WITH_INPUT_BUFFER \ } #define THREADSTACKSIZE 32768 static TID Os2_Kbdhandler_ThreadID = (TID) 0 ; /* in a separate thread, read keyboard and put the keys into JED's keyboard * buffer */ static int enhancedKeyboard; #define keyWaiting() (Input_Buffer_Len) static void os2_thread_process_key (unsigned int c0, unsigned int c1, unsigned int shift) { unsigned int i; int num = 0; char *normal = "!@#$%^&*()-=\t*\0177QWERTYUIOP[]\r*ASDFGHJKL;'`*\\ZXCVBNM<>/"; unsigned char keystr [3]; shift = shift & 0xF; i = (c1 << 8) | c0; switch (i) { case 0x0E08: keystr [0] = 127; num = 1; break; case 0x0EFF: keystr [0] = 8; num = 1; break; case 0xE02F: c1 = 'Q'; break; /* KEYPAD SLASH */ case 0x372A: c1 = 'R'; break; /* KEYPAD STAR */ case 0x4A2D: c1 = 'S'; break; /* KEYPAD MINUS */ case 0x4700: c1 = 'w'; break; /* KEYPAD HOME */ case 0x4800: c1 = 'x'; break; /* KEYPAD UP */ case 0x4900: c1 = 'y'; break; /* KEYPAD PGUP */ case 0x4B00: c1 = 't'; break; /* KEYPAD LEFT */ case 0x4C00: c1 = 'u'; break; /* KEYPAD 5 */ case 0x4D00: c1 = 'v'; break; /* KEYPAD RIGHT */ case 0x4F00: c1 = 'q'; break; /* KEYPAD END */ case 0x5000: c1 = 'r'; break; /* KEYPAD DOWN */ case 0x5100: c1 = 's'; break; /* KEYPAD PGDN */ case 0x4E2B: c1 = 'm'; break; /* KEYPAD PLUS */ case 0xE00D: c1 = 'M'; break; /* KEYPAD ENTER */ case 0x5300: c1 = 'n'; break; /* KEYPAD DEL */ case 0x5200: c1 = 'p'; break; /* KEYPAD INSERT */ case 0x3920: if ((shift & 4) == 0) {keystr [0] = ' '; num = 1; break;} i = 0x0300; /* drop */ default: c0 = i & 0xFF; c1 = i >> 8; if ((c0 == 0) || (c0 == 0xE0)) { if (PC_Alt_Char && (shift == 0x8)) { if ((c1 >= 14) && (c1 <= 53)) { c1 = (unsigned int) normal[c1]; } else if ((c1 >= 120) && (c1 <= 131)) { c1 = (unsigned int) normal[c1 - 120]; } else if (c1 == 165) /* tab */ { c1 = (unsigned int) normal[c1 - 165 + 12]; } c0 = PC_Alt_Char; } keystr [1] = c1; num = 2; } keystr [0] = c0; if (num == 0) num = 1; } if (num == 0) { keystr [2] = c1; keystr [1] = 'O'; keystr [0] = 27; num = 3; } os2_buffer_keystring (keystr, num); } static void os2_kbdhandler_thread () { KBDKEYINFO keyInfo; while (!atEnd) { /* at end is a flag */ KbdCharIn(&keyInfo, IO_NOWAIT, 0); /* get a character */ if (keyInfo.fbStatus & 0x040) { /* found a char process it */ if (keyInfo.chChar == Abort_Char) { SLang_Error = 2; SLKeyBoard_Quit = 1; } /* now process them */ /* read codes from buffer */ os2_thread_process_key (keyInfo.chChar, keyInfo.chScan, keyInfo.fsState); } else { /* no char available*/ set_kbd(); /* is this necessary? */ DosSleep (50); } } } static void os2_kbdthread (void *Args) { (void) Args; os2_kbdhandler_thread (); atEnd = 0; /* reset the flag */ _endthread(); } /* The code below is in the main thread */ void set_kbd() { KBDINFO kbdInfo; kbdInfo = initialKbdInfo; kbdInfo.fsMask &= ~0x0001; /* not echo on */ kbdInfo.fsMask |= 0x0002; /* echo off */ kbdInfo.fsMask &= ~0x0008; /* cooked mode off */ kbdInfo.fsMask |= 0x0004; /* raw mode */ kbdInfo.fsMask &= ~0x0100; /* shift report off */ KbdSetStatus(&kbdInfo, 0); } void init_tty () { VIOCURSORINFO cursorInfo, OldcursorInfo; if (Batch) return; #ifdef HAS_MOUSE if (X_Open_Mouse_Hook != NULL) (*X_Open_Mouse_Hook) (); #endif /* set ^C off */ signal (SIGINT, SIG_IGN); signal (SIGBREAK, SIG_IGN); initialKbdInfo.cb = sizeof(initialKbdInfo); KbdGetStatus(&initialKbdInfo, 0); set_kbd(); enhancedKeyboard = 1; CreateSem (&Hmtx_Kbd); /* start a separate to read the keyboard */ #if defined(__BORLANDC__) Os2_Kbdhandler_ThreadID = _beginthread (os2_kbdthread, THREADSTACKSIZE, NULL); #else Os2_Kbdhandler_ThreadID = _beginthread (os2_kbdthread, NULL, THREADSTACKSIZE, NULL); #endif if ((int)Os2_Kbdhandler_ThreadID == -1) { exit_error ("init_tty: Error starting keyboard thread.", 0); } VioGetCurType (&OldcursorInfo, 0); cursorInfo.yStart = 1; cursorInfo.cEnd = 15; cursorInfo.cx = 1; cursorInfo.attr = 1; if (VioSetCurType (&cursorInfo, 0)) VioSetCurType (&OldcursorInfo, 0); /* reset to previous value */ } void reset_tty () { if (Batch) return; atEnd = 1; /* set flag and wait until thread ends */ #if __os2_16__ while (atEnd) {DosSleep (0);} #else DosWaitThread (&Os2_Kbdhandler_ThreadID, DCWW_WAIT); #endif /* close the keyboard */ KbdSetStatus(&initialKbdInfo, 0); /* restore original state */ #ifdef HAS_MOUSE if (X_Close_Mouse_Hook != NULL) (*X_Close_Mouse_Hook) (); #endif CloseSem (Hmtx_Kbd); } /* sleep for *tsecs tenths of a sec waiting for input */ static int sys_input_pending(int *tsecs, int unused) { int count = *tsecs * 5; (void) unused; if (Batch || Input_Buffer_Len) return(Input_Buffer_Len); if (count) { while(count > 0) { delay(20); /* 20 ms or 1/50 sec */ if (keyWaiting ()) break; count--; } return(count); } else return(keyWaiting ()); } unsigned char sys_getkey () { int weird = 300; while (!sys_input_pending(&weird, 0)) { if (Display_Time) { JWindow->trashed = 1; update((Line *) NULL, 0, 1); } } /* if (JMouse_Hide_Mouse_Hook != NULL) (*JMouse_Hide_Mouse_Hook) (0); */ return my_getkey (); } void sys_flush_input() { KbdFlushBuffer(0); } int get_term_dimensions(int *w, int *h) { VIOMODEINFO vioModeInfo; vioModeInfo.cb = sizeof(vioModeInfo); VioGetMode (&vioModeInfo, 0); *w = vioModeInfo.col; *h = vioModeInfo.row; return 0; } #if defined(_MSC_VER) || defined (__EMX__) int sys_chmod(char *file, int what, int *mode, short *uid, short *gid) { struct stat buf; int m; #ifdef _MSC_VER /* MSC stat() is broken on directory names ending with a slash */ char path[_MAX_PATH]; strcpy(path, file); deslash(file = path); #endif if (what) { chmod(file, *mode); return(0); } if (stat(file, &buf) < 0) switch (errno) { case EACCES: return(-1); /* es = "Access denied."; break; */ case ENOENT: return(0); /* ms = "File does not exist."; */ case ENOTDIR: return(-2); /* es = "Invalid Path."; */ default: return(-3); /* "stat: unknown error."; break;*/ } m = buf.st_mode; *mode = m & 0777; if (m & S_IFDIR) return (2); return(1); } #else int sys_chmod(char *file, int what, int *mode, short *dum1, short *dum2) { FILESTATUS3 fileInfo; USHORT Result; char path[_MAX_PATH]; (void) dum1; (void) dum2; /* DosQueryPathInfo won't work with directory names ending with a slash */ strcpy(path, file); deslash(file = path); Result = DosQueryPathInfo (path, FIL_STANDARD, &fileInfo, sizeof (fileInfo)); if (Result == ERROR_FILE_NOT_FOUND) return 0; else if (Result == ERROR_ACCESS_DENIED) return -1; else if (Result == ERROR_INVALID_PATH) return -2; else if (Result != NO_ERROR) return -3; *mode = fileInfo.attrFile; if (what) { fileInfo.attrFile = *mode; DosSetPathInfo (file, FIL_STANDARD, &fileInfo, sizeof (fileInfo), 0); } if (*mode & 0x10) return(2); else return (1); } #endif static char Found_Dir[256]; #ifdef __os2_16__ #define DosFindFirst(FileName, DirHandle, Attribute, ResultBuf, \ ResultBufLen, SearchCount, Reserved) \ DosFindFirst(FileName, DirHandle, Attribute, ResultBuf, \ ResultBufLen, SearchCount, 0) #endif int sys_findfirst(char *theFile) { char *f, the_path[CCHMAXPATH], *file, *f1; char *pat; #if defined(__os2_16__) FILEFINDBUF FindBuffer; USHORT FindCount; USHORT File_Attr; #else FILEFINDBUF3 FindBuffer; ULONG FindCount; ULONG File_Attr; #endif HDIR FindHandle; File_Attr = FILE_READONLY | FILE_DIRECTORY; file = expand_filename(theFile); f1 = f = extract_file(file); strcpy (Found_Dir, file); Found_Dir[(int) (f - file)] = 0; strcpy(the_path, file); while (*f1 && (*f1 != '*')) f1++; if (! *f1) { while (*f && (*f != '.')) f++; if (*f) strcat(the_path, "*"); else strcat(the_path, "*.*"); } pat = the_path; FindHandle = 1; FindCount = 1; if (DosFindFirst(pat, &FindHandle, File_Attr, &FindBuffer, sizeof (FindBuffer), &FindCount, FIL_STANDARD) != NO_ERROR) return 0; strcpy (theFile, Found_Dir); strcat (theFile, FindBuffer.achName); if (FindBuffer.attrFile & FILE_DIRECTORY) fixup_dir (theFile); return 1; } int sys_findnext(char *file) { #ifdef __os2_16__ FILEFINDBUF FindBuffer; USHORT FileCount; #else FILEFINDBUF3 FindBuffer; ULONG FileCount; #endif FileCount = 1; if (DosFindNext(1, &FindBuffer, sizeof (FindBuffer), &FileCount)) return 0; else { strcpy (file, Found_Dir); strcat (file, FindBuffer.achName); if (FindBuffer.attrFile & FILE_DIRECTORY) fixup_dir (file); return 1; } } /* Here we do a find first followed by calling routine to conver time */ #if defined(_MSC_VER) || defined(__EMX__) unsigned long sys_file_mod_time(char *file) { struct stat buf; if (stat(file, &buf) < 0) return(0); return((unsigned long) buf.st_mtime); } #else unsigned long sys_file_mod_time(char *file) { FILESTATUS3 fileInfo; struct time t; struct date d; if (DosQueryPathInfo (file, FIL_STANDARD, &fileInfo, sizeof (fileInfo)) != NO_ERROR) return 0; t.ti_min = fileInfo.ftimeLastWrite.minutes; t.ti_hour = fileInfo.ftimeLastWrite.hours; t.ti_hund = 0; t.ti_sec = fileInfo.ftimeLastWrite.twosecs; d.da_day = fileInfo.fdateLastWrite.day; d.da_mon = fileInfo.fdateLastWrite.month; d.da_year = fileInfo.fdateLastWrite.year; return dostounix(&d, &t); } #endif void delay (int time) { DosSleep (time); } int IsHPFSFileSystem (char *directory) { ULONG lMap; BYTE bData[128]; BYTE bName[3]; int i; char *FName; #if defined (__os2_16__) USHORT cbData; USHORT nDrive; #define DosQueryCurrentDisk DosQCurDisk #else ULONG cbData; ULONG nDrive; PFSQBUFFER2 pFSQ = (PFSQBUFFER2)bData; #endif if ( _osmode == DOS_MODE ) return FALSE; if (isalpha (directory[0]) && (directory[1] == ':')) nDrive = toupper (directory[0]) - '@'; else DosQueryCurrentDisk (&nDrive, &lMap); /* Set up the drive name */ bName[0] = (char) (nDrive + '@'); bName[1] = ':'; bName[2] = 0; cbData = sizeof (bData); #if defined(__os2_16__) if (DosQFSAttach (bName, 0, FSAIL_QUERYNAME, bData, &cbData, 0L)) #else if (DosQueryFSAttach (bName, 0, FSAIL_QUERYNAME, pFSQ, &cbData)) #endif return FALSE; #if defined(__os2_16__) FName = bData + (*((USHORT *) (bData + 2)) + 7); #else FName = pFSQ->szName + pFSQ->cbName + 1; #endif if (strcmp(FName, "HPFS")) return FALSE; return(TRUE); } /* Code for EAs */ #if defined(__os2_16__) /* Variables and data structures used for handling EA's, these are defined in the 32 BIT API, so these will be included in os2.h */ typedef USHORT APIRET; typedef struct _FEA2 /* fea2 */ { #if 0 /* This field is in the 32 bit structure */ ULONG oNextEntryOffset; /* New field */ #endif BYTE fEA; BYTE cbName; USHORT cbValue; CHAR szName[1]; /* New field */ } FEA2; typedef FEA2 *PFEA2; typedef struct _FEA2LIST /* fea2l */ { ULONG cbList; FEA2 list[ 1 ]; } FEA2LIST; typedef FEA2LIST *PFEA2LIST; typedef struct _GEA2 /* gea2 */ { #if 0 /* New field - in the 32 bit structure */ ULONG oNextEntryOffset; #endif /* OS2_32 */ BYTE cbName; CHAR szName[ 1 ]; /* New field */ } GEA2; typedef GEA2 *PGEA2; typedef struct _GEA2LIST /* gea2l */ { ULONG cbList; GEA2 list[ 1 ]; } GEA2LIST; typedef GEA2LIST *PGEA2LIST; typedef struct _EAOP2 /* eaop2 */ { PGEA2LIST fpGEA2List; /* GEA set */ PFEA2LIST fpFEA2List; /* FEA set */ ULONG oError; /* Offset of FEA error */ } EAOP2; /* typedef EAOP2 *PEAOP2; */ #define DosSetPathInfo(PathName, PathInfoLevel, PathInfoBuf, \ PathInfoBufSize, PathInfoFlags) \ DosSetPathInfo(PathName, PathInfoLevel, PathInfoBuf, \ PathInfoBufSize, PathInfoFlags, 0) #define DosQueryPathInfo(PathName, PathInfoLevel, PathInfoBuf, \ PathInfoBufSize) \ DosQPathInfo(PathName, PathInfoLevel, PathInfoBuf, PathInfoBufSize, 0) #define DosEnumAttribute(RefType, FileRef, EntryNum, EnumBuf, \ EnumBufSize, EnumCnt, InfoLevel) \ DosEnumAttribute(RefType, FileRef, EntryNum, EnumBuf, \ EnumBufSize, EnumCnt, InfoLevel, 0) #endif /* The HoldFEA is used to hold individual EAs. The member names correspond directly to those of the FEA structure. Note however, that both szName and aValue are pointers to the values. An additional field, next, is used to link the HoldFEA's together to form a linked list. */ struct _HoldFEA { BYTE fEA; /* Flag byte */ BYTE cbName; USHORT cbValue; CHAR *szName; BYTE *aValue; struct _HoldFEA *next; }; typedef struct _HoldFEA HOLDFEA; #define MAX_GEA 500L /* Max size for a GEA List */ #define REF_ASCIIZ 1 /* Reference type for DosEnumAttribute */ #define GET_INFO_LEVEL1 1 /* Get info from SFT */ #define GET_INFO_LEVEL2 2 /* Get size of FEAlist */ #define GET_INFO_LEVEL3 3 /* Get FEAlist given the GEAlist */ #define GET_INFO_LEVEL4 4 /* Get whole FEAlist */ #define GET_INFO_LEVEL5 5 /* Get FSDname */ #define SET_INFO_LEVEL1 1 /* Set info in SFT */ #define SET_INFO_LEVEL2 2 /* Set FEAlist */ /* #define BufferSize 1024 static char FileBuffer [BufferSize]; */ static HOLDFEA *pHoldFEA; /* EA linked-list pointer */ /* Free_FEAList (pFEA) Frees the memory used by the linked list of HOLDFEA's pointed to by pFEA */ void Free_FEAList( HOLDFEA *pFEA ) { HOLDFEA *next; /* Holds the next field since we free the structure before reading the current next field */ /* Step through the list freeing all the fields */ while( pFEA ) { /* Free the fields of the struct */ next = pFEA->next; if( pFEA->szName != NULL ) /* Free if non-NULL name */ free(pFEA->szName); if( pFEA->aValue != NULL ) /* Free if non-NULL value */ free(pFEA->aValue); /* Free the pFEA struct itself and move on to the next field */ free(pFEA); pFEA = next; } } #if 0 /* Read the EA type, this is stored at the start of the EA value */ ULONG getEAType( const CHAR *Value ) { USHORT Type = *( USHORT * ) Value; return( Type ); } /* Return the EA length, stored in pFEA, this done so that it is calculated in only one place */ ULONG getEALength( const HOLDFEA *pFEA ) { return( sizeof( FEA2 ) - sizeof( CHAR ) /* Don't include the first element of aValue */ + pFEA->cbName + 1 /* Length of ASCIIZ name */ + pFEA->cbValue ); /* The value length */ } /* Set the first two words of the EA value, this is usually the EA type and EA size in pFEA, from the values Type and Size */ void setEATypeSize( const HOLDFEA *pFEA, const USHORT Type, const USHORT Size ) { USHORT *valPtr = ( USHORT * ) pFEA->aValue; valPtr[ 0 ] = Type; valPtr[ 1 ] = Size; } /* Read the first two words of the EA value, this is usually the EA type and EA size in pFEA, into the Type and Size */ void getEATypeSize( const HOLDFEA *pFEA, USHORT *Type, USHORT *Size ) { USHORT *valPtr = ( USHORT * ) pFEA->aValue; *Type = valPtr[ 0 ]; *Size = valPtr[ 1 ]; } /* Get the address of the EA value in pFEA, ie skip over the Type and Size */ void* getEADataVal (const HOLDFEA *pFEA) { /* Skip over the type and size */ return pFEA->aValue + 2 * sizeof ( USHORT ); } #endif /* QueryEAs (szFileName) find all EAs that file szFileName has return these in the linked list of HOLDFEAs if no EAs exist or the linked list cannot be created then return NULL This function is modelled after code from IBM's Toolkit */ HOLDFEA *QueryEAs( const CHAR *szFileName ) { HOLDFEA *pHoldFEA; /* The start of the linked list */ CHAR *pAllocc = NULL; /* Temp buffer used with DosEnumAttribute */ CHAR *pBigAlloc = NULL; /* Temp buffer to hold each EA as it is read in */ USHORT cbBigAlloc = 0; ULONG ulEntryNum = 1; /* Count of current EA to read (1-relative) */ ULONG ulEnumCnt; /* Number of EAs for Enum to return, always 1 */ HOLDFEA *pLastIn = 0; /* Points to last EA added, so new EA can link */ HOLDFEA *pNewFEA = NULL; /* Struct to build the new EA in */ FEA2 *pFEA; /* Used to read from Enum's return buffer */ GEA2LIST *pGEAList; /* Ptr used to set up buffer for DosQueryPathInfo() */ EAOP2 eaopGet; /* Used to call DosQueryPathInfo() */ pAllocc = malloc( MAX_GEA ); /* Allocate room for a GEA list */ pFEA = ( FEA2 * ) pAllocc; pHoldFEA = NULL; /* Initialize the linked list */ /* Loop through all the EA's adding them to the list */ while( TRUE ) { ulEnumCnt = 1; /* No of EAs to retrieve */ if( DosEnumAttribute( REF_ASCIIZ, /* Read into EA name into */ szFileName, /* pAlloc Buffer */ ulEntryNum, pAllocc, MAX_GEA, &ulEnumCnt, ( LONG ) GET_INFO_LEVEL1 ) ) break; /* An error */ /* Exit if all the EA's have been read */ if( ulEnumCnt != 1 ) break; /* Move on to next EA */ ulEntryNum++; /* Try and allocate the HoldFEA structure */ if( ( pNewFEA = malloc( sizeof( HOLDFEA ) ) ) == NULL ) { free( pAllocc ); Free_FEAList( pHoldFEA ); return( NULL ); } /* Fill in the HoldFEA structure */ pNewFEA->cbName = pFEA->cbName; pNewFEA->cbValue= pFEA->cbValue; pNewFEA->fEA = pFEA->fEA; pNewFEA->next = '\0'; /* pNewFEA->next = NULL; */ /* Allocate the two arrays */ if( ( pNewFEA->szName = malloc( pFEA->cbName + 1 ) ) == NULL || \ ( pNewFEA->aValue = malloc( pFEA->cbValue ) ) == NULL ) { /* Out of memory, clean up and exit */ if( pNewFEA->szName ) free( pNewFEA->szName ); if( pNewFEA->aValue ) free( pNewFEA->aValue ); free( pAllocc ); free( pNewFEA ); Free_FEAList( pHoldFEA ); return( NULL ); } /* Copy EA name across */ strcpy( pNewFEA->szName, pFEA->szName ); cbBigAlloc = sizeof( FEA2LIST ) + pNewFEA->cbName + 1 + pNewFEA->cbValue; /* +1 is for '\0' */ if( ( pBigAlloc = malloc( cbBigAlloc ) ) == NULL ) { free( pNewFEA->szName ); free( pNewFEA->aValue ); free( pAllocc ); free( pNewFEA ); Free_FEAList( pHoldFEA ); return( NULL ); } /* Set up GEAlist structure */ pGEAList = ( GEA2LIST * ) pAllocc; pGEAList->cbList = sizeof( GEA2LIST ) + pNewFEA->cbName; /* + 1 for NULL */ #ifndef __os2_16__ pGEAList->list[ 0 ].oNextEntryOffset = 0L; #endif pGEAList->list[ 0 ].cbName = pNewFEA->cbName; strcpy( pGEAList->list[ 0 ].szName, pNewFEA->szName ); eaopGet.fpGEA2List = ( GEA2LIST FAR * ) pAllocc; eaopGet.fpFEA2List = ( FEA2LIST FAR * ) pBigAlloc; eaopGet.fpFEA2List->cbList = cbBigAlloc; /* Get the complete EA info and copy the EA value */ DosQueryPathInfo( szFileName, FIL_QUERYEASFROMLIST, ( PVOID ) &eaopGet, \ sizeof( EAOP2 ) ); memcpy( pNewFEA->aValue, \ pBigAlloc + sizeof( FEA2LIST ) + pNewFEA->cbName, \ pNewFEA->cbValue ); /* Release the temp. Enum buffer */ free( pBigAlloc ); /* Add to the list */ if( pHoldFEA == NULL ) pHoldFEA = pNewFEA; else pLastIn->next = pNewFEA; pLastIn = pNewFEA; } /* Free up the GEA buffer for DosEnum() */ free( pAllocc ); return pHoldFEA; } /* WriteEAs(szFileName, pHoldFEA) Write the EAs contained in the linked list pointed to by pHoldFEA to the file szFileName. Returns TRUE if the write was successful, FALSE otherwise */ int WriteEAs( const char *szFileName, HOLDFEA *pHoldFEA ) { HOLDFEA *pHFEA = pHoldFEA; EAOP2 eaopWrite; CHAR *aPtr = NULL; USHORT usMemNeeded; APIRET rc; eaopWrite.fpGEA2List = NULL; while( pHFEA ) /* Go through each HoldFEA */ { usMemNeeded = sizeof( FEA2LIST ) + pHFEA->cbName + 1 + pHFEA->cbValue; if( ( aPtr = malloc( usMemNeeded ) ) == NULL ) return FALSE; /* Fill in eaop structure */ eaopWrite.fpFEA2List = ( FEA2LIST FAR * ) aPtr; eaopWrite.fpFEA2List->cbList = usMemNeeded; #ifdef __os2_16__ /* ugly hack for difference in 16-bit FEA struct */ eaopWrite.fpFEA2List->cbList -= ( sizeof(FEA2LIST) - sizeof(FEALIST) ); #else eaopWrite.fpFEA2List->list[ 0 ].oNextEntryOffset = 0L; #endif eaopWrite.fpFEA2List->list[ 0 ].fEA = pHFEA->fEA; eaopWrite.fpFEA2List->list[ 0 ].cbName = pHFEA->cbName; eaopWrite.fpFEA2List->list[ 0 ].cbValue = pHFEA->cbValue; strcpy( eaopWrite.fpFEA2List->list[ 0 ].szName, pHFEA->szName ); memcpy( eaopWrite.fpFEA2List->list[ 0 ].szName + pHFEA->cbName + 1, \ pHFEA->aValue, pHFEA->cbValue ); /* Write out the EA */ rc = DosSetPathInfo( szFileName, FIL_QUERYEASIZE, ( PVOID ) &eaopWrite, sizeof( EAOP2 ), DSPI_WRTTHRU ); /* Free up the FEALIST struct */ free( aPtr ); /* If the write failed, leave now */ if( rc ) return FALSE; pHFEA = pHFEA->next; } return( TRUE ); } >list[ 0 ].szName, pHFEA->szName ); memcpy( eaopWrite.fpFEA2List->list[ 0 ].szName + pHFEA->cbName + 1, \ pHFEA->aValue, pHFEA->cbValue ); /* Write out the EA */ rc = DosSetPathInfo( szFileName, FIL_QUERYEASIZE, ( PVOID ) &eaopWrite, sizeof( EAOP2 ), DSPI_WRTTHRU ); /* Free up the FEALIST struct */ free( aPtr ); /* If jed-0.97.12/src/os2mouse.c000064400000000000003000000161040603742313300150020ustar00rootsys00000000000000#ifdef HAS_MOUSE #define INCL_ERRORS #define INCL_SUB #define INCL_DOSPROCESS #define INCL_DOSSEMAPHORES #include #include static void show_mouse (int show); #define MOUSE_RELEASE 'U' #define MOUSE_DRAG 0 #define MOUSE_PRESS 'D' #if __os2_16__ typedef USHORT APIRET; #define DosSetPriority DosSetPrty #endif #define THREADSTACKSIZE 32768 static TID Os2_Mouse_ThreadID = (TID) 0; static int Mouse_Hidden = 1; static int Last_Mouse_Hidden = 1; static HMOU Mouse_Handle = -1; #define MOUSE_BN1 (MOUSE_MOTION_WITH_BN1_DOWN | MOUSE_BN1_DOWN) #define MOUSE_BN2 (MOUSE_MOTION_WITH_BN2_DOWN | MOUSE_BN2_DOWN) #define MOUSE_BN3 (MOUSE_MOTION_WITH_BN3_DOWN | MOUSE_BN3_DOWN) #define MOUSE_NOMOVE (MOUSE_BN1_DOWN | MOUSE_BN2_DOWN | MOUSE_BN3_DOWN) #define MOUSE_DRAGGED (MOUSE_MOTION_WITH_BN1_DOWN | MOUSE_MOTION_WITH_BN2_DOWN | MOUSE_MOTION_WITH_BN3_DOWN) #define MOUSE_MOVED (MOUSE_MOTION | MOUSE_DRAGGED) #define MouseNoMove(event) (MOUSE_NOMOVE & event.fs) #define MouseMoved(event) (MOUSE_MOVED & event.fs) #define MouseDragged(event) (MOUSE_DRAGGED & event.fs) #define MouseButtonPressed(event,button) (event.fs & button) #define MouseButtons(event) (event.fs & (MOUSE_BN1 | MOUSE_BN2 | MOUSE_BN3)) static int buttonDown [3] = {0, 0, 0}; static int buttonMask [3]; USHORT noButtons; static void os2_add_event (int x, int y, int type, int but) { char buf[4]; int b, s; JMouse.x = x; JMouse.y = y; buf[0] = 27; buf[1] = 0; buf[2] = type; b = but & 0xF; s = but >> 4; if (b == 1) { JMouse.button = 1; buf[3] = 'l'; } else if (b == 2) { JMouse.button = 3; buf[3] = 'r'; } else { JMouse.button = 2; buf[3] = 'm'; } if (s & 0x8) /* alt key--- use as middle */ { buf[3] = 'm'; } if (s & 0x3) /* shift */ { buf[3] -= 0x20; } else if (s & 0x4) /* ctrl */ { buf[3] -= 0x60; } ungetkey_string (buf, 4); } static void os2_mouse_handler (void *Args) { MOUEVENTINFO event_info; APIRET Error; USHORT wait_flag; int press, i; short x, y; KBDINFO kbd_info; (void) Args; wait_flag = MOU_NOWAIT; DosSetPriority( PRTYS_THREAD, PRTYC_NOCHANGE, PRTYD_MINIMUM, 0 ) ; while (Mouse_Handle) { Error = MouReadEventQue (&event_info, &wait_flag, Mouse_Handle); if ((Error != NO_ERROR) || !event_info.time) { DosSleep (5); continue; } x = event_info.col + 1; y = event_info.row + 1; if (MouseMoved (event_info) && ((x != JMouse.x) || (y != JMouse.y))) { /* mouse moved so show it. */ show_mouse (1); } for(i = 0; i < noButtons; i++) { if(MouseButtonPressed (event_info, buttonMask[i])) { if (!buttonDown [i]) { /* I don't think that we can find shift key status in OS/2, since we * are reading the keyboard in another thread */ kbd_info.cb = sizeof (kbd_info); KbdGetStatus (&kbd_info, 0); press = (i + 1) | ((kbd_info.fsState & 0xF) << 4); os2_add_event (x, y, MOUSE_PRESS, press); buttonDown [i] = 1; continue; } else { /* button already down */ if (MouseDragged (event_info)) { if ((x == JMouse.x) && (y == JMouse.y)) continue; os2_add_event (x, y, MOUSE_DRAG, i + 1); continue; } } } else { if (buttonDown [i]) { os2_add_event (x, y, MOUSE_RELEASE, i + 1); buttonDown [i] = 0; continue; } } } } Mouse_Handle = -1; _endthread (); } static int os2_get_mouse_event (void) { return 0; } /* Mouse routines for OS/2 */ static void show_mouse (int show) { NOPTRRECT PtrRect; if (show) { if (Mouse_Hidden == 0) return; MouDrawPtr (Mouse_Handle); } else { if (Mouse_Hidden) return; PtrRect.row = 0; PtrRect.col = 0; PtrRect.cRow = *tt_Screen_Rows - 1; PtrRect.cCol = *tt_Screen_Cols - 1; MouRemovePtr (&PtrRect, Mouse_Handle); } Mouse_Hidden = !show; } static void os2_close_mouse () { MouClose (Mouse_Handle); Mouse_Handle = 0; #if defined(__os2_16__) while (!Mouse_Handle) DosSleep(0); #else DosWaitThread (&Os2_Mouse_ThreadID, DCWW_WAIT); #endif Os2_Mouse_ThreadID = 0; } static void move_mouse (int x, int y) { PTRLOC ptr_loc; ptr_loc.row = y - 1; ptr_loc.col = x - 1; MouSetPtrPos (&ptr_loc, Mouse_Handle); } static void os2_update_open_hook (void) { Last_Mouse_Hidden = Mouse_Hidden; if (Mouse_Hidden == 0) show_mouse (0); } static int Warp_Pending; static void os2_update_close_hook (void) { if (Last_Mouse_Hidden == 0) show_mouse (1); if (Warp_Pending) move_mouse (Screen_Col - 1, Screen_Row - 1); Warp_Pending = 0; } static void warp_pointer (void) { Warp_Pending = 1; } static char *CutBuffer; static int CutBuffer_Len; static int insert_cutbuffer (void) { CHECK_READ_ONLY if (CutBuffer == NULL) return 0; if (CutBuffer_Len) ins_chars ((unsigned char *) CutBuffer, CutBuffer_Len); return CutBuffer_Len; } static void region_to_cutbuffer (void) { int nbytes; if (CutBuffer != NULL) { SLFREE (CutBuffer); } CutBuffer = make_buffer_substring(&nbytes); CutBuffer_Len = nbytes; } static SLang_Name_Type os2_mouse_table[] = { MAKE_INTRINSIC(".x_warp_pointer", warp_pointer, VOID_TYPE, 0), MAKE_INTRINSIC(".x_insert_cutbuffer", insert_cutbuffer, INT_TYPE, 0), /* Prototype: Integer x_insert_cut_buffer (); * Inserts cutbuffer into the current buffer and returns the number * of characters inserted. */ MAKE_INTRINSIC(".x_copy_region_to_cutbuffer", region_to_cutbuffer, VOID_TYPE, 0), /* Prototype: Void x_copy_region_to_cutbuffer(); */ SLANG_END_TABLE }; void (*X_Close_Mouse_Hook)(void); static int os2_open_mouse () { static int not_first_time = 0; USHORT Error; X_Close_Mouse_Hook = NULL; JMouse_Event_Hook = NULL; JMouse_Hide_Mouse_Hook = NULL; X_Update_Open_Hook = NULL; X_Update_Close_Hook = NULL; /* Now open the device */ Error = MouOpen (NULL, &Mouse_Handle); if (Error) return -1; JMouse.x = *tt_Screen_Cols / 2 + 1; JMouse.y = *tt_Screen_Rows / 2 + 1; MouDrawPtr (Mouse_Handle); MouGetNumButtons (&noButtons, Mouse_Handle); if (noButtons == 3) buttonMask [2] = MOUSE_BN3; buttonMask [0] = MOUSE_BN1; buttonMask [1] = MOUSE_BN2; MouFlushQue(Mouse_Handle); /* flush mouse queue */ move_mouse (JMouse.x, JMouse.y); if (not_first_time == 0) { if (!SLang_add_table(os2_mouse_table, "Mouse") || !SLdefine_for_ifdef("MOUSE")) return -1; not_first_time = 1; } #if defined __BORLANDC__ Os2_Mouse_ThreadID = _beginthread (os2_mouse_handler, THREADSTACKSIZE, NULL); #else Os2_Mouse_ThreadID = _beginthread (os2_mouse_handler, NULL, THREADSTACKSIZE, NULL); #endif JMouse_Hide_Mouse_Hook = show_mouse; X_Close_Mouse_Hook = os2_close_mouse; /* I am not sure if I should set this */ JMouse_Event_Hook = os2_get_mouse_event; X_Update_Open_Hook = os2_update_open_hook; X_Update_Close_Hook = os2_update_close_hook; return 1; } int (*X_Open_Mouse_Hook)(void) = os2_open_mouse; #endif Os2_Mouse_ThreadID = _beginthread (os2_mouse_handler, THREADSTACKSIZE, NULL); #else Os2_Mouse_ThreadID = _beginthread (os2_mouse_handler, NULL, THREADSTACKSIZE, NULL); #endif JMouse_Hide_Mouse_Hook = show_mouse; X_Close_Mouse_Hook = os2_close_mouse; /* I am not sure if I should set this */ JMouse_Event_Hook = os2_get_mouse_event; X_Update_Open_Hook = os2_update_open_hook; X_Update_Close_Hook = os2_update_close_hook; rejed-0.97.12/src/os2jed.def000064400000000000003000000001020603742313300147170ustar00rootsys00000000000000NAME JED WINDOWCOMPAT DESCRIPTION 'JED for OS/2' STACKSIZE 150000 f Os2_Mouse_ThreadID = _beginthread (os2_mouse_handler, THREADSTACKSIZE, NULL); #else Os2_Mouse_ThreadID = _beginthread (os2_mouse_handler, NULL, THREADSTACKSIZE, NULL); #endif JMouse_Hide_Mouse_Hook = show_mouse; X_Close_Mouse_Hook = os2_close_mouse; /* I am not sure if I should set this */ JMouse_Event_Hook = os2_get_mouse_event; X_Update_Open_Hook = os2_update_open_hook; X_Update_Close_Hook = os2_update_close_hook; rejed-0.97.12/src/os2jed16.def000064400000000000003000000001130603742313300150700ustar00rootsys00000000000000NAME JED WINDOWCOMPAT NEWFILES DESCRIPTION 'JED for OS/2' STACKSIZE 0x4000 se_ThreadID = _beginthread (os2_mouse_handler, THREADSTACKSIZE, NULL); #else Os2_Mouse_ThreadID = _beginthread (os2_mouse_handler, NULL, THREADSTACKSIZE, NULL); #endif JMouse_Hide_Mouse_Hook = show_mouse; X_Close_Mouse_Hook = os2_close_mouse; /* I am not sure if I should set this */ JMouse_Event_Hook = os2_get_mouse_event; X_Update_Open_Hook = os2_update_open_hook; X_Update_Close_Hook = os2_update_close_hook; rejed-0.97.12/src/paste.c000064400000000000003000000435760603742313300143570ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "buffer.h" #include "ins.h" #include "line.h" #include "paste.h" #include "screen.h" #include "misc.h" #include "cmds.h" /* SLang user object be larger than 128 */ #define JED_MARK_TYPE 128 Buffer *Paste_Buffer; Buffer *Rectangle_Buffer; /* This is used by the narrow command so that multiple windows are * handled properly. The assumption is that we are dealing with a canonical * region */ static void touch_windows(void) { Window_Type *w; Line *l; unsigned int n; w = JWindow; JWindow = JWindow->next; while (JWindow != w) { if (CBuf == JWindow->buffer) { /* The mark is set with line at top of buffer */ l = CBuf->marks->line; n = CBuf->marks->n; while ((l != NULL) && (l != JWindow->mark.line)) l = l->next, n++; if (l == NULL) { JWindow->mark.line = CLine; JWindow->mark.point = Point; JWindow->mark.n = n - 1; } touch_window(); } JWindow = JWindow->next; } pop_mark(&Number_Zero); } #if 0 static int line_in_buffer(Line *line) { Line *l; l = CBuf->beg; while (l != NULL) if (l == line) return(1); else l = l->next; return(0); } #endif /* with prefix argument, pop marks */ int set_mark_cmd() { Mark *m; if (Repeat_Factor != NULL) { while (CBuf->marks != NULL) pop_mark(&Number_Zero); Repeat_Factor = NULL; return(1); } if (CBuf->marks == NULL) { push_mark(); } m = CBuf->marks; m->line = CLine; m->point = Point; m->n = LineNum + CBuf->nup; if ((m->flags & VISIBLE_MARK) == 0) { m->flags |= VISIBLE_MARK; CBuf->vis_marks++; } /* if (m != CBuf->marks) m->next = CBuf->marks; CBuf->marks = m; */ if (Last_Key_Function == (VOID *) set_mark_cmd) message("Mark Set."); return(1); } int push_spot() { Mark *m; if (CBuf->spot_ptr < SPOT_ARRAY_SIZE) { m = &CBuf->spot_array[CBuf->spot_ptr++]; } else if (NULL == (m = (Mark *) SLMALLOC(sizeof(Mark)))) { exit_error("push_spot: malloc error!", 0); } m->line = CLine; m->point = Point; m->n = LineNum + CBuf->nup; m->next = CBuf->spots; CBuf->spots = m; return(1); } int push_mark() { Mark *m; if (CBuf->mark_ptr < SPOT_ARRAY_SIZE) { m = &CBuf->mark_array[CBuf->mark_ptr++]; } else if (NULL == (m = (Mark *) SLMALLOC(sizeof(Mark)))) { exit_error("push_mark: malloc error!", 0); } /* if (NULL == (m = (Mark *) SLMALLOC(sizeof(Mark)))) { msg_error("push_mark: malloc error!"); return(0); } */ m->line = CLine; m->point = Point; m->n = LineNum + CBuf->nup; m->next = CBuf->marks; m->flags = 0; CBuf->marks = m; return(1); } void goto_mark(Mark *m) { Line *l; l = m->line; LineNum = m->n; if (LineNum <= CBuf->nup) bob(); else if (LineNum > CBuf->nup + Max_LineNum) eob(); else { CLine = l; Point = m->point; LineNum -= CBuf->nup; } } int pop_mark(int *go) { Mark *m; m = CBuf->marks; if (m == NULL) return(0); if (*go) goto_mark(m); if (m->flags & VISIBLE_MARK) { CBuf->vis_marks--; /* touch screen since region may be highlighted */ if (CBuf->vis_marks == 0) touch_screen(); } CBuf->marks = m->next; if (m == &CBuf->mark_array[CBuf->mark_ptr - 1]) { CBuf->mark_ptr--; } else SLFREE(m); return(1); } int mark_spot() { push_spot(); message("Spot Marked."); return(1); } int pop_spot() { Mark *m; m = CBuf->spots; if (m == NULL) return(0); goto_mark (m); CBuf->spots = m->next; if (m == &CBuf->spot_array[CBuf->spot_ptr - 1]) { CBuf->spot_ptr--; } else SLFREE(m); return(1); } int exchange_point_mark(void) { Line *save_line; int save_point; unsigned int save_n; Mark *m; if ((m = CBuf->marks) == NULL) return(0); save_point = Point; save_line = CLine; save_n = LineNum + CBuf->nup; goto_mark (m); m->point = save_point; m->line = save_line; m->n = save_n; return(1); } /*returns 0 if the mark is not set and gives error. Exchanges point and mark * to produce valid region. A valid region is one with mark * earlier in the buffer than point. Always call this if using a region * which reqires point > mark. Also, push spot first then pop at end. */ int check_region(int *push) { register Line *beg, *tthis = CLine; int pbeg; if (CBuf->marks == NULL) { msg_error("Set mark first."); return(0); } if (*push) push_spot(); beg = CBuf->marks->line; pbeg = CBuf->marks->point; if (beg == CLine) { if (pbeg <= Point) return(1); } else { while((beg != NULL) && (beg != tthis)) beg = beg->next; if (beg == tthis) return(1); } exchange_point_mark(); return(1); } int widen_buffer(Buffer *b) { Narrow_Type *n; Buffer *save = CBuf; if (NULL == (n = b->narrow)) return(0); /* make sure buffer ends in final newline */ switch_to_buffer(b); push_spot(); eob(); if ((n->end != NULL) && (!CLine->len || ('\n' != *(CLine->data + (CLine->len - 1))))) { unsigned int flags = CBuf->flags; ins('\n'); CBuf->flags = flags; } pop_spot(); if (n->end != NULL) n->end->prev = b->end; if (n->beg != NULL) n->beg->next = b->beg; b->end->next = n->end; b->beg->prev = n->beg; b->beg = n->beg1; if (n->end != NULL) b->end = n->end1; Max_LineNum += n->ndown + n->nup; LineNum += n->nup; /* adjust absolute offsets */ b->nup -= n->nup; b->ndown -= n->ndown; b->narrow = n->next; SLFREE(n); switch_to_buffer(save); return(1); } int widen() { return widen_buffer(CBuf); } /* not really a region of points but a region of lines. */ int narrow_to_region() { Line *beg; Narrow_Type *nt; if (NULL == (nt = (Narrow_Type *) SLMALLOC(sizeof(Narrow_Type)))) { msg_error("Malloc Error during narrow."); return(0); } if (!check_region(&Number_One)) return(0); /* spot pushed */ push_spot(); pop_mark(&Number_One); push_mark(); /* popped and used in touch_windows! */ beg = CLine; nt->nup = LineNum - 1; pop_spot(); /* eor now */ nt->ndown = Max_LineNum - LineNum; Max_LineNum = LineNum = LineNum - nt->nup; CBuf->nup += nt->nup; CBuf->ndown += nt->ndown; nt->next = CBuf->narrow; CBuf->narrow = nt; nt->beg = beg->prev; nt->end = CLine->next; nt->beg1 = CBuf->beg; nt->end1 = CBuf->end; CBuf->beg = beg; CBuf->end = CLine; beg->prev = NULL; CLine->next = NULL; if (CLine->len && (CLine->data[CLine->len - 1] == '\n')) { /* I do not think that this will affect undo. */ CLine->len--; } pop_spot(); touch_windows(); return(1); } int yank() { if (Paste_Buffer == NULL) return(0); insert_buffer(Paste_Buffer); return(1); } int copy_region_to_buffer(Buffer *b) { int first_point, last_point, n, tmpm; Line *first, *last; Buffer *save_buffer; if (b->flags & READ_ONLY) { msg_error(Read_Only_Error); return (0); } if (!check_region(&Number_One)) return(0); /* spot pushed */ last = CLine; last_point = Point; tmpm = 1; pop_mark(&tmpm); if (b == CBuf) { msg_error("A buffer cannot be inserted upon itself."); pop_spot(); return(0); } first = CLine; first_point = Point; save_buffer = CBuf; switch_to_buffer(b); /* go through standard routines for undo comapatability */ Suspend_Screen_Update = 1; if (first == last) { n = last_point - first_point; if (save_buffer == MiniBuffer) { ins_chars(first->data + first_point, n); } else quick_insert(first->data + first_point, n); } else { n = first->len - first_point; quick_insert(first->data + first_point, n); while (first = first->next, first != last) { quick_insert(first->data, first->len); } quick_insert(first->data, last_point); } switch_to_buffer(save_buffer); pop_spot(); return(1); } int copy_to_pastebuffer() { /* delete paste buffer */ if (Paste_Buffer != NULL) delete_buffer(Paste_Buffer); Paste_Buffer = make_buffer(); strcpy(Paste_Buffer->name, " "); copy_region_to_buffer(Paste_Buffer); return(0); } int delete_region (void) { int beg_point, tmpm, end_point, n; Line *beg, *end; CHECK_READ_ONLY if (!check_region(&Number_Zero)) return(0); /* make this go through standard ins/del routines to ensure undo */ end = CLine; end_point = Point; push_spot(); tmpm = 1; pop_mark(&tmpm); beg = CLine; beg_point = Point; pop_spot(); Point = 0; if (end != beg) { deln(&end_point); /* go back because we do not want to mess with Line structures changing on us --- shouldn't happen anyway */ while (CLine = CLine->prev, LineNum--, CLine != beg) { eol(); n = Point + 1; Point = 0; generic_deln(&n); } eol(); n = Point - beg_point + 1; /* the \n char */ Point = beg_point; } else { Point = beg_point; n = end_point - Point; } generic_deln(&n); return(1); } int kill_region() { int tmpm = 1; CHECK_READ_ONLY /* need two marks for this one */ push_spot(); if (!pop_mark(&tmpm)) { check_region(&Number_Zero); pop_spot(); return(0); } push_mark(); push_mark(); pop_spot(); copy_to_pastebuffer(); delete_region(); return(1); } static char *Rect_Error = "Rectangle has 0 width."; int insert_rectangle() { int c1; Line *rline; CHECK_READ_ONLY if (Rectangle_Buffer == NULL) return(0); Suspend_Screen_Update = 1; c1 = calculate_column(); rline = Rectangle_Buffer->beg; if (rline != NULL) while (1) { goto_column(&c1); quick_insert(rline->data, rline->len); rline = rline->next; if (rline == NULL) break; if (CLine->next == NULL) { eol(); newline(); } else { CLine = CLine->next; LineNum++; } } return(1); } int open_rectangle() { int c1, n, c2, tmpm; Line *save_line; CHECK_READ_ONLY if (!check_region(&Number_One)) return(0); /* push_spot(); performed */ c1 = calculate_column(); save_line = CLine; tmpm = 1; pop_mark(&tmpm); c2 = calculate_column(); n = c2 - c1; if (n < 0) { n = -n; c1 = c2; } Suspend_Screen_Update = 1; while(1) { goto_column(&c1); ins_char_n_times(' ', n); if (CLine == save_line) break; CLine = CLine->next; LineNum++; } pop_spot(); return(1); } /* rectangle commands */ int copy_rectangle() { Line *save_line, *line, *beg; int c1, c2, dc, tmp, tmpm, dc_malloc; unsigned char *p1, *p2, *data; if (!check_region(&Number_One)) return(0); /* spot pushed */ /* delete Rectangle buffer */ if (Rectangle_Buffer != NULL) delete_buffer(Rectangle_Buffer); Rectangle_Buffer = make_buffer(); strcpy(Rectangle_Buffer->name, " "); c2 = calculate_column(); save_line = CLine; tmpm = 1; pop_mark(&tmpm); c1 = calculate_column(); if (c1 == c2) { msg_error(Rect_Error); pop_spot(); return(0); } if (c1 > c2) { tmp = c1; c1 = c2; c2 = tmp; goto_column(&c1); } /* go through the region copying rectanglar blocks to Rectanglebuffer */ dc = c2 - c1; if (dc == 1) dc_malloc = 2; else dc_malloc = dc; line = beg = make_line1(dc_malloc); beg->prev = NULL; while (1) { data = line->data; /* p1 = data; p2 = data + dc; while (p1 < p2) *p1++ = ' '; */ MEMSET ((char *) data, ' ', dc); line->len = dc; if (c1 == goto_column1(&c1)) { p1 = CLine->data + Point; (void) goto_column1(&c2); p2 = CLine->data + Point; /* while(p1 < p2) *data++ = *p1++; */ MEMCPY((char *) data, (char *) p1, (int) (p2 - p1)); } if (CLine == save_line) break; CLine = CLine->next; LineNum++; line->next = make_line1(dc_malloc); line->next->prev = line; line = line->next; } line->next = NULL; Rectangle_Buffer->line = Rectangle_Buffer->beg = beg; Rectangle_Buffer->end = line; Rectangle_Buffer->point = 0; pop_spot(); return(0); } int kill_rectangle() { Line *save_line, *line, *beg; int c1, c2, dc, tmp, n, tmpm, dc_malloc; unsigned char *p1, *p2, *data; CHECK_READ_ONLY if (!check_region(&Number_One)) return(0); /* delete Rectangle buffer */ if (Rectangle_Buffer != NULL) delete_buffer(Rectangle_Buffer); Rectangle_Buffer = make_buffer(); strcpy(Rectangle_Buffer->name, " "); c2 = calculate_column(); save_line = CLine; tmpm = 1; pop_mark(&tmpm); c1 = calculate_column(); if (c1 == c2) { msg_error(Rect_Error); pop_spot(); return(0); } if (c1 > c2) { tmp = c1; c1 = c2; c2 = tmp; goto_column(&c1); } Suspend_Screen_Update = 1; /* go through the region copying rectanglar blocks to Rectanglebuffer */ dc = c2 - c1; if (dc == 1) dc_malloc = 2; else dc_malloc = dc; /* length of 1 not usable here. * See makeline1 to see why */ line = beg = make_line1(dc_malloc); beg->prev = NULL; while (1) { data = line->data; /* p2 = data + dc; p1 = data; while (p1 < p2) *p1++ = ' '; */ MEMSET((char *) data, ' ', dc); line->len = dc; if (c1 == goto_column1(&c1)) { p1 = CLine->data + Point; (void) goto_column1(&c2); p2 = CLine->data + Point; Point = (int) (p1 - CLine->data); n = (int) (p2 - p1); MEMCPY((char *) data, (char *) p1, n); deln (&n); /* while(n-- > 0) { *data++ = *p1; del(); } */ } if (CLine == save_line) break; CLine = CLine->next; LineNum++; line->next = make_line1(dc_malloc); line->next->prev = line; line = line->next; } line->next = NULL; Rectangle_Buffer->line = Rectangle_Buffer->beg = beg; Rectangle_Buffer->end = line; Rectangle_Buffer->point = 0; pop_spot(); return(0); } int blank_rectangle() { int c1, n, c2, pnt, tmpm; Line *save_line; int nn; CHECK_READ_ONLY if (!check_region(&Number_One)) return(0); /* push_spot(); performed */ c1 = calculate_column(); save_line = CLine; tmpm = 1; pop_mark(&tmpm); c2 = calculate_column(); n = c2 - c1; if (n < 0) { n = -n; c1 = c2; } Suspend_Screen_Update = 1; while(1) { goto_column(&c1); pnt = Point; eol(); nn = Point - pnt; if (nn > n) nn = n; Point = pnt; deln(&nn); ins_char_n_times( ' ', nn); if (CLine == save_line) break; CLine = CLine->next; LineNum++; } pop_spot(); /* mark_buffer_modified(&Number_One); */ return(1); } /* User Marks */ typedef struct { Mark m; /* MUST be the first */ Buffer *b; } User_Mark_Type; static void free_user_mark (User_Mark_Type *um) { Mark *m, *m1; Buffer *b; m1 = &um->m; /* The mark is only valid if the buffer that it was created for still * exists. */ if ((m1->flags & MARK_INVALID) == 0) { /* Unlink the mark from the chain. */ b = um->b; m = b->user_marks; if (m == m1) b->user_marks = m1->next; else { while (m->next != m1) m = m->next; m->next = m1->next; } } SLFREE (um); } void free_user_marks (Buffer *b) { Mark *m = b->user_marks; while (m != NULL) { m->flags |= MARK_INVALID; m = m->next; } } static int mark_valid (Mark *m) { if (m->flags & MARK_INVALID) { msg_error ("Mark is invalid."); return 0; } return 1; } int jed_move_user_object_mark (SLuser_Object_Type *uo) { User_Mark_Type *um; Mark *m; um = (User_Mark_Type *) uo->obj; m = &um->m; if (!mark_valid (m)) return 0; if (CBuf != um->b) { msg_error ("Mark not in buffer."); return 0; } m->line = CLine; m->point = Point; m->n = LineNum + CBuf->nup; return 1; } void move_user_mark (void) { SLuser_Object_Type *uo; if ((uo = SLang_pop_user_object (JED_MARK_TYPE)) == NULL) return; (void) jed_move_user_object_mark (uo); SLang_free_user_object (uo); } void goto_user_mark (void) { SLuser_Object_Type *uo; User_Mark_Type *um; if ((uo = SLang_pop_user_object (JED_MARK_TYPE)) == NULL) return; um = (User_Mark_Type *) uo->obj; if (mark_valid (&um->m)) { if (CBuf != um->b) msg_error ("Mark not in buffer."); else goto_mark (&um->m); } SLang_free_user_object (uo); } SLuser_Object_Type *jed_make_user_object_mark (int main_type) { User_Mark_Type *um; SLuser_Object_Type *uo; Mark *m; uo = SLang_create_user_object (JED_MARK_TYPE); if (uo == NULL) return NULL; uo->main_type = main_type; if (NULL == (um = (User_Mark_Type *) SLMALLOC (sizeof(User_Mark_Type)))) { SLang_Error = SL_MALLOC_ERROR; SLFREE (uo); return NULL; } m = &um->m; m->line = CLine; m->point = Point; m->n = LineNum + CBuf->nup; m->next = CBuf->user_marks; m->flags = 0; CBuf->user_marks = m; um->b = CBuf; uo->obj = (long *) um; return uo; } void jed_free_user_object_mark (SLuser_Object_Type *uo) { /* let slang handle this. */ uo->main_type = SLANG_DATA; SLang_free_user_object (uo); } void create_user_mark (void) { SLuser_Object_Type *uo = jed_make_user_object_mark (SLANG_DATA); if (uo != NULL) SLang_push_user_object (uo); } char *user_mark_buffer (void) { SLuser_Object_Type *uo; User_Mark_Type *um; char *s = ""; if (NULL == (uo = SLang_pop_user_object (JED_MARK_TYPE))) return s; um = (User_Mark_Type *) uo->obj; if (mark_valid (&um->m)) { s = um->b->name; } SLang_free_user_object (uo); return s; } int register_jed_classes (void) { return SLang_register_class (JED_MARK_TYPE, (VOID *) free_user_mark, NULL); } _DATA); if (uo != NULL) SLang_push_user_object (uo); } char *user_mark_buffer (void) { SLuser_Object_Type *uo; Ujed-0.97.12/src/paste.h000064400000000000003000000022640603742313300143510ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern int set_mark_cmd(void); extern int push_spot(void); extern int push_mark(void); extern void goto_mark(Mark *); extern int pop_mark(int *); extern int mark_spot(void); extern int pop_spot(void); extern int widen_buffer(Buffer *); extern int widen(void); extern int exchange_point_mark(void); extern int narrow_to_region(void); extern int yank(void); extern int check_region(int *); extern int copy_region_to_buffer(Buffer *); extern int delete_region(void); extern int copy_to_pastebuffer(void); extern int kill_region(void); extern int insert_rectangle(void); extern int kill_rectangle(void); extern int blank_rectangle(void); extern int open_rectangle(void); extern int copy_rectangle(void); extern void goto_user_mark (void); extern void create_user_mark (void); extern void free_user_marks (Buffer *); extern void move_user_mark (void); extern int jed_move_user_object_mark (SLuser_Object_Type *); extern SLuser_Object_Type *jed_make_user_object_mark (int); extern void jed_free_user_object_mark (SLuser_Object_Type *); extern char *user_mark_buffer (void); extern register_jed_classes (void); void); extern int blank_rectangle(void); extern int open_rectangle(void); extern int copy_rectangle(void); extern void goto_user_mark (void); extern void create_user_mark (void); extern void free_user_marks (Buffer *); extern void move_user_mark (void); extern int jed_move_user_object_mark (SLuser_Object_Type *); extern SLuser_Objed-0.97.12/src/pcmouse.c000064400000000000003000000125520603742313400147050ustar00rootsys00000000000000#include #include #define MOUSE_RELEASE 'U' #define MOUSE_DRAG 0 #define MOUSE_PRESS 'D' static void generate_press (int x, int y, int type, int but) { char buf[4]; int b, s; JMouse.x = x; JMouse.y = y; buf[0] = 27; buf[1] = 0; buf[2] = type; b = but & 0xF; s = but >> 4; if (b == 1) { JMouse.button = 1; buf[3] = 'l'; } else if (b == 2) { JMouse.button = 3; buf[3] = 'r'; } else { JMouse.button = 2; buf[3] = 'm'; } if (s & 0x8) /* alt key--- use as middle */ { buf[3] = 'm'; } if (s & 0x3) /* shift */ { buf[3] -= 0x20; } else if (s & 0x4) /* ctrl */ { buf[3] -= 0x60; } ungetkey_string (buf, 4); } /* Mouse routines for the ibmpc */ static int Mouse_Hidden = 1; static int Last_Mouse_Hidden = 1; static void show_mouse (int show) { union REGS r; if (show) { if (Mouse_Hidden == 0) return; r.x.ax = 1; } else { if (Mouse_Hidden) return; r.x.ax = 2; } int86 (0x33, &r, &r); Mouse_Hidden = !show; } static void pc_close_mouse () { show_mouse (0); } static int pc_get_mouse_event (void) { union REGS r; static int last_press; short x, y; /* return 0; */ if (last_press) { show_mouse (1); r.x.ax = 6; r.x.bx = (last_press & 0xF) - 1; int86 (0x33, &r, &r); if (r.x.bx) { r.x.cx = r.x.cx / 8 + 1; r.x.dx = r.x.dx / 8 + 1; generate_press (r.x.cx, r.x.dx, MOUSE_RELEASE, last_press); last_press = 0; return 1; } } r.x.ax = 3; int86 (0x33, &r, &r); x = r.x.cx; y = r.x.dx; #if 0 /* Check motion counters */ r.x.ax = 0xB; int86 (0x33, &r, &r); #endif if (last_press) { #if 0 y += (short) (int) (r.x.dx); #endif x = x / 8 + 1; y = y / 8 + 1; if ((JMouse.x == x) && (JMouse.y == y)) return 0; generate_press (x, y, MOUSE_DRAG, last_press); return 1; } x = x / 8 + 1; y = y / 8 + 1; /* It looks like we are looking for a press. */ if ((JMouse.x != x) || (JMouse.y != y)) { /* mouse moved so show it. */ show_mouse (1); } JMouse.x = x; JMouse.y = y; if (r.x.bx) { if (r.x.bx & 1) last_press = 1; /* left */ else if (r.x.bx & 2) last_press = 2; /* right */ else if (r.x.bx & 4) last_press = 3; /* middle */ else return 0; /* Find shift key status */ #ifdef __GO32__ r.h.ah = 0x12; int86 (0x16, &r, &r); last_press |= (r.x.ax & 0xF) << 4; #else last_press |= (*(unsigned char far *) 0x417) << 4; #endif generate_press (x, y, MOUSE_PRESS, last_press); return 1; } return 0; } static void move_mouse (int x, int y) { union REGS r; r.x.ax = 4; r.x.cx = 8 * (x - 1); r.x.dx = 8 * (y - 1); int86 (0x33, &r, &r); } static void pc_update_open_hook (void) { Last_Mouse_Hidden = Mouse_Hidden; if (Mouse_Hidden == 0) show_mouse (0); } static int Warp_Pending; static void pc_update_close_hook (void) { if (Last_Mouse_Hidden == 0) show_mouse (1); if (Warp_Pending) move_mouse (Screen_Col, Screen_Row); Warp_Pending = 0; } static void warp_pointer (void) { Warp_Pending = 1; } static char *CutBuffer; static int CutBuffer_Len; static int insert_cutbuffer (void) { CHECK_READ_ONLY if (CutBuffer == NULL) return 0; if (CutBuffer_Len) ins_chars ((unsigned char *) CutBuffer, CutBuffer_Len); return CutBuffer_Len; } static void region_to_cutbuffer (void) { int nbytes; if (CutBuffer != NULL) { SLFREE (CutBuffer); } CutBuffer = make_buffer_substring(&nbytes); CutBuffer_Len = nbytes; } static SLang_Name_Type gpm_mouse_table[] = { MAKE_INTRINSIC(".x_warp_pointer", warp_pointer, VOID_TYPE, 0), MAKE_INTRINSIC(".x_insert_cutbuffer", insert_cutbuffer, INT_TYPE, 0), /* Prototype: Integer x_insert_cut_buffer (); * Inserts cutbuffer into the current buffer and returns the number * of characters inserted. */ MAKE_INTRINSIC(".x_copy_region_to_cutbuffer", region_to_cutbuffer, VOID_TYPE, 0), /* Prototype: Void x_copy_region_to_cutbuffer(); */ SLANG_END_TABLE }; void (*X_Close_Mouse_Hook)(void); static int pc_open_mouse () { union REGS r; int rows, cols, scanlines; static int not_first_time; X_Close_Mouse_Hook = NULL; JMouse_Event_Hook = NULL; JMouse_Hide_Mouse_Hook = NULL; X_Update_Open_Hook = NULL; X_Update_Close_Hook = NULL; #ifndef __GO32__ if (getvect (0x33) == NULL) return -1; #endif /* Now see if the mouse is present */ r.x.ax = 0x21; int86 (0x33, &r, &r); if (r.x.ax == 0x21) return -1; if ((scanlines = get_term_dimensions (&cols, &rows)) <= 0) scanlines = 8; r.x.ax = 7; r.x.cx = 0; r.x.dx = 8 * cols - 1; int86 (0x33, &r, &r); r.x.ax = 8; r.x.cx = 0; r.x.dx = scanlines * rows - 1; int86 (0x33, &r, &r); JMouse.x = cols / 2 + 1; JMouse.y = rows / 2 + 1; move_mouse (JMouse.x, JMouse.y); if (not_first_time == 0) { if (!SLang_add_table(gpm_mouse_table, "Mouse") || !SLdefine_for_ifdef("MOUSE")) return -1; not_first_time = 1; } JMouse_Hide_Mouse_Hook = show_mouse; X_Close_Mouse_Hook = pc_close_mouse; JMouse_Event_Hook = pc_get_mouse_event; X_Update_Open_Hook = pc_update_open_hook; X_Update_Close_Hook = pc_update_close_hook; return 1; } int (*X_Open_Mouse_Hook)(void) = pc_open_mouse; JMouse.y = rows / 2 + 1; move_mouse (JMouse.x, JMouse.y); if (not_first_time == 0) { if (!SLang_add_table(gpm_mouse_table, "Mouse")jed-0.97.12/src/replace.c000064400000000000003000000040160603742313400146410ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "buffer.h" #include "replace.h" #include "search.h" #include "screen.h" #include "ins.h" #include "ledit.h" int replace_next(char *old, char *neew) { int n; if (search(old, 1, 0) == 0) return(0); n = strlen(old); deln(&n); ins_chars((unsigned char *) neew, strlen(neew)); return(1); } /* This code implements a kill ring of sorts. It could be done in S-Lang but * S-Lang cannot handle strings with embedded NULL characters. I do not * want to lose compatability with C or I would allow S-Lang strings to handle * the NULL chars. */ #ifndef Sixteen_Bit_System # define MAX_KILL_ARRAY_SIZE 16 int Kill_Array_Size = MAX_KILL_ARRAY_SIZE; typedef struct { unsigned char *buf; int len; } Char_Array_Type; Char_Array_Type Kill_Array [MAX_KILL_ARRAY_SIZE]; void copy_region_to_kill_array (int *np) { int n = *np; unsigned char *buf; if (n < 0) n = 0; n = n % MAX_KILL_ARRAY_SIZE; if ((buf = Kill_Array[n].buf) != NULL) SLFREE (buf); Kill_Array[n].buf = (unsigned char *) make_buffer_substring (&Kill_Array[n].len); } void insert_from_kill_array (int *np) { int n = *np; unsigned char *buf; if (n < 0) n = 0; n = n % MAX_KILL_ARRAY_SIZE; if ((buf = Kill_Array[n].buf) == NULL) return; ins_chars (buf, Kill_Array[n].len); } void append_region_to_kill_array (int *np) { int n = *np, len, oldlen; unsigned char *buf, *newbuf; if (n < 0) n = 0; n = n % MAX_KILL_ARRAY_SIZE; buf = (unsigned char *) make_buffer_substring (&len); if (buf == NULL) return; oldlen = Kill_Array[n].len; newbuf = (unsigned char *) SLREALLOC (Kill_Array[n].buf, oldlen + len + 1); if (newbuf != NULL) { MEMCPY ((char *) newbuf + oldlen, (char *) buf, len); Kill_Array[n].buf = newbuf; Kill_Array[n].len = oldlen + len; } SLFREE (buf); } #endif /* NOT 16bit system */ len; unsigned char *buf, *newbuf; if (n < 0) n = 0; n = n % MAX_KILL_ARRAY_SIZE; buf = (unsigned char *) make_buffer_substring (&len); if (buf == NULL) return; oldlen = Kill_Array[n].len; newbuf = (unsigned char *) SLREALLOC (Kill_Array[n].buf, oldlen + len + 1); if (newbuf != NULL) { MEMCPY ((char *) newbuf + oldlen, (char *) buf, len); Kill_Array[n].buf = newbuf; Kill_Array[n].len = oldlen + len; } SLFREE (buf); } #endif /* NOT 16jed-0.97.12/src/replace.h000064400000000000003000000005260603742313400146500ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern int replace_next(char *, char *); #ifndef Sixteen_Bit_System extern void append_region_to_kill_array (int *); extern void insert_from_kill_array (int *); extern void copy_region_to_kill_array (int *); extern int Kill_Array_Size; #endif MEMCPY ((char *) newbuf + oldlen, (char *) buf, len); Kill_Array[n].buf = newbuf; Kill_Array[n].len = oldlen + len; } SLFREE (buf); } #endif /* NOT 16jed-0.97.12/src/rgrep.c000064400000000000003000000500330603742313400143450ustar00rootsys00000000000000/* * Copyright (c) 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #ifndef NO_STDLIB_H #include #endif /* For isatty */ #ifdef msdos #include #endif #include "slang.h" #include "vfile.h" static int Case_Sensitive = 1; static int File_Name_Only; static int Do_Recursive = 0; static int Recursive_Match = 0; static int Highlight = 0; static int Output_Match_Only = 0; static int Count_Matches = 0; static int Line_Numbers = 0; static int Follow_Links = 0; static int Debug_Mode = 0; static char *Match_This_Extension; static int Print_Non_Matching_Lines = 0; #define HON_STR "\033[1m" #define HON_STR_LEN 4 #define HOFF_STR "\033[0m" #define HOFF_STR_LEN 4 void usage(void) { fputs("rgrep (v1.4)\nUsage: rgrep [options..] pattern [files ...]\n\ Options:\n\ -? additional help (use '-?' to avoid shell expansion on some systems)\n\ -c count matches\n\ -h highlight match (ANSI compatable terminal assumed)\n\ -H Output match instead of entire line containing match\n\ -i ignore case\n\ -l list filename only\n\ -n print line number of match\n\ -F follow links\n\ -r recursively scan through directory tree\n\ -N Do NOT perform a recursive search\n\ -R 'pat' like '-r' except that only those files matching 'pat' are checked\n\ -v print only lines that do NOT match the specified pattern\n\ -x 'ext' checks only files with extension given by 'ext'.\n\ -D Print all directories that would be searched. This option is for\n\ debugging purposes only. No file is grepped with this option.\n\ -W'len' lines are 'len' characters long (not newline terminated).\ \n\ 'pattern' is a valid 'ex' type of regular expression. See the man page for ex.\n\ It is best enclosed in single quotes to avoid shell expansion.\n", stderr); exit(1); } void additional_help (void) { char buf[3]; fputs("Supported Regular Expressions:\n\ . match any character except newline\n\ \\d match any digit\n\ \\e match ESC char\n\ * matches zero or more occurences of previous RE\n\ + matches one or more occurences of previous RE\n\ ? matches zero or one occurence of previous RE\n\ ^ matches beginning of line\n\ $ matches end of line\n\ [ ... ] matches any single character between brackets.\n\ For example, [-02468] matches `-' or any even digit.\n\ and [-0-9a-z] matches `-' and any digit between 0 and 9\n\ as well as letters a through z.\n\ \\{ ... \\}\n\ \\( ... \\)\n\ \\1, \\2, ..., \\9 matches match specified by nth \\( ... \\) expression.\n\ For example, '\\([ \\t][a-zA-Z]+\\)\\1[ \\t]' matches any\n\ word repeated consecutively.\n", stderr); if (isatty(fileno(stderr)) && isatty(fileno(stdin))) { fputs("\nPress RETURN for examples>", stderr); fgets(buf, 2, stdin); putc('\n', stderr); } fputs("Examples:\n\ \n\ Look in all files with a 'c' extension in current directory and all its\n\ subdirectories looking for matches of 'int ' at the beginning of a line,\n\ printing the line containing the match with its line number: (two methods)\n\ rgrep -n -R '*.c' '^int ' .\n\ rgrep -n -x c '^int ' .\n\ \n\ Highlight all matches of repeated words in file 'paper.tex':\n\ rgrep -h '[ \\t]\\([a-zA-Z]+\\)[ \\t]+\\1[ \\t\\n]' paper.tex\n\ rgrep -h '^\\([a-zA-Z]+\\)[ \\t]+\\1[ \\t\\n]' paper.tex\n\ (Note that this version of rgrep requires two passes for this example)\n", stderr); fputs ("\n\ Search through all files EXCEPT .o and .a file below /usr/src/linux looking\n\ for the string 'mouse' without regard to case:\n\ rgrep -i -R '*.[^ao]' mouse /usr/src/linux\n\ \n\ Search a fixed record length FITS file for the keyword EXTNAME:\n\ rgrep -W80 ^EXTNAME file.fits\n\ (Note that the regular expression '^[A-Z]+' will dump all fits headers.)\n", stderr); exit (-1); } static FILE *File_Fp; static VFILE *File_Vp; SLsearch_Type Search_St; static unsigned char *Fixed_Len_Buf; static int Fixed_Len_Mode; static int Fixed_Line_Len; void msg_error(char *str) { fputs(str, stderr); putc('\n', stderr); } void exit_error(char *s) { fprintf(stderr, "rgrep: %s\n", s); exit(1); } void parse_flags(char *f) { char ch; while ((ch = *f++) != 0) { switch (ch) { case 'i': Case_Sensitive = 0; break; case 'l': File_Name_Only = 1; break; case 'r': Do_Recursive = 1; break; case 'N': Do_Recursive = -1; break; case 'v': Print_Non_Matching_Lines = 1; case 'H': Highlight = 1; /* does not cause highlight for this case */ Output_Match_Only = 1; break; case 'h': #ifndef pc_system Highlight = 1; #endif break; case 'c': Count_Matches = 1; break; case 'n': Line_Numbers = 1; break; case 'F': Follow_Links = 1; break; case 'D': Debug_Mode = 1; break; case '?': additional_help (); break; case 'W': Fixed_Line_Len = 0; while (((ch = *f) != 0) && (ch >= '0') && (ch <= '9')) { Fixed_Line_Len = Fixed_Line_Len * 10 + (unsigned char) ch - '0'; f++; } if (Fixed_Line_Len == 0) usage (); Fixed_Len_Buf = (unsigned char *) SLMALLOC (Fixed_Line_Len); if (Fixed_Len_Buf == NULL) { exit_error ("Malloc error."); } Fixed_Len_Mode = 1; break; default: usage (); } } } static SLRegexp_Type reg; static SLRegexp_Type recurse_reg; static unsigned char Recurse_Reg_Pattern_Buffer[256]; static int Must_Match; static int print_file_too; static void do_fwrite (unsigned char *s, int n, int nl) { unsigned char *smax = s + n, ch = 0; #if defined(unix) || defined(VMS) unsigned char ch1; #endif while (s < smax) { ch = *s++; #if defined(unix) || defined(VMS) ch1 = ch & 0x7F; if ((ch1 < ' ') || (ch1 == 0x7F)) { if ((ch != '\n') && (ch != '\t')) { if (ch & 0x80) putc ('~', stdout); putc ('^', stdout); if (ch1 == 0x7F) ch = '?'; else ch = ch1 + '@'; } } #endif putc (ch, stdout); } if (nl && (ch != '\n')) putc ('\n', stdout); } void output_line(unsigned char *s, unsigned int n, unsigned char *p, unsigned char *pmax) { if (Highlight == 0) { do_fwrite(s, n, 1); } else { if (Output_Match_Only == 0) { do_fwrite (s, (int) (p - s), 0); fwrite (HON_STR, 1, HON_STR_LEN, stdout); } do_fwrite (p, (int) (pmax - p), 0); if (Output_Match_Only == 0) { fwrite (HOFF_STR, 1, HOFF_STR_LEN, stdout); do_fwrite (pmax, (int) n - (int) (pmax - s), 1); } else if (*(pmax - 1) != '\n') putc ('\n', stdout); } } static unsigned char *rgrep_gets (unsigned int *n) { static char *buf; unsigned int nread; if (File_Vp != NULL) return (unsigned char *) vgets (File_Vp, n); nread = fread (Fixed_Len_Buf, 1, Fixed_Line_Len, File_Fp); if (nread == 0) return NULL; *n = nread; return Fixed_Len_Buf; } void grep(char *file) { unsigned char *buf, *p, *pmax; unsigned int n; int line = 0, n_matches = 0; while (NULL != (buf = (unsigned char *) rgrep_gets(&n))) { line++; if (reg.min_length > n) { if (Print_Non_Matching_Lines) { p = buf; pmax = p + n; goto match_found; } continue; } if (Must_Match) { if (Search_St.key_len > n) { if (Print_Non_Matching_Lines) { p = buf; pmax = p + n; goto match_found; } continue; } if (NULL == (p = SLsearch (buf, buf + n, &Search_St))) { if (Print_Non_Matching_Lines) { p = buf; pmax = p + n; goto match_found; } continue; } if (reg.osearch) { if (Print_Non_Matching_Lines) continue; pmax = p + Search_St.key_len; goto match_found; } } if (!SLang_regexp_match(buf, (int) n, ®)) { if (Print_Non_Matching_Lines) { p = buf; pmax = p + n; goto match_found; } continue; } p = buf + reg.beg_matches[0]; pmax = p + reg.end_matches[0]; match_found: n_matches++; if (Count_Matches) continue; if (File_Name_Only) { puts(file); return; } if (print_file_too) { fputs(file, stdout); putc(':', stdout); } if (Line_Numbers) { fprintf(stdout, "%d:", line); } output_line(buf, n, p, pmax); } if (n_matches && Count_Matches) { if (print_file_too || File_Name_Only) { fputs(file, stdout); putc(':', stdout); } fprintf(stdout, "%d\n", n_matches); } } #ifdef msdos #include #endif #ifdef unix #include #include #ifdef sequent # include # define NEED_D_NAMLEN #else # include #endif #endif #ifdef msdos #define MAX_PATH_LEN 128 #else #define MAX_PATH_LEN 512 #endif #ifdef msdos typedef struct Dos_DTA_Type { unsigned char undoc[21]; unsigned char attr; unsigned int time; unsigned int date; unsigned char low_size[2]; unsigned char high_size[2]; char name[13]; } DOS_DTA_Type; #endif typedef struct { char dir[MAX_PATH_LEN]; int dir_len; char *file; /* pointer to place in dir */ int isdir; #ifdef msdos DOS_DTA_Type *dta; char pattern[16]; #endif #ifdef unix DIR *dirp; #endif } Sys_Dir_Type; #ifdef msdos void dos_set_dta (DOS_DTA_Type *dta) { asm mov ah, 0x1A asm push ds asm lds dx, dword ptr dta asm int 21h asm pop ds } int dos_is_dir (char *file) { int n = strlen (file); if (n == 0) return 0; if (file[n - 1] == '\\') return 1; asm mov ah, 0x43 asm mov al, 0 asm push ds asm lds dx, dword ptr file asm int 21h asm pop ds asm mov n, cx asm jnc L1 return 0; L1: if (n & 0x10) return 1; return 0; } #endif #ifdef unix int unix_is_dir(char *dir) { /* AIX requires this */ #ifdef _S_IFDIR #ifndef S_IFDIR #define S_IFDIR _S_IFDIR #endif #endif struct stat buf; int mode; #ifdef S_IFLNK if (Follow_Links) { #endif if (stat(dir, &buf)) return -1; #ifdef S_IFLNK } else if (lstat(dir, &buf) < 0) return -1; #endif mode = buf.st_mode & S_IFMT; #ifdef S_IFLNK if (mode == S_IFLNK) return (-1); #endif if (mode == S_IFDIR) return (1); if (mode != S_IFREG) return (-1); return(0); } #endif Sys_Dir_Type *sys_opendir(char *dir, Sys_Dir_Type *x) { #ifdef msdos char slash = '\\'; char *pat = "*.*"; dos_set_dta (x->dta); if ((dir[1] == ':') && (dir[2] == '\\')) { strcpy (x->dir, dir); } else { /* must have drive/dirpath/filename */ getcwd(x->dir, MAX_PATH_LEN); if (*dir == slash) { strcpy (x->dir + 2, dir); } else { if (x->dir[strlen (x->dir) - 1] != slash) strcat (x->dir, "\\"); strcat(x->dir, dir); } } dir = x->dir + strlen (x->dir); /* check for a pattern already as part of the dirspec */ while (dir > x->dir) { if (*dir == '\\') break; if (*dir == '*') { while (*dir != '\\') dir--; *dir = 0; pat = dir + 1; break; } dir--; } strcpy (x->pattern, pat); #else #ifdef unix char slash = '/'; DIR *dirp; if (NULL == (dirp = (DIR *) opendir(dir))) { fprintf (stderr, "rgrep: dir %s not readable.\n", dir); return NULL; } x->dirp = dirp; strcpy(x->dir, dir); #endif /* unix */ #endif /* msdos */ x->dir_len = strlen(x->dir); if (x->dir[x->dir_len - 1] != slash) { x->dir[x->dir_len++] = slash; x->dir[x->dir_len] = 0; } return (x); } void sys_closedir(Sys_Dir_Type *x) { #ifdef msdos (void) x; #else #ifdef unix DIR *dirp; dirp = x->dirp; if (dirp != NULL) closedir(dirp); x->dirp = NULL; #endif #endif } #ifdef msdos char *dos_dta_fixup_name (Sys_Dir_Type *x) { x->file = x->dir + x->dir_len; strcpy(x->file, x->dta->name); /* sub directory */ if (x->dta->attr & 0x10) x->isdir = 1; else x->isdir = 0; return x->file; } #endif char *sys_dir_findnext(Sys_Dir_Type *x) { char *file; #ifdef msdos asm mov ah, 0x4F asm int 21h asm jnc L1 return NULL; L1: file = dos_dta_fixup_name (x); #else #ifdef unix # ifdef NEED_D_NAMLEN # define dirent direct # endif struct dirent *dp; DIR *d; d = x->dirp; if (NULL == (dp = readdir(d))) return(NULL); # ifdef NEED_D_NAMLEN dp->d_name[dp->d_namlen] = 0; # endif file = dp->d_name; x->file = x->dir + x->dir_len; strcpy (x->file, dp->d_name); x->isdir = unix_is_dir(x->dir); #endif /* unix */ #endif /* msdos */ /* exclude '.' and '..' */ if (*file++ == '.') { if ((*file == 0) || ((*file == '.') && (*(file + 1) == 0))) x->isdir = -1; } return (x->dir); } char *sys_dir_findfirst(Sys_Dir_Type *x) { #ifdef msdos unsigned int attr = 0x1 | 0x10; /* read only + sub directory */ char pat[MAX_PATH_LEN], *patp, *file; attr |= 0x2 | 0x4; /* hidden and system */ strcpy (pat, x->dir); strcat (pat, x->pattern); patp = pat; asm mov ah, 0x4e asm mov cx, attr asm push ds asm lds dx, dword ptr patp asm int 21h asm pop ds asm jc L1 file = dos_dta_fixup_name (x); /* exclude '.' and '..' */ if (*file++ == '.') { if ((*file == 0) || ((*file == '.') && (*(file + 1) == 0))) x->isdir = -1; } return x->dir; L1: return NULL; #else #ifdef unix return (sys_dir_findnext(x)); #endif #endif } #define BUF_SIZE 4096 void grep_file(char *file, char *filename) { char *p; if (Debug_Mode) return; if (Recursive_Match) { if (Match_This_Extension != NULL) { p = filename + strlen(filename); while ((p >= filename) && (*p != '.')) p--; if ((*p != '.') || #ifdef msdos stricmp(Match_This_Extension, p + 1) #else strcmp(Match_This_Extension, p + 1) #endif ) return; } else if (!SLang_regexp_match((unsigned char *) filename, strlen(filename), &recurse_reg)) return; } File_Fp = NULL; File_Vp = NULL; if (Fixed_Len_Mode) { File_Fp = fopen (file, "rb"); } else File_Vp = vopen (file, BUF_SIZE, 0); if ((File_Vp == NULL) && (File_Fp == NULL)) { fprintf(stderr, "rgrep: unable to read %s\n", file); } else { grep(file); if (File_Fp == NULL) vclose(File_Vp); else fclose (File_Fp); } } #define MAX_DEPTH 25 void grep_dir(char *dir) { static int depth; Sys_Dir_Type x; char *file; #ifdef msdos DOS_DTA_Type dta; x.dta = &dta; #endif if (NULL == sys_opendir(dir, &x)) return; if (depth >= MAX_DEPTH) { fprintf(stderr, "Maximum search depth exceeded.\n"); return; } depth++; if (Debug_Mode) fprintf(stderr, "%s\n", dir); for (file = sys_dir_findfirst(&x); file != NULL; file = sys_dir_findnext(&x)) { if (x.isdir == 0) grep_file(file, x.file); else if ((Do_Recursive > 0) && (x.isdir == 1)) grep_dir(file); #ifdef msdos dos_set_dta (&dta); /* something might move it */ #endif } sys_closedir(&x); depth--; } static unsigned char *fixup_filename (unsigned char *name) { unsigned char *pat = Recurse_Reg_Pattern_Buffer; unsigned char ch; *pat++ = '^'; while ((ch = *name++) != 0) { if (ch == '*') { *pat++ = '.'; *pat++ = '*'; } else if (ch == '?') *pat++ = '.'; else if ((ch == '.') || (ch == '$')) { *pat++ = '\\'; *pat++ = ch; } else *pat++ = ch; } *pat++ = '$'; *pat = 0; return Recurse_Reg_Pattern_Buffer; } int main(int argc, char **argv) { unsigned char buf[256]; unsigned char recurse_buf[256]; argv++; argc--; SLang_init_case_tables (); while (argc && (**argv == '-') && *(*argv + 1)) { if (!strcmp(*argv, "-R")) { argc--; argv++; if (!argc) usage(); recurse_reg.pat = fixup_filename ((unsigned char *) *argv); recurse_reg.buf = recurse_buf; recurse_reg.buf_len = 256; #ifdef msdos recurse_reg.case_sensitive = 0; #else recurse_reg.case_sensitive = 1; #endif if (SLang_regexp_compile (&recurse_reg)) exit_error("Error compiling pattern."); Do_Recursive = 1; Recursive_Match = 1; } else if (!strcmp(*argv, "-x")) { argc--; argv++; if (!argc) usage(); Recursive_Match = 1; Match_This_Extension = *argv; } else { parse_flags(*argv + 1); } argv++; argc--; } if (!argc) usage(); reg.pat = (unsigned char *) *argv; reg.buf = buf; reg.buf_len = 256; reg.case_sensitive = Case_Sensitive; if (SLang_regexp_compile (®)) exit_error("Error compiling pattern."); argc--; argv++; Must_Match = 1; if (reg.osearch) { SLsearch_init ((char *) reg.pat, 1, Case_Sensitive, &Search_St); } else if (reg.must_match) { SLsearch_init ((char *) reg.must_match_str, 1, Case_Sensitive, &Search_St); } else Must_Match = 0; if (argc == 0) { if (Fixed_Len_Mode) File_Fp = stdin; else File_Vp = vstream(fileno(stdin), BUF_SIZE, 0); if ((File_Fp == NULL) && (File_Vp == NULL)) { exit_error("Error vopening stdin."); } grep("stdin"); if (File_Vp != NULL) vclose(File_Vp); else fclose (File_Fp); } else { if ((Do_Recursive > 0) || (argc != 1)) print_file_too = 1; while (argc--) { #ifdef unix int ret; #endif #ifdef msdos { char *p = *argv; while (*p) { if (*p == '/') *p = '\\'; p++; } } #endif if ( #ifdef msdos dos_is_dir (*argv) /* * && (('\\' == (*argv)[strlen(*argv) - 1]) * || (!strcmp (*argv, ".")) * || (!strcmp (*argv, ".."))) */ #else #ifdef unix (1 == (ret = unix_is_dir (*argv))) #endif #endif ) { print_file_too = 1; if (Do_Recursive >= 0) grep_dir (*argv); } else #ifdef msdos { char *file = *argv; while (*file && (*file != '*')) file++; if (*file == '*') { print_file_too = 1; grep_dir (*argv); } else grep_file(*argv, *argv); } #else #ifdef unix if (ret == 0) #endif grep_file(*argv, *argv); #endif argv++; } } return (0); } /* ------------------------------------------------------------ */ #ifdef VMS int vms_expand_filename(char *file,char *expanded_file) { unsigned long status; static int context = 0; static char inputname[256] = ""; $DESCRIPTOR(file_desc,inputname); $DESCRIPTOR(default_dsc,"SYS$DISK:[]*.*;"); static struct dsc$descriptor_s result = {0, DSC$K_DTYPE_T, DSC$K_CLASS_D, NULL}; if (strcmp(inputname, file)) { if (context) { lib$find_file_end(&context); } context = 0; strcpy(inputname, file); file_desc.dsc$w_length = strlen(inputname); } if (RMS$_NORMAL == lib$find_file(&file_desc,&result,&context, &default_dsc,0,0,&Number_Zero)) { MEMCPY(expanded_file, result.dsc$a_pointer, result.dsc$w_length); expanded_file[result.dsc$w_length] = '\0'; return (1); } else { /* expanded_file[0] = '\0'; */ /* so file comes back as zero width */ return(0); } } static int context = 0; static char inputname[256] = ""; $DESCRIPTOR(file_desc,inputname); $DESCRIPTOR(default_dsc,"SYS$DISK:[]*.*;"); int sys_findnext(char *file) { unsigned long status; static struct dsc$descriptor_s result = {0, DSC$K_DTYPE_T, DSC$K_CLASS_D, NULL}; if (RMS$_NORMAL == lib$find_file(&file_desc,&result,&context, &default_dsc,0,0,&Number_Zero)) { MEMCPY(file, result.dsc$a_pointer, result.dsc$w_length); file[result.dsc$w_length] = 0; return (1); } else return(0); } int sys_findfirst(char *file) { char *file; strcpy(inputname, file); file_desc.dsc$w_length = strlen(inputname); if (context) lib$find_file_end(&context); context = 0; return sys_findnext(file); } #endif /* VMS */ C$K_DTYPE_T, DSC$K_CLASS_D, NULL}; if (RMS$_NORMAL == lib$find_file(&file_desc,&result,&context, &default_dsc,0,0,&Number_Zero)) { MEMCPY(file, result.dsc$a_pointer, result.dsc$w_length); file[result.dsc$w_length] = 0; return (1); } else return(0); } int sys_findfirst(char *file) { char *file; strcpy(inputname, file); file_desc.dsc$w_length = strlen(inputname); if (context) lib$find_file_end(&context); context = 0; return sys_findnextjed-0.97.12/src/screen.c000064400000000000003000001312240603742313500145100ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include "config.h" #include #include #ifdef pc_system #include #endif #include "buffer.h" #include "screen.h" #include "window.h" #include "paste.h" #include "ins.h" #include "ledit.h" #include "display.h" #include "sysdep.h" #include "misc.h" #include "vterm.h" #include "slang.h" #include "file.h" #include "hooks.h" #ifdef HAS_SUBPROCESSES #include "jprocess.h" #endif #ifdef FLOAT_TYPE # define JED_VERSION "0.F97.12" #else # define JED_VERSION "0.97.12" #endif int Jed_Version_Number = 9712; #define fputs(s,f) write(fileno(f), s, strlen(s)) Screen_Type JScreen[MAX_SCREEN_SIZE]; int Screen_Row = 1; int Screen_Col = 1; int Cursor_Motion; /* indicates cursor movement only -1 ^ v +1 < > */ int Scroll_Region_1; int Scroll_Region_2; int Scroll_Lines; int Jed_Dollar = '$'; int User_Prefers_Line_Numbers = 0; int Mode_Has_Syntax_Highlight; int Wants_Syntax_Highlight; /* if non-zero, highlight the syntax. */ int Wants_Attributes = 1; int Wants_HScroll = 20; /* controls automatic horizontal * scrolling. If positive, scroll * only line, if negative, whole wind */ int Term_Supports_Color = 1; /* optimistic assumption */ static Line *HScroll_Line; static int HScroll; /* amount to scroll line by */ static int Absolute_Column; static int Message_Color; void (*X_Update_Open_Hook)(void); /* hooks called when starting */ void (*X_Update_Close_Hook)(void); /* and finishing update */ int Goal_Column; int Display_Eight_Bit = 0; int JED_CSI = -1; unsigned short Point_On_Char; /* character at cursor position */ static int Point_Cursor_Flag = 1; /* if non-zero, point cursor */ static Line Eob_Line = { NULL, NULL, (unsigned char *) "[EOB]", 5 #ifdef KEEP_SPACE_INFO ,5 #endif }; int Want_Eob = 0; int Display_Time = 1; /* Turn on %t processing in status line */ void blank_line(int row) { int n = JWindow->width; register unsigned short *p, *pmax; p = JScreen[row].old; pmax = p + n; while (p < pmax) { *p = 32; *(p + 1) = 32; *(p + 2) = 32; *(p + 3) = 32; p += 4; } } static void update_screen_txt(int row) { unsigned short *tmp; tmp = JScreen[row].neew; JScreen[row].neew = JScreen[row].old; JScreen[row].old = tmp; } static unsigned char char_width[256]; static int dis8bit = -100; static int j_csi = -1; static int Selective_Display = -0x7FFF; #define FIX_CHAR_WIDTH \ if ((Display_Eight_Bit != dis8bit) || (JED_CSI != j_csi)\ || (Selective_Display != Buffer_Local.sd)) fix_char_width() static int fix_attributes(register unsigned short *p, register unsigned short *pmax, unsigned int color) { if (pmax == NULL) pmax = p + JWindow->width; if (p >= pmax) return(0); color = color << 8; while (p < pmax) { *p = color | (*p & 0xFF); p++; } return(1); } #ifdef HAS_DISPLAY_TABLE unsigned char Output_Display_Table[256]; #endif static int output(unsigned char *line, int len, int row, register int max_col, register int column_offset, unsigned char *hi_beg, unsigned char *hi_end) { register unsigned char ch, *p, *pmax, *b; register unsigned short *outp; register int count; unsigned char expb[80]; unsigned short *out, *mark, *hi0_outp = NULL, *hi1_outp = NULL, *sp, *spmax; int tab, tabsize, visible, i, mini, w; int done = 0; unsigned short dollar = Jed_Dollar & 0xFF; #if !defined(pc_system) && !defined(__os2__) dollar |= 0x20; /* prevent control character */ if (*tt_Use_Ansi_Colors && Term_Supports_Color) { #endif dollar |= JDOLLAR_COLOR << 8; #if !defined(pc_system) && !defined(__os2__) } #endif outp = out = JScreen[row - 1].neew; if (outp == NULL) return 1; tab = Buffer_Local.tab; count = 0; visible = 0; mini = 1; while(mini >= 0) { /* deal with mini_buffer prompt */ if (mini && (IS_MINIBUFFER) && Mini_Info.prompt_len) { p = (unsigned char *) Mini_Info.prompt; pmax = p + Mini_Info.prompt_len; mini = 0; } else { p = line; pmax = p + len; mini = -1; } while (p < pmax) { if (p == hi_beg) hi0_outp = outp; if (p == hi_end) hi1_outp = outp; ch = (unsigned char) *p++; b = expb; /* expand char to display form */ #ifdef HAS_DISPLAY_TABLE ch = Output_Display_Table[(unsigned int) ch]; #endif w = *(char_width + (unsigned int) ch); if (w == 1) { /* try to optimize this by putting this here */ count++; if ((count < max_col) && (count >= column_offset)) { *outp++ = (unsigned short) ch; } else if (count >= max_col) { done = 1; p = pmax; } continue; } else if (w == 3) { if (ch == '\r') { *b++ = '.'; *b++ = '.'; *b++ = '.'; done = -1; p = pmax; } else { *b++ = '~'; *b++ = '^'; /* Be better to replace following by: * *b++ = ch - '@'; */ ch &= 0x7F; *b++ = (ch == 127) ? '?' : ch + 'A' - 1; } } else if (w == 2) { if ((ch == '\t') && (tab > 0)) { tabsize = tab * (count / tab + 1) - count; i = 0; while (i++ < tabsize) *b++ = ' '; w = tabsize; } else if (ch & 0x80) { *b++ = '~'; *b++ = ch & 0x7F; } else { *b++ = '^'; /* Be better to replace following by: * *b++ = (ch | 0x80) - '@'; */ *b++ = (ch == 127) ? '?' : ch + 'A' - 1; } } else /* w = 0 */ { ch = *p++; /* skip next char */ continue; } b = expb; while (w--) { count++; if (count >= max_col) { done = 1; p = pmax; } else if (count >= column_offset) { *outp++ = (unsigned short) *b; } b++; } } } sp = out; while (sp < outp) { if (*sp++ != ' ') { visible++; break; } } #if !defined(pc_system) && !defined(__os2__) if (*tt_Use_Ansi_Colors && Term_Supports_Color) { #endif if (Wants_Syntax_Highlight && Mode_Has_Syntax_Highlight && (line != Eob_Line.data)) syntax_highlight (out, outp); else if (Message_Color) { unsigned short *ppp = out; while (ppp < outp) *ppp++ |= Message_Color; } #if !defined(pc_system) && !defined(__os2__) } #endif if (outp == out) { *outp++ = dollar; visible = 1; } else if (column_offset > 1) { *out = dollar; visible++; } mark = outp; sp = outp; spmax = out + JWindow->width; #if defined(msdos) && !defined(__WATCOMC__) && !defined(__WIN32__) asm mov bx, di asm mov cx, word ptr spmax asm sub cx, word ptr outp asm shr cx, 1 asm mov ax, 32 asm les di, dword ptr outp asm cld asm rep stosw asm mov di, bx /* Note that outp is not updated here! */ #else /* MEMSET((char *) sp, (char) ' ', sizeof(short) * (int) (spmax - sp)); */ /* This line burns some CPU */ while (sp < spmax) {*sp++ = 0x0020; *sp++ = 0x0020; *sp++ = 0x0020; *sp++ = 0x0020;} #endif if (done == 1) { mark = out + (JWindow->width - 1); *mark = dollar; visible += 1; if ((hi_beg != NULL) && (hi0_outp == NULL)) hi0_outp = mark; mark = NULL; } out[JWindow->width] = '\0'; /* fix highlighting on this line */ if ((Wants_Attributes) && (hi0_outp != NULL)) { if (hi1_outp == NULL) hi1_outp = outp + 1; visible += fix_attributes(hi0_outp, hi1_outp, JREGION_COLOR); } if (visible) { #if defined(msdos) && !defined(MSWINDOWS) (void) mark; /* 2nd and last parameters not used in msdos smartputs so they do not need to be valid */ tt_smart_puts(out, out, *tt_Screen_Cols, row - 1); #else /* if (mark != NULL) *mark = 0; */ tt_smart_puts(out, JScreen[row-1].old, *tt_Screen_Cols, row - 1); /* if (mark != NULL) *mark = ' '; */ #endif JScreen[row-1].n = visible; Point_Cursor_Flag = 1; } /* else take care of it in calling routine */ return(visible); } static void display_line(Line *line, int row) { int len, cofs = JWindow->column; Screen_Type *s = &JScreen[row - 1]; if (line != NULL) { len = line->len; if (len && (row != *tt_Screen_Rows) && (line->data[len - 1] == '\n')) { if ((s->hi1 != NULL) && (s->hi1 == line->data + len)) s->hi1--; len--; } if ((len > 0) || (cofs > 1) || ((row == *tt_Screen_Rows) && Mini_Info.prompt_len)) { if (Wants_HScroll && (line == HScroll_Line) && HScroll) { cofs += HScroll; } len = output(line->data, len, row, cofs + JWindow->width - 1, cofs, s->hi0, s->hi1); } } else len = 0; if (len <= 0) { if (s->n) { tt_goto_rc(row - 1, 0); Screen_Row = row; tt_del_eol(); } blank_line(row - 1); s->n = 0; } s->line = line; s->flags = 0; /* s->hi0 = s->hi1 = NULL; */ if (len > 0) update_screen_txt(row-1); } static void mark_window_attributes(int wa) { register Screen_Type *s = &JScreen[JWindow->top - 1], *smax = s + JWindow->rows, *s1, *s2; Mark *m; register Line *l = JWindow->beg.line, *ml; unsigned char *hi0, *hi1; int mn, pn, dn; s1 = s; if ((CBuf->vis_marks == 0) || (wa == 0) || (Wants_Attributes == 0)) { s2 = s; goto done; /* I hate gotos but they are convenient */ } m = CBuf->marks; while ((m->flags & VISIBLE_MARK) == 0) m = m->next; ml = m->line; mn = m->n; /* already in canonical form */ pn = LineNum + CBuf->nup; /* not in canonical form */ dn = pn - mn; while (l != CLine) /* find pos of point in window */ { s1++; l = l->next; } /* s1 now points at current line */ /* The whole point of all of this is to preserve the screen flags without touching the screen. */ if (dn > 0) /* mark on prev lines */ { s2 = s1 + 1; hi0 = l->data; hi1 = l->data + Point; if ((s1->hi0 != hi0) || (s1->hi1 != hi1)) { s1->hi0 = hi0; s1->hi1 = hi1; s1->flags = 1; } l = l->prev; s1--; while ((s1 >= s) && (l != ml)) { hi0 = l->data; hi1 = l->data + l->len; if ((s1->hi0 != hi0) || (s1->hi1 != hi1)) { s1->hi0 = hi0; s1->hi1 = hi1; s1->flags = 1; } l = l->prev; s1--; } if (s1 >= s) { hi0 = ml->data + m->point; hi1 = ml->data + ml->len; if ((s1->hi0 != hi0) || (s1->hi1 != hi1)) { s1->hi0 = hi0; s1->hi1 = hi1; s1->flags = 1; } s1--; } } else if (dn < 0) /* mark ahead of point */ { s2 = s1; s1--; hi0 = l->data + Point; hi1 = l->data + l->len; if ((s2->hi0 != hi0) || (s2->hi1 != hi1)) { s2->hi0 = hi0; s2->hi1 = hi1; s2->flags = 1; } l = l->next; s2++; while ((s2 < smax) && (l != ml)) { hi0 = l->data; hi1 = l->data + l->len; if ((s2->hi0 != hi0) || (s2->hi1 != hi1)) { s2->hi0 = hi0; s2->hi1 = hi1; s2->flags = 1; } l = l->next; s2++; } if (s2 < smax) { hi0 = ml->data; hi1 = ml->data + m->point; if ((s2->hi0 != hi0) || (s2->hi1 != hi1)) { s2->hi0 = hi0; s2->hi1 = hi1; s2->flags = 1; } s2++; } } else /* same line */ { if (Point < m->point) { s1->hi0 = l->data + Point; s1->hi1 = l->data + m->point; } else { s1->hi1 = l->data + Point; s1->hi0 = l->data + m->point; } s1->flags = 1; s2 = s1 + 1; s1--; } done: /* reached if there is no mark */ /* now do area outside the region */ while (s1 >= s) { if (s1->hi0 != NULL) { s2->hi1 = s1->hi0 = NULL; s1->flags = 1; } s1--; } while (s2 < smax) { if (s2->hi0 != NULL) { s2->hi1 = s2->hi0 = NULL; s2->flags = 1; } s2++; } } static void open_scroll(void) { Scroll_Region_1 = 1; Scroll_Region_2 = *tt_Screen_Rows; Scroll_Lines = 0; } static void do_scroll_up(int n) { tt_goto_rc(0,0); tt_delete_nlines(n); } static void do_scroll_down(int n) { tt_goto_rc(0, 0); tt_reverse_index(n); } static void execute_scroll(void) { if (Scroll_Lines > 0) { tt_set_scroll_region(Scroll_Region_1 - 1, Scroll_Region_2 - 1); execute_vscroll_up(Scroll_Region_1, Scroll_Region_2, Scroll_Lines); do_scroll_up(Scroll_Lines); } else if (Scroll_Lines < 0) { tt_set_scroll_region(Scroll_Region_1 - 1, Scroll_Region_2 - 1); execute_vscroll_down(Scroll_Region_1, Scroll_Region_2, -Scroll_Lines); do_scroll_down(-Scroll_Lines); } Scroll_Lines = 0; } static void queue_scroll(int n, int r1, int r2) { if ((r1 != Scroll_Region_1) || (r2 != Scroll_Region_2)) { /* if ((n == -1) && (Scroll_Region_1 == r1 + Scroll_Lines) && (Scroll_Region_2 == r2)) */ if ((n == -1) && (Scroll_Region_1 == r1 + Scroll_Lines) && (Scroll_Region_2 == r2)) Scroll_Lines--; else if ((n == -1) && (Scroll_Region_1 == r1 + Scroll_Lines) && (Scroll_Region_2 == r2 - 1)) { Scroll_Region_2 = r2; Scroll_Lines--; } else { execute_scroll(); Scroll_Region_1 = r1; Scroll_Region_2 = r2; Scroll_Lines = n; } } else Scroll_Lines += n; } static void close_scroll(void) { if (Scroll_Lines) execute_scroll(); if ((Scroll_Region_1 != 1) || (Scroll_Region_2 != *tt_Screen_Rows)) tt_reset_scroll_region(); } /* Here a scrolling region (t,b) is used to scroll line t + n to t. All that is assumed is that the line at t + n exists! */ int scroll_up(int n, int t, int b) { int i, necess; if (n == 0) return(0); /* t = JWindow->top - 1 + t; b = JWindow->top - 1 + b; */ /* check to see if this is really necessary */ necess = 0; for (i = t - 1; i < b; i++) { if (JScreen[i].n) { necess = 1; break; } } if (!necess) return(0); queue_scroll(n, t, b); vscroll_up(t,b,n); return(necess); } /* Here a scrolling region (t,b) is used to scroll line t + n to t. */ void scroll_down(int n, int t, int b) { if (n == 0) return; /* t = JWindow->top - 1 + t; b = JWindow->top - 1 + b; */ tt_set_scroll_region(t - 1,b - 1); tt_reverse_index(n); tt_reset_scroll_region(); vscroll_down(t,b,n); } static int update_insert_line(int r1, Line *line) { int i, r2, r, necess; Line *bot; /* normalize r1: */ /* r1 = JWindow->top - 1 + r1; */ /* find the first one that is blank to delimit the region so that the loss will be minimal */ r = r1; /* not r1 + 1 as obvious (but naive) as it seems */ r2 = JWindow->rows + JWindow->top - 1; while (r < r2) { bot = JScreen[r - 1].line; if ((bot == NULL) || (bot == &Eob_Line)) break; r++; } if ((r1 != r2) && (r == r2)) /* we may have failed so check the bottom up so we don't push linesoff. */ { bot = line; for (r = r1 + 1; r <= r2; r++) { bot = bot->next; if (bot == NULL) break; if (JScreen[r-1].line == bot) break; } if ((bot != NULL) && (r <= r2)) r--; if (r > r2) r = r2; } if (r < r1) r = r1; r2 = r; /* check to see if we gain by doing this */ necess = 0; for (i = r1 - 1; i < r2; i++) { if (JScreen[i].n) { necess = 1; break; } } if (r1 == r2) return(0); if (!necess) return(0); queue_scroll(-1, r1, r2); vscroll_down(r1, r2, 1); return(1); } Line *find_top() { int n, i; Line *line, *next, *prev, *tthis; n = JWindow->rows - 1; if (!n) return(CLine); /* Check the top window line. Chances are that one of the lines above CLine will match in usual situations */ line = JScreen[JWindow->top - 1].line; prev = CLine; if (line != NULL) for (i = 0; i < JWindow->rows; i++) { if (prev == line) return(line); tthis = prev->prev; if (tthis == NULL) break; else prev = tthis; } /* That was the obvious choice now try some others */ /* try bottom (or punt) */ if (*tt_Term_Cannot_Scroll) { if (*tt_Term_Cannot_Scroll == -1) { if ((line != NULL) && (CLine->next == line)) return (CLine); if (CLine->prev != JScreen[JWindow->rows + JWindow->top - 2].line) n = n / 2; } else n = n / 2; goto no_scroll; } line = JScreen[JWindow->rows + JWindow->top - 2].line; next = CLine; if (line != NULL) for (i = 0; i < JWindow->rows; i++) { if (next == line) { line = CLine; while(i < JWindow->rows - 1) { prev = line->prev; if (prev == NULL) return(line); line = prev; i++; } return(line); } next = next->next; if (next == NULL) break; } /* try to find CLine somewhere in the window */ next = CLine->next; prev = CLine->prev; for (i = JWindow->top - 1; i < JWindow->top - 1 + JWindow->rows; i++) { tthis = JScreen[i].line; if (tthis == CLine) { line = CLine; while(i > JWindow->top - 1) { i--; line = line->prev; if (line == NULL) return(CLine); } return(line); } else if ((tthis == prev) && (tthis != NULL)) { i--; while(i-- > JWindow->top - 1) { if (prev->prev == NULL) return(prev); prev = prev->prev; } return(prev); } else if ((tthis == next) && (tthis != NULL)) { i++; while(i-- > JWindow->top - 1) { if (next->prev == NULL) return(next); next = next->prev; } return(next); } } /* not found so check neighbors */ line = CLine->next; if ((line != NULL) && (line == JScreen[JWindow->top - 1].line)) return(CLine); line = CLine->prev; if ((line == NULL) || (line != JScreen[n + JWindow->top - 1].line)) { n = n / 2; } no_scroll: /* on terms that cannot scroll */ line = prev = CLine; while(n--) { line = line->prev; if (line == NULL) return(prev); prev = line; } return(line); } static void do_scroll(register Line *top) { Line *bot, *middle1, *middle2, *s; register Line *sline; int r1, r, r2, match, overwrite = 1, scroll_region_set = 0, srs, nrows; int n1, n2, n3 = 0; /* unsigned short sh; */ nrows = JWindow->rows; r1 = JWindow->top; r2 = r1 + nrows - 1; /* Actually it might be more benificial to extend r2 to a status line. The status line is easy to detect since it begins with a highlighted minus sign. */ /* r = r2; while (r < *tt_Screen_Rows - 1) { sh = JScreen[r].old[0]; if (((sh & 0xFF) == '-') && (sh >> 8)) break; r++; } nrows = r - r1 + 1; r2 = r; */ open_scroll(); if (top != NULL) bot = top->next; else bot = NULL; middle1 = middle2 = NULL; r = 1; bot = top; n1 = nrows / 3; n2 = 2 * n1; /* I do not want to use CLine and the previous one as a basis for determining scroll region since we may have just created it. There is nothing right or wrong about it--- just a feeling that results in optimization of screen update. */ while (r++ < nrows) { if ((r >= n1) && (middle1 == NULL) && (bot != NULL) && (bot != CLine) && (bot != CLine->prev)) middle1 = bot; if ((r >= n2) && (middle2 == NULL) && (bot != NULL) && (bot != CLine) && (bot != CLine->prev)) { middle2 = bot; n2 = bot->len; } if (bot != NULL) bot = bot -> next; } /* if the middle or the bottom lines match, we do not overwrite */ if (bot != NULL) n3 = bot->len; if (middle1 == NULL) overwrite = 0; else { n1 = middle1->len; /* I do not want to scroll if only 1 thing matches */ for (r = r1; r <= r2; r++) { s = JScreen[r - 1].line; if (((middle1 == s) && (n1 == s->len) && n1 && (middle1->data[n1 / 2] == s->data[n1 / 2])) || ((middle2 == s) && (middle2 != NULL) && (n2 == s->len) && n2 && (middle2->data[n2 / 2] == s->data[n2 / 2])) || ((bot != NULL) && (bot == s) && (n3 > 4) && (n3 == s->len) && n3 && (bot->data[n3/2] == s->data[n3 / 2]))) { overwrite = 0; break; } } } while(r1 <= r2) { if (top == NULL) break; match = 0; for(r = r1; r <= r2; r++) { sline = JScreen[r - 1].line; if (sline == top) { if (r != r1) { scroll_region_set = 0; scroll_up(r - r1, r1, r2); } r1++; match = 1; if (top != NULL) top = top->next; break; } } if (match) continue; /* not found so insert it */ if ((top != NULL) && (!overwrite)) { srs = update_insert_line(r1, top); if (!scroll_region_set) scroll_region_set = srs; } if (top != NULL) top = top->next; r1++; } /* if (scroll_region_set) reset_scroll_region(); */ close_scroll(); if (overwrite) touch_window(); } static void fix_char_width(void) { int i; for (i = 0; i < 32; i++) { char_width[i] = 2; char_width[i + 128] = 3; } for (i = 32; i < 127; i++) { char_width[i] = 1; char_width[i + 128] = 2; } char_width[127] = 2; char_width[255] = 3; if (Display_Eight_Bit > 0) { for (i = (Display_Eight_Bit > 127 ? Display_Eight_Bit : 128); i < 256; i++) { char_width[i] = 1; } } dis8bit = Display_Eight_Bit; if ((Selective_Display = Buffer_Local.sd) < 0) { char_width[(unsigned char) '\r'] = 3; } if (JED_CSI > 0) char_width[(unsigned char) JED_CSI] = 0; j_csi = JED_CSI; } void point_column(int n) { register unsigned char *p, *pmax; register int i; int tab, w; FIX_CHAR_WIDTH; if (IS_MINIBUFFER) n -= Mini_Info.effective_prompt_len; p = CLine->data; pmax = p + (CLine->len - 1); if (*pmax != '\n') pmax++; tab = Buffer_Local.tab; i = 0; n--; /* start at 0 */ while(p < pmax) { if ((*p == '\t') && tab) { i = tab * (i / tab + 1); } else { w = char_width[*p]; i += w; if (w == 0) p++; } if ((i > n) || ((Selective_Display < 0) && (*p == '\r'))) break; p++; } Point = (int) (p - CLine->data); } /* given a position in a line, return apparant distance from bol expanding tabs, etc... up to pos. Note**** misc.c calls this using the minibuffer prompt. This routine can only depend on Point and CLine->data but not CLine->len!! */ int calculate_column() { register int i; int tab, w; register unsigned char *cw = char_width; register unsigned char ch, *pos, *this_pos; FIX_CHAR_WIDTH; pos = CLine->data; this_pos = pos + Point; i = 1; tab = Buffer_Local.tab; while(pos < this_pos) { ch = *pos++; if ((ch == '\t') && tab) { i = tab * ((i - 1)/tab + 1) + 1; /* tab column tabs */ } else { w = cw[ch]; /* w = char_width[ch]; */ i += w; if (w == 0) pos++; } if ((ch == '\r') && (Selective_Display < 0)) break; } Absolute_Column = i; if (IS_MINIBUFFER) i += Mini_Info.effective_prompt_len; Screen_Col = i; return (i); } void point_cursor(int c) { int r, row; Line *tthis; if (JWindow->trashed) return; r = 0; Point_Cursor_Flag = 0; for (row = JWindow->top; row < JWindow->top + JWindow->rows; row++) { tthis = JScreen[row-1].line; if (tthis == NULL) break; if ((tthis == CLine) || (tthis == &Eob_Line)) { r = row; break; } } if (Point >= CLine->len) { Point = CLine->len - 1; if (Point < 0) Point = 0; else if ((*(CLine->data + Point) != '\n') || (CBuf == MiniBuffer)) Point++; } if (r) { if (!c) c = calculate_column(); c = c - JWindow->column + 1; if (CLine == HScroll_Line) c -= HScroll; if (c < 1) c = 1; else if (c > JWindow->width) c = JWindow->width; Point_On_Char = JScreen[r - 1].old[c - 1]; tt_goto_rc (r - 1 , c - 1); Screen_Row = r; Screen_Col = c; } else { msg_error("Point not visible in Window."); c = 1; } flush_output (); if (!Cursor_Motion) Goal_Column = c; } static unsigned short *stat_cpy(register unsigned short *s1, register unsigned char *v, register unsigned short *smax) { register char ch; if (v == NULL) return (s1); while ((s1 < smax) && ((ch = *v++) != 0)) { if (ch < ' ') { *s1++ = (unsigned short) '^'; if (s1 < smax) *s1++ = (unsigned short) (ch + '@'); } else *s1++ = ch; } return (s1); } /* site.sl should modify this */ char Default_Status_Line[80] = " ^Ke: quit, ^Kg: get file, ^K^W: write file | %b (%m%n%o) %p"; static unsigned long Status_Last_Time; static unsigned long Status_This_Time; static char *status_get_time(void) { static char status_time[10]; register char *t, ch, *t1; char am; int n; if (Display_Time == 0) return (NULL); if (Status_This_Time == 0) Status_This_Time = sys_time(); if (Status_This_Time - Status_Last_Time >= 30) { Status_Last_Time = Status_This_Time; am = 'a'; t = get_time(); /* returns a string like: "Tue Nov 2 13:18:19 1993" */ t1 = status_time; while (ch = *t, (ch <= '0') || (ch > '9')) t++; /* on date number, skip it */ while (*t++ != ' '); if (*t == '0') t++; if (Display_Time > 0) { n = 0; while ((ch = *t++) != ':') { n = 10 * n + (int) (ch - '0'); } if (n >= 12) am = 'p'; n = n % 12; if (n == 0) n = 12; if (n >= 10) { n -= 10; *t1++ = '1'; } *t1++ = '0' + n; *t1++ = ':'; while ((*t1++ = *t++) != ':'); *(t1 - 1) = am; *t1++ = 'm'; *t1 = 0; } else { *t1++ = '['; while ((*t1++ = *t++) != ':'); while ((*t1++ = *t++) != ':'); *--t1 = ']'; *++t1 = 0; } } return (status_time); } static unsigned short *finish_status(unsigned short *s1, unsigned short *smax, int col_flag) { unsigned int line, maxline; register char *v, ch; Line *l; int top, rows; char pstr[20], *str, col_buf[20]; unsigned short *s1_save = s1; /* line = w->mark.n - buf->nup; */ line = LineNum; maxline = Max_LineNum; if (!User_Prefers_Line_Numbers) { top = JWindow->top - 1; rows = JWindow->rows - 1; l = JScreen[top + rows].line; if (l == CBuf->end) l = NULL; if (JScreen[top].line == CBuf->beg) { if (l == NULL) strcpy(pstr,"All"); else strcpy(pstr,"Top"); } else if (l == NULL) strcpy(pstr, "Bot"); else { sprintf(pstr, "%d%%", (int) ((line * 100L) / (long) maxline)); } } else sprintf(pstr, "%d/%d", line, maxline); v = CBuf->status_line; if (*v == 0) v = Default_Status_Line; while (((ch = *v++) != 0) && (s1 < smax)) { if (ch != '%') *s1++ = ch; else { ch = *v++; switch (ch) { case 'a': if (CBuf->flags & ABBREV_MODE) str = " abbrev"; else str = NULL; break; case 'f': str = CBuf->file; break; case 'n': if (CBuf->narrow != NULL) str = " Narrow"; else str = NULL; break; case 'o': if (CBuf->flags & OVERWRITE_MODE) str = " Ovwrt"; else str = NULL; break; case 'b': str = CBuf->name; break; case 'p': str = pstr; break; case 'v': str = JED_VERSION; break; case 'm': str = CBuf->mode_str; break; case 't': str = status_get_time(); break; case 'c': if (User_Prefers_Line_Numbers > 1) { if (col_flag) (void) calculate_column (); sprintf(col_buf, "%d", Absolute_Column); str = col_buf; } else { /* 100 to 1 that there is punctuation before this, kill it */ if (s1 > s1_save) s1--; str = NULL; } break; case '%': str = "%"; break; default: return(s1); } if (str != NULL) s1 = stat_cpy(s1, (unsigned char *) str, smax); } } return (s1); } void set_status_format(char *f, int *local) { char *s; if (*local) s = Default_Status_Line; else s = CBuf->status_line; strncpy(s, f, 79); s[79] = 0; } static void make_status_line(int col_flag) { unsigned short mrk, flag, spot, star, ubit = '-'; register unsigned short *s1, *s, *smax; if (JWindow->top == *tt_Screen_Rows) return; /* minibuffer ? */ s = JScreen[JWindow->rows + JWindow->top - 1].neew; smax = s + JWindow->width; mrk = flag = spot = star = '-'; if (CBuf->marks != NULL) mrk = 'm'; if (CBuf->flags & FILE_MODIFIED) flag = 'd'; if (CBuf->spots != NULL) spot = 's'; if (CBuf->flags & BUFFER_TRASHED) star = '*'; if (CBuf->flags & READ_ONLY) star = '%'; if (CBuf->flags & UNDO_ENABLED) ubit = '+'; s1 = s; if (JWindow->column != 1) *s1++ = '<'; else *s1++ = '-'; *s1++ = star; *s1++ = star; *s1++ = mrk; *s1++ = flag; *s1++ = spot; if (CBuf->flags & BINARY_FILE) *s1++ = 'B'; #ifdef pc_system else if ((CBuf->flags & ADD_CR_ON_WRITE_FLAG) == 0) *s1++ = 'L'; #else #ifdef unix else if (CBuf->flags & ADD_CR_ON_WRITE_FLAG) *s1++ = 'C'; #endif #endif else *s1++ = '-'; *s1++ = ubit; s1 = finish_status(s1, smax, col_flag); if (Defining_Keyboard_Macro) s1 = stat_cpy(s1, (unsigned char *) " [Macro]", smax); while (s1 < smax) *s1++ = '-'; *smax = 0; (void) fix_attributes (s, smax, JSTATUS_COLOR); } static int update_status_line(int col_flag) { int r; if (JWindow->top == *tt_Screen_Rows) return(0); /* minibuffer ? */ r = JWindow->rows + JWindow->top - 1; make_status_line(col_flag); tt_smart_puts(JScreen[r].neew, JScreen[r].old, *tt_Screen_Cols, r); Point_Cursor_Flag = 1; update_screen_txt(r); JScreen[r].n = *tt_Screen_Cols; return(1); } /* if force then do update otherwise return 1 if update or 0 if not */ static int update_1(Line *top, int force) { int i; Window_Type *w; int did_eob = 0, time_has_expired = 0; if (Batch || (!force && (Executing_Keyboard_Macro || (Repeat_Factor != NULL) || Input_Buffer_Len || input_pending(&Number_Zero) || (Read_This_Character != NULL))) || (CBuf != JWindow->buffer)) { return(0); } if (Suspend_Screen_Update != 0) { Suspend_Screen_Update = 0; touch_screen (); } JWindow->mark.line = CLine; JWindow->mark.point = Point; JWindow->mark.n = LineNum + CBuf->nup; CBuf->linenum = LineNum; CBuf->max_linenum = Max_LineNum; if (Wants_Attributes && CBuf->vis_marks) { JWindow->trashed = 1; } /* Do not bother setting this unless it is really needed */ if (Display_Time) { Status_This_Time = sys_time(); time_has_expired = (Status_This_Time > Status_Last_Time + 45); } /* if cursor moves just left right, do not update status line */ if (!force && !JWindow->trashed && ((JWindow == JWindow->next) || (User_Prefers_Line_Numbers && Cursor_Motion)) /* if % wanted, assume user is like me and gets annoyed with screen updates */ && (User_Prefers_Line_Numbers || time_has_expired)) { update_status_line(0); return(1); } if (!JWindow->trashed && Cursor_Motion) return(1); w = JWindow; do { if (Wants_Syntax_Highlight) init_syntax_highlight (); did_eob = 0; if (top == NULL) top = find_top(); JWindow->beg.line = top; /* scroll the screen to optimal location */ if (0 == *tt_Term_Cannot_Scroll) do_scroll(top); mark_window_attributes((w == JWindow) || (w->buffer != CBuf)); for (i = JWindow->top - 1; i < JWindow->rows + JWindow->top - 1; i++) { /* the next line is really optional */ #ifndef pc_system if (!force && (Exit_From_MiniBuffer || input_pending(&Number_Zero))) break; #endif if ((JScreen[i].line != top) || (JScreen[i].flags) || (Want_Eob && !did_eob && (i != *tt_Screen_Rows - 1) && (top == NULL))) { if (((top == NULL) || (top->len == 0)) && (Want_Eob && !did_eob && !(CBuf->flags & READ_ONLY))) { display_line(&Eob_Line, i + 1); /* JScreen[i].line = top; */ did_eob = 1; } else display_line(top, i + 1); } if (top != NULL) top = top->next; } HScroll_Line = NULL; Mode_Has_Syntax_Highlight = 0; if (!force && input_pending(&Number_Zero)) { while(JWindow != w) other_window(); JWindow->trashed = 1; /* since cursor not pointed */ return(0); } else update_status_line(w != JWindow); JWindow->trashed = 0; other_window(); top = NULL; /* if (!JWindow->trashed) top = JWindow->beg.line; else top = NULL; */ } while(JWindow != w); return(1); } int Mini_Ghost = 0; static void update_minibuffer(void) { Window_Type *w; if (Executing_Keyboard_Macro) return; if (MiniBuffer != NULL) { w = JWindow; while (!IS_MINIBUFFER) other_window(); if ((*Message_Buffer) && JScreen[*tt_Screen_Rows - 1].n) (void) input_pending(&Number_Ten); JWindow->beg.line = CLine; mark_window_attributes(1); display_line(CLine, *tt_Screen_Rows); while (w != JWindow) other_window(); Mini_Ghost = 1; } else if (Mini_Ghost && !*Error_Buffer && !*Message_Buffer) { /* if < 0, it is a result of flush message so let it pass this round */ if (Mini_Ghost < 0) Mini_Ghost = 1; else { display_line(NULL, *tt_Screen_Rows); if (!JWindow->trashed) point_cursor(0); Mini_Ghost = 0; } } else Mini_Ghost = ((*Message_Buffer) || (*Error_Buffer)); } void do_dialog(char *b) { int len = 0, dout, row = *tt_Screen_Rows - 1; char *quit = "Quit!"; if (Batch) return; FIX_CHAR_WIDTH; if (! *b) { if(!SLKeyBoard_Quit) return; b = quit; } if (MiniBuffer) { len = Mini_Info.prompt_len; Mini_Info.prompt_len = 0; } if ((b == Error_Buffer) || (b == quit)) { Message_Color = JERROR_COLOR << 8; touch_screen(); } else Message_Color = JMESSAGE_COLOR << 8; dout = output((unsigned char *) b, strlen(b), *tt_Screen_Rows, *tt_Screen_Cols, 1, NULL, NULL); Message_Color = 0; if (MiniBuffer) Mini_Info.prompt_len = len; if ((b == Error_Buffer) || (SLKeyBoard_Quit)) { beep(); flush_input(); } if (!dout) { if (JScreen[row].n) { tt_goto_rc(*tt_Screen_Rows - 1, 0); tt_del_eol(); } blank_line(row); JScreen[row].n = 0; } else { update_screen_txt(row); if (MiniBuffer != NULL) { flush_output (); (void) input_pending(&Number_Ten); } } Mini_Ghost = -dout; } static void set_hscroll(int col) { int hdiff, whs = abs(Wants_HScroll), wc = JWindow->column - 1, sw = *tt_Screen_Cols - 1; static Line *last; Line *tmp; /* take care of last effect of horizontal scroll */ if (last != NULL) { tmp = CLine; CLine = last; register_change(0); CLine = tmp; if (last != CLine) { #if 0 /* I need to think about this more */ if (Wants_HScroll < 0) { if (wc != 0) { JWindow->column = 1; wc = 0; touch_window (); } } #endif HScroll = 0; } last = NULL; } col--; /* use 0 origin */ hdiff = col - wc; if ((HScroll >= hdiff) || (HScroll <= hdiff - sw)) { if (hdiff >= sw) { HScroll = hdiff - sw + whs; } else if ((hdiff == 0) && (wc == 0)) HScroll = 0; else if (hdiff <= 1) { HScroll = hdiff - whs - 1; } else HScroll = 0; } if (HScroll) { if (wc + HScroll < 0) HScroll = -wc; if (Wants_HScroll < 0) { JWindow->column += HScroll; touch_window(); HScroll = 0; } else { register_change(0); last = HScroll_Line = CLine; } } } static char Top_Screen_Line_Buffer[132] = "If you see this, you have an installation problem."; void define_top_screen_line (char *neew) { SLang_push_string (Top_Screen_Line_Buffer); strncpy (Top_Screen_Line_Buffer, neew, 130); Top_Screen_Line_Buffer[131] = 0; JScreen[0].flags = 1; } static void update_top_screen_line (void) { register unsigned short *s, *smax, *s1; register unsigned char ch, *chp; if (Top_Window_Row == 1) return; chp = (unsigned char *) Top_Screen_Line_Buffer; s = s1 = JScreen[0].neew; smax = s + JWindow->width; while ((s1 < smax) && ((ch = *chp++) != 0)) { *s1++ = (unsigned short) ch; } while (s1 < smax) *s1++ = ' '; *smax = 0; (void) fix_attributes (s, smax, JMENU_COLOR); tt_smart_puts(JScreen[0].neew, JScreen[0].old, *tt_Screen_Cols, 0); Point_Cursor_Flag = 1; update_screen_txt(0); JScreen[0].n = *tt_Screen_Cols; JScreen[0].flags = 0; } /* if flag is non-zero, do not touch the message/error buffers */ void update(Line *line, int force, int flag) { int pc_flag = 1; int col; static unsigned long last_time; Line *hscroll_line_save; #ifdef HAS_SUBPROCESSES if (Child_Status_Changed_Flag) { jed_get_child_status (); force = 1; } #endif if (Batch) return; if (!force && !SLang_Error && !SLKeyBoard_Quit && (!*Error_Buffer)) { if (Input_Buffer_Len || input_pending (&Number_Zero)) { JWindow->trashed = 1; return; } } if (last_time + 30 < Status_This_Time) { if (last_time == 0) last_time = Status_This_Time; else { last_time = Status_This_Time; if (SLang_run_hooks ("update_timer_hook", NULL, NULL)) flag = 0; } } if (Suspend_Screen_Update != 0) { Suspend_Screen_Update = 0; touch_screen (); } if (X_Update_Open_Hook != NULL) (*X_Update_Open_Hook) (); FIX_CHAR_WIDTH; col = calculate_column(); HScroll_Line = NULL; if (Wants_HScroll) set_hscroll(col); else HScroll = 0; hscroll_line_save = HScroll_Line; if (SLang_Error) flag = 0; /* update hook invalidates flag */ if (SLang_Error && !(*Error_Buffer || SLKeyBoard_Quit)) SLang_doerror(NULL); if (!flag && (*Error_Buffer || SLKeyBoard_Quit)) { do_dialog(Error_Buffer); SLKeyBoard_Quit = 0; SLang_restart(0); SLang_Error = 0; flag = 0; Mini_Ghost = 1; (void) update_1(line, 1); update_minibuffer(); } else if (!flag && *Message_Buffer) { if (!update_1(line, force)) { /* *Message_Buffer = 0; */ goto done; } Mini_Ghost = 1; do_dialog(Message_Buffer); update_minibuffer(); } else { pc_flag = JWindow->trashed || (JWindow != JWindow->next) || Cursor_Motion; if (!flag) update_minibuffer(); if (!update_1(line, force)) goto done; } if (!flag) *Error_Buffer = *Message_Buffer = 0; if ((Top_Window_Row != 1) && JScreen[0].flags) { update_top_screen_line (); } done: HScroll_Line = hscroll_line_save; if (Point_Cursor_Flag || pc_flag) point_cursor(col); if (X_Update_Close_Hook != NULL) (*X_Update_Close_Hook) (); flush_output (); } /* search for the CLine in the SCreen and flag it as changed */ /* n = 0 means line was changed, n = 1 means it was destroyed */ void register_change(int n) { Window_Type *w; register Screen_Type *s, *smax; register Line *cl = CLine; JWindow->trashed = 1; if (Suspend_Screen_Update) return; if (No_Screen_Update) { No_Screen_Update = 0; if (((n == CINSERT) || (n == CDELETE)) && (JWindow->next == JWindow)) { /* Since no screen update, we are probably safe to do: */ /* JScreen[Screen_Row - 1].flags = 1; */ return; } w = JWindow->next; /* skip this window */ } else w = JWindow; do { s = &JScreen[w->top - 1]; smax = s + w->rows; while (s < smax) { if (s->line == cl) { s->flags = 1; if ((n == NLDELETE) || (n == LDELETE)) s->line = NULL; w->trashed = 1; } s++; } w = w->next; } while(w != JWindow); } static int Display_Initialized; void reset_display() { int i; unsigned short *p; if (Display_Initialized == 0) return; if (Batch) return; Display_Initialized = 0; tt_reset_video (); /* tt_del_eol (); flush_output (); */ for (i = 0; i < *tt_Screen_Rows; i++) { p = JScreen[i].old; if (p != NULL) SLFREE(p); JScreen[i].old = NULL; p = JScreen[i].neew; if (p != NULL) SLFREE(p); JScreen[i].neew = NULL; } } void init_display(int g) { int i, r, c; unsigned short *old, *neew = NULL; if (Batch) return; if (g) { get_term_dimensions(&c, &r); if (r > MAX_SCREEN_SIZE) r = MAX_SCREEN_SIZE; if (JWindow != NULL) { /* Note that this next call will call this routine again with g = 0. */ change_screen_size (c, r); return; } *tt_Screen_Cols = c; *tt_Screen_Rows = r; } tt_init_video(); for (i = 0; i < *tt_Screen_Rows; i++) { /* these are bigger to handle overflow in output routine in case * special char occurs at end as well as allowing code as in blank_line*/ if ((NULL == (old = (unsigned short *) SLCALLOC(*tt_Screen_Cols + 3, sizeof(short)))) || (NULL == (neew = (unsigned short *) SLCALLOC(*tt_Screen_Cols + 3, sizeof(short))))) { exit_error("init_display(): malloc error.", 0); } JScreen[i].line = NULL; JScreen[i].flags = 1; JScreen[i].n = 0; JScreen[i].old = old; JScreen[i].neew = neew; neew = old + *tt_Screen_Cols; while (old < neew) *old++ = ' '; } Display_Initialized = 1; } void redraw_screen(int force) { int row, center; Window_Type *w; Line *l; if (Batch) return; #ifndef msdos /* send_string_to_term("\033[?6h"); */ /* relative origin mode */ tt_reset_scroll_region(); tt_end_insert(); #endif tt_normal_video (); tt_cls(); for (row = 0; row < *tt_Screen_Rows; row++) { JScreen[row].line = NULL; JScreen[row].n = 0; JScreen[row].flags = 1; blank_line(row); } w = JWindow; center = JWindow->trashed; do { w->trashed = 1; w = w->next; } while(w != JWindow); if (center) { for (row = 0; row < JWindow->rows; row++) { JScreen[row + JWindow->top - 1].line = NULL; } l = NULL; } else l = JWindow->beg.line; update(l, force, 0); } int redraw () { redraw_screen(0); return 0; } void recenter(int *np) { Line *l = CLine; int i, n = *np; JWindow->trashed = 1; if (n == 0) { n = JWindow->rows / 2; for (i = 0; i < n; i++) { if (l->prev == NULL) break; l = l->prev; } JWindow->beg.line = l; JWindow->beg.n -= i; JWindow->beg.point = 0; redraw(); return; } if (CBuf != JWindow->buffer) return; if ((n <= 0) || (n > JWindow->rows)) n = JWindow->rows / 2; while (--n) { l = l->prev; if (l == NULL) { l = CBuf->beg; break; } } update(l, 0, 0); } int window_line(void) { Line *top = find_top(); int n = 1; if (CBuf != JWindow->buffer) return(0); while ((top != NULL) && (top != CLine)) { n++; top = top->next; } return(n); } void touch_window() { int i; if (Suspend_Screen_Update) return; for (i = 0; i < JWindow->rows; i++) { JScreen[i + JWindow->top - 1].flags = 1; } JWindow->trashed = 1; } void touch_screen() { Window_Type *w; No_Screen_Update = 0; if (Suspend_Screen_Update) return; w = JWindow; do { touch_window(); JWindow = JWindow->next; } while(w != JWindow); if (Top_Window_Row != 1) JScreen[0].flags = 1; } void exit_error(char *str, int severity) { SLang_Error = SLKeyBoard_Quit = 0; auto_save_all(); reset_display(); reset_tty(); fprintf(stderr,"\007\rJED (%s): Fatal Error: %s\n", JED_VERSION, str); if (*Error_Buffer) fprintf (stderr, "%s\n", Error_Buffer); if (CBuf != NULL) { if (Batch == 0) { fprintf(stderr, "CBuf: %p, CLine: %p, Point %d\n", CBuf, CLine, Point); if (CLine != NULL) fprintf(stderr, "CLine: data: %p, len = %d, next: %p, prev %p\n", CLine->data, CLine->len, CLine->next, CLine->prev); fprintf(stderr, "Max_LineNum: %d, LineNum: %d\n", Max_LineNum, LineNum); if (JWindow != NULL) fprintf(stderr, "JWindow: %p, top: %d, rows: %d, buffer: %p\n", JWindow, JWindow->top, JWindow->rows, JWindow->buffer); } auto_save_all(); } if (severity) { #ifdef unix fprintf(stderr, "Dumping Core."); abort (); #endif } exit(-1); } e != NULL) fprintf(stderr, "CLine: data: %p, len = %d, next: %p, prev %p\n", CLine->data, CLine->len, CLine->next, CLine->prev); fprintf(stderr, "Max_LineNum: %d, LineNum: %d\n", Max_LineNum, LineNum); if (JWindow != NULL) fprintf(stderr, "JWindow: %p, top: %d, rows: %d, buffer: %p\n", JWindow, JWindow->top, JWindow->rows, JWindow->bufferjed-0.97.12/src/screen.h000064400000000000003000000075740603742313500145270ustar00rootsys00000000000000#ifndef _JED_SCREEN_H_ #define _JED_SCREEN_H_ /* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include "window.h" /* JED screen management routines */ /* Description: JED maintains a list of Lines which contain a pointer * to the line in the buffer as well as a flag which describes the line * as being changed, etc.. since the last update. * * The buffer is changed only through the insertion or deletion of a * character. This can have two effects: 1) It changes a single line leaving * other lines on the display untouched, or 2) It deletes/adds a newline * character which changes the current line and acuses the other lines to * scroll. Hence, the insert/delete routines will have to inform the display * code of these changes. * * Finally there are situations when the buffer has not changed but the screen * has. This occurs when the cursor is in motion such as page up and down. For * this situation, the screen routines will check to see if it can scroll one * or two lines to bring the line back into view and if not it will scroll * enough to recenter. * * Once the display code takes over it does the following: * * 1) Scrolls to try to bring the point into view. * 2) Then it does a final touch up of the screen. * * Note that if one fails, we just simply redraw the window. This is more * efficient then looking at the lines and doing a true screen update like * emacs does. Hopefully this will not be a complete loss. I suspect it * will win most of the time. * */ typedef struct Screen_Type { Line *line; /* buffer line structure */ int n; /* number of chars written last time */ int flags; /* line untouched, etc... */ unsigned short *old, *neew; unsigned char *hi0, *hi1; /* beg end of hilights */ } Screen_Type; #define JNORMAL_COLOR 0 #define JCURSOR_COLOR 1 #define JSTATUS_COLOR 2 #define JREGION_COLOR 3 #define JMENU_COLOR 4 #define JOP_COLOR 5 #define JNUM_COLOR 6 #define JSTR_COLOR 7 #define JCOM_COLOR 8 #define JDELIM_COLOR 9 #define JPREPROC_COLOR 10 #define JMESSAGE_COLOR 11 #define JERROR_COLOR 12 #define JDOLLAR_COLOR 13 #define JKEY_COLOR 14 #define JMAX_COLORS 128 #ifndef pc_system #define MAX_SCREEN_SIZE 120 #else #define MAX_SCREEN_SIZE 75 #endif extern Screen_Type JScreen[MAX_SCREEN_SIZE]; extern int Screen_Row; /* cursor row */ extern int Screen_Col; /* cursor col */ extern int Cursor_Motion; /* cursor movement only */ extern int Display_Eight_Bit; /* if non zero, pass to terminal as is */ extern int redraw(void); extern void recenter(int *); extern int window_line(void); extern void scroll_down(int, int, int); extern int scroll_up(int, int, int); extern void update(Line *, int, int); extern void init_display(int); extern void point_cursor(int); extern void point_column(int); extern int calculate_column(void); extern void register_change(int); extern void touch_window(void); extern void blank_line(int); extern void reset_display(void); extern int cursor_visible(void); extern Line *find_top(void); extern void do_dialog(char *); extern void jed_fillmem(char *, char, int); extern int Goal_Column; extern int User_Prefers_Line_Numbers; extern int Wants_Attributes; extern int Term_Supports_Color; extern int Wants_Syntax_Highlight; extern int Display_Time; extern int Want_Eob; extern void set_status_format(char *, int *); extern void init_syntax_highlight (void); extern void syntax_highlight(unsigned short *, unsigned short *); extern int Mode_Has_Syntax_Highlight; extern int JED_CSI; extern int Wants_HScroll; extern int Mini_Ghost; extern void redraw_screen(int); extern void define_top_screen_line(char *); #ifdef HAS_DISPLAY_TABLE extern unsigned char Output_Display_Table[256]; #endif extern int Jed_Version_Number; extern int Jed_Dollar; #endif /* #ifdef _JED_SCREEN_H_ */ ; extern void set_status_format(char *, int *); extern void init_syntax_highlight (void); extern void syntax_highlight(unsigned shojed-0.97.12/src/search.c000064400000000000003000000235070603742313500145020ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "slang.h" #include "buffer.h" #include "vfile.h" #include "search.h" #include "misc.h" #include "ins.h" #include "paste.h" #include "ledit.h" int Case_Sensitive = 0; static SLsearch_Type Search_Struct; int search(char *str, int dir, int n) { unsigned char *beg, *end, *p; Line *line; int key_len; unsigned int num = 0; if ((key_len = SLsearch_init (str, dir, Case_Sensitive, &Search_Struct)) <= 0) return 0; line = CLine; if (dir == 1) { beg = line->data + Point; end = line->data + line->len; do { if (NULL != (p = SLsearch (beg, end, &Search_Struct))) { CLine = line; LineNum += num; Point = (int) (p - line->data); return(1); } line = line->next; num++; if (line == NULL) return(0); beg = line->data; end = line->data + line->len; } while(--n); } else if (dir == -1) { beg = line->data; if (Point == 0) end = beg; else { int tmp = Point - 1 + key_len; if (tmp > line->len) tmp = line->len; end = line->data + tmp; } do { if (NULL != (p = SLsearch (beg, end, &Search_Struct))) { CLine = line; LineNum -= num; Point = (int) (p - line->data); return(1); } line = line->prev; num++; if (line == NULL) return(0); beg = line->data; end = line->data + line->len; } while (--n); } return(0); } int search_forward(char *s) { return( search(s, 1, 0)); } int search_backward(char *s) { return( search(s, -1, 0)); } int forward_search_line(char *s) { return( search(s, 1, 1)); } int backward_search_line(char *s) { return( search(s, -1, 1)); } #ifdef upcase #undef upcase #endif #define upcase(ch) (cs ? ch : UPPER_CASE(ch)) static int bol_search(char *str, int dir) { Line *tthis; int max, n, cs = Case_Sensitive; unsigned int num; unsigned char *s, ch1, ch2; max = strlen(str); if ((dir > 0) && Point) { num = 1; tthis = CLine->next; } else if ((dir < 0) && !Point) { tthis = CLine->prev; num = 1; } else { tthis = CLine; num = 0; } while (tthis != NULL) { if (max <= tthis->len) { s = tthis->data; for (n = 0; n < max; n++) { ch1 = upcase(s[n]); ch2 = upcase(str[n]); if (ch1 != ch2) break; } if (n == max) { Point = 0; CLine = tthis; if (dir > 0) LineNum += num; else LineNum -= num; return(1); } } num++; if (dir > 0) tthis = tthis->next; else tthis = tthis->prev; } return(0); } int bol_fsearch(char *s) { return bol_search(s, 1); } int bol_bsearch(char *s) { return bol_search(s, -1); } static SLRegexp_Type reg; static int re_search_dir(unsigned char *pat, int dir) { int psave, skip, n, epos; unsigned char rbuf[512], *match; Line *l; reg.case_sensitive = Case_Sensitive; reg.buf = rbuf; reg.pat = pat; reg.buf_len = 512; if (SLang_regexp_compile(®)) { msg_error("Unable to compile pattern."); return(0); } if (reg.osearch) { if (reg.must_match_bol) { if (!bol_search((char *) pat, dir)) return (0); } else if (!search((char *) pat, dir, 0)) return (0); reg.beg_matches[0] = Point; n = strlen((char *) pat); reg.end_matches[0] = n; return n + 1; } if (reg.must_match_bol) { if (dir < 0) { if (Point == 0) { if (!backwchars(&Number_One)) return 0; } } else if (Point) { if (CLine->next == NULL) return (0); CLine = CLine->next; LineNum++; Point = 0; } } if (reg.must_match && (0 != reg.must_match_str[1])) skip = 0; else skip = 1; while (1) { psave = Point; if (!skip) { l = CLine; if (!search((char *) reg.must_match_str, dir, 0)) return (0); if (l != CLine) { if (dir < 0) eol(); else Point = 0; /* if ((dir == -1) && (!reg.must_match_bol)) eol(); else Point = 0; */ psave = Point; } } Point = psave; if (dir == 1) { match = SLang_regexp_match(CLine->data + Point, CLine->len - Point, ®); if (match != NULL) { /* adjust offsets */ reg.offset = Point; } } else if (NULL != (match = SLang_regexp_match(CLine->data, Point, /* was CLine->len */ ®))) { if (Point && (reg.beg_matches[0] >= Point)) match = NULL; else { epos = Point - 1; /* found a match on line now find one closest to current point */ while (epos >= 0) { match = SLang_regexp_match(CLine->data + epos, Point - epos, /* was: CLine->len - epos, */ ®); if (match != NULL) break; epos--; } } } if (match != NULL) { Point = (int) (match - CLine->data); n = reg.end_matches[0]; return (n + 1); } if (dir > 0) { if (CLine->next == NULL) break; CLine = CLine->next; LineNum++; Point = 0; } else { if (CLine->prev == NULL) break; CLine = CLine->prev; LineNum--; eol (); } } return (0); } int re_search_forward(char *pat) { int n, p, len; Line *l; p = Point; n = LineNum; l = CLine; if (0 != (len = re_search_dir((unsigned char *) pat, 1))) return (len); Point = p; LineNum = n; CLine = l; return (0); } int re_search_backward(char *pat) { int n, p, len; Line *l; p = Point; n = LineNum; l = CLine; if (0 != (len = re_search_dir((unsigned char *) pat, -1))) return (len); Point = p; LineNum = n; CLine = l; return (0); } int replace_match(char *s, int *literal) { int n, nmax; char ch; unsigned char *p; if ((reg.pat == NULL) || (reg.beg_matches[0] == -1) || (reg.end_matches[0] + reg.beg_matches[0] + reg.offset >= CLine->len)) return (0); if (*literal) { Point = reg.beg_matches[0] + reg.offset; n = reg.end_matches[0]; generic_deln(&n); insert_string(s); return (1); } /* This is painful --- \& means whole expression, \x x = 1..9 means a sub expression */ /* must work with relative numbers since ins/del may do a realloc */ Point = reg.end_matches[0] + reg.offset + reg.beg_matches[0]; while ((ch = *s++) != 0) { if ((ch != '\\') || ((ch = *s++) == '\\')) { if (ch != '\n') ins(ch); /* Note that I should do a 'newline' call. However, as soon as I do this, I lose the nth_match strings. Clearly, I need to re-think this! */ continue; } if (ch == 0) break; if (ch == '&') ch = '0'; if ((ch >= '0') && (ch <= '9')) { nmax = ch - '0'; if ((n = reg.beg_matches[nmax]) == -1) continue; nmax = reg.end_matches[nmax] + reg.beg_matches[nmax]; } else continue; p = CLine->data + reg.offset; while (n < nmax) { ins((char) *(p + n)); n++; } } push_spot(); Point = reg.beg_matches[0] + reg.offset; n = reg.end_matches[0]; generic_deln(&n); pop_spot(); return (1); } static int push_string(char *b, int n) { char *s; s = (char *) SLMALLOC(n + 1); if (s == NULL) { SLang_Error = SL_MALLOC_ERROR; return (0); } if (n) MEMCPY(s, b, n); *(s + n) = 0; SLang_push_malloced_string (s); return (SLang_Error == 0); } void regexp_nth_match (int *np) { int b = 0, n = *np; if ((reg.pat == NULL) || (reg.beg_matches[0] == -1) || (reg.end_matches[0] + reg.beg_matches[0] + reg.offset >= CLine->len)) { SLang_Error = UNKNOWN_ERROR; return; } if ((n <= 0) || (n > 9)) n = 0; else { if ((b = reg.beg_matches[n]) == -1) n = 0; else { n = reg.end_matches[n]; } } b += reg.offset; push_string((char *) CLine->data + b, n); } int search_file(char *file, char *pat, int *np) { unsigned char rbuf[512], *buf; unsigned int n; VFILE *vp; int n_matches = 0, n_max = *np, key_len = 1; reg.case_sensitive = Case_Sensitive; reg.buf = rbuf; reg.pat = (unsigned char *) pat; reg.buf_len = 512; if (SLang_regexp_compile(®)) { msg_error("Unable to compile pattern."); return(0); } if (reg.osearch) { key_len = SLsearch_init ((char *) reg.pat, 1, reg.case_sensitive, &Search_Struct); } else if (reg.must_match) { key_len = SLsearch_init ((char *) reg.must_match_str, 1, reg.case_sensitive, &Search_Struct); } if (key_len <= 0) return 0; if (NULL == (vp = vopen(file, 0, VFILE_TEXT))) return(0); while (NULL != (buf = (unsigned char *) vgets(vp, &n))) { if (reg.must_match) { if (key_len > n) continue; if (NULL == SLsearch (buf, buf + n, &Search_Struct)) { continue; } if (reg.osearch) { goto match_found; } } if (!SLang_regexp_match(buf, (int) n, ®)) continue; match_found: n_matches++; n_max--; if (!push_string((char *) buf, n) || (n_max == 0)) break; } vclose(vp); return(n_matches); } int insert_file_region (char *file, char *rbeg, char *rend) { VFILE *vp; unsigned int n; unsigned int len = (unsigned int) strlen (rbeg); int num = 0; unsigned char *buf; if (NULL == (vp = vopen(file, 0, VFILE_TEXT))) return (-1); while (NULL != (buf = (unsigned char *) vgets(vp, &n))) { if (n < len) continue; if (!strncmp ((char *) buf, rbeg, len)) { Suspend_Screen_Update = 1; quick_insert(buf, (int) n); num++; len = (unsigned int) strlen (rend); while(NULL != (buf = (unsigned char *) vgets(vp, &n))) { if ((n >= len) && !strncmp ((char *) buf, rend, len)) break; quick_insert(buf, (int) n); if (SLang_Error) break; num++; } break; } } vclose (vp); return num; } ets(vp, &n))) { if (n < len) continue; if (!strncmp ((char *) buf, rbeg, len)) { Suspend_Screen_Update = 1; quick_insert(buf, (int) n); num++; jed-0.97.12/src/search.h000064400000000000003000000011600603742313500144760ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern int search(char *, int, int); extern int search_forward(char *); extern int search_backward(char *); extern int forward_search_line(char *); extern int backward_search_line(char *); extern int bol_fsearch(char *); extern int bol_bsearch(char *); extern int re_search_forward(char *); extern int re_search_backward(char *); extern int replace_match(char *, int *); extern void regexp_nth_match(int *); int insert_file_region (char *, char *, char *); int search_file(char *, char *, int *); extern int Case_Sensitive; arch(char *, int, int); extern int search_forward(char *); extern int search_backward(char *); extern int forward_search_line(char *); extern int backward_search_line(char *); extern int bol_fsearch(char *); extern int bol_bsearch(char *); extern int re_search_forward(char *); extern int re_search_backward(char *); extern int replace_match(char *, int *); extern void regexp_nth_match(int *); int ijed-0.97.12/src/sig.c000064400000000000003000000052560603742313500140200ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #if !defined (msdos) && !defined (__os2__) #include #ifndef VMS #include #endif #include "config.h" #include "sig.h" #include "file.h" #include "sysdep.h" #include "slang.h" #include "misc.h" #include "screen.h" #include "cmds.h" #include "hooks.h" static int signal_in_progress = 0; static int last_signal_code; #ifdef __cplusplus #define SIGNAL(a,b) signal((a), (SIG_PF)(b)) #else #define SIGNAL signal #endif #ifndef VMS #ifdef SIGWINCH static void resize_display(int sig) { int r, c; (void) sig; get_term_dimensions(&c, &r); if (r > MAX_SCREEN_SIZE) r = MAX_SCREEN_SIZE; change_screen_size(c, r); SIGNAL (SIGWINCH, resize_display); } #endif #endif #ifndef VMS static void my_signal(int sig) { char buf[48]; last_signal_code = sig; /* set signal to point to default */ SIGNAL(sig, SIG_DFL); if (signal_in_progress) kill(getpid(), last_signal_code); if (signal_in_progress) abort(); signal_in_progress = 1; auto_save_all (); sprintf (buf, "Killed by signal %d.", sig); exit_error (buf, 0); kill (getpid (), last_signal_code); exit (-1); } /* a control-G puts us here */ static void my_interrupt(int sig) { SLKeyBoard_Quit = 1; if (Ignore_User_Abort == 0) SLang_Error = 2; SIGNAL (SIGINT, my_interrupt); } #ifdef SIGTSTP int Signal_Sys_Spawn_Flag = 0; /* This should only be called from outside disturbance */ void sig_sys_spawn_cmd(int sig) { Signal_Sys_Spawn_Flag = 1; sys_spawn_cmd(); update(NULL, 1, 0); /* force update */ Signal_Sys_Spawn_Flag = 0; } #endif #endif /* NOT VMS */ #ifdef SIGTTIN static void background_read (int sig) { if (Stdin_Is_TTY == 0) { exit_error ("Attempt to read from background-- exiting.", 0); } sig_sys_spawn_cmd (0); } #endif void init_signals (void) { #ifndef VMS #ifdef SIGWINCH if (X_Get_Term_Size_Hook == NULL) (void) SIGNAL(SIGWINCH,resize_display); #endif SIGNAL (SIGINT, my_interrupt); SIGNAL (SIGHUP, my_signal); SIGNAL (SIGQUIT, my_signal); SIGNAL (SIGILL, my_signal); SIGNAL (SIGTRAP, my_signal); #if 0 SIGNAL (SIGIOT, my_signal); /* used by abort */ #endif #ifdef SIGPIPE SIGNAL (SIGPIPE, my_signal); #endif /* SIGNAL (SIGFPE, my_signal); */ #ifdef SIGBUS SIGNAL (SIGBUS, my_signal); #endif SIGNAL (SIGSEGV, my_signal); #ifdef SIGSYS SIGNAL (SIGSYS, my_signal); #endif SIGNAL (SIGTERM, my_signal); #ifdef SIGTSTP SIGNAL (SIGTSTP, sig_sys_spawn_cmd); #endif #ifdef SIGTTOU SIGNAL (SIGTTOU, SIG_IGN); #endif #ifdef SIGTTIN SIGNAL (SIGTTIN, background_read); #endif #endif /* VMS */ } #endif L (SIGIOT, my_signal); /* used by abort */ #endif #ifdef SIGPIPE SIGNAL (SIGPIPE, my_signal); #endif /* SIGNAL (SIGFPE, my_signal); */ #ifdef SIGBUS SIGNAL (SIGBUS, my_signal); #endif SIGNAL (SIGSEGV, my_signal); #ifdef SIGSYS SIGNAL (SIGSYS, my_signal); #endif SIGNAL (SIGTERM, my_signal); #ifdef SIGTSTP SIGNAL (jed-0.97.12/src/sig.h000064400000000000003000000006210603742313500140140ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #ifndef _JED_SIG_H_ #define _JED_SIG_H_ #ifndef msdos extern void init_signals (void); #endif extern int Stdin_Is_TTY; #ifdef unix #ifdef SIGTSTP extern void sig_sys_spawn_cmd(int); extern int Signal_Sys_Spawn_Flag; /* used if something else sends stop */ #endif #endif #endif /* _JED_SIG_H_ */ ifdef SIGSYS SIGNAL (SIGSYS, my_signal); #endif SIGNAL (SIGTERM, my_signal); #ifdef SIGTSTP SIGNAL (jed-0.97.12/src/sl2slc.c000064400000000000003000000043660603742313500144410ustar00rootsys00000000000000#include #include #include "slang.h" volatile int Lang_Error = 0; FILE *FPout = stdout; void lang_doerror(char *error) { char err[80]; char *str; if (!Lang_Error) Lang_Error = UNKNOWN_ERROR; *err = 0; switch(Lang_Error) { case (UNDEFINED_NAME): str = "Undefined_Name"; break; case (SYNTAX_ERROR): str = "Syntax_Error"; break; case (STACK_OVERFLOW): str = "Stack_Overflow"; break; case (STACK_UNDERFLOW): str = "Stack_Underflow"; break; case (DUPLICATE_DEFINITION): str = "Duplicate_Definition"; break; case (TYPE_MISMATCH): str = "Type_Mismatch"; break; case(READONLY_ERROR): str = "Variable is read only."; break; case (MALLOC_ERROR) : str = "S-Lang: Malloc Error."; break; case USER_BREAK: strcpy(err, "User Break!"); break; case (INTRINSIC_ERROR): str = "Intrinsic Error"; break; case DIVIDE_ERROR: str = "Divide by zero."; break; /* application code should handle this */ default: if (error != NULL) str = error; else str = "Unknown Error."; } if (*err == 0) sprintf(err, "S-Lang Error: %s\n", str); fputs(err, stderr); } static int Slang_Line_Len = 257; static int defining_variables = 0; extern char *byte_compile_name(char *); void lang_compile(char *s) { int n = Slang_Line_Len; int dn; if (Lang_Error) return; if (!defining_variables) s = byte_compile_name(s); if (*s == '[') defining_variables = 1; else if (*s == ']') defining_variables = 0; dn = strlen(s) + 1; n += dn; if (n > 250) { fputs("\n.", FPout); n = dn; } fputs(s, FPout); putc(' ', FPout); fflush(FPout); Slang_Line_Len = n; } int doit(char *f) { lang_load_file(f); if (Lang_Error && (f != NULL)) { fprintf(stderr, "Parse Error: file: %s\n", f); return(-1); } putc('\n', FPout); return(0); } int main(int argc, char **argv) { char file[256], *f; init_lang(); if (argc <= 1) return doit(NULL); argc--; argv++; while (argc--) { f = *argv++; strcpy(file, f); strcat(file, "c"); if ((FPout = fopen(file, "wt")) == NULL) { fprintf(stderr, "Unable to open %s\n"); exit(1); } fprintf(stderr, "processing %s\n", f); Slang_Line_Len = 257; if (doit(f)) exit(1); fclose (FPout); } return (0); } eturn(-1); } putc('\n', FPout); return(0); } int main(int argc, char **argv) { char file[256], *f; init_lang(); if (argc <= 1) return doit(NULL); argc--; argv++; while (argc--) { f = *argv++; strcpy(file, f); strcat(file, "c"); jed-0.97.12/src/syntax.c000064400000000000003000000204500603742313600145560ustar00rootsys00000000000000/* * Copyright (c) 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include "config.h" #include "buffer.h" #include "screen.h" static unsigned short *Char_Syntax; static char **Keywords = NULL; /* array of keywords */ static int Keyword_Not_Case_Sensitive; void init_syntax_highlight (void) { Syntax_Table_Type *st = CBuf->syntax_table; Keywords = NULL; Mode_Has_Syntax_Highlight = 1; if (CBuf->coloring_style) return; if ((st == NULL) || (st == Default_Syntax_Table)) { Mode_Has_Syntax_Highlight = 0; return; } Char_Syntax = st->char_syntax; if (st->flags & SYNTAX_NOT_CASE_SENSITIVE) Keyword_Not_Case_Sensitive = 0x20; else Keyword_Not_Case_Sensitive = 0; Keywords = (char **) st->keywords; #if 0 i = 0; while (i < MAX_KEYWORD_LEN) { if (st->keywords[i]) { Keywords = st->keywords; break; } i++; } #endif } #ifdef COLOR_COLUMNS static void color_columns (register unsigned short *p, register unsigned short *pmax) { register unsigned char *color = CBuf->column_colors; if (color == NULL) return; while (p < pmax) { *p |= ((unsigned short) *color) << 8; p++; color++; } } #endif static int try_keyword (register unsigned short *q, int n, register char *t, unsigned short color) { unsigned short *p; while (*t) { p = q - n; if (Keyword_Not_Case_Sensitive == 0) { while ((p < q) && (*t == (char) *p)) { p++; t++; } } else while ((p < q) && (*t == (char) LOWER_CASE (*p))) { p++; t++; } if (p == q) { p = q - n; while (p < q) *p++ |= color; return 0; } /* alphabetical */ if (*t > ((char) *p | Keyword_Not_Case_Sensitive)) break; t += (int) (q - p); } return -1; } static unsigned short *highlight_word (unsigned short *p, unsigned short *pmax) { char **kwds; register unsigned short *q; int n; int i; unsigned short color; q = p; while ((q < pmax) && (Char_Syntax[*q] & WORD_SYNTAX)) q++; n = (int) (q - p); kwds = Keywords; if ((kwds == NULL) || (n > MAX_KEYWORD_LEN)) return q; for (i = 0; i < MAX_KEYWORD_TABLES; i++) { char *t; t = kwds[n - 1]; if (t != NULL) { color = (JKEY_COLOR + i) << 8; if (0 == try_keyword (q, n, t, color)) return q; } kwds += MAX_KEYWORD_LEN; } return q; } static unsigned short *highlight_string (unsigned short *p, unsigned short *pmax, unsigned char quote) { unsigned char ch; unsigned char q = (unsigned char) *p; *p++ |= JSTR_COLOR << 8; while (p < pmax) { ch = (unsigned char) *p; *p++ |= JSTR_COLOR << 8; if (ch == q) break; if ((ch == quote) && (p < pmax)) { *p++ |= JSTR_COLOR << 8; } } return p; } static unsigned short *highlight_number (unsigned short *p, unsigned short *pmax) { unsigned short *p1; unsigned char ch; ch = (unsigned char) *p; if (ch == '-') { p1 = p + 1; if ((p1 < p) && (Char_Syntax[*p1] & NUMBER_SYNTAX)) { *p |= JNUM_COLOR << 8; *p1 |= JNUM_COLOR << 8; p += 2; } else { *p |= JOP_COLOR << 8; return p + 1; } } while ((p < pmax) && (Char_Syntax[*p] & NUMBER_SYNTAX)) { *p++ |= JNUM_COLOR << 8; } return p; } static unsigned short *highlight_comment (unsigned short *p, unsigned short *pmax, Syntax_Table_Type *st) { int comment_type = st->flags; unsigned short *p1; unsigned char comment_end = st->comment_end; *p++ |= JCOM_COLOR << 8; if ((p < pmax) && (comment_type & MULTICHAR_TYPE)) *p++ |= JCOM_COLOR << 8; while (p < pmax) { if (*p == comment_end) { if ((comment_type & MULTICHAR_TYPE) == 0) { *p++ |= JCOM_COLOR << 8; break; } p1 = p + 1; if ((p1 < pmax) && (*p1 == st->comment_end2)) { *p |= JCOM_COLOR << 8; *p1 |= JCOM_COLOR << 8; p += 2; break; } } *p++ |= JCOM_COLOR << 8; } return p; } void syntax_highlight (register unsigned short *p, register unsigned short *pmax) { Syntax_Table_Type *st = CBuf->syntax_table; unsigned char ch; unsigned int flags; unsigned short *pmin, syntax, *p1; #ifdef COLOR_COLUMNS if (CBuf->coloring_style) { color_columns (p, pmax); return; } #endif /* Check for preprocessor character */ if (*p == st->preprocess) { /* I should only scan to a comment. But.... */ while (p < pmax) *p++ |= (JPREPROC_COLOR << 8); return; } flags = st->flags; /* Look for Fortran like comments. These are allowed to have any character * except a numeral at the beginning of a line. */ if ((flags & FORTRAN_TYPE) && ((*p != ' ') && ((*p > '9') || (*p < '0')))) { while (p < pmax) *p++ |= (JCOM_COLOR << 8); return; } /* Skip whitespace */ while ((p < pmax) && (*p == ' ')) p++; if (p == pmax) return; /* If we are looking at a '* ' combination, then this is considered to * be a C comment (like this line). */ if ((flags & C_COMMENT_TYPE) && (*p == '*')) { if ((p + 1 == pmax) || ((p + 1 < pmax) && (*(p + 1) == ' '))) p = highlight_comment (p, pmax, st); } pmin = p; /* Now the preliminary stuff is done so do the hard part */ while (p < pmax) { syntax = Char_Syntax[*p]; if (syntax & WORD_SYNTAX) { if ((*p > '9') || (0 == (syntax & NUMBER_SYNTAX))) { p = highlight_word (p, pmax); continue; } } if (syntax == 0) { p++; continue; } if (syntax & DELIM_SYNTAX) { *p++ |= JDELIM_COLOR << 8; continue; } if (syntax & STRING_SYNTAX) { p = highlight_string (p, pmax, st->quote_char); continue; } if (syntax & COMMENT_SYNTAX) { p1 = p + 1; ch = *p; if (flags & MULTICHAR_TYPE) { if (p1 < pmax) { if ((ch == st->comment_beg) && (*p1 == st->comment_beg2)) { p = highlight_comment (p, pmax, st); continue; } if ((ch == st->comment_end) && (*p1 == st->comment_end2)) { /* Missed the beginning of it. So, start from the * beginning and comment the whole line, like this one */ p += 2; while (pmin < p) { *pmin = (JCOM_COLOR << 8) | (*pmin & 0xFF); pmin++; } continue; } /* Check for C++ */ if ((flags & C_COMMENT_TYPE) && (ch == '/') && (*p1 == ch)) { while (p < pmax) *p++ |= (JCOM_COLOR << 8); return; } } } else { if (flags & EOL_COMMENT_TYPE) { while (p < pmax) *p++ |= (JCOM_COLOR << 8); return; } if (ch == st->comment_beg) { p = highlight_comment (p, pmax, st); continue; } else if (ch == st->comment_end) { p++; while (pmin < p) { *pmin++ |= (JCOM_COLOR << 8); } continue; } } } /* comment syntax */ if (syntax & OP_SYNTAX) { *p++ |= JOP_COLOR << 8; continue; } if (syntax & NUMBER_SYNTAX) { p = highlight_number (p, pmax); continue; } if (syntax & HTML_START_SYNTAX) { *p++ |= JKEY_COLOR << 8; while (p < pmax) { if (Char_Syntax[*p] & HTML_END_SYNTAX) { *p++ |= JKEY_COLOR << 8; break; } *p++ |= JKEY_COLOR << 8; } continue; } if (syntax & HTML_END_SYNTAX) /* missed start from previous line */ { while (pmin < p) { *pmin = (JKEY_COLOR << 8) | (*pmin & 0xFF); pmin++; } *p++ |= JKEY_COLOR << 8; continue; } if ((syntax & OPEN_DELIM_SYNTAX) || (syntax & CLOSE_DELIM_SYNTAX)) { *p++ |= JDELIM_COLOR << 8; continue; } if ((syntax & QUOTE_SYNTAX) && (flags & TEX_LIKE_KEYWORDS)) { *p++ |= JKEY_COLOR << 8; if (p < pmax) { if (Char_Syntax[*p] & WORD_SYNTAX) { do { *p++ |= JKEY_COLOR << 8; } while ((p < pmax) && (Char_Syntax[*p] & WORD_SYNTAX)); } else *p++ |= JKEY_COLOR << 8; } continue; } /* Undefined. */ p++; } } E_DELIM_SYNTAX)) { *p++ |= JDELIM_COLOR << 8; continue; } if ((syntax & QUOTE_SYNTAX) && (flags & TEX_LIKE_KEYWORDS)) { *p++ |= JKEY_COLOR << 8; if (p < pmax) { if (Chajed-0.97.12/src/sysdep.c000064400000000000003000000317640603742313600145510ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ /* This file is the interface to system specific files */ #ifdef AIX #define _ALL_SOURCE #define POSIX #endif #ifdef POSIX #ifndef _POSIX_SOURCE #define _POSIX_SOURCE #endif #endif #ifdef __WIN32__ #include #endif #include #include #include "config.h" #include "buffer.h" #include "sysdep.h" #include "display.h" #include "file.h" #include "screen.h" #include "misc.h" #include "slang.h" #include "hooks.h" /* These are hooks for porting to other systems */ int (*X_Read_Hook) (void); int (*X_Input_Pending_Hook) (void); void (*X_Get_Term_Size_Hook)(int *, int *); int (*X_Init_Term_Hook) (void); void (*X_Reset_Term_Hook) (void); extern char *get_cwd(void); static int sys_input_pending(int *, int); int Ignore_User_Abort = 1; /* Abort char triggers S-Lang error */ unsigned char KeyBoard_Xlate[256] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255 }; #if defined (msdos) # define SLASH_CHAR '\\' #if !defined(__WATCOMC__) # if !defined(MSWINDOWS) # include "ibmpc.c" # else # include "mswin.c" # endif #else # include "i386.c" #endif #else # if defined (__os2__) # define SLASH_CHAR '\\' # include "os2.c" # else # if defined (VMS) # define SLASH_CHAR ']' # include "vms.c" # else # if defined (__GO32__) # define SLASH_CHAR '\\' # include "i386.c" # else # if defined (unix) # define SLASH_CHAR '/' # include "unix.c" # endif # endif # endif # endif #endif int Input_Buffer_Len = 0; unsigned char Input_Buffer[MAX_INPUT_BUFFER_LEN]; void map_character(int *fromp, int *top) { int from = *fromp, to = *top; if ((from > 255) || (to > 255) || (from < 0) || (to < 0)) return; KeyBoard_Xlate[from] = to; } /* if input char arrives with hi bit set, it is replaced by 2 characters: * Meta_Char + char with hi bit off. If Meta_Char is -1, then return * full 8 bits which self inserts */ /* By default, 8 bit chars self insert. */ int Meta_Char = -1; #if !defined(pc_system) int DEC_8Bit_Hack = 64; #else int DEC_8Bit_Hack = 0; #endif int my_getkey() { char buf[10]; int i, imax; unsigned char ch; if (Batch) { fgets(buf, 9 ,stdin); return (int) *buf; } if (!Input_Buffer_Len) { /* if (Batch) ch = (unsigned char) getc(stdin); else ch = sys_getkey(); */ ch = (unsigned char) KeyBoard_Xlate[sys_getkey()]; if (ch & 0x80) { i = (ch & 0x7F); if ((i < ' ') && DEC_8Bit_Hack) { i += DEC_8Bit_Hack; ungetkey((int *) &i); ch = 27; } else if (Meta_Char != -1) { ungetkey((int *) &i); ch = Meta_Char; /* escape char */ } } return((int) ch); } ch = Input_Buffer[0]; if ((ch & 0x80) && ((Meta_Char != -1) || ((ch < 160) && DEC_8Bit_Hack))) { ch = (ch & 0x7F); if ((ch < ' ') && DEC_8Bit_Hack) { ch += DEC_8Bit_Hack; i = 27; } else i = Meta_Char; Input_Buffer[0] = ch; return ((int) (unsigned int) i); } #ifdef USING_INPUT_BUFFER USING_INPUT_BUFFER #endif Input_Buffer_Len--; imax = Input_Buffer_Len; MEMCPY ((char *) Input_Buffer, (char *) (Input_Buffer + 1), imax); #ifdef DONE_WITH_INPUT_BUFFER DONE_WITH_INPUT_BUFFER #endif return((int) ch); } void ungetkey_string(char *s, int n) { /* int i; */ register unsigned char *bmax, *b, *b1; if (n + Input_Buffer_Len > MAX_INPUT_BUFFER_LEN - 3) return; #ifdef USING_INPUT_BUFFER USING_INPUT_BUFFER #endif b = Input_Buffer; bmax = b + (Input_Buffer_Len - 1); b1 = bmax + n; while (bmax >= b) *b1-- = *bmax--; bmax = b + n; while (b < bmax) *b++ = (unsigned char) *s++; Input_Buffer_Len += n; #ifdef DONE_WITH_INPUT_BUFFER DONE_WITH_INPUT_BUFFER #endif } void buffer_keystring(char *s, int n) { if (n + Input_Buffer_Len > MAX_INPUT_BUFFER_LEN - 3) return; #ifdef USING_INPUT_BUFFER USING_INPUT_BUFFER #endif MEMCPY ((char *) Input_Buffer + Input_Buffer_Len, s, n); Input_Buffer_Len += n; #ifdef DONE_WITH_INPUT_BUFFER DONE_WITH_INPUT_BUFFER #endif } void ungetkey(int *ci) { char ch; ch = (char) *ci; ungetkey_string(&ch, 1); } int input_pending (int *tsecs) { int n; int c; if (Input_Buffer_Len) return Input_Buffer_Len; n = sys_input_pending (tsecs, 0); if (n && (Input_Buffer_Len == 0)) { c = my_getkey (); ungetkey (&c); } return n; } #ifdef HAS_SUBPROCESSES void get_process_input (int *t) { (void) sys_input_pending (t, -1); } #endif void flush_input() { int quit = SLKeyBoard_Quit; Input_Buffer_Len = 0; SLKeyBoard_Quit = 0; #ifdef msdos while (input_pending(&Number_Zero)) if (!my_getkey()) my_getkey(); #else #ifdef __os2__ sys_flush_input(); #endif while (input_pending(&Number_Zero)) my_getkey(); #endif SLKeyBoard_Quit = quit; } #include unsigned long sys_time(void) { return((unsigned long) time((time_t *) 0)); } char *get_time() { char *the_time; #ifndef __GO32__ time_t myclock; myclock = time((time_t *) 0); the_time = (char *) ctime(&myclock); #else the_time = djgpp_current_time (); #endif /* returns the form Sun Sep 16 01:03:52 1985\n\0 */ the_time[24] = '\0'; return(the_time); } char *slash2slash(char *dir) { #ifndef VMS register char *p = dir, ch; while ((ch = *p) != 0) { if ((ch == '/') || (ch == '\\')) *p = SLASH_CHAR; p++; } #endif return(dir); } /* given a canonical filename, return pointer to its name */ char *extract_file(char *file) { char *f; f = file + strlen(file); while ( f-- > file) if (*f == SLASH_CHAR) return f + 1; return(file); } #ifndef VMS /* this routine returns a Static pointer which is considered volatile */ char *expand_filename(char *file) { register char *p; char *last, *p1; #if defined (pc_system) static char work[256]; #else static char work[2 * 256]; #endif *work = 0; /* the following combinations indicate non-relative path names: * "//" path from the root dir * "~/" path from the $HOME dir * for dos, os2 only * "x:/" path from "x:/" dir * "x:" same as "x:/" */ p = slash2slash(file) + strlen(file); while (p > file) { char ch = *p--; if (ch == SLASH_CHAR ) { if ( *p == SLASH_CHAR ) /* "//" combination */ { safe_strcpy(work, (p + 1), sizeof (work)); file = work; break; } else if ((*p == '~') /* "~/" combination */ && (((p > file) && (*(p - 1) == SLASH_CHAR)) || (p == file))) { if ( (p1 = getenv("HOME")) == NULL) p1 = "/"; safe_strcpy( work, p1, sizeof (work) ); /* remove trailing slash if any */ p1 = slash2slash(work) + (strlen(work) - 1); if ( *p1 == SLASH_CHAR ) *p1 = '\0'; safe_strcat (work, (p + 1), sizeof (work) ); file = work; while (*file && (*file != SLASH_CHAR)) file++; break; } } #if defined (pc_system) /* DOS, OS/2 stuff */ else if (ch == ':' ) /* "c:" or "c:/" combination */ { safe_strcpy( work, p, sizeof (work) ); file = (work+2); /* start file past the drive spec */ p += 2; if ( *p != SLASH_CHAR ) /* "c:" combination */ { strcpy( file, "\\"); safe_strcat (work, p, sizeof (work)); } break; } #endif /* pc_system */ } if ( *work == '\0' ) /* no special combinations */ { if ( *file != SLASH_CHAR ) { strcpy(work, get_cwd()); /* assume relative dir */ slash2slash(work); } safe_strcat(work, file, sizeof (work)); file = work; } /* remove ../ and ./ stuff */ p = last = file; while (*p != 0) { if ( *p == SLASH_CHAR ) last = p; else if ( *p == '.' ) { p++; if ( *p == '.' ) { p++; if ( *p == SLASH_CHAR ) { while ((last > file) && (*(--last) != SLASH_CHAR)) ;/* find parent dir */ p1 = last; while ( *p ) *(p1++) = *(p++); *p1 = 0; p = last; } else if (*p == 0) break; } else if ( *p == SLASH_CHAR ) { p1 = last; while ( *p ) *(p1++) = *(p++); *p1 = 0; p = last; } else if (*p == 0) break; } p++; } return(work); } #endif /* ! VMS */ #ifdef sequent char *my_strstr(char *a, char *b) { register char *bb, *aa, *amax; if (*b == 0) return(a); bb = b; while (*bb) bb++; aa = a; while (*aa++); amax = aa - (bb - b); while (a < amax) { bb = b; while ((a < amax) && (*a != *bb)) a++; if (a == amax) return((char *) NULL); aa = a; while (*aa && (*aa == *bb)) aa++, bb++; if (! *bb) return(a); a++; } return((char *) NULL); } #endif void deslash(char *dir) { #ifndef VMS int n; if ((n = strlen(dir)) > 1) { n--; #if defined (pc_system) if ( (dir[n] == '\\' || dir[n] == '/') && dir[n - 1] != ':' ) dir[n] = '\0'; #else if ( dir[n] == '/' ) dir[n] = '\0'; #endif } #endif /* !VMS */ } /* add trailing slash to dir */ void fixup_dir(char *dir) { #ifndef VMS int n; if ((n = strlen(dir)) > 1) { n--; #if defined(pc_system) if ( dir[n] != '/' && dir[n] != '\\' ) strcat(dir, "\\" ); #else if ( dir[n] != '/' ) strcat(dir, "/" ); #endif } #endif /* !VMS */ } int make_directory(char *path) { char work[256]; safe_strcpy(work, path, sizeof (work)); deslash(work); #if defined (msdos) || (defined (__os2__) && !defined (__EMX__)) return !mkdir(work); #else return !mkdir(work, 0777); #endif } int delete_directory(char *path) { char work[256]; safe_strcpy(work, path, sizeof (work)); deslash(work); return !rmdir(work); } /* ch_dir routine added during OS/2 port in order to simplify script writing. */ int ch_dir(char *path) { #if defined(pc_system) || defined(__os2__) char work[256]; safe_strcpy(work, path, sizeof (work)); deslash(work); return chdir(work); #else return chdir(path); #endif } /* generate a random number */ int make_random_number(int *seed, int *max) { if (*seed == -1) /* generate seed */ { #ifndef unix srand((unsigned int)(time(0) & getpid())); #else #if defined(_HPUX_SOURCE) || defined(SYSV) srand48((int)(time(0) & getpid())); #else #ifndef HAS_RANDOM srand((unsigned int)(time(0) & getpid())); #else srandom((int)(time(0) & getpid())); #endif #endif #endif } else if (*seed != 0) { #ifndef unix srand(*seed); #else #ifdef _HPUX_SOURCE srand48(*seed); #else #ifndef HAS_RANDOM srand(*seed); #else srandom(*seed); #endif #endif #endif } #ifndef unix return (int) rand() % *max; #else #ifdef _HPUX_SOURCE return (int) lrand48() % *max; #else #ifndef HAS_RANDOM return (int) rand () % *max; #else return (int) random() % *max; #endif #endif #endif } #ifndef __GO32__ #ifdef unix /* if non-zero, Flow control is enabled */ void enable_flow_control(int *mode) { /* This kills X windows. For the time being, work around it as follows */ if (X_Init_Term_Hook != NULL) return; Flow_Control = *mode; reset_tty(); init_tty(); } #endif #endif #if defined(pc_system) /* This routine converts C:\ --> C:\ and C:\subdir\ -> C:\subdir */ char *msdos_pinhead_fix_dir(char *f) { static char file[256]; register char ch; int n; if (*f == 0) return f; strncpy (file, f, 255); file[255] = 0; f = file; /* skip past colon */ while (((ch = *f) != 0) && (ch != ':')) f++; if (ch == 0) /* no colon */ { n = (int) (f - file); f = file; } else { f++; n = strlen (f); } if (n == 0) { *f++ = '\\'; *f = 0; return file; } if ((n == 1) && (*f == '\\')) return file; f += n - 1; if (*f == '\\') *f = 0; return file; } #endif ]; registjed-0.97.12/src/sysdep.h000064400000000000003000000050410603742313600145430ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #ifndef __DAVIS_SYSDEP_H__ #define __DAVIS_SYSDEP_H__ #include #ifndef sequent # include #else extern int chdir(char *); #endif extern int Ignore_User_Abort; #ifdef msdos #define MAX_INPUT_BUFFER_LEN 40 #else #define MAX_INPUT_BUFFER_LEN 1024 #endif extern int Input_Buffer_Len; extern unsigned char Input_Buffer[MAX_INPUT_BUFFER_LEN]; extern unsigned char sys_getkey(void); extern void init_tty(void); extern void reset_tty(void); extern void sys_suspend(void); extern int my_getkey(void); extern int input_pending(int *); extern void flush_input(void); extern void ungetkey_string(char *, int); extern void buffer_keystring (char *, int); extern void ungetkey(int *); extern void sys_resume(void); extern int get_term_dimensions(int *, int *); extern int sys_delete_file(char *); extern int sys_chmod(char *, int, int *, short *, short *); extern unsigned long sys_file_mod_time(char *); /* expand the file in a canonical way and return a pointer to a static area which should be regarded volatile */ extern char *expand_filename(char *); /* return pointer to place filname starts in path */ extern char *extract_file(char *); extern int sys_findfirst(char *); extern int sys_findnext(char *); extern unsigned long sys_time(void); extern char *get_time(void); extern int Meta_Char; extern int DEC_8Bit_Hack; extern int Abort_Char; extern void map_character(int *, int *); extern int make_directory(char *); extern int make_random_number(int *, int *); extern int delete_directory(char *); extern int ch_dir(char *); extern void deslash(char *); extern char *slash2slash (char *); #if defined(msdos) || defined(__os2__) extern int NumLock_Is_Gold; #endif #ifdef __os2__ extern int IsHPFSFileSystem(char *); #endif #if defined(__GO32__) || defined(__WATCOMC__) extern void i386_check_kbd(void); extern int i386_access (char *, int); #endif #ifdef pc_system #define SCREEN_HEIGHT 25 extern int PC_Alt_Char; extern char *msdos_pinhead_fix_dir(char *); extern int sys_System (char *); #else #define SCREEN_HEIGHT 24 #endif #ifdef sequent # define strchr index extern char *my_strstr(); #endif #ifdef unix extern void enable_flow_control(int *); #endif #ifdef VMS void vms_cancel_exithandler(void); extern int vms_send_mail(char *, char *); extern int vms_get_help (char *, char *); #endif #ifdef VMS #endif #ifdef unix #ifndef __GO32__ extern void get_passwd_info (char *); #endif #endif extern char *get_cwd(void); #endif /* __DAVIS_SYSDEP_H__ */ har *); extern int sys_System (char *); #else #define SCREEN_HEIGHT 24 #endif #ifdef sequent # define strchr index extern char *my_strstr(); #endif #ifdef unix extern void enable_flow_control(int *); #endif #ifdef VMS void vms_cancel_exithandler(void); extern int vms_send_mail(char *, char *); extern int vms_get_help (char *, char *); #endif #ifdef VMS #endif #ifdef unix #ifndef __GO32__ extern void get_passwd_info (char *); #endif #endif extern char *get_cwd(void); jed-0.97.12/src/text.c000064400000000000003000000173730603742313600142260ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include #include "config.h" #include "buffer.h" #include "ins.h" #include "ledit.h" #include "text.h" #include "screen.h" #include "cmds.h" #include "paste.h" #include "misc.h" #include "slang.h" /* This routine deletes multiple spaces except those following a period, '?' * or a '!'. Returns the address of beginning of non whitespace */ unsigned char *text_format_line(void) { unsigned char *p, *p1; int min; p = CLine->data; Point = 0; while(((*p == '\t') || (*p == ' ')) && (Point < CLine->len)) p++, Point++; min = Point; Point = CLine->len - 1; if (Point < 0) Point = 0; p = CLine->data + Point; while (Point > min) { if ((*p == ' ') || (*p == '\t')) { Point--; p--; p1 = p - 1; if (((*p == ' ') || (*p == '\t')) && (Point > min) && (*p1 != '.') && (*p1 != '?') && (*p1 != '!')) { del(); if (*p == '\t') *p = ' '; } } else { Point--; p--; } } return(CLine->data + min); } static int wrap_line1(int format) { unsigned char *p, *pmin; int col; if (format) pmin = text_format_line(); else pmin = CLine->data; eol(); col = calculate_column(); if (col < User_Vars.wrap_column) { return(0); } point_column(User_Vars.wrap_column - 1); p = CLine->data + Point; while(p > pmin) { if ((*p == ' ') || (*p == '\t')) break; p--; } if (p == pmin) { /* that failed, so go the other way */ p = CLine->data + CLine->len; while(pmin < p) { if ((*pmin == ' ') || (*pmin == '\t')) break; pmin++; } if (p == pmin) return(0); p = pmin; } Point = (int) (p - CLine->data); trim_whitespace(); newline(); CLine = CLine->prev; LineNum--; return(1); } void wrap_line(int format) { push_spot(); wrap_line1(format); pop_spot(); } /* Here a paragraph follows either an indentation, a '\\' char or two '\n' chars. or a '%' char since tex uses this */ static int is_paragraph_sep(void) { unsigned char *p; int ret; p = CLine->data; if (CBuf->par_sep != NULL) { SLexecute_function(CBuf->par_sep); (void) SLang_pop_integer(&ret); if (SLang_Error) { CBuf->par_sep = NULL; ret = 1; } return ret; } if ((*p == '\n') || (*p == '\\') || (*p == '%')) return(1); return(0); } int backward_paragraph(void) { Line *prev = CLine->prev; int ro = CBuf->flags & READ_ONLY; if (NULL == CBuf->par_sep) { CBuf->par_sep = SLang_get_function("is_paragraph_separator"); } Point = 0; if (prev == NULL) return(0); CLine = prev; LineNum--; while(1) { eol(); if (!ro) trim_whitespace(); if (is_paragraph_sep() || (CLine->prev == NULL)) break; CLine = CLine->prev; LineNum--; } Point = 0; return(1); } int forward_paragraph(void) { int ro = CBuf->flags & READ_ONLY; if (NULL == CBuf->par_sep) { CBuf->par_sep = SLang_get_function("is_paragraph_separator"); } while(1) { if (CLine->next == NULL) break; CLine = CLine->next; LineNum++; eol(); if (!ro) trim_whitespace(); if (is_paragraph_sep()) break; } eol(); return(1); } /* format paragraph and if Prefix argument justify_hook is called. */ int text_format_paragraph () { unsigned char *p; int n, col; Line *end, *beg, *next; CHECK_READ_ONLY push_spot(); if (is_paragraph_sep()) { pop_spot(); return(0); } /* if (CBuf->modes != WRAP_MODE) return(0); */ get_current_indent(&n); /* find end */ forward_paragraph(); if (CLine->next == NULL) end = NULL; else { end = CLine; } /* find paragraph start */ backward_paragraph(); if (is_paragraph_sep() && (CLine->next != NULL)) { CLine = CLine->next; LineNum++; } beg = CLine; Point = 0; /* Now loop formatting as we go until the end is reached */ while(CLine != end) { eol(); if (CLine != beg) indent_to(n); if (wrap_line1(1)) { CLine = CLine->next; LineNum++; indent_to(n); continue; } else if (CLine->next == end) break; next = CLine->next; if (next != end) { /* Now count the length of the word on the next line. */ CLine = next; LineNum++; Point = 0; trim_whitespace(); p = CLine->data; while((*p > ' ') && (p - CLine->data < CLine->len)) p++; CLine = CLine->prev; LineNum--; eol(); col = calculate_column(); if ((p - next->data) + col < User_Vars.wrap_column - 1) { del(); ins(' '); } else { CLine = CLine->next; LineNum++; } } } if (Repeat_Factor != NULL) { SLang_run_hooks("format_paragraph_hook", NULL, NULL); Repeat_Factor = NULL; } pop_spot(); return(1); } int narrow_paragraph(void) { int wrap, n; CHECK_READ_ONLY /* if (CBuf->modes != WRAP_MODE) return(0); */ get_current_indent(&n); wrap = User_Vars.wrap_column; if (wrap - n <= wrap/2) return(0); User_Vars.wrap_column -= n; text_format_paragraph(); User_Vars.wrap_column = wrap; return(1); } int center_line(void) { unsigned char *p, *pmax; int len; CHECK_READ_ONLY push_spot(); (void) eol_cmd(); p = CLine->data; pmax = p + CLine->len; while(p < pmax) { if (*p > ' ') break; p++; } if ((len = (int)(pmax - p)) < 0) len = 0; if ((len = (User_Vars.wrap_column - len) / 2) < 0) len = 0; indent_to(len); pop_spot(); return(1); } int text_smart_quote(void) { char c, last; int upd; /* Force a screen update. This help syntax highlighting */ JWindow->trashed = 1; if (Point) c = (char ) *(CLine->data + (Point - 1)); else c = 0; if (!(CBuf->modes & WRAP_MODE) || (c == '\\')) return ins_char_cmd(); last = SLang_Last_Key_Char; if ((c == '(') || (c == '[') || (c == '{') || (c <= ' ') || !Point) SLang_Last_Key_Char = '`'; else SLang_Last_Key_Char = '\''; upd = ins_char_cmd(); if (last == '"') upd = ins_char_cmd(); SLang_Last_Key_Char = last; return upd; } char Jed_Word_Range[256]; void define_word(char *w) { strcpy(Jed_Word_Range, w); } /* capitalize region does not really work since it involves words, etc... */ void transform_region(int *what) { int pnt, n; Line *line; unsigned char *p; CHECK_READ_ONLY_VOID if (!check_region(&Number_One)) return; /* spot pushed */ pnt = Point; line = CLine; pop_mark(&Number_One); for (p = CLine->data + Point; 1; p = CLine->data) { if (line == CLine) n = pnt; else n = CLine->len; switch (*what) { case 'u': while (Point < n) { p = CLine->data + Point; replace_char(UPPER_CASE(*p)); Point++; } break; case 'c': p = CLine->data + Point; replace_char(UPPER_CASE(*p)); Point++; p = CLine->data + Point; /* drop through */ case 'd': while (Point < n) { p = CLine->data + Point; replace_char(LOWER_CASE(*p)); Point++; } break; default: while (Point < n) { p = CLine->data + Point; replace_char(CHANGE_CASE(*p)); Point++; } break; } if (line == CLine) break; CLine = CLine->next; LineNum++; Point = 0; } pop_spot(); /* mark_buffer_modified(&Number_One); */ } void skip_word_chars(void) { skip_chars1(Jed_Word_Range, 0); } void skip_non_word_chars(void) { skip_chars1(Jed_Word_Range, 1); } void bskip_word_chars(void) { bskip_chars1(Jed_Word_Range, 0); } void bskip_non_word_chars(void) { bskip_chars1(Jed_Word_Range, 1); } + Point; replace_char(CHANGE_CASE(*p)); Point++; } break; } if (line == CLine) break; CLine = CLine->next; LineNum++; Point = 0; } pop_spot(); /* mark_buffer_modified(&Number_One); */ } void skip_word_chars(void) { jed-0.97.12/src/text.h000064400000000000003000000012550603742313600142230ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern unsigned char *text_format_line(void); extern void wrap_line(int); extern int forward_paragraph(void); extern void set_paragraph_separator (char *); extern int backward_paragraph(void); extern int text_format_paragraph(void); extern int narrow_paragraph(void); extern int center_line(void); extern int text_smart_quote(void); extern void define_word(char *); extern void transform_region(int *); extern void skip_word_chars(void); extern void bskip_word_chars(void); extern void skip_non_word_chars(void); extern void bskip_non_word_chars(void); extern char Jed_Word_Range[256]; xtern int forward_paragraph(void); extern void set_paragraph_separator (char *); extern int backward_paragraph(void); extern int text_format_paragraph(void); extern int narrow_paragraph(void); extern int center_line(void); extern int text_smart_quote(void); extern void define_word(char *); extern void transform_region(int *); extern voidjed-0.97.12/src/undo.c000064400000000000003000000111200603742313600141670ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include "config.h" #include "buffer.h" #include "undo.h" #include "ins.h" #include "line.h" #include "misc.h" #define LAST_UNDO CBuf->undo->Last_Undo #define FIRST_UNDO CBuf->undo->First_Undo #define UNDO_RING CBuf->undo->Undo_Ring static int Undo_In_Progress = 0; int Undo_Buf_Unch_Flag; /* 1 if buffer prev not modified */ #define DONT_RECORD_UNDO (!(CBuf->flags & UNDO_ENABLED)\ || (CBuf->undo == NULL) || Undo_In_Progress) #define UNDO_BD_FLAG 0x8000 #define UNDO_UNCHANGED_FLAG 0x4000 #define IS_UNDO_BD (LAST_UNDO->type & UNDO_BD_FLAG) static void prepare_next_undo(void) { LAST_UNDO++; if (LAST_UNDO >= UNDO_RING + MAX_UNDOS) LAST_UNDO = UNDO_RING; if (LAST_UNDO == FIRST_UNDO) FIRST_UNDO++; if (FIRST_UNDO >= UNDO_RING + MAX_UNDOS) FIRST_UNDO = UNDO_RING; LAST_UNDO->type = 0; LAST_UNDO->misc = 0; } void record_deletion(unsigned char *p, int n) { int misc; unsigned char *pb; if (DONT_RECORD_UNDO || !n) return; if (((LAST_UNDO->type && 0xFF) == 0) || ((LAST_UNDO->type & CDELETE) && (LAST_UNDO->linenum == LineNum + CBuf->nup) && (LAST_UNDO->point == Point))) { if (LAST_UNDO->type != 0) misc = LAST_UNDO->misc; else misc = 0; pb = LAST_UNDO->buf + misc; while ((misc < 8) && n) { *pb++ = *p++; misc++; n--; } LAST_UNDO->misc = misc; LAST_UNDO->type |= CDELETE; LAST_UNDO->linenum = LineNum + CBuf->nup; LAST_UNDO->point = Point; if (Undo_Buf_Unch_Flag) LAST_UNDO->type |= UNDO_UNCHANGED_FLAG; Undo_Buf_Unch_Flag = 0; } if (n) { prepare_next_undo(); record_deletion(p, n); } if (Undo_Buf_Unch_Flag) LAST_UNDO->type |= UNDO_UNCHANGED_FLAG; } int undo (void) { int line; CHECK_READ_ONLY if (!(CBuf->flags & UNDO_ENABLED)) { msg_error("Undo not enabled for this buffer."); return(0); } else if ((CBuf->undo == NULL) || (LAST_UNDO->type == 0)) { msg_error("No more undo information."); return(0); } Undo_In_Progress = 1; do { line = (int) LAST_UNDO->linenum; if ((line <= CBuf->nup) || (line > CBuf->nup + Max_LineNum)) { msg_error("Next undo lies outside visible buffer."); break; } line -= CBuf->nup; goto_line(&line); Point = LAST_UNDO->point; switch (LAST_UNDO->type & 0xFF) { case CDELETE: ins_chars(LAST_UNDO->buf, LAST_UNDO->misc); /* Point = LAST_UNDO->point; */ break; case CINSERT: deln(&LAST_UNDO->misc); break; case NLINSERT: del(); break; default: return(1); } if (LAST_UNDO->type & UNDO_UNCHANGED_FLAG) { mark_buffer_modified(&Number_Zero); } if (LAST_UNDO == FIRST_UNDO) LAST_UNDO->type = 0; else { LAST_UNDO--; if (LAST_UNDO < UNDO_RING) LAST_UNDO = UNDO_RING + MAX_UNDOS - 1; } } while ((!IS_UNDO_BD) && (LAST_UNDO->type)); message("Undo!"); Undo_In_Progress = 0; return(1); } void record_insertion(int n) { if (DONT_RECORD_UNDO || !n) return; if (LAST_UNDO->type == 0) { LAST_UNDO->misc = n; LAST_UNDO->point = Point; } else if ((LAST_UNDO->type & CINSERT) && (LAST_UNDO->linenum == LineNum + CBuf->nup) && (LAST_UNDO->point + LAST_UNDO->misc == Point) && (LAST_UNDO->misc <= 32)) { LAST_UNDO->misc += n; } else { prepare_next_undo(); LAST_UNDO->point = Point; LAST_UNDO->misc = n; } LAST_UNDO->type |= CINSERT; if (Undo_Buf_Unch_Flag) LAST_UNDO->type |= UNDO_UNCHANGED_FLAG; LAST_UNDO->linenum = LineNum + CBuf->nup; } void record_newline_insertion() { if (DONT_RECORD_UNDO) return; if (LAST_UNDO->type != 0) prepare_next_undo(); if (Undo_Buf_Unch_Flag) LAST_UNDO->type |= UNDO_UNCHANGED_FLAG; LAST_UNDO->point = Point; LAST_UNDO->misc = 0; LAST_UNDO->type |= NLINSERT; LAST_UNDO->linenum = LineNum + CBuf->nup; } void delete_undo_ring(Buffer *b) { SLFREE (b->undo); /* assume non null-- called by delete buffer */ } void create_undo_ring() { Undo_Type *ur; Undo_Object_Type *uo; int n; if (NULL == (ur = (Undo_Type *) SLMALLOC(sizeof(Undo_Type)))) { msg_error("Unable to malloc space for undo!"); return; } CBuf->undo = ur; uo = ur->Undo_Ring; ur->Last_Undo = ur->First_Undo = uo; n = MAX_UNDOS; while (n--) { uo->type = 0; uo++; } } void mark_undo_boundary(Buffer *b) { Buffer *s = CBuf; CBuf = b; if (!DONT_RECORD_UNDO && (LAST_UNDO->type != 0)) { LAST_UNDO->type |= UNDO_BD_FLAG; } CBuf = s; } o; int n; if (NULL == (ur = (Undo_Type *) SLMALLOC(sizeof(Undo_Type)))) { msg_error("Unable to malloc space for undo!"); return; } CBuf->undo = ur; uo = ur->Undo_Ring; ur->Last_Undo = ur->First_Undo = uo; n = MAX_UNDOS; while (n--) { uo->type = 0; uo++; } } void mark_undo_boundary(Buffer *b) { Buffer *s = CBuf; CBuf = b; if (!DONT_RECORD_UNDO && (LAST_UNDO->typejed-0.97.12/src/undo.h000064400000000000003000000020420603742313600141770ustar00rootsys00000000000000#ifndef DAVIS_UNDO_H_ #define DAVIS_UNDO_H_ /* * Copyright (c) 1993, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #if defined (msdos) || defined (__os2_16__) /* size is something like 2000 x (16) = 32K */ #define MAX_UNDOS 2000 #else #define MAX_UNDOS 10000 #endif typedef struct Undo_Object_Type { unsigned short type; /* type of damage */ int linenum; /* where damage was */ int point; /* */ unsigned char buf[8]; /* buffer for chars */ /* VOID *obj; */ /* pointer to object info */ int misc; /* misc information */ } Undo_Object_Type; typedef struct Undo_Type { Undo_Object_Type Undo_Ring[MAX_UNDOS]; Undo_Object_Type *Last_Undo; Undo_Object_Type *First_Undo; } Undo_Type; extern void record_deletion(unsigned char *, int); extern void record_insertion(int); extern void record_newline_insertion(void); extern int undo(void); extern void create_undo_ring(void); extern int Undo_Buf_Unch_Flag; /* 1 if buffer prev not modified */ #endif pointer to object info */ int misc; /* misc information */ } Undo_Object_Type; typedef struct Undo_Type { Undo_Object_Type Undo_Ring[MAX_UNDOS]; Undo_Object_Type *Last_Undo; Undo_Object_Type *First_Undo; } Undo_Type; extern void record_deletion(unsigned char *, int); extern void record_insertion(int); extern void record_newline_insertion(void); extern int undo(void); extern void create_undo_ring(void); extern int Undo_Buf_Unch_Flag; /* 1 if bjed-0.97.12/src/unix.c000064400000000000003000000363470603742313700142300ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include "config.h" #include "sysdep.h" #ifdef HAS_SUBPROCESSES #include "jprocess.h" #endif #include /* sequent support thanks to Kenneth Lorber */ /* SYSV (SYSV ISC R3.2 v3.0) provided by iain.lea@erlm.siemens.de */ #include #ifndef sequent # include #endif #ifdef sun #ifndef PENDIN #include #endif #else #include #endif #ifdef __QNX__ # include # include #endif #ifdef SYSV # ifndef CRAY # include # include # include # include # endif #endif #include #include /* Anothe hack for AInt uniX (AIX) */ #if defined (_AIX) && !defined (FD_SET) # include /* for FD_ISSET, FD_SET, FD_ZERO */ #endif #include #include #ifndef NO_UNISTD_H #include #endif # include # ifdef SYSV # include # endif #ifndef F_GETFL # include #endif #include "sig.h" #define TTY_DESC 2 static int Read_FD = TTY_DESC; static int Max_Fd = TTY_DESC; int Flow_Control; int Abort_Char = 7; /* scan code for G (control) */ #ifdef sequent struct ttystuff { struct tchars t; struct ltchars lt; struct sgttyb s; }; struct ttystuff OLDTTY; #else struct termios OLDTTY; #endif /* this next works on ultrix for setting termios */ #ifdef TCGETS #define GET_TERMIOS(fd, x) ioctl(fd, TCGETS, x) #define SET_TERMIOS(fd, x) ioctl(fd, TCSETS, x) #else # ifdef sequent # define X(x,m) &(((struct ttystuff*)(x))->m) # define GET_TERMIOS(fd, x) \ if(ioctl(fd, TIOCGETC, X(x,t))<0 || \ ioctl(fd, TIOCGLTC, X(x,lt))<0 || \ ioctl(fd, TIOCGETP, X(x,s))<0)exit_error("Can't get terminal info", 0) # define SET_TERMIOS(fd, x) \ if(ioctl(fd, TIOCSETC, X(x,t))<0 || \ ioctl(fd, TIOCSLTC, X(x,lt))<0 || \ ioctl(fd, TIOCSETP, X(x,s))<0)exit_error("Can't set terminal info", 0) # else # define GET_TERMIOS(fd, x) tcgetattr(fd, x) # define SET_TERMIOS(fd, x) tcsetattr(fd, TCSAFLUSH, x) /* # define SET_TERMIOS(fd, x) tcsetattr(fd, TCSANOW, x) */ # endif #endif static int Baud_Rates[20] = { 0, 50, 75, 110, 134, 150, 200, 300, 600, 1200, 1800, 2400, 4800, 9600, 19200, 38400, 0, 0, 0, 0 }; #ifdef HAS_MOUSE static int JMouse_Fd = -1; #endif static int tty_inited = 0; void init_tty (void) { #ifdef sequent struct ttystuff newtty; #else struct termios newtty; #endif if (Batch) return; tty_inited = 1; if (X_Init_Term_Hook != NULL) { Read_FD = (*X_Init_Term_Hook) (); Max_Fd = Read_FD; return; } tt_enable_cursor_keys(); GET_TERMIOS(Read_FD, &OLDTTY); GET_TERMIOS(Read_FD, &newtty); #ifdef sequent newtty.s.sg_flags &= ~(ECHO); newtty.s.sg_flags &= ~(CRMOD); /* if (Flow_Control == 0) newtty.s.sg_flags &= ~IXON; */ newtty.t.t_eofc = 1; newtty.t.t_intrc = Abort_Char; /* ^G */ newtty.t.t_quitc = 255; newtty.lt.t_suspc = 255; /* to ignore ^Z */ newtty.lt.t_dsuspc = 255; /* to ignore ^Y */ newtty.lt.t_lnextc = 255; newtty.s.sg_flags |= CBREAK; /* do I want cbreak or raw????? */ #else if (*tt_Baud_Rate == 0) { /* Note: if this generates an compiler error, simply remove the statement */ *tt_Baud_Rate = cfgetospeed (&newtty); *tt_Baud_Rate = (*tt_Baud_Rate > 0) && (*tt_Baud_Rate < 19) ? Baud_Rates[*tt_Baud_Rate] : -1; } newtty.c_iflag &= ~(ECHO | INLCR | ICRNL); #ifdef ISTRIP /* allow 8 bit chars to pass through */ /* newtty.c_iflag &= ~ISTRIP; */ #endif newtty.c_oflag &= ~OPOST; /* (ONLCR | OPOST); */ /* do not map newline to cr/newline on out */ if (Flow_Control == 0) newtty.c_iflag &= ~IXON; newtty.c_cc[VMIN] = 1; newtty.c_cc[VTIME] = 0; newtty.c_cc[VEOF] = 1; newtty.c_lflag = ISIG | NOFLSH; newtty.c_cc[VINTR] = Abort_Char; /* ^G */ newtty.c_cc[VQUIT] = 255; newtty.c_cc[VSUSP] = 255; /* to ignore ^Z */ #ifdef VDSUSP newtty.c_cc[VDSUSP] = 255; /* to ignore ^Y */ #endif #ifdef VSWTCH newtty.c_cc[VSWTCH] = 255; /* to ignore who knows what */ #endif #endif /*sequent*/ SET_TERMIOS(Read_FD, &newtty); #ifdef HAS_MOUSE if ((X_Open_Mouse_Hook != NULL) && ((JMouse_Fd = (*X_Open_Mouse_Hook)()) >= 0)) { if (JMouse_Fd > Read_FD) Max_Fd = JMouse_Fd; } #endif } void reset_tty (void) { if (Batch) return; if (!tty_inited) return; if (X_Init_Term_Hook != NULL) { if (X_Reset_Term_Hook != NULL) (*X_Reset_Term_Hook) (); return; } SET_TERMIOS(Read_FD, &OLDTTY); /* This statement ensures init_tty will not try to change output_rate (when coming back from suspension) */ if (*tt_Baud_Rate == 0) *tt_Baud_Rate = -1; #ifdef HAS_MOUSE if (X_Close_Mouse_Hook != NULL) X_Close_Mouse_Hook (); JMouse_Fd = -1; #endif } unsigned char sys_getkey (void) { int n = 450; int count = 3; unsigned char c; #ifdef HAS_SUBPROCESSES int all = Num_Subprocesses; #else int all = 0; #endif if (SLKeyBoard_Quit) return((int) Abort_Char); /* sleep for 45 second and try again */ while (!SLKeyBoard_Quit && !sys_input_pending(&n, all)) { /* update status line incase user is displaying time */ if (SLKeyBoard_Quit) break; if (Display_Time || all) { JWindow->trashed = 1; update((Line *) NULL, 0, 1); } } if (SLKeyBoard_Quit) return(Abort_Char); if (X_Read_Hook != NULL) return (X_Read_Hook ()); /* Something may have stuffed it, e.g., mouse */ if (Input_Buffer_Len) return my_getkey (); if (JMouse_Hide_Mouse_Hook != NULL) (*JMouse_Hide_Mouse_Hook) (0); again: while (count-- && (read(Read_FD, (char *) &c, 1) < 0) && !SLKeyBoard_Quit) sleep(1); if (count <= 0) { count = 3; if (errno == EINTR) goto again; exit_error ("getkey(): read failed", 0); } /* only way for keyboard quit to be non zero is if ^G recived and sigint processed */ if (SLKeyBoard_Quit) c = Abort_Char; SLKeyBoard_Quit = 0; return(c); } #ifndef FD_SET #define FD_SET(fd, tthis) *(tthis) |= 1 << fd #define FD_ZERO(tthis) *(tthis) = 0 #define FD_ISSET(fd, tthis) (*(tthis) & (1 << fd)) typedef int fd_set; #endif static fd_set Read_FD_Set; /* If all is zero, only check for mouse or keyboard input. If all is -1, * check for only subprocess input. Otherwise, check all input. */ static int sys_input_pending(int *tsecs, int all) { struct timeval wait; long usecs, secs; int ret, maxfd; #ifdef HAS_SUBPROCESSES int i; #endif if ((all >= 0) && (Input_Buffer_Len || Batch)) return(Input_Buffer_Len); top: secs = *tsecs / 10; usecs = (*tsecs % 10) * 100000; wait.tv_sec = secs; wait.tv_usec = usecs; if (all >= 0) { if (X_Input_Pending_Hook != NULL) { if ((*X_Input_Pending_Hook) ()) return 1; } FD_SET(Read_FD, &Read_FD_Set); #ifdef HAS_MOUSE if ((JMouse_Fd >= 0) && (JMouse_Event_Hook != NULL)) { FD_SET (JMouse_Fd, &Read_FD_Set); } #endif maxfd = Max_Fd; } else maxfd = -1; #ifdef HAS_SUBPROCESSES if (all) { i = 0; while (i < Num_Subprocesses) { FD_SET(Subprocess_Read_fds[i][0], &Read_FD_Set); i++; } if (Max_Subprocess_FD > maxfd) maxfd = Max_Subprocess_FD; } #endif ret = select(maxfd + 1, &Read_FD_Set, NULL, NULL, &wait); if (ret == 0) return 0; #ifdef EBADF if ((ret < 0) && (errno == EBADF)) { /* Oh Geez. We have an invalid file descriptor. Well, there are * several options. Here is what I am choosing: If we are selecting * on subprocesses and the bad descriptor appears to be the subprocess * then ignore select on suprocesses. Hopefully the subprocess child * handlers will fire and illiminate this situation. If it is the * mouse, then turn off the mouse. If it is the keyboard, then exit. */ FD_ZERO (&Read_FD_Set); if (all >= 0) { #ifdef HAS_MOUSE if ((JMouse_Fd >= 0) && (JMouse_Event_Hook != NULL)) { if ((-1 == fcntl (JMouse_Fd, F_GETFL, 0)) && (errno == EBADF)) { JMouse_Event_Hook = NULL; goto top; } } #endif if ((-1 == fcntl (Read_FD, F_GETFL, 0)) && (errno == EBADF)) { exit_error ("select: keyboard file descriptor is bad!!!", 1); } } if (all == -1) return 0; all = 0; goto top; } #endif if (all >= 0) { if ((X_Input_Pending_Hook != NULL) && (ret > 0) && (FD_ISSET(Read_FD, &Read_FD_Set))) { if ((*X_Input_Pending_Hook) ()) return 1; /* Nothing there so try to time out again --- too bad select does * not inform of of how far we got. */ FD_SET(Read_FD, &Read_FD_Set); (void) select(Read_FD + 1, &Read_FD_Set, NULL, NULL, &wait); /* try again, it could be more bogus Xpackets. Event driven systems * are not always the way to go. */ return (*X_Input_Pending_Hook) (); } if (ret < 0) return 0; if (FD_ISSET(Read_FD, &Read_FD_Set)) return ret; /* Nothing to read from the terminal so while we are waiting * for tty input, read from those that are available. TTY input * always gets preference. */ #ifdef HAS_MOUSE if ((JMouse_Event_Hook != NULL) && (JMouse_Fd >= 0) && (FD_ISSET (JMouse_Fd, &Read_FD_Set))) { if ((*JMouse_Event_Hook) () > 0) { return 1; } /* This is ugly. */ goto top; } #endif } /* all >= 0 */ if (ret <= 0) return 0; #ifdef HAS_SUBPROCESSES i = 0; while (i < Num_Subprocesses) { if (FD_ISSET(Subprocess_Read_fds[i][0], &Read_FD_Set)) read_process_input (i); i++; } #endif if (all < 0) return ret; return 0; /* no keyboard input */ } /* This is to get the size of the terminal */ int get_term_dimensions(int *cols, int *rows) { #ifdef TIOCGWINSZ struct winsize wind_struct; if (X_Get_Term_Size_Hook == NULL) { if ((ioctl(2,TIOCGWINSZ,&wind_struct) < 0) && (ioctl(0, TIOCGWINSZ, &wind_struct) < 0) && (ioctl(1, TIOCGWINSZ, &wind_struct) < 0)) { *rows = *cols = 0; } else { *cols = (int) wind_struct.ws_col; *rows = (int) wind_struct.ws_row; } } else (*X_Get_Term_Size_Hook)(cols, rows); if (*rows <= 0) *rows = *tt_Screen_Rows; if (*cols <= 0) *cols = *tt_Screen_Cols; #else if (X_Get_Term_Size_Hook == NULL) { *rows = *tt_Screen_Rows; *cols = *tt_Screen_Cols; } else (*X_Get_Term_Size_Hook)(cols, rows); #endif return 0; } /* returns 0 on failure, 1 on sucess */ int sys_delete_file(char *filename) { return(1 + unlink(filename)); } #ifdef __cplusplus #define SIGNAL(a,b) signal((a), (SIG_PF)(b)) #else #define SIGNAL signal #endif void sys_suspend(void) { SIGNAL (SIGTSTP, SIG_DFL); if (Signal_Sys_Spawn_Flag) kill(0, SIGSTOP); else kill(0, SIGTSTP); SIGNAL (SIGTSTP, sig_sys_spawn_cmd); } /* returns 0 if file does not exist, 1 if it is not a dir, 2 if it is */ int sys_chmod(char *file, int what, int *mode, short *uid, short *gid) { struct stat buf; int m; if (what) { chmod(file, *mode); chown(file, (uid_t) *uid, (uid_t) *gid); return(0); } if (stat(file, &buf) < 0) switch (errno) { case EACCES: return(-1); /* es = "Access denied."; break; */ case ENOENT: return(0); /* ms = "File does not exist."; */ case ENOTDIR: return(-2); /* es = "Invalid Path."; */ default: return(-3); /* "stat: unknown error."; break;*/ } m = buf.st_mode; *uid = buf.st_uid; *gid = buf.st_gid; /* AIX requires this */ #ifdef _S_IFDIR #ifndef S_IFDIR #define S_IFDIR _S_IFDIR #endif #endif *mode = m & 0777; if (m & S_IFDIR) return (2); return(1); } unsigned long sys_file_mod_time(char *file) { struct stat buf; if (stat(file, &buf) < 0) return(0); return((unsigned long) buf.st_mtime); } /* use berkeley interface * #include */ static char Found_Dir[256]; static char Found_File[256]; static int File_Len; #ifdef sequent # include # define NEED_D_NAMLEN #else # include #endif static DIR *Dirp; /* These routines should be fixed to work with wildcards like the DOS and VMS * versions do. Unfortunately, it is a sad fact of life that Unix does NOT * support wildcards. Strangely enough, most Unix users are totally unaware * of this fact. * * To add wild card support, I need to use the regular expression package. * Specifically, in sys_findfirst, I would need to scan the file spec for * wild cards making the replacements: . --> \., ? -> ., and * -> .* in that * order. I should also quote the special characters ($, etc...) but I will * not worry about this. Finally, I will have to prefix it with '^' since * the match will start at the beginning of the string. * * Remark: to implement something like a real wildcard file renaming routine * would requires even more processing. Consider something like: * rename *.c~ *.bak * This mean that the first expression (*.c~) would have to be converted to: * \(.*\)\.c~ * and the second (*.bak) would be determined to be: \1.bak where \1 is * the expression matched by the first wildcard. * * After converting the wildcard file name to a regexp file name, I would then * have to compile it and save the compiled expression for use in sys_findnext. * There, I would use the regexp string matching routine instead of the * strcmp which is now used. * * Mainly, the findfirst/findnext are used by the completion routines. This * means that there is an implicit '.*' attached to the end of the filespec. * This will have to be dealt with. */ int sys_findnext(char *file) { #ifdef NEED_D_NAMLEN #define dirent direct #endif struct dirent *dp; while (1) { if (NULL == (dp = readdir(Dirp))) return(0); #ifdef NEED_D_NAMLEN dp->d_name[dp->d_namlen] = 0; #endif if (!strncmp(Found_File, dp->d_name, File_Len)) break; } strcpy(file, Found_Dir); strcat(file, dp->d_name); if (2 == file_status(file)) strcat(file, "/"); return(1); } int sys_findfirst(char *the_file) { char *f, *file; file = expand_filename(the_file); f = extract_file(file); strcpy (Found_Dir, file); strcpy (Found_File, f); File_Len = strlen(f); Found_Dir[(int) (f - file)] = 0; if (Dirp != NULL) closedir(Dirp); if (NULL == (Dirp = (DIR *) opendir(Found_Dir))) return(0); strcpy(the_file, file); return sys_findnext(the_file); } /* This should be made available as part of the slang library */ #include void get_passwd_info (char *name) { struct passwd *pwent; char *password = NULL; char *dir = NULL; char *shell = NULL; int uid = -1, gid = -1; if (*name == 0) { name = getlogin (); if (name == NULL) name = getenv ("LOGNAME"); if (name == NULL) name = getenv ("USER"); } if ((name != NULL) && ((pwent = getpwnam (name)) != NULL)) { password = pwent->pw_passwd; uid = pwent->pw_uid; gid = pwent->pw_gid; dir = pwent->pw_dir; shell = pwent->pw_shell; } if (password == NULL) password = ""; if (dir == NULL) dir = ""; if (shell == NULL) shell = ""; (void) SLang_push_string (dir); (void) SLang_push_string (shell); (void) SLang_push_string (password); (void) SLang_push_integer (uid); (void) SLang_push_integer (gid); } "); } if ((name != NULL) && ((pwent = getpwnam (name)) != NULL)) { password = pwent->pw_passwd; uid = pwent->pw_uid; gid = pwent->pw_gid; dir = pwent->pw_dir; shell = pwent->pw_shell; } if (password == NULL) password = ""; if (dir == NULL) dir = jed-0.97.12/src/vfile.c000064400000000000003000000111550603742313700143400ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include #ifdef __DECC #include #endif #ifdef VMS #include #endif #ifdef unix #include #include #include #ifdef SYSV #include #endif #endif #ifdef msdos #include #include #include #endif #ifdef __os2__ #include #include #include #include #endif #ifndef O_RDONLY #ifdef VMS #include #else #include #endif #endif #include "config.h" #include "slang.h" #include "vfile.h" #ifdef JED #include "misc.h" #endif unsigned int VFile_Mode = VFILE_TEXT; VFILE *vopen(char *file, unsigned int size, unsigned int fmode) { int fd; unsigned int mode; #ifdef O_BINARY mode = O_BINARY; #else mode = 0; #endif if ((fd = open(file, mode | O_RDONLY, 0)) < 0) return(NULL); return vstream(fd, size, fmode); } void vclose(VFILE *v) { close(v->fd); if (v->buf != NULL) SLFREE(v->buf); SLFREE(v); } VFILE *vstream(int fd, unsigned int size, unsigned int mode) { VFILE *v; if (NULL == (v = (VFILE *) SLMALLOC(sizeof(VFILE)))) return(NULL); v->bmax = v->bp = v->buf = NULL; v->fd = fd; v->eof = NULL; v->size = size; if (mode == 0) mode = VFile_Mode; v->mode = mode; v->cr_flag = 0; return v; } /* I malloc one extra so that I can always add a null character to last line */ char *vgets(VFILE *vp, unsigned int *num) { register char *bp, *bp1; register char *bmax, *bpmax; char *neew; int fd = vp->fd; unsigned int n, max, fmode = vp->mode; int doread = 0; n = vp->size; *num = 0; if (NULL == vp->buf) { #if defined (msdos) || defined (__os2_16__) if (!n) n = 512; #else if (!n) n = 64 * 1024; #endif if (NULL == (neew = (char *) SLMALLOC(n + 1))) { #ifdef JED msg_error("Unable to malloc space."); #endif return(NULL); } vp->bp = vp->buf = neew; vp->bmax = neew + n; doread = 1; } bp = vp->bp; if ((vp->eof != NULL) && (bp >= vp->eof)) return (NULL); bp1 = vp->buf; bmax = vp->bmax; while (1) { if (doread) { max = (int) (vp->bmax - bp); while ((n = read(fd, bp, max)) != 0) { max -= n; bp += n; } if (max) vp->eof = bp; if (bp == bp1) { return(NULL); } bp = bp1; } else bp1 = bp; /* extract a line */ if (vp->eof != NULL) bmax = vp->eof; n = (unsigned int) (bmax - bp); #if defined(msdos) && !defined(__WATCOMC__) if (n) { bpmax = bp; #ifndef __WIN32__ asm { mov bx, di mov al, 10 mov cx, n les di, bpmax cld repne scasb inc cx sub n, cx mov di, bx } bp += n; #else if (NULL == (bpmax = MEMCHR(bp, '\n', n))) bp += n; else bp = bpmax; #endif /* __WIN32__ */ if (*bp != '\n') bp++; } if (bp < bmax) { vp->bp = ++bp; *num = (unsigned int) (bp - bp1); /* if it is text, replace the carriage return by a newline and adjust the number read by 1 */ bp -= 2; if ((fmode == VFILE_TEXT) && (*num > 1) && (*bp == '\r')) { *bp = '\n'; *num -= 1; vp->cr_flag = 1; } return bp1; } #else if (NULL != (bpmax = MEMCHR(bp, '\n', n))) { bpmax++; vp->bp = bpmax; *num = (unsigned int) (bpmax - bp1); if ((fmode == VFILE_TEXT) && (*num > 1)) { bpmax -= 2; if (*bpmax == '\r') { vp->cr_flag = 1; *bpmax = '\n'; (*num)--; } } return bp1; } bp = bp + n; #endif /* msdos */ if (vp->eof != NULL) { *num = (unsigned int) (bp - bp1); vp->bp = bp; #if defined(pc_system) || defined(__os2__) /* kill ^Z at EOF if present */ if ((fmode == VFILE_TEXT) && (*num) && (26 == *(bp - 1))) { *num -= 1; if (!*num) bp1 = NULL; } #endif return(bp1); } doread = 1; bp = bp1; bp1 = vp->buf; if (bp != bp1) { /* shift to beginning */ while (bp < bmax) *bp1++ = *bp++; bp = bp1; bp1 = vp->buf; } else { bp = bmax; vp->bmax += 2 * (int) (vp->bmax - vp->buf); neew = (char *) SLREALLOC(vp->buf, vp->bmax - vp->buf + 1); if (neew == NULL) { #ifdef JED msg_error("Realloc Error."); #endif return(NULL); } bp = neew + (int) (bmax - vp->buf); bmax = vp->bmax = neew + (int) (vp->bmax - vp->buf); bp1 = vp->buf = neew; } } } ft to beginning */ while (bp < bmax) *bp1++ = *bp++; bp = bp1; bp1 = vp->buf; } else { bp = bmax; vp->bmax += 2 * (int) (vp->bmax - vp->buf); neew = (char *) SLREALLOC(vp->buf, vp->bmax - vp->buf + 1); if (neew == NULL) { #ifdef JED msg_error("Realloc Error."); #endif return(NULL); } bp = neew + (int) (bmax - vp-jed-0.97.12/src/vfile.h000064400000000000003000000015040603742313700143420ustar00rootsys00000000000000#ifndef _DAVIS_VFILE_H_ #define _DAVIS_VFILE_H_ /* * Copyright (c) 1993, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #define VFILE_TEXT 1 #define VFILE_BINARY 2 extern unsigned int VFile_Mode; typedef struct { char *buf; /* buffer for stream */ char *bmax; /* pointer to end buffer */ char *bp; /* current pointer in stream */ char *eof; /* EOF if non NULL */ int fd; /* file descrip for stream */ unsigned int size; /* default buffer size */ unsigned int mode; unsigned int cr_flag; /* true if lines end in cr */ } VFILE; extern char *vgets(VFILE *, unsigned int *); extern VFILE *vopen(char *, unsigned int, unsigned int); extern void vclose(VFILE *); extern VFILE *vstream(int, unsigned int, unsigned int); #endif to end buffer */ char *bp; /* current pointer in stream */ char *eof; /* EOF if non NULL */ int fd; /* file descrip for stream */ unsigned int size;jed-0.97.12/src/vms.c000064400000000000003000000564010603742313700140430ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #ifdef __DECC #include #include #include #include #endif /* #include */ typedef struct { /* I/O status block */ short i_cond; /* Condition value */ short i_xfer; /* Transfer count */ long i_info; /* Device information */ } Iosb_Type; typedef struct { /* Terminal characteristics */ char t_class; /* Terminal class */ char t_type; /* Terminal type */ short t_width; /* Terminal width in characters */ long t_mandl; /* Terminal's mode and length */ long t_extend; /* Extended terminal characteristics */ } TermChar_Type; TermChar_Type Old_Term_Char, New_Term_Char; int Abort_Char = 7; /* scan code for G (control) */ /* This serves to identify the channel we are reading input from. */ short This_Term; typedef struct { short buflen; short item_code; int *buf_addr; int *len_addr; } item_list_3; static int TTY_Inited; void vms_exit_handler(int not_used) { if (TTY_Inited == 0) exit(0); auto_save_all(); reset_display(); reset_tty(); exit(1); } /* * Exit Handler Control Block */ static struct argument_block { int forward_link; int (*exit_routine)(); int arg_count; int *status_address; int exit_status; } exit_block = { 0, NULL, 1, &exit_block.exit_status, 0 }; void vms_cancel_exithandler() { sys$canexh(exit_block); } #undef USING_INPUT_BUFFER #undef DONE_WITH_INPUT_BUFFER int vms_input_buffer; static struct vms_ast_iosb { short status; short offset; short termlen; short term; } vms_ast_iosb; extern void vms_que_key_ast(); static int Ast_Fired_Event_Flag; static int Timer_Event_Flag; static int Event_Flag_Mask; static int Ast_Stop_Input; static int Waiting_For_Ast; static int Using_Keyboard_Buffer_Event_Flag; #define USING_INPUT_BUFFER\ sys$setast(0); #define DONE_WITH_INPUT_BUFFER\ sys$setast(1); static int getkey_ast(int not_used) { unsigned int c = 1000; if (vms_ast_iosb.offset) { c = (unsigned int) vms_input_buffer; } if (c <= 255) { if (c == Abort_Char) { if (Ignore_User_Abort == 0) SLang_Error = 2; SLKeyBoard_Quit = 1; } USING_INPUT_BUFFER if (Input_Buffer_Len < MAX_INPUT_BUFFER_LEN - 3) Input_Buffer[Input_Buffer_Len++] = c; DONE_WITH_INPUT_BUFFER } if (Waiting_For_Ast) sys$setef (Ast_Fired_Event_Flag); Waiting_For_Ast = 0; vms_que_key_ast(); return (1); } void vms_que_key_ast() { static int trmmsk [2] = { 0, 0 }; int status; if (Ast_Stop_Input) return; status = sys$qio (0, This_Term, IO$_READVBLK | IO$M_NOECHO | IO$_TTYREADALL, &vms_ast_iosb, getkey_ast, 1, &vms_input_buffer, 1, 0, trmmsk, 0, 0); } static char TTY_Name[8]; static int This_Process_Pid; void init_tty() { Iosb_Type iostatus; int tmp, name_len, status, lastppid, ppid; item_list_3 itmlst[3]; $DESCRIPTOR ( term, TTY_Name); itmlst[0].buflen = sizeof(int); itmlst[0].item_code = JPI$_PID; itmlst[0].buf_addr = &This_Process_Pid; itmlst[0].len_addr = &tmp; itmlst[1].buflen = 7; itmlst[1].item_code = JPI$_TERMINAL; itmlst[1].buf_addr = (int *) TTY_Name; itmlst[1].len_addr = &name_len; itmlst[2].buflen = 0; itmlst[2].item_code = 0; itmlst[2].buf_addr = 0; itmlst[2].len_addr = 0; TTY_Inited = 1; ppid = 0, lastppid = -1; /* Here I get this process pid then I get the master process pid and use the controlling terminal of that process. */ while (1) { status = sys$getjpiw(0, /* event flag */ &ppid, /* pid address */ 0, /* proc name address */ itmlst, 0, 0, 0); if (status != SS$_NORMAL) { fprintf(stderr, "PID: %X, status: %X\n", This_Process_Pid, status); exit(1); } if (lastppid == ppid) break; lastppid = ppid; itmlst[0].item_code = JPI$_MASTER_PID; itmlst[0].buf_addr = &ppid; } if (Batch) return; if (X_Init_Term_Hook != NULL) { (void) (*X_Init_Term_Hook) (); return; } term.dsc$w_length = name_len; status = sys$assign ( &term, &This_Term, 0, 0 ); if (status != SS$_NORMAL) { fprintf(stderr,"Unable to assign input channel\n"); fprintf(stderr,"PID: %X, DEV %s, status: %d\n", This_Process_Pid, TTY_Name, status); exit(0); } if (NULL == exit_block.exit_routine) { exit_block.exit_routine = (int (*)()) vms_exit_handler; sys$dclexh(&exit_block); } /* allocate an event flag and clear it--- used by ast routines. Since * I am only using a few local event flags, there is really no need to * worry about freeing these. * * The event flags are used to avoid timing problems with the getkey AST * as well as for a form of time out. */ if (!Ast_Fired_Event_Flag) lib$get_ef (&Ast_Fired_Event_Flag); sys$clref (Ast_Fired_Event_Flag); if (!Timer_Event_Flag) lib$get_ef (&Timer_Event_Flag); sys$clref (Timer_Event_Flag); /* When no thread is using the keyboard buffer, this ev is set. It * gets cleared when the buffer is in use. */ if (!Using_Keyboard_Buffer_Event_Flag) lib$get_ef (&Using_Keyboard_Buffer_Event_Flag); sys$setef (Using_Keyboard_Buffer_Event_Flag); /* The working assumption here is that the event flags are in the same * cluster. They need not be but it is very likely that they are. */ Event_Flag_Mask = ((unsigned) 1 << (Ast_Fired_Event_Flag % 32)); Event_Flag_Mask |= ((unsigned) 1 << (Timer_Event_Flag % 32)); Waiting_For_Ast = 0; Ast_Stop_Input = 0; /* Get the startup terminal characteristics */ status = sys$qiow(0, /* Wait on event flag zero */ This_Term, /* Channel to input terminal */ IO$_SENSEMODE, /* Get current characteristic */ &iostatus, /* Status after operation */ 0, 0, /* No AST service */ &Old_Term_Char, /* Terminal characteristics buf */ sizeof(Old_Term_Char),/* Size of the buffer */ 0, 0, 0, 0); New_Term_Char = Old_Term_Char; New_Term_Char.t_mandl |= TT$M_EIGHTBIT | TT$M_NOECHO; New_Term_Char.t_extend |= TT2$M_PASTHRU | TT2$M_XON; status = sys$qiow(0, /* Wait on event flag zero */ This_Term, /* Channel to input terminal */ IO$_SETMODE, /* Set current characteristic */ &iostatus, /* Status after operation */ 0, 0, /* No AST service */ &New_Term_Char, /* Terminal characteristics buf */ sizeof(New_Term_Char),/* Size of the buffer */ 0, 0, 0, 0); /* Enable the Application Keypad */ (*tt_write_string) ("\033=\033[?1l"); /* application keys/cursor keys */ vms_que_key_ast(); /* set up the key ast */ } void sys_flush(int fd) { } static void cancel_ast (void) { if (TTY_Inited == 0) return; /* stop the keyboard ast */ sys$setast (0); /* disable AST delivery */ sys$clref (Ast_Fired_Event_Flag); Waiting_For_Ast = 1; Ast_Stop_Input = 1; /* cancel all i/o on this channel. This canels pending, as well as those * already in progress and queued. In particular, according to the * manuals, cancelling I/O on the channel will cause the getkey AST * to fire even though the SYS$QIO call was aborted. This is crucial * because below we wait for the AST to set the event flag. */ sys$cancel (This_Term); sys$setast (1); /* enable ASTs again */ sys$waitfr (Ast_Fired_Event_Flag); /* sleep until it fires */ Waiting_For_Ast = 0; } static int keypad_state = 0; void reset_tty() { Iosb_Type iostatus; if (Batch) return; if (!TTY_Inited) return; if (X_Init_Term_Hook != NULL) { if (X_Reset_Term_Hook != NULL) (*X_Reset_Term_Hook) (); TTY_Inited = 0; return; } cancel_ast (); TTY_Inited = 0; /* reset the terminal characteristics */ sys$qiow(0, /* event flag 0 */ This_Term, /* Channel to input terminal */ IO$_SETMODE, /* Set current characteristic */ &iostatus, /* Status after operation */ 0, 0, /* No AST service */ &Old_Term_Char, /* Terminal characteristics buf */ sizeof(Old_Term_Char), /* Size of the buffer */ 0, 0, 0, 0); /* unused */ if (keypad_state) SLtt_write_string("\033=\033[?1l"); else SLtt_write_string("\033>"); } unsigned char sys_getkey() { unsigned char c; int tsecs; if (SLKeyBoard_Quit) return((int) Abort_Char); /* Under DECWIndows, I do not know how to timeout so this will have to do for now */ if (X_Read_Hook != NULL) return (c = X_Read_Hook ()); /* On VMS, the keyboard ast routine should be stuffing the buffer, so do nothing except sleep */ /* clear the flag which ast will set */ Waiting_For_Ast = 0; if (Input_Buffer_Len) return(my_getkey()); tsecs = 450; /* 45 seconds */ while (!sys_input_pending(&tsecs, 0)) { /* update status line incase user is displaying time */ if (Display_Time) { JWindow->trashed = 1; update((Line *) NULL, 0, 1); } } c = my_getkey(); return(c); } /* waits *secs tenth of seconds for input */ static int sys_input_pending(int *secs, int unused) { unsigned long daytim[2]; if (Batch) return(0); if (Input_Buffer_Len) return(Input_Buffer_Len); if (X_Input_Pending_Hook != NULL) { if ((*X_Input_Pending_Hook) ()) return 1; /* I need to make this work with DECWIndows */ return 0; } if (*secs) { /* takes a quad word time. If negative, use a relative time. */ daytim[1] = 0xFFFFFFFF; daytim[0] = -(*secs * 1000 * 1000); /* 1000 * 1000 is a tenth of a sec */ sys$clref (Ast_Fired_Event_Flag); /* SYS$CLREF (Timer_Event_Flag); SYS$SETIMR call clears this */ /* set up a flag for the ast so it knows to set the event flag */ Waiting_For_Ast = 1; sys$setimr(Timer_Event_Flag, daytim, 0, 1); /* this will return when ast does its job or timer expires. * The first argument simply serves to identify the cluster for * the event flag and that is all. The second argument serves * to identify the event flags to wait for. */ sys$wflor (Ast_Fired_Event_Flag, Event_Flag_Mask); Waiting_For_Ast = 0; /* cancel the timer */ sys$cantim(1, 3); /* 3 is user mode */ } return (Input_Buffer_Len); } /* This is to get the size of the terminal */ int get_term_dimensions(int *cols, int *rows) { int status, junk; Iosb_Type iostatus; $DESCRIPTOR(devnam, TTY_Name); item_list_3 itmlst[4]; itmlst[0].buflen = sizeof (*rows); itmlst[0].item_code = DVI$_TT_PAGE; itmlst[0].buf_addr = rows; itmlst[0].len_addr = &junk; itmlst[1].buflen = sizeof(*cols); itmlst[1].item_code = DVI$_DEVBUFSIZ; itmlst[1].buf_addr = cols; itmlst[1].len_addr = &junk; itmlst[2].buflen = sizeof (keypad_state); itmlst[2].item_code = DVI$_TT_APP_KEYPAD; itmlst[2].buf_addr = &keypad_state; itmlst[2].len_addr = &junk; itmlst[3].buflen = 0; itmlst[3].item_code = 0; itmlst[3].buf_addr = 0; itmlst[3].len_addr = 0; if (X_Get_Term_Size_Hook != NULL) { (*X_Get_Term_Size_Hook)(cols, rows); return; } if (*rows <= 0) *rows = *tt_Screen_Rows; if (*cols <= 0) *cols = *tt_Screen_Cols; /* Get current terminal characteristics */ status = sys$getdviw(0, /* Wait on event flag zero */ 0, /* Channel to input terminal */ &devnam, /* device name */ &itmlst, /* Item descriptor List */ &iostatus, /* Status after operation */ 0, 0, /* No AST service */ 0); /* nullarg */ if (status&1) status = iostatus.i_cond; /* Jump out if bad status */ if ((status & 1) == 0) exit(status); return 0; } /* returns 0 on failure, 1 on sucess */ int sys_delete_file(char *filename) { return (1 + delete(filename)); /* 0: sucess; -1 failure */ } int sys_rename(char *from, char *to) { return(-1); } /* This routine converts unix type names to vms names */ int locate(char ch, char *string) { int i; char c; i = 0; while (c = string[i++], (c != ch) && (c != '\0')); if (c == ch) return(i); else return (0); } char *unix2vms(char *file) { int i,device,j,first,last; static char vms_name[80]; char ch; if (locate('[',file)) return(file); /* vms_name syntax */ if (!locate('/',file)) return(file); /* vms_name syntax */ /* search for the ':' which means a device is present */ device = locate(':',file); i = 0; if (device) { while (ch = file[i], i < device) vms_name[i++] = ch; } j = i; /* go from the end looking for a '/' and mark it */ i = strlen(file) - 1; while(ch = file[i], ch != '/' && i-- >= 0); if (ch == '/') { file[i] = ']'; last = 0; } else last = 1; i = j; vms_name[j++] = '['; vms_name[j++] = '.'; first = 0; while(ch = file[i++], ch != '\0') { switch (ch) { case '.': if (last) vms_name[j++] = '.'; if (last) break; ch = file[i++]; if (ch == '.') { if (!first) j--; /* overwrite the dot */ vms_name[j++] = '-'; } else if (ch == '/'); /* './' combinations-- do nothing */ else if (ch == ']') { last = 1; if (vms_name[j-1] == '.') j--; vms_name[j++] = ']'; } else vms_name[j++] = '.'; break; case '/': if (first) { vms_name[j++] = '.'; } else { first = 1; /* if '/' is first char or follows a colon do nothing */ if ((i!=1) && (file[i-2] != ':')) { vms_name[j++] = '.'; } else j--; /* overwrite the '.' following '[' */ } break; case ']': last = 1; if (vms_name[j-1] == '.') j--; vms_name[j++] = ']'; break; default: vms_name[j++] = ch; } } return (vms_name); } void define_logical_name (char *varname, char *string) { struct dsc$descriptor_s strdsc, envdsc, lnmdsc; strdsc.dsc$w_length = strlen (string); strdsc.dsc$b_dtype = DSC$K_DTYPE_T; strdsc.dsc$b_class = DSC$K_CLASS_S; strdsc.dsc$a_pointer = string; envdsc.dsc$w_length = strlen (varname); envdsc.dsc$b_dtype = DSC$K_DTYPE_T; envdsc.dsc$b_class = DSC$K_CLASS_S; envdsc.dsc$a_pointer = varname; lnmdsc.dsc$w_length = 7; lnmdsc.dsc$b_dtype = DSC$K_DTYPE_T; lnmdsc.dsc$b_class = DSC$K_CLASS_S; lnmdsc.dsc$a_pointer = "LNM$JOB"; lib$set_logical (&envdsc, &strdsc, &lnmdsc, 0, 0); } void delete_logical_name (char *varname) { struct dsc$descriptor_s envdsc, lnmdsc; envdsc.dsc$w_length = strlen (varname); envdsc.dsc$b_dtype = DSC$K_DTYPE_T; envdsc.dsc$b_class = DSC$K_CLASS_S; envdsc.dsc$a_pointer = varname; lnmdsc.dsc$w_length = 7; lnmdsc.dsc$b_dtype = DSC$K_DTYPE_T; lnmdsc.dsc$b_class = DSC$K_CLASS_S; lnmdsc.dsc$a_pointer = "LNM$JOB"; lib$delete_logical (&envdsc, &lnmdsc); } int do_attach_cmd() { unsigned long pid; char *pidstr; if((pidstr = getenv("JED_ATTACH_TO")) != NULL) { delete_logical_name("JED_ATTACH_TO"); (void) sscanf(pidstr,"%X",&pid); if (lib$attach(&pid) == SS$_NORMAL) return(1); else return(0); } else return(0); } unsigned long SHELL_PID = 0; /* here we try to attach to the parent otherwise just spawn a new one */ void sys_suspend() { unsigned long parent_pid; unsigned long status = 0; char str[80]; cancel_ast (); parent_pid = getppid(); /* try to attach to different process */ if (do_attach_cmd()) status = SS$_NORMAL; else if (parent_pid && parent_pid != 0xffffffff) /* we attach to parent */ status = lib$attach(&parent_pid); else if (SHELL_PID && SHELL_PID != 0xffffffff) /* try to attach to previous shell */ status = lib$attach (&SHELL_PID); if (status != SS$_NORMAL) /* others fail so spawn a new shell */ { status = 0; SLtt_write_string("Spawning Subprocess...\n"); flush_output (); status = lib$spawn(0,0,0,0,0,&SHELL_PID,0); /* if we attach back, status may come back unchanged */ if (!(status & 1)) /* Thanks to Hunter Goatley for this suggestion */ { sprintf(str,"Unable to spawn subprocess. Error = X%X (%d)", status, status); msg_error(str); return; } } /* if((file = getenv("JED_FILE_NAME")) != NULL) { find_file_cmd(file); delete_logical_name ("JED_FILE_NAME"); } */ } /* returns 0 on success, -1 on syntax error -2 on bad dir, -3 on bad device, 1 if something else */ int vms_parse_file(char *old) { struct FAB fab = cc$rms_fab; struct NAM nam = cc$rms_nam; char neew[256]; int status; fab.fab$l_fna = old; fab.fab$b_fns = strlen(old); fab.fab$b_dns = 0; fab.fab$w_ifi = 0; fab.fab$l_nam = &nam; nam.nam$l_esa = neew; nam.nam$b_ess = 255; nam.nam$b_nop = NAM$V_SYNCHK; /* syntax only */ nam.nam$l_rlf = 0; status = sys$parse(&fab); neew[nam.nam$b_esl] = 0; strcpy(old, neew); while(*old != 0) { if ((*old == ';') && (*(old + 1) == 0)) *old = 0; else { if ((*old >= 'A') && (*old <= 'Z')) *old |= 0x20; old++; } } switch(status) { case RMS$_NORMAL: return 0; case RMS$_SYN: return -1; case RMS$_DNF: return -2; case RMS$_DEV: return -3; return 1; } } char *expand_filename(char *file) { char *p, *p1, *dir; static char work[300]; int len; strcpy(work, get_cwd()); strcat(work, file); file = work; /* start at end and look for ']' then look for ':' */ if (0 == (len = strlen(file))) return(file); p = file + (len - 1); while (p >= file) if (*p-- == ':') { while((p >= file) && (*p != ':') && (*p != ']')) p--; p++; p1 = file; while(*p) *p1++ = *p++; *p1 = 0; break; } dir = p = p1 = file; /* look for the start of the path */ while (*p != 0) { if (*p == ':') { p++; if (*p == ':') { p++; } dir = p; break; } if (*p == '[') { dir = p++; break; } p++; } p1 = p = dir; while (*p != 0) { if (*p == '[') { /* if (*(p + 1) == '-') */ p1 = dir; } if (p1 != p) *p1 = *p; p1++; p++; } *p1 = 0; switch(vms_parse_file(file)) { case 0: break; case -1: msg_error("Filename syntax error."); break; case -2: msg_error("Directory does not exist!"); msg_error (file); break; case -3: msg_error("Bad device name."); break; default: msg_error ("Unknown directory error:"); msg_error (file); } p = file; while(*p != 0) if (*p++ == ']') { if ((*p == '.') && (*(p + 1) == 0)) *p = 0; break; } return(file); } int vms_expand_filename(char *file,char *expanded_file) { static int context = 0; static char inputname[256] = ""; $DESCRIPTOR(file_desc,inputname); $DESCRIPTOR(default_dsc,"SYS$DISK:[]*.*;"); static struct dsc$descriptor_s result = {0, DSC$K_DTYPE_T, DSC$K_CLASS_D, NULL}; if (strcmp(inputname, file)) { if (context) { lib$find_file_end(&context); } context = 0; strcpy(inputname, file); file_desc.dsc$w_length = strlen(inputname); } if (RMS$_NORMAL == lib$find_file(&file_desc,&result,&context, &default_dsc,0,0,&Number_Zero)) { MEMCPY(expanded_file, result.dsc$a_pointer, result.dsc$w_length); expanded_file[result.dsc$w_length] = '\0'; return (1); } else { /* expanded_file[0] = '\0'; */ /* so file comes back as zero width */ return(0); } } static int context = 0; static char inputname[256] = ""; $DESCRIPTOR(file_desc,inputname); $DESCRIPTOR(default_dsc,"SYS$DISK:[]*.*;"); static char *VMS_Star; int sys_findnext(char *file) { char *f; static struct dsc$descriptor_s result = {0, DSC$K_DTYPE_T, DSC$K_CLASS_D, NULL}; if (RMS$_NORMAL == lib$find_file(&file_desc,&result,&context, &default_dsc,0,0,&Number_Zero)) { MEMCPY(file, result.dsc$a_pointer, result.dsc$w_length); file[result.dsc$w_length] = 0; f = &file[result.dsc$w_length]; if (*VMS_Star) { while ((f > file) && (*f != ';')) f--; if (*f == ';') *f = 0; } return (1); } else return(0); } int sys_findfirst(char *thefile) { char *f, *f1, *s2 = "*.*"; char *file; file = thefile; f = extract_file(file); while (*f && (*f != '*')) f++; VMS_Star = ""; /* let user choose what to match with or take mine */ if (! *f) { f = extract_file(file); while (*f && (*f != '.')) f++; if (*f) VMS_Star = "*"; else VMS_Star = s2; file = expand_filename(thefile); f = f1 = extract_file(file); if (VMS_Star == s2) { while (*f && (*f != '.')) f++; *f = 0; } else { while (*f1 && (*f1 != ';')) f1++; *f1 = 0; } strcpy(thefile, file); } strcpy(inputname, file); if (*VMS_Star) strcat(inputname, VMS_Star); file_desc.dsc$w_length = strlen(inputname); if (context) lib$find_file_end(&context); context = 0; return sys_findnext(thefile); } #include /* returns 0 if file does not exist, 1 if it is not a dir, 2 if it is */ int sys_chmod(char *file, int what, int *mode, short *uid, short *gid) { struct stat buf; int m; if (stat(file, &buf) < 0) switch (errno) { case EACCES: return(-1); /* es = "Access denied."; break; */ case ENOENT: return(0); /* ms = "File does not exist."; */ case ENOTDIR: return(-2); /* es = "Invalid Path."; */ default: return(-3); /* "stat: unknown error."; break;*/ } m = buf.st_mode; (void) uid; (void) gid; *mode = m & 0777; if (m & S_IFDIR) return (2); return(1); } #if 0 switch(vms_parse_file(file)) { case 0: break; case -1: /* Filename syntax error. */ case -2: return(-2); /* Directory does not exist! */ case 1: case -3: return(-3); /* Bad device name. */ default: return(-3); } return(1); #endif unsigned long sys_file_mod_time(char *file) { struct stat buf; if (stat(file, &buf) < 0) return(0); return((unsigned long) buf.st_mtime); } int rmdir (char *d) { return(-1); } turn (2); return(1); } #if 0 switch(vms_parse_file(file)) { case 0: break; case -1: /* Filename syntax error. */ case -2: return(-2); /* Directory does not exist! */ case 1: case -3: return(-3); /* Bad device namjed-0.97.12/src/vmshelp.c000064400000000000003000000101220603742313700147020ustar00rootsys00000000000000 /* vms_get_help.c */ #include #include #include /* Not all systems have this (GCC) so I am not using it. */ /* #include */ #define HLP$M_PROMPT 1 #define HLP$M_LIBLIST 16 #include "slang.h" #include "buffer.h" #include "ins.h" #include "cmds.h" /* Need to pass strings by descriptor to LBR$OUTPUT_HELP; */ /* string descriptors in SYS$LIBRARY:DESCRIP.H. */ /* Change definition of $DESCRIPTOR macro. In descrip.h, */ /* sizeof(string)-1 used, but sizeof() bites on strings */ /* with spaces, or with '$'. That means that the filename */ /* might be truncated (i.e., 'SYS$HELP:HELPLIB.OLB' */ /* becomes 'SYS'). Ditto the topic (i.e., 'SET HOST /LOG' */ /* becomes 'SET'). */ #define $STR_DESC(x,y) \ (x).dsc$w_length = strlen(y);\ (x).dsc$b_dtype = DSC$K_DTYPE_T;\ (x).dsc$b_class = DSC$K_CLASS_S;\ (x).dsc$a_pointer = (y) /*--------------------------------------------------------------*/ /* */ /* vms_get_help: call the librarian utility to get help */ /* */ /* input: */ /* char helpfile - name of the help file to use */ /* char helptopic - name of topic to use initially */ /* (Since HLP$M_PROMPT is set, user will */ /* get interactive prompting once in.) */ /* returns: */ /* int - 0 for failure, 1 for success */ /* */ /* Translated from a FORTRAN subroutine. That subroutine */ /* was gutted from several of J.W. Pflugrath's routines */ /* for I/O, et cetera. */ /* */ /* Jim Clifton Brandeis University */ /* J.W. Pflugrath Cold Spring Harbor Laboratory */ /* */ /*--------------------------------------------------------------*/ int vms_get_help(char *helpfile, char *helptopic) { int LBR$OUTPUT_HELP(), output_help_to_buf(), input_new_helptopic(); int istat; unsigned int flags; struct dsc$descriptor_s topnam, filnam; $STR_DESC(topnam,helptopic); $STR_DESC(filnam,helpfile); flags = HLP$M_PROMPT; istat = LBR$OUTPUT_HELP(&output_help_to_buf, 0, /* output width 0 is 80 */ &topnam, /* topic */ &filnam, /* lib file */ &flags, /* Also try: M_LIBLIST M_HELP */ &input_new_helptopic); if (istat != 1) return 0; return 1; } /*----------------------------------------------------------------------*/ /* */ /* Here we mimic the syntax of LIB$PUT_OUTPUT */ /* */ /* VMS system procedures (including the RTL) pass strings by */ /* descriptor. That's what LBR$OUTPUT_HELP expects (demands!). This */ /* routine (and the next) just function to integrate LBR$OUTPUT_HELP */ /* I/O into jed I/O. */ /* */ /* Jim Clifton Brandeis University */ /* */ /*----------------------------------------------------------------------*/ int output_help_to_buf(struct dsc$descriptor_s *string) { ins_chars((unsigned char *) string->dsc$a_pointer, string->dsc$w_length); newline (); return(1); /* should add codes that LIB$PUT_OUTPUT can return */ } /*----------------------------------------------------------------------*/ /* */ /* Mimic the syntax of LIB$GET_INPUT() */ /* */ /* Note that the first 2 characters of the LBR$OUTPUT_HELP prompt are */ /* "^M^J", so we send read_from_minibuffer the address of the 3rd char. */ /* */ /* Jim Clifton Brandeis University */ /* */ /*----------------------------------------------------------------------*/ int input_new_helptopic(struct dsc$descriptor_s *newtopic, struct dsc$descriptor_s *prompt, unsigned int *len_newtopic) { char *newtop, promp[80]; int dofree = 0; strncpy(promp,prompt->dsc$a_pointer,prompt->dsc$w_length); promp[prompt->dsc$w_length] = 0; if (!SLang_run_hooks("vms_help_newtopic", promp + 2, NULL) || SLang_pop_string(&newtop, &dofree)) newtop = ""; strcpy(newtopic->dsc$a_pointer,newtop); *len_newtopic = newtopic->dsc$w_length = strlen(newtop); newtopic->dsc$b_dtype = DSC$K_DTYPE_T; newtopic->dsc$b_class = DSC$K_CLASS_S; if (dofree == 1) SLFREE(newtop); return(1); /* should add codes that LIB$GET_INPUT can return */ } (promp,prompt->dsc$a_pointer,prompt->dsc$w_length); promp[prompt->dsc$w_length] = 0; if (!SLang_run_hooks("vms_help_newtopic", promp + 2, NULL) || SLang_pop_string(&newtop, &dofree)) newtop = ""; strcpy(newtopic->dsc$a_pointer,newtop); *len_newtopic = newtopic->dsc$w_length = strlen(newtop); newtopic->dsc$b_dtype = DSC$K_DTYPE_T; newtopic->dsc$b_class = DSC$K_CLASS_S; if (dofree == 1) SLFREE(njed-0.97.12/src/vmsmail.c000064400000000000003000000050600603742313700147010ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include #include "config.h" #include "buffer.h" #include "vmsmail.h" extern int mail$send_add_bodypart (); extern int mail$send_begin (); extern int mail$send_add_attribute (); extern int mail$send_add_address (); extern int mail$send_message (); extern int mail$send_end (); void fill_struct(Mail_Type *m, int act, char *s) { m->code = act; m->buflen = strlen(s); m->addr = (long) s; m->junk = m->ret = 0; } int vms_send_buffer(int *context, Mail_Type *mt0, Buffer *b) { Mail_Type m; Line *l = b->beg; int n = 0, len; unsigned char *p; while (l != NULL) { m.code = MAIL$_SEND_RECORD; len = l->len; p = l->data; if (len && ('\n' == *(p + (int)(len - 1)))) len--; m.buflen = len; m.addr = (long) p; m.junk = m.ret = 0; if (SS$_NORMAL != mail$send_add_bodypart(context, &m, mt0)) return(0); l = l->next; n++; } return(n); } /* to might be a comma separated list--- parse it too */ int vms_send_mail(char *to, char *subj) { Mail_Type mt0, mt; int context = 0; char *p; mt0.code = mt0.buflen = mt0.addr = mt0.ret = mt0.junk = 0; if (SS$_NORMAL != mail$send_begin(&context, &mt0, &mt0)) { return(0); } #if 0 fill_struct(&mt, MAIL$_SEND_TO_LINE, to); if (SS$_NORMAL != mail$send_add_attribute(&context, &mt, &mt0)) { return(0); } fill_struct(&mt, MAIL$_SEND_USERNAME, to); if (SS$_NORMAL != mail$send_add_address(&context, &mt, &mt0)) { return(0); } #endif while (1) { while (*to && ((*to <= ' ') || (*to == ','))) to++; if (*to == 0) break; p = to; while ((*p > ' ') && (*p != ',')) p++; mt.code = MAIL$_SEND_TO_LINE; mt.buflen = p - to; mt.ret = mt.junk = 0; mt.addr = (long) to; if (SS$_NORMAL != mail$send_add_attribute(&context, &mt, &mt0)) { return(0); } mt.code = MAIL$_SEND_USERNAME; mt.buflen = p - to; mt.ret = mt.junk = 0; mt.addr = (long) to; if (SS$_NORMAL != mail$send_add_address(&context, &mt, &mt0)) { return(0); } to = p; } fill_struct(&mt, MAIL$_SEND_SUBJECT, subj); if (SS$_NORMAL != mail$send_add_attribute(&context, &mt, &mt0)) { return(0); } if (!vms_send_buffer(&context, &mt0, CBuf)) { return(0); } if (SS$_NORMAL != mail$send_message(&context, &mt0, &mt0)) { return(0); } if (SS$_NORMAL != mail$send_end(&context, &mt0, &mt0)) { return(0); } return(1); } MAL != mail$send_add_address(&context, &mt, &mt0)) { return(0); } to = p; } fill_struct(&mt, MAIL$_SEND_SUBJECT, subj); if (SS$_NORMAL != mail$send_add_attribute(&context, &mt, &mt0)) { return(0); } if (!vms_send_buffer(&context, &mt0, CBuf)) { return(0); } if (SS$_NORMAL != mail$send_message(&context, &mt0, &mt0)) { return(0); } if (SS$_NORMAL != mail$send_end(&context, &mt0, &mjed-0.97.12/src/vmsmail.h000064400000000000003000000551130603742314000147040ustar00rootsys00000000000000/* * Copyright (c) 1993, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ typedef struct Mail_Type { unsigned short buflen; unsigned short code; long addr; long ret, junk; } Mail_Type; /* Created by SDL V3.1-7 */ /* Source: 8-AUG-1988 10:36:21 */ #ifndef $MAILDEF_H #define $MAILDEF_H /*** MODULE $MAILDEF ***/ /* */ /* Definitions needed for callable mail. */ /* */ /* */ /* NOTE: New item codes must be appended to the end of */ /* each category so users will not have to relink. */ /* We allow 1024 entries in eatch category. */ /* */ /* */ /* Send input codes */ /* */ #define MAIL$_SEND_SPARE_0 1 #define MAIL$_SEND_FOREIGN 2 /* Send foreign format message */ #define MAIL$_SEND_CC_LINE 3 /* CC text specification */ #define MAIL$_SEND_DEFAULT_NAME 4 /* Default file name for send */ #define MAIL$_SEND_DEFAULT_TRANSPORT 5 /* Default transport used for addressees */ #define MAIL$_SEND_ERROR_ENTRY 6 /* Entry point for send error routine */ #define MAIL$_SEND_FILENAME 7 /* Specification of file name to send */ #define MAIL$_SEND_FROM_LINE 8 /* From text specification */ #define MAIL$_SEND_NO_DEFAULT_TRANSPORT 9 /* Don't use any default transport on send */ #define MAIL$_SEND_PERS_NAME 10 /* Personal name text for message */ #define MAIL$_SEND_RECORD 11 /* Record to be sent */ #define MAIL$_SEND_RESULTSPEC 12 /* Resultant filespec bodypart */ #define MAIL$_SEND_SERVER 13 /* Operate in server mode (signal success) */ #define MAIL$_SEND_SUBJECT 14 /* Subject text specification */ #define MAIL$_SEND_SUCCESS_ENTRY 15 /* Entry point for send success routine */ #define MAIL$_SEND_TO_LINE 16 /* To line text specification */ #define MAIL$_SEND_UFLAGS 17 /* User flags (for header) to send */ #define MAIL$_SEND_USER_DATA 18 /* User specified context for action routines */ #define MAIL$_SEND_USERNAME 19 /* Username to add to the "To" list */ #define MAIL$_SEND_USERNAME_TYPE 20 /* Username type - TO or CC */ #define MAIL$_SEND_FID 21 /* FID of file to send */ #define MAIL$_SEND_NO_PERS_NAME 22 /* Send message without personal name */ #define MAIL$_SEND_IN_SPARE3 23 #define MAIL$_SEND_IN_SPARE4 24 #define MAIL$_SEND_IN_SPARE5 25 /* */ /* Send output codes */ /* */ #define MAIL$_SEND_COPY_REPLY 26 /* Copy self reply set in profile */ #define MAIL$_SEND_COPY_SEND 27 /* Copy self send set in profile */ #define MAIL$_SEND_USER 28 /* Username of caller */ #define MAIL$_SEND_COPY_FORWARD 29 /* Copy self forward set in profile */ #define MAIL$_SEND_OUT_SPARE2 30 #define MAIL$_SEND_OUT_SPARE3 31 #define MAIL$_SEND_OUT_SPARE4 32 #define MAIL$_SEND_OUT_SPARE5 33 #define MAIL$K_SEND_MIN_ITEM 1 #define MAIL$K_SEND_MAX_ITEM 33 #define MAIL$K_SEND_ITEMS 33 /* */ /* file input codes */ /* */ #define MAIL$_MAILFILE_SPARE_0 1025 #define MAIL$_MAILFILE_DEFAULT_NAME 1026 /* Default filespec to open */ #define MAIL$_MAILFILE_FOLDER_ROUTINE 1027 /* Entry point of routine to process foldernames */ #define MAIL$_MAILFILE_FULL_CLOSE 1028 /* Do a PURGE, CONVERT/RECLAIM if necessary on close */ #define MAIL$_MAILFILE_NAME 1029 /* File spec to open */ #define MAIL$_MAILFILE_RECLAIM 1030 /* Do RECLAIM on PURGE command */ #define MAIL$_MAILFILE_USER_DATA 1031 /* User specified context for action routines */ #define MAIL$_MAILFILE_WASTEBASKET_NAME 1032 /* New wastebasket name for file */ #define MAIL$_MAILFILE_IN_SPARE1 1033 #define MAIL$_MAILFILE_IN_SPARE2 1034 #define MAIL$_MAILFILE_IN_SPARE3 1035 #define MAIL$_MAILFILE_IN_SPARE4 1036 #define MAIL$_MAILFILE_IN_SPARE5 1037 #define MAIL$_MAILFILE_IN_SPARE6 1038 #define MAIL$_MAILFILE_IN_SPARE7 1039 #define MAIL$_MAILFILE_IN_SPARE8 1040 #define MAIL$_MAILFILE_IN_SPARE9 1041 #define MAIL$_MAILFILE_IN_SPARE10 1042 #define MAIL$_MAILFILE_IN_SPARE11 1043 #define MAIL$_MAILFILE_IN_SPARE12 1044 #define MAIL$_MAILFILE_IN_SPARE13 1045 #define MAIL$_MAILFILE_IN_SPARE14 1046 #define MAIL$_MAILFILE_IN_SPARE15 1047 #define MAIL$_MAILFILE_IN_SPARE16 1048 #define MAIL$_MAILFILE_IN_SPARE17 1049 #define MAIL$_MAILFILE_IN_SPARE18 1050 #define MAIL$_MAILFILE_IN_SPARE19 1051 #define MAIL$_MAILFILE_IN_SPARE20 1052 /* */ /* file output codes */ /* */ #define MAIL$_MAILFILE_DATA_RECLAIM 1053 /* Number of data buckets reclaimed */ #define MAIL$_MAILFILE_DATA_SCAN 1054 /* Number of data buckets scanned */ #define MAIL$_MAILFILE_DELETED_BYTES 1055 /* Number of free bytes in mail file */ #define MAIL$_MAILFILE_INDEX_RECLAIM 1056 /* Number of index buckets reclaimed */ #define MAIL$_MAILFILE_MAIL_DIRECTORY 1057 /* Mail sub-directory specification */ #define MAIL$_MAILFILE_MESSAGES_DELETED 1058 /* Number of messages deleted */ #define MAIL$_MAILFILE_RESULTSPEC 1059 /* Resultant file spec */ #define MAIL$_MAILFILE_TOTAL_RECLAIM 1060 /* Total buckets reclaimed */ #define MAIL$_MAILFILE_WASTEBASKET 1061 /* Wastebasket name */ #define MAIL$_MAILFILE_INDEXED 1062 /* ISAM file */ #define MAIL$_MAILFILE_OUT_SPARE2 1063 #define MAIL$_MAILFILE_OUT_SPARE3 1064 #define MAIL$_MAILFILE_OUT_SPARE4 1065 #define MAIL$_MAILFILE_OUT_SPARE5 1066 #define MAIL$_MAILFILE_OUT_SPARE6 1067 #define MAIL$_MAILFILE_OUT_SPARE7 1068 #define MAIL$_MAILFILE_OUT_SPARE8 1069 #define MAIL$_MAILFILE_OUT_SPARE9 1070 #define MAIL$_MAILFILE_OUT_SPARE10 1071 #define MAIL$_MAILFILE_OUT_SPARE11 1072 #define MAIL$_MAILFILE_OUT_SPARE12 1073 #define MAIL$_MAILFILE_OUT_SPARE13 1074 #define MAIL$_MAILFILE_OUT_SPARE14 1075 #define MAIL$_MAILFILE_OUT_SPARE15 1076 #define MAIL$_MAILFILE_OUT_SPARE16 1077 #define MAIL$_MAILFILE_OUT_SPARE17 1078 #define MAIL$_MAILFILE_OUT_SPARE18 1079 #define MAIL$_MAILFILE_OUT_SPARE19 1080 #define MAIL$_MAILFILE_OUT_SPARE20 1081 #define MAIL$K_MAILFILE_MIN_ITEM 1025 #define MAIL$K_MAILFILE_MAX_ITEM 1081 #define MAIL$K_MAILFILE_ITEMS 57 /* */ /* message input codes */ /* */ #define MAIL$_MESSAGE_SPARE_0 2048 #define MAIL$_MESSAGE_BACK 2049 /* Get previous message */ #define MAIL$_MESSAGE_BEFORE 2050 /* Select messages BEFORE date */ #define MAIL$_MESSAGE_CC_SUBSTRING 2051 /* Select messages containing CC substring */ #define MAIL$_MESSAGE_CONTINUE 2052 /* Read next record */ #define MAIL$_MESSAGE_FILE_ACTION 2053 /* File create action routine */ #define MAIL$_MESSAGE_FOLDER_ACTION 2054 /* Folder create action routine */ #define MAIL$_MESSAGE_DEFAULT_NAME 2055 /* Default file name */ #define MAIL$_MESSAGE_DELETE 2056 /* Delete message */ #define MAIL$_MESSAGE_ERASE 2057 /* Erase message */ #define MAIL$_MESSAGE_FILE_CTX 2058 /* File level context */ #define MAIL$_MESSAGE_FILENAME 2059 /* File name specification */ #define MAIL$_MESSAGE_FLAGS 2060 /* Header flags specification */ #define MAIL$_MESSAGE_FOLDER 2061 /* Folder name specification */ #define MAIL$_MESSAGE_FROM_SUBSTRING 2062 /* Select messages containing FROM substring */ #define MAIL$_MESSAGE_ID 2063 /* ID of message */ #define MAIL$_MESSAGE_NEXT 2064 /* Retrive NEXT message */ #define MAIL$_MESSAGE_SINCE 2065 /* Select messages SINCE date */ #define MAIL$_MESSAGE_SUBJ_SUBSTRING 2066 /* Select messages containing SUBJ substring */ #define MAIL$_MESSAGE_TO_SUBSTRING 2067 /* Select messages containing TO substring */ #define MAIL$_MESSAGE_UFLAGS 2068 /* User flags specification */ #define MAIL$_MESSAGE_AUTO_NEWMAIL 2069 /* Move newmail to MAIL auto */ #define MAIL$_MESSAGE_USER_DATA 2070 /* User context for action routines */ #define MAIL$_MESSAGE_FLAGS_MBZ 2071 /* Select messages with these flags set at zero */ #define MAIL$_MESSAGE_MIN_CLASS 2072 /* Min access class for message */ #define MAIL$_MESSAGE_MAX_CLASS 2073 /* Max access class for message */ #define MAIL$_MESSAGE_IN_SPARE1 2074 #define MAIL$_MESSAGE_IN_SPARE2 2075 #define MAIL$_MESSAGE_IN_SPARE3 2076 #define MAIL$_MESSAGE_IN_SPARE4 2077 #define MAIL$_MESSAGE_IN_SPARE5 2078 #define MAIL$_MESSAGE_IN_SPARE6 2079 #define MAIL$_MESSAGE_IN_SPARE7 2080 #define MAIL$_MESSAGE_IN_SPARE8 2081 #define MAIL$_MESSAGE_IN_SPARE9 2082 #define MAIL$_MESSAGE_IN_SPARE10 2083 #define MAIL$_MESSAGE_IN_SPARE11 2084 #define MAIL$_MESSAGE_IN_SPARE12 2085 #define MAIL$_MESSAGE_IN_SPARE13 2086 #define MAIL$_MESSAGE_IN_SPARE14 2087 #define MAIL$_MESSAGE_IN_SPARE15 2088 #define MAIL$_MESSAGE_IN_SPARE16 2089 #define MAIL$_MESSAGE_IN_SPARE17 2090 #define MAIL$_MESSAGE_IN_SPARE18 2091 #define MAIL$_MESSAGE_IN_SPARE19 2092 #define MAIL$_MESSAGE_IN_SPARE20 2093 /* */ /* message output codes */ /* */ #define MAIL$_MESSAGE_CC 2094 /* CC text of message */ #define MAIL$_MESSAGE_CURRENT_ID 2095 /* ID of current message */ #define MAIL$_MESSAGE_DATE 2096 /* Date of current message */ #define MAIL$_MESSAGE_EXTID 2097 /* Filespec of external message */ #define MAIL$_MESSAGE_FILE_CREATED 2098 /* Mailfile created... */ #define MAIL$_MESSAGE_FOLDER_CREATED 2099 /* Folder created... */ #define MAIL$_MESSAGE_FROM 2100 /* From text of message */ #define MAIL$_MESSAGE_RECORD 2101 /* Record from message */ #define MAIL$_MESSAGE_RECORD_TYPE 2102 /* Type of record, header or text */ #define MAIL$_MESSAGE_REPLY_PATH 2103 /* Reply path of sender */ #define MAIL$_MESSAGE_RESULTSPEC 2104 /* Resultant file spec */ #define MAIL$_MESSAGE_RETURN_FLAGS 2105 /* Message header system flags */ #define MAIL$_MESSAGE_RETURN_UFLAGS 2106 /* Message header user flags */ #define MAIL$_MESSAGE_SELECTED 2107 /* Number of messages selected */ #define MAIL$_MESSAGE_SENDER 2108 /* Sender name */ #define MAIL$_MESSAGE_SIZE 2109 /* Size of the current message */ #define MAIL$_MESSAGE_SUBJECT 2110 /* Subject text of the message */ #define MAIL$_MESSAGE_TO 2111 /* To text of the message */ #define MAIL$_MESSAGE_BUFFER 2112 /* Buffer address */ #define MAIL$_MESSAGE_RETURN_CLASS 2113 /* Class of current message */ #define MAIL$_MESSAGE_BINARY_DATE 2114 /* Binary date/time quadword */ #define MAIL$_MESSAGE_SPARE4 2115 #define MAIL$_MESSAGE_SPARE5 2116 #define MAIL$_MESSAGE_SPARE6 2117 #define MAIL$_MESSAGE_SPARE7 2118 #define MAIL$_MESSAGE_SPARE8 2119 #define MAIL$_MESSAGE_SPARE9 2120 #define MAIL$_MESSAGE_SPARE10 2121 #define MAIL$_MESSAGE_SPARE11 2122 #define MAIL$_MESSAGE_SPARE12 2123 #define MAIL$_MESSAGE_SPARE13 2124 #define MAIL$_MESSAGE_SPARE14 2125 #define MAIL$_MESSAGE_SPARE15 2126 #define MAIL$_MESSAGE_SPARE16 2127 #define MAIL$_MESSAGE_SPARE17 2128 #define MAIL$_MESSAGE_SPARE18 2129 #define MAIL$_MESSAGE_SPARE19 2130 /* */ /* Constants returned */ /* */ #define MAIL$_MESSAGE_NULL 2131 /* Null bodypart */ #define MAIL$_MESSAGE_HEADER 2132 /* Header record returned */ #define MAIL$_MESSAGE_TEXT 2133 /* Text record returned */ #define MAIL$_MESSAGE_SPARE20 2134 #define MAIL$K_MESSAGE_MIN_ITEM 2048 #define MAIL$K_MESSAGE_MAX_ITEM 2134 #define MAIL$K_MESSAGE_ITEMS 87 /* */ /* user input codes */ /* */ #define MAIL$_USER_SPARE_0 3072 #define MAIL$_USER_FIRST 3073 /* Retrive first user record */ #define MAIL$_USER_NEXT 3074 /* Retrive next user record */ #define MAIL$_USER_USERNAME 3075 /* Retrive record for username */ #define MAIL$_USER_SET_AUTO_PURGE 3076 /* Set auto-purge */ #define MAIL$_USER_SET_NO_AUTO_PURGE 3077 /* Clear auto-purge */ #define MAIL$_USER_SET_SUB_DIRECTORY 3078 /* Set sub-dir field */ #define MAIL$_USER_SET_NO_SUB_DIRECTORY 3079 /* Clear sub-dir field */ #define MAIL$_USER_SET_FORWARDING 3080 /* Set forwarding address */ #define MAIL$_USER_SET_NO_FORWARDING 3081 /* Clear forwarding address */ #define MAIL$_USER_SET_PERSONAL_NAME 3082 /* Set personal name */ #define MAIL$_USER_SET_NO_PERSONAL_NAME 3083 /* Clear personal name */ #define MAIL$_USER_SET_COPY_SEND 3084 /* Set copy-send */ #define MAIL$_USER_SET_NO_COPY_SEND 3085 /* Clear copy send */ #define MAIL$_USER_SET_COPY_REPLY 3086 /* Set copy reply */ #define MAIL$_USER_SET_NO_COPY_REPLY 3087 /* Clear copy reply */ #define MAIL$_USER_SET_NEW_MESSAGES 3088 /* Set new message count */ #define MAIL$_USER_CREATE_IF 3089 /* Create record if does not exist */ #define MAIL$_USER_SET_MAILPLUS 3090 /* Set M+ */ #define MAIL$_USER_SET_NO_MAILPLUS 3091 /* Clear M+ */ #define MAIL$_USER_SET_TRANSPORT 3092 /* Set transport field */ #define MAIL$_USER_SET_NO_TRANSPORT 3093 /* Clear transport field */ #define MAIL$_USER_SET_EDITOR 3094 /* Set editor field */ #define MAIL$_USER_SET_NO_EDITOR 3095 /* Clear editor field */ #define MAIL$_USER_SET_QUEUE 3096 /* Set queue field */ #define MAIL$_USER_SET_NO_QUEUE 3097 /* Clear queue field */ #define MAIL$_USER_SET_USER1 3098 /* Set user1 field */ #define MAIL$_USER_SET_NO_USER1 3099 /* Clear user1 field */ #define MAIL$_USER_SET_USER2 3100 /* Set user2 field */ #define MAIL$_USER_SET_NO_USER2 3101 /* Clear user2 field */ #define MAIL$_USER_SET_USER3 3102 /* Set user3 field */ #define MAIL$_USER_SET_NO_USER3 3103 /* Clear user3 field */ #define MAIL$_USER_SET_FORM 3104 /* Set form field */ #define MAIL$_USER_SET_NO_FORM 3105 /* Clear form field */ #define MAIL$_USER_SET_COPY_FORWARD 3106 /* Set copy self forward */ #define MAIL$_USER_SET_NO_COPY_FORWARD 3107 /* Clear copy self forward */ #define MAIL$_USER_SET_CC_PROMPT 3108 /* Set CC prompting */ #define MAIL$_USER_SET_NO_CC_PROMPT 3109 /* Clear CC prompting */ #define MAIL$_USER_SET_SPARE3 3110 #define MAIL$_USER_SET_NO_SPARE3 3111 #define MAIL$_USER_IN_SPARE1 3112 #define MAIL$_USER_IN_SPARE2 3113 #define MAIL$_USER_IN_SPARE3 3114 #define MAIL$_USER_IN_SPARE4 3115 #define MAIL$_USER_IN_SPARE5 3116 #define MAIL$_USER_IN_SPARE6 3117 #define MAIL$_USER_IN_SPARE7 3118 #define MAIL$_USER_IN_SPARE8 3119 #define MAIL$_USER_IN_SPARE9 3120 #define MAIL$_USER_IN_SPARE10 3121 #define MAIL$_USER_IN_SPARE11 3122 #define MAIL$_USER_IN_SPARE12 3123 #define MAIL$_USER_IN_SPARE13 3124 #define MAIL$_USER_IN_SPARE14 3125 #define MAIL$_USER_IN_SPARE15 3126 #define MAIL$_USER_IN_SPARE16 3127 #define MAIL$_USER_IN_SPARE17 3128 #define MAIL$_USER_IN_SPARE18 3129 #define MAIL$_USER_IN_SPARE19 3130 #define MAIL$_USER_IN_SPARE20 3131 /* */ /* Output item parameters */ /* */ #define MAIL$_USER_MAILPLUS 3132 /* M+ field */ #define MAIL$_USER_TRANSPORT 3133 /* Transport field */ #define MAIL$_USER_EDITOR 3134 /* Editor field */ #define MAIL$_USER_QUEUE 3135 /* Queue field */ #define MAIL$_USER_USER1 3136 /* User1 field */ #define MAIL$_USER_USER2 3137 /* User2 field */ #define MAIL$_USER_USER3 3138 /* User3 field */ #define MAIL$_USER_FORM 3139 /* Form field */ #define MAIL$_USER_COPY_FORWARD 3140 /* Copy forward flag */ #define MAIL$_USER_SPARE3 3141 #define MAIL$_USER_RETURN_USERNAME 3142 /* Username of current record */ #define MAIL$_USER_AUTO_PURGE 3143 /* Auto purge flag */ #define MAIL$_USER_SUB_DIRECTORY 3144 /* Sub-dir spec */ #define MAIL$_USER_FULL_DIRECTORY 3145 /* Full directory spec */ #define MAIL$_USER_NEW_MESSAGES 3146 /* New message count */ #define MAIL$_USER_FORWARDING 3147 /* Forwarding field */ #define MAIL$_USER_PERSONAL_NAME 3148 /* Personal name field */ #define MAIL$_USER_COPY_SEND 3149 /* Copy send flag */ #define MAIL$_USER_COPY_REPLY 3150 /* Copy reply flag */ #define MAIL$_USER_CAPTIVE 3151 /* User is captive */ #define MAIL$_USER_CC_PROMPT 3152 /* CC prompting flag */ #define MAIL$_USER_OUT_SPARE2 3153 #define MAIL$_USER_OUT_SPARE3 3154 #define MAIL$_USER_OUT_SPARE4 3155 #define MAIL$_USER_OUT_SPARE5 3156 #define MAIL$_USER_OUT_SPARE6 3157 #define MAIL$_USER_OUT_SPARE7 3158 #define MAIL$_USER_OUT_SPARE8 3159 #define MAIL$_USER_OUT_SPARE9 3160 #define MAIL$_USER_OUT_SPARE10 3161 #define MAIL$_USER_OUT_SPARE11 3162 #define MAIL$_USER_OUT_SPARE12 3163 #define MAIL$_USER_OUT_SPARE13 3164 #define MAIL$_USER_OUT_SPARE14 3165 #define MAIL$_USER_OUT_SPARE15 3166 #define MAIL$_USER_OUT_SPARE16 3167 #define MAIL$_USER_OUT_SPARE17 3168 #define MAIL$_USER_OUT_SPARE18 3169 #define MAIL$_USER_OUT_SPARE19 3170 #define MAIL$_USER_OUT_SPARE20 3171 #define MAIL$K_USER_MIN_ITEM 3072 #define MAIL$K_USER_MAX_ITEM 3171 #define MAIL$K_USER_ITEMS 100 /* */ /* Special items */ /* */ #define MAIL$_NOOP 4097 /* Do nothing - used for testing */ #define MAIL$_NOSIGNAL 4098 /* Don't signal errors */ #define MAIL$_NOPROBE 4099 /* Don't probe the item list buffers */ #define MAIL$_TLD_INPUT 4100 /* This item is a tld to be used as input */ #define MAIL$_TLD_OUTPUT 4101 /* This item describes a buffer to fill */ /* */ /* Username types for mail$send_add_address */ /* */ #define MAIL$_TO 1 /* Address part of the TO line */ #define MAIL$_CC 2 /* Address part of the CC line */ #define MAIL$_SPARE1 3 #define MAIL$_SPARE2 4 /* */ /* Define the flag values for mail system flags */ /* */ #define MAIL$M_NEWMSG 0x00000001 #define MAIL$M_REPLIED 0x00000002 #define MAIL$M_DEL 0x00000004 #define MAIL$M_EXTMSG 0x00000008 #define MAIL$M_EXTFNF 0x00000010 #define MAIL$M_SYSMSG 0x00000020 #define MAIL$M_EXTNSTD 0x00000040 #define MAIL$M_MARKED 0x00000080 #define MAIL$M_RECMODE 0x00000100 struct flagsdef { union { unsigned short int mail$w_flags; /*Flags word */ struct { unsigned mail$v_newmsg : 1; /*This is a new message */ unsigned mail$v_replied : 1; /*This message has been replied to */ unsigned mail$v_del : 1; /*This message is deleted */ unsigned mail$v_extmsg : 1; /*Message text in external file */ unsigned mail$v_extfnf : 1; /*External message file not found */ unsigned mail$v_sysmsg : 1; /*Message text in system file */ unsigned mail$v_extnstd : 1; /*External file is not var-seq file */ unsigned mail$v_marked : 1; /*This message has been marked */ unsigned mail$v_recmode : 1; /*This message should be read in record mode */ unsigned mail$v_fill_2 : 7; } mail$r_fill_1; } mail$r_fill_0; } ; #endif xtfnf : 1; /*External message file not found */ unsigned mail$v_sysmsg : 1; /*Message text in system file */ unsigned mail$v_extnstd : 1; /*External file is not var-seq file */ unsigned mail$v_marked : 1; /*This message has been marked */ unsigned mail$v_recmode : 1; /*This message should be read in record mode */ unsigned mail$v_fill_2 : jed-0.97.12/src/vmsmake.com000064400000000000003000000073610603742314000152300ustar00rootsys00000000000000$! ver = f$verify(0) $! Makefile for VMS $ axp = 0 $ if (p1 .eqs. "INSTALL") then goto install $ defs = "" $! $! If you do not want floating point, comment out next line $ defs = "FLOAT_TYPE," $! $! S-Lang Include directory (where slang.olb is located) $ slang_dir = "[-.-.slang.src]" $! $ Link_Flags = "" $ Link_Libs = "" $! If compiling with GCC, uncomment next line $! goto has_gcc $ if (p1 .eqs. "GCC") then goto has_gcc $! $! There should be no need to change anything below here $! $ axp = f$getsyi("HW_MODEL").ge.1024 $ if axp $ then C_C = "cc/standard=vaxc" $ Link_Flags = "/NONATIVE_ONLY" $ else $ C_C = "cc" $ endif $ goto start $ has_gcc: $ C_C = "gcc/nocase_hack/warnings" $ Link_Libs = ",GNU_CC:[000000]GCCLIB/LIB" $! $ start: $ defs = defs + "HAS_MEMCPY,HAS_MEMSET,HAS_MEMCMP" $ bfiles = "vmsmail," + "sysdep," + "buffer," + "cmds," + "misc," + "file," - + "main," + "ins," + "sig," + "screen," + "paste," + "ledit," - + "line," + "vterm," + "search," + "text," + "keymap," + "replace," - + "window,undo,vfile,intrin,vmshelp,syntax,abbrev,indent" $! $ jfiles = bfiles + ",display,mouse" $ xfiles = bfiles + ",xterm" $ if (p2 .eqs. "XJED") then goto make_xjed_label $! $ files = jfiles $ make_return = "make_xjed_label" $ jexec = "jed.exe" $ goto simple_make $! $ make_xjed_label: $ files = xfiles $ make_return = "exit_label" $ jexec = "xjed.exe" $ goto simple_make $! $ exit_label: $ exit $! $! $! simple make $! $ simple_make: $ count = 0 $ next_file: $ f = f$element(count, ",", files) $ count = count + 1 $ if (f .eqs. ",") then goto do_link $ objf = f$search("''f'.obj") $ if (objf .eqs. "") then goto compile_it $ tobj = f$file_attr(objf, "RDT") $ tc = f$file_attr("''f'.c", "RDT") $ if (f .eqs. "sysdep") $ then $ if ( f$cvtime(tobj) .lts. f$cvtime(f$file_attr("vms.c","RDT"))) - then goto compile_it $ endif $ if (f$cvtime(tc) .lts. f$cvtime(tobj)) then goto next_file $ compile_it: $ write sys$output "''C_C'/define=(''defs',JED)/include=(''slang_dir') ''f'.c" $ 'C_C'/define=('defs')/include=('slang_dir') 'f'.c $ goto next_file $ do_link: $ if axp $ then $ if make_return .eqs. "make_xjed_label" $ then $ set verify $ link/exec='jexec' 'Link_Flags' 'files', 'slang_dir'slang/LIBR 'Link_Libs' $ set noverify $ else $ set verify $ link/exec='jexec' 'Link_Flags' 'files', 'slang_dir'slang/LIBR 'Link_Libs', - sys$input/opt sys$share:decw$xlibshr.exe/share $ set noverify $ endif $ else $ if make_return .eqs. "make_xjed_label" $ then $ set verify $ link/exec='jexec' 'Link_Flags' 'files', 'slang_dir'slang/LIB 'Link_Libs', - sys$input/opt SYS$LIBRARY:VAXCRTL/SHARE $ set noverify $ else $ set verify $ link/exec='jexec' 'Link_Flags' 'files', 'slang_dir'slang/LIB 'Link_Libs', - sys$input/opt sys$library:decw$dwtlibshr/share sys$share:decw$xlibshr/share SYS$LIBRARY:VAXCRTL/SHARE $ set noverify $ endif $ endif $! rename /log 'jexec' [-.bin] $ goto 'make_return' $! $! Installation $! $ Install: $ write sys$output "Sorry, no installation implemented yet." $! destdef = f$trnlnm("JED_LIBRARY") $! again: $! def = "" $! if (destdef .nes. "") then def = "(default ''destdef')" $! write sys$output "Installation Directory" $! inquire dest "''def'" $! if (dest .eqs. "") then dest = destdef $! if (dest .eqs. "") then goto again $! if (f$parse(dest) .nes. "") then goto do_copy $! write sys$output "Directory does not exist. Creating it." $! create/dir/prot=(w:re) 'dest' $! do_copy: $! copy/log/prot=(w:re) *.sl, *.hlp, *.rc, *.info, jed.*in, jed.exe, *.com - ! 'dest' $ The_Exit: $ if (ver .eq. 1) then set verify $ exit then def = "(default ''destdef')" $! write sys$output "Installation Directory" $! inquire dest "''def'" $! if (dest .eqs. "") then dest = destdef $! if (dest .eqs. "") then goto again $! if (f$parse(dest) .nes. "") then goto do_copy $! write sys$output "Dijed-0.97.12/src/vterm.c000064400000000000003000000062510603742314000143630ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include "config.h" #include "buffer.h" #include "screen.h" #include "window.h" #include "vterm.h" int Scroll_By_Copying; static void sbc_do_copy(register unsigned short *dst, register unsigned short *src, int n) { register unsigned short *smax = src + n; while (src < smax) *dst++ = *src++; } void execute_vscroll_down(int r1, int r2, int num) { unsigned short *old; int r, rp1; int sbc = Scroll_By_Copying, n = JWindow->width; r1--; r2--; for (r = r2; r >= r1 + num; r--) { rp1 = r - num; JScreen[r].n = JScreen[rp1].n; JScreen[r].hi0 = JScreen[rp1].hi0; JScreen[r].hi1 = JScreen[rp1].hi1; old = JScreen[r].old; JScreen[r].old = JScreen[rp1].old; JScreen[rp1].old = old; if (sbc) { sbc_do_copy(old, JScreen[r].old, n); } } for (r = r1; r < r1 + num; r++) { JScreen[r].line = NULL; JScreen[r].flags = sbc; if (sbc == 0) { JScreen[r].n = 0; JScreen[r].hi0 = NULL; JScreen[r].hi1 = NULL; blank_line(r); } } } void vscroll_down(int r1, int r2, int num) { int r, rp1; r1--; r2--; for (r = r2; r >= r1 + num; r--) { rp1 = r - num; JScreen[r].line = JScreen[rp1].line; JScreen[r].flags = JScreen[rp1].flags; } } void execute_vscroll_up (int r1, int r2, int num) { unsigned short *old; register int r, rp1; int sbc = Scroll_By_Copying, n = JWindow->width; r1--; r2--; for (r = r1; r <= r2 - num; r++) { rp1 = r + num; old = JScreen[r].old; JScreen[r].old = JScreen[rp1].old; JScreen[rp1].old = old; JScreen[r].hi0 = JScreen[rp1].hi0; JScreen[r].hi1 = JScreen[rp1].hi1; JScreen[r].n = JScreen[rp1].n; if (sbc) { sbc_do_copy(old, JScreen[r].old, n); } } for (r = r2 - num + 1; r <= r2; r++) { JScreen[r].line = NULL; JScreen[r].flags = sbc; if (sbc == 0) { JScreen[r].n = 0; JScreen[r].hi0 = 0; JScreen[r].hi1 = 0; blank_line(r); } } } void vscroll_up(int r1, int r2, int num) { register int r, rp1; r1--; r2--; for (r = r1; r <= r2 - num; r++) { rp1 = r + num; JScreen[r].line = JScreen[rp1].line; JScreen[r].flags = JScreen[rp1].flags; } } void vins(char ch) { int r; unsigned short *p, *p1; unsigned short *pins; r = Screen_Row - 1; if (ch > ' ') JScreen[r].n += 1; pins = JScreen[r].old + Screen_Col - 1; p = JScreen[r].old + JWindow->width - 1; while(p > pins) { p1 = p - 1; *p = *p1; p = p1; } *p = ch; } void vdel() { int r; register unsigned short *p, *p1, *pmax; r = Screen_Row - 1; p = JScreen[r].old + Screen_Col - 1; pmax = JScreen[r].old + JWindow->width - 1; while(p < pmax) { p1 = p + 1; *p = *p1; p = p1; } *p = ' '; } void vdel_eol() { int r; register unsigned short *p, *pmax; r = Screen_Row - 1; p = JScreen[r].old + Screen_Col - 1; pmax = JScreen[r].old + JWindow->width; /* MEMSET(p, ' ', JWindow->width - Screen_Col + 1); */ while(p < pmax) { *p = ' '; p++; } *p = ' '; } ow - 1; p = JScreen[r].old + Screen_Col - 1; pmax = JScreen[r].old + JWindow->width - 1; while(p < pmax) { p1 = p + 1; *p = *p1; p = p1; } *p = ' '; } void vdel_eol() { int r; register unsigned short *p, *pmax; r = Screen_Row - 1; p = JScreen[r].old + Screen_Col - 1; pmax = JScreen[r].oldjed-0.97.12/src/vterm.h000064400000000000003000000005360603742314000143700ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ extern void vscroll_down(int, int, int); extern void vscroll_up(int, int, int); extern void execute_vscroll_down(int, int, int); extern void execute_vscroll_up(int, int, int); extern void vins(char); extern void vdel(void); extern void vdel_eol(void); ; } void vdel_eol() { int r; register unsigned short *p, *pmax; r = Screen_Row - 1; p = JScreen[r].old + Screen_Col - 1; pmax = JScreen[r].oldjed-0.97.12/src/window.c000064400000000000003000000175140603742314000145410ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #include "buffer.h" #include "window.h" #include "screen.h" #include "misc.h" #include "ledit.h" #include "sysdep.h" #include "display.h" #include "paste.h" Window_Type *JWindow; extern Window_Type *The_MiniWindow; int Top_Window_Row = 2; Window_Type *create_window(int top, int rows, int col, int width) { Window_Type *w; if (NULL == (w = (Window_Type *) SLMALLOC(sizeof(Window_Type)))) { exit_error("create_window: malloc error.", 0); } MEMSET ((char *) w, 0, sizeof (Window_Type)); w->top = top; w->rows = rows; w->width = width; w->column = col; return(w); } void window_buffer(Buffer *b) { if (JWindow == NULL) { JWindow = create_window(Top_Window_Row, *tt_Screen_Rows - 2 - (Top_Window_Row - 1), 1, *tt_Screen_Cols); JWindow->next = JWindow; } touch_window(); JWindow->beg.line = JWindow->mark.line = b->line; JWindow->beg.point = JWindow->mark.point = b->point; JWindow->beg.n = JWindow->mark.n = b->linenum + b->nup; JWindow->buffer = b; JWindow->trashed = 1; } #ifdef HAS_SUBPROCESSES void move_window_marks (int all) { Window_Type *w = JWindow; if (w == NULL) return; do { if (w->buffer == CBuf) { w->mark.point = Point; w->mark.line = CLine; w->mark.n = LineNum + CBuf->nup; if (all == 0) break; } w = w->next; } while (w != JWindow); } #endif int other_window() { switch_to_buffer(JWindow->buffer); /* CBuf->line = CLine; CBuf->point = Point; */ JWindow->mark.point = Point; JWindow->mark.line = CLine; JWindow->mark.n = LineNum + CBuf->nup; /* JWindow->buffer = CBuf; */ JWindow = JWindow->next; switch_to_buffer(JWindow->buffer); /* CBuf = JWindow->buffer; */ Point = JWindow->mark.point; CLine = JWindow->mark.line; LineNum = JWindow->mark.n - CBuf->nup; return(1); } static int find_screen_line(void) { int i; for (i = 0; i < *tt_Screen_Rows - 2; i++) { if (JScreen[i].line == CLine) return(i + 1); } return(0); } int split_window() { int n, top, width, row; Window_Type *w, *neew; Line *l; if (JWindow->rows < 5) { msg_error("Window too small."); return(0); } switch_to_buffer(JWindow->buffer); n = JWindow->rows / 2; top = JWindow->top + n + 1; width = JWindow->width; n = JWindow->rows - n - 1; JWindow->rows = JWindow->rows / 2; JWindow->beg.line = find_top(); w = JWindow->next; JWindow->next = neew = create_window(top, n, JWindow->column, width); neew->next = w; neew->buffer = CBuf; neew->mark.point = Point; neew->mark.line = CLine; neew->mark.n = LineNum + CBuf->nup; other_window(); touch_window(); l = JWindow->beg.line = find_top(); n = 0; while (l != CLine) { l = l->next; n++; } JWindow->beg.n = LineNum + CBuf->nup - n; /* Try to leave Point on same line of display if possible */ if ((row = find_screen_line()) > 0) { w = JWindow; do { if ((JWindow->buffer == CBuf) && (JWindow->top <= row) && (JWindow->top + JWindow->rows > row)) break; other_window(); } while (w != JWindow); } return(1); } int one_window() { Window_Type *w, *next, *mini; Buffer *b; mini = NULL; if (JWindow->top == *tt_Screen_Rows) return(0); /* mini-buffer */ w = JWindow->next; b = JWindow->buffer; while(w != JWindow) { next = w->next; if (w != The_MiniWindow) { if (w->buffer != b) touch_window_hard (w, 0); SLFREE(w); } else mini = w; w = next; } if (mini == NULL) mini = JWindow; JWindow->next = mini; mini->next = JWindow; JWindow->top = Top_Window_Row; JWindow->rows = *tt_Screen_Rows - 2 - (Top_Window_Row - 1); touch_window(); return(1); } int enlarge_window() { Window_Type *w, *w1; int min = 2; if (JWindow == The_MiniWindow) return(0); /* if (IS_MINIBUFFER) return(0); */ if (JWindow == JWindow->next) return(0); w = JWindow->next; while(w->rows <= min) w = w->next; if (w == JWindow) return(0); if (w->top < JWindow->top) { w->rows -= 1; JWindow->rows += 1; do { w = w->next; w->top -= 1; } while (w != JWindow); } else { JWindow->rows += 1; w1 = JWindow; while(w1 != w) { w1 = w1->next; w1->top += 1; } w->rows -= 1; } w = JWindow; do { touch_window(); JWindow = JWindow->next; } while (w != JWindow); return(1); } static void adjust_windows(int height) { Window_Type *w = JWindow; int rows; do { if (w->rows + w->top + 1 == *tt_Screen_Rows) { rows = height - 1 - w->top; if (rows > 1) { w->rows = rows; return; } while(JWindow->top != Top_Window_Row) other_window(); one_window(); JWindow->rows = height - 2; return; } w = w->next; } while (w != JWindow); /* not reached! */ } #ifdef COLOR_COLUMNS static void adjust_buffer_column_attributes (int width) { Buffer *b = CBuf; unsigned char *p, ch, *pmax; int old_width = *tt_Screen_Cols; if (old_width <= 0) return; do { if (NULL != (p = b->column_colors)) { p = b->column_colors = (unsigned char *) SLREALLOC (p, width); if (p != NULL) { pmax = p + width; p += old_width; ch = *(p - 1); while (p < pmax) *p++ = ch; } } b = b->next; } while (b != CBuf); } #endif void change_screen_size(int width, int height) { Window_Type *w; if (JWindow == NULL) return; if (height != *tt_Screen_Rows) { adjust_windows(height); } #ifdef COLOR_COLUMNS adjust_buffer_column_attributes (width); #endif reset_display(); *tt_Screen_Cols = width; *tt_Screen_Rows = height; init_display(0); w = JWindow; do { JWindow->width = width; /* touch_window(); */ JWindow = JWindow->next; } while(w != JWindow); if (The_MiniWindow != NULL) { The_MiniWindow->top = height; The_MiniWindow->width = width; } /* cls(); update((Line*) NULL); */ redraw_screen (1); } int buffer_visible(Buffer *b) { Window_Type *w = JWindow; int n = 0; if (b == NULL) return 0; do { if (w->buffer == b) n++; w = w->next; } while (w != JWindow); return n; } int delete_window() { Window_Type *tthis, *prev, *next; int nr1; tthis = JWindow; next = tthis->next; if ((MiniBuffer_Active && ((tthis == The_MiniWindow) || (tthis == next->next))) || (tthis == next)) return(0); nr1 = tthis->top + tthis->rows + 1; if (nr1 != *tt_Screen_Rows) { while (JWindow->top != nr1) other_window(); JWindow->top = tthis->top; } else { while(JWindow->top + JWindow->rows + 1 != tthis->top) other_window(); } JWindow->rows += tthis->rows + 1; touch_window(); prev = next; while(prev->next != tthis) prev = prev->next; prev->next = next; SLFREE(tthis); return(1); } void touch_window_hard(Window_Type *w, int all) { int i; Window_Type *wsave = w; do { for (i = 0; i < w->rows; i++) { JScreen[i + w->top - 1].flags = 1; JScreen[i + w->top - 1].line = NULL; } w->trashed = 1; w = w->next; } while (all && (w != wsave)); } void touch_screen_for_buffer(Buffer *b) { Window_Type *w; w = JWindow; do { if (w->buffer == b) { touch_window_hard (w, 0); } w = w->next; } while(w != JWindow); } int is_line_visible (int lnum) { int n = JWindow->rows; Line *l, *beg = JWindow->beg.line; push_spot (); goto_line (&lnum); l = CLine; pop_spot (); while (n && (l != NULL)) { if (l == beg) return 1; l = l->prev; n--; } return 0; } hile (all && (w != wsave)); } void touch_screen_for_buffer(Buffer *b) { Window_Type *w; w = JWindow; do { if (w->buffer == b) { touch_window_hard (w, 0jed-0.97.12/src/window.h000064400000000000003000000024040603742314000145360ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #ifndef __JED_WINDOW_H_ #define __JED_WINDOW_H_ #include "buffer.h" typedef struct Window_Type { int top; /* top row of window */ int rows; /* number of rows */ int width; int column; /* starts at 1 */ Mark beg; struct Window_Type *next; Buffer *buffer; Mark mark; /* last cursor pos in window before switch */ int trashed; /* true if lines in window was changed */ int flags; /* Note that trashed should be a bit here */ } Window_Type; extern Window_Type *JWindow; extern Window_Type *create_window(int, int, int, int); extern void touch_screen_for_buffer(Buffer *); extern void touch_window_hard(Window_Type *, int); extern int is_line_visible (int); extern int split_window(void); extern int other_window(void); extern int one_window(void); extern int delete_window(void); extern int enlarge_window(void); extern void window_buffer(Buffer *); extern void change_screen_size(int, int); extern int buffer_visible(Buffer *); extern int Top_Window_Row; #ifdef HAS_SUBPROCESSES extern void move_window_marks (int); #endif #endif extern void touch_screen_for_buffer(Buffer *); extern void touch_window_hard(Window_Type *, int); extern int is_line_visible (int); extern int split_window(void); extern int other_window(void); extern int one_window(void); extern int delete_window(vjed-0.97.12/src/xkeys.c000064400000000000003000000577530603742314000144060ustar00rootsys00000000000000/* xkeys.c */ /* The first character is the length of the string */ #define MAX_KEYSYM_STRING_LEN 8 typedef char KeySym_Mapping_Type[MAX_KEYSYM_STRING_LEN + 1]; static KeySym_Mapping_Type KeySym_Mapping[256] = { "\004\033[3~", /* 0xFF00 Remove */ "", /* 0xFF01 */ "", /* 0xFF02 */ "", /* 0xFF03 */ "", /* 0xFF04 */ "", /* 0xFF05 */ "", /* 0xFF06 */ "", /* 0xFF07 */ "\001\177", /* 0xFF08 XK_BackSpace */ "\001\t", /* 0xFF09 XK_Tab */ "\001\n", /* 0xFF0A XK_Linefeed */ "", /* 0xFF0B XK_Clear */ "", /* 0xFF0C */ "\001\r", /* 0xFF0D XK_Return */ "", /* 0xFF0E */ "", /* 0xFF0F */ "", /* 0xFF10 */ "", /* 0xFF11 */ "", /* 0xFF12 */ "", /* 0xFF13 XK_Pause */ "", /* 0xFF14 XK_Scroll_Lock */ "", /* 0xFF15 */ "", /* 0xFF16 */ "", /* 0xFF17 */ "", /* 0xFF18 */ "", /* 0xFF19 */ "", /* 0xFF1A */ "\001\033", /* 0xFF1B XK_Escape */ "", /* 0xFF1C */ "", /* 0xFF1D */ "", /* 0xFF1E */ "", /* 0xFF1F */ "", /* 0xFF20 XK_Multi_key */ "", /* 0xFF21 XK_Kanji */ "", /* 0xFF22 XK_Muhenkan */ "", /* 0xFF23 XK_Henkan_Mode XK_Henkan */ "", /* 0xFF24 XK_Romaji */ "", /* 0xFF25 XK_Hiragana */ "", /* 0xFF26 XK_Katakana */ "", /* 0xFF27 XK_Hiragana_Katakana */ "", /* 0xFF28 XK_Zenkaku */ "", /* 0xFF29 XK_Hankaku */ "", /* 0xFF2A XK_Zenkaku_Hankaku */ "", /* 0xFF2B XK_Touroku */ "", /* 0xFF2C XK_Massyo */ "", /* 0xFF2D XK_Kana_Lock */ "", /* 0xFF2E XK_Kana_Shift */ "", /* 0xFF2F XK_Eisu_Shift */ "", /* 0xFF30 XK_Eisu_toggle */ "", /* 0xFF31 */ "", /* 0xFF32 */ "", /* 0xFF33 */ "", /* 0xFF34 */ "", /* 0xFF35 */ "", /* 0xFF36 */ "", /* 0xFF37 */ "", /* 0xFF38 */ "", /* 0xFF39 */ "", /* 0xFF3A */ "", /* 0xFF3B */ "", /* 0xFF3C */ "", /* 0xFF3D */ "", /* 0xFF3E */ "", /* 0xFF3F */ "", /* 0xFF40 */ "", /* 0xFF41 */ "", /* 0xFF42 */ "", /* 0xFF43 */ "", /* 0xFF44 */ "", /* 0xFF45 */ "", /* 0xFF46 */ "", /* 0xFF47 */ "", /* 0xFF48 */ "", /* 0xFF49 */ "", /* 0xFF4A */ "", /* 0xFF4B */ "", /* 0xFF4C */ "", /* 0xFF4D */ "", /* 0xFF4E */ "", /* 0xFF4F */ "\001\001", /* 0xFF50 XK_Home */ "\003\033[D", /* 0xFF51 XK_Left */ "\003\033[A", /* 0xFF52 XK_Up */ "\003\033[C", /* 0xFF53 XK_Right */ "\003\033[B", /* 0xFF54 XK_Down */ "\004\033[5~", /* 0xFF55 XK_Prior */ "\004\033[6~", /* 0xFF56 XK_Next */ "\001\005", /* 0xFF57 XK_End */ "\001\001", /* 0xFF58 XK_Begin */ "", /* 0xFF59 */ "", /* 0xFF5A */ "", /* 0xFF5B */ "", /* 0xFF5C */ "", /* 0xFF5D */ "", /* 0xFF5E */ "", /* 0xFF5F */ "\004\033[4~", /* 0xFF60 XK_Select */ "", /* 0xFF61 XK_Print */ "", /* 0xFF62 XK_Execute */ "\004\033[2~", /* 0xFF63 XK_Insert */ "", /* 0xFF64 */ "\001\037", /* 0xFF65 XK_Undo ^_ */ "", /* 0xFF66 XK_Redo */ "\005\033[29~", /* 0xFF67 XK_Menu Do */ "\004\033[1~", /* 0xFF68 XK_Find */ "\001\007", /* 0xFF69 XK_Cancel */ "\005\033[28~", /* 0xFF6A XK_Help */ "", /* 0xFF6B XK_Break */ "", /* 0xFF6C */ "", /* 0xFF6D */ "", /* 0xFF6E */ "", /* 0xFF6F */ "", /* 0xFF70 */ "", /* 0xFF71 */ "", /* 0xFF72 */ "", /* 0xFF73 */ "", /* 0xFF74 */ "", /* 0xFF75 */ "", /* 0xFF76 */ "", /* 0xFF77 */ "", /* 0xFF78 */ "", /* 0xFF79 */ "", /* 0xFF7A */ "", /* 0xFF7B */ "", /* 0xFF7C */ "", /* 0xFF7D */ "", /* 0xFF7E */ "", /* 0xFF7F XK_Num_Lock */ "", /* 0xFF80 XK_KP_Space */ "", /* 0xFF81 */ "", /* 0xFF82 */ "", /* 0xFF83 */ "", /* 0xFF84 */ "", /* 0xFF85 */ "", /* 0xFF86 */ "", /* 0xFF87 */ "", /* 0xFF88 */ "", /* 0xFF89 XK_KP_Tab */ "", /* 0xFF8A */ "", /* 0xFF8B */ "", /* 0xFF8C */ "\003\033OM", /* 0xFF8D XK_KP_Enter */ "", /* 0xFF8E */ "", /* 0xFF8F */ "", /* 0xFF90 */ "\003\033OP", /* 0xFF91 XK_KP_F1 PF1 */ "\003\033OQ", /* 0xFF92 XK_KP_F2 PF2 */ "\003\033OR", /* 0xFF93 XK_KP_F3 PF3 */ "\003\033OS", /* 0xFF94 XK_KP_F4 PF4 */ "", /* 0xFF95 */ "", /* 0xFF96 */ "", /* 0xFF97 */ "", /* 0xFF98 */ "", /* 0xFF99 */ "", /* 0xFF9A */ "", /* 0xFF9B */ "", /* 0xFF9C */ "", /* 0xFF9D */ "", /* 0xFF9E */ "", /* 0xFF9F */ "", /* 0xFFA0 */ "", /* 0xFFA1 */ "", /* 0xFFA2 */ "", /* 0xFFA3 */ "", /* 0xFFA4 */ "", /* 0xFFA5 */ "", /* 0xFFA6 */ "", /* 0xFFA7 */ "", /* 0xFFA8 */ "", /* 0xFFA9 */ "\001*", /* 0xFFAA XK_KP_Multiply */ "\001+", /* 0xFFAB XK_KP_Add */ "\003\033Ol", /* 0xFFAC XK_KP_Separator KP , */ "\003\033Om", /* 0xFFAD XK_KP_Subtract KP - */ "\003\033On", /* 0xFFAE XK_KP_Decimal KP . */ "\001/", /* 0xFFAF XK_KP_Divide */ "\003\033Op", /* 0xFFB0 XK_KP_0 */ "\003\033Oq", /* 0xFFB1 XK_KP_1 */ "\003\033Or", /* 0xFFB2 XK_KP_2 */ "\003\033Os", /* 0xFFB3 XK_KP_3 */ "\003\033Ot", /* 0xFFB4 XK_KP_4 */ "\003\033Ou", /* 0xFFB5 XK_KP_5 */ "\003\033Ov", /* 0xFFB6 XK_KP_6 */ "\003\033Ow", /* 0xFFB7 XK_KP_7 */ "\003\033Ox", /* 0xFFB8 XK_KP_8 */ "\003\033Oy", /* 0xFFB9 XK_KP_9 */ "", /* 0xFFBA */ "", /* 0xFFBB */ "", /* 0xFFBC */ "\001=", /* 0xFFBD XK_KP_Equal */ "\005\033[11~", /* 0xFFBE XK_F1 */ /* xterm convention */ "\005\033[12~", /* 0xFFBF XK_F2 */ /* xterm convention */ "\005\033[13~", /* 0xFFC0 XK_F3 */ /* xterm convention */ "\005\033[14~", /* 0xFFC1 XK_F4 */ /* xterm convention */ "\005\033[15~", /* 0xFFC2 XK_F5 */ /* xterm convention */ "\005\033[17~", /* 0xFFC3 XK_F6 */ "\005\033[18~", /* 0xFFC4 XK_F7 */ "\005\033[19~", /* 0xFFC5 XK_F8 */ "\005\033[20~", /* 0xFFC6 XK_F9 */ "\005\033[21~", /* 0xFFC7 XK_F10 */ "\005\033[23~", /* 0xFFC8 XK_F11 XK_L1 */ "\005\033[24~", /* 0xFFC9 XK_F12 XK_L2 */ "\005\033[25~", /* 0xFFCA XK_F13 XK_L3 */ "\005\033[26~", /* 0xFFCB XK_F14 XK_L4 */ "\005\033[28~", /* 0xFFCC XK_F15 XK_L5 */ "\005\033[29~", /* 0xFFCD XK_F16 XK_L6 */ "\005\033[31~", /* 0xFFCE XK_F17 XK_L7 */ "\005\033[32~", /* 0xFFCF XK_F18 XK_L8 */ "\005\033[33~", /* 0xFFD0 XK_F19 XK_L9 */ "\005\033[34~", /* 0xFFD1 XK_F20 XK_L10 */ "\005\033[35~", /* 0xFFD2 XK_F21 XK_R1 */ "\005\033[36~", /* 0xFFD3 XK_F22 XK_R2 */ "\005\033[37~", /* 0xFFD4 XK_F23 XK_R3 */ "\005\033[38~", /* 0xFFD5 XK_F24 XK_R4 */ "\005\033[39~", /* 0xFFD6 XK_F25 XK_R5 */ "\005\033[40~", /* 0xFFD7 XK_F26 XK_R6 */ "\005\033[41~", /* 0xFFD8 XK_F27 XK_R7 */ "\005\033[42~", /* 0xFFD9 XK_F28 XK_R8 */ "\005\033[43~", /* 0xFFDA XK_F29 XK_R9 */ "\005\033[44~", /* 0xFFDB XK_F30 XK_R10 */ "\005\033[45~", /* 0xFFDC XK_F31 XK_R11 */ "\005\033[46~", /* 0xFFDD XK_F32 XK_R12 */ "\005\033[47~", /* 0xFFDE XK_R13 XK_F33 */ "\005\033[48~", /* 0xFFDF XK_F34 XK_R14 */ "\005\033[49~", /* 0xFFE0 XK_F35 XK_R15 */ "", /* 0xFFE1 XK_Shift_L XK_Shift_L */ "", /* 0xFFE2 XK_Shift_R */ "", /* 0xFFE3 XK_Control_L */ "", /* 0xFFE4 XK_Control_R */ "", /* 0xFFE5 XK_Caps_Lock */ "", /* 0xFFE6 XK_Shift_Lock */ "", /* 0xFFE7 XK_Meta_L */ "", /* 0xFFE8 XK_Meta_R */ "", /* 0xFFE9 XK_Alt_L */ "", /* 0xFFEA XK_Alt_R */ "", /* 0xFFEB XK_Super_L */ "", /* 0xFFEC XK_Super_R */ "", /* 0xFFED XK_Hyper_L */ "", /* 0xFFEE XK_Hyper_R */ "", /* 0xFFEF */ "", /* 0xFFF0 */ "", /* 0xFFF1 */ "", /* 0xFFF2 */ "", /* 0xFFF3 */ "", /* 0xFFF4 */ "", /* 0xFFF5 */ "", /* 0xFFF6 */ "", /* 0xFFF7 */ "", /* 0xFFF8 */ "", /* 0xFFF9 */ "", /* 0xFFFA */ "", /* 0xFFFB */ "", /* 0xFFFC */ "", /* 0xFFFD */ "", /* 0xFFFE */ "\001\177" /* 0xFFFF XK_Delete */ }; static KeySym_Mapping_Type Shift_KeySym_Mapping[256] = { "\004\033[3$", /* 0xFF00 Remove */ "", /* 0xFF01 */ "", /* 0xFF02 */ "", /* 0xFF03 */ "", /* 0xFF04 */ "", /* 0xFF05 */ "", /* 0xFF06 */ "", /* 0xFF07 */ "\001\177", /* 0xFF08 XK_BackSpace */ "\001\t", /* 0xFF09 XK_Tab */ "\001\n", /* 0xFF0A XK_Linefeed */ "", /* 0xFF0B XK_Clear */ "", /* 0xFF0C */ "\001\r", /* 0xFF0D XK_Return */ "", /* 0xFF0E */ "", /* 0xFF0F */ "", /* 0xFF10 */ "", /* 0xFF11 */ "", /* 0xFF12 */ "", /* 0xFF13 XK_Pause */ "", /* 0xFF14 XK_Scroll_Lock */ "", /* 0xFF15 */ "", /* 0xFF16 */ "", /* 0xFF17 */ "", /* 0xFF18 */ "", /* 0xFF19 */ "", /* 0xFF1A */ "\001\033", /* 0xFF1B XK_Escape */ "", /* 0xFF1C */ "", /* 0xFF1D */ "", /* 0xFF1E */ "", /* 0xFF1F */ "", /* 0xFF20 XK_Multi_key */ "", /* 0xFF21 XK_Kanji */ "", /* 0xFF22 XK_Muhenkan */ "", /* 0xFF23 XK_Henkan_Mode XK_Henkan */ "", /* 0xFF24 XK_Romaji */ "", /* 0xFF25 XK_Hiragana */ "", /* 0xFF26 XK_Katakana */ "", /* 0xFF27 XK_Hiragana_Katakana */ "", /* 0xFF28 XK_Zenkaku */ "", /* 0xFF29 XK_Hankaku */ "", /* 0xFF2A XK_Zenkaku_Hankaku */ "", /* 0xFF2B XK_Touroku */ "", /* 0xFF2C XK_Massyo */ "", /* 0xFF2D XK_Kana_Lock */ "", /* 0xFF2E XK_Kana_Shift */ "", /* 0xFF2F XK_Eisu_Shift */ "", /* 0xFF30 XK_Eisu_toggle */ "", /* 0xFF31 */ "", /* 0xFF32 */ "", /* 0xFF33 */ "", /* 0xFF34 */ "", /* 0xFF35 */ "", /* 0xFF36 */ "", /* 0xFF37 */ "", /* 0xFF38 */ "", /* 0xFF39 */ "", /* 0xFF3A */ "", /* 0xFF3B */ "", /* 0xFF3C */ "", /* 0xFF3D */ "", /* 0xFF3E */ "", /* 0xFF3F */ "", /* 0xFF40 */ "", /* 0xFF41 */ "", /* 0xFF42 */ "", /* 0xFF43 */ "", /* 0xFF44 */ "", /* 0xFF45 */ "", /* 0xFF46 */ "", /* 0xFF47 */ "", /* 0xFF48 */ "", /* 0xFF49 */ "", /* 0xFF4A */ "", /* 0xFF4B */ "", /* 0xFF4C */ "", /* 0xFF4D */ "", /* 0xFF4E */ "", /* 0xFF4F */ "\001\001", /* 0xFF50 XK_Home */ "\003\033[d", /* 0xFF51 XK_Left */ "\003\033[a", /* 0xFF52 XK_Up */ "\003\033[c", /* 0xFF53 XK_Right */ "\003\033[b", /* 0xFF54 XK_Down */ "\004\033[5$", /* 0xFF55 XK_Prior */ "\004\033[6$", /* 0xFF56 XK_Next */ "\001\005", /* 0xFF57 XK_End */ "\001\001", /* 0xFF58 XK_Begin */ "", /* 0xFF59 */ "", /* 0xFF5A */ "", /* 0xFF5B */ "", /* 0xFF5C */ "", /* 0xFF5D */ "", /* 0xFF5E */ "", /* 0xFF5F */ "\004\033[4$", /* 0xFF60 XK_Select */ "", /* 0xFF61 XK_Print */ "", /* 0xFF62 XK_Execute */ "\004\033[2$", /* 0xFF63 XK_Insert */ "", /* 0xFF64 */ "\001\037", /* 0xFF65 XK_Undo ^_ */ "", /* 0xFF66 XK_Redo */ "\005\033[29$", /* 0xFF67 XK_Menu Do */ "\004\033[1$", /* 0xFF68 XK_Find */ "\001\007", /* 0xFF69 XK_Cancel */ "\005\033[28$", /* 0xFF6A XK_Help */ "", /* 0xFF6B XK_Break */ "", /* 0xFF6C */ "", /* 0xFF6D */ "", /* 0xFF6E */ "", /* 0xFF6F */ "", /* 0xFF70 */ "", /* 0xFF71 */ "", /* 0xFF72 */ "", /* 0xFF73 */ "", /* 0xFF74 */ "", /* 0xFF75 */ "", /* 0xFF76 */ "", /* 0xFF77 */ "", /* 0xFF78 */ "", /* 0xFF79 */ "", /* 0xFF7A */ "", /* 0xFF7B */ "", /* 0xFF7C */ "", /* 0xFF7D */ "", /* 0xFF7E */ "", /* 0xFF7F XK_Num_Lock */ "", /* 0xFF80 XK_KP_Space */ "", /* 0xFF81 */ "", /* 0xFF82 */ "", /* 0xFF83 */ "", /* 0xFF84 */ "", /* 0xFF85 */ "", /* 0xFF86 */ "", /* 0xFF87 */ "", /* 0xFF88 */ "", /* 0xFF89 XK_KP_Tab */ "", /* 0xFF8A */ "", /* 0xFF8B */ "", /* 0xFF8C */ "\003\033OM", /* 0xFF8D XK_KP_Enter */ "", /* 0xFF8E */ "", /* 0xFF8F */ "", /* 0xFF90 */ "\003\033OP", /* 0xFF91 XK_KP_F1 PF1 */ "\003\033OQ", /* 0xFF92 XK_KP_F2 PF2 */ "\003\033OR", /* 0xFF93 XK_KP_F3 PF3 */ "\003\033OS", /* 0xFF94 XK_KP_F4 PF4 */ "", /* 0xFF95 */ "", /* 0xFF96 */ "", /* 0xFF97 */ "", /* 0xFF98 */ "", /* 0xFF99 */ "", /* 0xFF9A */ "", /* 0xFF9B */ "", /* 0xFF9C */ "", /* 0xFF9D */ "", /* 0xFF9E */ "", /* 0xFF9F */ "", /* 0xFFA0 */ "", /* 0xFFA1 */ "", /* 0xFFA2 */ "", /* 0xFFA3 */ "", /* 0xFFA4 */ "", /* 0xFFA5 */ "", /* 0xFFA6 */ "", /* 0xFFA7 */ "", /* 0xFFA8 */ "", /* 0xFFA9 */ "", /* 0xFFAA XK_KP_Multiply */ "", /* 0xFFAB XK_KP_Add */ "\003\033Ol", /* 0xFFAC XK_KP_Separator KP , */ "\003\033Om", /* 0xFFAD XK_KP_Subtract KP - */ "\003\033On", /* 0xFFAE XK_KP_Decimal KP . */ "", /* 0xFFAF XK_KP_Divide */ "\003\033Op", /* 0xFFB0 XK_KP_0 */ "\003\033Oq", /* 0xFFB1 XK_KP_1 */ "\003\033Or", /* 0xFFB2 XK_KP_2 */ "\003\033Os", /* 0xFFB3 XK_KP_3 */ "\003\033Ot", /* 0xFFB4 XK_KP_4 */ "\003\033Ou", /* 0xFFB5 XK_KP_5 */ "\003\033Ov", /* 0xFFB6 XK_KP_6 */ "\003\033Ow", /* 0xFFB7 XK_KP_7 */ "\003\033Ox", /* 0xFFB8 XK_KP_8 */ "\003\033Oy", /* 0xFFB9 XK_KP_9 */ "", /* 0xFFBA */ "", /* 0xFFBB */ "", /* 0xFFBC */ "", /* 0xFFBD XK_KP_Equal */ "\005\033[11$", /* 0xFFBE XK_F1 */ "\005\033[12$", /* 0xFFBF XK_F2 */ "\005\033[13$", /* 0xFFC0 XK_F3 */ "\005\033[14$", /* 0xFFC1 XK_F4 */ "\005\033[15$", /* 0xFFC2 XK_F5 */ "\005\033[17$", /* 0xFFC3 XK_F6 */ "\005\033[18$", /* 0xFFC4 XK_F7 */ "\005\033[19$", /* 0xFFC5 XK_F8 */ "\005\033[20$", /* 0xFFC6 XK_F9 */ "\005\033[21$", /* 0xFFC7 XK_F10 */ "\005\033[23$", /* 0xFFC8 XK_F11 XK_L1 */ "\005\033[24$", /* 0xFFC9 XK_F12 XK_L2 */ "\005\033[25$", /* 0xFFCA XK_F13 XK_L3 */ "\005\033[26$", /* 0xFFCB XK_F14 XK_L4 */ "\005\033[28$", /* 0xFFCC XK_F15 XK_L5 */ "\005\033[29$", /* 0xFFCD XK_F16 XK_L6 */ "\005\033[31$", /* 0xFFCE XK_F17 XK_L7 */ "\005\033[32$", /* 0xFFCF XK_F18 XK_L8 */ "\005\033[33$", /* 0xFFD0 XK_F19 XK_L9 */ "\005\033[34$", /* 0xFFD1 XK_F20 XK_L10 */ "\005\033[35$", /* 0xFFD2 XK_F21 XK_R1 */ "\005\033[36$", /* 0xFFD3 XK_F22 XK_R2 */ "\005\033[37$", /* 0xFFD4 XK_F23 XK_R3 */ "\005\033[38$", /* 0xFFD5 XK_F24 XK_R4 */ "\005\033[39$", /* 0xFFD6 XK_F25 XK_R5 */ "\005\033[40$", /* 0xFFD7 XK_F26 XK_R6 */ "\005\033[41$", /* 0xFFD8 XK_F27 XK_R7 */ "\005\033[42$", /* 0xFFD9 XK_F28 XK_R8 */ "\005\033[43$", /* 0xFFDA XK_F29 XK_R9 */ "\005\033[44$", /* 0xFFDB XK_F30 XK_R10 */ "\005\033[45$", /* 0xFFDC XK_F31 XK_R11 */ "\005\033[46$", /* 0xFFDD XK_F32 XK_R12 */ "\005\033[47$", /* 0xFFDE XK_R13 XK_F33 */ "\005\033[48$", /* 0xFFDF XK_F34 XK_R14 */ "\005\033[49$", /* 0xFFE0 XK_F35 XK_R15 */ "", /* 0xFFE1 XK_Shift_L XK_Shift_L */ "", /* 0xFFE2 XK_Shift_R */ "", /* 0xFFE3 XK_Control_L */ "", /* 0xFFE4 XK_Control_R */ "", /* 0xFFE5 XK_Caps_Lock */ "", /* 0xFFE6 XK_Shift_Lock */ "", /* 0xFFE7 XK_Meta_L */ "", /* 0xFFE8 XK_Meta_R */ "", /* 0xFFE9 XK_Alt_L */ "", /* 0xFFEA XK_Alt_R */ "", /* 0xFFEB XK_Super_L */ "", /* 0xFFEC XK_Super_R */ "", /* 0xFFED XK_Hyper_L */ "", /* 0xFFEE XK_Hyper_R */ "", /* 0xFFEF */ "", /* 0xFFF0 */ "", /* 0xFFF1 */ "", /* 0xFFF2 */ "", /* 0xFFF3 */ "", /* 0xFFF4 */ "", /* 0xFFF5 */ "", /* 0xFFF6 */ "", /* 0xFFF7 */ "", /* 0xFFF8 */ "", /* 0xFFF9 */ "", /* 0xFFFA */ "", /* 0xFFFB */ "", /* 0xFFFC */ "", /* 0xFFFD */ "", /* 0xFFFE */ "\001\177" /* 0xFFFF XK_Delete */ }; static KeySym_Mapping_Type Control_KeySym_Mapping[256] = { "\004\033[3^", /* 0xFF00 Remove */ "", /* 0xFF01 */ "", /* 0xFF02 */ "", /* 0xFF03 */ "", /* 0xFF04 */ "", /* 0xFF05 */ "", /* 0xFF06 */ "", /* 0xFF07 */ "\001\177", /* 0xFF08 XK_BackSpace */ "\001\t", /* 0xFF09 XK_Tab */ "\001\n", /* 0xFF0A XK_Linefeed */ "", /* 0xFF0B XK_Clear */ "", /* 0xFF0C */ "\001\r", /* 0xFF0D XK_Return */ "", /* 0xFF0E */ "", /* 0xFF0F */ "", /* 0xFF10 */ "", /* 0xFF11 */ "", /* 0xFF12 */ "", /* 0xFF13 XK_Pause */ "", /* 0xFF14 XK_Scroll_Lock */ "", /* 0xFF15 */ "", /* 0xFF16 */ "", /* 0xFF17 */ "", /* 0xFF18 */ "", /* 0xFF19 */ "", /* 0xFF1A */ "\001\033", /* 0xFF1B XK_Escape */ "", /* 0xFF1C */ "", /* 0xFF1D */ "", /* 0xFF1E */ "", /* 0xFF1F */ "", /* 0xFF20 XK_Multi_key */ "", /* 0xFF21 XK_Kanji */ "", /* 0xFF22 XK_Muhenkan */ "", /* 0xFF23 XK_Henkan_Mode XK_Henkan */ "", /* 0xFF24 XK_Romaji */ "", /* 0xFF25 XK_Hiragana */ "", /* 0xFF26 XK_Katakana */ "", /* 0xFF27 XK_Hiragana_Katakana */ "", /* 0xFF28 XK_Zenkaku */ "", /* 0xFF29 XK_Hankaku */ "", /* 0xFF2A XK_Zenkaku_Hankaku */ "", /* 0xFF2B XK_Touroku */ "", /* 0xFF2C XK_Massyo */ "", /* 0xFF2D XK_Kana_Lock */ "", /* 0xFF2E XK_Kana_Shift */ "", /* 0xFF2F XK_Eisu_Shift */ "", /* 0xFF30 XK_Eisu_toggle */ "", /* 0xFF31 */ "", /* 0xFF32 */ "", /* 0xFF33 */ "", /* 0xFF34 */ "", /* 0xFF35 */ "", /* 0xFF36 */ "", /* 0xFF37 */ "", /* 0xFF38 */ "", /* 0xFF39 */ "", /* 0xFF3A */ "", /* 0xFF3B */ "", /* 0xFF3C */ "", /* 0xFF3D */ "", /* 0xFF3E */ "", /* 0xFF3F */ "", /* 0xFF40 */ "", /* 0xFF41 */ "", /* 0xFF42 */ "", /* 0xFF43 */ "", /* 0xFF44 */ "", /* 0xFF45 */ "", /* 0xFF46 */ "", /* 0xFF47 */ "", /* 0xFF48 */ "", /* 0xFF49 */ "", /* 0xFF4A */ "", /* 0xFF4B */ "", /* 0xFF4C */ "", /* 0xFF4D */ "", /* 0xFF4E */ "", /* 0xFF4F */ "\001\001", /* 0xFF50 XK_Home */ "\003\033[\004", /* 0xFF51 XK_Left */ "\003\033[\001", /* 0xFF52 XK_Up */ "\003\033[\003", /* 0xFF53 XK_Right */ "\003\033[\002", /* 0xFF54 XK_Down */ "\004\033[5^", /* 0xFF55 XK_Prior */ "\004\033[6^", /* 0xFF56 XK_Next */ "\001\005", /* 0xFF57 XK_End */ "\001\001", /* 0xFF58 XK_Begin */ "", /* 0xFF59 */ "", /* 0xFF5A */ "", /* 0xFF5B */ "", /* 0xFF5C */ "", /* 0xFF5D */ "", /* 0xFF5E */ "", /* 0xFF5F */ "\004\033[4^", /* 0xFF60 XK_Select */ "", /* 0xFF61 XK_Print */ "", /* 0xFF62 XK_Execute */ "\004\033[2^", /* 0xFF63 XK_Insert */ "", /* 0xFF64 */ "\001\037", /* 0xFF65 XK_Undo ^_ */ "", /* 0xFF66 XK_Redo */ "\005\033[29^", /* 0xFF67 XK_Menu Do */ "\004\033[1^", /* 0xFF68 XK_Find */ "\001\007", /* 0xFF69 XK_Cancel */ "\005\033[28^", /* 0xFF6A XK_Help */ "", /* 0xFF6B XK_Break */ "", /* 0xFF6C */ "", /* 0xFF6D */ "", /* 0xFF6E */ "", /* 0xFF6F */ "", /* 0xFF70 */ "", /* 0xFF71 */ "", /* 0xFF72 */ "", /* 0xFF73 */ "", /* 0xFF74 */ "", /* 0xFF75 */ "", /* 0xFF76 */ "", /* 0xFF77 */ "", /* 0xFF78 */ "", /* 0xFF79 */ "", /* 0xFF7A */ "", /* 0xFF7B */ "", /* 0xFF7C */ "", /* 0xFF7D */ "", /* 0xFF7E */ "", /* 0xFF7F XK_Num_Lock */ "", /* 0xFF80 XK_KP_Space */ "", /* 0xFF81 */ "", /* 0xFF82 */ "", /* 0xFF83 */ "", /* 0xFF84 */ "", /* 0xFF85 */ "", /* 0xFF86 */ "", /* 0xFF87 */ "", /* 0xFF88 */ "", /* 0xFF89 XK_KP_Tab */ "", /* 0xFF8A */ "", /* 0xFF8B */ "", /* 0xFF8C */ "\003\033OM", /* 0xFF8D XK_KP_Enter */ "", /* 0xFF8E */ "", /* 0xFF8F */ "", /* 0xFF90 */ "\003\033OP", /* 0xFF91 XK_KP_F1 PF1 */ "\003\033OQ", /* 0xFF92 XK_KP_F2 PF2 */ "\003\033OR", /* 0xFF93 XK_KP_F3 PF3 */ "\003\033OS", /* 0xFF94 XK_KP_F4 PF4 */ "", /* 0xFF95 */ "", /* 0xFF96 */ "", /* 0xFF97 */ "", /* 0xFF98 */ "", /* 0xFF99 */ "", /* 0xFF9A */ "", /* 0xFF9B */ "", /* 0xFF9C */ "", /* 0xFF9D */ "", /* 0xFF9E */ "", /* 0xFF9F */ "", /* 0xFFA0 */ "", /* 0xFFA1 */ "", /* 0xFFA2 */ "", /* 0xFFA3 */ "", /* 0xFFA4 */ "", /* 0xFFA5 */ "", /* 0xFFA6 */ "", /* 0xFFA7 */ "", /* 0xFFA8 */ "", /* 0xFFA9 */ "", /* 0xFFAA XK_KP_Multiply */ "", /* 0xFFAB XK_KP_Add */ "\003\033Ol", /* 0xFFAC XK_KP_Separator KP , */ "\003\033Om", /* 0xFFAD XK_KP_Subtract KP - */ "\003\033On", /* 0xFFAE XK_KP_Decimal KP . */ "", /* 0xFFAF XK_KP_Divide */ "\003\033Op", /* 0xFFB0 XK_KP_0 */ "\003\033Oq", /* 0xFFB1 XK_KP_1 */ "\003\033Or", /* 0xFFB2 XK_KP_2 */ "\003\033Os", /* 0xFFB3 XK_KP_3 */ "\003\033Ot", /* 0xFFB4 XK_KP_4 */ "\003\033Ou", /* 0xFFB5 XK_KP_5 */ "\003\033Ov", /* 0xFFB6 XK_KP_6 */ "\003\033Ow", /* 0xFFB7 XK_KP_7 */ "\003\033Ox", /* 0xFFB8 XK_KP_8 */ "\003\033Oy", /* 0xFFB9 XK_KP_9 */ "", /* 0xFFBA */ "", /* 0xFFBB */ "", /* 0xFFBC */ "", /* 0xFFBD XK_KP_Equal */ "\005\033[11^", /* 0xFFBE XK_F1 */ "\005\033[12^", /* 0xFFBF XK_F2 */ "\005\033[13^", /* 0xFFC0 XK_F3 */ "\005\033[14^", /* 0xFFC1 XK_F4 */ "\005\033[15^", /* 0xFFC2 XK_F5 */ "\005\033[17^", /* 0xFFC3 XK_F6 */ "\005\033[18^", /* 0xFFC4 XK_F7 */ "\005\033[19^", /* 0xFFC5 XK_F8 */ "\005\033[20^", /* 0xFFC6 XK_F9 */ "\005\033[21^", /* 0xFFC7 XK_F10 */ "\005\033[23^", /* 0xFFC8 XK_F11 XK_L1 */ "\005\033[24^", /* 0xFFC9 XK_F12 XK_L2 */ "\005\033[25^", /* 0xFFCA XK_F13 XK_L3 */ "\005\033[26^", /* 0xFFCB XK_F14 XK_L4 */ "\005\033[28^", /* 0xFFCC XK_F15 XK_L5 */ "\005\033[29^", /* 0xFFCD XK_F16 XK_L6 */ "\005\033[31^", /* 0xFFCE XK_F17 XK_L7 */ "\005\033[32^", /* 0xFFCF XK_F18 XK_L8 */ "\005\033[33^", /* 0xFFD0 XK_F19 XK_L9 */ "\005\033[34^", /* 0xFFD1 XK_F20 XK_L10 */ "\005\033[35^", /* 0xFFD2 XK_F21 XK_R1 */ "\005\033[36^", /* 0xFFD3 XK_F22 XK_R2 */ "\005\033[37^", /* 0xFFD4 XK_F23 XK_R3 */ "\005\033[38^", /* 0xFFD5 XK_F24 XK_R4 */ "\005\033[39^", /* 0xFFD6 XK_F25 XK_R5 */ "\005\033[40^", /* 0xFFD7 XK_F26 XK_R6 */ "\005\033[41^", /* 0xFFD8 XK_F27 XK_R7 */ "\005\033[42^", /* 0xFFD9 XK_F28 XK_R8 */ "\005\033[43^", /* 0xFFDA XK_F29 XK_R9 */ "\005\033[44^", /* 0xFFDB XK_F30 XK_R10 */ "\005\033[45^", /* 0xFFDC XK_F31 XK_R11 */ "\005\033[46^", /* 0xFFDD XK_F32 XK_R12 */ "\005\033[47^", /* 0xFFDE XK_R13 XK_F33 */ "\005\033[48^", /* 0xFFDF XK_F34 XK_R14 */ "\005\033[49^", /* 0xFFE0 XK_F35 XK_R15 */ "", /* 0xFFE1 XK_Shift_L XK_Shift_L */ "", /* 0xFFE2 XK_Shift_R */ "", /* 0xFFE3 XK_Control_L */ "", /* 0xFFE4 XK_Control_R */ "", /* 0xFFE5 XK_Caps_Lock */ "", /* 0xFFE6 XK_Shift_Lock */ "", /* 0xFFE7 XK_Meta_L */ "", /* 0xFFE8 XK_Meta_R */ "", /* 0xFFE9 XK_Alt_L */ "", /* 0xFFEA XK_Alt_R */ "", /* 0xFFEB XK_Super_L */ "", /* 0xFFEC XK_Super_R */ "", /* 0xFFED XK_Hyper_L */ "", /* 0xFFEE XK_Hyper_R */ "", /* 0xFFEF */ "", /* 0xFFF0 */ "", /* 0xFFF1 */ "", /* 0xFFF2 */ "", /* 0xFFF3 */ "", /* 0xFFF4 */ "", /* 0xFFF5 */ "", /* 0xFFF6 */ "", /* 0xFFF7 */ "", /* 0xFFF8 */ "", /* 0xFFF9 */ "", /* 0xFFFA */ "", /* 0xFFFB */ "", /* 0xFFFC */ "", /* 0xFFFD */ "", /* 0xFFFE */ "\001\177" /* 0xFFFF XK_Delete */ }; Super_L */ "", /jed-0.97.12/src/xterm.c000064400000000000003000001323330603742314100143670ustar00rootsys00000000000000/* This is my first attempt at X for JED. */ /* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #ifndef VMS #include #include /* #include */ #include #include #include #else #include #include /* #include */ #include #include #include #endif #include #include #include #include "config.h" /* #include "xterm.h"*/ #include "display.h" #include "sysdep.h" #include "screen.h" #include "keymap.h" #include "slang.h" #include "hooks.h" #include "ins.h" #include "ledit.h" #include "misc.h" #include "cmds.h" #include "sig.h" static int JX_Screen_Cols; static int JX_Screen_Rows; static int JX_Term_Cannot_Scroll = 0; static int JX_Term_Cannot_Insert = 0; static int JX_Use_Ansi_Colors = 1; static int JX_Ignore_Beep = 3; typedef struct { GC gc; unsigned long fg, bg; char *fg_name; char *bg_name; } GC_Info_Type; typedef struct { Window w; int height, width; int border; /* inside border */ int o_border; /* outside border */ Colormap color_map; /* font information */ XFontStruct *font; char *font_name; int font_height, font_width, font_base; /* GC info */ GC_Info_Type *text_gc; GC current_gc; GC_Info_Type pointer_gc; int vis_curs_row, vis_curs_col; /* position of VISIBLE cursor */ /* flags */ int cursor_showing; /* true if widow has cursor showing */ int focus; /* true if window has focus */ int window_mapped; /* true if window is mapped */ /* Window tty parameters */ int insert_mode; /* true if inserting */ int scroll_r1, scroll_r2; /* scrolling region */ int cursor_row, cursor_col; /* row column of cursor (0, 0) origin */ int visible; /* from visibilitynotify */ Cursor mouse; } JXWindow_Type; static JXWindow_Type This_X_Window; static JXWindow_Type *XWin; static Display *This_XDisplay; static Window This_XWindow; static int This_XScreen; static int Performing_Update; static int No_XEvents; /* if true, do nothing */ typedef struct { char *name; char *name1; int type; char *value; char **dflt; } XWindow_Arg_Type; static char *This_App_Name = "XJed"; static char *This_App_Title = "XJed"; #define Default_Geometry "80x24+0-0" static char *This_Geometry = NULL; static char *This_Font_Name = "fixed"; static char *This_Border_Width_Name = "0"; static char *This_MFG = "green"; static char *This_MBG = "white"; static GC_Info_Type Default_GC_Info[JMAX_COLORS] = { {NULL, 0, 0, "black", "white"}, /* NORMAL */ {NULL, 0, 0, "green", "red"}, /* CURSOR */ {NULL, 0, 0, "black", "skyblue"}, /* STATUS */ {NULL, 0, 0, "black", "magenta"}, /* REGION */ {NULL, 0, 0, "black", "skyblue"}, /* MENU */ {NULL, 0, 0, "black", "white"}, /* operator */ {NULL, 0, 0, "green", "white"}, /* numbers */ {NULL, 0, 0, "blue", "white"}, /* strings */ {NULL, 0, 0, "black", "gray"}, /* comments */ {NULL, 0, 0, "black", "white"}, /* delimeters */ {NULL, 0, 0, "magenta", "white"}, /* preprocess */ {NULL, 0, 0, "blue", "white"}, /* message */ {NULL, 0, 0, "red", "white"}, /* error */ {NULL, 0, 0, "magenta", "white"}, /* dollar */ {NULL, 0, 0, "red", "white"}, /* keyword */ {NULL, 0, 0, "green", "white"}, /* keyword1 */ {NULL, 0, 0, "red", "white"} /* keyword2 */ }; static XWindow_Arg_Type X_Arg_List[] = { /* These MUST be in this order!!! */ {"Display", "d", STRING_TYPE, NULL, NULL}, {"Name", NULL, STRING_TYPE, NULL, &This_App_Name}, {"Geometry", NULL, STRING_TYPE, NULL, &This_Geometry}, /* These are in arbitrary order */ {"Font", "fn", STRING_TYPE, NULL, &This_Font_Name}, {"Mouse_fg", "mfg", STRING_TYPE, NULL, &This_MFG}, {"Mouse_bg", "mbg", STRING_TYPE, NULL, &This_MBG}, {"Background", "bg", STRING_TYPE, NULL, &Default_GC_Info[JNORMAL_COLOR].bg_name}, {"Foreground", "fg", STRING_TYPE, NULL, &Default_GC_Info[JNORMAL_COLOR].fg_name}, {"Status_fg", "sfg", STRING_TYPE, NULL, &Default_GC_Info[JSTATUS_COLOR].fg_name}, {"Status_bg", "sbg", STRING_TYPE, NULL, &Default_GC_Info[JSTATUS_COLOR].bg_name}, {"Region_fg", "rfg", STRING_TYPE, NULL, &Default_GC_Info[JREGION_COLOR].fg_name}, {"Region_bg", "rbg", STRING_TYPE, NULL, &Default_GC_Info[JREGION_COLOR].bg_name}, {"Cursor_fg", "cfg", STRING_TYPE, NULL, &Default_GC_Info[JCURSOR_COLOR].fg_name}, {"Cursor_bg", "cbg", STRING_TYPE, NULL, &Default_GC_Info[JCURSOR_COLOR].bg_name}, {"Menu_fg", "mfg", STRING_TYPE, NULL, &Default_GC_Info[JMENU_COLOR].fg_name}, {"Menu_bg", "mbg", STRING_TYPE, NULL, &Default_GC_Info[JMENU_COLOR].bg_name}, {"Operator_fg", "opfg", STRING_TYPE, NULL, &Default_GC_Info[JOP_COLOR].fg_name}, {"Operator_bg", "opbg", STRING_TYPE, NULL, &Default_GC_Info[JOP_COLOR].bg_name}, {"Number_fg", "nmfg", STRING_TYPE, NULL, &Default_GC_Info[JNUM_COLOR].fg_name}, {"Number_bg", "nmbg", STRING_TYPE, NULL, &Default_GC_Info[JNUM_COLOR].bg_name}, {"String_fg", "stfg", STRING_TYPE, NULL, &Default_GC_Info[JSTR_COLOR].fg_name}, {"String_bg", "stbg", STRING_TYPE, NULL, &Default_GC_Info[JSTR_COLOR].bg_name}, {"Comments_fg", "cofg", STRING_TYPE, NULL, &Default_GC_Info[JCOM_COLOR].fg_name}, {"Comments_bg", "cobg", STRING_TYPE, NULL, &Default_GC_Info[JCOM_COLOR].bg_name}, {"Keyword_fg", "kwfg", STRING_TYPE, NULL, &Default_GC_Info[JKEY_COLOR].fg_name}, {"Keyword_bg", "kwbg", STRING_TYPE, NULL, &Default_GC_Info[JKEY_COLOR].bg_name}, {"Keyword1_fg", "kw1fg",STRING_TYPE, NULL, &Default_GC_Info[JKEY_COLOR + 1].fg_name}, {"Keyword1_bg", "kw1bg",STRING_TYPE, NULL, &Default_GC_Info[JKEY_COLOR + 1].bg_name}, {"Delimiter_fg", "defg", STRING_TYPE, NULL, &Default_GC_Info[JDELIM_COLOR].fg_name}, {"Delimiter_bg", "debg", STRING_TYPE, NULL, &Default_GC_Info[JDELIM_COLOR].bg_name}, {"Preprocess_fg", "prfg", STRING_TYPE, NULL, &Default_GC_Info[JPREPROC_COLOR].fg_name}, {"Preprocess_bg", "prbg", STRING_TYPE, NULL, &Default_GC_Info[JPREPROC_COLOR].bg_name}, {"Message_bg", "msbg", STRING_TYPE, NULL, &Default_GC_Info[JMESSAGE_COLOR].bg_name}, {"Message_fg", "msfg", STRING_TYPE, NULL, &Default_GC_Info[JMESSAGE_COLOR].fg_name}, {"Error_fg", "erfg", STRING_TYPE, NULL, &Default_GC_Info[JERROR_COLOR].fg_name}, {"Error_bg", "erbg", STRING_TYPE, NULL, &Default_GC_Info[JERROR_COLOR].bg_name}, {"Borderwidth", "bw", STRING_TYPE, NULL, &This_Border_Width_Name}, {"Title", NULL, STRING_TYPE, NULL, &This_App_Title}, {"Bordercolor", "bd", STRING_TYPE, NULL, NULL}, {"Iconic", NULL, VOID_TYPE, NULL, NULL}, {"xrm", NULL, STRING_TYPE, NULL, NULL}, {NULL, NULL, 0, NULL, NULL} }; static void hide_cursor (void) { unsigned short *s; char ch; int b = XWin->border, col = XWin->vis_curs_col, row = XWin->vis_curs_row; if (No_XEvents) return; if (XWin->cursor_showing == 0) return; XWin->cursor_showing = 0; s = JScreen[row].old; if (s == NULL) return; s += col; ch = (char) (*s & 0xFF); XDrawImageString(This_XDisplay, XWin->w, XWin->text_gc[*s >> 8].gc, col * XWin->font_width + b, row * XWin->font_height + b + XWin->font_base, &ch, 1); } /* This routine assumes that cursor is in the correct location. The cursor is placed at the end of the string. */ static void tt_write(char *s, int n) { int b = XWin->border; if (XWin->window_mapped == 0) return; if (No_XEvents) return; if (XWin->cursor_showing) hide_cursor (); XDrawImageString(This_XDisplay, This_XWindow, XWin->current_gc, (XWin->cursor_col) * XWin->font_width + b, (XWin->cursor_row) * XWin->font_height + b + XWin->font_base, s, n); XWin->cursor_col += n; if (XWin->cursor_col >= JX_Screen_Cols) XWin->cursor_col = JX_Screen_Cols - 1; } static void copy_rect(int x1, int y1, int x2, int y2, int x3, int y3) { int w, h; if (No_XEvents) return; if (XWin->window_mapped == 0) return; w = (x2 - x1) * XWin->font_width; h = (y2 - y1) * XWin->font_height; if ((w <= 0) || (h <= 0)) return; x3 = XWin->border + x3 * XWin->font_width; x1 = XWin->border + x1 * XWin->font_width; y3 = XWin->border + y3 * XWin->font_height; y1 = XWin->border + y1 * XWin->font_height; hide_cursor (); XCopyArea (This_XDisplay, This_XWindow, This_XWindow, XWin->current_gc, x1, y1, w, h, x3, y3); } static void blank_rect (int x1, int y1, int x2, int y2) { int w, h; if (No_XEvents) return; if (XWin->window_mapped == 0) return; w = (x2 - x1) * XWin->font_width; h = (y2 - y1) * XWin->font_height; if ((w <= 0) || (h <= 0)) return; x1 = XWin->border + x1 * XWin->font_width; y1 = XWin->border + y1 * XWin->font_height; hide_cursor (); XClearArea (This_XDisplay, This_XWindow, x1, y1, w, h, 0); } static void JX_set_scroll_region(int r1, int r2) { XWin->scroll_r1 = r1; XWin->scroll_r2 = r2; } static void JX_reset_scroll_region (void) { XWin->scroll_r1 = 0; XWin->scroll_r2 = JX_Screen_Rows - 1; } static void show_cursor (void) { unsigned short *s; char ch; int c, r, b; GC gc; if (No_XEvents) return; if (XWin->cursor_showing) hide_cursor (); XWin->cursor_showing = 1; r = XWin->vis_curs_row = XWin->cursor_row; c = XWin->vis_curs_col = XWin->cursor_col; b = XWin->border; s = JScreen[r].old; if (s == NULL) return; s += c; ch = (char) (*s & 0xFF); gc = XWin->text_gc[JCURSOR_COLOR].gc; if (XWin->focus) { XDrawImageString(This_XDisplay, This_XWindow, gc, c * XWin->font_width + b, r * XWin->font_height + b + XWin->font_base, &ch, 1); } else { XDrawRectangle( This_XDisplay, This_XWindow, gc, c * XWin->font_width + b, r * XWin->font_height + b, XWin->font_width - 1, XWin->font_height - 1); } XFlush(This_XDisplay); } static void toggle_cursor (int on) { if (on) { if (XWin->focus) return; XWin->focus = 1; } else { if (XWin->focus == 0) return; XWin->focus = 0; } show_cursor (); } static void JX_write_string (char *s) { tt_write(s, strlen(s)); if (Performing_Update) return; show_cursor (); } static void JX_goto_rc(int r, int c) { if (XWin == NULL) return; if (XWin->cursor_showing) hide_cursor (); if (r >= JX_Screen_Rows) r = JX_Screen_Rows - 1; if (c >= JX_Screen_Cols) c = JX_Screen_Cols - 1; XWin->cursor_row = r + XWin->scroll_r1; XWin->cursor_col = c; if (Performing_Update) return; show_cursor (); } static void JX_begin_insert(void) { XEvent ev; if (No_XEvents) return; hide_cursor (); copy_rect(XWin->cursor_col, XWin->cursor_row, JX_Screen_Cols - 1, XWin->cursor_row + 1, XWin->cursor_col + 1, XWin->cursor_row); XWin->insert_mode = 1; /* The noexpose events really mess up input pending timing. Stop them now. */ XFlush(This_XDisplay); if (!XPeekEvent(This_XDisplay, &ev) || (ev.type != NoExpose)) return; XNextEvent(This_XDisplay, &ev); } static void JX_end_insert(void) { XWin->insert_mode = 0; } static void JX_delete_char (void) { copy_rect(XWin->cursor_col + 1, XWin->cursor_row, JX_Screen_Cols, XWin->cursor_row + 1, XWin->cursor_col, XWin->cursor_row); } static void JX_erase_line(void) { if (XWin == NULL) return; blank_rect(0, XWin->cursor_row, JX_Screen_Cols, XWin->cursor_row + 1); } /* Must respect scrolling region */ static void JX_delete_nlines(int n) { int r1, r2; r1 = XWin->cursor_row; r2 = XWin->scroll_r2; if (r1 <= r2 - n) copy_rect(0, r1 + n, JX_Screen_Cols, r2 + 1, 0, r1); if (Scroll_By_Copying == 0) blank_rect(0, r2 - n, JX_Screen_Cols, r2); } static void JX_reverse_index(int n) { int r1, r2; r1 = XWin->scroll_r1; r2 = XWin->scroll_r2; if (r2 >= r1 + n) copy_rect(0, r1, JX_Screen_Cols, r2 - n + 1, 0, r1 + n); if (Scroll_By_Copying == 0) blank_rect(0, r1, JX_Screen_Cols, r1 + n); } static void JX_beep(void) { GC gc; XGCValues gcv; if (No_XEvents) return; flush_input(); if (JX_Ignore_Beep & 0x1) XBell (This_XDisplay, 50); /* visible bell */ if (JX_Ignore_Beep & 0x2) { gc = XCreateGC(This_XDisplay, This_XWindow, 0, &gcv); XSetState(This_XDisplay, gc, WhitePixel (This_XDisplay, This_XScreen), BlackPixel(This_XDisplay, This_XScreen), GXinvert, AllPlanes); XFillRectangle (This_XDisplay, This_XWindow, gc, 0, 0, XWin->font_width * JX_Screen_Cols, XWin->font_height * JX_Screen_Rows); XFlush (This_XDisplay); /* I attempted to put a pause in here but it was too slow. */ XFillRectangle (This_XDisplay, This_XWindow, gc, 0, 0, XWin->font_width * JX_Screen_Cols, XWin->font_height * JX_Screen_Rows); XFreeGC(This_XDisplay, gc); } XFlush (This_XDisplay); } static void JX_del_eol(void) { blank_rect(XWin->cursor_col, XWin->cursor_row, JX_Screen_Cols, XWin->cursor_row + 1); } static int Rev_Vid_Flag; static void JX_reverse_video(int color) { Rev_Vid_Flag = color; XWin->current_gc = XWin->text_gc[color].gc; } static void JX_normal_video(void) { if (XWin == NULL) return; Rev_Vid_Flag = JNORMAL_COLOR; XWin->current_gc = XWin->text_gc[JNORMAL_COLOR].gc; } static void send_attr_str(unsigned short *s, unsigned short *smax) { unsigned char out[250], ch, attr, *p; register unsigned short sh; p = out; while (s < smax) { sh = (unsigned short) *s++; ch = sh & 0xFF; attr = sh >> 8; if ((attr == 0) && (Rev_Vid_Flag != 0)) { if (p != out) { *p = 0; JX_write_string ((char *) out); p = out; } tt_normal_video(); /* Rev_Vid_Flag = 0; */ } else if ((attr != 0) && (Rev_Vid_Flag != attr)) { if (p != out) { *p = 0; JX_write_string ((char *) out); p = out; } JX_reverse_video(attr); /* Rev_Vid_Flag = 1; */ } *p++ = ch; } *p = 0; if (p != out) JX_write_string ((char *) out); /* if (Rev_Vid_Flag) tt_normal_video(); */ } #define SPACE_CHAR (32 | (JNORMAL_COLOR << 8)) static void forward_cursor (int n, int row) { JX_goto_rc (row, XWin->cursor_col + n); } static void JX_smart_puts(unsigned short *neww,unsigned short *oldd, int len, int row) { register unsigned short *p, *q, *qmax, *pmax, *buf; unsigned short buffer[256]; int n_spaces; unsigned short *space_match, *last_buffered_match; q = oldd; p = neww; qmax = oldd + len; pmax = p + len; /* Find out where to begin --- while they match, we are ok */ for (;;) { if (q == qmax) return; if (*q != *p) break; q++; p++; } /*position the cursor */ JX_goto_rc (row, (int) (p - neww)); /* Find where the last non-blank character on old/new screen is */ while (qmax > q) { qmax--; if (*qmax != SPACE_CHAR) { qmax++; break; } } /* if (*qmax != SPACE_CHAR) qmax++; */ while (pmax > p) { pmax--; if (*pmax != SPACE_CHAR) { pmax++; break; } } last_buffered_match = buf = buffer; /* buffer is empty */ /* loop using overwrite then skip algorithm until done */ while (1) { /* while they do not match and we do not hit a space, buffer them up */ n_spaces = 0; while (p < pmax) { if ((*q == SPACE_CHAR) && (*p == SPACE_CHAR)) { /* If *q is not a space, we would have to overwrite it. * However, if *q is a space, then while *p is also one, * we only need to skip over the blank field. */ space_match = p; p++; q++; while ((p < pmax) && (*p == SPACE_CHAR) && (*q == SPACE_CHAR)) { p++; q++; } n_spaces = (int) (p - space_match); break; } if (*q == *p) break; *buf++ = *p++; q++; } *buf = 0; if (buf != buffer) send_attr_str (buffer, buf); buf = buffer; if (n_spaces && (p < pmax)) { forward_cursor (n_spaces, row); } /* Now we overwrote what we could and cursor is placed at position * of a possible match of new and old. If this is the case, skip * some more. */ while ((p < pmax) && (*p == *q)) { *buf++ = *p++; q++; } last_buffered_match = buf; if (p >= pmax) break; /* jump to new position is it is greater than 5 otherwise * let it sit in the buffer and output it later. */ if ((int) (buf - buffer) >= 5) { forward_cursor (buf - buffer, row); last_buffered_match = buf = buffer; } } if (buf != buffer) { if (q < qmax) { if ((buf == last_buffered_match) && ((int) (buf - buffer) >= 5)) { forward_cursor (buf - buffer, row); } else { *buf = 0; send_attr_str (buffer, buf); } } } if (q < qmax) JX_del_eol (); } static int push_mouse_event (int type, int x, int y, unsigned int button, unsigned int state ) { register unsigned int s = 0, but; int ch; static int last_button; if (button == 0) button = last_button; JMouse.type = (type == ButtonPress) ? 1 : 0; if (JMouse.type) last_button = button; JMouse.x = 1 + (x - XWin->border) / XWin->font_width; if (y < XWin->border) JMouse.y = 0; else JMouse.y = 1 + (y - XWin->border) / XWin->font_height; but = JMouse.button = (int) button; if (but == Button1) ch = 'l'; else if (but == Button2) ch = 'm'; else ch = 'r'; if (state & Button1Mask) s |= 1; if (state & Button2Mask) s |= 2; if (state & Button3Mask) s |= 4; if (state & ShiftMask) { s |= 16; ch = 'A' + (ch - 'a'); } if (state & ControlMask) { s |= 8; if (ch >= 'a') ch = ch - 'a' + 1; } JMouse.state = s; return ch; } static void cover_exposed_area (int x, int y, int width, int height, int count) { unsigned short *s, *smax; int row, save_row, save_col, max_col, max_row, col; Performing_Update++; hide_cursor (); save_row = XWin->cursor_row; save_col = XWin->cursor_col; col = (x - XWin->border) / XWin->font_width; row = (y - XWin->border) / XWin->font_height; max_col = 2 + col + width / XWin->font_width; max_row = 2 + row + height / XWin->font_height; if (max_col > JX_Screen_Cols) max_col = JX_Screen_Cols; if (max_row > JX_Screen_Rows) max_row = JX_Screen_Rows; for (XWin->cursor_row = row; XWin->cursor_row < max_row; XWin->cursor_row++) { XWin->cursor_col = col; s = JScreen[XWin->cursor_row].old + XWin->cursor_col; smax = JScreen[XWin->cursor_row].old + max_col; send_attr_str(s, smax); } XWin->cursor_row = save_row; XWin->cursor_col = save_col; Performing_Update--; if (count == 0) show_cursor (); } #include "xkeys.c" /* Return 1 if event is listed in the switch or zero otherwise. The switch * events are considered harmless--- that is, processing them does not really * interfere with internal JED state (redisplay, etc...). More bluntly, * harmless means that the events can be processesed while checking for * pending input. */ static int x_handle_harmless_events (XEvent *report) { switch (report->type) { case EnterNotify: toggle_cursor(report->xcrossing.focus); break; case LeaveNotify: /* toggle_cursor(0); */ break; case UnmapNotify: XWin->window_mapped = 0; break; case MapNotify: XWin->window_mapped = 1; break; case FocusIn: toggle_cursor(1); break; case FocusOut: toggle_cursor(0); break; case VisibilityNotify: XWin->visible = report->xvisibility.state; break; case GraphicsExpose: cover_exposed_area (report->xgraphicsexpose.x, report->xgraphicsexpose.y, report->xgraphicsexpose.width, report->xgraphicsexpose.height, report->xgraphicsexpose.count); break; case NoExpose: break; case KeyPress: /* Just look for Modifier key presses */ return IsModifierKey (XLookupKeysym (&report->xkey, 0)); default: /* fprintf(stderr, "harmless: %d\n", report->type); */ return 0; } return 1; } static int X_Alt_Char = 27; static KeySym X_Last_Keysym; /* if force is true, wait for an event. If force is false, only * process events that exist. This will return either when there * are no more events or a key/mouse event is processed returning * 1 in the process */ static int X_process_events (int force, char *buf, int *n_chars) { XEvent report; int ch1; int block_expose = 0; char *bufp; KeySym ks; int esc = 27; Window root, child; int posx, posy, rootx, rooty; unsigned int keys_buttons; int last_x, last_y; static int last_event, motion_button; static unsigned int motion_state; int width, height; while (force || XPending(This_XDisplay)) { XNextEvent(This_XDisplay, &report); switch (report.type) { case MotionNotify: while (XCheckMaskEvent (This_XDisplay, ButtonMotionMask, &report)); if (!XQueryPointer(This_XDisplay, report.xmotion.window, &root, &child, &rootx, &rooty, &posx, &posy, &keys_buttons)) break; /* This will ensure that modifier keys are not pressed while we are in motion. */ if ((last_event == MotionNotify) && (motion_state != keys_buttons)) break; motion_state = keys_buttons; last_x = JMouse.x; last_y = JMouse.y; ch1 = push_mouse_event (ButtonPress, posx, posy, 0, keys_buttons); if ((last_x == JMouse.x) && (last_y == JMouse.y)) break; /* return ESC ^@ ^@ .... */ *buf++ = esc; *buf++ = 0; *buf++ = 0; *buf++ = ch1; *n_chars = 4; last_event = MotionNotify; motion_button = JMouse.button; return 1; case Expose: if (block_expose == 0) cover_exposed_area (report.xexpose.x, report.xexpose.y, report.xexpose.width, report.xexpose.height, report.xexpose.count); else { if (report.xexpose.count == 0) { redraw_screen (1); block_expose = 0; } } break; case ConfigureNotify: width = report.xconfigure.width; height = report.xconfigure.height; if ((width != XWin->width) || (height != XWin->height)) { XWin->width = width; XWin->height = height; reset_display (); init_display(1); block_expose = -1; } break; case ButtonPress: /* Prohibit dragging more than one button at a time. */ if (last_event == MotionNotify) break; /* drop */ case ButtonRelease: if ((last_event == MotionNotify) && (report.xbutton.button != motion_button)) break; last_event = 0; /* ESC ^@ U/D is a mouse prefix */ *buf++ = esc; *buf++ = 0; if (report.type == ButtonPress) ch1 = 'D'; else ch1 = 'U'; *buf++ = ch1; *buf++ = push_mouse_event (report.xbutton.type, report.xbutton.x, report.xbutton.y, report.xbutton.button, report.xbutton.state); *n_chars = 4; return 1; case KeyPress: bufp = buf; *n_chars = XLookupString(&report.xkey, buf, 20, &ks, NULL); ks = ks & 0xFFFF; X_Last_Keysym = ks; if (ks >= 0xFF00) { ks = ks & 0xFF; if (report.xkey.state & ShiftMask) bufp = Shift_KeySym_Mapping [ks]; else if (report.xkey.state & ControlMask) bufp = Control_KeySym_Mapping [ks]; else bufp = KeySym_Mapping [ks]; if (0 != (*n_chars = (int) *bufp++)) MEMCPY(buf, bufp, *n_chars); } else if (*n_chars == 1) { if (report.xkey.state & Mod1Mask) { ch1 = *bufp; #if 0 /* Only do this on alphabetic characters. This * is because, e.g., german keyboards use 'Alt-{' * to generate the '{' character */ if (isalnum (ch1) && (ch1 < 0x80)) { #endif if (X_Alt_Char <= 0) *buf |= 0x80; else { *bufp++ = (unsigned char) X_Alt_Char; *bufp = (unsigned char) ch1; *n_chars = 2; } #if 0 } #endif } else if (report.xkey.state & ControlMask) { if (*buf == ' ') *buf = 0; else if (*buf == '-') *buf = 0x1F; } } if (*n_chars == 0) break; return 1; default: (void) x_handle_harmless_events (&report); } } return 0; } static int X_read_key (void) { int nread; char buf[30]; (void) X_process_events (1, buf, &nread); if (nread > 1) ungetkey_string(buf + 1, nread - 1); return (int) *buf; } static int X_input_pending (void) { XEvent ev; int n; if (No_XEvents) return 0; n = XPending (This_XDisplay); if (!n) return (0); /* I need some way of getting only kbd events. */ while (n--) { XPeekEvent(This_XDisplay, &ev); if (0 == x_handle_harmless_events (&ev)) return 1; XNextEvent(This_XDisplay, &ev); } return 0; } static void X_Get_Term_Size(int *cols, int *rows) { *cols = (XWin->width - XWin->border) / XWin->font_width; *rows = (XWin->height - XWin->border) / XWin->font_height; } static void JX_set_term_vtxxx (int *n) { } static void JX_narrow_width (void) { } static void JX_wide_width (void) { } static void JX_enable_cursor_keys(void) { } static void JX_cls(void) { if (No_XEvents) return; if (XWin->window_mapped == 0) return; XClearWindow(This_XDisplay, This_XWindow); } /* This function is called assuming that cursor is in correct position */ static void JX_putchar(char ch) { if (ch == '\b') { ch = ' '; if (XWin->cursor_col == 0) return; XWin->cursor_col--; } if (Rev_Vid_Flag != JNORMAL_COLOR) tt_normal_video(); tt_write(&ch, 1); show_cursor (); } /* This routine is called from S-Lang inner interpreter. It serves as a poor mans version of an interrupt 9 handler */ static void xjed_check_kbd(void) { char buf[30]; int n; register char *b, *bmax; if (Batch || No_XEvents) return; while (XPending(This_XDisplay)) { if (X_process_events (0, buf, &n) == 0) continue; b = buf; bmax = b + n; while (b < bmax) { if (*b == Abort_Char) { if (Ignore_User_Abort == 0) SLang_Error = USER_BREAK; if (b != buf) buffer_keystring (buf, (int) (b - buf)); SLKeyBoard_Quit = 1; break; } b++; } if (!SLKeyBoard_Quit) buffer_keystring (buf, n); } } static void xjed_suspend (void) { if (No_XEvents) return; if (XWin->focus) { /* XIconifyWindow (This_XDisplay, XWin->w, This_XScreen); */ if (XWin->visible == VisibilityUnobscured) XLowerWindow (This_XDisplay, This_XWindow); else XRaiseWindow (This_XDisplay, This_XWindow); } else { /* The window doesn't have focus which means that this was most * likely called by pressing Ctrl-Z from another window. */ sys_suspend (); } } static int load_font (char *font) { static XFontStruct *xfont; xfont = XLoadQueryFont(This_XDisplay, font); if (xfont == NULL) return 0; XWin->font = xfont; XWin->font_name = font; XWin->font_height = XWin->font->ascent + XWin->font->descent; XWin->font_width = XWin->font->max_bounds.width; XWin->font_base = XWin->font->ascent; return 1; } static void get_xdefaults (void) { XWindow_Arg_Type *xargs = X_Arg_List + 2; /* skip display, name, etc */ while (xargs->name != NULL) { if ((xargs->type != VOID_TYPE) && (xargs->dflt != NULL)) { if (xargs->value == NULL) { xargs->value = XGetDefault(This_XDisplay, This_App_Name, xargs->name); } if (xargs->value != NULL) { *xargs->dflt = xargs->value; } } xargs++; } } static void set_window_name (char *s) { if (Batch) return; XStoreName (This_XDisplay, XWin->w, s); XSetIconName(This_XDisplay, XWin->w, s); } static void set_wm_hints (JXWindow_Type *w, int xpos, int ypos, unsigned long orflags) { XSizeHints h; XWMHints h1; XClassHint ch; ch.res_name = "xjed"; ch.res_class = "XJed"; h.width_inc = w->font_width; h.height_inc = w->font_height; h.min_width = 5 * w->font_width + w->border; h.min_height = 5 * w->font_height + w->border; h.base_height = 0; h.base_width = 0; h.x = xpos; h.y = ypos; h.height = w->height; h.width = w->width; h.flags = PMinSize | PResizeInc | PBaseSize; h.flags |= orflags; XSetWMNormalHints(This_XDisplay, w->w, &h); /* This bit allows me to track the focus. It is not at all clear from the documentation. */ h1.input = 1; h1.flags = InputHint; XSetWMHints(This_XDisplay, w->w, &h1); #if 0 XSetClassHint(This_XDisplay, w->w, &ch); #endif } /* This parses the colors in the XWin structure and setting defaults to fg, bg upon failure */ static void setup_ith_color (int i, unsigned long fg, unsigned long bg) { XColor xcol; if (Term_Supports_Color && XParseColor(This_XDisplay, XWin->color_map, XWin->text_gc[i].fg_name, &xcol) && XAllocColor(This_XDisplay, XWin->color_map, &xcol)) { fg = xcol.pixel; } XWin->text_gc[i].fg = fg; if (Term_Supports_Color && XParseColor(This_XDisplay, XWin->color_map, XWin->text_gc[i].bg_name, &xcol) && XAllocColor(This_XDisplay, XWin->color_map, &xcol)) { bg = xcol.pixel; } XWin->text_gc[i].bg = bg; } /* This is used to set the colors in the Win structure and if f is non-zero, * the previous definitions are freed. f is 0 when the colors correspond to the * default. */ static void x_set_color_free (int i, char *fgcolor, char *bgcolor, int do_free) { char *save_fg, *save_bg, *fg, *bg; unsigned long old_fg, old_bg; if (NULL == (fg = (char *) SLMALLOC(strlen(fgcolor) + 1))) { SLang_Error = SL_MALLOC_ERROR; return; } strcpy (fg, fgcolor); if (NULL == (bg = (char *) SLMALLOC(strlen(bgcolor) + 1))) { SLang_Error = SL_MALLOC_ERROR; SLFREE (fg); return; } strcpy (bg, bgcolor); old_fg = XWin->text_gc[i].fg; old_bg = XWin->text_gc[i].bg; save_fg = XWin->text_gc[i].fg_name; XWin->text_gc[i].fg_name = fg; save_bg = XWin->text_gc[i].bg_name; XWin->text_gc[i].bg_name = bg; setup_ith_color (i, old_fg, old_bg); if (do_free) { if (save_fg != NULL) SLFREE (save_fg); if (save_bg != NULL) SLFREE (save_bg); } } static void setup_and_parse_colors (void) { unsigned long fg, bg, tmp; char *fg_name, *bg_name; int i; GC_Info_Type *d; /* Check to see if this is a color display */ bg = WhitePixel (This_XDisplay, This_XScreen); bg_name = "white"; fg = BlackPixel (This_XDisplay, This_XScreen); fg_name = "black"; XWin->color_map = DefaultColormap (This_XDisplay, This_XScreen); if (DisplayCells (This_XDisplay, This_XScreen) > 2) { Term_Supports_Color = 1; } else Term_Supports_Color = 0; for (i = 0; i < JMAX_COLORS; i++) { d = Default_GC_Info + i; /* The assumption here is that ALL colors beyond JNORMAL_COLOR (0) * take reversed fg, bgs. I really ought to have flags if this is * not the case. */ d->fg = fg; d->bg = bg; if (d->fg_name == NULL) d->fg_name = fg_name; if (d->bg_name == NULL) d->bg_name = bg_name; if (i == JNORMAL_COLOR) { tmp = fg; fg = bg; bg = tmp; fg_name = bg_name; bg_name = "black"; } x_set_color_free (i, d->fg_name, d->bg_name, 0); } } static void set_mouse_color (char *fgc, char *bgc) { XColor xfg, xbg; if (!Term_Supports_Color) return; if (!XParseColor(This_XDisplay, XWin->color_map, fgc, &xfg) || !XAllocColor(This_XDisplay, XWin->color_map, &xfg)) { return; } if (!XParseColor(This_XDisplay, XWin->color_map, bgc, &xbg) || !XAllocColor(This_XDisplay, XWin->color_map, &xbg)) { return; } XRecolorCursor (This_XDisplay, XWin->mouse, &xfg, &xbg); } static void create_needed_gcs (void) { int i; XGCValues xgcv; xgcv.font = XWin->font->fid; for (i = 0; i < JMAX_COLORS; i++) { xgcv.foreground = XWin->text_gc[i].fg; xgcv.background = XWin->text_gc[i].bg; XWin->text_gc[i].gc = XCreateGC(This_XDisplay, This_XWindow, GCForeground | GCBackground | GCFont, &xgcv); } } static Window create_XWindow (JXWindow_Type *win, char *geom, unsigned long orflags) { int bdr, xpos, ypos; int width, height, geo; Window w; bdr = atoi(This_Border_Width_Name); width = JX_Screen_Cols; height = JX_Screen_Rows; xpos = 0, ypos = 0; if (geom != NULL) { geo = XGeometry (This_XDisplay, This_XScreen, geom, Default_Geometry, bdr, win->font_width, win->font_height, win->border, win->border, &xpos, &ypos, &width, &height); if ((geo & XValue) && (geo & YValue)) orflags |= USPosition; if ((geo & WidthValue) && (geo & HeightValue)) orflags |= USSize; } win->width = width * win->font_width + 2 * win->border; win->height = height * win->font_height + 2 * win->border; /* create and display window */ w = XCreateSimpleWindow(This_XDisplay, RootWindow(This_XDisplay, This_XScreen), xpos, ypos, /* xpos, ypos */ win->width, /* width, height */ win->height, /* width, height */ bdr, /* border width */ win->text_gc[JNORMAL_COLOR].fg, win->text_gc[JNORMAL_COLOR].bg ); win->w = w; set_wm_hints (win, xpos, ypos, orflags); /* select event types */ XSelectInput(This_XDisplay, w, ExposureMask | KeyPressMask | ButtonPressMask | ButtonReleaseMask | StructureNotifyMask | PointerMotionHintMask | ButtonMotionMask | EnterWindowMask /* | LeaveWindowMask */ | FocusChangeMask | VisibilityChangeMask ); if (XWin->mouse) XDefineCursor(This_XDisplay, w, XWin->mouse); return w; } static int x_err_handler (Display *d, XErrorEvent *ev) { char errmsg[256]; No_XEvents = 1; XGetErrorText (d, ev->error_code, errmsg, 255); exit_error (errmsg, 0); return 1; } static int x_ioerr_handler (Display *d) { No_XEvents = 1; exit_error("XWindows IO error", 0); return d == NULL; /* just use d to avoid a warning */ } /* returns socket descriptor */ static int init_Xdisplay (void) { unsigned long orflags = 0; char dname[80], *n; n = X_Arg_List[0].value; if (n != NULL) { strncpy (dname, X_Arg_List[0].value, 70); dname[70] = 0; n = dname; while (*n && (*n != ':')) n++; if (*n == 0) strcpy(n, ":0.0"); n = dname; } XSetIOErrorHandler (x_ioerr_handler); if ( (This_XDisplay = XOpenDisplay(n)) == NULL ) { (void) fprintf( stderr, "XJED: cannot connect to X server %s\n", XDisplayName(n)); exit( -1 ); } XSetErrorHandler (x_err_handler); if (X_Arg_List[1].value != NULL) This_App_Name = X_Arg_List[1].value; XWin = &This_X_Window; get_xdefaults (); XWin->font_name = This_Font_Name; This_XScreen = DefaultScreen(This_XDisplay); if (!load_font(XWin->font_name)) { (void) fprintf( stderr, "XJED: cannot load font %s, using fixed.\n", XWin->font_name); if (!load_font("fixed")) { (void) fprintf( stderr, "XJED: cannot load fixed font.\n"); exit( -1 ); } } XWin->text_gc = Default_GC_Info; setup_and_parse_colors (); /* This allocs and parses colors */ XWin->mouse = XCreateFontCursor (This_XDisplay, XC_xterm); set_mouse_color (This_MFG, This_MBG); /* USPosition and USSize are now set in create_XWindow depending on * what the user specified in the geometry string */ /* if (X_Arg_List[2].value != NULL) orflags = USPosition | USSize; */ This_XWindow = create_XWindow(XWin, This_Geometry, orflags); set_window_name (This_App_Title); /* GCs and their colors */ create_needed_gcs (); /* This uses info from previous call */ XWin->current_gc = XWin->text_gc[JNORMAL_COLOR].gc; XSetFont (This_XDisplay, XWin->current_gc, XWin->font->fid); /* display window */ XMapWindow(This_XDisplay, This_XWindow); return ConnectionNumber (This_XDisplay); } static void reset_Xdisplay (void) { if (This_XDisplay != NULL) XCloseDisplay(This_XDisplay); } #define UPCSE(x) (((x) <= 'z') && ((x) >= 'a') ? (x) - 32 : (x)) static int myXstrcmp(char *a, char *b) { register char cha, chb; /* do simple comparison */ cha = *a++; chb = *b++; if ((cha != chb) && (UPCSE(cha) != UPCSE(chb))) return 0; while ((cha = *a++), (chb = *b++), (cha && chb) != 0) { if (cha != chb) return 0; } return (cha == chb); } #define STREQS(a, b) myXstrcmp(a, b) static int X_eval_command_line (int argc, char **argv) { char *arg; int i; XWindow_Arg_Type *opt; for (i = 1; i < argc; i++) { arg = argv[i]; if (*arg != '-') break; arg++; opt = X_Arg_List; while (opt->name != NULL) { if (STREQS(opt->name, arg) || ((opt->name1 != NULL) && STREQS(opt->name1, arg))) break; opt++; } if (opt->name == NULL) break; if (opt->type == VOID_TYPE) opt->value = "on"; else if (i + 1 < argc) { i++; opt->value = argv[i]; } else break; } /* Out of this loop, argv[i] is the last unprocessed argument */ return i; } static void set_border_color (char *fgc, char *bgc) { XColor xfg; unsigned int bdr = atoi(bgc); if (!Term_Supports_Color) return; if (!XParseColor(This_XDisplay, XWin->color_map, fgc, &xfg) || !XAllocColor(This_XDisplay, XWin->color_map, &xfg)) { return; } /*printf("border pixel = %ld\n",xfg.pixel);*/ XSetWindowBorder (This_XDisplay, XWin->w, xfg.pixel); if (bdr < 1000) XSetWindowBorderWidth (This_XDisplay, XWin->w, bdr); } static void JX_set_color (int i, char *what, char *fg, char *bg) { if (!Term_Supports_Color) return; if (i == -1) { if (!strcmp("mouse", what)) { set_mouse_color (fg, bg); } else if (!strcmp("border", what)) { set_border_color (fg, bg); } return; } x_set_color_free (i, fg, bg, 1); XSetForeground(This_XDisplay, XWin->text_gc[i].gc, XWin->text_gc[i].fg); XSetBackground(This_XDisplay, XWin->text_gc[i].gc, XWin->text_gc[i].bg); if (i == JNORMAL_COLOR) XSetWindowBackground (This_XDisplay, This_XWindow, XWin->text_gc[i].bg); } static int X_Warp_Pending = 0; static void x_warp_pointer (void) { X_Warp_Pending = 1; } static void x_region_2_cutbuffer (void) { int nbytes; char *dat; dat = make_buffer_substring(&nbytes); if (dat == NULL) return; XStoreBytes (This_XDisplay, dat, nbytes); XSetSelectionOwner (This_XDisplay, XA_PRIMARY, None, CurrentTime); SLFREE (dat); } static int x_insert_cutbuffer (void) { int nbytes; char *dat; CHECK_READ_ONLY dat = XFetchBytes (This_XDisplay, &nbytes); if (nbytes && (dat != NULL)) ins_chars ((unsigned char *) dat, nbytes); if (dat != NULL) XFree (dat); return nbytes; } static void x_set_keysym (int *np, int *shift, char *str) { unsigned int n = (unsigned int) *np; KeySym_Mapping_Type *map; n &= 0xFF; str = SLang_process_keystring (str); if (*shift == '$') map = Shift_KeySym_Mapping; else if (*shift == '^') map = Control_KeySym_Mapping; else map = KeySym_Mapping; MEMCPY (map[n], str, MAX_KEYSYM_STRING_LEN); *(map[n]) -= 1; } static SLang_Name_Type sl_x_table[] = { MAKE_INTRINSIC(".x_set_window_name", set_window_name, VOID_TYPE, 1), MAKE_INTRINSIC(".x_warp_pointer", x_warp_pointer, VOID_TYPE, 0), MAKE_INTRINSIC(".x_insert_cutbuffer", x_insert_cutbuffer, INT_TYPE, 0), /* Prototype: Integer x_insert_cut_buffer (); * Inserts cutbuffer into the current buffer and returns the number * of characters inserted. */ MAKE_INTRINSIC(".x_copy_region_to_cutbuffer", x_region_2_cutbuffer, VOID_TYPE, 0), /*Prototype: Void x_copy_region_to_cutbuffer(); */ MAKE_INTRINSIC(".x_set_keysym", x_set_keysym, VOID_TYPE, 3), /*Prototype: Void x_set_keysym (Integer keysym, Integer shift, String str); * * This function may be used to assocate a string 'str' with a key * 'keysym' modified by mask @shift@. Pressing the key associated with * @keysym@ will then generate the keysequence given by @str@. The * function keys are mapped to integers in the range @0xFF00@ to @0xFFFF@. * On most systems, the keys that these mappings refer to are located in * the file @/usr/include/X11/keysymdef.h@. For example, on my system, the * keysyms for the function keys @XK_F1@ to @XK_F35@ fall in the range * @0xFFBE@ to @0xFFE0@. So to make the @F1@ key correspond to the string * given by the two characters @Ctrl-X@ @Ctrl-C@, simply use: * @ x_set_keysym (0xFFBE, 0, "^X^C"); * The @shift@ argument is an integer with the following meanings: * @ 0 : unmodified key * @ '$' : shifted * @ '^' : control * Any other value for shift will default to 0 (unshifted). */ MAKE_VARIABLE(".ALT_CHAR", &X_Alt_Char, INT_TYPE, 0), MAKE_VARIABLE(".X_LAST_KEYSYM", &X_Last_Keysym, INT_TYPE, 0), SLANG_END_TABLE }; static int X_init_slang (void) { return (SLang_add_table(sl_x_table, "XJed") && SLdefine_for_ifdef("XWINDOWS")); } static void X_update_open (void) { hide_cursor (); Performing_Update = 1; } static void X_update_close (void) { Performing_Update = 0; if (XWin->window_mapped == 0) JWindow->trashed = 1; if (JWindow->trashed) return; show_cursor (); if (X_Warp_Pending) XWarpPointer (This_XDisplay, None, XWin->w, 0, 0, 0, 0, XWin->vis_curs_col * XWin->font_width + XWin->border, (XWin->vis_curs_row + 1) * XWin->font_height + XWin->border); X_Warp_Pending = 0; } static void x_define_xkeys (SLKeyMap_List_Type *map) { SLang_define_key1("^[[^D", (VOID *) scroll_right, SLKEY_F_INTRINSIC, map); SLang_define_key1("^[[d", (VOID *) scroll_right, SLKEY_F_INTRINSIC, map); SLang_define_key1("^[[^C", (VOID *) scroll_left, SLKEY_F_INTRINSIC, map); SLang_define_key1("^[[c", (VOID *) scroll_left, SLKEY_F_INTRINSIC, map); SLang_define_key1("^[[a", (VOID *) bob, SLKEY_F_INTRINSIC, map); SLang_define_key1("^[[^A", (VOID *) bob, SLKEY_F_INTRINSIC, map); SLang_define_key1("^[[b", (VOID *) eob, SLKEY_F_INTRINSIC, map); SLang_define_key1("^[[^B", (VOID *) eob, SLKEY_F_INTRINSIC, map); } static void JX_reset_video (void) { tt_normal_video (); } static void JX_init_video (void) { } void flush_output (void) { fflush (stdout); } /* a hook to parse some command line args. */ int (*X_Argc_Argv_Hook)(int, char **) = X_eval_command_line; static void JX_get_terminfo (void) { JX_Screen_Cols = 80; JX_Screen_Rows = 24; Scroll_By_Copying = 1; /* init hooks */ X_Read_Hook = X_read_key; X_Input_Pending_Hook = X_input_pending; X_Get_Term_Size_Hook = X_Get_Term_Size; X_Update_Open_Hook = X_update_open; X_Update_Close_Hook = X_update_close; X_Suspend_Hook = xjed_suspend; X_Init_SLang_Hook = X_init_slang; X_Init_Term_Hook = init_Xdisplay; X_Reset_Term_Hook = reset_Xdisplay; X_Define_Keys_Hook = x_define_xkeys; SLang_Interrupt = xjed_check_kbd; /* Set this so that main will not try to read from stdin. It is quite * likely that this is started from a menu or something. */ Stdin_Is_TTY = -1; /* We do not need this since we do not have to worry about incoming * eight bit escape sequences. */ DEC_8Bit_Hack = 0; } /* the links to functions and variables here */ void (*tt_goto_rc)(int, int) = JX_goto_rc; void (*tt_begin_insert)(void) = JX_begin_insert; void (*tt_end_insert)(void) = JX_end_insert; void (*tt_del_eol)(void) = JX_del_eol; void (*tt_delete_nlines)(int) = JX_delete_nlines; void (*tt_delete_char)(void) = JX_delete_char; void (*tt_erase_line)(void) = JX_erase_line; void (*tt_tt_normal_video)(void) = JX_normal_video; void (*tt_cls)(void) = JX_cls; void (*tt_beep)(void) = JX_beep; void (*tt_reverse_index)(int) = JX_reverse_index; void (*tt_smart_puts)(unsigned short *, unsigned short *, int, int) = JX_smart_puts; void (*tt_write_string)(char *) = JX_write_string; void (*tt_putchar)(char) = JX_putchar; void (*tt_init_video)(void) = JX_init_video; void (*tt_reset_video)(void) = JX_reset_video; void (*tt_normal_video)(void) = JX_normal_video; void (*tt_set_scroll_region)(int, int) = JX_set_scroll_region; void (*tt_reset_scroll_region)(void) = JX_reset_scroll_region; void (*tt_get_terminfo)(void) = JX_get_terminfo; void (*tt_set_color)(int, char *, char *, char *) = JX_set_color; void (*tt_set_color_esc)(int, char *); void (*tt_wide_width)(void) = JX_wide_width; void (*tt_narrow_width)(void) = JX_narrow_width; void (*tt_enable_cursor_keys)(void) = JX_enable_cursor_keys; void (*tt_set_term_vtxxx)(int *) = JX_set_term_vtxxx; int *tt_Ignore_Beep = &JX_Ignore_Beep; int *tt_Use_Ansi_Colors = &JX_Use_Ansi_Colors; int *tt_Term_Cannot_Scroll = &JX_Term_Cannot_Scroll; int *tt_Term_Cannot_Insert = &JX_Term_Cannot_Insert; int *tt_Screen_Rows = &JX_Screen_Rows; int *tt_Screen_Cols = &JX_Screen_Cols; static int Not_Used; int *tt_Baud_Rate = &Not_Used; /* Unused but required. */ int (*X_Open_Mouse_Hook)(void); void (*X_Close_Mouse_Hook)(void); int (*JMouse_Event_Hook)(void); void (*JMouse_Hide_Mouse_Hook)(int); *tt_Ignore_Beep = &JX_Ignore_Beep; int *tt_Use_Ansi_Colors = &JX_Use_Ansi_Colors; int *tt_Term_Cannot_Scroll = &JX_Term_Cannot_Scroll; int *tt_Term_Cannot_Insert = &JX_Term_Cannot_Insert; int *tt_Screen_Rows = &JX_Screen_Rows; int *tt_Screen_Cols = &JX_Screen_Cols; static intjed-0.97.12/src/wjed32.rsp000064400000000000003000000004250603742314100147040ustar00rootsys00000000000000buffer.obj+ cmds.obj+ misc.obj+ file.obj+ main.obj+ ins.obj+ sysdep.obj+ screen.obj+ paste.obj+ ledit.obj+ line.obj+ vterm.obj+ keymap.obj+ replace.obj+ window.obj+ search.obj+ text.obj+ undo.obj+ vfile.obj+ intrin.obj+ syntax.obj+ abbrev.obj+ indent.obj wjed32.exe wjed32.map lors = &JX_Use_Ansi_Colors; int *tt_Term_Cannot_Scroll = &JX_Term_Cannot_Scroll; int *tt_Term_Cannot_Insert = &JX_Term_Cannot_Insert; int *tt_Screen_Rows = &JX_Screen_Rows; int *tt_Screen_Cols = &JX_Screen_Cols; static intjed-0.97.12/src/makefile.w32000064400000000000003000000020740603742314100151740ustar00rootsys00000000000000# -*- sh -*- BCCLIB = C:\BC45\LIB SLIB = ..\..\slang\src CC = bcc CC32 = bcc32 CFLAGS = -G- -H -O1 -w -Dmsdos -DMSWINDOWS -DJED -W #CFLAGS = -N -v -H -w -ml -Dmsdos -Dmswin -DHAS_MEMCMP -DHAS_MEMCHR -DJED -WS#-DFLOAT_TYPE #-DMALLOC_DEBUG CP = command/c copy OBJS = buffer.obj cmds.obj misc.obj file.obj main.obj ins.obj\ sysdep.obj screen.obj paste.obj ledit.obj line.obj vterm.obj\ keymap.obj replace.obj window.obj search.obj text.obj\ undo.obj vfile.obj intrin.obj syntax.obj abbrev.obj\ indent.obj wjed32.exe : ..\bin\mswshell.exe $(OBJS) wjed.def @$(CP) wjed32.rsp _wjed.rsp @echo $(SLIB)\wslang32+ >> _wjed.rsp @echo $(BCCLIB)\import32+ >> _wjed.rsp @echo $(BCCLIB)\cw32 >> _wjed.rsp @echo wjed.def >> _wjed.rsp tlink32 /Tpe /aa /c /x $(BCCLIB)\c0w32 @_wjed.rsp @del _wjed.rsp ..\bin\mswshell.exe: mswshell.c $(CC) -e..\bin\mswshell.exe mswshell.c .c.obj: $(CC32) -c $(CFLAGS) -I$(SLIB) $*.c sysdep.c: mswin.c touch sysdep.c zip: pkzip jed.zip @zip.lis jed.exe export: export -f zip.lis exe : ..\bin\mswshell.exe $(OBJS) wjed.def @$(CP) wjed32.rsp _wjed.rsp @echo $(SLIB)\wslang32+ >> _wjed.rsp @echo $(BCCLIB)\import32+ >> _wjed.rsp @echo $(BCCLIB)\cw32 >> _wjed.rsp @echo wjed.def >> _wjed.rsp tlink32 /Tpe /aa /c /x $(BCCLIB)\c0w32 @_wjed.rsp @del _wjed.rsp ..\bin\mswshell.exe: mswshell.c $(CC) -e..\bin\mswshell.exe mswshell.c .c.obj: $(CC32) -c $(CFLAGS) -I$(SLIB) $*.c sysdep.c: mswin.c touch sysdep.c zip: pkjed-0.97.12/src/.#ledit.c000064400000000000003000001136130603742314100144520ustar00rootsys00000000000000/* * Copyright (c) 1992, 1995 John E. Davis (davis@space.mit.edu) * All Rights Reserved. */ #include #include #include "config.h" #ifdef pc_system # include #endif #ifdef MSWINDOWS # ifndef __WIN32__ # include # else # include # endif #endif #include "buffer.h" #include "keymap.h" #include "file.h" #include "ins.h" #include "ledit.h" #include "screen.h" #include "window.h" #include "display.h" #include "search.h" #include "misc.h" #include "replace.h" #include "paste.h" #include "sysdep.h" #include "cmds.h" #include "text.h" #include "slang.h" #include "hooks.h" #define JED_PROMPT "S-Lang>" #ifdef HAS_SUBPROCESSES #include "jprocess.h" #endif Buffer *MiniBuffer; Buffer *Last_Buffer; char *Token_Pointer; Buffer *The_MiniBuffer; /* this never gets deleted since we may need it */ Window_Type *The_MiniWindow; extern char *get_cwd(void); int Ignore_Beep = 0; int MiniBuffer_Active = 0; User_Variable_Type User_Vars = { 78, /* wrap-column */ 8, /* tabs */ 3, /* c_indent */ 2, /* c_brace */ 300, /* max_hits */ }; #ifdef pc_system char Jed_Library[256]; #else char Jed_Library[1024]; #endif int (*complete_open)(char *); int (*complete_next)(char *); static int Buf_List_Len; Buffer *Buf_Context; static char *Expect_File_Error = "Expecting filename."; static char *Keymap_Error = "Unknown_Keymap"; /* read doc file */ int get_doc_string(char *f, char *file) { char *buf, *b, *f1; VFILE *fp; int ret = 0; unsigned int n; char nline = 1; /* ascii value of line term (^A) */ if (*f == 0) return(0); if ((fp = vopen(file, 1024, VFILE_TEXT)) == NULL) return(0); while ((buf = vgets(fp, &n)) != NULL) { f1 = f; b = buf; while (*f1 && (*f1 == *b)) f1++, b++; if (*f1) continue; b = buf; b[n - 1] = 0; while (*b) { if (*b == nline) *b = '\n'; b++; } SLang_push_string(buf + 1); /* lose the prefix */ ret = 1; break; } vclose(fp); return(ret); } static int next_bufflist(char *buf) { Buffer *tthis; while (1) { tthis = Buf_Context; if (tthis == MiniBuffer) return(0); Buf_Context = Buf_Context->next; #ifdef __os2__ if (!Buf_List_Len || !strncmpi(buf, tthis->name, Buf_List_Len)) #else if (!Buf_List_Len || !strncmp(buf, tthis->name, Buf_List_Len)) #endif { if (*tthis->name == ' ') continue; /* internal buffers */ strcpy(buf, tthis->name); return(1); } } } static int open_bufflist(char *buf) { if ((Buf_Context = MiniBuffer) == NULL) return(0); Buf_Context = Buf_Context->next; Buf_List_Len = strlen(buf); return next_bufflist(buf); } char *what_buffer() { return (CBuf->name); } int bufferp(char *name) { if (NULL == find_buffer(name)) return(0); else return(1); } int insert_buffer_name(char *name) { Buffer *buf; if (NULL != (buf = find_buffer(name))) { insert_buffer(buf); return(1); } else msg_error("Unable to find buffer."); return(0); } int replace_cmd(char *old, char *neew) { int n = 0; CHECK_READ_ONLY push_spot (); if (search(old, 1, 0)) while(replace_next(old, neew)) n++; pop_spot(); return n; } static Buffer *find_scratch_buffer (void) { char *sname = "*scratch*"; Buffer *scratch; scratch = find_buffer (sname); if (NULL == scratch) { scratch = make_buffer(); strcpy(scratch->name, sname); strcpy(scratch->dir, CBuf->dir); *scratch->file = 0; } return scratch; } /* Try to find any other buffer but kill_buf such that the buffer is not * visible, not scratch and not buried. */ static Buffer *find_non_visible_buffer (Buffer *kill_buf) { Buffer *buf, *scratch; buf = kill_buf->next; scratch = find_scratch_buffer (); while ((buf != kill_buf) && ((*buf->name == ' ') || (buf->flags & BURIED_BUFFER) || (buf == scratch) || (buffer_visible(buf)))) { buf = buf->next; } if (buf == kill_buf) buf = scratch; return buf; } int kill_buffer_cmd(char *name) { Buffer *this_buf, *kill_buf, *scratch, *buf; Window_Type *w; int kill; if (NULL == (kill_buf = find_buffer(name))) { msg_error("Buffer does not exist."); return(0); } this_buf = CBuf; switch_to_buffer(kill_buf); #ifdef HAS_SUBPROCESSES if (kill_buf->locked) { erase_buffer (); switch_to_buffer (this_buf); return 0; } #endif kill = 1; if ((*name != ' ') && (kill_buf->flags & BUFFER_TRASHED)) { char msgbuf[256]; sprintf (msgbuf,"Buffer %s modified. Kill, Save First, Abort: [KSA]", name); flush_message(msgbuf); /* This does not go through keyboard macro routines on purpose! */ switch (my_getkey()) { case 'k': case 'K': kill = 1; break; case 's': case 'S': kill = 2; break; default: msg_error("Aborted."); return(0); } message(""); } if (kill == 2) { write_buffer(); if (SLang_Error) { switch_to_buffer(this_buf); return(0); } } /* if it is the scratch buffer, just erase it since we are going to recreate it anyway. */ scratch = find_scratch_buffer (); if (kill_buf == scratch) { erase_buffer(); switch_to_buffer(this_buf); return 1; } /* find a buffer to replace this one with if it is in a window */ if (buffer_visible(kill_buf)) { buf = find_non_visible_buffer (kill_buf); /* search through windows looking for the buffer and replace it */ w = JWindow; do { if (kill_buf == JWindow->buffer) { touch_window_hard (JWindow, 0); window_buffer(buf); /* I should choose a different one every time */ } JWindow = JWindow->next; } while (w != JWindow); } else buf = scratch; if (kill_buf == Last_Buffer) Last_Buffer = NULL; if (kill_buf == this_buf) this_buf = buf; switch_to_buffer(this_buf); delete_buffer(kill_buf); return(1); } int write_buffer_cmd(char *filestr) { #ifdef VMS char *ff; #endif char dir[256], *f, file[256]; char msgstr[132]; int n; #ifdef unix #ifndef __GO32__ f = expand_link(filestr); #else f = expand_filename(filestr); #endif #else f = expand_filename(filestr); #endif strncpy(file, f, 255); file[255] = 0; f = extract_file(file); if ((*f == 0) && (*CBuf->file == 0)) { msg_error("Filename Required."); return(0); } n = (int) (f - file); MEMCPY((char *) dir, (char *) file, n); dir[n] = 0; if (*f == 0) f = CBuf->file; n = write_file_with_backup(dir, f); if (n >= 0) { #ifdef VMS ff = f; while (*ff) if (*ff == ';') *ff = 0; else ff++; #endif sprintf(msgstr,"Wrote %d lines to %s%s", n, dir, f); message(msgstr); CBuf->flags &= ~BUFFER_TRASHED; CBuf->flags |= AUTO_SAVE_BUFFER; CBuf->hits = 0; visit_file(dir, f); return(1); } else { sprintf(msgstr,"Error writing file %s%s", dir, f); msg_error(msgstr); return(0); } } #if defined(msdos) && !defined(__WATCOMC__) && !defined(MSWINDOWS) int show_memory() { struct farheapinfo hi; char buf[132]; char *c; unsigned long total = 0, core, used = 0; unsigned long max = 0; int i = 0; hi.ptr = NULL; if (farheapcheck() == _HEAPCORRUPT) c = "corrupt"; else c = "ok"; while (farheapwalk(&hi) == _HEAPOK) { if (hi.in_use) used += hi.size; else { total += hi.size; if (hi.size > max) max = hi.size; i++; } } core = farcoreleft(); sprintf(buf, "used:%lu, core:%lu, free:%lu, grand:%lu, max:%lu, frag:%d (%s)", used, core, total, core + total, max, i, c); message(buf); return (0); } #endif #ifdef MSWINDOWS int show_memory (void) { char buf[132]; #ifndef __WIN32__ MEMMANINFO mmi; if (MemManInfo(&mmi)) { sprintf(buf, "tot pages: %lu, free pages: %lu", mmi.dwTotalLinearSpace, mmi.dwFreeLinearSpace); message(buf); } #else MEMORYSTATUS mst; GlobalMemoryStatus(&mst); sprintf(buf, "avail space: %lu, tot phys space: %lu, avail phys space: %lu", mst.dwAvailPhys + mst.dwAvailPageFile, mst.dwTotalPhys, mst.dwAvailPhys); message(buf); #endif return 0; } #endif #ifdef __WATCOMC__ #include int show_memory() { char buf[132]; sprintf(buf, "avail mem: %lu, tot phys pgs: ???, free lin space: %lu", _memavl (), _memmax ()); message(buf); return (0); } #endif #ifdef __GO32__ #include int show_memory() { char buf[132]; unsigned long mem; _go32_dpmi_meminfo info; _go32_dpmi_get_free_memory_information(&info); if (info.available_physical_pages != -1) mem = info.available_physical_pages * 4096; else mem = info.available_memory; sprintf(buf, "avail mem: %lu, tot phys pgs: %lu, free lin space: %lu", mem, info.total_physical_pages, info.free_linear_space); message(buf); return (0); } #endif int set_buffer(char *name) { Buffer *buf; if ((name == NULL) || (*name == 0)) { msg_error("set_buffer: Buffer name is NULL"); return (0); } /* Last_Buffer = CBuf; */ if (NULL == (buf = find_buffer(name))) { buf = make_buffer(); strcpy(buf->dir, CBuf->dir); *buf->file = 0; switch_to_buffer(buf); uniquely_name_buffer(name); } else switch_to_buffer(buf); return(1); } int get_yes_no(char *question) { char buf[256], *tmp; int n; strncpy(buf, question, 240); buf[240] = 0; strcat(buf, "? (yes or no)"); while(1) { if (NULL == (tmp = read_from_minibuffer(buf, 0, NULL, &n))) return(-1); if (!strcmp(tmp, "yes")) { SLFREE(tmp); return(1); } if (!strcmp(tmp, "no")) { SLFREE(tmp); return(0); } msg_error("yes or no!"); SLFREE(tmp); } } int find_file_cmd(char *filestr) /* filestr is const ! */ { char *f, *file, filebuf[256]; char msgstr[132]; Buffer *buf; int n; #ifdef unix #ifndef __GO32__ file = expand_link(filestr); #else file = expand_filename(filestr); #endif #else file = expand_filename(filestr); #endif safe_strcpy(filebuf, file, sizeof (filebuf)); file = filebuf; f = extract_file(file); if ((*file == 0) || (*f == 0)) { msg_error(Expect_File_Error); return(0); } /* search for the file in current buffer list */ if (NULL != (buf = find_file_buffer(file))) { if (file_changed_on_disk(file)) { if (get_yes_no("File changed on disk. Read From Disk")) { if (*Error_Buffer) return(1); n = (int) buf->linenum; buf->flags &= ~BUFFER_TRASHED; kill_buffer_cmd(buf->name); find_file_cmd(file); goto_line(&n); return(1); } } switch_to_buffer (buf); return(1); } buf = make_buffer(); switch_to_buffer(buf); buffer_filename(file, NULL); n = read_file(file); CLine = CBuf->beg; Point = 0; LineNum = 1; if (CLine == NULL) make_line(25); set_file_modes(); CBuf->flags |= UNDO_ENABLED; switch(n) { case -2: msg_error("File not readable."); break; default: if (Batch == 2) break; if (*Message_Buffer) break; /* autosave warning? */ if (n == -1) message("New file."); else { sprintf(msgstr,"%d lines read", n); message(msgstr); } } SLang_run_hooks("find_file_hook", file, NULL); return(1); } int find_file_in_window(char *file) { int ret; Buffer *b = CBuf; ret = find_file_cmd(file); if ((b != CBuf) && (*CBuf->name != ' ')) Last_Buffer = CBuf; window_buffer(CBuf); return(ret); } void set_mode_cmd(char *mode, int *flags) { char *m = CBuf->mode_str; CBuf->modes = *flags; strncpy((char *) m, (char *) mode, 12); m[12] = 0; } /* create a minibuffer with window and switch to it. */ static void create_minibuffer(void) { Window_Type *w; MiniBuffer = The_MiniBuffer; /* I want to make Mini_Window->next = Current Window so that scroll other window routines will scroll it. */ w = JWindow; do other_window(); while (JWindow->next != w); JWindow->next = The_MiniWindow; The_MiniWindow->next = w; The_MiniWindow->column = 1; Mini_Info.action_window = w; other_window(); /* now in minibuffer window */ window_buffer(MiniBuffer); switch_to_buffer(MiniBuffer); MiniBuffer_Active = 1; erase_buffer (); /* allow kill region to kill to beginning of minibuffer. * Suggested by stefen@uni-paderborn.de */ push_mark (); } char *Completion_Buffer = "*Completions*"; static char *Last_Completion_Buffer; static int Last_Completion_Windows; /* evaluate command in minibuffer and leave */ int exit_minibuffer() { if (IS_MINIBUFFER) { if (Last_Completion_Buffer != NULL) { pop_to_buffer (Completion_Buffer); CBuf->flags &= ~BUFFER_TRASHED; switch_to_buffer_cmd (Last_Completion_Buffer); kill_buffer_cmd (Completion_Buffer); touch_window_hard (JWindow, 0); if (Last_Completion_Windows == 1) one_window (); } select_minibuffer (); Exit_From_MiniBuffer = 1; } Last_Completion_Buffer = NULL; return(0); } /* return 1 if minibuffer already exists otherwise returns 0 */ int select_minibuffer() { Window_Type *w; /* Try to find active minibuffer and go there */ w = JWindow; while (MiniBuffer != NULL) { if (JWindow->top == *tt_Screen_Rows) return(1); other_window(); if (w == JWindow) exit_error("Internal Error: no window!", 1); } /* switchs to minibuffer too */ create_minibuffer(); return(0); } /* if cmd != NULL, insert it into minibuffer and then send the result to the appropriate routine. */ static int ledit(void) { int n; char *tmp; if (MiniBuffer == NULL) complete_open = NULL; if (NULL == (tmp = read_from_minibuffer(JED_PROMPT, 0, NULL, &n))) return(0); SLang_Error = 0; Suspend_Screen_Update = 1; SLang_load_string(tmp); SLFREE(tmp); if ((SLang_Error == -1) && SLKeyBoard_Quit) { msg_error("Quit!"); } SLang_Error = 0; return(1); } static char *read_file_from_minibuffer(char *prompt, char *def) { int n; char buf[256]; complete_open = sys_findfirst; complete_next = sys_findnext; if (*CBuf->dir == 0) strcpy(CBuf->dir, get_cwd()); strcpy(buf, CBuf->dir); return read_from_minibuffer(prompt, def, buf, &n); } static char *String_Completion_Str; static char *String_Completion_Str_Next; static int String_Completion_Str_Len; static int next_string_list (char *buf) { register char *s = String_Completion_Str_Next; int len; while (*s) { while (*s && (*s != ',')) s++; len = (int) (s - String_Completion_Str_Next); if (*s == ',') s++; if (!len || strncmp (buf, String_Completion_Str_Next, String_Completion_Str_Len)) { String_Completion_Str_Next = s; continue; } if (len > 255) len = 255; strncpy (buf, String_Completion_Str_Next, len); buf[len] = 0; String_Completion_Str_Next = s; return 1; } String_Completion_Str_Next = s; return 0; } static int open_string_list (char *buf) { String_Completion_Str_Next = String_Completion_Str; String_Completion_Str_Len = strlen (buf); return next_string_list (buf); } void read_object_with_completion(char *prompt, char *dflt, char *stuff, int *typep) { int type = *typep, n; char buf[256], *tmp; char *str = NULL; int dofree = 0; *buf = 0; if (type == 'f') /* file */ { complete_open = sys_findfirst; complete_next = sys_findnext; if (*CBuf->dir == 0) strcpy(CBuf->dir, get_cwd()); strcpy(buf, CBuf->dir); } else if (type == 'b') /* buffer */ { complete_open = open_bufflist; complete_next = next_bufflist; } else if (type == 'F') /* function */ { complete_open = open_function_list; complete_next = next_function_list; } else if (type == 's') { complete_open = open_string_list; complete_next = next_string_list; if (SLang_pop_string (&str, &dofree)) return; String_Completion_Str = str; } else { complete_open = NULL; } strcat (buf, stuff); if (NULL != (tmp = read_from_minibuffer(prompt, dflt, buf, &n))) { if (type == 'f') SLang_push_string(expand_filename(tmp)); else SLang_push_string(tmp); SLFREE(tmp); if (dofree) SLFREE (str); } } int insert_file_cmd() { char *filebuf, *f, *file; CHECK_READ_ONLY if (NULL == (filebuf = read_file_from_minibuffer("Insert file:", NULL))) return(0); file = expand_filename(filebuf); SLFREE (filebuf); f = extract_file(file); if ((*file == 0) || (*f == 0)) { msg_error(Expect_File_Error); return(1); } if (insert_file(file) < 0) msg_error("Error inserting file."); return(1); } int find_file() { char *tmp; if (NULL == (tmp = read_file_from_minibuffer("Find file:", (char *) NULL))) return(0); find_file_in_window(tmp); SLFREE(tmp); return(0); } int write_buffer() { char *tmp; if (NULL == (tmp = read_file_from_minibuffer("Write to file:", (char *) NULL))) return(0); write_buffer_cmd(tmp); SLFREE(tmp); return(1); } void switch_to_buffer_cmd(char *name) { Buffer *tthis = CBuf; set_buffer(name); window_buffer(CBuf); if ((CBuf != tthis) && (*CBuf->name != ' ')) Last_Buffer = tthis; } static void get_last_buffer(void) { if ((Last_Buffer == CBuf) || (Last_Buffer == NULL) || (*Last_Buffer->name == ' ') || (Last_Buffer->flags & BURIED_BUFFER)) { Last_Buffer = find_non_visible_buffer (CBuf); } } int get_buffer() { char *tmp; int n; complete_open = open_bufflist; complete_next = next_bufflist; get_last_buffer (); if (NULL == (tmp = read_from_minibuffer("Switch to buffer:", Last_Buffer->name, NULL, &n))) return(0); switch_to_buffer_cmd(tmp); SLFREE(tmp); return(1); } int kill_buffer (void) { char *tmp; int n; complete_open = open_bufflist; complete_next = next_bufflist; tmp = read_from_minibuffer("Kill buffer:", (char *) CBuf->name, NULL, &n); if (tmp != NULL) { #ifdef HAS_SUBPROCESSES Buffer *b = find_buffer(tmp); if (b->subprocess) { if (0 == get_yes_no("Buffer has a subprocess attached. Continue")) return 0; } #endif kill_buffer_cmd(tmp); SLFREE(tmp); return(1); } return 0; } int evaluate_cmd() { return(!ledit()); } void insert_string(char *s) { CHECK_READ_ONLY_VOID ins_chars((unsigned char *) s, strlen(s)); } /* This is weird, Ultrix cc will not compile if set_key comes before unset_key */ void unset_key(char *key) { SLang_undefine_key(key, Global_Map); } void set_key(char *function, char *key) { SLang_define_key(key, function, Global_Map); } void unset_key_in_keymap(char *key, char *map) { SLKeyMap_List_Type *kmap; if (NULL == (kmap = SLang_find_keymap(map))) { msg_error(Keymap_Error); return; } SLang_undefine_key(key, kmap); } int keymap_p(char *name) { return ! (NULL == SLang_find_keymap(name)); } void set_key_in_keymap(char *f, char *key, char *map) { SLKeyMap_List_Type *kmap; if (NULL == (kmap = SLang_find_keymap(map))) { msg_error(Keymap_Error); return; } SLang_define_key(key, f, kmap); } char *pop_to_buffer(char *name) { Window_Type *w, *action, *use_this; char *bname; Line *line, *oldline; int p, oldp, lnum, oldlnum; Buffer *b, *oldb; if (!strcmp(name, " ")) { select_minibuffer (); return CBuf->name; } /* save position so we can pop back to it if buffer already exists in window */ oldb = CBuf; oldline = CLine; oldp = Point; oldlnum = LineNum; set_buffer(name); line = CLine; p = Point; lnum = LineNum; use_this = NULL; if (MiniBuffer != NULL) { action = Mini_Info.action_window; } else action = NULL; w = JWindow; /* find a window to use */ do { if (w->top != *tt_Screen_Rows) { if (action != NULL) { if (w != action) use_this = w; } else if (w != JWindow) use_this = w; if (w->buffer == CBuf) { use_this = w; break; } } w = w->next; } while (w != JWindow); b = CBuf; if (use_this != NULL) { while(JWindow != use_this) other_window(); /* This is a good reason for haveing otherwindow avoid switching buffers */ if (CBuf == oldb) { CLine = oldline; Point = oldp; LineNum = oldlnum; } } else { if (action != NULL) while(JWindow != action) other_window(); split_window(); /* * doing it this way makes screen update look better */ w = JWindow; do { other_window(); } while (JWindow->buffer != w->buffer); JWindow->column = 1; } bname = CBuf->name; switch_to_buffer(b); b->line = CLine = line; b->point = Point = p; b->linenum = LineNum = lnum; if (b != JWindow->buffer) window_buffer(b); return bname; } /* return number of windows */ int num_windows() { Window_Type *w; int i = 0; w = JWindow->next; while (i++, w != JWindow) w = w->next; return(i); } /* I need to make this take another parameter which indicates what to do * with the cursor rather than sticking it at the end. Call the parameter p. * Then try: * if (p <= 0) p = strlen(Message_Buffer) + 1; * tt_goto_rc(Screen_Height, p); */ void flush_message(char *m) { message(m); if ((JScreen[0].old == NULL) || Batch) return; do_dialog(Message_Buffer); tt_goto_rc(*tt_Screen_Rows - 1, strlen(Message_Buffer)); *Message_Buffer = 0; JWindow->trashed = 1; flush_output (); } #if defined (unix) || defined (__os2__) # if defined (__BORLANDC__) || defined (_MSC_VER) # define popen _popen # define pclose _pclose # endif #ifndef __GO32__ static char *Process_Error = "Unable to open process."; int shell_command(char *cmd) { FILE *pp; VFILE *vp; if (Jed_Secure_Mode) { msg_error ("Access denied."); return -1; } if (NULL == (pp = popen(cmd, "r"))) { msg_error(Process_Error); return -1; } if (NULL != (vp = vstream(fileno(pp), 0, VFILE_BINARY))) { (void) insert_file_pointer(vp); if (vp->buf != NULL) SLFREE(vp->buf); SLFREE(vp); } else msg_error("Malloc Error."); return pclose(pp); } int pipe_region(char *cmd) { FILE *pp; int n; if (Jed_Secure_Mode) { msg_error ("Access denied."); return -1; } if (NULL == (pp = popen(cmd, "w"))) { msg_error(Process_Error); return(0); } n = write_region_to_fp(fileno(pp)); pclose(pp); return(n); } #endif #endif /* called by SLang_load_file Try to open a .slc then a .sl */ #ifdef msdos #define VFILE_BUF_SIZE 1024 #else #define VFILE_BUF_SIZE 4096 #endif static VFILE *jed_open_lib_file(char *file) { char *lib = Jed_Library, libfsl[256], libfslc[256], *libp, buff[256], *type, *libf; int n, comma = ','; VFILE *vp; #ifdef VMS int vmsn; #endif if (*file == '.') lib = ""; else if (*lib == 0) { exit_error("JED_ROOT environment variable needs set.", 0); } n = 0; type = file_type(file); while (1) { libp = SLang_extract_list_element(lib, &n, &comma); n++; safe_strcpy(libfsl, libp, sizeof (libfsl)); fixup_dir(libfsl); safe_strcat(libfsl, file, sizeof (libfsl)); strcpy(libfsl, expand_filename(libfsl)); if (*type == 0) { #ifdef VMS /* remove trailing '.' */ if (0 != (vmsn = strlen(libfsl))) { vmsn--; if (libfsl[vmsn] == '.') libfsl[vmsn] = 0; } #endif strcat(libfsl, ".sl"); strcpy(libfslc, libfsl); strcat(libfslc, "c"); if (file_time_cmp(libfslc, libfsl) > 0) libf = libfslc; else libf = libfsl; } else libf = libfsl; vp = vopen(libf, VFILE_BUF_SIZE, VFILE_TEXT); if ((vp != NULL) || (*libp == 0)) break; } if (Batch != 2) { sprintf(buff, "loading %s", libf); flush_message(buff); } return (vp); } static int jed_close_object(SLang_Load_Type *x) { switch (x->type) { case 'F': /* File */ vclose((VFILE *) x->handle); return (1); default: return SL_OBJ_UNKNOWN; } } static char *jed_read_from_file(SLang_Load_Type *x) { char *s; unsigned int n; if ((s = vgets((VFILE *) x->handle, &n)) != NULL) { if (s[n - 1] != '\n') s[n] = 0; } return (x->buf = s); } static char *jed_read_from_buffer(SLang_Load_Type *x) { int n; Line *l = (Line *) x->handle; char *buf = x->buf; if (l == NULL) return (NULL); n = l->len; if (n > 255) n = 255; MEMCPY(buf, (char *) l->data, n); buf[n] = 0; x->handle = (long) l->next; return(buf); } /* returns 0 if successful */ static int jed_open_object(SLang_Load_Type *x) { switch (x->type) { case 'F': /* File */ x->read = jed_read_from_file; if (0 == (x->handle = (long) jed_open_lib_file((char *) x->name))) { return (SL_OBJ_NOPEN); } x->buf = (long) NULL; x->n = 0; return (0); case 'B': /* Buffer */ x->read = jed_read_from_buffer; x->handle = (long) (((Buffer *) (x->name))->beg); return (0); default: return SL_OBJ_UNKNOWN; } } void load_buffer() { SLang_Load_Type x; Buffer *cbuf = CBuf; int flags = CBuf->flags; char buf[256]; Line *l, *lwant; cbuf->flags |= READ_ONLY; x.name = (long) cbuf; x.type = 'B'; x.buf = buf; SLang_load_object(&x); if (SLang_Error || *Error_Buffer) { SLang_doerror(NULL); pop_to_buffer(cbuf->name); /* if (x.ptr != NULL) { */ lwant = (Line *) x.handle; if (lwant != NULL) { bob(); while (1) { l = CLine->next; if ((l == NULL) || (l == lwant)) break; CLine = l; LineNum++; } } else eob(); Point = x.ofs; /* Point = (int) (x.ptr - buf); */ if ((Point >= 0) && (Point < CLine->len)) { (void) skip_whitespace(); } else Point = 0; /* } */ } cbuf->flags = flags; } void get_key_function() { char *s; int kind; s = find_key(&kind); if (s != NULL) { if (SLKeyBoard_Quit && (SLang_Error == USER_BREAK)) { SLang_Error = 0; SLKeyBoard_Quit = 0; /* s = "kbd_quit"; */ } SLang_push_integer(kind); } else s = ""; SLang_push_string(s); } static SLang_Name_Type *Expand_File_Hook; void set_expansion_hook (char *s) { if (NULL == (Expand_File_Hook = SLang_get_function (s))) { msg_error ("The expansion hook has not been defined."); } } int mini_complete (void) { char *pl, *pb; char last[256], buf[256], *tmp; static char prev[256]; int n, last_key_char = SLang_Last_Key_Char; static int flag = 0; /* when flag goes 0, we call open */ if (complete_open == NULL) return ins_char_cmd(); Point = 0; push_mark(); eob(); if (NULL == (tmp = make_buffer_substring(&n))) return(1); safe_strcpy(buf, tmp, sizeof (buf)); SLFREE(tmp); if ((last_key_char == ' ') && ((long) Last_Key_Function == (long) mini_complete)) { if (!flag || !(flag = (*complete_next)(buf))) { safe_strcpy(buf, prev, sizeof (buf)); flag = (*complete_open)(buf); } strcpy(last, buf); n = -1; } else { n = 0; strcpy(prev, buf); /* save this search context */ } if (!n) { if ((Repeat_Factor != NULL) || (complete_open != sys_findfirst) || (Expand_File_Hook == NULL)) flag = (*complete_open)(buf); else { int do_free; SLang_push_string (buf); SLexecute_function (Expand_File_Hook); if (SLang_Error == 0) SLang_pop_integer (&do_free); if (SLang_Error == 0) { if (do_free == 0) { flag = (*complete_open) (buf); goto start_loop; } } if (SLang_Error || SLang_pop_string (&tmp, &do_free)) { msg_error ("Error encounter during expansion. Disabling expansion hook."); Expand_File_Hook = NULL; return 1; } safe_strcpy (last, tmp, sizeof (last)); strcpy (prev, last); if (do_free) SLFREE (tmp); n = -1; } } start_loop: if (!n && flag) { strcpy(last, buf); /* This do loop tests all values from complete_next and returns the smallest length match of initial characters of buf */ do { if ((n == 0) && (last_key_char == '\t')) { set_buffer (Completion_Buffer); erase_buffer (); CBuf->flags |= BURIED_BUFFER; insert_string ("!!! Use Page Up/Down keys to scroll this window. !!!\n"); } n++; pl = last; pb = buf; #ifdef __os2__ if (complete_open == open_bufflist) while (*pl && (tolower(*pl) == tolower(*pb))) pl++, pb++; else /* next statement */ #endif while (*pl && (*pl == *pb)) pl++, pb++; *pl = 0; if (last_key_char == '\t') { while (*pb) pb++; quick_insert ((unsigned char *)buf, (int) (pb - buf)); newline (); } } while(0 != (flag = (*complete_next)(buf))); #ifdef __os2__ /* OS/2 uses case-insensitive search on buffer-names. Set the * flag if there is an exact match, so that completion will * cycle without repeats through all the matches. */ if (complete_open == open_bufflist) { strcpy(buf, last); (*complete_open)(buf); do { if (!strcmp(buf, last)) { flag = 1; break; } } while ((*complete_next)(buf)); } #endif } if ((n > 1) && (last_key_char == '\t') && (Last_Completion_Buffer == NULL)) { Last_Completion_Windows = num_windows () - 1; /* not including mini */ Last_Completion_Buffer = pop_to_buffer (Completion_Buffer); bob (); } while ((CBuf != MiniBuffer) || !IS_MINIBUFFER) other_window (); if (n) { erase_buffer(); /* strcpy(last, buf); */ insert_string(last); if ((n == 1) && ((long) Last_Key_Function == (long) mini_complete)) message("[Sole Completion.]"); } else msg_error("No Match!"); return(1); } int what_char() { if (eobp()) return(0); return( (int) *(CLine->data + Point) ); } void update_cmd(int *force) { if (Batch) return; JWindow->trashed = 1; update((Line *) NULL, *force, 0); } void call_cmd(char *str) { int (*fp)(void); if (NULL == (fp = (int (*)(void)) SLang_find_key_function(str, CBuf->keymap))) { msg_error("Function does not exist!"); } else (void) (*fp)(); } void copy_region_cmd(char *name) { Buffer *buf; if (NULL != (buf = find_buffer(name))) { copy_region_to_buffer(buf); } else msg_error("Unable to find buffer."); } #ifndef pc_system void screen_w80() { tt_narrow_width(); change_screen_size(80, *tt_Screen_Rows); } void screen_w132() { tt_wide_width(); change_screen_size(132, *tt_Screen_Rows); } #endif char *make_line_string(char *string) { unsigned char *tmp, *p1, *p2; int n; if (CBuf->marks == NULL) { p1 = CLine->data + Point; p2 = CLine->data + CLine->len; } else { p1 = CLine->data + CBuf->marks->point; p2 = CLine->data + Point; if (p2 < p1) { tmp = p1; p1 = p2; p2 = tmp; } pop_mark(&Number_Zero); } n = (int) (p2 - p1); if (n > 254) n = 254; MEMCPY(string, (char *) p1, n); string[n] = 0; return(string); } char *make_buffer_substring(int *np) { Line *tthis, *beg; int n = 1, dn, thisp; unsigned char *buf; if (!check_region(&n)) return (NULL); /* spot pushed */ /* Point now at end of the region */ beg = tthis = CBuf->marks->line; thisp = CBuf->marks->point; n = 0; pop_mark(&n); while (tthis != CLine) { n += tthis->len; tthis = tthis->next; } n -= thisp; n += Point; if (NULL == (buf = (unsigned char *) SLMALLOC(n + 1))) { msg_error("Malloc Error"); pop_spot(); return (NULL); } if (CLine == (tthis = beg)) { MEMCPY((char *)buf, (char *) (tthis->data + thisp), n); } else { n = 0; while (tthis != CLine) { dn = tthis->len - thisp; MEMCPY((char *)(buf + n), (char *) (tthis->data + thisp), dn); tthis = tthis->next; thisp = 0; n += dn; } MEMCPY((char *)(buf + n), (char *) tthis->data, Point); n += Point; } buf[n] = 0; *np = n; pop_spot(); return ((char *) buf); } void buffer_substring() { char *buf; int n; if (NULL == (buf = make_buffer_substring(&n))) return; SLang_push_malloced_string((char *)buf); } int markp(void) { return (CBuf->marks != NULL); } int dup_mark(void) { if (CBuf->marks == NULL) return(0); push_spot(); goto_mark(CBuf->marks); push_mark(); pop_spot(); return(1); } void mini_read(char *prompt, char *def, char *stuff) { char *buf; int n; complete_open = NULL; if (NULL == (buf = read_from_minibuffer(prompt, def, stuff, &n))) SLang_push_string (""); else SLang_push_malloced_string(buf); } void get_buffer_info(void) { SLang_push_string(CBuf->file); SLang_push_string(CBuf->dir); SLang_push_string(CBuf->name); SLang_push_integer(CBuf->flags); } void set_buffer_info(char *file, char *dir, char *name, int *flags) { safe_strcpy(CBuf->file, file, sizeof (CBuf->file)); /* I have to handle this in this way because expand_filename does not modify * its argument. */ safe_strcpy(CBuf->dir, dir, sizeof (CBuf->dir)); fixup_dir(CBuf->dir); strcpy (CBuf->dir, expand_filename (CBuf->dir)); safe_strcpy(CBuf->name, name, sizeof (CBuf->name)); CBuf->flags = *flags; } void make_buffer_list(void) { int n = 0; Buffer *b; b = CBuf; do { SLang_push_string(b->name); b = b->next; n++; } while (b != CBuf); SLang_push_integer(n); } int window_size_intrinsic(int *what) { register int n = 0; switch (*what) { case 'r': n = JWindow->rows; break; case 'c': n = JWindow->column; break; case 't': n = JWindow->top; break; case 'w': n = JWindow->width; break; default: SLang_Error = UNKNOWN_ERROR; } return (n); } int what_mode(void) { SLang_push_string (CBuf->mode_str); return CBuf->modes; } /* Given a file name with wildcards return expanded list to S-Lang stack * with number. This does NOT work on unix with wild cards. Instead the * expansion is file* (completion) */ int expand_wildcards(char *file) { char buf[256]; int n = 0; safe_strcpy(buf, file, sizeof (buf)); if (sys_findfirst(buf)) { do { n++; SLang_push_string(buf); } while (sys_findnext(buf)); } return (n); } static void jed_traceback(char *s) { char *n; if (!Batch) { n = CBuf->name; set_buffer("*traceback*"); eob(); insert_string(s); set_buffer(n); } else fprintf(stderr, s); } #if 0 static struct { int depth = 0; char *name[20]; int marks[20]; } FName_Stack; void enter_function(char *name) { if (depth > 20) { msg_error("Function Stack too deep."); return; } FName_Stack->name[depth] = name; FName_Stack->marks[depth] = 0; } void exit_function(char *name) { int n = FName_Stack->marks[depth]; } #endif #if 0 void make_istring(char *buf, int i) { register char *b, *b1, ch; int sign, d; b = buf; if (i >= 0) { sign = 1; } else { sign = -1; i = -i; } do { d = i % 10; i = i / 10; *b++ = d + '0'; } while (i > 0); if (sign == -1) *b++ = '-'; *b-- = 0; b1 = buf; /* now reverse it */ while (b > b1) { ch = *b; *b-- = *b1; *b1++ = ch; } } #include char *simple_sprintf(char *str, char *fmt, ...) { va_list ap; register char ch, *s = str, *string; char *fmtmax = fmt + strlen(fmt); int dig; char buf[80]; va_start(ap, fmt); while (fmt < fmtmax) { ch = *fmt++; switch(ch) { case '%': ch = *fmt++; string = buf; switch(ch) { case 'c': ch = (char) va_arg(ap, int); /* drop */ case '%': buf[0] = ch; buf[1] = 0; break; case 's': string = va_arg(ap, char *); break; case 'l': case 'd': default: dig = va_arg(ap, int); make_istring(buf, dig); break; } while (*string) *s++ = *string++; break; case '\\': ch = *fmt++; switch(ch) { case 'b': ch = '\b'; break; case 'r': ch = 13; break; case 'n': ch = '\n'; break; case 'e': ch = 27; break; case 'a': ch = 7; break; } /* drop */ default: *s++ = ch; } } va_end(ap); *s = 0; return(str); } #endif char *command_line_argv(int *nn) { int n = *nn; if ((n >= Main_Argc) || (n < 0)) { msg_error("Argc out of bounds."); n = 0; } return Main_Argv[n]; } void count_chars(void) { unsigned long n = 0, m = 0; int ch; char buf[132]; Line *l = CBuf->beg; while (l != NULL) { n += l->len; l = l->next; } l = CBuf->beg; while (l != CLine) { m += l->len; l = l->next; } m += Point + 1; ch = eobp() ? 0 : (int) *(CLine->data + Point); sprintf(buf, "'@'=%d/0x%x, point %lu of %lu", ch, ch, m, n); if (ch != 0) buf[1] = ch; else buf[0] = '^'; SLang_push_string(buf); } static void jed_clear_error(void) { *Error_Buffer = 0; SLKeyBoard_Quit = 0; } int (*X_Init_SLang_Hook)(void); void init_minibuffer() { Buffer *tmp; tmp = CBuf; The_MiniBuffer = make_buffer(); The_MiniBuffer->modes = 0; strcpy(The_MiniBuffer->name, " "); /* do some initializing */ switch_to_buffer(The_MiniBuffer); remake_line(132); The_MiniWindow = create_window(*tt_Screen_Rows, 1, 1, *tt_Screen_Cols); The_MiniWindow->buffer = CBuf; Buffer_Local.tab = 0; switch_to_buffer(tmp); SLang_Dump_Routine = jed_traceback; #ifdef __GO32__ SLang_Interrupt = i386_check_kbd; #endif #if 0 SLang_Enter_Function = enter_function; SLang_Exit_Function = exit_function; #endif if (!init_SLang() #ifdef FLOAT_TYPE || !init_SLmath() #endif #ifndef pc_system #ifdef unix || !init_SLunix() #endif #endif || !init_jed_intrinsics() || !register_jed_classes () || ((X_Init_SLang_Hook != NULL) && !(*X_Init_SLang_Hook)())) { exit_error("Unable to initialize S-Lang!", 0); } /* use jed rouotines instead of default slang ones */ SLang_Error_Routine = msg_error; SLang_User_Open_Slang_Object = jed_open_object; SLang_User_Close_Slang_Object = jed_close_object; SLang_User_Clear_Error = jed_clear_error; } #ifndef pc_system #ifdef unix || !init_SLunix() #endif #endif || !init_jed_intrinsics() || !regijed-0.97.12/src/Makefile000064400000000000003000000156070604364647100145420ustar00rootsys00000000000000# Unix Makefile for JED -*- sh -*- # Note!!! You also need to build the S-Lang library. You should have # received a copy of it with this distribution. # Build it first. # This file is divided into sections as follows: # The first section consists of compile time options: # 1. location of jed library files. # 2. Non-X mouse setup (GPM Linux) # 3. XWindows setup # # The second section is system specific so read it # carefully. The final section can be ignored. #------------------------------------------------------------------------- # You must undefine any of these if you compiler does not have the appropriate # function (memset, memcpy, memcmp, memchr) # I have come to the conclusion that most Unix memchr routines are poor. # JED's is MUCH better. Also note that JED assumes that yor machines `memcmp' # function uses an unsigned comparision. This is NOT true for SunOS. CFLAGS1A = -DHAS_MEMSET -DHAS_MEMCPY #-DHAS_MEMCMP #-DHAS_MEMCHR # Root directory where jed files are going to be kept. This is the parent # of JED's src, lib, etc, bin, and info directories. MAKE SURE THAT THE '#' # IMMEDIATELY FOLLOWS THE PATH. THERE CAN BE NO WHITESPACE HERE! JED_ROOT = /users/local/lib/jed# # S-Lang Library include path. This one assumes that slang and jed are on # the same level in the directory tree. SLIB = ../../slang/src # Random number function # There are many variations here. The random number generator is only need # to justify paragraphs. If your system does not have the `random' function # comment out the next line and `srand' will be used (not as good). RANDOM = -DHAS_RANDOM # Note that since version 0.92, JED has had the ability to do floating point # arithmetic. This is enable by defining FLOAT_TYPE. If you want # floating point support AND you have compiled the S-Lang library # with floating point support, remove the `#' symbol from the # next two lines: CFLAGS1 = $(CFLAGS1A) -DFLOAT_TYPE LFLAGS = -lm # ---------------------------------------------------------------------- # Mouse Setup (Linux) # ------------------- # If using the GPM server, uncomment the next two lines: #MFLAGS = -DUSE_GPM_MOUSE #MLIB = -lgpm #------------------------------------------------------------ # XWindow version of JED specifics # # If you are also compiling an XWindows version of JED, you need to # set up the path for the X11 include files. This is simply the directory # that contains the X11 directory. Try using one of the following: #XINCLUDE = -I/usr/include/mit #XINCLUDE = -I/usr/local/X11/include #XINCLUDE = -I/usr/openwin/share/include/X11 # Some Solaris #XINCLUDE = -I/usr/openwin/share/include # Other Solaris XINCLUDE = -I/usr/include/X11R5/X11 # HP-UX (9.01) #XINCLUDE = -I/usr/include/X11 # OSF1 # Library to use for linking in the X11 code. On many systems, it is simply # given by -lX11, while for some, it is -lX11-mit, and so on. #XLIB = -lX11 #XLIB = -lX11-mit #XLIB = -L/usr/X11/lib -lX11 # Linux #XLIB = -lX11 -lsocket # Solaris XLIB = -L/usr/lib/X11R5 -lX11 # HP-UX (9.01) #XLIB = -L/usr/openwin/lib -lX11 # Sun4 #XLIB = -L/usr/lib/X11 -lX11_s # QNX #----------------------------- Async Subprocess support ------------------- # Warning!!! This is highly experiemental. Uncomment next 2 lines only if # you want to experiment. Currently, there is not much support # for this. #PROCESS_O = jprocess.o #HASSUBPROCESS = -DHAS_SUBPROCESSES #------------------------ machine specific flags -------------------------- # # Look for your machine in right margin and comment out others. # If your system does NOT have stdlib.h add: -DNO_STDLIB_H # If your system does NOT have unistd.h add: -DNO_UNISTD_H # These files should be in /usr/include, e.g., /usr/include/stdlib.h # ULTRIX #CFLAGS = -O -DNO_PROTOTYPES #CC = cc # SunOS #CC =gcc #also try acc # Note: SunOS cc is NOT ansi C compliant #CFLAGS = -O -traditional-cpp # Note: solaris 2 might require -lucb flag. # HP-UX CFLAGS = -O -w -D_HPUX_SOURCE -Dunix CC = gcc # AIX #CC = xlc #CFLAGS = -O -D_POSIX_SOURCE -D_ALL_SOURCE # If you do not have 'xlc' (Do all AIX systems have it??), try: #CFLAGS = -DAIX -Dunix #CC = cc # Sequent, NeXT #CFLAGS = -Dsequent -DNO_UNISTD_H -DNO_STDLIB_H #CC = cc # or: gcc # Linux # #CFLAGS= -O2 -Wall -Wstrict-prototypes -fstrength-reduce -DPOSIX_SOURCE #CC=gcc # QNX #CFLAGS = -O -D_POSIX_SOURCE -DQNX -MetroLink #CC = cc # SYSV ISC R3.2 v3.0 #CC=gcc #CFLAGS= -Dunix -DSYSV #LIBS = -linet -lnsl_s -lcposix # # OSF1 #CC = cc #CFLAGS = -O -DXLIB_ILLEGAL_ACCESS -Olimit 2000 # CRAY #CFLAGS = -O -Dunix -DSYSV #CC =cc # # some systems may need to define POSIX as well, e.g., IRIX #CFLAGS = -O -prototypes -DPOSIX #----------------------------------------------------------------------- OBJS = buffer.o cmds.o misc.o file.o main.o ins.o sig.o\ sysdep.o screen.o paste.o ledit.o line.o vterm.o search.o text.o\ keymap.o replace.o window.o undo.o vfile.o\ intrin.o syntax.o abbrev.o indent.o $(PROCESS_O) .c.o: $(CC) -c $(CFLAGS) $(CFLAGS1) $(HASSUBPROCESS) -DJED -I$(SLIB) $(XINCLUDE) $*.c jed: slangversion $(OBJS) display.o mouse.o $(CC) $(OBJS) display.o mouse.o -o jed -L$(SLIB) -lslang $(LFLAGS) $(MLIB) slangversion: chkslang ./chkslang jed 9919 chkslang: chkslang.o $(CC) chkslang.o -o chkslang chkslang.o: chkslang.c $(SLIB)/slang.h $(CC) -c $(CFLAGS) -I$(SLIB) chkslang.c mouse.o: mouse.c $(CC) -c $(CFLAGS) $(CFLAGS1) $(MFLAGS) -DJED -I$(SLIB) $*.c main.o: main.c $(CC) -c $(CFLAGS) $(CFLAGS1) -DJED -DJED_ROOT='"$(JED_ROOT)"' -DJED_LIBRARY='"$(JED_ROOT)/lib"' -I. -I$(SLIB) main.c sysdep.c: unix.c sysdep.o: sysdep.c unix.c xjed: slangversion $(OBJS) xterm.o $(CC) $(OBJS) xterm.o -o xjed -L$(SLIB) -lslang $(XLIB) $(LFLAGS) export: export -f zip.lis rgrep: vfile.o rgrep.o $(CC) vfile.o rgrep.o -o rgrep -L$(SLIB) -lslang getmail.o: getmail.c @echo Note: -------------------------------------------------------- @echo If this fails to compile, remove the line referencing flock @echo from getmail.c @echo -------------------------------------------------------------- $(CC) -c $(CFLAGS) $(CFLAGS1) getmail.c getmail: getmail.o $(CC) getmail.o -o ../bin/getmail BJS) xterm.o -o xjed -L$(SLIB) -lslang $(XLIB) $(LFLAGS) export: export -f zip.lis rgrep: vfile.o rgrep.o $(CC) vfiljed-0.97.12/src/.#Makefile000064400000000000003000000156010603742314100146430ustar00rootsys00000000000000# Unix Makefile for JED -*- sh -*- # Note!!! You also need to build the S-Lang library. You should have # received a copy of it with this distribution. # Build it first. # This file is divided into sections as follows: # The first section consists of compile time options: # 1. location of jed library files. # 2. Non-X mouse setup (GPM Linux) # 3. XWindows setup # # The second section is system specific so read it # carefully. The final section can be ignored. #------------------------------------------------------------------------- # You must undefine any of these if you compiler does not have the appropriate # function (memset, memcpy, memcmp, memchr) # I have come to the conclusion that most Unix memchr routines are poor. # JED's is MUCH better. Also note that JED assumes that yor machines `memcmp' # function uses an unsigned comparision. This is NOT true for SunOS. CFLAGS1A = -DHAS_MEMSET -DHAS_MEMCPY #-DHAS_MEMCMP #-DHAS_MEMCHR # Root directory where jed files are going to be kept. This is the parent # of JED's src, lib, etc, bin, and info directories. MAKE SURE THAT THE '#' # IMMEDIATELY FOLLOWS THE PATH. THERE CAN BE NO WHITESPACE HERE! JED_ROOT = /usr/local/jed# # S-Lang Library include path. This one assumes that slang and jed are on # the same level in the directory tree. SLIB = ../../slang/src # Random number function # There are many variations here. The random number generator is only need # to justify paragraphs. If your system does not have the `random' function # comment out the next line and `srand' will be used (not as good). RANDOM = -DHAS_RANDOM # Note that since version 0.92, JED has had the ability to do floating point # arithmetic. This is enable by defining FLOAT_TYPE. If you want # floating point support AND you have compiled the S-Lang library # with floating point support, remove the `#' symbol from the # next two lines: CFLAGS1 = $(CFLAGS1A) -DFLOAT_TYPE LFLAGS = -lm # ---------------------------------------------------------------------- # Mouse Setup (Linux) # ------------------- # If using the GPM server, uncomment the next two lines: #MFLAGS = -DUSE_GPM_MOUSE #MLIB = -lgpm #------------------------------------------------------------ # XWindow version of JED specifics # # If you are also compiling an XWindows version of JED, you need to # set up the path for the X11 include files. This is simply the directory # that contains the X11 directory. Try using one of the following: #XINCLUDE = -I/usr/include/mit #XINCLUDE = -I/usr/local/X11/include #XINCLUDE = -I/usr/openwin/share/include/X11 # Some Solaris #XINCLUDE = -I/usr/openwin/share/include # Other Solaris XINCLUDE = -I/usr/include/X11R5/X11 # HP-UX (9.01) #XINCLUDE = -I/usr/include/X11 # OSF1 # Library to use for linking in the X11 code. On many systems, it is simply # given by -lX11, while for some, it is -lX11-mit, and so on. #XLIB = -lX11 #XLIB = -lX11-mit #XLIB = -L/usr/X11/lib -lX11 # Linux #XLIB = -lX11 -lsocket # Solaris XLIB = -L/usr/lib/X11R5 -lX11 # HP-UX (9.01) #XLIB = -L/usr/openwin/lib -lX11 # Sun4 #XLIB = -L/usr/lib/X11 -lX11_s # QNX #----------------------------- Async Subprocess support ------------------- # Warning!!! This is highly experiemental. Uncomment next 2 lines only if # you want to experiment. Currently, there is not much support # for this. #PROCESS_O = jprocess.o #HASSUBPROCESS = -DHAS_SUBPROCESSES #------------------------ machine specific flags -------------------------- # # Look for your machine in right margin and comment out others. # If your system does NOT have stdlib.h add: -DNO_STDLIB_H # If your system does NOT have unistd.h add: -DNO_UNISTD_H # These files should be in /usr/include, e.g., /usr/include/stdlib.h # ULTRIX #CFLAGS = -O -DNO_PROTOTYPES #CC = cc # SunOS #CC =gcc #also try acc # Note: SunOS cc is NOT ansi C compliant #CFLAGS = -O -traditional-cpp # Note: solaris 2 might require -lucb flag. # HP-UX CFLAGS = -O -w -D_HPUX_SOURCE -Dunix CC = gcc # AIX #CC = xlc #CFLAGS = -O -D_POSIX_SOURCE -D_ALL_SOURCE # If you do not have 'xlc' (Do all AIX systems have it??), try: #CFLAGS = -DAIX -Dunix #CC = cc # Sequent, NeXT #CFLAGS = -Dsequent -DNO_UNISTD_H -DNO_STDLIB_H #CC = cc # or: gcc # Linux # #CFLAGS= -O2 -Wall -Wstrict-prototypes -fstrength-reduce -DPOSIX_SOURCE #CC=gcc # QNX #CFLAGS = -O -D_POSIX_SOURCE -DQNX -MetroLink #CC = cc # SYSV ISC R3.2 v3.0 #CC=gcc #CFLAGS= -Dunix -DSYSV #LIBS = -linet -lnsl_s -lcposix # # OSF1 #CC = cc #CFLAGS = -O -DXLIB_ILLEGAL_ACCESS -Olimit 2000 # CRAY #CFLAGS = -O -Dunix -DSYSV #CC =cc # # some systems may need to define POSIX as well, e.g., IRIX #CFLAGS = -O -prototypes -DPOSIX #----------------------------------------------------------------------- OBJS = buffer.o cmds.o misc.o file.o main.o ins.o sig.o\ sysdep.o screen.o paste.o ledit.o line.o vterm.o search.o text.o\ keymap.o replace.o window.o undo.o vfile.o\ intrin.o syntax.o abbrev.o indent.o $(PROCESS_O) .c.o: $(CC) -c $(CFLAGS) $(CFLAGS1) $(HASSUBPROCESS) -DJED -I$(SLIB) $(XINCLUDE) $*.c jed: slangversion $(OBJS) display.o mouse.o $(CC) $(OBJS) display.o mouse.o -o jed -L$(SLIB) -lslang $(LFLAGS) $(MLIB) slangversion: chkslang ./chkslang jed 9919 chkslang: chkslang.o $(CC) chkslang.o -o chkslang chkslang.o: chkslang.c $(SLIB)/slang.h $(CC) -c $(CFLAGS) -I$(SLIB) chkslang.c mouse.o: mouse.c $(CC) -c $(CFLAGS) $(CFLAGS1) $(MFLAGS) -DJED -I$(SLIB) $*.c main.o: main.c $(CC) -c $(CFLAGS) $(CFLAGS1) -DJED -DJED_ROOT='"$(JED_ROOT)"' -DJED_LIBRARY='"$(JED_ROOT)/lib"' -I. -I$(SLIB) main.c sysdep.c: unix.c sysdep.o: sysdep.c unix.c xjed: slangversion $(OBJS) xterm.o $(CC) $(OBJS) xterm.o -o xjed -L$(SLIB) -lslang $(XLIB) $(LFLAGS) export: export -f zip.lis rgrep: vfile.o rgrep.o $(CC) vfile.o rgrep.o -o rgrep -L$(SLIB) -lslang getmail.o: getmail.c @echo Note: -------------------------------------------------------- @echo If this fails to compile, remove the line referencing flock @echo from getmail.c @echo -------------------------------------------------------------- $(CC) -c $(CFLAGS) $(CFLAGS1) getmail.c getmail: getmail.o $(CC) getmail.o -o ../bin/getmail BJS) xterm.o -o xjed -L$(SLIB) -lslang $(XLIB) $(LFLAGS) export: export -f zip.lis rgrep: vfile.o rgrep.o $(CC) vfile.o rgjed-0.97.12/src/chkslang000075500000000000003000000604100604364764000146110ustar00rootsys00000000000000 @{a@@ l,,xPGu( @@x 92453-07A09.74.080O 92453-07A08.56.05*v 82$Header: crt0.s,v 70.8 92/05/19 15:52:46 ssa Exp $@  `HX" LX "tX &ppX '``X '` ` X 80p pX H1(!(X I2"X X2"8>(@@`>(@@L>( @@`>(@@,>(@@x>(A`T@`T>(A@>(A@>(&A(@( >('A@>((A@>(P@>(R@ >HP >I\, ,Y ? @@ $PRIVATE$$DLT$$PLT$ $SHLIB_DATA$$TEXT$ $SHLIB_INFO$ $DATA_START$ $MILLICODE$$LIT$ $LITSTATIC$$CODE$$UNWIND_START$$UNWIND$MILLICODE$$UNWIND$ $UNWIND_END$$RECOVER_START$$RECOVER$MILLICODE$ $RECOVER$ $RECOVER_END$ $PFA_COUNTER$$PFA_COUNTER_END$$DATA$ $STATICDATA$ $SHORTDATA$$SHORTSTATICDATA$$GLOBAL$ $SHORTBSS$$BSS$ $GDB_DEBUG$ $GDB_SYMBOLS$ $GDB_STRINGS$00$ 08 @0@0 {0 @U` L0 0 #0 $+0 4 0 H!0 X"0 l"0 @0 @0 @0 @0 @0 @ \ @ p @ @ @ @ @` @  `@0@ @ Q(G P8K D AP \ h x 3 S s   TUxU0A0 `00@  @P0@000 P U4p  |0X @P  @T `    0@ @X0l @0l @ 0 0 0$/ 04? 0DO 0T_ t <  0d 0t  0 0   0 0/ ,L 08s < H 0 X 0 0 d 0 0' p@ 0[ |d 0$w  x        04 0D/ H 0Tc 0d  0t 0H   0( 08"0D@0P@0X"0d@0p@0 0(4x0x00A00Xmain __text_start ___stack_zero __data_start $START_RTN$ $str_lit_sym$ $THIS_DATA$$THIS_SHORTDATA$ $THIS_BSS$$THIS_SHORTBSS$$THIS_STATICDATA$$THIS_SHORTSTATICDATA$ $THIS_LIT$$THIS_LITSTATIC$$$stat_0 __map_dlderrorstrlenitoa__exitsyserroropenclosereadwritelseekmmap$global$$START$$ARGV _fp_status_start_mcount_clear_counters _sr4export $UNWIND_START $UNWIND_END$RECOVER_START $RECOVER_END __dld_flags __dld_hook __dld_list __SYSTEM_ID _SYSTEM_ID $PFA_C_START $PFA_C_ENDerrno_etext_end __dld_loc $$dyncall $$divI_10$$remI$LIT$$CODE$__iobfprintf__mainsscanf$DATA$ L$text0000 Ltext_endinitialized___6 __CTOR_LIST__ __DTOR_LIST____do_global_dtors__do_global_ctorsatexit_exit_dummy_decl_exit_dummy_ref_iobLIBC//Mdiv_const.o0HPUX Precision Architecture vers PA2.0 assembler92453A.08.12 (sllic PA1.1)$neg3$pos$neg$neg5$neg6 $pos_for_17$neg10 $neg_for_17$neg12$neg15$neg17$u17$neg7$7$pos7$1$2$8 $neg7_shift$3$4$neg9$neg14$$divide_by_constant$$divI_2$$divI_4$$divI_8 $$divI_16$$divI_3$$divU_3$$divI_5$$divU_5$$divI_6$$divU_6 $$divU_10 $$divI_12 $$divU_12 $$divI_15 $$divU_15 $$divI_17 $$divU_17$$divI_7$$divU_7$$divI_9$$divU_9 $$divI_14 $$divU_14 LIBC//MremI.ot1finishLIBC//MdyncallU.onoshlibsetextedataend_etext_edata_end __SYSTEM_ID _fp_statusetextedataend_etext_edata_endxN0plk @@U'@U,@U1@UTUYXUY@U Y 7>ELYchkslang/lib/libc.slerrno_SYSTEM_ID_iob_end__iobatexit_startsscanffprintfmain__do_global_dtorsXZ]XZ]XZ]XZ]d@"Z]> ZZ]> ZZ]9 Z8 =@Y :Z @Z@ ZZZ] ZZ @"ZY :ZZ@= ZZZ@= Z ZY :Z]ya: =]: =]  : =@]ZBu ZZZZ ZZ]ya: =]: =]  : = @]ZB ZZZM ZZY :}@]Be]yZZ5@*Z@ya AZ@ya AZ]ya A @Z@] Z]: =] y a: =]Y(ZYY8Z@] Z]: =] y a: =]Y(Z YY8Z]Y Z @*Z@YA AZ@YA AZ]YA A @ ZZmZ @V   @A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A ˡF ! !V @JJ k?Usage: %s %uThis version of %s requires slang version %d.%d.%d ѷYQKu?Ks? k?#`(7{7K#+h# 'y 4Kd?Eke?(43 `'y H? zG+4>DEFYXZ#0 BZYX^k?# .B@@@@ BK?@ @@k?ok= k=k=k=!k=)k=1k=9k=Ak=Ik=Qk=Y+DCGE4: 0Y#0* BF 04 ?4 H4Y#0&B7>I4ZX#0*B *4 4Y#0&BG>M4] BG>I4t *4 YX#0&BK>ZX#0+ B7=4`ZX#0*B G= *4YX#0&BK=K> K>K>)k?k?4 4 Z Y W#0+`BL 2+4:@4P X#0&BK>!k?k?4ZY4#0+`BH 2+4:@4` X#0&B@ k?k?44,Z Y#0+`B 2+4p4:@ X#0&BZ N#0*`BK>1K> lk=k=k?k=k=  +4< +`h( ( 4"(4$0+`k?4?Wk=Xk?k?4%@k?y7=k?q# -BKK?K?K? @O?@ \@\B7 B??7@TS 44Z# +(@7` Z# &@_S@  4 "@@@@  4 "@R@@@  4 "@@@@  4 "@@@@  4 "@@@@  4& "@R@@@  4 "@@@@+`4!h<4?@@@@K?@ @Ku?Ks? k?Ku?Ks? k?k?7k?!k?)D@C 0+4: `# 79 Hx_-4BHz# 79(_57?"6 K?k?' # 7/ 9IW'K?U4ҼM s s s s vk?' # 7/ 9IW'K?U4ҵE v s sB tP4k?k?+4: `# 790Hx_W4K>K?!K?)@7?@P@K?@ @Ku?Ks? k?k?o+`H3` 84#HsVEB h0`?HsK?Y@O?k?ok? +`H40 X430Js` @446046 Js`?6t 8+`4$0 V MB? #@(_e7ZK>K? @O?k?+H3` 74_h3K?Y@7?XHx $(@DD 0Hx| ,0LPlp0T L P x`   X p @@ /lib/dld.slERROR couldn't open dld.slERROR reading dld.slERROR bad magic number/system id for dld.slERROR bad dld.sl hpux aux header (text) (data) (bss)crt0: errno: @X$Header: mapdld.c,v 70.3 92/02/05 16:07:02 ssa Exp $ERROR: mmap failed for dldp`X@libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19__do_global_dtors:F19_exit_dummy_ref:G29=*1__do_global_ctors:F19__main:F19end_file.libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19_exit_dummy_decl:G1end_file.- d"d.PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1$G ^$t$ P |*P d "d .PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1 6E *P d "d .PbHfӀ+Fbjed-0.97.12/src/jed000075500000000000003000012704100604365004700135600ustar00rootsys00000000000000 @+q@o@ 9< ǼǼq|`G(T@`@l( 92453-07A09.74.080P' 92453-07A08.56.05*v 82$Header: crt0.s,v 70.8 92/05/19 15:52:46 ssa Exp $@  `HX"@WWLX DgDtX X&oX&X X  $ $X!|0GL0GX 822X H``X IPPX XPP8>(@`>(@L>( @`>(@,>(N@Nx>(OHT@_HT>(O@_>(O@_>(&O@_ >('^ @n >((_@o>(P@o>(R@o>H` >Il, ,Y @T? `@>l@p $PRIVATE$$DLT$$PLT$ $SHLIB_DATA$$TEXT$ $SHLIB_INFO$ $DATA_START$ $MILLICODE$$LIT$ $LITSTATIC$$CODE$$UNWIND_START$$UNWIND$MILLICODE$$UNWIND$ $UNWIND_END$$RECOVER_START$$RECOVER$MILLICODE$ $RECOVER$ $RECOVER_END$ $PFA_COUNTER$$PFA_COUNTER_END$$DATA$ $STATICDATA$ $SHORTDATA$$SHORTSTATICDATA$$GLOBAL$ $SHORTBSS$$BSS$ $GDB_DEBUG$ $GDB_SYMBOLS$ $GDB_STRINGS$00$ 08 @0@o0 +0 @Uh  L0 0 0 $0 40 H`0 XP0 l P0 @o0 @o0 @o0@0 @0 @ \@ p@ @_ @o @o @_H @_ oX @0@H @_ Q( P8 D/ APW \ h x   # C c0P@0\@p0h@` T@o0t@l `oX0@ l@P0@0@P0@0@XU U0@0@X0@@H0\@PU|UU Ux<UD08UXU(U4t0h0xUU@00@h000 xoX0H0L0 004 @t @x0@0\$0h  @o @o @o0t  @o @o0D000000 ,T0@d00@(0<0Hp0PX0X$0ld00@X DH0@\0@`0 @P T@o l@0 @T0 @ \ `pp0 D@ h0 4@0 T0 x0 0 0 0@0 p@0 @0 @P0 @0 $@0 8@L0 Ť0 \0d00X00000U0XU p 00͘ @ @ xpp0@0|0$P08  x0HP 0@o  Hӄ0T d0h@0x8 |@o @p @p0L0ָ00ר0  00ؠ0PT0$0@00@00@Xڴ0l۬0|0@T D0 @0 `q0 @0`@0|@ l@ T@p0@0@|0@H0@`0@0 @U4U\00UXUDUUL0QU4`U 0d @0l  @ 0|040ޠ  @p 0 ݼ0  4h0Q Dh0 H@p T@p `r0@ l@U|U@UU Uh QlUH AH 0h Q , Q<UDUx0HUU4`0Ux0L000AlU4U PU0A,0D@0p\UU, AL400 X@p0@ p@p @000@0A<00 04808 @p DH0H0XT `r0 X@0x@0@ T@p 0@x0@X0@H0@`0@(0,@U|0<@80L@LUU|Uh UU`UU4`U4Ux0U(UD000<@0A l@p  D `s0|@0@l0$@0 pU@0  0@0p |0   P`0@\ 00T0@|p0(0@ D0, 0 0<D DU  l@ T@q  P `s0@ `0@  tU X0 $U4<UUUX@t0 \ @q  @ D T@q( l@0 @@ `t808@@0L@0d@0t@D0@H0@$0@ 0@H0@0 @hUDU|0 @ 0 H@0 d@0 @40 @\U |U0 (U dU4`U@U `, A|U HU (U!UU!0(U@U!@U!L8U!XUU!dU!tHUU!8$U40!"U!U!pU!U!00)\0)U! U! U!U!(0 'U"HDU"`U U P0"$$H0!$0Ad 40"8' @s(0"H0@"X&0@"l'D00!@0 %d0`(,0U,!0(0|0"(0@ @q(0"|0@"%4 @<0"#`0"+0,, @80",p @t(0", @v(0", @u( @v, @0A#-  @0#-l D@ ,@0l@ T@v0 l@P `t0&T@0&h@0&|@0&@0&@t0&@p0&@h0 @`0 @0 @d0'8@@0 @X0'd@l0'|@0'@T0'@U\0(@ 0((@0(8@,0(d@\0(@< A#0U$U Q#@. #TTPU4 U#l. Q#xJU(U  Q#M8UUX@UD A#=,0Q)4; #@wT0 tG00 E #@wX0@)R| #Dl #R $K  $$B,0@k0)>|0P)< $4;0)k| P$H: $\9 $p9P $9 $8 $Y $50)[ $@v<0 d $] $@0)H %@vL %,@vP %@@vT @%P4$0P(`0hed %d@w\ %|@vD %@v@ %@ %@v00@k0LfP %@ %@ %.0)g0*i0i0j0*.8 &_ xt & @| &0@vH0*$_ D.8 &<@x0*@@P `v@0*@0\s0<u l@xU U *X *h(U@0*pU@0+H0y0+0@vT0+yT0+u(0 Lt0+t0+s<0+{\0,| *|v *@x0,}|0 q0,(~h0,<w0,Hw0r0,`X0,t0z *o0,p0,0T|0,0,0,0-T Do0- `wH T@w`0/@h l@00@P00@L00$@U|U 0 @004@00H@ -0 -DxU0HU@UDU4`U404@00x@00@00@00@@0`0( A-X4U01 -x -H -| - -80@  -HU01x .  .  .8TU1PUU1( .L00T w\02 .dxUU\ .py .|@xx .@w`03@4 .@03P0@3lT .40@3x030P30@30303 .|03004 .04H0A4 H040 .@04D 04\04l04x04 /@x`044 /@xp /8@xt04d04040A404 0P5 `050T5005D05\05x05@05 /X@xl /t@ /@ xwH0505X0l@0T505@0606 /p006,06<P06L006`0h /@xd0h06p06@` D /@xh060 `{`U@00 D06@0P(0P)\ D0P)DÀ0P( P600l06 T@x0 \@ `{0Q2`UD A7 H A7 A70UUU@ 7@@x 7T@}07ɸ0707М07t08 ɜ08(0Q88`08H08`08t0Q80A8 D`08@ `{08@ 8 U|09\09ݨ09, 09Dڴ09`09x 8h0x@09d0<090909Հ090: DՀ `| T@~0@0 @0=@0=0=@0>@ l@0>$0>4@X0>P@x0>t@`U| : HUU :4  :P}x :\}h .d~, :h}X :t}L :}< :}0 :~@ :}( :} :~L :|0 :|( :|8 :| :} ;| ;|H ;~X ;(~d ;4| ;@~p .p} ;L~ ;X~ ;d~U4 ;p} ;|| ;} ;|\ ;} ;} ;} ;} ;~ ;| ;~ ;~ <} < ~ <| <$~ <0~ <<| *|~ | @0 l\ @0@1H d0 0> 0p0@@(0T < D l@ ` UU 006D0> L0<0@  @ 0X0? D  @@ `0@UU UUHUx00QU0,`0Q80A   D `U T@ l@U  A0U A<"U4 AL$ Ad A|Ux AA PA A @A @ @A  A  B  @B!$ B,! BD B`pUC8 BxHUD PB PBU@UUE , B03"T DH B@ B@ T@ l@>` QE<& AET% QEl%\ UE# AE$ @E# E@0)h# E@0@(& E@>` D# T@ ` QE-UDUU|U@UU4U U0C1\0D1 F @ F$10D<2h F4@0PC0<0DT/0@C.0D$20C3 D+0+ `@ T@ AFHAPUDU AF`6U4`U@U  Fx:U|U F=U40>=H0Dl<0D?0@DA0DI0Jd0 \?40@DA F@0TDJ0DI D4 F40I @\0I<@L0IX@d0It@0I@D0I@0L@>h0'@>0`@>0&@>0I@>0@>0>h@>0C@>0I@>0C@>0'@>01@>0 @@>|00@>0'@>0 ,@>0(@>x0C@@>0C,@>0C@>0'T@>t0'@>0 @>0'@>0 @>p0 @>0(P@>0 0@>0 @>l0 |@>0(t@>0@>0(@>0 L0I@H l@> T@ ` 0P@?0P@00`@?<0P@U  Jk02\O0P@ XU0P@?0Q@?0Q,@0QH@  J(u,0Q`@ h0@?$0Q|@>0QM UJ<u0QQT0Q@>0QNU|0Qw@ J\NU0AR0R@?0R,@@0R@@ `0RT@>0RU JtvxU( AJ} J~ J| AJ JwURXL J@ :tT :P Kc0 :H :@ :8 :4 ;4, ;|$ ; < << 00TE,xL0@Cly O4@X0S OD@?0S  OTy Op@P O@0SR Oz0>{024|H OT OWd @O]< Oh POa PRt0+,R801Q P( P@@T0S( PT@ Pl@@0AE( DM P| P@ T@ `8 l@@UU|U0V@TUC801$U SȈ0W  TU4UW$ QT4\UW0 TLpU  Td@U T|U"UUDUWlX| T T@ T T @T T@ U@ UD U( U@@  UH@0@W UT@ @Uh\ Ux U@ U U@ U U U@ V< V  V V(0|0`$ V8@@ VL@@ x8 Vd@0 Vx@4 V@, V@(0@W͈ D V V@ ` Wh W8 l@@UYxUYUUYUY hUY(UY0XUY<PUYDUYPpUY\UYh` WL Xl Xӌ X(Ӭ X8 XH XXL Xhl Xx, XԌ X X@@ X  X@@URU  Xl02 XԬ D8 X@@ ` T@8U UD l@C0U UYUU|U0]8@CL QYD UYU4U]|0 UY QYݼU QYU Y Z h Z x Z0$ ZD ZT Zd Zx Z Z Z PZ Z Z [T [0S [$T [4dUU@ [D| [X [h0Q3  Q[ Q[@U] [UE  [ [@C@ [ \@CD \ \,@CH \@ 0S \X8 \pl \l \܄ \0Q  \@8 \@8 \ \@C0 ]p02p D ] @8 `U  l@L`0_(0U_ ^UDUU(U4 @^ $0]0] 00^d 0^xd @^0UCX0^  P ^@L`0^ ` <<0^4 D0] T@ ` Q_( U_<L A_T U4U _h@ _x@ _@07T0Q7\T D ` T@U l@Lh@U ( _,U _, _-( _-L _-h _- `- `-U `(- `8-U!@ A`H.U!L8 Q`X.< A`h* U U! `x. `.l02. `@Lh D) `@ `)0 @N T@8 l@N `U U `/0a@08U A`/\U4U@0U0UUDU| `6U(0A2t/ `@V0>6H0A>3 a @80A70@5l0Q1`2d0108 D/ x a@N `X0 d@N0a\@0UC80at@U\UU0)T80a: D80QA ; D;0a@N0a@p0 @NU@0b>0b=p D=p0b0@N0@bL=0@bh>\0b@N0b>0b?8 T@ `X l@N0C]X0f@N0f@p0f@N0I@[U0g@tU@0g$@N0gL@NUUDU@U@U!XU U?Dp UbD : : .d  0=\04l0>|00HPt06L0܄0+u(m000609Dڴx0>=H40x8060>$t06<P000,|m0lܜ0+tm0`0,Hwn09, Ԑ0$0L0d002Lp0 l\040XL0 Ltn0d0|0T0*i-0@000ָ0 0*pn00206,0͘ 09\Ԩ0$P$0> L 0,<wnH03(0+yTn`0@3lT@ A00rnx0hX0Hp0Hp0dܴ AdH0+{\n040 0P3004040050?0T5008(0h@04H03@40ؠ<0  04003H0?0 tG0-0hX0@3`08t@0XT PA` Ax @A0)80(x04004D 0\$p0 qn08`X03P B`0D0?`000@)R|- B04 0X$05\0@L h0@l0@0רl0 \008(p0\sn0P5 ` 0ht00<08Hň08 ɜŠ07ɸŸ080 'P003P03h0i-04l06p0?p0@3x B040909090:0?00A<09d 0l۬050480504d0",ph0",00009x80-n0|05D(0<un0,po0x@P01@0!$05@X06`p0)\009`h0ޠ0,}|o 0,o80?40@"%40,(~hoP0|01x0T50A4 H0?@0"(0"8' Bx0?P404x04\05x0j.020405X00TH AA0", A 07М0A80707t @B80Q800Q88`H0A#-( BDP0#-l@ @Ah0 0*$_.  A|0,oh0,to0,`Xo0,o0C3+0C1\+ 0@C.+80PC0<+P0D1+h0D$2+0D<2h+0DT/+ PB PB AL0?L0Dl<40 \?4400D?4H0@DA4`0@DA4x0DI40DI40TDJ4060`0"$$HX B,0A4x0@IH?0FJ?0GJ?0G<Mp?0GhKx?0GJ@0GK@0FSh@00HLT@H0GL@`0GL@x0TGVL@0GPC@0G(D@0Gf@0Gf@0@HH A0H,HPA 0Hd]A80TH|NAP0@HOAh0HSA0HSA0He A0HeLA KL00RLH X X4 WT Xt X(ϔ X8ϴ XH X Xx XX4 XhT Xt XД0@ClyL`0SX ZTp \ֈ Zx֠ [ָ0H@Lx [$ \ \0| [0`$ [40 YH Z` Z x [א0Q3 ר Q[ \ Q[ [ [  Z80Slv$L0]00] 0H0^  P` ZdP ZDh Z ؀ Zؘ \pذ \@ Z0^ `x0S L \X [X0^40@W͈ [h( Z0@ PZX0@^Lk<g0STi0L Zp0^d 0^xd0Rzs `( `x( _( _( _( _) _)( _)@ `)X `)p `() `8) Q`X) A`H) ` t P0  *ho0"#`p0!" -D -001,d01| .  -x - - .   -8 -P .8h A<0QVws QT4 S4 TL TLd Wд0] UYو QY٠ UYٸ hlh ho`0ll X X W X  X(< X8X XHt Xѐ XxѬ XX Xh X X L8main __text_start ___stack_zero __data_start $START_RTN$ $str_lit_sym$ $THIS_DATA$$THIS_SHORTDATA$ $THIS_BSS$$THIS_SHORTBSS$$THIS_STATICDATA$$THIS_SHORTSTATICDATA$ $THIS_LIT$$THIS_LITSTATIC$$$stat_0 __map_dlderrorstrlenitoa__exitsyserroropenclosereadwritelseekmmap$global$$START$$ARGV _fp_status_start_mcount_clear_counters _sr4export $UNWIND_START $UNWIND_END$RECOVER_START $RECOVER_END __dld_flags __dld_hook __dld_list __SYSTEM_ID _SYSTEM_ID $PFA_C_START $PFA_C_ENDerrno_etext_end __dld_loc $$dyncall $$divI_10$$remI$BSS$$LIT$$DATA$L$C0000NewLine_BufferNext_Free_Offsetcreate_line_from_bunchLast_Free_GroupLast_Free_Offset Number_Freed Bunch_Lines slast___28destroy_bunch_line$CODE$CLinePointCBufLineNum Max_LineNum MiniBuffer Buffer_Local Error_BufferJump_Buffer_Ptr exit_errorfreemalloc Goal_Column Number_OneSuspend_Screen_UpdateDefault_Syntax_Table Global_Map User_Varsstrcpystrcmpsprintflongjmp msg_errorprevline update_markssys_timedelete_undo_ring extract_filerealloccallocstrncpy widen_bufferfree_user_marksnextline make_linestrncmpmemset make_line1touch_screen_for_bufferRead_Only_Erroreob free_line delete_linebob remake_line forwchars backwcharsuniquely_name_bufferbolpeobp make_buffereolp delete_buffer goto_linedup_line find_buffer buffer_existsswitch_to_buffer Number_Tenfind_file_bufferbuffer_filenamebobpeolbol erase_buffermark_buffer_modified check_line Buffer_Stack Number_Zero Number_TwoL$C0001 long_lineEnd_Of_Buffer_ErrorTop_Of_Buffer_Errorscroll_completionin_function___32goto_bottom_of_windowgoto_top_of_windowin_function___35Last_Page_LineLast_Page_Point tabs_presentin_exit_jed___50JWindow Screen_Col Cursor_MotionLast_Key_Functiontt_Screen_Rows Repeat_FactorBatch SLang_Errorcalculate_columnSLKeyBoard_QuitWants_Attributestt_Term_Cannot_Insert tt_putcharExecuting_Keyboard_MacroInput_Buffer_LenRead_This_CharacterJScreentt_delete_charbackward_delete_char_untabifydelete_char_cmdbackward_delete_char_cmd ins_char_cmdCompletion_Buffer input_pendingSLang_Key_TimeOut_Flagregister_change tt_end_insert Chg_UCase_Lutins_char_n_timesCase_Sensitive Paste_Bufferinstt_begin_insertIndented_Text_ModeSLang_Last_Key_CharKill_Line_Feature point_columnUser_Prefers_Line_NumbersdelX_Suspend_HookJed_Secure_Modepop_spot blink_match other_windowget_current_indent push_spot goto_column1SLexecute_function$$divISLang_run_hooksfast_del next_char_cmdprevious_char_cmd sys_suspend touch_windowis_line_visible reset_display reset_ttyrecenter window_line pageup_cmd pagedown_cmd next_line_cmdprevious_line_cmd kill_line my_getkey jed_getkeywrite_file_with_backupbeep get_yes_nomessagebuffer_visiblejed_buffer_visible expand_abbrev pop_to_bufferexitauto_save_bufferdeln flush_message wrap_line split_linefast_ins check_buffers init_display flush_input generic_delninit_ttycopy_to_pastebuffer push_markcopy_region_to_bufferexit_minibuffer sys_spawn_cmd C_Bra_Newlinequit_jedtrim_whitespace indent_toeol_cmd quoted_insert Blink_Flag indent_linenewline_and_indent scroll_right scroll_left goto_columnskip_whitespaceinsert_whitespace looking_at jed_make_lutnewline skip_chars1save_some_buffers bskip_chars1 skip_chars bskip_charsC_Comment_Hintexit_jedmini_flag___10set_macro_stateMacro_Illegal_Nowcheck_macro_legality Macro_Staterestore_macro_statemacro_store_keycurrent_window___17Defining_Keyboard_MacroMacro_Buffer_Ptr Macro_Ptr_MaxExit_From_MiniBuffer Macro_Buffer Key_BufferpMessage_Buffer Key_Buffer Mini_Info__iobupdateMiniBuffer_Active tt_goto_rcfprintf insert_string ins_charsread_from_minibufferselect_minibufferSLang_push_stringdo_keysetjmp SLang_restartdo_jed safe_strcpy flush_outputstrcatmake_buffer_substringpop_mark macro_querybegin_keyboard_macroend_keyboard_macroexecute_keyboard_macroget_last_macro safe_strcat jed_writesys_open write_filemake_autosave_filename jed_write1is_linkOutput_Bufferp_maxOutput_BufferpOutput_Buffer_Size Output_Buffer VFile_ModeRequire_Final_Newlinememcpyaccesssys_file_mod_timevgetsexpand_filename sys_chmod check_regionSLang_pop_string file_statusrenamesys_delete_filewrite_region_to_fp file_type write_regionvstreamfile_changed_on_diskdir_file_merge fixup_dirunlinkvclosevopeninsert_file_pointer quick_insertread_file_pointerlstatreadlink auto_save_all visit_file insert_fileappend_to_file expand_link file_time_cmp auto_save check_bufferset_file_trans read_fileset_file_modescwd___2 Jed_LibraryMini_MapX_Argc_Argv_Hook Stdin_Is_TTYSLang_Traceback Jed_Root_Dirtt_get_terminfoOutput_Display_Table Main_Argv Jump_Buffer Main_ArgcThe_MiniBuffertt_clsIgnore_User_AbortSLang_define_key1 mini_completeSLang_load_filegetenvdup2getcwdfcloseinit_syntax_tables window_buffer init_signals init_keymapsSLang_is_definedSLang_load_string define_wordfind_file_in_window__mainSLang_create_keymapinit_minibufferSLang_undefine_keyisatty set_bufferjedfileno slash2slashget_cwdX_Init_Global_Structures_Hookupdate_generic_marksNo_Screen_UpdateUndo_Buf_Unch_Flagrecord_deletionrecord_insertioncreate_undo_ringvdelvins splice_line insert_buffer del_newline replace_char my_signalresize_display my_interruptbackground_readlast_signal_codesignal_in_progresssignalSignal_Sys_Spawn_FlagX_Get_Term_Size_Hookkillsig_sys_spawn_cmdgetpidchange_screen_sizeabortget_term_dimensionssys_input_pending Read_FD_Set work___48 tty_inited JMouse_Fd Found_DirFile_Len Found_FileDirp Baud_RatesMax_FdRead_FD Input_BufferJMouse_Event_Hook Abort_Char Meta_Char DEC_8Bit_Hack tt_Baud_RateX_Input_Pending_HookX_Init_Term_Hook Flow_ControlKeyBoard_XlateOLDTTYX_Reset_Term_Hooktt_enable_cursor_keysJMouse_Hide_Mouse_HookX_Open_Mouse_Hooktt_Screen_ColsX_Close_Mouse_Hook X_Read_Hook Display_Timetimeioctlselectfcntlstat tcsetattrSLang_push_integer tcgetattrchmodchownsleep cfgetospeedreaddirlrand48 sys_findnextsrand48chdirrmdirmkdirclosediropendirctimegetlogingetpwnamfgetsget_passwd_infoungetkey sys_getkeyungetkey_stringbuffer_keystringget_time map_character sys_findfirstdeslashmake_directorydelete_directorych_dirmake_random_numberenable_flow_controlupdate_1fix_attributesupdate_status_lineoutputstat_cpy finish_statusupdate_insert_lineStatus_Last_TimeStatus_This_Timefix_char_widthmake_status_linestatus_get_time do_scroll close_scroll queue_scrollexecute_scrolldo_scroll_down do_scroll_up open_scrollupdate_minibuffermark_window_attributes last___63 set_hscrollTop_Screen_Line_BufferAbsolute_Column Message_Color char_width display_lineDisplay_Initialized HScroll_Linelast_time___70Selective_Displaystatus_time___46j_csidis8bitupdate_screen_txtupdate_top_screen_lineEob_LineHScrollPoint_Cursor_Flag Scroll_LinesScroll_Region_2Scroll_Region_1 Mini_GhostJED_CSIDisplay_Eight_Bit Wants_HScrolltt_reset_scroll_regionTop_Window_Row tt_smart_putstt_set_scroll_regionWants_Syntax_Highlight tt_del_eolTerm_Supports_ColorMode_Has_Syntax_Highlighttt_reverse_indextt_Term_Cannot_Scrolltt_Use_Ansi_Colors Screen_RowDefault_Status_LineX_Update_Close_HookWant_EobX_Update_Open_Hook tt_init_video Jed_Dollartt_reset_videott_delete_nlines Point_On_Chartt_normal_video vscroll_downsyntax_highlightexecute_vscroll_downexecute_vscroll_up$$divU scroll_up vscroll_up SLang_doerrorinit_syntax_highlightset_status_formatfind_top scroll_down touch_screen do_dialog point_cursor redraw_screenredraw blank_linedefine_top_screen_lineJed_Version_Number mark_validfree_user_markL$C0008 Rect_Error touch_windowsRectangle_BufferSLang_free_user_objectSLang_pop_user_object set_mark_cmdSLang_register_classSLang_push_user_objectjed_make_user_object_markSLang_create_user_objectjed_move_user_object_markyankexchange_point_mark mark_spot goto_mark delete_region kill_regioninsert_rectangleopen_rectanglewidennarrow_to_regionmove_user_markgoto_user_markcopy_rectanglejed_free_user_object_markcreate_user_markuser_mark_bufferkill_rectangleregister_jed_classesblank_rectangle next_bufflist open_bufflistread_file_from_minibuffernext_string_listjed_close_objectjed_read_from_filejed_read_from_bufferjed_open_objectfind_non_visible_buffer jed_tracebackopen_string_listjed_clear_errorjed_open_lib_fileL$C0021L$C0032Expand_File_Hook prev___104 flag___105create_minibufferleditfind_scratch_buffer Process_Error Buf_List_LenString_Completion_Str_NextString_Completion_Str_LenString_Completion_Str Keymap_ErrorExpect_File_Errorget_last_bufferLast_Completion_BufferLast_Completion_Windows complete_open complete_next Last_Buffer Buf_ContextThe_MiniWindowSLang_Error_RoutineSLang_Dump_RoutineSLang_User_Open_Slang_ObjectX_Init_SLang_HookSLang_User_Clear_ErrorSLang_User_Close_Slang_Objecttt_narrow_width tt_wide_widthkill_buffer_cmdSLang_find_keymaptouch_window_hardSLang_define_key find_file_cmdSLang_push_malloced_stringopen_function_listnext_function_listpopenpcloseSLang_load_objectfind_keywrite_buffer_cmdSLang_get_function one_windowSLang_pop_integerSLang_find_key_function split_window replace_nextsearch create_window init_SLang init_SLmath init_SLunixinit_jed_intrinsicsSLang_extract_list_element unset_keyswitch_to_buffer_cmdset_keyunset_key_in_keymapkeymap_pset_key_in_keymap set_mode_cmd num_windows write_buffer what_char update_cmdcall_cmd replace_cmdcopy_region_cmdinsert_buffer_name screen_w80bufferp screen_w132 what_buffermake_line_string shell_commandbuffer_substringmarkpget_doc_stringdup_mark mini_readget_buffer_infoset_buffer_infomake_buffer_listwindow_size_intrinsic what_modeexpand_wildcards pipe_regioncommand_line_argv count_charsread_object_with_completion Ignore_Beepinsert_file_cmd find_file get_buffer kill_buffer evaluate_cmd load_bufferget_key_function Token_Pointerset_expansion_hookrecord_newline_insertion sbc_do_copyScroll_By_Copyingvdel_eol bol_search re_search_dir push_string Search_StructregSLang_regexp_matchSLsearchSLang_regexp_compile SLsearch_init bol_bsearchre_search_forwardregexp_nth_matchre_search_backward bol_fsearchbackward_search_line search_fileforward_search_linesearch_backwardsearch_forwardinsert_file_region replace_match wrap_line1is_paragraph_sepJed_Word_Range Chg_LCase_Luttext_smart_quote center_linenarrow_paragraphtext_format_paragraphforward_paragraphbackward_paragraphtransform_regionskip_word_charsskip_non_word_charstext_format_linebskip_word_charsbskip_non_word_chars key_interpretfind_function_stringL$C0035L$C0036L$C0037L$C0038L$C0039L$C0040L$C0020L$C0041L$C0042L$C0019L$C0057L$C0058L$C0056L$C0059L$C0043L$C0060L$C0055L$C0018L$C0017L$C0044L$C0016L$C0015L$C0014L$C0013L$C0031L$C0045L$C0030L$C0054L$C0029L$C0028L$C0027L$C0026L$C0012L$C0046L$C0011L$C0010L$C0025L$C0024L$C0047L$C0023L$C0009L$C0048L$C0049L$C0022L$C0053L$C0007L$C0050L$C0006L$C0005L$C0004L$C0051L$C0003L$C0002Slang_FunctionsL$C0052L$C0034L$C0033dump_this_bindingmacro_depth___10 Flist_ContextFlist_Context_Lenupdate_jed_keybufferSlang_Flist_Context repeat___21 last___44Last_Key_Buffer_LenJed_Key_Buffer digit_arg Jed_FunctionsCurrent_Kbd_Command_Stringkbd_quitLast_Kbd_Command_StringX_Define_Keys_Hooktt_beep SLKeyMap_List goto_matchenlarge_window delete_windowundo SLang_do_keySLang_make_keystringSLang_execute_functionmark_undo_boundarySLang_find_nameatoi use_keymap what_keymap dump_bindings which_keyset_current_kbd_commandset_abort_charadd_to_completion is_internal create_keymapJMouse Kill_Arrayinsert_from_kill_arrayKill_Array_Sizecopy_region_to_kill_arrayappend_region_to_kill_arrayfind_screen_lineadjust_windowsadjust_buffer_column_attributesprepare_next_undoUndo_In_Progress jed_memchrmap_color_object_to_number jed_systemtranslate_regionadd_to_completion_nenable_menu_bar rename_fileset_term_colors autoload_nset_term_color_escexit_error_cmddo_prefix_argument bury_bufferset_buffer_hookget_termcap_stringdo_tt_set_term_vtxxxdo_tt_write_stringdo_buffer_keystringset_column_colorsset_color_object jed_getpidTranslate_Region_Arrayjed_intrinsics tt_set_colortt_set_color_esctt_write_stringtt_set_term_vtxxxSLang_add_arraySLang_autoload SLtt_tgetstrfputstt_Ignore_Beeplist_abbrev_tablesuse_abbrev_tablecreate_abbrev_table define_abbrevabbrev_table_pdump_abbrev_tablewhat_abbrev_tabledelete_abbrev_tablefind_matching_delimiterparse_to_pointset_syntax_flags define_syntaxuse_syntax_tablecreate_syntax_tabledefine_keywordssystemSLang_add_table SLadd_namehighlight_commenthighlight_numberhighlight_string try_keywordhighlight_word color_columns Char_SyntaxKeyword_Not_Case_SensitiveKeywords find_tableGlobal_Abbrev_Table push_word Abbrev_Tablesfind_syntax_tablebackward_goto_matchforward_goto_matchparse_to_point1 Syntax_Tablesgoto_effective_eolSLtt_normal_videoSLtt_begin_insertSLtt_init_videoSLtt_end_insert SLtt_putchar SLtt_del_eolSLtt_write_stringSLtt_delete_nlinesSLtt_smart_putsSLtt_delete_charSLtt_reverse_indexSLtt_erase_line SLtt_beepSLtt_reset_videoSLtt_clsSLtt_set_scroll_regionSLtt_reset_scroll_regionSLtt_flush_outputSLtt_get_terminfoSLtt_set_colorSLtt_set_color_escSLtt_wide_widthSLtt_narrow_widthSLtt_enable_cursor_keysSLtt_set_term_vtxxxSLtt_Ignore_BeepSLtt_Use_Ansi_ColorsSLtt_Term_Cannot_ScrollSLtt_Term_Cannot_InsertSLtt_Screen_RowsSLtt_Screen_ColsSLtt_Baud_Rate SLtt_goto_rctt_tt_normal_video tt_erase_lineSuspend_Mouse_Events inner_interp compute_hashSLang_locate_name_in_tablelang_free_branchSLang_locate_global_name lang_execlang_try_binarySLang_locate_slang_name try_directivelang_check_nameLang_Interp_Stack_Static lang_dumpGlobal_User_Blockinterp_variable_eqsinterp_push_numbertry_byte_compiledlang_try_unaryL$C0067L$C0068L$C0069L$C0070L$C0071L$C0072L$C0073L$C0074L$C0075L$C0076L$C0077L$C0078L$C0079L$C0080L$C0081L$C0082L$C0083L$C0084Local_Variable_StackLang_BBody_SizeLang_Block_Stacklang_begin_blockLang_DirectivesUser_Block_Ptrbuf___44 trace___45Exit_Block_Ptr do_tracebackLang_Object_Ptr Last_ErrorLang_Block_DepthLang_Defining_Block do_binarydo_unaryLang_FBody_SizeLang_Defining_Functionlang_make_objectLocal_Variable_FrameHashSLStack_Pointer_MaxLang_Interp_StackLang_Interp_Stack_Ptrlang_check_space Lang_ContinueSLang_Name_Table_Ofs Lang_Return Lang_Breakinterp_push_stringLang_Local_Variable_TableLang_Break_Condition code___122 flag___125lang_define_functionLang_Function_BodySLShort_Blocks lang_try_now lang_do_eqslang_do_intrinsic lang_do_loops call_funptr lang_do_elseSLang_push_variablelang_begin_functionLang_FBody_PtrReally_Stupid_Hash init___134lang_end_blockLang_Block_BodySLStack_PointerLocal_Variable_Number SLRun_StackSLName_Table_Root SL_Binary_OpsLang_Defining_VariablesSLang_Trace_FunctionSLang_Name_TableSLang_Registered_Types SLang_Trace SLang_popSLang_pop_pointerSLang_Exit_FunctionSLang_pop_non_objectSLang_locate_nameslang_eqs_nameSLPreprocess_Only SLcompile_ptrSLang_InterruptSLang_Enter_Function SLmake_string SLcompilefputcSLang_guess_typeSLatoiatofSLang_add_global_variableSLang_pop_floatSLstringize_objectSLdo_popSLang_push_float SLang_pushSLang_clear_errorSLang_trace_funSLadd_variable SLang_VersionSLbyte_compile_name SLstack_depthSLreverse_stack SLstupid_hashslang_read_from_fileslang_read_from_stringfast_extract_tokenSLang_byte_compileslang_close_objectslang_open_object pop_tokenCTok function_argstry_multiple_assignment push_tokenGet_Token_Read_Fun This_SLpp expressionSLang_eval_objectLLTTokenat_handler_name parse_errorhandle_special_at_line Name_Stack directiveLook_For_Muliple_Assignmentblockblock_internalInputtermbasic arguments pop_eqsname Name_Stack_PTerminate_StringSlang_Line_Lendefining_variablesbyte_compile_fpNum_Pushed_Tokens get_token Token_StackSLang_User_PromptSLang_extract_tokenSLang_rpn_interpretfopen__flsbufSLprep_line_okSLprep_open_prepfflushSLexpand_escaped_stringSLadd_at_handlerSLang_byte_compile_filedmath1math_floating_point_exceptionmath_cosmath_sinmath_tan math_atan math_acos math_asin math_sqrt math_log10math_logmath_powdmath2Const_Emath_expConst_Pislmath_do_float math_poly slmath_tableexpcossintanlogatanpowacoslog10asinsqrtSLdefine_for_ifdefpop_two_stringsunary_op_function float_bin_op int_bin_opdo_trim lang_apropos1 SLdo_substr SLdo_issubstr SLdo_strupSLquote_string SLdo_strlow SLdo_strcmp SLdo_strncmp SLdo_strlen SLdo_isdigitSLdo_int lang_aproposuncomment_stringset_float_format SLdo_integer SLdo_char str_replace SLdo_stringSLdo_dup SLdo_sprintf SLsprintfmake_printable_stringSLang_is_list_element string_matchstring_match_nth my_systemInteger_Type_Var SLdo_strsubString_Type_Varlang_putenv_cmdFloat_Type_VarSLdo_strcompresslang_print_stack SLdo_strtrimlang_getenv_cmd SLdo_strcatgeneric_equals elem___74 regexp_regregister_types Float_Formatset_utility_char_tableUtility_Char_TableSLang_Basic_TableSLmake_nstringSLang_add_binary_opstrstrSLang_add_unary_opSLarray_free_arraySLexpand_escaped_charputenvSLang_create_arraySLarray_getelemSLarray_putelem SLarray_sortSLinit_char_arraySLang_define_case SLcopy_array SLarray_infoSLang_init_case_tablescompute_array_offsetarray_push_element str_get_elem Bound_errSLang_pop_arraySLcreate_array do_nth_matchregexp_looking_at convert_digitThis_RegNext_PosThis_Strunix_stat_fileunix_lstat_fileunix_stat_struct stat_islnk stat_isreg stat_isdir stat_ischr stat_isblk stat_isfifo stat_issock unix_chmod unix_chown parse_stat unix_ctime unix_kill slunix_tableStat_Buf map_errno malloc_key add_keymap copy_keymapbuf___19str___8Define_Key_Error jed_memcmpSLang_process_keystringSLang_Error_MessageSLang_Exit_Error_HookSLang_exit_errorSLang_Input_Buffer_LenSLang_Input_Buffer SLsys_getkeySLsys_input_pendingSLang_ungetkey SLang_getkeySLang_Ignore_User_AbortSLang_ungetkey_stringSLang_buffer_keystringSLang_Abort_CharSLang_input_pendingSLang_flush_input tt_sprintf my_tgetstrCursor_c tt_printf Scroll_R_Str Cursor_SetCursor_Visible_StrCursor_Invisible_StrCursor_r Curs_Up_Str Curs_Pos_Str Ins_Mode_Str Eins_Mode_Str Del_Char_Str Norm_Vid_StrDel_N_Lines_StrCls_StrAdd_N_Lines_StrRev_Scroll_Strtt_writeVisible_Bell_Str last_i___52Start_Alt_Chars_StrEnd_Alt_Chars_Strwrite_attributesAutomatic_MarginsWorthless_HighlightUnderLine_Vid_Str Rev_Vid_Str Blink_Vid_StrVideo_Initialized send_attr_strforward_cursor Curs_F_Str FgBg_Stats total___5Tstr_Buf last_time___4Tbuf Vt100_Like Linux_Console Del_Eol_Str Color_Defs Current_Fgbg Scroll_r2 Term_Init_StrTerm_Reset_Str Scroll_r1 Bold_Vid_StrEnable_Alt_Char_SetColor_Escape_SequenceAnsi_Color_MapSLtt_Has_Alt_CharsetSLtt_Graphics_Char_PairsSLtt_Blink_ModeSLtt_Num_Chars_OutputSLtt_Newline_Ok SLtt_tigetnumSLtt_Use_Blink_For_ACSSLtt_tigetflag SLtt_tigetent SLtt_tigetstrSLtt_set_cursor_visibilitySLtt_add_color_attributeSLtt_set_alt_char_setSLtt_bold_videoSLtt_reverse_videoSLtt_set_color_object SLtt_tgetnum SLtt_tgetflag SLtt_set_monoSLtt_set_mouse_modeCase_Tables_Okdefault_destroy add_binary_opSLang_add_copy_operationdefault_sigint TTY_InitedSLang_TT_Read_FDOld_TTYSLang_TT_Baud_RateSLtty_set_suspend_stateSLang_set_abort_signalSLang_reset_ttySLang_init_tty special_chars make_integerread_terminfo_sectiontcap_extract_fieldcompute_cap_offset tcap_get_capread_boolean_flagsread_terminal_names tcap_getent open_terminfoL$C0061L$C0062L$C0063L$C0064L$C0065L$C0066 tcap_getstrread_string_tableread_string_offsets tcap_getnum read_numbers tcap_getflag Terminfo_DirsSLtt_Try_Termcap Tgetnum_Map Tgetstr_Map Tgetflag_Mapfreadis_any_definedis_env_defined SLdefinesSLprep_close_prep L$text0000 Ltext_endinitialized___6 __CTOR_LIST__ __DTOR_LIST____do_global_dtors__do_global_ctorsatexit_exit_dummy_decl_exit_dummy_ref_iobLIBC//Mdiv_const.o0HPUX Precision Architecture vers PA2.0 assembler92453A.08.12 (sllic PA1.1)$neg3$pos$neg$neg5$neg6 $pos_for_17$neg10 $neg_for_17$neg12$neg15$neg17$u17$neg7$7$pos7$1$2$8 $neg7_shift$3$4$neg9$neg14$$divide_by_constant$$divI_2$$divI_4$$divI_8 $$divI_16$$divI_3$$divU_3$$divI_5$$divU_5$$divI_6$$divU_6 $$divU_10 $$divI_12 $$divU_12 $$divI_15 $$divU_15 $$divI_17 $$divU_17$$divI_7$$divU_7$$divI_9$$divU_9 $$divI_14 $$divU_14 LIBC//MdivI.o negative1 small_divisornormal$$divoI LIBC//MdivU.ospecial_divisor big_divisor zero_divisor LIBC//MremI.ot1finishLIBC//MdyncallU.onoshlibsetextedataend_etext_edata_end __SYSTEM_ID _fp_statusetextedataend_etext_edata_endllm0m<olm0m<p<lm0m<plm0m<plm0m<N0p,;5>+>^ Ok/0#.,24+-%@$@U/@U4@ lU9@UgUl,Ul@bHU DU@bPU DU @bXU TU @b`U U@bhU U@bpU `U@bxU mU@bU \U@bU U@bU \U@bU  lU @bU  U @bU /U /@bU 3tU"3@bU ;U$;@bU H܄U&H@bU _mU(_@bU sU*s@bU |U,|@bU +U.@bU #xU0@bU 4U2@bU U4@cU U6@cU %tU8@cU U:@cU U<@c U /mU>@c(U 'ܜU@@c0U 3 mUB @c8U ?UD@c@U "nUF"@cHU 3ԐUH3@cPU -DUJD@cXU )LULL@c`U =_UN_@chU ;mUPm@cpU O{UR{@cxU IUT@cU 4UV@cU KLUX@cU 7nUZ@cU dU\@cU |U^@cU MU`@cU 1-Ub@cU cUd@cU YUf@cU 5 Uh @cU QUj@cU E%n0Ul%@cU 2Un2@cU A?Up?@cU _J UrJ@cU SXԨUtX@dU ]i$Uvi@dU ey Uxy@dU U~nHUz~@dU g(U|@d U sn`U~@d(U i@U@d0U onxU@d@U uXU@dHU }U@dPU [pU@dXU ܴU@d`U CnU@dpU WU@dxU  U @dU mU@dU 'U'@dU w2U2@dU !>U>@dU HUH@dU XUX@dU dUd@dU t(Ut@dU }@U}@dU U@dU U@dU <U@dU qU@dU 90U@dU yHU@dU {U@eU -U@eU XU@eU `U@eU @U@e U TU@e(U O8UO@eHU \xU\@ePU jUj@eXU zUz@e`U pU@ehU nU@epU XU@exU U@eU U@eU U@eU kU@eU -U@eU U@eU  U @eU -U-@eU ChUC@eU ]U]@eU yUy@eU lU@eU U@eU U@eU apU@fU nU@fU  U@fU tU@fU U@f U U@f(U ňU@f0U ŠU @f8U ŸU @f@U (8U (@fHU 6PU 6@fPU DU D@fXU PPU P@f`U YhU Y@fhU c-U c@fpU  lU l@fxU tU t@fU U @fU U @fU  U @fU U @fU  U @fU  U @fU  U @fU U @fU U @fU  #U #@fU 1 U 1@fU BU B@fU G MU M@fU  _U" _@fU  nU$ n@gU  zU& z@gU hU( @gU U* @gU # U, @g U  U. @g(U % U0 @g0U ) 8U2 @g8U + nU4 @g@U  U6 @gHU 3 (U8 @gPU - nU: @gXU oU< @g`U 7 +PU> +@ghU = 7@U@ 7@gpU GUB G@gxU WXUD W@gU hpUF h@gU ; tUH t@gU I UJ @gU  hUL @gU ' UN @gU  o UP @gU 1 o8UR @gU / UT @gU U UV @gU  oPUX @gU 5 UZ @gU U\ @gU  U^ @gU Y 4U` 4@gU W @Ub @@gU K OUd O@hU Q XUf X@hU e u4Uh u@hU c Uj @h U M Ul @h(U C Un @h0U [ .Up @h8U Ur @h@U A 4Ut @hHU u 0Uv @hPU w HUx @hXU q Uz @hhU 9 U| @hxU { U~ @hU G 'U '@hU s 9U 9@hU  \0U \@hU  oHU o@hU ! {(U {@hU  @U @hU  U @hU  . U @hU  ohU @hU  oU @hU ioU@hU +oU+@iU _<+U<@iU OO+ UO@iU }`+8U`@iU ?t+PUt@i U g+hU@i(U +U@i0U E+U@i8U a+U@i@U LU@i`U 4U@ihU o-40U-@ipU 94HU9@ixU kH4`UH@iU yY4xUY@iU g4Ug@iU ]x4Ux@iU 4U@iU `U@iU XU@iU xU@iU ?U@iU ?U@iU ?U@iU ?U@iU m?U@iU 0@U0@iU A@UA@iU Q@0UQ@jU c@HUc@jU l@`Ul@jU v@xUv@jU @U@j U @U@j(U @U@j0U @U@j8U @U@j@U AU@jHU A U@jPU  A8U @jXU SAPU@j`U *AhU*@jhU =AU=@jpU MAUM@jxU _AU_@jU wAUw@jU LHU@jU "L`U"@kU 1XU1@kU jLxUj@k8U U@kXU U@khU רU@kU LU@kU 0U@kU HU@kU `U@kU xU@l(U ,LU ,@l0U UU U@lHU gUg@lPU gU@lpU  LU@lxU U@lU U@lU sU@lU U@m(U pU@m@U $U$@mHU MdU M@m`U `|U"`@mhU sU$@mU @b0U @b@U  @bU (@aU &@b(U '@b8U )@bU @b U  @bU *@bU !@aU U1@mU U3@nU    l   m _    |   %  $ 1?M ` s>     / X y  3     ; s    H      L   { 2  ?  "   ~  _ J 3   i     .CZm^ c K A ] b U Y F O =    ?EMT^cms{  '-3:AFMRX^gnt{#*07=AFKOUY]^bcl  /3;H_s| "3DL_m{ %2?JXiy~ '2>HXdt}!<O\jz  -C]y   ( 6 D P Y c l t          # 1 B M _ n z            + 7 G W h t            4 @ O X a u            ' 9 L \ o {     +<O`t-9HYgx0AQclv *=M_w "1:FR^j{*@O\mw,:KUg*:IZep{$1?M`s.CZm jed/lib/libm.sl/lib/libc.slerrno_SYSTEM_ID_iob_end__iobchmodstrncpyatexittcsetattrkilltcgetattrmkdirlrand48memcpyreaddirpopenfflushselect_startchdirlongjmpsetjmpctimesprintfaccesswriteioctltimecfgetospeedreallocsignalgetpidgetloginfopenrmdir__flsbufmallocfcntllstatgetcwdputenvfreepcloseopenfputsabortgetpwnamunlinkfputcstrcatdup2atoifreadsystemreadlinkatofgetenvexitfprintfstrcmprenamesrand48strncmpcallocsleepreadfgetsisattystrlenfcloseopendirstrcpyfilenoclosedirstatstrstrchownmemsetclosepowatansqrttanlog10explogacosasinmainbackward_delete_char_cmdbackward_delete_char_untabifybeepbegin_keyboard_macrobobbolcenter_linecopy_to_pastebufferdelete_char_cmddelete_windowdigit_argend_keyboard_macroenlarge_windoweobeol_cmdevaluate_cmdexecute_keyboard_macroexchange_point_markexit_jedexit_minibufferfind_filetext_format_paragraphgoto_matchindent_lineinsert_file_cmdkbd_quitkill_bufferkill_linekill_regionmacro_querymark_spotmini_completenarrow_to_regionnarrow_paragraphnewlinenewline_and_indentnext_char_cmdnext_line_cmdone_windowother_windowpagedown_cmdpageup_cmdpop_spotprevious_char_cmdprevious_line_cmdquoted_insertredrawsave_some_buffersscroll_leftscroll_rightins_char_cmdset_mark_cmdsplit_windowget_buffersys_spawn_cmdtext_smart_quotetrim_whitespaceundowidenwrite_bufferyankset_keyautoload_npush_markinsert_stringeolset_buffermessageadd_to_completion_ndelete_regionbuffer_substringforwcharsset_key_in_keymapbackwcharswhat_buffermsg_errorget_buffer_infois_internalset_buffer_infoprevlinenextlinecall_cmdunset_keylooking_atdelmarkpnum_windowsadd_to_completioncalculate_columneobpset_mode_cmdsearch_forwardjed_buffer_visibleset_term_colorsmap_color_object_to_numberset_term_color_escextract_filepop_to_buffercopy_region_cmdinsert_buffer_namebolppush_spotsearch_backwardswitch_to_buffer_cmddo_tt_write_stringeolpwhat_keymapfind_file_in_windowset_status_formatbury_bufferdup_markerase_bufferwindow_size_intrinsiccopy_region_to_kill_arrayappend_region_to_kill_arrayinsert_from_kill_arraygoto_columngoto_column1goto_linebackward_search_linepop_markmini_readfile_statusskip_whitespacebobpforward_search_linebol_fsearchbol_bsearchflush_messageinput_pendinginsert_filekeymap_pwhat_charrecenterbufferpget_key_functiondump_bindingsunset_key_in_keymapjed_getpidupdate_cmdskip_word_charsskip_non_word_charsbskip_word_charsbskip_non_word_charswhich_keyinsert_whitespacefile_time_cmptransform_regionskip_charscommand_line_argvset_file_transpipe_regionshell_commandmake_directorydelete_directoryappend_to_fileauto_saveauto_save_allbackward_paragraphblank_rectanglebskip_charsmake_buffer_listcheck_regioncopy_rectangledefine_wordkill_buffer_cmdsys_delete_fileexpand_wildcardsload_bufferexpand_filenamefile_changed_on_diskforward_paragraphjed_getkeyinsert_rectanglekill_rectanglecreate_keymapmap_characteropen_rectanglequit_jedfind_file_cmdread_object_with_completionreplace_cmdset_abort_charget_timeungetkeydo_buffer_keystringuse_keymapscreen_w132screen_w80what_modewindow_linewrite_buffer_cmdwrite_regioncount_charsget_yes_norename_filech_dirdo_prefix_argumentregexp_nth_matchreplace_matchre_search_forwardre_search_backwardset_buffer_hookinsert_file_regionsearch_filemake_random_numberdo_tt_set_term_vtxxxenable_flow_controlexit_error_cmdget_last_macrodefine_top_screen_lineenable_menu_barcreate_user_markgoto_user_markmove_user_markuser_mark_bufferlist_abbrev_tablesuse_abbrev_tablecreate_abbrev_tabledefine_abbrevabbrev_table_pdump_abbrev_tablewhat_abbrev_tabledelete_abbrev_tableset_column_colorsset_color_objecttranslate_regionset_current_kbd_commandfind_matching_delimiterblink_matchparse_to_pointset_syntax_flagsdefine_syntaxuse_syntax_tablecreate_syntax_tabledefine_keywordsset_expansion_hookget_passwd_infoget_termcap_stringget_doc_stringSLtt_goto_rcSLtt_begin_insertSLtt_end_insertSLtt_del_eolSLtt_delete_nlinesSLtt_delete_charSLtt_erase_lineSLtt_normal_videoSLtt_clsSLtt_beepSLtt_reverse_indexSLtt_smart_putsSLtt_write_stringSLtt_putcharSLtt_init_videoSLtt_reset_videoSLtt_set_scroll_regionSLtt_reset_scroll_regionSLtt_get_terminfoSLtt_set_colorSLtt_set_color_escSLtt_wide_widthSLtt_narrow_widthSLtt_enable_cursor_keysSLtt_set_term_vtxxxlang_dumpSLcompilemath_polymath_sinmath_cosmath_tanmath_atanmath_acosmath_asinmath_expmath_logmath_sqrtmath_log10math_powslmath_do_floatSLang_autoloadSLdo_popSLdo_strcmpSLdo_strcatSLdo_strlenstr_replaceSLang_is_definedSLdo_stringlang_getenv_cmdlang_putenv_cmdSLang_load_fileSLdo_charSLang_load_stringSLdo_dupSLdo_substrSLdo_integerSLdo_issubstrSLdo_strsubSLang_extract_list_elementSLang_is_list_elementgeneric_equalsstring_matchstring_match_nthmy_systemlang_aproposSLang_trace_funSLang_create_arraySLarray_getelemSLarray_putelemSLdo_strncmpSLdo_strlowSLdo_strupSLdo_isdigitSLdo_strtrimSLdo_strcompressSLdo_intSLarray_sortSLstack_depthlang_print_stackSLsprintfSLinit_char_arraySLang_byte_compile_filemake_printable_stringSLquote_stringuncomment_stringSLang_define_caseSLang_clear_errorset_float_formatSLcopy_arraySLarray_infoSLang_guess_typeunix_killunix_ctimeunix_lstat_fileunix_stat_fileunix_stat_structstat_islnkstat_isregstat_isdirstat_ischrstat_isblkstat_isfifostat_issockunix_chownunix_chmodresize_displaymy_interruptmy_signalsig_sys_spawn_cmdbackground_readfree_user_marksys_findfirstsys_findnextopen_bufflistnext_bufflistopen_function_listnext_function_listopen_string_listnext_string_listjed_read_from_filejed_read_from_bufferjed_tracebackjed_open_objectjed_close_objectjed_clear_errorjed_systemSLang_extract_tokenfast_extract_tokenslang_read_from_fileslang_read_from_stringSLang_byte_compilemath_floating_point_exceptioncossintanatanacosasinexplogsqrtlog10powSLarray_free_arrayint_bin_opunary_op_functionfloat_bin_opdefault_destroydefault_sigint__do_global_dtorsXZ]XZ]XZ]XZ]d@"Z]> ZZ]> ZZ]9 Z8 =@Y :Z @Z@ ZZZ] ZZ @"ZY :ZZ@= ZZZ@= Z ZY :Z]ya: =]: =]  : =@]ZBu ZZZZ ZZ]ya: =]: =]  : = @]ZB ZZZM ZZY :}@]Be]yZZ5@*Z@ya AZ@ya AZ]ya A @Z@] Z]: =] y a: =]Y(ZYY8Z@] Z]: =] y a: =]Y(Z YY8Z]Y Z @*Z@YA AZ@YA AZ]YA A @ ZZmZ?#Z>B @V   @  A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  :R @@@ @]@@@W@@@_@/@@ @V7@ @V@w@ @ :>B  @ Z A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  a@@@ @]]@]O@@@]7@@ @@ @'@G@ : @V   @A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A ˡF ! !V @JJ k?Buffer is read only!create group: internal error 1free group: internal error 2destroy_bunch_line: internal error 1Malloc Error in make_line: requested size: %d.remake_line: realloc error!, size = %d<%d>make_buffer: malloc errorMalloc Error in dup_line.Top Of Buffer.End Of Buffer.Access to shell denied.suspend_hookresume_hookBuffer %s not saved. Save it? (y/n)Buffer %s not saved. Save it exit_hookMacro Size exceeded.Enter String:- %s (default: %s) Illegal context for Macro definition.Defining Macro.Macro Defined.Not defining Macro!Can't execute a macro while defining one.Complete Macro first!Macro not defined.%s%smode_hookWrite Failed!Unable to open %s for writing.make_autosave_filename%s#%s#make_backup_filenameautosaving...autosaving...done.()command_line_hook0-9a-zA-Z-----secure-batch-script/dev/ttymain: Fatal Errormain: Allocation Failure*scratch**stdin*JED_ROOT/users/local/lib/jedlibJED_LIBRARYsiteMini_Mapmain: malloc error^M^I Batch End with no exitins: CLine is NULL End of Buffer.Killed by signal %d.Attempt to read from background-- exiting.getkey(): read failedselect: keyboard file descriptor is bad!!!fffg/LOGNAMEUSERHOME[EOB]UUUVPoint not visible in Window.*AllTopBot%d%%%d/%d abbrev Narrow Ovwrt0.F97.12%d% [Macro]Quit!update_timer_hookinit_display(): malloc error. JED (%s): Fatal Error: %s %s CBuf: %p, CLine: %p, Point %d CLine: data: %p, len = %d, next: %p, prev %p Max_LineNum: %d, LineNum: %d JWindow: %p, top: %d, rows: %d, buffer: %p Dumping Core.Mark Set.push_spot: malloc error!push_mark: malloc error!Spot Marked.Set mark first.Malloc Error during narrow.A buffer cannot be inserted upon itself. Rectangle has 0 width. Mark is invalid.Mark not in buffer.Expecting filename.Unknown_KeymapUnable to find buffer.*scratch*Buffer does not exist.Buffer %s modified. Kill, Save First, Abort: [KSA]Aborted.Filename Required.Wrote %d lines to %s%sError writing file %s%sset_buffer: Buffer name is NULL? (yes or no)yesnoyes or no!File changed on disk. Read From DiskFile not readable.New file.%d lines readfind_file_hook*Completions*Internal Error: no window!Command:Quit!Insert file:Error inserting file.Find file:Write to file:Switch to buffer:Kill buffer: Unable to open process.Access denied.rMalloc Error.wJED_ROOT environment variable needs set..slcloading %sThe expansion hook has not been defined.Error encounter during expansion. Disabling expansion hook.!!! Use Page Up/Down keys to scroll this window. !!! [Sole Completion.]No Match!Function does not exist!Malloc Error*traceback*Argc out of bounds.'@'=%d/0x%x, point %lu of %luUnable to initialize S-Lang!split_line: Null LineAllocation Failure in split_linesplice line: next line is NullUnable to compile pattern.is_paragraph_separatorformat_paragraph_hookyankwrite_bufferwidenundotrim_whitespacetext_smart_quotesys_spawn_cmdswitch_to_buffersplit_windowset_mark_cmdself_insert_cmdscroll_rightscroll_leftsave_buffersredrawquoted_insertprevious_line_cmdprevious_char_cmdpop_spotpage_uppage_downother_windowone_windownext_line_cmdnext_char_cmdnewline_and_indentnewlinenarrow_paragraphnarrowmini_completemark_spotmacro_querykill_regionkill_linekill_bufferkbd_quitinsert_fileindent_linegoto_matchformat_paragraphfind_fileexit_miniexit_jedexchangeexecute_macroevaluate_cmdeol_cmdend_of_bufferenlarge_windowend_macrodigit_argdelete_windowdelete_char_cmdcopy_regioncenter_linebeg_of_linebeg_of_bufferbegin_macrobeepbackward_delete_char_untabifybackward_delete_charQuit!globalMalloc error creating keymap.^[1^[2^[3^[4^[5^[6^[7^[8^[9^[0^[[D^[OD^[[A^[OA^[[B^[OB^[[C^[OC^[[6~^[[5~^K^[[C^K^[[D^K^[[A^K^[[B'"^_^?^B^D^E^G^I^K(^K)^KD^KE^KG^KK^KM^KX^K^B^K^I^K^M^K^P^K^V^K^W^L^M^R^U^V^W0^W1^W2^WO^XB^XK^XN^XQ^XS^XW^X^^X^[^X^X^Z^[<^[>^[N^[Q^[S^[X^[\^\`Possible runaway macro aborted.*scratch*.()jed_startup_hookDELESCSPACETABKeymap undefined.Unknown keymap.Undefined Symbol.Completion Quota Exceeded.Unable to create keymap.create_window: malloc error.Window too small.Undo not enabled for this buffer.No more undo information.Next undo lies outside visible buffer.Undo!Unable to malloc space for undo!Unable to malloc space.Realloc Error.normalstatusregioncursoroperatornumberstringcommentdelimiterpreprocessmenumessageerrordollarkeywordpar_sepindent_hookwrap_hooknewline_indent_hookAccess denied.JedsystemDisplay_MapTRANSLATE_ARRAYTable does not exist.Abbrev Table Quota reached.Malloc error.GlobalExpansion is too long.Mismatch!!Mismatch??Matches Syntax table undefined.Delimiter set does not match.Bad parameter to define_syntaxTable number too high.Keyword length not supported.Keyword list is improperly formed.Variable uninitialized.Function requires too many parametersBlock needed for while.Block needed for for.Unknown loop type.Function did not autoload!Local Variable Stack Overflow!>>%s <<%s S-Lang Traceback: %s Local Variables: $%d: ??" Object Ptr is Nil!Operation undefined for type.Block needed.Unsupported Type!Local variable pointer not initialized.No User BlockNo Error BlockName SyntaxName too long.Table size exceeded!EXECUTE_ERROR_BLOCKX_USER_BLOCKnot~chssignabssqrmul2Function nesting illegal.Calloc error defining function.Block Nesting too deep.USER_BLOCK4USER_BLOCK3USER_BLOCK2USER_BLOCK1USER_BLOCK0EXIT_BLOCKERROR_BLOCKorelseandelsedo_whileswitchloop_forforwhileforeverelseif!ifInternal Error with block!continuebreakreturnexchInterpret stack overflow.Lang: calloc error.Illegal name.NO|xorshrshl&modorand!=>=>==<=</*-+;Line %d: %sName stack overflow.Invalid Name[Expecting comma.])popUnexpected end of source.Syntax Error.ifreturnelseExpecting while.{}do_whilewhileExpecting EOS.Expecting function name.(Expecting '{':Expecting ';'Incomplete Statement.aputagetchsUnbalanced parenthesis!Incomplete list!ifforevervariabledefineforloopswitchorelseandelse+=-=_fordoERROR_BLOCKEXIT_BLOCKUSER_BLOCKcaseglobal_variableIllegal Name.rError opening %s.S-Lang Error: line %d: file: %s .@%scwError opening .slc file for byte compiling.@Error opening %s for byte compiling.?SLMATH_Math Comment delimiter length mismatch.The string cannot be converted to an integer.%d(Str)(Int)(float)(Ptr)(Array)(Unknown)(%d) %s:%Invalid Format.Unable to compile pattern.UNIX_Basic_UNIXFLOAT_TYPEArray size not supported.Unable to create array.Array dims out of boundsCorrupted Array.Array Element uninitialized.Internal Error in array element.Copy not supported for this array type.Sort function undefined.Invalid sort function.Sort requires 1 dim arrays.Error Creating index array.Operation requires character array.String too big to init Array.Pattern large to be compiled.st_devinomodenlinkuidgidrdevsizeatimemtimectimeUnknown stat field.SLUNIX_UnixInconsistency in define key.Malloc error in define key.Undefined_NameSyntax ErrorStack OverflowStack UnderflowDuplicate DefinitionType MismatchVariable is read only.Malloc Error.Invalid Parameter.User Break!Intrinsic ErrorDivide by zero.Unknown Error.S-Lang Error: %s %s [3%d;4%dmQfffg [?5h[?5lwhitebrightcyanbrightmagentabrightblueyellowbrightgreenbrightredgraylightgraycyanmagentabluebrowngreenredblack[?3l[?3hCOLORTERMTERMTERM environment variable needs set.linuxvt52screenvt100Unknown terminal: %s Check the TERM environment variable. Also make sure that the terminal is defined in the terminfo database. Alternatively, set the TERMCAP environment variable to the desired termcap entry.clcmTerminal not powerful enough for SLang.imeidcvbupsrDLALtite[%dM[%dLcscoliLINESCOLUMNSxtermcemrsomdmbusasaeeAlmkjutvwqxn+o~s_`afg~ ,+.-hi0(B)U(B)0ac)0(B)0mesevivsRIamxssg=[?1l[%i%d;%drM[%dC[%i%d;%dH [?9h[?9lSearch string too long.Type not registered.fffg%dToken to large.rb/usr/local/lib/terminfo/usr/share/lib/terminfo/usr/lib/terminfoTERMINFO%s/%c/%svsvivbusuptitesrsosemrmemdmbkuktkrklkhkdkbk;kakTkSkRkPkNkMkLkIkHkFkEkDkCkAk9k8k7k6k5k4k3k2k1k0imeAeidccscmclceasaeacRIDLAL@7licosgxsmsamTERMCAPendifdeffalsetrue+H50QH30Y k?#c7{7K#+}h#@'y 4Kd?Eke?(43 `'y H? zG+4>DEFYXZ# -BZYX^k?# ,B@@@@ BK?@ @@k?ok= k=k=k=!k=)k=1k=9k=Ak=Ik=Qk=Y+}DCGE4:`Y#0'BF 04 ?4x4Y#0#B7>I4ZX#0(B *44Y#0#BG>M4] BG>I4t *4YX#0#BK>ZX#0(B7=4`ZX#0(B G= *48YX#0#BK=K> K>K>)k?k?4 4 Z Y W#0(BL 2+4:@4 X#0#BK>!k?k?4ZY4#0(BH 2+4:@4 X#0#B@ k?k?44,Z Y#0(B 2+44:@ X#0#BZ N#0'BK>1K> lk=k=k?k=k=  +}4<@+rh( ( 4"(4$+t0k?4?Wk=Xk?k?4% k?y7=k?q#.hBKK?K?K? @O?@ \@\B7 B??7@TS 44Z#+@7` Z# @_S@  4 "@@@@  4 "@R@@@  4 "@@@@  4 "@@@@  4 "@@@@  4& "@R@@@  4 "@@@@+j4!h<4?@@@P@K?@ @@@@K?@ @@h@K?@ @@@K?@ @@ @K?@ @@8@K?@ @@ @K?@ @@ @K?@ @@ @K?@ @@ X@K?@ @@h@K?@ @@ @K?@ @@@K?@ @@x@K?@ @+H51qH31y k?+H51H31 k?+H50H30 k?+H50qH30y k?+H51H31  k?+H5?H3? k?+H53qH33y k?+H52H32 k?+H53H33 k?+H53!H33) k?+H54H34  k?+H53H33 k?/'0+rT+t SJs Jsj p+}Sj` +}S4@j|+rU+t SJs Jtj p+}U+rSJs X j+}h  @4+}T+rSJs pJs6s?``j j @4H3 pJs+}H4 Bst PH3 +t T+rSJ Js` 04+}H3 6sh3 @4@+}h  +j 4@h< `+rH3 p`!4+}TJs6s?``j j @4+rH3 pJs+}H4 Bst 2+t T+rSJ Js` 84 H4+}H3 6s@h3 +}h  @4@+t H3 +rJtH3 p 4+}H< 04@+rH3 p` @4Ju?+}6?H3 t`+t @4T+rSJ Js` (+r+}H< x4@H3 pJs u Bs?t?+}TJ u?46?j @4k?+rT+t SJs J pJs 7_e4B4K?Y@7?+}H< 04@k?o4+}h  KSs`j+rH3 pJt JJ` J׆ "4ch4 pKSsH3 p` +}_@+}H3sh3\K?Y@O?4KZ`2+rH3 pJs` 7h3 p +}h  +}H3 | @h3K\`4@4+t T+rSJ Js` X+rH3 p+}JtH3 t x\ | @h3 +rH3 pJw+}JsH4 p `RTBt 8J 6sj 6 6wB +}@\H3 w`(+rBt H3 p67?H3 pJs` @+}H3 w`h\B`0@\h  +rh3 p+}H36seh3@k?ok? k?k?KC``4(4+t T+rSJ Js` P+}+}H3 s@C+}H3 sh3 \F+}EH t@B 4 _4?H (4?+}H3 sh3 d K>K? K?K?@O?k?ok? k?k?+`H5 +`H3֓6s>s@ԂJ d` #C7ZF 4+`H3Jtjth +`H3 6s?h3 P\+}H404>薓>s@Ԃ+`H3Js d` 0H4#C7Z F 84+`H4Jj+`H3 6s?h3 +}H<07h30ל7@ +`H#`!2Hc`! +`H3 `!T#CFHs` D@4Є6t6s c >s@ԂHs d` 7Z F 4HshsH 6s?h \Hct?Hs_=4| +`TJ` j(hcH4Jhsjh#4?hs+}4h30Hs`hs+`H3 6s>h3 4|4K>K? K?K?@O?k?ok? k?k?k?!k?)+`H3` D+`H$UC+`F7V?"+`G+}H+`E4t4sSₚ v6 ?6 vsdhs>s@bHt ` 6 F4H>Hst@ hs *Hsc "DHc?DHshHs 4@84hi0_ -Z844H 6s?h +`h$H 6sh +`h#H` 8#CHK>DHcu=4t#C7Z`F04K>K? K?K?K?!K?)@O?k?7k>k>k>E4_`Ȝ H+r +}4<(_ UZ +r Z` 7>##79_ }XA$7>+rH: _ 4hh\K=K>K>K>@7>k?_7+rH3 p` 8Skk+t H3 j|j|+t TJ Jt pJ (+rjkkXjH4 pJkJ j+rH3 pj|k+rH3 p` 8+rT+}U4j8j XH3 X6sh3 X+}H36sh3+rh< pKK>@7?k?oCHz+}43(S _@_5ZK>@O?k?o+rH3 pJc` 4Jt (Z+t H3 jch`htj_@+rh# p+}H36s?h3+rH3 X6s?h3 X4K>@O?k?7k?1+rH3 pJ|7C+}43( 0`_Z˜ 84cZ_}Y h+r+r` 7>## 79_XA l7>+rH: _4H3 pj|K>YK?1@7>k?7k>k>k?k? k?k?k?!k?)Y4+t SJs b`07>_u4Zc>_7>H+t J7>!# IS Jcs X4+t E7>_]4y004HcH s?7> (4  59`X_4B?Q+t H: 7Z0_7>K>YK>K>K?K? K?K?K?!K?)@7>k?o4x_4|(Z#C 7ZpE4Z4x_4+rH3 Chsh| +}H3 Xhs04?hsh+t H3 ` hc0hchsJthtJtjjc+rH3hsp\K>@O?k?ok? CHs` "F ZHs` Hd Z_]KD"ZHz@ jHt sB6s c S KD6?hs_@DHtHz@ jHt sB6s c S KD6?hs_A@DHtHsȆ` FZHs(` K`ZHz`@ _@HtHsjHtHsj_ZK>K? @O?k?7k?!+}H3u+rH4 X t KSb@Ҕ4KC+}H3sBus_M@4s?`@k?07?t0+}H3 ck?7?_4B@_M@+rH3 Xsk?_7?K>K?!@7?k?ok? k?EH_4 Ȝ (#C _aZ h#C 7ZEL4HhHhhH4c? HB34c??"\K>K? K?@O?k?ok? k?D+t SJc E4z0_Y *HcH s?4z04\K>K? K?@O?+t H3 H4 S Jst?4@@4k?o+t H4 +rH3 pj+}H3 j+}H3j +rH3 Xj(+}45H3j0JT j84KTKSjKTKSj+t UJ kTJkSJjzjj +rSKUju p+}CKShs +}V6KS0jKS8j+}TKS j+rTKS( j X_42h` +t H3 +rH4 pjt+}H4 jt4K>@O?k?ok? k?k?k?!k?)C FG+t SJc H4d0_Z H4z0_Y (ZY_X (\HcI s?}4d04K>K? K?K?K?!K?)@O?k?ok? SC+t H: 7Z0_!Y` +t @s` RDH C d7Z0CH 7Z0_Y ``H: 7Z0_Y+t H: _7Z0K>K? @O?k?ok? k?k?+t H3 _Je+rH3 pJth4 p+}H36sh3+}4 h3+rC+rFHd pHhh4B <4Hhs pH X6s?h X_ ZHs p`?Hd p+rC+t DH Jshs p+}T4j+}Tj B lJyHs pj`H KS(` +t J$@+t H: k@(+rH3 pJ 4kS4K>K? K?K?@O?k?oKS` `+t CHs Js@`K?YC@Ht jJH4 J`jK?Y@O?k?ok? +rDH pKSb `K>KZCSt HK? +}4#(C "_@H pjcK>K? @O?@X@K?@ @@X@K?@ @@ @K?@ @@@K?@ @@t@K?@ @@@K?@ @@@K?@ @@P@K?@ @@@K?@ @@@K?@ @@@K?@ @@d@K?@ @@ @K?@ @@0@K?@ @@P@K?@ @@@K?@ @@@K?@ @A@K?@ @@@K?@ @@@K?@ @@ @K?@ @@H@K?@ @A@K?@ @@@K?@ @Ah@K?@ @@@K?@ @A@K?@ @@0@K?@ @A@K?@ @A @K?@ @@ @K?@ @+H52H32 k?k?ok?+}SJd+}UJ +rSJs pJt6?j Js Bst @+}+t T+rSJ Js` +}H3 6sh3 D@+rH3 Js6s?`(+}h$+}h# (4+}h# +}h$4K?YK?@O?k?ok? +t H3 JsǓ 4+}H:A4BxT+rSJ Js` G@4B@_@ +rCHt pJ` jJb@ZE4Hs pJshs p+}H36s?h3+}_ h  H @BT4_@ 8+}H3 6s?h3 +}4:_94BE@4K>K? @O?k?o+r4_ h3 臀 +}A H:`(4+}H3 6c?+}_4:D@+j h< `+t0H4"c6sD h"c6s @"c6s ("c6s "c6s E4 (4+rH3 Js` K>4K>@O?k?ok? +}KDAH#+t H3 JsǓ+}H:A 4BD0@7?`  YSZY } @ 3 k?'k?' 9 G'HK? BL44@B4YK>K? @O?+}H3` +r@4H3 pJtJs t +}H3 t 843r 43@4@k?7k?!+t H3 JsǓ +}A H:p4_ @ +}A H:h04+rH6 pJ+}H4 Bt+t0H3 `!+}+rH5 J`!6?s4t+}H3`!+}+}H3Ў`!x+}+}J6s?H4aBJbA0+}H3`!J`!+t H3 Js` +}H3` +}+}C4: +}+}H3` +}_@ p+}+}H3 ` P+}_@ 0+}+~H3 Js` +t +}H3 ` *_@ 4k?k?_ Q7?Bk?_ 7?P4H3 Js ` Bc+~H3 8VB\K>K?!@7?k?o+t H3 JsǓ +}AH:4_@ +}AH:`4_@ +}_ 4:_=4B@+rH6 p+}H3 J Bt?+t0H3 `!+}+rH5 J`!6?s4t+}H3`!+}+}H3Ў`!x+}+}J6s?H4aBJbA0+}H3`!J`!+t H3 Js` +}H3` +}+}Cp4: +}+}H3` +}_@ p+}+}H3 ` P+}_@ 0+}+~H3 Js` 8+t +}_ q4:B@4H3 Jd Є+}_ 4:+~H3 x4VB+}H36s?Bdh3+~H3 8VB\K>@O?k?o+t H3 JsǓ+}H:A4B+rH3 p+}H5 6?Js @ t _@ "@r +}H3` _4BpD @7?+}_i4:B@D @@4@B 4K>@O?k?o+rT+t SJs J pJs +}A8H:` 4_@D p@+rH3 `@+j h< `TJ ` |hj `+r4h3 +t0H4"c6sT p"c6s H"c6s 0"c6s "c6s +rE04+rH4 J` h4+rUJ6s?֓c t+jS6sJ pt +r4+rH3 pJsh3 p+}H36s?h3+j DH: `\K>@O?k?o+rT+t SJs J pJs +}@H:h04_@D @+rH3 `@+j h< `TJ ` |hj `+r4h3 +t0H4"c6s䂓 p"c6s H"c6s 0"c6s "c6s +rE4+rH4 J` x4+rUJJ 6s?֓c t+jS6sJ pt +r4+rH3 pJsh3 p+}H36sh3+j DH: `\K>@O?k?+r4h3 +t0H4"c6sԂ x7"c6s H"c6s 0"c6s "c6s +}E4+}^e4: +}@4H:hp4Dx@+j h< `+}H3 ` (4+rH3 Js` K>4K>@7?k?7k?!k?)k?1+t H3 JsǓ 4+}H:@,4B@^@ +}@H:h4E@Ep@+}D^H H s` k?+}H3P` K?` +t0` `+}+rH4 pJ` 2J` "4+}4:^4B0+}^4:K? k?+t0H4"c6sD +jH:؇@ E4BE T@E@ (+}^4:K? k?B7? +}^4:4K>K?!K?)K?1@7?k?X+}H6+rH3 pJ|Js | 4C4@ U Cr Z )Y7k?'k?' 9(G'HK?Z7Z7*C4@?gC ?kK?@k?7k?!k?)+t H3 JsǓ+}H:@4B+rH3 pJs` +}x4TJ +r6?j SJs p+}WJsJ @st `H3 +t T+rSJ Js` 6?j 4c?+}H3 `@J4@U@s` t "J 6s?j `_4c?+}DH R^@ :@t4@ " H 6sh 4ck?+rH3 pJtJs t tj@st X4@su 4cr 2K?6stk?@st?sB87?4K>K?!K?)@7?k?7k>_M7?K?K>t 8+}_uh  K>``K>_U7>K>@7?k?7k?!k?)+`H30`!4?+t H4 J@` 8+`C4hd0L$J@Xh`0+t H3 JsǓ+}H:@4B+rT+t SJs J pJs 4E@+rDH3 pJsh p_m7?H pJsh p_K?EX@C<@D_ 7?K?@4C 7Z4K>K?!K?)@7?k?ok? +`H38` 4?+t H3 JsH` +`_@_]4BHC4hd8+t SJs LJzHh`84K>K? @O?k?ok? k?+}H# P+t H3 JsǓ +}@ H:x4+r@$挔 +t _4B?H3 JsƓ+t K0К+t H3 Jss8Д^ @ ДBh@Д4@ +}H3 c`Д+t H3 JsДC<@@ДAКH 4+}H3H` +t _@+t H3 JzP@$4Ld4B>14@!+t0H3 `!+rH5 J`!4?s4t+}H3`!+}H3Ў`!p+}J6s?H4aJJbA8+}H3`! +rH3 pJs`!+t H3 Js` +}H3` +}B4: +}H3` _@ x+}H3 ` `+t H3 Jss@@+~H3 Js` +t ^ @ +t AК+t H3 Jsp`; d SFs3+}Bl4:"84K4B;H3 Js4+}H3`P4_@ 4 4` E4EBК^ @ +~` КH3 V)B+~H3 xКVB+~H3 VB` 84Dt4B(+~H3 xVB+}H36sh3+t H3 Jsp` H d SFs30+}BL4: \K@\K>K? K?@O?k?^7 +t ^ @+t H3 JsǓ@4_@4K?Y@7?k?+t H3؆` (7#C @7Z `4?+}H3` +rB4B(H3` (#C VB47ZP4P|4+~H3 Ў` 4D@B@B$@B@B@D4#C 7Zp4P4A(@44K>@7?k?ok? k?+t SJc 4EHsd R@s0` BHs` "E ZHs` AZHcH s?HsD @B@_)4@k?ok? k?+~H% +t H3 JsǓ+}H:@4B+r@3 `!4+~H3 `!+t0SJz @ CC8j` +~D4@0h Ch +~h% zT P+~+t T+rSJ Js` +~A44Bh zAt4+t H3 Jtp Pc8 Fs30+}B4: 4K8@4K>K? K?@O?k?7k>k>k>k>k>k>k>k>k>k>+t SJc ! 4 4 F4 4+~GHs@s0`!7<5^4x0F47Hs#C @\7Z4KK>K>K>K>K>K>K>K>K>@7K? @O?k?^u7I ZK>@7?k?ok? k?E+}C_}Hz +rFHz @ @h4B@0@+rH4 +~H3JJs! +rD+~CI@H HtJuJ?K>DIH H +~SJsJJs "@ @P4B@@+rH3 c (DI@H c(K>K? K?@O?k?D,7+rH3 Js k?^!7?K? |84K>@7?k?D 77?k?^7?K>@7?k?7k?!k?)k?1+r4?h3 +rH4 +~H3JJs 4_4B^Q@ +}H:h@X4B+rH5 Jk?+t H4 JP 7?J` +}^a4BhH$+}C,H% _k? +}D 4:@@7?+t0H4"c6s$ x+r+`4#@I H:@ H+r^Z+}T+`SJsH8j H3 pJs` +}^4Bh  +`h$@+`h%H4K>K?!K?)K?1@7?k?7k?!k?)k?1k?9+r4?h: +rH4 +~H3JJs _4B^@ +}H:`@4B+rH5 Jk?+t H4 JP (7?J`  +}7?^y4B@SJd+}FCK?!K?)K?1K?9@7?k?+rH3 Jsb 7p4H5 Jt sJ t@j4jD@4K?Y@7?k?7+rH5 Jt sJ D|j4K?Y@7?k?oKSC`@4^@CX@@(K>CHZC(@K>@O?k?7KS`@k?4k?_%7?K? k?_7?K>@7?k?ok?k?+rH3 pJs` D4H p+}EJtH ^y t H pJtH t t:4@@su r +}4ct@s+}T+rSJs pJs cj @|K?YK?K?@O?+rH7 p+}JH3 t +}H8 +r49 JJ t CS` 4Ԡ us 3 Bu B 4(B03 3 Bs `4B03`?m6` 84J J J@4@7TTSx"tx"C3` 4Zs04VC3w C479C5U@ 6_bvC3` 9C3`?C3` CS` c@@k?7k?S487=_Y+rH6 p!X+}]7=+}Yk pJK J pK pB w Bs` 2J uk K3 c Pk36Bk K pJv?-4c^ @K@7?k?UBs4t 76(4B@0Z4_@K>@7?@@K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@P@K?@ @@h@K?@ @@8@K?@ @+H52AH32I k?+H52H32 k?+H50H30 k?k?+}H3+r44 4t@ 7#C 7Z0@4B(+}H46h3bK>@7?+}U+`T6XJXj+}TJs@j+`U6X+}TJjX+}TJ@jtk?7k?!+}h +}h +rH4 +~H3JJs j#C 7Z`44@7?|Z(4AK?]Z4K>K?!@7?k?ok? k?+}UJ !6j Bd J j Bst 4j (44~ (6?4 0+}D+}H3 6sh3 +}TJ Bs`#:j 0\+}H3` +}T+}SJJs 7jCӜ+}h 44Dx4+}H3 +r44 +~H3 Ў`!8+}+~H3 `!+}H3` +}@B4: +}+rS@p6z+t S6z## _79+t0CHd h` 44D@4hd #C @7Z+}T4jh B @@@D+}H3 6th4 bdH3 0b`+}T+rS6sj +}H3` P\ (+}T+}SJsj_ К\K>K? K?@O?k?oB@C+rSJs 4jt+}S+}Tjj`+}Sj` +t0S_5j` +}SJs` (+}4:## 79_mX+~TJ Ў` +r4j +r@3 ` 4: Y@P4K>@O?k?ok? +}H3` C+}H3` ## +jH3` "+}4:79_MX` +t X` @s` D"c 6c4Y]m44b`K>K? @O?k?7k>k>k>k>k>k>k?Ck>k>+rH5 +~H3JJs I+`h5PE$@'h4+r4$ c H4 b3`  " b3`?44@ "4K> j@3` X7;## 79]K>C;` 7; " b3`?4`+rS6d h+rHI pJ+}GH 4jh Cph7?hI pjcDh 4F Z44Cd4+rSJa k>7=_jz 8+rM@444C4+rH3 8` +}+~F+rE+~D+rCH@H ` 04H HJuJ 0+r4C4Hs 8`?}+rH3 8` +}H3` +r+t0H3 ` +r+rH3 Js` +r+}BH4: x+r+~T+~SJsJzJ 7Z?4VBK`@+rSK>E ja +rSj` 8+}S_Mj` H+~SJs ` +rH3 pJs` K> EDK>]@DX@]M@FLK>F4+t H3 Js` 2CDP@Hs Js`?+t H3 Js` H+}D+t CDX4Hs Js` ^@+rH# HsHc (TJ HcHHsHt?HcHH@+rH4 htH+`H3P `+rD+`EH c 8+rH,@H HP?H +rH4 4j+rh `\K:K>K>K>K>K>K>K?@7;k?+}H3` 7 4#C _u7Z4K>@7?k?_}o x+}T+rS6sj#C _u7Z+}S4_ jd\4K>@O?k?+}H3` 7#C 7Z(_4BH+}H3` #C _7ZH+}h +}_ h 4K>@7?k?ok? k?k?k?!k?)k?1k?9_4 +}H4H3` #C _-7Zp4+}T4_ j+}T+rS6sj+t0SJc ` Hj+rSJs 4jt+}Sjt+}T+}SJJs+}I+t0H+~G+rF+}E+}DI3` X+}H8i H ` (@ ` HHI3+}h +t0` h# hj+}_ h 4K>K? K?K?K?!K?)K?1K?9@O?k?+}H3` 7#C 7Z_u4B+r46+}H3v #C 7Z_-4BЂӠ7;4>4444ғ zXy *y "(4~6 x( w8""H3ӿ4bK7;K:@7;k?ok? E7?]X `\K>K? @O?k?ok? k?DE]C4c? @ ]UYd b`\K>K? K?@O?@@K?@ @@ H@K?@ @@$@K?@ @@@K?@ @@@K?@ @@,@K?@ @@p@K?@ @@@K?@ @@@K?@ @+H51H31 k?+H50H30 k?+H54H34 k?+H50H30 k?+H50H30  k?+H52!H32) k?+H52H32 k?+H51H31 k?+H52H32 k?k?ok? k?EC@4?p\b @4b@` (4:d 4 \ZY_M4lK>K? K?@O?k?Z 7CS` 4AT@ZTC` V03`?03Vk?ႚ 8'4\Bsu 6??BB`0\'K? (\K>@7?k?7k?+t CHs `"@K:A@Hy k< C30`!7;]e790]7;@x7; b`7;_]4 H+t 7;_54 Ht Jj+t CHw 7;## 79 60]5607;_4 H+t 7;_4 Ht Jj+t H: KS?kSk@_7Z0Y4 (#C 7Z0O4 K:+t H3 j`K:K?@7;k?ok? D_%4|2@Z4?04?\@ZD_5Z]%@+rH3 pJs+}H4 Bst +}]4+}4h3 \K>K? @O?k?7k?!k?)k?1D4+}T4j+~EZI 7?\ *4cH Ў` K?@,4B?\K>K?!K?)K?1@7?k?ok? +}4IH8 | 2_ZDIZ\4?K>K? @O?k?ok? k?k?FE4e@DZY_e˜@ e \K>K? K?K?@O?k?ok>k>k>k>k>k>k>k>k>k>k>k>k>PHD4 +t H3 Jt4"h t+hM+hF4 +`S6kp+}JIxHp S0CY_MXHp c   Bs?t C+}H' Hp4?Y_XHp c 6thp4bt ChIHp6hp@bCHpY_-XHp d hpHpIx jhpZ Y_mIXIS| P4? "4 Hp6hpbd=h \K>YK>K>K>K>K>K>K>K>K>K>K>K>K>@O>k?7k>k>k>k>k>k>k>k>G4"c 6jH4c>+hT+`S6spjp+hT+hS6spjx+}T"hj+}SD6z +r4?CHe p+}DH +}SD6zHc pe H +~IHs HyZ 4 _eX 4_a Z4I3 Ў` Hce?}4+~H3 Ў` R H HZ 4 _X 4_ Z+}H3` h+t H3 Jse P+h]@+}H3 ` Z7>_4+hH3p+`49p 3+~H3 Ў` : 0Z_X +h_ Z+hT+`S6spDjp+}T4j +~SJs \` 4?K>YK>K>K>K>K>K>K>K>@7>k?7k?k?D+}D4: Z_4|@87=_ZD_ UZ8\## 79h]YX_7=4?KK? K?K?@O?k?ok? _ 4|@B_ZD_ Z@@\4?K>K? @O?k?7k?!k?)k?1DC@s` xE#C 7ZYO X +~H3 Ў` Z7?J7? Z4K?]4`K?b P4K?]4B0Z## 79X]W4K>K?!K?)K?1@7?k?7k>k>k>k>k>DCk>@s` 47:## 79 X] W+t H3 Js(7<Y_X 7>c<7>k?7:47>A7>F€+t 4?H3 Js@4#C 7ZYO X x7>Jd7>04 HK>CS` 2_@7:_K>04_7:C C<` A7< 07>k?7:47>A7>A`7:+t H3 Hj| @K> 0K>CS` K>_7:K>b (\ K:Y] K>\K:YK>K>K>K>K>@7:k?7k?k?k?!k?)+}Dz!H h`Hs`!hKK? @O?k?7k>k>k>k>k?FE]a47?f Bss4^t PZb@@7<Z]qY4Ff b`Z_7< GK>K>K>K?@7<k?7k?Ak?C7=Z_Y Z7;]YA7;c7;_ YA7;C\K:K?K?@7;k?ok? k?EC+t DH Z]790 H Z]i790 ]5Z (+t H: 7Z0Y]Q4B]Z+t DH 7Z0]YH 7Z0]Y@@@K>K? K?@O?k?7k?SC7;]yY` 2@s` "A7;7;_YAP7;K:K?@7;k?7k?7?k?47?A X7?K>@7?k?ok? ] CȜ 84A ZH 4K>K>K? @O?k?ok? A XDCA @Z| 44|4?\K>K? @O?k?7+t _MH: K>@7?k?oC@s0` @4z0_M4y0_MZ Hs_Hs`_hsK>@O?k?ok? +t SJc D_ZHcH s?K>K? @O?KS` +}4@h3 4@h3 k?7k>k>k>k>k>4+~H3 Ў`"P4?+}#(H H8 ȜZ4?H 7>|+r4EH pJzK> z ]7ZH pJzY_K>H pK>j+rE+~GZH 7>| K>B 4@s` 7Z]@H pJzY_K>H pK>jH І`?UZH@ \@H8` +t H4 J_H4 J`_j\Z\K>YK>K>K>K>K>@7>@@K?@ @+H51H31 k?+H52QH32Y k?+H53aH33i k?+H53H33 k?+H53H33 k?+H52H32 k?k?o+hC4z_}4A(4zA4z4|K>@O?k?7k>k>k>Tdk>#C F7Z44+rS6u bd4_ K>@K>H:## \79 p+t0+t T4jK>7?k>K>H3K>7k>k+t0H30` pK>K>V1B7?K>$ H3jK>k>$ k>K>"@K>K## \79Џ +}4h3X+~K>H:## \E79 0+}4h3+~4h3+}CHs` @4+~H3 VBHs` 4`k>#C 7Z_4` k>K>4_4B4k>@ L@CX4Jp@+rS+rT6 @^ jz #C @7ZG@]@+t h< #C 7Z0C4+rSj` p+t CHt "c 606shhhh3Hs _b`0Hz 7Z0\YE @_@+rCHs` +r_E4 h|#C D\7Z+}C_54zP_UZ\@_=4zPK>_}4+rH3 p` +}] q42+}h  +t GLH: +}H3` +~H3 PV1B@p@#C _7ZȜ8+r c _4z04d x+rS6z\Y+j C4z p\YAX4z p4z p## ^ 79#C _7ZAKK>H9 <Z\EXd b`\4: p#C N 7Z+rSK>j}+rSK>j}+}SJs` +}h +}H3d (K>@K>H:N X4B # 4!`4#L Z @Z4O 4 # 4!`ZN 04B@+~H3 Ў` K>@K>D H:+r#C 7ZQH9 +r (h< #C 7Z C 04+rC 4HQHy 4H##794QHw #C 7ZP 44QPHw #C 7ZX44Q Hw +rSJt Hs j+}SJs` #C G@#C 7Z`C 44?K>YK>K>@7>@ @K?@ @Z$ $ h+rH5 p+}H4 KSu KSt@ x kSKZ@?KS@" @?+rH5 p+}H4 KSu *KSt@  tHSkSKZ@?KS@( @?U+rH6 p+t H5 +}H7KS "J`0JkSk@J w KTt6?kSKZ@?KS@0!@4 @>+}S+t TJ Jw+}SJu +rSJv pK w KS "KSu@KS6skSKT RKSu@BJkSKT kTKSJs XkSKZ@??K@3 @==+rSJx p+}SJw +}S+t TJ JuKSx "JskSKS kSJ u KTt6?kSKZ@?KS@k?ok? k?k?k?!F+t ȹ!H$ +rh HSJH(` +t H@+t H ` sh3 +}]q4:H@ Y_XH@ Y_XHȇ@ Y_X+rSJc GHsPd 84zXY_EX4z Y_%XHcHH s?HsP+}H3Ў` K>BZK>K? K?K?K?!@O?k?ok? +rH3 p` (D#C 7ZC4+rCHs pJz]I7ZHt p+}SJJs Jt`P u 6? 06BbU6?Bb+rH3 pJt6jt4_]4Гt 8+t T+rSJ Js` +}H 4+}H3 6sh3 K>K? @O?k?+t H3 JsǓ 7+}H:^ 4B\ @ K>\ @ xK>+rH3 pJt6?jt4_4#C 7ZH`4E @K>@7?k?ok? KZ@!+rH3 pJs` H4 pJ6d?J d @st X+}+t T+rSJ Js` +}H3  dH3 d4+rH3 p+}JtH3 xD  t 44_=YZGY+rH3 pJtjtJs t0\ Bs s"t \K>K? @O?k?7KSk?+t H3 JsǓ0+}H:^4B7Z^4BK?`@K>\ 5@?#C _-7?K? ` k?_@K?6s?`_k?K>@7?k?7+}_4:K>@7?k?ok? k?k?Dy"4 Bs?t B+t T+rSJ Js` 4c?4` +rH3 pJz\m C +rH4 p+}JH3 Jt`@ u  6?(+ru 3b+rEH pJt jtY^X4_uYHPZ+}DH c  `h E@_]4H pJsh p+}H36sh3h K>K? K?K?@O?k?ok? k?k?k?!F+t T+rSJ Js`C (4 e(Z@sg 4ce@s Ce(_YSe 4cuK>K? K?K?K?!@O?k?9 P7 q473? 7=6s??"_U7=K<@7=k?o+t H# z K>]i@C@\@C@\@CZC (@]ZB@K>@O?k?o+rH4 JH D+j4h3EZ_ZK>@O?k?+rH4 JH 7+j4h3E|@_@K?Y@7?k?U o+rSJs pJs+}CHt Bsu @K>_Z_@Hs 6s?hs K>@O?@@K?@ @@@K?@ @@@K?@ @@@K?@ @@(@K?@ @+H51H31 k?+H51!H31) k?+H5?H3? k?+H52H32  k?k?77?@ 7?K?4 tXk?K?G K?4.##_79 $K>@7?k?7k>k>k?C+hEh_54+}DH` X4_5@Z_UHH` +}_e@4_h37>## 79\yX7>B 4_@+hZ_H9] 4?@k?7+~4h3 +}H3` 4+~4h3 4##_79 4K>@7?k?ok? +}C4]5hd4YB4h`K>K? @O?k?+rH3` 7#C 7ZB\4_%4K>@7?k?o+rH3X` 4.##_=79 $4##_79 44_4 D4_4 D4_4 D4 _4 D4_4 D4_4 D4_u4 D4_]4 D4_E4 D42##_%79 T48_ 446##_79 dK>@O?@ @K?@ @@@K?@ @@@K?@ @@T@K?@ @@@K?@ @@ L@K?@ @@@K?@ @@|@K?@ @@L@K?@ @@@K?@ @@@K?@ @@L@K?@ @@@K?@ @@@K?@ @@0@K?@ @+H5?H3? k?+H50H30 k?+H5?H3? k?+H53AH33I k?+H531H339 k?+H50AH30I k?+H51H31 k?+H50H30 k?+H5?H3? k?+H53H33 k?+H53H33 k?+H50H30 k?+H53H33 k?+H53H33 k?+H511H319 k?+H52H32 k?+H53QH33Y k?+H50H30 k?+H50H30 k?+H5?H3? k?+H51QH31Y k?+H50aH30i k?+H53H33  k?+H5?H3? k?k?7k>+}H3`#K>Y+}4h3+j H3 X` 0+~V eB+}h<SJs V %B+}CHz+rS_6y Hz_7>+~CHsJs` K>_7>Hsj|HvJ6?4"+}43u 4?jK>4=o tk>K>`k>+rH3 Ў` +}S`_k>4c>c>c>4k>SBsc>4c>c>c>+}CHz4_m7>+rSJs `` `K>YV B+}`(h<Hs@K>Y+}h<K>YK>@7>k?+}H3`!(7+}H3`!+j H3 X` @+rH3` K>V BK>+}H:4+r_48 +~H4J` +r4?jH3` +}V MB+}4?h3K>@7?k?7k>k>k>k>k>k>4k>44+~H3 `!+}+~H3 ` 7>E+}H+rG4@Y x+~H ` `I`` 4 "H jd4B (XH `?u7>+~H3 ` +}@<+rH3` (+}VUBӜH3` +r@x@XӜH3P` 4VB4c? x+}E+~DH7>_ 4`2H ` "_44c??H`@H+~+jH3h?E4#C 7ZpBx4+~H3 ` +}@3c>+~h C>K>YK>K>K>K>K>K>@7>k?7k?!k?)k?1k?9y@PF+}H3` K>+}H3` +}H<H"sL6s k?' # 4! ,  9IW'K?U4 w uҴ  s! v k?`a0k?+rH3` 0+}VB%h4+}H3tE+h46 ss> s@֟j+}H4`P+rH3 @` 8ғE Ҕ> t@j+}H:4?7?k?7Z+h494_e4$aX+jEHr!8+h4:4\4``+}H:@`h+rDH @` H4_4 0+}Hr H:h @+}H:4_4 0+jH3r #C 7ZB4"45H`b+rH7!RAH+}H3tE+h45ss>s@b ` VeB"4+}H:TE+h49 4 Ss>4 s@֟j7?k?7Z4_ 4+rH<VBXK>َa(+}H3tE+h45ss>s@b ` \+rH7 @ +}H4`ғE+h45Ҕ>t@ւ t 2VBY40K>ن@|4 K>K?!K?)K?1K?9@7?k?7k?!k?)k?1E+rH3X` C4 4_ 7?`xG?44_ 7?`HG?44_ 7?`G?hHh`hG?(hsZYVBHs`@+~H3JshsH`@ 4+~H3JshK>K?!K?)K?1@7?k?^Q77K>@7?k?742_4+}H3` 44042_@42##_179 TK>@7?k?7k>k>k>k>CED PK=_ uDDDZ9_ }4Z_ 7>`xG>!+jH4 J@ 4( 44? p4?`4?P4?G>dG>dths?4`04K=K>K>K>K>@7>k?7_]7>S``4K>QK=@7>k?ok? k?k?k?!D+hG+hF+hE_H |4 44y[=H ?Z+h[m49Z]4y^=Z (4Z## ]79 4K>K? K?K?K?!@O?k?ok? k?k?k?!@ EC@ ZD+hG4[MY+hS6z [%Y+hF[Zh d4 d `+hSJz @ +h_@+h_4:+h 0h< Z[]YZ_4B4K>K? K?K?K?!@O?k?ok? k?k?k?!4444?CS` XG_M@\B#C ^7Z \"#C ^7Z (Z@ :_%@˜ "KKKK8K@ "c 6e 8` "c 6c 8 "c 6d 8IZIpZI`ZIZIZK>K? K?K?K?!@O?KZ4S@8K93@*@`" `+}43 z by@k?7k>k>+}H3` 87>4+}_48PC>PӜ+}H3` +r _ @Ӝ+}43 | Ct4>@Hk>+}H3І` ( t k>@P7>46+}H3Ȇ!`4$@7>@@@#+}H3Ȏ 8tt4>+}H3І` t4>@C+}H3І` 45B 46+}H3k>+r `#PK>+}H87?h8+r 49Z^ 79|K>YK>K>@7>+}H6 4@+r 456?  4 3? 5 (+}B3"B3+}H3 y h3@k?ok? C+}DH 4@HV+r 4: U Y^iXH c hK>K? @O?k?7CSc?7?_=4K>@7?k?7k?!+}H< pK>_ %4| @+}H3` 0\_@k?_7?\K>K?!@7?k?ok? +~SJd +}Tjj` +}C_4z +~_4B?h$ K>K? @O?k?7_4K>@7?k?7_4k?_7?c0K>@7?CS` HT4^4s u( v8b03`?s@\k?o[ C ScH7?4^Cst S7c7?\K>@O?k?ok? k?k?k?!k?)E+h_` D[ Z e4^+hHS6f4#C 3t!z@sst *Z4y]4HE@ssu!e@s?s g(e ^ 7Z @<Z"c 6y ]m4_EZD[Z7? C3s g8c Z4y]e4EA` 2@sg  03πeg 3+h@3` 4#@s4^t :^ @Z[Y_Z+hC4:Y]m44eCU@s`!T4^4\ғv UX b04@st!2 b03st b03sv ꊥ8Y03sv Y03Y@s` xT4" b04?4"Pc @sTsv 8Y4" b04?4"c C@s` +h b04>}ғ+h4<K>K? K?K?K?!K?)@O?k?o[%C@07? CSs4^ t8c@K>@O?k?o[C@@| Bs?s4^t Z## ]e79 K>@O?k?7Y7=]4_7=7=_1404K<@7=k?7Y7=]-4_E7=_7=04K<@7=k?_7K>@7?k?ok? KS 0C_4_!D KZ@ _@_@ZAHy\K>K? @O?k?+j H3 X` 07+rKS_h3 _Q@K?Y@7?A@K?@ @@@K?@ @A 8@K?@ @A\@K?@ @A,@K?@ @A@K?@ @+rH3 Ju֚c T+j43 t Js u Uu84@ftftftft 6suft@֚c T+j43 t Ju Jtjt @ju9+rH3 Js S YYH4Y( CS xSSdYCS@4@k?7k>ak>ik>qk>yk>k>k>k>k>k>k>k>k>k>k>k>k>Yk>9k>IEK=4 4 4+}SFnT֟+~SJs Js` (N+}H3` 4 tNK>I5?֓c t+jS6s t Jf D4x5+}SJw4444 \44` +rH3 +~H4JuJ XK>Y+r4! H3` 0+r4! 48   4K>YK>9 4?4 4@K= 8IK= 8J3+r4! 3 Buҳ+h4! 3 Bv P7=7`"`ҳ@ db24 X r 0ҳ""b4?hX"l "6s4~! @ZY7k?'k?' 9(G'HK? 4`4"Sv6x6?"ҳHbҳl "64~p76? X7=7`4X` B d6??6K=`pĠ0T4@s u(s+~H3 Js` +}H3` +t H3` X+rH3` @+}SJsHK>Y ZYG4B`+hH3 ` BĠ8U46 FF SdF D d4@ d5+rH3 Js U8T4@ddddd h+rSJs Jss!6s? f fnK= 5 0I+rH3 Js Sf`+}H3` : 2@04 Z Y_4  +~TK>I5?wc +jU6 +~SJsJ hZHJxVBh+}T4j0\K=YK>aK>iK>qK>yK>K>K>K>K>K>K>K>K>K>K>K>@7=k?ok? k?k?E+rH3 Jvec+j44! H` x+~H3Js JH c B?t (6?H0` 4c? t8h0`@H+}@0+~H3Js +rH3 ` +}H3` @Y+hH3 Ȉ (+r+hH3 В` v +rH3 Jw k?H(k?H0k?HX_6?C4`@H` h+~H3 4?4VB+}h%+~H3 (VuB_m4?hh`@h_4?K>K? K?K?@O?+rH5 Jtc +j44 Jtc  J +t H3 Js` (W@ +}H3` +t VH3 JyK3 4 ` (UK9K3 `?K9K5+}S+t TJ JsJ  +rSTJs p K:J pK?68AjK+}H3 u J(u 68J0t j(j04j6?ɊK4 bKK u J(u J0t j(j0j6?ɂKKTK3 t KS t J(u J0t"Zj(j048jax+}VKH3 t K t J(u 6?J0t j(j04j68ݡK4 bKK u J(u J0t j(j0j68ݿKݡKUK3 u J(u J0t j(j04j68H4 K3`8K j(KK4 @j0+}H4 j0KK4 j(4j686?ɊB4J(` j(j0j6?ɂJ(ݠ@4J(` j(j0j68ݿJ(@+rT4jh+rT+~SJsJsjx+rS@j` Pk?oD+~H3 44V B+~H3 0ZV BK>@O?k?oD+~H3 44V }B+~H3 `ZV MBK>@O?k?ok? k?+rCHs P`@+~S+rEHh+rDHxJs 7Z?79?V BHhHxDHx PHz P_4B+rCHs P``+~S+rEH:h+rDH9xJs 7Z?79?V BHx PHhHxD Hz P_ @+rh PK>K? K?@O?k?ok?k?ED+rH3h C+rH3xs!@+r +rS+rVJ P Jsht +rH3xc 6? +rS+rVJ P Jsht @+rW4t?Jxt jx6?`j P_@+rh$h+rh#x+rh% PH3 P e h3 PK?YK?K?@O?k?+rH3 P` 7_@+rH3hb H+~+rT+~SJsJxJs +~H3 VBK?Y@7?k?ok? k?k?Dڠ C4h44?`P4+j45tc  Js`?6tc HZY_MXZYDX\4K>K? K?K?@O?k?ok? k?Dz E+~H3 4?4?VB+~H3 `ZVB+~H3 V]BZYD XK>K? K?@O?k?ok? D+rH3 JtJs t 4c?`hV+j48+}4786?tc   66? 4@`U+j47J P6?tc  u 6_J H xVCdHC4?`P4+j46tc  Js` (6tc 4j4 H4?Y_XZYDP444K>K? @O?+rH3 Js6y? H7 +r@H< pJ6s?֓c t+j43t +r `H< p4J`@+rH3 Jt"K` 6\+~H3 Js` %† +rH< pKv& +rH5 p+rH4 JJ 6s?֓c t+j43Jt %@+r3+rH3 JxJs x 6s?֓c t+j43t +r H7 p4`X+rSJt rJ6s?`HK p+rH3 Js6s?J 6V@\J (6+rH3 Js h?+rH3 pJwJ|+rH3 Jt6?Js6s? b@+j4:+rH6 p+rH8 uc S v rVK6s?^+rH3 Js6s?J;6?_J@\| 6?K6s?T@P6?+rH3 Js6t?K`!KSt_6?@w 6K6s?T@P6?+rH3 Js6t?J` JSt_6?@\6+rH3 Jt6?Js t }uc+rH< pK `+rH3 Js6s?֓c t+j43t +r@@+rH3 pJv X+rH3 Js y 6s?֓c t+j43t +r3 y y+rH< p79?? (VJ=79???\\@k?ok? k?k?k?!k?)D44+rH3 JgJc _ 4?44W"jj6s k?' # 7 `/ 9IW'K?U4 v u !@4+rH4 pU`* "  J (XV`: 2 @S J YJ JSg]7Z J KeAZ+j4<7T?tc   J 8 R4  J 8 * 2 *@"J  47ZE_M7T?eA+j4& 4e@Z7T?tc  d JC zY_%X4c (4H7ZE_}7T? : * Z_Y H4ceH_@ K>A x@K>K? K?K?K?!K?)@O?44>+h49 4+h47 4 4 bx 6_bv4@4+h49 4+h47 4 4 bx 6_bv+h43 4bt4bt+}H3 `@`TA44@8U+h47 4 6_bv+}T+}SJs jh+}T+}SJs`` jx+h44 4b+}H3(`@(44(B+h44 b`+}T+}SJs(@jpk?o+}T+}SJ Jsh xC+}T+}SJ(Jsp 8+}S+}UJtxJ肓 +r_@+rH4 +~H3JJs 4+rH3 c+rH3 pJtJs6s? t B` +}H54c?+h48 +}H7xBr j h  Y7k?'k?' 9(G'HK?(Z  Bs z `0C@*` Bz 6/B+}U+rSJs pJs tj K?Y@O?k?o+hS6c +}T+}SJ Jsh p+}T+}SJ(Jsp 8+}S+}UJtxJ肓 +r_@+rH3 pJt+}H3 t 4+}H6+}H8x5 pҳ `7?9Y7k?'k?' 9(G'HK?(4< c Bs | `0 `+h75+hh< +rH4 +~H3JJs +}+rH3 | +}h<K?Y@O?k?ok? +rH4 J`$ C+}h 0JJ u `4+j49+rH7 p+}488+rH3 JtJs t 6?tc 3 ` @+} w(x D66?+}U+rSJs pJ Js`6s?``j j H3 pJs+}H4 Bst HH3 +t T+rSJ Js` +}H3 6sh3 !#C ` +r_@C+rSJs Js c+rT+hSJ pJs Ȋ 4c+hH3 c`@+r 4H3 JssXC+rU4?֚c T+jS6s t Js c SFs?f+~SJs 4y?V B+}Sjd+}Sjc\ 7Z p4H@+rH3 ` K>+j h# `K>K? @O?9 \X4>4"3t `\@"UdX0s6ssSdX"3@\@k?o+}H3`` +h4CHs` +h^e@h|+hS+hVJuJ u4:tBj^54+hC6?p 47 056?p054@3st?3C`0`+}H3``A5Ҵ4t P44t  s!6s?Ҵ 5ҳv?  P4"uT6sVk?' # 4! ,  9IW'K?U v uҳ  s SsB x04@47?4b"7`"4t"3"s4tt "3"st?3b?44"3"s4tt *3"st?34t3"st?36?4"b+h4< K?Y@O?k?7k>k>k?k? k?k?k?!DGI+}H8+rH7 X+}H3`!xH+rH3 Ju6?Js6s? u ֓c t+j46 +t H4 J 384uc  Jt B "c "c Js k>Js k>  "c Js pk> Z ZB=Y7>## 79 XZ4B 7>## Z79 +t H3 6cBs` +}4# b5'+t E7>Ҵ4J ҳH d b5ҳ6s?`]@*@@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@`@0@ @@@@@@@@@@@@0@`@P@@@0@ @@\H JsƓ"c 6y H x6y0H Js`!8"c H6y H Jss"c 6y H 6y07>"c 6y (H 6y_@Y+}H3b@R _ u@## +hZ79 @Z!H8 0Y4?4"c 6y H Z_XD b5 g\K>YK>K>K?K? K?K?K?!@7>k?oK3` T+}4#+t H3 6cZYZy4``K>@O?k?ok? +rH7 +~H3JJs"XJ 6s?֓c t+j43 t Jd J C+t H5 J4Z]` 4Jғ\` 4JY` 4ғU` 4Tғ` 4JҔ_ 4VTJb Z4x4ZSdUdUd]d\dYd+t H3 Js@(4H3 JsƳ@44ZSdTd_Y+}H3` (Z## 79 P_ mXZC4ZSdCSdd`ZY^4K>K? @O?k?ok? k?k?+rH5 +~H3JJs! J _u4?+~Tdc+jU6 +~CHsJ hH HJxWVB+}S4jf0^-ZHsJsh\4K>K? K?K?@O?k?ok>k>k>k>k>k>k>k>k>k>k>k>DH+}H3`'4 +t +}H3`'4+t0H3 `'+}H3`'+}^=4:&+}H3 `'P4+t T+rSJs J JsP'4+}TJІ` +r@ j+rSJv +rSJs pjX+}SJs j`+}S+t TJ JtJ t jhj +rSJs Xj(+}SJs` +}J` 4jH3`` B^@+hh<+hH36sZ 4 +rH4 J` SJH 0+}H3` X+rH3 ` H+r+}H3` 4` +r_}4B+rH3 Js` (+r+rH3 `$h4+rSJf G+t M+rO+}L+jS6n+}K+t H3` 4F@ H _ @DH jd +~H3 Js` H _ZH 4HPI (4^@H Jt6?Js 6s?sa+~J4  8ccI 8`!+h^A5!`ccs Jd JJ` 8IsX` ʌ ISJs6s?s H` jIsX` Z PI Js 3` 8Z+}4:8^4y4Z^4y H4cH JtJs t 6?thW+hh +r h ^5 hH f 0+rCE@Hs f(H 4j`4H (4_4H Ej`H f<%+t 4K>YK>K>K>K>K>K>K>K>K>K>K>K>@O>k?ok? k?+}H3`#hK>+rH3``!+rH$ +~H3HJs X+rE+~CE @H HtJuJ (+t @3` h+~H3Js6s?֓c t+j43 t Js` +}^4:+rEH +rCHs pj ^]4+~SJsHz p^ JyH 0+rCE H@Hs (+}4Hh3 +}UJ +r@3 ` +}+t @3` `+~4j H34^Jy+rH3 Js` +}_4+}Xh  +}45 +t @3` 4+r@3 ` 4jK>K? K?@O?k?ok? k?k?C+~H3Js6d?"c 6e h+}H3`$4+}T+}SJ Jsh h+}T+}SJ(Jsp 0+}S+}UJtxJ肓 _@@s` (+r+~H3 `#(C+rH3`` +r43 Jfj`+r43 s +he 44h3 @4Bh3 ZZ+~H5+~H44k?k?k?ZYJ^]J+hh +rH3`` E+r43 jf+r43 s +~H3 ` D H@^1@!dc+j44 J` +~T+~SJsJzJ 7Z?4VB+~SJs (VuB^mZ+j44dc Xj^Z+rH3`` 0+}G@+}^4:+}h3 K>K? K?K?@O?k?ok? k?k?k?!k?)k?1+}H&`G+rSJs Js6h?+~SJsJs6e?+hII3 ` `+rCHd phs p@ @4hd pI3 d +hh +hh  +hH4 Ђ`@TE` +h Ph3 Џ@ (+hB@+h h3 h +hTJ І` h ``+} j H3``X+rSJs +hCJtHu @jtXh` @ 4+hU+hT+rSJs pj j K>K? K?K?K?!K?)K?1@O?k?ok? D+}CG 4z(4z(YYe44s(b`+jS6t4jK>K? @O?k?ok? +}H3 b!+}45(+jH4 Z+rH3 Js S YYR3` sd34@ddg ^4+~T+jS6d+~CHsJ hH HJx4VB+}T4j0^4HsJshhK>K? @O?k?ok? k?k?k?!k?)k?1FEC+}H3`&4 +h+~H3 Ў` +h+~H3 ` +h+r@3 ` p+h+}H3` (+r+}^ 4: +rH4 4j+hVJ 6<+hTJtz +h`j T+hSJsj #C 7Z x4L4 4+}TJІ` +r@j+rH3` +}V)B+}T+}SJ Jsh h+}T+}SJ(Jsp 0+}S+}UJtxJ肓 _@_ Y@+hh +}H3` HZ_4B+hh +hH) +~H3 В` 4H3 І` 8+r@3 ` +~H3 ` N $4`!H+r+r@3 ` +~H3 ` +r_4: +~h I4+~h 4+}4h9 _Z_ 4B(` +r+t @3` X4$Z_]Y!X+}4h3 _Z_ %4B+rH4 J` (4JH +rH3 ` 4` Z_ @Z_Y +h` 8+}+rS+t Tbb` +}H3 b (+jH3` +h_@+hh) +}H30` +t0_qZ+t0H3`` VBGP@K>K? K?K?K?!K?)K?1@O?+rH8 p+rH4 4j+}H3Ў`!H+jH3І` @7S?bh JHt! +rH3 JvH+rH6 +j4=44 +rH< Jtc  Jtc  JJx "Y j@0jj68JJH?_J@k?ok? k?+hTJ`!h+}H3`!XK>j+~H3 VB4+~H3Jss`+jS6d+~Eccs Jz@ ccY%@ccs j`Jz @ ccY@ccs j` 4cHJss=ccK>K? K?@O?k?7k>k>k>k>k>k>k>k>+}H3`"4@ 7>]=7>K>4 tXk>+rH3 ` K>K>E4B+~H4K>j+~H4K>j+~H3 VyB4+~H3Jsa`+~F!C +jS6i44@HJz7ZYM4| 0HJz7ZY4ȼ dc5Z @ 4dc 3 j`jhj`jcje HJss Ee gde gd4+~H3Js~H+h4h3K>YK>K>K>K>K>K>K>K>@7>k?ok? k?k?k?!+}H3`"G+~H3 VB+~H3 V B+~H3 V B+~H3 PV B4+~H3Jss`+jS6f4+~Dccs j`j`je^ Z4cHJsscc+rH3 Ju4H4 jvJsHt?jv 4+rH3 Jss`p+j46+rH5 J c 6s?֓c t j4cJsJ4+rH3 Jz Y_4K>K? K?K?K?!@O?k?7_44K>@7?k?7+rH6 pKZ+rH4 4@ jJt z4`8H4 J` 6V+rH4 j J0 j0j(_4BH3 Jv+t S+rTJ Jt JP K>ُ@@ JS@"H3 Jst z_ "J?E+t _?JZ4_ 4K>@7?k?^7+t T+rSJs J JsP 4@4 (+rH3 p K?6\K?Y@7?+}H3Ў` 4+rH3 Js`x+j48+rH6 4J u 6s?֓c t  j6JJ+rH4 4j@k?ok?+jh +}H3Ў` K?Y+rSJd C_@Hs JsH?hs +}H3 b +j444jK?YK?@O?k?ok? k?DE+~T+~Sj` Js j \)@_]@]i@+}C4z## 79 # 7 ([W+rS6x Bs ` 4z## [U79 +t H8 !+}H3`!+rD+}SJs k?+}C4z## 79 ([H pH p JJk?Jk?4z## 79 hJ[]J+rT+}S+}C4z## 79 J X[Jw+rSJw JJk?JPk?4z## 79 X[J\@ 0+}4:## [I79 `]@Z4?@@@K?@ @@@K?@ @@@K?@ @@ @@K?@ @@@K?@ @@ 0@K?@ @@0@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@@K?@ @@ P@K?@ @@ @K?@ @@ X@K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@@K?@ @@ @K?@ @@ t@K?@ @@@K?@ @@ @K?@ @k?ok? k?k?k?!+rTH$ HHd!0h3 +t G+rC+rF+}EJ H JsP Hs JJt 8JuHs JsX J?6 2Ht H pjXH j`6?jh_@Hs JsHhs d?T+}@x4:K>K? K?K?K?!@O?k?ok? +t0H3 ` +t H3 Js` H+}D+t C@4Hs Js` +t0 h H3 Js` H6 @@+t H6 J+rH3 pj+}H3 j+}H3J jJ @(+t0?j J6sjH4"c6sĊ 4#C [ 7Z 4K>K? @O?k?o+t H< K@06k sB6s@@ Y4(|(+r#C 7Z _4+rSJs phs+}SJs hs+}S+t TJ JsJ hsJhsj4K>@O?k?o+t H< K@06k sB6s@ YQ4(|(+r#C 7Z _=4+rSJs phs+}SJs hs+}S+t TJ JsJ hsJhsh` j4K>@O?k?KV+}KSh3+t H4 Jt7Y4B+}U+t SJs +rTJsJ X J+rY4BxSjv p+}TKSj +}U+t SJt JJ jK?Y@7?k?o+t H3 Jc` 4KS` _EZHs 8+t H4 J6s?` j_u@+t H5 HsjJ sB6s s 6?jY Z4K>@O?k?_m7#C [17Z 4K>@7?k?o+t H3 Jc` 4_Z+t H5 HsjJ sB6s s 6?jYZ4K>@O?k?ok? k?k?+t H3 Jc` p+}H& +rH% p+}H$Js d _Zhfhehd44K>K? K?K?@O?k?o+rH# p+t H3 Js` "#C [Y7Z (4KS` +t _@+t H3 JsJtJu+rH3 p +}H3 @@4J  2J ߂ 4_@4K>@O?k?ok? k?k?k?!E+t H` H' H4Y5Z_u@Y@Hs ` x+rH3 pJt +t Js t Bs?t 2FH Jd\ 4H jd_@Ht HjHt HjHHs jHHsjHs(hHs ` +rHs0hHsHt H4 X h3 X+}H3Ht h3HHt hHHt hHshY ZYZ4K>K? K?K?K?!@O?k?7+t _H: K>@7?k?ok? k?k?Y 48|(+}#C [7Z H84_4:"4_5@+}S_U6z_m@+rFH p+}EH6s?_hs+rUJ XH hsHs thj X+t SJu JHt jJHt jJhsjHhsH pJhs Jhs(Jhs0jjhjJ *J t Bs?t 6?j_@_ U@4K>K? K?K?@O?k?+jH:؇@ 7\ @44K>@7?k?7k>k>k>k>k>k>EHǓ +}[yH:4+}_4: +r4H& p+}H' 4k>_7>+t H3 8+r#C [ 7Z _-@H4H# p+}H$ +t H( Y Z+}4f Xh3+rH3` Hz D \4BHz` D HyHz D Hy\@Hcf?HzY\@Y Z_@4K>YK>K>K>K>K>K>@7>k?+jH:؇@ 7Y-@Y@+jh<"c 706s hhh3_}H:4K>@7?k?7k>k>k>k>k>+t H3 JsǓ+}H:[ 4B8+}_4: +r4FH p+}CHs _ k>4k>_%7>H p_Hg !Hh` \7>H pJth p+}DH6s? h+}F+rC+}DYa@H 6sk>h \M7>Hs pJtht pH6s??hY@+}H3 6sk>(h' +}h' K>k>\7>4K>YK>K>K>K>K>@7>k?7k?!4k?+t H3 JsǓ +}[H:4_ u@_ 7? `+}_ @_ @_@_]@_@(4_4:_@4K>K?!@7?k?7k?!k?)k?1+t H3 JsǓ+}H:[4B8+rH3 ` +}44^h3k?+rH3 Jc` +rD+}EZU7?Hz\IHyHc` hH pJs` H pY@Y4B?Jsh pH6s]h4K>K?!K?)K?1@7?k?7k?!k?)k?1k?9+t H3 JsǓ+}H:[4B`+}_ 4:!@4^@k?+rH& p4k?_ 57?^@K? |``+}`k?T4j+rE+}DZ7?4@\YH pf *Jsh pH6sh_ @4K>K?!K?)K?1K?9@7?k?7k>k>k>k>k>k>k>k>k>k>+}_ 4:#0+rH: @ Y@YQ@+rh< "c 706s hhk^q@k>+rH, p4k>_7>^)@k>K> K>+}H: 0[4B@k>k>Z7>K>K> H04YZI Ch`+rG+}K+}JHeZ4@XXhhZ U7>K>| pH pJdIs d Z 7>H pJxIs x ZY[H pl RJsh pIS6siSYZh|kHch`+rH3 jijijcj`_@4K>YK>K>K>K>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>k>k>k>k>+t H3 JsǓ +}Z]H:4+}_4:#x+rH: @ YQ@Y@+rh< "c 706s hhk^ @k>+rH, p4k>_M7>^ @k>K> K>+}H: 0Z4BX@k>k>Z E7>+}T4jK>K> H04Y ZJ Ch`+rG+}I+}KHeZ4@X%XhhZ7>K>| H pJdI3 d Z7>H pJsI8   di3 k>Z[Y\A7>H pl RJsh pIs6sisY Zh|kHch`+rH3 jjjjjcj`_%@4K>YK>K>K>K>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>+t H3 JsǓ+}H:Z4B+}_4:!4^@k>+rH( p4k>_17>^@K> |`+}k>T4j+}E+rG+}FZ 7>XH H sd@k>k>h \ I7>4@\yK>H ph *Jsh pH6sMh_q@4K>YK>K>K>K>K>K>@7>k?7KS @XUKV(JȊ KS(jJu?JJjX-@K>@7?KTȆ *J j J?J @k?KS @7 4#C Zu7Z04K>@7?k?ok? KCD_eZ +t H4 H( `+rH3 phs+}H3 hs+}H3J hs 4#C Zu7ZX4K>K? @O?k?oF04| (K>_ZOZK>@O?k?ok? F4Ȝ zH_Z H+t H4 Hs( #C 7ZXZU4B_ZO(ZK>K? @O?k?ok? DO4|! `dX 40˜ +rSJs pk+}SJs k+}S+t TJ JsJ kJkk jk(h|0\+~4?h3 X Z4K>K? @O?k?74`OpcSK>@7?k?7_54`\ K>F@K>@7?k?ok? k?"c 6dF 4| :He_Z H(6d0O xZ\K>K? K?@O?k?74##79 tO(4K>@7?@@K?@ @@@K?@ @@@K?@ @@D@K?@ @@@K?@ @A @K?@ @@|@K?@ @@\@K?@ @@@K?@ @@@K?@ @@@K?@ @Ap@K?@ @@l@K?@ @@8@K?@ @A@K?@ @A@K?@ @A@K?@ @@,@K?@ @Ax@K?@ @@@K?@ @@$@K?@ @@T@K?@ @A@K?@ @@ @K?@ @@@K?@ @@`@K?@ @A(@K?@ @A@K?@ @Ap@K?@ @@@K?@ @@@K?@ @A@K?@ @@ @K?@ @A@@K?@ @@@K?@ @Ah@K?@ @AT@K?@ @@,@K?@ @@@K?@ @A@K?@ @@ (@K?@ @A@K?@ @A@K?@ @@0@K?@ @@@K?@ @@ @K?@ @A@@K?@ @A@K?@ @A@K?@ @@@K?@ @A@@K?@ @@@K?@ @A@K?@ @@p@K?@ @@@K?@ @@ @K?@ @@@K?@ @@ @K?@ @@ @K?@ @@l@K?@ @A@K?@ @@@K?@ @@@K?@ @A@K?@ @+H50!H30) k?+H51H31 k?k?7k>k>k>k>k>D@` 04Z4DH4|4844ZD 7>˜ VUB` PTҔBs 04?6B`?uZK> b`?C` 8UBs e8b03`?BFP74DZ\K>YK>K>K>K>K>@7>k?ok? k?k?k?!k?)D+rE+rH+hG4@H HI`s H H4Jsh HH ZX4y0?H H@s0sf?wH HZX4y04K>K? K?K?K?!K?)@O?k?ok? C+rT+rSJs`` Hj HJsj H+hXDhZ_4B4K>K? @O?+t H< @70k?XM7 4K>@7?k?X 7\"#C Z7Z4[=@4K>@7?k?ok? k?DE+t H3 JsǓ(4+}ZH:4_@Z4A 4 2ZCY 4cZ_@\K>K? K?@O?k?ok? "c 6dXEZ|h\X@C4z0XYY+t H9 4z0X1790``0\K>K? @O?k?ok? k?k?k?!D_Hd E4@4@s0sg :Hs` "e C tZ \Hcd?@s0\d8\K>K? K?K?K?!@O?k?7k?k?k?!k?)k?1X=EȜ+t #C 7Z H' XZ@s4@t#4Hj7=## 79PXX@ 7=\ @7?k@@@@@p@`@P@@@ @ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@ @(#C @404#C 7ZZ9@4#C Z7ZЌd B@@+~H3 І` X-Zx4_}@C "X@ZX4B(C$Z E_ZE+rSJf CHz KSP (Hs C4C(ZHs JsH?hs +r+rTJ 8j Z8ZX@XZ4K\ZC@s` @7<+t H3 Bs0` 7<#C 7Z c7:V@h_ Ju 37:  b`@s` 7:+t H3 6c0[YX7>Z##07907:XWZZ9@4k?Z##079XA7:ZqZ+t H4 J`?jj7:[ Y4K9K?!K?)@7:k?oȚ k? @` "#C0Z!7Z`4XEZ|jX @C+t H9 4z0XQ790``0XZZXu4BXZ4K>K? @O?k?7k?!k?)k?1k?9Y7=X 4c>7=##0Z 79 0 0 07=44ZQ7?|Z4?X 4 ZX YZX4X 4ȇ "Z4ZX 4B?9X Z4K#C007Z`Z##079xXK?!ZZ@#C07ZYJ44K;K?1K?9@7<k?ok? k?+t C_Hd Hu 0EB0s4@t +rh5 +t C H: \K>K? K?@O?k?oT+t H$ K3h4YX4`K>@O?k?ok? +rT+rSJs j`+rSJc DC @H JsHc?+rSJs +rTJ xjtHjH4j+rSC Pjc +rCCHz`X Hz`+}SXjd H^ E@K>K? @O?k?ok? k?+rEH +~SJsJJs!+hDH` +}C@Hz +t SJs Jtրjt@ hH_ Hz H C4+hSJsb C @@X@+r4h3 8+hh 4K>K? K?@O?k?ok? k?k?k?!+rH$ +rH3`` +rC+~G 0+rEHs HJuJ p4CX@Hs H`4^Y4H``?Hs _@4K>K? K?K?K?!@O?k?7k?!k?)+rH3`` #C0+t h 7Z44Z A7?|+~4Dh +}T4jIxZX)ZH Ў 8+~+~H3 ` #C0Z7Z(+~h 4K>K?!K?)@7?k?7k?!k?)k?1D+t T"c6s j +t T"c6s j+t CHs Bs0` 8E[ @Hz 7Z0XIY+t H9 7=X!790ZY7=Z7?KK? K?K?K?!@O?k?ok? D+hT+hSJsj +hW5Ch|(_ZK>K? @O?k?7k>k>k>k>k>FGEJk>k>4̈ c<+t T"c6s j +t T"c6s j+t CHs Bs0` @H9 Z@Hz 7Z0W=Y+t H9 7<790W 4BP4Ĉ H4+t "c6s h3 +t "c6s h3 H4+t "c6s h3 +t "c6s h3 +t "c6s h3 +t "c6s h37>E`7> Kh3h 7| x4̈ \yZZZE @WZK>` KKK>K>K>K>@7K? @O?k?o#C07Z_4| (4_ZWuZ4K>@O?k?o#C07Z_4| (4_ZWZ4K>@O?k?ok? +t C_%Hd BHz Hs d *Bs0s4@t +rh$ K>K? @O?k?+rT+t SJ Js H7 :B0s4@t J30K>+t _H: +rh< K>@7?k?7k?!+t "c6s h3 +t "c6s _h3+rH9 #C07Z7904Ym7?| (4_ZWZ4K>K?!@7?k?7k?!+t "c6s h3 +t "c6s h3+t H9 #C07Z7904Y}7?| (4_aZWZ4K>K?!@7?k?_U704K?Y@7?k?o+t H3 JsǓ C+}H:Y4B(WZZ[YK>@O?k?7+rLLH9 K>@7?k?7S+rZYLH8 K>@7?k?oCLZ<+}H: Y4BLxZK>@O?k?Lt7 4K>@7?k?ok? DCLZ Z+}H: Y4BLYK>K? @O?k?ok>k>k>k>k>k>k>k>k>k>D##0W79 0+t _ @+t H< 70SJm +rFH p+}EH +}CHl_ZH pH Hi+rSJs`` (4+rH% D4+rH# +~H3Jv+rH4 +t H5 Hsv B HsPe(D t(D u8GHcHt?Hs+t H& +rH3 d *CB@Hs d(+t H3 m! 6c0+rh* p+}h+ +}h, @+rH3 e (CB,@Hs e(B\@+rSJc DB@H JtPHsP?+rH4 4j+t H3 6c0XZ+rh' ph+}h( h+}h)h +rH3 JsP \BtZ\K>YK>K>K>K>K>K>K>K>K>K>@O>+rUH3 JtH 4J JH?7@k?Yo+jH3` +}H3` K>+t C]4zW 4z+~T+~SJsJzJ 7Z?YV B``+rSJt 4EjK>@O?k?ok? +t H3؆` #C007ZH##0_ 79hȜ(+}H: Y@4?Z ZZ4C4| H#C0Z ZHz@ W=@ZW%4BY7Zp_ 1ZK>K? @O?k?ok? +t H3؆` "#C0Y 7ZH4?##0_i79| H+}Z ZZZD_YZ\Y H: 4K>K? @O?k?7k>k>k>k>k>k>k>k>k>H+j 4Xk>As4\t 4' p"c 06g@` #C07Z^4k>ZQZI!c07:!C0Z7>J`7>FK>6sk>78YY4\7878YYU4[7878WYA3` x7878Y5yZWM78ZY5YZZ78@C78Z4 C4ȼ+}@`>}ZH3d 87<Z##079W-X_uZ\K8YK>K>K>K>K>K>K>K>K>@78k?KT4 74C KZ4K>@7?k?7k?!CHzC7?˜ K? B?` bh| K>K?!@7?k?ok? k?k?FH` hH Hdq4ZHyYuX `Hsh\4K>K? K?K?@O?k?oCHt4 x4 4"c6s hs(_MHz h|X4h` h`084"c6s hs(HsJshs4K>@O?k?7k>k>k>+t H$ HShk:4k:7K>K>@7:k?7k?!B 7?| h+~TJ ` 0+~UJ Ўd K?j j K?E4B"c 6cE0ZK>K?!@7?k?F7+h h<0#C0YU7ZK>@7?k?7k>k>k>k>k>k>k>+rH%+t H3 ` +}XE4B^h  W@@ 7>'k>7<ZK>Y 4WIK>4@! +t0H4"c6s +}DH ` 8+t H<ZV%B ph 7<Z+h49Y54+t H< ZVB+}h< 7:W7<4?(k>k>+h4:Wq7`$(+t0H3 ` +t H4 "c6s H< +hH30` +t E7<+hEdH:0+~H3 Ў` D<7>+~H3 Ў` XK>` P+~+t H< 7<V%B+}h< +~H3 Ў` (#C07>Dl7> (#C0YA7Zp+hhh 07:K>Y4+h4:W7:K>` 4?WK>4?k>K>`"+}H3 `!7:W 7<+}I+t H 07<+t F+}CK>` b `6s_ I: X1@I Jj_4K>6sk>7:C:` @7h| K>b@+t T+hCHs` x+t +h_ D7?h+}S_eJz h|W4BB@+t T+rSJ Js`?+rH4 +~H3JJs?}K>` #C0W@_7:K>b h4+t0H4"c6s @K:Y#C07Z`YY4BY7Z4K:YK>K>K>K>K>K>K>@7:k?W!7 84+rH3 pJs+}H4 B|K?Y@7?k?7+}H3` @Y+rH4 4j4K9]I4K>@7?k?7+t H3 KJy˜#C07ZY4BVmBK>@7?k?W 7\ ^ 4B#C Y7ZK>@7?k?7+~H3 VB+~H34B|JyK>@7?k?7+~H3 VEB+~H34BJyK>@7?k?ok? k?+t H3 Js` HE+rH5 p+}JH3 t J t +rH4 p+t H3 JsJJs t +}H3 t 0+}k?'C'K?D]E4:dq4ZYY X `\K>K? K?@O?k?7k>k>k>k>k>k>H4k>]7> +t 4H3 JsJcDJek>]7>+rH3 ps @TJ pK>Ht k>Hcu?K>K>k>+}H3 z k>WI7Zܠ8+r#C0YI7Z]@x4CH3 pc 0+rHyZ % K>Y ]4Bk>H3 ps xGHdK>Hy F  % YXHcK> d k>H ps?4K>+}D F HyYH K>H k>K> f b`K>]5i\K>YK>K>K>K>K>K>@7>k?7_m7?\ K>D@K>@7?+t H3 J| 4@k?o+t CHs Js` P4]=@Hs ]Jz]}@]@4K>@O?k?7+t h Y7?\#C 7ZD\4BD@K>@7?k?o+t CHz D7Z0Hz D7Z0Hz D7Z0Hs DTJzK>@O?k?ok? k?k?SDEF+t CHz 7Z0YYe4Hz 7Z0YY=4Hz [7Z0Hz [ 7Z0Hz 7Z0W YHz 7Z0YY4dHt HjK>K? K?K?@O?k?ok? k?4+t SJc ED4z0HcH s?4DLZK>K? K?@O?4KS6s?;`@p@@@@@@p@`@P@@@0@ @@@@`@@@@@p@+~+rH3 @J|+rH3 @J|+rH3 @J|+rH3 @J|+~4?h3 @k?o+t CHz D 7ZHs J|K>@O?k?7k?Y47=Y4[7= @\4cD |7=[I7=?4c\KK? @O?k?KZ+rH3S`7@`(+r#C0Y 7Z4+rH< K>@7?k?7k?!k?)k?14+t H3 Jt 84JJ? e +t H3 Jt+rH3 p (UJ pJJ? d 4+}CHs W  d  0+rH3 pJsHt Bc4k?k?7>##0798XWW` c> 4c>D7>K=K?!K?)K?1@7>+r` +~h @k?ok? +t CWHd +rVj k"c0706shhkWJ W4+~SJs+~TJJz44BXJ+rSj| xHs kP+}Sj`W-Z+~T"c6s $Jj #C0H@ #C0K@ #C0C@ h#C0^@ @+jH3` P+rVUB (+r#C07Zx]4+r"c6s Dh3 p+r"c6s 4h3p+r"c6s Dh3+r"c6s Th3K>K? @O?k?ok? k?+rH3 p` 8+}#C07Z]4+rH3 p+}JtH3 tW4z (+r#C07Z])4+rDH pJ+}EJsH J 3 YYXH pjcJth p+}UJ6s?jH jW7Z4Z4B@4K>K? K?@O?k?ok? k?+rH3 pJs` #C07Z8]4]U@+rCHs pJdJsJe W4Hs p+}UJtJ Js T JyYXHs pjdJshs p+}TJ6sj4 Z94W9@] @K>K? K?@O? 8 T4$s4Sd@k?ok? k?k?k?!k?)k?1D+rH& h+rH3 Ji7E?7#? s`+j4' ccs ֕c  JjJ(j(J0j0JJj jJ_ X4c?hMC s`+j4' ccs j` (jfj`j`(j`0[Z4cdccK>K? K?K?K?!K?)K?1@O?7Z?79?  :`xW+j46 ֹc 5 tc  JtjJs79?7j@k?ok? k?k?k?!k?)k?1E+rH& h+rH3 Ji7$?7C?s@+j4' ccs Jtc  JtjjzJt(j(Jt0j0Js jJ_ X4ch_M 4cd@x+j4%ccs j` (jfj`j`(j`0[Z4cd_ccK>K? K?K?K?!K?)K?1@O?7Z?  Y@xW+j46  ֺc U tc  JtjJs7ZW_j@+}H36u?T4@@8+j43֕c  t Jt6jtuc +j44 +}H3J U6?+rH3 Js T6?0SF?f6?F?S@f+}H36s?֓c t+j43 t +}H4Ju T6?+rH3 Js U6?04@Ff6F4@@f+}H36s?֓c t+j43 t +}H4Ju T6?+rH3 Js S4@dd4@@f@@K?@ @@@K?@ @@`@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@@K?@ @@@K?@ @@ @K?@ @k?ok? k?k?ED4+}H8 +hM47@B +r H# p+}THsJ Ht +hEM4@˜+rHc`!4HzHs? z h4!P+}H3 ` HzYh# p+}H3 f h# p+}H3h3+}Hs |h3 47?H3 t Hs XTHs t +hEM4@˜=+rHc` 4HzHs? z 4K>K? K?K?@O?k?74_ 4K>@7?k?74?_4K>@7?k?74_4K>@7?k?74?_M4K>@7?k?ok? k?CE+}V MH$ @8+}H3 ` 4+rH3 p`Jw`@+r+}H3 ` +rH3 pJw4H7 p4!x+rS6} +}ZJA4`J  Bs  Bv  Bs Btt 6 hw `+}h  +r@h7 pKS y KS 3kS@4@79JJ>J4K>K? K?@O?k?7_=4K>@7?k?7_4?K>@7?k?7k>k>k>k>k>k>k>k>k>CG+hT6 X+}SJs kS7:kSj X4J 4kS #C07ZX ]4B+h44 XJP` J(` 0Z_Y 8+h4Y_4$P+h4$ X+}H3 h`VZh7+hH3 ` ҄`P+}H3 ` +h+}V4: +h4H3 ` `+rH3 pJs`#XH3 pJsh3 p+}H36sh3+}h  +h44 XJ ` 4 B2j04 +}E+rF+hKS6h X+}I@ pH H p+h4: Y_4"8H ps "` V }4Bh H Xh H pJzJy JX˜! H iH pJzH JX˜ H I`t` 4jH 6d?`RH pJzH D J5x X˜ H p_Jz 0H pJs |h I7@@H pJs` jh pI36si3h Js` *h pI36s?i3Ve4B=y4K:YK>K>K>K>K>K>K>K>K>@7:k?ok? k?k?k?!k?)+}HI +}GH+rFH p_54˜(K>i hh p4K>K? K?K?K?!K?)@O?k?ok? k?k?k?!k?)+}HI +}GH+rFH p_54?˜(K>i hh p4K>K? K?K?K?!K?)@O?k?7k>k>k>k>k>k>k>E+hH3 X` P45 XJ` :J t J t +rH3 pJs` 04K3` x+}V+hS6u XJ`J j Jk>Y7>Z^ 4BV+hS6t XJJ J` j :@!4 4`S6f X+rHT Z :St ZT!"Y4B`! A`0LASZ6s?srS6c?փB  J k> JtJ t I pJtH`H t K> d BzYZK>6sck> :@>T]9@+}V+hS6u XJ`J j Jk>Y-7>] @4K>YK>K>K>K>K>K>K>@7>k?ok? k?EDVY4| +~4?h3 h4 ZYXX b`DZ+~H< Г04K>K? K?@O?k?74KY+hH3 X` X45 XJ` BJ t J t +rH3 pJs`(73?+~4?h3 K>نp8+h44 X4` y Jv 44 y Jy+hH3 X v +rH3 pJz_ V K>@7?k?7k>k>k>k>k>k>k>k>C4K4+hT6 X+}SJs kS7:kSj X4JkS #C0XA7Z4+hU6 XJP` J X44 XJ ` 0604J+hL47@E_e4ZB4Ȝ?=+hJS6g X+hIZBX7>| H ` PK>ZZ c L58@?ZHP` *ZK>JX5X X?UZ54?Z_K> ?ZBZ\K:YK>K>K>K>K>K>K>K>@7:k?7k>k>k>k>k>k>k>k>k>DGHVZC4Z4At4ܠ+}x4?K4 +~IZB7>Ȝ!K>cZZYVX?ZijZYK>4VZCZBX7>Ȝ pK>c ZYVAX :ZYMK>I3 Ў` 4uZAtZ\K>YK>K>K>K>K>K>K>K>K>@7>@@K?@ @@ h@K?@ @@@K?@ @@X@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@x@K?@ @@@K?@ @@@K?@ @@ @K?@ @k?ok? k?k?k?!k?)k?1+rH3 pJc+}h  P@tU+rSJs pJ Js`86j b04?+}4@ 8+}TJ +rSJs pJs6s?``j j +rH3 p+}JtH3 eA0 t 4@D4 \4~4B@sf r H H 6s?h 4c?@sf 4t?r H H e@Bi bh Zg XH Y @@sr *`f H 6s?h 4c?H e_@s+rH3 pJ| K>K? K?K?K?!K?)K?1@O?k?ه@ o_@C+rH3 pJcVi@[@+}H3 PaH: P[7Z?+rH3 p+}JtH3 t 24@Bu r 6?B +}+rH3 pJtJs t t24@@su r 4ct@s T4+}U+rCHs pJs tWj W@Hs pJshs p+}TJ6s?j4K>@O?k?o\ D_uZ\@K>@O?k?7k?!+rSJs pJt+t CHs Jz8@ bD@C 7?+~H3 І` Hs j`84k?PK?B 44 4J K>4K>K?!@7?k?ok? k?+rSJs pJc+t DH J4 tJ8` 0+}#C0E7ZH j|8+}` h  4+rSjc p+}TJ6s?j+rD+}CV @ W9@_]@ 8H pJs` "h pHs6s?hs+}h  4K>K? K?@O?k?ok? k?+t CHu J4 tJ8` 0+r#C0E7ZHs j|8+rD+}CH pJs` Zh pHs6sV hs W@_@?H pV @4K>K? K?@O?k?7k>k>k>k>k>k>k>+t H3 JsǓ+}H:X 4B\ @_@ \M@4W7>_@+rH3 pJs` H' p4_u@_-@ H+rTJ pJs` *j p+}H36sh3+rH( p+}"`h  +rD+}E4 @V @H ph WYK>_4 @H pJsh pH6shK>W4BJsg!Fh pH6sh+}Wqh  H pJc@si@ VH pJuJt t` b03v H pJsh pH6s?Vh[@H  +}H3 P6s?`(H pY@4@Y4B(Jsh pH6shH p g(+t0CHs ` (#C07Z4H4h` \@4K>YK>K>K>K>K>K>K>@7>k?7k?!k?)+t H3 JsǓ +}XaH:4W7?+}DH PK? cs c s@ 4_Uh Ph P4K>K?!K?)@7?k?+t H3 JsǓ 7+}H:XY4B\@W@+rH3 pJtJs t (4@Bu6B `@4+}H4 P tz S Z@@4WQ@\ @4K>@7?k?o+rH4 4j+}H4 (+rH3 pJs t Bu?4+t H3 JsҴ4 +rW4B4P P@#4 84 (4@@+}H3 ` +r+r44NWih3t4D +rW9@+rsh3K?Y@O?k?7Y+rU4: `K>@7?k?ok>k>k>k>k>k>k>k>+t H3 JsǓ K+}H:X4B+}C\ 4z#p+}SJj +rSJh p\4z+rE4 +}C+rS6g +rS6fH p  DJdIt! Hs @ 4Ƃ H ppHs 4ꊓ!XHs daH pH pJtHs t B YBzHs 6sdhs H pJtHs t B Y1BzHs 6shs Hs da H pH pJtHs t B YBzHs 6sdhs H pd`UH pJtJ t B Bs  B BsYzHs 6shs dmUH p :Jsh p+}H36sh35h` \u@K>YK>K>K>K>K>K>K>K>@O>k?7+r4: `WM4K>@7?k?7+r4: `W4K>@7?k?7+r4: `WU4K>@7?k?7+r4: `W 4K>@7?@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@ @K?@ @@@K?@ @@T@K?@ @@ <@K?@ @@ |@K?@ @@@K?@ @@@K?@ @@ @K?@ @+H52aH32i k?k?7+~H3 XVBC@4K?Y@7?k?ok? +~DH +~T4j #C0W7Z+}SJs` h 4K>K? @O?k?7k>k>k>k>k>k>c>#C07ZJl4+r (h< #C07Z\4+rSJt +}S6s j 4@ +rE4c>7>44JH 4_c>+rC#C07Z@ 444JHw #C07ZH444J`Hw #C07ZP444J0Hw #C07ZX444JHw #C07Z`444JHw #C07Zh444JHw #C07Zp444JpHw #C07Zx444J@Hw #C07Z444JHw #C07Z444JHw #C07Z 4D4JHw #C07Z4D4JxHw #C07Z 4T4J@Hw #C07Z4T4JHw #C07Z 44JHw #C07Z44JHw #C07Z 44JpHw #D7Z44J@Hw #D7Z 44JHw #D7Z 4$4JHw #D7Z0##794JHw #D7Z@##794J`Hw #D7ZP 44J(Hw #D7Z`!5d4JHw #D7Zp 44JHw #D7Zx44JHw #D7Z##79$4JPHw #D7Z##794JHw #D7Z##794JHw #D7Z44JHw #D7Z##79t4JxHw #D7Z##79$4J@Hw #D7Z##794JHw #D7Z##794JHw #D7Z##79D4JHw #D7Z 44J`Hw #D7Z##794J(Hw #D7Z##794JHw #D7Z##794JHw #D7Z##79t4JHw #D7Z##794JHHw #D7Z##794JHw #D7Z##794JHw #D7Z##7944JHw #D7Z(##79T4JhHw #D7Z8##79T4J0Hw #D7ZH##79D4J Hw #D7ZX##79D4J Hw #D7Z`##794J Hw #D7Zh##79t4J PHw #D7Zp4$4J Hw #D7Zx##794J Hw #D7Z##79$4J Hw #D7Z##794J xHw #D7Z##794J @Hw #D7Z##794J Hw #D7Z##794J Hw #D7Z##7944J Hw #D7Z##794J `Hw #D7Z##79d4J (Hw #D7Z##794J Hw #D7Z##7944J Hw #D7Z##79T4J Hw #D7Z44J PHw #D7Z##794J Hw #D7Z##794J Hw #D7Z44J Hw #D7Z5d4J Hw #D7Z##794J HHw #D7Z##794J Hw #D7Z ##794JHw #D7Z(44JHw #D7Z0##794JpHw #D7Z8##794J8Hw #D7Z@##79d4JHw +rSJs 0` Hz VBK>YK>K>K>K>K>K>@7>k?oY+rC4zU4>4sb`>K>@O?k?ok? k?k?k?!k?)k?1H+rS6z +rCU4yA(d P+t0_4:@4sb`>I VB+t0I _Z@s4@t 44]4B@@st!@`!+t0TJ ` Jcj 4+hTJ `t@*j `#DW7ZH4H3 `6sh3 `+}H) S`@4c?F4+~E+~Dh @@H ` "H ` H В`0H ` 0+}H Ў` S`_u4c?+}h) +hH3 `6s?Ph3 `@s4\t DZ 4F<Z4+t0I h3K>K? K?K?K?!K?)K?1@O?k?7+hV+}SJs +rU6 b 0j p+t044@B`3@@b+}H3 b`+t04:@+rUA49+}T+rS6sj K>@7?k?ok? k?k?k?!+~H3 ` 8##+}T+rU6j b+t H3 JzJ79T_%D!"H `!+t0H3 ` +}Z_4BhJc4h3S`@4c?+~G+~F+t0EH ` JH Ў` 8H ` 0+t0_EZS`_4c?+t0h 4+}H3` 8+~H3 ` "_@Y@+~H3 ` 4_@4K>K? K?K?K?!@O?k?o+t AH: +t0_h  +rH4 4j+t T+rCHs J JzP `K>U@ Hs JsP6z0"d6z]@K>@O?k?ok>k>k>k>k>k>k>k>"d6d4DZ 8+rZ4G|4F,Z+rS+rT6 @WAjz +t D4+t C+rSJs Ht JzP 0SU@@`Hz +rSJs 4jt44[4+}Sj` +}D+~K+t C+rJ+}S6i P+t0H"c6g+rF+}E_ehIs ` HHz Ht J(IS ` J6sjHz KTI3 @(IX @Xi@Ig 4H J` x4JH h4HЎ` PH ` @+t @3` (+r@3 `044[q4B>@k?7k>k>k>+rSBsc>4+}U+hS+rT6Js p j +~Sjd 7> W``k>7?C>`s4_7>+h43 hh< h+t0h3 +}H3` 0+}Y}7>+}H3` +}H36s?h3+}UJ +rS6sЂ 6?j _=@4K>YK>K>K>@7>k?7k>k>k>k>k>k>k>k>I4+t CHs IJyHHs JsJe44044 H0` @( z  ZUH  JH  :c> c>J7>BtZ4` @s(d bb  ZUHy  2Hs  "J ZBZ4Hc0`?@s(4?>48\K>YK>K>K>K>K>K>K>K>@7>+}"c6sS 44 #0@7 @ @4J Jz ?J@4@k?7k>k>k>k>k>k>k>k>k>k>k?CFK4c> b$4?S`AX4?4 !4@4 6!$! b3c>C>m 454e7>C>j 5:p4e C>5H4 r C>4 47>6sc>4X @X%4@S`^4?4XU4d Y_%ZY]ZV@K>YK>K>K>K>K>K>K>K>K>K>K?@7>k?ok? k?J@k?˜ 4#D7ZW 4BK4H0` @ZHy _@x(Hc0`?Z04H Z_5@(4_m48K>K? K?K?@O?k?ok? Dh+~Sj` +}T+rS6sj +t SJs Jz##I79T_ C` @4@s(d 4hHz _U4BH| K>K? @O?k?I7˜ +t #D7ZW4BH3 j|K>@7?+t H3 @J|k?7k>k>k>k>k>D+}HY h3X4@c>c>+r4' 4:c  H` @4c7>ItY7>4$4IWe_c K>YK>K>K>K>K>@7>k?ok? k?k?k?!DC@s` @T4Z4ғ v8`u b04?ғ+hE+hFH xJc` P6sh xH ZU QY?H xZ+hS6f+hSTJsfE+hGJJc` H6shH (4cZUyY (+hZUY(4TJf_Jc4K>K? K?K?K?!@O?k?ok? D+hT+}S6s j x+hT+hS6s j+hU1Ch| _ZK>K? @O?k?D7˜0+}#D7Z8+}xh4 H4 +h43045J`?6J#D7Z`W @K>@7?k?7+t H3 IdJyؓ 4K>@7?k?7+rIH9 K>#DW A7ZK>@7?@`@K?@ @@@K?@ @@@K?@ @k?7k?!k?)CD4^4 ZUaZk?X 7?U9ZZXY44K>K?!K?)@7?k?ok? KE@4`S4` e+t043` e Jz@ ԥcU1@+t04$h]% 4? hK>K? @O?k?7KZ@@4@`S7S` z+t043` z Jz@ K>X%JyK>@7?k?7k?!k?)k?1k?9KC`@4``S4s` c]7? +t043` c HK? % HU 79| 8 YWK?hK? e hT ZK>K?!K?)K?1K?9@7?@@K?@ @@ x@K?@ @@ 0@K?@ @@@K?@ @@@K?@ @k?ok? k?k?k?!EFGDTE4|(Z#D7Z[)4Z4T%4hehfhdhg\K>K? K?K?K?!@O?k?ok? +rDH ` C+}T+~SJsJ Js+~TJZ 3 4_=Jh kH[@+rH5 HsjXj Hsj`j(Hs Ht jhj0jP4jK>K? @O?k?ok? k?k?k?!+rCHs UEJzPHu +}FH j`+rEH pjX+}G+t DH HJ jhJHhs UJzPHt J`h JXh pH JhJ h4K>K? K?K?K?!@O?4+~H3Js6s?`+j46+rH5 p+~H3Js6t?|c  u 7|c@4@k?ok? k?k?k?!+rH3 Jsh@ #DV7Z 4GH UJzPH Jғ t cJ 4Jt sYjH j| JfHZYJx_WH j|HkH+t SJt kP+}SJs k`+rDH pkX+}SJsJ _kh[4Y@H j| H p +rH3 pK?4c+rDH +}S+t TJ JsJ s_}j0C`@H +rD+t (E_@H h4H JPH (J XJ t  cHw4K>K? K?K?K?!@O?k?ok? k?k?k?!k?)+rH4 +~H3JJs 4P4+rH3 JcHs JfP+rH+rGI xs @HdHHsPf Z@ 4ZT4BECH s?I x +rH% +rH5 jHhH+}H4 j+~H3Js [ aj4K>K? K?K?K?!K?)@O?k?ok?+rT+rSJ Js x 4+rH4 JH `H3 JcHHsu@0H3 HcHHsu_HcH+rH3 s +rX4H5 HtJ`jHs6s?hsJ6sjH4 HcHHs6s?t?hsx+r+rH4 J6s (jJHJ6s?jHs6s?hs+rSJc D[ @H JsHs?h 4K?YK?@O?k?ok?k?k?+rSJv +~X+rE+}W7F?JJ 6sKJt B@jK?YH JtJ P+rD+}C_5@H JtHs (_%@H jfJHH >JK?YK?K?K?@O?k?ok? k?k?+t H# +~H3Je@D+t FHz`@ RTY\ 8h|`  TCS?S"TS"HcH s?Hz`K>K? K?K?@O?k?ok? C+rH3 `!D+~H3Js _Z_]ZZ@+~H3jc+~H3jdZ4+rH4 H3 jcJsH?h3 +rH3 x` jdjc[a4K>K? @O?+rH4 Z @4+rH5 JP z8JH?JP@k?ok? k?k?+rH# +}H3 H` 0HfH+rH3 xs "HHs!4f +~4HtHs t 4H3Js p+rH3 Jsd 0E_@H Jsd?+rH4 HsjH4 JJ 6sHtt RD_@H JtJs t 6Hs (+rH5 J6sHt [jHHc TJHJHc?JHjHT }Z4K>K? K?K?@O?X+j4644KS`KT 6?tc  jwKT 6?tc  j`6KSKTkW KZHX?=4@k?ok? k?D+rSJc EHsPd Z_4HcHH s?HsPK>K? K?@O?k?ok? k?k>+rH3 Jd[Je U7>+r[H# p 84` (4e 4?Hc4K>K? K?@O?@(@K?@ @+t H6 J(" J6s0jJ( "}6s v J j+t H3 Jt("~ t JJ +t 60j H3 Ju("~ u "}6s u J j +t H5 J(" Jsf`J( Js@j`(k?ok? C+t H6 JSDJ(#+}H3 Ў`"K>ل""~ t JuF` rF+}H3J J!+}JH3 !J(+t 4+t H3 Js(" 6Js@8 t  " b3"6_4?+t H6 J(" Jsju(J( JtFfJ( Ju+}H3J jJ( Jt+}H3 j+t H3 ` *J( JtFfh  0+t _@Z_Y+t H3 ` @+t H3 Js(" JtFfK>K? @O?k?7k?!k?)k?1k?9+t H3 JsǓ+}H:V4B(+t H3 JsS@H3 #DP7Z@Jt( 0#D"~ t JsFs` (+}7ZVU@4T4j +t D ~+}F"}6eH Jt(t JJk?Ju(#D+rH3 X u H 7ZVm4BxJtK? k?U7?H J(s JsJsh J(s JsBsd rd@b (H 4p x4Js(s Js6zJy(WU4BHH Js(s Jz7Z(W4BWM@H Js(s JsFs3+}U 4:H Js(s JtJs H XfJ(t J6s?jJ(t Jt jH Js(s JtF@F`= H #DVe7Z+}h 4K>K?!K?)K?1K?9@7?k?o+t H5 JSCJ("+}H3 Ў`"K?Y`"" JtF` @+t j(J( Jt+}H3 8jH5 J(" JvF+}H3J J RJJ( +}H3 4@@ xj(_u@+t H6 J(" Jt+}H3 jJ( Jsjc(+t H5 J(" JtF?f+t H3 ` 0+t J( JtFfH5 J(" Jv+}H3J jK?Y@O?k?+t H4 JS7J(!+}H3 Ў`!K?Y"~ t JsFs` +t _m@+t H3 ` H"+t H3 Js(" JtFf+t H6 J( Jt+}H3 jJ( Jsj`(J( JtFfJ( Ju+}H3J jK?Y@7?k?7TqKZ(K>@7?k?7#]T7Z˜ +t #D7Z V4BhH3 j|("~ | j| j|"a6s 6s?g6s??70K>@7?+t H5 h: KSSjKZ(@ P+}H3 Ў` 8"~ z JtF` Ff+t @h5 k?ok? CD4V-4\@YX@4B4K>K? @O?k?oCV%Hz Hz@ T@TZK>@O?k?ok? k?DECTY4@˜4`K>kkkk k` k(+}H# k0k8K>K? K?@O?k?ok>k>k>k>k>k>k>k>GIH H0H(i H` h40 T4˜ #D7Zphhh4H` HsHH zHs ZYXiXȜ   hf"8CHFH` HhZ4I X˜ p7hB i3br03z bh84cI36s?0i3H` ( i3h(\CHf 84h b3h "CHHH y 3 YhH YT979˜ RH  | H  | hHhuF#D7ZV@4K>YK>K>K>K>K>K>K>K>@O>@H@K?@ @@@K?@ @@@K?@ @@ `@K?@ @@P@K?@ @@@K?@ @@@K?@ @@ @K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@@K?@ @@@K?@ @@@K?@ @@ h@K?@ @@@K?@ @@@K?@ @@8@K?@ @+H51H31 k?+H52H32 k?k?oT qDZXYK>@O?k?+}H3` 7+}49p_4B(+~H3 pV BK>@7?k?7+~H3 V BK>@7?k?7k>A D7>!0K>YK>`AT+~C6?k>7>A7> 7>A7> K>` K>T y4BK>CK>K>` K>T 9K>K>` T K>Hs Ў` K>_ 6?K>YK>@7>k?7k?1A 7? K>K?`@T+~C6?k?7?AD7?! `K>_IK?K?!` T K?Hs Ў` K?_}6?K>K?1@7?k?7k>k>k>k>k>k>k>k>4k>Z7>"+}Sjc+rCHg p+}SJj Z7>+hS6s4btHs pg!8+rF+}E+hS6i+}HH pJdH d`H pJsH Bt 4 Bcs 6 h W@Wz+}H3 dmH pJth pI6si? h +}STJs j`+rE+hS6dH pJsJ Bct 8+}W@ BzWZ+}TJ j}H pZ@K>YK>K>K>K>K>K>K>K>@7>k?W 7K?Y@7?k?ok? k?k?k?!k?)KK36d?KS`a(CGA K>+t EH Jc`` +~HITJzH | j|`IZ4TJxH 4jX+~H3JsXF@4  x K> g"x g"K>K? K?K?K?!K?)@O?k?7TKZ4S8W+~H3 4XV%BK>@7?k?oC#D7ZTY #DP47ZTY #D47ZTQY #D47ZTY #D47ZTY #Dp4 7ZTY #D84 7Z(TqY #D47Z8T9Y #D47ZHYT4 #D47Z`TY #DP47ZxTY #D47ZTQY #D47ZTY #D47ZSY #Dp47ZYT4 :@y73?r<7?44?K>@O?k?7+rH5 +}JH3 (VJ JHJt?JHKS` +}H3 b K?YJd@@4_@+rH5 Jd@x+}4h3 jJ86s?H3 b 04h3 jJ6sZqjK?Y@7?k?V17K>@7?k?ok? k?DE_UF+~H3 ZYXWVBK>K? K?@O?k?ok? +~CHs ` @D_@Hs ZYViBK>K? @O?k?7ZK9K>@7?+t0H3 ` K\J|h @k?T7˜ x+t H3 bKv RJuKj|kKkjjjkK>@7?k?ok? CBZD#D7ZSY #D+t H3 jd87ZSuY #D+t H3 jd@7ZS-Y #D+t H3 @jdP7ZSY K>+t H3 jdHK>K? @O?k?+}H3` 74I@ K>"d6|0@7?k?+t H3؎` 7_ 4B #DUu7Z84?K>@7?k?ok? k?+}4: #$C d79XF#D7Z`##79 d4 B l4$k?k?4k?4k?#D7Zp+r49 4G(4k?k?k?k?#D7Z+h494G4\K>K? K?@O?+t H3 Jup+~h +r4h4JsX` +rH3Њ +h +r@h 6h3J+h 4@h3h +~6@h3 @+t H3 Ju` :Y24֔ GS SSdY4@C`!9!+h \+rS6}K` H :ڠCҔBs j67ڠJB CҔBss 6ڿ7 HK 6ڠ"F wSdڿF@4CsBҔ Tt@( s x C`>K@4?k?ok? k?k?k?!Cy8+h H4Ds S4cyDs C+~H% 4 @x4B Jx? 844ZY_5  \4_ \K>K? K?K?K?!@O?CTGSSdYpҕCTGSҔ 8Sd Y"GSSdYCT@\CT4Z *GS4 SSd@\YX+h 4GTH3t S ` "GS>SdYGT@\KCGSSdY\GSSdYV4 tGSv 7SGSSdyRGTC :GSgSGSgS(7ZGSSdYGGS@\@k?ok>k>k>k>k>k>k>k>k>k>k>k>k>k>+t H3 JepJsX` D_4BHGT@ BD 4GS SSdDGSK>YHrGT4@ ZGS6s?rBDK>YGSSdDGShK>YD*4@GSt 7ZDGSD& K>YǦbGT4T H7Sd Yd*GT4@ _UXZDC+h G4 44 4   4  44  fGTHt V84r V` _YZ$ `#v Y_@xZ 7W !(CUҴ@ GT@!XҴ@ RF@ :7Zz@s sdz@s!XҴ4^!H Fu!*DK>YGSSdDGSHK>Y HҴD(K>YGSSdDGSK>Y@ (ҴY_]XZ@ :7ZzrDs sdzDsB ` "GS4 SSd V` _YZ` zGS=SdDK>YGTHt S `!RGS=SdDGTJ ` :z @s= sdz@sGSV@ 6 vGS 3SSd` GS=SdDGTHt SJGS=SdDbGTHt S_GS"GS=Sd7ZDGTK>YK>K>K>K>K>K>K>K>K>K>K>K>K>K>@O>@@K?@ @@ h@K?@ @@@K?@ @@ @K?@ @@ @@K?@ @@@K?@ @@ @K?@ @@@K?@ @k?7k>k>k>k>k>k>k>k>+t H3 Jdh +h 443d +h H&"4H`"S f 6s Bs?`"4+rUH3 p+}H4 6?Js t X"a 6vJ pJt@ f  Bs` 4?@4+rH3 p+}JsH4 !k>4.A4Ha@H+}G+t I4  Ss6s f @ssh K>  Bs` ZSY H K> h 6 VE7>SuZk>I3 Js S` ZV7>ZWK>(44H~ S4K>YK>K>K>K>K>K>K>K>@7>k?ok? k?k?k?!k?)k?1FGI+h 4#4ePe4"a 6hHs` Z0D(4cHyS   4ceHs+h 44 se Ph  sh #DU7Z4H|K>K? K?K?K?!K?)K?1@O?k?7k?!k?)k?1ED7?_4|ZK?t #A #D7ZU4B8S7Z0| K?#D7ZU4B+h 43 t jcZ4# Sy70@` 4z +r4$ `7Z?YU44z"7Z?YS4Z#$SA798 K>+h h#K>K?!K?)K?1@7?k?7k?!7?_4| K>SQZK?+h 44 j+h H3s8h +t H4 K?4?H5 Jh v8jhJ?JhK>K?!@7?k?7k>k>k>k>k>k>k>GH7>_4ȼ!rH4!`K>YSZFSZ 74^@k>#DU7ZH44  Ss6s e @s` 8 Bs` xZSqY `4ZSY 7ZSaYH6sh4_- SK>YK>K>K>K>K>K>K>@7>k?77?_4 +t H4 K?jhK>@7?k?77?_U4 4K>@7?k?77Z 7Z?CSZ` 7=4Zc=7=44B4Z44 P Bs` : 8" `bb2$@4 2B` 6?4646 HGb@7=K<@7=k?ok? "d6dx+t H3 Jzh_ +h 443z ` H4z"+h H#` (4z"@ZZ@4B @7Z?_ZK>K? @O?k?7k?!k?)k?17?_4ȼ H4`k? Ss6s e @s` X4[MZV 54SyZ7[ C T 9@K?e S_}ZK>K?!K?)K?1@7?k?ok? k?k?+h 4#4ePeP4"a 6fHz@ *4@ 4ceHz\K>K? K?K?@O?@@K?@ @@@K?@ @@@K?@ @@h@K?@ @@@K?@ @@@K?@ @@ <@K?@ @@ d@K?@ @@ \@K?@ @k?ok?k?4CCCBC]C\7_KS4?CY+rH3 pJuJs u Pԟs+}E+rSJz p6 S` ` R J?  By 6?6?KS uh b `6 4:` 0S 8SW 8W6+}T+rSJs pJs6s?j K?YK?K?@O?k?7k>k>k>k>k>k>k>k>k>k>k>k>k?k? k?k?L+rH3 p+}JtH3 t +t H3 Jfp 4 4H(@@@@ @@@4?J3`0B3 f Bs` (c>4+}h  444+}H3 6s?$h3 +rI+}M4I3 pJtI t Ԣ9 S?s3`"ԠBg 34Ak?'Bg "6?04ԿB"'K?V3 SFu45`! `!` X3o :_ *Ԡ*Bj 46?4`!X3p 4  2ԠrBh h54c?6?4c?` 4? 6 i 4 5` J` 3$84 KZ4@5`  :` 2"4? U`  `0Խ?9 I3 p` Js` 2Jt@"Js t Bs? xI3 pI3 pJt@Js t Bs? 44I3 pJs ki Js`;I3 pJti4 p+}H36s?h3J6s?i 5?_-Z;I3 p+}TJ ``j +}h  4 h4?pK>Y+}U 6sj <C> 84K>Y| 4?K>YK>K>K>K>K>K>K>K>K>K>K>K>K?K? K?K?@7>k?ok? k?k?k?!k?)k?1k?9k?Ak?Ik?Qk?Y+rH3 p+}JtH3 t +t H3 Jtp J(6BBB BBB4?\S`0BS t Bm 4444+}TJ 6sj +rF+}G՟s4 4 u4 4 @4H pJH u J u բ"4:T S `! WF w` ꌀ!` Z : *ՠ*B| 464`!` WSe j? *ՠ*By 464` ( W V4` W` :` SD84 7` " js04P x  ` " 2` * 7? ` ս:H pJs` 2h p+}H36sh3Uh S!@ p4?xK>+}T+rSJs pJs v \ 84j | 4?K>K? K?K?K?!K?)K?1K?9K?AK?IK?QK?Y@O?k?7CZ+t H3 @ 8Jup+rH3 pJs+}H4 BzY SFsS@4_4B_ZK>@7?k?+t H3 Jup+rH3 pJs+}H4 By: UFS7_4B +}H:_9 X+rH4 +~H3JJs #DUa7Z44K>@7?k?ok?44CDKS(CCCBC_C\ C]CBC_4?]+rH3 pJt+}H3 t 0CZ X6 : 4"B} 46 5 0u 4 z8jb J 4"B| 46  c( d8Y Ϗ 4? 4?K?YK?@O?k?+t H3 Jzp@ 7_4B4K>@7?k?7k>k>k>k>k>+}H3@`#+t0H3 `#K7+}H3`#xK>+rCHs Js` 844Y4Hs Js`#K7+}TJ +rSJf p+}S Jg4?j 4_ =4Ȝh+t H3 JsІb"(+rH4 +~H3JJs!#D7Z!+}+}C^Hz bXy4+}W4:+}h% +rh& phg4X!4Bp!8+}CHd h` "d786shhh3Tm@Hs h+}DS4 Bh` [7<78TUYS4h` [m7<78TY78UQ@+}h% +rh& p+}h'K7K>K>K>K>K>@78k?ok? k?D+h H# ` @E4zYR54 2Hc@`?4z #DT7Z\K>K? K?@O?k?oC_4˜ @sK SkK>@O?k?7k?1k?9Ck?!k?Z_u4Ȝ/Hs6s?`U@Z0@@0@0@@@ @ @ @ H@ @ @ @ @ @ `@ P@ @@ 0@ @ @ @ @ @ @ @@ @@ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @@ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @(@#D7?@7?(K?!7?!@7?)(K?!K?B TFfB` H`K?Bs`K?Bt TFfK?!B TFfB` H`K?!Bs`K?!Bt TFf@` Hh@` t'XK?!H?0h@h7?'K?!C? SFt֟ftC?`@7?&K?!C?`@7?&K?!C? SFt֟ftC?8`@p7?& K?!C? SFt֟ftC?`7?!@7?)%K?!K?!k?Bs` K?B` rB TF?fB TF_f6k?B`?}K?k?7?@7?$K?!7?!@7?)$K?!RK?!CRK?| #DT}7Z`DJ4c?K?!s BxK?s Bw TFf UFf b `_UbK?!7?!@7?)#pK?!44"g06v  TF 4cu_fK?!B`#K?!B SFt֟ft03`?BK?!7?!@7?)"K?!7=K?!T5447=4u Bs`  TF?F 4cv_fK?!7?!@7?)!K?!K?!44 TF 4cv_fB`!HK?!B SFt֟_ft03`?BK?!7?!@7?) K?!7=K?!T}447=14u Bs`  TFF 4cv_f K?!#DT%7Z 8K?!@ K?)` R @K?@ K?` K@7?k?ok? D_4 K>R4H|(Z+~4?h3 hK>4R 4H+h H3 hs@h# 4zYRM4``:K>K? @O?k?o+rCR4HZ@ hz4R4HHt4@f4b4f4bf4Rblf4Pbnf4bf4bK>@O?k?ok? k?k?k?!k?)HCJ_ ]4ȼ!K>ٌ€#D7Z xT }4BpHd4?~#D7Z T E4B8R]ZGZ Y #D7Z T 4B4?f 6s@d ` #D7Z 0@ 4B@ pZRU4|(Z+~4?h3 @K>RYf 6s@ d jcK>K? K?K?K?!K?)@O?k?G |7K?Y@7?@ @K?@ @B @@K?@ @Ah@K?@ @A@K?@ @A@K?@ @B@K?@ @@@K?@ @+H521H329 k?+H52H32 k?+~H7p+r 43 xTb+~TJ Ў` 44?j +~T+r S6s @jp6?Shhhhj+~h7p@4+~H7p+~H3x(+~H3 Ў` 4?h3 @TShhhhj+~6 h3p@k?7k?1C_7? C?s 4&K?!C?4` `+~C?t C?K?!RQ4B(4&+~IK?!+~H3 Ў` 44 h3 4K>K?1@7?k?o_C B@t4&04I`Hz+~4 h3 4K>@O?k?ok? C@t6?b4Ҕ4$ K>4`@t 0ғ_mHz?4cPHzd "@st?4c Hz "@sf HzR)4B 4=4cK>K? @O?k?7k?1C_7?C?d pK?`"t +~RqK?!+~H3 Ў` 844 h3 4K?!hs4K>K?1@7?k?7k>k>k>DEC_7> 4C>f "7>.`,hd PK>K>hsK>k?'1 , 4Xh`"t +~RK>+~4 h3 44K>YK>K>K>@7>k?74`c?4c?7?!.`_U7?K>@7?k?7k?1k?9CD_7? +~C?t 8K?!H3 Ў` h44 h3 H4hsC?4` 4hh4K>K?1K?9@7?k?74`c?4c?k?!_7?K>@7?k?I,7 0k?!4`c?4c?_u7?K>@7?k?Z(7+~4?h3 @K>4`c?4c?k?!_7?K>@7?k?7KS6skSCSc?CSc?k?!_m7?K>@7?k?7CS` CT#D7Z @G 4B *CT4` bKZ_ 4B` ҔKZ@ D4B84&KZ_4B_u@K>@7?k?7k>C_7>!4K>Hs t k>+~H7p+r 43 wsd@+~` K>4?h3 `4s w6?+~7>ShhhhjTShhhhjT7>hhhhj6?7 7>+~K>לH3p K>YK>@7>k?7k>k>k>DCE_7> 4+~H<phC`C`s@y& :&@$ *KR4 4`8K(7@ 4hKK>YK>K>K>@7>k?7k?1k?9CW4J@4+~KSsH4 t@v`@t4T(KSJcH4@t @v4JdHBtBBv@4B Ҕ4L 4` XZ HzR)4B(4&ZHHzZ_4Bd pf 04V Z7?7?_4B0 +~4 H4H Hs6shs4J 4Hs6s?hsk?!6s?`@B@@@@@@@@@@@@@@@@`+~_7?!!XK>HsK?! (hs_7?!!K>HsK?! hs_U7?! K>K?!h_7?! K>HK?! `h_7?! HK>HK?! h+~4?h3 K>K?1K?9@7?k?7k>k>k?k? k?k?k?!k?)k?1k?9k>k>k>k>k>k>k>KCHCS@ldCS@f44444 4 4 5?`@`@(@@@@H@@ +~7>7>_7>K7>7>_7>J7>7>_e7>I7>7>_=7>H7>7>_7>G7>7>_7>E7>7>_7>D+~H3 Ў`%B @@@@@@@ @X@x#D "V Bx "V B7>V Bk>ь (ZV B *ZV MB7>V %Bk>ь 0ZYV BH 0YZV Bh7>V }Bk>ь 8ZYXV 5B 8YZXV B7>XV Bk>ф Z!0YX k?Z Z0Z k?Hk? k?k? Xk?k?k?ZYXWVB Zk?k?ZYXWV5B7>.`k?k?ZYXWVB0k>#DFD7Z p+~4?h3 6s?`@:H@@@@@@@@@@+~K>ю` 0K>+~H3 Ў` x5?X4_ m4BPK>_ 4B87>.p_ ]4B+~4 h3 5?`@`@(@@@@H@@ K>YK>b K>R ZK>b K>R ZK>b K>R ZK>b K>RqZK>b K>RIZK>b K>R!ZK>Ɏb K>YRZK>YK>K>K?K? K?K?K?!K?)K?1K?9@7>k?7k>k>k>k>k>k>k>CE44Hgг6s>`@@P@8@x@@@8#D4c@sr #D7Z FL4Bpд4!Hd+~H3 Ў`&+~+~C+~H+~F+~E@ZHsH`&p+~_7>&K>`&@+~@8ZHsH`&hXi@H І`?e+~+~H3 Ў`%+~+~H+~F+~E+~ChXi@@xZHH`%X+~@PZ_7>%K>`%+~Hs І`?hXS@Z4c@sr!JHg4c@sr!*Hd4c@sr! Hc+~H3 Ў`$`+~+~I+~H+~F+~E@Z_U7>$HK>`#+~@ZI3H`#+~@ZhXi@H І`?e+~r#D7Z F4B_7>#K>Y_y7>#xK>Y_Y7>#XK>YK>`K>K>sB+~I+~H+~F+~EI3 Ў`"K>Y_Z@`ZIH`":hXh@ K>sH+~K>sa+~I+~H+~F+~EI3 Ў`"K>Y_Z@ZIH`!bhXh@ K>sx0+~_q7>!pK>YK>г`14 +~S`@4?+~H3 Ў` +~@Z+~H3H` p+~S+~TjX?j`@S`_m4? +~#DF<7Z +~S+~TjXj`H+~T+~SJsPj@K>YK>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>k>k>k?k? DGF4& H4_7>!K>YK>`" t8K>B4&+~L+~K4 "4 $h * 7>_q4B_Z@HI Ў` Is@` K>Yh  _7> K>Yj K>` @i K>` 44& K>_94B K>YQZK>YK>K>K>K>K>K>K>K>K?K? @7>k?ok? C@s` hT+}D 4_4@zZ_4 b04 K>K? @O?k?7k>k>k>k>k>k>k>k>F@@+iTJ+~UJ7>jk>k>k>k>k>4 HjCHH%@@ #D7Z HF4BhHH+~H(Dg d +i44t(U#D7Z FL4B`6??4 +~h$+~H3(` 4VIB+~H38`"+r@4Ҕ@s 04:QY +~4h3+~H:4dS@4d7C?+~H3Ȇ` 4`0+h 4604@ 6bu+h 4$0 #$79 Q4+~H3ZVB+~H36sh3@ Z+~T+~S+~UjHj`Pj@+iSJzЇ@ +~@ @+~EHȆ`! +h 4$0 #$79 Q4+~H3ZVBH6s?b hh@ Z+~T+~S+~UjHj`Pj@+iSJzЇ@ +~@ H@+~H30` 4VB+~H3 І` (+~H3` Z@pY+~H$x4`4&@e :@t HQ4Bc HhH4?ဈ@+~h$+~T+~S+~UjHj`Pj@+iSji+~SjjK>YK>K>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>k>k>k>k>G7X7>#$Q 579 +~CHs7>V!B"Hs#D7Z VB4ga+~L!d+~F!D!!$cI d@7>5y 8Q 5XH7>V1BDZȜ0H5Z HV BH 8ZH5 PV BHZV B H5 PV QBQ ZH5: XV B4cg~ucK=K>K>K>K>K>K>K>K>K>K>@7>k?Z 7#D7Z `F4B@k?CS@c?CSBc?c?!@7?K>@7?k?+iH3`@7Hh 6s?h3+rH3` K?YV BK?Y@7?k?7k>k>k>k>F"d6e _7>"`K>YC>_7>!C>C>+t043c ` Jt Жu4&Bv Ž(7>K>JwK>Ҁ7>؀K>Jsk?JZyИV B PC>ZFP4B0J?B+~4 h3 C>4` Jt tK>Q4B(4&C>HK>C>4` XK>Y ДK>Q}4B(4&K>YH8K>K>YK>K>K>K>@7>k?7k>k>k>D"d6e _7>!`K>YC>t+t043t ` Ju 07>4&K>JxK>ZyVqB 8C>ZF4B+~4 h3 C>4` XK>Yt tK>Q4B(4&K>YHHK>K>YK>K>K>@7>k?7k>k>k>k>k>k>k>k>k>k>k>C44+t0H3` 4VBc+~4?h3 +~STJs Ў`/+~+~M+~I4+~L+~K+~J+~H ZJ Ў`/PIP` 4I3H` IXHi%H`084@s`@@@8@@h@X@@@@P@ @ @ @ @ @ @ @ 0@ 8@ @@ @ @ @@ @ h@ X@ H@ 8@ (@ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @`@ 4cHzZIs S_4B h@z_4B P_7>Q,4_7>Y"2k>y@s6s?`@(@p@@@@@@@@p4?K>Y` 0K>QK>Y`!PK>Q`!HK>y0k>yK>YK>Q k>yK>YK>Q k>yK>YK>Qk>yK>YK>Q Sk>yK>YK>Qs>s@֔Xk>yK>YK>Qs>s@Ҕ k>y4?iS 04K>y_A4B_HzIS І`(+~H3`(zHz4_]4B`Hz_4B@Hz_4B0@sc>@sc>C>f Hs.`7>!.`k>!@t4&@P4"b8Y +i@ BB:@s4!b@ 4!4 4 A4aYRGHsh3+~H4 Hsj?鐀0Y_a@zX4^7>a&@I@K>a`&*Hz^7>i&I@K>i`%HzZ #D7Z ^M7>q%I@K>q`0DH_4`I@@z0Y_-X 40DI@Z_4B@z_E4B^e7>Y;40@t K>Ys04k>Y ` k>YK>Y^4BXHsJzH_4B8@s6s?`@*@@@@@@@@@@tHsJzH^=4BPHsJsHHsJsHJsJz^4BHsJsH.`^4B@t4&HsJzH^4B#D7Z F 4Bi%HiPi@i%Hi@iXi@^7>#x4^7>1#X4^7>7>1^4B^]7>y8K>y`!4c4HssIt tB` #D7Z F 4B@Jk>!4 c>4`0c>Hsk>!4`c>4 c>7>^u4B@t+~H3 t Jz?A@ _4Bx#DP7Z ` 8#D_HIS В` 4 I@7Z F@I@4c+~TJ В`0+~TJ І`!4!K=J Іd J Ўb +iEH6thD+~SJf j` _mHHd@:h+~H3@` @4Z_4B +ih$+~h& 4K=K>K>K>K>K>K>K>K>K>K>K>@7>UCS` 04B t t 03`?B+iS`3s` P@<ғ`3@3` (@<CS`3+i@@<@k?ok? k?k?k?!GC 7 +ie h@3f@dГf 4zQY 0\ 4cPe?@de(\K>K? K?K?K?!@O?k?oD+~T4_j8+rT6+iSBsb7ZQYK>@O?k?ok? k?+t0H#` D+iE@s JsX PH| s ZY _Hw˜ C` K>Hc`?}@+iSBt+h U68t `7J8 s +j048ZY  _4 K>K? K?@O?k?o_C+h H8 8 @+jZY_UH7 C` \_ZX\K>@O?k?7"dU4 6} 4244H4B4~6??svH6?sv06?r ғ| y x(w B4?6?? U 4<@ 4@K>Z#D7Z F@4K>@7?k?ok? k?k?k?!DGE_MF"K>_uZ|#D7Z E4B@tB 6?b:гt (+~4 h3 ZEl4Bh@s` P4z!*@t@4 ^ HzH HzHQ 4BQ Y+iTB`sB+h X78 v v +j0S6t  $4!, k?' 9(W/K?K? ҵjk8hgH`f@`eBK>K? K?K?K?!@O?k?oDHPZZY4_4K>@O?k?ok? C+~UJb`+iDH7TJ @4 CT *Q@+i43h+i` (H9+jZ4_ @7+~H3 Ў` K>+~h +h H: 8@ SQ@+h Sj` 8+jSj`+~T+~SJs`jK>K? @O?k?7k>k>k>k>k>k>+~H3` +~+~H3` +~H36sph3H3b`47> b`6_j`+~HI`+~GH+~CHdh7>hshhi`_ Zi`h hdh+~D+~CH6?h^J? HHQJzHHsh?HK=K>K>K>K>K>K>@7>k?_7\ 2CS` "CSBn _ 4B(l H4^@+~H3 І` 4E44K>@7?k?_7ʜ K>B` 4BB0\@7?k?o_=C+h H8 8 @+jZY_H7 C` \+i@4+h 438t `7H38 s +j048ZY  _=4 X\K>@O?k?ok? k?k?C4ȹ!X4"d6y @tҔBs s Q@ @ss4t #D7ZHYQ94 @sd4h@4^@@s` r@ss4t +~H44?H44.b+~H3Xj`@ss4Lt 4c4 Z_u4B_Z K>C` 4 HCB+~ H44*Hb4,0b+~H3buH4C@b +~H4KHjH3j|_M@4K>K? K?K?@O?k?7+~@49(˜4hK>ه`4 4+~H3j`b|H3_ubt4K>@7?k?ok? C"d6yh@tҔBshs 04P@ "dx40"d6yp@tҔBsps 0"dP]Z "d426yx@tҔBsxs 04PZ "d4"d6y@tҔBss 0"dPZ "d046y@tҔBss 0"dPZ "d46y@tҔBss 0"dPZ "d`46y@tҔBss p4PMZ P44+~H3bdH3btH3_ j`4K>K? @O?k?o+~H3` #D+~H3` +~7ZE 4BT4j+~S4jz+iCP}4 h|#D7ZE4Bh+~T+~UJj`+iT+iSJsjjK>@O?k?o+~TJ6s?j+~UJb`+iSJz7TJt ZCC4s?ߎbt4 0+~P=@+i43 c +~H3 X+i+~H3` +iH46h3+~H4`U+~SJs s S+iT6 Jj+iUJjJ4bbj+~6h3+~H36s?h3K>@O?k?o+~H44: @H3#DE d7Z(+~4?h3 K>َ@h+i44 s S +iH3j+iH3j+~H3j+~H3` 0+iT+~SJs0j+~T+~SJsj`+iS4 jz+iCP4 (h|+~4?h3 K>+~TJ6sj+~TJ6sj+~T+iSJsjK>@O?k?ok? k?DC+~EHj`+~S@6yӓ` hHs` xH6t?Bs?r #D7ZEd4Bpb+~Ph4` +~X4+~H3` "d6y@ҔBss 0+~PZ +~p4$H3` h"d6y@ҔBss 8+~PZ +~4"+~H3` h"d6y@ҔBss 8"dP Z "dh4 "d6y @ҔBs s 4PZ h44&4hs+~H3btH3b`Hd_ Mh`hd4K>K? K?@O?k?7PU4 ˜ c k+~4?h3 4K>@7?k?7k?!k?)C0@ b5Ҵ4Z x4?@4V 0z4z b5Ҵ 4R0z4: b5Ҵ4Z 4 0z4" 4_}Z˜ +~C` "4h3 ZE4BCB (ғ+~4h3 4z :b 2| (+~4 h3 ZE,4B8 @VB@t P4V+~4h3 4 4B4LKH+~H3`  +~H3` X4+~H44bH3buH3jv6s(h3c?c?k?^q7?4K>K?!K?)@7?k?ok? k?k?7?!,0,C44G0H DГt!4d "GZE(Ff +~^ Z0H +~H3` XГ+~H3` 8Гd 1HZ^4B^ 4Bf x+~P %4+~H3 (j|+~4?h3 4H3Js.` H3je+~H44bH3bdH36sh34K>K? K?K?7?!,0,@O?k?o+~S+~TJs`Jh sp@#D7Z0E4B8+~H3` `+~S+iTJsJ Sc4t+iSxJs+~H3`!+~S+iTJsJ Sc4t+~SJsa24cP m#c\(+~+~4?h3 K>H3` X+iSjc+~U+iVJJ tXj+~Sjc+~U+iVJJ tjS` z jK>@O?k?o_D_AZ˜ K>C` h4CBn Bn@l 84(4?z 4?4?4K>@O?k?o_D_iZS` 4B| \K>@O?k?o_C P4_U@<Z 44_Q44K>@O?k?ok? k?_D!+~H3`!b_Z+h H# 8+jH3` `E4dP4P| +h #D7ZhE4Bh# 8+jEH Z z 7ZP YH s s +iTBbtH s s 4btBH s jtH6h_ZK>K? K?@O?k?ok? C@sd4D P+~Pu@7? Bs d8b4c+~H3` (+~H3` Z^ A4BG tZ+~H4 xj+~H3` 4+~H44`b+~H44bH36sh3K>K? @O?k?ok? k?k?F+~TJ 4?j +~T"c6s4jX+~T+~S+~UjPj`XjH+~SJs` *C_ @Hs` +~H3` +iCHs` H+j_A4^YHz +jP}Hz+jDH` (+h CP=Hz 8hh` 8+~h +~h% H3 Ў +~+~S+r T6 Jspt H+~D+r S6c B@Hp c(+~V+~U+~T+h S6s @j`j 0jh+~T+h S6s j+~h K>K? K?K?@O?k?7k?!B44F B36s?`` k?#D7ZE4BK?` K?7?_ 4BЌb K?_)4Bd `K?+~H3 4x4_4Bh#D7ZEX4B@6?k?B56? S s!6u?B3 u  S s!6u?CS u +t0H66? 0k?J?%K?6s??k? J +~H5BBbH5B@bH3_jt4K>K?!@7?k?ok? k?k?+~H3`"8C@s`" Z+~@ 49Ї 8+h 4$4`34F`4`Z+~@ 849( 8+h 4$4`34F`P4b_ Z+h H< 8 @4+jZYX_ H7#+h +t0H$ +iF@ JsX PH s ZY _ H˜ C` X $H?u4_Z˜ C`"+h \H |k?' 4!,  9IW'HK?W+h T64b4Fc4`c#'Y79k?' $4!,  9IW'K?U4 7 uҶ  S s! x7c k?' $4!,  9IW'K?U4 8 uҷ  S s! v6ck?' $4!,  9IW'K?U4 3 5Ҵ t S s! w6cXc 4$4`34F`4d`4PY\K>K? K?K?@O?k?ok? k?k?D@У`%4_ }@+~H3 Ў` д4s 4Ds 4s Z_4+~+~C_4y Hs ` F (+~0+~ +~+~4h3 +~h д4 X+~+~h 4_40 0%д4#+~H3 Ў`#Ҍ#+~+~UJ` 8д4 Zxj_-4Bh+~H3 4DZ_ )4B0 дZ_4B4t X+~H3` @+~H44(bH3j`6sh3д4R p4+~H3b P4+~H3` #D7Z+~4?h3 (д_@+~h 4 H+~H3` 8д_@+~4ph3 д4P д_)4B@4 +~4h3_Z +~_YZ +~д4r@04z_=Z +~д4z@(Z_Z X+~Z_4 0+~4h3 ZEX@+~H3 І` (K>_%4+~h K>K? K?K?@O?+~H<p+r 43 |@Ӝd+~H3(` H44(+i46@4Bs bu0`?Bs+~H3І` H44+i46@4Bs bu0`?Bs@k?ok? k?D@ 03+i44@ Bs` C4xH|Hy ZҥC3s ZPa790 p0 ?C34K>K? K?@O?k?ok? k?k?k?!7?1,0,G+~TJ`` D4j`T4+h 4784? 6_jv+h h 8+i444 `34"b4$b P Y4Xȼ+t04hCHsh4P Yhe4X444? 6_jvD C"fٙ6s k?' @s` ^4z`|Ӝ :k?'9 G'HK?3j4P?eCk?' $4!`,  9 W'HK?3h4K>K? K?K?K?!7?1,0,@O?AD@K?@ @Ad@K?@ @A@K?@ @@t@K?@ @A@K?@ @A @K?@ @A @K?@ @+H501H309 k?+H51AH31I k?+H51aH31i k?k?7T4 7>4Zc>(7>4 4z4VS"4zS"+~H9x79?h9x9+i43 `P ! y +~H3X7>V BK>Y@7>k?7k?!C+iH7 H+iH3 X7>#$79xPJx0` +~H3 В` c>D7>K=K?!@7>k?ok>k>k>k>k>k>k>k>A 4+iH3 @6s=b@T4 +~D4 !$+iE4D+iS6g `+~FJ @k!(4 Hxj@ 4chx5:_4H HBssh (Hx#D7Z4_4B07ShxZ PQH Hb 0HX#D7ZVBHXH HVB@+~+iH4 @ #D7Z_4+~H3 Ў` K>Y@@+iTH3 @6s=b5J @@@` p+~H3X#D7ZVB4c? 0K>Y_44c?`'K>YK>K>K>K>K>K>K>K>@O>k?7k>k>k>k>k>k>k?k? k?@l4+iEH @4 s 4s!4s +i@ @+iH: H@H @H @4 #D7ZHY+i4Hh3 @T+iSJ HJy @@$@X4H4 @4!(4 +iH3 HBss4Dt (7>+~4h3 4PIH9 H@@+iH4 @4?+iS+iCJz H@Hy @7>@4Ht @4 %(4@ 4 +iH3 @6s=bHT4 +~E4 !$+iH+iS6g `+iFJ @k 4 Hxj@ 4hx5:_4I HBss4Dt #D7ZHx7ShxZ I HPA4BH @ #Dt +~Hx6hx֔"d 6s b6b5"b6"b5"b 47Z_4+~H3 Ў`"4@H @H @6s=bT+iH4 @4 #DX7Z(4 s +~H4x6h3x֔+i45 `"d 6s b6b5"b6"b5"b4@@+iH4 @4 4!`#D@dH# @@@+~H3 Ў`!@44?!(!$+~E+iS6h +~G+iS6f `Hx95: O   Z_%4BHHx7Z?hxZHX VB4??eHx 47Z`_44K>YK>K>K>K>K>K>K?K? K?@7>k?ok? TC+i @3h` P4$hZY4 ^4"ZYO4>`>K>K? @O?k?7U4Dc;4 `7;4D4ғt 2 w( v8V"T"4?ғ4DS"4@S"+i O49h@7;K:@7;k?7k>k>k>k>k>k>k>k>k>+i 4h3`+iH3 @6s=`@RH@@@ p@`@P@ @@ @@@ @@p@P@ @ @ @ @@ (@@@+i @Hh `@@@+iH4 @4 (4Z@|@+iH4 @4Z +~_e4BH3X#D7ZVyBXK>Y@@+i h `+iH4 @4 @4B@(@+~H3X#D7ZVBK>Y@L@@@+~H3X#D7ZViBHK>Y@@@`@+iH4 @4 (4\@@+iH4 @4\ #D7Z4@L@+~CHsX#D7ZVqB@@HsX#D7ZV1BHsX#D7ZVBK>Y@ |@+i Sj``+~CHsX#D7ZVB@@HsX#D7ZVIB@`@HsX#D7ZV BK>Y+i Sj``+~UJx4Ɗ@"jx#D7Z_ 4+iH3 HBss4Dt (+~#D7Z4_ 4BPH:x7Sh3xZ+i43 `+i z O H9 H@ l@@@@@+~T+~SJzx7Z?jzxZ+iS6s ` JX+~UJx4Ɗ@"jx#D7Z_ M4+iH3 HBss4Dt (+~#D7Z4_4BPH:x7Sh3xZ+i43 `+i z OuH9 H@ @+iH4 @4,#D@ 44 k>k>4k>+~I7>+~G!d+iF4 I3 Ў`,b D HX5zVQBH @e @P@I3 Ў` PH @+~Ch 2@@@@Hs І`?H @e+x#DHX7ZVB@4@@ @+~T+~SH:x7Z?jzxZ+iS6s ` JX+~UJx4Ɗ@"jx#D7Z_4+iH3 HBss4Dt (+~#D7Z4_4BPH:x7Sh3xZ+i43 `+i z O%H9 H@@@ @+~T+~SJzx7Z?jzxZ+iS6s `JX+~UJx4Ɗ@"jx#D7Z_u4+iH3 HBss4Dt (+~#D7Z4_4BPH:x7Sh3xZ+i43 `+i z O H9 H+iH4 @4d @@@ P4B@@+~H3 Ў` p+~+iE4+~CH @d 0+~@ @Hs І`?H @+~T+~SJzx7Z?jzxZ+iS6s `JX+i@H$ @4+~H3 Ў`" +iI4 +~H+iS6j `+iG4h+~EI3 @k!IxZ Z O H H` R 8#DHX7ZV B4_aH H HXH HV B@T@I4 @4 4 Ix6s 0ix#DHX7ZV IB@4@H@_Q4I4 @4 *@@+~H3 І`>MI3 @` H4h @+i+~H3X#D7ZV yB+iH4 @4 $8#D7Z4@@+iH4 @4 #D7Z(4+~UJx4Ɗ@"jx#D7Z_4+iH3 HBss4Dt (+~#D7Z4_4BPH:x7Sh3xZ+i43 `+i z OH9 H@p@+~H3X#D7Z`VB+iH4 @4 (4_@+iH4 @4 (4 (#D7Zh4@P@+~H3 Ў`!K>Y+~CHsX#D7ZVB+~SJzx7Z?jzxZ+iS6s `HtX z V9BK>Y+iCHz P@p7Zh| P+~SJs Ў` K>Yh` P@P4B+iCHz P_ U7Zh` P+~SJs Ў` PK>Y@4B8@`4B(#D7Z`4_i@K>YK>K>K>K>K>K>K>K>K>@7>k?ok? k?k?k?!+iH4 @4 @x4BH@@+~H3 Ў` +iH4 @4 C44 +~E4Hs @g h+i_u@Hs @f @0@H Ў` +iH3 @d?Hs @+iH4 @4 "#D7Z(4_q4B@@K>K? K?K?K?!@O?k?7+~H3X#D7ZVB+iH4 @4 _4B@@+~H3 Ў` @K>+~H3X#D7ZVBK>@7?k?ok>k>k>k>k>k>k>k>k>+iH4 @4 X4 +~H3X#D7ZV)B@@+iH4 @4V@(D_4B4xh3 @H @4s X+i H3`` 04 _I@$(K>Yh @+i 4h3`@P@+~H3 Ў`#K>Y4 +~C4 !$+iD4D +iS6e `+~F+iH4 @"H H@`4 @(4.axHsxBbB4"bHsx2@(4 b4"K>YJ4b84Bp4"hK>Y j@h`x5:_4H HBssh Hzx44_4B07ShsxZ O1H H@@@4Bj@h`x5:_4H HBssh Hzx44_4B07ShsxZ OqH H@@_M@Hzx7Z?hzxZHX VBh+~Bs4tt B`;+i` 8#D7Z4_4BH3 І`<+iK>YK>K>K>K>K>K>K>K>K>@O>k?ok>k>k>k>k>k>k>k>@Xk>+~H3 Ў`!K>Y+iL4 +~C4 !$+iE4D +iS6d `+~FI @faHK>Y`Pk!2Hsxj@h`x5:_4H HBssh Hzx44_4B07ShsxZ OIH H@@@@Hzx7Z?hzxZHX VB+~H3 І`>I @K>YK>K>K>K>K>K>K>K>K>@O>k?ok? k?k?k?!k?)+iH4 @4!b@'#D :4((4)#D+~UJx4Ɗ@"jx#D7Z_4+iH3 HBss4Dt (+~#D7Z4_94BPH:x7Sh3xZ+i43 `+i z OH9 H@ @_E4B+iH: HCSs4Dt 8+~+~H3XVB@4BUJx4Ɗ@"jx#D7Z_ 4+iH3 HBss4Dt (+~#D7Z4_ 4BPH:x7Sh3xZ+i43 `+i z O9H9 H@ @+iH3 @6s=`@R@@(@@@@@@@@@ @@+~+i@ pH# @_@Z_ 4BH@ 8@4@`4B+iSJg P4+iC4 4@ @Hs @h$46s=bHs @e 4 `2 @ P@+iFH4 @4!(+i@ @_@+iEH PH @@ h P@4+~G+~SJzx7Z?jzxZ+iS6s `HX z VBHX#D7ZV}Bh Ph @S@ jg P@4+~C+~SJzx7Z?jzxZ+iS6s `HtX z VBHsX#D7ZVBK>+~T+~SJzx7Z?jzxZ+iS6s `JX z VBK>@p@_@+~H3X#D7ZVB K>+~H3 Ў` +iC4+~DHs @6s=bP+~@@Hs @e _@H І`?Hs @+~H3 Ў`8+iH4 @48#D7ZD4B8i7Z`_4K>K? K?K?K?!K?)@O?k?ok? k?k?k?!k?)D+~H3 Ў` K>+iC4 4 +~EHs @d @4Bh Hs @@4BHg 486s=b4_i4B_ -@H І`?mHs @K>K? K?K?K?!K?)@O?k?ok? k?EH#4c?`@D4Cs4Dt ZYx ED4B(YO qXd b`4sH h4K>K? K?@O?k?7k?k?k?!k?)k?1k?9k<+~H4X"c6s4 (4CSs4t ("c"c6c 7Sk<6c t+~D4J+~GK<7<7=XV eB bH Ў` PC=sh 8HX7=V BH І`?gK<\KK? K?@O?k?ok? +i CHy 79?hy+iS 9 +i T6Jz HO +iTHs s  H@j @44K>K? @O?k?ok>k>k>k>k>k>k>k>k>+~H3X"64 t(4 +~H3 І` +i4h< @_5@ +iH< @+iH5 P P4 J+~H3p 06s +iH4 XJ uj8+iC+iG+iJ+i I+~H+iF4Hs P` H4z PH HE X H HBssl!@+i+i DIZ XKS06skS0I<VB h| PI І` Hz Ph @\FHs P+i @3h`>Hs P4~h @H4 HB`&Bs6s?`U@`@p@`@P@`@0@ @@@@@@@@@@@p@`@@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@@@@(+i+i40h< @+i4h< @+i4 h< @+i4 h< @+i4 h< @+i4 h< @+i4 ph< @+i4 Ph< @+i4 0h< @+iH3 HBss4Dt,+iH: H+~^ 49(˜ (+i˜43 @  j|"d6zX+iH9 HBtXҔC3s @"dN-@ "d+i4l h< @6z+iH9 HBtҔC3s @"dN@ "d+i4X h< @6z+iH9 HBtҔC3s @"dN@ "d+i4Z h< @6z`+iH9 HBt`ҔC3s @"dN@ "d+i4^ xh< @6z+iH9 HBtҔC3s @"dN @ "d+i4\ h< @6zp+iH9 HBtpҔC3s @"dN@ "d+i4h hh< @6z+iH9 HBtҔC3s @"dN@ "d+i4fh< @6z+iH9 HBtҔC3s @"dNu@ "d+i4pXh< @6z+iH9 HBtҔC3s @"dN@ "d+i4bh< @6z+iH9 HBtҔC3s @"dNe@ "d+i4dHh< @6z+iH9 HBtҔC3s @"dN@ "d+i4zh< @6z+iH9 HBtҔC3s @"dNU@ "d+i4|8h< @6z+iH9 HBtҔC3s @"dN@ "d+i4th< @6z+iH9 HBtҔC3s @"dNE@ "d+i4(h< @6z+iH9 HBtҔC3s @"dN@ "d+i4h< @6z+iH9 HBtҔC3s @"dN5@ "d+i4`h< @6z+iH9 HBtҔC3s @"dN@ "d+i4rh< @6z+iH9 HBtҔC3s @"dN%@ "d+i4nh< @6z +iH9 HBt ҔC3s HCN@ +i+i4vh< @CHz HCSs4t "d#$798N4 `"dHt HB6s?h2B` ("d+i4xh< @"d6zP+iH9 HBtPҔC3s @"dNM@ "d+i40h< @6z`+iH9 HBt`ҔC3s HH3 HN@ +i+i4h< @H3 HBss4t @#D+i4Xh< @+i4j8h< @7Z^m4+iH< @24K>YK>K>K>K>K>K>K>K>K>@O>k?7k>k>k>k>k>k>k>k>k>k>k?k? C+i FH+iGH H+iHI P+iEH X+iSJi @+i DHF X7>!7>hh`0h`8Hs(h4s8h Hh Xi P4_hs@+~H3 Ў` +i +iD4+iH4 4+~EH @ `I X j`@jf@_4B H @c ^@H І`?H @+i h*+ih+ H+ih) @+ih- X+ih. P+i h,K>YK>K>K>K>K>K>K>K>K>K>K?K? @7>k?ok? DH+}43Ps 0+rH:@ Z4y ^u4z H 4RHK>K? @O?KS 4` 4?kS+~@H<pK\T3` t 3` KS6s?kS@kT@k?o+rH3` (CV B K>Ht4 J@4 04r4 `4P4Hz+}43PS Q U@NHz h`4K>@O?k?o+rH3p` 0CV yB˜"8K>ه"*Ht4 R@ 4 @"c44!P"c4"c6s hs(Hs` +}Bs` 0#$"d6shs43P8hsHz^)79 h|4N4 Ph| +~4?h3 Hz+}43PS 4Q -4B?Hs hsx46s hs(Htht ht3` (4`03` hu4K>@O?k?o_EC˜pK>_MZ_Z+~H3 І` +~h x+i h +~H< K>@O?k?7: k>7@78k?7k<4k<_7<+~H3 І` K KK? K?@O?k?7k>k>k>k>C+~K3h378#$79(NX78#$^790+i (h<C078#D7Z8k:4k:)+i T4j+i E#D7ZZH+~D"c6s hX_7:F"c6s4hXHK36s?``k34^4B8+i H4J6j4b+i QH: 8+~7K>K>K>@78@ @'$0K?@ @@`@'$0K?@ @@@'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@@K?@ @k?@@'$0K?@k?@@'$0K?@k?@z@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?7+~4h3 4##Q79 K>@7?k?7k?1C7?7?![7?) @0H7?JyJzVBK>K>K?1@7?k?7k>k>k>E7>7>7>Y[5X x0H7>Y[X H0H7>Jy?Jz?7>JJVBK>YK>K>K>@7>k?7#C_7ZdK>@7?k?7#C_7ZK>@7?k?7#C_7ZK>@7?k?7#C_U7ZK>@7?k?7#C_7ZTK>@7?k?7#C_7ZtK>@7?k?7#C_7Z4K>@7?k?7#C_U7ZDK>@7?k?7#C_7ZK>@7?k?7#C_7Z$K>@7?k?7#C_E7ZK>@7?k?7k>7>,0-,0,"d6s.` 0H 7>7>[M7> 0H[=7> 0HK>6?@k>7>7>7>[7> J,q1N1 7>.1N K>6?_k>1HK>YK>7>,0-,0,@7>k?77?1,0,0H [7? 0HC?d K?!k?'1 f 7?!h.` t H+~[UK?!C?4` (0H K?!N94B4 h3 1HK>7?1,0,@7?k?74##Q79 #DE <7Z (+~4:#$79^4B4K>@7?@P@K?@ @@D@K?@ @@ @K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@ $@K?@ @@l@K?@ @@X@K?@ @@@@K?@ @@@K?@ @@@K?@ @@p@K?@ @Ah@K?@ @Ax@K?@ @@@K?@ @A@K?@ @A@K?@ @A@K?@ @@ @K?@ @@X@K?@ @@0@K?@ @@@K?@ @@@K?@ @@ h@K?@ @@ @K?@ @@4@K?@ @@ t@K?@ @@D@K?@ @@@K?@ @@@K?@ @@P@K?@ @@<@K?@ @A@K?@ @A 8@K?@ @A@K?@ @+H53H33 k?+H51H31 k?k?7[7? xK>C?4` XC?t C?NK?!C?4&K>D DK?!K>@7?k?7[=7? 4[57?C?t C?K?![=4B@4&K?!J6sj[7?4K>@7?k?7k>4[u7>[e7>C>C>!z@BX@(@@@@@@@@@`@K>7>7>.` .1( 0$ h4X4K>N)K>04(K>K>K> 84K>`"t K>NaK>K>`"t \N)K>\K>YK>@7>k?ok? k?k?EFDCZ[ Y ZP4[ mY *Hs` 4HN94B?4K>K? K?K?@O?k?7k?1k?97?7?7?!_7?)!`K>NK?DNK? K?!b @79NK?| : NK?pk?!NZ|"+~4?h3 K>ZNQK? N9K?[ }ZK?!b K?)NyK?K?)b K>NQK?K>K?1K?9@7?+i 446""+i B3` 8444s t buB3`?s@k?ok? k?DE_-ZHNQZ7?@s+i 44 Bs` 0 44 b03 Bs`? b03@+i 44C Bs` 7?C7hh|K>K? K?@O?k?77?[7?! K>K?k?!7?!7?)#_57 M}7˜ ZK?!K?)HUT6k?!B"K?!K?)Tc[4B+~4?h3 K?b K>MK?K>@7?k?77?7?7?!_7?)"K>K?k?17?17?9_K?K?)` 4M-K?4K?1K?9T+i 463 Bs` H7ZSJB Bs` 6BK?93M%7Z\!UK?1K?9V+i 47B"K?16tk?1Bs Bs` PK?9`VK?1B Bs` 6vk?1K?1K?9ӿOBb[4B+~4?h3 K?!b K>MK?K>@7?k?7k>k>k>k>k>7>[7> 7>@47>7>_]7> K>`?K>M-4B?M5K>DK>EYȼ!(K>_uK>!4MK>FMK>Cf@@ d ZM4ȼ+~4?h3 +~H3 Ў` XK> d M ZK>PQX[Z44K>` K>MK>K>` K>MmK>K>` \MEK>\K>YK>K>K>K>K>@7>k?ok? k?k?k?!ECFMZDMZ (#D7Z(B \4BhH`_ZDZȼ!(Y"5!+i 4'Ҷ Bs` 7$?@sv Tҵ03u?03t f "5 0Bstҳt "5?ҳ0MZY"5?Ҷ[ZK>K? K?K?K?!@O?k?7k>[7>"8K>YK>4 +~4?h3 K>Y7>7>7>_%7>!K>Y_K>+i 4#K>s 4btK>5 @4ҳ c Bs` 5?ҳK> VM T \ K>5 PTҳ c Bs` C>""5?ҳb[4B+~4?h3 K>b K>MK>K>b K>YM]K>K>YK>@7>k?7k?17?7?7?!_7?) K>K?_ mK?˜K?4 |4cK?!b K?)M}K?K?)b M]K?[QZK>K?1@7?k?7[!7?!K>[7?!`K>7?![7?)!8K>MK?!K?|@7k?K?`@(6s?+~4?h3 K?)k?K?``K? k? t |@ k?K?!K? S DK?\ K?)[@K?)b K>MK?!K>@7?k?7[a7?!K>[A7? K>7?![7?) K>MK?!YK?3`+~`@4?h3 HK?)DK?!\ K? S C?[1bt?K?)` K>M5K?!K>@7?k?77?[7? K>[9K?K?` +~MK?+~H3pJs?k?Bs` `+r45 K?s BsbK?6k?B`?K?K>@7?k?77?[7? K>[K?K?` +~M K?+~H3pJs?k?Bs` `+r45K?s BsbK?6k?B`?K?K>@7?k?77?7?7?!_7?) K>K?M K?[qZK?!` K?)M EK?K?)` K>M K?K>@7?k?7[7? K>7?7?!7?)_7?1 K>K?``(K?+~4?h3 0K?)K?!M uK?[9ZK?)` K?1M K?K?1` K>M K?!K>@7?k?77?[7? PK>M K?[yZK?` K>M MK?K>@7?C\7?4@k?7k?1[ 7? K>C?d 7?[4Bt 0K?!C?4` hCCM m4BXf +~4 h3 @K>7?!.`1'K?[ ZK>K?1@7?k?oY+~C4zM 44sb`K>@O?k?7k?!+~CHs Ў` K>7?[7? K>DK?ZHs І` (4hs #D7ZpB4B[@K?` K>MK?K>K?!@7?k?7[ Y7?! 0K>C?'c?c?[q7?K>@7?k?7k?T4~c=c=7=B`!Bҳf p+~f@d 07=p+t0t `+t0J#$79JMM4B7=49.MU4BX43u ` :Js` *JVB|\D ,ZK_57?[ ZC?4` `K>C?t C?K?!M4B(4&K>DK?!K>@7?k?ok? k?k?FCD4+~H3 Ў` 4\@ 4` [ IZ +~[ )Z+~H3 Ў` \YZE 4+~H3 В|04K>K? K?K?@O?k?P 7\"d6z[ Y@K>@7?k?77?[7? `K>_aK? 8+~4h3 K?b K>MMK?K>@7?k?7k>k>k>k>k>k>k>k>k>GC@h04ȸ 44 4 +~I@s` @sb p4d Z_Y B4c>c>k>[17>I3 Ў` 4?]4cP\K>YK>K>K>K>K>K>K>K>K>@7>k?ok? k?E+j049_4 +t0H#` 8DZHy_HxHc`? [ZK>K? K?@O?k?7k>qk>yk>k>k>k>k>k>k>k>k>+~H#p4c?+r 43 sxS6h !!!d+~J!$7>!+~G7= ed@s6s?`@H@h@@@h@@@@@`@P@@@0@ @@@@@@"dHd57=5M)Hx5w7=5YM),p`57 Hs6d"d86w c="d6w "d6w 0c=#$Z79 HMaXHZVeBHZV=B4c=c=H7=VB4c?h7=KqK>yK>K>K>K>K>K>K>K>K>@7=k?7k>k>k>k>k>k>k>k>k>k>k>k>FD444 4 4J+~M@` 0sn  0#`?s l`Z L5M4BZMa5G 4?i x\H H ZYM9X H `+`4c= #t4Z 07=4V 4@ 4F " #k>1t4T 84Z7>1+h\4 #4` 4s?4` " #4s?rZ4K>1 s s!6s?t k>1 #4s?rK>1 PZ#$79MK>1@` t 03`? 03t4\!Pk>9 " #t4T 84Z7>9)\ #p44s?rZ4K>9 s s!6s?t k>9 #4s?rK>9 `Z#$79MqK>9@` 8t 03`? 03tk>9t4؂ 4 8 #k>Qk>A4@4 4 k>Is6s?`Y@@x@h@X@H@8@(@@@@@@@@@@@x@h@X@H@8@(@@@@@@@@@@@x@@X@H@8@(@@@@@@@@@@@x@h@@H@8@(@@@@@@@@@@@@@X@@8@(@@@@0@@@@`@@@x@h@@P#D7>AZ7>I"\MK>AE4 4k>II"d6s `k>A4Z7>Q \J7>a7>qZM7>y" \4 h44@7>7>Z7>I!k>A 4 #D7Z hB4B "`K>1K>9 t @k>1E ,@0ZM794 H H  @Z7=M9K>AK>Ib hK>AM 4BX` (7>QZ7=.pM 4B Z7=M K>QMZ H F * ZM 79 H\K=YK>K>K>K>K>K>K>K>K>K>K>K>@7=k?7k>k>k>k>k>4k>Z7>ȼ!7>Z7>!KM 4K>b M K>c>7CH Ў` C> " b4?ғ`_7<+~H3pe0CD_@Hp e+~H3 І` ` 8KK>K>K>K>@7' K?ZT"B5 p44D ҳ4 " v(w 4""B5 4D"bZZK>7?,0,@7?KK9+i 45S`@x79?CS` XTғv B04?ғCS` 7ZS`_79?4CS` PTғx 2"79?? 7ZCT?ғb+i @4<k?ok? k?k?k?!k?)EHKCMZG4Є@s` (Tғd  b04?ғ c (ZYMAX 8\@s` 4cEU44K>K? K?K?K?!K?)@O?k?7k?k?k?!DK+i 4:4kS7;kSh94AkS #D7Z A4B4c?MZ``+~|` d 4?h3 h4Z|+i EA4˜ 4jc74K:K?K?K?!@7;k?ok? KCr@+i H3` (444` c Js "+~4?h3 @44$HZ = S 4 c  J|K>K? @O?k?X-7K>@7?k?79& K>. &1 f .7S?&17S?`@@@@@@@@@@@X4 1%1%.1%N0 0$  +~4h3 41%n4p1% 4X1% 4@1% 4(1% 41% 41% 0$ 4 Z4BZ-@4K>@7?k?7K>JJy7Z?@@@@@@@ @(@0@8@@@p4H 7 8 7k?' k?'I9)W'HK?Z +~4h3 4qZZ 84 (4j X4R x4: h4" H4 4Z@4K>@7?k?79&!@S/6s?`@*@@@@@@@40.0Nx0h0h0 0$  4j0 0$ H484?Z4B8K6s?`@@@@@x@@4 @k?' k?'I9)W'HK?HZ8Z!@`S @Z4Z@4K>@7?k?ok? 4(##79 C4! 44CX4 44C04 44#C7 䇀 4 C04 x44 cC@4x  H44C4x  4C4 44K>K? @O?k?7k?!"d_=6c +~4:#$\ 79 Ї P#D\ 7Z D Z #DD7Z 4H4c?c?44s`c?\7?4cr_4s`\E@C@+~H< Г04K>K?!@7?@@K?@ @@@K?@ @@ @K?@ @@@K?@ @@@K?@ @@@K?@ @@8@K?@ @@ @K?@ @k?ok? k?k?FEH(`!@@d`4 hA$ $I9)W& 9 G'HK?4( T4ƊZH(t dHz@ 4cC@dHz`H( JH(t d:Hz@ 4cL@dHzH(` @0` LmZL]ZK>K? K?K?@O?k?ok>k>k>k>k>k>k>k>k>k>HMLIK>C>C>ҳ6s?;`@j0@P@@@@ @@@@@@@@@@@p@ @XҴ`4P44@44(4Ҵ4ƊG4 @4 @@4 k?' k?'I9)Wk?' 9 G'HK?DL48| 4C 4(ܠLZ4 Ps ZL4BLYH 4R`04 hh(hmhlhihj `g`k0h\K>YK>K>K>K>K>K>K>K>K>K>@O>k?7Z7?!K>K?6s?d0+~4?h3 #D7Z A\4B4k?k?)k?!K?d :d@b 8K?)Bf 8K?)Z 7?Z7?!Z7?)K?)`@ +~K?!`@K?`@4?h3 K>Z7?1 K>K?k?C?7k?k?4K?K?)_K?!\#D7Z HA4BZ9@K>@7?k?7k?1CZ 7? 4C?ҕ4( Hs` Ҕ P4`4&+~CK?!+~4 h3 @4C? 4?4hsh`K?!K>K?1@7?k?7k>k>k>+~H3 І` 4KTKSk>KSk>KS k>k>k>6? k>7>+~EZ7>я?] K>Js `H ` AT4B?K>4c??j7>$  7>$ I9)WK>'HK? k?' 7>$ I9)W / K?K?K> K>YK>K>K>@7>k?7k?!k?)CDZ I7? rL 5ZK?`+~``0 c 4?h3 +~H: A4BZBz K>L ZK>K?!K?)@7?k?7k>k>k>k>k>_m7>#H@s0~ +~4h3 _UZE+~H3 Ў`"@s6s?`@@@8@@@@@x@P@`@zZ 7>!Hs( e K>jt7>Z 7>!zC$K>K>b DLUK>Hs( e Hz@ L%4BZ )7> Hs( C>bt7>7>Z 7>ɏ Ht(7>.a."@z4&SRZa@Ȝ RHs( e Hz@ C@hd#DA7Z CZK>YK>K>K>K>@7>k?7"d6u CS6s?`@:@@@@@@@@X@CTKZ(Y Z 4BKS( 3 BzZ 4BKS(y @ ZZ 4BKS(.y Z 4BxCT4&:KS( y K3` (ZK:Z I4B #D7Z A@K>@7?k?7k?!k?)4k?_7?| xK? Z_4BXHd_ZY+~H3 Ў` _5ZCZK>K?!K?)@7?k?7k?!k?)k?k?_7?|#K>_7?Ȝ`"K>HB0~ Hv+~4h3 jJJ x+~JJ `4 JJ @4 J J 4 BB 4 h3 B6s?`@@@@@@p@`@P@@@8#D@404 4#D7Z `A(4Bk?' &I9)W& 9 G6 & 9 GJ(J('HK?@h_ Ju 3C`ZCPZK>K?!K?)@7?k?7k?!k?)k?1k?_M7?ȼ zHZ@zHdZHz@ ZHz@ ZHz ZZC`ZK>K?!K?)K?1@7?k?ok? DK>C>C>k?Ҕk?ҵk?ZYX_ K>| @4`s4(`sZY4[4(\K>K? @O?k?7k>k>k>k>k>k>k>k>k>k>[Qk>| #DAs` 7Z A4BAsBn #D7Z Ah4Bk>_7>ɼ#I@0~ +~4h3 ZHb H#D7Z A4B(4k?4k?k?4Y_u Xɜ84#D7Z PA`4B ZB<4BIJe(@(4? jd4_ S j h5 F@5?  H4?@`j4@0h 6s?4_j ZZ4BxDd!fAH f` Z_-79? JyZ_79?Z ZY7>>-K>` cZ_59? Z_79?ZU ZYE7>=K>` ( jDd!4f^ jiB ZK>YK>K>K>K>K>K>K>K>K>K>K>@7>k?7k?1k?97?Y7?!@K>k?!_ %7?!Ȝ H@sh #D7Z A 4BLK?$p $xI9)W4t & 9 G'HK?X#D7Z A 4BHz(LK? K?BZK?b K>LK?K>K?1K?9@7?k?ok? C+i H3 s@D+i T+i SJs c J Jt`Jc`  P\s@0ZLX 4d 4K>K? @O?k?ok? k?k?k?!k?)k?1k?9CFD %3 H+i J+rS6i г6s?`@ p@ @(@p@@ @P@@@@@@@@@@ P@@@p@`@P@@@0@ @@@@@@@@@ @X@p@`@ @@@0@(@@@@@@@@@@@p@`@P@@@0@ @@@@@@@@P@ @ @p@`@H@@@0@ `@@@ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @@x@ @`@`@x@ @@ 0@@ X4 4 4+i H4 IS +i H3 cj`4? (jh+i H5 IV +i H3 cJ` j6iV fh4 @@s@s 3 Bs) 44cP4f G @@s *4@s 3 Bs"4cf4 @t@s 3 Bt @ 3 Bs((44cGf0@ @st "4 3 Bst!4cf4 6 7ʗ P 8f2@s  4cf@s'(4 &ZfP@s&:&04cf"@s@Y_X|&44G :Y_X˜&"C@Y_]X|& 4G@Y_%X˜ C@4f4 @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ`$4@84cfXG @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ c f4 @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ`#4cfG @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ` 4cf74@f"@s6s?rP44cfpG@s6s?``Bf@s6s?r44cGf@s6s?r4cπfJ@st!44cfG@s` czf@st 4cGfJ@st :4c׀f\@st K>و p %gPIE ZYX_ W˜hK>4c?giE 84-гг` \` 4K>K? K?K?K?!K?)K?1K?9@O?k?ok? k?k?k?!k?)k?1k?9CH4 # I4 IXyBI+i T4j +i Sjh +i Fh @h H4 ZY4_ W04xH @ 444@ 44@b JI`@H3 ci`|i8\n @b I@eҦ+r4* x+i e4 @s : 4c S Bs 4cee`+i 4h3 ZYX_ W˜+i 4ce4K>K? K?K?K?!K?)K?1K?9@O?4CT6?r84 S6u?B046?r6 4k5@\@k?7k>qk>yk>k>k>k>k>k>k>k>k>k>k>k>k>k>F44k>)4 4 4 k>Ik>Y4k>i4hh`HH c 5k?HBH44? jt6_jt`@4 *44 s"4h(h(``k>9 7.04 44+r40 5s?s56s?`@ @ @ @ @ @ x@ @ @ H@ 8@ `@ @ @ @ @ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @ @ @ @ x@ h@@8@ @4@`) 4 s" 744Ƃ!Xk>Y@4r@X4baH4P"ʂ@*44R"4j4 4 H4 r@(4Ȃ!4ʂ :44肝 84 446444h s"44H s"6?S j sI`E4 s" w"E@4&@`Z_7>˜(DC> s"@q r@4X( 03q Z40k>_7>˜(ZD@q(BC> s" 044(44K>)74rGk>)'4 5J4` s"'4 5J40 s"4`sE4c4s@kH44> 6_b` 74 (44@s_`s 7} (T03b 7`#+r484}"q j 7o :o@`&*@:4} @44@4Z}!8 03"   Btҕ Ҕ>Bt@b  Bҕ Ҕ>Bt@@bu ss>Bs@֟b6@ ׍   Btҕ Ҕ>Bt@b  Bҕ Ҕ>Bt@@bu ss>Bs@֟b 7= 4}#Z@ 844> B ` 6_b44c@4E4 s"4 @`4?H4 Z@`4 *@`44?4K>97l @5)" K>I0N`"k>ik>IN4 k>9E4 s"T 4cS  Bsb 715s?``KK>Y H@4k04@s` 4ck@shP`NHS (hX40H4K ]4Bh K>i `4004 @k>i4#D@ 7Z H K>i4k> b3b * b3 "K>6s??k>40 `4h 4K=K>qK>yK>K>K>K>K>K>K>K>K>K>K>K>K>K>@7>@ @K?@ @@ @K?@ @@P@K?@ @@@K?@ @@P@K?@ @@h@K?@ @@p@K?@ @@x@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@p@K?@ @+jH3d 4?z 4?@4?@k?ok? DCZ#$79 PK 404c"d6z XBt XҔ@ss 8"d7ZK4y "dH6z `Bt `Ҕ@ss 8"d7ZK4y "dH6z hBt hҔ@ss 8"d7ZK4y "dD6z xBt xҔ@ss @"d7ZK=4y "dD(Ӝ6z Bt Ҕ@ss 8"d7ZK4y "dH6z Bt Ҕ@ss 8"d7ZKU4y "dHH6z Bt Ҕ@ss 8"d7ZK4y "dH 6z Bt Ҕ@ss 8"d7ZKu4y "dhH(6z Bt Ҕ@ss 8"d7ZK4y "dH06z Bt Ҕ@ss 8"d7ZK4y "dH@6z Bt Ҕ@ss 27ZK-4y #D HP#D@7Z 4K>K? @O?k?7+i O49 4_4BK>@7?k?7+i M 49 4_4BK>@7?k?7Y+i _4: K>@7?+i D< ׀"e 84@+i D< ׀"d 84@+i D< ׀"b 84@+i D< ׀"a 84@+i D< ׀"c 84@+i D< ׀4 84@+i D< ׀"f 84@k?7OG9 4_u4BK>@7?k?7K9OK 4_4BK>@7?k?7Y)7? 84?Y 7? 4?K?OqK?K>@7?k?O7c0K>@7?k?7#DB7Z (+~4: #$79 [a4B4K>@7?k?ok? DK48| (ZYM@ \+~4?h3 4K>K? @O?k?oU4+r474: Hs` @6hyZYK4``0\_ +~4?h3 4K>@O?k?ok? K# ` xDHz@ bCTҔ@s *KAY H| K>٬p?Hz4K>K? @O?4CS` T424+i 47 4~B03` (6??s|U6?Tғx JB4 ғ bx@6y 6?4 btCT?=6+i `6 @4< k?ok? k?k?k?!k?)k?1HC_uIF@"`4@֓c tHs t Hs0`!+~+rH3@` @s(b KiHz hh `i(TSb6b5"b4GH0` Y4?"$X xX4B7? 2 +~@ H: 4? " xZYB X P+rH3@` @s(b K Hz hh `i(`4~G_Z˜ *k0h0k c(44?K>K? K?K?K?!K?)K?1@O?k?ok? k?k?FDEZ_Y|4KZK7|@Z+~4?h3 #D@ p7Zp@4?KY4ZY_WK>K? K?K?@O?k?ok? k?k?k?!k?)k?1DEVB+rӜh<CccsֳBH H0` h4H ` (+~4t??4269 h `\Ph H0+~h3 VB+r43h<4Bw6??s42tX6?V6?s42 t6@"p+~I+~G+rH42I3 `"(d BuҴt t!@4s u rH0 `4u| Bst "Cu *h K>K0?| h P\ p bH0 P4t| Bsu Ct=+~K0?| VBWi4c7??sfX7?V6?sf6@ uH0 +~h 4K>K? K?K?K?!K?)K?1@O?k?ok? k?k?k?!k?)k?1_MK#D (!@tc s H0` G+r4)He04zYB0X JI3@` @s(b K!Hz KZh0GewHe0 K>`h `(K>K? K?K?K?!K?)K?1@O?+i B56? h44 4>4CSw"CS6sCS"6??7Zb+i @4< k?ok? k?k?k?!k?)C4K148ܠ +~4?h3 H4`!2Hg44ecsB g  f Hs h @s(`(@uTS@h_ Jv 3Hc0` R_mZh0DHs h @s(`(Hc0` 4^h0\K>K? K?K?K?!K?)@O?k?ok? DC_Z< H4_Z˜4 K>ل` Hs k K>K? @O?k?ok? k?k?k?!E4+r4'4:c  ZYK 4 4c\f_c 4K>K? K?K?K?!@O?k?7k?k?k?!D+~TJ Ў` +r4?j c=H8"hC+~H3 6s `@@@@@@@@h@@@X@`@@@@@"d(6c"d6c"d6c"d6c"d6c0"d6c`"d6c"d6c"dh6c"dP6c"d 86c"d 6c0 C"d 6cP+rh 7=#$ 79pKX+rH3 p` @Z+}EV4#D 7ZV4d 7=+}CVe4y#D 7Z4yV=4Bp (+rH3 pZV MBd (+rH3 p7=V BKst 7\>7Z@UCS`S7>` x  09CSsy;7??7Z@4@k?o+~H3 ` 8+t A d@Cs PK>49 @# +~H8 7?h8 ZM790t4>6@Z46\K>@O?+~3H4 @+t 45 6?  4 3? 5 (+~B3"B3+~H3 y h3 @k?ok? C+~DH 4@HV+t 4: U YM9XH c h K>K? @O?k?7c?7?_M4K>@7?k?7k?!+~H< `K>A@| 8\_@c?7?_4\K>K?!@7?k?o+~SJc +~Tj j` A4@+~A4B?h# K>@O?@p@K?@ @@@K?@ @@@K?@ @@0@K?@ @@@K?@ @@@K?@ @@@K?@ @@d@K?@ @@@K?@ @@@K?@ @@@K?@ @@ l@K?@ @@h@K?@ @@@K?@ @A P@K?@ @A @K?@ @@ @K?@ @@P@K?@ @@@K?@ @@h@K?@ @@@K?@ @@<@K?@ @@@K?@ @A@K?@ @A@K?@ @k?ok? k?k?k?!4+H4@+i 43 H t+t0H3( d @h3(+}G+i S6f H+jEM4pZ MXC (Hv 4h +dPw+T+i S6s Hj@\K>K? K?K?K?!@O?k?ok? k?k?k?!k?)Ⱥ!DA+i TJ H d j H+F+i S6h H4 H@  gd`HYM!XH@ c _Mh@de MXH@ d h@+rH5 X6>"a6s ҂+i TJ H s s!u@jj HN4C+i H3 @ cb"_]@N4+i h# @K>K? K?K?K?!K?)@O?k?oz 0K>J-ZZ_mYK>@O?k?7@c?+i H3 @b!C?s4>t@ +i H3 86shh3 8C?p H3 86s?0h3 8z +i +i h 8h @+i H3 86s+t H4Ȋt 0++i H3 X` +i h @+UJ@+jS6s H 6j@C?b7?_4K>@7?k?7k?ak?ik?qk?yk?k?E44k?k?49$\"5$4`7?4"|<6g >"sL6f Ҵ4J$R @"56?f(ҳc C57979Ҵ4 `4N"44b 4_ jx7_ jw7 0Ҵ_ "3j7P794Ȃ 6?sbҴ7? _ ] @k?' ! 5- 9IW'K?U4Ӷ uҳE 6t`" s s sB0 }ҳf "4d@ҳk?' ! 5- 9IW'K?U4Ӷ uҳ 6t`" s s! }`0"7`P"4Ҋ Ҵ(44V 07? _ _ J? } j?"5!T_ Bs t Uҳt 6x"Ҵ4䊓 4\k?@k? ( "7?_ Bu06""5;}ҴcK>K?aK?iK?qK?yK?K?@7?k?7S: 0W7=_X7=_}YK<@7=k?7SX+h3(+h80+i H: _5Y+i h @K>@7?k?7+jH94_E79?K>@7?k?ه@ (7+i H3 ` (H: *+i H3 ` H: 4?_]@4K>@7?k?7k?!k?)Dy4` +i h @+H3( d +i H3 @`@`b+i H3 X`"r+i H3 0 d P+i H3 @`@8+i H3 8c +i H3 ` Z x+i H3 @b bb@+i H3 8s B+i H4 8"4s!4c?hc?` +~+i H3 @b 7?+i H3 8` 4S"6? 46??S"c@H3` +i H3 @b +i H5 8`4su@6? (7?46??S"+i H3 8s 46??S"c@7?@ +i _4B H: (Y_X+i h# 8+i h$ 0+i 4h3 @K>K?!K?)@7?k?7+i _]H: K>@7?k?7+i _H: K>@7?k?@7+i _H: K>@7?k?7+4?h38#D _}7Z+i 4h3 @+i h 8+t H3` "d 6z+i H: _@@@K>@7?k?7k>k>k>k>k>z!8K=Y@@+i H: ȇ@ Y4_-4B+GH(+i SJd 0+FZ_EH0H0H( S_47=4JX7=_ EYZ_H0Z_-4K=YK>K>K>K>K>@7=k?@7_@+i _H: K>@7?k?ok? z K>@ @+i H: Ї@ Y4_=4BH4c? 0+i D_-H 4c?`'K>K? @O?k?+H3H 7_4+H3H+jH: H@ `+i H3 h` X#D _ ]7Z_ E@#FN7Z#D 7Z_ @_@K>@7?k?+H38 7@ @+i _ H: K>@7?4S0+~43 Z T t " jt@k?ok? k?D4E S+~44 Hz@ x J@Hss+j44 P Bt6bth`+~44  S jK>K? K?@O?4S@+~45 Z S "` yJ Sj@k?ok>k>k>k>k>k>k>k>k>k>MHL4?E4h44+4)P4 4  # ZJYH *H F` * f 4c~_ # 4+4(P4    ZJH H %ԥ 4c~_  Ą HK>Y :  Z (K>Y_}YK>YK>K>K>K>K>K>K>K>K>K>@O>k?ok? k?k?k?!k?)k?1k?9GD484 S+~44 He JJZHss+j44 P Bt6btJZJ97ȼ ZJY+~44  S j4f4+j4* P+~4) 4 C Bs`0F 8c S 3 H@ JY?_H4ch_ C +j44 P B6sb+~43  T t ֆ  T֔ jtK>K? K?K?K?!K?)K?1K?9@O?k?o+~H3` pC+i H3 Ps XK>ل` +i H: +i H: _@+i h# PK>@O?k?ok? +i H3 ``!C+DH8u!x"` c u! ` 0+i _H: cH8`h8" +H38 S _U@ģ+i _}H: p @ D@ă+i _EH: (+~H3` +i _ H: x+t H3` +H: y_ x+h#8K>K? @O?k?+i H3 ``!`74SH+jH3P` Z@ +i +i H: H: _ @+4?h38+t H3` h Z T+~43 t Jt XJz+H38S jh:8Z_e4BP+~43 t Jz+H38S K>_@K>@7?k?7_E4K>@7?k?7#D _7ZXK>@7?k?7#D _]7ZhK>@7?k?7k>k>k>k>k>k>k>k>k>k>k>k>F4? t"`7<+t N+~S6j +I!7<+i L!`҅耶!HI` г s S S s S S JcH+~H3` (+~H3` ?I58I58u!4@      :`_1ZI 8 i 8DI` pг s S S Jz@ J_@ cI38 sS _M@i#8_ZV " t> ҅7< `_!@+i 7< dH4 8 h3 8KK>K>K>K>K>K>K>K>K>K>K>@7Ch@hZ+i H3 8 c _-h3 87>4@J9X7>Y_4B+i H9 X+i H3 8 c h3 87>X_47>Y_4BH9 8_ # K>YK>@7>k?7k>k>k>k>k>k>k>k>k>k>k>k>NED!   +t H7+~45 *DD ր` D PD Ҕ TD s s S X Ҕ T D s s S JJs  D44Z_9e 4@+t SJy+~ST6 Jx }0sw `w z 8Es s s S x RX5k s s S JtJ 5keO }0s$ 4@+t SJy+~ST6 Jx =0sw `w z 8E3 s s S x RX5) s s S JtJ 5)$O =0s7:4 @+t L+~MS6f x4Dj `j#0I` @D s s S I t BD s s S JtH"Dj `j"I` HD s s S I t PZ0D s s S JtH!Z44Dj `j!I` @D s s S I t H DB s s S JtH! DDj `j I` @D s s S I t H D s s S JtH P D404D4@t?`t>uI D cDD!ր` I` PD Ҕ TD s s S X Ҕ T D s s S JJs (7: s d47: d_@`!7:8ZY_]4B` XD Ҕ TD s s S b Ҕ T D s s S JJs R s d42DD?ր`>IHT7:gz@@_YG7: Zx+i ( gzH@Y_4Bd_7:+i _@+i H3 X` 8+i H3 86s+t H4Ȋt`+i h @K:YK>K>K>K>K>K>K>K>K>K>K>K>@7:k?A 7˜!CҴ4\?056?r05C`0TC`!(T4H4x4|3sy BVsx 6?w 06?B` 6k?'3'K?U` "3`?"'K?TB`?3C`04K>@7?k?7+jH3`k?_7?K>@7?k?7+jA49XK>@7?k?7+jA(49XK>@7?k?7k?!k?)+t C#D M17Zx 4h|#D M7Z| +i #D ^m7Z+i DZ#$ 79J4 04h hZ#$ J79 xU3s4t R@ss4t 06B6s?p+4h3PA @Z+j!hh<X+H3P` X4+i H3 h` 84Z#$ I79 7;4k?Z#$ I}79 0k?+t T4j+jT40j+i SJs h` 7?42j@ 4B #$ 790IX^7;+jT+jSJsXj`#D _7Z+i S 0j| #D _7Z+i h< (#D ^57Z#D _E7Z8+i `h< #D _7Z@+i 0h< #D _7ZH+i h< +t 4h3 #D _7ZP+jh< H#D _u7ZX+i h< #D _M7Z`+i h< #D _%7Zh+i h< #D _7Zp+i h< #D _7Zx+i h< #D _7Z+i h< +H3P` +i @ss4bt H3 h` j+i TJ Ȏ` +i "d 6sj TJ Ў` "d 6sj #D _7Z+i h< +jH3Ȇ` #D +t H3Ȏ`!r7Z+jSA x6yX+t T@j4j#D 7Z+jSA 6yX+jT@j40j#D L7Z\ :T @+jT@j40j#D L7Z\ :T@+t T@j4jZ#$ 79Ie4 04k?+i H3 ` P+i H3 Ȇ` +i H3 Ў` h#D +i H3 ؎` H#D K?` 7?@4B+r4h3#D _7Z+i Sj| #D _7Z+i C h| #D _7Zh| #D _u7Z+i Sj| #D _E7Z+i Sj| x#D _7Z+i Sj| p#D _7Z +i Dh #D _7Z(+i Ch| #D _7Z0+i Tj +i SJs h` X+t0"d 6s8h3 "d 6sh "d 6shs j #D _7Z+t0 xh< +H3P` X+i "d 6sh3 +i "d 6sh3 +i "d 6sh3 K?` X+i "d 6sh3 +i "d 6sh3 +i "d 6sh3 +t0H3 ` `+~+i H3 ` +i H3 ` (+~+~h +i h 4h3#D _-7Z+i C h| #D _7Zh| #D _7Z+i Sj| #D _7Z+i Sj| #D _u7Z+i Sj| #D 7Z+jCA4yX+i Sj| X#D 7Z A4yX+i D 8h `#D 7Z(A4yXP4h `K:K?!K?)@7;k?+H3P` 7#D ^M7Z0K>@7?+i "d 6s@h3 +i "d 6sHh3 +i "d 6s`h3 +i "d 6sph3 +i "d 6sh3 +i "d 6sh3 x+i "d 6sh3 p+i "d 6sh3 +i "d 6sh3 +i "d 6sh3 +i "d 6sh3 (KS` +i +i "d 6sh3 +i "d 6sh3 +i "d 6sh3 +i "d 6sh3 +i "d 6sh3 +t 0h h +i h +t 4h3 +r@h k?7+i ^H: _Y@_1@+i ^]H: +j4h3PK>@7?k?7+jH:7Z?_4+i _h @+i ^H: +4?h38_Q4#D ^7Z_ @+i ^]H: ^E@+jh PK>@7?k?7+i ^H: K>@7?k?o XC#D L7Z< #D 7ZI4 H4?` #D 7Z#D 7Z(^-@4K>@O?@@K?@ @k?K? Yw`K?  B}?6? z @ JYӵCS hu YCSbYh+r46 ӵCS ` Bsu  YCSY6?44`p z+r46 @  Bs Bt ҔBs 6 h>7ZK?@K? Yw`K?@4 CY+r46  C4ғ Btғu  y YY]4`h+r46  Bs Bt ҔBs 6 h 79?@\k?TJ `@@7Jk?6k?6J _54B8Jk?6k?6_-J K>@7?k?ok? k?k?k?!k?)k?1CFIIGD44(4#D ^y7Z@4?h h+jH3p` @@@U4?  4Sdtd@4+r48 +r47 @sbP@s@s  BsbB jt@s Bs jt  SdM6 b`h \K>K? K?K?K?!K?)K?1@O?CVC5+r44 buҵ+r43 u @b+jH3p`!44+r47 +r46 bt bt6_ 44+r48 +r476@  bt 6_bu44+r48 +r476@  bt 6_bu+r45 4b+r44b4bb4bb4bb+j4h3p@@ @K?@ @@k?ok? k?k?DEд+t043t ` FIU4(|Zp44IM4( д"c6d hdhf+t043 t jc4K>K? K?K?@O?c8k7k KT kY@J`?J@jk?ok? k?k?k?!k?)k?1IHF4+t044   4I}4| Ie4Ȝ XZY_ WZY_} W@4` IZ 4IZ4K>K? K?K?K?!K?)K?1@O?Z+t043z ` 4jy@4@Z+t043z ` 4jy @4@k?oCt4&s+t044 ` #D 7Zp^4BXII4˜ "c4`c k+~4?h3 4K>@O?k?oC@t4` K>Hs6s?` Xhs@s+t044 JsHzVBIiZK>@O?@@K?@ @k?7k>k>k>E+H3`"D+~Sjz +CHz`+t0SM 6ypHz`M 7>K>4=/  k>K>`k>+jCHs` h4dM Y7>h|7?4" U+43h| 4j K>`__k>4c>c>c>4k>+~@3 c>4c>c>c>+H:`4M y7>+4h34K>YK>K>K>@7>k?7k>D+H:`M y7> +t04@3c>+H:`4M 7>K>YK>@7>k?o+CHs` 0+H:`4+t0M 48ph`K>@O?k?7+~4h3 +~H3 ` 4+~4h3 4##L79 $K>@7?k?:7"c6y $L4K>@7?k?7k?!"sL6s k?' $ 4!,  9IW'K?U4V v uҴ  s! z Z Z Z Z Z Zk?k?+jC4z4I14+SJz`TE4y 4 Ss>4 s@֟j7?k?7Z4M4K>K?!@7?k?7k?!k?)k?14+~H3 ` 2D_4ȏ H `04c? +~H3 ` x+E+~DH`7?M4`2M44c? H `?H``@+~@ןH3 ` +~@3 c?+~h C?K>K?!K?)K?1@7?@ @K?@ @@@K?@ @k?444B66s?`o@@@@@@@@@@@@@@@@@@p@`@P@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@@@P@@@@@@@@@@@@@@p@@P@`@0@P@@@44444446p44n44@6?444r4 4r446? 4^4 CV@R@Jk?' k?'I9)W'HK?4S?X  `SV6s??sj2֔6s?S t 6??%7Zc4K?@\k?7k?!k?)k?1D$hC4"3c?se (C?Z_}7?YC?$ s"``K>K?!K?)K?1@7?k?7k>k>k>k>k>k>k>k>GHJD4H b%д4@? b%? b%г` 4t еh4Z P "@v 04z 6?r`8hд0D44N!(+ b%д 4 Z_]7>CC> b3s4Nt `+~4?Z#$ 79I иI aZ 4N+~4h3 г4c?#D 7Z]4Bг44 Bs`!hг b%е4D@ T!*!@гt! д4 b%г` t څ@ 4h "4z?_7>C8C>г+44 Bs`  "4D b%г tXt ` г` t д4c?д4D  04D " +~4h3 ` d@h@?д4V 4Z 4д@?s X44?5 T@? ?@? ?`4K>YK>K>K>K>K>K>K>K>@7>CS`0ZUUB4\ W6?r036s?r03 4@4Bst P6 B046?r04S6s??j04B` s@44\t 036s?r03B` t@44ʂ 4 p403`0ZB6s?r036s?r03B4` 4@k?CT4` 7SY4BB034t :B03` 04 +~4h3 4?4B3`$p4+~44 T֟ғ6s?`@j@x@h@X@H@8@(@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@x@h@X@H@8@h6 @k? (h6 6? (h6 6?Sk?' k?'I9)Wғ'HK? x B3`;TK>@7?7? z U*CTҔC3s CSC<@ CTҔC3s?CSCTҔC3s?CSCTҔC3s?_CSCTҔC3s?/CSCT ҔC3 s>CSCT ҔC3 s>CSCTҔC3s>CSCTҔC3s>oCSCTҔC3s>?CSCTҔC3s>CSCTҔC3s=CSCTҔC3s=CSCTҔC3s=CSCTҔC3s=OCSCTҔC3s=CSCT ҔC3 sҔC3>s:CS7Z@U79@`S7>` x z U@4CTC3 t 7ZU794@k?oHUDZ@YK>@O?k?ok? k?EDH4| 8ZYKX b` \+~4?h3 4K>K? K?@O?+H52qH32y k?B4C\4 : 4@4? ל @4?ל @ k?7k?1k?9D#$ X m79|7?444_W _7?44 z_7?h_7?h_7?h(_7?!h8_u7?%hHKZ4\K>K?1K?9@7?k?ok? k?EDHZ| BZ4X_uW \HZ4K>K? K?@O?k?oD_HhK>@O?k?oDHH 3 y ` y_ h K>@O?k?oDH(_M9!h0K>@O?k?oDH8_9!h@K>@O?k?oD_HHhPK>@O?k?7k?k?k?!k?)k?1k?9"@4H 4XȜ""Z@Y #D \K7Z p+h< 44(   R@k?7=4 H7=_Yȼ(Z4cf_  !Z_Y Z_Y Z_eY Z_Y XZ_Y *KMZ4hh\HeH@HUH0HEH H5HKZHZ4K@O?k?9 oK#` jHsd Y@4BP+48 _Hw(˜@Hz0 \ Z_4B4?K>@O?k?9 oK#` jHsd Y@h4BP+48P_MHw˜@Hs B|4?K>@O?K4 4K3 t CSpCZvZBs BsS (46B@4@CS9CT@4  8PzҔC3S C3 07<C3 y 8C3@4@k?7SJy0_-Jx(\ 4?R54BK>@7?k?7SJyP_JxHK>@7?CS` 0\4tst B03`?st4t \@4?@ \@k?7k>k>k>k>k>k>k>k>k>k>k>k>+H3`!PH#D Km7Z !*@4^!C4 44z_}ZD b@B@si 84@sf 4@se$4?4} c H ZH]7\ @EiC_ZȜ ZHEZ4?YHX b`4 e i c iPC4z4 \4 4 4 ~4 _ZD!P4\@"@sn 4@sm 4 c  dF b3c>C>l *d Z_y7>`Ck RdJ b3c>C>j C>c>6s@c>C>d= " "`4cIP eiHCi04 F_EZD @*@si 4@sf  4 c xT b3x " " bE4cI0 ei(Ci 4\4@_MZD r 4@s g(f4 c @s`@s`4cm4I ei4i4K>YK>K>K>K>K>K>K>K>K>K>K>K>@7>k@k@k@4JcS4FcS@4@k?ok? k?E4+j454t @s` h6HZ@D d"ZYHX `4_mt4K>K? K?@O?k?ok? k?k?k?!k?)k?1k?9I4+j4*4@&g S  3e!X C@tғ` Bt!ғh@" b04ғ` ` ғt@҂f ZYH]X B @ssh@4f??@tK>@tғh_4@ғf>@t b04ғu^@t4^g4K>K? K?K?K?!K?)K?1K?9@O?k?7k>k>k>k>k>k>k?C@t4@8H@sst#7>7>ς24@@su b3"@sb@t4@4K7>ȼ"@t4@? b04? b04@u! @sst"(4"7>4@4 T7>*@sg b3"@sb@sg6?7> tBu XC>su 0ZbZ97> 04H7>si XZHiZ`P 7>HQX (4HI7> 4@s g(r * b03g? b03r? b03@s` 84t *@sst> 7>4K>YK>K>K>K>K>K>K?@7>k?ok? k?k?k?!k?)z$G$@st$@tҔ@s$Z@tҔ@s *HH |84(K>HH b03s4Bt (H@s4Ft#4@st4@? b03? b03@ss4t@ Z84HK>#$ 79 HY4 2 4?F4? xH@su4ʊ @ss4؊t 4 Z R d03s4t "@ssu F4?8@ss4Ҋt!4@ss4̊t!K>و!4 d03s4܊t 444cZ#$ 79 H4 (Z@4z9_4B#$ 79 H94 4H04@sst 8Z#$ 79 H4 84z@4z_e984 HF`"hhh44K>K? K?K?K?!K?)@O?@X@K?@ @+H5?H3? k?k?o+j H3 H` 84# HHsVmB h0`?HsK?Y@O?k?ok? +rH4 ` X43 `Js` @446 `46 Js`?6t 8+r4$ ` VuB? #C_]7Z 4K>K? @O?k?+H3` 74_h3K?Y@7?gjXjlDXlHmXmo0Ho4oP( 0(,PT <@\`|HTXlp@D $4804PT HL| $`d 0`d,0ŠŤLP48HLLP͔͘x|,0 8TXtxӀӄTXִָX\פר؜ؠPTڰ0ڴۨ0۬HhݸݼޜޠTXP04 PhHPTP<@hlDH0(,X004<@@PhlP8<48X\     l p x |   , 0lpP0T@D $X\4@| 0 4! !$!<!@!!"x "|" "#\#`$D$H%0%4%`%d&&'@'D''''(((,(((((()))X)\++,(,,,l,p,0,,0,---h-l-.8......4 (4$5588999L9P99::;;;;<<=(=,>x>|B(B,DhDlEEG,G0HHJJKK M4M8RxR|RRTLTPU U$Y Y[[]]____``dde`edfLfPggiiiijjkkkxk|kkmoppqqrrs8s<ssttttu$u(uuvPvTwwwwyPyTyyzz{X{\||}x}|~d~hlp  $(x|TXPTxtx DHDH0D`H0@04x|0408lpLP04PT|$( `dD xHx|48X,0\`XDH04  \` <@0 TXP TdhX\|Àhl<`$(DHɘɜɴɸ XptИМ\`XX Հ 8<dhڰڴ ݤݨX\<@`d 8<@DH8< $  TX `d,0<@(,04d X\$(lpx|$(  ` d   8 <     H L@D8<TX\` ( Hlp $,0  < @      ! !$!!"""P"T# #####$$%X%\%%&&&&++--..//080<1X1\11112d02h22333466::< <=D=H==???0?4ALAPAAAAI0IIIJ`JdJJLLL,MMMMNNNNNOOPPPPPQQQQQQQR4R8RpRtRRTTTTW`Wd]8 ]<aac, c0ccg<g@h  hi,i0ixi|jjkku(  u,uuv v$vtvxw<w@wwxHxLyyyyzz{ {|D|H|||} }~~ |$<@04(, $($(%X\   P @D8 < X\0| Ȅ Ȉ<@ $x| $l8p͈̈́8dhҼHLhlӈӌӨӬ (,HLhlԈԌԨԬhAl T`d܀܄lpݸݼhl  $dhtxPTP0Thl 48x 0| (8 <@ P@Dlp, $( L P  $ , 0  `d\` HLPT PT( )** ,,,,-$-(-H-L-d-h----------. ..8.<.h.l....///X/\//0408002`2d335h5l6D6H6677788x8:0:; ;=l=p==>X>\>>>>?4?8?ABBCCDDDDGGH0H HLHPHtHxHHJJJJJJKKKtKxLP(LTL|LLLMlMpMMMMNXN\NNO OQ<Q@QQRRSdShSSSSSSU 8UVHVL\d X\h]T]X]|]]]]]ePe eHeLffffgPgTgpgtgghhiiiik8k<klkpldlllmm mLmPn,n0nTnXn|nnnoXoxppqq q\q`qqqqrrsswLwPwwzz{{~h~pdx|<@dh 0$DHPT  @DDH  T T8,  T 0 t 6L ?  *   8 Z - $m   @ H` HD T h   0 x + 04 6L0 *L  *|  n <XtѐѬX  0 0( T? g lh o` s l   @@ /lib/dld.slERROR couldn't open dld.slERROR reading dld.slERROR bad magic number/system id for dld.slERROR bad dld.sl hpux aux header (text) (data) (bss)crt0: errno:  oX ppp@H@H  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~2Kn,X `%K@%$t ^Ke: quit, ^Kg: get file, ^K^W: write file | %b (%m%n%o) %pIf you see this, you have an installation problem.vN,wHw\xy@X@bJ8@bR0@bZ$@bb@bj@br~@bz~@b~@b~@b~@b~@b~@b~@b~@b~@b~p@b~d@b~X@b~L@b~@@b~,@b~ @b~@c~@c }@c}@c}@c"}@c*}@c2}@c:}@cB}@cJ}@cR}@cZ}x@cb}h@cj}X@cr}L@cz}<@c}0@c}(@c}@c}@c|@c|@c|@c|@c|@c|@c|@c|@c|@c|l@c|\@c|H@d|8@d |0@d|(@d|@d"|@d*@~$.setkey!@d2._autoload@d:.push_mark@dB.bol@br.insert@dJ.eol@dR.setbuf@dZ.message@db._add_completion@dj.del_region@dr.bufsubstr@dz.right@d.definekey1@d.USE_ANSI_COLORS@>.Status_Line_String @.MINIBUFFER_ACTIVE@.left@d.whatbuf @d.error@d.getbuf_info@d.otherwindow@c.is_internal@d.setbuf_infoA@d.up@d.down@d.call@d.eob@b.unsetkey@d.bob@bj.looking_at@d.del@d.markp@d.nwindows@d.add_completion@e.what_column@e .eobp@e.setmode!@e.fsearch@e".buffer_visible@e*.exit_jed@b.set_color1@e2.color_number@e:.set_color_esc!@eB.extract_filename@eJ.trim@d .pop2buf@eR.pop2buf_whatbuf@eR.DISPLAY_EIGHT_BIT@p.JED_CSI@t.copy_region@eZ.insbuf@eb.bolp@ej.beep@bZ.onewindow@cz.pop_spot@c.push_spot@er.bsearch@ez.sw2buf@e.tt_send@e.eolp@e.what_keymap @e.find_file@e.set_status_line!@e.bury_buffer@e.dupmark@e.erase_buffer@e.window_info@e.copy_region_to_kill_array@e.append_region_to_kill_array@e.insert_from_kill_array@e.KILL_ARRAY_SIZE@.what_line@l.BLINK@.WRAP_INDENTS@.goto_column@e.goto_column_best_try@e.TAB_DEFAULT@.goto_line@e.bfind@f.pop_mark@f .read_mini1@f.file_status@f.skip_white@f".bobp@f*.ffind@f2.bol_fsearch@f:.bol_bsearch@fB.flush@fJ.input_pending@fR.C_INDENT@.IGNORE_BEEP@>.ADD_NEWLINE@.LASTKEY @.C_BRA_NEWLINE@.DISPLAY_TIME@.WANT_EOB@.insert_file@fZ.keymap_p@fb.WRAP@.what_char@fj.recenter@fr.bufferp@fz.get_key_function@f.dump_bindings@f.META_CHAR@D.DEC_8BIT_HACK@H.undefinekey!@f.getpid@f.update@f.skip_word_chars@f.skip_non_word_chars@f.bskip_word_chars@f.bskip_non_word_chars@f.which_key@f.whitespace@f.enlargewin@b.splitwindow@c.C_BRACE@.file_time_compare"@f.xform_region@f.OUTPUT_RATE@>.skip_chars@f.command_line_arg@f.MAIN_ARGC@8.set_file_translation@f.pipe_region@g.run_shell_cmd@g .mkdir@g.rmdir@g.append_region_to_file@g".autosave@g*.autosaveall@g2.backward_paragraph@g:.blank_rect@gB.bskip_chars@gJ.buffer_list@gR.check_region@gZ.copy_rect@gb.define_word@gj.delbuf@gr.delete_file@gz.directory@g.evalbuffer@g.expand_filename@g.filechgondsk@g.forward_paragraph@g.getkey@g.indent_line@c.insert_rect@g.kill_rect@g.make_keymap@g.map_input!@g.narrow@cJ.open_rect@g.quit_jed@g.read_file@g.read_with_completionA@g.replace!@g.set_abort_char@g.suspend@c.time @h.ungetkey@h .buffer_keystring@h.use_keymap@h.w132@h".w80@h*.whatmode@h2.widen@d.window_line@h:.write_buffer@hB.write_region_to_file@hJ.count_chars@hR.get_yes_no@hZ.rename_file"@hb.change_default_dir@hj.prefix_argument@hr.regexp_nth_match@hz.replace_match"@h.re_fsearch@h.re_bsearch@h.set_buffer_hook!@h.insert_file_region2@h.search_file2@h.random"@h.set_term_vtxxx@h.TERM_CANNOT_INSERT@>.TERM_CANNOT_SCROLL@>.BATCH@.TAB@P.SELECTIVE_DISPLAY@T.LAST_CHAR@P.MAX_HITS@.CASE_SEARCH@.POINT@p.MESSAGE_BUFFER @`.IGNORE_USER_ABORT@.KILL_LINE_FEATURE@.SCREEN_HEIGHT@>.SCREEN_WIDTH@>.JED_LIBRARY @.JED_ROOT @H.LINENUMBERS@`.MOUSE_X@ @.MOUSE_Y@ D.MOUSE_DELTA_TIME@ H.MOUSE_BUTTON@ L.MOUSE_EVENT_TYPE@ T.MOUSE_STATE@ P.HIGHLIGHT@d.HORIZONTAL_PAN@h.enable_flow_control@h.core_dump!@h.get_last_macro@h.C_COMMENT_HINT@T.WANT_SYNTAX_HIGHLIGHT@@.set_top_status_line@h.enable_top_status_line@h.TOP_WINDOW_ROW@.DEFINING_MACRO@.EXECUTING_MACRO@.create_user_mark@h.goto_user_mark@h.move_user_mark@h.user_mark_buffer @i.list_abbrev_tables@i .use_abbrev_table@i.create_abbrev_table!@i.define_abbrev1@i".abbrev_table_p@i*.dump_abbrev_table@i2.what_abbrev_table@i:.delete_abbrev_table@iB.set_column_colors1@iJ.set_color_object1@iR.translate_region@iZ.set_current_kbd_command@ib.LAST_KBD_COMMAND @X.CURRENT_KBD_COMMAND @.find_matching_delimiter@ij.blink_match@ir.parse_to_point@iz.set_syntax_flags!@i.define_syntax!@i.use_syntax_table@i.create_syntax_table@i.define_keywords_nA@i.DOLLAR_CHARACTER@\._jed_version@P.set_expansion_hook@i.get_passwd_info@i.get_termcap_string@i.get_doc_string"@i@i@i@i@i@i@i@i@j@j @j@j@j"@j*@j2@j:@jB@j@jJ@jR@jZ@jb@jj@jr@jz@j@j@[@\@L@d@@D@&@@@@@@@@j@TBPAHC@84,$,($  @j8@ Wi@ !TD-.polynom@j.sin@j.cos@j.tan@j.atan@j.acos@j.asin@j.exp@j.log@j.sqrt@j.log10@j.pow@j.E@@.PI@@.float@k%f .autoload!@k .pop@k.strcmp@k.strcat@k".strlen@k*.str_replace@k2.is_defined@k:.string@kB.getenv@kJ.putenv@kR.evalfile@kZ.char@kb.eval@kj.dup@kr.substr@kz.integer@k.is_substr@k.strsub@k.extract_element:@k.is_list_element2@k.case@k.string_match2@k.string_match_nth@k._traceback@?$._slangtrace@>.system@k.slapropos@k.slang_trace_function@k.create_array@k.aget@k.aput@k.strncmp@k.strlow@k.strup@l.isdigit@l .strtrim@l.strcompress@l.int@l".array_sort@l*._stkdepth@l2.print_stack@l:.Sprintf@lB.init_char_array@lJ.byte_compile_file!@lR.make_printable_string@lZ.str_quote_string@lb.str_uncomment_string1@lj.define_case!@lr._clear_error@lz.set_float_format@l.copy_array@l.array_info@l._slang_guess_type@l._slang_version@>.INT_TYPE@C@.STRING_TYPE@CD.FLOAT_TYPE@CH<.unix_kill@l.unix_ctime@l.lstat_file@l.stat_file@l.stat_struct@l.stat_islnk@l.stat_isreg@l.stat_isdir@l.stat_ischr@l.stat_isblk@l.stat_isfifo@l.stat_issock@l.chown2@m.chmod"@m X@$  2Kn,X `%K %()*,/:;[]{}tnjp& *ABD|ExFtGpHlIhJdK`N\9X;T?PTLPHMD<@><Q8R4U0@,V(8$C 7=LOS :W'"+#($- @_@$Header: mapdld.c,v 70.3 92/02/05 16:07:02 ssa Exp $ERROR: mmap failed for dldtX$|, <L hd|X <(HLtDL l,,L|0`(` D,DDT`m\\lt܄mx4tmܜmnԐ4Lnd|-n0 Ԩ$ nH(n`@0nxXpܴHn(@<0H-X`@T`x8xpnX-hlpn tňŠŸ8PPh- h8n(noP@Xpho o8oP4.40H 80H(P@h. ohooo++ +8+P+h+++L4404H4`4x444`Xx?????@@@0@H@`@x@@@@@AA A8APAhAAAAL0LH4Ttϔϴ4TtДL`Xpֈָ֠Lx0H`xאר 8L0H`Ph؀ؘذxL(@XgLps((((())()@)X)p))))opd| 8Phs4Ldдو٠ٸlho`@c@c@b@bJ@bR@c@cr@cj@c"@c@c@b@cB@m@m@m"@m*@m2@c@m:@mB@mJ@mR@mZ@mb@mj@mr@mz@m@m@m@d@m@m@m@b@c@c@bj@b@d@d@br@b@c@c@bb@b@b@b@b@b@c:@b@c @c@d*@c*@d"@cb@c@b@cz@c@c@c@c@cJ@c2@c@d@b@b@c@cR@b@bz@d @b@c@g@m@j@m@m@m@m@m@m@b2@bB@b @a@b*@b:@b@b"@b@b@a@m@m@m@n@n @n@nlibgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19__do_global_dtors:F19_exit_dummy_ref:G29=*1__do_global_ctors:F19__main:F19end_file.libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19_exit_dummy_decl:G1end_file.- d"d.PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1$G ^$t$*P d"d.PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1 6E*P d"d.PbHfӀ+Fbjed-0.97.12/src/xjed000075500000000000003000014004100604364654600137540ustar00rootsys00000000000000 @@@ ^x }XGk(`@`D 92453-07A09.74.080Mf 92453-07A08.56.05*v 82$Header: crt0.s,v 70.8 92/05/19 15:52:46 ssa Exp $@  `HX"`YwYwLX xDixDtX *q*X ppX ttX!8E(8E(X 8#`6`6X HZ  X I\ X X\ 8>(`@`>(`@L>( `@`>(`@,>(`xx@xxx>(T@T>(X@X>(X@X>(&X@X >('@>((@>(P@>(R@L>H >I, ,Y `? `@>D@ $PRIVATE$$DLT$$PLT$ $SHLIB_DATA$$TEXT$ $SHLIB_INFO$ $DATA_START$ $MILLICODE$$LIT$ $LITSTATIC$$CODE$$UNWIND_START$$UNWIND$MILLICODE$$UNWIND$ $UNWIND_END$$RECOVER_START$$RECOVER$MILLICODE$ $RECOVER$ $RECOVER_END$ $PFA_COUNTER$$PFA_COUNTER_END$$DATA$ $STATICDATA$ $SHORTDATA$$SHORTSTATICDATA$$GLOBAL$ $SHORTBSS$$BSS$ $GDB_DEBUG$ $GDB_SYMBOLS$ $GDB_STRINGS$00$ 08 @0@0 0 @Uht L,0 30 ;0 $C0 4`0 H 0 X 0 l  0 @0 @0 @0@0 @0 @ \@ p@ @\ @ @ @ @X q p@0@( @8 Q(_ P8c D AP \  h x+ K k   0P@x0\@p0h@1@ T@0t@l `q0@l l@P0@0@P0@0@8U lUP0@0@X0@@(0\@0U|0UUUxUD0UU(LU40h$0xUU@h0d0@h0000 xq000 l00 @t @x0@X0\0hL p @ @ @0t\  @ @00 040000 ,0@d0P0@(0<|0H0P0X0l0,0@04 D0@\0@`0 @0 T@ l@0 @40 @64 `r0 D@:@0 4@0 T`0 xP0 H0 ,0 0@0 p@0 @0 @00 @0 $@0 8@0(0  0 00l00T0l00ʘU0U| r 0 @ @ xr0@00$̸08T  0HӸ 0@  H0Tl d,0h@0xΠ |@ @ @0ϴ0 0݄00T  0<00P߼0$l0@0P0@֘0@X0l0|d0@00 D @04 `s0 @0`@0|@ l@ T@ 0@0@\0@(0@0@0@0 @U4U\0UUDUU0QDU4`|U 0d( @0l T @ 0|<00  @$0 $0 40Q| D0d H@  T@0 `tx0@ l@U|U@$UU U QUH A |0h, Q  Q<pUDUx\0UU4`0$Ux000\0AU4U P@U0A,\0D0pUxU AL0,0( X@40@ p@0 @0 0D00A00 0408` @0 D0H0X `u0 X@0x@0@ T@80@80@(0@@0@0,@`U|0<@0L@,UUUhtUXUUU4`U4Ux0UU000<@0A< l@8 D `v(0|@0@1L0$@0U@0 L0@(0p0 x P` 0@\00@|0((0@ D|0,L0 l0< D U l@ T@8 PD `vP0@ `0@ tU 0H U4UUUX@0  @8 @ D T@@ l@0 @@ `v08@@0L@`0d@0t@D0@H0@0@0@(0@0 @HUDU|0 @0 H@0 d@p0 @0 @<U U0 /8U U4`U@U ` A|"U U ( U!@UU!0(U@U!@U!L8U!XxU\U!d$U!tH<UU!8U40!)U!pU!pTU!8U!00/0/pU! XU!tU!U!0 .4U"HU"U U P0"$*0'0Ad&0"8.  @@0"H!0@"X-D0@"l-00'0 +0`.0U,'0.0| \0"/ 0 @@0(0@"+ @<0")0"2X02 @80"2 @@0"3 @@0"3T @@ @D @0A#3l  @0#3 D ,@0l@ T@H l@P `w0&T@h0&h@0&|@0&@0&@t0&@p0&@h0 @`0 @0 @d0'8@0 0 @X0'd@l0'|@0'@T0'@U\0(@50((@0(8@ 0(d@\0(@ A#0[U Q#@5 #TZU4 U#l5\ Q#xQ0U(U  Q#SUUX@UD A#C0Q)4B` #@l0 tM0 L  #@p0@)X #J #Y0 $Q $$H0@qp0)D0P)C  $4A0)q P$H@ $\@ $p? $?l $?0 $` $<0)a $@T0 j $dX $@0)N %@d %,@h %@@l @%P:0P(gH0hk %d@t %|@\ %@X %@ %@H0@r\0Ll %@ %@ %40)n`0*o0p 0q 0*4 &fX xw & @| &0@`0*$e D4 &<@x0*@@P `x0*@0\zX0<|  l@xU U *X *hU@0*w8U@0+H\00+<0@|0+0+{0 L{ 0+z0+y0+0,@ *|yX *@x0,0 x80,(0,<~00,H~P0x0,`0,t0\ *vH0,0,0T0,40,`0,0- DvH0-H `y T@x0/@1H l@00@0,00@,00$@dU|U 0 @004@|00H@x -0( -DU0U@UDU4`U404@00x@00@00@00@ 00 A-XU01D -xL - - -, -0@t -U01x .  . , .8üU1PUU1( .L00T< y02` .d{<UU\ .p{ .|@ .@x03@ .@03P0@3l .0@3x03$0P3D0@3`0303D .0300404l .H040A4 040 .@04Dt04\$04lT04x`04D /@x04 /@ /8@0404004\0A4 04t0P5 050T50T05D05\`05xx0505| /X@ /t@ /@ xy05x050l@0T5|05@06X06 /0006,<06<06L00\06` 0hP /@|006p(06@@ D  /@06 `}U@0X0` D`06@t0P(p0P) D00P)D0P(H P6008006D T@0 \@ `~ 0Q2UD A7 ΰ A7< A70քUUU@ 7@@ 7T@07 07\070708 08ΐ0Q8808Hp08`P08t00Q8p0A8\ D08@p `~@08@ 8tU|090909,09D09`h09xl 80x090ޤ090980909\0: D `~p T@(0@0 @0=@5X0=0=@0>@ l@0>$L0>4@80>P@X0>t@@U| : UU :4t :P :\ .d :h :t : : : : :| : :~ :~ :~ :~x :h ;~p ;~ ; ;( ;4T ;@ .p ;L ;X ;dU4 ;p ;|D ;  ;~ ;, ;8 ;D ;P ; ;< ; ;$ <\ < h <, <$t <00 <<  *|@   @ 0 l @ 0@1H0H0>t0p@0@@ 0T D l@ `UU 0 060>00@ @000?, D0 @@ `0@UU UUHUx00QU0,0Q80A t D `@U T@0C@ l@U  A#U A<(U4 AL  Ad  A|%xUx AA&8 PA&P AD @A& @A& A' B'0 @B' B,(H BD B`UC8x BxUD PB"l PB#TU@UUE  B"T03( D B@ B@ T@ l@>` QE<,| AET, QEl+ UE*( AE+ @E) E@0)h)x E@0@(-( E@>` D)x T@ `8 QE44UDUU|U@UU4U U0C70D7 F @ F$8 0D<8 F4@0PC60DT60@C50D$9T0C9 D20020 ` T@ AFHGUDU AF`C0DlCH0DEl0@DH$0DPH0P0 \E0@DHX F@0TDQ\0DP D;@ F;@ T@ l@>h ` F@> <0(@hh <UPD8YUPTYdUPdWUPxV < <0P@68 *|UPVUPW4UDUP`WU U\ UFk F  <0UPW Gu G w G4xD GH  JT@> Jd@> < J@>  J@> J@>| J@>x J@f x J@>t J@>p K @>lUQ`XUQtPX0UQXL K(@>hU@ KD@ KTH Kh@UQX\< K|$ K Kv@ KvD KvH KvLUQXh LvP L v : : :| :p ;4h ;|\ ;TUQ(XUQX <H <<@UQxX h@hL0'@hP0'@hT0C,@hX0 @h\0(P@h`0(t@hd0'@hl0&@hp0@ht0C@hx01@h|00@h0 ,@h0C@@h0C@h0'@h0'@h0 @h0 0@h0 |@h0@h P@ P@ D\X P,@ l@h T@ `0ZX@h0Zl@00`@h0Z@U  T02\0Z@60U0Z@i0Z@i0Z@0Z@ T40[@6@0@h0[0@h0[@ UT0Q[P 0[h@h0[U|0[H TU0A[؜0[@i0[@jD0[@h0\$U UU( AU  U0 UD AU` UtU\4X U@P :t : U8 : : : : ;4 ;| ; <x <<p 024P Yd Ytl @YD Y PY Y|0+,@01 Y Y@$0]0 Z@ Z @jH0AE0 D Z0È ZD@ T@ ` l@jPUU|U0`|@4UC801 U ] p0` ] U4U`ۀ Q]DU`ۜ ]XU  ^ (U ^ U"UUDUQX ^4h ^D@ ^Pܨ ^dހ @^ ^@΄ ^@Έ ^, ^ ^@ ^@0@a( ^@d @_D _ _4@ _Dx _T@` _t _ _@ _$ _ _ _۸0 d0`  _@jT _@jP x `@ `@ `0@ `D@0@a@p D۸ `\ `l@Ό `` a\P ah  l@jXUbxUbUUbUbhUbUbXUbPUbUbpUbUb` a4 aT at a a a a4 aT b  bt b, b8@jX bD bT@j`U\dU  bdT02 bx D  b@jh `x T@U UD l@lU UcUU|U0f@m QcA, Uc4>U4Uf0 UcH? QcXU Qcd.U cx& c&P c(` c%  c( c) c) c* d* d* d(/ Pd<# dT+| dl+ d,< d"x0\,t d-< dLUU@ d2d d9 d:0Q3 ; Qet eX@l ep' e@l e. e@m e!0\ e0  e T f.T fl f$0Q - f8@ fH@ fXB fl@l fX02CX D f@ `pU  l@v0h|I0UhE h$IUDUU(U4 @h@M 0g\G0gtN0gN0gPL @hXJ0UCXP0gK8 hl@v0gQH <0gS DD0gD T@ѐ ` QhT UhU4 Ah`U4U h@є h@ѐ i@ј07a<0Q7\_< DT ` T@ѠU l@v @U ( inU i(n i<o iTo4 idoP itol io ioU io ioU!@ AioU!L8 Qip$ AikU U! ip jpT02p j@v  Dk j(@Ѡ j8k0 @xx T@ l@xx `U U jHp0Sr U AjXqDU4U@0UrUUDU| jhxU(0A2tq jx@&0>x00A>t j@0Ay0@wT0Q1`tL010y Dp x j@x| `0 d@x0j@UC80j@U\UU0)Tzh0j| Dzh0QA | D|0k@x0k$@1P0 @xU@0kh0k|X DX0k@x0@k0@kD0k@x0k0l  T@P ` l@x0o@080o@0p@0$0C0p,@x0pH@1D0pd@5P0p@x0p@,0p@U0p@5TU@0p@l0p@x0q$@xUUDU@U@U!XU U?Dp Ul, :  : .d t0=00>  000HӸ06L000+{t 040\0609D0>C:h0xΠ 06X00>$L06<H0ʘ$0,@t80l0+ztP0`0,H~Pth09,0$l<0ϴT0l0l02L 80 lP0T00 L{ t0l00Tl0*o40@֘0݄,0 D0 ,\0*w8t02h06,<x0t090$̸0>0,<~0t03D0+t0@3l A0xt0hP0HH00d( Ad0+t0400 l`0P3D00x04D 0d40580?p0T50TP00h$04h03@00 x 04\030? 0 tM4(0hL0@3`08t0˨0 PA A @A0/p004004Dt0\0 x8u08`P03P( B`00?`$0@0@)X4@ B(04tX0X05\`p0@L0@lT0@00 04 08ΐ0\zXu(0P5 0h,0T0<|808Hp08 07  040 .40 03$0300p 4X04lT06p(0?p0<0@3x B@04l009(098@09\X0:p0?4T0<0A 09ۈ0l405xH04$05|`04x0"20"30D<0T0,l09xl۠0-Hu@0|dL05D0<| uX0,up0x۸01D0'0506` 0/0\09`h0L0,u0,u0?l0@"+00,(u0d01x0T5|0A4  0?0"/ H0"8. ` BxX0?P`04x`804\$P05xxh0q 4p02`0050T< AAp0"3Tx A0780A8\P07\h07̀ @B0Q8p̘0Q88̰0A#3l BD0#3 @A0d0*$e4 A|0,4u0,tu0,`v0,`v0C91p0C710@C510PC610D710D$9T10D<820DT62 PB PB AL00?|0DlCH:0 \E:0DEl:0@DH$:0@DHX:0DP:0DPH;0TDQ\;(060"$* B,H0A4  LR MR LR MR PL0R ALR @IS IS, ISD J S\ ISt IS IS HS LS JS IT TJ0T IpT4 L TL K|Td KT| @I$T I@T KTT TLT KT KU  KU$ KU< U80\$P bx a a< a\ a| a a bD b  a a< b\ bd|0@Clh0\@ cX fp c d0HH d f e0 d d0`  d cx0 dlH c` epx0Q3 ; Qe f$ Qe e0 eH d( 0] ,0g\GD0gtND00gK8DH c8 cP ch d e e d0gQHD`0]` e d0gSDx0@a@p d c( Pd<@0@gp0\8 dTX0gND0gPLD0\@ jj ij i(j ij i<j iTj idk itk( ik@ ikX ikp ik Qik Aik ` t( P@0HX p *hv00")0!) -D -00101X . ( -x@ -X -p .  - - .8 A<` GUT AGUl GU GlU @HTU GU GHU G4U GV HV, H0VD FV\ G Vt0Q` Q]  ]8 ]P ]h ah0gDD UcHp Qc Uc4 t ulp0xHh4 bx a a a a$ a@ a\ bDx b  a a b bd Lmain __text_start ___stack_zero __data_start $START_RTN$ $str_lit_sym$ $THIS_DATA$$THIS_SHORTDATA$ $THIS_BSS$$THIS_SHORTBSS$$THIS_STATICDATA$$THIS_SHORTSTATICDATA$ $THIS_LIT$$THIS_LITSTATIC$$$stat_0 __map_dlderrorstrlenitoa__exitsyserroropenclosereadwritelseekmmap$global$$START$$ARGV _fp_status_start_mcount_clear_counters _sr4export $UNWIND_START $UNWIND_END$RECOVER_START $RECOVER_END __dld_flags __dld_hook __dld_list __SYSTEM_ID _SYSTEM_ID $PFA_C_START $PFA_C_ENDerrno_etext_end __dld_loc $$dyncall $$divI_10$$remI$BSS$$LIT$$DATA$L$C0000NewLine_BufferNext_Free_Offsetcreate_line_from_bunchLast_Free_GroupLast_Free_Offset Number_Freed Bunch_Lines slast___28destroy_bunch_line$CODE$CLinePointCBufLineNum Max_LineNum MiniBuffer Buffer_Local Error_BufferJump_Buffer_Ptr exit_errorfreemalloc Goal_Column Number_OneSuspend_Screen_UpdateDefault_Syntax_Table Global_Map User_Varsstrcpystrcmpsprintflongjmp msg_errorprevline update_markssys_timedelete_undo_ring extract_filerealloccallocstrncpy widen_bufferfree_user_marksnextline make_linestrncmpmemset make_line1touch_screen_for_bufferRead_Only_Erroreob free_line delete_linebob remake_line forwchars backwcharsuniquely_name_bufferbolpeobp make_buffereolp delete_buffer goto_linedup_line find_buffer buffer_existsswitch_to_buffer Number_Tenfind_file_bufferbuffer_filenamebobpeolbol erase_buffermark_buffer_modified check_line Buffer_Stack Number_Zero Number_TwoL$C0001 long_lineEnd_Of_Buffer_ErrorTop_Of_Buffer_Errorscroll_completionin_function___32goto_bottom_of_windowgoto_top_of_windowin_function___35Last_Page_LineLast_Page_Point tabs_presentin_exit_jed___50JWindow Screen_Col Cursor_MotionLast_Key_Functiontt_Screen_Rows Repeat_FactorBatch SLang_Errorcalculate_columnSLKeyBoard_QuitWants_Attributestt_Term_Cannot_Insert tt_putcharExecuting_Keyboard_MacroInput_Buffer_LenRead_This_CharacterJScreentt_delete_charbackward_delete_char_untabifydelete_char_cmdbackward_delete_char_cmd ins_char_cmdCompletion_Buffer input_pendingSLang_Key_TimeOut_Flagregister_change tt_end_insert Chg_UCase_Lutins_char_n_timesCase_Sensitive Paste_Bufferinstt_begin_insertIndented_Text_ModeSLang_Last_Key_CharKill_Line_Feature point_columnUser_Prefers_Line_NumbersdelX_Suspend_HookJed_Secure_Modepop_spot blink_match other_windowget_current_indent push_spot goto_column1SLexecute_function$$divISLang_run_hooksfast_del next_char_cmdprevious_char_cmd sys_suspend touch_windowis_line_visible reset_display reset_ttyrecenter window_line pageup_cmd pagedown_cmd next_line_cmdprevious_line_cmd kill_line my_getkey jed_getkeywrite_file_with_backupbeep get_yes_nomessagebuffer_visiblejed_buffer_visible expand_abbrev pop_to_bufferexitauto_save_bufferdeln flush_message wrap_line split_linefast_ins check_buffers init_display flush_input generic_delninit_ttycopy_to_pastebuffer push_markcopy_region_to_bufferexit_minibuffer sys_spawn_cmd C_Bra_Newlinequit_jedtrim_whitespace indent_toeol_cmd quoted_insert Blink_Flag indent_linenewline_and_indent scroll_right scroll_left goto_columnskip_whitespaceinsert_whitespace looking_at jed_make_lutnewline skip_chars1save_some_buffers bskip_chars1 skip_chars bskip_charsC_Comment_Hintexit_jedmini_flag___10set_macro_stateMacro_Illegal_Nowcheck_macro_legality Macro_Staterestore_macro_statemacro_store_keycurrent_window___17Defining_Keyboard_MacroMacro_Buffer_Ptr Macro_Ptr_MaxExit_From_MiniBuffer Macro_Buffer Key_BufferpMessage_Buffer Key_Buffer Mini_Info__iobupdateMiniBuffer_Active tt_goto_rcfprintf insert_string ins_charsread_from_minibufferselect_minibufferSLang_push_stringdo_keysetjmp SLang_restartdo_jed safe_strcpy flush_outputstrcatmake_buffer_substringpop_mark macro_querybegin_keyboard_macroend_keyboard_macroexecute_keyboard_macroget_last_macro safe_strcat jed_writesys_open write_filemake_autosave_filename jed_write1is_linkOutput_Bufferp_maxOutput_BufferpOutput_Buffer_Size Output_Buffer VFile_ModeRequire_Final_Newlinememcpyaccesssys_file_mod_timevgetsexpand_filename sys_chmod check_regionSLang_pop_string file_statusrenamesys_delete_filewrite_region_to_fp file_type write_regionvstreamfile_changed_on_diskdir_file_merge fixup_dirunlinkvclosevopeninsert_file_pointer quick_insertread_file_pointerlstatreadlink auto_save_all visit_file insert_fileappend_to_file expand_link file_time_cmp auto_save check_bufferset_file_trans read_fileset_file_modescwd___2 Jed_LibraryMini_MapX_Argc_Argv_Hook Stdin_Is_TTYSLang_Traceback Jed_Root_Dirtt_get_terminfoOutput_Display_Table Main_Argv Jump_Buffer Main_ArgcThe_MiniBuffertt_clsIgnore_User_AbortSLang_define_key1 mini_completeSLang_load_filegetenvdup2getcwdfcloseinit_syntax_tables window_buffer init_signals init_keymapsSLang_is_definedSLang_load_string define_wordfind_file_in_window__mainSLang_create_keymapinit_minibufferSLang_undefine_keyisatty set_bufferjedfileno slash2slashget_cwdX_Init_Global_Structures_Hookupdate_generic_marksNo_Screen_UpdateUndo_Buf_Unch_Flagrecord_deletionrecord_insertioncreate_undo_ringvdelvins splice_line insert_buffer del_newline replace_char my_signalresize_display my_interruptbackground_readlast_signal_codesignal_in_progresssignalSignal_Sys_Spawn_FlagX_Get_Term_Size_Hookkillsig_sys_spawn_cmdgetpidchange_screen_sizeabortget_term_dimensionssys_input_pending Read_FD_Set work___48 tty_inited JMouse_Fd Found_DirFile_Len Found_FileDirp Baud_RatesMax_FdRead_FD Input_BufferJMouse_Event_Hook Abort_Char Meta_Char DEC_8Bit_Hack tt_Baud_RateX_Input_Pending_HookX_Init_Term_Hook Flow_ControlKeyBoard_XlateOLDTTYX_Reset_Term_Hooktt_enable_cursor_keysJMouse_Hide_Mouse_HookX_Open_Mouse_Hooktt_Screen_ColsX_Close_Mouse_Hook X_Read_Hook Display_Timetimeioctlselectfcntlstat tcsetattrSLang_push_integer tcgetattrchmodchownsleep cfgetospeedreaddirlrand48 sys_findnextsrand48chdirrmdirmkdirclosediropendirctimegetlogingetpwnamfgetsget_passwd_infoungetkey sys_getkeyungetkey_stringbuffer_keystringget_time map_character sys_findfirstdeslashmake_directorydelete_directorych_dirmake_random_numberenable_flow_controlupdate_1fix_attributesupdate_status_lineoutputstat_cpy finish_statusupdate_insert_lineStatus_Last_TimeStatus_This_Timefix_char_widthmake_status_linestatus_get_time do_scroll close_scroll queue_scrollexecute_scrolldo_scroll_down do_scroll_up open_scrollupdate_minibuffermark_window_attributes last___63 set_hscrollTop_Screen_Line_BufferAbsolute_Column Message_Color char_width display_lineDisplay_Initialized HScroll_Linelast_time___70Selective_Displaystatus_time___46j_csidis8bitupdate_screen_txtupdate_top_screen_lineEob_LineHScrollPoint_Cursor_Flag Scroll_LinesScroll_Region_2Scroll_Region_1 Mini_GhostJED_CSIDisplay_Eight_Bit Wants_HScrolltt_reset_scroll_regionTop_Window_Row tt_smart_putstt_set_scroll_regionWants_Syntax_Highlight tt_del_eolTerm_Supports_ColorMode_Has_Syntax_Highlighttt_reverse_indextt_Term_Cannot_Scrolltt_Use_Ansi_Colors Screen_RowDefault_Status_LineX_Update_Close_HookWant_EobX_Update_Open_Hook tt_init_video Jed_Dollartt_reset_videott_delete_nlines Point_On_Chartt_normal_video vscroll_downsyntax_highlightexecute_vscroll_downexecute_vscroll_up$$divU scroll_up vscroll_up SLang_doerrorinit_syntax_highlightset_status_formatfind_top scroll_down touch_screen do_dialog point_cursor redraw_screenredraw blank_linedefine_top_screen_lineJed_Version_Number mark_validfree_user_markL$C0008 Rect_Error touch_windowsRectangle_BufferSLang_free_user_objectSLang_pop_user_object set_mark_cmdSLang_register_classSLang_push_user_objectjed_make_user_object_markSLang_create_user_objectjed_move_user_object_markyankexchange_point_mark mark_spot goto_mark delete_region kill_regioninsert_rectangleopen_rectanglewidennarrow_to_regionmove_user_markgoto_user_markcopy_rectanglejed_free_user_object_markcreate_user_markuser_mark_bufferkill_rectangleregister_jed_classesblank_rectangle next_bufflist open_bufflistread_file_from_minibuffernext_string_listjed_close_objectjed_read_from_filejed_read_from_bufferjed_open_objectfind_non_visible_buffer jed_tracebackopen_string_listjed_clear_errorjed_open_lib_fileL$C0021L$C0032Expand_File_Hook prev___104 flag___105create_minibufferleditfind_scratch_buffer Process_Error Buf_List_LenString_Completion_Str_NextString_Completion_Str_LenString_Completion_Str Keymap_ErrorExpect_File_Errorget_last_bufferLast_Completion_BufferLast_Completion_Windows complete_open complete_next Last_Buffer Buf_ContextThe_MiniWindowSLang_Error_RoutineSLang_Dump_RoutineSLang_User_Open_Slang_ObjectX_Init_SLang_HookSLang_User_Clear_ErrorSLang_User_Close_Slang_Objecttt_narrow_width tt_wide_widthkill_buffer_cmdSLang_find_keymaptouch_window_hardSLang_define_key find_file_cmdSLang_push_malloced_stringopen_function_listnext_function_listpopenpcloseSLang_load_objectfind_keywrite_buffer_cmdSLang_get_function one_windowSLang_pop_integerSLang_find_key_function split_window replace_nextsearch create_window init_SLang init_SLmath init_SLunixinit_jed_intrinsicsSLang_extract_list_element unset_keyswitch_to_buffer_cmdset_keyunset_key_in_keymapkeymap_pset_key_in_keymap set_mode_cmd num_windows write_buffer what_char update_cmdcall_cmd replace_cmdcopy_region_cmdinsert_buffer_name screen_w80bufferp screen_w132 what_buffermake_line_string shell_commandbuffer_substringmarkpget_doc_stringdup_mark mini_readget_buffer_infoset_buffer_infomake_buffer_listwindow_size_intrinsic what_modeexpand_wildcards pipe_regioncommand_line_argv count_charsread_object_with_completion Ignore_Beepinsert_file_cmd find_file get_buffer kill_buffer evaluate_cmd load_bufferget_key_function Token_Pointerset_expansion_hookrecord_newline_insertion sbc_do_copyScroll_By_Copyingvdel_eol bol_search re_search_dir push_string Search_StructregSLang_regexp_matchSLsearchSLang_regexp_compile SLsearch_init bol_bsearchre_search_forwardregexp_nth_matchre_search_backward bol_fsearchbackward_search_line search_fileforward_search_linesearch_backwardsearch_forwardinsert_file_region replace_match wrap_line1is_paragraph_sepJed_Word_Range Chg_LCase_Luttext_smart_quote center_linenarrow_paragraphtext_format_paragraphforward_paragraphbackward_paragraphtransform_regionskip_word_charsskip_non_word_charstext_format_linebskip_word_charsbskip_non_word_chars key_interpretfind_function_stringL$C0035L$C0036L$C0037L$C0038L$C0039L$C0040L$C0020L$C0041L$C0042L$C0019L$C0057L$C0058L$C0056L$C0059L$C0043L$C0060L$C0055L$C0018L$C0017L$C0044L$C0016L$C0015L$C0014L$C0013L$C0031L$C0045L$C0030L$C0054L$C0029L$C0028L$C0027L$C0026L$C0012L$C0046L$C0011L$C0010L$C0025L$C0024L$C0047L$C0023L$C0009L$C0048L$C0049L$C0022L$C0053L$C0007L$C0050L$C0006L$C0005L$C0004L$C0051L$C0003L$C0002Slang_FunctionsL$C0052L$C0034L$C0033dump_this_bindingmacro_depth___10 Flist_ContextFlist_Context_Lenupdate_jed_keybufferSlang_Flist_Context repeat___21 last___44Last_Key_Buffer_LenJed_Key_Buffer digit_arg Jed_FunctionsCurrent_Kbd_Command_Stringkbd_quitLast_Kbd_Command_StringX_Define_Keys_Hooktt_beep SLKeyMap_List goto_matchenlarge_window delete_windowundo SLang_do_keySLang_make_keystringSLang_execute_functionmark_undo_boundarySLang_find_nameatoi use_keymap what_keymap dump_bindings which_keyset_current_kbd_commandset_abort_charadd_to_completion is_internal create_keymapJMouse Kill_Arrayinsert_from_kill_arrayKill_Array_Sizecopy_region_to_kill_arrayappend_region_to_kill_arrayfind_screen_lineadjust_windowsadjust_buffer_column_attributesprepare_next_undoUndo_In_Progress jed_memchrmap_color_object_to_number jed_systemtranslate_regionadd_to_completion_nenable_menu_bar rename_fileset_term_colors autoload_nset_term_color_escexit_error_cmddo_prefix_argument bury_bufferset_buffer_hookget_termcap_stringdo_tt_set_term_vtxxxdo_tt_write_stringdo_buffer_keystringset_column_colorsset_color_object jed_getpidTranslate_Region_Arrayjed_intrinsics tt_set_colortt_set_color_esctt_write_stringtt_set_term_vtxxxSLang_add_arraySLang_autoload SLtt_tgetstrfputstt_Ignore_Beeplist_abbrev_tablesuse_abbrev_tablecreate_abbrev_table define_abbrevabbrev_table_pdump_abbrev_tablewhat_abbrev_tabledelete_abbrev_tablefind_matching_delimiterparse_to_pointset_syntax_flags define_syntaxuse_syntax_tablecreate_syntax_tabledefine_keywordssystemSLang_add_table SLadd_namehighlight_commenthighlight_numberhighlight_string try_keywordhighlight_word color_columns Char_SyntaxKeyword_Not_Case_SensitiveKeywords find_tableGlobal_Abbrev_Table push_word Abbrev_Tablesfind_syntax_tablebackward_goto_matchforward_goto_matchparse_to_point1 Syntax_Tablesgoto_effective_eolDefault_GC_Infopush_mouse_eventx_define_xkeys X_read_keyxjed_check_kbd xjed_suspendX_update_close load_fontX_input_pendingx_handle_harmless_eventsX_process_events X_update_open X_init_slang x_err_handlerx_ioerr_handlerJX_normal_video init_Xdisplayreset_Xdisplay myXstrcmpX_Get_Term_SizeL$C0072L$C0073L$C0074L$C0075L$C0076L$C0077L$C0078L$C0079L$C0080L$C0081L$C0082L$C0083L$C0084L$C0085JX_Screen_ColsJX_set_scroll_regionJX_reset_scroll_regionJX_Screen_RowsJX_write_string JX_goto_rcJX_begin_insert JX_end_insertJX_delete_char JX_erase_lineJX_delete_nlinesJX_reverse_indexJX_beep JX_del_eol JX_smart_putsThis_MBGThis_MFGThis_Border_Width_NameThis_Font_Name This_GeometryThis_App_Title This_App_Name X_Alt_CharJX_Ignore_BeepJX_Use_Ansi_ColorsJX_Term_Cannot_InsertJX_Term_Cannot_ScrollNot_UsedJX_get_terminfo X_Last_Keysym JX_init_videoJX_reset_videoJX_set_term_vtxxxJX_narrow_width JX_wide_widthJX_enable_cursor_keysJX_cls JX_putcharset_window_name x_set_keysymcreate_XWindowL$C0061L$C0062L$C0063L$C0064L$C0065L$C0066L$C0067L$C0068X_eval_command_linex_insert_cutbufferL$C0069 JX_set_colorx_warp_pointerx_region_2_cutbufferL$C0070L$C0071set_border_color This_X_Window sl_x_tablecreate_needed_gcsset_mouse_colorsetup_and_parse_colorsx_set_color_freesetup_ith_color set_wm_hints get_xdefaults xfont___82 hide_cursorXWin No_XEvents This_XDisplaytt_write This_XWindow copy_rect blank_rect show_cursor toggle_cursorPerforming_Update This_XScreenJX_reverse_video Rev_Vid_Flag send_attr_str X_Arg_Listforward_cursorlast_button___48cover_exposed_areaKeySym_MappingShift_KeySym_MappingControl_KeySym_MappingX_Warp_Pendinglast_event___55motion_button___56motion_state___57 XAllocColor XParseColor XLookupKeysymXFlushSLang_InterruptXDrawImageString XNextEventXPending XPeekEvent XCreateGCXFillRectangle XCopyArea XClearAreaXDrawRectangleXBell XSetStateXFreeGCXCheckMaskEvent XQueryPointer XLookupStringfflush XClearWindow XLowerWindow XRaiseWindowXLoadQueryFont XGetDefault XWarpPointer XStoreName XSetIconNameXSetWMNormalHints XSetWMHintsSLdefine_for_ifdefXRecolorCursor XGeometryXCreateSimpleWindow XSelectInput XDefineCursor XGetErrorTextXSetIOErrorHandler XOpenDisplay XDisplayNameXSetErrorHandlerXCreateFontCursorXSetFont XMapWindowSLang_process_keystring XCloseDisplayXSetWindowBorderXSetWindowBorderWidthXSetForegroundXSetBackgroundXSetWindowBackgroundXFree XStoreBytesXSetSelectionOwner XFetchBytes tt_erase_linett_tt_normal_video inner_interp compute_hashSLang_locate_name_in_tablelang_free_branchSLang_locate_global_name lang_execlang_try_binarySLang_locate_slang_name try_directivelang_check_nameLang_Interp_Stack_Static lang_dumpGlobal_User_Blockinterp_variable_eqsinterp_push_numbertry_byte_compiledlang_try_unaryLocal_Variable_StackLang_BBody_SizeLang_Block_Stacklang_begin_blockLang_DirectivesUser_Block_Ptrbuf___44 trace___45Exit_Block_Ptr do_tracebackLang_Object_Ptr Last_ErrorLang_Block_DepthLang_Defining_Block do_binarydo_unaryLang_FBody_SizeLang_Defining_Functionlang_make_objectLocal_Variable_FrameHashSLStack_Pointer_MaxLang_Interp_StackLang_Interp_Stack_Ptrlang_check_space Lang_ContinueSLang_Name_Table_Ofs Lang_Return Lang_Breakinterp_push_stringLang_Local_Variable_TableLang_Break_Condition code___122 flag___125lang_define_functionLang_Function_BodySLShort_Blocks lang_try_now lang_do_eqslang_do_intrinsic lang_do_loops call_funptr lang_do_elseSLang_push_variablelang_begin_functionLang_FBody_PtrReally_Stupid_Hash init___134lang_end_blockLang_Block_BodySLStack_PointerLocal_Variable_Number SLRun_StackSLName_Table_Root SL_Binary_OpsLang_Defining_VariablesSLang_Trace_FunctionSLang_Name_TableSLang_Registered_Types SLang_Trace SLang_popSLang_pop_pointerSLang_Exit_FunctionSLang_pop_non_objectSLang_locate_nameslang_eqs_nameSLPreprocess_Only SLcompile_ptrSLang_Enter_Function SLmake_string SLcompilefputcSLang_guess_typeSLatoiatofSLang_add_global_variableSLang_pop_floatSLstringize_objectSLdo_popSLang_push_float SLang_pushSLang_clear_errorSLang_trace_funSLadd_variable SLang_VersionSLbyte_compile_name SLstack_depthSLreverse_stack SLstupid_hashslang_read_from_fileslang_read_from_stringfast_extract_tokenSLang_byte_compileslang_close_objectslang_open_object pop_tokenCTok function_argstry_multiple_assignment push_tokenGet_Token_Read_Fun This_SLpp expressionSLang_eval_objectLLTTokenat_handler_name parse_errorhandle_special_at_line Name_Stack directiveLook_For_Muliple_Assignmentblockblock_internalInputtermbasic arguments pop_eqsname Name_Stack_PTerminate_StringSlang_Line_Lendefining_variablesbyte_compile_fpNum_Pushed_Tokens get_token Token_StackSLang_User_PromptSLang_extract_tokenSLang_rpn_interpretfopen__flsbufSLprep_line_okSLprep_open_prepSLexpand_escaped_stringSLadd_at_handlerSLang_byte_compile_filedmath1math_floating_point_exceptionmath_cosmath_sinmath_tan math_atan math_acos math_asin math_sqrt math_log10math_logmath_powdmath2Const_Emath_expConst_Pislmath_do_float math_poly slmath_tableexpcossintanlogatanpowacoslog10asinsqrtpop_two_stringsunary_op_function float_bin_op int_bin_opdo_trim lang_apropos1 SLdo_substr SLdo_issubstr SLdo_strupSLquote_string SLdo_strlow SLdo_strcmp SLdo_strncmp SLdo_strlen SLdo_isdigitSLdo_int lang_aproposuncomment_stringset_float_format SLdo_integer SLdo_char str_replace SLdo_stringSLdo_dup SLdo_sprintf SLsprintfmake_printable_stringSLang_is_list_element string_matchstring_match_nth my_systemInteger_Type_Var SLdo_strsubString_Type_Varlang_putenv_cmdFloat_Type_VarSLdo_strcompresslang_print_stack SLdo_strtrimlang_getenv_cmd SLdo_strcatgeneric_equals elem___74 regexp_regregister_types Float_Formatset_utility_char_tableUtility_Char_TableSLang_Basic_TableSLmake_nstringSLang_add_binary_opstrstrSLang_add_unary_opSLarray_free_arraySLexpand_escaped_charputenvSLang_create_arraySLarray_getelemSLarray_putelem SLarray_sortSLinit_char_arraySLang_define_case SLcopy_array SLarray_infoSLang_init_case_tablescompute_array_offsetarray_push_element str_get_elem Bound_errSLang_pop_arraySLcreate_array do_nth_matchregexp_looking_at convert_digitThis_RegNext_PosThis_Strunix_stat_fileunix_lstat_fileunix_stat_struct stat_islnk stat_isreg stat_isdir stat_ischr stat_isblk stat_isfifo stat_issock unix_chmod unix_chown parse_stat unix_ctime unix_kill slunix_tableStat_Buf map_errno malloc_key add_keymap copy_keymapbuf___19str___8Define_Key_Error jed_memcmpSLang_Error_MessageSLang_Exit_Error_HookSLang_exit_errorSLang_Input_Buffer_LenSLang_Input_Buffer SLsys_getkeySLsys_input_pendingSLang_ungetkey SLang_getkeySLang_Ignore_User_AbortSLang_ungetkey_stringSLang_buffer_keystringSLang_Abort_CharSLang_input_pendingSLang_flush_input tt_sprintf my_tgetstrCursor_c tt_printf Scroll_R_Str Cursor_SetCursor_Visible_StrCursor_Invisible_StrCursor_r Curs_Up_Str Curs_Pos_Str Ins_Mode_Str Eins_Mode_Str Del_Char_Str Norm_Vid_StrDel_N_Lines_StrCls_StrAdd_N_Lines_StrRev_Scroll_StrVisible_Bell_Str last_i___52Start_Alt_Chars_StrEnd_Alt_Chars_Strwrite_attributesAutomatic_MarginsWorthless_HighlightUnderLine_Vid_Str Rev_Vid_Str Blink_Vid_StrVideo_Initialized Curs_F_Str FgBg_Stats total___5Tstr_Buf last_time___4Tbuf Vt100_Like Linux_Console Del_Eol_Str Color_Defs Current_Fgbg Scroll_r2 Term_Init_StrTerm_Reset_Str Scroll_r1 Bold_Vid_StrEnable_Alt_Char_SetColor_Escape_SequenceAnsi_Color_MapSLtt_Use_Ansi_ColorsSLtt_Screen_RowsSLtt_Screen_ColsSLtt_Has_Alt_CharsetSLtt_Term_Cannot_InsertSLtt_Graphics_Char_PairsSLtt_Blink_ModeSLtt_Term_Cannot_ScrollSLtt_Ignore_BeepSLtt_Num_Chars_OutputSLtt_Baud_RateSLtt_Newline_Ok SLtt_tigetnumSLtt_Use_Blink_For_ACSSLtt_tigetflag SLtt_tigetent SLtt_tigetstrSLtt_set_scroll_regionSLtt_reset_scroll_regionSLtt_set_cursor_visibility SLtt_goto_rcSLtt_begin_insertSLtt_end_insertSLtt_delete_char SLtt_del_eolSLtt_erase_line SLtt_putcharSLtt_normal_videoSLtt_delete_nlinesSLtt_clsSLtt_reverse_indexSLtt_write_string SLtt_beepSLtt_set_colorSLtt_add_color_attributeSLtt_set_color_escSLtt_set_alt_char_setSLtt_bold_videoSLtt_reverse_videoSLtt_narrow_widthSLtt_wide_widthSLtt_smart_putsSLtt_set_color_object SLtt_tgetnumSLtt_flush_output SLtt_tgetflagSLtt_set_term_vtxxx SLtt_set_monoSLtt_get_terminfoSLtt_enable_cursor_keysSLtt_init_videoSLtt_reset_videoSLtt_set_mouse_modeCase_Tables_Okdefault_destroy add_binary_opSLang_add_copy_operationis_any_definedis_env_defined SLdefinesSLprep_close_prepdefault_sigint TTY_InitedSLang_TT_Read_FDOld_TTYSLang_TT_Baud_RateSLtty_set_suspend_stateSLang_set_abort_signalSLang_reset_ttySLang_init_tty special_chars make_integerread_terminfo_sectiontcap_extract_fieldcompute_cap_offset tcap_get_capread_boolean_flagsread_terminal_names tcap_getent open_terminfo tcap_getstrread_string_tableread_string_offsets tcap_getnum read_numbers tcap_getflag Terminfo_DirsSLtt_Try_Termcap Tgetnum_Map Tgetstr_Map Tgetflag_Mapfread L$text0000 Ltext_endinitialized___6 __CTOR_LIST__ __DTOR_LIST____do_global_dtors__do_global_ctorsatexit_exit_dummy_decl_exit_dummy_ref_iobLIBC//Mdiv_const.o0HPUX Precision Architecture vers PA2.0 assembler92453A.08.12 (sllic PA1.1)$neg3$pos$neg$neg5$neg6 $pos_for_17$neg10 $neg_for_17$neg12$neg15$neg17$u17$neg7$7$pos7$1$2$8 $neg7_shift$3$4$neg9$neg14$$divide_by_constant$$divI_2$$divI_4$$divI_8 $$divI_16$$divI_3$$divU_3$$divI_5$$divU_5$$divI_6$$divU_6 $$divU_10 $$divI_12 $$divU_12 $$divI_15 $$divU_15 $$divI_17 $$divU_17$$divI_7$$divU_7$$divI_9$$divU_9 $$divI_14 $$divU_14 LIBC//MdivI.o negative1 small_divisornormal$$divoI LIBC//MdivU.ospecial_divisor big_divisor zero_divisor LIBC//MremI.ot1finishLIBC//MdyncallU.onoshlibsetextedataend_etext_edata_end __SYSTEM_ID _fp_statusetextedataend_etext_edata_endxxy y{xy y|xy y|dxy y|xy yN0p)==yXx+S8@>@UI@UN@:DUS@U7@U<U<@U UUU@U sU s@U xU x@U U@U U@U U@U tU@U U@U U@U U@U U@U  U@U 0U @U U"@U  U$ @U U&@ U /t U(/@(U CU*C@0U LU,L@8U +\U.\@@U #fU0f@HU |:hU2|@PU  U4@XU 0U6@`U %U8@hU HU:@pU $U<@xU /t8U>@U 'U@@U 3tPUB@U ?`UD@U thUF@U UH@U -<UJ@U )TUL@U =/lUN/@U ;=UP=@U OK8URK@U IVPUTV@U cUVc@U KpUXp@U 7{tUZ{@U U\@U U^@U MU`@U 14Ub@U cUd@U Y,Uf@ U 5DUh@(U Q\Uj@0U EtUl@8U hUn@@U AxUp@HU _tUr@PU S(Ut(@XU ]9Uv9@`U eIUxI@hU UNtUzN@pU gTU|T@xU satU~a@U ifUf@U oytUy@U uU@U }HU@U [U@U U@U CtU@U WU@U `U@U mU@U xU@U w  U @U ! 4U @U 8U @U (U (@U 4PU 4@U DU D@U MU M@ U VhU V@(U _U _@0U iU i@8U q t U t@@U 9 xU x@HU y ~U ~@PU {  U @XU 4(U @`U U @hU U @pU  ˨U @xU U @U U @U ,U ,@U :U :@U JU J@U ]U ]@U buU b@U lU l@U |(U |@U U @U $U @U k @U @U 4@U @U XU @U U @U pU @ U U @(U -U -@0U IU I@8U `U `@@U lU l@HU y U y@PU a U @XU u(U @`U U @hU U @pU U @xU 8U @U U @U U @U  U @U U @U U @U U @U U @U )U )@U 34XU 3@U  <U <@U DU D@U U<U U@U cU c@U  0U @U (U @U  @U @U  XU @U  pU @U TU @ U U @(U  U @0U ۈU @8U 4U @@U G HU @HU  /$U" /@PU  >`U$ >@XU  JxU& J@`U XU( X@hU gU* g@pU # x<U, x@xU  TU. @U % lU0 @U ) ۠U2 @U + u@U4 @U  LU6 @U 3 U8 @U - uXU: @U upU< @U 7 ۸U> @U =U@@U UB@U 'UD'@U 8UF8@U ;DUHD@U ITUJT@U iULi@U '{LUN{@U uUP@U 1uUR@U /lUT@U U0UV@ U uUX@(U 5dUZ@0U U\@8U U^@@U Y U`@HU WUb@PU KHUd@XU Q(`Uf(@`U eEUhE@pU cP8UjP@xU M\PUl\@U CghUng@U [q4pUpq@U }Ur}@U AUt@U uUv@U wUx@U qxUz@U 98U|@U {PU~@U GhU@U s ̀U @U ,̘U,@U  ?̰U?@U !KUK@U sUs@U dU@(U 4U@0U uU@@U uU@HU ivU@PU vU@XU _ 1pU @`U O1U@hU }01U0@pU ?D1UD@xU gR1UR@U a1Ua@U Es2Us@U a2U@U U@U :U@U o:U@U  :U @U k:U@U y):U)@U 7:U7@U ]H;UH@U \;(U\@U lUl@U U@U U@U PU@U hU@U &@U&@U _U_@U U@U U@U U@U yUy@PU DU@XU D0U@`U DHU@hU D`U@U !U!@U JDxUJ@U \U\@U pU@U U@U DU@U DU@U U@U XU@U  U @U U@U BUB@U UUU@U mU@U ;@U ?@U C@U G@U L@U Q@U V@U Z@U ^@U c@U i@U mDUm@U 4U@U    < U  = /  p c L      &4B U hy       ( I     x   C \     { a  T    K  V      N  /   f  9 |  {  %5ESbo|   x } e [ w | o s ` i W m  Y_gnx}%+1:AGMT[`glrx !(/8=DJQW[`eioswx|} )?HXgv'1>OZesy#/<Usx /CL\f|/=KVcp{(9INTafny    ( 4 D M V _ i t x ~        , : J ] b l |         - I ` l y              ) 3 < D U c w            / > J X g x         '8DTi{(1EP\gq} ,?K^s 0DRas )7H\l$4BM^m{-:HXn&/;GS_p|5DQbly !/@J\t />OZep{ &4BUhy %5ESbo| mxjed/usr/lib/X11R5/libX11.sl/lib/libm.sl/lib/libc.slerrno_SYSTEM_ID_iob_end__iobchmodstrncpyatexittcsetattrkilltcgetattrmkdirlrand48memcpyreaddirpopenfflushselect_startchdirlongjmpsetjmpctimesprintfaccesswriteioctltimecfgetospeedreallocsignalgetpidgetloginfopenrmdir__flsbufmallocfcntllstatgetcwdputenvfreepcloseopenfputsabortgetpwnamunlinkfputcstrcatdup2atoifreadsystemreadlinkatofgetenvexitfprintfstrcmprenamesrand48strncmpcallocsleepreadfgetsisattystrlenfcloseopendirstrcpyfilenoclosedirstatstrstrchownmemsetclosepowatansqrttanlog10explogacosasinXDrawRectangleXSetWMNormalHintsXSetBackgroundXNextEventXLookupStringXParseColorXSetIOErrorHandlerXDefineCursorXCreateFontCursorXDisplayNameXSetSelectionOwnerXSetWindowBorderWidthXSetFontXCheckMaskEventXSetForegroundXFillRectangleXSetWMHintsXStoreNameXAllocColorXSetStateXGetErrorTextXQueryPointerXCreateGCXPendingXGetDefaultXClearAreaXLoadQueryFontXClearWindowXWarpPointerXSetWindowBackgroundXCopyAreaXSetIconNameXSetErrorHandlerXPeekEventXMapWindowXCloseDisplayXBellXGeometryXFetchBytesXCreateSimpleWindowXOpenDisplayXRaiseWindowXLookupKeysymXSetWindowBorderXSelectInputXDrawImageStringXFlushXFreeXLowerWindowXRecolorCursorXStoreBytesXFreeGCmainbackward_delete_char_cmdbackward_delete_char_untabifybeepbegin_keyboard_macrobobbolcenter_linecopy_to_pastebufferdelete_char_cmddelete_windowdigit_argend_keyboard_macroenlarge_windoweobeol_cmdevaluate_cmdexecute_keyboard_macroexchange_point_markexit_jedexit_minibufferfind_filetext_format_paragraphgoto_matchindent_lineinsert_file_cmdkbd_quitkill_bufferkill_linekill_regionmacro_querymark_spotmini_completenarrow_to_regionnarrow_paragraphnewlinenewline_and_indentnext_char_cmdnext_line_cmdone_windowother_windowpagedown_cmdpageup_cmdpop_spotprevious_char_cmdprevious_line_cmdquoted_insertredrawsave_some_buffersscroll_leftscroll_rightins_char_cmdset_mark_cmdsplit_windowget_buffersys_spawn_cmdtext_smart_quotetrim_whitespaceundowidenwrite_bufferyankset_keyautoload_npush_markinsert_stringeolset_buffermessageadd_to_completion_ndelete_regionbuffer_substringforwcharsset_key_in_keymapbackwcharswhat_buffermsg_errorget_buffer_infois_internalset_buffer_infoprevlinenextlinecall_cmdunset_keylooking_atdelmarkpnum_windowsadd_to_completioncalculate_columneobpset_mode_cmdsearch_forwardjed_buffer_visibleset_term_colorsmap_color_object_to_numberset_term_color_escextract_filepop_to_buffercopy_region_cmdinsert_buffer_namebolppush_spotsearch_backwardswitch_to_buffer_cmddo_tt_write_stringeolpwhat_keymapfind_file_in_windowset_status_formatbury_bufferdup_markerase_bufferwindow_size_intrinsiccopy_region_to_kill_arrayappend_region_to_kill_arrayinsert_from_kill_arraygoto_columngoto_column1goto_linebackward_search_linepop_markmini_readfile_statusskip_whitespacebobpforward_search_linebol_fsearchbol_bsearchflush_messageinput_pendinginsert_filekeymap_pwhat_charrecenterbufferpget_key_functiondump_bindingsunset_key_in_keymapjed_getpidupdate_cmdskip_word_charsskip_non_word_charsbskip_word_charsbskip_non_word_charswhich_keyinsert_whitespacefile_time_cmptransform_regionskip_charscommand_line_argvset_file_transpipe_regionshell_commandmake_directorydelete_directoryappend_to_fileauto_saveauto_save_allbackward_paragraphblank_rectanglebskip_charsmake_buffer_listcheck_regioncopy_rectangledefine_wordkill_buffer_cmdsys_delete_fileexpand_wildcardsload_bufferexpand_filenamefile_changed_on_diskforward_paragraphjed_getkeyinsert_rectanglekill_rectanglecreate_keymapmap_characteropen_rectanglequit_jedfind_file_cmdread_object_with_completionreplace_cmdset_abort_charget_timeungetkeydo_buffer_keystringuse_keymapscreen_w132screen_w80what_modewindow_linewrite_buffer_cmdwrite_regioncount_charsget_yes_norename_filech_dirdo_prefix_argumentregexp_nth_matchreplace_matchre_search_forwardre_search_backwardset_buffer_hookinsert_file_regionsearch_filemake_random_numberdo_tt_set_term_vtxxxenable_flow_controlexit_error_cmdget_last_macrodefine_top_screen_lineenable_menu_barcreate_user_markgoto_user_markmove_user_markuser_mark_bufferlist_abbrev_tablesuse_abbrev_tablecreate_abbrev_tabledefine_abbrevabbrev_table_pdump_abbrev_tablewhat_abbrev_tabledelete_abbrev_tableset_column_colorsset_color_objecttranslate_regionset_current_kbd_commandfind_matching_delimiterblink_matchparse_to_pointset_syntax_flagsdefine_syntaxuse_syntax_tablecreate_syntax_tabledefine_keywordsset_expansion_hookget_passwd_infoget_termcap_stringget_doc_stringset_window_namex_warp_pointerx_insert_cutbufferx_region_2_cutbufferx_set_keysymX_eval_command_lineJX_goto_rcJX_begin_insertJX_end_insertJX_del_eolJX_delete_nlinesJX_delete_charJX_erase_lineJX_normal_videoJX_clsJX_beepJX_reverse_indexJX_smart_putsJX_write_stringJX_putcharJX_init_videoJX_reset_videoJX_set_scroll_regionJX_reset_scroll_regionJX_get_terminfoJX_set_colorJX_wide_widthJX_narrow_widthJX_enable_cursor_keysJX_set_term_vtxxxlang_dumpSLcompilemath_polymath_sinmath_cosmath_tanmath_atanmath_acosmath_asinmath_expmath_logmath_sqrtmath_log10math_powslmath_do_floatSLang_autoloadSLdo_popSLdo_strcmpSLdo_strcatSLdo_strlenstr_replaceSLang_is_definedSLdo_stringlang_getenv_cmdlang_putenv_cmdSLang_load_fileSLdo_charSLang_load_stringSLdo_dupSLdo_substrSLdo_integerSLdo_issubstrSLdo_strsubSLang_extract_list_elementSLang_is_list_elementgeneric_equalsstring_matchstring_match_nthmy_systemlang_aproposSLang_trace_funSLang_create_arraySLarray_getelemSLarray_putelemSLdo_strncmpSLdo_strlowSLdo_strupSLdo_isdigitSLdo_strtrimSLdo_strcompressSLdo_intSLarray_sortSLstack_depthlang_print_stackSLsprintfSLinit_char_arraySLang_byte_compile_filemake_printable_stringSLquote_stringuncomment_stringSLang_define_caseSLang_clear_errorset_float_formatSLcopy_arraySLarray_infoSLang_guess_typeunix_killunix_ctimeunix_lstat_fileunix_stat_fileunix_stat_structstat_islnkstat_isregstat_isdirstat_ischrstat_isblkstat_isfifostat_issockunix_chownunix_chmodresize_displaymy_interruptmy_signalsig_sys_spawn_cmdbackground_readfree_user_marksys_findfirstsys_findnextopen_bufflistnext_bufflistopen_function_listnext_function_listopen_string_listnext_string_listjed_read_from_filejed_read_from_bufferjed_tracebackjed_open_objectjed_close_objectjed_clear_errorjed_systemx_ioerr_handlerx_err_handlerX_read_keyX_input_pendingX_Get_Term_SizeX_update_openX_update_closexjed_suspendX_init_slanginit_Xdisplayreset_Xdisplayx_define_xkeysxjed_check_kbdSLang_extract_tokenfast_extract_tokenslang_read_from_fileslang_read_from_stringSLang_byte_compilemath_floating_point_exceptioncossintanatanacosasinexplogsqrtlog10powSLarray_free_arrayint_bin_opunary_op_functionfloat_bin_opdefault_destroydefault_sigint__do_global_dtorsXZ]XZ]XZ]XZ]d@"Z]> ZZ]> ZZ]9 Z8 =@Y :Z @Z@ ZZZ] ZZ @"ZY :ZZ@= ZZZ@= Z ZY :Z]ya: =]: =]  : =@]ZBu ZZZZ ZZ]ya: =]: =]  : = @]ZB ZZZM ZZY :}@]Be]yZZ5@*Z@ya AZ@ya AZ]ya A @Z@] Z]: =] y a: =]Y(ZYY8Z@] Z]: =] y a: =]Y(Z YY8Z]Y Z @*Z@YA AZ@YA AZ]YA A @ ZZmZ?#Z>B @V   @  A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  :R @@@ @]@@@W@@@_@/@@ @V7@ @V@w@ @ :>B  @ Z A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  a@@@ @]]@]O@@@]7@@ @@ @'@G@ : @V   @A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A ˡF ! !V @JJ k?Buffer is read only!create group: internal error 1free group: internal error 2destroy_bunch_line: internal error 1Malloc Error in make_line: requested size: %d.remake_line: realloc error!, size = %d<%d>make_buffer: malloc errorMalloc Error in dup_line.Top Of Buffer.End Of Buffer.Access to shell denied.suspend_hookresume_hookBuffer %s not saved. Save it? (y/n)Buffer %s not saved. Save it exit_hookMacro Size exceeded.Enter String:- %s (default: %s) Illegal context for Macro definition.Defining Macro.Macro Defined.Not defining Macro!Can't execute a macro while defining one.Complete Macro first!Macro not defined.%s%smode_hookWrite Failed!Unable to open %s for writing.make_autosave_filename%s#%s#make_backup_filenameautosaving...autosaving...done.()command_line_hook0-9a-zA-Z-----secure-batch-script/dev/ttymain: Fatal Errormain: Allocation Failure*scratch**stdin*JED_ROOT/usr/local/jedlibJED_LIBRARYsiteMini_Mapmain: malloc error^M^I Batch End with no exitins: CLine is NULL End of Buffer.Killed by signal %d.Attempt to read from background-- exiting.getkey(): read failedselect: keyboard file descriptor is bad!!!fffg/LOGNAMEUSERHOME[EOB]UUUVPoint not visible in Window.*AllTopBot%d%%%d/%d abbrev Narrow Ovwrt0.F97.12%d% [Macro]Quit!update_timer_hookinit_display(): malloc error. JED (%s): Fatal Error: %s %s CBuf: %p, CLine: %p, Point %d CLine: data: %p, len = %d, next: %p, prev %p Max_LineNum: %d, LineNum: %d JWindow: %p, top: %d, rows: %d, buffer: %p Dumping Core.Mark Set.push_spot: malloc error!push_mark: malloc error!Spot Marked.Set mark first.Malloc Error during narrow.A buffer cannot be inserted upon itself. Rectangle has 0 width. Mark is invalid.Mark not in buffer.Expecting filename.Unknown_KeymapUnable to find buffer.*scratch*Buffer does not exist.Buffer %s modified. Kill, Save First, Abort: [KSA]Aborted.Filename Required.Wrote %d lines to %s%sError writing file %s%sset_buffer: Buffer name is NULL? (yes or no)yesnoyes or no!File changed on disk. Read From DiskFile not readable.New file.%d lines readfind_file_hook*Completions*Internal Error: no window!Command:Quit!Insert file:Error inserting file.Find file:Write to file:Switch to buffer:Kill buffer: Unable to open process.Access denied.rMalloc Error.wJED_ROOT environment variable needs set..slcloading %sThe expansion hook has not been defined.Error encounter during expansion. Disabling expansion hook.!!! Use Page Up/Down keys to scroll this window. !!! [Sole Completion.]No Match!Function does not exist!Malloc Error*traceback*Argc out of bounds.'@'=%d/0x%x, point %lu of %luUnable to initialize S-Lang!split_line: Null LineAllocation Failure in split_linesplice line: next line is NullUnable to compile pattern.is_paragraph_separatorformat_paragraph_hookyankwrite_bufferwidenundotrim_whitespacetext_smart_quotesys_spawn_cmdswitch_to_buffersplit_windowset_mark_cmdself_insert_cmdscroll_rightscroll_leftsave_buffersredrawquoted_insertprevious_line_cmdprevious_char_cmdpop_spotpage_uppage_downother_windowone_windownext_line_cmdnext_char_cmdnewline_and_indentnewlinenarrow_paragraphnarrowmini_completemark_spotmacro_querykill_regionkill_linekill_bufferkbd_quitinsert_fileindent_linegoto_matchformat_paragraphfind_fileexit_miniexit_jedexchangeexecute_macroevaluate_cmdeol_cmdend_of_bufferenlarge_windowend_macrodigit_argdelete_windowdelete_char_cmdcopy_regioncenter_linebeg_of_linebeg_of_bufferbegin_macrobeepbackward_delete_char_untabifybackward_delete_charQuit!globalMalloc error creating keymap.^[1^[2^[3^[4^[5^[6^[7^[8^[9^[0^[[D^[OD^[[A^[OA^[[B^[OB^[[C^[OC^[[6~^[[5~^K^[[C^K^[[D^K^[[A^K^[[B'"^_^?^B^D^E^G^I^K(^K)^KD^KE^KG^KK^KM^KX^K^B^K^I^K^M^K^P^K^V^K^W^L^M^R^U^V^W0^W1^W2^WO^XB^XK^XN^XQ^XS^XW^X^^X^[^X^X^Z^[<^[>^[N^[Q^[S^[X^[\^\`Possible runaway macro aborted.*scratch*.()jed_startup_hookDELESCSPACETABKeymap undefined.Unknown keymap.Undefined Symbol.Completion Quota Exceeded.Unable to create keymap.create_window: malloc error.Window too small.Undo not enabled for this buffer.No more undo information.Next undo lies outside visible buffer.Undo!Unable to malloc space for undo!Unable to malloc space.Realloc Error.normalstatusregioncursoroperatornumberstringcommentdelimiterpreprocessmenumessageerrordollarkeywordpar_sepindent_hookwrap_hooknewline_indent_hookAccess denied.JedsystemDisplay_MapTRANSLATE_ARRAYTable does not exist.Abbrev Table Quota reached.Malloc error.GlobalExpansion is too long.Mismatch!!Mismatch??Matches Syntax table undefined.Delimiter set does not match.Bad parameter to define_syntaxTable number too high.Keyword length not supported.Keyword list is improperly formed.XJedfixed0greenwhitegraybluemagentaskyblueredblackxrmIconicbdBordercolorTitlebwBorderwidtherbgError_bgerfgError_fgmsfgMessage_fgmsbgMessage_bgprbgPreprocess_bgprfgPreprocess_fgdebgDelimiter_bgdefgDelimiter_fgkw1bgKeyword1_bgkw1fgKeyword1_fgkwbgKeyword_bgkwfgKeyword_fgcobgComments_bgcofgComments_fgstbgString_bgstfgString_fgnmbgNumber_bgnmfgNumber_fgopbgOperator_bgopfgOperator_fgMenu_bgMenu_fgcbgCursor_bgcfgCursor_fgrbgRegion_bgrfgRegion_fgsbgStatus_bgsfgStatus_fgfgForegroundbgBackgroundmbgMouse_bgmfgMouse_fgfnFontGeometryNamedDisplayxjed80x24+0-0XWindows IO error:0.0XJED: cannot connect to X server %s XJED: cannot load font %s, using fixed. XJED: cannot load fixed font. onmouseborderXWINDOWS^[[^D^[[d^[[^C^[[c^[[a^[[^A^[[b^[[^BVariable uninitialized.Function requires too many parametersBlock needed for while.Block needed for for.Unknown loop type.Function did not autoload!Local Variable Stack Overflow!>>%s <<%s S-Lang Traceback: %s Local Variables: $%d: ??" Object Ptr is Nil!Operation undefined for type.Block needed.Unsupported Type!Local variable pointer not initialized.No User BlockNo Error BlockName SyntaxName too long.Table size exceeded!EXECUTE_ERROR_BLOCKX_USER_BLOCKnot~chssignabssqrmul2Function nesting illegal.Calloc error defining function.Block Nesting too deep.USER_BLOCK4USER_BLOCK3USER_BLOCK2USER_BLOCK1USER_BLOCK0EXIT_BLOCKERROR_BLOCKorelseandelsedo_whileswitchloop_forforwhileforeverelseif!ifInternal Error with block!continuebreakreturnexchInterpret stack overflow.Lang: calloc error.Illegal name.NO|xorshrshl&modorand!=>=>==<=</*-+;Line %d: %sName stack overflow.Invalid Name[Expecting comma.])popUnexpected end of source.Syntax Error.ifreturnelseExpecting while.{}do_whilewhileExpecting EOS.Expecting function name.(Expecting '{':Expecting ';'Incomplete Statement.aputagetchsUnbalanced parenthesis!Incomplete list!ifforevervariabledefineforloopswitchorelseandelse+=-=_fordoERROR_BLOCKEXIT_BLOCKUSER_BLOCKcaseglobal_variableIllegal Name.rError opening %s.S-Lang Error: line %d: file: %s .@%scwError opening .slc file for byte compiling.@Error opening %s for byte compiling.?SLMATH_Math Comment delimiter length mismatch.The string cannot be converted to an integer.%d(Str)(Int)(float)(Ptr)(Array)(Unknown)(%d) %s:%Invalid Format.Unable to compile pattern.UNIX_Basic_UNIXFLOAT_TYPEArray size not supported.Unable to create array.Array dims out of boundsCorrupted Array.Array Element uninitialized.Internal Error in array element.Copy not supported for this array type.Sort function undefined.Invalid sort function.Sort requires 1 dim arrays.Error Creating index array.Operation requires character array.String too big to init Array.Pattern large to be compiled.st_devinomodenlinkuidgidrdevsizeatimemtimectimeUnknown stat field.SLUNIX_UnixInconsistency in define key.Malloc error in define key.Undefined_NameSyntax ErrorStack OverflowStack UnderflowDuplicate DefinitionType MismatchVariable is read only.Malloc Error.Invalid Parameter.User Break!Intrinsic ErrorDivide by zero.Unknown Error.S-Lang Error: %s %s [3%d;4%dmQfffg [?5h[?5lwhitebrightcyanbrightmagentabrightblueyellowbrightgreenbrightredgraylightgraycyanmagentabluebrowngreenredblack[?3l[?3hCOLORTERMTERMTERM environment variable needs set.linuxvt52screenvt100Unknown terminal: %s Check the TERM environment variable. Also make sure that the terminal is defined in the terminfo database. Alternatively, set the TERMCAP environment variable to the desired termcap entry.clcmTerminal not powerful enough for SLang.imeidcvbupsrDLALtite[%dM[%dLcscoliLINESCOLUMNSxtermcemrsomdmbusasaeeAlmkjutvwqxn+o~s_`afg~ ,+.-hi0(B)U(B)0ac)0(B)0mesevivsRIamxssg=[?1l[%i%d;%drM[%dC[%i%d;%dH [?9h[?9lSearch string too long.Type not registered.endifdeffalsetruefffg%dToken to large.rb/usr/local/lib/terminfo/usr/share/lib/terminfo/usr/lib/terminfoTERMINFO%s/%c/%svsvivbusuptitesrsosemrmemdmbkuktkrklkhkdkbk;kakTkSkRkPkNkMkLkIkHkFkEkDkCkAk9k8k7k6k5k4k3k2k1k0imeAeidccscmclceasaeacRIDLAL@7licosgxsmsamTERMCAP+H5;H3; k?#d87{7K#+{h#'y 4Kd?Eke?(43 `'y H? zG+4>DEFYXZ#0*BZYX^k?#0(B@@@@ BK?@ @@k?ok= k=k=k=!k=)k=1k=9k=Ak=Ik=Qk=Y+{DCGE4: 0Y#$PBF 04 ?4 H4Y# B7>I4ZX#$B *4 4Y# BG>M4] BG>I4t *4 YX# BK>ZX#%PB7=4`ZX#$B G= *4 YX# BK=K> K>K>)k?k?4 4 Z Y W#%BL 2+4: 4 P X# BK>!k?k?4ZY4#%BH 2+4: 4 ` X# B@ k?k?44,Z Y#%B 2+4 p4:  X# BZ N#$BK>1K> lk=k=k?k=k=  +{4<+rh( `( 4"(P4$0+t0k?4?Wk=Xk?k?4% k?y7=k?q# #8BKK?K?K? @O?@ \@\B7 B??7@TS 44Z# @7` Z#%@_S@  4 "@@@@  4 "@R@@@  4 "@@@@  4 "@@@@  4 "@@@@  4& "@R@@@  4 "@@@@+j4!Ph<4?@@@P@K?@ @@@@K?@ @@h@K?@ @@@K?@ @@ @K?@ @@8@K?@ @@ @K?@ @@ @K?@ @@ @K?@ @@ X@K?@ @@h@K?@ @@ @K?@ @@@K?@ @@x@K?@ @+H5H3> k?+H5>!H3>) k?+H5>H3> k?+H5>aH3>i k?+H5?AH3?I k?+H5>QH3>Y k?/'0+rT+t SJs Jsj+{Sj` +{S4@j| +rU+t SJs Jtj+{U+rSJs莀 j +{h @4+{T+rSJsJs6s?``j j @4H3Js+{H4 Bst PH3 +t T+rSJ Js 04+{H3 6sh3 @4@+{h +j 4@h< +rH3`!4+{TJs6s?``j j @4+rH3Js+{H4 Bst 2+t T+rSJ Js 84 H4+{H3 6s@h3 +{h @4@+t H3 +rJtH3 4+{H< 04@+rH3` @4Ju?+{6?H3 t`+t @4T+rSJ Js (+r+{H< x4@H3Js u Bs?t?+{TJ u?46?j @4k?+rT+t SJs JJs 7_e4B4K?Y@7?+{H< 04@k?o4+{h KSs`j+rH3Jt JJ` J׆ "4ch4KSsH3` +{_@+{H3 sh3 \K?Y@O?4KZ`2+rH3Js` 7h3 +{h +{H3 | @h3 K\`4@4+t T+rSJ Js X+rH3+{JtH3 t x\ | @h3 +rH3Jw+{JsH4 p `RTBt 8J 6sj 6 6wB +{@\H3 w`(+rBt H367?H3Js` @+{H3 w`h\B`0@\h +rh3+{H3 6seh3 @k?ok? k?k?KC``4(4+t T+rSJ Js P+{+{H3 s@C+{H3 sh3 \F+{EH t@B 4 _4 ?H (4?+{H3 sh3 d K>K? K?K?@O?k?ok? k?k?+`H5 +`H3֓6s>s@ԂJ d` #C 7ZF 4+`H3Jtjth +`H3 6s?h3 P\+{H4 4>薓>s@Ԃ+`H3Js d` 0H4#C 7ZF 84+`H4Jj+`H3 6s?h3 +{H< 7h3 ל7@ +`H#`!2Hc`! +`H3 `!T#C FHs` D@4Є6t6s c >s@ԂHs d` 7ZF 4HshsH 6s?h \Hct?Hs_=4| +`TJ` j(hcH4Jhsjh#4?hs+{4h3 Hs`hs+`H3 6s>h3 4|4K>K? K?K?@O?k?ok? k?k?k?!k?)+`H3` D+`H$UC+`F7V?" +`G+{H+`E4t4sSₚ v6 ?6 vsdhs>s@bHt ` 6F4H>Hst@ hs *Hsc "DHc?DHshHs 4@84hi _ -Z844H 6s?h +`h$H 6sh +`h#H` 8#C HK>DHcu=4t#C 7Z0F04K>K? K?K?K?!K?)@O?k?7k>k>k>E4_`Ȝ H+r +{4< _ UZ +r Z` 7>## 79_ }XA$7>+rH: _ 4hh\K=K>K>K>@7>k?_7+rH3` 8Skk+t H3 j|j|+t TJ JtJ (+rjkkXjH4JkJ j+rH3j|k+rH3` 8+rT+{U4j 8jH36sh3+{H3 6sh3 +rh<KK>@7?k?oCHz+{43 S _@_5ZK>@O?k?o+rH3Jc` 4Jt (Z+t H3 jch`htj_@+rh#+{H3 6s?h3 +rH36s?h34K>@O?k?7k?1+rH3J|7C+{43 0`_Z˜ 84cZ_}Y h+r+r` 7>## 79_XA l7>+rH: _4H3j|K>YK?1@7>k?7k>k>k?k? k?k?k?!k?)Y4+t SJs b`07>_u4Zc>_7>H+t J7>!# IS Jcs X4+t E7>_]4y004HcH s?7> (4  590X_4B?Q+t H: 7Z0_7>K>YK>K>K?K? K?K?K?!K?)@7>k?o4x_4|(Z#C 7Z@E4Z4x_4+rH3 pChsh| +{H3(hs04?hsh+t H3 ` hc0hchsJthtJtjjc+rH3`hsp\K>@O?k?ok? CHs` "F ZHs` Hd Z_]KD"ZHz@ jHt sB6s c S KD6?hs_@DHtHz@ jHt sB6s c S KD6?hs_A@DHtHsȆ` FZHs(` K`ZHz`@ _@HtHsjHtHsj_ZK>K? @O?k?7k?!+{H3 u+rH4 t KSb@Ҕ4KC+{H3 sBus_M@4s?`@k?07?t0+{H3 ck?7?_4B@_M@+rH3sk?_7?K>K?!@7?k?ok? k?EH_4 Ȝ (#C _aZ h#C 7ZxEL4HhHhhH4c? HB34c??"\K>K? K?@O?k?ok? k?D+t SJc E4z0_Y *HcH s?4z04\K>K? K?@O?+t H3 H4 S Jst?4@@4k?o+t H4 +rH3j+{H3 j+{H3 j +rH3j(+{45 H3 j0JT j84KTKSjKTKSj+t UJ kTJkSJjzjj +rSKUju+{CKShs +{V6 KS0j KS8j+{TKS j +rTKS( j_42h` +t H3 +rH4jt+{H4 jt4K>@O?k?ok? k?k?k?!k?)C FG+t SJc H4d0_Z H4z0_Y (ZY_X (\HcI s?}4d04K>K? K?K?K?!K?)@O?k?ok? SC+t H: 7Z0_!Y` +t @s` RDH C d7Z0CH 7Z0_Y ``H: 7Z0_Y+t H: _7Z0K>K? @O?k?ok? k?k?+t H3 _Je+rH3Jth4+{H3 6sh3 +{4 h3 +rC+rFHdHhh4B <4HhsH6s?h_ ZHs`?Hd+rC+t DH Jshs+{T4j +{Tj B lJyHsj`H KS(` +t J$@+t H: k@(+rH3J 4kS4K>K? K?K?@O?k?oKS` `+t CHs Js@`K?YC@Ht jJH4 J`jK?Y@O?k?ok? +rDHKSb `K>KZCSt HK? +{4# C "_@HjcK>K? @O?@X@K?@ @@X@K?@ @@ @K?@ @@@K?@ @@t@K?@ @@@K?@ @@@K?@ @@P@K?@ @@@K?@ @@@K?@ @@@K?@ @@d@K?@ @@ @K?@ @@0@K?@ @@P@K?@ @@@K?@ @@@K?@ @A@K?@ @@@K?@ @@@K?@ @@ @K?@ @@H@K?@ @A@K?@ @@@K?@ @Ah@K?@ @@@K?@ @A@K?@ @@0@K?@ @A@K?@ @A @K?@ @@ @K?@ @+H5>H3>  k?k?ok?+{SJd+{UJ +rSJsJt6?j Js Bst @+{+t T+rSJ Js +{H3 6sh3 D@+rH3 pJs6s?`(+{h$+{h# (4+{h# +{h$4K?YK?@O?k?ok? +t H3 JsǓ 4+{H: A4BxT+rSJ Js G@4B@_@ +rCHtJ` jJb@ZE4HsJshs+{H3 6s?h3 +{_ h H @BT4_@ 8+{H3 6s?h3 +{4: _94BE@4K>K? @O?k?o+r4_ h3 x +{A H: 0(4+{H3 6c?+{_4: D@+j h< +t0H4x"d6s h"d6sd @"d6s Ă ("d6s D "d6s T E4 (4+rH3 pJs` K>4K>@O?k?ok? +{KDAH# +t H3 JsǓ+{H: A 4BD0@7?`  YSZY } @ 3 k?'k?' 9 G'HK? BL44@B4YK>K? @O?+{H3 ` +r@4H3JtJs t +{H3 t 843r 43@4@k?7k?!+t H3 JsǓ +{A H: p4_ @ +{A H: 804+rH6J+{H4 Bt+t0H3 `!+{+rH5 pJ`!6?s4t+{H3`!+{+{H3 `!x+{+{J6s?H4aBJbA0+{H3 `!J`!+t H3 Js` +{H3؎` +{+{C4: ȏ +{+{H3 h` +{_@ p+{+{H3` P+{_@ 0+{+~H3 @Js` +t +{H3 ` *_@ 4k?k?_ Q7?Bk?_ 7?P4H3 Js ` Bc+~H3VB\K>K?!@7?k?o+t H3 JsǓ +{AH: 4_@ +{AH: 04_@ +{_ 4: _=4B@+rH6+{H3 J Bt?+t0H3 `!+{+rH5 pJ`!6?s4t+{H3`!+{+{H3 `!x+{+{J6s?H4aBJbA0+{H3 `!J`!+t H3 Js` +{H3؎` +{+{Cp4: ȏ +{+{H3 h` +{_@ p+{+{H3` P+{_@ 0+{+~H3 @Js` 8+t +{_ q4: B@4H3 Jd Є+{_ 4: +~H34VB+{H36s?Bdh3+~H3VB\K>@O?k?o+t H3 JsǓ+{H: A4B+rH3+{H5 6?Js @ t _@ "@r +{H3 ` _4BpD @7?+{_i4: B@D @@4@B 4K>@O?k?o+rT+t SJs JJs +{A8H: 0 4_@D p@+rH3 x`@+j h< TJ |hj +r4h3 x+t0H4x"d6s p"d6sd H"d6s Ă 0"d6s D "d6s T +rE04+rH4 pJ` h4+rUJ6s?֓c t+jS6sJt +r4+rH3Jsh3+{H3 6s?h3 +j DH: \K>@O?k?o+rT+t SJs JJs +{@H: 804_@D @+rH3 x`@+j h< TJ |hj +r4h3 x+t0H4x"d6s p"d6sd H"d6s Ă 0"d6s D "d6s T +rE4+rH4 pJ` x4+rUJJ 6s?֓c t+jS6sJt +r4+rH3Jsh3+{H3 6sh3 +j DH: \K>@O?k?+r4h3 x+t0H4x"d6s x7"d6sd H"d6s Ă 0"d6s D "d6s T +{E4+{^e4: +{@4H: 8p4Dx@+j h< +{H3 ` (4+rH3 pJs` K>4K>@7?k?7k?!k?)k?1+t H3 JsǓ 4+{H: @,4B@^@ +{@H: 84E@Ep@+{D^H H s` k?+{H3 ` K?` +t0` `+{+rH4J` 2J` "4+{4: ^4B0+{^4: K? k?+t0H4x"d6s +jH:h@ E4BE T@E@ (+{^4: K? k?B7? +{^4: 4K>K?!K?)K?1@7?k?X+{H6 +rH3J|Js | 4C4@ U Cr Z)Y7k?'k?' 9(G'HK?Z7Z7*C4@?gC ?kK?@k?7k?!k?)+t H3 JsǓ+{H: @4B+rH3Js` +{x4TJ +r6?j SJs+{WJsJ @st `H3 +t T+rSJ Js 6?j 4c?+{H3 `@J4@U@s` t "J 6s?j `_4c?+{DH R^@ :@t4@ " H 6sh 4ck?+rH3JtJs t tj@st X4@su 4cr 2K?6stk?@st?sB87?4K>K?!K?)@7?k?7k>_M7?K?K>t 8+{_uh K>``K>_U7>K>@7?k?7k?!k?)+`H30`!4?+t H4 J@` 8+`C4hd0N dJ@Xh`0+t H3 JsǓ+{H: @4B+rT+t SJs JJs 4E@+rDH3Jsh_m7?HJsh_K?EX@C<@D_ 7?K?@4C 7Z4K>K?!K?)@7?k?ok? +`H38` 4?+t H3 JsH` +`_@_]4BHC4hd8+t SJs N JzHh`84K>K? @O?k?ok? k?+{H# +t H3 JsǓ +{@ H: x4+r@$v +t _4B?H3 JsƓ+t K0К+t H3 Jss8Д^ @ ДBh@Д4@ +{H3 c`Д+t H3 JsДC<@@ДAКH 4+{H3 ` +t _@+t H3 JzP@$4N4B>14@!+t0H3 `!+rH5 pJ`!4?s4t+{H3`!+{H3 `!p+{J6s?H4aJJbA8+{H3 `! +rH3Js`!+t H3 Js` +{H3؎` +{B4: ȏ +{H3 h` _@ x+{H3` `+t H3 Jss@@+~H3 @Js` +t ^ @ +t AК+t H3 Jsp`; d SFs3+{Bl4: ȏ"84K4B;H3 Js4+{H3В`P4_@ 4 4` E4EBК^ @ +~` КH3hV-B+~H3КVB+~H3pVB` 84Dt4B(+~H3VB+{H36sh3+t H3 Jsp` H d SFs30+{BL4: ȏ \K@\K>K? K?@O?k?^7 +t ^ @+t H3 JsǓ@4_@4K?Y@7?k?+t H3`` (7#C @7Z`4?+{H3 ` +rB4B(H3` (#C VB47Z 4R|4+~H3 ` 4D@B@B$@B@B@D4#C 7Z@4R4A(@44K>@7?k?ok? k?+t SJc 4EHsd R@s0` BHs` "E ZHs` AZHcH s?HsD @B@_)4@k?ok? k?+~H% +t H3 JsǓ+{H: @4B+r@3`!4+~H3 0`!+t0SJz @ CC8j` +~D4@0h Ch +~h% zT P+~+t T+rSJ Js +~A44Bh 0zAt4+t H3 Jtp Pc8 Fs30+{B4: ȏ 4K8@4K>K? K?@O?k?7k>k>k>k>k>k>k>k>k>k>+t SJc ! 4 4 F4 4+~GHs@s0`!7<5X^4x0F47Hs#C @\7Z4KK>K>K>K>K>K>K>K>K>@7K? @O?k?^u7I ZK>@7?k?ok? k?E+{C_}HzX +rFHzX@ @h4B@0@+rH4 p+~H3 HJJs! +rD+~CI@H pHt HJuJ?K>DIH pH p+~SJs HJJs "@ @P4B@@+rH3 pc (DI@H p c(K>K? K?@O?k?D,7+rH3 pJs k?^!7?K? |84K>@7?k?D 77?k?^7?K>@7?k?7k?!k?)k?1+r4?h3 x+rH4 p+~H3 HJJs 4_4B^Q@ +{H: 8@X4B+rH5 pJk?+t H4 JP 7?J` +{^a4BhH$ +{C,H% _k? +{D 4: @@7?+t0H4x"d6s Ԋ x+r+`4#@I H:@ H+r^Z+{T+`SJsH8j H3Js` +{^4Bh +`h$@+`h%H4K>K?!K?)K?1@7?k?7k?!k?)k?1k?9+r4?h: x+rH4 p+~H3 HJJs _4B^@ +{H: 0@4B+rH5 pJk?+t H4 JP (7?J`  +{7?^y4B@SJd +{FCK?!K?)K?1K?9@7?k?+rH3 pJsb 7p4H5 pJt sJ t@j4jD@4K?Y@7?k?7+rH5 pJt sJ D|j4K?Y@7?k?oKSC`@4^@CX@@(K>CHZC(@K>@O?k?7KS`@k?4k?_%7?K? k?_7?K>@7?k?ok?k?+rH3Js` D4H+{EJtH ^y t HJtH t t:4@@su r +{4ct@s+{T+rSJsJs cj @|K?YK?K?@O?+rH7+{JH3 t +{H8p+r49 JJ t CS` 4Ԡ us 3 Bu B 4(B03 3 Bs `4B03`?m6` 84J J J@4@7TTSx"tx"C3` 4Zs04VC3w C479C5U@ 6_bvC3` 9C3`?C3` CS` c@@k?7k?S487=_Y+rH6!X+{]7=+{YkJK J pKB w Bs` 2J uk K3 c Pk3 6Bk KJv?-4c^ @K@7?k?UBs4t 76(4B@0Z4_@K>@7?@@K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@P@K?@ @@h@K?@ @@8@K?@ @+H5=H3= k?+H5>H3> k?+H5;H3; k?k?+{H3 P+r44` 4t@ 7#C 7Z@4B(+{H4 P6h3 PbK>@7?+{U+`T6XJXj `+{TJs@j h+`U6X+{TJ `jX+{TJ h@jtk?7k?!+{h `+{h h+rH4 p+~H3 HJJs j#C 7Z044@7?|Z(4AK?]Z4K>K?!@7?k?ok? k?+{UJ!6jBd JjBst 4j (44~ (6?4 0+{D+{H36sh3+{TJBs`#:j0\+{H3 h` +{T+{SJ PJs X 7j PCӜ+{h h44Dx4+{H3+r44` +~H3 `!8+{+~H3 `!+{H3 p` +{@B4: ؏ +{+rS@p6z`+t S6z## _79P+t0CHd h` 44D@4hd #C @7ZX+{T4j ph pB @@@D+{H36th4bdH30b`+{T+rS6s`j+{H3 `` P\ (+{T+{SJs Pj X_ К\K>K? K?@O?k?oB@C+rSJs p4jt+{S+{Tj hj` `+{Sj`+t0S_5j` +{SJs ` (+{4:`## 79`_mX+~TJ ` +r4j +r@3` 4:Y@P4K>@O?k?ok? +{H3 h` C+{H3 ` ## +jH3` "+{4:`79`_MX` +t X` @s` D"c 6cX4Y]m44b`K>K? @O?k?7k>k>k>k>k>k>k?Ck>k>+rH5 p+~H3 HJJs I+`h5PE$@'h4+r4$ Hc H4 b3`  " b3`?44@ "4K> j@3` X7;## 79h]K>C;` 7; " b3`?4`+rS6d @h+rHIJ+{GH 4jh Cph7?hIjcDh 4F Z44Cd4+rSJa k>7=_jz 8+rO 444C4+rH3 Ȏ` +{+~F+rE+~D+rCH@H 0` 04H pH HJuJ 0+r4C4Hs Ȇ`?}+rH3 Ȇ` +{H3 h` +r+t0H3 ` +r+rH3 pJs` +r+{BH4: ȏ x+r+~T+~SJs HJzJ`7Z?4V BM@+rSK>E ja +rSj` +{S_Mj`+~SJs 0` +rH3Js` K> EDK>]@DX@]M@FLK>F4+t H3 Js` 2CDP@Hs Js`?+t H3 Js` H+{D+t CDX4 Hs Js` ^@+rH# pHsHc (TJ pHcHHsHt?HcHH@+rH4 phtH+`H3P `+rD+`EH pc 8+rH,@H pHP?H p+rH4 p4j+rh \K:K>K>K>K>K>K>K?@7;k?+{H3 x` 7 4#C _u7Z4K>@7?k?_}o x+{T+rS6s`j P#C _u7Z+{S4_ jd `\4K>@O?k?+{H3 `` 7#C 7Z_4BH+{H3 h` #C _7Z+{h h+{_ h `4K>@7?k?ok? k?k?k?!k?)k?1k?9_4 +{H4H3 `` #C _-7Z@4+{T4_ j h+{T+rS6s`j P+t0SJc ` Hj+rSJs p4jt+{Sjt x+{T+{SJ PJs X+{I+t0H+~G+rF+{E+{DI3 h` X+{H8i H 0` (@` H PH XI3 h+{h x+t0` h# hj+{_ h h4K>K? K?K?K?!K?)K?1K?9@O?k?+{H3 `` 7#C 7Z_u4B+r46`+{H3 Xv #C 7Z_-4BЂӠ7;4>4444ғ zXy *y "(4~6 x( w8""H3 Xӿ4bM7;K:@7;k?ok? E7?]X `\K>K? @O?k?ok? k?DE]C4c? @ ]UYd b`\K>K? K?@O?@@K?@ @@ H@K?@ @@$@K?@ @@@K?@ @@@K?@ @@,@K?@ @@p@K?@ @@@K?@ @@@K?@ @+H5=!H3=) k?+H5;H3; k?+H5?QH3?Y k?+H5<H3<  k?+H5;AH3;I k?+H5=aH3=i k?+H5>1H3>9 k?+H5K? K?@O?k?Z 7CS` 4AT@ZTC` V03`?03Vk?ႚ 8'4\Bsu 6??BB`0\'K? (\K>@7?k?7k?+t CHs `"@K:A@Hy k< C30`!7;]e790]7;@x7; b`7;_]4 H+t 7;_54 Ht Jj+t CHw 7;## 7960]5607;_4 H+t 7;_4 Ht Jj+t H: KS?kSk@_7Z0Y4 (#C 7Z Q4 K:+t H3 j`K:K?@7;k?ok? D_%4|2@Z4?04?\@ZD_5Z]%@+rH3Js+{H4 Bst +{]4+{4h3\K>K? @O?k?7k?!k?)k?1D4+{T4j +~EZI 7?\ *4cH ` K?@,4B?\K>K?!K?)K?1@7?k?ok? +{4IH8| 2_ZDIZ\4?K>K? @O?k?ok? k?k?FE4e@DZY_e˜@ e \K>K? K?K?@O?k?ok>k>k>k>k>k>k>k>k>k>k>k>k>PHD4 +t H3 Jt4"h t+hM+hF4 +`S6kp+{JIxHp S0CY_MXHp c   Bs?t C+{H' Hp4?Y_XHp c 6thp4bt ChIHp6hp@bCHpY_-XHp d hpHpIx jhpZ Y_mIX IS | P4? "4 Hp6hpbd=h \K>YK>K>K>K>K>K>K>K>K>K>K>K>K>@O>k?7k>k>k>k>k>k>k>k>G4"c 6j 4c>+hT+`S6spjp+hT+hS6spjx+{T"hj +{SD6z +r4?CHe+{DH +{SD6z Hce H +~IHs HyZ 4 _eX 4_a Z4I3 ` Hce?}4+~H3 ` R H HZ 4 _X 4_ Z+{H3 ` h+t H3 Jse P+h]@+{H3 ` Z7>_4+hH3p+`49p 3+~H3 ` : 0Z_X +h_ Z+hT+`S6spDjp+{T4j+~SJs \` 4?K>YK>K>K>K>K>K>K>K>@7>k?7k?k?D+{D4: ȇ Z_4|@87=_ZD_ UZ8\## 79 8]YX_7=4?KK? K?K?@O?k?ok? _ 4|@B_ZD_ Z@@\4?K>K? @O?k?7k?!k?)k?1DC@s` xE#C 7Z xYQX +~H3 ` Z7?L 47? Z4K?]4`K?b P4K?]4B0Z## 79 X]W4K>K?!K?)K?1@7?k?7k>k>k>k>k>DCk>@s` 47:## 79X] W+t H3 Js(7<Y_X 7>c<7>k?7:47>A7>F€+t 4?H3 Js@4#C 7Z YQX x7>L 7>04 HK>CS` 2_@7:_K>04_7:C C<` A7< 07>k?7:47>A7>A`7:+t H3 Hj| @K> 0K>CS` K>_7:K>b (\ K:Y] K>\K:YK>K>K>K>K>@7:k?7k?k?k?!k?)+{Dz!Hh`Hs`!hKK? @O?k?7k>k>k>k>k?FE]a47?f Bss4^t PZb@@7<Z]qY4Ff b`Z_7< GK>K>K>K?@7<k?7k?Ak?C7=Z_Y Z7;]YA7;c7;_ YA7;C\K:K?K?@7;k?ok? k?EC+t DH Z]790 H Z]i790 ]5Z (+t H: 7Z0Y]Q4B]Z+t DH 7Z0]YH 7Z0]Y@@@K>K? K?@O?k?7k?SC7;]yY` 2@s` "A7;7;_YAP7;K:K?@7;k?7k?7?k?47?A X7?K>@7?k?ok? ] CȜ 84A ZH 4K>K>K? @O?k?ok? A XDCA @Z| 44|4?\K>K? @O?k?7+t _MH: K>@7?k?oC@s0` @4z0_M4y0_MZ Hs_Hs`_hsK>@O?k?ok? +t SJc D_ZHcH s?K>K? @O?KS` +{4@h34@h3k?7k>k>k>k>k>4+~H3 `"P4?+{#(H H8ȜZ4?H 7>|+r4EHJzK> z ]7ZHJzY_K>HK>j+rE+~GZH 7>| K>B 4@s` 7Z]@HJzY_K>HK>jH `?UZH@ \@H8` +t H4 J_H4 J`_j\Z\K>YK>K>K>K>K>@7>@@K?@ @+H5H3> k?+H5>H3> k?+H5>H3> k?+H5=H3= k?k?o+hC4z_}4A(4zA4z4|K>@O?k?7k>k>k>Vk>#C F7Z `44+rS6u bd4_ K>@K>H:## \79 p+~+t T4j`K>7?k>K>H3K>7k>k+~H3X` pK>K>V1B7?K>$ H3jK>k>$ k>K>"@K>K## \79 +{4h3 X+~K>H:## \E79 0+{4h3 +~4h3 +{CHs ` @4+~H3VBHs ` 4`k>#C 7Z _4` k>K>4_4B4k>@ L@CX4Jp@+rS+rT6 ^ jz #C @7Z G@]@+t h< #C 7Z C4+rSj`+t CHt "c 606s 8hhh3Hs _b`0Hz 7Z0\YE @_@+rCHs` +r_E4 h|#C D\7Z P+{C_54z _UZ\@_=4z K>_}4+rH3` +{] q42+{h +t GLH: +{H3 ` +~H3V1B@p@#C _7Z `Ȝ8+r c _4z x04d x x+rS6z`\Y+j C4z\YAX4z4z## ^ 79 #C _7Z AKK>H9 <Z\EXd b`\4:#C P7Z +rSK>j}@+rSK>j} +{SJs ` +{h +{H3 d (K>@K>H:PX4B # 4! 04#NZ @Z4Q4 # 4! 0ZP04B@+~H3 ` K>@K>D H:+r#C 7Z SH9 p+r (h<#C 7Z C 04+rC 4 SHy4 #$79 t4S Hw#C 7Z  4 44S PHw#C 7Z 4 44S Hw+rSJt hHsj+{SJs ` #C G@#C 7Z C 44?K>YK>K>@7>@ @K?@ @Z$ $ h+rH5+{H4 KSu KSt@ x kSKZ@?KS@" @?+rH5+{H4 KSu *KSt@  tHSkSKZ@?KS@( @?U+rH6+t H5 +{H7 KS "J`0JkSk@J w KTt6?kSKZ@?KS@0!@4 @>+{S+t TJ Jw +{SJu +rSJvK w KS "KSu@KS6skSKT RKSu@BJkSKT kTKSJs XkSKZ@??K@3 @==+rSJx+{SJw +{S+t TJ Ju KSx "JskSKS kSJ u KTt6?kSKZ@?KS@k?ok? k?k?k?!F+t ȹ!H$ +rh xHSJH(` +t H@+t H ` sh3 +{]q4: H@ Y_XH@ Y_XHȇ@ Y_X+rSJc pGHsPd 84zXY_EX4z Y_%XHcHH ps?HsP+{H3 ` K>BZK>K? K?K?K?!@O?k?ok? +rH3` (D#C 7Z PC4+rCHsJz]I7ZHt+{SJJs Jt`P u 6? 06BbU6?Bb+rH3Jt6jt4_]4Гt 8+t T+rSJ Js +{H 4+{H3 6sh3 K>K? @O?k?+t H3 JsǓ 7+{H: ^ 4B\ @ K>\ @ xK>+rH3Jt6?jt4_4#C 7Z xH`4E @K>@7?k?ok? KZ@!+rH3Js` H4J6d?J d @st X+{+t T+rSJ Js +{H3  dH3 d4+rH3+{JtH3 xD  t 44_=YZGY+rH3JtjtJs t0\ Bs s"t \K>K? @O?k?7KSk?+t H3 JsǓ0+{H: ^4B7Z ^4BK?`@K>\ 5@?#C _-7?K? ` k?_@K?6s?`_k?K>@7?k?7+{_4: K>@7?k?ok? k?k?Dy"4 Bs?t B+t T+rSJ Js 4c?4` +rH3Jz\m C +rH4+{JH3 Jt`@ u  6?(+ru 3b+rEHJt jtY^X4_uYHPZ+{DH c  `h E@_]4HJsh+{H3 6sh3 h K>K? K?K?@O?k?ok? k?k?k?!F+t T+rSJ JsC (4 e(Z@sg 4ce@s Ce(_YSe 4cuK>K? K?K?K?!@O?k?9 P7 q473? 7=6s??"_U7=K<@7=k?o+t H# z K>]i@C@\@C@\@CZC (@]ZB@K>@O?k?o+rH4 pJH D+j4h3`EZ_ZK>@O?k?+rH4 pJH 7+j4h3`E|@_@K?Y@7?k?U o+rSJsJs+{CHt Bsu @K>_Z_@Hs 6s?hs K>@O?@@K?@ @@@K?@ @@@K?@ @@@K?@ @@(@K?@ @+H5@7?k?7k>k>k?C+hEh_54+{DH ` X4_5@Z_UHH ` +{_e@4_h3 7>## 79 \yX7>B 4_@+hZ_H9] 4?@k?7+~4h3 0+{H3 ` 4+~4h3 4#$8_794K>@7?k?ok? +{C4]5hd 4YB4h` K>K? @O?k?+rH3` 7#C 7Z B\4_%4K>@7?k?o+rH3` 84.#$8_=79$4#$8_7944_4D4_4D4_4D4 _4D4_4D4_4D4_u4D4_]4D4_E4D42#$8_%79T48_ 446#$8_79dK>@O?@ @K?@ @@@K?@ @@@K?@ @@T@K?@ @@@K?@ @@ L@K?@ @@@K?@ @@|@K?@ @@L@K?@ @@@K?@ @@@K?@ @@L@K?@ @@@K?@ @@@K?@ @@0@K?@ @+H5;H3; k?+H5<1H3<9 k?+H5:H3: k?+H5>H3> k?+H5>qH3>y k?+H5;H3; k?+H5H3> k?+H5H3> k?+H5AH3>I k?+H5;1H3;9 k?k?7k>+{H3 `#K>Y+{4h3+j H3 ` 0+~VeB+{h< SJs V%B+{CHz +rS_6yHz _7>+~CHs XJs` K>_7>Hs Xj|Hv XJ6?4"+{43 u 4?jK>4=o tk>K>`k>+rH3 `` +{S`_k>4c>c>c>4k>SBs c>4c>c>c>+{CHz 4_m7>+rSJs` `K>YVB+{`(h<Hs ȋ@K>Y+{h< K>YK>@7>k?+{H3 `!(7+{H3`!+j H3 ` @+rH3` K>VBK>+{H: 4+r_48+~H4 XJ` +r4?jH38` +{VMB+{4?h3K>@7?k?7k>k>k>k>k>k>4k>44+~H3 0`!+{+~H3 0` 7>E+{H+rG4@Y x+~H 0` `I0` 4 "H pjd4B (XH 0`?u7>+~H3 0` +{@< +rH3` (+{VQBӜH3` +r@x@XӜH3` 4VB4c? x+{E+~DH 7>_ 4`2H 0` "_44c??H Ȅ`@H+~+jH3Ph?E4#C 7Z 0Bx4+~H3 0` +{@3 c>+~h 0C>K>YK>K>K>K>K>K>@7>k?7k?!k?)k?1k?9y@PF+{H3` K>+{H3 ` +{H<H"sL6s k?' # 4! ,  9IW'K?U4 w uҴ  s! v k?`a0k?+rH3` 0+{VB%h4+{H3 tE+h46 ss> s@֟j+{H4`P+rH3 І` 8ғE Ҕ> t@j+{H: 4?7?k?7Z+h494_e4$aX+jEHPr!8+h4:4\4``+{H:@`h+rDH І` H4_4 0+{HPr H: h +{H: 4_4 0+jH3Pr #C 7Z `B4"45H`b+rH7!RAH+{H3 tE+h45ss>s@b ` VaB"4+{H: TE+h49 4 Ss>4 s@֟j7?k?7Z4_ 4+rH<VBXK>َa(+{H3 tE+h45ss>s@b ` \+rH7 І +{H4`ғE+h45Ҕ>t@ւ t 2VBY40K>ن@|4 K>K?!K?)K?1K?9@7?k?7k?!k?)k?1E+rH3` C4 4_ 7?`xG?44_ 7?`HG?44_ 7?`G?hHh`hG?(hsZYVBHs`@+~H3 HJshsH`@ 4+~H3 PJshK>K?!K?)K?1@7?k?^Q77K>@7?k?742_4+{H3 ` 44042_@42#$8_179TK>@7?k?7k>k>k>k>CED PK=_ uDDDZ9_ }4Z_ 7>`xG>!+jH4P J@ 4( 44? p4?`4?P4?G>dG>dths?4`04K=K>K>K>K>@7>k?7_]7>S``4K>QK=@7>k?ok? k?k?k?!D+hG+hF+hE_H |4 44y[=H ?Z+h[m49Z]4y^=Z (4Z## ]79 4K>K? K?K?K?!@O?k?ok? k?k?k?!@ EC@ ZD+hG4[MY+hS6z [%Y+hF[Zh d4 d `+hSJz @ +h_@+h_4:+h 0h< Z[]YZ_4B4K>K? K?K?K?!@O?k?ok? k?k?k?!4444?CS` XG_M@\B#C ^7Z \"#C ^7Z Z@ :_%@˜ "KKKK8K@ "c 6e ` "c 6c "c 6d KZKZKZK0ZK ZK>K? K?K?K?!@O?KZ4S@8K93@*@`" `+{43 z by@k?7k>k>+{H3 ` 87>4+{_48 C>PӜ+{H3` +r _ @Ӝ+{43 | Ct4>@Hk>+{H3` ( t k>@P7>46+{H3!`4$@7>@@@# +{H3 8tt4>+{H3` t4>@C+{H3` 45B 46+{H3k>+r `# PK>+{H87?h8+r 49 Z^ 79|K>YK>K>@7>+{H6 4@+r 45 6?  4 3? 5 (+{B3"B3+{H3 y h3@k?ok? C+{DH 4@HV+r 4: U Y^iXH c hK>K? @O?k?7CSc?7?_=4K>@7?k?7k?!+{H< pK>_ %4| @+{H3` 0\_@k?_7?\K>K?!@7?k?ok? +~SJd 0+{Tjj` 0+{C_4z ȇ +~_4B?h$ 0K>K? @O?k?7_4K>@7?k?7_4k?_7?c0K>@7?CS` HT4^4s u( v8b03`?s@\k?o[ C ScH7?4^Cst S7c7?\K>@O?k?ok? k?k?k?!k?)E+h_` D[ Z e4^+hHS6f4#C 3t!z@sst *Z4y]4HE@ssu!e@s?s g(e ^ 7Z<Z"c 6y ]m4_EZD[Z7? C3s g8c Z4y]e4EA` 2@sg  03πeg 3+h@3` 4#@s4^t :^ @Z[Y_Z+hC4:Y]m44eCU@s`!T4^4\ғv UX b04@st!2 b03st b03sv ꊥ8Y03sv Y03Y@s` xT4" b04?4"Pc @sTsv 8Y4" b04?4"c C@s` +h b04>}ғ+h4<K>K? K?K?K?!K?)@O?k?o[%C@07? CSs4^ t8c@K>@O?k?o[C@@| Bs?s4^t Z## ]e79 K>@O?k?7Y7=]4_7=7=_1404K<@7=k?7Y7=]-4_E7=_7=04K<@7=k?_7K>@7?k?ok? KS 0C_4_!D KZ@ _@_@ZEHy\K>K? @O?k?+j H3 ` 07+rKS_h3 `_Q@K?Y@7?A@K?@ @@@K?@ @A 8@K?@ @A\@K?@ @A,@K?@ @A@K?@ @+rH3 pJu֚c T+j43 t Js u Uu84@ftftftft 6suft@֚c T+j43 t Ju Jtjt @ju9+rH3 pJs S YYH4Y( CS xSSdYCS@4@k?7k>ak>ik>qk>yk>k>k>k>k>k>k>k>k>k>k>k>k>Yk>9k>IEK=4 4 4+{SFnT֟+~SJs 0Js` (N+{H3` 4 tNK>I5?֓c t+jS6s t Jf D4x5+{SJw 4444 \44` +rH3 p+~H4 HJuJ XK>Y+r4! @H3` 0+r4! @48   4K>YK>9 4?4 4@K= 8IK= 8J3+r4! 3 Buҳ+h4! 3 Bv P7=7`"`ҳ@ db24 X r 0ҳ""b4?hX"l "6s4~! @Z Y7k?'k?' 9(G'HK? 4`4"Sv6x6?"ҳHbҳl "64~p76? X7=7`4X` B d6??6K=`pĠ0T4@s u(s+~H3 0Js` +{H3` +t H3P` X+rH3` @+{SJsK>Y ZYG4B`+hH3 ` BĠ8U46 FF SdF D d4@ d5+rH3 pJs U8T4@ddddd h+rSJs pJss!6s? f fnK= 5 0I+rH3 pJs Sf`+{H3؆` : 2@04 Z Y_4  +~TK>I5?wc +jU6 +~SJs PJZHJxVBh+{T4j\K=YK>aK>iK>qK>yK>K>K>K>K>K>K>K>K>K>K>K>@7=k?ok? k?k?E+rH3 pJvec+j44X! H` x+~H3 HJs JH c B?t (6?H0` 4c? t8h0`@H+{@0+~H3 HJs +rH3 P` +{H3` @Y+hH3 Ȉ (+r+hH3 В` v +rH3 pJw k?H(k?H0k?HX_6?C4`@H` h+~H3`4?4V B+{h%+~H3xV uB_m4?hh`@h_4?K>K? K?K?@O?+rH5 pJtc +j44X Jtc  J +t H3 Js` (W@ +{H3؎` +t VH3 JyK3 4 ` (UK9K3 `?K9K5+{S+t TJ Js J  +rSTJs K:JK?68AjK+{H3 u J(u 68J0t j(j04j6?ɊK4 bKK u J(u J0t j(j0j6?ɂKKTK3 t KS t J(u J0t"Zj(j048jax+{VKH3 t K t J(u 6?J0t j(j04j68ݡK4 bKK u J(u J0t j(j0j68ݿKݡKUK3 u J(u J0t j(j04j68H4 K3`8K j(KK4 @j0+{H4 j0KK4 j(4j686?ɊB4J(` j(j0j6?ɂJ(ݠ@4J(` j(j0j68ݿJ(@+rT4j+rT+~SJs HJsj+rS@j` k?oD+~H3`44VB+~H3ZVBK>@O?k?oD+~H3`44V}B+~H3ZVMBK>@O?k?ok? k?+rCHs `@+~S+rEH+rDHJs7Z?79?VBHHDHx Hz _4B+rCHs ``+~S+rEH:+rDH9Js7Z?79?VBHx HHD Hz _ @+rh K>K? K?@O?k?ok?k?ED+rH3 C+rH3s!@+r +rS+rVJ Jst +rH3c 6? +rS+rVJ Jst @+rW4t?Jt j6?`j _@+rh$+rh#+rh% H3 e h3 K?YK?K?@O?k?+rH3 ` 7_@+rH3b H+~+rT+~SJs HJJs +~H3VBK?Y@7?k?ok? k?k?Dڠ C4h44?`P4+j45tc  Js`?6tc HZY_MXZYDX\4K>K? K?K?@O?k?ok? k?Dz E+~H34?4?VB+~H3ZVB+~H3VYBZYD XK>K? K?@O?k?ok? D+rH3 pJtJs t 4c?`hV+j48+{476?tc   66? 4@`U+j47J P6?tc  u 6_J H xVCdHC4?`P4+j46tc  Js` (6tc 4j4 H4?Y_XZYDP444K>K? @O?+rH3 pJs6y? H7 p+r@H<J6s?֓c t+j43t +r `H<4J`@+rH3 pJt"K` 6\+~H3 8Js` %† +rH<Kv& +rH5+rH4 pJJ 6s?֓c t+j43Jt %@+r3+rH3 pJxJs x 6s?֓c t+j43t +r H74`X+rSJt p rJ6s?`HK+rH3 pJs6s?J 6V@\J (6+rH3 pJs h?+rH3JwJ|+rH3 pJt6?Js6s? b@+j4:+rH6+rH8 puc S v rVK6s?^+rH3 pJs6s?J;6?_J@\| 6?K6s?T@P6?+rH3 pJs6t?K`!KSt_6?@w 6K6s?T@P6?+rH3 pJs6t?J` JSt_6?@\6+rH3 pJt6?Js t }uc+rH<K `+rH3 pJs6s?֓c t+j43t +r@@+rH3Jv X+rH3 pJs y 6s?֓c t+j43t +r3 y y+rH<79?? (VJ=79???\\@k?ok? k?k?k?!k?)D44+rH3 pJgJc _ 4?44W"jj6s k?' # 7 / 9IW'K?U4 v u !@4+rH4U`* "  J (XV`: 2 @S J YJ JSg]7Z J KeAZ+j4<7T?tc   J 8 R4  J 8 * 2 *@"J  47ZE_M7T?eA+j4& 4e@Z7T?tc  d JC zY_%X4c (4H7ZE_}7T? : * Z_Y H4ceH_@ K>A x@K>K? K?K?K?!K?)@O?44>+h49 4+h47 4 4 bx 6_bv4@4+h49 4+h47 4 4 bx 6_bv+h43 4bt4bt+{H3`@`TA44@8U+h47 4 6_bv+{T+{SJsj8+{T+{SJs `` jH+h44 4b+{H3`@(44B+h44 b`+{T+{SJs@j@k?o+{T+{SJJs8 xC+{T+{SJJs@ 8+{S+{UJtHJ +r_@+rH4 p+~H3 HJJs 4+rH3 X c+rH3JtJs6s? t B` +{H5 4c?+h48 +{H7HBr j h  Y7k?'k?' 9(G'HK?(Z  Bs z `0C@*` Bz 6/B+{U+rSJsJs tj K?Y@O?k?o+hS6c +{T+{SJJs8 p+{T+{SJJs@ 8+{S+{UJtHJ +r_@+rH3Jt+{H3 t 4+{H6 +{H8H5 pҳ `7?=Y7k?'k?' 9(G'HK?(4< c Bs | `0 `+h75+hh< +rH4 p+~H3 HJJs +{+rH3 X | +{h<K?Y@O?k?ok? +rH4 pJ`$ C+{h JJ u `4+j49+rH7+{48+rH3 pJtJs t 6?tc 3 ` @+{ w(x D66?+{U+rSJsJ Js`6s?``j j H3Js+{H4 Bst HH3 +t T+rSJ Js +{H3 6sh3 !#C ` +r_@C+rSJs pJs c+rT+hSJJs Ȋ 4c+hH3 c`@+r 4H3 pJssXC+rU4?֚c T+jS6s t Js c SFs?fH+~SJs`4y?VB+{Sjd+{Sjc\ 7Z04ID@+rH3 x` K>+j h# K>K? @O?9 \X4>4"3t `\@"UdX0s6ssSdX"3@\@k?o+{H30` +h4CHs` +h^e@h|+hS+hVJuJ u4:tBj^54+hC6?p 47 056?p054@3st?3C`0`+{H30`A5Ҵ4t P44t  s!6s?Ҵ 5ҳv?  P4"uT6sVk?' # 4!p,  9IW'K?U v uҳ  s SsB x04@47?4b"7`"4t"3"s4tt "3"st?3b?44"3"s4tt *3"st?34t3"st?36?4"b+h4< K?Y@O?k?7k>k>k?k? k?k?k?!DGI+{H8 +rH7+{H3Ў`!xH+rH3 pJu6?Js6s? u ֓c t+j46 +t H4 J 384uc  Jt B "c "c Jsk>Jsk>  "c Jspk> Z ZB=Y7>## 79XZ4B 7>## Z79+t H3 6cBs` +{4#P b5'+t E7>Ҵ4J ҳH d b5ҳ6s?`]@*@@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@`@0@ @@@@@@@@@@@@0@`@P@@@0@ @@\H JsƓ"c 6yH x6y0H Js`!8"c H6yH Jss"c 6yH 6y07>"c 6yH 6y_@Y+{H3Ўb@R _ u@## +hZ79Z!H8 0Y4?4"c 6y Z_XD b5 g\K>YK>K>K?K? K?K?K?!@7>k?oK3` T+{4#P+t H3 6cZYZy4``K>@O?k?ok? +rH7 p+~H3 HJJs"XJ 6s?֓c t+j43 t Jd J C+t H5 J4Z]` 4Jғ\` 4JY` 4ғU` 4Tғ` 4JҔ_ 4VTJb Z4x4ZSdUdUd]d\dYd+t H3 Js@(4H3 JsƳ@44ZSdTd_Y+{H3 `` (Z## 79_ mXZC4ZSdCSdd`ZY^4K>K? @O?k?ok? k?k?+rH5 p+~H3 HJJs! J _u4?+~Tdc+jU6 +~CHs PJH HJxWV B+{S4jf^-ZHs PJsh\4K>K? K?K?@O?k?ok>k>k>k>k>k>k>k>k>k>k>k>DH+{H3 `'4 +t +{H3 h`'4+t0H3 `'+{H3`'+{^=4: ȏ&+{H3`'P4+t T+rSJs pJ JsP'4+{TJ ` +r@ j +rSJv p+rSJsjX+{SJs j`+{S+t TJ Jt J t jhj +rSJsj(+{SJs؆` +{J` 4jH30` B^@+hh<+hH36sZ 4 +rH4 pJ` SJH 0+{H3І` X+rH3 x` H+r+{H3Ў` 4` +r_}4B+rH3 pJs` (+r+rH3 x`$h4+rSJf pG+t M+rO+{L+jS6n+{K+t H3P` 4F@ H p_ @DH pjd +~H3 8Js` H p_ZH p 4HPI (4^@H pJt6?Js 6s?sa+~J4  8ccI Ȏ`!+h^A5 ȏ!`ccs Jd JJ` 8Is(` ʌ IS HJs6s?s H` jIs(` Z PI Js 3` 8Z+{4:^4y4Z^4y H4cH pJtJs t 6?thW+hh +r h ^5 ȇ hH pf 0+rCE@Hs p f(H p4j`4H p(4_4H pEj`H pf<%+t 4K>YK>K>K>K>K>K>K>K>K>K>K>K>@O>k?ok? k?+{H3 h`#hK>+rH3`!+rH$ p+~H3 HHJs X+rE+~CE @H pHt HJuJ (+t @3` h+~H3 HJs6s?֓c t+j43 t Js` +{^4: +rEH p+rCHsj ^]4+~SJs HHz^ JyH p 0+rCE H@Hs p(+{4Hh3+{UJ +r@3` +{+t @3` `+~4jH3 H4^Jy+rH3 pJs` +{_4+{Xh +{45+t @3` 4+r@3` 4jK>K? K?@O?k?ok? k?k?C+~H3 HJs6d?"c 6e(+{H3 `$4+{T+{SJJs8 h+{T+{SJJs@ 0+{S+{UJtHJ _@@s` (+r+~H3 0`#(C+rH3` +r43 @Jfj`+r43s +he 44h3 @4Bh3 ZZ+~H5 H+~H4 P4k?k?k?ZYJ^]J+hh +rH3` E+r43 @jf+r43s +~H3 0` D H@^1@!dc+j44 J` +~T+~SJs HJzJ`7Z?4VB+~SJsxVqB^mZ+j44dc Xj^Z+rH3` 0+{I@+{^4: +{h3K>K? K?K?@O?k?ok? k?k?k?!k?)k?1+{H&`G+rSJs pJs6h?+~SJs PJs6e?+hII3 ` `+rCHdhs@ @4hdI3 d +hh +hh  +hH4 Ђ`@TE` +h Ph3 Џ@ (+hB@+h h3 h +hTJ І` h ``+{ j H3``X+rSJs p+hCJtHu @jtXh` @ 4+hU+hT+rSJsj j K>K? K?K?K?!K?)K?1@O?k?ok? D+{CIH4z4zYYe44sb`+jS6t4jK>K? @O?k?ok? +{H3b!+{45+jH4Z+rH3 pJs S YYR3` sd34@ddg ^4+~T+jS6d+~CHs PJH HJx4VB+{T4j^4Hs PJshhK>K? @O?k?ok? k?k?k?!k?)k?1FEC+{H3 `&4 +h+~H3 ` +h+~H3 0` +h+r@3` p+h+{H3` (+r+{^ 4: ȇ +rH4 p4j+hVJ 6<+hTJtz +h`j T+hSJsj #C 7Z84N 4 4+{TJ ` +r@j +rH3(` +{V)B+{T+{SJJs8 h+{T+{SJJs@ 0+{S+{UJtHJ _@_ Y@+hh +{H3` HZ_4B+hh +hH) +~H3 ` 4H3 ` 8+r@3` +~H3 0` P$4`!H+r+r@3` +~H3 0` +r_4:+~h 0K 4+~h 4+{4h9_Z_ 4B(` +r+t @3` X4$Z_]Y!X+{4h3_Z_ %4B+rH4 pJ` (4JH +rH3 x` 4` Z_ @Z_Y +h` 8+{+rS+t Tbb`+{H3b (+jH3` +h_@+hh) +{H3` +t0_qZ+t0H3` V BI@K>K? K?K?K?!K?)K?1@O?+rH8+rH4 p4j+{H3 `!H+jH3`` @7S?bh `JHt! +rH3 pJvH+rH6 p+j4=X44 +rH< pJtc  Jtc  JJx "Y j@0jj68JJH?_J@k?ok? k?+hTJ`!h+{H3 `!XK>j+~H3V B4+~H3 HJss`+jS6d+~Eccs Jz@ ccY%@ccs j`Jz @ ccY@ccs j` 4cH HJss=ccK>K? K?@O?k?7k>k>k>k>k>k>k>k>+{H3 `"4@ 7>]=7>K>4 tXk>+rH3 p` K>K>E4B+~H4 PK>j+~H4 HK>j+~H3VyB4+~H3 HJsa`+~F!C +jS6i44@H PJz7ZYM4| 0H PJz7ZY4ȼ dc5Z`@ 4dc 3 j`jhj`jcje H PJss Ee gde gd4+~H3 HJs~H P+h4h3K>YK>K>K>K>K>K>K>K>@7>k?ok? k?k?k?!+{H3 `"G+~H3VB+~H3pVB+~H3VB+~H3VB4+~H3 HJss`+jS6f4+~Dccs j`j`je^ Z4cH HJsscc+rH3 pJu4H4 pjvJsHt?jv 4+rH3 pJss`p+j46+rH5 pJ c 6s?֓c t j4cJsJ4+rH3 pJz Y_4K>K? K?K?K?!@O?k?7_44K>@7?k?7+rH6KZ+rH4 p4@ jJt z4`8H4 pJ` 6V+rH4 pj J0 j0j(_4BH3 Jv+t S+rTJ pJt JP K>ُ@@ JS@"H3 pJst z_ "J?E+t _?JZ4_ 4K>@7?k?^7+t T+rSJs pJ JsP 4@4 (+rH3 K?6\K?Y@7?+{H3 ` 4+rH3 pJs`x+j48+rH6 p4J u 6s?֓c t  j6JJ+rH4 p4j@k?ok?+jh `+{H3 ` K?Y+rSJd pC_@Hs pJsH?hs p+{H3b +j444jK?YK?@O?k?ok? k?DE+~T+~Sj` 0Js 0j \)@_]@]i@+{C4z`## 79# 7[W+rS6xBs` 4z`## [U79+t H8 !+{H3 `!+rD+{SJs k?+{C4z`## 79[HH JJk?Jk?4z`##079(J[]J+rT+{S+{C4z`##079J[Jw +rSJw p JJk?JPk?4z`##079X[J\@ 0+{4:`##0[I79 ]@Z4?@@@K?@ @@@K?@ @@@K?@ @@ @@K?@ @@@K?@ @@ 0@K?@ @@0@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@@K?@ @@ P@K?@ @@ @K?@ @@ X@K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@@K?@ @@ @K?@ @@ t@K?@ @@@K?@ @@ @K?@ @k?ok? k?k?k?!+rTH$ pHHd!0h3 p+t G+rC+rF+{EJ pH JsP Hs pJJt 8JuHs pJsX J?6 2Ht pHjXH j`6?jh_@Hs pJsHhs pd?T+{@x4: K>K? K?K?K?!@O?k?ok? +t0H3 ` +t H3 Js` H+{D+t C@4 Hs Js` +t0 h H3 Js` H6 @@+t H6 J+rH3j+{H3 j+{H3 J jJ @(+t0?j J6sjH4x"d6st 4#C0[ 7Z@4K>K? @O?k?o+t H< K@06k sB6s@@ Y4(|(+r#C07ZX_4+rSJshs+{SJs hs+{S+t TJ Js J hsJhsj4K>@O?k?o+t H< K@06k sB6s@ YQ4(|(+r#C07Z_=4+rSJshs+{SJs hs+{S+t TJ Js J hsJhsh` j4K>@O?k?KV+{KSh3 +t H4 Jt7Y4B+{U+t SJs +rTJsJ J 芓+rY4BxSjv+{TKSj +{U+t SJt J J j K?Y@7?k?o+t H3 Jc` 4KS` _EZHs 8+t H4 J6s?` j_u@+t H5 HsjJ sB6s s 6?jY Z4K>@O?k?_m7#C0[17Z4K>@7?k?o+t H3 Jc` 4_Z+t H5 HsjJ sB6s s 6?jYZ4K>@O?k?ok? k?k?+t H3 Jc` p+{H& +rH%+{H$ Js d _Zhfhehd44K>K? K?K?@O?k?o+rH#+t H3 Js` "#C0[Y7Z4KS` +t _@+t H3 JsJtJu+rH3 +{H3 @@4J  2J ߂ 4_@4K>@O?k?ok? k?k?k?!E+t H` H' H4Y5Z_u@Y@Hs ` x+rH3Jt +t Js t Bs?t 2FH Jd\ 4H jd_@Ht HjHt HjHHs jHHsjHs(hHs ` +rHs0hHsHt H4 h3+{H3 Ht h3 HHt hHHt hHshY ZYZ4K>K? K?K?K?!@O?k?7+t _H: K>@7?k?ok? k?k?Y 48|(+{#C0[7Z84_4: "4_5@+{S_U6z _m@+rFH+{EH 6s?_hs+rUJH hsHs th j+t SJu JHt jJHt jJhsjHhsHJhs Jhs(Jhs0jjhjJ *J t Bs?t 6?j_@_ U@4K>K? K?K?@O?k?+jH:h@ 7\ @44K>@7?k?7k>k>k>k>k>k>EHǓ +{[yH: 4+{_4: +r4H&+{H' 4k>_7>+t H3 8+r#C0[ 7Z@_-@H4H#+{H$ +t H( Y Z+{4f Xh3 +rH3 Hz D \4BHz` D HyHz D Hy\@Hcf?HzY\@Y Z_@4K>YK>K>K>K>K>K>@7>k?+jH:h@ 7Y-@Y@+jh<h"c0706shhh3_}H:h4K>@7?k?7k>k>k>k>k>+t H3 JsǓ+{H: [ 4B8+{_4: ȏ +r4FH+{CHs _ k>4k>_%7>H_Hg !Hh` \7>HJth+{DH 6s? h +{F+rC+{DYa@H 6sk>h \M7>HsJthtH 6s??h Y@+{H3 6sk>(h' +{h' K>k>\7>4K>YK>K>K>K>K>@7>k?7k?!4k?+t H3 JsǓ +{[H: 4_ u@_ 7? `+{_ @_ @_@_]@_@(4_4: _@4K>K?!@7?k?7k?!k?)k?1+t H3 JsǓ+{H: [4B8+rH3` +{44^h3 k?+rH3Jc` +rD+{EZU7?Hz\IHyHc` hHJs` HY@Y4B?JshH 6s]h 4K>K?!K?)K?1@7?k?7k?!k?)k?1k?9+t H3 JsǓ+{H: [4B`+{_ 4: !@4^@k?+rH&4k?_ 57?^@K? |``+{`k?T4j +rE+{DZ7?4@\YHf *JshH 6sh _ @4K>K?!K?)K?1K?9@7?k?7k>k>k>k>k>k>k>k>k>k>+{_ 4: #0+rH:@ Y@YQ@+rh<"c0706shhk^q@k>+rH,4k>_7>^)@k>K> K>+{H:[4B@k>k>Z7>K>K> H04YZI Ch`+rG+{K+{JHeZ4@XXhhZ U7>K>| pHJdIs d Z 7>HJxIs x ZY[Hl RJshIS 6siS YZh|kHch`+rH3jijijcj`_@4K>YK>K>K>K>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>k>k>k>k>+t H3 JsǓ +{Z]H: 4+{_4: #x+rH:@ YQ@Y@+rh<"c0706shhk^ @k>+rH,4k>_M7>^ @k>K> K>+{H:Z4BX@k>k>Z E7>+{T4j K>K> H04Y ZJ Ch`+rG+{I+{KHeZ4@X%XhhZ7>K>| HJdI3 d Z7>HJsI8   di3 k>Z[Y\A7>Hl RJshIs 6sis Y Zh|kHch`+rH3jjjjjcj`_%@4K>YK>K>K>K>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>+t H3 JsǓ+{H: Z4B+{_4: !4^@k>+rH(4k>_17>^@K> |`+{k>T4j +{E+rG+{FZ 7>XH H sd@k>k>h \ I7>4@\yK>Hh *JshH 6sMh _q@4K>YK>K>K>K>K>K>@7>k?7KS @XUKV(JȊ KS(jJu?JJjX-@K>@7?KTȆ *J j J?J @k?KS @7 4#C0Zu7Z4K>@7?k?ok? KCD_eZ +t H4 H( `+rH3hs+{H3 hs+{H3 J hs 4#C0Zu7Z4K>K? @O?k?oHp4| (K>_ZQ@ZK>@O?k?ok? H4Ȝ zH_Z H+t H4 Hs( #C07ZZU4B_ZQxZK>K? @O?k?ok? DQ84|! `dX 40˜ +rSJsk+{SJs k+{S+t TJ Js J kJkk jk(h|0\+~4?h3 X Z4K>K? @O?k?74`QcSK>@7?k?7_54`\ K>H @K>@7?k?ok? k?"c06d@H4| :He_Z H(6d0PZ\K>K? K?@O?k?74#$879tP|4K>@7?@@K?@ @@@K?@ @@@K?@ @@D@K?@ @@@K?@ @A @K?@ @@|@K?@ @@\@K?@ @@@K?@ @@@K?@ @@@K?@ @Ap@K?@ @@l@K?@ @@8@K?@ @A@K?@ @A@K?@ @A@K?@ @@,@K?@ @Ax@K?@ @@@K?@ @@$@K?@ @@T@K?@ @A@K?@ @@ @K?@ @@@K?@ @@`@K?@ @A(@K?@ @A@K?@ @Ap@K?@ @@@K?@ @@@K?@ @A@K?@ @@ @K?@ @A@@K?@ @@@K?@ @Ah@K?@ @AT@K?@ @@,@K?@ @@@K?@ @A@K?@ @@ (@K?@ @A@K?@ @A@K?@ @@0@K?@ @@@K?@ @@ @K?@ @A@@K?@ @A@K?@ @A@K?@ @@@K?@ @A@@K?@ @@@K?@ @A@K?@ @@p@K?@ @@@K?@ @@ @K?@ @@@K?@ @@ @K?@ @@ @K?@ @@l@K?@ @A@K?@ @@@K?@ @@@K?@ @A@K?@ @+H5;aH3;i k?+H5=H3= k?k?7k>k>k>k>k>D@` 04Z4DH4|4844ZD 7>˜ VUB` PTҔBs 04?6B`?uZK> b`?C` 8UBs e8b03`?BG74DZ\K>YK>K>K>K>K>@7>k?ok? k?k?k?!k?)D+rE+rH+hG4@H Is H 4Jsh H ZX4y0?H @s0sf?wH ZX4y04K>K? K?K?K?!K?)@O?k?ok? C+rT+rSJs` Hj Jsj +hXDhZ_4B4K>K? @O?+t H< @70k?XM7 4K>@7?k?X 7\"#C0Z7Z4[=@4K>@7?k?ok? k?DE+t H3 JsǓ(4+{ZH: 4_@Z4A 4 2ZCY 4cZ_@\K>K? K?@O?k?ok? "c06dXEZ|h\X@C4z0XYY+t H9 4z0X1790``0\K>K? @O?k?ok? k?k?k?!D_Hd E4@4@s0sg :Hs` "e C tZ \Hcd?@s0\d8\K>K? K?K?K?!@O?k?7k?k?k?!k?)k?1X=EȜ+t #C07ZH' XZ@s4@t#4Hj7=##079XX@ 7=\ @7?k@@@@@p@`@P@@@ @ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@ @(#C0@404#C07ZxZ9@4#C0Z7Zd B@@+~H3 ` X-Zx4_}@C "X@ZX4B(C$Z E_ZE+rSJf pCHz pKSP (Hs pC4C(ZHs pJsH?hs p+r+rTJ h8j hZ8ZX@XZ4K\ZC@s` @7<+t H3 Bs0` 7<#C07Z c7:V@h_ Ju 37:  b`@s` 7:+t H3 6c0[YX7>Z##0797:XWZZ9@4k?Z##079XA7:ZqZ+t H4 J`?jj7:[ Y4K9K?!K?)@7:k?oȚ k? @` "#C0Z!7Z 4XEZ|jX @C+t H9 4z0XQ790``0XZZXu4BXZ4K>K? @O?k?7k?!k?)k?1k?9Y7=X 4c>7=##0Z 79` 0 0 07=44ZQ7?|Z4?X 4 ZX YZX4X 4 "Z4ZX 4B?9X Z4K#C007Z Z##0798XK?!ZZ@#C07ZXYL44K;K?1K?9@7<k?ok? k?+t C_Hd Hu 0EB0s4@t +rh5 h+t C H: \K>K? K?@O?k?oT+t H$ K3h4YX4`K>@O?k?ok? +rT+rSJs hj+rSJc pDC @H pJsHc?+rSJs p+rTJjtHjH4j+rSC Pjc @+rCCHzX Hz+{SXjd^ E@K>K? @O?k?ok? k?+rEH p+~SJs HJJs!+hDH` +{C@HzX+t SJs Jtրjt@ hH_ HzXH pC4+hSJsb C @@X@+r4h3 +hh 4K>K? K?@O?k?ok? k?k?k?!+rH$ p+rH3` +rC+~G 0+rEHs pH HJuJ p4CX@Hs p H4^Y4H`?Hs p_@4K>K? K?K?K?!@O?k?7k?!k?)+rH3` #C0+t h 7Z44Z A7?|+~4Dh +{T4j KxZX)ZH  8+~+~H3 0` #C0Z7Z+~h 4K>K?!K?)@7?k?7k?!k?)k?1D+t T"d86sj +t T"d86sjh+t CHs Bs0` 8E[ @Hz 7Z0XIY+t H9 7=X!790ZY7=Z7?KK? K?K?K?!@O?k?ok? D+hT+hSJsj +hW5Ch|(_ZK>K? @O?k?7k>k>k>k>k>FGEJk>k>4̈ c<+t T"d86sj +t T"d86sjh+t CHs Bs0` @H9 Z@Hz 7Z0W=Y+t H9 7<790W 4BP4Ĉ H4+t "d86sh3 +t "d86sh3h H4+t "d86sh3 +t "d86sh3h +t "d86sh3 +t "d86sh3h7>G7> Kh3h 7| x4̈ \yZZZGH@WZK>` KKK>K>K>K>@7K? @O?k?o#C07ZH_4| (4_ZWuZ4K>@O?k?o#C07Z`_4| (4_ZWZ4K>@O?k?ok? +t C_%Hd BHz Hs d *Bs0s4@t +rh$ hK>K? @O?k?+rT+t SJ hJs H7 :B0s4@t J30K>+t _H: +rh< hK>@7?k?7k?!+t "d86sh3 +t "d86s_h3h+rH9 h#C07Z7904Ym7?| (4_ZWZ4K>K?!@7?k?7k?!+t "d86sh3 +t "d86sh3h+t H9 #C07Z7904Y}7?| (4_aZWZ4K>K?!@7?k?_U704K?Y@7?k?o+t H3 JsǓ C+{H: Y4B(WZZ[YK>@O?k?7+rNHH9 pK>@7?k?7S+rZYNH8 pK>@7?k?oCNZ<+{H:PY4BNxZK>@O?k?Np7 4K>@7?k?ok? DCNZ Z+{H:PY4BNYK>K? @O?k?ok>k>k>k>k>k>k>k>k>k>D##0W79ȏ 0+t _ @+t H< 70SJm +rFH+{EH +{CHl _ZHH Hi +rSJs` (4+rH% @D4+rH# p+~H3 HJv+rH4 p+t H5 Hsv B HsPe(D t(D u8GHcHt?Hs+t H& +rH3 pd *CB@Hs p d(+t H3 m! 6c0+rh*+{h+ +{h, 脠 @+rH3 pe (CB,@Hs p e(B\@+rSJc pDB@H pJtPHsP?+rH4 p4j+t H3 6c0XZ+rh'h+{h( h+{h) h +rH3 pJsP \BtZ\K>YK>K>K>K>K>K>K>K>K>K>@O>+rUH3 pJtH 4J pJH?7@k?Yo+jH3` +{H3 ` K>+t C]4zW 4z+~T+~SJs HJzJ`7Z?YVB``+rSJt p4FjK>@O?k?ok? +t H3`` #C007Z##0_ 79(Ȝ(+{H:`Y@4?Z ZZ4C4| H#C0Z ZHz@ W=@ZW%4BY7Z0_ 1ZK>K? @O?k?ok? +t H3`` "#C0Y 7Z4?##0_i79P| H+{Z ZZZD_YZ\Y H:`4K>K? @O?k?7k>k>k>k>k>k>k>k>k>H+j 4Xk>As4\t 4'"c006g@` #C07ZX^4k>ZQZI!c07:!C0Z7>L`7>FK>6sk>78YY4\7878YYU4[7878WYA3` x7878Y5yZWM78ZY5YZZ78@C78Z4 C4ȼ+{@`>}ZH3 d 87<Z##079W-X_uZ\K8YK>K>K>K>K>K>K>K>K>@78k?KT4 74C KZ4K>@7?k?7k?!CHzC7?˜ K? B?` bh| K>K?!@7?k?ok? k?k?FH` hH Hdq4ZHyYuX `Hsh\4K>K? K?K?@O?k?oCHt4 x4 4"d86shs(_MHz h|X4h` h`084"d86shs(HsJshs4K>@O?k?7k>k>k>+t H$ HShk:4k:7K>K>@7:k?7k?!B 7?| h+~TJ 0` 0+~UJ d K?j j 0K?F44B"c06cFtZK>K?!@7?k?HX7+h h<0#C0YU7ZK>@7?k?7k>k>k>k>k>k>k>+rH%p+t H3 ` +{XE4B^h W@@ 7>'k>7<ZK>Y 4WIK>4@! +t0H4x"d6s 4 +{DHh` 8+t H<hZV%B phh7<Z+h49Y54+t H< ZVB+{h<h7:W7<4?(k>k>+h4:Wq7`$(+t0H3 ` +t H4 "d86s H< +hH30` +t F 7<+hGH:0+~H3 ` F|7>+~H3 ` XK>` P+~+t H< 7<V%B+{h<h+~H3 ` (#C07>F7> (#C0YA7Z 0+hhh 07:K>Y4+h4:W7:K>` 4?WK>4?k>K>`"+{H3h`!7:W 7<+{I+t H 07<+t F+{CK>` b `6s_ I:XX1@I Jj_4 K>6sk>7:C:` @7h|hK>b@+t T+hCHs` x+t +h_ D7?h+{S_eJzXh|W4BB@+t T+rSJ Js?+rH4 p+~H3 HJJs?}K>` #C0W@_7:K>b h4+t0H4x"d6s 4 @K:Y#C07Z YY4BY7Z H4K:YK>K>K>K>K>K>K>@7:k?W!7 84+rH3Js+{H4 B|K?Y@7?k?7+{H3 ` @Y+rH4 p4j4K9]I4K>@7?k?7+t H3 M Jy˜#C07Z `Y4BV mBK>@7?k?W 7\ ^ 4B#C0Y7ZK>@7?k?7+~H3 V B+~H3 H4B|JyK>@7?k?7+~H3 V EB+~H3 H4BJyK>@7?k?ok? k?+t H3 Js` HE+rH5+{JH3 t J t +rH4+t H3 JsJJs t +{H3 t 0+{k?'C'K?D]E4: dq4ZYY X `\K>K? K?@O?k?7k>k>k>k>k>k>H4k>]7> +t 4H3 JsJcDJek>]7>+rH3s @TJK>Ht k>Hcu?K>K>k>+{H3 z k>WI7Zܠ8+r#C0YI7Z ]@x4CH3c 0+rHyZ % K>Y ]4Bk>H3s xGHdK>Hy F  % YXHcK> d k>Hs?4K>+{D F HyYH K>H k>K> f b`K>]5i\K>YK>K>K>K>K>K>@7>k?7_m7?\ K>F T@K>@7?+t H3 J| 4@k?o+t CHs Js` P4]=@Hs ]Jz]}@]@4K>@O?k?7+t h Y7?\#C07ZF 4BF @K>@7?k?o+t CHz F <7Z0Hz F $7Z0Hz F 7Z0Hs FJzK>@O?k?ok? k?k?SDEF+t CHz 7Z0YYe4Hz 7Z0YY=4Hz [7Z0Hz [ 7Z0Hz 7Z0W YHz 7Z0YY4dHt HjK>K? K?K?@O?k?ok? k?4+t SJc EF4z0HcH s?4FZK>K? K?@O?4KS6s?;`@p@@@@@@p@`@P@@@0@ @@@@`@@@@@p@+~+rH3 p@J|+rH3 p@J|+rH3 p@J|+rH3 p@J|+~4?h3 @k?o+t CHz F\7ZHs J|K>@O?k?7k?Y47=Y4[7= @\4cF7=[I7=?4c\KK? @O?k?KZ+rH3@S`7@`(+r#C0Y 7Z 4+rH<  K>@7?k?7k?!k?)k?14+t H3 Jt 84JJ? e +t H3 Jt+rH3 (UJJJ? d 4+{CHs W  d  0+rH3JsHt Bc4k?k?7>##079 XWW` c> 4c>F<7>K=K?!K?)K?1@7>+r` +~h 0@k?ok? +t CWHd +rVj hk"c0706shhkWJ hW4+~SJs H+~TJ PJz44BXJ+rSj|Hs kP+{Sj` W-Z+~T"d86s$Kj #C0J@ #C0M@ #C0C@ h#C0^@ @+jH3p` P+rVQB (+r#C07Z 8]4+r"d6sh3+r"d86s4h3+r"d86sDh3P+r"d86sTh3K>K? @O?k?ok? k?+rH3` 8+{#C07Z ]4+rH3+{JtH3 tW4z (+r#C07Z ])4+rDHJ+{EJsH J 3 YYXHjcJth+{UJ 6s?j H jW7Z4Z4B@4K>K? K?@O?k?ok? k?+rH3Js` #C07Z ]4]U@+rCHsJdJsJe W4Hs+{UJtJ Js T JyYXHsjdJshs+{TJ 6sj 4 Z94W9@] @K>K? K?@O? 8 T4$s4Sd@k?ok? k?k?k?!k?)k?1D+rH&+rH3 pJi7E?7#? s`+j4' ccs ֕c  JjJ(j(J0j0JJj jJ_ X4c?hMC s`+j4' ccs j` (jfj`j`(j`0[Z4cdccK>K? K?K?K?!K?)K?1@O?7Z?79?  :`xW+j46 ֹc 5 tc  JtjJs79?7j@k?ok? k?k?k?!k?)k?1E+rH&+rH3 pJi7$?7C?s@+j4' ccs Jtc  JtjjzJt(j(Jt0j0Js jJ_ X4ch_M 4cd@x+j4%ccs j` (jfj`j`(j`0[Z4cd_ccK>K? K?K?K?!K?)K?1@O?7Z?  Y@xW+j46  ֺc U tc  JtjJs7ZW_j@+{H36u?T4@@8+j43֕c  t Jt6jtuc +j44 +{H3J U6?+rH3 pJs T6?0SF?f6?F?S@f+{H36s?֓c t+j43 t +{H4Ju T6?+rH3 pJs U6?04@Ff6F4@@f+{H36s?֓c t+j43 t +{H4Ju T6?+rH3 pJs S4@dd4@@f@@K?@ @@@K?@ @@`@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@@K?@ @@@K?@ @@ @K?@ @k?ok? k?k?ED4+{H8p+hN 47@B +r H#+{THsJ Ht +hEN4@˜+rHc`!4HzHs? z h4!P+{H3 ` HzYh#+{H3 f h#+{H3 h3 +{Hs |h3 47?H3 t Hs XTHs t +hENl4@˜=+rHc` 4HzHs? z 4K>K? K?K?@O?k?74_ 4K>@7?k?74?_4K>@7?k?74_4K>@7?k?74?_M4K>@7?k?ok? k?CE+{V MH$p@8+{H3 ` 4+rH3`Jw`@+r+{H3 ` +rH3Jw4H74!x+rS6} +{ZJA4`J  Bs  Bv  Bs Btt 6 hw `+{h +r@h7KS  y KS 3kS @4@79JJ>J4K>K? K?@O?k?7_=4K>@7?k?7_4?K>@7?k?7k>k>k>k>k>k>k>k>k>CG+hT6 X+{SJspkS7:kSj X4L4kS #C07Z @X ]4B+h44 XJP` J(` 0Z_Y 8+h4Y_4$P+h4$ X+{H3 h`VZh7+hH3 ` ҄`P+{H3 ` +h+{V4: +h4H3 ` `+rH3Js`#XH3Jsh3+{H3 6sh3 +{h +h44 XJ ` 4 B2j04 +{E+rF+hKS6h X+{I@ pH H+h4: Y_4"8Hs "` V }4Bh H Xh HJzJy LX˜! H iHJzH LX˜ H I`t` 4jH 6d?`RHJzH D L5x X˜ H_Jz 0HJs |h I7@@HJs` jhI3 6si3 h Js` *hI3 6s?i3 Ve4B=y4K:YK>K>K>K>K>K>K>K>K>@7:k?ok? k?k?k?!k?)+{HI +{GH +rFH_54˜(K>i h h4K>K? K?K?K?!K?)@O?k?ok? k?k?k?!k?)+{HI +{GH +rFH_54?˜(K>i h h4K>K? K?K?K?!K?)@O?k?7k>k>k>k>k>k>k>E+hH3 X` P45 XJ` :J t J t +rH3Js` 04K3` x+{V+hS6u XJ`J j Jk>Y7>Z^ 4BV+hS6t XJJ J` j :@!4 4`S6f X+rHT Z :St ZT!"Y4B`! A`0LASZ6s?srS6c?փB  J k> JtJ t IJtH`H t K> d BzYZK>6sck> :@>T]9@+{V+hS6u XJ`J j Jk>Y-7>] @4K>YK>K>K>K>K>K>K>@7>k?ok? k?EDVY4| +~4?h3 h4 ZYXX b`E4Z+~H< 04K>K? K?@O?k?74KY+hH3 X` X45 XJ` BJ t J t +rH3Js`(73?+~4?h3 K>نp8+h44 X4` y Jv 44 y Jy+hH3 X v +rH3Jz_ V K>@7?k?7k>k>k>k>k>k>k>k>C4K4+hT6 X+{SJspkS7:kSj X4LkS #C0XA7Z @4+hU6 XJP` J X44 XJ ` 0604J+hN47@E_e4ZB4Ȝ?=+hJS6g X+hIZBX7>| H ` PK>ZZ c Nl58@?ZHP` *ZK>L X5X X?UZ54?Z_K> ?ZBZ\K:YK>K>K>K>K>K>K>K>@7:k?7k>k>k>k>k>k>k>k>k>DGHVZC4Z4At4ܠ+{x4?K4 +~IZB7>Ȝ!K>cZZYVX?Zij ZYK>4VZCZBX7>Ȝ pK>c ZYVAX :ZYMK>I3 ` 4uZAtZ\K>YK>K>K>K>K>K>K>K>K>@7>@@K?@ @@ h@K?@ @@@K?@ @@X@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@x@K?@ @@@K?@ @@@K?@ @@ @K?@ @k?ok? k?k?k?!k?)k?1+rH3Jc+{h P@tU+rSJsJ Js`86j b04?+{4@ 8+{TJ +rSJsJs6s?``j j +rH3+{JtH3 eA0 t 4@D4 \4~4B@sf r H H 6s?h 4c?@sf 4t?r H H e@Bi bh Zg XH Y @@sr *`f H 6s?h 4c?H e_@s+rH3J| K>K? K?K?K?!K?)K?1@O?k?ه@ o_@C+rH3JcVi@[@+{H3 aH: [7Z?+rH3+{JtH3 t 24@Bu r 6?B +{+rH3JtJs t t24@@su r 4ct@s T4+{U+rCHsJs tWj W@HsJshs+{TJ 6s?j 4K>@O?k?o\ D_uZ\@K>@O?k?7k?!+rSJsJt+t CHs Jz8@ bF @E7?+~H3 ` Hs j`84k?PK?B 44 4J K>4K>K?!@7?k?ok? k?+rSJsJc+t DH J4 tJ8` 0+{#C0F,7Z H j|8+{` h 4+rSjc+{TJ 6s?j +rD+{CV @ W9@_]@ 8HJs` "hHs 6s?hs +{h 4K>K? K?@O?k?ok? k?+t CHu J4 tJ8` 0+r#C0FT7Z Hs j|8+rD+{CHJs` ZhHs 6sV hs 茠 W@_@?HV @4K>K? K?@O?k?7k>k>k>k>k>k>k>+t H3 JsǓ+{H: X 4B\ @_@ \M@4W7>_@+rH3Js` H'4_u@_-@ H+rTJJs` *j+{H3 6sh3 +rH(+{"`h +rD+{E4 @V @Hh WYK>_4 @HJshH 6sh K>W4BJsg!FhH 6sh +{Wqh HJc@si@ VHJuJt t` b03v HJshH 6s?Vh [@H  +{H3 6s?`(HY@4@Y4B(JshH 6sh H g(+t0CHs ` (#C07Z 4J4h` \@4K>YK>K>K>K>K>K>K>@7>k?7k?!k?)+t H3 JsǓ +{XaH: 4W7?+{DH K? cs c s@ 4_Uh h 4K>K?!K?)@7?k?+t H3 JsǓ 7+{H: XY4B\@W@+rH3JtJs t (4@Bu6B `@4+{H4 tz S Z@@4WQ@\ @4K>@7?k?o+rH4 p4j+{H4 (+rH3Js t Bu?4+t H3 JsҴ4 +rW4B4P P@#v4 84 (4@@+{H3 ` +r+r44NWih3pt4D +rW9@+rsh3pK?Y@O?k?7Y+rU4: K>@7?k?ok>k>k>k>k>k>k>k>+t H3 JsǓ K+{H: X4B+{C\ 4z #p+{SJj +rSJh\4z +rE4 +{C+rS6g +r S6f H  DJdIt! Hs @ 4Ƃ HpHs 4ꊓ!XHs daHHJtHs t B YBzHs 6sdhs HJtHs t B Y1BzHs 6shs Hs da HHJtHs t B YBzHs 6sdhs Hd`UHJtJ t B Bs  B BsYzHs 6shs dmUH :Jsh+{H3 6sh3 5h` \u@K>YK>K>K>K>K>K>K>K>@O>k?7+r4: WM4K>@7?k?7+r4: W4K>@7?k?7+r4: WU4K>@7?k?7+r4: W 4K>@7?@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@ @K?@ @@@K?@ @@T@K?@ @@ <@K?@ @@ |@K?@ @@@K?@ @@@K?@ @@ @K?@ @+H5=H3= k?k?7+~H3VBE@4K?Y@7?k?ok? +~DH +~T4j 0#DW7Z+{SJs ` h 4K>K? @O?k?7k>k>k>k>k>k>c>#D7ZLh4+r (h< p#D7Z\4+rSJt p+{S6sj 4@ +rE4c>7>4d4LH p4_c>+rC#D7Z 4 4LHw p#D7Z4 4L`Hw p#D7Z4 4L0Hw p#D7Z4 4LHw p#D7Z 4 4L Hw p#D7Z(4 4L Hw p#D7Z04 4L pHw p#D7Z84 4L @Hw p#D7Z@4 4L Hw p#D7ZH4 4L Hw p#D7ZP 4 4L Hw p#D7Z`4 4L xHw p#D7Zp 44L @Hw p#D7Z44L Hw p#D7Z 4 4L Hw p#D7Z4 4L Hw p#D7Z 4 4L pHw p#D7Z4 4L @Hw p#D7Z 4 4L Hw p#D7Z 4 4L Hw p#D7Z#$79D4L Hw p#D7Z#$79T4L `Hw p#D7Z 4 4L (Hw p#D7Z !5 4L Hw p#D7Z0 44L Hw p#D7Z844L Hw p#D7Z@#$794L PHw p#D7ZH#$79 T4L Hw p#D7ZP#$79 4LHw p#D7ZX4 4LHw p#D7Z`#$79 $4LxHw p#D7Zh#$79 4L@Hw p#D7Zp#$79 4LHw p#D7Zx#$79 t4LHw p#D7Z#$79 4LHw p#D7Z 4 44L`Hw p#D7Z#$79 d4L(Hw p#D7Z#$79 4LHw p#D7Z#$79 4LHw p#D7Z#$79 $4LHw p#D7Z#$79 D4LHHw p#D7Z#$79t4LHw p#D7Z#$79 4LHw p#D7Z#$79 4LHw p#D7Z#$794LhHw p#D7Z#$79 4L0Hw p#D7Z#$794LHw p#D7Z#$79 4LHw p#D7Z #$79 t4LHw p#D7Z(#$79$4LPHw p#D7Z04 4L Hw p#D7Z8#$79 4LHw p#D7Z@#$79 4LHw p#D7ZH#$79 4LxHw p#D7ZP#$794L@Hw p#D7ZX#$79 4LHw p#D7Z`#$794LHw p#D7Zh#$79 4LHw p#D7Zp#$79 D4L`Hw p#D7Zx#$79 4L(Hw p#D7Z#$7944LHw p#D7Z#$794LHw p#D7Z#$79 4LHw p#D7Z4 44LPHw p#D7Z#$79 T4LHw p#D7Z#$794LHw p#D7Z4 4LHw p#D7Z5 4LHw p#D7Z#$79 T4LHHw p#D7Z#$79 4LHw p#D7Z#$79 4KHw p#D7Z4 44KHw p#D7Z#$794KtHw p#D7Z#$79 4KYK>K>K>K>K>K>@7>k?oY+rC4zU4>4sb`>K>@O?k?ok? k?k?k?!k?)k?1H+rS6z +rCU4yA(d P+t0_4:4sb`>I VB+t0I _Z@s4@t 44]4B@@st!@`!+t0TJ ` Jcj 4+hTJ `t@*j `#DW7Z4H3 `6sh3 `+{H)S`@4c?F4+~E+~Dh@@H` "H 0` H `0H 0` 0+{H ` S`_u4c?+{h)+hH3 `6s?Ph3 `@s4\t FZ 4H<Z4+t0I h3xK>K? K?K?K?!K?)K?1@O?k?7+hV+{SJs+rU6` b 0j p+t044B``3@b+{H3b`+t04:+rUA49`+{T+rS6s`jK>@7?k?ok? k?k?k?!+~H3 ` 8#$(+{T+rU6`jb`+t H3 JzK79_%D!"H `!+t0H3 ` +{Z_4BhJc4h3 S`@4c?+~G+~F+t0EH 0` JH ` 8H ` 0+t0_EZS`_4c?+t0h 4+{H3 h` 8+~H3 0` "_@Y@+~H3 0` 4_@4K>K? K?K?K?!@O?k?o+t AH: +t0_h +rH4 p4j+t T+rCHs pJ JzP `K>U@ Hs pJsP6z0"d6zH]@K>@O?k?ok>k>k>k>k>k>k>k>"d6d`4FZ 8+rZ4I |4H ,Z+rS+rT6 WAjz +t F 4+t C+rSJs pHt JzP 0SU@@`Hz +rSJs p4jt44[4+{Sj`+{D+~K+t C+rJ+{S6i +t0H"d6gd+rF+{E_eh Is 0` HHz Ht J(IS x` J6sjHz KTI3 @(IxX @Xi@Ixg 4H pJ` x4JH h4H ` PH` @+t @3` (+r@3`044[q4B>@k?7k>k>k>+rSBsvc>4+{U+hS+rT6`Js p j+~Sjd 7> W``k>7?C>`s4_7>+h43 hh< h+t0h3 +{H3 h` 0+{Y}7>+{H3 `` +{H3 P6s?h3 P+{UJ+rS6s` 6?j_=@4K>YK>K>K>@7>k?7k>k>k>k>k>k>k>k>I4+t CHs K JyHHs JsJe44044 H0` @( z  ZUH  JH  :c> c>K7>DZ4` @s(d bb  ZUHy  2Hs  "K$ZD4Z4Hc0`?@s(4?>48\K>YK>K>K>K>K>K>K>K>@7>+{"d6sdS 44#0@7 @4J Jz ?J@4@k?7k>k>k>k>k>k>k>k>k>k>k?CFK4c> b$4?S`AX4?4 !4@4 6!$! b3c>C>m 454e7>C>j 5:p4e C>5H4 r C>4 47>6sc>4X @X%4@S`^4?4XU4d Y_%ZY]ZV@K>YK>K>K>K>K>K>K>K>K>K>K?@7>k?ok? k?KDk?˜ 4#D7ZW 4BK4H0` @ZHy _@x(Hc0`?Z04H Z_5@(4_m48K>K? K?K?@O?k?ok? Dh+~Sj` +{T+rS6s`j+t SJs Jz#$(K 79_ C` @4@s(d 4hHz _U4BH| K>K? @O?k?K7˜ +t #D7ZW4BH3 j|K>@7?+t H3 @J|k?7k>k>k>k>k>D+{HY h3 X4@c>c>+r4' 4:c  H` @4c7>KtY7>4 4KWe_c K>YK>K>K>K>K>@7>k?ok? k?k?k?!DC@s` @T4Z4ғ v8`u b04?ғ+hE+hFH xJc` P6sh xH ZU QY?H xZ+hS6f+hSTJsfE+hGJJc` H6shH (4cZUyY (+hZUY(4TJf_Jc4K>K? K?K?K?!@O?k?ok? D+hT+{S6sj x+hT+hS6s j+hU1Ch| _ZK>K? @O?k?FX7˜0+{#D7Z+{xh4pH4p+h43045J`?6J#D7Z W @K>@7?k?7+t H3 K`Jyؓ 4K>@7?k?7+rK H9 p K>#DW A7ZXK>@7?@`@K?@ @@@K?@ @@@K?@ @k?7k?!k?)CD4^4 ZUaZk?X 7?U9ZZXY44K>K?!K?)@7?k?ok? KE@4`S4` e+t043 e Jz@ ԥcU1@+t04$]% 4? hK>K? @O?k?7KZ@@4@`S7S` z+t043 z Jz@ K>X%JyK>@7?k?7k?!k?)k?1k?9KC`@4``S4s` c]7? +t043 c HK? % HU 79| 8 YWK?hK? e hT ZK>K?!K?)K?1K?9@7?@@K?@ @@ x@K?@ @@ 0@K?@ @@@K?@ @@@K?@ @k?ok? k?k?k?!EFGDTE4|(Z#D7Z[)4Z4T%4hehfhdhg\K>K? K?K?K?!@O?k?ok? +rDH p` C+{T+~SJs HJJs+~TJ PZ 3 4_=Jh pkH[@+rH5 pHsjXj Hsj`j(Hs Ht jhj0jP4jK>K? @O?k?ok? k?k?k?!+rCHs pUEJzPHu p+{FH j`+rEHjX+{G+t DH H J jhJHhs pUJzPHt pJ`h JXhH JhJ h 4K>K? K?K?K?!@O?4+~H3 HJs6s?`+j46+rH5+~H3 HJs6t?|c  u 7|c@4@k?ok? k?k?k?!+rH3 pJsh@ #DV7Z 4GH pUJzPH pJғ t cJ 4Jt sYjH pj| JfHZYJx_WH pj|HkH+t SJt kP+{SJs k`+rDHkX+{SJs J _kh[4Y@H pj| H +rH3K?4c+rDH p+{S+t TJ Js J s_}j0C`@H p+rD+t (E_@H p h4H pJPH (J XJ t  cHw4K>K? K?K?K?!@O?k?ok? k?k?k?!k?)+rH4 p+~H3 HJJs 4P4+rH3 pJcHs JfP+rH+rGIs @HdHHsPf Z@ 4ZT4BECH ps?I +rH% p+rH5 pjHhH+{H4j+~H3 HJs [ aj4K>K? K?K?K?!K?)@O?k?ok?+rT+rSJ pJs 4+rH4 pJH `H3 pJcHHsu@0H3 pHcHHsu_HcH+rH3 ps +rX4H5 pHtJ`jHs6s?hsJ6sjH4 pHcHHs6s?t?hsx+r+rH4 pJ6s (jJHJ6s?jHs6s?hs+rSJc pD[ @H pJsHs?h p4K?YK?@O?k?ok?k?k?+rSJv p+~X+rE+{W7F?JJ 6sK HJt B@jK?YH pJtJ P+rD+{C_5@H pJtHs (_%@H p jfJHH p>JK?YK?K?K?@O?k?ok? k?k?+t H# +~H3 PJe@D+t FHz`@ RTY\ 8h|`  TCS?S"TS"HcH s?Hz`K>K? K?K?@O?k?ok? C+rH3 p`!D+~H3 HJs _Z_]ZZ@+~H3 Pjc+~H3 HjdZ4+rH4 pH3 pjcJsH?h3 p+rH3` jdjc[a4K>K? @O?+rH4 pZ @4+rH5 pJP z8JH?JP@k?ok? k?k?+rH# p+{H3` 0HfH+rH3s "HHs!4f +~4HtHs t 4H3 HJs p+rH3 pJsd 0E_@H pJsd?+rH4 pHsjH4 pJJ 6sHtt RD_@H pJtJs t 6Hs (+rH5 pJ6sHt [jHHc TJHJHc?JHjHT }Z4K>K? K?K?@O?X+j4644KS`KT 6?tc  jwKT 6?tc  j`6KSKTkW KZHX?=4@k?ok? k?D+rSJc pEHsPd Z_4HcHH ps?HsPK>K? K?@O?k?ok? k?k>+rH3 pJd[Je U7>+r[H# 84` (4e 4?Hc4K>K? K?@O?@(@K?@ @+t H6 J(" J6s0jJ( "}6s v J j+t H3 Jt("~ t JJ +t 60j H3 Ju("~ u "}6s u J j +t H5 J(" Jsf`J( Js@j`(k?ok? C+t H6 JSDJ(#+{H3`"K>ل""~ t JuF` rF+{H3 J J!+{JH3 !J(+t 4+t H3 Js(" 6Js@8 t  " b3"6_4?+t H6 J(" Jsju(J( JtFfJ( Ju+{H3 J jJ( Jt+{H3 j+t H3 ` *J( JtFfh 0+t _@Z_Y+t H3 ` @+t H3 Js(" JtFfK>K? @O?k?7k?!k?)k?1k?9+t H3 JsǓ+{H: V4B(+t H3 JsS@H3 #DP7Z Jt( 0#D"~ t JsFs` (+{7Z HVU@4T4j+t D ~+{F"}6eH Jt(t JJk?Ju(#D+rH3 u H 7Z Vm4BxJtK? k?U7?H J(s JsJsh J(s JsBsd rd@b (H 4p x4Js(s Js6zJy(WU4BHH Js(s Jz7Z(W4BWM@H Js(s JsFs3+{U 4: H Js(s JtJs H XfJ(t J6s?jJ(t Jt jH Js(s JtF@F`= H #DVe7Z +{h 4K>K?!K?)K?1K?9@7?k?o+t H5 JSCJ("+{H3`"K?Y`"" JtF` @+t j(J( Jt+{H3 8jH5 J(" JvF+{H3 J J RJJ( +{H3 4@@ xj(_u@+t H6 J(" Jt+{H3 jJ( Jsjc(+t H5 J(" JtF?f+t H3 ` 0+t J( JtFfH5 J(" Jv+{H3 J jK?Y@O?k?+t H4 JS7J(!+{H3`!K?Y"~ t JsFs` +t _m@+t H3 ` H"+t H3 Js(" JtFf+t H6 J( Jt+{H3 jJ( Jsj`(J( JtFfJ( Ju+{H3 J jK?Y@7?k?7TqKZ(K>@7?k?7#]T7Z˜ +t #D7Z V4BhH3 j|("~ | j| j|"a6s 6s?g6s??70K>@7?+t H5 h: KSSjKZ(@ P+{H3` 8"~ z JtF` Ff+t @h5 k?ok? CD4V-4\@YX@4B4K>K? @O?k?oCV%Hz Hz@ T@TZK>@O?k?ok? k?DECTY4@˜4`K>kkkk k` k(+{H#k0k8K>K? K?@O?k?ok>k>k>k>k>k>k>k>GIH H0H(i H` h40 T4˜ #D7Z 0hhh4H` HsHH zHs ZYXiXȜ   hf"8CHFH` HhZ4KX˜ p7hB i3br03z bh84cI36s?0i3H` ( i3h(\CHf 84h b3h "CHHH y 3 YhH YT979˜ RH  | H  | hHhuF#D7Z `V@4K>YK>K>K>K>K>K>K>K>@O>@H@K?@ @@@K?@ @@@K?@ @@ `@K?@ @@P@K?@ @@@K?@ @@@K?@ @@ @K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@@K?@ @@@K?@ @@@K?@ @@ h@K?@ @@@K?@ @@@K?@ @@8@K?@ @+H5=1H3=9 k?+H5=H3= k?k?oT qDZXYK>@O?k?+{H3 ` 7+{49@_4B(+~H3VBK>@7?k?7+~H3 VBK>@7?k?7k>C7>!0K>YK>`AT+~C6?k>7>C7> 7>C7> K>` K>T y4BK>DK>K>` K>T 9K>K>` T K>Hs ` K>_ 6?K>YK>@7>k?7k?1C7? K>K?`@T+~C6?k?7?C7?! `K>_IK?K?!` T K?Hs ` K?_}6?K>K?1@7?k?7k>k>k>k>k>k>k>k>4k>Z7>"+{Sjc +rCHg+{SJj Z7>+hS6s4btHsg!8+rF+{E+hS6i+{HHJdH d`HJsH Bt 4 Bcs 6 h W@Wz+{H3 dmHJthI 6si 芇? h +{STJs j`+rE+hS6dHJsJ Bct 8+{W@ BzWZ+{TJ j}HZ@K>YK>K>K>K>K>K>K>K>@7>k?W 7K?Y@7?k?ok? k?k?k?!k?)KK36d?KS`a(CGA K>+t EH Jc`` +~HI PTJzH | j|`I PZ4TJxH 4jX+~H3 PJsXF@4  x K> g"x g"K>K? K?K?K?!K?)@O?k?7TKZ4S8W+~H3 4XV!BK>@7?k?oC#D7Z TY #DP47Z TY #D47Z TQY #D47Z TY #D47Z TY #Dp4 7Z TY #D84 7Z TqY #D47Z T9Y #D47Z YT4 #D47Z TY #DP47Z 8TY #D47Z HTQY #D47Z XTY #D47Z hSY #Dp47Z xYT4 :@y73?r<7?44?K>@O?k?7+rH5 p+{JH3 (VJJHJt?JHKS` +{H3b K?YJd@@4_@+rH5 pJd@x+{4h3jJ86s?H3b 04h3jJ6sZqjK?Y@7?k?V17K>@7?k?ok? k?DE_UF+~H3 ZYXWVBK>K? K?@O?k?ok? +j0CHs` @D_@HsZYViBK>K? @O?k?7ZK9K>@7?+t0H3 ` K\J|h @k?T7˜ x+t H3 bKv RJuKj|kKkjjjkK>@7?k?ok? CD \ZD#D7Z SY #D+t H3 jd87Z SuY #D+t H3 jd@7Z S-Y #D+t H3 @jdP7Z SY K>+t H3 jdHK>K? @O?k?+{H3 ` 74K@ K>"d6| @7?k?+t H3`` 7_ 4B #DUu7Z 4?K>@7?k?ok? k?+{4:#$E79 F#D7Z #$879d4 D4$k?k?4k?4k?#D7Z 0+r49 4I(4k?k?k?k?#D7Z H+h494I4\K>K? K?@O?+t H3 Jup+}h +r4h4JsX` +rH3` +h +r@h 6h3J+h 4@h3h +}6@h3@+t H3 Ju` :Y24֔ GS SSdY4@C`!9!+h \+r S6} K` H :ڠCҔBs j67ڠJB CҔBss 6ڿ7 HK 6ڠ"F wSdڿF@4CsBҔ Tt@( s x C`>K@4?k?ok? k?k?k?!Cy8+h H4Ds S4cyDs C+}H%Є 4 @x4B Jx? 844ZY_5  \4_ \K>K? K?K?K?!@O?CTGSSdYpҕCTGSҔ 8Sd Y"GSSdYCT@\CT4Z *GS4 SSd@\YX+h 4GTH3t S ` "GS>SdYGT@\KCGSSdY\GSSdYV4 tGSv 7SGSSdyRGTC :GSgSGSgS(7ZGSSdYGGS@\@k?ok>k>k>k>k>k>k>k>k>k>k>k>k>k>+t H3 JepJsX` D_4BHGT@ BD 4GS SSdDGSK>YHrGT4@ ZGS6s?rBDK>YGSSdDGShK>YD*4@GSt 7ZDGSD& K>YǦbGT4T H7Sd Yd*GT4@ _UXZDC+h G4 44 4   4  44  fGTHt V84r V` _YZ$ `#v Y_@xZ 7W !(CUҴ@ GT@!XҴ@ RF@ :7Zz@s sdz@s!XҴ4^!H Fu!*DK>YGSSdDGSHK>Y HҴD(K>YGSSdDGSK>Y@ (ҴY_]XZ@ :7ZzrDs sdzDsB ` "GS4 SSd V` _YZ` zGS=SdDK>YGTHt S `!RGS=SdDGTJ ` :z @s= sdz@sGSV@ 6 vGS 3SSd` GS=SdDGTHt SJGS=SdDbGTHt S_GS"GS=Sd7ZDGTK>YK>K>K>K>K>K>K>K>K>K>K>K>K>K>@O>@@K?@ @@ h@K?@ @@@K?@ @@ @K?@ @@ @@K?@ @@@K?@ @@ @K?@ @@@K?@ @k?7k>k>k>k>k>k>k>k>+t H3 Jdh +h 443d +h H&"4H`"S f 6s Bs?`"4+rUH3+{H4 6?Js t X"a 6vJJt@ f  Bs` 4?@4+rH3+{JsH4 !k>4.A4Ha@H+{G+t I4  Ss6s f @ssh K>  Bs` ZSY H K> h 6 VE7>SuZk>I3 Js S` ZV7>ZWK>(44H~ S4K>YK>K>K>K>K>K>K>K>@7>k?ok? k?k?k?!k?)k?1FGI+h 4#4ePe4"a 6hHs` Z0D(4cHyS   4ceHs+h 44 se Ph  sh #DU7Z p4H|K>K? K?K?K?!K?)K?1@O?k?7k?!k?)k?1ED7?_4|ZK?t #A #D7Z U4B8S7Z0| K?#D7Z U4B+h 43 t jcZ4# Sy70@` 4z +r4$ 7Z?YU44z"7Z?YS4Z#$SA79 K>+h h#K>K?!K?)K?1@7?k?7k?!7?_4| K>SQZK?+h 44 j+h H3s8h +t H4 K?4?H5 Jh v8jhJ?JhK>K?!@7?k?7k>k>k>k>k>k>k>GH7>_4ȼ!rH4!`K>YSZFSZ 74^@k>#DU7Z 44  Ss6s e @s` 8 Bs` xZSqY `4ZSY 7ZSaYH6sh4_- SK>YK>K>K>K>K>K>K>@7>k?77?_4 +t H4 K?jhK>@7?k?77?_U4 4K>@7?k?77Z 7Z?CSZ` 7=4Zc=7=44B4Z44 P Bs` : 8" `bb2$@4 2B` 6?4646 HGbB7=K<@7=k?ok? "d6d 8+t H3 Jzh_ +h 443z ` H4z"+h H#` (4z"B4ZZB4B B 7Z?_ZK>K? @O?k?7k?!k?)k?17?_4ȼ H4`k? Ss6s e @s` X4[MZV 54SyZ7[ C T 9@K?e S_}ZK>K?!K?)K?1@7?k?ok? k?k?+h 4#4ePeP4"a 6fHz@ *4B 4ceHz\K>K? K?K?@O?@@K?@ @@@K?@ @@@K?@ @@h@K?@ @@@K?@ @@@K?@ @@ <@K?@ @@ d@K?@ @@ \@K?@ @k?ok?k?4CCCBC]C\7_KS4?CY+rH3JuJs u Pԟs+{E+rSJz6 S` ` R J?  By 6?6?KS uh b `6 4:` 0S 8SW 8W6+{T+rSJsJs6s?j K?YK?K?@O?k?7k>k>k>k>k>k>k>k>k>k>k>k>k?k? k?k?L+rH3+{JtH3 t +t H3 Jfp 4 4H(@@@@ @@@4?J3`0B3 f Bs` (c>4+{h 444+{H3 6s?$h3 +rI+{M4I3JtI t Ԣ9 S?s3`"ԠBg 34Ak?'Bg "6?04ԿB"'K?V3 SFu45`! `!` X3o :_ *Ԡ*Bj 46?4`!X3p 4  2ԠrBh h54c?6?4c?` 4? 6 i 4 5` J` 3$84 KZ4@5`  :` 2"4? U`  `0Խ?9 I3` Js` 2Jt@"Js t Bs? xI3I3Jt@Js t Bs? 44I3Js ki Js`;I3Jti4+{H3 6s?h3 J6s?i 5?_-Z;I3+{TJ ``j +{h 4 h4?pK>Y+{U 6sj <C> 84K>Y| 4?K>YK>K>K>K>K>K>K>K>K>K>K>K>K?K? K?K?@7>k?ok? k?k?k?!k?)k?1k?9k?Ak?Ik?Qk?Y+rH3+{JtH3 t +t H3 Jtp J(6BBB BBB4?\S`0BS t Bm 4444+{TJ 6sj +rF+{G՟s4 4 u4 4 @4HJH u J u բ"4:T S `! WF w` ꌀ!` Z : *ՠ*B| 464`!` WSe j? *ՠ*By 464` ( W V4` W` :` SD84 7` " js04P x  ` " 2` * 7? ` ս:HJs` 2h+{H3 6sh3 Uh S!@ p4?xK>+{T+rSJsJs v \ 84j | 4?K>K? K?K?K?!K?)K?1K?9K?AK?IK?QK?Y@O?k?7CZ+t H3 @ 8Jup+rH3Js+{H4 BzY SFsS@4_4B_ZK>@7?k?+t H3 Jup+rH3Js+{H4 By: UFS7_4B +{H: _9 X+rH4 p+~H3 HJJs #DUa7Z @44K>@7?k?ok?44CDKS(CCCBC_C\ C]CBC_4?]+rH3Jt+{H3 t 0CZ X6 : 4"B} 46 5 0u 4 z8jb J 4"B| 46  c( d8Y Ϗ 4? 4?K?YK?@O?k?+t H3 Jzp@ 7_4B4K>@7?k?7k>k>k>k>k>+{H3 `#+t0H3 `#K7+{H3 `#xK>+rCHs pJs` 844Y4Hs pJs`#K7+{TJ +rSJf+{S Jg 4?j 4_ =4Ȝh+t H3 JsІb"(+rH4 p+~H3 HJJs!#D7Z X!+{+{C^Hz 臀 bXy4+{W4: +{h% +rh&hg 4X!4Bp!8+{CHd h` "d786s phhh3Tm@Hs h+{DS4 Bh` [7<78TUYS4 h` [m7<78TY78UQ@+{h% +rh&+{h' K7K>K>K>K>K>@78k?ok? k?D+h H# ` @E4zYR54 2Hc@`?4z #DT7Z \K>K? K?@O?k?oC_4˜ @sK SkK>@O?k?7k?1k?9Ck?!k?Z_u4Ȝ/Hs6s?`U@Z0@@0@0@@@ @ @ @ H@ @ @ @ @ @ `@ P@ @@ 0@ @ @ @ @ @ @ @@ @@ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @@ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @(@#D7?BX7?(K?!7?!B07?)(K?!K?B TFfB` H`K?Bs`K?Bt TFfK?!B TFfB` H`K?!Bs`K?!Bt TFf@` Hh@` t'XK?!H?0hB 7?'K?!C? SFt֟ftC?`B H7?&K?!C?`B 7?&K?!C? SFt֟ftC?8`B 7?& K?!C? SFt֟ftC?`7?!B (7?)%K?!K?!k?Bs` K?B` rB TF?fB TF_f6k?B`?}K?k?7?B @7?$K?!7?!B 7?)$K?!RK?!CRK?| #DT}7Z `DJ4c?K?!s BxK?s Bw TFf UFf b `_UbK?!7?!B 7?)#pK?!44"g06v  TF 4cu_fK?!B`#K?!B SFt֟ft03`?BK?!7?!B7?)"K?!7=K?!T5447=4u Bs`  TF?F 4cv_fK?!7?!B 7?)!K?!K?!44 TF 4cv_fB`!HK?!B SFt֟_ft03`?BK?!7?!B@7?) K?!7=K?!T}447=14u Bs`  TFF 4cv_f K?!#DT%7Z K?!@ K?)` R @K?@ K?` K@7?k?ok? D_4 K>R4H|(Z+~4?h3 hK>4R 4H+h H3 hs@h# 4zYRM4``:K>K? @O?k?o+rCR4HZ@ hz`4R4HHt`4@f4b4f4bf4Rblf4Pbnf4bf4bK>@O?k?ok? k?k?k?!k?)HCJ_ ]4ȼ!K>ٌ€#D7Z8T }4BpHd4?~#D7ZhT E4B8R]ZGZ Y #D7ZT 4B4?f 6s@d ` #D7ZBP4BBZRU4|(Z+~4?h3 @K>RYf 6s@ d jcK>K? K?K?K?!K?)@O?A@K?@ @A @K?@ @A \@K?@ @A d@K?@ @A @K?@ @A$@K?@ @@T@K?@ @@L@K?@ @@@K?@ @@ L@K?@ @@\@K?@ @@$@K?@ @@@K?@ @@ D@K?@ @A@K?@ @@t@K?@ @@<@K?@ @@ ,@K?@ @@@K?@ @A@K?@ @At@K?@ @A@K?@ @@x@K?@ @@p@K?@ @A@K?@ @A@K?@ @A@K?@ @A`@K?@ @A@@K?@ @A@K?@ @Ax@K?@ @A@K?@ @@$@K?@ @@t@K?@ @Ap@K?@ @A 4@K?@ @A L@K?@ @A@K?@ @A @K?@ @A@@K?@ @A @K?@ @A T@K?@ @A0@K?@ @+H52H32 k?+H51H31 k?+H51H31 k?+H50H30 k?+H52H32 k?+H52!H32) k?+H50AH30I k?+H52QH32Y k?+H51qH31y k?+H51AH31I k?+H51H31  k?+H53AH33I k?+H52H32 k?+H51H31 k?+H50H30 k?+H51aH31i k?+H50QH30Y k?+H51H31 k?+H53H33 k?+H52H32 k?+H51H31 k?+H51H31 k?+H51!H31) k?+H52H32  k?+H50!H30) k?+H51H31 k?+H50aH30i k?+H511H319 k?+H53!H33) k?+H52aH32i k?+H52H32 k?+H52H32 k?+H50H30 k?+H51QH31Y k?+H50qH30y k?+H52H32 k?+H50H30 k?+H52H32 k?+H50H30 k?+H50H30 k?+H521H329 k?+H52AH32I k?+H52H32 k?+H50H30 k?+H50H30 k?+H501H309 k?+H51H31 k?+H531H339 k?+H50H30 k?+H52qH32y k?+H53H33  k?+H51H31 k?+H5;qH3;y k?k?7+h H9XK<K7+h H3`!hK6K3`!Rk ֖c +j43 t Jt! TBc?+h FK5X  k?' 7=H'J9JW k?' 7=@'J9JW'HK? K4P k?7?k?4k?H:`K9 'IK?_ K>@7?k?ok? k?k?FD+h H4XJ`!J+h H3`!K>J` +h _@+h ]+h V+h EHX6$  6H$ J9JW 6$  6@$ J9JW'HK?a JP k?k?k?K`JhJ`'IK?_a HXJ d j+h TJXt`6?jK>K? K?K?@O?k?ok? k?k?k?!k?)k?1EFK>+h H3`"(K>+h II4XJ`!JHk?' k?' 9IG'HK?DJ@k?'Ik?' 9IW'HK?ጀAXC`AJk?' 9IGJ'HK? a k?' 9IG'HK? a k?' 9IW'HK? a k?' 9IW'HK?_ a +h U+h TI3Xk?k?k?k?k?yk?qJ`JhX_ Jw`K>K? K?K?K?!K?)K?1@O?k?ok? k?k?E+h H3`!F+h H4XJ`!xJHk?' k?' 9IG'HK?DJ@k?'Ik?' 9IW'HK?ጀ@C`@k?' 9IGJ'HK? a k?' 9IW'HK?_ a +h T+h Sk?k?k?J`JyhX_ WK>K? K?K?@O?+h H3Xjz@jy+h H4Xj+h H3`6s?@jk?+h H3`#7+h H3XJs` S_=@+h SJuX4jJjk?'HJjk?'J'HK?ցc4+jS6s t Js`" 'K? a SBsc?JXJx(J` +h ]+h W6H$  9 G 6@$  9 G'HK? JP k?7?k?k?K`Jh'IK? _4BU+h W+h SJtX6H$  9 G 6@$  9 G'HK? k?JH6s?k?J@6s?k?J`Jh'IK?_ +h _H:`K>@7?k?ه@ @7+h H4XJ` XK?Y4(j+h H4XJ` j_-@K?Y@7?k?oRDZ_EY+h H3x` K>_@K>@O?k?ok?C+h H3X` DJs` +h _@+h H3`sx6c?+h H3Xx6d?+h H3XJt jtjd+h H3x` K?Y_@K?YK?@O?k?7k>+h H3`!(K=_@+h CHtX+h SJxXJJ6sk?Jk?JJ7?_-6HtX4j+h C_EHz`Hz`_e7> (K>| K=Hz`_e7>K=K>@7>+h H3X@j`k?7+h H4XJ+h Jk?Jk?7ZJH8X_6K>@7?k?+h H3X` 87+h Jw4YH8X_]6K>@7?k?ok? D+h H3XJyJc3@8+h k?k?4 H8X_4w+rH3` 8K>+h 4H8X_eWK>K? @O?k?ok? D+h H3XJcJw `@+h k?k?4YH8X_6+rH3` 8K>+h 4YH8X_] K>K? @O?k?7k>k>k>k>k>k>+h H3`#K=Va@+}H3+h H:`_4d+}H3+h C+h FHz`Hh4_}7>DHz`+h SJspKT s s 4k?4?k?YJxh_-Jwpk?+h GHX+h H6aH$  5X$ I9)W'HK?k?+h E6a@$  4`$ I9)W'HK?k?Hz`HhX_}4_Hz`k?HX6aH$  5X$ I9)W'HK?k?6a@$  4`$ I9)W'HK?k?Hz`HhX_4Hz`_Y+h _1H:`K=K>K>K>K>K>K>@7>k?7+h H3X+h JwJzYH8X_-6K>@7?+h h:+h H4XJX Z z @j`+h H4X +h h JXJsj`@k?7k>k>k>k>k>k>k>k>FHȡ7<+h I7<+~J sd茀 hGI3` Je ``_ZCISVBR JДI3t 2e ``_ZC_Кȿ g"7K>K>K>K>K>K>K>@7@7?k?7k>k>k>k>k>k>k>k>k>KEC!   #BDDs 44c C Z_=9%"4@ =0st"% =0sÀ"4@ 0st"Bß 0s7:4 @7:f4Dj zDt hU4c 8 4cf4Dst?D 8gDDs  ds df=4 dZ_MY 7:fXZ_ YfTDtD  ds df4f@T z@@W_ Y=D7: K:Y H dzH@0 Y_-4B@4}5)d7:_YK:Y_@K:YK>K>K>K>K>K>K>K>K>@7:k?K?4+h H70+t044@S04` j(+h h70+t0T6@+h SJsXJz YJyH7j@Js`kX+t0+t044@+h H3XJz X Jy@7j+t043@ jw4404ֿֿ?޿ֿ_ ֿ7?Ƕ +t04@ֿ7?A43@ju K?@k?ok>k>k>k>k>k>k>k>DEFGK>+h H3x6s_Ah3x+h H3XJiJjJt =JyHC Jy@TZJyH7 ZJy@7+h H3X@ U+h H3`XD+h H3X`jtE+jS6h!!HXjcJttc   Jy ' _ & HXJ6sdj+h H3Xjijj+h H3x6s?` h3x_@K>YK>K>K>K>K>K>K>K>@O>k?ok? CHs6s?`@@@@@@@@@@`@P@(@@@@@@8@H@4Hzx_4B+h H3Xj`+h H4X4j4_4Bh4_}4BP+h H4XHs((jHsHk?Hz(Hy0Hx8Hw@_4B4Z_I4 Z_!4o1bZ_4"g06s 0Z_4"g06s 0\4\44K>K? @O?k?7k>k>k>k>k>k>k>k>k>k>k>k>k>k>k?k? PCF4 46+h H+h G+h M+t0LS6k@4 +h N+~RS6qȎ I`_1I`'I`_ 7=K=6s?`@r@X@@@@@@@@@X@@@@@x@h@X@H@8@0@ 7=I`#!_ 7=?I`K=7>ak?7>ik?7>qk?7>yk?7>k?y7>Q_ Y7>Y=H8l 4IHK> (WK>iHI@IeK>qK>yk?_4I@ Is8 o" `" `"`|h4 h8Isi@4 8K=K=K=K=K=k?_}4BhK>Ҵk>+h "g06s h4Ҵk>K= +}X44K= S` K> s +~44 s +}44  3x! hZYS4BHb K=Ǔb@|JSȆ`@@sB3 "`4xhK= S` Z@ss4@t 4Z(``@sst 4>`sH`854(K=Y7=_M4B8 4K=YK>K>K>K>K>K>K>K>K>K>K>K>K>K>K?K? @7=k?747>_7>K>я"@7>U79?C>ӜK>Y@7>k?7k>k>+h H3` 4+h _H:`| 4c?44 h+h DH`_7>_e7>?H`_7>4c??H`4K=K>K>@7>UV+h WJXJtJz T JyHjJXJtJz T }Jy@@j@@@@k?+h H3` X7+h H3XJs` 0+h T+h SJ`_JyhK>@7?k?7c?ZP H+h 4@c?+h H4XJ؆` p6s?j+h H3` +~H3VUB7?_ 4_ @K>@7?k?7k>k>k>k>k?k? k?k?+{H3 `!K>Y+h H3`!K>+h J+{I+{H+~G47>+~E_IZ` 47>_7>ч?7>K> y 54C3sI4 ؊t @I `0h # ZU yh 0795C3H 0`?7>K>U -4B>K>YK>K>K>K>K?K? K?K?@7>k?+h H3` 7+h H4XJ` J` 8+h T+h SJ`Jyh^4BHT+h SJ`Jyh^4BU@K>@7?k?oC+h H:`^Y+h h<P+h H5Xj0j8J0JJ j@J0FsxsjHJ0JsjP44K>@O?k?ok? k?+}H3 ` 4# +h E+}DHsb bHs ` RHs` (H`H^Hx h|Ht Hsj4c(Hs`?wHsK>K? K?@O?k?ok? k?+{H3 ` pD+h E+h CHsXH`Jy^XHsXH`Jy^XK>K? K?@O?k?7k?k? D"d6sk>"d6sk>HHk>YH@k>aHH s H k>9H@ s H k>Ak>k>k>k>!Hk>1Hk>)4 wWk>+h CHz`H^7>4k>k>Hz`H^7>K=K?K? @7>k?7k>k>k>k>k>CF+{H3` G+h E+h DHXJXc H`J(J^7> 0HXH`Jy(^7> K>+h EHXJXc ֔B t jf+{SJs` +h DJX t H`J(Jx ^7> 0HXH`Jy(^7> K>+h H3XJtXc jK>YK>K>K>K>K>@7>k?ok? k?k?k?!FCEGQZQ7Ȝ +~4?h3 HK>ZQYQZQ97| Z+~4?h3 QY+h H5XJX sB JJJjJX Jd jc _Z @K>ل QZ K>QiZK>K? K?K?K?!@O?k?ok? k?k?k?!k?)k?1k?9+h H7`+h H3pJ s s Jh"68Jp"6+h H6XJ`j(J JsPJs8d@+{4h3h 4+}4*8!$4c S jjJ`0jJ `0j ` @Zk?'D'K?FG5%JJ _44ch_5c K>K? K?K?K?!K?)K?1K?9@O?k?7k>k>k>k>X+{H3`! F+h E+h DHXH`Jy(^ 7> HXH`Jy(^7> HX7>H`Jy(X^W XHXH`Jy(^X (HXH`Jy7>^WK>YK>K>K>K>@7>k?7k>k>k>k>k>k>k?+h SJsXJs0Jsk>4E+h I+h H 4HXJXc ԄB d Jsk>!JX d Jsk>)I:`Ih4^7>HXJsX d 4cf_UhK=K>K>K>K>K>K>K?@7>k?7k>k>k>k>k>CDE+}[ H: G+h H3Xk>+h H3`k>k>!k>+h U+h Tk?HsHk?Hs@k?Hsk?Hsk?y7>k?q7>k?i7>k?a7>k?YJ`JpX"^]6 ӀԿǼ7>ǜ Կ?7>$  4aH$ I9)WHs'HK?3 Shs7>$  4a@$ I9)WHs'HK?3 Shs+h FH`+h SJtpKS ֔ t Hsk?Hsk?k?HsXJsk?HsXJsk?yJK>^K>DhdZK>K>_WH`Y#^7:+h SJsXJx H`^Y\K>YK>K>K>K>K>@7>k?7k?+h 4h$C9 7=^e47=W4\K@O?k?7k>k>k>+}H# P` 7>YQ4c>C>` H7>4t@sst  b03`?@s@s` b"dT6sPb6b5"b6"b5"b6"b7>#D8^ 7Zt^ Z+h Ph<`^ Z+{4:`#$79`RXQ4?#D8^ 7Z+}H3 x` +}h3+h C+h S6sh_ hsXHtX+}SJsj8+h U+h SJs`Jsjp_ -J8 +h HsX+{C4z`#$79RJx8#D_7Z 0+h 4z`#$RE79Q4?CHtX+}S6s8_ujX+h DH`^ 40HsXj|+}T+}SJ(_}Jy0+}SHzXJy_4+h Ehh+}S_ Jz_@HsXJtXJjy`Js0H`^ EJxH`^ eHhH`J|K=K>K>K>@7>k?+h H:`@ 7^ %@K>@7?B5"<Ҵӓ V6??s42 t6?7??s42t ӓ6s? B5B 2@4Ӕ (ҳ t(B5?"<ҳӜ |84@k?ok? k?k?k?!k?)k?1k?9F4a@G4 Z+}H"d6iH @sj 4I 8` 5 8Hz_Y BHz@ _Y 4c(Hs`?HzHs` ZHsb 4 hif`*E hs4~ \K>K? K?K?K?!K?)K?1K?9@O?k?7k>k>k>k>E[Z+{H3` F+h D+h CHsXH`Jy(X^7> HsXH`Jy(^7> XHsXH`Jy^ K>4΀Ӏ HsXH`Jy^ XK>YK>K>K>K>@7>k?ok? k?k?CFD+{H3`!E X#DP7ZP #DZY_ 4BP7Z`PY!0K>ZY_}4BZY_4+h F+h EHXJsXc ԄB d H`Jy^JxHXJsX d H`H^H` @K>+h HXJsXH`H9h^uJxK>K? K?K?@O?+~4@h3k?7k?!k?)Y7?| `+h DH`Y^K?H`44^4P5ZK>K?!K?)@7?k?7k?!+t H3 JsǓ +{RH: 4+h H:`^7?K? C` 8K?T)Z` K?^eZK?K>K?!@7?k?ok? DCCG8ZH4H 4+}043Ȋ +}+~4343c USb7b6"b7"b6"b7"b6"b7"b6"bB6s?bK>K? @O?k?o4+~4:#$B79 "#DI7Zp 4\K>@O?k?^7+h 4h3xK?Y@7?k?+h h x+h H3XJs` 7+rH4 p4j+rH3 pJs`!`K>^ e@+~H3І`!+h W+h SJvXk?k?k?6$  6H$ I9)WJ'HK? a k?J6k?' 6@$ I9)W / K?K?J u k?yJ`4J^U4+~h K>@7?k?ok? D#D7Z 4T4G W#D7Z4T4G W#D7Z 4D4G W#D7Z4D4G hW#D7Z 4 4G 0W#D7Z4 4G W#D7Z 4 4G W#D7Z4 4G WK>K? @O?k?7+~H3V BK?Y@7?@k?7+{^4:@K>@7?+h 4h3X+h 40h3`+r4h3+r"d86sh3+r"d86sh3+r"d86sh3+r"d86sh3(+t0"d86sh3+r"d86sh3+j"d86sh3p+j "d86sh3 +r"d86sh3+r"d86s$h3 +t0"d86s4h3+r4?h3+{@h @ @K?@ @B @@K?@ @Ah@K?@ @A@K?@ @A@K?@ @B@K?@ @@@K?@ @+H5=qH3=y k?+H5=H3= k?+~H7 +r 43 P xTb+~TJ ` 44?j +~T+r S6s P@j 6?Shhhhj+~h7 @4+~H7 +~H3 (+~H3 ` 4?h3 @TShhhhj+~6 h3 @k?7k?1C_7? C?s 4&K?!C?4` `+~C?t C?K?!P4B(4&+~H$K?!+~H3 ` 44 h3 4K>K?1@7?k?o_C B@t4&04HtHz+~4 h3 4K>@O?k?ok? C@t6?b4Ҕ4$ K>4`@t 0ғ_mHz?4cPHzd "@st?4c Hz "@sf HzP4B 4=4cK>K? @O?k?7k?1C_7?C?d pK?`"t +~P5K?!+~H3 ` 844 h3 4K?!hs4K>K?1@7?k?7k>k>k>DEC_7> 4C>f "7>.`,hd PK>K>hsK>k?'1 , 4Xh`"t +~PK>+~4 h3 44K>YK>K>K>@7>k?74`c?4c?7?!.`_U7?K>@7?k?7k?1k?9CD_7? +~C?t 8K?!H3 ` h44 h3 H4hsC?4` 4hh4K>K?1K?9@7?k?74`c?4c?k?!_7?K>@7?k?I<7 0k?!4`c?4c?_u7?K>@7?k?Z(7+~4?h3 @K>4`c?4c?k?!_7?K>@7?k?7KS6skSCSc?CSc?k?!_m7?K>@7?k?7CS` CT#D7ZG 4B *CT4` bKZ_ 4B` ҔKZ@ D4B84&KZ_4B_u@K>@7?k?7k>C_7>!4K>Hs t k>+~H7 +r 43 P wsd@+~` K>4?h3 `4s w6?+~7>ShhhhjTShhhhjT7>hhhhj6?7 7>+~K>לH3 K>YK>@7>k?7k>k>k>DCE_7> 4+~H< hC`C`s@y& :&@$ *KR4 4`8K(7@ 4hKK>YK>K>K>@7>k?7k?1k?9CW4J@4+~KSsH4 t@v`@t4T(KSJcH4@t @v4JdHBtBBv@4B Ҕ4L 4` XZ HzP4B(4&ZH HzZ_4Bd pf 04V Z7?7?_4B0 +~4 H4H Hs6shs4J 4Hs6s?hsk?!6s?`@B@@@@@@@@@@@@@@@@`+~_7?!!XK>HsK?! (hs_7?!!K>HsK?! hs_U7?! K>K?!h_7?! K>HK?! `h_7?! HK>HK?! h+~4?h3 K>K?1K?9@7?k?7k>k>k?k? k?k?k?!k?)k?1k?9k>k>k>k>k>k>k>KCHCS@ldCS@f44444 4 4 5?`@`@(@@@@H@@ +~7>7>_7>K7>7>_7>J7>7>_e7>I7>7>_=7>H7>7>_7>G7>7>_7>E7>7>_7>D+~H3 `%B @@@@@@@ @X@x#D "V Bx "V B7>V }Bk>ь (ZV EB *ZV B7>V Bk>ь 0ZYV BH 0YZV eBh7>V =Bk>ь 8ZYXV B 8YZXV B7>XV }Bk>ф Z!0YX k?Z Z0Z k?Hk? k?k? Xk?k?k?ZYXWV UB Zk?k?ZYXWVB7>.`k?k?ZYXWVB0k>#DF7Z@+~4?h3 6s?`@:H@@@@@@@@@@+~K>ю` 0K>+~H3 ` x5?X4_ m4BPK>_ 4B87>.p_ ]4B+~4 h3 5?`@`@(@@@@H@@ K>YK>b K>P  ZK>b K>P  ZK>b K>P Y ZK>b K>P 1ZK>b K>P ZK>b K>P ZK>Ɏb K>YP ZK>YK>K>K?K? K?K?K?!K?)K?1K?9@7>k?7k>k>k>k>k>k>k>CE44Hgг6s>`@@P@8@x@@@8#D4c@sr #D7ZF 4Bpд4!Hd+~H3 `&+~+~C+~H+~F+~E@ZHs `&p+~_7>&K>`&@+~@8ZHs `&h i H `?e+~+~H3 `%+~+~H+~F+~E+~Ch i @xZH `%X+~@PZ_7>%K>`%+~Hs `?h S@Z4c@sr!JHg4c@sr!*Hd4c@sr! Hc+~H3 `$`+~+~I+~H+~F+~E@Z_U7>$HK>`#+~@ZI3 `#+~@Zh i H `?e+~r#D7ZFL4B_7>#K>Y_y7>#xK>Y_Y7>#XK>YK>`K>K>sB+~I+~H+~F+~EI3 `"K>Y_Z@`ZI `":h h  K>sH+~K>sa+~I+~H+~F+~EI3 `"K>Y_Z@ZI `!bh h  K>sx0+~_q7>!pK>YK>г`14 +~S`@4?+~H3 ` +~@Z+~H3 ` p+~S+~Tj ?j` S`_m4? +~#DF 7Z+~S+~Tj j` +~T+~SJs j K>YK>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>k>k>k?k? DGF4& H4_7>!K>YK>`" t8K>B4&+~L+~K4 "4 $h * 7>_q4B_Z@HI ` Is ` K>Yh  _7> K>Yj K>` @i K>` 44& K>_94B K>YOZK>YK>K>K>K>K>K>K>K>K?K? @7>k?ok? C@s` hT+{D 4_4`@zZ_4` b04 K>K? @O?k?7k>k>k>k>k>k>k>k>F@@+iTJ @+~UJ 7>j k>k>k>k>k>4 Hj @CHH%@@ #D7ZF|4BhHH+~H( Dg d +i44Pt(U#D7ZPF 4B`6??4 +~h$ +~H3 h` 4V B+~H3 x`"+r@4 Ҕ@s 04: OY +~4h3 +~H: 4dS@4d7C?+~H3 ` 4`0+h 464@ 6bu+h 4$ #$79O4+~H3 ZVB+~H3 6sh3 @ Z+~T+~S+~Uj j` j +iSJz @@ +~@ @+~EH `! +h 4$ #$79Oe4+~H3 ZVYBH 6s?b h h @ Z+~T+~S+~Uj j` j +iSJz @@ +~@ H@+~H3 p` 4VaB+~H3 ` (+~H3 Ȇ` Z@pY+~H$ x4`4&@e :@t HO]4Bc H xH4?ဈ@+~h$ +~T+~S+~Uj j` j +iSji @+~Sjj K>YK>K>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>k>k>k>k>G7X7>#$O79+~CHs 7>VB"Hs #D7ZVB4ga+~L!d+~F!D!!$cI d@7>5y OXH 7>VBDZȜ0H 5Z VBH 8ZH 5 ViBH ZVAB H 5 VBOZH 5: (V B4cg~ucK=K>K>K>K>K>K>K>K>K>K>@7>k?Z 7#D7Z 0F4B@k?CS@c?CSBc?c?!@7?K>@7?k?+iH3 p`@7Hh p6s?h3 p+rH3` K?YV IBK?Y@7?k?7k>k>k>k>F"d6e X_7>"`K>YC>_7>!C>C>+t043c ` Jt Жu4&Bv Ž(7>K>JwK>Ҁ7>؀K>Jsk?JZyИV B PC>ZF4B0J?B+~4 h3 C>4` Jt tK>O4B(4&C>HK>C>4` XK>Y ДK>O=4B(4&K>YHHK>K>YK>K>K>K>@7>k?7k>k>k>D"d6e X_7>!`K>YC>t+t043t ` Ju 07>4&K>JxK>ZyV1B 8C>ZF4B+~4 h3 C>4` XK>Yt tK>O M4B(4&K>YHXK>K>YK>K>K>@7>k?7k>k>k>k>k>k>k>k>k>k>k>C44+t0H3` 4VBc+~4?h3 +~STJs `/+~+~M+~I4+~L+~K+~J+~H ZJ `/PI ` 4I3 ` I Hi% `084@s`@@@8@@h@X@@@@P@ @ @ @ @ @ @ @ 0@ 8@ @@ @ @ @@ @ h@ X@ H@ 8@ (@ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @`@ 4cHzZIs S_4B h@z_4B P_7>Q,4_7>Y"2k>y@s6s?`@(@p@@@@@@@@p4?K>Y` 0K>QK>Y`!PK>Q`!HK>y0k>yK>YK>Q k>yK>YK>Q k>yK>YK>Qk>yK>YK>Q Sk>yK>YK>Qs>s@֔Xk>yK>YK>Qs>s@Ҕ k>y4?iS  04K>y_A4B_HzIS `(+~H3 Ȇ`(zHz4_]4B`Hz_4B@Hz_4B0@sc>@sc>C>f Hs.`7>!.`k>!@t4&@P4"b8Y +i@ BB:@s4!b@ 4!4 4 A4aYRGHsh3 @+~H4 Hsj?鐀0Y_a@zX4^7>a&@I K>a`&*Hz^7>i&I K>i`%HzZ #D7Z ^M7>q%I K>q`0DH_4`I @z0Y_-X 40DI Z_4B@z_E4B^e7>Y;40@t K>Ys04k>Y ` k>YK>Y^4BXHsJzH_4B8@s6s?`@*@@@@@@@@@@tHsJzH^=4BPHsJsHHsJsHJsJz^4BHsJsH.`^4B@t4&HsJzH^4B#D7Z F 4Bi% i i i% i i i ^7>#x4^7>1#X4^7>7>1^4B^]7>y8K>y`!4c4HssIt tB` #D7Z F x4B@Jk>!4 c>4`0c>Hsk>!4`c>4 c>7>^u4B@t+~H3 t Jz?A@ _4Bx#DP7Z 0 8#D_HIS ` 4 I 7Z PF@@I 4c+~TJ `0+~TJ `!4!K=J d J b +iEH p6th pD+~SJf j` _mHH pd@:h p+~H3 ` @4Z_4B +ih$ p+~h& 4K=K>K>K>K>K>K>K>K>K>K>K>@7>UCS` 04B t t 03`?B+iS`3 xs` P@< xғ`3 x@3 x` (@< xCS`3 x+i@@< x@k?ok? k?k?k?!GC 7 +ie h@3 xf@dГf 4zOIY 0\ 4cPe?@de(\K>K? K?K?K?!@O?k?oD+~T4_j x+rT6 +iSBs xb 7ZOyYK>@O?k?ok? k?+t0H#p` D+iE@ xs JsX PH| s ZY _Hw˜ C` K>Hc`?}@ x+iSBt x+h U6t `7J s +j048ZY  _4 K>K? K?@O?k?o_C+h H8 @+jZY_UH7 C` \_ZX\K>@O?k?7"dU4 6} p4244H4B4~6??svH6?sv06?r ғ| y x(w B4?6?? U 4<@ 4@K>Z#D7Z FH@4K>@7?k?ok? k?k?k?!DGE_MF"K>_uZ|#D7Z E4B@tB 6?b:гt (+~4 h3 ZE,4Bh@s` P4z!*@t@4 ^ HzH HzHO4BOAY+iTB x`sB x+h X7 v v +j0S6t  $4! , k?' 9(W/K?K? ҵjkhgH`f@`eBK>K? K?K?K?!@O?k?oDH`ZZY4_4K>@O?k?ok? C+~UJ b`+iDHP7TJ @4 CT *O@+i43 hP+i` (H9P+jZ4_ @7+~H3 ` K>+~h +h H: @ SO@+h Sj` +jSj`+~T+~SJs j K>K? @O?k?7k>k>k>k>k>k>+~H3 Ў` +~+~H3 ` +~H3 6sph3 H3 b`47> b`6_j`+~HI +~GH +~CHd 7>hs h i _ Zi h hd +~D+~CH 6?h ^J? H H O iJzH Hs ?H K=K>K>K>K>K>K>@7>k?_7\ 2CS` "CSBn _ 4B(l H4^@+~H3 ` 4ET44K>@7?k?_7ʜ K>B` 4BB0\@7?k?o_=C+h H8 @+jZY_H7 C` \+i@4 x+h 43t `7H3 s +j048ZY  _=4 X\K>@O?k?ok? k?k?C4ȹ!X4"d6y @tҔBs s O i@ @ss4t #D7Z YO 4 @sd4h@4^@@s` r@ss4t +~H4 4?H4 4.b+~H3 Xj`@ss4Lt 4c4 Z_u4B_Z K>C` 4 HCB+~ H4 4*Hb4,0b+~H3 buH4 C@b +~H4 KHjH3 j|_M@4K>K? K?K?@O?k?7+~@49 h˜4hK>ه`4 4+~H3 j`b|H3 _ubt4K>@7?k?ok? C"d6y 8@tҔBs 8s 04O@ "dx40"d6y @@tҔBs @s 0"dOZ "d426y H@tҔBs Hs 04OZ "d4"d6y P@tҔBs Ps 0"dOAZ "d046y `@tҔBs `s 0"dOZ "d46y h@tҔBs hs 0"dOqZ "d`46y p@tҔBs ps p4O Z P44+~H3 bdH3 btH3 _ j`4K>K? @O?k?o+~H3 Ў` #D+~H3 ` +~7Z E4BT4j +~S4jz +iCO94 h|P#D7Z ED4Bh+~T+~UJ j +iT+iSJsPjXj K>@O?k?o+~TJ 6s?j +~UJ b`+iSJz 07TJ t ZCC4s?ߎbt4 0+~O@+i43 c +~H3  X+i+~H3 І` +iH4X6h3X+~H4 U+~SJs s S+iT6` Jj 8+iUJj 0J4bbj+~6h3 +~H3 6s?h3 K>@O?k?o+~H4 4: @H3 #DE $7Z +~4?h3 K>َ@h+i44` s S +iH3 8j+iH3 0j+~H3 j+~H3 І` 0+iT+~SJs 0jX+~T+~SJs j +iS4 jz 8+iCN4 (h| 0+~4?h3 K>+~TJ 6sj +~TJ 6sj +~T+iSJs 0j K>@O?k?ok? k?DC+~EH j`+~S@6y ӓ` hHs` xH 6t?Bs?r #D7Z E$4Bpb+~Ph4 ` +~X4+~H3 ` "d6y @ҔBs s 0+~NZ +~p4$H3 ` h"d6y @ҔBs s 8+~NUZ +~4"+~H3 І` h"d6y @ҔBs s 8"dNZ "dh4 "d6y @ҔBs s 4N]Z h44&4hs+~H3 btH3 b`Hd_ Mh`hd4K>K? K?@O?k?7N4 ˜ c k+~4?h3 4K>@7?k?7k?!k?)C0@ b5Ҵ4Z x4?@4V 0z4z b5Ҵ 4R0z4: b5Ҵ4Z 4 0z4" 4_}Z˜ +~C` "4h3 ZEt4BCB (ғ+~4h3 4z :b 2| (+~4 h3 ZE4B8 @VB@t P4V+~4h3 4 4B4LKH+~H3 Ў`  +~H3 ` X4+~H4 4bH3 buH3 jv6s(h3 c?c?k?^q7?4K>K?!K?)@7?k?ok? k?k?7?!,0,C44G 0H DГt!4d "GZE(Ff +~^ Z0H +~H3 ` XГ+~H3 Ў` 8Гd 1HZ^4B^ 4Bf x+~N4+~H3 (j|+~4?h3 4H3 Js.` H3 je+~H4 4bH3 bdH3 6sh3 4K>K? K?K?7?!,0,@O?k?o+~S+~TJs J sp@#D7ZE4B8+~H3 ` `+~S+iTJs J 0 Sc4t+iSxJs 8+~H3 І`!+~S+iTJs JP Sc4t+~SJs ؊a24cN-#c\(+~+~4?h3 K>H3 ` X+iSjc 8+~U+iVJ J 0 tXj 0+~Sjc +~U+iVJ JP tjPS` z j K>@O?k?o_D_AZ˜ K>C` h4CBn Bn@l 84(4?z 4?4?4K>@O?k?o_D_iZS` 4B| \K>@O?k?o_C P4_U@<Z 44_Q44K>@O?k?ok? k?_D!+~H3 І`!b_Z+h H# +jH3` `E4dN}4P| +h #D7Z8E4Bh# +jEH Z z 7ZNYH s s +iTB xbtH s s 4btBH s jtH6h_ZK>K? K?@O?k?ok? C@sd4D P+~N 5@7? Bs d8b4c+~H3 ` (+~H3 Ў` Z^ A4BGZ+~H4 xj+~H3 Ў` 4+~H4 4`b+~H4 4bH3 6sh3 K>K? @O?k?ok? k?k?F+~TJ 4?j +~T"d(6s 4j +~T+~S+~Uj j` j +~SJs ` *C_ @Hs ` +~H3 І` +iCHsP` H+j_A4^YHzP +jN =HzP+jDH` (+h CNHz hh` +~h +~h% H3  +~+~S+r T6 PJs t H+~D+r S6c PBH@H c(+~V+~U+~T+h S6s j j 0j +~T+h S6s Pj +~h PK>K? K?K?@O?k?7k?!B44F B36s?`` k?#D7Z`E4BK?` K?7?_ 4BЌb K?_)4Bd `K?+~H3 Ў 4x4_4Bh#D7Z`E4B@6?k?B56? S s!6u?B3 u  S s!6u?CS u +t0H6p6? 0k?J?%K?6s??k? J +~H5 BBbH5 B@bH3 _jt4K>K?!@7?k?ok? k?k?+~H3 X`"8C@s`" Z+~@ 49  8+h 4$`4`3`4F`4`Z+~@ 849 h 8+h 4$`4`3`4F`P4b_ Z+h H< @4+jZYX_ H7#+h +t0H$p +iF@ x JsX PH s ZY _ H˜ C` X $H?u4_Z˜ C`"+h \H |k?' 4!,  9IW'HK?W+h T6`4b`4Fc4`c#'Y79k?' $4!,  9IW'K?U4 7 uҶ  S s! x7c k?' $4!,  9IW'K?U4 8 uҷ  S s! v6ck?' $4!,  9IW'K?U4 3 5Ҵ t S s! w6cXc 4$`4`3`4F`4d`4NY\K>K? K?K?@O?k?ok? k?k?D@У`%4_ }@+~H3 ` д4s 4Ds 4s Z_4+~+~C_4y `Hs `` F (+~0+~ +~+~4h3 +~h `д4 X+~+~h `4_40 0%д4#+~H3 `#Ҍ#+~+~UJ P` 8д4 Zxj P_-4Bh+~H3 Ў 4DZ_ )4B0 дZ_4B4t X+~H3 ` @+~H4 4(bH3 j`6sh3 д4R p4+~H3 Ўb P4+~H3 ` #D7Z +~4?h3 Њ (д_@+~h `4 H+~H3 ` 8д_@+~4ph3 `д4P д_)4B@4 +~4h3 P_Z +~_YZ +~д4r@04z_=Z +~д4z@(Z_Z X+~Z_4 0+~4h3 ZE@+~H3 ` (K>_%4+~h `K>K? K?K?@O?+~H< +r 43 P |@Ӝd+~H3 h` H44 h+i46 4Bs bu0`?Bs+~H3 ` H44 +i46 4Bs bu0`?Bs@k?ok? k?D@ 03+i44 Bs` C4xH|Hy ZҥC3s ZN!790 p0 ?C34K>K? K?@O?k?ok? k?k?k?!7?1,0,G+~TJ ` D4j T4+h 474? 6_jv+h h +i44 4 `3 4"b4$b N4Xȼ+t04hCHsph4NYhep4X444? 6_jvD C"fٙ6s k?' @s` ^4z`|Ӝ :k?'9 G'HK?3j4P?eCk?' $4!0,  9 W'HK?3h4K>K? K?K?K?!7?1,0,@O?A @K?@ @A,@K?@ @A@K?@ @@<@K?@ @A`@K?@ @A@K?@ @A@K?@ @+H54Zc>(7>4 4z4VS"4zS"+~H9 79?h9 9+i43 N! y +~H3 7>V BK>Y@7>k?7k?!C+iH7 +iH3 7>#$79HNJx0` +~H3 ` c>D7>K=K?!@7>k?ok>k>k>k>k>k>k>k>A 4+iH3 6s=b@T4 +~D4 !$+iE4D+iS6g +~FJ k!(4 H j@ 4ch 5:`_4H Bssh (H #D7Z4_4B07Sh Z NQH b 0H #D7ZVBH H VB@+~+iH4 #D7Z_4+~H3 ` K>Y@@+iTH3 6s=b5J @@` p+~H3 #D7ZVB4c? 0K>Y_44c?`'K>YK>K>K>K>K>K>K>K>@O>k?7k>k>k>k>k>k>k?k? k?@l4+iEH 4 s 4s!4s +i@ @+iH: @H H 4 #D7ZHY+i4Hh3 T+iSJ Jy @$@X4H4 4!(4 +iH3 Bss4Dt (7>+~4h3 4N IH9 @@+iH4 4?+iS+iCJz @Hy 7>@4Ht 4 %(4@ 4 +iH3 6s=bHT4 +~E4 !$+iH+iS6g +iFJ k 4 H j@ 4h 5:`_4I Bss4Dt #D7ZH 7Sh Z I N A4BH #Dt +~H 6h ֔"d 6sb6b5"b6"b5"b 47Z_4+~H3 `"4@H H 6s=bT+iH4 4 #DX7Z4 s +~H4 6h3 ֔+i45 "d 6sb6b5"b6"b5"b4@@+iH4 4 4!`#D @dH# @@+~H3 `!@44?!(!$+~E+iS6h +~G+iS6f H 95:N   Z_%4BHH 7Z?h ZH  VB4??eH 47Z0_44K>YK>K>K>K>K>K>K?K? K?@7>k?ok? TC+i @3؎` P4$ZY4 ^4"ZYN4>`>K>K? @O?k?7U4Dc;4 `7;4D4ғt 2 w( v8V"T"4?ғ4DS"4@S"+i N49@7;K:@7;k?7k>k>k>k>k>k>k>k>k>+i 4h3+iH3 6s=`@RH@@@ p@`@P@ @@ @@@ @@p@P@ @ @ @ @@ (@@@+i @Hh @@@+iH4 4 (4Z@|@+iH4 4Z +~_e4BH3 #D 7ZPVyBXK>Y@@+i h +iH4 4 @4B@(@+~H3 #D 7ZXVBK>Y@L@@@+~H3 #D 7ZhViBHK>Y@@@`@+iH4 4 (4\@@+iH4 4\ #D 7Zx4@L@+~CHs #D 7ZVqB@@Hs #D 7ZV1BHs #D 7ZVBK>Y@ |@+i Sj`+~CHs #D 7ZVB@@Hs #D 7ZVIB@`@Hs #D 7ZV BK>Y+i Sj`+~UJ 4Ɗ@"j #D7Z`_ 4+iH3 Bss4Dt (+~#D7Z4_ 4BPH: 7Sh3 Z+i43 +i z M H9 @ l@@@@@+~T+~SJz 7Z?jz Z+iS6s J +~UJ 4Ɗ@"j #D7Z`_ M4+iH3 Bss4Dt (+~#D7Z4_4BPH: 7Sh3 Z+i43 +i z MuH9 @ @+iH4 4,#D @ 44 k>k>4k>+~I7>+~G!d +iF4 I3 `,b D H 5zVQBH e @P@I3 ` PH +~Ch 2@@@@Hs `?H e+x#D H 7ZVB@4@@ @+~T+~SH: 7Z?jz Z+iS6s J +~UJ 4Ɗ@"j #D7Z`_4+iH3 Bss4Dt (+~#D7Z4_4BPH: 7Sh3 Z+i43 +i z M%H9 @@@ @+~T+~SJz 7Z?jz Z+iS6s J +~UJ 4Ɗ@"j #D7Z`_u4+iH3 Bss4Dt (+~#D7Z4_4BPH: 7Sh3 Z+i43 +i z MH9 +iH4 4d @@@ P4B@@+~H3 ` p+~+iE4+~CH d 0+~@ @Hs `?H +~T+~SJz 7Z?jz Z+iS6s J +i@H$ 4+~H3 `" +iI4 +~H+iS6j +iG4h+~EI3 k!I Z Z MH ` R 8#DH 7ZV B4_H H H V B@T@I4 4 4 I 6s 0i #DH 7ZV IB@4@H@_Q4I4 4 *@@+~H3 `>MI3 ` H4h @+i+~H3 #D7ZV yB+iH4 4 $8#D 7Z4@@+iH4 4 #D 7Z4+~UJ 4Ɗ@"j #D7Z`_4+iH3 Bss4Dt (+~#D7Z4_4BPH: 7Sh3 Z+i43 +i z MH9 @p@+~H3 #D 7Z0VB+iH4 4 (4_@+iH4 4 (4 (#D 7Z84@P@+~H3 `!K>Y+~CHs #D7ZVB+~SJz 7Z?jz Z+iS6s Ht z V9BK>Y+iCHz @p7Zh| +~SJs ` K>Yh` @P4B+iCHz _ U7Zh` +~SJs ` PK>Y@4B8@`4B(#D 7Z04_i@K>YK>K>K>K>K>K>K>K>K>@7>k?ok? k?k?k?!+iH4 4 @x4BH@@+~H3 ` +iH4 4 C44 +~E4Hs g h+i_u@Hs f @0@H ` +iH3 d?Hs +iH4 4 "#D7Z4_q4B@@K>K? K?K?K?!@O?k?7+~H3 #D 7ZVB+iH4 4 _4B@@+~H3 ` @K>+~H3 #D 7ZVBK>@7?k?ok>k>k>k>k>k>k>k>k>+iH4 4 X4 +~H3 #D 7ZXV)B@@+iH4 4V@(D_4B4xh3 H 4s X+i H3І` 04 _I@$(K>Yh +i 4h3@P@+~H3 `#K>Y4 +~C4 !$+iD4D +iS6e +~F+iH4 "H @`4 @(4.axHs BbB4"bHs 2@(4 b4"K>YJ4b84Bp4"hK>Y j@h` 5:`_4H Bssh Hz 44_4B07Shs Z M5H @@@4Bj@h` 5:`_4H Bssh Hz 44_4B07Shs Z MuH @@_M@Hz 7Z?hz ZH  VBh+~Bs4tt B`;+i` 8#D 7Z`4_4BH3 `<+iK>YK>K>K>K>K>K>K>K>K>@O>k?ok>k>k>k>k>k>k>k>@Xk>+~H3 `!K>Y+iL4 +~C4 !$+iE4D +iS6d +~FI faHK>Y`Pk!2Hs j@h` 5:`_4H Bssh Hz 44_4B07Shs Z MMH @@@@Hz 7Z?hz ZH  VB+~H3 `>I K>YK>K>K>K>K>K>K>K>K>@O>k?ok? k?k?k?!k?)+iH4 4!b@'#D :4((4)#D +~UJ 4Ɗ@"j #D7Z`_4+iH3 Bss4Dt (+~#D7Z4_94BPH: 7Sh3 Z+i43 +i z MH9 @ @_E4B+iH: CSs4Dt 8+~+~H3 VB@4BUJ 4Ɗ@"j #D7Z`_ 4+iH3 Bss4Dt (+~#D7Z4_ 4BPH: 7Sh3 Z+i43 +i z M9H9 @ @+iH3 6s=`@R@@(@@@@@@@@@ @@+~+i@ pH# _@Z_ 4BH@ 8@4@`4B+iSJg 4+iC4 4@ @Hs h$46s=bHs e 4 `2 @ P@+iFH4 4!(+i@ @_@+iEH H @ h @4+~G+~SJz 7Z?jz Z+iS6s H z VBH #D 7ZV}Bh h S@ jg @4+~C+~SJz 7Z?jz Z+iS6s Ht z VBHs #D 7ZVBK>+~T+~SJz 7Z?jz Z+iS6s J z VBK>@p@_@+~H3 #D 7ZVB K>+~H3 ` +iC4+~DHs 6s=bP+~@@Hs e _@H `?Hs +~H3 `8+iH4 48#D 7ZD4B8i7Z0_4K>K? K?K?K?!K?)@O?k?ok? k?k?k?!k?)D+~H3 ` K>+iC4 4 +~EHs d @4Bh Hs @4BHg 46s=b4_i4B_ -@H `?mHs K>K? K?K?K?!K?)@O?k?ok? k?EH#4c?`@D4Cs4Dt ZYx F4B(YMqXd b`4sH h4K>K? K?@O?k?7k?k?k?!k?)k?1k?9k<+~H4 "d(6s 4 (4CSs4t ("d8"d86cT7Sk<6cD+~D4J+~GK<7<7=XV eB bH ` PC=sh 8H 7=V BH `?gK<\KK? K?@O?k?ok? +i CHy 79?hy+iS 9 +i T6(Jz M +iTHs s  H@j 44K>K? @O?k?ok>k>k>k>k>k>k>k>k>+~H3 "(6 4 t(4 +~H3 ` +i4h< _5@ +iH< +iH5 P4 J+~H3 06s +iH4 J uj8+iC+iG+iJ+i I+~H+iF4Hs ` H4z H E X H Bssl!@+i+i DIZ KS06skS0I<VB h| I ` Hz h \E H ?mIZ Hs Bss4\t4Hs Bss4t>Hs +i @3؆`>Hs 4~h H4 B`&Bs6s?`U@`@p@`@P@`@0@ @@@@@@@@@@@p@`@@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@@@@(+i+i40h< +i4h< +i4 h< +i4 h< +i4 h< +i4 h< +i4 ph< +i4 Ph< +i4 0h< +iH3 Bss4Dt,+iH: +~^ 49 h˜ (+i˜43  j|"d 6z(+iH9 Bt(ҔC3s @"d M)@ "d +i4l h< 6zP+iH9 BtPҔC3s @"d M@ "d +i4X h< 6zh+iH9 BthҔC3s @"d M@ "d +i4Z h< 6z0+iH9 Bt0ҔC3s @"d M@ "d +i4^ xh< 6z+iH9 BtҔC3s @"d M @ "d +i4\ h< 6z@+iH9 Bt@ҔC3s @"d M@ "d +i4h hh< 6zX+iH9 BtXҔC3s @"d M@ "d +i4fh< 6zh+iH9 BthҔC3s @"d Mq@ "d +i4pXh< 6zp+iH9 BtpҔC3s @"d M@ "d +i4bh< 6z+iH9 BtҔC3s @"d Ma@ "d +i4dHh< 6z+iH9 BtҔC3s @"d L@ "d +i4zh< 6z+iH9 BtҔC3s @"d LU@ "d +i4|8h< 6zX+iH9 BtXҔC3s @"d L@ "d +i4th< 6z+iH9 BtҔC3s @"d LE@ "d +i4(h< 6z+iH9 BtҔC3s @"d L@ "d +i4h< 6z+iH9 BtҔC3s @"d L5@ "d +i4`h< 6z+iH9 BtҔC3s @"d L@ "d +i4rh< 6z+iH9 BtҔC3s @"d L%@ "d +i4nh< 6z+iH9 BtҔC3s HCL@ +i+i4vh< CHz CSs4t "d #$ 79L4 `"d Ht B6s?h2B` ("d +i4xh< "d 6z +iH9 Bt ҔC3s @"d LM@ "d +i40h< 6z0+iH9 Bt0ҔC3s HH3 L@ +i+i4h< H3 Bss4t @#D +i4Xh< +i4j8h< 7ZP^m4+iH< 24K>YK>K>K>K>K>K>K>K>K>@O>k?7k>k>k>k>k>k>k>k>k>k>k?k? C+i FH+iGH +iHI +iEH +iSJi +i DH E (7>!7>h h`0h`8Hs(h4s8h h i 4_hs@+~H3 ` +i +iD4+iH4 4+~EH `I Ȋ j`@jf@_4B H c ^@H `?H +i h*+ih+ +ih) +ih- +ih. +i h, K>YK>K>K>K>K>K>K>K>K>K>K?K? @7>k?ok? DH+{43 s 0+rH:x@ X4y Z%4z H 4PHK>K? @O?KS 4` 4?kS+~@H< K\T3` t 3` KS6s?kS@kT@k?o+rH3P` (CV B K>Ht4 J@4 04r4 `4P4Hz+{43 S OU@LHz h`4K>@O?k?o+rH3` 0CV yB˜"8K>ه"*Ht4 R@ 4 @"d844!P"d84"d86sdhs(Hs` +{Bs` 0#$ "d 6sphs43 8hsHz^)79 h|4L4 Ph| +~4?h3 Hz+{43 S 4O-4B?Hs hsx46sths(Htht ht3` (4`03` hu4K>@O?k?o_EC˜pK>_MZ_Z+~H3 ` +~h +i h +~H< K>@O?k?7: k>7@78k?7k<4k<_7<+~H3 ` K KK? K?@O?k?7k>k>k>k>C+~K3h3 X78#$ 79L X78#$ ^79+i (h<C078#D 7Zk:4k:)+i T4j+i E#D 7Z`XH+~D"d86sh _7:F"d(6s 4h HK36s?``k34^4B8+i H4J6j4b+i O H: 8+~7K>K>K>@78@ @'$0K?@ @@`@'$0K?@ @@@'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@ @'$0K?@ @@@K?@ @k?@@'$0K?@k?@@'$0K?@k?@z@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?@@'$0K?@k?7+~4h3 4#$8P79K>@7?k?7k?1C7?7?![E7?) @0H7?JyJzVBK>K>K?1@7?k?7k>k>k>E7>7>7>Y[uX x0H7>Y[EX H0H7>Jy?Jz?7>JJVBK>YK>K>K>@7>k?7#D_7ZK>@7?k?7#D_7ZK>@7?k?7#D_7ZK>@7?k?7#D_U7ZdK>@7?k?7#D_7ZK>@7?k?7#D_7ZK>@7?k?7#D_7ZK>@7?k?7#D_U7ZK>@7?k?7#D_7ZtK>@7?k?7#D_7ZK>@7?k?7#D_E7ZTK>@7?k?7k>7>,0-,0,"d 6s.` 0H 7>7>[7> 0H[}7> 0HK>6?@k>7>7>7>[7> J,q1N1 7>.1N K>6?_k>1HK>YK>7>,0-,0,@7>k?77?1,0,0H [U7? 0HC?d K?!k?'1 f 7?!h.` t H+~[K?!C?4` (0H K?!L94B4 h3 1HK>7?1,0,@7?k?74#$8O79#D D 7ZЇ (+~4: #$ 79^4B4K>@7?@P@K?@ @@D@K?@ @@ @K?@ @@@K?@ @@@K?@ @@@K?@ @@ @K?@ @@ $@K?@ @@l@K?@ @@X@K?@ @@@@K?@ @@@K?@ @@@K?@ @@p@K?@ @Ah@K?@ @Ax@K?@ @@@K?@ @A@K?@ @A@K?@ @A@K?@ @@ @K?@ @@X@K?@ @@0@K?@ @@@K?@ @@@K?@ @@ h@K?@ @@ @K?@ @@4@K?@ @@ t@K?@ @@D@K?@ @@@K?@ @@@K?@ @@P@K?@ @@<@K?@ @A@K?@ @A 8@K?@ @A@K?@ @+H5?!H3?) k?+H5C?4` XC?t C?LK?!C?4&K>DK?!K>@7?k?7[}7? 4[u7?C?t C?K?![}4B@4&K?!J6sj[7?4K>@7?k?7k>4[7>[7>C>C>!z@BX@(@@@@@@@@@`@K>7>7>.` .1( 0$ h4X4K>L)K>04(K>K>K> 84K>`"t K>L aK>K>`"t \L )K>\K>YK>@7>k?ok? k?k?EFDCZ[ Y ZP4[ Y *Hs` 4HL 94B?4K>K? K?K?@O?k?7k?1k?97?7?7?!_7?)!`K>L K?DL K? K?!b @79L K?| : L K?pk?!L Z|"+~4?h3 K>ZL QK? L 9K?[ ZK?!b K?)L yK?K?)b K>L QK?K>K?1K?9@7?+i 44 6""+i B3` 844 4s t buB3`?s@k?ok? k?DE_-ZHL QZ7?@s+i 44 Bs` 0 44 b03 Bs`? b03@+i 44 C Bs` 7?C7hh|K>K? K?@O?k?77?[E7?! K>K?k?!7?!7?)# _57Ly7˜ ZK?!K?)HUT6k?!B"K?!K?)Tc[=4B+~4?h3 K?b K>LK?K>@7?k?77?7?7?!_7?)"K>K?k?17?17?9_K?K?)` 4L)K?4K?1K?9T+i 46 3 Bs` H7ZSJB Bs` 6BK?93L!7Z\!UK?1K?9V+i 47 B"K?16tk?1Bs Bs` PK?9`VK?1B Bs` 6vk?1K?1K?9ӿOBb[]4B+~4?h3 K?!b K>LK?K>@7?k?7k>k>k>k>k>7>[7> 7>@47>7>_]7> K>`?K>L)4B?L1K>DK>E @Yȼ!(K>_uK>!4LK>FLK>Cf@@ d ZL4ȼ+~4?h3 +~H3 ` XK> d L ZK>NQX[Z44K>` K>LK>K>` K>LiK>K>` \LAK>\K>YK>K>K>K>K>@7>k?ok? k?k?k?!ECFLZDLZ (#D 7ZB \4BhH`_ZE(Zȼ!(Y"5!+i 4' Ҷ Bs` 7$?@sv Tҵ03u?03t f "5 0Bstҳt "5?ҳ0LZY"5?Ҷ[ZK>K? K?K?K?!@O?k?7k>[7>"8K>YK>4 +~4?h3 K>Y7>7>7>_%7>!K>Y_K>+i 4# K>s 4btK>5 @4ҳ c Bs` 5?ҳK> VK T \ K>5 PTҳ c Bs` C>""5?ҳb[4B+~4?h3 K>b K>KK>K>b K>YK]K>K>YK>@7>k?7k?17?7?7?!_7?) K>K?_ mK?˜K?4 |4cK?!b K?)K}K?K?)b K]K?[ZK>K?1@7?k?7[a7?!K>[A7?!`K>7?![7?)!8K>KK?!K?|@7k?K?`@(6s?+~4?h3 K?)k?K?``K? k? t |@ k?K?!K? S EK?\ K?)[Q@K?)b K>KK?!K>@7?k?7[7?!K>[7? K>7?![97?) K>KK?!YK?3`+~`@4?h3 HK?)DK?!\ K? S C?[qbt?K?)` K>K5K?!K>@7?k?77?[)7? K>[yK?K?` +~KK?+~H3 Js?k?Bs` `+r45 K?s BsbK?6k?B`?K?K>@7?k?77?[ 7? K>[YK?K?` +~KK?+~H3 Js?k?Bs` `+r 45 K?s BsbK?6k?B`?K?K>@7?k?77?7?7?!_7?) K>K?KK?[ZK?!` K?)KEK?K?)` K>KK?K>@7?k?7[97? K>7?7?!7?)_7?1 K>K?``(K?+~4?h3 0K?)K?!KuK?[yZK?)` K?1K K?K?1` K>KK?!K>@7?k?77?[7? PK>KK?[ZK?` K>KMK?K>@7?C\7?4@k?7k?1[ Q7? K>C?d 7?[ 4Bt 0K?!C?4` hCCKm4BXf +~4 h3 @K>7?!.`1'K?[IZK>K?1@7?k?oY+~C4zK44sb`K>@O?k?7k?!+~CHs ` K>7?[Y7? K>D K?ZHs ` (4hs #D 7Z@B4B[@K?` K>KK?K>K?!@7?k?7[ 7?! 0K>C?'c?c?[7?K>@7?k?7k?T4~c=c=7=B`!Bҳf p+~f@d 07=p+t0t `+t0J#$ 79JKM4B7=49.KU4BX43u ` :Js` *JV B|\D|ZK_57?[ )ZC?4` `K>C?t C?K?!K 4B(4&K>DK?!K>@7?k?ok? k?k?FCD4+~H3 ` 4\@ 4` [ Z +~[ iZ+~H3 ` \ZE 4+~H3 |04K>K? K?K?@O?k?N 7\"d 6z[ @K>@7?k?77?[7? `K>_aK? 8+~4h3 K?b K>K MK?K>@7?k?7k>k>k>k>k>k>k>k>k>GC@h04ȸ 44 4 +~I@s` @sb p4d Z_Y B4c>c>k>[q7>I3 ` 4?]4cP\K>YK>K>K>K>K>K>K>K>K>@7>k?ok? k?E+j049_4 +t0H#p` 8DZHy_HxHc`? [ ZK>K? K?@O?k?7k>qk>yk>k>k>k>k>k>k>k>k>+~H# 4c?+r 43 PsxS6h P! ! !d +~J!$ 7>!+~G7= ed@s6s?`@H@h@@@h@@@@@`@P@@@0@ @@@@@@"d Hd57=5K-Hx5w7=5YK-,p`57Hs6d"d 86wc="d 6w"d 6wc=#$ Z79KeXH ZVeBH ZV=B4c=c=H 7=VB4c?h7=KqK>yK>K>K>K>K>K>K>K>K>@7=k?7k>k>k>k>k>k>k>k>k>k>k>k>FD444 4 4J+~M@` 0sn  0#`?s l`Z L5K4BZKe5G 4?i  x\H H ZYK=X H `+`4c= #t4Z 07=4V 4@ 4F " #k>1t4T 84Z7>1+h\4 #4` 4s?4` " #4s?rZ4K>1 s s!6s?t k>1 #4s?rK>1 PZ#$ 79KK>1@` t 03`? 03t4\!Pk>9 " #t4T 84Z]7>9)\ #p44s?rZ4K>9 s s!6s?t k>9 #4s?rK>9 `Z#$ 79KqK>9@` 8t 03`? 03tk>9t4؂ 4 8 #k>Qk>A4@4 4 k>Is6s?`Y@@x@h@X@H@8@(@@@@@@@@@@@x@h@X@H@8@(@@@@@@@@@@@x@@X@H@8@(@@@@@@@@@@@x@h@@H@8@(@@@@@@@@@@@@@X@@8@(@@@@0@@@@`@@@x@h@@P#D 7>AZ=7>I"\KK>AE4 4k>II"d 6s0k>A4Z7>Q \J7>a7>qZ7>y" \4 h44@7>7>Z]7>I!k>A 4 #D 7Z8B4B "`K>1K>9 t @k>1E ,@0ZK794 H H  @Z7=K9K>AK>Ib hK>AK4BX` (7>QZ7=.pK 4B Z7=KK>QKZ H F * ZK79 H\K=YK>K>K>K>K>K>K>K>K>K>K>K>@7=k?7k>k>k>k>k>4k>Z]7>ȼ!7>Z]7>!KK4K>b KK>c>7CH ` C> " b4?ғ`_7<+~H3 e0CD_@H e+~H3 ` ` 8KK>K>K>K>@7' K?ZT"B5 p44D ҳ4 " v(w 4""B5 4D"bZZK>7?,0,@7?KK9+i 45 S`@x79?CS` XTғv B04?ғCS` 7ZS`_79?4CS` PTғx 2"79?? 7ZCT?ғb+i @4< k?ok? k?k?k?!k?)EHKCKZG4Є@s` (Tғd  b04?ғ c (ZYKAX 8\@s` 4cEU44K>K? K?K?K?!K?)@O?k?7k?k?k?!DK+i 4: 4kS7;kSh9 4AkS #D 7ZXA4B4c?KZ``+~|` d 4?h3 h4Z|+i EA4 ˜ 4 jc74K:K?K?K?!@7;k?ok? KCr@+i H3 ` (44 4` c Js "+~4?h3 @44$ HZ } S 4 c  J|K>K? @O?k?W)7K>@7?k?79& K>. &1 f .7S?&17S?`@@@@@@@@@@@X4 1%1%.1%N0 0$  +~4h3 41%n4p1% 4X1% 4@1% 4(1% 41% 41% 0$ 4 Z4BZm@4K>@7?k?7K>JJy7Z?@@@@@@@ @(@0@8@@@p4H 7 8 7k?' k?'I9)W'HK?Z +~4h3 4qZZ 84 (4j X4R x4: h4" H4 4Z@4K>@7?k?79&!@S/6s?`@*@@@@@@@40.0Nx0h0h0 0$  4j0 0$ H484?Z4B8K6s?`@@@@@x@@4 @k?' k?'I9)W'HK?HZ8Z!@`S @Z4Z-@4K>@7?k?ok? 4(#$879C4! 44C4 44C4 44#8C7 4 8C4ć x44 d8C4xԇ H44Ch4xԇ 4C4ď 44K>K? @O?k?7k?!"d _=6c +~4:#$ \ U79 P#D \I7ZCZ #D C7Z 4H4c?c?44s`c?\7?4cr_4s`\@C@+~H< 04K>K?!@7?@@K?@ @@@K?@ @@ @K?@ @@@K?@ @@@K?@ @@@K?@ @@8@K?@ @@ @K?@ @k?ok? k?k?FEH(`!@@d`4 hA$ $I9)W& 9 G'HK?4( T4ƊZH(t dHz@ 4cCH@dHz`H( JH(t d:Hz@ 4cJ@dHzH(` @0` JmZJ]ZK>K? K?K?@O?k?ok>k>k>k>k>k>k>k>k>k>HMLIK>C>C>ҳ6s?;`@j0@P@@@@ @@@@@@@@@@@p@ @XҴ`4P44@44(4Ҵ4ƊG4 @4 @@4 k?' k?'I9)Wk?' 9 G'HK?DJ48| 4C p4(ܠJZ4 Ps ZJ4BJYH 4R`04 hh(hmhlhihj `g`k0h\K>YK>K>K>K>K>K>K>K>K>K>@O>k?7Z7?!K>K?6s?d0+~4?h3 #D 7ZA\4B4k?k?)k?!K?d :d@b 8K?)Bf 8K?)ZI7?Z97?!Z)7?)K?)`@ +~K?!`@K?`@4?h3 K>Z7?1 K>K?k?C?7k?k?4K?K?)_K?!\#D 7ZA4BZy@K>@7?k?7k?1CZ 7? 4C?ҕ4( Hs` Ҕ P4`4&+~C @K?!+~4 h3 @4C? 4?4hsh`K?!K>K?1@7?k?7k>k>k>+~H3 ` 4KTKSk>KSk>KS k>k>k>6? k>7>+~EZ7>я?] K>Js `H@` AT4B?K>4c??j7>$  7>$ I9)WK>'HK? k?' 7>$ I9)W / K?K?K> K>YK>K>K>@7>k?7k?!k?)CDZ 7? rJ5ZK?`+~``0 c 4?h3 +~H:@A4BZBz K>JZK>K?!K?)@7?k?7k>k>k>k>k>_m7>#H@s0~ +~4h3 _UZE+~H3 `"@s6s?`@@@8@@@@@x@P@`@zZ 17>!Hs( e K>jt7>Z 7>!zCtK>K>b DJUK>Hs( e Hz@ J%4BZ i7> Hs( C>bt7>7>Z 7>ɏ Ht(7>.a."@z4&SRZ@Ȝ RHs( e Hz@ Ch@hd#D A7ZC0ZK>YK>K>K>K>@7>k?7"d 6uCS6s?`@:@@@@@@@@X@CTKZ(Y Z 4BKS( 3 BzZ 4BKS(y @ ZZ 4BKS(.y Z 4BxCT4&:KS( y K3` (ZK:Z 4B #D 7ZA@K>@7?k?7k?!k?)4k?_7?| xK? Z_4BXHd_ZY+~H3 ` _5ZCZK>K?!K?)@7?k?7k?!k?)k?k?_7?|#K>_7?Ȝ`"K>HB0~ Hv+~4h3 jJJ x+~JJ `4 JJ @4 J J 4 BB 4 h3 B6s?`@@@@@@p@`@P@@@8#D @404 4#D 7Z0A(4Bk?' &I9)W& 9 G6 & 9 GJ(J('HK?@h_ Ju 3BZBZK>K?!K?)@7?k?7k?!k?)k?1k?_M7?ȼ zHZ)@zHdZHz@ ZHz@ ZHz ZZBZK>K?!K?)K?1@7?k?ok? DK>C>C>k?Ҕk?ҵk?ZYX_ K>| @4`s4(`sZY4[A4(\K>K? @O?k?7k>k>k>k>k>k>k>k>k>k>[k>| #D As` 7ZA4BAsBn #D 7ZAh4Bk>_7>ɼ#I@0~ +~4h3 ZHb H#D 7ZA4B(4k?4k?k?4Y_u Xɜ84#D 7Z A`4B ZB4BIJe(@(4? jd4_ S j h5 F@5?  H4?@`j4@0h 6s?4_j ZZ4BxDd!fAH f` Z_-79? JyZ_79?Z  ZY7>>-K>` cZ_59? Z_79?Z ZY7>=K>` ( jDd!4f^ jiB ZK>YK>K>K>K>K>K>K>K>K>K>K>@7>k?7k?1k?97?Y=7?!@K>k?!_ %7?!Ȝ H@sh #D 7Z XA 4BJK?$p $xI9)W4t & 9 G'HK?X#D 7Z A 4BHz(JK? K?BZK?b K>JK?K>K?1K?9@7?k?ok? C+i H3 0s@D+i T+i SJs 8 c J @Jt`Jc`  P\s@0ZJX 4d 4K>K? @O?k?ok? k?k?k?!k?)k?1k?9CFD %3 H+i J+rS6i г6s?`@ p@ @(@p@@ @P@@@@@@@@@@ P@@@p@`@P@@@0@ @@@@@@@@@ @X@p@`@ @@@0@(@@@@@@@@@@@p@`@P@@@0@ @@@@@@@@P@ @ @p@`@H@@@0@ `@@@ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @@x@ @`@`@x@ @@ 0@@ X4 4 4+i H4 8IS 0 +i H3 @ cj`4? (jh+i H5 8IV 0 +i H3 @ cJ` j6iV 0fh4 @@s@s 3 Bs) 44cP4f G @@s *4@s 3 Bs"4cf4 @t@s 3 Bt @ 3 Bs((44cGf0@ @st "4 3 Bst!4cf4 6 7ʗ P 8f2@s  4cf@s'(4 &ZfP@s&:&04cf"@s@Y_X|&44G :Y_X˜&"C@Y_]X|& 4G@Y_%X˜ C@4f4 @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ`$4@84cfXG @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ c f4 @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ`#4cfG @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ` 4cf74@f"@s6s?rP44cfpG@s6s?``Bf@s6s?r44cGf@s6s?r4cπfJ@st!44cfG@s` czf@st 4cGfJ@st :4c׀f\@st K>و p %gPIE 0ZYX_ W˜hK>4c?giE 084-гг` \` 4K>K? K?K?K?!K?)K?1K?9@O?k?ok? k?k?k?!k?)k?1k?9CH4 # I4 IXyBI+i T4j 0+i Sjh 8+i Fh @@h H4 ZY4_ W04xH @@ 444@ 44@b JI`@H3 @ ci`|i8\n @b I@eҦ+r4* x+i e4 @s : 4c S Bs 4cee`+i 4h3 0ZYX_ W˜+i 4ce4K>K? K?K?K?!K?)K?1K?9@O?4CT6?r84 S6u?B046?r6 4k5@\@k?7k>qk>yk>k>k>k>k>k>k>k>k>k>k>k>k>k>F44k>)4 4 4 k>Ik>Y4k>i4hh`HH c 5k?HBPH44? jt6_jt`@4 *44 s"4h(h(``k>9 7.04 44+r40 5s?s56s?`@ @ @ @ @ @ x@ @ @ H@ 8@ `@ @ @ @ @ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @ @ @ @ x@ h@@8@ @4@`) 4 s" 744Ƃ!Xk>Y@4r@X4baH4P"ʂ@*44R"4j4 4 H4 r@(4Ȃ!4ʂ :44肝 84 446444h s"44H s"6?S j sI`E4 s" w"E@4&@`Z_7>˜(DC> s"@q r@4X( 03q Z40k>_7>˜(ZD@q(BC> s" 044(44K>)74rGk>)'4 5J4` s"'4 5J40 s"4`sE4c4s@kH44> 6_b` 74 (44@s_`s 7} (T03b 7`#+r 48 4}"q j 7o :o@`&*@:4} @44@4Z}!8 03"   Btҕ Ҕ>Bt@b  Bҕ Ҕ>Bt@@bu ss>Bs@֟b6@ ׍   Btҕ Ҕ>Bt@b  Bҕ Ҕ>Bt@@bu ss>Bs@֟b 7= 4}#Z@ 844> B ` 6_b44c@4E4 s"4 @`4?H4 Z@`4 *@`44?4K>97l @5)" K>I0N`"k>ik>IN4 k>9E4 s"T 4cS  Bsb 715s?``KK>Y H@4k04@s` 4ck@shP`NHS (hX40H4I]4Bh K>i `4004 @k>i4#D @ 7Z H K>i4k> b3b * b3 "K>6s??k>40 `4h 4K=K>qK>yK>K>K>K>K>K>K>K>K>K>K>K>K>K>@7>@ @K?@ @@ @K?@ @@P@K?@ @@@K?@ @@P@K?@ @@h@K?@ @@p@K?@ @@x@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@@K?@ @@p@K?@ @+jH3Pd 4?z 4?@4?@k?ok? DCZ#$ 79 I404c"d 6z (Bt (Ҕ@ss 8"d 7ZI4y "d H6z 0Bt 0Ҕ@ss 8"d 7ZI4y "d H6z 8Bt 8Ҕ@ss 8"d 7ZI4y "d D6z HBt HҔ@ss @"d 7ZI=4y "d D(Ӝ6z XBt XҔ@ss 8"d 7ZI4y "d H6z `Bt `Ҕ@ss 8"d 7ZIU4y "d HH6z hBt hҔ@ss 8"d 7ZI4y "d H 6z xBt xҔ@ss 8"d 7ZIu4y "d hH(6z Bt Ҕ@ss 8"d 7ZI4y "d H06z Bt Ҕ@ss 8"d 7ZI 4y "d H@6z Bt Ҕ@ss 27ZI -4y #D HP#D @7Z 4K>K? @O?k?7+i M49 P 4_4BK>@7?k?7+i L 49 P 4_4BK>@7?k?7Y+i _4: PK>@7?+i D< `׀"e 84@+i D< `׀"d 84@+i D< `׀"b 84@+i D< `׀"a 84@+i D< `׀"c 84@+i D< `׀4 84@+i D< `׀"f 84@k?7MG9 4_u4BK>@7?k?7K9MK 4_4BK>@7?k?7Yi7? 84?YI7? 4?K?MqK?K>@7?k?M7c0K>@7?k?7#D A7Z (+~4:P#$ 79 [4B4K>@7?k?ok? DI48| (ZYL@ \+~4?h3 4K>K? @O?k?oU4+r474: Hs` @6hyZYI4``0\_ +~4?h3 4K>@O?k?ok? K# ` xDHz@ bCTҔ@s *IEY H| K>٬p?Hz4K>K? @O?4CS` T424+i 47 4~B03` (6??s|U6?Tғx JB4 ғ bx@6y 6?4 btCT?=6+i `6 @4< k?ok? k?k?k?!k?)k?1HC_uIF@"`4@֓c tHs t Hs0`!+~+rH3Ў` @s(b ImHz hh `i(TSb6b5"b4GH0` Y4?"$X xX4B7? 2 +~@ H: 4? " xZYBtX P+rH3Ў` @s(b I Hz hh `i(`4~G_Z˜ *k0h0k c(44?K>K? K?K?K?!K?)K?1@O?k?ok? k?k?FDEZ_Y|4IZI7|@Z+~4?h3 #D @ p7Z @@4?IY4ZY_WK>K? K?K?@O?k?ok? k?k?k?!k?)k?1DEVB+rӜh<pCccsֳBH H0` h4H ` (+~4t??4269 h `\Ph H0+~h3 VB+r43ph<p4Bw6??s42tX6?V6?s42 t6@"p+~I+~G+rH42I3 0`"(d BuҴt t!@4s u rH0 `4u| Bst "Cu *h K>K0?| h P\ p bH0 P4t| Bsu Ct=+~K0?| VBWip4c7??sfX7?V6?sf6@ uH0 +~h 4K>K? K?K?K?!K?)K?1@O?k?ok? k?k?k?!k?)k?1_MK#D (!@tc s H0` G+r4)He04zYBX JI3@` @s(b I!Hz IZh0GewHe0 K>`h `(K>K? K?K?K?!K?)K?1@O?+i B56? h44 \4>4CSw"CS6sCS"6??7Zb+i @4< \k?ok? k?k?k?!k?)C4I148ܠ +~4?h3 H4`!2Hg44ecsB g  f Hs h @s(`(@uTS@h_ Jv 3Hc0` R_mZh0DHs h @s(`(Hc0` 4^h0\K>K? K?K?K?!K?)@O?k?ok? DC_Z< H4_Z˜4 K>ل` Hs k K>K? @O?k?ok? k?k?k?!E4+r4'4:c  ZYI4 4c\f_c 4K>K? K?K?K?!@O?k?7k?k?k?!D+~TJ ` +r4?j c=H80"hC+~H3 6s `@@@@@@@@h@@@X@`@@@@@"d (6c "d 6c "d 6c "d 6c "d 6c "d 6c 0"d 6c P"d 6c "d h6c "d P6c "d 86c "d 6c C"d 6c +rh 07=#$ 79 @IX+rH3` @Z+{EU4`#D 7Z hU4`d 7=+{CUa4y`#D 7Z h4y`U94Bp (+rH3ZV MBd (+rH37=V BKst 7\>7Z@UCS`S7>` x  09CSsy;7??7Z@4@k?o+~H3 ` 8+t A@Cs PK>49 @# +~H8 7?h8 ZK790t4>6@Z46\K>@O?+~3H4 @+t 45 6?  4 3? 5 (+~B3"B3+~H3 y h3 @k?ok? C+~DH 4@HV+t 4: U YK=XH c h K>K? @O?k?7c?7?_M4K>@7?k?7k?!+~H< `K>A @| 8\_@c?7?_4\K>K?!@7?k?o+~SJc 0+~Tj j` 0A 44@+~A4B?h# 0K>@O?k?ok? k?k?k?!4+H4+i 43 t+t0H3 d @h3+{G+i S6f +jEL 4@Z KEXC (HPv 4h +dPw+T+i S6s j\K>K? K?K?K?!@O?k?ok? k?k?k?!k?)Ⱥ!DA+i TJ d j +F+i S6h 4 H  gd`HYKXH c _Mhde KXH d h+rH5 6>"a6s ҂+i TJ s s!u@jj L}4C+i H3 cb"_]@L]4+i h# K>K? K?K?K?!K?)@O?k?oz 0K>IZZ_mYK>@O?k?7@c?+i H3 b!C?s4>t@ +i H3 6shh3 C?p H3 6s?0h3 z +i +i h h +i H3 6s+t H4Xt 0++i H3 Ȇ` +i h +UJ+jS6s 6jC?b7?_4K>@7?k?7k?ak?ik?qk?yk?k?E44k?k?49$\"5$4`7?4"|<6g >"sL6f Ҵ4J$R @"56?f(ҳc C57979Ҵ4 `4N"44b 4_ jx7_ jw7 0Ҵ_ "3j7P794Ȃ 6?sbҴ7? _ ] @k?' ! 5 - 9IW'K?U4Ӷ uҳE 6t`" s s sB0 }ҳf "4d@ҳk?' ! 5 - 9IW'K?U4Ӷ uҳ 6t`" s s! }`0"7`P"4Ҋ Ҵ(44V 07? _ _ J? } j?"5!T_ Bs t Uҳt 6x"Ҵ4䊓 4\k?@k? ( "7?_ Bu06""5;}ҴcK>K?aK?iK?qK?yK?K?@7?k?7S: 0W7=_X7=_}YK<@7=k?7SX+h3h+h8p+i H: _5Y+i h K>@7?k?7+jH9X4_E79?K>@7?k?ه@ (7+i H3 `` (H: `*+i H3 h` H: h4?_]@4K>@7?k?7k?!k?)Dy4` +i h +H3h d +i H3 `@`b+i H3 Ȏ`"r+i H3 d P+i H3 `@8+i H3 c +i H3 P` Z x+i H3 b bb@+i H3 s B+i H4 "4s!4c?hc?` +~+i H3 b 7?+i H3 ` 4S"6? 46??S"c@H3 P` +i H3 b +i H5 `4su@6? (7?46??S"+i H3 s 46??S"c@7?@ +i _4B H: Y_X+i h# +i h$ +i 4h3 K>K?!K?)@7?k?7+i _]H: K>@7?k?7+i _H: K>@7?k?@7+i _H: 0K>@7?k?7+4?h3x#D _}7Z +i 4h3 +i h +t H3` "d 6z +i H: _@@@K>@7?k?7k>k>k>k>k>z!8K=Y@@+i H: 8@ Y4_-4B+GHh+i SJd +FZ_EHpHpHh S_47=4HX7=_ EYZ_HpZ_-4K=YK>K>K>K>K>@7=k?@7_@+i _H: K>@7?k?ok? z K>@ @+i H: @@ Y4_=4BH4c? 0+i D_-H H4c?`'K>K? @O?k?+H3 7_4+H3+jH: @ `+i H3 ؆` X#D _ ]7Z _ E@#FL97Z#D 7Z _ @_@K>@7?k?+H3x 7@ @+i _ H: (K>@7?4S0+~43 ` Z T t " jt@k?ok? k?D4E S+~44 ` Hz@ x H @Hss+j44 Bt6bth`+~44 ` S jK>K? K?@O?4S@+~45 ` Z S "` yJ Sj@k?ok>k>k>k>k>k>k>k>k>k>MHL4?E4h44+4)4 4  # ZH H *H F` * f 4c~_ # 4+4(4    ZH }H H %ԥ 4c~_  Ą HK>Y :  Z (K>Y_}YK>YK>K>K>K>K>K>K>K>K>K>@O>k?ok? k?k?k?!k?)k?1k?9GD484 S+~44 ` He JH ZHss+j44 Bt6btH MZH7ȼ ZH Y+~44 ` S j4f4+j4* +~4) `4 C Bs`0F 8c S 3 H@ H }Y?_H4ch_ C +j44 B6sb+~43 ` T t ֆ  T֔ jtK>K? K?K?K?!K?)K?1K?9@O?k?o+~H3 X` pC+i H3 s XK>ل` +i H: p+i H: x_@+i h# K>@O?k?ok? +i H3 Ў`!C+DHxu!x"` c u! ` 0+i _H: cHx`hx" +H3x S _U@ģ+i _}H: @ D@ă+i _EH: (+~H3 @` +i _ H: +t H3` +H:`y_ x+h#xK>K? @O?k?+i H3 Ў`!`74SH+jH3` Z@ +i +i H: H: _ @+4?h3x+t H3` h Z T+~43 ` t Jt XJz+H3xS jh:xZ_e4BP+~43 ` t Jz+H3xS K>_@K>@7?k?7_E4K>@7?k?7#D _7Z(K>@7?k?7#D _]7Z8K>@7?k?7k>k>k>k>k>k>k>k>k>k>k>k>F4? t"`7<+t N+~S6j `+I!7<+i L!`҅耶!HI` г s S S s S S JcH+~H3 H` (+~H3 @` ?I5xI5xu!4@      :`_1ZI i DI` pг s S S Jz@ J_@ cI3x sS _M@i#x_ZV " t> ҅7< `_!@+i 7< dH4 h3 KK>K>K>K>K>K>K>K>K>K>K>@7Ch@hZ+i H3 c _-h3 7>4@HX7>Y_4B+i H9 X X+i H3 c h3 7>X_47>Y_4BH9 _ # K>YK>@7>k?7k>k>k>k>k>k>k>k>k>k>k>k>NED!   +t H7+~45 `*DD ր` D PD Ҕ TD s s S X Ҕ T D s s S JJs  D44Z_9e 4@+t SJy+~ST6 `Jx ` }0sw `w z 8Es s s S x RX5k s s S JtJ 5keO }0s$ 4@+t SJy+~ST6 `Jx ` =0sw `w z 8E3 s s S x RX5) s s S JtJ 5)$O =0s7:4 @+t L+~MS6f `x4Dj `j#0I` @D s s S I `t BD s s S JtH"Dj `j"I` HD s s S I `t PZ0D s s S JtH!Z44Dj `j!I` @D s s S I `t H DB s s S JtH! DDj `j I` @D s s S I `t H D s s S JtH P D404D4@t?`t>uI D cDD!ր` I` PD Ҕ TD s s S X Ҕ T D s s S JJs (7: s d47: d_@`!7:8ZY_]4B` XD Ҕ TD s s S b Ҕ T D s s S JJs R s d42DD?ր`>IHT7:gz@@_YG7: Zx+i ( gzH@Y_4Bd_7:+i _@+i H3 Ȇ` 8+i H3 6s+t H4Xt`+i h K:YK>K>K>K>K>K>K>K>K>K>K>K>@7:k?A$7˜!CҴ4\?056?r05C`0TC`!(T4H4x4|3sy BVsx 6?w 06?B` 6k?'3'K?U` "3`?"'K?TB`?3C`04K>@7?k?7+jH3k?_7?K>@7?k?7+jA49K>@7?k?7+jA,49K>@7?k?7k?!k?)+t C#D K7ZH 4h|#D K7Z`| +i #D ^7Zp+i DZ#$ 79H4 04h Z#$ Hy79Ї xU3s4t R@ss4t 06B6s?p+4h3A@Z+j!hh<+H3` X4+i H3 ؎` 84Z#$ H i79 7;4k?Z#$ H )790k?+t T4jX+jT40jX+i SJs ؆` 7?42jX@ 4B #$079H YX^7;+jT+jSJsj#D0_7Z+i S 0j| #D0_7Z+i h< #D0^7Z#D0_E7Z+i `h< #D0_7Z+i 0h< #D0_7Z+i h< 0+t 4h3 #D0_7Z +jh< #D0_u7Z(+i h< P#D0_M7Z0+i h< H#D0_%7Z8+i h< 8#D0_7Z@+i h< @#D0_7ZH+i h< #D0_7ZP+i h< +H3` +i @ss4bt H3 ؆` j+i TJ 8` +i "d06sXj 8TJ @` "d06shj @#D0_7Zx+i h< +jH3X` #D0+t H3X`!r7Z+jSAx6y+t T@jX4jX#D07Z+jSA6y+jT@jX40jX#D0K 7Z\ :R@+jT@jX40jX#D0K A7Z\ :RY@+t T@jX4jXZ#$079H4 04k?+i H3 ` P+i H3 8` +i H3 @` h#D0+i H3 H` H#D0K?` 7?@4B+r4h3h#D0_7Z+i Sj| (#D0_7Z+i C h| #D0_7Zh| #D0_u7Z+i Sj| #D0_E7Z+i Sj| #D0_7Z+i Sj| #D0_7Z+i Dh p#D0_7Z+i Ch| x#D0_7Z+i Tj +i SJs ؆` X+t0"d06sh3"d06sph p"d06shs xj #D0_7Z+t0 xh<+H3` X+i "d06sh3 p+i "d06sh3 x+i "d06sh3 K?` X+i "d06sh3 p+i "d06sh3 x+i "d06sh3 +t0H3` `+~+i H3 p` +i H3 x` (+~+~h X+i h 4h3 X#D0_-7Z+i C h| #D0_7Zh| #D0_7Z+i Sj| h#D0_7Z+i Sj| `#D0_u7Z+i Sj| X#D07Z+jCA4y+i Sj| #D07ZA4y+i D 8h #D07ZA4yȓP4h K:K?!K?)@7;k?+H3` 7#D0^M7ZK>@7?+i "d06sh3 +i "d06sh3 +i "d06s0h3 +i "d06s@h3 +i "d06sPh3 +i "d06s`h3 +i "d06sph3 +i "d06sh3 (+i "d06sh3 H+i "d06sh3 X+i "d06sh3 KS` +i +i "d06sh3 +i "d06sh3 +i "d06sh3 0+i "d06sXh3 8+i "d06shh3 @+t 0h h 8+i h @+t 4h3 +r@h hk?7+i ^H: _Y@_1@+i ^]H: +j4h3K>@7?k?7+jH:X7Z?_4+i _h +i ^H: +4?h3x_Q4#D0^7Z_ @+i ^]H: ^E@+jh K>@7?k?7+i ^H: K>@7?k?o XC#D J7Z`< #D07ZG4 H4?` #D07Z#D07Z^-@4K>@O?@@K?@ @k?K? Yw`K?  B}?6? z @ JYӵCS hu YCSbYh+r46 ӵCS ` Bsu  YCSY6?44`p z+r46 @  Bs Bt ҔBs 6 h>7ZK?@K? Yw`K?@4 CY+r46  C4ғ Btғu  y YY]4`h+r46  Bs Bt ҔBs 6 h 79?@\k?TJ `@@7Jk?6k?6J _54B8Jk?6k?6_-J K>@7?k?ok? k?k?k?!k?)k?1CFIGGD44(4#D0^-7Z4?h h+jH3` @@@U4?  4Sdtd@4+r48 +r 47 @sbP@s@s  BsbB jt@s Bs jt  SdM6 b`h \K>K? K?K?K?!K?)K?1@O?CVC5+r 44 buҵ+r43 u @b+jH3`!44+r47 +r 46 bt bt6_ 44+r48 +r 47 6@  bt 6_bu44+r48 +r 47 6@  bt 6_bu+r45 4b+r 44 b4bb4bb4bb+j4h3@@ @K?@ @@k?ok? k?k?DEд+t043t ` FG4(|Zp44G4( д"d86dhdhf+t043 t jc4K>K? K?K?@O?c8k7k KT kY@J`?J@jk?ok? k?k?k?!k?)k?1IHF4+t044   4G-4| G4Ȝ XZY_ WZY_} W@4` G Z 4G Z4K>K? K?K?K?!K?)K?1@O?Z+t043z ` 4jy@4@Z+t043z ` 4jy @4@k?oCt4&s+t044 ` #D07Z@^94BXG 4˜ "c4`c k+~4?h3 4K>@O?k?oC@t4` K>Hs6s?` Xhs@s+t044 JsHzVBG ZK>@O?k@k@k@4JcS4FcS@4@k?ok? k?E4+j454t @s` h6G EZ@D d"ZYG X `4_mt4K>K? K?@O?k?ok? k?k?k?!k?)k?1k?9I4+j4*4@&g S  3e!X C@tғ` Bt!ғh@" b04ғ` ` ғt@҂f ZYG X B @ssh@4f??@tK>@tғh_4@ғf>@t b04ғu^@t4^g4K>K? K?K?K?!K?)K?1K?9@O?k?7k>k>k>k>k>k>k?C@t4@8H@sst#7>7>ς24@@su b3"@sb@t4@4J 7>ȼ"@t4@? b04? b04@u! @sst"(4"7>4@4 T7>*@sg b3"@sb@sg6?7> tBu XC>su 0Zb[i7> 04H7>si XZGZ`P 7>GX (4G}7> 4@s g(r * b03g? b03r? b03@s` 84t *@sst> 7>4K>YK>K>K>K>K>K>K?@7>k?ok? k?k?k?!k?)z$G$@st$@tҔ@s$Z@tҔ@s *HH |84(K>HH b03s4Bt (H@s4Ft#4@st4@? b03? b03@ss4t@ Z84HK>#$079pG4 2 4?F4? xH@su4ʊ @ss4؊t 4 Z R d03s4t "@ssu F4?8@ss4Ҋt!4@ss4̊t!K>و!4 d03s4܊t 444cZ#$079G4 (Z@4z9_4B#$079Gm4 4H04@sst 8Z#$079G4 84z@4z_e984 HF`"hhh44K>K? K?K?K?!K?)@O?@@K?@ @k?7k>k>k>E+H3H`"D+~Sjz (+CHz+t0SK a6yHzK I7>K>4=/  k>K>`k>+jCHsx` h4dxK 7>h|x7?4" U+43| 4j K>`__k>4c>c>c>4k>+~@3 .c>4c>c>c>+H:4K )7>+4h3H4K>YK>K>K>@7>k?7k>D+H:K )7> +t04@32c>+H:4K A7>K>YK>@7>k?o+CHsH` 0+H:4+t0K 48h`HK>@O?k?7+~4h3 0+~H3 8` 4+~4h3 4#$8J79K>@7?k?:7"d86yJe4K>@7?k?7k?!"sL6s k?' $04!,  9IW'K?U4V v uҴ  s! z Z Z Z Z Z Zk?k?+jC4z04G4+SJzTE4y0 4 Ss>4 s@֟j7?k?7Z4K4K>K?!@7?k?7k?!k?)k?14+~H3 0` 2D_4ȏ H 0`04c? +~H3 0` x+E+~DH7?K14`2KQ44c? H 0`?H`@+~@ןH3 0` +~@3 .c?+~h 0C?K>K?!K?)K?1@7?@ @K?@ @@@K?@ @k?444B66s?`o@@@@@@@@@@@@@@@@@@p@`@P@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@@@P@@@@@@@@@@@@@@p@@P@`@0@P@@@44444446p44n44@6?444r4 4r446? 4^4 CV@R@Jk?' k?'I9)W'HK?4S?X  `SV6s??sj2֔6s?S t 6??%7Zc4K?@\k?7k?!k?)k?1D$hC4"3c?se (C?Z_}7?YC?$ s"``K>K?!K?)K?1@7?k?7k>k>k>k>k>k>k>k>GHJD4H b%д4@? b%? b%г` 4t еh4Z P "@v 04z 6?r`8hд0D44N!(+ b%д 4 Z_]7>CC> b3s4Nt `+~4?Z#$079G AиG Z 4N+~4h3 г4c?#D07Z]4Bг44P Bs`!hг b%е4D@ T!*!@гt! д4 b%г` t څ@ 4h "4z?_7>C8C>г+44P Bs`  "4D b%г tXt ` г` t д4c?д4D  04D " +~4h3 ` d@h@?д4V 4Z 4д@?s X44?5 T@? ?@? ?`4K>YK>K>K>K>K>K>K>K>@7>CS`0ZUUB4\ W6?r036s?r03 4@4Bst P6 B046?r04S6s??j04B` s@44\t 036s?r03B` t@44ʂ 4 p403`0ZB6s?r036s?r03B4` 4@k?CT4` 7Q 4BB034t :B03` 04 +~4h3 4?4B3`$p4+~44 T֟ғ6s?`@j@x@h@X@H@8@(@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@x@h@X@H@8@h6 @k? (h6 6? (h6 6?Sk?' k?'I9)Wғ'HK? x B3`;TK>@7?7? z U*CTҔC3s CSC<@ CTҔC3s?CSCTҔC3s?CSCTҔC3s?_CSCTҔC3s?/CSCT ҔC3 s>CSCT ҔC3 s>CSCTҔC3s>CSCTҔC3s>oCSCTҔC3s>?CSCTҔC3s>CSCTҔC3s=CSCTҔC3s=CSCTҔC3s=CSCTҔC3s=OCSCTҔC3s=CSCT ҔC3 sҔC3>s:CS7Z@U79@`S7>` x z U@4CTC3 t 7ZU794@k?oFDZ@YK>@O?k?ok? k?EDFE4| 8ZYIX b` \+~4?h3 4K>K? K?@O?+H5=H3= k?B4C\4 : 4@4? ל @4?ל @ k?7k?1k?9D#$0X79|7?444_W _7?44 z_7?h_7?h_7?h(_7?!h8_u7?%hHIZ4\K>K?1K?9@7?k?ok? k?EDFMZ| BZ4X_uW \F5Z4K>K? K?@O?k?oD_HhK>@O?k?oDHH 3 y ` y_ h K>@O?k?oDH(_M9!h0K>@O?k?oDH8_9!h@K>@O?k?oD_HHhPK>@O?k?7k?k?k?!k?)k?1k?9"@4F4XȜ""Z@Y #D0\I7Z+h<P44(P 0  R@k?7=4Fu7=_Yȼ(Z4cf_  !Z_Y Z_Y Z_eY Z_Y XZ_Y *IZ4hh\FH@FH0FH FHIZFZ4K@O?k?9 oK#` jHsd Y@4BP+48 `_Hw(˜@Hz0 \ Z_4B4?K>@O?k?9 oK#` jHsd Y@h4BP+48 _MHw˜@Hs B|4?K>@O?K4 4K3 t CSpCZvZBs BsS (46B@4@CS9CT@4  8PzҔC3S C3 07<C3 y 8C3@4@k?7SJy0_-Jx(\ 4?P4BK>@7?k?7SJyP_JxHK>@7?CS` 0\4tst B03`?st4t \@4?@ \@k?7k>k>k>k>k>k>k>k>k>k>k>k>+H3 `!PH#D0I7Z!*@4^!C4 44z_}ZD b@B@si 84@sf 4@se$4?4} c F mZF 7\ @EiC_ZȜ ZFZ4?YF X b`4 e i c iPC4z4 \4 4 4 ~4 _ZD!P4\@"@sn 4@sm 4 c  dF b3c>C>l *d Z_y7>`Ck RdJ b3c>C>j C>c>6s@c>C>d= " "`4cIP eiHCi04 F_EZD @*@si 4@sf  4 c xT b3x " " bE4cI0 ei(Ci 4\4@_MZD r 4@s g(f4 c @s`@s`4cm4I ei4i4K>YK>K>K>K>K>K>K>K>K>K>K>K>@7>@X@K?@ @+H5:H3: k?k?o+j H3 ؆` 84# HsVB h0`?HsK?Y@O?k?ok? +rH4 X43Js` @44646 Js`?6t 8+r4$ V%B? #D8_]7ZK>K? @O?k?+H3 ` 74_h3 K?Y@7?ixlXlnXnp\Xp`qHqq,048<@X\\ 0`$(DHdhx|HL $hllp`d ,0TXX\ 04 LP(,hlhl8<LPDH\`hlʔʘ ̴̸PTΜΠϰϴ(,ӴӸhl֔֘0 84ؼ(,PTۼ ݄݀ PT߸߼LP00`d $PT`d$(P8<@PDx| $P lpx0|@DX\$X((0,@P(P,X\ \`88<  $(HLHLtxx|0$(hl @DDH X \! !""&&''''''( ()  )))**++++-@-D--.. .0.4....// /4/8/l/p//2T2X22223033P03T3h3l334444555X5\:(:<<?,?0?h?l??@@@@AAB\B`CC CCDDHHJJLL MMNNQ,Q0QQSSXXY,Y0ZZ[[` `aadTdXeefTfXgDgHjjkklln\n`oopp qq qlqpqqrXr\tvHw4w8x4x8xxyyzTzXzz{{ {{|| ||~,~0~L~PX\<@ D H8<X\04\` $(@DPTptDH@D\0``8< 0@\`X\,0H0L(,x|T8X@D8<,0LP $@D 04x| x(, $X(,X0hl $\`pt,0X\ptPT\`tx0tx¼ø üX`TX,0DHlp48@Dˤ,0LPlpΌΐάΰ 8<X X\X\րքlXp ptޠޤhldh  48X\|HLx|04 04pt, 0\`TXlpPT          <@ptDH0 (,|pt @D    "P"T"h"l#P#T##%t%x&4&8&L&P&&&&''','0''(D(H(((()t)x))*$*(++++,,,x,|-$-(1l204044556666777788 8089P9T99:d;@p>t>>??A(A,BBCTCXDDEEG GI IIIJJK4K8MM NNNNPHPLPPQDQHS STTU0U4_8_<``a8a<j| kkknnnno oo0o4oLoPoholoooooooooop p$pPpTppppppq@qDqqrr rrtHtLttwPwTx,x0xxyyyyz`zh|0|||TX@D hpHLpt`d0TX04PTpt( x|04X\P T(,$(04PT4 88 X ,0LPP\`llp $| l,0lp\`xĀ tȘɈɌ LPtxʜʠ004̐̔TXͰʹ `dΔΘθμ, hҤҨ,0Xt  TP T |  0|  6 ?@ X *    Z 4 $t   ˨ H H T     xx 1p 0:h 6R V s8 *  *ۀ  n$@\x@  D 0j Tp  p  | 4 L @@ /lib/dld.slERROR couldn't open dld.slERROR reading dld.slERROR bad magic number/system id for dld.slERROR bad dld.sl hpux aux header (text) (data) (bss)crt0: errno:  q rr@(@(  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~2Kn,X `%K@%$w ^Ke: quit, ^Kg: get file, ^K^W: write file | %b (%m%n%o) %pIf you see this, you have an installation problem.yXN,yy{<{@@@@@t@h@\@P@@@0@$@@@@ @@@"@*@2@:@B@J@Rt@Zh@b\@jP@rD@z8@,@ @@@@@@@@@@@@|@h@T@D@ <@,@ @"@*@2~@:~@B~@J~@R~@Z~@b~@j~@r~x@z~p@@<.setkey!@._autoload@.push_mark@.bol@.insert@.eol@.setbuf@.message@._add_completion@.del_region@.bufsubstr@.right@.definekey1@.USE_ANSI_COLORS@h.Status_Line_String @.MINIBUFFER_ACTIVE@.left@.whatbuf @.error@.getbuf_info@.otherwindow@.is_internal@ .setbuf_infoA@.up@.down@".call@*.eob@ .unsetkey@2.bob@.looking_at@:.del@B.markp@J.nwindows@R.add_completion@Z.what_column@b.eobp@j.setmode!@r.fsearch@z.buffer_visible@.exit_jed@2.set_color1@.color_number@.set_color_esc!@.extract_filename@.trim@b.pop2buf@.pop2buf_whatbuf@.DISPLAY_EIGHT_BIT@p.JED_CSI@t.copy_region@.insbuf@.bolp@.beep@.onewindow@.pop_spot@.push_spot@.bsearch@.sw2buf@.tt_send@.eolp@.what_keymap @.find_file@.set_status_line!@.bury_buffer@ .dupmark@.erase_buffer@.window_info@".copy_region_to_kill_array@*.append_region_to_kill_array@2.insert_from_kill_array@:.KILL_ARRAY_SIZE@.what_line@l.BLINK@.WRAP_INDENTS@.goto_column@B.goto_column_best_try@J.TAB_DEFAULT@.goto_line@R.bfind@Z.pop_mark@b.read_mini1@j.file_status@r.skip_white@z.bobp@.ffind@.bol_fsearch@.bol_bsearch@.flush@.input_pending@.C_INDENT@.IGNORE_BEEP@h.ADD_NEWLINE@.LASTKEY @5X.C_BRA_NEWLINE@.DISPLAY_TIME@.WANT_EOB@.insert_file@.keymap_p@.WRAP@.what_char@.recenter@.bufferp@.get_key_function@.dump_bindings@.META_CHAR@D.DEC_8BIT_HACK@H.undefinekey!@.getpid@.update@.skip_word_chars@.skip_non_word_chars@ .bskip_word_chars@.bskip_non_word_chars@.which_key@".whitespace@*.enlargewin@.splitwindow@B.C_BRACE@.file_time_compare"@2.xform_region@:.OUTPUT_RATE@h.skip_chars@B.command_line_arg@J.MAIN_ARGC@.set_file_translation@R.pipe_region@Z.run_shell_cmd@b.mkdir@j.rmdir@r.append_region_to_file@z.autosave@.autosaveall@.backward_paragraph@.blank_rect@.bskip_chars@.buffer_list@.check_region@.copy_rect@.define_word@.delbuf@.delete_file@.directory@.evalbuffer@.expand_filename@.filechgondsk@.forward_paragraph@.getkey@.indent_line@Z.insert_rect@ .kill_rect@.make_keymap@.map_input!@".narrow@.open_rect@*.quit_jed@2.read_file@:.read_with_completionA@B.replace!@J.set_abort_char@R.suspend@R.time @Z.ungetkey@b.buffer_keystring@j.use_keymap@r.w132@z.w80@.whatmode@.widen@r.window_line@.write_buffer@.write_region_to_file@.count_chars@.get_yes_no@.rename_file"@.change_default_dir@.prefix_argument@.regexp_nth_match@.replace_match"@.re_fsearch@.re_bsearch@.set_buffer_hook!@.insert_file_region2@.search_file2@.random"@ .set_term_vtxxx@.TERM_CANNOT_INSERT@h.TERM_CANNOT_SCROLL@h.BATCH@.TAB@P.SELECTIVE_DISPLAY@T.LAST_CHAR@0.MAX_HITS@.CASE_SEARCH@.POINT@p.MESSAGE_BUFFER @0@.IGNORE_USER_ABORT@.KILL_LINE_FEATURE@.SCREEN_HEIGHT@h.SCREEN_WIDTH@h.JED_LIBRARY @.JED_ROOT @(.LINENUMBERS@`.MOUSE_X@6.MOUSE_Y@6.MOUSE_DELTA_TIME@6 .MOUSE_BUTTON@6$.MOUSE_EVENT_TYPE@6,.MOUSE_STATE@6(.HIGHLIGHT@d.HORIZONTAL_PAN@h.enable_flow_control@.core_dump!@".get_last_macro@*.C_COMMENT_HINT@00.WANT_SYNTAX_HIGHLIGHT@0 .set_top_status_line@2.enable_top_status_line@:.TOP_WINDOW_ROW@.DEFINING_MACRO@.EXECUTING_MACRO@.create_user_mark@B.goto_user_mark@J.move_user_mark@R.user_mark_buffer @Z.list_abbrev_tables@b.use_abbrev_table@j.create_abbrev_table!@r.define_abbrev1@z.abbrev_table_p@.dump_abbrev_table@.what_abbrev_table@.delete_abbrev_table@.set_column_colors1@.set_color_object1@.translate_region@.set_current_kbd_command@.LAST_KBD_COMMAND @8.CURRENT_KBD_COMMAND @.find_matching_delimiter@.blink_match@.parse_to_point@.set_syntax_flags!@.define_syntax!@.use_syntax_table@.create_syntax_table@.define_keywords_nA@.DOLLAR_CHARACTER@\._jed_version@P.set_expansion_hook@.get_passwd_info@ .get_termcap_string@.get_doc_string"@xt l @>x` @>XT @>HD @>84 @>($ @> @> @> @> @> @> @> @>D @>4 @> @?| @?ph @?\T @?H@ @?,4, @?0  @?@  @?D @? @? @? @? @?T @?Xtl @?h\T @?lH@ @?4, @?|  @?  @? @> @>|  [3~   [5~[6~[4~[2~[29~[1~[28~OMOPOQOROS*+OlOmOn/OpOqOrOsOtOuOvOwOxOy=[11~[12~[13~[14~[15~[17~[18~[19~[20~[21~[23~[24~[25~[26~[28~[29~[31~[32~[33~[34~[35~[36~[37~[38~[39~[40~[41~[42~[43~[44~[45~[46~[47~[48~[49~[3$   [5$[6$[4$[2$[29$[1$[28$OMOPOQOROSOlOmOnOpOqOrOsOtOuOvOwOxOy[11$[12$[13$[14$[15$[17$[18$[19$[20$[21$[23$[24$[25$[26$[28$[29$[31$[32$[33$[34$[35$[36$[37$[38$[39$[40$[41$[42$[43$[44$[45$[46$[47$[48$[49$[3^   [[[[[5^[6^[4^[2^[29^[1^[28^OMOPOQOROSOlOmOnOpOqOrOsOtOuOvOwOxOy[11^[12^[13^[14^[15^[17^[18^[19^[20^[21^[23^[24^[25^[26^[28^[29^[31^[32^[33^[34^[35^[36^[37^[38^[39^[40^[41^[42^[43^[44^[45^[46^[47^[48^[49^.x_set_window_name@".x_warp_pointer@*.x_insert_cutbuffer@2.x_copy_region_to_cutbuffer@:.x_set_keysym1@B.ALT_CHAR@f.X_LAST_KEYSYM@@J@R@Z@b@j@r@z@@@@@@@@@@@@@@@@@@@ @>t@>p@>h@>l@(@$@&@P@P@@0 @@P@@BACxph\PD8, |xtplhd`\XTP@@ Wi@ !TD-.polynom@".sin@*.cos@2.tan@:.atan@B.acos@J.asin@R.exp@Z.log@b.sqrt@j.log10@r.pow@z.E@jX.PI@j`.float@%f .autoload!@.pop@.strcmp@.strcat@.strlen@.str_replace@.is_defined@.string@.getenv@.putenv@.evalfile@.char@.eval@.dup@.substr@.integer@.is_substr@ .strsub@.extract_element:@.is_list_element2@".case@*.string_match2@2.string_match_nth@:._traceback@h._slangtrace@h.system@B.slapropos@J.slang_trace_function@R.create_array@Z.aget@b.aput@j.strncmp@r.strlow@z.strup@.isdigit@.strtrim@.strcompress@.int@.array_sort@._stkdepth@.print_stack@.Sprintf@.init_char_array@.byte_compile_file!@.make_printable_string@.str_quote_string@.str_uncomment_string1@.define_case!@._clear_error@.set_float_format@.copy_array@ .array_info@._slang_guess_type@._slang_version@h.INT_TYPE@l.STRING_TYPE@l.FLOAT_TYPE@m.unix_kill@".unix_ctime@*.lstat_file@2.stat_file@:.stat_struct@B.stat_islnk@J.stat_isreg@R.stat_isdir@Z.stat_ischr@b.stat_isblk@j.stat_isfifo@r.stat_issock@z.chown2@.chmod"@@xph`TL@ 4 ,  2Kn,X `%K %()*,/:;[]{},LHnDj@p<8&40,( $ *A BDEFGHIJKN9;?TPM<>QRU@V8C7=LOS:W'"|+x#tp(lhd$`-\ XTPd`\X@$Header: mapdld.c,v 70.3 92/02/05 16:07:02 ssa Exp $ERROR: mmap failed for dldL@$<\<tT$ۀ8ۜPxXlx@|t||\pLx\t0X hVY,[xW4XLYdZDZ ZZ|[[@ZX[\WYHXYWZ(X0WlWXVXXh\ [VYZWZ[WPY[YZ`XW[$YVV\XY[Wt 0t :h 0H$t8tP`th<Tl8Pt4,D\thxttttHt`x 48Ph  4(˨u($@4@(Xp u(8 4X<@0(@XpT ۈ4H$`x<Tl۠u@LuXup۸Luul0ud H`X8Ph4ppx8Ph̘̰̀d4uuvv1p11111220::::::;;(HRRRRRRSS,SDS\StSSSSSTTT4TLTdT|TTTTTU U$U<8P<\|<\|h@Xp0H`x DD0DH8PhD`Dx(@pXDDjjjjjjkk(k@kXkpkkk(@Xpv0(@Xp`UTUlUUUUUUVV,VDV\Vt 8PhDpp4@@2@@@@@@@z@@@:@@@@@@@:@@@@@@@@@@@ @@@@"@*@@"@*@@ @Z@j@@@j@Z@@@@2@B@@@"@b@@@@z@@@@@B@@J@r@@@@r@@*@R@@J@@b@R@ @@2@:@B@J@R@Z@b@j@r@z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19__do_global_dtors:F19_exit_dummy_ref:G29=*1__do_global_ctors:F19__main:F19end_file.libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19_exit_dummy_decl:G1end_file.- dh"dh.PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1$hG ^$Ҩt$0\*P d`"d`.PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1 6E`*P d`"d`.PbHfӀ+Fbjed-0.97.12/src/rgrep000075500000000000003000001304100603742413300141250ustar00rootsys00000000000000 @&[@@ l,8XXGW(Z0 @&X 92453-07A09.74.080~([ 92453-07A08.56.05*v 82$Header: crt0.s,v 70.8 92/05/19 15:52:46 ssa Exp $@  `HX"0LX 3tX 8  X F@&@X F@@&@@X 8fX Hh@jh@X IjX Xj8>(@`>(@L>( @`>(@,>(@x>(T@T>(@>(@>(&@ >('@>((@>(P@>(R@ >H >I, ,Y 0Z? @ $PRIVATE$$DLT$$PLT$ $SHLIB_DATA$$TEXT$ $SHLIB_INFO$ $DATA_START$ $MILLICODE$$LIT$ $LITSTATIC$$CODE$$UNWIND_START$$UNWIND$MILLICODE$$UNWIND$ $UNWIND_END$$RECOVER_START$$RECOVER$MILLICODE$ $RECOVER$ $RECOVER_END$ $PFA_COUNTER$$PFA_COUNTER_END$$DATA$ $STATICDATA$ $SHORTDATA$$SHORTSTATICDATA$$GLOBAL$ $SHORTBSS$$BSS$ $GDB_DEBUG$ $GDB_SYMBOLS$ $GDB_STRINGS$00$ 08 @0@0 &[0 @U &@ L&0 &0 '0 $' 0 4f0 Hjh0 Xj0 lj0 @0 @0 @0 @0 @0 @ \ @ p @ @ @ @ @ @  &@@X0@l @ Q('' P8*+ D+_ AP+ \+ h, x+ , ,3 ,S ,s , T0l @PU|H-UX,U0-@U,Ux`,0Q-U-(0-0Q-X0A.L `-X @  @X T0@U(@1U8h0UD1UPx0U\2 Uh0UD10t=0>U1U0U2PU10U|H BU<828UH1xUTP10`?xUx1Up1H :dU2U10A>$U0U1` ,@ @@( T@  h@$ P|7030T9L @ @ @03|0>020,2h  @|  @x  @t @8084  @p  @l0@H? 4@ P@ `@ 0XA p@4 @4  @h @,  @d  @`0h:0AB  @\ `2h  @X @@0@ T%0@ QtFP UF ARU F8U ,F  @D @@ @H0R0QP `FP0Q\( `\( @P T%(UD U 8^ U L_p0Q`$0U` `@P0@ ta `^0b T%@0 @|0 @0 @xU8h0 @hUDU (bUPx0 c0 eT `c0 @@p  @0 T@`0 he0 f00f eU e f0 @ , @ `e f f0 @0 @0 @ 0 \ 0 x 0  0  0  0  T ` l 0  0 / x@ 0 [ 0 s  0  0   08  , 0 (W h 0 8{ 0 H  0 X 0 h  0 x  0  P   < H T $` 4 < 0  0  D 0  0   P 0  0H# D L 0(_ (l0j0@0@0j0@0@0| 0 FP e2h2h&X c-X<2h(2h|-XT2h-Xx-X82h2hP2h2hD2h\2h ,FP-X2h2hD2h2hx2h2hh2h2hH2h-X0AB0p0 heemain __text_start ___stack_zero __data_start $START_RTN$ $str_lit_sym$ $THIS_DATA$$THIS_SHORTDATA$ $THIS_BSS$$THIS_SHORTBSS$$THIS_STATICDATA$$THIS_SHORTSTATICDATA$ $THIS_LIT$$THIS_LITSTATIC$$$stat_0 __map_dlderrorstrlenitoa__exitsyserroropenclosereadwritelseekmmap$global$$START$$ARGV _fp_status_start_mcount_clear_counters _sr4export $UNWIND_START $UNWIND_END$RECOVER_START $RECOVER_END __dld_flags __dld_hook __dld_list __SYSTEM_ID _SYSTEM_ID $PFA_C_START $PFA_C_ENDerrno_etext_end __dld_loc $$dyncall $$divI_10$$remI$LIT$$CODE$ VFile_Modemallocfreerealloc jed_memchr msg_errorvstreamvclosevopenvgets$BSS$$DATA$fixup_filename rgrep_getsFile_Name_OnlyFixed_Line_Len Fixed_Len_BufFixed_Len_Mode do_fwritebuf___16File_VpFile_FpPrint_Non_Matching_Lines Debug_Mode Follow_Linksprint_file_too Line_Numbers Count_MatchesMatch_This_Extension recurse_reg depth___33 Must_MatchRecurse_Reg_Pattern_BufferOutput_Match_Onlyreg HighlightRecursive_Match Do_RecursiveCase_Sensitive__iob Search_St__flsbuffputsfprintfexitstrcmpfileno unix_is_dirsys_dir_findnextstrcpyisattyfcloseSLang_regexp_match SLsearch_initSLang_regexp_compilefwriteSLang_init_case_tables__mainfopenstatlstatsys_dir_findfirstopendirfreadreaddirclosedirSLsearch sys_opendirfgetsputs exit_error output_line sys_closediradditional_helpusage parse_flags grep_filegrep_dirgrep do_nth_matchregexp_looking_at convert_digitThis_RegNext_PosThis_Str Chg_UCase_Lut Chg_LCase_Lut SLang_doerrorstrncpystrncmpsearch_forwardsearch_backwardCase_Tables_OkSLang_define_caseSLang_Error_Routine SLang_ErrorSLang_Error_MessageSLang_Exit_Error_HooksprintfSLang_exit_error L$text0000 Ltext_endinitialized___6 __CTOR_LIST__ __DTOR_LIST____do_global_dtors__do_global_ctorsatexit_exit_dummy_decl_exit_dummy_ref_iobLIBC//Mdiv_const.o0HPUX Precision Architecture vers PA2.0 assembler92453A.08.12 (sllic PA1.1)$neg3$pos$neg$neg5$neg6 $pos_for_17$neg10 $neg_for_17$neg12$neg15$neg17$u17$neg7$7$pos7$1$2$8 $neg7_shift$3$4$neg9$neg14$$divide_by_constant$$divI_2$$divI_4$$divI_8 $$divI_16$$divI_3$$divU_3$$divI_5$$divU_5$$divI_6$$divU_6 $$divU_10 $$divI_12 $$divU_12 $$divI_15 $$divU_15 $$divI_17 $$divU_17$$divI_7$$divU_7$$divI_9$$divU_9 $$divI_14 $$divU_14 LIBC//MremI.ot1finishLIBC//MdyncallU.onoshlibsetextedataend_etext_edata_end __SYSTEM_ID _fp_statusetextedataend_etext_edata_end , 8 , 8 , 8N0pl!t @X@U$@U)@U.@U0pU eU @U  4<CJRYaiox rgrep/lib/libc.slerrno_SYSTEM_ID_iob_end__iobstrncpyatexitfwritereaddir_startsprintfreallocfopen__flsbufmalloclstatfreeopenfputsfreadexitputsfprintfstrcmpstrncmpreadfgetsisattystrlenfcloseopendirstrcpyfilenoclosedirstatclosemain__do_global_dtorsXZ]XZ]XZ]XZ]d@"Z]> ZZ]> ZZ]9 Z8 =@Y :Z @Z@ ZZZ] ZZ @"ZY :ZZ@= ZZZ@= Z ZY :Z]ya: =]: =]  : =@]ZBu ZZZZ ZZ]ya: =]: =]  : = @]ZB ZZZM ZZY :}@]Be]yZZ5@*Z@ya AZ@ya AZ]ya A @Z@] Z]: =] y a: =]Y(ZYY8Z@] Z]: =] y a: =]Y(Z YY8Z]Y Z @*Z@YA AZ@YA AZ]YA A @ ZZmZ @V   @A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A  !A ˡF ! !V @JJ k?Unable to malloc space.Realloc Error.rgrep (v1.4) Usage: rgrep [options..] pattern [files ...] Options: -? additional help (use '-?' to avoid shell expansion on some systems) -c count matches -h highlight match (ANSI compatable terminal assumed) -H Output match instead of entire line containing match -i ignore case -l list filename only -n print line number of match -F follow links -r recursively scan through directory tree -N Do NOT perform a recursive search -R 'pat' like '-r' except that only those files matching 'pat' are checked -v print only lines that do NOT match the specified pattern -x 'ext' checks only files with extension given by 'ext'. -D Print all directories that would be searched. This option is for debugging purposes only. No file is grepped with this option. -W'len' lines are 'len' characters long (not newline terminated). 'pattern' is a valid 'ex' type of regular expression. See the man page for ex. It is best enclosed in single quotes to avoid shell expansion. Supported Regular Expressions: . match any character except newline \d match any digit \e match ESC char * matches zero or more occurences of previous RE + matches one or more occurences of previous RE ? matches zero or one occurence of previous RE ^ matches beginning of line $ matches end of line [ ... ] matches any single character between brackets. For example, [-02468] matches `-' or any even digit. and [-0-9a-z] matches `-' and any digit between 0 and 9 as well as letters a through z. \{ ... \} \( ... \) \1, \2, ..., \9 matches match specified by nth \( ... \) expression. For example, '\([ \t][a-zA-Z]+\)\1[ \t]' matches any word repeated consecutively. Press RETURN for examples>Examples: Look in all files with a 'c' extension in current directory and all its subdirectories looking for matches of 'int ' at the beginning of a line, printing the line containing the match with its line number: (two methods) rgrep -n -R '*.c' '^int ' . rgrep -n -x c '^int ' . Highlight all matches of repeated words in file 'paper.tex': rgrep -h '[ \t]\([a-zA-Z]+\)[ \t]+\1[ \t\n]' paper.tex rgrep -h '^\([a-zA-Z]+\)[ \t]+\1[ \t\n]' paper.tex (Note that this version of rgrep requires two passes for this example) Search through all files EXCEPT .o and .a file below /usr/src/linux looking for the string 'mouse' without regard to case: rgrep -i -R '*.[^ao]' mouse /usr/src/linux Search a fixed record length FITS file for the keyword EXTNAME: rgrep -W80 ^EXTNAME file.fits (Note that the regular expression '^[A-Z]+' will dump all fits headers.) rgrep: %s Malloc error.%d:%d rgrep: dir %s not readable. rbrgrep: unable to read %s Maximum search depth exceeded. %s -RError compiling pattern.-xError vopening stdin.stdinPattern large to be compiled.Search string too long.Undefined_NameSyntax ErrorStack OverflowStack UnderflowDuplicate DefinitionType MismatchVariable is read only.Malloc Error.Invalid Parameter.User Break!Intrinsic ErrorDivide by zero.Unknown Error.S-Lang Error: %s %s Ku>Ks> k?#`(7{7K#+h# 'y 4Kd?Eke?(43 `'y H? zG+4>DEFYXZ#.HBZYX^k?#,B@@@@ BK?@ @@k?ok= k=k=k=!k=)k=1k=9k=Ak=Ik=Qk=Y+DCGE4: Y#'BF 04 ?4 (4Y#$PB7>I4ZX#(`B *4 `4Y#$PBG>M4] BG>I4t *4 YX#$PBK>ZX#(B7=4`ZX#(`B G= *4 YX#$PBK=K> K>K>)k?k?4 4 Z Y W#) BL 2+4: 4 0 X#$PBK>!k?k?4ZY4#) BH 2+4: 4 @ X#$PB@ k?k?44,Z Y#) B 2+4 P4:  X#$PBZ N#( BK>1K> lk=k=k?k=k=  +4< +`h(( 4"(4$P+`k?4?Wk=Xk?k?4%k?y7=k?q#0 BKK?K?K? @O?@ \@\B7 B??7@TS 44Z# .@@7` Z# )@_S@  4 "@@@@  4 "@R@@@  4 "@@@@  4 "@@@@  4 "@@@@  4& "@R@@@  4 "@@@@+`4!h<4?@@Ku>Ks> k?Ku?Ks? k?Ku>Ks> k?Ku>aKs>i k?Ku?Ks? k?Ku>1Ks>9 k?k?ok? CD4_4\@YX@4B4K>K? @O?k?oC_]Hz Hz@ _m@_]ZK>@O?k?ok? k?DEC_-4@˜4`K>kkkk k` k(+H# k0k8K>K? K?@O?k?ok>k>k>k>k>k>k>k>GIH H0H(i H` h40 _4˜ #@07Zhhh4H` HsHH zHs ZY_UXȜ   hf"8CHFH` HhZ4AX˜ p7hB i3br03z bh84cI36s?0i3H` ( i3h(\CHf 84h b3h "CHHH y 3 YhH Y_79˜ RH  | H  | hHhuF#@07Z0@@4K>YK>K>K>K>K>K>K>K>@O>@,@K?@ @Ku>Ks> k?Ku>Ks> k?Ku?Ks? k?Ku?1Ks?9 k?Ku?!Ks?) k?Ku>QKs>Y k?Ku>Ks> k?Ku=Ks= k?Ku>Ks> k?Ku>Ks> k?Ku?Ks? k?Ku>qKs>y k?Ku?aKs?i k?Ku?qKs?y k?Ku?AKs?I k?Ku?Ks? k?Ku>Ks>  k?Ku>Ks> k?Ku>AKs>I k?Ku?QKs?Y k?k?7#@07ZP+_ 49 @_-4@k?7k?!k?)#@07Z +D_4 @_4 @_Z +C_4z _Z #A7Z_%4 @7?4_4x 4t J@6s?`` j@44 @_4B8+44 JH6jH4b#A7ZH+C_U4y @#A7Z_54y @_U4?@k?o+C_4y @+S6t J@6s?`` j@44y @_4B044 JH6jH4bK>@O?k?7X+4: @#!_-79P_-4@k?ok>k>k>k>k>k>k>k>k>k>k>k>C b5&@+`O4+G+N+F+M+L+K+J+`E+`I+`Hҳ6s?`@:@@ @@@@@@@@@@@@p@`@P@@0@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@`@@@p@@P@ @0@ @@p@@@@X@+h ih 4?xh i h +Ph$ @h 0i  i id iD _=4Bh@@u `H@6?r@H@ ҳ t S6s?h@ b05?6?H@` _U@_ H@ i<0#A_7Zhi8_@ b5:}ҳK>YK>K>K>K>K>K>K>K>K>K>K>K>@O>k?ok>k>k>k>k>k>k>k>FI & ǡ44 >44 +4$ #eг kh! 4s?b C` bH 6s?`` h 44 _u4B(H(6th(4btH 6s?`` h 44 _ 4B(H(6th(4btгh 44~H 6s?`` h z4 _4B H(6h(bǾg # K>Yt x+44 6 J 6s?``j 4_4B(J(6j(4bK>YK>K>K>K>K>K>K>K>@O>k?ok? k?k?EFC+H3 `!D+H3 ` `ZZ_54#A7Z44+_47 Zd_4+H3 ` `#A7Z44+_47 Z &4_]4B@?t p+44 6 J 6s?``j 4_ 4B(J(6j(4bK>K? K?K?@O?k?ok? C+`H:(@ Y_4B+`D+`T+`SH04J@_ %Jw ˜ h|H04K>K? @O?k?7k>k>k>k>k>k>k>k>k>k>k>k>k?K4 4 +`OS6hH+F+`NS6m+L+S6g _7>Ȝ"IXK>w85)+`H3X` I K>w(K>H `?}C Z $ A5| H `?-CK>IP` H ` hI ZK>@ 5H H `>CK>I` d I c +H3 Ȏ`>U5J+`H3`!+`H3`` x Z_]5 H 6s?`` h 4t5 _ 4B(H(6th(4tbt+H3 І` 5 #!79_ XZK>XW_ 4B=1@!@+H3 Ȇ`!(+`H3``  Z+`H3` ++C_4y +S6t J 6s?``8j 4t4y _4BH Z_E4B`44 J(6j(4tb+4: #!79_U XK>YK>K>K>K>K>K>K>K>K>K>K>K>K?@7>k?+H3 ؆` 07_]7> 0G>!x4?_]7>G>!`t"e?"b #4 (4?K=@7>k?ok? k?DC_4^˜@Z+4: @#!79_mX4h|_Y_Zh| B?se (7hsbHs c b`\K>K? K?@O?k?oCHz@ _%@h`K>@O?k?ok? C_HzȜ 4Hz C hz_=4_ Zh|@t4\ B@s` t "@` \4?hs\K>K? @O?k?_7K>@7?k?ok? D+H3 `"C+H3 `!+`H3` _Z #04\C3st :79?#C3C3s4\t!K>+`H:_79!K>P+`_UZZY+`@D48P!pK>+`Ch` +`Sj`(+`SJs8` (Z#!_m79(h| 4 _4+`h<(+`H3(` H+`H3 ` 0+4: @#!79 X_4BX_Z+`H3 ` +`H:(_Q4B_H: K>K? @O?k?7k?1C_7;!+`H440@(+4: @#!79 8_4B8+`H36sh3+H3 ` (+4: @#!79 x_!X_7;\ +CK?!` Hs K?_4B(`@K?!b _@_E7;\K?!_7;+`H36s?h3K:K?1@7;+`44X4`3XB5 64T4~4\4H4ҳw "H"| ҳ4\ " v( y8""B5?ҳ4H"b+`@4<Xk?7k>k>k>k>k>k>k>k>k>k>k>DAC4c@T4?"2HsZBss4Zt!!+`LS6fP7<4 4+J+G+`ICS`!r_5 4c_1@_UHziPhhh@Z 4c#A_7Z iE h #!Hz_79 : 4c_i@h Hsi3Hz_7Z4c :HzCSs4Zt>CS +`_@+`4:HHsh3H7:kS4kS+H3 @hkS 4?#A_A7Z +`S4jyX+`T6HJsP` H4c+SJHJx +`S6w@4Bh4:HKS ` 8+7Z04H8 +`47@4B+`h X!H++`H38` 0+`T+S6s Hj +_q4: Z4 _4+`h<(+`H3 ` 8#A+`H3(` #A_I7Z #A_ %7Z +`H:(@ +`_y4BH: _4BH3 `@+` 4h3`4? +`F+E_Hz *h`H ``2Hz_4B Hy_}Z4??4c4K:YK>K>K>K>K>K>K>K>K>K>K>@7:Ku?Ks?  k?Ku=Ks= k?k?ok? C+`H3ps@D+`T+`SJsx c JJt`Jc`  P\s@0Z_X 4d 4K>K? @O?k?ok? k?k?k?!k?)k?1k?9CFD %3 H+`J+`S6iг6s?`@ p@ @(@p@@ @P@@@@@@@@@@ P@@@p@`@P@@@0@ @@@@@@@@@ @X@p@`@ @@@0@(@@@@@@@@@@@p@`@P@@@0@ @@@@@@@@P@ @ @p@`@H@@@0@ `@@@ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @@x@ @`@`@x@ @@ 0@@ X4 4 4+`H4xISp +`H3 cj`4? (jh+`H5xIVp +`H3 cJ` j6iVpfh4 @@s@s 3 Bs) 44cP4f G @@s *4@s 3 Bs"4cf4 @t@s 3 Bt @ 3 Bs((44cGf0@ @st "4 3 Bst!4cf4 6 7ʗ P 8f2@s  4cf@s'(4 &ZfP@s&:&04cf"@s@Y_X|&44G :Y_X˜&"C@Y_]X|& 4G@Y_%X˜ C@4f4 @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ`$4@84cfXG @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ c f4 @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ`#4cfG @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ` 4cf74@f"@s6s?rP44cfpG@s6s?``Bf@s6s?r44cGf@s6s?r4cπfJ@st!44cfG@s` czf@st 4cGfJ@st :4c׀f\@st K>و p %gPIEpZYX_ W˜hK>4c?giEp84-гг` \` 4K>K? K?K?K?!K?)K?1K?9@O?k?ok? k?k?k?!k?)k?1k?9CH4 # I4 IXyBI+`T4jp+`Sjhx+`Fh@h H4 ZY4_ W04xH@ 444@ 44@b JI`@H3 ci`|i8\n @b I@eҦ+`4* x+`e4 @s : 4c S Bs 4cee`+`4h3pZYX_ W˜+`4ce4K>K? K?K?K?!K?)K?1K?9@O?4CT6?r84 S6u?B046?r6 4k5@\@k?7k>qk>yk>k>k>k>k>k>k>k>k>k>k>k>k>k>F44k>)4 4 4 k>Ik>Y4k>i4hh`HH c 5k?H@H44? jt6_jt`@4 *44 s"4h(h(``k>9 7.04 44+`405s?s56s?`@ @ @ @ @ @ x@ @ @ H@ 8@ `@ @ @ @ @ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @ @ @ @ x@ h@@8@ @4@`) 4 s" 744Ƃ!Xk>Y@4r@X4baH4P"ʂ@*44R"4j4 4 H4 r@(4Ȃ!4ʂ :44肝 84 446444h s"44H s"6?S j sI`E4 s" w"E@4&@`Z_7>˜(DC> s"@q r@4X( 03q Z40k>_7>˜(ZD@q(BC> s" 044(44K>)74rGk>)'4 5J4` s"'4 5J40 s"4`sE4c4s@kH44> 6_b` 74 (44@s_`s 7} (T03b 7`#+`484}"q j 7o :o@`&*@:4} @44@4Z}!8 03"   Btҕ Ҕ>Bt@b  Bҕ Ҕ>Bt@@bu ss>Bs@֟b6@ ׍   Btҕ Ҕ>Bt@b  Bҕ Ҕ>Bt@@bu ss>Bs@֟b 7= 4}#Z@ 844> B ` 6_b44c@4E4 s"4 @`4?H4 Z@`4 *@`44?4K>97l @5)" K>I0N`"k>ik>IN4 k>9E4 s"T 4cS  Bsb 715s?``KK>Y H@4k04@s` 4ck@shP`NHS (hX40H4_4Bh K>i `4004 @k>i4#A@7Z H K>i4k> b3b * b3 "K>6s??k>40 `4h 4K=K>qK>yK>K>K>K>K>K>K>K>K>K>K>K>K>K>@7>7? z U"4CSst @\CSst$P7\CSst$07\CSst$7\CSst#7\CS st#7\ CS st#7\ CSst#7\CSst#p7\CSst#P7\CSst#07\CSst#7\CSst"7\CSst"7\CSst"7\CSst"7\CS st"p7\ CS"st"P7\"CS$st"07\$CS&st"7\&CS(st!7\(CS*st!7\*CS,st!7\,CS.st!7\.CS0st!p7\0CS2st!P7\2CS4st!07\4CS6st!7\6CS8st 7\8CS:st 7\:CSst 7\>7Z@UCS`S7>` x  09CSsy;7??7Z@4@k?K? Yw`K?  B}?6? z @ JYӵCS hu YCSbYh+`46ӵCS ` Bsu  YCSY6?44`p z+`46@  Bs Bt ҔBs 6 h>7ZK?@K? Yw`K?@4 CY+`46 C4ғ Btғu  y YY]4`h+`46  Bs Bt ҔBs 6 h 79?@\k?TJ `@@7Jk?6k?6J _54B8Jk?6k?6_-J K>@7?k?ok? k?k?k?!k?)k?1CFI^MGD44(4#A@x7Z P4?h h+`H3` @@@U4?  4Sdtd@4+`48+`47 @sbP@s@s  BsbB jt@s Bs jt  SdM6 b`h \K>K? K?K?K?!K?)K?1@O?CVC5+`44 buҵ+`43 u @b+`H3`!44+`47+`46 bt bt6_ 44+`48+`476@  bt 6_bu44+`48+`476@  bt 6_bu+`454b+`44b4bb4bb4bb+`4h3@Ku>!Ks>) k?k?7k?k?k?!D+TJ ` +`4?j c=H8"hC+H3 6s `@@@@@@@@h@@@X@`@@@@@"a(6c "a6c "a6c "a6c "a6c "a6c 0"a6c P"a6c "ah6c "aP6c "a86c "a 6c C"a6c +`h 7=#!79 @_X+`H3` @Z+E^4 @#A7Z h^a4 @d 7=+C^14y @#A7Z h4y @^ 4Bp (+`H3ZV}Bd (+`H37=VEBKK? @O?k?+H3 ` 74_h3 K?Y@7?X XH\x&X&&&'''' '$*$ 0*(+X+\++++++, ,,,,0,L,P,l,p,,,,,-X----.H.L0h 2h223x3|334 47 79H 9L:`:d::= =>  >$>>>>?t?x??A AAPBBBF XFPFFPPRRRR\$ \(^^_l_p` `$`|`aaabbceP0eTeef ffff&@ , $0p 0 xF b e e @@ /lib/dld.slERROR couldn't open dld.slERROR reading dld.slERROR bad magic number/system id for dld.slERROR bad dld.sl hpux aux header (text) (data) (bss)crt0: errno: @$Header: mapdld.c,v 70.3 92/02/05 16:07:02 ssa Exp $ERROR: mmap failed for dldF8e102&@b-@281-1,,01H01`12 F -(0012P11011x,e@libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19__do_global_dtors:F19_exit_dummy_ref:G29=*1__do_global_ctors:F19__main:F19end_file.libgcc2.c/users/mark/gcc-2.6.3/./libgcc2.cint:t1=r1;-2147483648;2147483647;char:t2=r2;0;127;long int:t3=r1;-2147483648;2147483647;unsigned int:t4=r1;0;-1;long unsigned int:t5=r1;0;-1;long long int:t6=r1;01000000000000000000000;0777777777777777777777;long long unsigned int:t7=r1;0000000000000;01777777777777777777777;short int:t8=r1;-32768;32767;short unsigned int:t9=r1;0;65535;signed char:t10=r1;-128;127;unsigned char:t11=r1;0;255;float:t12=r1;4;0;double:t13=r1;8;0;long double:t14=r1;8;0;complex int:t15=s8real:1,0,32;imag:1,32,32;;complex float:t16=r16;4;0;complex double:t17=r17;8;0;complex long double:t18=r18;8;0;void:t19=19cmp_type:T20=eCMP_SI:0,CMP_SF:1,CMP_DF:2,CMP_MAX:3,;reg_class:T21=eNO_REGS:0,R1_REGS:1,GENERAL_REGS:2,FP_REGS:3,GENERAL_OR_FP_REGS:4,SHIFT_REGS:5,ALL_REGS:6,LIM_REG_CLASSES:7,;hppa_args:T22=s8words:1,0,32;nargs_prototype:1,32,32;;machine_mode:T23=eVOIDmode:0,QImode:1,HImode:2,PSImode:3,SImode:4,PDImode:5,DImode:6,TImode:7,OImode:8,QFmode:9,HFmode:10,TQFmode:11,SFmode:12,DFmode:13,XFmode:14,TFmode:15,SCmode:16,DCmode:17,XCmode:18,TCmode:19,CQImode:20,CHImode:21,CSImode:22,CDImode:23,CTImode:24,COImode:25,BLKmode:26,CCmode:27,CCFPmode:28,MAX_MACHINE_MODE:29,;mode_class:T24=eMODE_RANDOM:0,MODE_INT:1,MODE_FLOAT:2,MODE_PARTIAL_INT:3,MODE_CC:4,MODE_COMPLEX_INT:5,MODE_COMPLEX_FLOAT:6,MAX_MODE_CLASS:7,;ptrdiff_t:t1size_t:t4wchar_t:t4UQItype:t11SItype:t1USItype:t4DItype:t6UDItype:t7SFtype:t12DFtype:t13word_type:t1DIstruct:T25=s8high:1,0,32;low:1,32,32;;DIunion:t26=u8s:25,0,64;ll:6,0,64;;func_ptr:t27=*28=f19_exit_dummy_decl:G1end_file.- de"de.PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1$eG ^$ft$ff*P df"df.PbHfӀ+FbĀAxƀT`akv456789:€Fπm.1 6Ef*P df"df.PbHfӀ+Fbslang-0.99.12/004075500000000000003000000000000611265631600126465ustar00rootsys00000000000000slang-0.99.12/COPYING000064400000000000003000000023660603742321000136730ustar00rootsys00000000000000S-Lang is not free software --- it is copyrighted. However, it may be used for any purpose without royalty or fees in accordance with the terms of the copyright. It may distributed under either the GNU General public license or under the Perl ``Artistic'' License. See COPYING.GPL and COPYING.ART for more details. ----------------------------------------------------------------------------- Copyright (c) 1992, 1995 John E. Davis All rights reserved. You may distribute under the terms of either the GNU General Public License or the Perl Artistic License. IN NO EVENT SHALL JOHN E. DAVIS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF JOHN E. DAVIS HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. JOHN E. DAVIS SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" BASIS, AND JOHN E. DAVIS HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. ----------------------------------------------------------------------------- EVEN IF JOHN E. DAVIS HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. JOHN E. DAVIS SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED slang-0.99.12/COPYING.GPL000064400000000000003000000430770603742321000143200ustar00rootsys00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License 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 General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. opyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use tslang-0.99.12/COPYING.ART000064400000000000003000000137360603742321000143230ustar00rootsys00000000000000 The "Artistic License" Preamble The intent of this document is to state the conditions under which a Package may be copied, such that the Copyright Holder maintains some semblance of artistic control over the development of the package, while giving the users of the package the right to use and distribute the Package in a more-or-less customary fashion, plus the right to make reasonable modifications. Definitions: "Package" refers to the collection of files distributed by the Copyright Holder, and derivatives of that collection of files created through textual modification. "Standard Version" refers to such a Package if it has not been modified, or has been modified in accordance with the wishes of the Copyright Holder as specified below. "Copyright Holder" is whoever is named in the copyright or copyrights for the package. "You" is you, if you're thinking about copying or distributing this Package. "Reasonable copying fee" is whatever you can justify on the basis of media cost, duplication charges, time of people involved, and so on. (You will not be required to justify it to the Copyright Holder, but only to the computing community at large as a market that must bear the fee.) "Freely Available" means that no fee is charged for the item itself, though there may be fees involved in handling the item. It also means that recipients of the item may redistribute it under the same conditions they received it. 1. You may make and give away verbatim copies of the source form of the Standard Version of this Package without restriction, provided that you duplicate all of the original copyright notices and associated disclaimers. 2. You may apply bug fixes, portability fixes and other modifications derived from the Public Domain or from the Copyright Holder. A Package modified in such a way shall still be considered the Standard Version. 3. You may otherwise modify your copy of this Package in any way, provided that you insert a prominent notice in each changed file stating how and when you changed that file, and provided that you do at least ONE of the following: a) place your modifications in the Public Domain or otherwise make them Freely Available, such as by posting said modifications to Usenet or an equivalent medium, or placing the modifications on a major archive site such as uunet.uu.net, or by allowing the Copyright Holder to include your modifications in the Standard Version of the Package. b) use the modified Package only within your corporation or organization. c) rename any non-standard executables so the names do not conflict with standard executables, which must also be provided, and provide a separate manual page for each non-standard executable that clearly documents how it differs from the Standard Version. d) make other distribution arrangements with the Copyright Holder. 4. You may distribute the programs of this Package in object code or executable form, provided that you do at least ONE of the following: a) distribute a Standard Version of the executables and library files, together with instructions (in the manual page or equivalent) on where to get the Standard Version. b) accompany the distribution with the machine-readable source of the Package with your modifications. c) give non-standard executables non-standard names, and clearly document the differences in manual pages (or equivalent), together with instructions on where to get the Standard Version. d) make other distribution arrangements with the Copyright Holder. 5. You may charge a reasonable copying fee for any distribution of this Package. You may charge any fee you choose for support of this Package. You may not charge a fee for this Package itself. However, you may distribute this Package in aggregate with other (possibly commercial) programs as part of a larger (possibly commercial) software distribution provided that you do not advertise this Package as a product of your own. You may embed this Package's interpreter within an executable of yours (by linking); this shall be construed as a mere form of aggregation, provided that the complete Standard Version of the interpreter is so embedded. 6. The scripts and library files supplied as input to or produced as output from the programs of this Package do not automatically fall under the copyright of this Package, but belong to whomever generated them, and may be sold commercially, and may be aggregated with this Package. If such scripts or library files are aggregated with this Package via the so-called "undump" or "unexec" methods of producing a binary executable image, then distribution of such an image shall neither be construed as a distribution of this Package nor shall it fall under the restrictions of Paragraphs 3 and 4, provided that you do not represent such an executable image as a Standard Version of this Package. 7. C subroutines (or comparably compiled subroutines in other languages) supplied by you and linked into this Package in order to emulate subroutines and variables of the language defined by this Package shall not be considered part of this Package, but are the equivalent of input as in Paragraph 6, provided these subroutines do not change the language in any way that would cause it to fail the regression tests for the language. 8. Aggregation of this Package with a commercial distribution is always permitted provided that the use of this Package is embedded; that is, when no overt attempt is made to make this Package's interfaces visible to the end user of the commercial distribution. Such use shall not be construed as a distribution of this Package. 9. The name of the Copyright Holder may not be used to endorse or promote products derived from this software without specific prior written permission. 10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. The End is Package's interfaces visible toslang-0.99.12/COPYRIGHT000064400000000000003000000014070603742321000141260ustar00rootsys00000000000000 Copyright (c) 1992, 1995 John E. Davis All rights reserved. You may distribute under the terms of either the GNU General Public License or the Perl Artistic License. IN NO EVENT SHALL JOHN E. DAVIS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF JOHN E. DAVIS HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. JOHN E. DAVIS SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" BASIS, AND JOHN E. DAVIS HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. CIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF JOHN E. DAVIS HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. JOHN E. DAVIS SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT slang-0.99.12/README000064400000000000003000000032150603742321000135120ustar00rootsys00000000000000 ----- S-Lang README file and installation instructions ------ If you wish to be on the S-Lang mailing list, simply send me an email with your email address. I use the mailing list to announce new releases of S-Lang and to report any bugs. Send an email to: davis@space.mit.edu ------------------------------------------------------------------------------ Installation instructions. Building the S-Lang library requires a C compiler that understands function prototypes. On SunOS, you will need gcc. S-Lang has been successfully compiled and tested on many platforms and OSs (Unix/VMS/PC-MSDOS/OS2). There are at least 4 makefiles included in the distribution: makefile.unx Unix makefile.dos MS-DOS (Borland BCC specific) makefile.os2 OS2 makefile makefile.djg DJGPP (GO32) specific vmsmake.com VMS DCL command procedure deccmake.com Use this for the DEC ALPHA As usual, look at the relavent makefile and edit it as required for your system. On VMS, just type `@vmsmake' or if you have gcc, type `@vmsmake gcc'. For VMS ALPHA systems with DEC C, use `@deccmake'. For non-VMS systems, copy the appropriate makefile.xxx to `makefile'. Then after editing it, simply type `make'. The library comes with a sample program called calc. Once you have successfully built the S-Lang library, simply type `make calc' to build the sample application. This step is not necessary if you are running VMS. Also to browse the online documentation, create the help file reader in the help directory. Finally not that some Unix systems do not have `ranlib'. If you see an error indicating this fact, simply ignore it. ropriate makefile.xxx to `makefile'. Then after editing it, simply type `make'. The library comes with a sample program called calc. Once you have successfully built the S-Lang library, simply type `make calc' to build the sample application. This step is not necessary if you are running VMS. Also to browse the online documentation, create the help file reader inslang-0.99.12/changes.txt000064400000000000003000000322660603742321100150140ustar00rootsys00000000000000Changes since 0.99.20 1. Problem on some VMS systems which lack prototype for atof fixed. 2. New function: SLtt_set_mouse_mode. This is used to turn on/off mouse reporting on Unix and VMS systems. 3. The terminal type `linux' is now recognized by the SLtt interface--- even if there is no termcap/terminfo entry for it. Changes since 0.99.19 1. User definable types must now have object identification numbers larger than 127. The lower limit used to be 100 but this comflicts with many applications (as well as slang itself) using lower case letters as the object number, e.g., create_array ('s', 10, 1); which creates an array of 10 strings (object number 's' = 115). 2. New intrinsic: array_info available. 3. regular expression matching bug involving \{m,n\} expressions fixed. 4. New module: slprepr.c. This gives programs the ability to use the slang preprocessor. 5. News slsmg functions: SLsmg_suspend_smg () and SLsmg_resume_smg (). These are designed to be used before and after suspension. The SLsmg state is remembered and a redraw is performed by the resume_smg function. 6. The function `sltty_set_suspend_state' is now available for Unix systems. It may be used to turn on/off processing of the suspend character by the terminal driver. 7. If SLtt_Try_Termcap is 0, the TERMCAP variable will not be parsed. 8. SLang_TT_Read_FD variable is now available for unix. This is the file descriptor used by SLang_getkey. 9. New preprocessor symbols available: SLMATH : If math functions are available SLUNIX : If unix system calls are available SLFILES : Stdio functions available FLOAT_TYPE : Floating point version Changes since 0.99.18 1. New intrinsic function: strcompress. This collapses a string by removing repeated characters. For example, define collapse (f) { while (str_replace (f, " ", ",")) f = (); return strcompress (f, ","); } collapse (", ,a b c ,,,d e,f "); returns: "a,b,c,d,e,f" 2. QNX support added. 3. New Functions (unix only): SLtt_tgetstr, SLtt_tgetnum, SLtt_tgetflag. 4. Fixed parsing of Octal and Hex numbers so that incorrect values are flagged as errors. Also, both lower and uppercase values may be used in HEX numbers, e.g., 0xa == 0XA == 0Xa == 0xA. 5. MS-Windows support added. Compile using makefile.msw. This creates `wslang.lib'. 6. New SLsmg functions: SLsmg_get_row, SLsmg_get_column. These return the current position. Changes since 0.99.17 1. I have added limited termcap support although slang is still a terminfo based system. The support is provided via the TERMCAP environment variable. If this variable exists and contains a termcap entry for which there is no reference to another entry (via tc field), it will be used to setup the terminal. If the TERMCAP variable does not exist, or it refers to a file, terminfo is used instead. This is not really a limitation since one can set this variable in a way that slang likes by using `tset -s'. The motivation for this support is two-fold: a. Slang programs can now run inside the screen program which sets the TERMCAP variable appropriately. b. A user can now correct defective termcap entries (e.g., for Linux), and have those corrections made available to slang via the `tset' command, e.g., by putting something analogous to: setenv TERMCAP /corrected/termcap/file/absolute/path/name eval `tset -s terminal-name` in the .login file. c. This also means that I can distribute corrected termcap entries for common terminals. Changes since 0.99.16 1. Inadequate terminfo entries for `linux' terminal are compensated for. 2. Terminals with the ``Magic cookie glitch'' are flagged as having an unusable highlighting mode. changes since 0.99.15 1. Better checking of parameters passed to search routines. 2. Problem with line drawing characters fixed. changes since 0.99.14 1. Ran code through purify. Fixed one problem reported in slkeymap.c 2. Fixed a bug in sldisply.c regarding mono-attributes. 3. Code ready for ELF changes since 0.99.13 1. SLtt_Has_Alt_Charset variable added to xterm.c. This is motivated by the sad, pathetic fact that although some termcap/terminfo databases suggest that the terminal can do line drawing characters, the terminal cannot. 2. SLsmg_write_nstring function added. This function may be used to write only n characters of a string padding wit hblanks if necessary. 3. If the environment variable COLORTERM exist, SLtt_get_terminfo will set SLtt_Use_Ansi_Colors to 1. 4. Sltt_set_cursor_visibility function added. If passed a zero integer value, the cursor is hidden; otherwise, it is made visible. changes since 0.99.12 1. SLsmg now uses the `te' and `ti' termcap entries if present. Apparantly some terminals need to be put in cursor addressing mode. This also has the effect of restoring the screen of the xterm to what it was before the program was executed. 2. For some types of code, slang is 20% faster! This is especially noticeable for branching constructs inside tight loops or recursive functions. changes since 0.99.10 1. New version control added: A new preprocessor symbol was added: SLANG_VERSION This is a 6 digit integer of the form: abcdef This corresponds to version number ab.cd.ef. So for version 0.99.11: #define SLANG_VERSION 9911 In addition, the intrinsic variable `SLang_Version' was changed from a string to an integer that has the value SLANG_VERSION. This also implies that the interpreter variable _slang_version is now an integer. changes since 0.99.9 1. The terminfo code failed to recognize the automatic margin flag. This has been corrected. In addition, the display code nolonger resets the character set upon initialization. This is considered to be a good thing. 2. There is a new program in slang/doc called `texconv' that will produce a nicely formatted ascii document from the tex formatted ones. In addition, new documentation has been added: slang.tex which describes the syntax of the slang programming language and cslang.tex which describes the C interface to the library. The latter document is far from complete but it is a start. 3. A new variable declaration keyword has beed added: global_variable This keyword is useful for declaring global variables from within functions. Such a feature simplifies some scripts. 4. The SLsmg line drawing functions are now in place. changes since 0.99.8 1. \d may now be used in regular expressions to specify a digit. In addition, \e specifies an escape character. So for example, `\e\[\d;\dH' matches an ANSI cursor position escape sequence. 2. Small bug in dealing with terminals that have automatic margins has been fixed. 3. When compiled with -DSLANG_TERMINFO will use terminfo. This means that there is no need to link to termcap. changes since 0.99.7 1. New function added to the readline package: int SLang_rline_insert (char *s); this may be used to stuff strings into the rline buffer. SLSC exploits this feature. changes since 0.99.6 1. ALL macros beginning with LANG have been changed to use SLANG as the prefix. For example, the macro LANG_IVARIABLE has been renamed to SLANG_IVARIABLE. If you have used one of these macros, please make the change. 2. Application defined types. See demo/complex.c for an example that defines complex numbers and overloads the binary and unary operators to work with them. changes since 0.99.5 1. New interface for application defined objects. Functions include: extern SLuser_Object_Type *SLang_pop_user_object (unsigned char); extern void SLang_free_user_object (SLuser_Object_Type *); extern void SLang_push_user_object (SLuser_Object_Type *); extern SLuser_Object_Type *SLang_create_user_object (unsigned char type); This means that S-Lang scripts do not have to worry about freeing structures, arrays, etc... A consequence of this fact is that the intrinsic function `free_array' has been removed. See examples of this exciting new feature in slang/demo. 2. Better documentation and examples. See slang/doc/*.* as well as examples in slang/demo. 3. Memory allocation macros have changed from MALLOC to SLMALLOC, etc... Applications are encouraged to use these rather than `malloc' because by compiling your application AND the slang library with the -DMALLOC_DEBUG will link in code that checks if you have corrupted memory, freed something twice, etc... Use the function `SLmalloc_dump_statistics' for a report of memory consumption by your program. changes since 0.99.4 1. cleaned up the source some and I changed the names of the hooks user_whatever to `SLang_User_Whatever'. This makes them more consistent with other external functions and variables and helps avoid name space pollution. changes since 0.99.3 * added screen management stuff * added a new help file reader (see help directory) * DOUBLE precision is now the default. I think that this makes more sense for an interpreted langauge. * searching routines added. changes since 0.99.2 * added low level tty support for VMS, DOS, and Unix * slang readline added * keymap support * files restructured so that programs can link, say, the readline library and not get the whole interpreter linked in. changes since 0.99.1 * obscure bug in regular expression fixed * optimizing performed for 10% speed increase in speed for some language constructs changes since 0.99.0 * semantics of the `switch' statement changed to be more C-like with the addition of the `case' keyword. For example, one can write: switch (ch) { case 'A': something (); } { case 'B': something_else (); } { case 3.14: print ("Almost PI"); } { case "hello": print ("hi"); } Note that one may mix data types without the possibility of a type mismatch error. changes since 0.98: * matrix package added. Currently only matrix multiplication and addition is supported. More functions will be added (determinants, inverse, etc..) This support is provided by the `init_SLmatrix ()' call. This support provides the following S-Lang intrinsics: matrix_multiply, matrix_add * New S-Lang core intrinsic: copy_array : copys the contents of one array to another changes since 0.97: * Double precision floating point supported. Use the -DFLOAT_TYPE -DUSE_DOUBLE compiler flags to enable this. Note that S-Lang does not support single precision and double precision floating point number SIMULTANEOUSLY. You must choose one or the other and stick with it! * Byte compiling is now more than simple preprocessing. This results in about a 20% decrease in loading time. This also means that if you rebuild your application, you MUST re-bytecompile. * New syntax added: Consider a function f that returns multiple values. Then to assign these values to, say var_1, and var_2, simply write: (var_1, var_2) = f (); This is an alternative to: f (); =var_2; =var_1; Changes since 0.96: It is now possible to use short circuit boolean evaluation of logical expressions is the `orelse' and `andelse' constructs. Previously, these constructs were only available at the infix level. The new syntax looks like (example taken from JED's rmail.sl): if (orelse {re_bsearch("^\\CFrom:.*<\\(.+\\)>");} {re_bsearch("^\\CReply-To: *\\([^ ]+\\) *");} {re_bsearch("^\\CFrom:.*<\\(.+\\)>");} {re_bsearch("^\\CFrom: *\\([^ ]+\\) *");} {re_bsearch("^\\cFrom +\\([^ ]+\\) *");} ) { from = rmail_complex_get_from(from); } Modified some of the array code to use handles to arrays instead of actual arrays. This adds alot more protection for the use of arrays. The downside is that there is a limit on the number of active arrays. This limit has been set to a default value ot 256. An ``active'' array is an array that has been created but not freed. Fixed a parse error that occurred when an `if' statement imediately follow the `:' in a switch statement. putenv intrinsic added. EXIT_BLOCK: if an exit block is declared, it is called just before the function returns to its caller. It is now possible to perform assignments in variable declaration statements, e.g., variable i = 0, imax = 10, n = strlen (name); Condition compilation of S-Lang source possible. See .sl files in the jed distribution. A bug which prevent assignment to a global C floating point variable was fixed. Changes to `calc': `apropos' function added to calc.sl. For example, `apropos("str")' creates a list of all intrinsic functions that contain the substring "str" (strcmp, strcat, etc...) Command line arguments are now loaded as S-Lang source files. This makes it possible to create a Unix executable such as: #! /usr/local/bin/calc define hello_world () { print ("hello world"); } loop (10) hello_world (); quit (); loating point variable was fixed. Changes to `calc': `apropos' function added to calc.sl. For example, `apropos("str")' creates a list of all intrinsic functions that contain the substring "str" (strcmp, strcat, etc...) Command line arguments are now loaded as S-Lang source files. This makes slang-0.99.12/demo/004075500000000000003000000000000611265631500135715ustar00rootsys00000000000000slang-0.99.12/demo/README000064400000000000003000000032320603742321100144360ustar00rootsys00000000000000What's here? Each C file in this directory are heavily commented examples that illustrate only one or two S-Lang features. Each C file is accompanied by a .sl file that contains S-Lang code relevant to the example. If you find these demos confusing, please let me know so I can work on improving them. Please note that these demos WILL NOT WORK under msdos unless the S-lang library is compiled with the -DFLOAT_TYPE option. --------------------------------------------------------------------------- simple.c: This file contains slightly more than the miniumum required to embed S-Lang. It loads a file specified on the command line. simple.sl: An S-Lang script that prompts for a filename and returns information about the file. Use this with the `simple' executable. array.c: This example shows how to embed a C array into S-Lang allowing access to the array from a S-Lang script. array.sl: This script reads and writes the array specified in array.c. useropen.c This example shows how to specify an object that S-Lang will interpret. S-lang already knows how to interpret code contained in strings and files. Interpreting code from a `readline' structure is illustrated here. The demo in ../src/calc.c uses this technique to interpret data from S-Lang's readline routines. complex.c Adding an application defined data type is the focus of this example. Specifically, a complex number type is added and the binary and unary operators are overloaded to work with the new type. complex.sl A script that manipulates the complex number type defined in complex.c. iles. Interpreting code from a `readline' structure is illustrated here. The demo in ../src/calc.c uses this technique to interpret data from S-Lang's readline routines. complex.c Adding an application defined data type is the focus of this example. Specifically, a complex number type is added and the binary and unary slang-0.99.12/demo/array.sl000064400000000000003000000010510603742321100152310ustar00rootsys00000000000000% Used by the array demo. define init_array (a, n) { variable i; for (i = 0; i < n; i++) a[i] = i; } define sum_elements (a, n) { variable sum = 0.0; variable i; for (i = 0; i < n; i++) sum = sum + a[i]; return sum; } % The C array is called Vector. */ init_array (Vector, 100); % This will do a formatted print--- if you understand it, you understand % S-Lang define printf (n) { variable str = Sprintf (n); fputs (str, stdout); pop (); } printf ("Sum of elements is: %f\n", sum_elements (Vector, 100), 1); quit (); ray (a, n) { variable i; for (i = 0; i < n; i++) a[i] = i; } define sum_elements (a, n) { variable sum = 0.0; variable i; for (i = 0; i < n; i++) sum = sum + a[i]; return sum; } % The C array is called Vector. */ init_array (Vector, 100); % This will do a formatted print--- if you understand it, you understand % S-Lang define printf (n) { variable str = Sprintf (n); fputs (str, stdout); pop (); } printf ("Sum of elements is: %f\n", suslang-0.99.12/demo/array.c000064400000000000003000000047560603742321100150540ustar00rootsys00000000000000/* Demonstrates how to create C arrays that are callable from S-Lang */ #include #include "slang.h" /* Here is a global C array that will be accessed from S-Lang */ FLOAT C_Array[100]; /* An intrinsic function to set error */ static void c_error (char *s) { if (SLang_Error == 0) SLang_Error = INTRINSIC_ERROR; fprintf (stderr, "Error: %s\n", s); } /* Function to quit */ static void c_quit (void) { exit (0); } /* Create the Table that S-Lang requires */ SLang_Name_Type Demo_Intrinsics[] = { MAKE_INTRINSIC(".error", c_error, VOID_TYPE, 1), MAKE_INTRINSIC(".quit", c_quit, VOID_TYPE, 0), SLANG_END_TABLE }; int main (int argc, char **argv) { char *file; if (argc != 2) { fprintf (stderr, "Usage: %s FILENAME\n", argv[0]); exit (-1); } file = argv[1]; /* Initialize the library. This is always needed. */ if (!init_SLang() /* basic interpreter functions */ || !init_SLmath() /* sin, cos, etc... */ #ifdef unix || !init_SLunix() /* unix system calls */ #endif || !init_SLfiles() /* file i/o */ /* Now add intrinsics for this application */ || !SLang_add_table(Demo_Intrinsics, "Demo")) { fprintf(stderr, "Unable to initialize S-Lang.\n"); exit(-1); } /* Now declare the array to S-Lang. Lets let it be known 2 ways: * 1. As a read/write array called: Vector * 2. As a read-only array called: Vector_Read_Only */ if ((NULL == SLang_add_array ("Vector", /* slang name */ (long *) C_Array, /* location of the array */ 1, /* number of dimensions */ 100, /* number of elements in X direction */ 0, 0, /* Number in Y and Z directions */ 'f', /* FLoating point array */ SLANG_IVARIABLE)) /* Read/Write array */ || (NULL == SLang_add_array ("Vector_Read_Only", /* slang name */ (long *) C_Array,/* location of the array */ 1, /* number of dimensions */ 100, /* number of elements in X direction */ 0, 0, /* Number in Y and Z directions */ 'f', /* FLoating point array */ SLANG_RVARIABLE))) /* Readonly array */ { fprintf(stderr, "Failed to add arrays\n"); exit (-1); } /* Code here to do something in C to the arrays, e.g., initialize them */ /* Turn on debugging */ SLang_Traceback = 1; /* Now load an initialization file and exit */ SLang_load_file (file); return (SLang_Error); } number of elementsslang-0.99.12/demo/complex.sl000064400000000000003000000020700603742321100155640ustar00rootsys00000000000000% Test of complex numbers define print (z_str) { variable z = eval (z_str); fputs (Sprintf ("%s = %s\n", z_str, string (z), 2), stdout); pop (); } % Here is a function which returns the length and angle of z. Note that it % uses the 'sign' function which has been overloaded to return a value which % indicates whether or not the number is in the upper complex plane. define polar_form (z) { variable x, y, r, theta; x = Real(z); y = Imag(z); r = abs (z); if (x == 0.0) theta = PI / 2; else theta = atan (y / x); theta = sign (z) * theta; if (theta < 0) theta = 2 * PI + theta; return (r, theta); } variable z = Complex (3, 4); print ("z"); print ("Real(z)"); print ("Imag(z)"); print ("Complex (polar_form(z)) %(r, theta)"); print ("Complex (polar_form(-z)) %(r, theta)"); print ("z"); print ("z + 2"); print ("z + 4.0"); print ("z + Complex(0, 1)"); print ("-z"); print ("z * z"); print ("z * 5 + 10"); print ("z / 3"); print ("z / Complex(2,2)"); print ("abs (z)"); variable w = z / 3; print ("w"); print ("z + w"); z) * theta; if (theta < 0) theta = 2 * PI + theta; return (r, theta); } variable z = Complex (3, 4); print ("z"); print ("Real(z)"); print ("Imag(z)"); print ("Complex (polar_form(z)) %(r, theta)"); print ("Complex (polar_form(-z)) %(r, theta)"); print ("z"); print ("z + 2"); print ("z + 4.0"); print ("z + Complex(0, 1)"); print ("-z"); print ("z * z"); print ("z * 5 + 10"); print ("z / 3"); print ("z / Complex(2,2)"); print ("abs (z)"slang-0.99.12/demo/complex.c000064400000000000003000000246350603742321200154040ustar00rootsys00000000000000/* This demo illustrates how to add a new type to S-lang's built-in types. * In particular, a complex type will be added. */ /* The usual include files */ #include #include #include #ifndef NO_STDLIB_H #include #endif #include "slang.h" /* Here is the complex variable type structure. There is nothing mysterious * here. */ typedef struct { double real_part; double imag_part; } Complex_Type; /* Since we are creating an application defined type, we must assign it a * type number. S-Lang reserves numbers less than 128 for itself. Here, * we will just use 128. This number will be used when interacting with * the S-Lang API. */ #define COMPLEX_NUMBER 128 /* Here is a creation function for the Complex_Type objects. Note that I am * using the S-Lang macros for malloc and free. */ static SLuser_Object_Type *create_complex_number (double rx, double ix) { Complex_Type *z; SLuser_Object_Type *u; z = (Complex_Type *) SLMALLOC (sizeof (Complex_Type)); if (z != NULL) { z->real_part = rx; z->imag_part = ix; /* Now we have to create a user defined object to pass this back to the * interpreter. */ u = SLang_create_user_object (COMPLEX_NUMBER); if (u != NULL) { u->obj = (long *) z; return u; } /* failure */ SLFREE (z); } SLang_Error = SL_MALLOC_ERROR; return NULL; } /* This function will be called from S-lang to delete the complex number. * Since we only malloced it, we just free what was malloced. */ static void destroy_complex_number (Complex_Type *z) { SLFREE (z); } /* Now the following function will be called from S-Lang (see below) to * create a complex number. The number might be created from 2 integers, 2 * floats, or an int and a float. Slang will call this function when the * user uses something like: variable z = complex (3.1, 4.2); */ static void complex (void) { double xr, xi; int int_x, convert_flag; SLuser_Object_Type *z; /* The imaginary part will be on the top of the stack so lets pop it * first. */ if (SLang_pop_float (&xi, &int_x, &convert_flag)) return; /* Here convert_flag will be non-zero if an integer has been converted to * a float by the above routine. Here we do not care so we will just * use x and not ix. */ if (SLang_pop_float (&xr, &int_x, &convert_flag)) return; z = create_complex_number (xr, xi); if (z == NULL) return; SLang_push_user_object (z); } /* The following function is a little helper routine for the one following * it */ static void perform_conversion (unsigned char type, VOID *ap, double *r, double *i) { Complex_Type *z; if (type == COMPLEX_NUMBER) { z = (Complex_Type *) ap; *r = z->real_part; *i = z->imag_part; } else if (type == FLOAT_TYPE) { *r = *(double *) ap; *i = 0.0; } else /* INT_TYPE */ { *r = (double) *(int *) ap; *i = 0.0; } } /* This function will be called by S-Lang to perform binary operations on the * complex number. We only have to worry about complex, integers, and floats. * The last function 'perform_conversion' takes care of the typecasts. Note, * we could define 3 functions to do the work of this one: * * complex = complex op integer (or: integer op complex) * complex = complex op double (or: double op complex) * complex = complex op complex * * However, it is easy to handle it all in a single function. */ static int complex_binary (int op, unsigned char a_type, unsigned char b_type, VOID *ap, VOID *bp) { double a_real, a_imag, b_real, b_imag, z_real, z_imag; double hypot; SLuser_Object_Type *z; perform_conversion (a_type, ap, &a_real, &a_imag); perform_conversion (b_type, bp, &b_real, &b_imag); switch (op) { case SLANG_PLUS: /* + */ z_real = a_real + b_real; z_imag = a_imag + b_imag; break; case SLANG_MINUS: /* - */ z_real = a_real - b_real; z_imag = a_imag - b_imag; break; case SLANG_TIMES: /* * */ z_real = a_real * b_real - a_imag * b_imag; z_imag = a_imag * b_real + a_real * b_imag; break; case SLANG_DIVIDE: /* / */ if ((b_real == 0.0) && (b_imag == 0.0)) { SLang_Error = DIVIDE_ERROR; return 1; } hypot = b_real * b_real + b_imag * b_imag; z_real = (a_real * b_real + a_imag * b_imag) / hypot; z_imag = (a_imag * b_real - a_real * b_imag) / hypot; break; case SLANG_EQ: /* == */ SLang_push_integer ((a_real == b_real) && (a_imag == b_imag)); return 1; case SLANG_NE: /* != */ SLang_push_integer ((a_real != b_real) || (a_imag != b_imag)); return 1; case SLANG_GT: /* > */ case SLANG_GE: /* >= */ case SLANG_LT: /* < */ case SLANG_LE: /* <= */ default: /* Operations not defined on these numbers */ return 0; } z = create_complex_number (z_real, z_imag); if (z != NULL) SLang_push_user_object (z); return 1; } /* We also want our complex numbers to participate in some unary operations * as well. This function takes care of that. This function also extends * some of the usual unary functions to complex numbers in a natural way. */ static int complex_unary (int op, unsigned char type, Complex_Type *z) { double x, y; int i; SLuser_Object_Type *uz; /* Note: here type is not used since this function only applies to complex * numbers. */ (void) type; x = z->real_part; y = z->imag_part; switch (op) { case SLANG_CHS: /* z = -z */ x = -x; y = -y; break; case SLANG_SQR: /* Normally sqr(x) produces x * x. Lets be creative and return * the norm of z squared (|z|^2). */ SLang_push_float (x * x + y * y); return 1; case SLANG_MUL2: /* multiply by 2: mul2(z) */ x = x * 2.0; y = y * 2.0; break; case SLANG_ABS: /* norm of z */ SLang_push_float (sqrt (x * x + y * y)); return 1; /* Another creative extension. Lets return an integer which indicates * whether the complex number is in the upperhalf plane or not. */ case SLANG_SIGN: if (y > 0.0) i = 1; else if (y < 0.0) i = -1; else i = 0; SLang_push_integer (i); return 1; default: /* Undefined */ return 0; } uz = create_complex_number (x, y); if (uz != NULL) SLang_push_user_object (uz); return 1; } /* We need some way of displaying the complex number in tracebacks, etc... * For this, S-Lang requires us to define a function that returns a * MALLOCED string. It will FREE it after use. Note: This function is * not required but it is nice. */ static char *complex_string (SLuser_Object_Type *u) { Complex_Type *z; char buf[128]; char *s; z = (Complex_Type *) (u->obj); sprintf (buf, "(%f,%f)", z->real_part, z->imag_part); s = (char *) SLMALLOC (strlen (buf) + 1); if (s != NULL) strcpy (s, buf); return s; } /* The necessary routines have been implemented above. Now, we call S-Lang * to register the new type. */ static int register_complex_type (void) { /* The first function call registers the new type and its function to * delete the type. Creating the type is handled differently. */ if (!SLang_register_class (COMPLEX_NUMBER, (VOID *) destroy_complex_number, (VOID *) complex_string)) return 0; /* Now define binary operators for this type. The binary operations * are between complex, float, and integer types. Note the comment * preceeding the complex_binary function. */ if (!SLang_add_binary_op (COMPLEX_NUMBER, COMPLEX_NUMBER, (VOID *) complex_binary) ||!SLang_add_binary_op (COMPLEX_NUMBER, FLOAT_TYPE, (VOID *) complex_binary) ||!SLang_add_binary_op (COMPLEX_NUMBER, INT_TYPE, (VOID *) complex_binary)) return 0; /* Finally, add the unary operator definition */ if (!SLang_add_unary_op (COMPLEX_NUMBER, (VOID *) complex_unary)) return 0; return 1; } /* Now lets define two functions to return the real and imaginary parts * of a complex number. This will illustrate how get objects from the * SLang stack. Note that you must call a S-Lang routine to free them * when you are finished with them. The reason that you have to free them * is because S-Lang did not pass them as arguments. */ static double real_part (void) { SLuser_Object_Type *u; Complex_Type *z; double x; if (NULL == (u = SLang_pop_user_object (COMPLEX_NUMBER))) return 0.0; z = (Complex_Type *) (u->obj); x = z->real_part; SLang_free_user_object (u); return x; } static double imag_part (void) { SLuser_Object_Type *u; Complex_Type *z; double y; if (NULL == (u = SLang_pop_user_object (COMPLEX_NUMBER))) return 0.0; z = (Complex_Type *) (u->obj); y = z->imag_part; SLang_free_user_object (u); return y; } /* Everthing below here is standard stuff. It consists of the intrinsic * table and main. */ /* Function to quit */ static void c_quit (void) { exit (0); } static void c_error (char *s) { if (SLang_Error == 0) SLang_Error = INTRINSIC_ERROR; fprintf (stderr, "Error: %s\n", s); } /* Create the Table that S-Lang requires */ SLang_Name_Type Demo_Intrinsics[] = { MAKE_INTRINSIC(".error", c_error, VOID_TYPE, 1), MAKE_INTRINSIC(".quit", c_quit, VOID_TYPE, 0), MAKE_INTRINSIC(".Real", real_part, FLOAT_TYPE, 0), MAKE_INTRINSIC(".Imag", imag_part, FLOAT_TYPE, 0), MAKE_INTRINSIC(".Complex", complex, VOID_TYPE, 0), SLANG_END_TABLE }; int main (int argc, char **argv) { char *file; /* parse command line arguments */ if (argc != 2) { fprintf (stderr, "Usage: %s FILENAME\n", argv[0]); exit (-1); } file = argv[1]; /* Initialize the library. This is always needed. */ if (!init_SLang() /* basic interpreter functions */ || !init_SLmath() /* sin, cos, etc... */ #ifdef unix || !init_SLunix() /* unix system calls */ #endif || !init_SLfiles() /* file i/o */ /* Now add intrinsics for this application */ || !SLang_add_table(Demo_Intrinsics, "Demo") /* register the complex type */ || !register_complex_type ()) { fprintf(stderr, "Unable to initialize S-Lang.\n"); exit(-1); } /* Turn on debugging */ SLang_Traceback = 1; /* Now load an initialization file and exit */ SLang_load_file (file); return (SLang_Error); } || !init_SLunix() /* unix system calls */ #endif || !init_SLfiles() /* file i/o slang-0.99.12/demo/makefile.dos000064400000000000003000000005660603742321200160520ustar00rootsys00000000000000# makefile for bcc under DOS. CFLAGS = -G- -H -N -O1 -w -ml -Dmsdos -DFLOAT_TYPE #CFLAGS = -N -v -H -w -ml -Dmsdos #-DFLOAT_TYPE CFLAGS = $(CFLAGS) -DHAS_MEMCMP -DHAS_MEMCHR CC = bcc OBJS = complex.obj EXEC = complex.exe SLIB = ..\src .c.obj: $(CC) -c $(CFLAGS) -I$(SLIB) $*.c complex: complex.obj $(CC) $(CFLAGS) -ecomplex.exe -L$(SLIB) complex.obj slang.lib (file); return (SLang_Error); } || !init_SLunix() /* unix system calls */ #endif || !init_SLfiles() /* file i/o slang-0.99.12/demo/makefile000064400000000000003000000015200603742321200152550ustar00rootsys00000000000000CFLAGS1 = -Dunix -DFLOAT_TYPE # -DNO_STDLIB_H CFLAGS = $(CFLAGS1) -DHAS_MEMSET -DHAS_MEMCPY #-DHAS_MEMCMP #-DHAS_MEMCHR #CC = cc -g #CC = gcc -O2 -Wall #CC = gcc -g -Wall -fstrict-prototypes #CC = gcc -O2 -traditional-cpp # <--- SunOS. #CC = cc +O3 -Aa -D_HPUX_SOURCE # <--- HP-UX CC = acc -Xa -vc SLIB = ../src EXECFILES = array simple useropen complex all: $(EXECFILES) simple: simple.c $(CC) $(CFLAGS) -I$(SLIB) simple.c -o simple -L$(SLIB) -lslang -lm array: array.c $(CC) $(CFLAGS) -I$(SLIB) array.c -o array -L$(SLIB) -lslang -lm useropen: useropen.c $(CC) $(CFLAGS) -I$(SLIB) useropen.c -o useropen -L$(SLIB) -lslang -lm complex: complex.c $(CC) $(CFLAGS) -I$(SLIB) complex.c -o complex -L$(SLIB) -lslang -lm pty: pty.c $(CC) $(CFLAGS) -I$(SLIB) pty.c -o pty -L$(SLIB) -lslang clean: /bin/rm -f *.o *~ $(EXECFILES) array simple useropen complex all: $(EXECFILES) simple: simple.c $(CC) $(CFLAGS) -I$(SLIB) simple.c -o simple -L$(SLIB) -lslang -lm array: array.c $(CC) $(CFLAGS) -I$(SLIBslang-0.99.12/demo/makefile.unx000064400000000000003000000013720603742321200160730ustar00rootsys00000000000000CFLAGS1 = -Dunix -DFLOAT_TYPE # -DNO_STDLIB_H CFLAGS = $(CFLAGS1) -DHAS_MEMSET -DHAS_MEMCPY #-DHAS_MEMCMP #-DHAS_MEMCHR #CC = cc -g #CC = gcc -O2 -Wall CC = gcc -g -Wall -fstrict-prototypes #CC = gcc -O2 -traditional-cpp # <--- SunOS. #CC = cc +O3 -Aa -D_HPUX_SOURCE # <--- HP-UX SLIB = ../src EXECFILES = array simple useropen complex all: $(EXECFILES) simple: simple.c $(CC) $(CFLAGS) -I$(SLIB) simple.c -o simple -L$(SLIB) -lslang -lm array: array.c $(CC) $(CFLAGS) -I$(SLIB) array.c -o array -L$(SLIB) -lslang -lm useropen: useropen.c $(CC) $(CFLAGS) -I$(SLIB) useropen.c -o useropen -L$(SLIB) -lslang -lm complex: complex.c $(CC) $(CFLAGS) -I$(SLIB) complex.c -o complex -L$(SLIB) -lslang -lm clean: /bin/rm -f *.o *~ $(EXECFILES) c +O3 -Aa -D_HPUX_SOURCE # <--- HP-UX SLIB = ../src EXECFILES = array simple useropen complex all: $(EXECFILES) simple: simple.c $(CC) $(CFLAGS) -I$(SLIB) simple.c -o simple -L$(SLIB) -lslang -lm array: array.c $(CC) $(CFLAGS) -I$(SLIB) array.c -o arrslang-0.99.12/demo/simple.c000064400000000000003000000027050603742321200152200ustar00rootsys00000000000000/* This is a simple demo that just loads a file and exits. */ #include #include "slang.h" /* Here are two intrinsics that the S-lang code can call. */ /* An intrinsic function to set error */ static void c_error (char *s) { if (SLang_Error == 0) SLang_Error = INTRINSIC_ERROR; fprintf (stderr, "Error: %s\n", s); } /* Function to quit */ static void c_quit (void) { exit (0); } /* Create the Table that S-Lang requires */ SLang_Name_Type Demo_Intrinsics[] = { MAKE_INTRINSIC(".error", c_error, VOID_TYPE, 1), MAKE_INTRINSIC(".quit", c_quit, VOID_TYPE, 0), SLANG_END_TABLE }; int main (int argc, char **argv) { char *file; /* parse command line arguments */ if (argc != 2) { fprintf (stderr, "Usage: %s FILENAME\n", argv[0]); exit (-1); } file = argv[1]; /* Initialize the library. This is always needed. */ if (!init_SLang() /* basic interpreter functions */ || !init_SLmath() /* sin, cos, etc... */ #ifdef unix || !init_SLunix() /* unix system calls */ #endif || !init_SLfiles() /* file i/o */ /* Now add intrinsics for this application */ || !SLang_add_table(Demo_Intrinsics, "Demo")) { fprintf(stderr, "Unable to initialize S-Lang.\n"); exit(-1); } /* Turn on debugging */ SLang_Traceback = 1; /* Now load an initialization file and exit */ SLang_load_file (file); return (SLang_Error); } _SLmath() /* sin, cos, etc... */ #ifdef unix || slang-0.99.12/demo/simple.sl000064400000000000003000000021500603742321300154070ustar00rootsys00000000000000% File that can be loaded by the 'simple' executable. define put_prompt () { fputs ("Enter filename or 'quit'> ", stdout); pop (); fflush (stdout); pop (); } % This is a trick--- simple if you understand S-Lang. define printf (n) { fputs (Sprintf (n), stdout); pop (); fflush (stdout); pop (); } define main () { variable file; variable vals = "dev,ino,mode,nlink,uid,gid,rdev,size,atime,mtime,ctime"; variable val, v, i; while (put_prompt(), fgets (stdin) > 0) { file = (); % Strip '\n' and whitespace off the end of the file file = strtrim (file); if ((0 == strcmp (file, "quit")) or (0 == strlen (file))) quit (); if (stat_file (file)) { printf ("Unable to stat %s\n", file, 1); continue; } % stat succeeds return information about the file. printf ("Stat system call for %s yields:\n", file, 1); for (i = 0; i < 11; i++) { val = extract_element (vals, i, ','); v = stat_struct (val); if (i > 7) printf ("\t%s:\t%d (%s)\n", val, v, unix_ctime(v), 3); else printf ("\t%s:\t%d\n", val, v, 2); } } } main (); , "quit")) or (0 == strlen (file))) quit (); if (stat_file (file)) { printf ("Unable to stat %s\n", file, 1); continue; } % stat succeeds return information about the file. printf ("Stat system call for %s yields:\n", file, 1); for (i = 0; i < 11; i++) { val = extract_element (vals, i, ','); v = stat_struct (val); if (i > 7) printf ("\t%s:\t%d (%s)\nslang-0.99.12/demo/useropen.c000064400000000000003000000104310603742321300155630ustar00rootsys00000000000000/* This demo indicates how to read and parse a S-Lang file by bypassing the * built-in routines. */ #include #include #include "slang.h" /* Suppose that you want to read input using a read line package * such as one provided by S-Lang. For generality, lets assume that this * function is called 'readline' and it is prototyped as: * int readline (char *prompt, char *buffer); * where it returns the number of characters read and -1 if end of file. The * first parameter is a prompt and the second represents the buffer where the * characters is read. Also assume that this routine requires that the * function 'init_readline' be called first before it can be used and * 'reset_readline' must be called after using it. * * The goal here is to get S-Lang to call the readline function. */ /* For the purposes of this demo, we will use just fgets */ int readline (char *prompt, char *buf) { fputs (prompt, stdout); fflush (stdout); if (NULL == fgets (buf, 255, stdin)) return -1; return strlen (buf); } int init_readline (void) { puts ("Initializing readline."); fflush (stdout); return 1; } void reset_readline (void) { puts ("Resetting readline."); fflush (stdout); } /* The secret is to point the two global variables: * * SLang_User_Open_Slang_Object * SLang_User_Close_Slang_Object * * to your own routines. Then use the S-Lang function 'SLang_load_object' * with the appropriate argument to call your routines. */ /* First of all, create the user open routine. We will point * SLang_User_Open_Slang_Object to it. This routine must return 0 if * sucessful, SL_OBJ_NOPEN if it tried to open it but failed or * SL_OBJ_UNKNOWN if it does not handle the object. */ int open_readline (SLang_Load_Type *x) { switch (x->type) { /* look for the readline type. We will use 'r' to represent our * readline routines. S-Lang reserves numbers less than or equal to * 'Z' for itself. */ case 'r': if ((-1 == init_readline ()) || (NULL == (x->buf = (char *) SLMALLOC (256)))) return SL_OBJ_NOPEN; /* failure */ x->ptr = "Readline> "; /* use one of the allowed fields * of the structure for our prompt. */ /* success */ return 0; default: /* unrecognized-- let S-lang handle it */ return SL_OBJ_UNKNOWN; } } /* Now we have to write a routine to call 'reset_readline'. It looks like * the one above. */ int close_readline (SLang_Load_Type *x) { switch (x->type) { case 'r': reset_readline (); SLFREE ((char *) x->buf); return 0; default: /* unrecognized-- let S-lang handle it */ return SL_OBJ_UNKNOWN; } } /* Now lets define the function that S-Lang will use to actually read the data. * It calls readline. S-Lang will call this function and the function must * return a pointer to the buffer containg the characters of the line or NULL * upon end of file. In many ways, it is like fgets except that it is passed * a pointer to SLang_Load_Type in stead of FILE. */ char *read_using_readline (SLang_Load_Type *x) { int n; /* by construction (see below), tha ptr field is a pointer to our * prompt. */ n = readline (x->ptr, x->buf); if (n <= 0) return NULL; return x->buf; } /* Now, we all of this is tied together in this routine which will be called * from main below. */ void read_input (void) { SLang_Load_Type x; x.type = 'r'; /* readline type */ x.read = read_using_readline; /* function to call to perform the read */ SLang_load_object (&x); } /* Now here is are some intrinsic functions */ int main () { /* usual stuff */ if (!init_SLang() /* basic interpreter functions */ || !init_SLmath() /* sin, cos, etc... */ #ifdef unix || !init_SLunix() /* unix system calls */ #endif || !init_SLfiles()) /* file i/o */ { fprintf(stderr, "Unable to initialize S-Lang.\n"); exit(-1); } /* Make the slang function pointers point to our routines */ SLang_User_Open_Slang_Object = open_readline; SLang_User_Close_Slang_Object = close_readline; /* Define a print function */ SLang_load_string ("define print (x) {fputs(string(x), stdout); fflush (stdout); pop ();}"); read_input (); return SLang_Error; } /* unix system calls */ #endif || !init_SLfiles()) /* file i/o */ { fprintf(stderr, "Unable to initialize S-Lang.\n"); exit(-1); } /* Make the slang function pointers point to our routines */ Sslang-0.99.12/doc/004075500000000000003000000000000611265631600134135ustar00rootsys00000000000000slang-0.99.12/doc/Makefile000064400000000000003000000000730603742321300150410ustar00rootsys00000000000000 CC = acc texconv: texconv.o $(CC) texconv.o -o texconv Close_Slang_Object = close_readline; /* Define a print function */ SLang_load_string ("define print (x) {fputs(string(x), stdout); fflush (stdout); pop ();}"); read_input (); return SLang_Error; } /* unix system calls */ #endif || !init_SLfiles()) /* file i/o */ { fprintf(stderr, "Unable to initialize S-Lang.\n"); exit(-1); } /* Make the slang function pointers point to our routines */ Sslang-0.99.12/doc/READ.ME000064400000000000003000000011260603742321300143370ustar00rootsys00000000000000The documentation in this directory consists of two formats: 1. LaTeX format (*.tex) 2. Ordinary ascii text (*.txt) It is possible to convert the LaTeX files to ordinary text format. To do so, simply compile the file `texconv.c' and filter the tex document through it, e.g., gcc texconv.c -o texconv ./texconv -quiet cslang.tex cslang.txt The above example converts the file cslang.tex to cslang.txt. To produce a VMS style help file for use with the S-Lang help file reader, use the `-hlp' command line option: ./texconv -quiet -hlp cslang.tex cslang.hlp .tex) 2. Ordinary ascii text (*.txt) It is possible to convert the LaTeX files to ordinary text format. To do so, simply compile the file `texconv.c' and filter the tex document through it, e.g., gcc texconv.c -o texconv ./texconv -quiet cslang.tex cslang.txt The above example converts the file cslang.tex to cslang.txt. To produce a VMS style help file for use with the S-Lang help file reader,slang-0.99.12/doc/cslang.tex000064400000000000003000001050700603742321300153750ustar00rootsys00000000000000\documentstyle{article} \setlength{\oddsidemargin}{0mm} \setlength{\evensidemargin}{0mm} \setlength{\textwidth}{160mm} \setlength{\topmargin}{-10mm} \setlength{\textheight}{210mm} \parindent=0mm \parskip=5mm \def\mytitle{S-Lang C Programmer's Guide} \newlength{\pagewidth} \setlength{\pagewidth}{\textwidth} %\addtolength\pagewidth\marginparwidth % \addtolength\pagewidth\marginparsep \makeatletter \def\ps@headings{\def\@oddfoot{}% \def\@oddhead{\makebox[\textwidth][l]{\underline{\hbox to \pagewidth{\bf \mytitle\hfill\thepage}}}}% \def\@evenfoot{}% \def\@evenhead{\makebox[\textwidth][l]{\underline{\hbox to \pagewidth{\bf \mytitle\hfill\thepage}}}}}% \pagestyle{headings} \newcommand{\slang}{{\bf S-Lang}} \newcommand{\jed}{{\bf jed}} \newcommand{\exmp}[1]{{\tt #1}} \newcommand{\var}[1]{{\tt #1}} \newcommand{\key}[1]{{\sc #1}} \begin{document} \tableofcontents \pagebreak \section{Introduction} \slang{} is a C programmer's library that includes routines for the rapid development of sophisticated, user friendly, multi-platform applications. The \slang{} library includes the following: \begin{itemize} \item Low level tty input routines for reading single characters at a time. \item Keymap routines for defining keys and manipulating multiple keymaps. \item High level screen management routines for manipulating both monochrome and color terminals. These routines are {\em very} efficient. ({\tt SLsmg}) \item Low level terminal-independent routines for manipulating the display of a terminal. ({\tt SLtt}) \item Routines for reading single line input with line editing and recall capabilities. ({\tt SLrline}) \item Searching functions: both ordinary searches and regular expression searches. ({\tt SLsearch}) \item An embedded stack-based language interpreter with a C-like syntax. \item A malloc debugging package \end{itemize} The interface to these routines has been implemented in such a way that it is very platform independent. The library is currently available for OS/2, MSDOS, Unix, and VMS systems. In addition, care has been taken to ensure that the routines are ``independent'' of one another as much as possible. For example, although the keymap routines require keyboard input, they are not tied to \slang's keyboard input routines--- one can use a different keyboard \var{getkey} routine if one desires. This also means that linking to only part of the \slang{} library does not pull the whole library into the application. Thus, \slang{} applications tend to be relatively small in comparison to programs that use libraries with similar capabilities. In the following sections, the C interface to this library is described. The actual syntax of the embedded \slang{} interpreter is not discussed here. For information about it, consult the {\em S-Lang Programmer's Guide}. \section{Keyboard Interface} \slang's keyboard interface has been designed to allow one to read a single character at a time in a system independent manner. To initialize the interface, one must first call the function \var{SLang\_init\_tty}. Before exiting the program, the function \var{SLang\_reset\_tty} must be called to restore the keyboard interface to its original state. The function \var{SLang\_getkey} is used to read keyboard characters from the terminal. In addition to these basic functions, there are also functions to ``unget'' keyboard characters, flush the input, detect pending input with a timeout, etc. These functions are defined below. \subsection{Initializing the Keyboard Interface} The function \var{SLang\_init\_tty} must be called to initialize the terminal for single character input. This puts the terminal in a mode usually referred to as ``raw'' mode. The prototype for the function is: \begin{verbatim} int SLang_init_tty (int abort_char, int flow_ctrl, int opost); \end{verbatim} It takes three parameters that are used to specify how the terminal is to be initialized. %Although the \slang{} keyboard interface has been %designed to be as system independent as possible, there are semantic % differences. The first parameter, \var{abort\_char}, is used to specify the interrupt character ({\tt SIGINT}). Under MSDOS, this value corresponds to the scan code of the character that will be used to generate the interrupt. For example, under MSDOS, \var{34} should be used to make \key{Ctrl-G} generate an interrupt signal since $34$ is the scan code for \key{G}. On other systems, the value of \var{abort\_char} will simply be the ascii value of the control character that will be used to generate the interrupt signal, e.g., {\tt 7} for \key{Ctrl-G}. If \var{-1} is passed, the interrupt character will not be changed. Pressing the interrupt character specified by the first argument will generate a signal ({\tt SIGINT}) that may or not be caught by the application. It is up to the application to catch this signal. \slang{} provides the function \var{Slang\_set\_abort\_signal} to make it easy to facilitate this task. The second parameter is used to specify whether or not flow control should be used. If this parameter is non-zero, flow control is enabled otherwise it is disabled. Disabling flow control is necessary to pass certain characters to the application (e.g., \key{Ctrl-S} and \key{Ctrl-Q}). For some systems such as MSDOS, this parameter is meaningless. The third parameter, \var{opost}, is used to turn output processing on or off. If \var{opost} is zero, output processing is {\em not} turned on otherwise, output processing is turned on. The \var{SLang\_init\_tty} function returns -1 upon failure. In addition, after it returns, the \slang{} global variable \var{SLang\_TT\_Baud\_Rate} will be set to the baud rate of the terminal if this value can be determined. Example: \begin{verbatim} if (-1 == SLang_init_tty (7, 0, 0)) /* For MSDOS, use 34 as scan code */ { fprintf (stderr, "Unable to initialize the terminal.\n"); exit (-1); } SLang_set_abort_signal (NULL); \end{verbatim} Here the terminal is initialized such that flow control and output processing are turned off. In addition, the character \key{Ctrl-G}\footnote{For MSDOS systems, use the {\em scan code} 34 instead of 7 for \key{Ctrl-G}} has been specified to be the interrupt character. The function \var{SLang\_set\_abort\_signal} is used to install the default \slang{} interrupt signal handler. \subsection{Resetting the Keyboard Interface} The function \var{SLang\_reset\_tty} must be called to reset the terminal to the state it was in before the call to \var{SLang\_init\_tty}. The prototype for this function is: \begin{verbatim} void SLang_reset_tty (void); \end{verbatim} Usually this function is only called before the program exits. However, if the program is suspended it should also be called just before suspension. \subsection{Setting the Interrupt Handler} The function \var{SLang\_set\_abort\_signal} may be used to associate an interrupt handler with the interrupt character that was previously specified by the \var{SLang\_init\_tty} function call. The prototype for this function is: \begin{verbatim} void SLang_set_abort_signal (void (*)(int)); \end{verbatim} This function returns nothing and takes a single parameter which is a pointer to a function taking an integer value and returning \var{void}. If a \var{NULL} pointer is passed, the default \slang{} interrupt handler will be used. The \slang{} default interrupt handler under Unix looks like: \begin{verbatim} static void default_sigint (int sig) { signal (SIGINT, default_sigint); SLKeyBoard_Quit = 1; if (SLang_Ignore_User_Abort == 0) SLang_Error = USER_BREAK; } \end{verbatim} It simply sets the global variable \var{SLKeyBoard\_Quit} to one and if the variable \var{SLang\_Ignore\_User\_Abort} is non-zero, \var{SLang\_Error} is set to indicate a user break condition. Although the function expressed above is specific to Unix, the analogous routines for other operating systems are equivalent in functionality even though the details of the implementation may vary drastically (e.g., under MSDOS, the hardware keyboard interrupt \var{int 9h} is hooked). It is important to note that if the interrupt character is pressed while the function \var{SLang\_getkey} is called, the variable \var{SLKeyBoard\_Quit} will {\em not} be set to one. Rather, the value of the interrupt character will be returned just like any other character. However, if \var{SLang\_Ignore\_User\_Abort} is non-zero, \var{SLang\_Error} will be set to \var{USER\_BREAK}. \subsection{Reading Keyboard Input} After initializing the keyboard via the \var{SLang\_init\_tty} function, the \slang{} function \var{SLang\_getkey} is used to read characters from the terminal interface. In addition, the function \var{SLang\_input\_pending} may be used to determine whether or not keyboard input is available to be read. These functions have prototypes: \begin{verbatim} unsigned int SLang_getkey (void); int SLang_input_pending (int tsecs); \end{verbatim} The \var{SLang\_getkey} function returns a single character from the terminal. Upon failure, it returns \var{0xFFFF}. If the interrupt character specified by the \var{SLang\_init\_tty} function is pressed while this function is called, the function will return the value of the interrupt character and set the \slang{} global variable \var{SLKeyBoard\_Quit} to a non-zero value. In addition, if the default \slang{} interrupt handler has been specified by a \var{NULL} argument to the \var{SLang\_set\_abort\_signal} function, the global variable \var{SLang\_Error} will be set to \var{USER\_BREAK} {\em unless} the variable \var{SLang\_Ignore\_User\_Abort} is non-zero. The \var{SLang\_getkey} function waits until input is available to be read. The \var{SLang\_input\_pending} function may be used to determine whether or not input is ready. It takes a single parameter that indicates the amount of time to wait for input before returning with information regarding the availability of input. This parameter has units of one tenth ($1/10$) of a second, i.e., to wait one second, the value of the parameter should be {\tt 10}. Passing a value of zero causes the function to return right away. \var{SLang\_input\_pending} returns non-zero if input is available or zero otherwise. Here is a simple example that reads keys from the terminal until one presses \key{Ctrl-G} or until $5$ seconds have gone by with no input: \begin{verbatim} #include #include "slang.h" int main () { int abort_char = 7; /* For MSDOS, use 34 as scan code */ unsigned int ch; if (-1 == SLang_init_tty (abort_char, 0, 1)) { fprintf (stderr, "Unable to initialize the terminal.\n"); exit (-1); } SLang_set_abort_signal (NULL); while (1) { fputs ("\nPress any key. To quit, press Ctrl-G: ", stdout); fflush (stdout); if (SLang_input_pending (50) == 0) /* 50/10 seconds */ { fputs ("Waited too long! Bye\n", stdout); break; } ch = SLang_getkey (); if (SLang_Error == USER_BREAK) { fputs ("Ctrl-G pressed! Bye\n", stdout); break; } putc ((int) ch, stdout); } SLang_reset_tty (); return 0; } \end{verbatim} \subsection{Buffering Input} \slang{} has several functions pushing characters back onto the input stream to be read again later by \var{SLang\_getkey}. These functions are declared as follows: \begin{verbatim} void SLang_ungetkey (unsigned char ch); void SLang_ungetkey_string (unsigned char *buf, int buflen); void SLang_buffer_keystring (unsigned char *buf, int buflen); \end{verbatim} \var{SLang\_ungetkey} is the most simple of the three functions. It takes a single character a pushes it back on to the input stream. The next call to \var{SLang\_getkey} will return this character. This function may be used to {\em peek} at the character to be read by first reading it and then putting it back. \var{SLang\_ungetkey\_string} has the same function as \var{SLang\_ungetkey} except that it is able to push more than one character back onto the input stream. Since this function can push back null (ascii 0) characters, the number of characters to push is required as one of the parameters. The last of these three functions, \var{SLang\_buffer\_keystring} can handle more than one charater but unlike the other two, it places the characters at the {\em end} of the keyboard buffer instead of at the beginning. Note that the use of each of these three functions will cause \var{SLang\_input\_pending} to return right away with a non-zero value. Finally, the \slang{} keyboard interface includes the function \var{SLang\_flush\_input} with prototype \begin{verbatim} void SLang_flush_input (void); \end{verbatim} It may be used to discard {\em all} input. Here is a simple example that looks to see what the next key to be read is if one is available: \begin{verbatim} int peek_key () { int ch; if (SLang_input_pending (0) == 0) return -1; ch = SLang_getkey (); SLang_ungetkey (ch); return ch; } \end{verbatim} \subsection{Global Variables} Although the following \slang{} global variables have already been mentioned earlier, they are gathered together here for completeness. \var{int SLang\_Ignore\_User\_Abort;}\\ If non-zero, pressing the interrupt character will not result in \var{SLang\_Error} being set to \var{USER\_BREAK}. \var{volatile int SLKeyBoard\_Quit;}\\ This variable is set to a non-zero value when the interrupt character is pressed {\em unless} the character is pressed during a call to \var{SLang\_getkey}. If the interrupt character is pressed when \var{SLang\_getkey} is called, the interrupt character will be returned from \var{SLang\_getkey} and \var{SLKeyBoard\_Quit} will be set to zero; however, \var{SLang\_Error} might be set to \var{USER\_BREAK}. \var{int SLang\_TT\_Baud\_Rate;}\\ On systems which support it, this variable is set to the value of the terminal's baud rate after the call to \var{SLang\_init\_tty}. \section{Screen Management} The \slang{} library provides two interfaces to terminal independent routines for manipulating the display on a terminal. The highest level interface, known as the \var{SLsmg} interface is discussed in this section. It provides high level screen management functions more manipulating the display in an optimal manner and is similar in spirit to the \var{curses} library. The lowest level interface, or the \var{SLtt} interface, is used by the \var{SLsmg} routines to actually perform the task of writing to the display. This interface is discussed in another section. Like the keyboard routines, the \var{SLsmg} routines are {\em platform independent} and work the same on MSDOS, OS/2, Unix, and VMS. The screen management, or \var{SLsmg}, routines are initialized by function \var{SLsmg\_init\_smg}. Once initialized, the application uses various \var{SLsmg} functions to write to a {\em virtual} display. This does not cause the {\em physical} terminal display to be updated immediately. The physical display is updated to look like the virtual display only after a call to the function \var{SLsmg\_refresh}. Before exiting, the application using these routines is required to call \var{SLsmg\_reset\_smg} to reset the display system. The following subsections explore \slang's screen management system in greater detail. \subsection{Initialization} The function \var{SLsmg\_init\_smg} must be called before any other \var{SLsmg} function can be used. It has the simple prototype: \begin{verbatim} int SLsmg_init_smg (void); \end{verbatim} It returns non-zero if successful or zero if it cannot allocate space for the virtual display. For this routine to properly initialize the virtual display, the capabilities of the terminal must be known as well as the size of the {\em physical} display. For these reasons, the lower level \var{SLtt} routines come into play. In particular, before the first call to \var{SLsmg\_init\_smg}, the application is required to call the function \var{SLtt\_get\_terminfo} before calling \var{SLsmg\_init\_smg}. The \var{SLtt\_get\_terminfo} function sets the global variables \var{SLtt\_Screen\_Rows} and \var{SLtt\_Screen\_Cols} to the values appropriate for the terminal. However, these values may not be correct for some terminals because \slang{} will initialize these variables based on information found in the terminal database. In particular, \slang{} does not query the tty driver for this information. It is recommended that the application make the appropriate system\footnote{In a future release of the \slang{} library, convenience functions will be added to facilitate this task.} call to determine the correct values {\em before} calling \var{SLsmg\_init\_smg}. In addition, if for some reason the size of the display changes, the global variables \var{SLtt\_Screen\_Rows} and \var{SLtt\_Screen\_Cols} should be updated to new the values appropriate for the physical terminal. If this happens, the application must re-initialize the \var{SLsmg} routines by calling \var{SLsmg\_init\_tty} again so that the size of the virtual screen can be adjusted accordingly. Finally, if the application is going to read characters from the keyboard, it is also a good idea to initialize the keyboard routines at this point as well. \subsection{Resetting SLsmg} Before the program exits or suspends, the function \var{SLsmg\_reset\_tty} should be called to shutdown the display system. This function has the prototype \begin{verbatim} void SLsmg_reset_smg (void); \end{verbatim} Before calling this function, the cursor should be positioned at the bottom of the display using the \var{SLsmg\_gotorc} function and then the \var{SLsmg\_refresh} function to update the cursor position on the physical screen. Basically, a program that uses the \var{SLsmg} screen management functions and \slang's keyboard interface will look something like: \begin{verbatim} #include "slang.h" int main () { SLtt_get_terminfo (); SLang_init_tty (7, 0, 0); SLsmg_init_smg (); /* do stuff .... */ SLsmg_gotorc (SLtt_Screen_Rows - 1, 0); SLsmg_refresh (); SLsmg_reset_smg (); SLang_reset_tty (); return 0; } \end{verbatim} If this program is compiled and run, all it will do is clear the screen and position the cursor at the bottom of the display. In the following sections, other \var{SLsmg} functions will be introduced which may be used to make this simple program do much more. \subsection{SLsmg Functions} In the previous sections, functions for initializing and shutting down the \var{SLsmg} routines were discussed. In this section, the rest of the \var{SLsmg} functions are presented. These functions act only on the {\em virtual} display. The {\em physical} display is updated when the \var{SLsmg\_refresh} function is called and {\em not until that time}. This function has the simple prototype: \begin{verbatim} void SLsmg_refresh (void); \end{verbatim} \subsubsection{Positioning the cursor} The \var{SLsmg\_gotorc} function is used to position the cursor at a given row and column. The prototype for this function is: \begin{verbatim} void SLsmg_gotorc (int row, int col); \end{verbatim} The origin of the screen is at the top left corner and is given the coordinate $(0, 0)$, i.e., the top row of the screen corresponds to \var{row = 0} and the first column corresponds to \var{col = 0}. The last row of the screen is given by \var{row = SLtt\_Screen\_Rows - 1}. It is possible to change the origin of the coordinate system by using the function \var{SLsmg\_set\_screen\_start} with prototype: \begin{verbatim} void SLsmg_set_screen_start (int *r, int *c); \end{verbatim} This function takes pointers to the new values of the first row and first column. It returns the previous values by modifying the values of the integers at the addresses specified by the parameter list. A \var{NULL} pointer may be passed to indicate that the origin is to be set to its initial value of $0$. For example, \begin{verbatim} int r = 10; SLsmg_set_screen_start (&r, NULL); \end{verbatim} sets the origin to $(10, 0)$ and after the function returns, the variable \var{r} will have the value of the previous row origin. \subsubsection{Writing to the Display} \var{SLsmg} has several routines for outputting text to the virtual display. The following points should be understood: \begin{itemize} \item The text is output at the position of the cursor of the virtual display and the cursor is advanced to the position that corresponds to the end of the text. \item Text does {\em not} wrap at the boundary of the display--- it is trucated. This behavior seems to be more useful in practice since most programs that would use screen management tend to be line oriented. \item Control characters are displayed in a two character sequence representation with \verb|^| as the first character. That is, \key{Ctrl-X} is output as \verb|^X|. \item The newline character does {\em not} cause the cursor to advance to the next row. Instead, when a newline character is encountered when outputting text, the output routine will return. That is, outputting a string containing a newline character will only display the contents of the string up to the newline character. \end{itemize} Although the some of the above items might appear to be too restrictive, in practice this is not seem to be the case. In fact, the design of the output routines was influenced by their actual use and modified to simplify the code of the application utilizing them. \var{void SLsmg\_write\_char (char ch);}\\ Write a single character to the virtual display. \var{void SLsmg\_write\_nchars (char *str, int len);}\\ Write \var{len} characters pointed to by \var{str} to the virtual display. \var{void SLsmg\_write\_string (char *str);}\\ Write the null terminated string given by pointer \var{str} to the virtual display. This function is a wrapper around \var{SLsmg\_write\_nchars}. \var{void SLsmg\_write\_nstring (char *str, int n);}\\ Write the null terminated string given by pointer \var{str} to the virtual display. At most, only \var{n} characters are written. If the length of the string is less than \var{n}, then the string will be padded with blanks. This function is a wrapper around \var{SLsmg\_write\_nchars}. \var{void SLsmg\_printf (char *fmt, ...);}\\ This function is similar to \var{printf} except that it writes to the \var{SLsmg} virtual display. \var{void SLsmg\_vprintf (char *, va\_list);}\\ Like \var{SLsmg\_printf} but uses a variable argument list. \subsubsection{Erasing the Display} The following functions may be used to fill portions of the display with blank characters. The attributes of blank character are the current attributes. (See below for a discussion of character attributes) \var{void SLsmg\_erase\_eol (void);}\\ Erase line from current position to the end of the line. \var{void SLsmg\_erase\_eos (void);}\\ Erase from the current position to the end of the screen. \var{void SLsmg\_cls (void);}\\ Clear the entire virtual display. \subsubsection{Setting Character Attributes} Character attributes define the visual characteristics the character possesses when it is displayed. Visual characteristics include the foreground and background colors as well as other attributes such as blinking, bold, and so on. Since \var{SLsmg} takes a different approach to this problem than other screen management libraries an explanation of this approach is given here. This approach has been motivated by experience with programs that require some sort of screen management. Most programs that use \var{SLsmg} are composed of specific textual objects or objects made up of line drawing characters. For example, consider an application with a menu bar with drop down menus. The menus might be enclosed by some sort of frame or perhaps a shadow. The basic idea is to associate an integer to each of the objects (e.g., menu bar, shadow, current menu item, etc.) and create a mapping from the integer to the set of attributes. In the terminology of \var{SLsmg}, the integer is simply called an {\em object}. For example, the menu bar might be associated with the object \var{1}, the drop down menu could be object \var{2}, the shadow could be object \var{3}, and so on. The range of values for the object integer is restricted from $0$ up to and including $255$ on all systems except MSDOS where the maximum allowed integer is $15$\footnote{This difference is due to memory constraints imposed by MSDOS. This restriction might be removed in a future version of the library.}. The object numbered zero should not be regarding as an object at all. Rather it should be regarded as all {\em other} objects that have not explicitly been given an object number. \var{SLsmg}, or more precisely \var{SLtt}, refers to the attributes of this special object as the {\em default} or {\em normal} attributes. The \var{SLsmg} routines know nothing about the mapping of the color to the attributes associated with the color. The actual mapping takes place at a lower level in the \var{SLtt} routines. Hence, to map an object to the actual set of attributes requires a call to any of the following \var{SLtt} routines: \begin{verbatim} void SLtt_set_color (int obj, char *name, char *fg, char *bg); void SLtt_set_color_object (int obj, SLtt_Char_Type attr); void SLtt_set_mono (int obj, char *, SLtt_Char_Type attr); \end{verbatim} Only the first of these routines will be discussed briefly here. The latter two functions allow more fine control over the object to attribute mapping (such as assigning a ``blink'' attribute to the object). For a more full explanation on all of these routines see the section about the \var{SLtt} interface. The \var{SLtt\_set\_color} function takes four parameters. The first parameter, \var{obj}, is simply the integer of the object for which attributes are to be assigned. The second parameter is currently unused by these routines. The third and forth parameters, \var{fg} and \var{bg}, are the names of the foreground and background color to be used associated with the object. The strings that one can use for the third and fourth parameters can be any one of the 16 colors: \begin{verbatim} "black" "gray" "red" "brightred" "green" "brightgreen" "brown" "yellow" "blue" "brightblue" "magenta" "brightmagenta" "cyan" "brightcyan" "lightgray" "white" \end{verbatim} The value of the foreground parameter \var{fg} can be anyone of these sixteen colors. However, on most terminals, the background color will can only be one of the colors listed in the first column\footnote{This is also true on the Linux console. However, it need not be the case and hopefully the designers of Linux will someday remove this restriction.}. Of course not all terminals are color terminals. If the \slang{} global variable \var{SLtt\_Use\_Ansi\_Colors} is non-zero, the terminal is assumed to be a color terminal. Its value is initialized to zero (a monochrome terminal) and it is up to the application to change it to the value that is appropriate to the terminal. If this variable is zero, all objects with numbers greater than one will be displayed in inverse video\footnote{This behavior can be modified by using the \var{SLtt\_set\_mono} function call.}. With this background, the \var{SLsmg} functions for setting the character attributes can now be defined. These functions simply set the object attributes that are to be assigned to {\em subsequent} characters written to the virtual display. For this reason, the new attribute is called the {\em current} attribute. \var{void SLsmg\_set\_color (int obj);}\\ Set the current attribute to those of object \var{obj}. \var{void SLsmg\_normal\_video (void);}\\ This function is equivalent to \var{SLsmg\_set\_color (0)}. \var{void SLsmg\_reverse\_video (void);}\\ This function is equivalent to \var{SLsmg\_set\_color (1)}. On monochrome terminals, it is equivalent to setting the subsequent character attributes to inverse video. \subsubsection{Lines and Alternate Character Sets} The \slang{} screen management library also includes routines for turning on and turning off alternate character sets. This is especially useful for drawing horizontal and vertical lines. \var{void SLsmg\_set\_char\_set (int flag);}\\ If \var{flag} is non-zero, subsequent write functions will use characters from the alternate character set. If \var{flag} is zero, the default, or, ordinary character set will be used. \var{void SLsmg\_draw\_hline (int len);}\\ Draw a horizontal line from the current position to the column that is \var{len} characters to the right. \var{void SLsmg\_draw\_vline (int len);}\\ Draw a horizontal line from the current position to the row that is \var{len} rows below. \var{void SLsmg\_draw\_box (int r, int c, int dr, int dc);}\\ Draw a box whose upper right corner is at row \var{r} and column \var{c}. The box spans \var{dr} rows and \var{dc} columns. The current position will be left at row \var{r} and column \var{c}. \subsubsection{Miscellaneous Functions} \var{void SLsmg\_touch\_lines (int r, int n);}\\ Mark screen rows numbered \var{r}, \var{r + 1}, \ldots \var{r + (n - 1)} as modified. When \var{SLsmg\_refresh} is called, these rows will be completely redrawn. \var{unsigned short SLsmg\_char\_at(void);}\\ Returns the character and its attributes object number at the current cursor position. The character itself occupies the lower byte and the object attributes number forms the upper byte. \subsection{Variables} The following \slang{} global variables are used by the \var{SLsmg} interface. Some of these have been previously discussed. \var{int SLtt\_Screen\_Rows;}\\ \var{int SLtt\_Screen\_Cols;}\\ The number of rows and columns of the {\em physical} display. If either of these numbers changes, the functions \var{SLsmg\_reset\_smg} and \var{SLsmg\_init\_smg} should be called again so that the \var{SLsmg} routines can re-adjust to the new size. \var{int SLsmg\_Tab\_Width;}\\ Set this variable to the tab width that will be used when expanding tab characters. The default is 8. \var{int SLsmg\_Display\_Eight\_Bit}\\ This variable determines how characters with the high bit set are to be output. Specifically, a character with the high bit set with a value greater than or equal to this value is output as is; otherwise, it will be output in a 7-bit representation. The default value for this variable is \var{128} for MSDOS and \var{160} for other systems (ISO-Latin). \var{int SLtt\_Use\_Ansi\_Colors;}\\ If this value is non-zero, the terminal is assumed to support ANSI colors otherwise it is assumed to be monochrome. The default is 0. \var{int SLtt\_Term\_Cannot\_Scroll;}\\ If this value is zero, the \var{SLsmg} will attempt to scroll the physical display to optimize the update. If it is non-zero, the screen management routines will not perform this optimization. For some applications, this variable should be set to zero. The default value is set by the \var{SLtt\_get\_terminfo} function. \subsection{Hints for using SLsmg} This section discusses some general design issues that one must face when writing an application that requires some sort of screen management. \end{document} 1Searching-Functions The S-Lang library incorporates two types of searches: Regular expression pattern matching and ordinary searching. \subsection{Regular-Expressions} !!! No documentation available yet !!! \subsection{Simple-Searches} The routines for ordinary searching are defined in the \var{slsearch.c} file. To use these routines, simply include "slang.h" in your program and simply call the appropriate routines. The searches can go in either a forward or backward direction and can either be case or case insensitive. The region that is searched may contain null characters (ASCII 0) however, the search string cannot in the current implementation. In addition the length of the string to be found is currently limited to 256 characters. Before searching, the function \var{SLsearch\_init} must first be called to \var{`preprocess}' the search string. \subsection{initialization} The function \var{SLsearch\_init} must be called before a search can take place. Its prototype is: int SLsearch\_init (char *key, int dir, int case\_sens, SLsearch\_Type *st); Here \var{key} is the string to be searched for. \var{dir} specifies the direction of the search: a value greater than zero is used for searching forward and a value less than zero is used for searching backward. The parameter \var{case\_sens} specifies whether the search is case sensitive or not. A non-zero value indicates that case is important. \var{st} is a pointer to a structure of type \var{SLsearch\_Type} defined in "slang.h". This structure is initialized by this routine and must be passed to \var{SLsearch} when the search is actually performed. This routine returns the length of the string to be searched for. \subsection{SLsearch} Prototype: unsigned char *SLsearch (unsigned char *pmin, unsigned char *pmax, SLsearch\_Type *st); This function performs the search defined by a previous call to \var{SLsearch\_init} over a region specified by the pointers \var{pmin} and \var{pmax}. It returns a pointer to the start of the match if successful or it will return NULL if a match was not found. \end{document} ring to be searched for. \subsection{SLsearch} Prototype: unsigned char *SLsearch (unsigned char *pmin, unsigned char *pmax, SLsearch\_Type *st); This function performs the search defined by a previous call to \var{SLsearch\_init} over a region specified by the pointers \var{pmin} and \var{pmax}. It returns a pointer to the start of the match if successful or it will rslang-0.99.12/doc/faq.txt000064400000000000003000000046030603742321300147140ustar00rootsys00000000000000Introductory FAQ -- Far from complete -- I will update it daily. Frequently asked questions. Terminology: S-Lang function : a user defined function that is written in S-Lang. C function: A function that is written in C. It may or may not be callable from S-lang Intrinsic Function: A C function that is directly callable from S-Lang, e.g., strcat. 0. Where do I find documentation? The documentation is incomplete. See slang/doc/*.* and slang/help/slang.hlp. In addition, nearly all the C functions prototyped in slang.h are also documented in slang.h. Finally, all the intrinsics defined by the S-Lang library are available online from within the JED editor. (Also look in slang/src/demo). 1. How can I call a specific S-Lang function from my C program? Use the C function `SLang_execute_function'. This returns 0 if the function is not defined and 1 if it is. If you are going to call the S-Lang function many times, it is better to use `SLexecute_function'. This function takes a non-NULL parameter of type `SLang_Name_Type' obtained from a previous call from the function `SLang_get_function'. Example: Suppose that you want to call a S-Lang function `f' which takes two floating point numbers and returns a float. Assume the parameters to `f' are `2.7' and 3.5'. First solution: double x; int ix, unused; SLang_push_float (2.7); SLang_push_float (3.5); if (SLang_execute_function ("f") == 0) { /* f undefined */ return 0.0; } SLang_pop_float (&x, &ix, &unused); return x; Second Solution: double x; int ix, unused; SLang_Name_Type *fp; if (NULL == (fp = SLang_get_function ("f"))) { /* Function f undefined */ return 0.0; } SLang_push_float (2.7); SLang_push_float (3.5); SLexecute_function (fp); SLang_pop_float (&x, &ix, &unused); return x; 3. How can I add structures to S-Lang. Currently, the language does not really support structures. However, it is possible for variables to have values which are structures. See demo/struct.c and demo/struct.sl for an explicit demonstration of how to add application defined structures to S-Lang. } SLang_push_float (2.7); SLang_push_float (3.5); SLexecute_function (fp); SLang_pop_float (&xslang-0.99.12/doc/intrins.txt000064400000000000003000000407240603742321400156400ustar00rootsys00000000000000Sprintf Prototype: String Sprintf(String format, ..., Integer n); Sprintf formats a string from 'n' objects according to 'format'. Unlike its C counterpart, Sprintf requires the number of items to format. For example. Sprintf("%f is greater than %f but %s is better than %s\n", PI, E, "Cake" "Pie", 4); The final argument to Sprintf is the number of items to format; in this case, there are 4 items. -------------------- _clear_error May be used in error blocks to clear the error that triggered the error block. Execution resumes following the statement triggering the block. -------------------- _stkdepth returns number of items on stack -------------------- acos -------------------- aget Syntax: i j ... k ARRAY aget returns ARRAY[i][j]...[k] -------------------- aput Syntax: x i j ... k ARRAY put sets ARRAY[i][j]...[k] = x -------------------- array_sort Requires an array on the stack as well as a function name to call for the comparison. The array to be placed on the stack is the array to be sorted. The routine returns an integer index array which indicates the result of the sort. The first array is unchanged. -------------------- asin -------------------- atan -------------------- autoload Prototype: Void autoload(String fun, String file); This function simply declares function 'fun' to the interpreter. When 'fun' is actually called, its actual function definition will be loaded from 'file'. Example: autoload ("bessel_j0", "/usr/lib/slang/bessel.sl"); See Also: evalfile -------------------- byte_compile_file Prototype Void byte_compile_file (String file, Integer method); byte compiles 'file' producing a new file with the same name except a 'c' is added to the output file name. For example, byte_compile_file("site.sl"); produces a new file named 'site.slc'. If 'method' is non-zero, the file is preprocessed only. Note that the resulting bytecompiled file must only be used by the executable that produced it. Set 'method' to a non-zero value to use the byte compiled file with more than one executable. -------------------- case Prototype: Integer case(a, b); This function is designed to make the switch statement look more like the C one. Basically, it does a generic compare operation. Both parameters 'a' and 'b' must be of the same type. It returns zero if their types differ or have different values. In a switch statment, it may be used as: switch (token) { case "return": return_function ();} { case "break": break_function ();} Unlike the C version, it one cannot have: switch (i) {case 10: case 20: do_ten_or_twenty (i);} One must do: switch (i) {case 10 or case (i, 20) : do_ten_or_twenty (i);} -------------------- char Prototype: String char (Integer c); This function takes and integer and returns a string of length 1 whose first character has ascii value 'c'. -------------------- chmod Prototype Integer chmod(String file, Integer mode); 'chmod' changes the permissions of 'file' to those specified by 'mode'. It returns 0 upon success, -1 if the process lacks sufficient privilege for the operation, or -2 if the file does not exist. See also: chown, stat_file -------------------- chown Prototype Integer chown(String file, Integer uid, Integer gid); Change ownership of 'file' to that of user id 'uid' and group id 'gid'. This function returns 0 upon success and a negative number up failure. It returns -1 if the process does not have sufficent privileges and -2 if the file does not exist. See also: chmod, stat_file -------------------- copy_array Prototype: Void copy_array(Array b, Array a); Copies the contents of array 'a' to array 'b'. Both arrays must be of the same type and dimension. -------------------- cos -------------------- create_array Prototype: create_array (Integer type, Integer i_1, i_2 ... i_dim, dim); Creates an array of type 'type' with dimension 'dim'. i_n is an integer which specifies the maximum size of array in direction n. 'type' is a control integer which specifies the type of the array. Types are: 's' : array of strings 'f' : array of floats 'i' : array of integers 'c' : array of characters At this point, dim cannot be larger than 3. Also note that space is dynamically allocated for the array and that copies of the array are NEVER put on the stack. Rather, references to the array are put on the stack. When the array is no longer needed, it must be freed with 'free_array' Example: variable a = create_array ('f', 10, 1); This creates a 1 dimensional array of 10 floats and assigns it to 'a' See also: free_array -------------------- define_case Two parameters are integers in the range 0 to 255. The first integer is the ascii value of the upprcase character and the 2nd integer is the value of its lowercase counterpart. For example, to define X as the uppercase of Y, do: X Y define_case -------------------- dup duplicate top object on the stack. -------------------- eval evaluate STRING as an S-Lang expression. -------------------- evalfile Prototype: Integer evalfile (String file); Load 'file' as S-Lang code. If loading is successful, a non-zero result will be returned. If the file is not found, zero will be returned. See also: eval, autoload -------------------- exp -------------------- extract_element Prototype: String extract_element (String list, Integer nth, Integer delim); Returns 'nth' element in 'list' where 'delim' separates elements of the list. 'delim' is an Ascii value. Elements are numbered from 0. For example: extract_element ("element 0, element 1, element 2", 1, ','); returns the string " element 1", whereas extract_element ("element 0, element 1, element 2", 2, ' '); returns "0,". See also: is_list_element. -------------------- float Convert from integer or string representation to floating point. For example, "12.34" float returns 12.34 to stack. as another example, consider: 1 2 / ==> 0 since 1 and 2 are integers 1 2 float / ==> 0.5 since float converts 2 to 2.0 and floating point division is used. -------------------- free_array Prototype: Void free_array (Array a); Frees up the space which array occupies. All reference to this space will now be meaningless and will generate an error. -------------------- getenv Prototype: String getenv(String var); Returns value of an environment variable 'var' as a string. The empty "" is returned if the 'var' is not defined. See also: putenv -------------------- init_char_array Prototype: Void init_char_array(Array_Type a, String s); a is an array of type 'c' (character array) and s is a string. -------------------- int returns ascii value of the first character of a string. -------------------- integer Convert from a string representation to integer. For example, "1234" integer returns 1234 to stack. -------------------- is_defined Prototype: Integer is_defined (String obj); This function is used to determine whether or not 'obj' has been defined. If 'obj' is not defined, it returns 0. Otherwise, it returns a non-zero value that defpends on the type of object 'obj' represents. Specifically: +1 if arg is an intrinsic function +2 if user defined function -1 if intrinsic variable -2 if user defined variable -------------------- is_list_element Prototype: Integer is_list_element (String list, String elem, Integer delim); If 'elem' is an element of 'list' where 'list' is a 'delim' seperated list of strings, this function returns 1 plus the matching element number. If 'elem' is not a member of the list, zero is returned. Example: is_list_element ("element 0, element 1, element 2", "0,", ' '); returns 2 since "0," is element number one of the list (numbered from zero). See also: extract_element. -------------------- is_substr Syntax: "a" "b" is_substr returns the position of "b" in "a". If "b" does not occur in "a" it returns 0--- the first position is 1 -------------------- isdigit returns TRUE if CHAR (string of length 1) is a digit. -------------------- log -------------------- log10 -------------------- lstat_file Prototype: Integer lstat_file(String file); This function is like 'stat_file' but it returns information about the link itself. See 'stat_file' for usage. See also: stat_file -------------------- make_printable_string Prototype: String make_printable_string(String str); Takes input string 'str' and creates a new string that may be used by the interpreter as an argument to the 'eval' function. The resulting string is identical to 'str' except that it is enclosed in double quotes and the backslash, newline, and double quote characters are expanded. See also: eval -------------------- polynom Usage: a b .. c n x polynom =y This computes: ax^n + bx^(n - 1) + ... c = y -------------------- pop Prototype: Void pop (); 'pop' is used to remove the top object from the S-Lang stack. It is typically used to ignore values from function that return a value. -------------------- pow -------------------- print_stack dumps tha S-Lang stack -------------------- putenv Prototype: Void putenv(String s); This functions adds string 's' to the environment. Typically, 's' should be a String of the form "name=value". It signals an error upon failure. -------------------- set_float_format Prototype: Void set_float_format (String fmt); This function is used to set the floating point format to be used when floating point numbers are printed. The routines that use this are the traceback routines and the 'string' function. The default value is "%f". -------------------- sin -------------------- slang_trace_function only argument is a string that specifies a function name that is to be traced. See also the variable _slangtrace. -------------------- slapropos -------------------- sqrt -------------------- stat_file Prototype: Integer stat_file(String file); This function returns information about 'file' through the use of the system 'stat' call. If the stat call fails, the function returns a negative integer. If it is successful, it returns zero. Upon failure it returns a negative number. To retrieve information obtained by this call, use the 'stat_struct' function. See also: lstat_file, stat_struct -------------------- stat_struct Prototype Integer stat_struct(String field); This functions returns information previously obtained by a call to the 'stat_file' or 'lstat_file' functions. The 'field' argument specifies what piece of information to return. Valid values for 'field' are: "dev" "ino" "mode" "nlink" "uid" "gid" "rdev" "size" "atime" "mtime" "ctime" See the man page for 'stat' for a discussion of these fields. The following example returns the size of the file "jed.rc": variable size; if (stat_file("jed.rc") < 0) error ("Unable to stat file!"); size = stat_struct("size"); -------------------- str_quote_string Prototype: String str_quote_string(String str, String qlis, Integer quote); Return a string identical to 'str' except that all characters in the string 'qlis' are escaped with the 'quote' character including the quote character itself. -------------------- str_uncomment_string Prototype: String str_uncomment_string(String s, String beg, String end); 'beg' and 'end' are strings whose characters define a set of comment delimeters. This function removes comments defined by the delimeter set from the input string 's' and returns it. For example, str_uncommen_string ("Hello (testing) 'example' World", "'(", "')"); returns the string: "Hello World"; This routine does not handle multicharacter comment delimeters and it assumes that comments are not nested. -------------------- strcat Prototype: String strcat(String a, String b); Conconcatenates 'a' and 'b' and returns the result. See also: Sprintf -------------------- strcmp Prototype: Integer strcmp (String a, String b); 'strcmp' performs a case sensitive comparison between two strings. It returns 0 if the strings are identical, a negative number if 'a' is less than 'b' and a positive result if 'a' is greater than 'b' (in a lexicographic sense). See also: strup, strlow -------------------- string Prototype: String string (obj); Here 'obj' can be of any type. The function 'string' will return a string representation of 'obj'. Example: string (12.34) returns "12.34" See also: Sprintf -------------------- string_match_nth Prototype: Integer Integer string_match_nth(Integer nth); This function returns 2 integers describing the result of the last call to 'string_match'. It returns both the offset into the string and the length of characters matches by the 'nth' submatch. By convention, 'nth' equal to zero means the entire match. Otherwise, 'nth' must be an integer, 1 to 9, and refers to the set of characters matched by the 'nth' regular expression given by \(...\). For example, consider: variable matched, pos, len; matched = string_match("hello world", "\\([a-z]+\\) \\([a-z]+\\)", 1); if (matched) { (pos, len) = string_match_nth(2); } This will set 'matched' to 1 since a match will be found at the first position, 'pos' to 7 since 'w' is the 7th character of the string, and len to 5 since "world" is 5 characters long. -------------------- string_match Prototype Integer string_match(String str, String pat, Integer pos); Returns 0 if 'str' does not match regular expression specified by 'pat'. This function performs the match starting at position 'pos' in 'str'. The first character of 'str' corresponds to 'pos' equal to one. This function returns the position of the start of the match. To find the exact substring actually matched, use 'string_match_nth'. See also: string_match_nth, strcmp, strncmp -------------------- strlen Prototype: Integer strlen (String a); Returns the length of 'a'. -------------------- strlow Takes a string off the stack a replaces it with all characters in lowercase. -------------------- strncmp like strcmp but takes an extra argument--- number of characters to compare. Example, "apple" "appliance" 3 strcmp --> 0 -------------------- strsub Syntax: "string" n ascii_value strsub This forces string to have a char who asciii value is ascii_val at the nth position. The first character in the string is at position 1. -------------------- strtrim Trims leading and trailing whitespace from a string. WHitespace is defined to be spaces, tabs, and newline chars. -------------------- strup Takes a string off the stack a replaces it with all characters in uppercase. -------------------- substr Syntax: "string" n len substr returns a substring with length len of string beginning at position n. -------------------- system -------------------- tan -------------------- unix_ctime Prototype: String unix_ctime(Integer secs); Returns a string representation of the time as given by 'secs' seconds since 1970. -------------------- unix_kill Prototype: Integer unix_kill(Integer pid, Integer sig); -------------------- E -------------------- PI -------------------- _slang_version -------------------- _slangtrace Prototype: Integer _slangtrace; If non-zero, begin tracing when function declared by lang_trace_function is entered. This does not trace intrinsic functions. -------------------- _traceback If non-zero, dump S-Lang tracback on error. -------------------- since 1970. -------------------- unix_kill slang-0.99.12/doc/object.txt000064400000000000003000000224060603742321400154150ustar00rootsys00000000000000This file presents some information about application defined types and operator overloading. See ../demo/complex.sl for an explicit example of the functions discussed here. ------------------------------------------------------------------------------- Declaring a new type. ===================== To create a new type and interface it with S-Lang, you have to do several things. 1. You must write a routine to create the object. This routine will then have to be made available as an intrinsic function for the applications's script to create the object. For example, in the complex.c demo, the function `complex' creates the object. 2. You have to create a routine that destroy the object. This routine will be called automatically by S-Lang when it is necessary to delete the object. In order for S-Lang to achieve this, you must register this ``callback'' when you register the new type. The function should be declared as taking no parameters and returning void, e.g., void destroy_type_callback (void); 3. Declare the new type to S-Lang. This is achieved by using the function `SLang_register_class'. This function takes three parameters and returns no-zero if the class (type) was sucessfully added or zero if not (malloc failure). This function has the prototype: int SLang_register_class (unsigned char, VOID *, VOID *); Here, VOID is a macro defined in slang.h. In may be either `void' or `unsigned char' depending on the compiler (Old compilers do not support void *). The first parameter is an unsigned character in the range 128 to 255. Integers outside this range (0 through 127) are reserved for S-Lang itself. This integer (unsigned char) will serve as an identification number for the type. For example, in complex.c, a macro is used: #define COMPLEX_NUMBER 128 If more than one type is created, two different numbers will have to be used (e.g., 128 and 129). As a result, an application may define at most 128 different types. The second parameter represents the function that is to be called to destroy a variable of the new type. This function is described in (2) above. It must be typecast to `VOID *'. If your type does not need to be destroyed (it did not malloc anything and there is no cleanup necessary), NULL may be used. The third parameter represents the function that will be called to obtain a printable representation of a variable of the new type. NULL may be used if the function does not exist. See the discussion below about this function. Interacting with the new type ============================= There are two fundamentally different ways of manipulating a new type: via new intrinsic functions and by operator overloading. The latter method is discussed in the next section. In order for an intrinsic function to interact with an object it must first access the object. S-Lang will not pass application defined objects directly to the intrinsic function. It is up to the function to acquire the object from the stack. This is easily accomplished using the `SLang_pop_user_object' function call. It is prototyped: SLuser_Object_Type *SLang_pop_user_object (unsigned char); It takes a single parameter, the number which identifies the type, and returns a pointer to the object. If the requested object it not at the top of the stack, NULL be be returned and SLang_Error will be set appropriately. Note that this function does not return a pointer to the object; rather, it returns a pointer to a S-Lang defined structure that serves as a wrapper around the object. The actual object may be obtained by accessing the `obj' member of this structure (See below). Because the object was popped from the stack, it is up to the routine that popped it to handle memory management for the object. This is facilitated by the function `SLang_free_user_object' which is prototyped: void SLang_free_user_object (SLuser_Object_Type *); This function should be called when the intrinsic function is finished with the object. For example, consider the function `real_part' complex.c demo: static double real_part (void) { SLuser_Object_Type *u; Complex_Type *z; double x; if (NULL == (u = SLang_pop_user_object (COMPLEX_NUMBER))) return 0.0; z = (Complex_Type *) (u->obj); x = z->real_part; SLang_free_user_object (u); return x; } It contains all of the elements of the above discussion: 1. It uses `SLang_pop_user_object' to access the object that represents the contains complex number. The actual structure that represents the complex number is obtained from the `obj' member of the structure returned from the function call. 2. It calls `SLang_free_user_object' when it is finished using the object. Operator Overloading ==================== Sometimes, but not always, it is desirable to extend the arithemetic binary and unary operators `+', `-', etc... as well as the binary comparison operators `==', `<', etc... to the new type. This is definitely the case with the complex number type. The complex number type is even more complicated because one also wants an object of that type to interact in binary operations not only with itself but with integer and floating point numbers. The basic way to accomplish operator overloading is to create a function that computes the value of the binary or unary operation and then declare this function to S-Lang. The S-Lang functions used for declaring the binary and unary functions are prototyped: int SLang_add_unary_op (unsigned char, VOID *); int SLang_add_binary_op (unsigned char, unsigned char, VOID *); They return 1 upon success or zero upon failure. The third parameter is a pointer to the appropriate function cast to a pointer to VOID. In the case of `SLang_add_unary_op' the first parameter represents the type for which the unary operators are to be defined for. The other function requires two such types because a binary operation acts on two objects which may or may not be of the same type. For example, complex.c defines a function `complex_binary' to manipulate binary operations with the complex number: if (!SLang_add_binary_op (COMPLEX_NUMBER, COMPLEX_NUMBER, (VOID *) complex_binary) ||!SLang_add_binary_op (COMPLEX_NUMBER, FLOAT_TYPE, (VOID *) complex_binary) ||!SLang_add_binary_op (COMPLEX_NUMBER, INT_TYPE, (VOID *) complex_binary)) return 0; Here binary operations with the complex number are defined between the complex number and another complex number, an integer, or a float. Note that the same function `complex_binary' has been used for all three cases. Once does not have to use the same function--- three different ones could be used. The function used to perform binary functions must be prototype like: int complex_binary (int op, unsigned char a_type, unsigned char b_type, VOID *ap, VOID *bp); That is, it must return an integer and take 5 parameters. The first parameter indicates the particular binary operation to be performed and the last 4 parameters determine the values of the objects that are to participate in the binary operation. Specifically, the paramters `ap' and `bp' are pointers to the actual objects and `a_type' and `b_type' indicate the type of the objects represented by `ap' and `bp', respectively. For example, if the binary operation represented by the `!=' operator is to be preformed between two complex numbers, `op' will have the value `SLANG_NE' and both `a_type' and `b_type' will have values of `COMPLEX_NUMBER' (100) and `ap' and `bp' will be pointers to `Complex_Type'. However, if the same operation is to be performed between an integer and a complex number as in `z != 1', then `b_type' will have the value INT_TYPE and `bp' will be a pointer to integer. Note that the function must be able to handle all binary operations defined for it. This includes: SLANG_PLUS (+) SLANG_MINUS (-) SLANG_TIMES (*) SLANG_DIVIDE (/) SLANG_EQ (==) SLANG_NE (!=) SLANG_GT (>) SLANG_GE (>=) SLANG_LT (<) SLANG_LE (<=) If the function handles the indicated binary operation, it should return 1; otherwise, the operation is not defined for the type and the function should return zero. For example, `<', `>', `>=' and `<=' operations are not defined for complex numbers so the function should return 0 if `op' represents one of these numbers. A similar discussion holds for unary operations. In this case, the function has a simpler protoptype of the form: int complex_unary (int op, unsigned char type, VOID *z) and `op' can be any of the following values: SLANG_CHS -x SLANG_SQR sqr(x) SLANG_MUL2 mul2(x) SLANG_ABS abs(x) SLANG_SIGN sign(x) lex numbers so the function should return 0 if `op' represents one of these numbers. A similar discussion holds for unary operations. In this case, the function has a simpler protoptype of the form: int complex_unary (int op, uslang-0.99.12/doc/slang.how000064400000000000003000000300300603742321400152210ustar00rootsys00000000000000This document explains how to embed S-Lang into your C program. It is a good idea to look at the file calc.c as you read this document. For a more extensive application, see the JED editor source. Sections in this document are separated by a dashed line. ------------------------------------------------------------------------ /* * Copyright (c) 1992, 1994 John E. Davis * All rights reserved. * * Permission is hereby granted, without written agreement and without * license or royalty fees, to use, copy, and distribute this * software and its documentation for any purpose, provided that the * above copyright notice and the following two paragraphs appear in * all copies of this software. Permission is not granted to modify this * software for any purpose without written agreement from John E. Davis. * * IN NO EVENT SHALL JOHN E. DAVIS BE LIABLE TO ANY PARTY FOR DIRECT, * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF JOHN E. DAVIS * HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * JOHN E. DAVIS SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A * PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" * BASIS, AND JOHN E. DAVIS HAS NO OBLIGATION TO PROVIDE MAINTENANCE, * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. */ ------------------------------------------------------------------------ Rules of the game: 1. All C called from S-Lang functions are passed parameters by reference NOT by value. For example, suppose you wish to add an intrinsic to S-Lang which is associated with a c function called `calculate_sum' and takes one integer parameter and computes the sum of all integers between 0 and the value of the integer. An acceptable function might look like: int calculate_sum (int *maxn) { int i, sum = 0; for (i = 1; i <= *maxn; i++) sum += i; return (sum); } Again, when S-Lang calls this function, a pointer to the integer is passed! 2. All parameters passed must be regarded as constants. That is, the function should not attempt to modify the value of any object pointed to by the parameter. The following is not allowed: void bad(char *s) { fprintf(stdout, "Passed string is %s", s); /* ok statement */ *s = 0; /* object modified! */ } ------------------------------------------------------------------------ The basic link between your C program and the S-Lang interpreter is through a table that you must create. The table will look something like: SLang_Name_Type some_name_here[] = { MAKE_INTRINSIC(".function_name", c_function, TYPE, number of parameters), . . SLANG_END_TABLE }; It is composed of entries of the form: MAKE_INTRINSIC(".function_name", c_function, TYPE, number of parameters), and ends with `SLANG_END_TABLE'. MAKE_INTRINSIC is a macro which formats the above information in such a way that it can be put into an S-Lang name table. Here `function_name' is the name of the function that is to be associated with the c function `c_function'. Notice the `dot' (.) that preceeds `function_name'. This will be replaced by a hash value at runtime. TYPE is the return type of c_function. It must be one of: VOID_TYPE -- function returns nothing INT_TYPE -- returns integer STRING_TYPE -- returns a char *. FLOAT_TYPE -- returns double precision floating point value. declared in slang.h. `number of parameters' is an integer which indicates the number of parameters the C function requires. Notice that the type of the parameters is not specified. This is because the address of the object is passed and not the object it self. !!! Note: The floating point type used by S-Lang is double precision. For example consider the function `calculate_sum' described earlier. Suppose you wish to have this function associated with the name `sum'. Then the table must contain the entry: MAKE_INTRINSIC(".sum", calculate_sum, INT_TYPE, 1), In addition to C functions, it is also possible to associate global C variables with S-Lang names. This association is provided by the MAKE_VARIABLE macro: MAKE_VARIABLE(".var", &c_variable, TYPE, flag), Here TYPE is one of the above types and flag is an integer which can be either 0 or 1 and indicates whether the variable is read only of not. If the variable is read_only, a S-Lang statement of the form var = 10; will generate a syntax error. Also EVERY string variable added in this manner must be declared as read only. Suppose that your program has a version number string, i.e., char *version = "1.7-21a"; and you wish to make its value available to the S-Lang interpreter. Then, simply put the line MAKE_VARIABLE(".version", version, STRING_TYPE, 1), in the file intrin.ci. Since the variable version is a pointer, the address operator, `&', should be omitted. Any number of MAKE_VARIABLE and MAKE_INTRINSIC statements may be placed in any order the table. ------------------------------------------------------------------------ Finally, once the table is constructed, it may be made known to the S-Lang interpreter using the function int SLang_add_table(SLang_Name_Type *, char *); The first parameter is the table itself and the second parameter is a name given to the table. The name must not begin with an underscore and must be less than 32 characters long. The name is usually the name of the program. This function returns 1 if the table was successfully added to the interpreter or 0 if something went wrong (malloc error). In addition to calling SLang_add_table, one must also call `init_SLang' and perhaps one or more other initialization routines. For example, if your application will be using `sin', `cos', etc, it is also necessary to call `init_SLmath'. If file i/o will be used, call `init_SLfiles' as well. These routines all return 1 if successful or 0 otherwise. For example, calc.c uses: if (!init_SLang() /* basic interpreter functions */ || !init_SLmath() /* sin, cos, etc... */ || !init_SLfiles() /* file i/o */ || !SLang_add_table(Calc_Intrinsics, "Calc")) /* calc specifics */ { fprintf(stderr, "Unable to initialize S-Lang.\n"); exit(1); } where Calc_Intrinsics is the name of a table of the form previously discussed. Most applications will also probably want to load a user initialization file immediately afterwards as in. The initialization file will consists of S-Lang code. For example, suppose the init file is called init.sl. To load it, call: SLang_load_file("init.sl"); This function takes a filename as its argument. If the file name is a NULL pointer, S-Lang will be loaded from stdin. In fact, some programs will want to load from stdin in the form of a command line interface. This is achieved most simply as: while(1) { SLang_load_file(NULL); if (!SLang_Error) break; SLang_restart(1); SLang_Error = 0; } SLang_Error is an integer variable which indicates an error if non-zero. The global variable char *SLang_User_Prompt; is used as a prompt when reading from stdin. If it is NULL (default) no prompt is used. Again, see the source to the JED editor for a complex example of the interaction between S-Lang and C. ----------------------------------------------------------------- This final section provides addition technical information. Global variables: extern volatile int SLang_Error; /* Non zero if error occurs. Must be reset to zero to continue. */ extern int SLang_Traceback; /* If non-zero, dump an S-Lang traceback upon error. Available as _traceback in S-Lang. */ extern char *SLang_User_Prompt; /* Prompt to use when reading from stdin */ extern char SLang_Version[]; extern int (*SLang_Error_Routine)(char *); /* Pointer to application dependent error messaging routine. By default, messages are displayed on stderr. */ extern void (*SLang_Dump_Routine)(char *); /* Called if S-Lang traceback is enabled as well as other debugging routines (e.g., trace). By default, these messages go to stderr. */ extern int (*user_open_slang_object)(SLang_Load_Type *); extern int (*user_close_slang_object)(SLang_Load_Type *); /* user defined loading routines. */ /* Functions: */ extern int init_SLang(void); /* This function is mandatory and must be called by all applications */ extern int init_SLfiles(void); /* called if fputs, fgets, etc are need in S-Lang */ extern int init_SLmath(void); /* called if math functions sin, cos, etc... are needed. */ extern int init_Slunix(void); /* Unix specific system functions stat, lstat, etc... */ int SLang_add_table(SLang_Name_Type *); /* add application dependent function table to S-Lang. Returns 0 upon failure or 1 upon success. */ extern int SLang_load_file(char *); /* Load a file of S-Lang code for interpreting. If the parameter is NULL, input comes from stdin. */ extern void SLang_restart(int); /* should be called if an error occurs. If the passed integer is non-zero, items are popped off the stack; otherwise, the stack is left intact. Any time the stack is believed to be trashed, this routine should be called with a non-zero argument (e.g., if setjmp/longjmp is called). */ extern void SLang_byte_compile_file(char *); /* takes a file of S-Lang code and ``byte-compiles'' it for faster loading. The new filename is equivalent to the old except that a `c' is appended to the name. (e.g., init.sl --> init.slc). extern void SLang_autoload(char *fun, char *file); /* Automatically load S-Lang function `fun' from `file'. This function is also available via S-Lang */ extern char *SLang_load_string(char *); /* Like SLang_load_file except input is from a null terminated string. */ extern void SLang_do_pop(void); /* pops item off stack and frees any memory associated with it */ extern int SLang_pop_integer(int *x); /* pops integer *x from the stack. Returns 0 upon success and non-zero if the stack is empty or a type mismatch occurs, setting SLang_Error. */ extern int SLang_pop_string(char **s, int *flag); /* pops string *s from stack. If *flag is non-zero, the string must be freed after its use. DO NOT FREE s if *flag IS ZERO! Returns 0 upon success */ #define FLOAT double extern int SLang_pop_float(FLOAT *x, int *i, int *convert); /* Pops FLOAT *x from stack. If *convert is non-zero, *x was derived from the integer *i. Returns zero upon success. */ extern long *SLang_pop_pointer(unsigned short *type, int *do_free); /* Returns a pointer to object of type *type on top of stack. If *do_free is non-zero, the Object must be freed after use. */ extern void SLang_push_string(char *s); /* Push string s onto stack */ extern void SLang_push_integer(int i); /* push integer i on stack */ extern void SLang_push_malloced_string(char *s); /* The normal SLang_push_string mallocs space for the string. This one does not. DO NOT FREE IT IF YOU USE THIS ROUTINE */ extern int SLang_is_defined(char *name); /* Return non-zero is name is defined otherwise returns 0. */ extern int SLang_run_hooks(char *fun, char *p1, char *p2); /* calls S-Lang function `fun' pushing strings p1 and p2 onto the stack first. If either string is NULL, it is not pushed. If fun is not defined, 0 is returned. */ extern int SLang_execute_function(char *fun); /* Call S-Lang function `fun' */ extern char *SLang_find_name(char *name); /* Return a pointer to name in table if it is defined. Returns NULL otherwise. This is useful when one wants to avoid redundant strings. */ extern char *SLang_rpn_interpret(char *s); /* Interpret string as reverse polish notation */ extern void SLang_doerror(char *s); /* set SLang_Error and display `s' as error message */ extern long *SLang_add_array(char *, long *, int, int, int, int, char *); /* Undocumented */ ion `fun' */ extern char *SLang_find_name(char *name); /* Return a pointer to name in table if it is defined. Returns NULL otherwise. This is useful when one wants to avoid redundant strings. */ extern char *SLang_rpn_interpret(char *s); /* Interpret string as reverse polish notation */ extern void SLang_doerror(char *s); /* set SLang_Error and display `s' as error message */ extern long *SLang_add_array(char *, long *, int, int, int, int, char *)slang-0.99.12/doc/slang.tex000064400000000000003000001326670603742321400152470ustar00rootsys00000000000000\documentstyle{article} \setlength{\oddsidemargin}{0mm} \setlength{\evensidemargin}{0mm} \setlength{\textwidth}{160mm} \setlength{\topmargin}{-10mm} \setlength{\textheight}{220mm} \parindent=0mm \parskip=5mm \def\mytitle{S-Lang Programmer's Guide} \newlength{\pagewidth} \setlength{\pagewidth}{\textwidth} %\addtolength\pagewidth\marginparwidth % \addtolength\pagewidth\marginparsep \makeatletter \def\ps@headings{\def\@oddfoot{}% \def\@oddhead{\makebox[\textwidth][l]{\underline{\hbox to \pagewidth{\bf \mytitle\hfill\thepage}}}}% \def\@evenfoot{}% \def\@evenhead{\makebox[\textwidth][l]{\underline{\hbox to \pagewidth{\bf \mytitle\hfill\thepage}}}}}% \pagestyle{headings} \newcommand{\slang}{{\bf S-Lang}} \newcommand{\jed}{{\bf jed}} \newcommand{\exmp}[1]{{\tt #1}} \newcommand{\var}[1]{{\tt #1}} %--------------------- end of preamble --------------------------------- \begin{document} \thispagestyle{empty} \vfill \begin{center} {\huge\bf S-Lang\\ \vspace{0.25in} Programmer's\\ \vspace{0.25in} Guide\\ } \large \vspace{0.5in} Version 0.1 \vfill John E. Davis\\ \today \end{center} \vfill \pagebreak %---------------- end of title page --------------------------------- \tableofcontents \section{Introduction} \slang{} (pronounced ``sssslang'') is a powerful stack based interpreter that supports a C-like syntax. It has been designed from the beginning to be easily embedded into a program to make it extensible. \slang{} also provides a way to quickly develop and debug the application embedding it in a safe and efficient manner. Since \slang{} resembles C, it is easy to recode \slang{} procedures in C if the need arises. The \slang{} language features both global variables and local variables, branching and looping constructs, as well as user defined functions. Unlike many interpreted languages, \slang{} allows functions to be dynamically loaded (function autoloading). It also provides constructs specifically designed for error handling and recovery as well as debugging aids (e.g., tracebacks). The core language currently implements signed integer, string, and floating point data types. Applications may also create new types specific to the application (e.g., complex numbers). In addition, \slang{} supports multidimensional arrays those types as well as any application defined types. The syntax of the language is quite simple and is very similar to C. Unlike C, \slang{} variables are untyped and inherit a type upon assignment. The actual type checking is performed at run time. In addition, there is limited support for pointers. \section{Variables} \slang{} is an untyped language and only requires that an variable be declared before it is used. Variables are declared using the \var{variable} keyword followed by a comma separated list of variable names, e.g., \begin{verbatim} variable larry, curly, moe; \end{verbatim} As in C, all statements must end with a semi-colon. Variables can be declared to be either {\em global} or {\em local}. Variables defined inside functions are of the local variety and have no meaning outside the function. It is legal to execute statements in a variable declaration list. That is, \begin{verbatim} variable x = 1, y = sin (x); \end{verbatim} are legal variable declarations. This also provides a convenient way of initializing a variable. The variable's type is determined when the variable is assigned a value. For example, in the above example, \var{x} is an integer and \var{y} is a float since \var{1} is an integer and the \var{sin} function returns a floating point type. \section{Functions} Like variables, functions must be declared before they may be used. The \var{define} keyword is used for this purpose. For example, \begin{verbatim} define factorial (); \end{verbatim} is sufficient to declare a function named \var{factorial}. Unlike \var{variable} keyword, the \var{define} keyword does not accept a list of names. Usually, the above form is used only for recursive functions. The function name is almost always followed by a parameter list and the body of the function, e.g., \begin{verbatim} define my_function (x, y, z) { } \end{verbatim} Here \var{x}, \var{y}, and \var{z} are also implicitly declared as local variables. In addition, the function body must be enclosed in braces. Functions may return zero, one or more values. For example, \begin{verbatim} define sum_and_diff (x, y) { variable sum, diff; sum = x + y; diff = x - y; return sum, diff; } \end{verbatim} is a function returning two values. Please note when calling a function that returns a value, the value returned cannot be ignored. See the section below on assignment statements for more information about this important point. \section{Statements and Expressions} A statement may occur globally outside of functions or locally within functions. If the expression occurs inside a function, it is executed only when the function is called. However, statements which occur outside a function context are evaluated immediately. All statements must end in a semi-colon. \subsection{Assignment Statements} An assignment statement follows the syntax: \begin{verbatim} = ; \end{verbatim} Whitespace is required on {\em both} sides of the equal sign. For example, \begin{verbatim} x = sin (y); \end{verbatim} is correct but \begin{verbatim} x =sin(y); x= sin(y); x=sin(y); \end{verbatim} will generate syntax errors. Often, functions return more than one value. For example, \begin{verbatim} define sum_and_diff (x, y) { return x + y, x - y; } \end{verbatim} returns two values. The most general assignment statement syntax is \begin{verbatim} ( , , ..., ) = ; \end{verbatim} e.g., \begin{verbatim} (s, d) = sum_and_diff (10, 2); \end{verbatim} To ignore one of the return values, simply omit the variable name from the list. For example, \begin{verbatim} (s, ) = sum_and_diff (10, 2); \end{verbatim} may be used if one is only interested in the first return value. Some functions return a variable number of values. Usually, the first value will indicate the actual number of return values. For example, the \var{fgets} function returns either one or two values. If the first value is zero, there is no other return value. In this case, one must use another form of assignment since the previously discussed forms are inadequate. For example, \begin{verbatim} n = fgets (fd); if (n != 0) { s = (); . . } \end{verbatim} In this example, the first value returned is assigned to \var{n} and tested. If it is non-zero, the second return value is assigned to \var{s}. The empty set of parenthesis is required. Please note that RETURN VALUES CANNOT BE IGNORED. There are several ways of dealing with a return value when one does not care about it. For example, the function \var{fflush} returns a value. However, most C programs that call this function almost always ignore the return value. In \slang{}, one can use any of the following forms: \begin{verbatim} variable dummy; dummy = fflush (fd); () = fflush (fd); fflush (fd); pop (); \end{verbatim} The second form is perhaps the most clear way of indicating that the return value is being ignored. \subsection{Binary Operators} \slang{} supports a variety of binary operators. These include the usual arithmetic operators (\var{+}, \var{-}, \var{*}, \var{/}, and \var{mod}), the comparison operators (\var{>}, \var{>=}, \var{<}, \var{<=}, \var{!=}, and \var{==}) as well boolean operators (\var{or} and \var{and}) and bitwise operators (\var{|}, \var{\&}, \var{xor}, \var{shl} and \var{shr}). Like the assignment operator, these operators must also be surrounded by whitespace. That is, \begin{verbatim} x = y + z; \end{verbatim} is a legal statement but \var{x = y+z;} is not legal. To use these operators effectively, in addition to understanding the meaning of the operation, one must also understand the precedence level of the operator. In \slang{}, there are only three levels of precedence. The highest level consists of the \var{*}, \var{/}, and \var{mod} operators. The second level consists of the \var{+} and \var{-} operators. All other binary operators fall into the last level of precedence. Within a precedence level, operators are evaluated left to right. Parenthesis may be used to change the order of evaluation. For example, the expression: \begin{verbatim} a == b or c == d \end{verbatim} IS NOT the same as: \begin{verbatim} (a == b) or (c == d) \end{verbatim} since \var{==} and \var{or} share the same level of precedence. In fact, the expression without parenthesis is evaluated left to right and is equivalent to \var{((a == b) or a) == c}. Finally, \slang{} supports the increment and decrement operators \var{++} and \var{--}, and the arithmetic assignment operators \var{+=} and \var{-=}. Presently, these operators only work with integer types and a type mismatch error will result from the use of these operators with other types. These following table shows the meaning of these operators. \begin{verbatim} Expression Meaning ---------- --------- ++x; x = x + 1; x++; x = x + 1; --x; x = x - 1; x--; x = x - 1; x += n; x = x + n; x -= n; x = x - n; \end{verbatim} Note that \slang{} does not distinguish between \var{x--} and \var{--x} since neither of these forms return a value as they do in C. With this in mind, do not use constructs such as: \begin{verbatim} while (i--) .... % test then decrement while (--i) .... % decrement first then test \end{verbatim} Instead, use something like \begin{verbatim} while (i, i--) .... % test then decrement while (i--, i) .... % decrement first then test \end{verbatim} These operators work only on simple scalar variables. In particular, \exmp{++(x)} is NOT the same as \exmp{++x} and will generate an error. Whenever possible, these latter four operations should be used since they execute 2 to 3 times faster than the longer forms. \subsubsection{Short Circuit Boolean Evaluation} The boolean operators \var{or} and \var{and} ARE NOT SHORT CIRCUITED as they are in some languages. \slang{} uses the \var{orelse} and \var{andelse} operators for short circuit boolean evaluation. However, these are not binary operators. Expressions of the form: \begin{verbatim} and and ... and \end{verbatim} can be replaced by the short circuited version using \var{andelse}: \begin{verbatim} andelse {} {} {} ... {} \end{verbatim} A similar syntax holds for the \var{orelse} operator. For example, consider the statement: \begin{verbatim} if ((x != 0) and (1 / x < 10)) do_something (); \end{verbatim} Here, if \var{x} were to have a value of zero, a division by zero error would occur because even though \var{x != 0} evaluates to zero, the \var{and} operator is not short circuited and the \var{1 / x} expression would be evaluated. For this case, the \var{andelse} operator could be used to avoid this problem: \begin{verbatim} if (andelse {x != 0} {1 / x < 10}) do_something (); \end{verbatim} \subsection{Unary Operators} The UNARY operators operate only upon a single integer. They are defined by the following table below. In this table, the variable \var{i} is an integer type and \var{x} represents either a floating point or integer variable. \begin{verbatim} Unary Expression Meaning ---------------- ------------------------------------------------- not (i) if i is non-zero return zero else return non-zero ~(i) bitwise not sqr(x) the square of x mul2(x) multiplies x by 2 chs (x) change the sign of x -x same as chs (x) sign (x) +1 if x > 0, -1 if x < 0, and 0 if x equals 0 abs (x) absolute value of x \end{verbatim} Note the following points: \begin{itemize} \item All unary operators except \var{not} and \var{\~{}} operator on both integer and floating point types. \item The \var{!} operator used in C is not used in \slang{}, \var{not} must be used instead. \item The bitwise not operator \var{\~{}} must enclose its argument in parenthesis. \var{\~{}i} will be flagged as a syntax error. \item Some applications which embed \slang{} may overload these operators to work with application defined data types. \end{itemize} \subsection{Data Types} Currently, \slang{} only supports integer, floating point (double precision), and character string data types. It is possible for an application that embeds \slang{} to define other, application specific, data types (e.g., complex numbers). In addition, the language supports arrays of any of these types (including application specific types). \subsubsection{Integers} Unsigned integers are not supported. An integer can be specified in one of several ways: \begin{itemize} \item As a decimal integer consisting of the characters \var{0} through \var{9}, e.g., \var{127}. The number cannot begin with a leading \var{0}. That is, \var{0127} is not the same as \var{127}. \item Using hexidecimal (base 16) notation consisting of the characters \var{0} to \var{9} and \var{A} through \var{F}. The hexidecimal number must be preceded by the characters \var{0x}. For example, \var{0x7F} is the same thing as decimal \var{127}. \item In Octal notation using characters \var{0} through \var{7}. The Octal number must begin with a leading \var{0}. For example, \var{0177} is the same thing as \var{127} decimal. \item Using character notation containing a character enclosed in single quotes as \exmp{'a'}. The value of the integer specified this way will lie in the range $0$ to $256$ and will be determined by the ascii value of the character in quotes. For example, \begin{verbatim} i = '0'; \end{verbatim} results in a value of 48 for \var{i} since the character \var{0} has an ascii value of 48. Strictly speaking, \slang{} has no character type. \end{itemize} Any integer may be preceded by a minus sign to indicate that it is a negative integer. \subsubsection{Floating Point Numbers} Floating point numbers must contain either a decimal point or an exponent (or both). Here are examples of specifying the same floating point number: \begin{verbatim} 12., 12.0, 12e0, 1.2e1, 120e-1, .12e2 \end{verbatim} Note that \var{12} is NOT a floating point number since it contains neither a decimal point nor an exponent. If fact, \var{12} is an integer. \subsubsection{Strings} A literal string must be enclosed in double quotes as in: \begin{verbatim} "This is a string". \end{verbatim} Although there is no imposed limit on the length of a string, literal strings must be less than 256 characters. It is possible to go beyond this limit by string concatenation. Any character except a newline (ascii 10) or the null character (ascii 0) may appear in the {\em definition} of the string. The backslash is a special character and is used to include special characters (such as a newline character) in the string. The special characters recognized are: \begin{verbatim} \" -- double quote \' -- single quote \\ -- backslash \a -- bell character \t -- tab character \n -- newline character \e -- escape (S-Lang extension) \xhhh -- character expressed in HEXIDECIMAL notation \ooo -- character expressed in OCTAL notation \dnnn -- character expressed in DECIMAL (S-Lang extension) \end{verbatim} For example, to include the double quote character as part of the string, it is to be preceded by a backslash character, e.g., \begin{verbatim} "This is a \"quote\"" \end{verbatim} \subsection{Mixing integer and floating point arithmetic.} If a binary operation (+, -, * , /) is performed on two integers, the result is an integer. If at least one of the operands is a float, the other is converted to float and the result is float. For example: \begin{verbatim} 11 / 2 --> 5 (integer) 11 / 2.0 --> 5.5 (float) 11.0 / 2 --> 5.5 (float) 11.0 / 2.0 --> 5.5 (float) \end{verbatim} Finally note that only integers may be used as array indices, for loop control variables, shl, shr, etc bit operations. Again, if there is any doubt, use the conversion functions \var{int} and \var{float} where appropriate: \begin{verbatim} int (1.5) --> 1 (integer) float(1.5) --> 1.5 (float) float (1) --> 1.0 (float) \end{verbatim} \subsection{Conditional and Branching Statements} \slang{} supports a wide variety of looping (\var{while}, \var{do while}, \var{loop}, \var{for}, \var{forever}, and \var{\_for}) and branching (\var{if}, \var{!if}, \var{else}, \var{andelse}, \var{orelse}, and \var{switch}) statements. These constructs operate on code statements grouped together in {\em blocks}. A block is a sequence of \slang{} statements enclosed in braces and may contain other blocks. However, a block cannot include function declarations; function declarations must take place at the top level. In the following, \var{statement} refers to either a single \slang{} statement or to a block of statements and \var{\{ block \}} refers to a block of statements. \subsubsection{if, if-else} \begin{verbatim} if (expression) statement; \end{verbatim} Evaluates \var{statement} if the result of \var{expression} is non-zero. The \var{if} statement can also be followed by an \var{else}: \begin{verbatim} if (expression) statement; else statement; \end{verbatim} \subsubsection{!if} \begin{verbatim} !if (expression) statement; \end{verbatim} Evaluates \var{statement} if \var{expression} is evaluates to zero. Note that there is no \var{!if-else} statement. \subsubsection{orelse, andelse} These constructs were discussed earlier. The syntax for the \var{orelse} statement is: \begin{verbatim} orelse { block } { block } ... { block }. \end{verbatim} This causes each of the blocks to be executed in turn until one of them returns a non-zero integer value. The result of this statement is the integer value returned by the last block executed. For example, \begin{verbatim} orelse { 0; } { 6; } { 2; } {3; } \end{verbatim} returns \var{6} since the second block returns the non-zero result \var{6} and the last two block will not get executed. The syntax for the \var{andelse} statement is: \begin{verbatim} andelse { block } { block } ... { block }. \end{verbatim} Each of the blocks will be executed in turn until one of them returns a zero value. The result of this statement is the integer value returned by the last block executed. For example, \begin{verbatim} andelse { 6; } { 2; } { 0; } {4; } \end{verbatim} returns \var{0} since the third block will be the last to execute. \subsubsection{while} \begin{verbatim} while (expression) statement; \end{verbatim} Repeat \var{statement} while \var{expression} returns non-zero. For example, \begin{verbatim} j = 20; i = 10; while (i) { j = j + i; i = i - 1; } \end{verbatim} will cause the block to execute 10 times. \subsubsection{do-while} \begin{verbatim} do statement; while (expression); \end{verbatim} Execute \var{statement} then test \var{expression}. Repeat while \var{expression} is returns non-zero. This guarantees that \var{statement} will be executed at least once. \subsubsection{for} \begin{verbatim} for (expr1; expr2; expr3) statement; \end{verbatim} Evaluate \var{expr1} first. Then loop executing \var{statement} while \var{expr2} returns non-zero. After every evaluation of \var{statement} evaluate \var{expr3}. For example, \begin{verbatim} variable i, sum; sum = 0; for (i = 1; i <= 10; i++) sum += i; \end{verbatim} computes the sum of the first 10 integers. \subsubsection{loop} \begin{verbatim} loop (n) statement; \end{verbatim} Evaluate \var{statement} \var{n} times. If \var{n} is less than zero, \var{statement} is not executed. \subsubsection{forever} \begin{verbatim} forever statement; \end{verbatim} Loop evaluating statement forever. Forever means until either a \var{break} or \var{return} statement is executed. \subsubsection{switch} The switch statement deviates the most from its C counterpart. The syntax is: \begin{verbatim} switch (x) { ... : ...} . . { ... : ...} \end{verbatim} Here the object \var{x} is pushed onto the stack and the sequence of blocks is executed. The \var{:} operator is a \slang{} special symbol which means to test the top item on the stack, if it is non-zero, the rest of the block is executed and control then passes out of the switch statement. If the test is false, execution of the block is terminated and the process repeats for the next block. The special keyword \var{case} may be used to compare the value of objects. It returns non-zero if the objects correspond to the same object and zero otherwise. For example: \begin{verbatim} variable x = 3; switch (x) { case 1: print("Number is one.")} { case 2: print("Number is two.")} { case 3: print("Number is three.")} { case 4: print("Number is four.")} { case 5: print("Number is five.")} { pop(); print ("Number is greater than five.")} \end{verbatim} Here \var{x} is assigned a value of $3$ and the \var{switch} statement pushes the $3$ onto the stack. Control then passes to the first block. The first block uses the \var{case} construct to compare the top top stack item ($3$) with $1$. This test will result with zero at the top of the stack. The \var{:} operator will then pop the top stack item and if it is zero, control will be passed to the next block where the process will be repeated. In this case, control will pass to the second block and on to the third block. When the \var{:} operator is executed for the third block, a non-zero value will be left on the top of the stack and the \var{print} function will be called. Control then passes onto the statement following the last block of the \var{switch} statement. Note that, in this example, the last block does not test the value of \var{x} against anything. Instead, if this block is executed, the top stack item (the value of \var{x} in this case) will be removed from the stack by the \var{pop} function and the rest of the block executed. Unlike most other languages with some form of switch statement, \var{x} does not have to be a simple integer. For example, the following is perfectly acceptable: \begin{verbatim} variable x; x = "three"; switch (x) { case "one": print("Number is 1.")} { case "two": print("Number is 2.")} { case "three": print("Number is 3.")} { case "four": print("Number is 4.")} { case "five": print("Number is 5.")} { pop(); print ("Number is greater than 5.")} \end{verbatim} Again, the \var{case} function is used to test the top stack item and the last block serves as a ``catch-all''. \subsubsection{break, return, continue} \slang{} also includes the non-local transfer functions \var{return}, \var{break}, and \var{continue}. The \var{return} statement causes control to return to the calling function while the \var{break} and \var{continue} statements are used in the context of loop structures. Here is an example: \begin{verbatim} define fun () { forever { s1; s2; .. if (condition_1) break; if (condition_2) return; if (condition_3) continue; .. s3; } s4; .. } \end{verbatim} Here, a function \var{fun} has been defined that includes a \var{forever} loop which consists of statements \var{s1}, \var{s2},\ldots,\var{s3} and $3$ boolean conditions. As long as \var{condition\_1}, \var{condition\_2}, and \var{condition\_3} return $0$, statements \var{s1}, \var{s2},\ldots,\var{s3} will be repeatedly executed. However, if \var{condition\_1} returns a non-zero value, the \var{break} statement will get executed, and control will pass out of the \var{forever} loop to the statement immediately following the loop which in this case is \var{s4}. Similarly, if \var{condition\_2} returns a non-zero number, \var{return} will cause control to pass back to the caller of \var{fun}. Finally, the \var{continue} statement will cause control to pass back to the start of the loop, skipping the statement \var{s3} altogether. \subsection{Arrays} Arrays are created using the function call \var{create\_array}. The type of the array and the size of the array are specified by parameters to this function. The calling syntax is: \begin{verbatim} x = create_array (, i_1, i_2 ... i_dim, dim); \end{verbatim} Here a \var{dim} dimensional array of type specified by \var{} is created. The size of the array in the {\em nth} dimension is specified by the parameters \var{i\_1}\ldots\var{i\_n} parameter. The \var{} parameter may be any one of the values given in the following table: \begin{verbatim} Parameter Type of array --------- ------------- 's' array of strings 'f' array of floats 'i' array of integers 'c' array of characters \end{verbatim} Other integer values for the type may be given for applications which defined application specific types to create arrays of those types. In the current implementation, \var{dim} cannot be larger than $3$. Also note that space is dynamically allocated for the array and that, upon assignment, copies of the array are NEVER used. Rather, references to the array are used by the assignment statements. For example: \begin{verbatim} variable a = create_array ('f', 10, 20, 1); variable b = a; \end{verbatim} This creates a 2 dimensional $10 \times 20$ array of $200$ floats and assigns it to \var{a}. The second statement makes the variable \var{b} also refer to the array specified by variable \var{a}. Accessing a specific element of the array may be accomplished by placing the ``coordinates'' of the element in square brackets. For example, to access the $(3, 4)$ element of the above array use \exmp{a[3, 4]}. Note that this differs from the way the C language specifies array access and that, like the C language, array subscripts start from 0. Finally, array notation may also be used for extracting characters from a string. For example, if one has: \begin{verbatim} variable ch, s = "Hello World"; \end{verbatim} then \exmp{ch = s[0]} could be used to extract the first character from the string \var{s}. However, this syntax cannot be used to replace characters in the string, i.e., \var{s[0] = ch} is illegal and will generate an error. For the latter case, one must either use the \var{strsub} function or use a character array. Examples: Here is a function that computes the trace (sum of the diagonal elements) of a square 2 dimensional $n \times n$ array: \begin{verbatim} define array_trace (a, n) { variable sum = 0, i; for (i = 0; i < n; i++) sum = sum + a[i, i]; return sum; } \end{verbatim} This fragment creates a $10 \times 10$ integer array, sets its diagonal elements to $5$, and then computes the trace of the array: \begin{verbatim} variable a, j, the_trace; a = create_array('i', 10, 10, 2); for (j = 0; j < 10; j++) a[j, j] = 5; the_trace = array_trace(a, 10); \end{verbatim} \subsection{Stack Operators} The use of local variables greatly simplifies the task of maintaining the stack. Nevertheless, \slang{} is really a stack based language and there are times when they are useful. \begin{verbatim} pop % removes the top object from the stack dup % duplicates the top object on the stack exch % exchanges top 2 objects on the stack \end{verbatim} These operators work on all data types -- they are not limited to integers. \section{Advanced Topics} This section should be thoroughly understood by anyone serious about using the \slang{} language. \subsection{Loading Files: evalfile and autoload} Most \slang{} based applications will load a startup file which consists of \slang{} function definitions. The file may load other files of \slang{} code via the \var{evalfile} intrinsic function. This function takes one string argument (the filename) and returns a non-zero value if the file was successfully loaded, otherwise it returns zero. For example, \begin{verbatim} !if (evalfile("my_functs.sl")) error("Error loading File!"); \end{verbatim} instructs the interpreter to load the file \var{my\_functs.sl} and returns an error message upon failure. A nice feature found in \slang{} and not found in many interpreters in the ability to automatically load functions when they are used. For example, consider the \jed{} editor which embeds \slang{} as its extension language. \jed{} includes a set of \slang{} routines defined in a file \var{info.sl} which read GNU info files. In particular, \jed{}'s online documentation is in info format. It is extremely unlikely that one would read the online documentation every time one edits a file. Thus, it is not normally necessary to load this file of \slang{} code. Since the main entry point into the info reader is the function \var{info\_run\_info}, \jed{} includes the line \begin{verbatim} autoload("info_run_info", "info.sl"); \end{verbatim} in its main startup file (\var{site.sl}). This line lets the \slang{} interpreter know that when the \var{info\_run\_info} function is called, the file \var{info.sl} is to be loaded first. \subsection{Error Handling} Many intrinsic functions signal errors in the event of failure. This is done internally in the underlying C code by setting \var{SLang\_Error} to a non-zero value. Once this happens, \slang{} will start to return to top level by ``unwinding'' the stack. However, there are times when some cleanup needs to be done. This is facilitated in \slang{} through the concept of {\em error blocks}. An error block is a block of code that gets executed in the event of an error. An error block is declared by the \var{ERROR\_BLOCK} directive. As an example, consider the following: \begin{verbatim} define example () { ERROR_BLOCK {print("Error Block executed!"); } while (1); % executes forever } \end{verbatim} Here a function called \var{example} has been defined. It assumes an intrinsic function \var{print} has been defined and that there is some way for the user to signal a quit condition which the underlying C code will trap and raise \var{SLang\_Error} to a non-zero value. The \var{while} loop will execute forever until an error condition is signaled. When that happens, the error block will get executed. Consider another example from the \jed{} editor. When the user starts up \jed{} with no filename, a message is displayed in the \var{*scratch*} buffer until the user hits a key: \begin{verbatim} define startup_hook() { !if (strcmp("*scratch*", whatbuf())) return; insert("This is the JED editor.\n\nFor help, hit Control-H Control-H"); bob(); update(1); () = input_pending(300); % wait up to 300 seconds for input erase_buffer(); } \end{verbatim} This is a function that \jed{} automatically calls upon startup. If the buffer is the \var{*scratch*} buffer, a short help message is displayed; otherwise the function returns. Then \jed{} will wait $300$ seconds or until the user hits a key at which point it will erase the buffer. This will work fine unless the user does something to generate an error. For example, errors will be generated of the user presses the {\sc Ctrl-G} key to signal a quit condition, tries to delete past the beginning of the buffer, etc\ldots If an error is generated, \slang{} will abort before erasing the buffer. This will leave the help message on the screen and in the buffer which is not what is desired. To prevent this, an error block is used: \begin{verbatim} define startup_hook() { !if (strcmp("*scratch*", whatbuf())) return; ERROR_BLOCK {erase_buffer();} insert("This is the JED editor.\n\nFor help, hit Control-H Control-H"); bob(); update(1); () = input_pending(300); % wait up to 300 seconds for input EXECUTE_ERROR_BLOCK; } \end{verbatim} Here an error block has been declared and consists of the single statement \var{erase\_buffer()}. If an error occurs the buffer will be erased. The statement \var{EXECUTE\_ERROR\_BLOCK} is a \slang{} directive that says to go ahead and execute the error block even if no error has occurred. Error blocks will not get executed for all errors. For example, if there is a memory allocation error or an error associated with the stack, it would make no sense to call the error block. Once an error has been caught by an error block, the error can be cleared by the \var{\_clear\_error} function. After the error has been cleared, execution resumes at the next statement at the level of the error block following the statement that generated the error. For example, consider: \begin{verbatim} define make_error () { error ("Error condition created."); print ("This statement is not executed."); } define test () { ERROR_BLOCK { _clear_error (); } make_error (); print ("error cleared."); } \end{verbatim} Note that although the error was triggered in the \var{make\_error} function, the error was cleared in the \var{test} function. As a result, execution resumes after the statement that makes the call to \var{make\_error} since this statement is at the same level as the error block that cleared the error. Here is another example that illustrates how multiple error blocks work. \begin{verbatim} define test () { variable n = 0, s = ""; ERROR_BLOCK { print (Sprintf ("s = %s, n = %d", s, n, 2)); _clear_error (); } forever { ERROR_BLOCK { s = strcat (s, "0"); _clear_error (); } if (n == 0) error (""); ERROR_BLOCK { s = strcat (s, "1"); } if (n == 1) error (""); n++; } } \end{verbatim} Here, three error blocks have been declared. One has been declared outside the \var{forever} loop and the other two have been declared inside the \var{forever} loop. Each time through the loop, the variable \var{n} is incremented and a different error block is triggered. The error block that gets triggered is the last one encountered. On the first time through the loop, \var{n} will be zero and the first error block in the loop will be executed. This error block clears the error and execution will resume following the \var{if} statement that triggered the error. The variable \var{n} will be incremented to $1$ and, on the second cycle through the loop, and the second \var{if} statement will trigger an error and the second error block will execute. This time, the error is not cleared and the \var{forever} loop will abort causing the error block outside the \var{forever} loop to fire. This block prints out the values of the variables \var{s} and \var{n}. It will clear the error and execution resumes on the statement {\em following} the \var{forever} loop. In the end, \exmp{s = 01, n = 1} will be printed. To summarize, \var{ERROR\_BLOCK} is a directive that declares an error block. The \var{EXECUTE\_ERROR\_BLOCK} directive indicates that the error block is to be executed at this point--- no error is necessary. In addition, error blocks may be defined at multiple levels. As the stack unwinds in response to an error condition, all error blocks in scope will get executed. The function \var{\_clear\_error} can be used to clear the error condition. Emacs elisp programmers should note the similarity to the Emacs elisp function `unwind-protect'. \subsection{Exit and User Blocks} Error blocks get executed as the result of an error or when the directive \var{EXECUTE\_ERROR\_BLOCK} is encountered. There are two other types of blocks that are useful: {\em exit blocks} and {\em user blocks}. \subsubsection{Exit Blocks} An exit block is declared using the directive \var{EXIT\_BLOCK}. It is executed when the function returns. For example, consider: \begin{verbatim} define test () { variable n = 0; EXIT_BLOCK { print ("Exit block called."); } forever { if (n == 10) return; n++; } } \end{verbatim} Here, the function contains an exit block and a \var{forever} loop. The loop will terminate via \var{return} when \var{n} is $10$. When it returns, the exit block will be called. Exit blocks are very useful for cleaning up when a function returns via an explicit call to \var{return} deep within the function. \subsubsection{User Blocks} A user block is similar to a function within a function. Up to 5 user blocks may be declared per function. Unlike functions, user blocks do not take arguments but do have access the function's local variables. User blocks are denoted by the directives \var{USER\_BLOCK0}, \var{USER\_BLOCK1}, \var{USER\_BLOCK2}, \var{USER\_BLOCK3}, and \var{USER\_BLOCK4}. The directives \var{X\_USER\_BLOCK0}, \var{X\_USER\_BLOCK1}, \var{X\_USER\_BLOCK2}, \var{X\_USER\_BLOCK3}, and \var{X\_USER\_BLOCK4} may be used to call the user blocks. Here is an example: \begin{verbatim} define silly () { variable s1, s2, ch = 'a'; USER_BLOCK0 { s1 = (); Sprintf ("%s & %c", s1, ch, 2); ch++; } s2 = ""; s2 = X_USER_BLOCK0 (s2); s2 = X_USER_BLOCK0 (s2); s2 = X_USER_BLOCK0 (s2); s2 = X_USER_BLOCK0 (s2); print (s2); } \end{verbatim} Here a user block has been declared. Although user blocks are not functions, as the example demonstrates, they can be used as functions. This is possible because \slang{} is a stack based language and parameters are passed via the stack. \subsection{Aliases} \slang{} supports a limited concept of a pointer known as an \var{alias}. Variables can be declared to be aliases for global functions or global variables. Consider the following three functions: \begin{verbatim} define first () { print("First"); } define second () { print("Second"); } define first_second() { variable f; f = &first; f(); % Line 1 (see text) f = &second; f(); % Line 2 (see text) } \end{verbatim} Here three functions have been defined. The functions \var{first} and \var{second} should be quite clear. However, the function \var{first\_second} looks somewhat strange because of the appearance of the \var{\&} character. When the interpreter encounters a function or variable name immediately preceded by the \var{\&} character, it pushes the address of the OBJECT referenced by the name onto the stack rather than pushing its value (variable) or executing it (function). The object referred to {\em must be a global object}, either a global variable or a global function. Thus \var{\&first} pushes the address of the function \var{first} on the stack rather than calling \var{first}. The local variable \var{f} is then assigned this address. Note that after the assignment, \var{f} is neither a string type nor an integer type. Rather, it becomes a function type and and is synonymous with the function \var{first}, i.e., it is an alias for \var{first}. Hence the line labeled ``Line 1'' above simply calls the function \var{first}. A similar statement holds for ``Line 2'' which results in the function \var{second} getting called. Finally note that aliases may be passed as arguments. Consider: \begin{verbatim} define execute_function (f) { f(); } \end{verbatim} Then \begin{verbatim} execute_function(&first); execute_function(&second); \end{verbatim} will work as in the above example. This concept should be clear to most C programmers or to LISP programmers who will interpret the \var{\&} prefixing the object name as simply quoting the object. \subsection{Functions returning multiple values} There are some functions which return multiple values. For example, \slang{}'s implementation of the \var{fgets} function takes a single argument, a handle an to open file, and usually returns two values: the number of characters read followed by the character string itself. The question immediately arises about how to handle such a function. The answer to this question is to understand the stack. Consider the following function which ``types'' out a file to the standard output device. \begin{verbatim} define display_file(file) { variable n, fp, buf; fp = fopen(file); if (fp == -1) error("fopen failed."); while (n = fgets(fp), n > 0) { buf = (); % <----- stack () = fputs(buf, stdout); % ignore return value. } if (fclose(fp) <= 0) error("fclose failed."); } \end{verbatim} The \var{fgets} function returns $2$ items to the stack only when it reads one or more characters from the file. If it encounters the end of the file, it returns 0 and nothing else. If an error occurs when reading, it returns -1. The line containing the comment above illustrates how to assign the top stack item to a variable. Note also, that the two lines: \begin{verbatim} buf = (); () = fputs(buf, 1); \end{verbatim} can be replaced by the single line: \begin{verbatim} () = fputs((), 1); \end{verbatim} It is also permissible to replace \var{buf = ()} by simply \var{=buf}. Note that there is no space between the \var{=} and \var{buf} in the latter form. Someone might simply suggest to do it like it is done in C, i.e., \begin{verbatim} n = fgets(buf, fp); \end{verbatim} However, this is impossible in \slang{}, and it is not even desirable. \slang{} is an interpreted language and one of the reasons for using it over the C language is to free oneself from problems which can arise in the above \var{C} expression. Finally, note that, when used as an argument, \var{()} is simply a disguise for the the {\em top} stack item. Consider the following code fragment: \begin{verbatim} variable div_1, div_2; 12; div_1 = () / 4; % push 12 on stack then do division 4; div_2 = 12 / (); % push 4 on stack then do division \end{verbatim} The value of \var{div\_1} will be the expected result of $12 / 4 = 3$; however, \var{div\_2} will have the value of $4 / 12$! The reason is that {\em after parsing}, \var{()} will be replaced by the {\em top} stack item and in the second case, $12$ will be the top stack item, not $4$. If this point is unclear, it is better to simply avoid the use of \var{()} in this manner. \end{document} do division 4; div_2 = 12 / (); % push 4 on stack then dslang-0.99.12/doc/texconv.c000064400000000000003000000276350603742321400152510ustar00rootsys00000000000000#include #include FILE *Input_Fp = stdin; FILE *Output_Fp = stdout; static int begin_parse (void); /* -------------- Output routines ----------------------------------*/ static int Quiet_Mode; static void msg_error (char *err, int severity) { if (Quiet_Mode && !severity) return; if (severity == 0) fprintf (stderr, "Not understood: %s\n", err); else fprintf (stderr, "%s\n", err); } static void usage (void) { fputs ("\ Usage: texconv [-hlp] [-quiet] input-file-name output-file-name\n\ -hlp : generate a VMS style hlp file\n\ -quiet: suppress warnings\n\ ", stderr); exit (-1); } static int Hlp_Mode = 0; static int Section_Num; static int SubSection_Num; static int SubSubSection_Num; static int This_Column = 1; static int Doing_Section; static int Output_Ok; static int No_Output; static void my_putc (int x) { if (No_Output || (Output_Ok == 0)) return; if (Doing_Section && Hlp_Mode && (x == ' ')) x = '_'; putc(x, Output_Fp); if (x == '\n') { if (Doing_Section && !Hlp_Mode) { x = Doing_Section; while (This_Column--) putc (x, Output_Fp); putc ('\n', Output_Fp); } Doing_Section = 0; This_Column = 1; } else This_Column++; } static void my_print (char *line) { while (*line) my_putc ((int) *line++); } /* --------------------- routines to handle LaTeX commands ------------- */ int bf_fun (char *tok) { return begin_parse (); } int em_fun (char *tok) { return begin_parse (); } int verb_fun (char *tok) { int ch1, ch; ch1 = getc (Input_Fp); while ((ch1 != (ch = getc (Input_Fp))) && (ch != EOF)) { my_putc (ch); } return 0; } int swallow_argument (char *tok) { int ch; while (((ch = getc (Input_Fp)) != EOF) && (ch != '{')); No_Output++; begin_parse (); No_Output--; } int swallow_double_argument (char *tok) { swallow_argument (tok); return swallow_argument (tok); } int parbox_cmd (char *tok) { int ch; while (((ch = getc (Input_Fp)) != EOF) && (ch != '{') && (ch != '[')); if (ch == '[') while (((ch = getc (Input_Fp)) != EOF) && (ch != ']')); swallow_argument (tok); } int section_fun (char *tok) { int ch; char line[256]; Section_Num++; SubSection_Num = SubSubSection_Num = 0; if (Hlp_Mode) my_print ("\n1"); else { sprintf (line, "\n%d ", Section_Num); my_print (line); } while (((ch = getc (Input_Fp)) != EOF) && (ch != '{')); Doing_Section = '='; begin_parse (); return 0; } int subsection_fun (char *tok) { char line[256]; int ch; SubSection_Num++; SubSubSection_Num = 0; if (Hlp_Mode) my_print ("\n2"); else { sprintf (line, "\n%d.%d ", Section_Num, SubSection_Num); my_print (line); } while (((ch = getc (Input_Fp)) != EOF) && (ch != '{')); Doing_Section = '-'; begin_parse (); my_putc ('\n'); return 0; } int subsubsection_fun (char *tok) { char line[256]; int ch; SubSubSection_Num++; if (Hlp_Mode) my_print ("\n3"); else { sprintf (line, "\n%d.%d.%d ", Section_Num, SubSection_Num, SubSubSection_Num); my_print (line); } while (((ch = getc (Input_Fp)) != EOF) && (ch != '{')); Doing_Section = '.'; begin_parse (); my_putc ('\n'); return 0; } int extract_token (char *token) { int ch; while (ch = getc (Input_Fp), (ch <= ' ') && (ch != EOF)); while ((ch > ' ') && (ch != '}') && (ch != EOF)) { *token++ = (char) ch; ch = getc (Input_Fp); } *token = 0; if (ch == EOF) { msg_error ("Unexpected end of file.", 1); } return ch; } int begin_fun (char *tok) { int ch; char token[80], *t; char *verb = "end{verbatim}"; while (ch = getc (Input_Fp), (ch != '{') && (ch != EOF)); if (ch == EOF) { msg_error ("Unexpected end of file.", 1); return ch; } ch = extract_token (token); while ((ch != '}') && (ch != EOF)) ch = getc (Input_Fp); if (!strcmp (token, "document")) Output_Ok = 1; if (!strcmp (token, "verbatim")) { if (Output_Ok == 0) return 0; while ((ch = getc (Input_Fp)) != EOF) { if (ch == '\\') { char *t1 = verb; t = verb; while (((ch = getc (Input_Fp)) != EOF) && *t) { if ((char) ch == *t) t++; else break; } if (ch == EOF) { msg_error ("Unexpected end of file.", 1); break; } if ((*t == 0) && (ch <= ' ')) break; /* verbatim finished */ my_putc ('\\'); while (t1 < t) { my_putc (*t1); t1++; } ungetc (ch, Input_Fp); } else my_putc (ch); } } my_putc ('\n'); return ch; } int end_fun (char *tok) { int ch; while (ch = getc (Input_Fp), (ch != '{') && (ch != EOF)); if (ch == EOF) { msg_error ("Unexpected end of file.", 1); return EOF; } /* Later I will parse what we are ending */ while ((ch != '}') && (ch != EOF)) ch = getc (Input_Fp); my_putc ('\n'); return 0; } int item_fun (char *tok) { /* Later I will worry about actually indenting it. */ my_print ("\n * "); return 0; } int verbatim_fun (char *t) { int ch; char *verb = "\\ev"; if (Output_Ok == 0) return 0; while ((ch = getc (Input_Fp)) != EOF) { if (ch == '\n') { char *t1 = verb; t = verb; while (((ch = getc (Input_Fp)) != EOF) && *t) { if ((char) ch == *t) t++; else break; } if (ch == EOF) { msg_error ("Unexpected end of file.", 1); break; } my_putc ('\n'); if ((*t == 0) && (ch <= ' ')) break; /* verbatim finished */ while (t1 < t) { my_putc (*t1); t1++; } ungetc (ch, Input_Fp); } else my_putc (ch); } my_putc ('\n'); return 0; } int quote_fun (char *tok) { int c; while (((c = getc (Input_Fp)) != EOF) && (c != '{')); my_putc ('`'); begin_parse (); my_putc ('\''); return 0; } int today_fun (char *tok) { char *the_time; time_t clock; clock = time((time_t *) 0); the_time = (char *) ctime(&clock); /* returns the form Sun Sep 16 01:03:52 1985\n\0 */ the_time[24] = '\0'; my_print (the_time); return 0; } typedef struct { char name[30]; int (*fun)(char *); int type; } Token_List_Type; Token_List_Type Token_List [] = { /* local extensions */ {"bv", verbatim_fun, 0}, {"key", quote_fun, 0}, {"var", quote_fun, 0}, {"exmp", quote_fun, 0}, {"jed", (int (*)(char *)) "JED", 1}, {"slang", (int (*)(char *)) "S-Lang", 1}, {"MYBOX", NULL, 0}, /* partially implemented */ {"bf", bf_fun, 0}, {"em", em_fun, 0}, {"tt", em_fun, 0}, {"it", em_fun, 0}, {"sc", em_fun, 0}, {"section", section_fun, 0}, {"begin", begin_fun, 0}, {"end", end_fun, 0}, {"subsection", subsection_fun, 0}, {"subsubsection", subsubsection_fun, 0}, {"item", item_fun, 0}, {"hspace", swallow_argument, 0}, {"vspace", swallow_argument, 0}, {"pagestyle", swallow_argument, 0}, {"thispagestyle", swallow_argument, 0}, {"verb", verb_fun, 0}, {"today", today_fun, 0}, {"times", (int (*)(char *)) "x", 1}, {"bullet", (int (*)(char *)) " * ", 1}, {"ldots", (int (*)(char *)) "...", 1}, {"cdot", (int (*)(char *)) ".", 1}, {"TeX", (int (*)(char *)) "TeX", 1}, {"LaTeX", (int (*)(char *)) "LaTeX", 1}, /* Not implemented (ignored) */ {"bigskip", NULL, 0}, {"par", NULL, 0}, {"newline", NULL, 0}, {"smallskip", NULL, 0}, {"baselinestretch", NULL, 0}, {"cleardoublepage", NULL, 0}, {"pagenumbering", swallow_argument, 0}, {"appendix", NULL, 0}, {"newpage", NULL, 0}, {"pagebreak", NULL, 0}, {"parbox", parbox_cmd, 0}, {"textwidth", NULL, 0}, {"mbox", NULL, 0}, {"hfill", NULL, 0}, {"large", NULL, 0}, {"huge", NULL, 0}, {"documentstyle", NULL, 0}, {"newcommand", NULL, 0}, {"underline", NULL, 0}, {"thepage", NULL, 0}, {"def", NULL, 0}, {"vfill", NULL, 0}, {"tableofcontents", NULL, 0}, {"hbox", NULL, 0}, {"cal", NULL, 0}, {"nopagebreak", NULL, 0}, {"footnotesize", NULL, 0}, {"Huge", NULL, 0}, {"Large", NULL, 0}, {"LARGE", NULL, 0}, {"normalsize", NULL, 0}, {"renewcommand", NULL, 0}, {"small", NULL, 0}, {"chapter", NULL, 0}, {"evensidemargin", NULL, 0}, {"oddsidemargin", NULL, 0}, {"headsep", NULL, 0}, {"topmargin", NULL, 0}, {"fbox", NULL, 0}, {"centerline", NULL, 0}, {"kill", NULL, 0}, {"parindent", NULL, 0}, {"parskip", NULL, 0}, {"vskip", NULL, 0}, {"noindent", NULL, 0}, {"hangindent", NULL, 0}, {"break", NULL, 0}, {"circ", NULL, 0}, {"setlength", swallow_double_argument, 0}, {"input", swallow_argument, 0}, {"textheight", swallow_argument, 0}, {"", NULL} }; static int alpha_token (int ch) { char token[80], *t; Token_List_Type *tl; char ch1, ch2; t = token + 1; *token = (char) ch; while ((ch = getc (Input_Fp)) != EOF) { if (((ch | 0x20) >= 'a') && ((ch | 0x20) <= 'z')) *t++ = (char) ch; else break; } *t = 0; if (ch == EOF) return -1; if (ch != ' ') ungetc (ch, Input_Fp); tl = Token_List; ch2 = *token; while ((ch1 = tl->name[0]) != 0) { if ((ch1 == ch2) && !strcmp (tl->name, token)) { if (tl->fun != NULL) { if (tl->type == 0) { if ((Output_Ok == 0) && (tl->fun != begin_fun)) return 0; return (*tl->fun) (token); } my_print ((char *) tl->fun); } return 0; } tl++; } my_putc ('\\'); my_print (token); my_putc (' '); msg_error (token, 0); return 0; } void non_alpha_token (int ch) { int ch1; ch1 = getc (Input_Fp); switch (ch) { case '\'': switch (ch1) { /* ISO-Latin 1 */ case 'A': ch1 = 193; break; case 'E': ch1 = 201; break; case 'I': ch1 = 205; break; case 'O': ch1 = 211; break; case 'U': ch1 = 218; break; case 'Y': ch1 = 221; break; case 'a': ch1 = 225; break; case 'e': ch1 = 233; break; case 'i': ch1 = 237; break; case 'o': ch1 = 243; break; case 'u': ch1 = 250; break; case 'y': ch1 = 253; break; } my_putc (ch1); break; case '{': case '}': case '%': case '$': case '&': case '_': case '^': my_putc (ch); /* drop */ default: ungetc (ch1, Input_Fp); break; } } static int begin_parse (void) { int ch; while ((ch = getc (Input_Fp)) != EOF) { /* Handle most common case */ if ((ch >= 'a') && (ch <= 'z')) my_putc (ch); else if (ch == '%') { while ((ch = getc (Input_Fp)) != EOF) { if (ch == '\n') break; } if (ch == EOF) break; } else if (ch == '\\') { if ((ch = getc (Input_Fp)) == EOF) break; if (((ch | 0x20) >= 'a') && ((ch | 0x20) <= 'z')) { alpha_token (ch); } else non_alpha_token (ch); } else if (ch == '{') { if (Output_Ok) begin_parse (); /* new level */ } else if (ch == '}') { if (Output_Ok) return ch; /* end level */ } else if (ch != '$') my_putc (ch); } return ch; } int main (int argc, char **argv) { argv++; argc--; while (argc) { if (!strcmp (*argv, "-hlp")) { Hlp_Mode = 1; argv++; argc--; } else if (!strcmp (*argv, "-quiet")) { Quiet_Mode = 1; argv++; argc--; } else break; } if ((argc < 1) || (argc > 2)) usage (); if ((Input_Fp = fopen (*argv, "r")) == NULL) { fprintf (stderr, "Unable to open input file: %s\n", *argv); exit (-1); } argv++; argc--; if (argc) if ((Output_Fp = fopen (*argv, "w")) == NULL) { fprintf (stderr, "Unable to open output file: %s\n", *argv); exit (-1); } if (EOF != begin_parse ()) { fprintf (stderr, "Parse Error.\n"); return -1; } return 0; } } else break; } if ((argc < 1) || (argc > 2)) usage (); if ((Input_Fp = fopen (*aslang-0.99.12/help/004075500000000000003000000000000611265631600135765ustar00rootsys00000000000000slang-0.99.12/help/README000064400000000000003000000002750603742321500144520ustar00rootsys00000000000000The program this directory `slhelp' is capable of reading VMS style help files. The program `texconv' in ../doc is able to convert the TeX documents there to produce VMS style help files. { fprintf (stderr, "Unable to open output file: %s\n", *argv); exit (-1); } if (EOF != begin_parse ()) { fprintf (stderr, "Parse Error.\n"); return -1; } return 0; } } else break; } if ((argc < 1) || (argc > 2)) usage (); if ((Input_Fp = fopen (*aslang-0.99.12/help/makefile.djg000064400000000000003000000004260603742321500160330ustar00rootsys00000000000000CC = gcc CFLAGS = -Wall -O6 GO32 = C:\djgpp\bin\go32.exe SLIB = ../src# LFLAGS = -L$(SLIB) -lslang -lpc SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.o: $(CC) -c $(CFLAGS) -I$(SLIB) $*.c slhelp: slhelp.o $(CC) slhelp.o $(LFLAGS) -o slhelp.386 coff2exe -s $(GO32) slhelp.386 if (EOF != begin_parse ()) { fprintf (stderr, "Parse Error.\n"); return -1; } return 0; } } else break; } if ((argc < 1) || (argc > 2)) usage (); if ((Input_Fp = fopen (*aslang-0.99.12/help/makefile.unx000064400000000000003000000003560603742321500161030ustar00rootsys00000000000000# Uncomment if you have gcc # CC = gcc # # If you compiled with termcap, uncomment next line. # THETERMCAP = -ltermcap CFLAGS = -DHAS_TERMIOS slhelp: slhelp.c $(CC) $(CFLAGS) slhelp.c -I../src -L../src -o slhelp -lslang $(THETERMCAP) .386 coff2exe -s $(GO32) slhelp.386 if (EOF != begin_parse ()) { fprintf (stderr, "Parse Error.\n"); return -1; } return 0; } } else break; } if ((argc < 1) || (argc > 2)) usage (); if ((Input_Fp = fopen (*aslang-0.99.12/help/makefile.os2000064400000000000003000000043260603742321500157750ustar00rootsys00000000000000#================ JED makefile for DMAKE 3.8 ====================== # This makefile is for DMAKE, either under DOS or OS/2 # The following OS/Compiler combinations are supported: # # Target Compiler Command Compiler # Operating Mnemoic Line # System #----------------------------------------------------------------------- # OS2 MSC OS=OS2 COMP=MSC Microsoft C # OS2 EMX OS=OS2 COMP=EMX emx/gcc #----------------------------------------------------------------------- MODEL = L #----------------------------------------------------------------------- # default setup for EMX under OS/2, optimized version # change values below or override with -e switch on command line #----------------------------------------------------------------------- OS=OS2 COMP=EMX OPT=Y #----------------------------------------------------------------------- .IF $(TOS) == $(NULL) TOS = $(OS) .END .IF $(OS) == OS2 #======================================================================== #========================= OS2 - MSC ==================================== #======================================================================== .IF $(COMP) == MSC CC = cl -nologo -MT LIB_CMD = lib .IF $(OPT) == N CDBUG = -Od -Zi -W2 LDEBUG = -Zi .ELSE CDBUG = LDEBUG = .END CDEBUG = $(CDBUG) O = .obj LFLAGS2 = setargv.obj $(SLANG).lib $(SLIB)os2sl16.def -link /NOE $(SLIB) #======================================================================== #========================= OS2 - EMX ==================================== #======================================================================== .ELIF $(COMP) == EMX CC = gcc -Zmtd .IF $(OPT) == N CDEBUG =-g LDEBUG = .ELSE CDEBUG = -O LDEBUG = .END O = .o LFLAGS2 = $(SLIB)os2sl.def -L$(SLIB) -l$(SLANG) .ENDIF .ENDIF CFLAGS=$(CDEBUG) -I$(SLIB) -DHAS_MEMSET LFLAGS = $(LDEBUG) SLIB = ..\src\\ SLANG = slang .c$O: $(CC) -c $(CFLAGS) $*.c slhelp : slhelp.exe slhelp.exe: slhelp$O $(CC) $(LFLAGS) -o $@ slhelp$O $(LFLAGS2) =============================== .ELIF $(COMP) == EMX CC = gcc -Zmtd .IF $(OPT) == N CDEBUG =-g LDEBUG = .ELSE CDEBUG = -O LDEBUG = .END O = .o LFLAGS2 = $(SLIB)os2sl.def -L$(SLIB) -l$(SLANG) .ENDIF .Eslang-0.99.12/help/slang.hlp000064400000000000003000000203740603742321500154050ustar00rootsys00000000000000Help file for slang 1 Interpreter See readme files for information--- no help file yet. 1 Keyboard-Interface SLang's keyboard interface is designed to allow one to read a character at a time in a system independent manner. To initialize the interface, one must first call the function `SLang_init_tty'. Before exiting the program, the function `SLang_reset_tty' must be called to restore the keyboard interface to its original state. This is particularly true for MSDOS since INT-9 is hooked by S-Lang. 2 Functions 3 init_tty Prototype: int SLang_init_tty (int abort_char, int flow_ctrl, int opost); This function must be called to initialize the tty for single character input. The first parameter `abort_char' must lie in the range 0-255 and is used as an abort character. By default, pressing this character sets the global variable `SLang_Error' to USER_BREAK. See help on the function `SLang_set_abort_signal' to change the default action. If the second parameter `flow_ctrl' is non-zero, flow control is enabled. If the third parmeter `opost' is zero, output processing is NOT turned on. A value of zero is required for SLang's screen management routines (SLsmg) to work properly. This function returns 0 upon success. In addition, if the global variable SLang_TT_Baud_Rate == 0 when this function is called, SLang will attempt to determine the terminals baud rate and set this variable accordingly. As far as the SLang library is concerned, if SLang_TT_Baud_Rate is less than or equal to zero, the baud rate is effectively infinite. 3 reset_tty Prototype: void SLang_reset_tty (void); This function must be called to reset the tty to the state the terminal was in before a previous call to `SLang_init_tty'. 3 getkey Prototype: unsigned int SLang_getkey (void); This function returns a single key from the tty. If the read fails, 0xFFFF is returned. Before attempting to use this function, one myust first call SLang_init_tty to initialize the terminal. If the abort character is pressed while this function is called, it will return the value of the abort character. In addition, the global variable SLKeyBoard_Quit will be set and SLang_Error will will be set to USER_BREAK unless the variable SLang_Ignore_User_Abort is non-zero. 3 unget_keystring Prototype: void SLang_ungetkey_string (unsigned char *buf, int buflen); 3 buffer_keystring Prototype: void SLang_buffer_keystring (unsigned char *buf, int buflen); 3 ungetkey Prototype: void SLang_ungetkey (unsigned char ch); 3 flush_input Prototype: void SLang_flush_input (void); 3 input_pending Prototype int SLang_input_pending (int tsecs); 3 set_abort_signal Prototype: void SLang_set_abort_signal (void (*f)(int)); If SIGINT is generated, the function p1 will be called. If `f' is NULL the SLang default signal handler is called. This sets SLang_Error to USER_BREAK. I suspect most users will simply want to pass NULL. 2 Variables 3 Abort_Char int SLang_Abort_Char; The value of the character (0-255) used to trigger SIGINT 3 Ignore_User_Abort int SLang_Ignore_User_Abort; If non-zero, pressing the abort character will not result in USER_BREAK SLang_Error. 3 KeyBoard_Quit volatile int SLKeyBoard_Quit 3 TT_Baud_Rate int SLang_TT_Baud_Rate; If this value is zero before SLang_init_tty is called, after the call, it will be set to the baud rate if the terminal on systems which support it. 1Screen_Management S-Lang's screen management routines are located in the slsmg.c file. All exported functions and variables are prefixed by `SLsmg', e.g., `SLsmg_cls'. The screen management code uses the `SLtt' routines for writing output to the terminal. To initialize the screen management system, call `SLtt_get_terminfo' first to initialize the display system. Then call `SLsmg_init_smg' to initialize the SLsmg routines. If you are going to read characters from the keyboard, it is also a good idea to initialize the tty at this point via the SLang_init_tty function (See `Keyboard'). Before exiting the program, call the approriate routines to reset the terminal and display system. Basically, your program will look like something like: \begin{verbatim} #include "slang.h" int main () { SLtt_get_terminfo (); SLang_init_tty (7, 0, 0); SLsmg_init_smg (); /* do stuff .... */ SLsmg_reset_smg (); SLang_reset_tty (); return 0; } \end{verbatim} 2Functions 3erase_eol Prototype: void SLsmg_erase_eol (void); Erase line from current position to the end of the line. 3gotorc Prototype: void SLsmg_gotorc (int row, int col); Move cursor position to ('row', 'col'). (0,0) corresponds to the top left corner of the screen. 3erase_eos Prototype: void SLsmg_erase_eos (void); Erase fro the current position to the end of the screen. 3reverse_video Prototype: void SLsmg_reverse_video (void); Start writing characters in reverse video. 3set_color Prototype: void SLsmg_set_color (int obj); Set the character attributes to those of 'obj'. 3normal_video Prototype: void SLsmg_normal_video (void); Turn off characters attributes and set attributes to object 0. 3printf Prototype: void SLsmg_printf (char *, ...); Write a formatted string to the virtual display. 3vprintf Prototype: void SLsmg_vprintf (char *, va_list); Like 'SLsmg_printf' but uses a variable argument list. 3write_string Prototype: void SLsmg_write_string (char *); 3write_char Prototype: void SLsmg_write_char (char); 3write_nchars Prototype: void SLsmg_write_nchars (char *, int); 3cls Prototype: void SLsmg_cls (void); Clear the screen 3refresh Prototype: void SLsmg_refresh (void); Make the physical display look like the virtual display. 3touch_lines Prototype: void SLsmg_touch_lines (int row, int n); Mark screen rows 'row', 'row + 1', ... 'row + (n - 1)' as modified. 3init_smg Prototype: int SLsmg_init_smg (void); Must be called before any of the other routines will work. 3reset_smg Prototype: void SLsmg_reset_smg (void); 3char_at unsigned short SLsmg_char_at(void); Prototype: unsigned short SLsmg_char_at(void); Returns the character and its attributes object number at the current cursor position. 2Variables SLsmg_Tab_Width (Default is 8). 1Searching-Functions The S-Lang library incorporates two types of searches: Regular expression pattern matching and ordinary searching. 2Regular-Expressions !!! No documentation available yet !!! 2Simple-Searches The routines for ordinary searching are defined in the `slsearch.c' file. To use these routines, simply include "slang.h" in your program and simply call the appropriate routines. The searches can go in either a forward or backward direction and can either be case or case insensitive. The region that is searched may contain null characters (ASCII 0) however, the search string cannot in the current implementation. In addition the length of the string to be found is currently limited to 256 characters. Before searching, the function `SLsearch_init' must first be called to ``preprocess'' the search string. 3initialization The function `SLsearch_init' must be called before a search can take place. Its prototype is: int SLsearch_init (char *key, int dir, int case_sens, SLsearch_Type *st); Here `key' is the string to be searched for. `dir' specifies the direction of the search: a value greater than zero is used for searching forward and a value less than zero is used for searching backward. The parameter `case_sens' specifies whether the search is case sensitive or not. A non-zero value indicates that case is important. `st' is a pointer to a structure of type `SLsearch_Type' defined in "slang.h". This structure is initialized by this routine and must be passed to `SLsearch' when the search is actually performed. This routine returns the length of the string to be searched for. 3SLsearch Prototype: unsigned char *SLsearch (unsigned char *pmin, unsigned char *pmax, SLsearch_Type *st); This function performs the search defined by a previous call to `SLsearch_init' over a region specified by the pointers `pmin' and `pmax'. It returns a pointer to the start of the match if successful or it will return NULL if a match was not found. h is actually performed. This routine returns the length of the string to be searched for. 3SLsearch Prototype: unsigned char *SLsearch (unsigned char *pmin, unsigned char *pmax, SLsearch_Type *st); This fuslang-0.99.12/help/slhelp.c000064400000000000003000000273140603742321500152300ustar00rootsys00000000000000#include #ifdef unix # include # ifndef sun # include # endif # ifdef HAS_TERMIOS # include # endif #endif #include "slang.h" #ifndef HELP_DIR #define HELP_DIR "" #endif #ifndef SEEK_SET #define SEEK_SET 0 #endif typedef struct SLhlp_Node_Type { char *name; struct SLhlp_Node_Type *child; struct SLhlp_Node_Type *sister; unsigned long pos; } SLhlp_Node_Type; typedef struct { FILE *fp; SLhlp_Node_Type *root; SLhlp_Node_Type *sub; /* current subtopic node */ SLhlp_Node_Type *now; /* Node we are currently reading from */ SLhlp_Node_Type *path[10]; /* path to current node */ int level; } SLhlp_File_Type; #define MAX_HELP_FILES 10 SLhlp_File_Type Help_Files[MAX_HELP_FILES]; static int add_level (int level, int fd, char *name, unsigned long pos) { SLhlp_Node_Type *node, *parent, *new_node; int len; while (*name == ' ') name++; len = strlen(name); if (len) while (name[len - 1] == ' ') len--; if (len == 0) return -1; name[len] = 0; parent = node = Help_Files[fd].root; while (level-- > 0) { if (node == NULL) { return -1; } while (node->sister != NULL) node = node->sister; parent = node; node = node->child; } if ((NULL == (new_node = (SLhlp_Node_Type *) SLMALLOC (sizeof (SLhlp_Node_Type)))) || (NULL == (new_node->name = (char *) SLMALLOC (len + 1)))) { SLang_Error = SL_MALLOC_ERROR; return -1; } new_node->sister = NULL; new_node->child = NULL; new_node->pos = pos; strcpy (new_node->name, name); if (node == NULL) { if (parent == NULL) { Help_Files[fd].root = new_node; } else parent->child = new_node; } else { while (node->sister != NULL) node = node->sister; node->sister = new_node; } return 0; } static void free_nodes (SLhlp_Node_Type *node) { if (node->child != NULL) free_nodes (node->child); if (node->sister != NULL) free_nodes (node->sister); if (node->name != NULL) SLFREE (node->name); SLFREE (node); } static int check_fd (int fd) { if (((fd >= MAX_HELP_FILES) || (fd < 0)) || (Help_Files[fd].fp == NULL)) { if (SLang_Error == 0) SLang_Error = INTRINSIC_ERROR; return 0; } return 1; } void SLhlp_close_help (int fd) { if (!check_fd (fd)) return; fclose (Help_Files[fd].fp); Help_Files[fd].fp = NULL; if (Help_Files[fd].root != NULL) free_nodes (Help_Files[fd].root); } int SLhlp_open_help (char *file) { int fd = 0, ch; FILE *fp; int level; char topic[256], *b; unsigned long pos; while ((fd < MAX_HELP_FILES) && (Help_Files[fd].fp != NULL)) fd++; if (fd == MAX_HELP_FILES) return -1; if (NULL == (Help_Files[fd].fp = fp = fopen (file, "r"))) return -1; while (1) { ch = getc (fp); bypass_getc: if ((ch > '9') || (ch == ' ')) continue; if (ch == '\n') { ch = getc (fp); if ((ch == ' ') || (ch > '9')) continue; if (ch >= '1') { level = ch - '1'; pos = ftell (fp); b = topic; while (('\n' != (ch = getc (fp))) && (ch != EOF)) { *b++ = ch; } *b = 0; if (add_level (level, fd, topic, pos)) goto error; } goto bypass_getc; } if (ch == EOF) break; } Help_Files[fd].now = NULL; Help_Files[fd].sub = Help_Files[fd].root; Help_Files[fd].path[0] = NULL; return fd; error: SLhlp_close_help (fd); return -1; } char *SLhlp_get_subtopic (int fd) { SLhlp_Node_Type *node; if (!check_fd(fd)) return NULL; if ((node = Help_Files[fd].sub) == NULL) return NULL; Help_Files[fd].sub = node->sister; return node->name; } char *SLhlp_gets (int fd, char *buf) { SLhlp_Node_Type *node; char ch; if (!check_fd(fd)) return NULL; node = Help_Files[fd].now; if (node == NULL) return NULL; if ((NULL == fgets(buf, 255, Help_Files[fd].fp)) || ((*buf <= '9') && (*buf >= '0'))) { if ((node->child == NULL) && Help_Files[fd].level) { Help_Files[fd].level--; } Help_Files[fd].now = NULL; return NULL; } /* First character is reserved. */ if (*buf > ' ') { ch = *buf | 0x20; if ((ch < 'a') || (ch > 'z')) { *buf = '\n'; *(buf + 1) = 0; } } return buf; } static int my_strncasecmp (char *a, char *b, int n) { register char cha, chb; while (n--) { cha = *a++; chb = *b++; if (cha != 0) { if ((cha == chb) || ((cha | 0x20) == (chb | 0x20))) continue; } return cha - chb; } return 0; } int SLhlp_select_topic (int fd, char *topic) { char topic_buf[256]; char *t, ch; int level = 0; int len; SLhlp_Node_Type *node, *parent; if (!check_fd (fd)) return -1; parent = node = Help_Files[fd].root; ch = 0; if (topic != NULL) while (((ch = *topic) <= ' ') && ch) topic++; if (ch != 0) while (node != NULL) { parent = node; t = topic_buf; while ((ch = *topic) > ' ') { *t++ = ch; topic++; } while (((ch = *topic) <= ' ') && ch) topic++; *t = 0; len = strlen (topic_buf); if (len) while (my_strncasecmp (node->name, topic_buf, len)) { node = node->sister; if (node == NULL) break; } if (node == NULL) break; Help_Files[fd].path[level++] = node; if ((ch == 0) || (ch == '\n')) break; node = node -> child; } /* level comes out at 1 greater than last valid one */ Help_Files[fd].level = level; if (node != NULL) /* success */ { Help_Files[fd].sub = node->child; Help_Files[fd].now = node; fseek (Help_Files[fd].fp, node->pos, SEEK_SET); return 0; } else /* failure */ { Help_Files[fd].now = NULL; Help_Files[fd].sub = parent; return -1; } } int SLhlp_what_topic (int fd, char *buf) { int level, i; char *b; if (!check_fd(fd)) return -1; level = Help_Files[fd].level; *buf = 0; if (level == 0) return 0; b = buf; for (i = 0; i < level; i++) { strcpy (b, Help_Files[fd].path[i]->name); b = b + strlen (b); *b++ = ' '; } *(b - 1) = 0; return level; } int SLhlp_up_topic (int fd) { if (!check_fd(fd)) return -1; if (Help_Files[fd].level) Help_Files[fd].level--; return 0; } /* --------------------------------------------------------------------- */ static void cls (void) { SLtt_cls (); SLtt_flush_output (); } static void newline (int nl, int reset, int cls_flag) { static int n; if (nl) putc('\n', stdout); n++; if (n == SLtt_Screen_Rows - 1) { SLtt_reverse_video (1); SLtt_write_string ("---Press RETURN to continue.---"); SLtt_normal_video (); SLtt_flush_output (); SLang_getkey (); if (cls_flag) cls (); else fputs("\r \r", stdout); cls_flag = 0; n = 0; } if (reset) { n = 0; if (cls_flag) cls (); return; } } SLang_RLine_Info_Type *Help_Rli; static SLang_RLine_Info_Type *init_readline (void) { unsigned char *buf = NULL; SLang_RLine_Info_Type *rli; if ((NULL == (rli = (SLang_RLine_Info_Type *) SLMALLOC (sizeof(SLang_RLine_Info_Type)))) || (NULL == (buf = (unsigned char *) SLMALLOC (256)))) { fprintf(stderr, "malloc error.\n"); exit(-1); } MEMSET ((char *) rli, 0, sizeof (SLang_RLine_Info_Type)); rli->buf = buf; rli->buf_len = 255; rli->tab = 8; rli->dhscroll = 20; rli->getkey = SLang_getkey; rli->tt_goto_column = NULL; rli->update_hook = NULL; if (SLang_init_readline (rli) < 0) { fprintf(stderr, "Unable to initialize readline library.\n"); exit (-1); } return rli; } static char *hlp_get_input (char *prompt) { int i; if (Help_Rli == NULL) { Help_Rli = init_readline (); Help_Rli->update_hook = NULL; } Help_Rli->edit_width = SLtt_Screen_Cols - 1; Help_Rli->prompt = prompt; *Help_Rli->buf = 0; i = SLang_read_line (Help_Rli); if ((i >= 0) && !SLang_Error && !SLKeyBoard_Quit) { SLang_rline_save_line (Help_Rli); } else return NULL; return (char *) Help_Rli->buf; } static void do_subtopics (int fd) { char *s; int len, dlen; if ((s = SLhlp_get_subtopic (fd)) != NULL) { len = 0; newline (1, 0, 0); fprintf(stdout, "Available Topics/Subtopics:"); newline (1, 0, 0); newline (1, 0, 0); do { dlen = strlen (s); len += dlen; if (len >= 80) { len = dlen; newline (1, 0, 0); } fputs(s, stdout); dlen = 21 - len % 20; len += dlen; if (len < 80) { while (dlen--) putc(' ', stdout); } } while (NULL != (s = SLhlp_get_subtopic(fd))); newline (1, 0, 0); } } static void get_screen_size (int sig) { int r = 0, c = 0; #ifdef VMS int status, code; unsigned short chan; $DESCRIPTOR(dev_dsc, "SYS$INPUT:"); #endif #ifdef TIOCGWINSZ struct winsize wind_struct; if ((ioctl(1,TIOCGWINSZ,&wind_struct) == 0) || (ioctl(0, TIOCGWINSZ, &wind_struct) == 0) || (ioctl(2, TIOCGWINSZ, &wind_struct) == 0)) { c = (int) wind_struct.ws_col; r = (int) wind_struct.ws_row; } #endif #ifdef VMS status = sys$assign(&dev_dsc,&chan,0,0,0); if (status & 1) { code = DVI$_DEVBUFSIZ; status = lib$getdvi(&code, &chan,0, &c, 0,0); if (!(status & 1)) c = 80; code = DVI$_TT_PAGE; status = lib$getdvi(&code, &chan,0, &r, 0,0); if (!(status & 1)) r = 24; sys$dassgn(chan); } #endif if (r <= 0) { char *s = getenv ("LINES"); if (s != NULL) r = atoi (s); } if (c <= 0) { char *s = getenv ("COLUMNS"); if (s != NULL) c = atoi (s); } if ((r <= 0) || (r > 200)) r = 24; if ((c <= 0) || (c > 250)) c = 80; SLtt_Screen_Rows = r; SLtt_Screen_Cols = c; #ifdef SIGWINCH signal (SIGWINCH, get_screen_size); #endif } int main (int argc, char **argv) { char *buf, *file; char buffer[256]; static int fd = -1; int len; if (argc != 2) { fprintf(stderr, "Usage: slhelp HELP-FILE\n"); exit (-1); } file = argv[1]; if (fd < 0) fd = SLhlp_open_help (file); if (fd < 0) { fprintf (stderr, "Unable to open help file %s\n", file); exit (-1); } SLang_init_tty (7, 1, 1); SLtt_get_terminfo (); SLtt_init_video (); SLtt_Use_Ansi_Colors = 0; #ifdef SIGWINCH signal (SIGWINCH, get_screen_size); #endif get_screen_size (0); cls (); fputs ("\n\nSimply press RETURN at the 'Topic>' prompt to quit help.\n\n", stdout); if (SLhlp_what_topic (fd, buffer) > 0) { SLhlp_select_topic (fd, buffer); } while (1) { while (1) { if (SLhlp_what_topic (fd, buffer) <= 0) { SLhlp_select_topic (fd, "?"); *buffer = 0; } do_subtopics (fd); len = strlen (buffer); if (len) strcat (buffer, " Subtopic> "); else strcpy (buffer, "Topic> "); newline (1, 1, 0); if (NULL == (buf = hlp_get_input (buffer))) { SLang_Error = 0; if (SLKeyBoard_Quit) { SLKeyBoard_Quit = 0; continue; } goto the_return; } if ((*buf == '\n') || (*buf == 0)) { if (len == 0) goto the_return; SLhlp_up_topic (fd); continue; } buffer[len] = ' '; /* kill prompt */ strcpy (buffer + (len + 1), buf); break; } newline (1, 1, 1); if (-1 == SLhlp_select_topic (fd, buffer)) { fprintf(stdout, "No help available on: %s", buf); newline (1, 0, 0); } else while (NULL != SLhlp_gets (fd, buffer)) { fputs(buffer, stdout); newline (0, 0, 1); } } the_return: SLtt_reset_video (); SLang_reset_tty (); return 0; } p_topic (fd); continue; } buffer[len] = ' '; /* kill prompt */ strcpy (buffer + (len + 1), buf); break; } newline (1, 1, 1); if (-1 == SLhlp_select_topic (fd, buffer)) { fprintf(stdout, "No help available on: %s", buf); newline (1, 0, 0); slang-0.99.12/slang.lis000064400000000000003000000030020603742321500144460ustar00rootsys00000000000000@COPYING @COPYING.GPL @COPYING.ART @COPYRIGHT @README @changes.txt @demo/README @demo/array.sl @demo/array.c @demo/complex.sl @demo/complex.c @demo/makefile.dos @demo/makefile @demo/makefile.djg @demo/makefile.unx @demo/simple.c @demo/simple.sl @demo/useropen.c @doc/Makefile @doc/READ.ME @doc/cslang.tex @doc/faq.txt @doc/intrins.txt @doc/object.txt @doc/slang.how @doc/slang.tex @doc/texconv.c @help/README @help/makefile.djg @help/makefile.unx @help/makefile.os2 @help/slang.hlp @help/slhelp.c @slang.lis @src/_slang.h @src/calc.c @src/calc.sl @src/changes.wcc @src/config.h @src/descrip.mms @src/fixes.txt @src/gcc.inc @src/makefile.msw @src/makefile.wcc @src/makefile.emx @src/makefile.unx @src/makefile.dos @src/makefile.djg @src/makefile.os2 @src/makefile.w32 @src/os2sl.def @src/os2sl16.def @src/slang.c @src/slang.h @src/slang.rsp @src/wslang.rsp @src/slangwcc.rsp @src/slarray.h @src/slarray.c @src/slasync.c @src/slclass.c @src/slcmd.c @src/slconfig.h @src/slcurses.h @src/sldisply.c @src/sldjgpp.rsp @src/sldostty.c @src/slerr.c @src/slfile.h @src/slfile.c @src/slgetkey.c @src/slkeymap.c @src/slmalloc.c @src/slmath.h @src/slmath.c @src/slmatrix.c @src/slmemchr.c @src/slmemcmp.c @src/slmemcpy.c @src/slmemset.c @src/slmisc.c @src/slos2tty.c @src/slparse.c @src/slregexp.c @src/slrline.c @src/slsearch.c @src/slsmg.c @src/slstd.c @src/sltermin.c @src/sltoken.c @src/slunix.c @src/slutty.c @src/slvideo.c @src/slvmstty.c @src/slwind.c @src/slxstrng.c @src/untic.c @src/slprepr.c @src/deccmake.com @src/vmsmake.com @src/worm.c c @src/slerr.c @src/slfile.h @src/slfile.c @src/slgetkey.c @src/slkeymap.c @src/slmalloc.c @src/slmath.h @src/slmath.c @src/slmatrix.c @src/slmemchr.c @src/slmemcmp.c @src/slmemcpy.c @src/slmemset.c @src/slmisc.c @src/slos2tty.c @src/slparse.c @src/slregexp.c @src/slrline.c @src/slsearch.c @src/slsmg.c @src/slstd.c @src/sltermin.c @src/sltoken.c @src/slunix.c @src/slutty.c @src/slvideo.c @src/slvmstty.c @src/slwind.c @src/slxstrng.c @src/untic.c @src/slprepr.c @src/deccmake.com @src/vmsmake.com @src/worm.slang-0.99.12/src/004075500000000000003000000000000611265701300134305ustar00rootsys00000000000000slang-0.99.12/src/_slang.h000064400000000000003000000156150603742321600150520ustar00rootsys00000000000000/* header file for S-Lang internal structures that users do not (should not) need. Use slang.h for that purpose. */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include "config.h" #ifndef NO_STDLIB_H # include #endif #include #ifdef VMS # define SLANG_SYSTEM_NAME "_VMS" #else #if defined (__GO32__) || defined (__EMX__) || \ defined (msdos) || defined (__os2__) # define SLANG_SYSTEM_NAME "_IBMPC" #else # define SLANG_SYSTEM_NAME "_UNIX" #endif #endif /* VMS */ #ifdef msdos #define SLANG_MAX_SYMBOLS 500 #else #define SLANG_MAX_SYMBOLS 1500 #endif /* maximum number of global symbols--- slang builtin, functions, global vars */ /* Subtypes */ #define ERROR_BLOCK 0x01 /* gets executed if block encounters error other than stack related */ #define EXIT_BLOCK 0x02 #define USER_BLOCK0 0x03 #define USER_BLOCK1 0x04 #define USER_BLOCK2 0x05 #define USER_BLOCK3 0x06 #define USER_BLOCK4 0x07 /* The user blocks MUST be in the above order */ /* directive subtypes */ #define SLANG_LOOP_MASK 0x80 #define SLANG_LOOP 0x81 #define SLANG_WHILE 0x82 #define SLANG_FOR 0x83 #define SLANG_FOREVER 0x84 #define SLANG_CFOR 0x85 #define SLANG_DOWHILE 0x86 #define SLANG_IF_MASK 0x40 #define SLANG_IF 0x41 #define SLANG_IFNOT 0x42 #define SLANG_ELSE 0x43 /* local, global variable assignments * The order here is important. See interp_variable_eqs to see how this * is exploited. */ #define SLANG_EQS_MASK 0x20 /* local variables */ /* Keep these in this order!! */ #define SLANG_LEQS 0x21 #define SLANG_LPEQS 0x22 #define SLANG_LMEQS 0x23 #define SLANG_LPP 0x24 #define SLANG_LMM 0x25 /* globals */ /* Keep this on this order!! */ #define SLANG_GEQS 0x26 #define SLANG_GPEQS 0x27 #define SLANG_GMEQS 0x28 #define SLANG_GPP 0x29 #define SLANG_GMM 0x2A /* intrinsic variables */ #define SLANG_IEQS 0x2B #define SLANG_IPEQS 0x2C #define SLANG_IMEQS 0x2D #define SLANG_IPP 0x2E #define SLANG_IMM 0x2F #define SLANG_ELSE_MASK 0x10 #define SLANG_ANDELSE 0x11 #define SLANG_ORELSE 0x12 #define SLANG_SWITCH 0x13 /* LOGICAL SUBTYPES (operate on integers) */ #define SLANG_MOD 16 #define SLANG_OR 17 #define SLANG_AND 18 #define SLANG_BAND 19 #define SLANG_BOR 20 #define SLANG_BXOR 21 #define SLANG_SHL 22 #define SLANG_SHR 23 /* LUnary Subtypes */ #define SLANG_NOT 24 #define SLANG_BNOT 25 typedef struct SLBlock_Type { unsigned char main_type; unsigned char sub_type; union { struct SLBlock_Type *blk; int i_blk; SLang_Name_Type *n_blk; char *s_blk; FLOAT *f_blk; /*literal float is a pointer */ long l_blk; } b; } SLBlock_Type; typedef struct { unsigned char main_type; /* block, intrinsic... */ unsigned char sub_type; /* SLANG_WHILE, SLANG_DATA, ... */ union { long l_val; char *s_val; int i_val; SLuser_Object_Type *uobj; SLang_Name_Type *n_val; #ifdef FLOAT_TYPE FLOAT f_val; #endif } v; } SLang_Object_Type; extern int SLang_pop_non_object (SLang_Object_Type *); extern void SLcompile(char *); extern void (*SLcompile_ptr)(char *); typedef struct Lang_Name2_Type { char *name; int type; } Lang_Name2_Type; extern void SLstupid_hash(void); typedef struct SLName_Table { struct SLName_Table *next; /* next table */ SLang_Name_Type *table; /* pointer to table */ int n; /* entries in this table */ char name[32]; /* name of table */ int ofs[256]; /* offsets into table */ } SLName_Table; extern SLName_Table *SLName_Table_Root; #ifdef MSWINDOWS extern SLang_Name_Type *SLang_Name_Table; #else extern SLang_Name_Type SLang_Name_Table[SLANG_MAX_SYMBOLS]; #endif extern int SL_eqs_name(char *, Lang_Name2_Type *); extern Lang_Name2_Type SL_Binary_Ops []; extern SLang_Object_Type *SLStack_Pointer; extern char *SLbyte_compile_name(char *); extern int SLang_pop(SLang_Object_Type *); extern char *SLexpand_escaped_char(char *, char *); extern void SLexpand_escaped_string (char *, char *, char *); extern SLang_Object_Type *SLreverse_stack(int *); extern SLang_Name_Type *SLang_locate_name(char *); /* returns a pointer to a MALLOCED string */ extern char *SLstringize_object (SLang_Object_Type *); /* array types */ typedef struct SLArray_Type { unsigned char type; /* int, float, etc... */ int dim; /* # of dims (max 3) */ int x, y, z; /* actual dims */ union { unsigned char *c_ptr; unsigned char **s_ptr; int *i_ptr; #ifdef FLOAT_TYPE FLOAT *f_ptr; #endif SLuser_Object_Type **u_ptr; } buf; unsigned char flags; /* readonly, etc... If this is non-zero, * the buf pointer will NOT be freed. * See SLarray_free_array. */ } SLArray_Type; /* Callback to delete array */ extern void SLarray_free_array (long *); /* maximum size of run time stack */ #ifdef msdos #define SLANG_MAX_STACK_LEN 500 #else #define SLANG_MAX_STACK_LEN 1000 #endif #ifdef MSWINDOWS extern SLang_Object_Type *SLRun_Stack; #else extern SLang_Object_Type SLRun_Stack[SLANG_MAX_STACK_LEN]; #endif extern SLang_Object_Type *SLStack_Pointer; extern int SLang_Trace; extern int SLstack_depth(void); extern void SLang_trace_fun(char *); extern void SLexecute_function(SLang_Name_Type *); extern char *SLmake_string (char *); /* useful macro to tell if string should be freed after its use. */ /* Note that strings appear on the stack in 2 forms: literal and * dynamic. Literal strings are constants. Dynamic ones are created by, * say, dup, etc. They are freed only by routines which eat them. These * routines must check to see if they are not literal types before freeing * them. The only other way they are freed is when they are on the local * variable stack, e.g., (assigned to local variables) and the function * exits freeing them. */ #define IS_DATA_STRING(obj) (((obj).sub_type == STRING_TYPE) && ((obj).main_type == SLANG_DATA)) extern int slang_eqs_name(char *, Lang_Name2_Type *); extern void SLang_push(SLang_Object_Type *); extern void SLang_push_float(FLOAT); extern void SLadd_variable(char *); extern int SLatoi(unsigned char *); extern void SLang_clear_error(void); extern void SLarray_info (void); extern int SLPreprocess_Only; /* preprocess instead of * bytecompiling */ extern void SLdo_pop (void); extern unsigned int SLsys_getkey (void); extern int SLsys_input_pending (int); #ifndef VMS #if defined(unix) && !defined(__GO32__) extern int SLtt_tigetflag (char *, char **); extern int SLtt_tigetnum (char *, char **); extern char *SLtt_tigetstr (char *, char **); extern char *SLtt_tigetent (char *); #endif #endif #ifdef msdos #define MAX_INPUT_BUFFER_LEN 40 #else #define MAX_INPUT_BUFFER_LEN 1024 #endif extern unsigned char SLang_Input_Buffer [MAX_INPUT_BUFFER_LEN]; extern int SLang_Input_Buffer_Len; #ifndef pc_system extern char *SLtt_Graphics_Char_Pairs; #endif _pending (int); #ifndef VMS #if defined(unix) && !defined(__GO32__) extern int SLtt_tigetflag (char *, char **); eslang-0.99.12/src/calc.c000064400000000000003000000115220603742321600144750ustar00rootsys00000000000000/* This is a simple demo program for the S-Lang interpreter. It would * take very little work to make this demo *really* useful. */ #include #include #include "config.h" #ifndef NO_STDLIB_H # include #endif #include "slang.h" #if !defined (__GO32__) && !defined(msdos) && !defined (__EMX__) # define USE_ANSI_COLOR #endif void help() { puts("ALL statements MUST be terminated with a ';' character, e.g., quit();\n"); puts("Available functions:"); puts(" cos, sin, tan, atan, acos, asin, exp, log, sqrt, fabs, log10, pow, PI, E"); puts(" print -- prints string, e.g. print(\"hello world!\\n\");"); puts("\nas well as intrinsic S-Lang functions."); puts("See S-Lang language documentation for further details.\n"); SLang_run_hooks ("calc_help", NULL, NULL); } /* The following three functions will be callable from the interpreter */ void quit_calc() { SLang_reset_tty (); #ifdef MALLOC_DEBUG SLmalloc_dump_statistics (); #endif exit (SLang_Error); } void print(char *s) { fputs(s, stdout); fflush (stdout); } void error(char *s) { fprintf(stderr, "%s\n", s); SLang_Error = INTRINSIC_ERROR; } /* Now here is a table that provides the link between the above functions and the S-Lang interpreter */ SLang_Name_Type Calc_Intrinsics[] = { MAKE_INTRINSIC(".print", print, VOID_TYPE, 1), MAKE_INTRINSIC(".quit", quit_calc, VOID_TYPE, 0), MAKE_INTRINSIC(".help", help, VOID_TYPE, 0), MAKE_INTRINSIC(".error", error, VOID_TYPE, 1), SLANG_END_TABLE }; /* forward declarations */ static int take_input (void); static int calc_open_readline (SLang_Load_Type *); static int calc_close_readline (SLang_Load_Type *); int main (int argc, char **argv) { if (!init_SLang() /* basic interpreter functions */ || !init_SLmath() /* sin, cos, etc... */ #ifdef unix || !init_SLunix() #endif || !init_SLfiles() /* file i/o */ /* || !init_SLmatrix() */ /* matrix manipluation */ || !SLang_add_table(Calc_Intrinsics, "Calc")) /* calc specifics */ { fprintf(stderr, "Unable to initialize S-Lang.\n"); exit(1); } if (SLang_init_tty (7, 0, 1)) { fprintf(stderr, "Unable to initialize tty."); exit (-1); } SLang_set_abort_signal (NULL); SLang_Traceback = 1; SLang_load_file("calc.sl"); while (--argc && !SLang_Error) { argv++; SLang_load_file (*argv); } fputs("Type 'help();' for help and a list of available functions.\n", stdout); fputs("Note also that statements end in a ';'\n", stdout); fputs("\nIt is also important to note that most binary operators +, -, *, /,\n", stdout); fputs("as well as the '=' sign must be surrounded by spaces!\n", stdout); fputs("\nType `quit;' to exit this program.\n", stdout); SLang_User_Open_Slang_Object = calc_open_readline; SLang_User_Close_Slang_Object = calc_close_readline; while(1) { if (SLang_Error) SLang_restart(1); SLKeyBoard_Quit = SLang_Error = 0; if (take_input () && (SLang_Last_Key_Char == SLang_RL_EOF_Char)) break; } SLang_reset_tty (); return (SLang_Error); } /* For a detailed explanation of all of this, see slang/demo/useropen.c */ static char *read_using_readline (SLang_Load_Type *x) { int n; SLang_RLine_Info_Type *rli; rli = (SLang_RLine_Info_Type *) x->ptr; *rli->buf = 0; if (x->top_level) rli->prompt = "Calc> "; else rli->prompt = "_Calc> "; n = SLang_read_line (rli); putc ('\n', stdout); fflush (stdout); if (n <= 0) return NULL; if ((n == 1) && (*rli->buf == SLang_RL_EOF_Char)) return "quit;"; SLang_rline_save_line (rli); return (char *) rli->buf; } static SLang_RLine_Info_Type Calc_RLI; static unsigned char Calc_RLI_Buf[256]; static int calc_open_readline (SLang_Load_Type *x) { switch (x->type) { case 'r': x->ptr = (char *) &Calc_RLI; x->read = read_using_readline; if (Calc_RLI.buf != NULL) { /* everything else already initialized. Just return. */ return 0; } Calc_RLI.buf = Calc_RLI_Buf; Calc_RLI.buf_len = 255; Calc_RLI.tab = 8; Calc_RLI.edit_width = 79; Calc_RLI.dhscroll = 20; Calc_RLI.prompt = "Calc> "; Calc_RLI.getkey = SLang_getkey; #ifdef USE_ANSI_COLOR Calc_RLI.flags = SLRL_USE_ANSI; #endif SLang_init_readline (&Calc_RLI); return 0; default: /* unrecognized-- let S-lang handle it */ return SL_OBJ_UNKNOWN; } } static int calc_close_readline (SLang_Load_Type *x) { switch (x->type) { case 'r': /* Nothing to do */ return 0; default: /* unrecognized-- let S-lang handle it */ return SL_OBJ_UNKNOWN; } } static int take_input () { SLang_Load_Type x; x.type = 'r'; /* readline type */ x.read = read_using_readline; /* function to call to perform the read */ return SLang_load_object (&x); } unrecognized-- let S-lang handle it */ return SL_OBJ_UNKNOWN; } } static int calc_close_readline (SLang_Load_Type *x) { switch (x->type) { case 'r': /* slang-0.99.12/src/calc.sl000064400000000000003000000104620603742321600146730ustar00rootsys00000000000000% a print function define p(obj) { print(string(obj)); print("\n"); } % calc.sl--- Init file for calc. This file must be placed in the default % directory for calc and is automatically loaded when calc runs. % % This file contains S-Lang code for Newton's method, etc... % % Here is a function which computes the root of the equation y = f(x) using % Newtons method. The usage is: % % root = newton(s, &f); % % where s is a seed value and f is the function whose root is sought. % % For example, consider the function my_fun(x) = x^2 - 2 with solution % x = sqrt(2). This function may be expressed in S-Lang as: % % define my_func(x) % { % return (x * x - 2); % } % % To solve the equation my_fun(x) = 0 using the newton routine below, use % % newton(5.0, &myfun); % % Here, I have randomly chosen 5.0 as an initial guess. In addition, % I have used the '&' operator to pass the function 'myfun' to the routine. % Newton's method requires the derivative of a function. Here is such a % function called by newton. Given f(x), it returns df/dx at the point x. % % Its usage is: % % derivative(x, &f); define derivative(x, f) { variable dx; dx = 1.0e-4; % small number return ((f(x + dx) - f(x - dx))/(2 * dx)); } % And now the Newton's method: define newton(x, f) { variable err, max, dx; err = 1.0e-6; max = 1000; while (max) { --max; dx = f(x) / derivative(x, &f); if (abs(dx) < err) { return(x); } x = x - dx; } print ("\7Root not found. Try another seed!\n"); return(x); } %% This is a standard benchmark for interpreters. It is a heavily %% recursive routine that returns the nth Fibonacci number. %% It is defined recursively as: %% %% f_0 = 0, f_1 = 1, .... , f_{n+1} = f_n + f_{n-1}, ... %% %% or {0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, ...} %% define fib(); % required for recursion define fib(n) { !if (n) return(0); --n; !if (n) return(1); fib(n) + fib( --n, n); %Note that this expression parses to RPN % n fib --n n fib + %and since --n does not change the stack, the %effect is the same as the C comma operator. } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Two routines which illustrate the how to deal with files %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % type out a file to terminal define type_file(file) { variable fp, n; fp = fopen(file, "r"); if (fp == -1) { print("\7File could not be opened!\n"); return; } while (fgets(fp) > 0) { print(()); % characters on the stack so print them } !if (fclose(fp)) { print("\7Error closing file!\n"); } } % % Here is a function that prints the number of lines in a file % define count_lines(f) { variable fp, n, nchars, dn; fp = fopen(f, "r"); if (fp < 0) error("Unable to open file!"); n = 0; nchars = 0; while (dn = fgets(fp), dn > 0) { pop(); %/* do not care about the characters themselves! */ ++n; nchars += dn; } fclose(fp); pop(); %/* ignore return value */ print(Sprintf("File consists of %d characters and %d lines.\n", nchars, n, 2)); } % an apropos function define apropos (what) { variable n = slapropos(what); variable i, f1, f2, f3; if (n) print (Sprintf("found %d matches:\n", n, 1)); else { print ("No matches.\n"); return; } loop (n / 3) { =f1; =f2; =f3; print (Sprintf("%-26s %-26s %s\n", f1, f2, f3, 3)); } n = n mod 3; loop (n) { =f1; print (Sprintf("%-26s ", f1, 1)); } if (n) print("\n"); } % #ifdef 0 _for (0, 99, 1) { =$1; Writable_array[$1] = $1; } _for (0, 99, 1) { =$1; p (Sprintf("Writable_array[$%d]\t=%d", $1, Writable_array[$1], 2)); } #endif %%% more help (called from calc.c) define calc_help () { p("Additional functions:"); p(" p(); -- displays top element of the stack (discarding it)."); p(" quit(); -- quit calculator"); p(" apropos(\"STRING\"); -- lists all objects containing \"STRING\""); p("\nExample: p (2.4 * E); yields 6.52388.\n"); } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % end of calc.sl %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% rray[$1], 2)); } #endif %%% more help (called from calc.c) define calc_help () { p("Additional functions:"); p(" p(); -- displays top element of the stack (discarding it)."); p(" quit(); slang-0.99.12/src/changes.wcc000064400000000000003000000026470603742321600155450ustar00rootsys00000000000000MODIFIED FILES calc.c - split up into slcalc.c and calcmain.c (described below) slang.h - added init_SLcalc and run_SLcalc prototypes in addition to the watcom specific changes slmath.h - add #include "slang.h" before the #ifdef FLOAT_TYPE so that the defines in slconfig.h (described below) are seen before the #define in slmath.c sldostty.c - added simple #ifdef __WATCOMC__ so the __GO32__ code gets called instead of the dos code. The only real change was to replace the bios_key call in pause_pending with a call to kbhit(). slvideo.c - I used the the direct video writes for __GO32__ and wrote the functions that watcom is missing NEW FILES slcalc.c - I rewrote calc.c to contain two major functions that other routines could call: init_SLcalc and run_SLcalc. This makes the calculator appear as a function call to another function. calcmain.c - The main function from calc.c that programmer need to emulate when calling run_SLcalc. slconfig.h - put the WATCOMC specific defines, which are now included bye config.h (I like this better than forcing programmers to always put the defines in the makefile.) makefile.wcc - makefile for watcom C. I removed the slmem* files (since it is easier to remove them from the makefile than to edit the functions -- especially since the system functions are used anyway.) I also put slcalc.obj into slang.lib. (see comments for slcalc.c) slangwcc.rsp - wcl386 linker response file lling run_SLcalc. slconfig.h - put the WATCOMC specific defines, which are now included slang-0.99.12/src/config.h000064400000000000003000000040230603742321600150430ustar00rootsys00000000000000#ifndef _DAVIS_CONFIG_H_ #define _DAVIS_CONFIG_H_ /* * Copyright (c) 1992, 1994 John E. Davis * All rights reserved. * * Permission is hereby granted, without written agreement and without * license or royalty fees, to use, copy, and distribute this * software and its documentation for any purpose, provided that the * above copyright notice and the following two paragraphs appear in * all copies of this software. Permission is not granted to modify this * software for any purpose without written agreement from John E. Davis. * * IN NO EVENT SHALL JOHN E. DAVIS BE LIABLE TO ANY PARTY FOR DIRECT, * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF JOHN E. DAVIS * HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * JOHN E. DAVIS SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A * PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" * BASIS, AND JOHN E. DAVIS HAS NO OBLIGATION TO PROVIDE MAINTENANCE, * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. */ #ifndef VMS #if defined(__GO32__) || defined(__EMX__) || \ defined(msdos) || defined(__os2__) # define pc_system # undef unix #endif #endif /* VMS */ #if defined(VMS) || defined(sequent) || defined(NeXT) # define NO_UNISTD_H # define NO_PUTENV # ifndef __DECC # define NO_STDLIB_H # endif #endif #ifdef NeXT /* # define HAVE_TERMIOS */ # ifndef USE_TERMCAP # define USE_TERMCAP # endif #endif #if defined(unix) && !defined(sequent) && !defined(__GO32__) && !defined(NeXT) # define HAVE_TERMIOS #endif /* #define USE_EFENCE */ #ifdef USE_EFENCE extern char *Xstrcpy(char *, char *); extern int Xstrcmp(char *a, char *); extern char *Xstrncpy(char *, char *, int); #undef HAS_MEMCPY #undef HAS_MEMCMP #undef HAS_MEMSET #define strcpy Xstrcpy #define strcmp Xstrcmp #define strncpy Xstrncpy #endif #ifdef ultrix # ifndef NO_PROTOTYPES # define NO_PROTOTYPES # endif #endif #endif ERMCAP # endif #endif #if defined(unix) && !defined(sequent) && !defined(__GO32__) && !defined(NeXT) # define HAVE_TERMIOS #endif /* #define USE_EFENCE */ #ifdef USE_EFENCE extern char *Xstrcpy(char *, char *); extern int Xstrcmp(char *a, char *); extern char *Xstrncpy(char *, char *, int); #undef HAS_MEMCPY #undef HAS_MEMCMP #undef HAS_MEMSET #define strcpy Xstrcpy #define strcmp Xstrcmp #define strncpy Xstrncpy #endif #ifdef ultrix # ifndef NO_PROTOTYPES # define NO_PROTOTYPES # enslang-0.99.12/src/descrip.mms000064400000000000003000000022310603742321700155740ustar00rootsys00000000000000# # MMS file to build S-Lang (Thanks to Hunter Goatley) # .IFDEF __MATTS_MMS__ .ELSE EXE = .EXE OBJ = .OBJ OLB = .OLB .ENDIF .IFDEF __ALPHA__ CC = CC/STANDARD=VAXC OPTFILE = OPTIONS = .ELSE OPTFILE = ,VAXCRTL.OPT OPTIONS = $(OPTFILE)/OPTIONS .ENDIF CFLAGS = $(CFLAGS)/DEFINE=(FLOAT_TYPE) OBJS = SLANG$(OBJ),SLPARSE$(OBJ),SLMATH$(OBJ),SLFILE$(OBJ),- SLSTD$(OBJ),SLARRAY$(OBJ),SLREGEXP$(OBJ),SLERR$(OBJ),- SLKEYMAP$(OBJ),SLRLINE$(OBJ),SLTOKEN$(OBJ),SLGETKEY$(OBJ),- SLVMSTTY$(OBJ),SLMEMCMP$(OBJ),SLMEMCHR$(OBJ),SLMEMCPY$(OBJ)- SLDISPLY$(OBJ),SLSMG$(OBJ),SLSEARCH$(OBJ),SLCMD$(OBJ)- SLMALLOC$(OBJ),SLMEMSET$(OBJ),SLMISC$(OBJ),SLPREPR$(OBJ) HFILES = CONFIG.H,SLANG.H,SLARRAY.H,_SLANG.H CALC$(EXE) : CALC$(OBJ),SLANG$(OLB)($(OBJS))$(OPTFILE) $(LINK)$(LINKFLAGS)/NOTRACE CALC$(OBJ),SLANG$(OLB)/LIBRARY$(OPTIONS) CALC$(OBJ) : CALC.C # # Most modules depend on most of the .H files, so I'm going to be lazy # and just make them all depend on all of them. # $(OBJS) : $(HFILES) # # Build the linker options file for OpenVMS VAX and VAX C. # VAXCRTL.OPT : @ open/write tmp vaxcrtl.opt @ write tmp "SYS$SHARE:VAXCRTL.EXE/SHARE" @ close tmp SLANG.H,SLARRAY.H,_SLANG.H CALC$(EXE) : CALC$(OBJ),SLANG$(OLB)($(OBJS))$(OPTFILE) $(LINK)$(LINKFLAGS)/NOTRACE CALC$(OBJ),SLANG$(OLB)/LIBRARY$(OPTIONS) CALC$(OBJ) : CALC.C # # Most modules depend on most of the .H files, so I'm going to be lazy # and just make them all depend on all of them. # $(OBJS) : $(HFILES) # # Build the linker options fislang-0.99.12/src/fixes.txt000064400000000000003000000001750603742321700153110ustar00rootsys00000000000000Version 0.95-1 created 1. regexp compile bug fixed where osearch was set when pattern contained quote characters. /SHARE" @ close tmp SLANG.H,SLARRAY.H,_SLANG.H CALC$(EXE) : CALC$(OBJ),SLANG$(OLB)($(OBJS))$(OPTFILE) $(LINK)$(LINKFLAGS)/NOTRACE CALC$(OBJ),SLANG$(OLB)/LIBRARY$(OPTIONS) CALC$(OBJ) : CALC.C # # Most modules depend on most of the .H files, so I'm going to be lazy # and just make them all depend on all of them. # $(OBJS) : $(HFILES) # # Build the linker options fislang-0.99.12/src/gcc.inc000064400000000000003000000032310603742321700146550ustar00rootsys00000000000000/*-------------------------------*- C -*------------------------------- *\ * gcc.inc * * a cpp macro file for gcc to be included on the gcc command line * with -imacros. Below is a description from the gcc manual: * * `-include FILE' * Process FILE as input before processing the regular input file. * In effect, the contents of FILE are compiled first. Any `-D' and * `-U' options on the command line are always processed before * `-include FILE', regardless of the order in which they are * written. All the `-include' and `-imacros' options are processed * in the order in which they are written. * * `-imacros FILE' * Process FILE as input, discarding the resulting output, before * processing the regular input file. Because the output generated * from FILE is discarded, the only effect of `-imacros FILE' is to * make the macros defined in FILE available for use in the main * input. * * Any `-D' and `-U' options on the command line are always processed * before `-imacros FILE', regardless of the order in which they are * written. All the `-include' and `-imacros' options are processed * in the order in which they are written. \*----------------------------------------------------------------------*/ #if defined (__EMX__) || defined (__GO32__) # ifndef JED_ROOT # define JED_ROOT "c:/usr/local/jed" # endif # ifndef HAS_MEMSET # define HAS_MEMSET # endif # ifndef HAS_MEMCPY # define HAS_MEMCPY # endif # ifndef HAS_MEMCMP # define HAS_MEMCMP # endif #endif #if defined (__EMX__) #define HAS_DIRENT #endif #if defined (__GO32__) # undef MSDOS # undef __MSDOS # undef __MSDOS__ # undef unix # undef __unix # undef __unix__ #endif ------------------------------------------------------------------*/ #if defined (__EMX__) || defined (__GO32__) # ifndef JED_ROOT # define JED_ROOT "c:/usr/local/jed" # endif # ifndef HAS_MEMSET # define HAS_MEMSET # endif # ifndef HAS_MEMCPY # define HAS_MEMCPY # endif # ifndef HAS_MEMCMP # define HAS_MEMCMP # endif #endif #if defined (__EMX__slang-0.99.12/src/makefile.msw000064400000000000003000000014050603742321700157340ustar00rootsys00000000000000# makefile for bcc under DOS. # If you want to run the calc demo, include the FLOAT_TYPE flag CFLAGS1 = -G- -H -N -w -ml -Dmsdos -DMSWINDOWS -W #-DFLOAT_TYPE #CFLAGS1 = -N -v -H -w -ml -Dmsdos -Dmswin -WS #-DFLOAT_TYPE CFLAGS = $(CFLAGS1) -DHAS_MEMCMP -DHAS_MEMCHR CC = bcc OBJS = slang.obj slparse.obj slmath.obj slfile.obj slstd.obj slarray.obj\ slregexp.obj slmatrix.obj slkeymap.obj sltoken.obj\ slmemcpy.obj slmemcmp.obj slmemset.obj slmemchr.obj slxstrng.obj\ slerr.obj slsearch.obj slmalloc.obj slclass.obj slmisc.obj slprepr.obj EXEC = calc.exe RANLIB = ranlib LIBDIR = . wslang.lib: $(OBJS) tlib $(LIBDIR)\wslang.lib /C @wslang.rsp SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.obj: $(CC) -c $(CFLAGS) $*.c export: export -f slang.lis _MEMCHR CC = bcc OBJS = slang.obj slparse.obj slmath.obj slfile.obj slstd.obj slarray.obj\ slregexp.obj slmatrix.obj slkeymap.obj sltoken.obj\ slmemcpy.obj slmemcmp.obj slmemset.obj slmemchr.obj slxstrng.obj\ slerr.obj slsearch.slang-0.99.12/src/makefile.wcc000064400000000000003000000020160603742321700157010ustar00rootsys00000000000000# makefile for bcc under DOS. # If you want to run the calc demo, include the FLOAT_TYPE flag CFLAGS = -w4 -I. -Dmsdos -DDOS386 -DFLOAT_TYPE -DHAS_MEMCPY -DHAS_MEMCMP\ -DHAS_MEMSET -DHAS_MEMCHR CC = wcl386 OBJS = slang.obj slparse.obj slmath.obj slfile.obj slstd.obj slarray.obj\ slregexp.obj slmatrix.obj slkeymap.obj slrline.obj sltoken.obj\ slxstrng.obj\ sldostty.obj slerr.obj slgetkey.obj slvideo.obj slsmg.obj slsearch.obj\ slmalloc.obj slclass.obj slmisc.obj slprepr.obj # slcalc.obj EXEC = calc.exe RANLIB = ranlib LIBDIR = . slang.lib: $(OBJS) wlib -b $(LIBDIR)\slang.lib @slangwcc.rsp .c.obj: .AUTODEPEND $(CC) -c $(CFLAGS) $*.c #calc: calcmain.obj slang.lib # $(CC) $(CFLAGS) -fe=$(EXEC) calcmain.obj slang.lib calc.exe: calc.obj slang.lib $(CC) $(CFLAGS) -fe=$(EXEC) calc.obj slang.lib worm.obj: worm.c $(CC) -c $(CFLAGS) -DSLANG worm.c worm.exe: worm.obj slang.lib $(CC) $(CFLAGS) -DSLANG -fe=worm worm.obj slang.lib worm: worm.exe calc: calc.exe export: export -f slang.lis XEC = calc.exe RANLIB = ranlib LIBDIR = . slang.lib: $(OBJS) wlib -b $(LIBDIR)\slang.lib @slangwcc.rsp .c.obj: .AUTODEPEND $(CC) -c $(CFLAGS) $*.c #calc: calcmain.obj slang.lib # $(CC) $(CFLAGS) -fe=$(EXEC) calcmain.obj slang.lib calc.exe: calc.obj slang.lib $(CC) $(CFLAGS) -fe=$(EXEC) calc.obj slang.lib worm.obj: worm.c $(CC) -c $(CFLAGS) -DSLANG worm.c worm.exe: worm.obj slang.lib $(CC) $(CFLAGS) -DSLANG -fe=worm worm.obj slang.lib worm: worm.exe calc: calc.exe export: exportslang-0.99.12/src/makefile.emx000064400000000000003000000041340603742321700157210ustar00rootsys00000000000000# EMX makefile # define FLOAT_TYPE below if you want floating point support. This # might require a floating point processor. Consult the EMX # documentation for more details. In particular, the calc.c demo # program requires it. CFLAGS = -O -Wall -imacros gcc.inc -DFLOAT_TYPE CC =gcc SLIB = . LFLAGS = -L$(SLIB) -lslang -lvideo OBJS = slang.o slparse.o slmath.o slfile.o slstd.o slarray.o slregexp.o\ slunix.o slmatrix.o slkeymap.o slrline.o slerr.o sldostty.o slgetkey.o\ slmemcpy.o slmemcmp.o slmemset.o slmemchr.o slxstrng.o sltoken.o\ slsearch.o slvideo.o slsmg.o slmalloc.o slclass.o slmisc.o slprepr.o EXEC = calc AR = AR -s ARFLAGS = -cr RANLIB = ar -s LIB = slang.a BIND = emxbind -aq BIND_OPT = -acm ### new style implicit rules %.o : %.c $(CC) -c $(CFLAGS) -I$(SLIB) -o $@ $< ##### slang.a: ${OBJS} slgcc386.rsp -rm $(LIB) -ar $(ARFLAGS) $(LIB) @slgcc386.rsp -$(RANLIB) $(LIB) # after adding a single member to an existing lib ranlib: -$(AR) d $(LIB) __.SYMDEF -$(AR) s $(LIB) calc.exe: calc.o $(LIB) $(CC) calc.o $(LFLAGS) -o calc.exe $(BIND) calc.exe $(BIND_OPT) worm.exe: worm.o $(LIB) $(CC) worm.o $(LFLAGS) -o worm.exe $(BIND) worm.exe $(BIND_OPT) worm.o: worm.c $(CC) -c $(CFLAGS) -DSLANG -I$(SLIB) -o $@ $< export: export -f slang.lis slgcc386.rsp: makefile.emx echo slang.o > slgcc386.rsp echo slparse.o >>slgcc386.rsp echo slmath.o >>slgcc386.rsp echo slfile.o >>slgcc386.rsp echo slstd.o >>slgcc386.rsp echo slarray.o >>slgcc386.rsp echo slregexp.o >>slgcc386.rsp echo slunix.o >>slgcc386.rsp echo slmatrix.o >>slgcc386.rsp echo slkeymap.o >>slgcc386.rsp echo slrline.o >>slgcc386.rsp echo slerr.o >>slgcc386.rsp echo sldostty.o >>slgcc386.rsp echo slgetkey.o >>slgcc386.rsp echo slmemcpy.o >>slgcc386.rsp echo slmemcmp.o >>slgcc386.rsp echo slmemset.o >>slgcc386.rsp echo slmemchr.o >>slgcc386.rsp echo slxstrng.o >>slgcc386.rsp echo sltoken.o >>slgcc386.rsp echo slsearch.o >>slgcc386.rsp echo slvideo.o >>slgcc386.rsp echo slsmg.o >>slgcc386.rsp echo slmalloc.o >>slgcc386.rsp echo slclass.o >>slgcc386.rsp echo slmisc.o >>slgcc386.rsp 86.rsp echo slrline.o >>slgcc386.rsp echo slerr.o >>slgcc386.rsp echo sldostty.o >>slgcc386.rsp echo slgetkey.o >>slgcc386.rsp echo slmemcpy.o >>slgcc386.rsp echo slmemcmp.o >>slgcc386.rsp echo slmemset.o >>slgcc386.rsp echo slmemchr.o >>slgcc386.rsp echo slxstrng.o >>slgcc386.rsp echo sltoken.o >>slgcc386.rsp echo slsearch.o >>slgcc386.rsp echo slvideo.o >>slgcc386.rsp echo slsmg.o >>slgcc386.rsp slang-0.99.12/src/makefile.unx000064400000000000003000000070000603742322000157270ustar00rootsys00000000000000# S-Lang Makefile for Unix -*- sh_mode -*- # There are several sections that may need editing here. For QNX systems, # look for the QNX section below. #--------------------------------------------------------------------------- # C compiler. #--------------------------------------------------------------------------- CC = cc -O -DNO_PROTOTYPES # <--- Ultrix and many other unix #CC = gcc -O2 -Wall -fno-strength-reduce # <--- Linux #CC = gcc -O2 -traditional-cpp # <--- SunOS without acc #CC = acc -vc -Xa -O # <--- SunOS with acc #CC = cc +O3 -Aa -D_HPUX_SOURCE # <--- HP-UX #CC = cc -O -Olimit 2000 # <--- OSF1 #CC = xlc -O -D_POSIX_SOURCE # <--- AIX # Note also that if you do not have /usr/include/unistd.h or stdlib.h, you # should add one or more of: `-DNO_STDLIB_H -DNO_UNISTD_H' to the CC line. #--------------------------------------------------------------------------- # Termcap or Terminfo #--------------------------------------------------------------------------- # At least one system (NeXT) does not have terminfo. If yours does not # have terminfo, or you insist on termcap, uncomment the next two lines: #LIBTERMCAP = -ltermcap #USETERMCAP = -DUSE_TERMCAP #--------------------------------------------------------------------------- # Misc Flags #--------------------------------------------------------------------------- # If your system does not have stdlib.h, remove '#' before -DNO_STDLIB_H # below (e.g., NeXT, sequent,..). # Note: Some systems, e.g., SunOS use signed memory comparison whereas # slang uses unsigned. Do NOT define HAS_MEMCMP for such systems! CFLAGS1 = -Dunix -DFLOAT_TYPE # -DNO_STDLIB_H CFLAGS2 = $(CFLAGS1) -DHAS_MEMSET -DHAS_MEMCPY #-DHAS_MEMCMP #-DHAS_MEMCHR # If your system does not have `ranlib', uncomment the next line: #RANLIB_PREFIX = echo #---------------------------------------------------------------------------- # This needs to be modified for QNX #---------------------------------------------------------------------------- ARCMD = ar cr # Most Unix #ARCMD = wlib # QNX LIBSLANG = libslang.a # Most Unix #LIBSLANG = slang3r.lib # QNX #----------------------------------------------------------------------------- # Nothing below here should require changing #----------------------------------------------------------------------------- RANLIB = ranlib CFLAGS = $(CLFAGS1) $(CFLAGS2) $(USETERMCAP) -Dunix OBJS = slang.o slparse.o slmath.o slfile.o slstd.o slarray.o slregexp.o \ slunix.o slmatrix.o slutty.o slkeymap.o slrline.o slerr.o sltoken.o\ slmemcpy.o slmemcmp.o slmemset.o slmemchr.o slxstrng.o slgetkey.o\ sldisply.o slsmg.o slsearch.o slcmd.o slmalloc.o slclass.o slmisc.o\ sltermin.o slprepr.o EXEC = calc $(LIBSLANG): $(OBJS) rm -f $(LIBSLANG) $(ARCMD) $(LIBSLANG) $(OBJS) @echo @echo Ignore any complaint about a missing ranlib from the next command. @echo $(RANLIB_PREFIX) $(RANLIB) $(LIBSLANG) calc: calc.o $(LIBSLANG) $(CC) $(CFLAGS) calc.o -L. $(LIBSLANG) -lm -o $(EXEC) worm.o: worm.c $(CC) -c $(CFLAGS) -DSLANG worm.c worm: worm.o $(LIBSLANG) $(CC) $(CFLAGS) worm.o -o worm -L. -lslang $(LIBTERMCAP) untic.o: untic.c sltermin.c $(CC) -c $(CFLAGS) -DSLANG untic.c untic: untic.o slerr.o sltoken.o $(CC) untic.o slerr.o sltoken.o -o untic clean: /bin/rm -f *.o *.a *~ worm calc untic out out.* typescript slang-0.99.12/src/makefile.dos000064400000000000003000000020100603742322000156760ustar00rootsys00000000000000# makefile for bcc under DOS. # If you want to run the calc demo, include the FLOAT_TYPE flag CFLAGS1 = -G- -H -N -O1 -w -ml -Dmsdos #-DFLOAT_TYPE #CFLAGS1 = -N -v -H -w -ml -Dmsdos #-DFLOAT_TYPE CFLAGS = $(CFLAGS1) -DHAS_MEMCMP -DHAS_MEMCHR CC = bcc OBJS = slang.obj slparse.obj slmath.obj slfile.obj slstd.obj slarray.obj\ slregexp.obj slmatrix.obj slkeymap.obj slrline.obj sltoken.obj\ slmemcpy.obj slmemcmp.obj slmemset.obj slmemchr.obj slxstrng.obj\ sldostty.obj slerr.obj slgetkey.obj slvideo.obj slsmg.obj slsearch.obj\ slmalloc.obj slclass.obj slmisc.obj slprepr.obj EXEC = calc.exe RANLIB = ranlib LIBDIR = . slang.lib: $(OBJS) tlib $(LIBDIR)\slang.lib /C @slang.rsp SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.obj: $(CC) -c $(CFLAGS) $*.c calc: calc.obj slang.lib $(CC) $(CFLAGS) -e$(EXEC) -L. calc.obj slang.lib worm.obj: worm.c $(CC) -c $(CFLAGS) -Dpc_system -DSLANG worm.c worm: worm.obj slang.lib $(CC) $(CFLAGS) -eworm -L. worm.obj slang.lib export: export -f slang.lis video.obj slsmg.obj slsearch.obj\ slmalloc.obj slclass.obj slmisc.obj slprepr.obj EXEC = calc.exe RANLIB = ranlib LIBDIR = . slang.lib: $(OBJS) tlib $(LIBDIR)\slang.lib /C @slang.rsp SUFFIXES = .c .SUFFIXES: $(SUFFIXES) .c.obj: $(CC) -c $(CFLAGS) $*.c calc: calc.obj slang.lib $(CC) $(CFLAGS) -e$(EXEC) -L. calc.obj slang.lib worm.obj: worm.c $(CC) -c $(CFLAGS) -Dpc_system -DSLANG worm.c worm: worm.obj slang.lib $(CC) $(CFLAGS) -eworm -L. worm.obj slang.lib export: export -f slslang-0.99.12/src/makefile.djg000064400000000000003000000053710603742322000156720ustar00rootsys00000000000000# DJGPP makefile # define FLOAT_TYPE below if you want floating point support. This # might require a floating point processor. Consult the DJGPP # documentation for more details. In particluar, the calc.c demo # program requires it. CFLAGS1 = -O -Wall #-DFLOAT_TYPE CFLAGS = $(CFLAGS1) -DHAS_MEMSET -DHAS_MEMCPY -DHAS_MEMCMP CC = gcc GO32 = G:/djgpp/bin/go32.exe OBJS = slang.o slparse.o slmath.o slfile.o slstd.o slarray.o slregexp.o\ slunix.o slmatrix.o slkeymap.o slrline.o slerr.o sldostty.o slgetkey.o\ slmemcpy.o slmemcmp.o slmemset.o slmemchr.o slxstrng.o sltoken.o\ slsearch.o slvideo.o slsmg.o slmalloc.o slclass.o slmisc.o slprepr.o SLIB = . EXEC = calc RANLIB = ranlib libslang.a: $(OBJS) -rm libslang.a ar -cr libslang.a @sldjgpp.rsp $(RANLIB) libslang.a .exe.386: coff2exe -s $(GO32) $< slang.o: slang.c $(CC) -c $(CFLAGS) -I$(SLIB) slang.c slparse.o: slparse.c $(CC) -c $(CFLAGS) -I$(SLIB) slparse.c slmath.o: slmath.c $(CC) -c $(CFLAGS) -I$(SLIB) slmath.c slfile.o: slfile.c $(CC) -c $(CFLAGS) -I$(SLIB) slfile.c slstd.o: slstd.c $(CC) -c $(CFLAGS) -I$(SLIB) slstd.c slarray.o: slarray.c $(CC) -c $(CFLAGS) -I$(SLIB) slarray.c slregexp.o: slregexp.c $(CC) -c $(CFLAGS) -I$(SLIB) slregexp.c slunix.o: slunix.c $(CC) -c $(CFLAGS) -I$(SLIB) slunix.c slmatrix.o: slmatrix.c $(CC) -c $(CFLAGS) -I$(SLIB) slmatrix.c slkeymap.o: slkeymap.c $(CC) -c $(CFLAGS) -I$(SLIB) slkeymap.c slrline.o: slrline.c $(CC) -c $(CFLAGS) -I$(SLIB) slrline.c slerr.o: slerr.c $(CC) -c $(CFLAGS) -I$(SLIB) slerr.c sldostty.o: sldostty.c $(CC) -c $(CFLAGS) -I$(SLIB) sldostty.c slgetkey.o: slgetkey.c $(CC) -c $(CFLAGS) -I$(SLIB) slgetkey.c slmemcpy.o: slmemcpy.c $(CC) -c $(CFLAGS) -I$(SLIB) slmemcpy.c slmemcmp.o: slmemcmp.c $(CC) -c $(CFLAGS) -I$(SLIB) slmemcmp.c slmemset.o: slmemset.c $(CC) -c $(CFLAGS) -I$(SLIB) slmemset.c slmemchr.o: slmemchr.c $(CC) -c $(CFLAGS) -I$(SLIB) slmemchr.c slxstrng.o: slxstrng.c $(CC) -c $(CFLAGS) -I$(SLIB) slxstrng.c sltoken.o: sltoken.c $(CC) -c $(CFLAGS) -I$(SLIB) sltoken.c slsearch.o: slsearch.c $(CC) -c $(CFLAGS) -I$(SLIB) slsearch.c slvideo.o: slvideo.c $(CC) -c $(CFLAGS) -I$(SLIB) slvideo.c slsmg.o: slsmg.c $(CC) -c $(CFLAGS) -I$(SLIB) slsmg.c slmalloc.o: slmalloc.c $(CC) -c $(CFLAGS) -I$(SLIB) slmalloc.c slclass.o: slclass.c $(CC) -c $(CFLAGS) -I$(SLIB) slclass.c slmisc.o: slmisc.c $(CC) -c $(CFLAGS) -I$(SLIB) slmisc.c slprepr.o: slprepr.c $(CC) -c $(CFLAGS) -I$(SLIB) slprepr.c calc: calc.o libslang.a $(CC) $(CFLAGS) calc.o -L. libslang.a -lm -o $(EXEC).386 coff2exe -s $(GO32) $(EXEC).386 worm.o: worm.c $(CC) -c $(CFLAGS) -DSLANG worm.c worm: worm.o libslang.a $(CC) $(CFLAGS) worm.o -L. libslang.a -lpc -lm -o worm.386 coff2exe -s $(GO32) worm.386 export: export -f slang.lis SLIB) slmalloc.c slclass.o: slclass.c $(CC) -c $(CFLAGS) -I$(SLIB) slclass.c slmisc.o: slmisc.c $(CC) -c $(CFLAGS) -I$(SLIB) slmisc.c slprepr.o: slprepr.c $(CC) -c $(CFLAGS) -I$(SLIB) slprepr.c calc: calc.o libslang.a $(CC) $(CFLAGS) calc.o -L. libslang.aslang-0.99.12/src/makefile.os2000064400000000000003000000056350603742322000156340ustar00rootsys00000000000000#================ JED makefile for DMAKE 3.8 ====================== # This makefile is for DMAKE, either under DOS or OS/2 # The following OS/Compiler combinations are supported: # # Target Compiler Command Compiler # Operating Mnemoic Line # System #----------------------------------------------------------------------- # OS2 MSC OS=OS2 COMP=MSC Microsoft C # OS2 EMX OS=OS2 COMP=EMX emx/gcc #----------------------------------------------------------------------- MODEL = L #----------------------------------------------------------------------- # default setup for MSC under OS/2, optimized version # change values below or override with -e switch on command line #----------------------------------------------------------------------- OS=OS2 COMP=EMX OPT=Y #----------------------------------------------------------------------- .IF $(TOS) == $(NULL) TOS = $(OS) .END .IF $(OS) == OS2 #======================================================================== #========================= OS2 - MSC ==================================== #======================================================================== .IF $(COMP) == MSC CC = cl -nologo -MT LIB_CMD = lib .IF $(OPT) == N CDBUG = -Od -Zi -W2 LDEBUG = -Zi .ELSE CDBUG = LDEBUG = .END CDEBUG = $(CDBUG) -D__os2_16__ O = .obj L = .lib LIB_OBJS = $(LOBJS); SLANG = slang LFLAGS2 = setargv.obj slang.lib os2sl16.def -link /NOE #======================================================================== #========================= OS2 - EMX ==================================== #======================================================================== .ELIF $(COMP) == EMX CC = gcc -Zmtd LIB_CMD = ar rcv .IF $(OPT) == N CDEBUG =-g LDEBUG = .ELSE CDEBUG = -O LDEBUG = .END O = .o L = .a LIB_OBJS = $(OBJS) SLANG = slang LFLAGS2 = os2sl.def -L. -lslang .ENDIF .ENDIF LOBJS = -+slang$O -+slparse$O -+slmath$O -+slfile$O -+slstd$O -+slarray$O \ -+slregexp$O -+slmatrix$O -+slrline$O -+slkeymap$O -+sltoken$O \ -+slmemcpy$O -+slmemcmp$O -+slmemset$O -+slmemchr$O \ -+slxstrng$O -+slgetkey$O -+slos2tty$O -+slvideo$O -+slsmg$O \ -+slerr$O -+slsearch$O -+slcmd$O -+slmalloc$O -+slclass$O \ -+slmisc$O -+slprepr$O OBJS = $(LOBJS:s/-+//) EXEC = calc.exe CFLAGS = $(CDEBUG) -D__os2__ -DFLOAT_TYPE -DHAS_MEMCPY -DHAS_MEMCMP -DHAS_MEMSET LFLAGS = $(LDEBUG) $(SLANG)$L: $(OBJS) $(LIB_CMD) $@ $(LIB_OBJS) .c$O: $(CC) -c $(CFLAGS) $*.c all : calc worm calc : calc.exe calc.exe: calc$O $(SLANG)$L $(CC) $(LFLAGS) -o $(EXEC) calc$O $(LFLAGS2) worm$O: worm.c $(CC) -c $(CFLAGS) -DSLANG $*.c worm : worm.exe worm.exe: worm$O $(SLANG)$L $(CC) $(LFLAGS) -o $@ worm$O $(LFLAGS2) oc$O -+slclass$O \ -+slmisc$O -+slprepr$O OBJS = $(LOBJS:s/-+//) EXEC = calc.exe CFLAGS = $(CDEslang-0.99.12/src/makefile.w32000064400000000000003000000013510603742322000155330ustar00rootsys00000000000000# makefile for bcc under DOS. # If you want to run the calc demo, include the FLOAT_TYPE flag CFLAGS1 = -G- -H -N -w -Dmsdos -DMSWINDOWS -W #-DFLOAT_TYPE #CFLAGS1 = -N -v -H -w -ml -Dmsdos -Dmswin -WS #-DFLOAT_TYPE CFLAGS = $(CFLAGS1) -DHAS_MEMCMP -DHAS_MEMCHR CC = bcc32 OBJS = slang.obj slparse.obj slmath.obj slfile.obj slstd.obj slarray.obj\ slregexp.obj slmatrix.obj slkeymap.obj sltoken.obj\ slmemcpy.obj slmemcmp.obj slmemset.obj slmemchr.obj slxstrng.obj\ slerr.obj slsearch.obj slmalloc.obj slclass.obj slmisc.obj\ slprepr.obj EXEC = calc.exe RANLIB = ranlib LIBDIR = . wslang32.lib: $(OBJS) tlib $(LIBDIR)\wslang32.lib /C @wslang.rsp .c.obj: $(CC) -c $(CFLAGS) $*.c export: export -f slang.lis AGS1) -DHAS_MEMCMP -DHAS_MEMCHR CC = bcc32 OBJS = slang.obj slparse.obj slmath.obj slfile.obj slstd.obj slarray.obj\ slregexp.obj slmatrix.obj slkeymap.obj sltoken.obj\ slmemcpy.obj slmemcmp.obj slmemset.obj slmemchr.obj slxstrng.obj\ slerr.obj slsearch.obslang-0.99.12/src/os2sl.def000064400000000000003000000001350603742322000151420ustar00rootsys00000000000000NAME WINDOWCOMPAT NEWFILES DESCRIPTION 'JED S-Lang library example program' STACKSIZE 196608 BDIR = . wslang32.lib: $(OBJS) tlib $(LIBDIR)\wslang32.lib /C @wslang.rsp .c.obj: $(CC) -c $(CFLAGS) $*.c export: export -f slang.lis AGS1) -DHAS_MEMCMP -DHAS_MEMCHR CC = bcc32 OBJS = slang.obj slparse.obj slmath.obj slfile.obj slstd.obj slarray.obj\ slregexp.obj slmatrix.obj slkeymap.obj sltoken.obj\ slmemcpy.obj slmemcmp.obj slmemset.obj slmemchr.obj slxstrng.obj\ slerr.obj slsearch.obslang-0.99.12/src/os2sl16.def000064400000000000003000000001350603742322000153110ustar00rootsys00000000000000NAME WINDOWCOMPAT NEWFILES DESCRIPTION 'JED S-Lang library example program' STACKSIZE 0x4000 BDIR = . wslang32.lib: $(OBJS) tlib $(LIBDIR)\wslang32.lib /C @wslang.rsp .c.obj: $(CC) -c $(CFLAGS) $*.c export: export -f slang.lis AGS1) -DHAS_MEMCMP -DHAS_MEMCHR CC = bcc32 OBJS = slang.obj slparse.obj slmath.obj slfile.obj slstd.obj slarray.obj\ slregexp.obj slmatrix.obj slkeymap.obj sltoken.obj\ slmemcpy.obj slmemcmp.obj slmemset.obj slmemchr.obj slxstrng.obj\ slerr.obj slsearch.obslang-0.99.12/src/slang.c000064400000000000003000002140070603742322100146760ustar00rootsys00000000000000/* slang.c --- guts of S-Lang interpreter */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #ifdef FLOAT_TYPE #include #endif /* not ready yet */ #define SL_BYTE_COMPILING #include "slang.h" #include "_slang.h" int SLang_Version = SLANG_VERSION; /* If non null, these call C functions before and after a slang function. */ void (*SLang_Enter_Function)(char *) = NULL; void (*SLang_Exit_Function)(char *) = NULL; int SLang_Trace = 0; char SLang_Trace_Function[32]; #ifdef MSWINDOWS SLang_Name_Type *SLang_Name_Table; #else SLang_Name_Type SLang_Name_Table[SLANG_MAX_SYMBOLS]; #endif static int SLang_Name_Table_Ofs[256]; SLName_Table *SLName_Table_Root; static SLang_Name_Type *Lang_Local_Variable_Table; int Local_Variable_Number; #define MAX_LOCAL_VARIABLES 50 static int Lang_Break_Condition = 0; /* true if any one below is true */ static int Lang_Break = 0; static int Lang_Return = 0; static int Lang_Continue = 0; /* this stack is used by the inner interpreter to execute top level * interpreter commands which by definition are immediate so stack is * only of maximum 10; sorry... */ #define SLANG_MAX_TOP_STACK 10 static SLBlock_Type Lang_Interp_Stack_Static[SLANG_MAX_TOP_STACK]; static SLBlock_Type *Lang_Interp_Stack_Ptr = Lang_Interp_Stack_Static; static SLBlock_Type *Lang_Interp_Stack = Lang_Interp_Stack_Static; #ifdef MSWINDOWS SLang_Object_Type *SLRun_Stack; SLang_Object_Type *SLStack_Pointer; static SLang_Object_Type *SLStack_Pointer_Max; #else SLang_Object_Type SLRun_Stack[SLANG_MAX_STACK_LEN]; SLang_Object_Type *SLStack_Pointer = SLRun_Stack; static SLang_Object_Type *SLStack_Pointer_Max = SLRun_Stack + SLANG_MAX_STACK_LEN; #endif /* Might want to increase this. */ #define MAX_LOCAL_STACK 200 static SLang_Object_Type Local_Variable_Stack[MAX_LOCAL_STACK]; static SLang_Object_Type *Local_Variable_Frame = Local_Variable_Stack; int SLang_Traceback = 0; /* non zero means do traceback */ static int inner_interp(register SLBlock_Type *); static int Lang_Defining_Function = 0; /* true if defining a function */ static SLBlock_Type *Lang_Function_Body; static SLBlock_Type *Lang_FBody_Ptr; static int Lang_FBody_Size = 0; #define SLANG_MAX_BLOCKS 30 /* max number of nested blocks--- was 10 but I once exceeded it! */ typedef struct Lang_Block_Type { int size; /* current nuber of objects malloced */ SLBlock_Type *body; /* beginning of body definition */ SLBlock_Type *ptr; /* current location */ } Lang_Block_Type; static int Lang_Defining_Block = 0; /* true if defining a block */ static Lang_Block_Type Lang_Block_Stack[SLANG_MAX_BLOCKS]; static SLBlock_Type *Lang_Block_Body; static int Lang_BBody_Size; static int Lang_Block_Depth = -1; static SLBlock_Type *Lang_Object_Ptr = Lang_Interp_Stack_Static; /* next location for compiled obj -- points to interpreter stack initially */ /* type MUST come back 0 if there is a stack underflow !!! */ int SLang_pop(SLang_Object_Type *x) { register SLang_Object_Type *y; y = SLStack_Pointer; if (y == SLRun_Stack) { x->main_type = 0; if (SLang_Error == 0) SLang_Error = STACK_UNDERFLOW; SLStack_Pointer = SLRun_Stack; return 1; } y--; *x = *y; SLStack_Pointer = y; return(0); } void SLang_push(SLang_Object_Type *x) { register SLang_Object_Type *y; y = SLStack_Pointer; /* if there is a SLang_Error, probably not much harm will be done if it is ignored here */ /* if (SLang_Error) return; */ /* flag it now */ if (y >= SLStack_Pointer_Max) { if (!SLang_Error) SLang_Error = STACK_OVERFLOW; return; } *y = *x; SLStack_Pointer = y + 1; } SLuser_Object_Type *SLang_pop_user_object (unsigned char stype) { SLang_Object_Type obj; if (SLang_pop (&obj)) return NULL; if ((obj.sub_type == stype) && (stype >= ARRAY_TYPE)) { return obj.v.uobj; } /* Failure */ if (obj.main_type == SLANG_DATA) { if (obj.sub_type == STRING_TYPE) SLFREE(obj.v.s_val); else if (obj.sub_type >= ARRAY_TYPE) SLang_free_user_object (obj.v.uobj); } if (!SLang_Error) SLang_Error = TYPE_MISMATCH; return NULL; } /* Pop anything but an object type */ int SLang_pop_non_object (SLang_Object_Type *obj) { if (SLang_pop (obj)) return 1; if (obj->sub_type >= ARRAY_TYPE) { SLang_free_user_object (obj->v.uobj); SLang_Error = TYPE_MISMATCH; return 1; } return 0; } /* If it returns 0, DO NOT FREE p */ static int lang_free_branch(SLBlock_Type *p) { unsigned char main_type; unsigned char stype; main_type = p->main_type; /* These guys were not all allocated. See end_block for details */ if ((main_type == SLANG_RETURN) || (main_type == SLANG_BREAK) || (main_type == SLANG_CONTINUE)) return 0; while(1) { main_type = p->main_type; if (main_type == SLANG_BLOCK) { if (lang_free_branch(p->b.blk)) SLFREE(p->b.blk); } else if (main_type == SLANG_DATA) { stype = p->sub_type; if (stype == STRING_TYPE) { SLFREE (p->b.s_blk); } } #ifdef FLOAT_TYPE else if ((main_type == SLANG_LITERAL) && (p->sub_type == FLOAT_TYPE)) { SLFREE (p->b.f_blk); } #endif /* else if (type == string_type) SLFREE(p->value); This fails because objects may be attached to these strings */ else if (main_type == 0) break; p++; } return 1; } int SLang_pop_integer(int *i) { SLang_Object_Type obj; (void) SLang_pop_non_object (&obj); if (obj.sub_type != INT_TYPE) { if (IS_DATA_STRING(obj)) SLFREE(obj.v.s_val); if (!SLang_Error) SLang_Error = TYPE_MISMATCH; return(1); } *i = obj.v.i_val; return(0); } #ifdef FLOAT_TYPE int SLang_pop_float(FLOAT *x, int *convert, int *ip) { SLang_Object_Type obj; register unsigned char stype; if (SLang_pop_non_object (&obj)) return(1); stype = obj.sub_type; if (stype == FLOAT_TYPE) { *x = obj.v.f_val; *convert = 0; } else if (stype == INT_TYPE) { *ip = obj.v.i_val; *x = (FLOAT) obj.v.i_val; *convert = 1; } else { if (IS_DATA_STRING(obj)) SLFREE(obj.v.s_val); SLang_Error = TYPE_MISMATCH; return(1); } return(0); } void SLang_push_float(FLOAT x) { SLang_Object_Type obj; obj.main_type = SLANG_DATA; obj.sub_type = FLOAT_TYPE; obj.v.f_val = x; SLang_push (&obj); } #endif /* if *data != 0, string should be freed upon use. */ int SLang_pop_string(char **s, int *data) { SLang_Object_Type obj; if (SLang_pop_non_object (&obj) || (obj.sub_type != STRING_TYPE)) { if (!SLang_Error) SLang_Error = TYPE_MISMATCH; return 1; } *s = obj.v.s_val; /* return whether or not this should be freed after its use. */ if (obj.main_type == SLANG_DATA) *data = 1; else *data = 0; return(0); } void SLang_push_integer(int i) { SLang_Object_Type obj; obj.main_type = SLANG_DATA; obj.sub_type = INT_TYPE; obj.v.i_val = i; SLang_push (&obj); } void SLang_push_string(char *t) { SLang_Object_Type obj; if (NULL == (obj.v.s_val = SLmake_string(t))) return; obj.main_type = SLANG_DATA; obj.sub_type = STRING_TYPE; SLang_push(&obj); } void SLang_push_malloced_string(char *c) { SLang_Object_Type obj; if (c == NULL) { SLang_Error = SL_MALLOC_ERROR; return; } obj.main_type = SLANG_DATA; obj.sub_type = STRING_TYPE; obj.v.s_val = c; SLang_push(&obj); } void SLang_push_user_object (SLuser_Object_Type *uobj) { SLang_Object_Type obj; /* Always maintain the correct count. It is possible for applications to * switch the main_type from IVARIABLE to LANG_DATA. For example, JED * does this for its subprocess marks. */ uobj->count++; obj.sub_type = uobj->sub_type; obj.main_type = uobj->main_type; obj.v.uobj = uobj; SLang_push (&obj); } static void call_funptr(SLang_Name_Type *); /* This is a global variable or global variable */ static void SLang_push_variable(SLang_Object_Type *obj) { register unsigned char subtype; subtype = obj->sub_type; if (obj->main_type == 0) { SLang_doerror ("Variable uninitialized."); return; } if (subtype == STRING_TYPE) { if (obj->main_type == SLANG_DATA) SLang_push_string(obj->v.s_val); else SLang_push(obj); return; } else if (subtype == SLANG_OBJ_TYPE) { call_funptr(obj->v.n_val); return; } else if (subtype >= ARRAY_TYPE) { SLang_push_user_object (obj->v.uobj); return; } SLang_push(obj); } /* This routine pops an integer off the stack. It then adds dn to the * value producing n. The it reverses the * next n items on the stack. Some functions may require this. * This returns a pointer to the last item. */ SLang_Object_Type *SLreverse_stack(int *dn) { int n; SLang_Object_Type *otop, *obot, tmp; if (SLang_pop_integer(&n)) return(NULL); n += *dn; otop = SLStack_Pointer; if ((n > otop - SLRun_Stack) || (n < 0)) { SLang_Error = STACK_UNDERFLOW; return (NULL); } obot = otop - n; otop--; while (otop > obot) { tmp = *obot; *obot = *otop; *otop = tmp; otop--; obot++; } return (SLStack_Pointer - n); } /* local and global variable assignments */ /* Pop a data item from the stack and return a pointer to it. * Strings are not freed from stack so use another routine to do it. * * In addition, I need to make this work with the array types. * see pop string for discussion of do_free */ long *SLang_pop_pointer(unsigned char *main_type, unsigned char *sub_type, int *do_free) { SLang_Object_Type obj; register SLang_Object_Type *p; long *val; if (SLang_pop_non_object (&obj)) return(NULL); p = SLStack_Pointer; /* use this because the stack is static but obj is not. * do not even try to make it static either. See the intrinsic * routine for details */ *do_free = 0; *main_type = p->main_type; *sub_type = p->sub_type; switch (*sub_type) { #ifdef FLOAT_TYPE case FLOAT_TYPE: val = (long *) &(p->v.f_val); break; #endif case INT_TYPE: val = (long *) &(p->v.i_val); break; case STRING_TYPE: if (*main_type == SLANG_DATA) *do_free = 1; /* drop */ default: val = (long *) p->v.s_val; } return (val); } static void lang_do_eqs(SLBlock_Type *obj) { int y; #ifdef FLOAT_TYPE int ifloat, float_convert; #endif register unsigned char sub_type; register SLang_Object_Type *addr; register long val; unsigned char mtype; unsigned char stype; sub_type = obj->sub_type; /* calculate address */ if (sub_type <= SLANG_LMM) { /* local variable */ val = 0; addr = Local_Variable_Frame - obj->b.i_blk; stype = addr->sub_type; mtype = addr->main_type; } else if (sub_type <= SLANG_GMM) /* global */ { addr = (SLang_Object_Type *) obj->b.n_blk->addr; val = 0; mtype = addr->main_type; stype = addr->sub_type; } else /* intrinsic */ { addr = NULL; val = obj->b.n_blk->addr; mtype = obj->b.n_blk->main_type; stype = obj->b.n_blk->sub_type; } if ((sub_type == SLANG_LEQS) || (sub_type == SLANG_GEQS)) { if (mtype == SLANG_DATA) { if (stype == STRING_TYPE) SLFREE(addr->v.s_val); else if (stype >= ARRAY_TYPE) { SLang_free_user_object (addr->v.uobj); } } SLang_pop(addr); return; } /* everything else applies to integers -- later I will extend to float */ if (INT_TYPE != stype) { #ifdef FLOAT_TYPE /* A quick hack for float */ if ((FLOAT_TYPE == stype) && (sub_type == SLANG_IEQS)) { SLang_pop_float ((FLOAT *) val, &float_convert, &ifloat); return; } #endif if (INTP_TYPE != stype) { SLang_Error = TYPE_MISMATCH; return; } /* AT this point, val is int **. Below, we assume that val is * an int *. Note that this type is only defined for intrinsics. */ val = (long) *(int **) val; } /* make this fast for local variables avoiding switch bottleneck */ if (sub_type == SLANG_LPP) { addr->v.i_val += 1; return; } else if (sub_type == SLANG_LMM) { addr->v.i_val -= 1; return; } y = 1; switch (sub_type) { case SLANG_LPEQS: case SLANG_GPEQS: if (SLang_pop_integer(&y)) return; /* drop */ case SLANG_GPP: addr->v.i_val += y; break; case SLANG_GMEQS: case SLANG_LMEQS: if (SLang_pop_integer(&y)) return; /* drop */ case SLANG_GMM: addr->v.i_val -= y; break; case SLANG_IEQS: if (SLang_pop_integer(&y)) return; *(int *) val = y; break; case SLANG_IPEQS: if (SLang_pop_integer(&y)) return; /* drop */ case SLANG_IPP: *(int *) val += y; break; case SLANG_IMEQS: if (SLang_pop_integer(&y)) return; /* drop */ case SLANG_IMM: *(int *) val -= y; break; default: SLang_Error = UNKNOWN_ERROR; } } /* lower 4 bits represent the return type, e.g., void, int, etc... The next 4 bits represent the number of parameters, 0 -> 15 */ #define SLANG_INTRINSIC_ARGC(f) ((f).sub_type >> 4) #define SLANG_INTRINSIC_TYPE(f) ((f).sub_type & 0x0F) static void lang_do_intrinsic(SLang_Name_Type *objf) { typedef void (*VF0_Type)(void); typedef void (*VF1_Type)(char *); typedef void (*VF2_Type)(char *, char *); typedef void (*VF3_Type)(char *, char *, char *); typedef void (*VF4_Type)(char *, char *, char *, char *); typedef void (*VF5_Type)(char *, char *, char *, char *, char *); typedef void (*VF6_Type)(char *, char *, char *, char *, char *, char *); typedef void (*VF7_Type)(char *, char *, char *, char *, char *, char *, char *); typedef long (*LF0_Type)(void); typedef long (*LF1_Type)(char *); typedef long (*LF2_Type)(char *, char *); typedef long (*LF3_Type)(char *, char *, char *); typedef long (*LF4_Type)(char *, char *, char *, char *); typedef long (*LF5_Type)(char *, char *, char *, char *, char *); typedef long (*LF6_Type)(char *, char *, char *, char *, char *, char *); typedef long (*LF7_Type)(char *, char *, char *, char *, char *, char *, char *); #ifdef FLOAT_TYPE typedef FLOAT (*FF0_Type)(void); typedef FLOAT (*FF1_Type)(char *); typedef FLOAT (*FF2_Type)(char *, char *); typedef FLOAT (*FF3_Type)(char *, char *, char *); typedef FLOAT (*FF4_Type)(char *, char *, char *, char *); typedef FLOAT (*FF5_Type)(char *, char *, char *, char *, char *); typedef FLOAT (*FF6_Type)(char *, char *, char *, char *, char *, char *); typedef FLOAT (*FF7_Type)(char *, char *, char *, char *, char *, char *, char *); #endif long ret, fptr; char *p1, *p2, *p3, *p4, *p5, *p6, *p7; int free_p5 = 0, free_p4 = 0, free_p3 = 0, free_p2 = 0, free_p1 = 0; int free_p7 = 0, free_p6 = 0; unsigned char type; int argc; #ifdef FLOAT_TYPE FLOAT xf; #endif fptr = objf->addr; argc = SLANG_INTRINSIC_ARGC(*objf); type = SLANG_INTRINSIC_TYPE(*objf); p7 = p6 = p5 = p4 = p3 = p2 = p1 = NULL; /* shuts up gcc, NOT needed */ switch (argc) { unsigned char tmp1, tmp2; case 7: p7 = (char *) SLang_pop_pointer(&tmp1, &tmp2, &free_p7); case 6: p6 = (char *) SLang_pop_pointer(&tmp1, &tmp2, &free_p6); case 5: p5 = (char *) SLang_pop_pointer(&tmp1, &tmp2, &free_p5); case 4: p4 = (char *) SLang_pop_pointer(&tmp1, &tmp2, &free_p4); case 3: p3 = (char *) SLang_pop_pointer(&tmp1, &tmp2, &free_p3); case 2: p2 = (char *) SLang_pop_pointer(&tmp1, &tmp2, &free_p2); case 1: p1 = (char *) SLang_pop_pointer(&tmp1, &tmp2, &free_p1); } /* I need to put a setjmp here so to catch any long jmps that occur in the user program */ if (!SLang_Error) switch (argc) { case 0: if (type == VOID_TYPE) ((VF0_Type) fptr) (); #ifdef FLOAT_TYPE else if (type == FLOAT_TYPE) xf = ((FF0_Type) fptr)(); #endif else ret = ((LF0_Type) fptr)(); break; case 1: if (type == VOID_TYPE) ((VF1_Type) fptr)(p1); #ifdef FLOAT_TYPE else if (type == FLOAT_TYPE) xf = ((FF1_Type) fptr)(p1); #endif else ret = ((LF1_Type) fptr)(p1); break; case 2: if (type == VOID_TYPE) ((VF2_Type) fptr)(p1, p2); #ifdef FLOAT_TYPE else if (type == FLOAT_TYPE) xf = ((FF2_Type) fptr)(p1, p2); #endif else ret = ((LF2_Type) fptr)(p1, p2); break; case 3: if (type == VOID_TYPE) ((VF3_Type) fptr)(p1, p2, p3); #ifdef FLOAT_TYPE else if (type == FLOAT_TYPE) xf = ((FF3_Type) fptr)(p1, p2, p3); #endif else ret = ((LF3_Type) fptr)(p1, p2, p3); break; case 4: if (type == VOID_TYPE) ((VF4_Type) fptr)(p1, p2, p3, p4); #ifdef FLOAT_TYPE else if (type == FLOAT_TYPE) xf = ((FF4_Type) fptr)(p1, p2, p3, p4); #endif else ret = ((LF4_Type) fptr)(p1, p2, p3, p4); break; case 5: if (type == VOID_TYPE) ((VF5_Type) fptr)(p1, p2, p3, p4, p5); #ifdef FLOAT_TYPE else if (type == FLOAT_TYPE) xf = ((FF5_Type) fptr)(p1, p2, p3, p4, p5); #endif else ret = ((LF5_Type) fptr)(p1, p2, p3, p4, p5); break; case 6: if (type == VOID_TYPE) ((VF6_Type) fptr)(p1, p2, p3, p4, p5, p6); #ifdef FLOAT_TYPE else if (type == FLOAT_TYPE) xf = ((FF6_Type) fptr)(p1, p2, p3, p4, p5, p6); #endif else ret = ((LF6_Type) fptr)(p1, p2, p3, p4, p5, p6); break; case 7: if (type == VOID_TYPE) ((VF7_Type) fptr)(p1, p2, p3, p4, p5, p6, p7); #ifdef FLOAT_TYPE else if (type == FLOAT_TYPE) xf = ((FF7_Type) fptr)(p1, p2, p3, p4, p5, p6, p7); #endif else ret = ((LF7_Type) fptr)(p1, p2, p3, p4, p5, p6, p7); break; default: SLang_doerror("Function requires too many parameters"); SLang_Error = UNKNOWN_ERROR; break; } switch(type) { case STRING_TYPE: if (NULL == (char *) ret) { if (!SLang_Error) SLang_Error = INTRINSIC_ERROR; } else SLang_push_string((char *) ret); break; case INT_TYPE: /* For msdos, longs are 4 bytes and ints are two. Take this approach: */ SLang_push_integer(*(int*) &ret); break; case VOID_TYPE: break; #ifdef FLOAT_TYPE case FLOAT_TYPE: SLang_push_float(* (FLOAT *) &xf); break; #endif default: SLang_Error = TYPE_MISMATCH; } /* I free afterword because functions that return char * may point to this space. */ switch (argc) { case 7: if (free_p7 == 1) SLFREE(p7); case 6: if (free_p6 == 1) SLFREE(p6); case 5: if (free_p5 == 1) SLFREE(p5); case 4: if (free_p4 == 1) SLFREE(p4); case 3: if (free_p3 == 1) SLFREE(p3); case 2: if (free_p2 == 1) SLFREE(p2); case 1: if (free_p1 == 1) SLFREE(p1); } } static void lang_do_loops(unsigned char type, SLBlock_Type *block) { register int i, ctrl = 0; int ctrl1; int first, last, one = 0; register SLBlock_Type *obj1, *obj2, *obj3; obj1 = block->b.blk; switch (type) { case SLANG_WHILE: case SLANG_DOWHILE: /* we need 2 blocks: first is the control, the second is code */ block++; if (block->main_type != SLANG_BLOCK) { SLang_doerror("Block needed for while."); return; } obj2 = block->b.blk; if (type == SLANG_WHILE) { while(!SLang_Error) { inner_interp(obj1); if (Lang_Break) break; if (SLang_pop_integer(&ctrl1)) return; if (!ctrl1) break; inner_interp(obj2); if (Lang_Break) break; Lang_Break_Condition = Lang_Continue = 0; } } else while(!SLang_Error) { Lang_Break_Condition = Lang_Continue = 0; inner_interp(obj1); if (Lang_Break) break; inner_interp(obj2); if (SLang_pop_integer(&ctrl1)) return; if (!ctrl1) break; } break; case SLANG_CFOR: /* we need 4 blocks: first 3 control, the last is code */ inner_interp(obj1); block++; if (block->main_type != SLANG_BLOCK) goto cfor_err; obj1 = block->b.blk; block++; if (block->main_type != SLANG_BLOCK) goto cfor_err; obj2 = block->b.blk; block++; if (block->main_type != SLANG_BLOCK) goto cfor_err; obj3 = block->b.blk; while(!SLang_Error) { inner_interp(obj1); /* test */ if (SLang_pop_integer(&ctrl1)) return; if (!ctrl1) break; inner_interp(obj3); /* code */ if (Lang_Break) break; inner_interp(obj2); /* bump */ Lang_Break_Condition = Lang_Continue = 0; } break; cfor_err: SLang_doerror("Block needed for for."); return; case SLANG_FOR: /* 3 elements: first, last, step */ if (SLang_pop_integer(&ctrl1)) return; if (SLang_pop_integer(&last)) return; if (SLang_pop_integer(&first)) return; ctrl = ctrl1; if (ctrl >= 0) { for (i = first; i <= last; i += ctrl) { if (SLang_Error) return; SLang_push_integer(i); inner_interp(obj1); if (Lang_Break) break; Lang_Break_Condition = Lang_Continue = 0; } } else { for (i = first; i >= last; i += ctrl) { if (SLang_Error) return; SLang_push_integer(i); inner_interp(obj1); if (Lang_Break) break; Lang_Break_Condition = Lang_Continue = 0; } } break; case SLANG_LOOP: if (SLang_pop_integer(&ctrl1)) return; ctrl = ctrl1; case SLANG_FOREVER: if (type == SLANG_FOREVER) one = 1; while (one || (ctrl-- > 0)) { if (SLang_Error) break; inner_interp(obj1); if (Lang_Break) break; Lang_Break_Condition = Lang_Continue = 0; } break; default: SLang_doerror("Unknown loop type."); } Lang_Break = Lang_Continue = 0; Lang_Break_Condition = Lang_Return; } #if 0 static void lang_do_ifs(register SLBlock_Type *addr) { register unsigned char stype; int test; stype = addr->sub_type; if (SLang_pop_integer(&test)) return; if (stype == SLANG_IF) { if (!test) return; } else if (stype == SLANG_IFNOT) { if (test) return; } else if (test) addr--; /* SLANG_ELSE */ if (addr->main_type != SLANG_BLOCK) { SLang_doerror("Block needed."); return; } inner_interp(addr->b.blk); } #endif static void lang_do_else(unsigned char type, SLBlock_Type *addr, SLBlock_Type *addr_max) { int test, status; char *str = NULL; SLang_Object_Type cobj; if (type == SLANG_SWITCH) { if (SLang_pop_non_object (&cobj)) return; if (IS_DATA_STRING(cobj)) str = cobj.v.s_val; } while (addr <= addr_max) { if (type == SLANG_SWITCH) { if (str == NULL) SLang_push(&cobj); else SLang_push_string(str); } status = inner_interp(addr->b.blk); if (SLang_Error || Lang_Break_Condition) return; if (type == SLANG_SWITCH) { if (status) break; } else if (SLang_pop_integer(&test)) return; if (((type == SLANG_ANDELSE) && (test == 0)) || ((type == SLANG_ORELSE) && test)) { break; } addr++; } if (type != SLANG_SWITCH) SLang_push_integer(test); else if (str != NULL) SLFREE(str); return; } static void lang_dump(char *s) { while (*s) { if (*s == '\n') fputc ('\r', stderr); fputc (*s, stderr); s++; } } void (*SLang_Dump_Routine)(char *) = lang_dump; static void do_traceback(SLang_Name_Type *, int); static SLBlock_Type *Exit_Block_Ptr; static SLBlock_Type *Global_User_Block[5]; static SLBlock_Type **User_Block_Ptr = Global_User_Block; void SLexecute_function(SLang_Name_Type *entry1) { register int i; register SLang_Object_Type *frame, *lvf; register int n_locals; register SLang_Name_Type *entry = entry1; SLBlock_Type *val; static char buf[96]; int trace_max, j; static int trace = 0; SLBlock_Type *exit_block_save; SLBlock_Type **user_block_save; SLBlock_Type *user_blocks[5]; n_locals = entry->sub_type; exit_block_save = Exit_Block_Ptr; user_block_save = User_Block_Ptr; User_Block_Ptr = user_blocks; *(user_blocks) = NULL; *(user_blocks + 1) = NULL; *(user_blocks + 2) = NULL; *(user_blocks + 3) = NULL; *(user_blocks + 4) = NULL; Exit_Block_Ptr = NULL; /* need loaded? */ if (n_locals == 255) { if (!SLang_load_file((char *) entry->addr)) goto the_return; n_locals = entry->sub_type; if (n_locals == 255) { SLang_doerror("Function did not autoload!"); goto the_return; } } /* let the lang error propagate through since it will do no harm and allow us to restore stack. */ val = (SLBlock_Type *) entry->addr; /* set new stack frame */ lvf = frame = Local_Variable_Frame; i = n_locals; if ((lvf + i) > Local_Variable_Stack + MAX_LOCAL_STACK) { SLang_doerror("Local Variable Stack Overflow!"); goto the_return; } while(i--) { lvf++; lvf->main_type = 0; } Local_Variable_Frame = lvf; if (SLang_Enter_Function != NULL) (*SLang_Enter_Function)(entry->name + 1); if (SLang_Trace) { if ((*SLang_Trace_Function == *entry->name) && !strcmp(SLang_Trace_Function, entry->name)) trace = 1; trace_max = (trace > 50) ? 50 : trace - 1; if (trace) { for (j = 0; j < trace_max; j++) buf[j] = ' '; sprintf(buf + trace_max, ">>%s\n", entry->name + 1); (*SLang_Dump_Routine)(buf); trace++; } inner_interp(val); Lang_Break_Condition = Lang_Return = Lang_Break = 0; if (Exit_Block_Ptr != NULL) inner_interp(Exit_Block_Ptr); if (trace) { sprintf(buf + trace_max, "<<%s\n", entry->name + 1); (*SLang_Dump_Routine)(buf); trace--; if (trace == 1) trace = 0; } } else { inner_interp(val); Lang_Break_Condition = Lang_Return = Lang_Break = 0; if (Exit_Block_Ptr != NULL) inner_interp(Exit_Block_Ptr); } if (SLang_Exit_Function != NULL) (*SLang_Exit_Function)(entry->name + 1); if (SLang_Error && SLang_Traceback) { do_traceback(entry, n_locals); } /* free local variables.... */ lvf = Local_Variable_Frame; while(lvf > frame) { if (lvf->main_type == SLANG_DATA) { if (lvf->sub_type == STRING_TYPE) SLFREE(lvf->v.s_val); else if (lvf->sub_type >= ARRAY_TYPE) { SLang_free_user_object (lvf->v.uobj); } } lvf--; } Local_Variable_Frame = lvf; the_return: Lang_Break_Condition = Lang_Return = Lang_Break = 0; Exit_Block_Ptr = exit_block_save; User_Block_Ptr = user_block_save; } static void do_traceback(SLang_Name_Type *nt, int locals) { char buf[80]; char *s; int i; SLang_Object_Type *objp; unsigned short stype; sprintf(buf, "S-Lang Traceback: %s\n",nt->name + 1); (*SLang_Dump_Routine)(buf); if (!locals) return; (*SLang_Dump_Routine)(" Local Variables:\n"); for (i = 0; i < locals; i++) { objp = Local_Variable_Frame - i; stype = objp->sub_type; sprintf(buf, "\t$%d: ", i); (*SLang_Dump_Routine)(buf); s = SLstringize_object (objp); if (s == NULL) (*SLang_Dump_Routine)("??"); else { if (STRING_TYPE == stype) (*SLang_Dump_Routine) ("\""); (*SLang_Dump_Routine)(s); if (STRING_TYPE == stype) (*SLang_Dump_Routine) ("\""); SLFREE (s); } (*SLang_Dump_Routine)("\n"); } } static void call_funptr(SLang_Name_Type *optr) { SLBlock_Type objs[2]; if (optr == NULL) { SLang_doerror("Object Ptr is Nil!"); return; } objs[0].b.n_blk = optr; objs[0].sub_type = optr->sub_type; objs[0].main_type = optr->main_type; objs[1].main_type = 0; inner_interp(objs); } #ifdef SLANG_STATS static unsigned long stat_counts[256]; #endif void (*SLang_Interrupt)(void); static int Last_Error; void (*SLang_User_Clear_Error)(void); void SLang_clear_error (void) { if (Last_Error <= 0) { Last_Error = 0; return; } Last_Error--; if (SLang_User_Clear_Error != NULL) (*SLang_User_Clear_Error)(); } static void do_binary (int op) { SLang_Object_Type obja, objb; SLang_Class_Type *cl; SL_OOBinary_Type *bt; unsigned char b_sub_type, a_sub_type; char *err = "Operation undefined for type."; if (SLang_pop (&objb)) return; b_sub_type = objb.sub_type; if (SLang_pop (&obja)) goto free_objb; a_sub_type = obja.sub_type; /* See if obja has a registered binary operation */ cl = SLang_Registered_Types [a_sub_type]; if ((cl == NULL) || (NULL == (bt = cl->binary_ops))) { SLang_doerror (err); goto free_obja; } /* The class is registered, now look for binary operation between the types. */ while (bt != NULL) { if (bt->sub_type == b_sub_type) { VOID *p1, *p2; if (a_sub_type < STRING_TYPE) p1 = (VOID *) &obja.v.s_val; else if (a_sub_type >= ARRAY_TYPE) p1 = (VOID *) obja.v.uobj->obj; else p1 = (VOID *) obja.v.s_val; if (b_sub_type < STRING_TYPE) p2 = (VOID *) &objb.v.s_val; else if (b_sub_type >= ARRAY_TYPE) p2 = (VOID *) objb.v.uobj->obj; else p2 = (VOID *) objb.v.s_val; if (0 == (*(bt->binary_function)) (op, a_sub_type, b_sub_type, p1, p2)) SLang_doerror (err); goto free_obja; } bt = bt->next; } SLang_Error = TYPE_MISMATCH; free_obja: if (obja.main_type == SLANG_DATA) { if (a_sub_type == STRING_TYPE) SLFREE(obja.v.s_val); else if (a_sub_type >= ARRAY_TYPE) SLang_free_user_object (obja.v.uobj); } free_objb: if (objb.main_type == SLANG_DATA) { if (b_sub_type == STRING_TYPE) SLFREE(objb.v.s_val); else if (b_sub_type >= ARRAY_TYPE) SLang_free_user_object (objb.v.uobj); } } static void do_unary (int op) { SLang_Object_Type obj; SLang_Class_Type *cl; int (*f)_PROTO((int, unsigned char, VOID *)); unsigned char sub_type; char *err = "Operation undefined for type."; if (SLang_pop (&obj)) return; sub_type = obj.sub_type; /* See if obj has a registered unary operation */ cl = SLang_Registered_Types [sub_type]; if ((cl != NULL) && (NULL != (f = cl->unary_function))) { VOID *p1; if (sub_type < STRING_TYPE) p1 = (VOID *) &obj.v.s_val; else if (sub_type >= ARRAY_TYPE) p1 = (VOID *) obj.v.uobj->obj; else p1 = (VOID *) obj.v.s_val; if (0 == (*f)(op, sub_type, p1)) SLang_doerror (err); } else SLang_Error = TYPE_MISMATCH; if (obj.main_type == SLANG_DATA) { if (sub_type == STRING_TYPE) SLFREE(obj.v.s_val); else if (sub_type >= ARRAY_TYPE) SLang_free_user_object (obj.v.uobj); } } /* inner interpreter */ static int inner_interp(SLBlock_Type *addr1) { register int bc = 0; register SLang_Object_Type *val; register SLBlock_Type *addr; SLang_Object_Type obj1, obj2, *objp; /* register unsigned short type; */ /* register unsigned char stype; */ int x, y, z; SLBlock_Type *block = NULL; SLBlock_Type *err_block = NULL; int save_err, slerr; /* for systems that have no real interrupt facility (e.g. go32 on dos) */ if (SLang_Interrupt != NULL) (*SLang_Interrupt)(); addr = addr1; if (addr == NULL) { SLang_Error = UNKNOWN_ERROR; } while (SLang_Error == 0) { if (bc) { if (SLang_Error) break; if (Lang_Return || Lang_Break) { Lang_Break = 1; return(1); } if (Lang_Continue) return(1); } #ifdef SLANG_STATS stat_counts[(unsigned char) (type & 0xFF)] += 1; #endif switch (addr->main_type) { case 0: goto end_of_switch; case SLANG_LVARIABLE: /* make val point to local stack */ val = (Local_Variable_Frame - addr->b.i_blk); SLang_push_variable (val); break; case SLANG_BINARY: do_binary (addr->sub_type); break; case SLANG_LOGICAL: if (SLang_pop_integer(&y)) return 0; if (SLang_pop_integer(&x)) return 0; z = 0; switch (addr->sub_type) { case SLANG_OR: if (x || y) z = 1; break; case SLANG_AND: if (x && y) z = 1; break; case SLANG_BAND: z = x & y; break; case SLANG_BXOR: z = x ^ y; break; case SLANG_MOD: z = x % y; break; case SLANG_BOR: z = x | y; break; case SLANG_SHL: z = x << y; break; case SLANG_SHR: z = x >> y; break; default: SLang_Error = INTERNAL_ERROR; return(0); } SLang_push_integer(z); break; case SLANG_INTRINSIC: lang_do_intrinsic(addr->b.n_blk); if (SLang_Error && SLang_Traceback) { do_traceback(addr->b.n_blk, 0); } break; case SLANG_FUNCTION: SLexecute_function(addr->b.n_blk); bc = Lang_Break_Condition; break; /* This next one is only possible when we have a string * on a block that is not in a function. Here just push a * copy of the string onto the stack and then later after * we have returned to top level the string will be freed. */ case SLANG_DATA: SLang_push_string (addr->b.s_blk); break; case SLANG_LITERAL: /* a constant */ obj1.main_type = addr->main_type; obj1.sub_type = addr->sub_type; #ifdef FLOAT_TYPE /* The value is a pointer to the float */ if (obj1.sub_type == FLOAT_TYPE) { obj1.v.f_val = *addr->b.f_blk; } else #endif obj1.v.l_val = addr->b.l_blk; SLang_push(&obj1); break; case SLANG_BLOCK: switch (addr->sub_type) { case ERROR_BLOCK: err_block = addr; break; case EXIT_BLOCK: Exit_Block_Ptr = addr->b.blk; break; case USER_BLOCK0: case USER_BLOCK1: case USER_BLOCK2: case USER_BLOCK3: case USER_BLOCK4: User_Block_Ptr[addr->sub_type - USER_BLOCK0] = addr->b.blk; break; case SLANG_LOOP: case SLANG_WHILE: case SLANG_FOR: case SLANG_FOREVER: case SLANG_CFOR: case SLANG_DOWHILE: if (block == NULL) block = addr; lang_do_loops(addr->sub_type, block); block = NULL; break; case SLANG_IFNOT: { int test; if (SLang_pop_integer(&test)) break; if (test) break; inner_interp(addr->b.blk); block = NULL; break; } case SLANG_IF: { int test; if (SLang_pop_integer(&test)) break; if (!test) break; inner_interp(addr->b.blk); block = NULL; break; } case SLANG_ELSE: { int test; if (block == NULL) { SLang_doerror("Block needed."); break; } if (SLang_pop_integer(&test)) break; if (!test) block = addr; inner_interp(block->b.blk); block = NULL; break; } case SLANG_ANDELSE: case SLANG_ORELSE: case SLANG_SWITCH: if (block == NULL) block = addr; lang_do_else (addr->sub_type, block, addr); block = NULL; break; default: if (block == NULL) block = addr; break; } bc = Lang_Break_Condition; break; case SLANG_DIRECTIVE: lang_do_eqs(addr); break; case SLANG_UNARY: do_unary (addr->sub_type); break; case SLANG_LUNARY: if (SLang_pop_integer (&x)) return 0; /* There are only to in this category */ if (addr->sub_type == SLANG_NOT) x = !x; else x = ~x; SLang_push_integer (x); break; case SLANG_GVARIABLE: SLang_push_variable((SLang_Object_Type *) addr->b.n_blk->addr); break; case SLANG_IVARIABLE: case SLANG_RVARIABLE: switch (addr->sub_type) { case STRING_TYPE: SLang_push_string((char *) addr->b.n_blk->addr); break; case INT_TYPE: SLang_push_integer(*(int *) addr->b.n_blk->addr); break; case INTP_TYPE: SLang_push_integer(**(int **) addr->b.n_blk->addr); break; #ifdef FLOAT_TYPE case FLOAT_TYPE: SLang_push_float(*(FLOAT *) addr->b.n_blk->addr); break; #endif default: if (addr->sub_type >= ARRAY_TYPE) { SLang_push_user_object ((SLuser_Object_Type *) addr->b.n_blk->addr); break; } else SLang_doerror("Unsupported Type!"); } break; case SLANG_RETURN: Lang_Break_Condition = Lang_Return = Lang_Break = 1; return(1); case SLANG_BREAK: Lang_Break_Condition = Lang_Break = 1; return(1); case SLANG_CONTINUE: Lang_Break_Condition = Lang_Continue = 1; return(1); case SLANG_EXCH: if (SLang_pop(&obj1) || SLang_pop(&obj2)) return(1); /* Memory leak here if one of the pops failed and one object was * a user object. */ SLang_push(&obj1); SLang_push(&obj2); break; case SLANG_LABEL: if (SLang_pop_integer(&z) || !z) return(0); break; case SLANG_LOBJPTR: objp = (Local_Variable_Frame - addr->b.i_blk); if (objp->main_type == 0) { SLang_doerror("Local variable pointer not initialized."); break; } obj1.v.n_val = objp->v.n_val; obj1.sub_type = SLANG_OBJ_TYPE; obj1.main_type = SLANG_DATA; SLang_push(&obj1); break; case SLANG_GOBJPTR: obj1.v.n_val = addr->b.n_blk; obj1.main_type = SLANG_DATA; obj1.sub_type = SLANG_OBJ_TYPE; SLang_push(&obj1); break; case SLANG_X_USER0: case SLANG_X_USER1: case SLANG_X_USER2: case SLANG_X_USER3: case SLANG_X_USER4: if (User_Block_Ptr[addr->main_type - SLANG_X_USER0] != NULL) { inner_interp(User_Block_Ptr[addr->main_type - SLANG_X_USER0]); } else SLang_doerror("No User Block"); bc = Lang_Break_Condition; break; case SLANG_X_ERROR: if (err_block != NULL) { inner_interp(err_block->b.blk); if (SLang_Error) err_block = NULL; } else SLang_doerror("No Error Block"); bc = Lang_Break_Condition; break; /* default : SLang_doerror("Run time error."); */ } addr++; } end_of_switch: if ((SLang_Error) && (err_block != NULL) && ((SLang_Error == USER_BREAK) || (SLang_Error == INTRINSIC_ERROR))) { save_err = Last_Error++; slerr = SLang_Error; SLang_Error = 0; inner_interp(err_block->b.blk); if (Last_Error <= save_err) { /* Caught error and cleared it */ Last_Error = save_err; if (Lang_Break_Condition == 0) inner_interp(addr); } else { Last_Error = save_err; SLang_Error = slerr; } } return(1); } /* Hash value of current item to search in table */ static unsigned char Hash; static unsigned char compute_hash(unsigned char *s) { register unsigned char *ss = s; register unsigned int h = 0; while (*ss) h += (unsigned int) *ss++ + (h << 2); if (0 == (Hash = (unsigned char) h)) { Hash = (unsigned char) (h >> 8); if (!Hash) Hash = *s; } return(Hash); } static SLang_Name_Type *SLang_locate_name_in_table(char *name, SLang_Name_Type *table, SLang_Name_Type *t0, int max) { register SLang_Name_Type *t = t0, *tmax = table + max; register char h = Hash, h1; /* while(t != tmax) && (nm = t->name, (h1 = *nm) != 0)) */ while(t != tmax) { h1 = *t->name; /* h is never 0 */ if ((h1 == h) && !strcmp(t->name + 1,name)) { #ifdef SLANG_STATS t->n++; #endif return(t); } else if (h1 == 0) break; t++; } if (t == tmax) return(NULL); return(t); } void SLang_trace_fun(char *f) { SLang_Trace = 1; compute_hash((unsigned char *) f); *SLang_Trace_Function = Hash; strcpy((char *) SLang_Trace_Function + 1, f); } #ifdef SLANG_STATS int SLang_dump_stats(char *file) { SLang_Name_Type *t = Lang_Intrinsic_Name_Table; int i; FILE *fp; if ((fp = fopen(file, "w")) == NULL) return(0); while (*t->name != 0) { fprintf(fp, "%3d\t%3d\t%s\n", t->n, (int) (unsigned char) *t->name, t->name + 1); t++; } for (i = 0; i < 256; i++) fprintf(fp, "Count %d: %lu\n", i, stat_counts[i]); fclose(fp); return(1); } #endif /* before calling this routine, make sure that Hash is up to date */ static SLang_Name_Type *SLang_locate_global_name(char *name) { SLName_Table *nt; SLang_Name_Type *t; int ofs; nt = SLName_Table_Root; while (nt != NULL) { t = nt->table; if ((ofs = nt->ofs[Hash]) != -1) { t = SLang_locate_name_in_table(name, t, t + ofs, nt->n); if ((t != NULL) && (*t->name != 0)) return(t); } nt = nt->next; } ofs = SLang_Name_Table_Ofs [Hash]; if (ofs == -1) ofs = SLang_Name_Table_Ofs [0]; return SLang_locate_name_in_table(name, SLang_Name_Table, SLang_Name_Table + ofs, SLANG_MAX_SYMBOLS); } SLang_Name_Type *SLang_locate_name(char *name) { SLang_Name_Type *t; (void) compute_hash((unsigned char *) name); t = Lang_Local_Variable_Table; if (t != NULL) { t = SLang_locate_name_in_table(name, t, t, Local_Variable_Number); /* MAX_LOCAL_VARIABLES */ } if ((t == NULL) || (*t->name == 0)) t = SLang_locate_global_name(name); return(t); } /* check syntax. Allowed chars are: $!_?AB..Zab..z0-9 */ static int lang_check_name(char *name) { register char *p, ch; char *err = "Name Syntax"; p = name; while ((ch = *p++) != 0) { if ((ch >= 'a') && (ch <= 'z')) continue; if ((ch >= 'A') && (ch <= 'Z')) continue; if ((ch >= '0') && (ch <= '9')) continue; if ((ch == '_') || (ch == '$') || (ch == '!') || (ch == '?')) continue; SLang_doerror(err); return(0); } p--; if ((int) (p - name) > SLANG_MAX_NAME_LEN) { SLang_doerror("Name too long."); return(0); } return (1); } void SLadd_name(char *name, long addr, unsigned char main_type, unsigned char sub_type) { SLang_Name_Type *entry; unsigned char mtype; int ofs, this_ofs; if (!lang_check_name(name)) return; if (NULL == (entry = SLang_locate_name(name))) { SLang_doerror("Table size exceeded!"); return; /* table full */ } mtype = entry->main_type; if ((mtype == SLANG_INTRINSIC) || (mtype == SLANG_IVARIABLE) || (mtype == SLANG_RVARIABLE)) { /* Allow application to change what the binding of a given object * is but do not allow a user function to have same name as something * intrinsic. It must be the same base type though. */ if (main_type != mtype) { SLang_Error = DUPLICATE_DEFINITION; SLang_doerror (name); return; } } if (*entry->name != 0) { /* 255 denotes that the function needs autoloaded. */ if (mtype == SLANG_FUNCTION) { if (entry->sub_type != 255) { if (lang_free_branch((SLBlock_Type *) entry->addr)) SLFREE(entry->addr); } else SLFREE(entry->addr); } } else { strcpy(entry->name + 1, name); *entry->name = (char) Hash; ofs = SLang_Name_Table_Ofs [Hash]; this_ofs = (int) (entry - SLang_Name_Table); if (ofs == -1) /* unused */ { SLang_Name_Table_Ofs [Hash] = this_ofs; SLang_Name_Table_Ofs [0] = this_ofs; } } entry->addr = (long) addr; entry->sub_type = sub_type; entry->main_type = main_type; } void SLang_autoload(char *name, char *file) { long f; f = (long) SLmake_string(file); SLadd_name (name, f, SLANG_FUNCTION, 255); } /* These are initialized in add_table below. I cannot init a Union!! */ static SLBlock_Type SLShort_Blocks[3]; static void lang_define_function(char *name) { long addr; /* terminate function */ Lang_Object_Ptr->main_type = 0; if (Lang_Function_Body + 1 == Lang_Object_Ptr) { if (Lang_Function_Body -> main_type == SLANG_RETURN) { SLFREE (Lang_Function_Body); Lang_Function_Body = SLShort_Blocks; } } addr = (long) Lang_Function_Body; if (name != NULL) { SLadd_name(name, addr, SLANG_FUNCTION, Local_Variable_Number); } if (SLang_Error) return; Lang_Defining_Function = 0; if (Lang_Local_Variable_Table != NULL) SLFREE(Lang_Local_Variable_Table); Lang_Local_Variable_Table = NULL; Local_Variable_Number = 0; Lang_Object_Ptr = Lang_Interp_Stack_Ptr; /* restore pointer */ } /* call inner interpreter or return for more */ static void lang_try_now(void) { SLBlock_Type *old_stack, *old_stack_ptr, *old_int_stack_ptr; SLBlock_Type new_stack[SLANG_MAX_TOP_STACK]; int i; if (Lang_Defining_Function || Lang_Defining_Block) { Lang_Object_Ptr++; return; } /* This is the entry point into the inner interpreter. As a result, it * is also the exit point of the inner interpreter. So it is necessary to * clean up if there was an error. */ (Lang_Object_Ptr + 1)->main_type = 0; /* so next command stops after this */ /* now before entering the inner interpreter, we make a new stack so that we are able to be reentrant */ for (i = 1; i < 4; i++) { new_stack[i].main_type = 0; new_stack[i].b.blk = NULL; } /* remember these values */ old_int_stack_ptr = Lang_Interp_Stack_Ptr; old_stack_ptr = Lang_Object_Ptr; old_stack = Lang_Interp_Stack; /* new values for reentrancy */ Lang_Interp_Stack_Ptr = Lang_Object_Ptr = Lang_Interp_Stack = new_stack; /* now do it */ inner_interp(old_stack); /* we are back so restore old pointers */ Lang_Interp_Stack_Ptr = old_int_stack_ptr; Lang_Object_Ptr = old_stack_ptr; Lang_Interp_Stack = old_stack; /* now free blocks from the current interp_stack. There can only be blocks since they are only objects not evaluated immediately */ while (Lang_Object_Ptr != Lang_Interp_Stack) { /* note that top object is not freed since it was not malloced */ Lang_Object_Ptr--; if (lang_free_branch(Lang_Object_Ptr->b.blk)) SLFREE (Lang_Object_Ptr->b.blk); } /* now free up the callocd stack. SLFREE(new_stack); */ } #define eqs(a,b) ((*(a) == *(b)) && !strcmp(a,b)) int SLang_execute_function(char *name) { unsigned char type; SLang_Name_Type *entry; if ((NULL == (entry = SLang_locate_name(name))) || (*entry->name == 0)) return(0); type = entry->main_type; if (type == SLANG_FUNCTION) SLexecute_function(entry); else if (type == SLANG_INTRINSIC) lang_do_intrinsic(entry); else return(0); if (SLang_Error) SLang_doerror(NULL); return(1); } /* return S-Lang function or NULL */ SLang_Name_Type *SLang_get_function (char *name) { SLang_Name_Type *entry; if ((NULL == (entry = SLang_locate_name(name))) || (*entry->name == 0)) return NULL; if (entry->main_type == SLANG_FUNCTION) { return entry; } return NULL; } /* Look for name ONLY in local or global slang tables */ static SLang_Name_Type *SLang_locate_slang_name (char *name) { SLang_Name_Type *entry; int ofs; compute_hash ((unsigned char *) name); /* try local table first */ entry = Lang_Local_Variable_Table; if (entry != NULL) { entry = SLang_locate_name_in_table(name, entry, entry, Local_Variable_Number); } if ((entry == NULL) || (*entry->name == 0)) { ofs = SLang_Name_Table_Ofs [Hash]; if (ofs == -1) ofs = SLang_Name_Table_Ofs [0]; entry = SLang_locate_name_in_table(name, SLang_Name_Table, SLang_Name_Table + ofs, SLANG_MAX_SYMBOLS); } return entry; } static int lang_exec(char *name, int all) { SLang_Name_Type *entry; unsigned char main_type; int ptr_type = 0; int i = 0; if (all && (eqs(name, "EXECUTE_ERROR_BLOCK") || ((*name == 'X') && !strncmp ("X_USER_BLOCK", name, 12) && ((i = name[12]) < '5') && (i >= '0') && (name[13] == 0)))) { if (*name == 'X') { Lang_Object_Ptr->main_type = SLANG_X_USER0 + (i - '0'); } else Lang_Object_Ptr->main_type = SLANG_X_ERROR; Lang_Object_Ptr->b.blk = NULL; lang_try_now (); return 1; } if (*name == '&') { name++; ptr_type = 1; } if (all) entry = SLang_locate_name(name); else entry = SLang_locate_slang_name (name); if ((entry == NULL) || (*entry->name == 0)) return(0); main_type = entry->main_type; if (ptr_type) { Lang_Object_Ptr->main_type = ((main_type == SLANG_LVARIABLE) ? SLANG_LOBJPTR : SLANG_GOBJPTR); } else { Lang_Object_Ptr->main_type = main_type; Lang_Object_Ptr->sub_type = entry->sub_type; } if (main_type == SLANG_LVARIABLE) { Lang_Object_Ptr->b.i_blk = (int) entry->addr; } else { Lang_Object_Ptr->b.n_blk = entry; } lang_try_now(); return(1); } static int lang_try_binary(char *t) { int ssub; unsigned char sub, mtype; ssub = 0; if (0 == (ssub = slang_eqs_name(t, SL_Binary_Ops))) return(0); if (ssub < 0) { ssub = -ssub; mtype = SLANG_BINARY; } else mtype = SLANG_LOGICAL; sub = (unsigned char) ssub; Lang_Object_Ptr->b.blk = NULL; /* not used */ Lang_Object_Ptr->sub_type = sub; Lang_Object_Ptr->main_type = mtype; lang_try_now(); return(1); } static int lang_try_unary(char *t) { unsigned char ssub; unsigned char mtype = SLANG_LUNARY; if (eqs(t, "not")) ssub = SLANG_NOT; else if (eqs(t, "~")) ssub = SLANG_BNOT; else { mtype = SLANG_UNARY; if (eqs(t, "chs")) ssub = SLANG_CHS; else if (eqs(t, "sign")) ssub = SLANG_SIGN; else if (eqs(t, "abs")) ssub = SLANG_ABS; else if (eqs(t, "sqr")) ssub = SLANG_SQR; else if (eqs(t, "mul2")) ssub = SLANG_MUL2; else return(0); } Lang_Object_Ptr->main_type = mtype; Lang_Object_Ptr->sub_type = ssub; Lang_Object_Ptr->b.blk = NULL; /* not used */ lang_try_now(); return(1); } static void lang_begin_function(void) { if (Lang_Defining_Function || Lang_Defining_Block) { SLang_doerror("Function nesting illegal."); return; } Lang_Defining_Function = 1; /* make initial size for 3 things */ Lang_FBody_Size = 3; if (NULL == (Lang_Function_Body = (SLBlock_Type *) SLCALLOC(Lang_FBody_Size, sizeof(SLBlock_Type)))) { SLang_doerror("Calloc error defining function."); return; } /* function definitions should be done only at top level so it should be safe to do this: */ Lang_Interp_Stack_Ptr = Lang_Object_Ptr; Lang_Object_Ptr = Lang_FBody_Ptr = Lang_Function_Body; return; } static void lang_end_block(void) { SLBlock_Type *node, *branch; unsigned char mtype; Lang_Block_Depth--; /* terminate the block */ Lang_Object_Ptr->main_type = 0; branch = Lang_Block_Body; if (Lang_Object_Ptr == Lang_Block_Body + 1) { mtype = (Lang_Object_Ptr - 1)->main_type; if ((mtype == SLANG_BREAK) || (mtype == SLANG_CONTINUE) || (mtype == SLANG_RETURN)) { SLFREE (branch); branch = SLShort_Blocks + (int) (mtype - SLANG_RETURN); } } if (Lang_Block_Depth == -1) /* done */ { if (Lang_Defining_Function) { node = Lang_FBody_Ptr++; } else node = Lang_Interp_Stack_Ptr; /* on small stack */ } else /* pop previous block */ { Lang_BBody_Size = Lang_Block_Stack[Lang_Block_Depth].size; Lang_Block_Body = Lang_Block_Stack[Lang_Block_Depth].body; node = Lang_Block_Stack[Lang_Block_Depth].ptr; } node->main_type = SLANG_BLOCK; node->sub_type = 0; node->b.blk = branch; Lang_Object_Ptr = node + 1; Lang_Defining_Block--; } static void lang_begin_block(void) { if (Lang_Block_Depth == SLANG_MAX_BLOCKS - 1) { SLang_doerror("Block Nesting too deep."); SLang_Error = UNKNOWN_ERROR; return; } /* push the current block onto the stack */ if (Lang_Block_Depth > -1) { Lang_Block_Stack[Lang_Block_Depth].size = Lang_BBody_Size; Lang_Block_Stack[Lang_Block_Depth].body = Lang_Block_Body; Lang_Block_Stack[Lang_Block_Depth].ptr = Lang_Object_Ptr; } /* otherwise this is first block so save function pointer */ else if (Lang_Defining_Function) Lang_FBody_Ptr = Lang_Object_Ptr; else Lang_Interp_Stack_Ptr = Lang_Object_Ptr; Lang_BBody_Size = 5; /* 40 bytes */ if (NULL == (Lang_Block_Body = (SLBlock_Type *) SLCALLOC(Lang_BBody_Size, sizeof(SLBlock_Type)))) { SLang_Error = SL_MALLOC_ERROR; /* SLang_doerror("Malloc error defining block."); */ return; } Lang_Block_Depth++; Lang_Defining_Block++; Lang_Object_Ptr = Lang_Block_Body; return; } /* see if token is a directive, and add it to current block/function */ static Lang_Name2_Type Lang_Directives[] = { {"!if", SLANG_IFNOT}, {"if", SLANG_IF}, {"else", SLANG_ELSE}, {"forever", SLANG_FOREVER}, {"while", SLANG_WHILE}, {"for", SLANG_CFOR}, {"_for", SLANG_FOR}, {"loop", SLANG_LOOP}, {"switch", SLANG_SWITCH}, {"do_while", SLANG_DOWHILE}, {"andelse", SLANG_ANDELSE}, {"orelse", SLANG_ORELSE}, {"ERROR_BLOCK", ERROR_BLOCK}, {"EXIT_BLOCK", EXIT_BLOCK}, {"USER_BLOCK0", USER_BLOCK0}, {"USER_BLOCK1", USER_BLOCK1}, {"USER_BLOCK2", USER_BLOCK2}, {"USER_BLOCK3", USER_BLOCK3}, {"USER_BLOCK4", USER_BLOCK4}, {(char *) NULL, (int) NULL} }; static int try_directive(char *t, int *flag) { unsigned char sub = 0; unsigned short mtype; SLBlock_Type *lop; int flag_save; Lang_Object_Ptr->b.blk = 0; /* not used */ if (((sub = (unsigned char) slang_eqs_name(t, Lang_Directives)) != 0) && *flag) { lop = Lang_Object_Ptr - 1; if (lop->main_type != SLANG_BLOCK) SLang_doerror("Internal Error with block!"); else { lop->sub_type = sub; Lang_Object_Ptr = lop; } } /* rest valid only if flag is zero */ else if (*flag) return(0); else { if (Lang_Defining_Block && eqs(t, "continue")) mtype = SLANG_CONTINUE; else if (Lang_Defining_Block && eqs(t, "break")) mtype = SLANG_BREAK; else if (Lang_Defining_Function && eqs(t, "return")) mtype = SLANG_RETURN; /* why is exch here? */ else if (eqs(t, "exch")) mtype = SLANG_EXCH; else return(0); *flag = 1; Lang_Object_Ptr->main_type = mtype; Lang_Object_Ptr->sub_type = 0; } flag_save = *flag; *flag = 0; lang_try_now(); *flag = flag_save; return(1); } static SLang_Object_Type *lang_make_object(void) { SLang_Object_Type *obj; obj = (SLang_Object_Type *) SLMALLOC(sizeof(SLang_Object_Type)); if (NULL == obj) { SLang_Error = SL_MALLOC_ERROR; /* SLang_doerror("Lang: malloc error."); */ return(0); } obj->main_type = 0; obj->v.l_val = 0; return obj; } static int interp_variable_eqs(char *name) { SLang_Name_Type *v; SLBlock_Type obj; unsigned char mtype; unsigned char stype; char ch; long value; int offset; int eq, pe, me, pp, mm; eq = SLANG_GEQS - SLANG_GEQS; pe = SLANG_GPEQS - SLANG_GEQS; me = SLANG_GMEQS - SLANG_GEQS; pp = SLANG_GPP - SLANG_GEQS; mm = SLANG_GMM - SLANG_GEQS; /* Name must be prefixed by one of: =, ++, --, +=, -= all of which have ascii codes less than or equal to 61 ('=') */ offset = -1; ch = *name++; switch (ch) { case '=': offset = eq; break; case '+': ch = *name++; if (ch == '+') offset = pp; else if (ch == '=') offset = pe; break; case '-': ch = *name++; if (ch == '-') offset = mm; else if (ch == '=') offset = me; break; } if (offset == -1) return 0; v = SLang_locate_name(name); if ((v == NULL) || *(v->name) == 0) { SLang_Error = UNDEFINED_NAME; SLang_doerror (name); return(1); } mtype = v->main_type; if (mtype == SLANG_RVARIABLE) { SLang_Error = READONLY_ERROR; return(1); } if ((mtype != SLANG_GVARIABLE) && (mtype != SLANG_LVARIABLE) && (mtype != SLANG_IVARIABLE)) { SLang_Error = DUPLICATE_DEFINITION; SLang_doerror (name); return(1); } /* its value is location of object in name table unless it is local */ value = (long) v; if (mtype == SLANG_IVARIABLE) { if (v->sub_type == STRING_TYPE) { SLang_Error = READONLY_ERROR; return(1); } stype = SLANG_IEQS; } else if (mtype == SLANG_GVARIABLE) stype = SLANG_GEQS; else { stype = SLANG_LEQS; value = (int) v->addr; } stype += offset; if (Lang_Defining_Function || Lang_Defining_Block) { Lang_Object_Ptr->main_type = SLANG_DIRECTIVE; Lang_Object_Ptr->sub_type = stype; Lang_Object_Ptr->b.l_blk = value; Lang_Object_Ptr++; return (1); } /* create an object with the required properties for next call */ obj.main_type = SLANG_DIRECTIVE; obj.sub_type = stype; obj.b.l_blk = value; lang_do_eqs(&obj); return(1); } #ifdef NO_STDLIB_H /* Oh dear. Where is the prototype for atof? If not in stdlib, then * I do not know where. */ extern double atof (); #endif /* a literal */ static int interp_push_number(char *t) { int i = 0; unsigned char stype; long value = 0; #ifdef FLOAT_TYPE FLOAT x = 0.0; #endif stype = SLang_guess_type(t); if (stype == STRING_TYPE) return(0); if (stype == INT_TYPE) { i = SLatoi((unsigned char *) t); value = (long) i; } #ifdef FLOAT_TYPE else if (stype == FLOAT_TYPE) { x = atof(t); } #endif if (!Lang_Defining_Block && !Lang_Defining_Function) { #ifdef FLOAT_TYPE if (stype == INT_TYPE) { #endif SLang_push_integer(i); #ifdef FLOAT_TYPE } else SLang_push_float(x); #endif return(1); } /* a literal */ #ifdef FLOAT_TYPE if (stype == FLOAT_TYPE) { if (NULL == (Lang_Object_Ptr->b.f_blk = (FLOAT *) SLMALLOC(sizeof(FLOAT)))) { SLang_Error = SL_MALLOC_ERROR; return 1; } *Lang_Object_Ptr->b.f_blk = x; } else #endif Lang_Object_Ptr->b.l_blk = value; Lang_Object_Ptr->main_type = SLANG_LITERAL; Lang_Object_Ptr->sub_type = stype; Lang_Object_Ptr++; return(1); } /* only supports non negative integers, use 'chs' to make negative number */ static void lang_check_space(void) { int n; SLBlock_Type *p; if (Lang_Interp_Stack_Ptr - Lang_Interp_Stack >= 9) { SLang_doerror("Interpret stack overflow."); return; } if (Lang_Defining_Block) { n = (int) (Lang_Object_Ptr - Lang_Block_Body); if (n + 1 < Lang_BBody_Size) return; /* extra for terminator */ p = Lang_Block_Body; } else if (Lang_Defining_Function) { n = (int) (Lang_Object_Ptr - Lang_Function_Body); if (n + 1 < Lang_FBody_Size) return; p = Lang_Function_Body; } else return; /* enlarge the space by 2 objects */ n += 2; if (NULL == (p = (SLBlock_Type *) SLREALLOC(p, n * sizeof(SLBlock_Type)))) { SLang_Error = SL_MALLOC_ERROR; return; } if (Lang_Defining_Block) { Lang_BBody_Size = n; n = (int) (Lang_Object_Ptr - Lang_Block_Body); Lang_Block_Body = p; Lang_Object_Ptr = p + n; } else { Lang_FBody_Size = n; n = (int) (Lang_Object_Ptr - Lang_Function_Body); Lang_Function_Body = p; Lang_Object_Ptr = p + n; } } int Lang_Defining_Variables = 0; /* returns positive number if name is a function or negative number if it is a variable. If it is intrinsic, it returns magnitude of 1, else 2 */ int SLang_is_defined(char *name) { SLang_Name_Type *t; (void) compute_hash((unsigned char *) name); t = SLang_locate_global_name(name); if ((t == NULL) || (*t->name == 0)) return 0; switch (t->main_type) { case SLANG_FUNCTION: return(2); case SLANG_INTRINSIC: return(1); case SLANG_GVARIABLE: return (-2); default: return(-1); } } char *SLang_find_name(char *name) { SLang_Name_Type *n; compute_hash((unsigned char *) name); n = SLang_locate_global_name(name); if ((n != NULL) && (*n->name != 0)) { return(n->name); } return(NULL); } int SLang_add_global_variable (char *name) { long value; /* Note the importance of checking if it is already defined or not. For example, * suppose X is defined as an intrinsic variable. Then S-Lang code like: * !if (is_defined("X")) { variable X; } * will not result in a global variable X. On the other hand, this would * not be an issue if 'variable' statements always were not processed * immediately. That is, as it is now, 'if (0) {variable ZZZZ;}' will result * in the variable ZZZZ being defined because of the immediate processing. * The current solution is to do: if (0) { eval("variable ZZZZ;"); } */ if (!SLang_is_defined(name)) { if (0 == (value = (long) lang_make_object())) return 0; SLadd_name(name, value, SLANG_GVARIABLE, 0); } return 1; } void SLadd_variable(char *name) { SLang_Name_Type *table; if (!lang_check_name(name)) return; if (Lang_Defining_Function) /* local variable */ { compute_hash((unsigned char *) name); table = Lang_Local_Variable_Table; if (!Local_Variable_Number) { table = (SLang_Name_Type *) SLCALLOC(MAX_LOCAL_VARIABLES, sizeof(SLang_Name_Type)); if (NULL == table) { SLang_doerror("Lang: calloc error."); return; } Lang_Local_Variable_Table = table; } strcpy(table[Local_Variable_Number].name + 1, name); *table[Local_Variable_Number].name = (char) Hash; table[Local_Variable_Number].main_type = SLANG_LVARIABLE; table[Local_Variable_Number].addr = (long) Local_Variable_Number; Local_Variable_Number++; } else SLang_add_global_variable (name); } static void interp_push_string(char *t) { int len; /* strings come in with the quotes attached-- knock em off */ if (*t == '"') { len = strlen(t) - 1; if (*(t + len) == '"') *(t + len) = 0; t++; } if (!Lang_Defining_Block && !Lang_Defining_Function) { SLang_push_string(t); return; } if (NULL == (Lang_Object_Ptr->b.s_blk = SLmake_string(t))) return; /* a literal --- not to be freed if it is defined in a function. */ if (Lang_Defining_Function) Lang_Object_Ptr->main_type = SLANG_LITERAL; else Lang_Object_Ptr->main_type = SLANG_DATA; Lang_Object_Ptr->sub_type = STRING_TYPE; Lang_Object_Ptr++; } /* if an error occurs, discard current object, block, function, etc... */ void SLang_restart(int localv) { int save = SLang_Error; SLang_Error = UNKNOWN_ERROR; SLcompile_ptr = SLcompile; Lang_Break = Lang_Continue = Lang_Return = 0; while(Lang_Defining_Block) { lang_end_block(); } /* I need to free blocks on the interp stack even when not defining a * function. This is not done here--- future work. */ if (Lang_Defining_Function) { if (Lang_Function_Body != NULL) { lang_define_function(NULL); if (lang_free_branch(Lang_Function_Body)) SLFREE(Lang_Function_Body); } if (Local_Variable_Number) { SLFREE(Lang_Local_Variable_Table); Local_Variable_Number = 0; Lang_Local_Variable_Table = NULL; } Lang_Defining_Function = 0; } SLang_Error = save; if (SLang_Error == STACK_OVERFLOW) { /* This loop guarantees that the stack is properly cleaned. */ while (SLStack_Pointer != SLRun_Stack) { SLdo_pop (); } } Lang_Interp_Stack = Lang_Object_Ptr = Lang_Interp_Stack_Ptr = Lang_Interp_Stack_Static; /* This should be handled automatically */ if (localv) Local_Variable_Frame = Local_Variable_Stack; Lang_Defining_Variables = 0; } #ifdef SL_BYTE_COMPILING static int try_byte_compiled(register unsigned char *s) { SLName_Table *nt; SLang_Name_Type *entry; register ofs; int n; if ((*s++ != '#') || ((n = (int) (*s++ - '0')) < 0)) { SLang_doerror("Illegal name."); return 1; } if (n == 0) { try_directive ((char *) s, &n); /* note that n is a dummy now */ return 1; } if (n == 1) { lang_try_binary((char *) s); return 1; } if (n == 2) { /* global or local, try it. */ if (Lang_Defining_Function == -1) return 0; return lang_exec ((char *) s, 0); } n -= 3; /* 3 digit base 26 number */ ofs = (*s++ - 'A'); ofs = 26 * ofs + (*s++ - 'A'); ofs = 26 * ofs + (*s++ - 'A'); nt = SLName_Table_Root; while (n--) { nt = nt->next; /* find the correct table */ if (nt == NULL) { SLang_doerror("Illegal name."); return 1; } } entry = &(nt->table[ofs]); /* table = Lang_Local_Variable_Table; */ Lang_Object_Ptr->main_type = entry->main_type; Lang_Object_Ptr->sub_type = entry->sub_type; Lang_Object_Ptr->b.n_blk = entry; lang_try_now(); return 1; } #endif int SLPreprocess_Only = 0; char *SLbyte_compile_name(char *name) { static char code[36]; SLang_Name_Type *t; SLName_Table *nt; int ofs, n; if (SLPreprocess_Only || (*name == 0)) return name; if (slang_eqs_name(name, Lang_Directives)) { *code = '@'; code[1] = '#'; code[2] = '0'; strcpy (code + 3, name); return code; } if (slang_eqs_name(name, SL_Binary_Ops)) { *code = '@'; code[1] = '#'; code[2] = '1'; strcpy (code + 3, name); return code; } (void) compute_hash((unsigned char *) name); /* see if it is in local table */ t = Lang_Local_Variable_Table; if (t != NULL) { t = SLang_locate_name_in_table(name, t, t, Local_Variable_Number); } if ((t == NULL) || (t->name == 0)) { /* It must be global. Check intrinsics first */ nt = SLName_Table_Root; n = 3; while (nt != NULL) { t = nt->table; if ((ofs = nt->ofs[Hash]) != -1) { t = SLang_locate_name_in_table(name, t, t + ofs, nt->n); if ((t != NULL) && (*t->name != 0)) { ofs = (int) (t - nt->table); *code = '@'; *(code + 1) = '#'; *(code + 2) = n + '0'; *(code + 5) = (ofs % 26) + 'A'; ofs = ofs / 26; *(code + 4) = (ofs % 26) + 'A'; ofs = ofs / 26; *(code + 3) = (ofs % 26) + 'A'; *(code + 6) = 0; return code; } } nt = nt->next; n++; } /* Now try global */ t = SLang_locate_slang_name (name); if ((t == NULL) || (*t->name == 0)) return name; } *code = '@'; code [1] = '#'; code [2] = '2'; strcpy (code + 3, name); return code; } void SLcompile(char *t) { static int flag = 0; int d = 0; char ch = *t; if (ch == 0) return; lang_check_space(); /* make sure there is space for this */ if (!SLang_Error #ifdef SL_BYTE_COMPILING && (ch != '@') #endif && (ch != '"')) { if (ch == '{') { lang_begin_block(); d = 1; } else { /* The purpose of this convoluted mess is to flag errors * such as '{block} statement' where 'statement' is not * somthing like 'if', '!if', 'while', ... That is, something which is not supposed to follow a block. */ d = try_directive(t, &flag); if ((!flag && d) || (flag && !d)) SLang_Error = SYNTAX_ERROR; } flag = 0; } #ifdef SL_BYTE_COMPILING if (ch == '@') { flag = 0; d = 0; if (0 == try_byte_compiled((unsigned char *) (t + 1))) { /* failure ONLY for slang functions/variables. */ t += 3; ch = *t; } } #endif if ((ch == '@') || SLang_Error || d); /* null... */ else if (Lang_Defining_Variables) { if (ch == ']') Lang_Defining_Variables = 0; else SLadd_variable(t); } else if (Lang_Defining_Function == -1) lang_define_function(t); else if (ch == '"') interp_push_string(t); else if ((ch == ':') && (Lang_Defining_Block)) { Lang_Object_Ptr->main_type = SLANG_LABEL; Lang_Object_Ptr->b.blk = NULL; Lang_Object_Ptr++; } else if ((ch == ')') && (Lang_Defining_Function == 1)) { if (Lang_Defining_Block) SLang_doerror("Function nesting illegal."); else Lang_Defining_Function = -1; } else if (ch == '{') { lang_begin_block(); flag = 0; } else if ((ch == '}') && Lang_Defining_Block) { lang_end_block(); flag = 1; } else if (ch == '(') lang_begin_function(); else if (ch == '[') Lang_Defining_Variables = 1; else if (lang_try_binary(t)); else if (lang_try_unary(t)); /* note that order here is important */ else if ((ch <= '9') && interp_push_number(t)); else if ((ch <= '=') && interp_variable_eqs(t)); else if (lang_exec(t, 1)); else { SLang_Error = UNDEFINED_NAME; SLang_doerror (t); } if (SLang_Error) { SLang_restart(0); flag = 0; } } int SLstack_depth() { return (int) (SLStack_Pointer - SLRun_Stack); } /* #define STRCHR(x, y) ((y >= 'a') && (y <= 'z') ? NULL : ((y) == 32) || strchr(x, y)) */ /* The minus sign ones can be overloaded. */ Lang_Name2_Type SL_Binary_Ops[] = { {"+", -SLANG_PLUS}, {"-", -SLANG_MINUS}, {"*", -SLANG_TIMES}, {"/", -SLANG_DIVIDE}, {"<", -SLANG_LT}, {"<=", -SLANG_LE}, {"==", -SLANG_EQ}, {">", -SLANG_GT}, {">=", -SLANG_GE}, {"!=", -SLANG_NE}, {"and", SLANG_AND}, {"or", SLANG_OR}, {"mod", SLANG_MOD}, {"&", SLANG_BAND}, {"shl", SLANG_SHL}, {"shr", SLANG_SHR}, {"xor", SLANG_BXOR}, {"|", SLANG_BOR}, {(char *) NULL, (int) NULL} }; static char Really_Stupid_Hash[256]; void SLstupid_hash() { register unsigned char *p; register Lang_Name2_Type *d; d = SL_Binary_Ops; while ((p = (unsigned char *) (d->name)) != NULL) { Really_Stupid_Hash[*(p + 1)] = 1; d++; } d = Lang_Directives; while ((p = (unsigned char *) (d->name)) != NULL) { Really_Stupid_Hash[*(p + 1)] = 1; d++; } } int slang_eqs_name(char *t, Lang_Name2_Type *d_parm) { register char *p; register char ch; register Lang_Name2_Type *d; ch = *t++; if (Really_Stupid_Hash[(unsigned char) *t] == 0) return(0); d = d_parm; while ((p = d->name) != NULL) { if ((ch == *p) && !strcmp(t, p + 1)) return(d->type); d++; } return(0); } void (*SLcompile_ptr)(char *) = SLcompile; int SLang_add_table(SLang_Name_Type *table, char *table_name) { register int i; SLang_Name_Type *t; SLName_Table *nt; int *ofs; unsigned char h; char *name; static init = 0; if (init == 0) { #ifdef MSWINDOWS SLRun_Stack = (SLang_Object_Type *) SLCALLOC (SLANG_MAX_STACK_LEN, sizeof (SLang_Object_Type)); if (SLRun_Stack == NULL) { return 0; } SLStack_Pointer = SLRun_Stack; SLStack_Pointer_Max = SLRun_Stack + SLANG_MAX_STACK_LEN; #endif init = 1; for (i = 1; i < 256; i++) SLang_Name_Table_Ofs[i] = -1; SLang_Name_Table_Ofs[0] = 0; SLShort_Blocks[0].main_type = SLANG_RETURN; SLShort_Blocks[1].main_type = SLANG_BREAK; SLShort_Blocks[2].main_type = SLANG_CONTINUE; } if ((nt = (SLName_Table *) SLMALLOC(sizeof(SLName_Table))) == NULL) return(0); nt->table = table; nt->next = SLName_Table_Root; strcpy(nt->name, table_name); SLName_Table_Root = nt; ofs = nt->ofs; for (i = 0; i < 256; i++) ofs[i] = -1; /* compute hash for table */ t = table; while (((name = t->name) != NULL) && (*name != 0)) { h = compute_hash((unsigned char *) (name + 1)); *name = (char) h; if (ofs[h] == -1) { ofs[h] = (int) (t - table); } t++; } nt->n = (int) (t - table); return(1); } extern char *SLang_extract_list_element(char *, int *, int *); t = SLName_Table_Root; strcpy(nt->name, table_name); SLName_Table_Root = nt; ofs = nt->ofs; for (i = 0; i < 256; i++) ofs[i] = -1; /* compute hash for table */ t = table; while (((name = t->name) != NULL) && (*name != 0)) { h = compute_hash((unsigned char *) (name + 1)); *name = (char) h; if (ofs[h] == -1) { ofs[h] = (int) (t - table); } t++; } nt->n = (int) (t - table); return(1); } extern char *SLang_extract_list_element(char *, int *, islang-0.99.12/src/slang.h000064400000000000003000001014740603742322100147060ustar00rootsys00000000000000#ifndef DAVIS_SLANG_H_ #define DAVIS_SLANG_H_ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #define SLANG_VERSION 9921 #if defined(__WATCOMC__) && !defined(__QNX__) #include #endif #ifdef FLOAT_TYPE #ifndef USE_DOUBLE #define USE_DOUBLE #endif #endif #ifdef __cplusplus extern "C" { #endif /* ---------------------------- Generic Macros ----------------------------- */ /* __SC__ is defined for Symantec C++ DOS386 is defined for -mx memory model, 32 bit DOS extender. */ #ifdef VOID #undef VOID #endif #if defined(msdos) && !defined(DOS386) & !defined(__WIN32__) # ifdef __SC__ # include # endif # define VOID void # include #else # ifndef NO_STDLIB_H # include # endif # ifdef __cplusplus # define VOID void # else # define VOID unsigned char # endif #endif #ifndef MALLOC_DEBUG #if defined(msdos) && !defined(DOS386) # define SLFREE(buf) farfree((void far *)(buf)) # define SLMALLOC(x) farmalloc((unsigned long) (x)) # define SLREALLOC(buf, n) farrealloc((void far *) (buf), (unsigned long) (n)) # define SLCALLOC(n, m) farcalloc((unsigned long) (n), (unsigned long) (m)) #else # if defined(VMS) && !defined(__DECC) # define SLFREE VAXC$FREE_OPT # define SLMALLOC VAXC$MALLOC_OPT # define SLREALLOC VAXC$REALLOC_OPT # define SLCALLOC VAXC$CALLOC_OPT # else # define SLFREE(x) free((char *)(x)) # define SLMALLOC malloc #ifdef __cplusplus # define SLREALLOC(p,n) realloc((malloc_t) (p), n) #else # define SLREALLOC realloc #endif # define SLCALLOC calloc # endif #endif #else /* MALLOC_DEBUG */ # define SLMALLOC(x) SLdebug_malloc((unsigned long) (x)) # define SLFREE(x) SLdebug_free((unsigned char *)(x)) # define SLCALLOC(n, m) SLdebug_calloc((unsigned long) (n), (unsigned long)(m)) # define SLREALLOC(p, x) SLdebug_realloc((unsigned char *)(p), (unsigned long)(x)) extern unsigned char *SLdebug_malloc (unsigned long); extern unsigned char *SLdebug_calloc (unsigned long, unsigned long); extern unsigned char *SLdebug_realloc (unsigned char *, unsigned long); extern void SLdebug_free (unsigned char *); extern void SLmalloc_dump_statistics (void); #endif /* MALLOC_DEBUG */ /* If your compiler does not have memory.h, ignore this line */ #if !defined(VMS) && !defined(__WATCOMC__) #include #endif #ifdef HAS_MEMSET #define MEMSET memset #else #define MEMSET jed_memset extern void jed_memset(char *, char, int); #endif #ifdef HAS_MEMCHR #define MEMCHR memchr #else #define MEMCHR jed_memchr extern char *jed_memchr(register char *, register char, register int); #endif #ifdef HAS_MEMCPY #define MEMCPY memcpy #else #define MEMCPY jed_memcpy extern char *jed_memcpy(char *, char *, int); #endif #ifdef HAS_MEMCMP #define MEMCMP memcmp #else #define MEMCMP jed_memcmp extern int jed_memcmp(char *, char *, int); #endif /* ------------------- S-Lang Stuff -------------------------------*/ #define FLOAT double #define SLANG_MAX_NAME_LEN 30 /* maximum length of an identifier */ /* first char in identifiers is the hash */ typedef struct SLang_Name_Type { #ifdef SLANG_STATS int n; /* number of times referenced */ #endif char name[SLANG_MAX_NAME_LEN + 2]; /* [0] is hash */ unsigned char sub_type; unsigned char main_type; long addr; } SLang_Name_Type; typedef struct SLang_Load_Type { long name; /* file name, string address, ... */ long handle; /* FILE *, string address, etc... */ char *ptr; /* input pointer to next line in object * to be read. */ /* Things below here are used by S-Lang. */ int type; /* 'F' = file, 'S' = String, etc.. */ char *buf; /* buffer for file, etc... */ char *(*read)(struct SLang_Load_Type *); /* function to call to read obj */ int n; /* line number, etc... */ char token[256]; /* token to be parsed */ int ofs; /* offset from buf where last read * took place */ int top_level; /* 1 if at top level of parsing */ } SLang_Load_Type; #ifndef NO_PROTOTYPES # define _PROTO(x) x #else # define _PROTO(x) () #endif typedef struct SL_OOBinary_Type { unsigned char sub_type; /* partner type for binary op */ /* The function take the binary op as first argument, the operand types * form the second and third parameters and the last two parameters are * pointers to the objects themselves. It is up to the function to push * the result on the stack. It must return 1 if it handled the operation * return zero if the operation is not defined. */ int (*binary_function)_PROTO((int, unsigned char, unsigned char, VOID *, VOID *)); struct SL_OOBinary_Type *next; } SL_OOBinary_Type; typedef struct { /* Methods */ void (*destroy)_PROTO((VOID *)); /* called to delete/free the object */ char *(*string)_PROTO((VOID *)); /* returns a string representation of the object */ int (*unary_function)_PROTO((int, unsigned char, VOID *)); /* unary operation function */ SL_OOBinary_Type *binary_ops; int (*copy_function)_PROTO((unsigned char, VOID *)); /* This function is called do make a copy of the object */ } SLang_Class_Type; extern SLang_Class_Type *SLang_Registered_Types[256]; typedef struct { unsigned char main_type; /* SLANG_RVARIABLE, etc.. */ unsigned char sub_type; /* int, string, etc... */ long *obj; /* address of user structure */ /* Everything below is considered private */ unsigned int count; /* number of references */ } SLuser_Object_Type; extern volatile int SLang_Error; /* Non zero if error occurs. Must be reset to zero to continue. */ extern int SLang_Traceback; /* If non-zero, dump an S-Lang traceback upon error. Available as _traceback in S-Lang. */ extern char *SLang_User_Prompt; /* Prompt to use when reading from stdin */ extern int SLang_Version; extern void (*SLang_Error_Routine)(char *); /* Pointer to application dependent error messaging routine. By default, messages are displayed on stderr. */ extern void (*SLang_Exit_Error_Hook)(char *); extern void SLang_exit_error (char *); extern void (*SLang_Dump_Routine)(char *); /* Called if S-Lang traceback is enabled as well as other debugging routines (e.g., trace). By default, these messages go to stderr. */ extern void (*SLang_Interrupt)(void); /* function to call whenever inner interpreter is entered. This is a good place to set SLang_Error to USER_BREAK. */ extern void (*SLang_User_Clear_Error)(void); /* function that gets called when '_clear_error' is called. */ extern int (*SLang_User_Open_Slang_Object)(SLang_Load_Type *); extern int (*SLang_User_Close_Slang_Object)(SLang_Load_Type *); /* user defined loading routines. */ /* If non null, these call C functions before and after a slang function. */ extern void (*SLang_Enter_Function)(char *); extern void (*SLang_Exit_Function)(char *); /* Functions: */ extern int init_SLang(void); /* This function is mandatory and must be called by all applications */ extern int init_SLfiles(void); /* called if fputs, fgets, etc are need in S-Lang */ extern int init_SLmath(void); /* called if math functions sin, cos, etc... are needed. */ extern int init_SLunix(void); /* unix system functions chmod, stat, etc... */ extern int init_SLmatrix(void); extern int SLang_add_table(SLang_Name_Type *, char *); /* add application dependent function table p1 to S-Lang. A name p2 less * than 32 characters must also be supplied. * Returns 0 upon failure or 1 upon success. */ extern int SLang_add_global_variable (char *); extern int SLang_load_object(SLang_Load_Type *); extern int SLang_load_file(char *); /* Load a file of S-Lang code for interpreting. If the parameter is NULL, input comes from stdin. */ extern void SLang_restart(int); /* should be called if an error occurs. If the passed integer is * non-zero, items are popped off the stack; otherwise, the stack is * left intact. Any time the stack is believed to be trashed, this routine * should be called with a non-zero argument (e.g., if setjmp/longjmp is * called). */ extern void SLang_byte_compile_file(char *, int *); /* takes a file of S-Lang code and ``byte-compiles'' it for faster * loading. The new filename is equivalent to the old except that a `c' is * appended to the name. (e.g., init.sl --> init.slc). If the second * parameter is non-zero, preprocess the file only. */ extern void SLang_autoload(char *, char *); /* Automatically load S-Lang function p1 from file p2. This function is also available via S-Lang */ extern char *SLang_load_string(char *); /* Like SLang_load_file except input is from a null terminated string. */ extern void SLang_do_pop(void); /* pops item off stack and frees any memory associated with it */ extern int SLang_pop_integer(int *); /* pops integer *p0 from the stack. Returns 0 upon success and non-zero * if the stack is empty or a type mismatch occurs, setting SLang_Error. */ extern int SLang_pop_string(char **, int *); /* pops string *p0 from stack. If *p1 is non-zero, the string must be * freed after its use. DO NOT FREE p0 if *p1 IS ZERO! Returns 0 upon * success */ extern int SLang_pop_float(FLOAT *, int *, int *); /* Pops float *p1 from stack. If *p3 is non-zero, *p1 was derived from the integer *p2. Returns zero upon success. */ extern SLuser_Object_Type *SLang_pop_user_object (unsigned char); extern void SLang_free_user_object (SLuser_Object_Type *); extern void SLang_push_user_object (SLuser_Object_Type *); extern SLuser_Object_Type *SLang_create_user_object (unsigned char); extern int SLang_add_unary_op (unsigned char, VOID *); extern int SLang_add_binary_op (unsigned char, unsigned char, VOID *); extern int SLang_register_class (unsigned char, VOID *, VOID *); extern int SLang_add_copy_operation (unsigned char, VOID *); extern long *SLang_pop_pointer(unsigned char *, unsigned char *, int *); /* Returns a pointer to object of type *p1,*p2 on top of stack. If *p3 is non-zero, the Object must be freed after use. */ extern void SLang_push_float(FLOAT); /* Push Float onto stack */ extern void SLang_push_string(char *); /* Push string p1 onto stack */ extern void SLang_push_integer(int); /* push integer p1 on stack */ extern void SLang_push_malloced_string(char *); /* The normal SLang_push_string mallocs space for the string. This one does not. DO NOT FREE IT IF YOU USE THIS ROUTINE */ extern int SLang_is_defined(char *); /* Return non-zero is p1 is defined otherwise returns 0. */ extern int SLang_run_hooks(char *, char *, char *); /* calls S-Lang function p1 pushing strings p2 and p3 onto the stack * first. If either string is NULL, it is not pushed. If p1 is not * defined, 0 is returned. */ extern int SLang_execute_function(char *); /* Call S-Lang function p1. Returns 0 if the function is not defined * and 1 if it is. */ extern char *SLang_find_name(char *); /* Return a pointer to p1 in table if it is defined. Returns NULL * otherwise. This is useful when one wants to avoid redundant strings. */ extern char *SLang_rpn_interpret(char *); /* Interpret string as reverse polish notation */ extern void SLang_doerror(char *); /* set SLang_Error and display p1 as error message */ extern SLuser_Object_Type *SLang_add_array(char *, long *, int, int, int, int, unsigned char, unsigned char); /* This function has not been tested thoroughly yet. Its purpose is to * allow a S-Lang procedure to access a C array. For example, suppose that * you have an array of 100 ints defined as: * * int c_array[100]; * * By calling something like: * * SLang_add_array ("array_name", (long *) c_array, 1, 100, 0, 0, * 'i', SLANG_IVARIABLE); * * the array can be accessed by the name 'array_name'. This function * returns -1 upon failure. The 3rd argument specifies the dimension * of the array, the 4th, and 5th arguments specify how many elements * there are in the x,y, and z directions. The last argument must * be one of: * * SLANG_IVARIABLE: indicates array is writable * SLANG_RVARIABLE: indicates array is read only * * Returns NULL upon failure. */ extern int SLang_free_array_handle (int); /* This routine may be called by application to free array handle created by * the application. Returns 0 upon success, -1 if the handle is invalid and * -2 if the handle is not associated with a C array. */ extern char *SLang_extract_list_element(char *, int *, int*); extern void SLexpand_escaped_string (register char *, register char *, register char *); extern SLang_Name_Type *SLang_get_function (char *); /* The parameter is the name of a user defined S-Lang function. This * routine returns NULL if the function does not exist or it returns the * a pointer to it in an internal S-Lang table. This pointer can be used * by 'SLexecute_function' to call the function directly from C. */ extern void SLexecute_function(SLang_Name_Type *); /* This function allows an application to call a S-Lang function from within * the C program. The parameter must be non-NULL and must have been * previously obtained by a call to 'SLang_get_function'. */ extern char *SLmake_string (char *); extern char *SLmake_nstring (char *, int); /* Returns a null terminated string made from the first n characters of the * string. */ extern int SLang_guess_type (char *); /* SLang tty interface */ extern int SLtt_Baud_Rate; extern unsigned long SLtt_Num_Chars_Output; #ifdef unix extern int SLang_TT_Baud_Rate; extern int SLang_TT_Read_FD; #endif extern int SLang_init_tty (int, int, int); /* Initializes the tty for single character input. The first parameter *p1 * is the value 0-255 to be used for the abort character. If the second * parameter p2 is non-zero, flow control is enabled. If the last * parmeter p3 is zero, output processing is NOT turned on. A value of * zero is required for the screen management routines. * Returns 0 upon success. * In addition, if SLang_TT_Baud_Rate == 0 when this function is called, * SLang will attempt to determine the terminals baud rate. As far as * the SLang library is concerned, if SLang_TT_Baud_Rate is less than or * equal to zero, the baud rate is effectively infinite. */ extern void SLang_reset_tty (void); /* Resets tty to what it was prior to a call to SLang_init_tty */ #ifdef unix extern void SLtty_set_suspend_state (int); /* If non-zero argument, terminal driver will be told to react to the * suspend character. If 0, it will not. */ #endif extern unsigned int SLang_getkey (void); /* reads a single key from the tty. If the read fails, 0xFFFF is returned. */ extern void SLang_ungetkey_string (unsigned char *, int); extern void SLang_buffer_keystring (unsigned char *, int); extern void SLang_ungetkey (unsigned char); extern void SLang_flush_input (void); extern int SLang_input_pending (int); extern int SLang_Abort_Char; /* The value of the character (0-255) used to trigger SIGINT */ extern int SLang_Ignore_User_Abort; /* If non-zero, pressing the abort character will not result in USER_BREAK * SLang_Error. */ extern void SLang_set_abort_signal (void (*)(int)); /* If SIGINT is generated, the function p1 will be called. If p1 is NULL * the SLang_default signal handler is called. This sets SLang_Error to * USER_BREAK. I suspect most users will simply want to pass NULL. */ extern volatile int SLKeyBoard_Quit; /* --------------- SLang_keymap interface ----------------------- */ typedef struct SLKeymap_Function_Type { char *name; int (*f)(void); } SLKeymap_Function_Type; typedef struct SLang_Key_Type { unsigned char str[13]; /* key sequence */ VOID *f; /* function to invoke */ unsigned char type; /* type of function */ struct SLang_Key_Type *next; /* */ } SLang_Key_Type; #define MAX_KEYMAP_NAME_LEN 8 typedef struct SLKeyMap_List_Type { char name[MAX_KEYMAP_NAME_LEN + 1]; SLang_Key_Type *keymap; SLKeymap_Function_Type *functions; /* intrinsic functions */ } SLKeyMap_List_Type; /* This is arbitrary but I have got to start somewhere */ #ifdef msdos #define SLANG_MAX_KEYMAPS 10 #else #define SLANG_MAX_KEYMAPS 30 #endif extern SLKeyMap_List_Type SLKeyMap_List[SLANG_MAX_KEYMAPS]; /* these better be inited to 0! */ #define SLKEY_F_INTERPRET 0x01 #define SLKEY_F_INTRINSIC 0x02 extern char *SLang_process_keystring(char *); extern int SLang_define_key1(char *, VOID *, unsigned char, SLKeyMap_List_Type *); /* define key p1 in keymap p4 to invoke function p2. If type p3 is given by * SLKEY_F_INTRINSIC, p2 is an intrinsic function, else it is a string to be * passed to the interpreter for evaluation. The return value is important. * It returns 0 upon success, -1 upon malloc error, and -2 if the key is * inconsistent. SLang_Error is set upon error. */ extern int SLang_define_key(char *, char *, SLKeyMap_List_Type *); /* Like define_key1 except that p2 is a string that is to be associated with * a function in the functions field of p3. This routine calls define_key1. */ extern void SLang_undefine_key(char *, SLKeyMap_List_Type *); extern SLKeyMap_List_Type *SLang_create_keymap(char *, SLKeyMap_List_Type *); /* create and returns a pointer to a new keymap named p1 created by copying * keymap p2. If p2 is NULL, it is up to the calling routine to initialize * the keymap. */ extern char *SLang_make_keystring(unsigned char *); extern SLang_Key_Type *SLang_do_key(SLKeyMap_List_Type *, int (*)(void)); /* read a key using keymap p1 with getkey function p2 */ extern VOID *SLang_find_key_function(char *, SLKeyMap_List_Type *); extern SLKeyMap_List_Type *SLang_find_keymap(char *); extern int SLang_Last_Key_Char; extern int SLang_Key_TimeOut_Flag; /* --------------- SLang_read_line interface ----------------------- */ typedef struct SLang_Read_Line_Type { struct SLang_Read_Line_Type *prev, *next; unsigned char *buf; int buf_len; /* number of chars in the buffer */ int num; /* num and misc are application specific*/ int misc; } SLang_Read_Line_Type; /* Maximum size of display */ #define SLRL_DISPLAY_BUFFER_SIZE 256 typedef struct { SLang_Read_Line_Type *root, *tail, *last; unsigned char *buf; /* edit buffer */ int buf_len; /* sizeof buffer */ int point; /* current editing point */ int tab; /* tab width */ int len; /* current line size */ /* display variables */ int edit_width; /* length of display field */ int curs_pos; /* current column */ int start_column; /* column offset of display */ int dhscroll; /* amount to use for horiz scroll */ char *prompt; VOID *last_fun; /* last function executed by rl */ /* These two contain an image of what is on the display */ unsigned char upd_buf1[SLRL_DISPLAY_BUFFER_SIZE]; unsigned char upd_buf2[SLRL_DISPLAY_BUFFER_SIZE]; unsigned char *old_upd, *new_upd; /* pointers to previous two buffers */ int new_upd_len, old_upd_len; /* length of output buffers */ SLKeyMap_List_Type *keymap; /* tty variables */ unsigned int flags; /* */ unsigned int (*getkey)(void); /* getkey function -- required */ void (*tt_goto_column)(int); void (*tt_insert)(char); void (*update_hook)(unsigned char *, int, int); /* The update hook is called with a pointer to a buffer p1 that contains * an image of what the update hook is suppoed to produce. The length * of the buffer is p2 and after the update, the cursor is to be placed * in column p3. */ } SLang_RLine_Info_Type; extern int SLang_RL_EOF_Char; #define SLRL_USE_ANSI 0x01 extern SLang_Read_Line_Type * SLang_rline_save_line (SLang_RLine_Info_Type *); extern int SLang_init_readline (SLang_RLine_Info_Type *); extern int SLang_read_line (SLang_RLine_Info_Type *); extern int SLang_rline_insert (char *); extern void SLrline_redraw (SLang_RLine_Info_Type *); extern int SLang_Rline_Quit; /* ---------------------------------------------------------------------- */ extern int SLang_extract_token(char **, char *, int); /* returns 0 upon failure and non-zero upon success. The first parameter * is a pointer to the input stream which this function will bump along. * The second parameter is the buffer where the token is placed. The third * parameter is used internally by the S-Lang library and should be 0 for * user applications. */ /* ----------------------------------------------------------------------- */ /* Screen Output functions */ typedef unsigned long SLtt_Char_Type; #define SLTT_BOLD_MASK 0x01000000 #define SLTT_BLINK_MASK 0x02000000 #define SLTT_ULINE_MASK 0x04000000 #define SLTT_REV_MASK 0x08000000 #define SLTT_ALTC_MASK 0x10000000 extern int SLtt_Screen_Rows; extern int SLtt_Screen_Cols; extern int SLtt_Term_Cannot_Insert; extern int SLtt_Term_Cannot_Scroll; extern int SLtt_Use_Ansi_Colors; extern int SLtt_Ignore_Beep; extern int SLtt_Try_Termcap; extern int SLtt_Has_Alt_Charset; #if defined(VMS) || defined(unix) extern int SLtt_Blink_Mode; extern int SLtt_Use_Blink_For_ACS; extern int SLtt_Newline_Ok; #endif #ifdef msdos extern int SLtt_Msdos_Cheap_Video; #endif extern void SLtt_set_alt_char_set (int); extern int SLtt_flush_output (void); extern void SLtt_set_scroll_region(int, int); extern void SLtt_reset_scroll_region(void); extern void SLtt_reverse_video (int); extern void SLtt_bold_video (void); extern void SLtt_begin_insert(void); extern void SLtt_end_insert(void); extern void SLtt_del_eol(void); extern void SLtt_goto_rc (int, int); extern void SLtt_delete_nlines(int); extern void SLtt_delete_char(void); extern void SLtt_erase_line(void); extern void SLtt_normal_video(void); extern void SLtt_cls(void); extern void SLtt_beep(void); extern void SLtt_reverse_index(int); extern void SLtt_smart_puts(unsigned short *, unsigned short *, int, int); extern void SLtt_write_string (char *); extern void SLtt_putchar(char); extern void SLtt_init_video (void); extern void SLtt_reset_video (void); extern void SLtt_get_terminfo(void); extern int SLtt_set_cursor_visibility (int); #if defined(VMS) || defined(unix) # ifndef __GO32__ extern void SLtt_enable_cursor_keys(void); extern void SLtt_set_term_vtxxx(int *); extern void SLtt_set_color_esc (int, char *); extern void SLtt_wide_width(void); extern void SLtt_narrow_width(void); extern int SLtt_set_mouse_mode (int, int); # ifdef unix extern char *SLtt_tgetstr (char *); extern int SLtt_tgetnum (char *); extern int SLtt_tgetflag (char *); # endif # endif #endif extern void SLtt_set_color_object (int, SLtt_Char_Type); extern void SLtt_set_color (int, char *, char *, char *); extern void SLtt_set_mono (int, char *, SLtt_Char_Type); extern void SLtt_add_color_attribute (int, SLtt_Char_Type); /*------------------------------------------------------------------------- * Preprocessor */ typedef struct { int this_level; int exec_level; int prev_exec_level; char preprocess_char; char comment_char; } SLPreprocess_Type; extern int SLprep_open_prep (SLPreprocess_Type *); extern void SLprep_close_prep (SLPreprocess_Type *); extern int SLprep_line_ok (char *, SLPreprocess_Type *); extern int SLdefine_for_ifdef (char *); /* Adds a string to the SLang #ifdef preparsing defines. SLang already defines MSDOS, UNIX, and VMS on the appropriate system. */ /* ----------------------------------------------------------------------- */ /* Screen management functions */ #include extern void SLsmg_fill_region (int, int, int, int, unsigned char); #ifndef pc_system extern void SLsmg_set_char_set (int); extern int SLsmg_Scroll_Hash_Border; #endif extern void SLsmg_suspend_smg (void); extern void SLsmg_resume_smg (void); extern void SLsmg_erase_eol (void); extern void SLsmg_gotorc (int, int); extern void SLsmg_erase_eos (void); extern void SLsmg_reverse_video (void); extern void SLsmg_set_color (int); extern void SLsmg_normal_video (void); extern void SLsmg_printf (char *, ...); extern void SLsmg_vprintf (char *, va_list); extern void SLsmg_write_string (char *); extern void SLsmg_write_nstring (char *, int); extern void SLsmg_write_char (char); extern void SLsmg_write_nchars (char *, int); extern void SLsmg_write_wrapped_string (char *, int, int, int, int, int); extern void SLsmg_cls (void); extern void SLsmg_refresh (void); extern void SLsmg_touch_lines (int, int); extern int SLsmg_init_smg (void); extern void SLsmg_reset_smg (void); extern unsigned short SLsmg_char_at(void); extern void SLsmg_set_screen_start (int *, int *); extern void SLsmg_draw_hline (int); extern void SLsmg_draw_vline (int); extern void SLsmg_draw_object (int, int, unsigned char); extern void SLsmg_draw_box (int, int, int, int); extern int SLsmg_get_column(void); extern int SLsmg_get_row(void); extern int SLsmg_Display_Eight_Bit; extern int SLsmg_Tab_Width; #ifdef pc_system # define SLSMG_HLINE_CHAR 0xC4 # define SLSMG_VLINE_CHAR 0xB3 # define SLSMG_ULCORN_CHAR 0xDA # define SLSMG_URCORN_CHAR 0xBF # define SLSMG_LLCORN_CHAR 0xC0 # define SLSMG_LRCORN_CHAR 0xD9 /* There are several to choose from: 0xB0, 0xB1, and 0xB2 */ # define SLSMG_CKBRD_CHAR 0xB0 #else # define SLSMG_HLINE_CHAR 'q' # define SLSMG_VLINE_CHAR 'x' # define SLSMG_ULCORN_CHAR 'l' # define SLSMG_URCORN_CHAR 'k' # define SLSMG_LLCORN_CHAR 'm' # define SLSMG_LRCORN_CHAR 'j' # define SLSMG_CKBRD_CHAR 'a' # define SLSMG_RTEE_CHAR 'u' # define SLSMG_LTEE_CHAR 't' # define SLSMG_UTEE_CHAR 'w' # define SLSMG_DTEE_CHAR 'v' #endif /* ----------------------------------------------------------------------- */ /* subtypes of literal (static) and data (dynamic)*/ #define VOID_TYPE 1 #define INT_TYPE 2 #ifdef FLOAT_TYPE #undef FLOAT_TYPE #define FLOAT_TYPE 3 #endif #define CHAR_TYPE 4 #define INTP_TYPE 5 #define SLANG_OBJ_TYPE 6 /* Everything above string should correspond to a pointer in the object * structure. See do_binary (slang.c) for exploitation of this fact. */ #define STRING_TYPE 10 /* Array type MUST be the smallest number for SLuser_Object_Type structs */ #define ARRAY_TYPE 20 /* I am reserving values greater than or equal to user applications. The * first 99 are used for S-Lang. */ #define SLANG_LVARIABLE 0x01 #define SLANG_LOGICAL 0x02 #define SLANG_BINARY 0x03 /* #define SLANG_LINTRINSIC 0x04 * #define SLANG_LFUNCTION 0x05 */ #define SLANG_INTRINSIC 0x06 #define SLANG_FUNCTION 0x07 #define SLANG_LITERAL 0x08 /* constant objects */ #define SLANG_BLOCK 0x09 #define SLANG_DIRECTIVE 0x0A #define SLANG_UNARY 0x0B #define SLANG_LUNARY 0x0C #define SLANG_GVARIABLE 0x0D #define SLANG_IVARIABLE 0x0E /* intrinsic variables */ /* Note!!! For Macro MAKE_VARIABLE below to work, SLANG_IVARIABLE Must be 1 less than SLANG_RVARIABLE!!! */ #define SLANG_RVARIABLE 0x0F /* read only variable */ /* These 3 MUST be in this order too ! */ #define SLANG_RETURN 0x10 #define SLANG_BREAK 0x11 #define SLANG_CONTINUE 0x12 #define SLANG_EXCH 0x13 #define SLANG_LABEL 0x14 #define SLANG_LOBJPTR 0x15 #define SLANG_GOBJPTR 0x16 #define SLANG_X_ERROR 0x17 /* These must be in this order */ #define SLANG_X_USER0 0x18 #define SLANG_X_USER1 0x19 #define SLANG_X_USER2 0x1A #define SLANG_X_USER3 0x1B #define SLANG_X_USER4 0x1C #define SLANG_DATA 0x30 /* real objects which may be destroyed */ /* Binary and Unary Subtypes */ /* This group may be overloaded. */ #define SLANG_PLUS 1 #define SLANG_MINUS 2 #define SLANG_TIMES 3 #define SLANG_DIVIDE 4 #define SLANG_EQ 5 #define SLANG_NE 6 #define SLANG_GT 7 #define SLANG_GE 8 #define SLANG_LT 9 #define SLANG_LE 10 /* UNARY subtypes (may be overloaded) */ #define SLANG_ABS 11 #define SLANG_SIGN 12 #define SLANG_SQR 13 #define SLANG_MUL2 14 #define SLANG_CHS 15 /* error codes, severe errors are less than 0 */ #define SL_INVALID_PARM -6 #define SL_MALLOC_ERROR -5 #define INTERNAL_ERROR -4 #define UNKNOWN_ERROR -3 #define STACK_OVERFLOW -1 #define STACK_UNDERFLOW -2 #define INTRINSIC_ERROR 1 /* Intrinsic error is an error generated by intrinsic functions */ #define USER_BREAK 2 #define UNDEFINED_NAME 3 #define SYNTAX_ERROR 4 #define DUPLICATE_DEFINITION 5 #define TYPE_MISMATCH 6 #define READONLY_ERROR 7 #define DIVIDE_ERROR 8 /* object could not be opened */ #define SL_OBJ_NOPEN 9 /* unknown object */ #define SL_OBJ_UNKNOWN 10 extern char *SLang_Error_Message; extern void SLadd_name(char *, long, unsigned char, unsigned char); extern void SLadd_at_handler (long *, char *); #define SLANG_MAKE_ARGS(out, in) ((unsigned char)(out) | ((unsigned short) (in) << 4)) #ifdef SLANG_STATS #define MAKE_INTRINSIC(n, f, out, in) \ {0, n, (out | (in << 4)), SLANG_INTRINSIC, (long) f} #define MAKE_VARIABLE(n, v, t, r) \ {0, n, t, (SLANG_IVARIABLE + r, (long) v} #else #define MAKE_INTRINSIC(n, f, out, in) \ {n, (out | (in << 4)), SLANG_INTRINSIC, (long) f} #define MAKE_VARIABLE(n, v, t, r) \ {n, t, (SLANG_IVARIABLE + r), (long) v} #endif #define SLANG_END_TABLE MAKE_INTRINSIC("", 0, 0, 0) /* Uppercase, lowercase macros */ extern void SLang_define_case(int *, int *); extern void SLang_init_case_tables (void); extern unsigned char Chg_UCase_Lut[256]; extern unsigned char Chg_LCase_Lut[256]; #define UPPER_CASE(x) (Chg_UCase_Lut[(unsigned char) (x)]) #define LOWER_CASE(x) (Chg_LCase_Lut[(unsigned char) (x)]) #define CHANGE_CASE(x) (((x) == Chg_LCase_Lut[(unsigned char) (x)]) ?\ Chg_UCase_Lut[(unsigned char) (x)] : Chg_LCase_Lut[(unsigned char) (x)]) typedef struct { unsigned char *pat; /* regular expression pattern */ unsigned char *buf; /* buffer for compiled regexp */ int buf_len; /* length of buffer */ int case_sensitive; /* 1 if match is case sensitive */ int must_match; /* 1 if line must contain substring */ int must_match_bol; /* true if it must match beginning of line */ unsigned char must_match_str[16]; /* 15 char null term substring */ int osearch; /* 1 if ordinary search suffices */ int min_length; /* minimum length the match must be */ int beg_matches[10]; /* offset of start of \( */ int end_matches[10]; /* length of nth submatch * Note that the entire match corresponds * to \0 */ int offset; /* offset to be added to beg_matches */ } SLRegexp_Type; extern unsigned char *SLang_regexp_match(unsigned char *, int, SLRegexp_Type *); extern int SLang_regexp_compile (SLRegexp_Type *); #ifdef SLKEYMAPS /* Keymap routines and definitions */ typedef { char *name; int (*f) (void); } SLKeymap_Fun_Type; #endif /* ------------------------------------------------------------------------ */ /* cmd line definitions */ #define SLCMD_MAX_ARGS 10 #ifdef __WATCOMC__ struct SLcmd_Cmd_Type; /* Pre-declaration is needed for the watcom c++ compiler */ #endif typedef struct SLcmd_Cmd_Table_Type { struct SLcmd_Cmd_Type *table; int argc; char *string_args[SLCMD_MAX_ARGS]; int int_args[SLCMD_MAX_ARGS]; FLOAT float_args[SLCMD_MAX_ARGS]; } SLcmd_Cmd_Table_Type; typedef struct SLcmd_Cmd_Type { int (*cmdfun)(int, struct SLcmd_Cmd_Table_Type *); char cmd[32]; char arg_type[SLCMD_MAX_ARGS]; } SLcmd_Cmd_Type; extern int SLcmd_execute_string (char *, SLcmd_Cmd_Table_Type *); /* ------------------------------------------------------------------------ */ /* search functions */ typedef struct { int cs; /* case sensitive */ unsigned char key[256]; int ind[256]; int key_len; int dir; } SLsearch_Type; extern int SLsearch_init (char *, int, int, SLsearch_Type *); /* This routine must first be called before any search can take place. * The second parameter specifies the direction of the search: greater than * zero for a forwrd search and less than zero for a backward search. The * third parameter specifies whether the search is case sensitive or not. * The last parameter is a pointer to a structure that is filled by this * function and it is this structure that must be passed to SLsearch. */ unsigned char *SLsearch (unsigned char *, unsigned char *, SLsearch_Type *); /* To use this routine, you must first call 'SLsearch_init'. Then the first * two parameters p1 and p2 serve to define the region over which the search * is to take place. The third parameter is the structure that was previously * initialized by SLsearch_init. * * The routine returns a pointer to the match if found otherwise it returns * NULL. */ #ifdef __cplusplus } #endif /* _davis_slang_h_ */ #endif Lsearch. */ unsigned char *SLsearch (unsigned char *, unsigned char *, SLsearch_Type *); /* To use this routine, you must first call 'SLsearch_init'. Then the first * two parameters p1 and p2slang-0.99.12/src/slang.rsp000064400000000000003000000005710603742322100152570ustar00rootsys00000000000000+-slang.obj +-slparse.obj +-slmath.obj +-slfile.obj +-slstd.obj & +-slarray.obj +-slregexp.obj +-slmatrix.obj +-slkeymap.obj & +-slmemcpy.obj +-slmemcmp.obj +-slmemset.obj +-slmemchr.obj & +-slxstrng.obj +-slerr.obj +-sltoken.obj +-slsmg.obj & +-slrline.obj +-sldostty.obj +-slgetkey.obj +-slvideo.obj & +-slsearch.obj +-slmalloc.obj +-slclass.obj +-slmisc.obj & +-slprepr.obj ned char *, SLsearch_Type *); /* To use this routine, you must first call 'SLsearch_init'. Then the first * two parameters p1 and p2slang-0.99.12/src/wslang.rsp000064400000000000003000000004570603742322100154510ustar00rootsys00000000000000+-slang.obj +-slparse.obj +-slmath.obj +-slfile.obj +-slstd.obj & +-slarray.obj +-slregexp.obj +-slmatrix.obj +-slkeymap.obj & +-slmemcpy.obj +-slmemcmp.obj +-slmemset.obj +-slmemchr.obj & +-slxstrng.obj +-slerr.obj +-sltoken.obj +-slprepr.obj & +-slsearch.obj +-slmalloc.obj +-slclass.obj +-slmisc.obj +-slsearch.obj +-slmalloc.obj +-slclass.obj +-slmisc.obj & +-slprepr.obj ned char *, SLsearch_Type *); /* To use this routine, you must first call 'SLsearch_init'. Then the first * two parameters p1 and p2slang-0.99.12/src/slangwcc.rsp000064400000000000003000000004650603742322100157560ustar00rootsys00000000000000+-slang.obj +-slparse.obj +-slmath.obj +-slfile.obj +-slstd.obj +-slarray.obj +-slregexp.obj +-slmatrix.obj +-slkeymap.obj +-slxstrng.obj +-slerr.obj +-sltoken.obj +-slsmg.obj +-slrline.obj +-sldostty.obj +-slgetkey.obj +-slvideo.obj +-slsearch.obj +-slmalloc.obj +-slclass.obj +-slmisc.obj +-slprepr.obj earch.obj +-slmalloc.obj +-slclass.obj +-slmisc.obj & +-slprepr.obj ned char *, SLsearch_Type *); /* To use this routine, you must first call 'SLsearch_init'. Then the first * two parameters p1 and p2slang-0.99.12/src/slarray.h000064400000000000003000000012020603742322100152430ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ extern void SLang_create_array(void); extern void SLarray_putelem(void); extern void SLarray_getelem(void); extern void SLarray_sort(char *); extern void SLinit_char_array(void); extern SLuser_Object_Type *SLang_pop_array (int *); extern void SLpush_array (int); extern SLArray_Type *SLarray_from_handle (int); extern void SLcopy_array (void); extern SLuser_Object_Type *SLcreate_array(long *, int, int, int, int, unsigned char, unsigned char); ral Public * License or the Perl Artistic License. */ extern void SLang_create_array(void); extern void SLarray_putelem(void); extern void SLarray_getelem(void); extern void SLarray_sort(char *); extern void SLinit_char_array(void); extern SLuser_Object_Type *SLang_pop_array (int *); extern void SLpush_array (int); extern SLArray_Type *SLarray_from_handle (int); extern void Sslang-0.99.12/src/slarray.c000064400000000000003000000345110603742322200152500ustar00rootsys00000000000000/* Array manipulation routines for S-Lang */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #include "slang.h" #include "_slang.h" #include "slarray.h" /* This is the callback routine to destroy the array. */ void SLarray_free_array (long *obj) { unsigned char **s_ptr, **s_ptr_max; SLuser_Object_Type **u_ptr, **u_ptr_max; unsigned char type; unsigned int n; SLArray_Type *at; at = (SLArray_Type *) obj; type = at->type; if (at->buf.s_ptr != NULL) switch (type) { #ifdef FLOAT_TYPE case FLOAT_TYPE: #endif case INT_TYPE: case CHAR_TYPE: /* For the above, we do not have to worry about free any elements * since the elements are not pointers. */ break; /* The ones below here are pointers and need freed */ case STRING_TYPE: /* Strings were ALL malloced. */ default: n = (unsigned int) at->x; n = n * at->y * at->z; if ((type == ARRAY_TYPE) || (type >= 100)) { u_ptr = at->buf.u_ptr; u_ptr_max = u_ptr + n; while (u_ptr < u_ptr_max) { if (*u_ptr != NULL) SLang_free_user_object (*u_ptr); u_ptr++; } } else if (type == STRING_TYPE) { s_ptr = at->buf.s_ptr; s_ptr_max = s_ptr + n; while (s_ptr < s_ptr_max) { if (*s_ptr != NULL) SLFREE (*s_ptr); s_ptr++; } } } s_ptr = at->buf.s_ptr; if ((s_ptr != NULL) && (at->flags == 0)) SLFREE (s_ptr); SLFREE (obj); } /* if ptr == NULL then malloc space. Otherwise assume space is at ptr */ SLuser_Object_Type *SLcreate_array(long *ptr, int dim, int d0, int d1, int d2, unsigned char t, unsigned char flags) { unsigned long n, size; unsigned char type; SLArray_Type *at; SLuser_Object_Type *uat; switch (t) { case 'i': type = INT_TYPE; size = sizeof(int); break; case 's': type = STRING_TYPE; size = sizeof(char *); break; case 'c': type = CHAR_TYPE; size = sizeof(char); break; #ifdef FLOAT_TYPE case 'f': type = FLOAT_TYPE; size = sizeof(FLOAT); break; #endif default: /* I need to have applications register their types! */ if (t >= 100) { type = t; size = sizeof (SLuser_Object_Type *); } else return NULL; } /* This must be since indices go from 0 to d - 1 */ if (d1 < 1) d1 = 1; if (d2 < 1) d2 = 1; n = d0; n = n * d1; n = n * d2; if (NULL == (at = (SLArray_Type *) SLMALLOC (sizeof(SLArray_Type)))) { return NULL; } if (NULL == (uat = SLang_create_user_object (ARRAY_TYPE))) { SLFREE (at); return NULL; } if (ptr == NULL) { if (size == 1) ptr = (long *) SLMALLOC(n); else ptr = (long *) SLCALLOC(n, size); if (ptr == NULL) return NULL; } else { if (flags == 0) flags = SLANG_IVARIABLE; } at->buf.s_ptr = (unsigned char **) ptr; at->dim = dim; at->x = d0; at->y = d1; at->z = d2; at->type = type; at->flags = flags; uat->obj = (long *) at; return uat; } void SLang_create_array(void) { int dim, d0, d1, d2, t; SLuser_Object_Type *uat; if (SLang_pop_integer(&dim)) return; if ((dim > 3) || (dim <= 0)) { SLang_Error = SL_INVALID_PARM; SLang_doerror("Array size not supported."); return; } d1 = d0 = d2 = 1; switch (dim) { case 3: SLang_pop_integer(&d2); case 2: SLang_pop_integer(&d1); case 1: SLang_pop_integer(&d0); } if ((d0 <= 0) || (d1 <= 0) || (d2 <= 0)) { SLang_Error = SL_INVALID_PARM; return; } if (SLang_pop_integer(&t)) return; uat = SLcreate_array(NULL, dim, d0, d1, d2, t, 0); if (uat == NULL) { SLang_doerror("Unable to create array."); return; } SLang_push_user_object (uat); } /* returns USER OBJECT array. If *stype is non-zero, a string is accepted * as an array. * If an actual array is popped, *stype will be zero upon return. However, * if *stype is such that a string is permitted, *stype will be 1 if the * string that is returned (through the cast) should be freed. In any * case, it will be non-zero for a string. */ SLuser_Object_Type *SLang_pop_array(int *sflag) { SLang_Object_Type obj; unsigned char stype; if (SLang_pop(&obj)) return(NULL); stype = obj.sub_type; if (stype != ARRAY_TYPE) { if ((*sflag == 0) || (stype != STRING_TYPE)) { if (stype >= ARRAY_TYPE) SLang_free_user_object (obj.v.uobj); SLang_Error = TYPE_MISMATCH; return(NULL); } if (obj.main_type == SLANG_DATA) *sflag = 1; else *sflag = -1; return (SLuser_Object_Type *) obj.v.s_val; } *sflag = 0; return obj.v.uobj; } static char *Bound_err = "Array dims out of bounds"; static unsigned int compute_array_offset(SLArray_Type *at) { int elem[3], el, x[3], d, dim; unsigned int off; if (SLang_Error) return (0); dim = at->dim; x[0] = at->x; x[1] = at->y; x[2] = at->z; elem[0] = elem[1] = elem[2] = 0; d = dim; while (d--) { if (SLang_pop_integer(&el)) return(0); if ((el >= x[d]) || (el < 0)) { SLang_doerror(Bound_err); return(0); } elem[d] = el; } off = 0; d = 0; off = (elem[0] * x[1] + elem[1]) * x[2] + elem[2]; return(off); } static void str_get_elem(unsigned char *s, int dat) { int n, nmax, ch; if (SLang_pop_integer(&n)) goto done; nmax = strlen((char *) s); if ((nmax < n) || (n < 0)) { SLang_Error = SL_INVALID_PARM; SLang_doerror(Bound_err); goto done; } ch = s[n]; SLang_push_integer(ch); done: if (dat == 1) SLFREE(s); } void SLarray_putelem (void) { SLArray_Type *at; SLuser_Object_Type *uat, **uop, *uo; unsigned int off; int sdat, i; unsigned char *str, *newstr, **sp; #ifdef FLOAT_TYPE FLOAT f; int ix; int convert; #endif sdat = 0; /* string NOT accepted. */ if (NULL == (uat = SLang_pop_array(&sdat))) return; at = (SLArray_Type *) uat->obj; if (at->flags == SLANG_RVARIABLE) { SLang_Error = READONLY_ERROR; goto cleanup_and_return; } off = compute_array_offset(at); if (SLang_Error) goto cleanup_and_return; switch(at->type) { case INT_TYPE: if (SLang_pop_integer(&i)) goto cleanup_and_return; *(off + at->buf.i_ptr) = i; break; case STRING_TYPE: if (SLang_pop_string((char **) &str, &sdat)) goto cleanup_and_return; newstr = (unsigned char *) SLmake_string ((char *) str); if (sdat == 1) SLFREE(str); sp = (off + at->buf.s_ptr); if (NULL != *sp) SLFREE(*sp); *sp = newstr; break; case CHAR_TYPE: if (SLang_pop_integer(&i)) goto cleanup_and_return; *(off + at->buf.c_ptr) = (unsigned char) i; break; #ifdef FLOAT_TYPE case FLOAT_TYPE: if (SLang_pop_float(&f, &convert, &ix)) goto cleanup_and_return; (void) convert; (void) ix; *(off + at->buf.f_ptr) = f; break; #endif default: if (at->type >= ARRAY_TYPE) { if (NULL == (uo = SLang_pop_user_object (at->type))) goto cleanup_and_return; uop = at->buf.u_ptr + off; if (*uop != NULL) SLang_free_user_object (*uop); *uop = uo; break; } SLang_doerror("Corrupted Array."); } /* Everthing else has to flow through here too */ cleanup_and_return: SLang_free_user_object (uat); } static void array_push_element(SLArray_Type *at, int off) { char *err_str = "Array Element uninitialized."; unsigned char *s; switch(at->type) { case INT_TYPE: SLang_push_integer (*(at->buf.i_ptr + off)); break; case CHAR_TYPE: SLang_push_integer ((int) *(at->buf.c_ptr + off)); break; case STRING_TYPE: if (NULL == (s = *(at->buf.s_ptr + off))) { SLang_doerror (err_str); } else SLang_push_string((char *) s); break; #ifdef FLOAT_TYPE case FLOAT_TYPE: SLang_push_float(*(at->buf.f_ptr + off)); break; #endif default: if (at->type >= ARRAY_TYPE) { SLuser_Object_Type **uop; uop = at->buf.u_ptr + off; if (*uop == NULL) SLang_doerror(err_str); else SLang_push_user_object (*uop); } else SLang_doerror("Internal Error in array element."); } } void SLarray_getelem (void) { SLArray_Type *at; SLuser_Object_Type *uob; unsigned int off; int sdat = 1; /* allow STRINGS */ if (NULL == (uob = SLang_pop_array(&sdat))) return; if (sdat) { str_get_elem((unsigned char *) uob, sdat); return; } at = (SLArray_Type *) uob->obj; off = compute_array_offset(at); if (SLang_Error == 0) array_push_element(at, off); SLang_free_user_object (uob); } void SLcopy_array (void) { SLArray_Type *a, *b; SLuser_Object_Type *ua, *ub; int sa = 0, sb = 0; unsigned int size; /* STRINGS not accepted. */ if ((NULL == (ub = SLang_pop_array (&sb))) || (NULL == (ua = SLang_pop_array (&sa)))) { if (ub != NULL) SLang_free_user_object (ub); return; } a = (SLArray_Type *) ua->obj; b = (SLArray_Type *) ub->obj; /* array a must be writable and a and b must be identical */ if (a->flags == SLANG_RVARIABLE) { SLang_Error = READONLY_ERROR; goto free_and_return; } if ((a->dim != b->dim) || (a->x != b->x) || (a->y != b->y) || (a->z != b->z) || (a->type != b->type)) { SLang_Error = TYPE_MISMATCH; goto free_and_return; } switch (a->type) { case INT_TYPE: size = sizeof(int); break; case CHAR_TYPE: size = sizeof(char); break; #ifdef FLOAT_TYPE case FLOAT_TYPE: size = sizeof(FLOAT); break; #endif case STRING_TYPE: /* size = sizeof(char *); break; */ default: SLang_doerror ("Copy not supported for this array type."); goto free_and_return; } /* I might want to loosen the restriction about the actual dimensions and * simply demand that the size be the same */ size = size * a->x * a->y * a->z; MEMCPY ((char *)a->buf.s_ptr, (char *)b->buf.s_ptr, size); free_and_return: SLang_free_user_object (ua); SLang_free_user_object (ub); } void SLarray_info (void) { SLuser_Object_Type *u; SLArray_Type *at; int sa = 0; /* string NOT allowed */ int dim; if (NULL == (u = SLang_pop_array (&sa))) return; at = (SLArray_Type *) u->obj; SLang_push_integer (at->type); dim = at->dim; SLang_push_integer (at->x); if (dim >= 2) SLang_push_integer (at->y); if (dim >= 3) SLang_push_integer (at->z); SLang_push_integer (dim); SLang_free_user_object (u); } SLuser_Object_Type *SLang_add_array(char *name, long* addr, int dim, int d0, int d1, int d2, unsigned char t, unsigned char flags) { SLuser_Object_Type *uo; if (NULL != (uo = SLcreate_array (addr, dim, d0, d1, d2, t, flags))) { /* By default, create_array creates SLANG_DATA array. Since this is * intrinsic, we over ride it here. */ uo->main_type = SLANG_IVARIABLE; uo->sub_type = ARRAY_TYPE; SLadd_name(name, (long) uo, SLANG_IVARIABLE, ARRAY_TYPE); } return uo; } void SLarray_sort(char *f) { SLArray_Type *at_str, *at_int; unsigned char mtype; SLang_Name_Type *entry; SLuser_Object_Type *uat_str, *uat_int; int sdat; int l, j, ir, i, rra, n, cmp; int *ra; if ((NULL == (entry = SLang_locate_name(f))) || (*entry->name == 0)) { SLang_doerror("Sort function undefined."); return; } mtype = entry->main_type; if (mtype != SLANG_FUNCTION) { SLang_doerror("Invalid sort function."); return; } sdat = 0; /* no STRINGs */ if (NULL == (uat_str = SLang_pop_array(&sdat))) return; at_str = (SLArray_Type *) uat_str->obj; if (at_str->flags == SLANG_RVARIABLE) { SLang_Error = READONLY_ERROR; goto return_err; } n = at_str->x; if (at_str->dim != 1) { SLang_doerror("Sort requires 1 dim arrays."); goto return_err; } if (NULL == (uat_int = SLcreate_array(NULL, 1, n, 1, 1, 'i', 0))) { SLang_doerror("Error Creating index array."); goto return_err; } at_int = (SLArray_Type *) uat_int->obj; ra = at_int->buf.i_ptr; ra--; for (i = 1; i <= n; i++) ra[i] = i; /* heap sort from adapted from numerical recipes */ l = 1 + n / 2; ir = n; while (1) { if (l > 1) rra = ra[--l]; else { rra = ra[ir]; ra[ir] = ra[1]; if (--ir <= 1) { ra[1] = rra; for (i = 1; i <= n; i++) ra[i] -= 1; SLang_push_user_object (uat_int); /* Break to free the other user object. */ break; } } i = l; j = 2 * l; while(j <= ir) { if (j < ir) { array_push_element(at_str, ra[j] - 1); array_push_element(at_str, ra[j + 1] - 1); SLexecute_function(entry); if (SLang_pop_integer(&cmp)) { /* Guess we will not be needing this. */ SLang_free_user_object (uat_int); goto return_err; } if (cmp) j++; } array_push_element(at_str, rra - 1); array_push_element(at_str, ra[j] - 1); SLexecute_function(entry); if (SLang_pop_integer(&cmp)) { /* Guess we will not be needing this. */ SLang_free_user_object (uat_int); goto return_err; } if (cmp) { ra[i] = ra[j]; i = j; j += j; } else j = ir + 1; } ra[i] = rra; } /* No matter what, we have call free_user_object. */ return_err: SLang_free_user_object (uat_str); } void SLinit_char_array (void) { int dat, sdat; SLArray_Type *at; SLuser_Object_Type *uat; unsigned char *s; unsigned int n, ndim; if (SLang_pop_string((char **) &s, &dat)) return; sdat = 0; /* No STRINGS */ if (NULL == (uat = SLang_pop_array(&sdat))) goto free_and_return; at = (SLArray_Type *) uat->obj; if (at->type != CHAR_TYPE) { SLang_doerror("Operation requires character array."); goto free_and_return; } n = (unsigned int) strlen((char *)s); ndim = at->x * at->y * at->z; if (n > ndim) { SLang_doerror("String too big to init Array."); goto free_and_return; } strncpy((char *) at->buf.c_ptr, (char *) s, (int) ndim); free_and_return: if (uat != NULL) SLang_free_user_object (uat); if (dat == 1) SLFREE(s); } (SLArray_Type *) uat->obj; if (at->type != CHAR_TYPE) { SLang_doerror("Operation requires character array."); goto free_and_return; } n = (unsigned int) strlen((charslang-0.99.12/src/slasync.c000064400000000000003000000047500603742322200152510ustar00rootsys00000000000000/* Asynchronous processes using ptys */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #ifdef HAS_SUBPROCESSES #include #include #include #include #include #include #include #include "slang.h" #include "_slang.h" #include "slfile.h" /* On ultrix, pseudo terminals are named /dev/tty?? and /dev/pty?? where ?? is [pq][0-9a-f] */ static char PTY_Name[80], TTY_Name[80]; int open_pty () { int ft, fp; char *p, *t, *p1, *t1; char *list1 = "pq", *list2 = "0123456789abcdef"; strcpy (PTY_Name, "/dev/pty"); strcpy (TTY_Name, "/dev/tty"); p = PTY_Name + strlen (PTY_Name); t = TTY_Name + strlen (TTY_Name); for (p1 = list1; *p1 != 0; p1++) { *p++ = *p1; *t++ = *p1; for (t1 = list2; *t1 != 0; t1++) { *p++ = *t1; *p = 0; *t++ = *t1; *t = 0; if ((fp = open (PTY_Name, O_RDWR)) >= 0) { if ((ft = open (TTY_Name, O_RDWR)) >= 0) { close (ft); return fp; } close (fp); } t--; p--; } t--; p--; } return -1; } int child_code (char *name) { execl (name, NULL); exit(0); } /* returns the child pid upon success or -1 upon error. */ static int create_process (char *name, int *fd) { int child_pid; int ft; *fd = open_pty(); if (*fd < 0) return -1; if (fcntl (*fd, F_SETFL, O_NDELAY) < 0) { fprintf(stderr, "fcntl 1 failed.\n"); } if (0 == (child_pid = fork())) { setsid (); if ((ft = open (TTY_Name, O_RDWR)) < 0) { fprintf(stderr, "Child: unable to open tty"); } dup2(ft, fileno(stderr)); dup2(ft, fileno(stdout)); dup2(ft, fileno(stdin)); child_code (name); } return child_pid; } void child_signal(int sig) { } int SLcreate_child_process (char *name) { SL_File_Table_Type *t; FILE *fp; int fd, pid; if ((t = get_file_table_entry()) == NULL) return (-1); if (-1 == (pid = create_process (name, &fd))) return -1; signal (SIGCHLD, child_signal); if ((fp = fdopen (fd, "r+")) == NULL) { close (fd); return -1; } t->fp = fp; t->fd = fd; t->flags = SL_WRITE | SL_READ | SL_PROCESS; t->pid = pid; SLang_push_integer (pid); return ((int) (t - SL_File_Table)); } #endif /* HAS_SUBPROCESSES */ { SL_File_Table_Typeslang-0.99.12/src/slclass.c000064400000000000003000000066020603742322200152370ustar00rootsys00000000000000/* User defined objects */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #include "slang.h" #include "_slang.h" SLang_Class_Type *SLang_Registered_Types[256]; static void default_destroy (long *unused) { #ifdef msdos (void) unused; #endif } int SLang_register_class (unsigned char sub_type, VOID *dest, VOID *string) { SLang_Class_Type *cl; cl = SLang_Registered_Types[sub_type]; if (cl != NULL) return 0; cl = (SLang_Class_Type *) SLMALLOC (sizeof (SLang_Class_Type)); if (cl == NULL) return 0; MEMSET ((char *) cl, 0, sizeof (SLang_Class_Type)); if (dest == NULL) dest = (VOID *) default_destroy; cl->destroy = (void (*)(VOID *)) dest; cl->string = (char *(*)(VOID *)) string; SLang_Registered_Types[sub_type] = cl; return 1; } static void add_binary_op (SLang_Class_Type *cla, SL_OOBinary_Type *ba, unsigned char stb, VOID *fa) { SL_OOBinary_Type *tmp; ba->sub_type = stb; ba->binary_function = (int (*)_PROTO((int, unsigned char, unsigned char, VOID *, VOID *))) fa; ba->next = NULL; tmp = cla->binary_ops; if (tmp == NULL) cla->binary_ops = ba; else { while (tmp->next != NULL) tmp = tmp->next; tmp->next = ba; } } int SLang_add_binary_op (unsigned char sta, unsigned char stb, VOID *f) { SLang_Class_Type *cla, *clb; SL_OOBinary_Type *ba = NULL, *bb = NULL; cla = SLang_Registered_Types [sta]; clb = SLang_Registered_Types [stb]; if ((cla == NULL) || (clb == NULL)) return 0; if ((NULL == (ba = (SL_OOBinary_Type *) SLMALLOC (sizeof(SL_OOBinary_Type)))) || (NULL == (bb = (SL_OOBinary_Type *) SLMALLOC (sizeof(SL_OOBinary_Type))))) { goto malloc_error_return; } add_binary_op (cla, ba, stb, f); add_binary_op (clb, bb, sta, f); return 1; /* Malloc errors go here */ malloc_error_return: if (ba != NULL) SLFREE (ba); if (bb != NULL) SLFREE (bb); return 0; } int SLang_add_unary_op (unsigned char st, VOID *f) { SLang_Class_Type *cl; cl = SLang_Registered_Types[st]; if (cl == NULL) return 0; cl->unary_function = (int (*)_PROTO((int, unsigned char, VOID *))) f; return 1; } int SLang_add_copy_operation (unsigned char st, VOID *f) { SLang_Class_Type *cl; cl = SLang_Registered_Types[st]; if (cl == NULL) return 0; cl->copy_function = (int (*)_PROTO((unsigned char, VOID *))) f; return 1; } SLuser_Object_Type *SLang_create_user_object (unsigned char t) { SLuser_Object_Type *u; if (t < ARRAY_TYPE) return NULL; /* See if it is registered. */ if (SLang_Registered_Types[t] == NULL) { SLang_doerror ("Type not registered."); return NULL; } if (NULL == (u = (SLuser_Object_Type *) SLMALLOC (sizeof (SLuser_Object_Type)))) { SLang_Error = SL_MALLOC_ERROR; return NULL; } u->sub_type = t; u->main_type = SLANG_DATA; u->count = 0; return u; } void SLang_free_user_object (SLuser_Object_Type *obj) { unsigned char type; if (obj->main_type == SLANG_DATA) { obj->count -= 1; if (obj->count == 0) { type = obj->sub_type; (*(SLang_Registered_Types[type]->destroy)) ((VOID *) obj->obj); SLFREE (obj); } } } SLuser_Object_Type *) SLMALLOC (sizeof (SLuser_Object_Type)))) { SLang_Error = SL_MALLOC_ERROR; return NULL; } slang-0.99.12/src/slcmd.c000064400000000000003000000066060603742322200147010ustar00rootsys00000000000000/* cmd line facility for slang */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #include "slang.h" #include "_slang.h" static SLcmd_Cmd_Type *SLcmd_find_command (char *s, SLcmd_Cmd_Type *cmd) { char *cmdstr; register char chs = *s++, ch; while (1) { cmdstr = cmd->cmd; ch = *cmdstr++; if (ch == 0) break; if ((ch == chs) && !strcmp (s, cmdstr)) return cmd; cmd++; } return NULL; } int SLcmd_execute_string (char *str, SLcmd_Cmd_Table_Type *table) { char *s, *b = NULL, *arg_type, *last_str; SLcmd_Cmd_Type *cmd; char buf[256]; int token_present; int i, ret = -1, len; int argc; if ((0 == SLang_extract_token (&str, buf, 0)) || (*buf == '%')) return 0; if (SLang_Error) return -1; if (((len = strlen (buf)) >= 32) || (NULL == (cmd = SLcmd_find_command (buf, table->table)))) { SLang_doerror ("Invalid command."); return -1; } if (NULL == (s = (char *) SLMALLOC(1 + len))) { SLang_Error = SL_MALLOC_ERROR; return -1; } strcpy (s, buf); argc = 0; table->string_args[argc++] = s; arg_type = cmd->arg_type; while (*arg_type) { last_str = str; token_present = SLang_extract_token (&str, buf, 0); if (SLang_Error) goto error; if (token_present) { b = buf; len = strlen (b); if ((*b == '"') && (len > 1)) { b++; len -= 2; b[len] = 0; } } switch (*arg_type++) { /* variable argument number */ case 'v': if (token_present == 0) break; case 'V': if (token_present == 0) { SLang_doerror ("Expecting argument."); goto error; } while (*last_str == ' ') last_str++; len = strlen (last_str); str = last_str + len; s = SLmake_nstring (last_str, len); if (s == NULL) goto error; table->string_args[argc++] = s; break; case 's': if (token_present == 0) break; case 'S': if (token_present == 0) { SLang_doerror ("Expecting string argument."); goto error; } s = SLmake_nstring (b, len); if (s == NULL) goto error; table->string_args[argc++] = s; break; /* integer argument */ case 'i': if (token_present == 0) break; case 'I': if ((token_present == 0) || (INT_TYPE != SLang_guess_type (buf))) { SLang_doerror ("Expecting integer argument."); SLang_Error = TYPE_MISMATCH; goto error; } table->int_args[argc++] = SLatoi((unsigned char *) buf); break; /* floating point arg */ #ifdef FLOAT_TYPE case 'f': if (token_present == 0) break; case 'F': if ((token_present == 0) || (STRING_TYPE == SLang_guess_type (buf))) { SLang_doerror ("Expecting floating point argument."); SLang_Error = TYPE_MISMATCH; goto error; } table->float_args[argc++] = atof(buf); break; #endif } } /* call function */ ret = (*cmd->cmdfun)(argc, table); error: for (i = 0; i < argc; i++) { if (NULL != table->string_args[i]) { SLFREE (table->string_args[i]); table->string_args[i] = NULL; } } return ret; } ess_type (buf))) { SLang_doerror ("Expecting floating point argument."); SLang_Error = TYPE_MISMATCH; slang-0.99.12/src/slconfig.h000064400000000000003000000012020603742322200153730ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #ifndef _confwcc_h_ #define _confwcc_h_ #if defined(__WATCOMC__) && !defined(__QNX__) #ifndef msdos #define msdos #endif #ifndef DOS386 #define DOS386 #endif #ifndef FLOAT_TYPE #define FLOAT_TYPE #endif #ifndef HAS_MEMCPY #define HAS_MEMCPY #endif #ifndef HAS_MEMCMP #define HAS_MEMCMP #endif #ifndef HAS_MEMSET #define HAS_MEMSET #endif #ifndef HAS_MEMCHR #define HAS_MEMCHR #endif #endif /* __watcomc__ */ #endif /* _slconfig_h_ */ ral Public * License or the Perl Artistic License. */ #ifndef _confwcc_h_ #define _confwcc_h_ #if defined(__WATCOMC__) && !defined(__QNX__) #ifndef msdos #define msdos #endif #ifndef DOS386 #define DOS386 #endif #ifndef FLOAT_TYPE #define FLOAT_TYPE #endif #ifndef HAS_MEMCPY #define HAS_MEMCPY #endif #ifndef HAS_MEMCMP #define HAS_MEMCMP #endif #ifndef HAS_MEMSEslang-0.99.12/src/slcurses.h000064400000000000003000000014170603742322200154420ustar00rootsys00000000000000#include "slang.h" #define move SLsmg_gotorc #define clreol SLsmg_erase_eol #define printw SLsmg_printf #define mvprintw(x, y, z) SLsmg_gotorc(x, y); SLsmg_printf(z) #define COLS SLtt_Screen_Cols #define LINES SLtt_Screen_Rows #define clrtobot SLsmg_erase_eos #define clrtoeol SLsmg_erase_eol #define standout SLsmg_reverse_video #define standend SLsmg_normal_video #define addch SLsmg_write_char #define addstr SLsmg_write_string #define initscr SLtt_get_terminfo (); SLsmg_init_smg #define refresh SLsmg_refresh #define clear SLsmg_cls #define erase SLsmg_cls #define mvaddstr(y, x, s) SLsmg_gotorc(y, x); SLsmg_write_string(s) #define touchline SLsmg_touch_lines #define inch SLsmg_char_at #define endwin SLsmg_reset_smg #ifdef A_NORMAL #undef A_NORMAL #endif #define A_NORMAL 0 toeol SLsmg_erase_eol #define standout SLsmg_reverse_video #define standend SLsmg_normal_video #define addch SLsmg_write_char #define addstr SLsmg_write_string #define initscr SLtt_get_terminfo (); SLsmg_init_smg #define refresh SLsmg_refreslang-0.99.12/src/sldisply.c000064400000000000003000001035040603742322300154360ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include #include "config.h" #include "slang.h" #include "_slang.h" #ifndef NO_STDLIB_H #include #endif #ifndef NO_UNISTD_H # include #endif #ifdef __DECC /* These get prototypes for write an sleep */ # include # include #endif /* Colors: These definitions are used for the display. However, the * application only uses object handles which get mapped to this * internal representation. The mapping is performed by the Color_Map * structure below. */ #define CHAR_MASK 0x000000FF #define FG_MASK 0x0000FF00 #define BG_MASK 0x00FF0000 #define ATTR_MASK 0x1F000000 #define BGALL_MASK 0x0FFF0000 /* The 0x10000000 bit represents the alternate character set. BGALL_MASK does * not include this attribute. */ #define GET_FG(color) ((color & FG_MASK) >> 8) #define GET_BG(color) ((color & BG_MASK) >> 16) #define MAKE_COLOR(fg, bg) (((fg) | ((bg) << 8)) << 8) int SLtt_Screen_Cols; int SLtt_Screen_Rows; int SLtt_Term_Cannot_Insert; int SLtt_Term_Cannot_Scroll; int SLtt_Use_Ansi_Colors; int SLtt_Blink_Mode = 1; int SLtt_Use_Blink_For_ACS = 0; int SLtt_Newline_Ok = 0; int SLtt_Has_Alt_Charset = 0; static int Automatic_Margins; /* static int No_Move_In_Standout; */ static int Worthless_Highlight; static int Linux_Console; /* It is crucial that JMAX_COLORS must be less than 128 since the high bit * is used to indicate a character from the ACS (alt char set). The exception * to this rule is if SLtt_Use_Blink_For_ACS is true. This means that of * the highbit is set, we interpret that as a blink character. This is * exploited by DOSemu. */ #define JMAX_COLORS 256 #define JNORMAL_COLOR 0 typedef struct { SLtt_Char_Type fgbg; SLtt_Char_Type mono; char *custom_esc; } Ansi_Color_Type; #define RGB1(r, g, b) ((r) | ((g) << 1) | ((b) << 2)) #define RGB(r, g, b, br, bg, bb) ((RGB1(r, g, b) << 8) | (RGB1(br, bg, bb) << 16)) static Ansi_Color_Type Ansi_Color_Map[JMAX_COLORS] = { {RGB(1, 1, 1, 0, 0, 0), 0x00000000, NULL}, {RGB(0, 0, 1, 0, 0, 0), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 0, 0, 0), SLTT_REV_MASK, NULL}, {RGB(1, 0, 0, 0, 0, 0), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 0, 0, 1), SLTT_REV_MASK, NULL}, {RGB(1, 0, 0, 0, 0, 1), SLTT_REV_MASK, NULL}, {RGB(0, 0, 1, 0, 1, 0), SLTT_REV_MASK, NULL}, {RGB(1, 0, 0, 0, 1, 0), SLTT_REV_MASK, NULL}, {RGB(0, 0, 1, 1, 0, 0), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 0, 0), SLTT_REV_MASK, NULL}, {RGB(0, 1, 1, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(1, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(1, 0, 1, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 0, 0, 0, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL} }; /* This is the string to use to use when outputting color information. */ #ifdef M_UNIX /* work around for sco console bug that can't handle combined sequences */ static char *Color_Escape_Sequence = "\033[3%dm\033[4%dm"; #else static char *Color_Escape_Sequence = "\033[3%d;4%dm"; #endif char *SLtt_Graphics_Char_Pairs; /* ac termcap string -- def is vt100 */ /* 1 if terminal lacks the ability to do into insert mode or into delete mode. Currently controlled by S-Lang but later perhaps termcap. */ static char *UnderLine_Vid_Str; static char *Blink_Vid_Str; static char *Bold_Vid_Str; static char *Ins_Mode_Str; /* = "\033[4h"; */ /* ins mode (im) */ static char *Eins_Mode_Str; /* = "\033[4l"; */ /* end ins mode (ei) */ static char *Scroll_R_Str; /* = "\033[%d;%dr"; */ /* scroll region */ static char *Cls_Str; /* = "\033[2J\033[H"; */ /* cl termcap STR for ansi terminals */ static char *Rev_Vid_Str; /* = "\033[7m"; */ /* mr,so termcap string */ static char *Norm_Vid_Str; /* = "\033[m"; */ /* me,se termcap string */ static char *Del_Eol_Str; /* = "\033[K"; */ /* ce */ static char *Del_Char_Str; /* = "\033[P"; */ /* dc */ static char *Del_N_Lines_Str; /* = "\033[%dM"; */ /* DL */ static char *Add_N_Lines_Str; /* = "\033[%dL"; */ /* AL */ static char *Rev_Scroll_Str; static char *Curs_Up_Str; static char *Curs_F_Str; /* RI termcap string */ static char *Cursor_Visible_Str; /* vs termcap string */ static char *Cursor_Invisible_Str; /* vi termcap string */ static char *Start_Alt_Chars_Str; /* as */ static char *End_Alt_Chars_Str; /* ae */ static char *Enable_Alt_Char_Set; /* eA */ static char *Term_Init_Str; static char *Term_Reset_Str; /* static int Len_Curs_F_Str = 5; */ /* cm string has %i%d since termcap numbers columns from 0 */ /* char *CURS_POS_STR = "\033[%d;%df"; ansi-- hor and vert pos */ static char *Curs_Pos_Str; /* = "\033[%i%d;%dH";*/ /* cm termcap string */ /* scrolling region */ static int Scroll_r1 = 0, Scroll_r2 = 23; static int Cursor_r, Cursor_c; /* 0 based */ /* current attributes --- initialized to impossible value */ static SLtt_Char_Type Current_Fgbg = 0xFFFFFFFF; static int Cursor_Set; /* 1 if cursor position known, 0 * if not. -1 if only row is known */ #define MAX_OUTPUT_BUFFER_SIZE 4096 static unsigned char Output_Buffer[MAX_OUTPUT_BUFFER_SIZE]; static unsigned char *Output_Bufferp = Output_Buffer; unsigned long SLtt_Num_Chars_Output; int SLtt_flush_output (void) { int nwrite = 0; int n = (int) (Output_Bufferp - Output_Buffer); SLtt_Num_Chars_Output += n; while (n > 0) { nwrite = write (fileno(stdout), (char *) Output_Buffer + nwrite, n); if (nwrite == -1) { nwrite = 0; #ifdef EAGAIN if (errno == EAGAIN) continue; #endif #ifdef EINTR if (errno == EINTR) continue; #endif break; } n -= nwrite; } Output_Bufferp = Output_Buffer; return n; } int SLtt_Baud_Rate; static void tt_write(char *str, int n) { static unsigned long last_time; static int total; unsigned long now; int ndiff; if ((str == NULL) || (n <= 0)) return; total += n; while (1) { ndiff = MAX_OUTPUT_BUFFER_SIZE - (int) (Output_Bufferp - Output_Buffer); if (ndiff < n) { MEMCPY ((char *) Output_Bufferp, (char *) str, ndiff); Output_Bufferp += ndiff; SLtt_flush_output (); n -= ndiff; str += ndiff; } else { MEMCPY ((char *) Output_Bufferp, str, n); Output_Bufferp += n; break; } } if (((SLtt_Baud_Rate > 150) && (SLtt_Baud_Rate <= 9600)) && (10 * total > SLtt_Baud_Rate)) { total = 0; if ((now = (unsigned long) time(NULL)) - last_time <= 1) { SLtt_flush_output (); sleep((unsigned) 1); } last_time = now; } } void SLtt_write_string(char *str) { if (str != NULL) tt_write(str, strlen(str)); } void SLtt_putchar(char ch) { SLtt_normal_video (); if (Cursor_Set == 1) { if (ch >= ' ') Cursor_c++; else if (ch == '\b') Cursor_c--; else if (ch == '\r') Cursor_c = 0; else Cursor_Set = 0; if ((Cursor_c + 1 == SLtt_Screen_Cols) && Automatic_Margins) Cursor_Set = 0; } if (Output_Bufferp < Output_Buffer + MAX_OUTPUT_BUFFER_SIZE) { *Output_Bufferp++ = (unsigned char) ch; } else tt_write (&ch, 1); } /* this is supposed to be fast--- also handles termcap: %d, &i, %., %+, %r strings as well as terminfo stuff */ static int tt_sprintf(char *buf, char *fmt, int x, int y) { register unsigned char *f = (unsigned char *) fmt, *b, ch; int offset = 0, tinfo = 0; int stack[10]; int i = 0, z; stack[0] = y; stack[1] = x; i = 2; b = (unsigned char *) buf; if (fmt != NULL) while ((ch = *f++) != 0) { if (ch != '%') *b++ = ch; else { ch = *f++; if (tinfo) { if ((ch <= '3') && (ch >= '0')) { /* map it to termcap. Since this is terminfo, * it must be one of: * %2d, %3d, %02d, %03d * * I am assuming that a terminal that understands * %2d form will also understand the %02d form. These * only differ by a space padding the field. */ /* skip the 'd'-- hope it is there */ if (ch == '0') { ch = *f; f += 2; } else f++; } } if (ch == 'p') { tinfo = 1; ch = *f++; if (ch == '1') stack[i++] = x; else stack[i++] = y; } else if (ch == '\'') /* 'x' */ { stack[i++] = *f++; f++; } else if ((ch == 'd') || (ch == '2') || (ch == '3')) { z = stack[--i]; z += offset; if (z >= 100) { *b++ = z / 100 + '0'; z = z % 100; goto ten; } else if (ch == 3) { *b++ = '0'; ch = '2'; } if (z >= 10) { ten: *b++ = z / 10 + '0'; z = z % 10; } else if (ch == 2) *b++ = '0'; *b++ = z + '0'; } else if (ch == 'i') { offset = 1; } else if (ch == '+') { if (tinfo) { z = stack[--i]; stack[i-1] += z; } else { ch = *f++; if ((unsigned char) ch == 128) ch = 0; ch = ch + (unsigned char) stack[--i]; if (ch == '\n') ch++; *b++ = ch; } } else if (ch == 'r') { stack[0] = x; stack[1] = y; } else if ((ch == '.') || (ch == 'c')) { ch = (unsigned char) stack[--i]; if (ch == '\n') ch++; *b++ = ch; } else *b++ = ch; } } *b = 0; return((int) (b - (unsigned char *) buf)); } static void tt_printf(char *fmt, int x, int y) { char buf[256]; int n; if (fmt == NULL) return; n = tt_sprintf(buf, fmt, x, y); tt_write(buf, n); } void SLtt_set_scroll_region (int r1, int r2) { Scroll_r1 = r1; Scroll_r2 = r2; tt_printf (Scroll_R_Str, Scroll_r1, Scroll_r2); Cursor_Set = 0; } void SLtt_reset_scroll_region (void) { SLtt_set_scroll_region(0, SLtt_Screen_Rows - 1); } int SLtt_set_cursor_visibility (int show) { if (show) { if (Cursor_Visible_Str != NULL) SLtt_write_string (Cursor_Visible_Str); else return -1; return 0; } if (Cursor_Invisible_Str != NULL) SLtt_write_string (Cursor_Invisible_Str); else return -1; return 0; } /* the goto_rc function moves to row relative to scrolling region */ void SLtt_goto_rc(int r, int c) { char *s = NULL; int n; char buf[6]; if (c < 0) { c = -c - 1; Cursor_Set = 0; } /* if (No_Move_In_Standout && Current_Fgbg) SLtt_normal_video (); */ r += Scroll_r1; if ((Cursor_Set > 0) || ((Cursor_Set < 0) && !Automatic_Margins)) { n = r - Cursor_r; if ((n == -1) && (Cursor_Set > 0) && (Cursor_c == c) && (Curs_Up_Str != NULL)) { s = Curs_Up_Str; } else if ((n >= 0) && (n <= 4)) { if ((n == 0) && (Cursor_Set == 1) && ((c > 1) || (c == Cursor_c))) { if (Cursor_c == c) return; if (Cursor_c == c + 1) { s = buf; *s++ = '\b'; *s = 0; s = buf; } } else if (c == 0) { s = buf; if ((Cursor_Set != 1) || (Cursor_c != 0)) *s++ = '\r'; while (n--) *s++ = '\n'; #ifdef VMS /* Need to add this after \n to start a new record. Sheesh. */ *s++ = '\r'; #endif *s = 0; s = buf; } /* Will fail on VMS */ #ifndef VMS else if (SLtt_Newline_Ok && (Cursor_Set == 1) && (Cursor_c >= c) && (c + 3 > Cursor_c)) { s = buf; while (n--) *s++ = '\n'; n = Cursor_c - c; while (n--) *s++ = '\b'; *s = 0; s = buf; } #endif } } if (s != NULL) SLtt_write_string(s); else tt_printf(Curs_Pos_Str, r, c); Cursor_c = c; Cursor_r = r; Cursor_Set = 1; } void SLtt_begin_insert (void) { SLtt_write_string(Ins_Mode_Str); } void SLtt_end_insert (void) { SLtt_write_string(Eins_Mode_Str); } void SLtt_delete_char (void) { SLtt_normal_video (); SLtt_write_string(Del_Char_Str); } void SLtt_erase_line (void) { char *s; Current_Fgbg = 0xFFFFFFFF; SLtt_write_string("\r"); Cursor_Set = 1; Cursor_c = 0; if (SLtt_Use_Ansi_Colors) s = "\033[0m"; else s = Norm_Vid_Str; SLtt_write_string(s); SLtt_del_eol(); } void SLtt_delete_nlines (int n) { int r1, curs; char buf[132]; if (!n) return; SLtt_normal_video (); if (Del_N_Lines_Str != NULL) tt_printf(Del_N_Lines_Str,n, 0); else /* get a new terminal */ { r1 = Scroll_r1; curs = Cursor_r; SLtt_set_scroll_region(curs, Scroll_r2); SLtt_goto_rc(Scroll_r2 - Scroll_r1, 0); MEMSET(buf, '\n', n); tt_write(buf, n); /* while (n--) tt_putchar('\n'); */ SLtt_set_scroll_region(r1, Scroll_r2); SLtt_goto_rc(curs, 0); } } void SLtt_cls (void) { SLtt_normal_video(); SLtt_reset_scroll_region (); SLtt_write_string(Cls_Str); } void SLtt_reverse_index (int n) { if (!n) return; SLtt_normal_video(); if (Add_N_Lines_Str != NULL) tt_printf(Add_N_Lines_Str,n, 0); else { while(n--) SLtt_write_string(Rev_Scroll_Str); } } int SLtt_Ignore_Beep = 3; static char *Visible_Bell_Str; void SLtt_beep (void) { if (SLtt_Ignore_Beep & 0x1) SLtt_putchar('\007'); if (SLtt_Ignore_Beep & 0x2) { if (Visible_Bell_Str != NULL) SLtt_write_string (Visible_Bell_Str); else if (Linux_Console) { SLtt_write_string ("\033[?5h"); SLtt_flush_output (); /* usleep (50000); */ sleep (50000); SLtt_write_string ("\033[?5l"); } } SLtt_flush_output (); } void SLtt_del_eol (void) { if (Current_Fgbg != 0xFFFFFFFF) SLtt_normal_video (); SLtt_write_string(Del_Eol_Str); } typedef struct { char *name; SLtt_Char_Type color; } Color_Def_Type; static Color_Def_Type Color_Defs[16] = { {"black", 0x00000000}, {"red", 0x00000100}, {"green", 0x00000200}, {"brown", 0x00000300}, {"blue", 0x00000400}, {"magenta", 0x00000500}, {"cyan", 0x00000600}, {"lightgray", 0x00000700}, {"gray", 0x00000800}, {"brightred", 0x00000900}, {"brightgreen", 0x00000A00}, {"yellow", 0x00000B00}, {"brightblue", 0x00000C00}, {"brightmagenta", 0x00000D00}, {"brightcyan", 0x00000E00}, {"white", 0x00000F00} }; void SLtt_set_mono (int obj, char *what, SLtt_Char_Type mask) { if ((obj < 0) || (obj >= JMAX_COLORS)) { return; } Ansi_Color_Map[obj].mono = mask & ATTR_MASK; } static unsigned char FgBg_Stats[JMAX_COLORS]; void SLtt_set_color_object (int obj, SLtt_Char_Type attr) { char *cust_esc; if ((obj < 0) || (obj >= JMAX_COLORS)) return; cust_esc = Ansi_Color_Map[obj].custom_esc; if (cust_esc != NULL) { SLFREE (cust_esc); FgBg_Stats[(Ansi_Color_Map[obj].fgbg >> 8) & 0x7F] -= 1; Ansi_Color_Map[obj].custom_esc = NULL; } Ansi_Color_Map[obj].fgbg = attr; } void SLtt_add_color_attribute (int obj, SLtt_Char_Type attr) { if ((obj < 0) || (obj >= JMAX_COLORS)) return; Ansi_Color_Map[obj].fgbg |= (attr & ATTR_MASK); } void SLtt_set_color (int obj, char *what, char *fg, char *bg) { int i; SLtt_Char_Type f = 0xFFFFFFFF, g = 0xFFFFFFFF; SLtt_Char_Type attr = 0; if ((obj < 0) || (obj >= JMAX_COLORS)) { return; } i = 0; while (i < 16) { if (!strcmp(fg, Color_Defs[i].name)) { f = Color_Defs[i].color; if (f & 0x800) { f &= 0x700; attr = SLTT_BOLD_MASK; } break; } i++; } i = 0; while (i < 16) { if (!strcmp(bg, Color_Defs[i].name)) { g = Color_Defs[i].color; g &= 0x700; g = g << 8; break; } i++; } if ((f == 0xFFFFFFFF) || (g == 0xFFFFFFFF) || ((f == g) && (attr == 0))) return; SLtt_set_color_object (obj, f | g | attr); } void SLtt_set_color_esc (int obj, char *esc) { char *cust_esc; SLtt_Char_Type fgbg = 0; int i; if ((obj < 0) || (obj >= JMAX_COLORS)) { return; } cust_esc = Ansi_Color_Map[obj].custom_esc; if (cust_esc != NULL) { SLFREE (cust_esc); FgBg_Stats[(Ansi_Color_Map[obj].fgbg >> 8) & 0x7F] -= 1; } cust_esc = (char *) SLMALLOC (strlen(esc) + 1); if (cust_esc != NULL) strcpy (cust_esc, esc); Ansi_Color_Map[obj].custom_esc = cust_esc; if (cust_esc == NULL) fgbg = 0; else { /* The whole point of this is to generate a unique fgbg */ for (i = 0; i < JMAX_COLORS; i++) { if (FgBg_Stats[i] == 0) fgbg = i; if (obj == i) continue; if ((Ansi_Color_Map[i].custom_esc) == NULL) continue; if (!strcmp (Ansi_Color_Map[i].custom_esc, cust_esc)) { fgbg = (Ansi_Color_Map[i].fgbg >> 8) & 0x7F; break; } } FgBg_Stats[fgbg] += 1; } fgbg |= 0x80; Ansi_Color_Map[obj].fgbg = (fgbg | (fgbg << 8)) << 8; } void SLtt_set_alt_char_set (int i) { static int last_i; if (SLtt_Has_Alt_Charset == 0) return; if (i == last_i) return; SLtt_write_string (i ? Start_Alt_Chars_Str : End_Alt_Chars_Str ); last_i = i; } static void write_attributes (SLtt_Char_Type fgbg) { int bg0, fg0; if (Worthless_Highlight) return; if (fgbg == Current_Fgbg) return; /* Before spitting out colors, fix attributes */ if ((fgbg & ATTR_MASK) != (Current_Fgbg & ATTR_MASK)) { if (Current_Fgbg & ATTR_MASK) { SLtt_write_string(Norm_Vid_Str); /* In case normal video turns off ALL attributes: */ if (fgbg & SLTT_ALTC_MASK) Current_Fgbg &= ~SLTT_ALTC_MASK; } if ((fgbg & SLTT_ALTC_MASK) != (Current_Fgbg & SLTT_ALTC_MASK)) { SLtt_set_alt_char_set ((int) (fgbg & SLTT_ALTC_MASK)); } if (fgbg & SLTT_ULINE_MASK) SLtt_write_string (UnderLine_Vid_Str); if (fgbg & SLTT_BOLD_MASK) SLtt_bold_video (); if (fgbg & SLTT_REV_MASK) SLtt_write_string (Rev_Vid_Str); if (fgbg & SLTT_BLINK_MASK) { /* Someday Linux will have a blink mode that set high intensity * background. Lets be prepared. */ if (SLtt_Blink_Mode) SLtt_write_string (Blink_Vid_Str); } } if (SLtt_Use_Ansi_Colors) { fg0 = (int) GET_FG(fgbg); bg0 = (int) GET_BG(fgbg); tt_printf(Color_Escape_Sequence, fg0, bg0); } Current_Fgbg = fgbg; } static int Video_Initialized; void SLtt_reverse_video (int color) { SLtt_Char_Type fgbg; char *esc; if (Worthless_Highlight) return; if ((color < 0) || (color >= JMAX_COLORS)) return; if (Video_Initialized == 0) { if (color == JNORMAL_COLOR) { SLtt_write_string (Norm_Vid_Str); } else SLtt_write_string (Rev_Vid_Str); Current_Fgbg = 0xFFFFFFFF; return; } if (SLtt_Use_Ansi_Colors) { fgbg = Ansi_Color_Map[color].fgbg; if ((esc = Ansi_Color_Map[color].custom_esc) != NULL) { if (fgbg != Current_Fgbg) { Current_Fgbg = fgbg; SLtt_write_string (esc); return; } } } else fgbg = Ansi_Color_Map[color].mono; if (fgbg == Current_Fgbg) return; write_attributes (fgbg); } void SLtt_normal_video (void) { SLtt_reverse_video(JNORMAL_COLOR); } void SLtt_narrow_width (void) { SLtt_write_string("\033[?3l"); } void SLtt_wide_width (void) { SLtt_write_string("\033[?3h"); } /* Highest bit represents the character set. */ #define COLOR_MASK 0x7F00 #define COLOR_OF(x) (((unsigned int)(x) & COLOR_MASK) >> 8) /* #define COLOR_EQS(a, b) \ (Ansi_Color_Map[COLOR_OF(a)].fgbg == Ansi_Color_Map[COLOR_OF(b)].fgbg) */ #define COLOR_EQS(a, b) \ (SLtt_Use_Ansi_Colors \ ? (Ansi_Color_Map[COLOR_OF(a)].fgbg == Ansi_Color_Map[COLOR_OF(b)].fgbg)\ : (Ansi_Color_Map[COLOR_OF(a)].mono == Ansi_Color_Map[COLOR_OF(b)].mono)) #define CHAR_EQS(a, b) (((a) == (b))\ || ((((a) & ~COLOR_MASK) == ((b) & ~COLOR_MASK))\ && COLOR_EQS((a), (b)))) static void send_attr_str(unsigned short *s) { unsigned char out[256], ch, *p; register SLtt_Char_Type attr; register unsigned short sh; int color, last_color = -1; p = out; while (0 != (sh = *s++)) { ch = sh & 0xFF; color = ((int) sh & 0xFF00) >> 8; if (color != last_color) { if (SLtt_Use_Ansi_Colors) attr = Ansi_Color_Map[color & 0x7F].fgbg; else attr = Ansi_Color_Map[color & 0x7F].mono; if (sh & 0x8000) /* alternate char set */ { if (SLtt_Use_Blink_For_ACS) { if (SLtt_Blink_Mode) attr |= SLTT_BLINK_MASK; } else attr |= SLTT_ALTC_MASK; } if (attr != Current_Fgbg) { if ((ch != ' ') || /* it is a space so only consider it different if it * has different attributes. */ (attr & BGALL_MASK) != (Current_Fgbg & BGALL_MASK)) { if (p != out) { *p = 0; SLtt_write_string((char *) out); Cursor_c += (int) (p - out); p = out; } if (SLtt_Use_Ansi_Colors && (NULL != Ansi_Color_Map[color & 0x7F].custom_esc)) { SLtt_write_string (Ansi_Color_Map[color & 0x7F].custom_esc); /* Just in case the custom escape sequence screwed up * the alt character set state... */ if ((attr & SLTT_ALTC_MASK) != (Current_Fgbg & SLTT_ALTC_MASK)) SLtt_set_alt_char_set ((int) (attr & SLTT_ALTC_MASK)); Current_Fgbg = attr; } else write_attributes (attr); last_color = color; } } } *p++ = ch; } *p = 0; if (p != out) SLtt_write_string((char *) out); Cursor_c += (int) (p - out); } static void forward_cursor (int n, int row) { char buf[30]; if (n <= 4) { Cursor_c += n; SLtt_normal_video (); MEMSET (buf, ' ', n); tt_write (buf, n); } else if (Curs_F_Str != NULL) { Cursor_c += n; n = tt_sprintf(buf, Curs_F_Str, n, 0); tt_write(buf, n); } else SLtt_goto_rc (row, Cursor_c + n); } #define SPACE_CHAR (0x20 | (JNORMAL_COLOR << 8)) void SLtt_smart_puts(unsigned short *neww, unsigned short *oldd, int len, int row) { register unsigned short *p, *q, *qmax, *pmax, *buf; unsigned short buffer[256]; int n_spaces; unsigned short *space_match, *last_buffered_match; q = oldd; p = neww; qmax = oldd + len; pmax = p + len; /* Find out where to begin --- while they match, we are ok */ for (;;) { if (q == qmax) return; if (!CHAR_EQS(*q, *p)) break; q++; p++; } /*position the cursor */ SLtt_goto_rc (row, (int) (p - neww)); /* Find where the last non-blank character on old/new screen is */ while (qmax > q) { qmax--; if (!CHAR_EQS(*qmax, SPACE_CHAR)) { qmax++; break; } } while (pmax > p) { pmax--; if (!CHAR_EQS(*pmax, SPACE_CHAR)) { pmax++; break; } } last_buffered_match = buf = buffer; /* buffer is empty */ /* loop using overwrite then skip algorithm until done */ while (1) { /* while they do not match and we do not hit a space, buffer them up */ n_spaces = 0; while (p < pmax) { if (CHAR_EQS(*q,SPACE_CHAR) && CHAR_EQS(*p, SPACE_CHAR)) { /* If *q is not a space, we would have to overwrite it. * However, if *q is a space, then while *p is also one, * we only need to skip over the blank field. */ space_match = p; p++; q++; while ((p < pmax) && CHAR_EQS(*q,SPACE_CHAR) && CHAR_EQS(*p, SPACE_CHAR)) { p++; q++; } n_spaces = (int) (p - space_match); break; } if (CHAR_EQS(*q, *p)) break; *buf++ = *p++; q++; } *buf = 0; if (buf != buffer) send_attr_str (buffer); buf = buffer; if (n_spaces && (p < pmax)) { forward_cursor (n_spaces, row); } /* Now we overwrote what we could and cursor is placed at position * of a possible match of new and old. If this is the case, skip * some more. */ while ((p < pmax) && CHAR_EQS(*p, *q)) { *buf++ = *p++; q++; } last_buffered_match = buf; if (p >= pmax) break; /* jump to new position is it is greater than 5 otherwise * let it sit in the buffer and output it later. */ if ((int) (buf - buffer) >= 5) { forward_cursor (buf - buffer, row); last_buffered_match = buf = buffer; } } if (buf != buffer) { if (q < qmax) { if ((buf == last_buffered_match) && ((int) (buf - buffer) >= 5)) { forward_cursor (buf - buffer, row); } else { *buf = 0; send_attr_str (buffer); } } } if (q < qmax) SLtt_del_eol (); if (Automatic_Margins && (Cursor_c + 1 >= SLtt_Screen_Cols)) Cursor_Set = 0; } /* termcap stuff */ #ifdef unix #define EXTERN extern #ifndef USE_TERMCAP static char *Tbuf; static char *Tstr_Buf; #define tgetstr SLtt_tigetstr #define tgetent SLtt_tigetent #define TGETNUM(x) SLtt_tigetnum((x), &Tbuf) #define TGETFLAG(x) SLtt_tigetflag((x), &Tbuf) #else EXTERN char *tgetstr(char *, char **); EXTERN int tgetent(char *, char *); EXTERN int tgetnum(char *); EXTERN int tgetflag(char *); static char Tstr_Buf[1024]; static char Tbuf[4096]; #define TGETNUM tgetnum #define TGETFLAG tgetflag #endif static char *my_tgetstr(char *what, char **p) { register char *w, *w1; char *wsave; what = tgetstr(what, p); if (what != NULL) { /* lose pad info --- with today's technology, term is a loser if it is really needed */ while ((*what == '.') || ((*what >= '0') && (*what <= '9'))) what++; if (*what == '*') what++; /* lose terminfo padding--- looks like $<...> */ w = what; while (*w) if ((*w++ == '$') && (*w == '<')) { w1 = w - 1; while (*w && (*w != '>')) w++; if (*w == 0) break; w++; wsave = w1; while ((*w1++ = *w++) != 0); w = wsave; } if (*what == 0) what = NULL; } return(what); } char *SLtt_tgetstr (char *s) { #ifdef USE_TERMCAP static #endif char *p = Tstr_Buf; return my_tgetstr (s, &p); } int SLtt_tgetnum (char *s) { return TGETNUM (s); } int SLtt_tgetflag (char *s) { return TGETFLAG (s); } static int Vt100_Like = 0; void SLtt_get_terminfo (void) { char *term, *t, ch; int is_xterm; SLtt_Use_Ansi_Colors = (NULL != getenv ("COLORTERM")); if (NULL == (term = (char *) getenv("TERM"))) { SLang_exit_error("TERM environment variable needs set."); } Linux_Console = (!strncmp (term, "linux", 5) #ifdef linux || !strncmp(term, "con", 3) #endif ); t = term; if (strcmp(t, "vt52") && (*t++ == 'v') && (*t++ == 't') && (ch = *t, (ch >= '1') && (ch <= '9'))) Vt100_Like = 1; #ifndef USE_TERMCAP if (NULL == (Tbuf = tgetent (term))) { char err_buf[512]; /* Special cases. */ if (Vt100_Like || Linux_Console || !strcmp (term, "screen")) { int vt102 = 1; if (!strcmp (term, "vt100")) vt102 = 0; SLtt_Screen_Cols = 80; SLtt_Screen_Rows = 24; if (Linux_Console) SLtt_Screen_Rows++; SLtt_set_term_vtxxx (&vt102); return; } sprintf (err_buf, "Unknown terminal: %s\n\ Check the TERM environment variable.\n\ Also make sure that the terminal is defined in the terminfo database.\n\ Alternatively, set the TERMCAP environment variable to the desired\n\ termcap entry.", term); SLang_exit_error(err_buf); } Tstr_Buf = Tbuf; #else /* USE_TERMCAP */ if (1 != tgetent(Tbuf, term)) SLang_exit_error("Unknown terminal."); #endif /* NOT USE_TERMCAP */ if ((NULL == (Cls_Str = SLtt_tgetstr("cl"))) || (NULL == (Curs_Pos_Str = SLtt_tgetstr("cm")))) { SLang_exit_error("Terminal not powerful enough for SLang."); } if ((NULL == (Ins_Mode_Str = SLtt_tgetstr("im"))) || ( NULL == (Eins_Mode_Str = SLtt_tgetstr("ei"))) || ( NULL == (Del_Char_Str = SLtt_tgetstr("dc")))) SLtt_Term_Cannot_Insert = 1; Visible_Bell_Str = SLtt_tgetstr ("vb"); Curs_Up_Str = SLtt_tgetstr ("up"); Rev_Scroll_Str = SLtt_tgetstr("sr"); Del_N_Lines_Str = SLtt_tgetstr("DL"); Add_N_Lines_Str = SLtt_tgetstr("AL"); /* Actually these are used to initialize terminals that use cursor * addressing. Hard to believe. */ Term_Init_Str = SLtt_tgetstr ("ti"); Term_Reset_Str = SLtt_tgetstr ("te"); /* Make up for defective termcap/terminfo databases */ if ((Vt100_Like && (term[2] != '1')) || Linux_Console ) { if (Del_N_Lines_Str == NULL) Del_N_Lines_Str = "\033[%dM"; if (Add_N_Lines_Str == NULL) Add_N_Lines_Str = "\033[%dL"; } Scroll_R_Str = SLtt_tgetstr("cs"); if ((SLtt_Screen_Rows == 0) || (SLtt_Screen_Cols == 0)) { char *envptr; if ((SLtt_Screen_Cols = TGETNUM("co")) <= 0) SLtt_Screen_Cols = 80; if ((SLtt_Screen_Rows = TGETNUM("li")) <= 0) SLtt_Screen_Rows = 24; envptr = getenv ("LINES"); if (envptr != NULL) { if ((SLtt_Screen_Rows = atoi (envptr)) <= 0) SLtt_Screen_Rows = 24; } envptr = getenv ("COLUMNS"); if (envptr != NULL) { if ((SLtt_Screen_Cols = atoi (envptr)) <= 0) SLtt_Screen_Cols = 80; } } is_xterm = !strncmp (term, "xterm", 5); if ((Scroll_R_Str == NULL) || (((NULL == Del_N_Lines_Str) || (NULL == Add_N_Lines_Str)) && (NULL == Rev_Scroll_Str))) { if (is_xterm) { /* Defective termcap mode!!!! */ SLtt_set_term_vtxxx (&is_xterm); } else SLtt_Term_Cannot_Scroll = 1; } Del_Eol_Str = SLtt_tgetstr("ce"); Rev_Vid_Str = SLtt_tgetstr("mr"); if (Rev_Vid_Str == NULL) Rev_Vid_Str = SLtt_tgetstr("so"); Bold_Vid_Str = SLtt_tgetstr("md"); Blink_Vid_Str = SLtt_tgetstr("mb"); UnderLine_Vid_Str = SLtt_tgetstr("us"); Start_Alt_Chars_Str = SLtt_tgetstr ("as"); End_Alt_Chars_Str = SLtt_tgetstr ("ae"); Enable_Alt_Char_Set = SLtt_tgetstr ("eA"); /* I have had it with defective console/linux terminfo entries provided * by ncurses. They are not reliable. I cannot track every ncurses * release and fudge my stuff to work with defective stuff. For that * reason, I am hardcoding some things. */ if (Linux_Console) { SLtt_Graphics_Char_Pairs = "l\332m\300k\277j\331u\264t\303v\301w\302q\304x\263n\053o\176s\137`\004a\260f\370g\361~\011,\020+\021.\031-\030h\261i\0250\333"; Start_Alt_Chars_Str = "\033(B\033)U\016"; End_Alt_Chars_Str = "\033(B\033)0\017"; Enable_Alt_Char_Set = NULL; } else if (NULL == (SLtt_Graphics_Char_Pairs = SLtt_tgetstr ("ac"))) { /* make up for defective termcap/terminfo */ if (Vt100_Like) { Start_Alt_Chars_Str = "\016"; End_Alt_Chars_Str = "\017"; Enable_Alt_Char_Set = "\033)0"; } } if (is_xterm) { Start_Alt_Chars_Str = "\016"; End_Alt_Chars_Str = "\017"; Enable_Alt_Char_Set = "\033(B\033)0"; } if ((SLtt_Graphics_Char_Pairs == NULL) && ((Start_Alt_Chars_Str == NULL) || (End_Alt_Chars_Str == NULL))) { SLtt_Has_Alt_Charset = 0; Enable_Alt_Char_Set = NULL; } else SLtt_Has_Alt_Charset = 1; if (NULL == (Norm_Vid_Str = SLtt_tgetstr("me"))) { Norm_Vid_Str = SLtt_tgetstr("se"); } Cursor_Invisible_Str = SLtt_tgetstr("vi"); Cursor_Visible_Str = SLtt_tgetstr("vs"); Curs_F_Str = SLtt_tgetstr("RI"); #if 0 if (NULL != Curs_F_Str) { Len_Curs_F_Str = strlen(Curs_F_Str); } else Len_Curs_F_Str = strlen(Curs_Pos_Str); #endif Automatic_Margins = TGETFLAG ("am"); /* No_Move_In_Standout = !TGETFLAG ("ms"); */ Worthless_Highlight = TGETFLAG ("xs"); if (Worthless_Highlight == 0) { Worthless_Highlight = (TGETNUM ("sg") > 0); } } #endif /* Unix */ /* specific to vtxxx only */ void SLtt_enable_cursor_keys (void) { #ifdef unix if (Vt100_Like) #endif SLtt_write_string("\033=\033[?1l"); } #ifdef VMS void SLtt_get_terminfo () { int zero = 0; SLtt_set_term_vtxxx(&zero); Start_Alt_Chars_Str = "\016"; End_Alt_Chars_Str = "\017"; SLtt_Has_Alt_Charset = 1; SLtt_Graphics_Char_Pairs = "aaffgghhjjkkllmmnnooqqssttuuvvwwxx"; Enable_Alt_Char_Set = "\033(B\033)0"; } #endif /* This sets term for vt102 terminals it parameter vt100 is 0. If vt100 * is non-zero, set terminal appropriate for a only vt100 * (no add line capability). */ void SLtt_set_term_vtxxx(int *vt100) { Norm_Vid_Str = "\033[m"; Scroll_R_Str = "\033[%i%d;%dr"; Cls_Str = "\033[2J\033[H"; Rev_Vid_Str = "\033[7m"; Bold_Vid_Str = "\033[1m"; Blink_Vid_Str = "\033[5m"; UnderLine_Vid_Str = "\033[4m"; Del_Eol_Str = "\033[K"; Rev_Scroll_Str = "\033M"; Curs_F_Str = "\033[%dC"; /* Len_Curs_F_Str = 5; */ Curs_Pos_Str = "\033[%i%d;%dH"; if (*vt100 == 0) { Ins_Mode_Str = "\033[4h"; Eins_Mode_Str = "\033[4l"; Del_Char_Str = "\033[P"; Del_N_Lines_Str = "\033[%dM"; Add_N_Lines_Str = "\033[%dL"; SLtt_Term_Cannot_Insert = 0; } else { Del_N_Lines_Str = NULL; Add_N_Lines_Str = NULL; SLtt_Term_Cannot_Insert = 1; } SLtt_Term_Cannot_Scroll = 0; /* No_Move_In_Standout = 0; */ } void SLtt_init_video (void) { /* send_string_to_term("\033[?6h"); */ /* relative origin mode */ SLtt_write_string (Term_Init_Str); SLtt_reset_scroll_region(); SLtt_end_insert(); SLtt_write_string (Enable_Alt_Char_Set); Video_Initialized = 1; } void SLtt_reset_video (void) { SLtt_goto_rc (SLtt_Screen_Rows - 1, 0); Cursor_Set = 0; SLtt_normal_video (); /* MSKermit requires this */ SLtt_write_string(Norm_Vid_Str); Current_Fgbg = 0xFFFFFFFF; SLtt_set_alt_char_set (0); SLtt_write_string ("\n"); SLtt_del_eol (); SLtt_write_string (Term_Reset_Str); SLtt_flush_output (); Video_Initialized = 0; } void SLtt_bold_video (void) { SLtt_write_string (Bold_Vid_Str); } int SLtt_set_mouse_mode (int mode, int force) { char *term; if (force == 0) { if (NULL == (term = (char *) getenv("TERM"))) return -1; if (strncmp ("xterm", term, 5)) return -1; } if (mode) SLtt_write_string ("\033[?9h"); else SLtt_write_string ("\033[?9l"); return 0; } \n"); SLtt_del_eol (); SLtt_write_string (Term_Reset_Str); SLtt_flush_output (); Video_Initialized = 0; } void SLtt_bold_video (void) { SLtt_write_string (Bold_Vid_Str); } slang-0.99.12/src/sldjgpp.rsp000064400000000000003000000004210603742322300156120ustar00rootsys00000000000000slang.o slparse.o slmath.o slfile.o slstd.o slarray.o slregexp.o slmatrix.o slkeymap.o slmemcpy.o slmemcmp.o slmemset.o slmemchr.o slxstrng.o slerr.o sldostty.o slgetkey.o slrline.o slunix.o sltoken.o slsearch.o slvideo.o slsmg.o slmalloc.o slclass.o slmisc.o slprepr.o SLtt_write_string ("\033[?9l"); return 0; } \n"); SLtt_del_eol (); SLtt_write_string (Term_Reset_Str); SLtt_flush_output (); Video_Initialized = 0; } void SLtt_bold_video (void) { SLtt_write_string (Bold_Vid_Str); } slang-0.99.12/src/sldostty.c000064400000000000003000000166470603742322300154730ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #include #if defined (__EMX__) # define int86 _int86 # define delay _sleep2 #endif /* __EMX__ */ #if defined (__WATCOMC__) # include # include # define int86 int386 #else # define _NKEYBRD_READ 0x0 # define _NKEYBRD_READY 0x1 # define _NKEYBRD_SHIFTSTATUS 0x2 #endif /* __WATCOMC__ */ #define BIOSKEY slbioskey #if defined(__WATCOMC__) # define keyWaiting() _bios_keybrd(_NKEYBRD_READY) #else # define keyWaiting() BIOSKEY(_NKEYBRD_READY) #endif #include "slang.h" #include "_slang.h" #ifdef __cplusplus # define _DOTS_ ... #else # define _DOTS_ void #endif #if !defined (__EMX__) && !defined (__GO32__) && !defined (__WATCOMC__) #define HAS_INT9 #endif #if defined (HAS_INT9) static void interrupt (*int9_old) (_DOTS_); static unsigned char far *shift = (unsigned char far *) 0x417; static unsigned int Abort_Scan_Code = 34; /* 34 = scan code for ^G */ /*----------------------------------------------------------------------*\ * an interrupt 9 handler, not for use with most 32 bit compilers \*----------------------------------------------------------------------*/ static void interrupt int9_handler (_DOTS_) { unsigned char s, s1; s1 = *shift & 0xF; /* ignore caps, ins, num lock, scroll lock */ s = inp (0x60); if (s1 & 0x04) /* control key */ { if (s == Abort_Scan_Code) { if (SLang_Ignore_User_Abort == 0) SLang_Error = USER_BREAK; SLKeyBoard_Quit = 1; } } (*int9_old) (); } #endif /* HAS_INT9 */ static void int9_change (int set) { #if defined (HAS_INT9) if (set) /* install a new handler */ { if (int9_old != NULL) return; int9_old = getvect (9); setvect (9, int9_handler); } else if (int9_old != NULL) /* restore the old handler */ { setvect (9, int9_old); int9_old = NULL; } #else (void) set; #endif /* HAS_INT9 */ } /*----------------------------------------------------------------------*\ * Function: static void set_ctrl_break (int state); * * set the control-break setting \*----------------------------------------------------------------------*/ static void set_ctrl_break (int state) { #if defined (__EMX__) (void) state; /* not really required */ #else /* __EMX__ */ static int prev = 0; #if defined (__GO32__) if (state == 0) { prev = getcbrk (); setcbrk (0); } else { setcbrk (prev); } #else /* __GO32__ */ #if defined(__WATCOMC__) fprintf (stderr, "Have not yet defined set_ctrl_break for __WATCOMC__\n"); prev = state; #else asm mov dl, byte ptr prev asm mov ax, state asm cmp ax, 0 asm jne L1 asm mov ah, 33h asm mov al, 0 asm mov dl, byte ptr prev asm int 21h asm xor ax, ax asm mov al, dl asm mov prev, ax asm mov dl, 0 L1: asm mov al, 1 asm mov ah, 33h asm int 21h #endif /* __WATCOMC__ */ #endif /* __GO32__ */ #endif /* __EMX__ */ } /*----------------------------------------------------------------------*\ * static unsigned int slbioskey (int op); * * op 0-2 (standard) and 0x10-0x12 (extended) are valid * * 0, 0x10 _NKEYBRD_READ - read the key * 1, 0x11 _NKEYBRD_READY - check if a key is waiting * if so give a peek of its value, otherwise return 0 * 2, 0x12 _NKEYBRD_SHIFTSTATUS - get shift flags * (Ins, Cap, Num, Scroll, Alt, ^Ctrl L_shift, R_shift) * flags = ICNSA^LR only the lower byte is valid! \*----------------------------------------------------------------------*/ static int bios_key_f = 0; static unsigned int slbioskey (int op) { union REGS r; r.h.ah = (op & 0x03) | bios_key_f; int86 (0x16, &r, &r); #if defined(__WATCOMC__) /* return (_bios_keybrd ((op & 0x03) | bios_key_f)); */ #if 1 /* the correct zero flag for watcom? */ /* is zero flag set? (no key waiting) */ if ((op & _NKEYBRD_READY) && (r.x.cflag & 0x40) == 0x40) return 0; #else /* the correct zero flag for watcom? */ /* is zero flag set? (no key waiting) */ if ((op & _NKEYBRD_READY) && (r.x.cflag & 0x4)) return 0; #endif return (r.x.eax & 0xffff); #else /* is zero flag set? (no key waiting) */ if ((op & _NKEYBRD_READY) && (r.x.flags & 0x40) == 0x40) return 0; return (r.x.ax & 0xffff); #endif } /*----------------------------------------------------------------------*\ * Function: int SLang_init_tty (int abort_char, int no_flow_control, * int opost); * * initialize the keyboard interface and attempt to set-up the interrupt 9 * handler if ABORT_CHAR is non-zero. * NO_FLOW_CONTROL and OPOST are only for compatiblity and are ignored. \*----------------------------------------------------------------------*/ int SLang_init_tty (int abort_char, int no_flow_control, int opost) { (void) no_flow_control; (void) opost; bios_key_f = 0x10; /* assume it's an enhanced keyboard */ #if defined (HAS_INT9) bios_key_f &= peekb (0x40,0x96); /* verify it's true */ if (abort_char > 0) Abort_Scan_Code = (unsigned int) abort_char; #else (void) abort_char; #endif set_ctrl_break (0); /* clear keyboard buffer */ /* while (keyWaiting()) BIOSKEY(_NKEYBRD_READ); */ return 0; } /*----------------------------------------------------------------------*\ * Function: void SLang_reset_tty (void); * * reset the tty before exiting \*----------------------------------------------------------------------*/ void SLang_reset_tty (void) { int9_change (0); set_ctrl_break (1); } /*----------------------------------------------------------------------*\ * Function: int SLsys_input_pending (int tsecs); * * sleep for *tsecs tenths of a sec waiting for input \*----------------------------------------------------------------------*/ int SLsys_input_pending (int tsecs) { int count = tsecs * 5; if (keyWaiting()) return 1; while (count > 0) { delay (20); /* 20 ms or 1/50 sec */ if (keyWaiting()) break; count--; } return (count); } /*----------------------------------------------------------------------*\ * Function: unsigned int SLsys_getkey (void); * * wait for and get the next available keystroke. * Also re-maps some useful keystrokes. * * Backspace (^H) => Del (127) * Ctrl-Space => ^@ (^@^3 - a pc NUL char) * extended keys are prefixed by a null character \*----------------------------------------------------------------------*/ unsigned int SLsys_getkey (void) { unsigned int key, scan, ch, shift; #if 0 int tsecs = SL_input_time; /* tsecs = 300 */ if ((SLgetkey_hook != NULL) && !keyWaiting()) { while (!SLsys_input_pending(tsecs)) getkey_hook (); } #endif key = BIOSKEY(_NKEYBRD_READ); ch = key & 0xff; scan = key >> 8; shift = BIOSKEY(_NKEYBRD_SHIFTSTATUS) & 0xf; if (key == 0x0e08) ch = 127; /* Backspace key */ else if ((ch == 32) && (shift & 0x04)) /* ^space = ^@ */ { scan = 3; /* send back Ctrl-@ => ^@^C */ ch = 0; SLang_ungetkey (scan); } else if (!(ch) || (ch == 0xe0)) { ch = 0; /* extended key code */ SLang_ungetkey (scan); } return (ch); } /*----------------------------------------------------------------------*\ * Function: void SLang_set_abort_signal (void (*handler)(int)); \*----------------------------------------------------------------------*/ void SLang_set_abort_signal (void (*handler)(int)) { if (handler == NULL) int9_change (1); } /* send back Ctrl-@ => ^@^C */ ch = 0; SLang_ungetkey (scan); } else if (!(chslang-0.99.12/src/slerr.c000064400000000000003000000042100603742322300147140ustar00rootsys00000000000000/* error handling common to all routines. */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #ifndef NO_STDLIB_H #include #endif #include "slang.h" void (*SLang_Error_Routine)(char *); void (*SLang_Exit_Error_Hook)(char *); volatile int SLang_Error = 0; char *SLang_Error_Message; void SLang_doerror(char *error) { char err[256]; char *str = NULL; if (!SLang_Error) SLang_Error = UNKNOWN_ERROR; *err = 0; if (SLang_Error_Message != NULL) str = SLang_Error_Message; else switch(SLang_Error) { case UNDEFINED_NAME: str = "Undefined_Name"; break; case SYNTAX_ERROR: str = "Syntax Error"; break; case STACK_OVERFLOW: str = "Stack Overflow"; break; case STACK_UNDERFLOW: str = "Stack Underflow"; break; case DUPLICATE_DEFINITION: str = "Duplicate Definition"; break; case TYPE_MISMATCH: str = "Type Mismatch"; break; case READONLY_ERROR: str = "Variable is read only."; break; case SL_MALLOC_ERROR : str = "Malloc Error."; break; case SL_INVALID_PARM : str = "Invalid Parameter."; break; case USER_BREAK: str = "User Break!"; break; case INTRINSIC_ERROR: str = "Intrinsic Error"; break; case DIVIDE_ERROR: str = "Divide by zero."; break; /* application code should handle this */ default: if (error != NULL) str = error; else str = "Unknown Error."; } SLang_Error_Message = NULL; sprintf(err, "S-Lang Error: %s", str); if (SLang_Error_Routine == NULL) { if (error != NULL) { fputs(error, stderr); fputs("\r\n", stderr); } if (str != error) { fputs(err, stderr); fputs("\r\n", stderr); } } else { if (error != NULL) (*SLang_Error_Routine)(error); if (str != error) (*SLang_Error_Routine)(err); } } void SLang_exit_error (char *s) { if (SLang_Exit_Error_Hook != NULL) { (*SLang_Exit_Error_Hook) (s); } if (s != NULL) fprintf (stderr, "%s\n", s); exit (-1); } or_Routine == NULL) { if (error != NULL) { fputs(error, stderr); fputs("\r\n", stderr); } if (str != error) { fputs(err, stderr); fputs("\r\n", stderr); } } else { if (error != NULL) (*SLang_Error_Routine)(error); if (str != error) (*SLang_Error_Routine)(err); } } void SLang_exit_error (char *s) { if (SLaslang-0.99.12/src/slfile.h000064400000000000003000000013760603742322300150620ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ typedef struct { int fd; /* handle */ FILE *fp; /* kind of obvious */ unsigned int flags; /* modes, etc... */ #ifdef HAS_SUBPROCESSES int pid; /* pid of child (if any) */ #endif } SL_File_Table_Type; #define SL_MAX_FILES 30 extern SL_File_Table_Type SL_File_Table[SL_MAX_FILES]; #define SL_READ 0x01 #define SL_WRITE 0x02 #define SL_BINARY 0x04 #define SL_SOCKET 0x08 #define SL_PROCESS 0x10 #ifdef HAS_SUBPROCESSES extern int SLcreate_child_process (char *); #endif extern SL_File_Table_Type *get_file_table_entry(void); /* kind of obvious */ unsigned int flags; /* modes, etc... */ #ifdef HAS_SUBPROCESSES int pid; /* pid of child (if any) */ #endif } SL_File_Table_Type; #define SL_MAX_FILES 30 extern SL_File_Table_Type SL_File_Table[SL_MAX_FILESslang-0.99.12/src/slfile.c000064400000000000003000000246070603742322300150570ustar00rootsys00000000000000/* file intrinsics for S-Lang */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #if 0 #include #include #include #include #include #include #include #endif #include "slang.h" #include "_slang.h" #include "slfile.h" SL_File_Table_Type SL_File_Table[SL_MAX_FILES]; #if 0 static int tcp_open (char *service, char *host) { struct servent *sp; struct hostent *hp; struct sockaddr_in Read_Socket; int s; if (NULL == (sp = getservbyname (service, "tcp"))) { SLang_doerror ("Unknown service"); return -1; } if (NULL == (hp = gethostbyname(host))) { SLang_doerror ("Unknown host"); return -2; } bzero ((char *) &Read_Socket, sizeof (Read_Socket)); bcopy (hp->h_addr, (char *) &Read_Socket.sin_addr, hp->h_length); Read_Socket.sin_family = hp->h_addrtype; Read_Socket.sin_port = sp->s_port; if ((s = socket (AF_INET, SOCK_STREAM, 0)) < 0) { SLang_doerror ("Unable to create socket"); return -3; } if (connect (s, (char *) &Read_Socket, sizeof (Read_Socket)) < 0) { SLang_doerror ("Unable to connect."); return -4; } return s; } #endif SL_File_Table_Type *get_file_table_entry(void) { SL_File_Table_Type *t = SL_File_Table, *tmax; tmax = t + SL_MAX_FILES; while (t < tmax) { if (t->fd == -1) return t; t++; } return NULL; } static char *remake_string(char *s, int len) { len++; /* for null terminator */ if (s == NULL) { s = (char *) SLMALLOC(len); } else s = (char *) SLREALLOC(s, len); if (s == NULL) SLang_Error = SL_MALLOC_ERROR; return (s); } static unsigned int file_process_flags(char *mode) { char ch; unsigned int flags = 0; while ((ch = *mode++) != 0) { switch (ch) { case 'r': flags |= SL_READ; break; case 'w': case 'a': case 'A': flags |= SL_WRITE; break; case '+': flags |= SL_WRITE | SL_READ; break; case 'b': flags |= SL_BINARY; break; default: return(0); } } return (flags); } /* returns -1 upon failure or returns a handle to file */ static int SLfopen(char *file, char *mode) { FILE *fp; SL_File_Table_Type *t; unsigned int flags; if ((t = get_file_table_entry()) == NULL) return (-1); if (0 == (flags = file_process_flags(mode))) return (-1); if ((fp = fopen(file, mode)) == NULL) return (-1); t->fp = fp; t->fd = fileno(fp); t->flags = flags; #ifdef HAS_SUBPROCESSES t->pid = -1; #endif return ((int) (t - SL_File_Table)); } #if 0 int SLtcp_open(char *service, char *host) { SL_File_Table_Type *t; int fd; if ((t = get_file_table_entry()) == NULL) return (-1); if ((fd = tcp_open (service, host)) < 0) return -1; t->fp = fdopen (fd, "r+"); t->fd = fd; t->flags = SL_SOCKET | SL_READ | SL_WRITE; return ((int) (t - SL_File_Table)); } #endif /* returns pointer to file entry if it is open and consistent with flags. Returns NULL otherwise */ static SL_File_Table_Type *check_handle(int *h, unsigned int flags) { int n = *h; SL_File_Table_Type *t; if ((n < 0) || (n >= SL_MAX_FILES)) return(NULL); t = SL_File_Table + n; if (t->fd == -1) return (NULL); if (flags & t->flags) return (t); return NULL; } /* returns 0 upon failure or 1 if successful */ static int SLfclose(int *handle) { int ret = 0; SL_File_Table_Type *t = check_handle(handle, 0xFFFF); if (t == NULL) return 0; if (t->fp != NULL) { if (EOF != fclose (t->fp)) ret = 1; } #ifdef USE_SUBPROCESSES else if (t->fd != -1) { if (close (t->fd) == 0) ret = 1; } #endif t->fp = NULL; t->fd = -1; return (ret); } /* returns number of characters read and pushes the string to the stack. If it fails, it returns -1 */ static int SLfgets(int *handle) { char buf[256]; char *s = NULL, *s1; register char *b = buf, *bmax = b + 256; register int ch; int len = 0, dlen; SL_File_Table_Type *t; register FILE *fp; if (NULL == (t = check_handle(handle, SL_READ))) return (-1); fp = t->fp; while (EOF != (ch = getc(fp))) { if (b == bmax) { if (NULL == (s1 = remake_string(s, len + 256))) { if (s != NULL) SLFREE(s); return(-1); } s = s1; b = buf; strncpy(s + len, b, 256); len += 256; } *b++ = (char) ch; if (ch == '\n') break; } dlen = (int) (b - buf); if ((dlen == 0) && (s == NULL)) return(0); if (NULL == (s1 = remake_string(s, len + dlen))) { if (s != NULL) SLFREE(s); return(-1); } strncpy(s1 + len, buf, dlen); len += dlen; *(s1 + len) = 0; /* null terminate since strncpy may not have */ SLang_push_malloced_string(s1); return(len); } static int SLfputs(char *s, int *handle) { SL_File_Table_Type *t; if (NULL == (t = check_handle(handle, SL_WRITE))) return (-1); if (EOF == fputs(s, t->fp)) return (0); return (1); } #if 0 int SLinput_pending(int *handle, int *tsecs) { SL_File_Table_Type *t; struct timeval wait; fd_set readfd, writefd, exceptfd; long usecs, secs; int fd, ret; secs = *tsecs / 10; usecs = (*tsecs % 10) * 100000; wait.tv_sec = secs; wait.tv_usec = usecs; if (NULL == (t = check_handle(handle, SL_READ))) return (0); fd = t->fd; if (t->fp->_cnt) return 1; FD_SET(fd, &readfd); /* readfd = 1 << fd; */ FD_ZERO(&writefd); FD_ZERO(&exceptfd); ret = select(fd + 1, &readfd, &writefd, &exceptfd, &wait); return(ret); } #endif static int SLfflush(int *handle) { SL_File_Table_Type *t; if (NULL == (t = check_handle(handle, SL_WRITE))) return (-1); if (EOF == fflush(t->fp)) return (0); return (1); } static int slfile_stdin = 0; static int slfile_stdout = 1; static int slfile_stderr = 2; static SLang_Name_Type SLFiles_Name_Table[] = { MAKE_INTRINSIC(".fopen", SLfopen, INT_TYPE, 2), /* Prototype: Integer fopen(String file, String mode); * This function opens @file@ in @mode@ and returns a handle to the file. * returning handle to file. The string @mode@ can be any one of the * following values: * @ "r" Read only * @ "w" Write only * @ "a" Append * @ "r+" Reading and writing at the beginning of the file. * @ "w+" Reading and writing. File is created if it does not * @ exist; otherwise, it is truncated. * @ "a+" Reading and writing at the end of the file. It is created * @ if it does not exist. * In addition, the mode string can also include the letter @b@ as the * last character to indicate that the file is to be opened in binary * mode. This function returns -1 if the file could not be opened. Any * other value is a handle to the file. This handle must be used in other * file operations. * See also: @fclose@, @fgets@, @fputs@ */ MAKE_INTRINSIC(".fclose", SLfclose, INT_TYPE, 1), /* Prototype: Integer fclose (Integer handle); * This function is used to close a file specified by the integer * parameter @handle@. The file must have been previously opened by a call * to @fopen@. It returns: * @ 0 The file could not be closed or buffers could not be flushed. * @ 1 Success * @ -1 The handle was not associated with an open file handle. * Note: Most C programmers ignore the return value from the C function @fclose@. * In S-Lang, this return value must be dealt with. The simplist way is to * code it as: * @ () = fclose (handle); * if one really wants to ignore it. * See also: @fopen@, @fflush@ */ MAKE_INTRINSIC(".fgets", SLfgets, INT_TYPE, 1), /* Usage: [String] int fgets(int handle); Reads a line from the open file specified by handle. Returns: -1 if handle not associated with an open file. 0 if at end of file. Otherwise, returns the number of characters read. The second value on the stack is the string of characters. Example: variable buf, fp, n; fp = fopen("myfile", "r"); if (fp < 0) error("File not open!"); n = fgets(fp); if (n == 0) print("End of File!"); else if (n == -1) print("fgets failed!"); else buf = (); % characters left on the stack. */ MAKE_INTRINSIC(".fflush", SLfflush, INT_TYPE, 1), /* Usage: int fflush(int handle); flushes an output stream. returns: -1 if handle is not associated with an open stream 0 if fflush fails (lack of disk space, etc...) 1 success */ MAKE_INTRINSIC(".fputs", SLfputs, INT_TYPE, 2), /* Usage: int fputs(string buf, int handle); Writes a null terminated string (buf) to the open output stream (handle). returns: -1 if handle is not associated with an open output stream. 1 indicates success. */ #ifdef HAS_SUBPROCESSES MAKE_INTRINSIC(".create_process", SLcreate_child_process, INT_TYPE, 1), /*Prototype: (handle, pid) = create_process (String name); * This function returns the pid of the created process as well as * an open file handle for both read and write. It returns -1 for both * parameters upon failure. */ #endif #if 0 MAKE_INTRINSIC(".tcp_open", SLtcp_open, INT_TYPE, 2), /*Prototype: Integer tcp_open (String service, String host); */ MAKE_INTRINSIC(".unix_select", SLinput_pending, INT_TYPE, 2), /*Prototype : Integer unix_select(Integer handle, integer secs); */ #endif MAKE_VARIABLE(".stdin", &slfile_stdin, INT_TYPE, 1), /* Handle to stdin */ MAKE_VARIABLE(".stdout", &slfile_stdout, INT_TYPE, 1), /* Handle to stdout */ MAKE_VARIABLE(".stderr", &slfile_stderr, INT_TYPE, 1), /* Handle to stderr */ SLANG_END_TABLE }; int init_SLfiles() { int i; SL_File_Table_Type *s = SL_File_Table; for (i = 3; i < SL_MAX_FILES; i++) s[i].fd = -1; s->fd = fileno(stdin); s->flags = SL_READ; s->fp = stdin; s++; s->fd = fileno(stdout); s->flags = SL_WRITE; s->fp = stdout; s++; s->fd = fileno(stderr); s->flags = SL_READ | SL_WRITE; s->fp = stderr; if (!SLdefine_for_ifdef ("SLFILES")) return 0; return SLang_add_table(SLFiles_Name_Table, "_Files"); } /* Handle to stderr */ SLANG_END_TABLE }; int init_SLfiles() { int i; SL_File_Table_Type *s = SL_File_Table; slang-0.99.12/src/slgetkey.c000064400000000000003000000046020603742322400154220ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #include "slang.h" #include "_slang.h" int SLang_Input_Buffer_Len = 0; unsigned char SLang_Input_Buffer [MAX_INPUT_BUFFER_LEN]; int SLang_Abort_Char = 7; volatile int SLKeyBoard_Quit = 0; int SLang_Ignore_User_Abort = 0; /* This has the effect of mapping all characters in the range 128-169 to * ESC [ something */ #ifndef __GO32__ #if defined(unix) || defined(vms) #define DEC_8BIT_HACK 64 #endif #endif unsigned int SLang_getkey (void) { int imax; unsigned int ch; if (SLang_Input_Buffer_Len) { ch = (unsigned int) *SLang_Input_Buffer; SLang_Input_Buffer_Len--; imax = SLang_Input_Buffer_Len; MEMCPY ((char *) SLang_Input_Buffer, (char *) (SLang_Input_Buffer + 1), imax); } else if (0xFFFF == (ch = SLsys_getkey ())) return ch; #ifdef DEC_8BIT_HACK if (ch & 0x80) { unsigned char i; i = (unsigned char) (ch & 0x7F); if (i < ' ') { i += DEC_8BIT_HACK; SLang_ungetkey (i); ch = 27; } } #endif return(ch); } void SLang_ungetkey_string (unsigned char *s, int n) { register unsigned char *bmax, *b, *b1; if (SLang_Input_Buffer_Len > MAX_INPUT_BUFFER_LEN - 3 - n) return; b = SLang_Input_Buffer; bmax = b + (SLang_Input_Buffer_Len - 1); b1 = bmax + n; while (bmax >= b) *b1-- = *bmax--; bmax = b + n; while (b < bmax) *b++ = *s++; SLang_Input_Buffer_Len += n; } void SLang_buffer_keystring (unsigned char *s, int n) { if (n + SLang_Input_Buffer_Len > MAX_INPUT_BUFFER_LEN - 3) return; MEMCPY ((char *) SLang_Input_Buffer + SLang_Input_Buffer_Len, (char *) s, n); SLang_Input_Buffer_Len += n; } void SLang_ungetkey (unsigned char ch) { SLang_ungetkey_string(&ch, 1); } int SLang_input_pending (int tsecs) { int n; unsigned char c; if (SLang_Input_Buffer_Len) return SLang_Input_Buffer_Len; n = SLsys_input_pending (tsecs); if (n) { c = (unsigned char) SLang_getkey (); SLang_ungetkey_string (&c, 1); } return n; } void SLang_flush_input (void) { int quit = SLKeyBoard_Quit; SLang_Input_Buffer_Len = 0; SLKeyBoard_Quit = 0; while (SLsys_input_pending (0) > 0) (void) SLsys_getkey (); SLKeyBoard_Quit = quit; } ng(&ch, 1); } int SLang_input_pending (int tsecs) { int n; unsigned char c; if (SLang_Input_Buffer_Len) return SLangslang-0.99.12/src/slkeymap.c000064400000000000003000000235610603742322400154250ustar00rootsys00000000000000/* Keymap routines for SLang. The role of these keymap routines is simple: * Just read keys from the tty and return a pointer to a keymap structure. * That is, a keymap is simple a mapping of strings (keys from tty) to * structures. Also included are routines for managing the keymaps. */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #ifndef NO_STDLIB_H # include #endif #include "slang.h" #include "_slang.h" /* We need a define a rule for upperand lower case chars that user cannot change! This could be a problem for international chars! */ #define UPPER_CASE_KEY(x) (((x) >= 'a') && ((x) <= 'z') ? (x) - 32 : (x)) #define LOWER_CASE_KEY(x) (((x) >= 'A') && ((x) <= 'Z') ? (x) + 32 : (x)) int SLang_Key_TimeOut_Flag = 0; /* true if more than 1 sec has elapsed without key in multikey sequence */ int SLang_Last_Key_Char; SLKeyMap_List_Type SLKeyMap_List[SLANG_MAX_KEYMAPS]; /* these better be inited to 0! */ static SLang_Key_Type *malloc_key(unsigned char *str) { SLang_Key_Type *neew; if (NULL == (neew = (SLang_Key_Type *) SLMALLOC(sizeof(SLang_Key_Type)))) { SLang_Error = SL_MALLOC_ERROR; return NULL; } MEMCPY((char *) neew->str, (char *) str, (int) *str); return(neew); } static SLKeyMap_List_Type *add_keymap(char *name, SLang_Key_Type *map) { int i; for (i = 0; i < SLANG_MAX_KEYMAPS; i++) { if (SLKeyMap_List[i].keymap == NULL) { SLKeyMap_List[i].keymap = map; strncpy((char *) SLKeyMap_List[i].name, (char *) name, MAX_KEYMAP_NAME_LEN); SLKeyMap_List[i].name[MAX_KEYMAP_NAME_LEN] = 0; return &SLKeyMap_List[i]; } } SLang_Error = UNKNOWN_ERROR; /* SLang_doerror ("Keymap quota exceeded."); */ return NULL; } VOID *SLang_find_key_function(char *name, SLKeyMap_List_Type *keymap) { SLKeymap_Function_Type *fp = keymap -> functions; while((fp != NULL) && (fp->name != NULL)) { if ((*fp->name == *name) && !strcmp(fp->name, name)) return((VOID *) fp->f); fp++; } return(NULL); } /* convert things like "^A" to 1 etc... The 0th char is the strlen */ char *SLang_process_keystring(char *s) { static char str[30]; unsigned char ch; int i; i = 1; while (*s != 0) { ch = (unsigned char) *s++; if (*s) ch = UPPER_CASE_KEY(ch); if (ch == '^') { ch = *s++; if (ch == 0) { str[i++] = '^'; break; } if (ch == '?') ch = 127; else ch = ch - 'A' + 1; } str[i++] = ch; } str[0] = i; return(str); } static char *Define_Key_Error = "Inconsistency in define key."; /* returns -2 if inconsistent, -1 if malloc error, 0 upon success */ int SLang_define_key1(char *s, VOID *f, unsigned char type, SLKeyMap_List_Type *kml) { int cmp, i, m, n, len; SLang_Key_Type *key, *last, *neew; unsigned char *str; str = (unsigned char *) SLang_process_keystring(s); if (1 == (n = str[0])) return 0; i = *(str + 1); key = &((kml->keymap)[i]); if (n == 2) { if (key->next != NULL) { SLang_doerror (Define_Key_Error); return -2; } /* copy keymap uses the pointers so do not free these if copied */ if ((SLKeyMap_List[1].keymap == NULL) && (key->type == SLKEY_F_INTERPRET)) SLFREE(key->f); key->f = f; key->type = type; MEMCPY((char *) key->str, (char *) str, 2); return 0; } /* insert the key definition */ while(1) { last = key; key = key->next; if ((key == NULL) || (key->str == NULL)) cmp = -1; else { m = key->str[0]; len = m; if (m > n) len = n; cmp = MEMCMP((char *) (str + 1), (char *)(key->str + 1), len - 1); if ((m != n) && !cmp) { SLang_doerror (Define_Key_Error); return -2; } if ((m == n) && (!cmp)) cmp = MEMCMP((char *) str, (char *) key->str, n); } if (cmp == 0) { /* copy keymap uses the pointers so do not free these if copied */ if ((SLKeyMap_List[1].keymap == NULL) && (key->type == SLKEY_F_INTERPRET)) SLFREE(key->f); key->f = f; key->type = type; return 0; } else if (cmp < 0) { if (NULL == (neew = malloc_key(str))) return -1; neew -> next = key; last -> next = neew; neew->f = f; neew->type = type; return 0; } /* else cmp > 0 */ } } int SLang_define_key(char *s, char *funct, SLKeyMap_List_Type *kml) { VOID *f; unsigned char type; f = SLang_find_key_function(funct, kml); if (f == NULL) /* assume interpreted */ { if (NULL == (f = (VOID *) SLMALLOC(strlen(funct) + 1))) { SLang_Error = SL_MALLOC_ERROR; SLang_doerror ("Malloc error in define key."); return -1; } strcpy((char *) f, funct); type = SLKEY_F_INTERPRET; } else type = SLKEY_F_INTRINSIC; return SLang_define_key1(s, f, type, kml); } SLang_Key_Type *SLang_do_key(SLKeyMap_List_Type *kml, int (*getkey)(void)) { register SLang_Key_Type *key, *next; int i; unsigned char ch1, ch; register unsigned char chi, chup, chlow; ch = (unsigned char) (*getkey)(); SLang_Last_Key_Char = (int) ch; i = ch1 = (unsigned char) ch; key = (SLang_Key_Type *) &((kml->keymap)[i]); /* if the next one is null, then we know this is it. */ if (key->next == NULL) { /* check its uppercase counterpart if null and return it */ if ((key->f == NULL) && (i >= 'a') && (i <= 'z')) key = (SLang_Key_Type *) &((kml->keymap)[i - 32]); SLang_Key_TimeOut_Flag = 0; return(key); } key = key->next; SLang_Key_TimeOut_Flag = 1; SLang_Last_Key_Char = (*getkey)(); i = 2; /* 0 is keylen, 1 matches, so 2 */ ch1 = (unsigned char) SLang_Last_Key_Char; chup = UPPER_CASE_KEY(ch1); chlow = LOWER_CASE_KEY(ch1); while(key != NULL) { if (SLKeyBoard_Quit) break; chi = key->str[i]; if ((chup == chi) || (chlow == chi)) { if (*key->str == i + 1) { /* look for exact match if possible */ if (ch1 != chi) { next = key->next; while (next != NULL) { if (next->str[i] == ch1) { if (next->str[0] == i + 1) { SLang_Key_TimeOut_Flag = 0; return(next); } break; } next = next->next; } } SLang_Key_TimeOut_Flag = 0; return(key); } /* before reading a new key, check to see if it is lowercase * and try to find a match for it. Note that this works because * only the LAST character in a key sequence can be lowercase */ else if ((ch1 == chlow) && (ch1 != chup)) { next = key->next; /* look for the lowercase one */ while (next != NULL) { if ((next->str[i] == chlow) && (next->str[0] == i + 1)) { SLang_Key_TimeOut_Flag = 0; return(next); } next = next->next; } } SLang_Last_Key_Char = ch1 = (*getkey)(); i++; chup = UPPER_CASE_KEY(ch1); chlow = LOWER_CASE_KEY(ch1); continue; } else if (chlow < chi) break; /* not found */ /* else */ key = key->next; } /* not found */ SLang_Key_TimeOut_Flag = 0; return(NULL); } void SLang_undefine_key(char *s, SLKeyMap_List_Type *kml) { int n, i; SLang_Key_Type *key, *next, *last, *key_root, *keymap; unsigned char *str; keymap = kml -> keymap; str = (unsigned char *) SLang_process_keystring(s); if (0 == (n = *str++ - 1)) return; i = *str; key = key_root = (SLang_Key_Type *) &(keymap[i]); last = key_root; key = key_root->next; while (key != NULL) { next = key->next; if (!MEMCMP((char *)(key->str + 1), (char *) str, n)) { if ((SLKeyMap_List[1].keymap == NULL) && (key->type == SLKEY_F_INTERPRET)) SLFREE(key->f); SLFREE(key); last->next = next; } else last = key; key = next; } if (n == 1) { *key_root->str = 0; key_root->f = NULL; key_root->type = 0; } } char *SLang_make_keystring(unsigned char *s) { static char buf[40]; char *b; int n; b = buf; n = *s++ - 1; while (n--) { if (*s < 32) { *b++ = '^'; *b++ = *s + 'A' - 1; } else *b++ = *s; s++; } *b = 0; return(buf); } static SLang_Key_Type *copy_keymap(SLKeyMap_List_Type *kml) { int i; SLang_Key_Type *neew, *old, *new_root, *km; if (NULL == (new_root = (SLang_Key_Type *) SLCALLOC(256, sizeof(SLang_Key_Type)))) { SLang_Error = SL_MALLOC_ERROR; return NULL; } if (kml == NULL) return new_root; km = kml->keymap; for (i = 0; i < 256; i++) { old = &(km[i]); neew = &(new_root[i]); neew->f = old->f; neew->type = old->type; MEMCPY((char *) neew->str, (char *) old->str, (int) *old->str); old = old->next; while (old != NULL) { neew->next = malloc_key((unsigned char *) old->str); neew = neew->next; neew->f = old->f; neew->type = old->type; old = old->next; } neew->next = NULL; } return(new_root); } SLKeyMap_List_Type *SLang_create_keymap(char *name, SLKeyMap_List_Type *map) { SLang_Key_Type *neew; SLKeyMap_List_Type *new_map; if ((NULL == (neew = copy_keymap(map))) || (NULL == (new_map = add_keymap(name, neew)))) return NULL; if (map != NULL) new_map -> functions = map -> functions; return new_map; } SLKeyMap_List_Type *SLang_find_keymap(char *name) { int i; for (i = 0; i < SLANG_MAX_KEYMAPS; i++) { if (!strncmp(SLKeyMap_List[i].name, name, 8)) return &SLKeyMap_List[i]; } return(NULL); } r *name, SLKeyMap_List_Type *map) { SLang_Key_Type *neew; SLKeyMap_List_Type *new_map; if ((NULL == (neew = copy_keymap(map))) slang-0.99.12/src/slmalloc.c000064400000000000003000000072370603742322400154100ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #ifndef NO_STDLIB_H #include #endif #ifdef MALLOC_DEBUG #undef MALLOC_DEBUG #endif #include "slang.h" #ifdef __alpha #define Chunk 8 #else #define Chunk 4 #endif static long Total_Allocated; static long Max_Single_Allocation; static long Max_Allocated; /* #define SLDEBUG_DOUT */ #ifdef SLDEBUG_DOUT static FILE *dout; #endif void SLmalloc_dump_statistics (void) { #ifdef SLDEBUG_DOUT fflush (dout); #endif fprintf (stderr, "Total Allocated: %ld\nHighest single allocation: %ld\nHighest Total Allocated:%ld\n", Total_Allocated, Max_Single_Allocation, Max_Allocated); } static void fixup (unsigned char *p, unsigned long n, char *what) { #ifdef SLDEBUG_DOUT if (dout == NULL) dout = fopen ("malloc.out", "w"); #endif p += Chunk; *(p - 4)= (unsigned char) ((n >> 24) & 0xFF); *(p - 3) = (unsigned char) ((n >> 16) & 0xFF); *(p - 2) = (unsigned char) ((n >> 8) & 0xFF); *(p - 1) = (unsigned char) (n & 0xFF); *(p + (int) n) = 27; *(p + (int) (n + 1)) = 182; *(p + (int) (n + 2)) = 81; *(p + (int) (n + 3)) = 86; Total_Allocated += (long) n; if (Total_Allocated > Max_Allocated) Max_Allocated = Total_Allocated; if ((long) n > Max_Single_Allocation) Max_Single_Allocation = (long) n; #ifdef SLDEBUG_DOUT fprintf (dout, "ALLOC: %s\t%p %ld\n", what, p, (long) n); #else #ifdef pc_system (void) what; #endif #endif } static void SLmalloc_doerror (char *buf) { SLang_doerror (buf); } static int check_memory (unsigned char *p, char *what) { char buf[100]; unsigned long n; n = ((unsigned long) *(p - 4)) << 24; n |= ((unsigned long) *(p - 3)) << 16; n |= ((unsigned long) *(p - 2)) << 8; n |= (unsigned long) *(p - 1); *(p - 4) = *(p - 3) = *(p - 2) = *(p - 1) = 0xFF; if (n == 0xFFFFFFFFL) { sprintf (buf, "%s: %p: Already FREE! Abort NOW.", what, p - Chunk); SLmalloc_doerror (buf); return 0; } if ((*(p + (int) n) != 27) || (*(p + (int) (n + 1)) != 182) || (*(p + (int) (n + 2)) != 81) || (*(p + (int) (n + 3)) != 86)) { sprintf (buf, "\007%s: %p: Memory corrupt! Abort NOW.", what, p); SLmalloc_doerror (buf); return 0; } Total_Allocated -= (long) n; if (Total_Allocated < 0) { sprintf (buf, "\007%s: %p\nFreed %ld, Allocated is: %ld!\n", what, p, (long) n, Total_Allocated); SLang_doerror (buf); } #ifdef SLDEBUG_DOUT fprintf (dout, "FREE: %s:\t%p %ld\n", what, p, (long) n); #endif return 1; } void SLdebug_free (unsigned char *p) { if (!check_memory ((unsigned char *) p, "FREE")) return; SLFREE (p - Chunk); } unsigned char *SLdebug_malloc (unsigned long n) { unsigned char *p; if ((p = (unsigned char *) SLMALLOC (n + 2 * Chunk)) == NULL) return NULL; fixup ((unsigned char *) p, n, "MALLOC"); return p + Chunk; } unsigned char *SLdebug_realloc (unsigned char *p, unsigned long n) { if (!check_memory ((unsigned char *) p, "REALLOC")) return NULL; if ((p = (unsigned char *) SLREALLOC (p - Chunk, n + 2 * Chunk)) == NULL) return NULL; fixup ((unsigned char *) p, n, "REALLOC"); return p + Chunk; } unsigned char *SLdebug_calloc (unsigned long n, unsigned long size) { unsigned char *p; int m; /* This is tough -- hope this is a good assumption!! */ if (size >= Chunk) m = 1; else m = Chunk; if ((p = (unsigned char *) SLCALLOC (n + m + m, size)) == NULL) return NULL; fixup ((unsigned char *) p, size * n, "CALLOC"); return p + Chunk; } ned char *) SLREALLOC (p - Chunk, n + 2 * Chunk)) == NULL) return NULL; fixup ((unsigned char *) p, n, "REALLOC"); return p + Chunk; } unsigned char *SLdebug_calloc (unsigned long n, unsigned long size) { unsigned char *p; int m; /* This is tough -- hope this is a good assumption!! */ if (size >= Chunk) m = 1; else m = Chunk; slang-0.99.12/src/slmath.h000064400000000000003000000003320603742322400150640ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ extern int SL_init_math(void); return NULL; fixup ((unsigned char *) p, n, "REALLOC"); return p + Chunk; } unsigned char *SLdebug_calloc (unsigned long n, unsigned long size) { unsigned char *p; int m; /* This is tough -- hope this is a good assumption!! */ if (size >= Chunk) m = 1; else m = Chunk; slang-0.99.12/src/slmath.c000064400000000000003000000154040603742322400150650ustar00rootsys00000000000000/* sin, cos, etc, for S-Lang */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #ifndef FLOAT_TYPE #define FLOAT_TYPE 5 #endif #include "config.h" #include "slang.h" #include "_slang.h" #ifndef pc_system #include #ifdef __cplusplus # define SIGNAL(a,b) signal((a), (SIG_PF)(b)) #else # define SIGNAL signal #endif static void math_floating_point_exception (int sig) { SLang_Error = INTRINSIC_ERROR; (void) SIGNAL (SIGFPE, math_floating_point_exception); } #endif #if defined(_MSC_VER) && defined(_MT) #define DMATH1(_x) dmath1((double (_pascal *)(double))(_x)) static FLOAT dmath1(double (_pascal *f) (double)) #else #define DMATH1(_x) dmath1((double (*)(double))(_x)) static FLOAT dmath1(double (*f) (double)) #endif { FLOAT x; int dum1, dum2; if (SLang_pop_float(&x, &dum1, &dum2)) return(0.0); return (FLOAT) (*f)((double) x); } #if defined(_MSC_VER) && defined(_MT) #define DMATH2(_x) dmath2((double (_pascal *)(double, double))(_x)) static FLOAT dmath2(double (_pascal *f) (double, double)) #else #define DMATH2(_x) dmath2((double (*)(double, double))(_x)) static FLOAT dmath2(double (*f) (double, double)) #endif { FLOAT x, y; int dum1, dum2; if (SLang_pop_float(&y, &dum1, &dum2) || SLang_pop_float(&x, &dum1, &dum2)) return (0.0); return (FLOAT) (*f)((double) x, (double) y); } static FLOAT math_cos (void) { return (FLOAT) DMATH1(cos); } static FLOAT math_sin (void) { return (FLOAT) DMATH1(sin); } static FLOAT math_tan (void) { return (FLOAT) DMATH1(tan); } static FLOAT math_atan (void) { return (FLOAT) DMATH1(atan); } static FLOAT math_acos (void) { return (FLOAT) DMATH1(acos); } static FLOAT math_asin (void) { return (FLOAT) DMATH1(asin); } static FLOAT math_exp (void) { return (FLOAT) DMATH1(exp); } static FLOAT math_log (void) { return (FLOAT) DMATH1(log); } static FLOAT math_sqrt (void) { return (FLOAT) DMATH1(sqrt); } static FLOAT math_log10(void) { return (FLOAT) DMATH1(log10); } static FLOAT math_pow(void) { return (FLOAT) DMATH2(pow); } /* usage here is a1 a2 ... an n x ==> a1x^n + a2 x ^(n - 1) + ... + an */ static FLOAT math_poly(void) { int n; int dum1, dum2; double xn = 1.0, sum = 0.0; FLOAT an, x; if ((SLang_pop_float(&x, &dum1, &dum2)) || (SLang_pop_integer(&n))) return(0.0); while (n-- > 0) { if (SLang_pop_float(&an, &dum1, &dum2)) break; (void) dum1; (void) dum2; sum += an * xn; xn = xn * x; } return((FLOAT) sum); } #ifdef USE_DOUBLE static FLOAT Const_E = 2.718281828459045; static FLOAT Const_Pi = 3.141592653589793; #else static FLOAT Const_E = 2.7182818; static FLOAT Const_Pi = 3.1415926; #endif static FLOAT slmath_do_float(void) { FLOAT f = 0.0; unsigned char stype; SLang_Object_Type obj; if (SLang_pop(&obj)) return(f); stype = obj.sub_type; if (stype == INT_TYPE) { f = (FLOAT) obj.v.i_val; } else if (stype == FLOAT_TYPE) { f = obj.v.f_val; } else if (stype == STRING_TYPE) { /* Should check for parse error here but later. */ f = atof(obj.v.s_val); if (obj.main_type == SLANG_DATA) SLFREE(obj.v.s_val); } else SLang_Error = TYPE_MISMATCH; return f; } static SLang_Name_Type slmath_table[] = { MAKE_INTRINSIC(".polynom", math_poly, FLOAT_TYPE, 0), /* Prototype: Float polynom (a, b, ..., c, Integer n, Float x); * This function returns the value of the polynomial expression: * @ ax^n + bx^(n - 1) + ... c * See also: @pow@ */ MAKE_INTRINSIC(".sin", math_sin, FLOAT_TYPE, 0), /* Prototype: Float sin (Float x); * This function returns the sine of @x@. * See also: @cos@, @asin@ */ MAKE_INTRINSIC(".cos", math_cos, FLOAT_TYPE, 0), /* Prototype: Float cos (Float x); * This function returns the cosine of @x@. * See also: @sin@, @acos@ */ MAKE_INTRINSIC(".tan", math_tan, FLOAT_TYPE, 0), /* Prototype: Float tan (Float x); * This function returns the tangent of @x@. * See also: @cos@, @sin@, @sqrt@, @atan@ */ MAKE_INTRINSIC(".atan", math_atan, FLOAT_TYPE, 0), /* Prototype: Float atan (Float x); * This function returns the arc tangent of @x@. * See also: @sqrt@, @tan@, */ MAKE_INTRINSIC(".acos", math_acos, FLOAT_TYPE, 0), /* Prototype: Float acos (Float x); * This function returns the arc cosine of @x@. * See also: @cos@, @sin@ */ MAKE_INTRINSIC(".asin", math_asin, FLOAT_TYPE, 0), /* Prototype: Float asin (Float x); * This function returns the arc sine of @x@. * See also: @cos@, @sin@ */ MAKE_INTRINSIC(".exp", math_exp, FLOAT_TYPE, 0), /* Prototype: Float exp (Float x); * This function returns the exponental of @x@. That is, @2.7182818...@ * to the @x@ power. * See also: @sqrt@, @log@ */ MAKE_INTRINSIC(".log", math_log, FLOAT_TYPE, 0), /* Prototype: Float log (Float x); * This function returns the natural logarithm of @x@. * Note: @x@ must be greater than zero. * See also: @exp@, @log10@ */ MAKE_INTRINSIC(".sqrt", math_sqrt, FLOAT_TYPE, 0), /* Prototype: Float sqrt (Float x); * This function returns the square root of @x@. * Note: @x@ must be greater than or equal to zero. * See also: @pow@ */ MAKE_INTRINSIC(".log10", math_log10, FLOAT_TYPE, 0), /* Prototype: Float log10 (Float x); * This function returns the base ten logarithm of @x@. * Note: @x@ must be greater than zero. * See also: @log@, @pow@ */ MAKE_INTRINSIC(".pow", math_pow, FLOAT_TYPE, 0), /* Prototype: Float pow (Float x, Float y); * This function returns the value of @x@ raised to the @y@ power. * Note: @x@ must be greater than or equal to zero. * See also: @exp@, @log@, @sqrt@ */ MAKE_VARIABLE(".E", &Const_E, FLOAT_TYPE, 1), /* Prototype: Float E = 2.718281828459045; * The variable E is a read-only variable that represents the value of * the base of the natural logarithms. */ MAKE_VARIABLE(".PI", &Const_Pi, FLOAT_TYPE, 1), /* Prototype: Float PI = 3.141592653589793; * The variable PI is a read-only floating point number. */ MAKE_INTRINSIC(".float", slmath_do_float, FLOAT_TYPE, 0), /* Prototype: Float float (Object x); * The @float@ function takes an object such as a string or an integer * and converts it to its floating point equivalent. * For example, @float ("12.34")@ returns the floating point number @12.34@. * See also: @integer@, @string@, @char@, @Sprintf@ */ SLANG_END_TABLE }; int init_SLmath(void) { #ifndef pc_system (void) SIGNAL (SIGFPE, math_floating_point_exception); #endif if (!SLdefine_for_ifdef ("SLMATH")) return 0; return SLang_add_table(slmath_table, "_Math"); } ect x); * The @float@ function takes an object such as a string or an integer * and converts it to its floating point equivalent. * For example, @float ("12.34")@ returns the floating point number @12.34@. * See also: @integer@, @stringslang-0.99.12/src/slmatrix.c000064400000000000003000000077730603742322400154520ustar00rootsys00000000000000/* Floating point matrix manipulation routines for S-Lang */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #ifndef FLOAT_TYPE #define FLOAT_TYPE #endif #include "config.h" #include "slang.h" #include "_slang.h" #include "slarray.h" static SLuser_Object_Type *SLpop_float_matrix (void) { SLuser_Object_Type *a; int sa = 0; /* No strings */ if (NULL == (a = SLang_pop_array (&sa))) return NULL; if (((SLArray_Type *) a->obj) -> type == FLOAT_TYPE) return a; SLang_Error = TYPE_MISMATCH; SLang_free_user_object (a); return NULL; } /* multiply 2 matrices (assumed float) producing a third */ static void SLmatrix_multiply (void) { SLArray_Type *a, *b, *c; SLuser_Object_Type *uc = NULL, *ua = NULL, *ub = NULL; FLOAT *aa, *bb, *cc, sum; int dim; unsigned int imax, jmax, kmax; unsigned int i, j, k, ofs_a, ofs_b; if ((NULL == (ub = SLpop_float_matrix ())) || (NULL == (ua = SLpop_float_matrix ()))) { goto free_and_return; } a = (SLArray_Type *) ua->obj; b = (SLArray_Type *) ub->obj; /* Now is a is n*m, then b must be m*x. Result it n*x */ imax = a->x; jmax = a->y; if ((b->x != jmax) || (a->dim > 2) || (b->dim > 2)) { SLang_Error = TYPE_MISMATCH; goto free_and_return; } kmax = b->y; /* Now result will be imax by kmax 2d array */ if (kmax == 1) dim = 1; else dim = 2; if (NULL == (uc = SLcreate_array(NULL, dim, imax, kmax, 1, 'f', 0))) { SLang_doerror("Unable to create array."); goto free_and_return; } c = (SLArray_Type *) uc->obj; /* Finally!! */ cc = c->buf.f_ptr; bb = b->buf.f_ptr; aa = a->buf.f_ptr; for (i = 0; i < imax; i++) { for (k = 0; k < kmax; k++) { sum = 0.0; ofs_a = i * jmax; ofs_b = k; for (j = 0; j < jmax; j++) { sum += *(aa + ofs_a) * *(bb + ofs_b); ofs_a++; ofs_b += kmax; } /* cc[i][k] */ *(cc + (int) (i * kmax + k)) = sum; } } SLang_push_user_object (uc); free_and_return: if (ua != NULL) SLang_free_user_object (ua); if (ub != NULL) SLang_free_user_object (ub); } static void SLmatrix_addition (void) { SLArray_Type *a, *b, *c; SLuser_Object_Type *ua = NULL, *ub, *uc; FLOAT *aa, *bb, *cc; unsigned int imax, jmax, kmax, jmaxkmax; unsigned int i, j, k, ofs; if ((NULL == (ub = SLpop_float_matrix ())) || (NULL == (ua = SLpop_float_matrix ()))) { goto free_and_return; } a = (SLArray_Type *) ua->obj; b = (SLArray_Type *) ub->obj; /* for the addition to make sence, they must be same type. */ imax = a->x; jmax = a->y; kmax = a->z; if ((b->dim != a->dim) || (b->x != imax) || (b->y != jmax) || (b->z != kmax)) { SLang_Error = TYPE_MISMATCH; goto free_and_return; } if (NULL == (uc = SLcreate_array(NULL, a->dim, imax, jmax, 1, 'f', 0))) { SLang_doerror("Unable to create array."); goto free_and_return; } c = (SLArray_Type *) uc->obj; /* Finally!! */ cc = c->buf.f_ptr; bb = b->buf.f_ptr; aa = a->buf.f_ptr; /* Probably more efficent if we work in this order */ jmaxkmax = jmax * kmax; for (k = 0; k < kmax; k++) { for (j = 0; j < jmax; j++) { ofs = j * kmax + k; for (i = 0; i < imax; i++) { *(cc + ofs) = *(aa + ofs) + *(bb + ofs); ofs += jmaxkmax; } } } SLang_push_user_object (uc); free_and_return: if (ua != NULL) SLang_free_user_object (ua); if (ub != NULL) SLang_free_user_object (ub); } static SLang_Name_Type slmatrix_table[] = { MAKE_INTRINSIC(".matrix_multiply", SLmatrix_multiply, VOID_TYPE, 0), MAKE_INTRINSIC(".matrix_add", SLmatrix_addition, VOID_TYPE, 0), SLANG_END_TABLE }; int init_SLmatrix() { return SLang_add_table(slmatrix_table, "_Matrix"); } a + oslang-0.99.12/src/slmemchr.c000064400000000000003000000035310603742322400154050ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ /* These routines are fast memcpy, memset routines. When available, I use system rouines. For msdos, I use inline assembly. */ /* The current versions only work in the forward direction only!! */ #include #include "config.h" #include "slang.h" #include "_slang.h" char *jed_memchr(register char *p, register char c, register int n) { int n2; register char *pmax; pmax = p + (n - 32); while (p <= pmax) { if (*p == c) return p; if (*(p + 1) == c) return p + 1; if (*(p + 2) == c) return p + 2; if (*(p + 3) == c) return p + 3; if (*(p + 4) == c) return p + 4; if (*(p + 5) == c) return p + 5; if (*(p + 6) == c) return p + 6; if (*(p + 7) == c) return p + 7; if (*(p + 8) == c) return p + 8; if (*(p + 9) == c) return p + 9; if (*(p + 10) == c) return p + 10; if (*(p + 11) == c) return p + 11; if (*(p + 12) == c) return p + 12; if (*(p + 13) == c) return p + 13; if (*(p + 14) == c) return p + 14; if (*(p + 15) == c) return p + 15; if (*(p + 16) == c) return p + 16; if (*(p + 17) == c) return p + 17; if (*(p + 18) == c) return p + 18; if (*(p + 19) == c) return p + 19; if (*(p + 20) == c) return p + 20; if (*(p + 21) == c) return p + 21; if (*(p + 22) == c) return p + 22; if (*(p + 23) == c) return p + 23; if (*(p + 24) == c) return p + 24; if (*(p + 25) == c) return p + 25; if (*(p + 26) == c) return p + 26; if (*(p + 27) == c) return p + 27; if (*(p + 28) == c) return p + 28; if (*(p + 29) == c) return p + 29; if (*(p + 30) == c) return p + 30; if (*(p + 31) == c) return p + 31; p += 32; } n2 = n % 32; while (n2--) { if (*p == c) return p; p++; } return(NULL); } (*(p + 21) == c) return p + 21; if (*(p + 22) == c) return p + 22; if (*(p + 23) == c) return p + 23; if (*(p + 24) == c) return p + 24; if (*(p + 25) == c) returnslang-0.99.12/src/slmemcmp.c000064400000000000003000000070330603742322400154110ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ /* These routines are fast memcpy, memset routines. When available, I use system rouines. For msdos, I use inline assembly. */ /* The current versions only work in the forward direction only!! */ #include #include "config.h" #include "slang.h" #include "_slang.h" /* This is an UNSIGNED comparison designed for systems that either do not have * this function or performed a signed comparison (SunOS) */ int jed_memcmp(register char *s1, register char *s2, int n) { register int cmp; register char *s1max; s1max = s1 + (n - 32); while (s1 <= s1max) { if (*s1 != *s2) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 1) != *(s2 + 1)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 2) != *(s2 + 2)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 3) != *(s2 + 3)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 4) != *(s2 + 4)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 5) != *(s2 + 5)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 6) != *(s2 + 6)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 7) != *(s2 + 7)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 8) != *(s2 + 8)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 9) != *(s2 + 9)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 10) != *(s2 + 10)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 11) != *(s2 + 11)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 12) != *(s2 + 12)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 13) != *(s2 + 13)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 14) != *(s2 + 14)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 15) != *(s2 + 15)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 16) != *(s2 + 16)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 17) != *(s2 + 17)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 18) != *(s2 + 18)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 19) != *(s2 + 19)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 20) != *(s2 + 20)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 21) != *(s2 + 21)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 22) != *(s2 + 22)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 23) != *(s2 + 23)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 24) != *(s2 + 24)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 25) != *(s2 + 25)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 26) != *(s2 + 26)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 27) != *(s2 + 27)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 28) != *(s2 + 28)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 29) != *(s2 + 29)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 30) != *(s2 + 30)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 31) != *(s2 + 31)) return ((unsigned char) *s1 - (unsigned char) *s2); s1 += 32; s2 += 32; } s1max = s1 + (n % 32); while (s1 < s1max) { cmp = (unsigned char) *s1 - (unsigned char) *s2; if (cmp) return(cmp); s1++; s2++; } return(0); } 2 + 28)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 29) != *(s2 + 29)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 30) != *(s2 + 30)) return ((unsigned char) *s1 - (unsigned char) *s2); if (*(s1 + 31) != *(s2 + 31)) return ((unsigned char) *s1 - (unsigned char) *s2); s1 += 32; s2 += 32; } s1max = s1 + (n % 32); while (s1 < s1max) { cmp = (unsigned char) *s1 - (unsigned char) *s2; if (cmp) return(cmp); s1++; s2++; slang-0.99.12/src/slmemcpy.c000064400000000000003000000020330603742322400154200ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ /* These routines are fast memcpy, memset routines. When available, I use system rouines. For msdos, I use inline assembly. */ /* The current versions only work in the forward direction only!! */ #include #include "config.h" #include "slang.h" #include "_slang.h" char *jed_memcpy(char *s1, char *s2, int n) { #if defined(msdos) && !defined(__WIN32__) asm mov ax, ds asm mov bx, si asm mov dx, di asm mov cx, n asm les di, s1 asm lds si, s2 asm cld asm rep movsb asm mov ds, ax asm mov si, bx asm mov di, dx return(s1); #else register char *smax, *s = s1; int n2; n2 = n % 4; smax = s + (n - 4); while (s <= smax) { *s = *s2; *(s + 1) = *(s2 + 1); *(s + 2) = *(s2 + 2); *(s + 3) = *(s2 + 3); s += 4; s2 += 4; } while (n2--) *s++ = *s2++; return(s1); #endif } ) && !defined(__WIN32__) asm mov ax, ds asm mov bx, si asm mov dx, di asm mov cx, n asm les di, s1 asm lds si, s2 asm cld asm rep movsb asm mov ds, ax asm mov si, bx asm mov di, dx return(s1); #else register char *smax, *s = s1; int n2; n2 = n % 4; smax = s + (n - 4); while (s <= smax) { *s = *s2; *(s + 1) = *(s2 + 1); *(s + 2) = *(s2 + 2); *(s + 3) = *(s2 + 3); s += 4; s2 += 4; } while (n2--) *s++ = *s2++slang-0.99.12/src/slmemset.c000064400000000000003000000016060603742322500154260ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ /* These routines are fast memcpy, memset routines. When available, I use system rouines. For msdos, I use inline assembly. */ /* The current versions only work in the forward direction only!! */ #include #include "config.h" #include "slang.h" #include "_slang.h" void jed_memset(char *p, char space, int n) { #if !defined(msdos) || defined(__WIN32__) register char *pmax; pmax = p + (n - 4); n = n % 4; while(p <= pmax) { *p = space; *(p + 1) = space; *(p + 2) = space; *(p + 3) = space; p += 4; } while (n--) *p++ = space; #else asm mov al, space asm mov dx, di asm mov cx, n asm les di, p asm cld asm rep stosb asm mov di, dx #endif } #include #include "config.h" #include "slang.h" #include "_slang.h" void jed_memset(char *p, char spacslang-0.99.12/src/slmisc.c000064400000000000003000000011230603742322500150610ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #include "slang.h" #include "_slang.h" char *SLmake_string(char *str) { return SLmake_nstring(str, strlen (str)); } char *SLmake_nstring (char *str, int n) { char *ptr; if (NULL == (ptr = (char *) SLMALLOC(n + 1))) { SLang_Error = SL_MALLOC_ERROR; return(NULL); } MEMCPY (ptr, str, n); ptr[n] = 0; return(ptr); } stribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #include "slang.h" #include "_slang.h" char *SLmake_string(char *str) { return SLmake_nstring(str, strlen (str)); } char *SLmake_nstring (char *str, int n) { char *ptr; if (NULL == (ptr = (char *) SLMALLOC(n + 1))) { SLang_Error = SL_MALLOC_ERROslang-0.99.12/src/slos2tty.c000064400000000000003000000121660603742322500154030ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #include "slang.h" #include "_slang.h" #define INCL_BASE #define INCL_NOPM #define INCL_VIO #define INCL_KBD #define INCL_DOS #if 0 # define INCL_DOSSEMAPHORES #endif #ifdef LONG #undef LONG #endif #ifdef VOID #undef VOID #endif #include #include #include KBDINFO initialKbdInfo; /* keyboard info */ /* Code to read keystrokes in a separate thread */ typedef struct kbdcodes { UCHAR ascii; UCHAR scan; /* USHORT shift; */ } KBDCODES; #define BUFFER_LEN 4096 static KBDCODES threadKeys[BUFFER_LEN]; static int atEnd = 0; static int startBuf; static int endBuf; /* Original code used semaphores to control access to threadKeys. * It is expected that the semaphore code will be deleted after 0.97. */ #if 0 #ifdef __os2_16__ typedef USHORT APIRET; static HSEM Hmtx; #define DosRequestMutexSem(hmtx,timeout) DosSemRequest(hmtx,timeout) #define DosReleaseMutexSem(hmtx) DosSemClear(hmtx) #define DosCloseMutexSem(hmtx) DosCloseSem(hmtx) #else /* !defined(__os2_16__) */ static HMTX Hmtx; /* Mutex Semaphore */ #endif static APIRET CreateSem(void) { #ifdef __os2_16__ char SemName[32]; sprintf(SemName, "\\SEM\\jed\\%u", getpid()); return ( DosCreateSem (0, &Hmtx, SemName) ); #else return ( DosCreateMutexSem (NULL, &Hmtx, 0, 0) ); #endif } static APIRET RequestSem(void) { return ( DosRequestMutexSem (Hmtx, -1) ); } static APIRET ReleaseSem(void) { return ( DosReleaseMutexSem (Hmtx) ); } static APIRET CloseSem(void) { return( DosCloseMutexSem (Hmtx) ); } #else #define CreateSem() #define RequestSem() #define ReleaseSem() #define CloseSem() #endif static void set_kbd(void) { KBDINFO kbdInfo; kbdInfo = initialKbdInfo; kbdInfo.fsMask &= ~0x0001; /* not echo on */ kbdInfo.fsMask |= 0x0002; /* echo off */ kbdInfo.fsMask &= ~0x0008; /* cooked mode off */ kbdInfo.fsMask |= 0x0004; /* raw mode */ kbdInfo.fsMask &= ~0x0100; /* shift report off */ KbdSetStatus(&kbdInfo, 0); } static void thread_getkey () { KBDKEYINFO keyInfo; int n; while (!atEnd) { /* at end is a flag */ set_kbd(); KbdCharIn(&keyInfo, IO_NOWAIT, 0); /* get a character */ if (keyInfo.fbStatus & 0x040) { /* found a char process it */ if (keyInfo.chChar == SLang_Abort_Char) { if (SLang_Ignore_User_Abort == 0) SLang_Error = USER_BREAK; SLKeyBoard_Quit = 1; } n = (endBuf + 1) % BUFFER_LEN; if (n == startBuf) { DosBeep (500, 20); KbdFlushBuffer(0); continue; } RequestSem(); threadKeys [n].ascii = keyInfo.chChar; threadKeys [n].scan = keyInfo.chScan; /* threadKeys [n].shift = keyInfo.fsState; */ endBuf = n; ReleaseSem(); } else /* no char available*/ DosSleep (20); } } static void thread_code (void *Args) { (void) Args; startBuf = -1; /* initialize the buffer pointers */ endBuf = -1; thread_getkey (); atEnd = 0; /* reset the flag */ _endthread(); } /* The code below is in the main thread */ int SLang_init_tty(int abort_char, int dum2, int dum3) { VIOCURSORINFO cursorInfo, OldcursorInfo; (void) dum2; (void) dum3; SLang_Abort_Char = abort_char; /* set ^C off */ signal (SIGINT, SIG_IGN); signal (SIGBREAK, SIG_IGN); /* set up the keyboard */ initialKbdInfo.cb = sizeof(initialKbdInfo); KbdGetStatus(&initialKbdInfo, 0); set_kbd(); /* open a semaphore */ CreateSem(); /* start a separate thread to read the keyboard */ #if defined(__BORLANDC__) _beginthread (thread_code, 8096, NULL); #else _beginthread (thread_code, NULL, 8096, NULL); #endif VioGetCurType (&OldcursorInfo, 0); cursorInfo.yStart = 1; cursorInfo.cEnd = 15; cursorInfo.cx = 1; cursorInfo.attr = 1; if (VioSetCurType (&cursorInfo, 0)) VioSetCurType (&OldcursorInfo, 0); /* reset to previous value */ return 0; } void SLang_reset_tty (void) { atEnd = 1; /* set flag and wait until thread ends */ while (atEnd) {DosSleep (0);} CloseSem(); /* close the keyboard */ KbdSetStatus(&initialKbdInfo, 0); /* restore original state */ } #define keyWaiting() (endBuf != startBuf) /* sleep for *tsecs tenths of a sec waiting for input */ int SLsys_input_pending(int tsecs) { int count = tsecs * 5; if (count) { while(count > 0) { DosSleep(20); /* 20 ms or 1/50 sec */ if (keyWaiting ()) break; count--; } return(count); } else return(keyWaiting ()); } unsigned int SLsys_getkey () { unsigned int c; unsigned char scan; int tsecs = 300; if (!keyWaiting()) while (!SLsys_input_pending(tsecs)); /* read codes from buffer */ RequestSem(); startBuf = (startBuf + 1) % BUFFER_LEN; c = threadKeys [startBuf].ascii; scan = threadKeys [startBuf].scan; ReleaseSem(); if ((c == 8) && (scan == 0x0e)) c = 127; if (c == 0xE0) c = 0; if (c == 0) SLang_ungetkey (scan); return (c); } void SLang_set_abort_signal (void (*dum)(int)) { (void) dum; } unsigned int c; unsigned char scan; int tsecs = 300; if (!keyWaiting()) while (!SLsys_input_pending(tsecs)); /* read codes from buffer */ RequestSem(); startBuf = (startBuf + 1) % BUFFER_LEN; c = threadKeys [startBuf].ascii; scan = threadKeys [startBuf].scan; ReleaseSem(); if ((c == 8) && (scan == 0x0e)) c = 127; if (c == 0xE0) c = 0; ifslang-0.99.12/src/slparse.c000064400000000000003000000712060603742322500152510ustar00rootsys00000000000000/* infix to RPN parsing as well as file loading routines */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #include "slang.h" #include "_slang.h" #define NAME 256 #define ASSIGN 257 #define LEFT_P 258 #define RIGHT_P 259 #define END 260 #define COMMA 261 #define EOS 262 #define BRA 263 #define KET 264 #define EOS_BRA 265 #define EOS_KET 266 #define COLON 267 #define ASSIGN_M 268 #define ASSIGN_P 269 #define CASE_TYPE 270 #define IF_TYPE 300 #define ELSE_TYPE 301 #define WHILE_TYPE 302 #define FOREVER_TYPE 303 #define FOR_TYPE 304 #define LOOP_TYPE 305 #define SWITCH_TYPE 306 #define F_TYPE 307 #define V_TYPE 308 #define INLINE_TOK 309 #define IF_NOT_TYPE 310 #define ERROR_B_TYPE 311 #define CFOR_TYPE 312 #define DO_WHILE 313 #define RETURN_TYPE 314 #define EXIT_B_TYPE 315 #define USER_B_TYPE 316 #define ORELSE_TYPE 317 #define ANDELSE_TYPE 318 #define SPECIAL_AT_TOK 319 #define GV_TYPE 320 static int CTok; static char *Token; static char *Input; static SLang_Load_Type *LLT; static char *Terminate_String = ";"; static char Name_Stack[100][32]; static int Name_Stack_P = 0; #define push_name() \ if (Name_Stack_P >= 100) { Name_Stack_P = 0; parse_error ("Name stack overflow.", 0); } \ if (*Token == '"') parse_error("Invalid Name", 0); else\ strcpy(Name_Stack[Name_Stack_P++], Token); #define push_literal_name(n) strcpy(Name_Stack[Name_Stack_P++], (n)) #define pop_name() (*SLcompile_ptr)(Name_Stack[--Name_Stack_P]) static void push_token (char *, int); static int pop_token (void); static int get_token(void); static void expression(void); static void term(void); static void basic(void); static void arguments(int); static void pop_eqsname(int what) { char work[80], *w = work; if (what == ASSIGN_M) *w++ = '-'; else if (what == ASSIGN_P) *w++ = '+'; *w++ = '='; strcpy(w, Name_Stack[--Name_Stack_P]); (*SLcompile_ptr)(work); } #ifdef IF_TYPE static void block(void); static void directive(void); static void block_internal(void); /* static int if_fudge = 0; */ static void parse_error(char *str, int flag) { char buf[132]; if (str == NULL) str = Token; sprintf(buf, "Line %d: %s", LLT->n, str); if (flag && SLang_Error) *buf = 0; SLang_doerror(buf); } static void function_args(void) { int n = 0; get_token(); while ((CTok != END) && (CTok != RIGHT_P)) { if (CTok == NAME) { n++; push_name(); if (n == 1) (*SLcompile_ptr)("["); (*SLcompile_ptr)(Token); } else if (CTok != COMMA) { parse_error("Expecting comma.", 0); } if (SLang_Error) return; get_token(); } get_token(); if (n) { (*SLcompile_ptr)("]"); while(n--) pop_eqsname(ASSIGN); } } /* This routine parses (a,b,..c) = express; to express =c ...=b =a */ static int try_multiple_assignment (void) { int n = 0, save_ctok; char tok[32]; /* I want to look ahead because if neither of the next 2 tokens is a comma, * it is unlikely that this is a multiple assignment so we will just * return 0 */ get_token(); if ((CTok != COMMA) && (CTok != NAME)) { if (CTok == RIGHT_P) { get_token (); push_token (Token, CTok); if (CTok != ASSIGN) { push_token (")", RIGHT_P); return 0; } CTok = RIGHT_P; } else { push_token (Token, CTok); return 0; } } /* the unget token stack is not designed for strings and if one occurs here * it is mst likely a syntax error so just flag it. */ if (CTok == NAME) { if (*Token == '"') { SLang_Error = SYNTAX_ERROR; return 1; } strcpy (tok, Token); get_token (); if (CTok == NAME) { SLang_Error = SYNTAX_ERROR; return 1; } push_token (Token, CTok); push_token (tok, NAME); if (CTok != COMMA) return 0; get_token (); } save_ctok = COMMA; while ((CTok != END) && (CTok != RIGHT_P)) { if (CTok == NAME) { n++; push_name(); } else if (CTok == COMMA) { if (save_ctok == COMMA) { push_literal_name("pop"); n++; } } else parse_error("Expecting comma.", 0); if (SLang_Error) return 1; save_ctok = CTok; get_token (); } if (CTok != RIGHT_P) { parse_error("Unexpected end of source.", 1); return 1; } if (save_ctok == COMMA) { push_literal_name("pop"); n++; } get_token(); if ((CTok == ASSIGN) || (CTok == ASSIGN_P) || (CTok == ASSIGN_P)) { save_ctok = CTok; get_token(); expression(); if (SLang_Error == 0) while (n--) { if (strcmp ("pop", Name_Stack[Name_Stack_P - 1])) pop_eqsname(save_ctok); else pop_name (); } } else parse_error("Syntax Error.", 1); return 1; } static int Look_For_Muliple_Assignment; static char at_handler_name[32]; void SLadd_at_handler (long *f, char *name) { if (*at_handler_name) return; SLadd_name (name, (long) f, SLANG_INTRINSIC, SLANG_MAKE_ARGS(VOID_TYPE, 1)); strncpy (at_handler_name, name, 31); at_handler_name[31] = 0; } static void handle_special_at_line (char *input) { char line[512]; register char *p, ch; p = line; *p++ = '"'; while (((ch = *input++) != 0) && (ch != '\n')) { if ((ch == '"') || (ch == '\\')) *p++ = '\\'; *p++ = ch; } *p++ = '"'; *p++ = ' '; strcpy (p, at_handler_name); SLang_rpn_interpret (line); } static void directive() { int ctoks[3], t, i, bra, this_tok; Look_For_Muliple_Assignment = 1; switch (CTok) { case IF_TYPE: get_token(); /* if_fudge = 1; */ Look_For_Muliple_Assignment = 0; expression(); /* if_fudge = 0; */ block(); if (CTok == EOS) get_token(); if (CTok == ELSE_TYPE) { directive(); } else (*SLcompile_ptr)("if"); break; case RETURN_TYPE: get_token(); Look_For_Muliple_Assignment = 0; if (CTok == EOS) get_token(); else expression(); (*SLcompile_ptr)("return"); break; case ELSE_TYPE: get_token(); block(); (*SLcompile_ptr)("else"); break; case DO_WHILE: get_token(); block(); if (CTok == EOS) get_token(); if (CTok != WHILE_TYPE) { parse_error("Expecting while.", 0); return; } get_token(); (*SLcompile_ptr)("{"); expression(); (*SLcompile_ptr)("}"); (*SLcompile_ptr)("do_while"); break; case WHILE_TYPE: get_token(); Look_For_Muliple_Assignment = 0; (*SLcompile_ptr)("{"); expression(); (*SLcompile_ptr)("}"); block(); (*SLcompile_ptr)("while"); break; case LOOP_TYPE: case FOR_TYPE: case IF_NOT_TYPE: Look_For_Muliple_Assignment = 0; push_name(); get_token(); expression(); block(); pop_name(); break; case CFOR_TYPE: push_name(); get_token(); if (CTok != LEFT_P) goto err; get_token(); ctoks[0] = ctoks[1] = EOS, ctoks[2] = RIGHT_P; for (i = 0; i < 3; i++) { if (SLang_Error) return; t = ctoks[i]; (*SLcompile_ptr)("{"); if (CTok != t) expression(); while (!SLang_Error && (CTok == COMMA)) { get_token(); expression(); } if (CTok != t) goto err; (*SLcompile_ptr)("}"); get_token(); } block(); pop_name(); break; case ERROR_B_TYPE: case EXIT_B_TYPE: case USER_B_TYPE: case FOREVER_TYPE: push_name(); get_token(); block(); pop_name(); break; case ORELSE_TYPE: case ANDELSE_TYPE: case SWITCH_TYPE: push_name (); if (CTok == SWITCH_TYPE) { get_token(); expression(); } else get_token (); while (!SLang_Error && (CTok == EOS_BRA)) block(); pop_name (); break; case GV_TYPE: case V_TYPE: /* variable declaration */ this_tok = CTok; get_token(); bra = 0; while (!SLang_Error && (CTok == NAME)) { strcpy(Name_Stack[Name_Stack_P], Token); if (!bra) { if (this_tok == V_TYPE) { (*SLcompile_ptr)("["); bra = 1; } else SLang_add_global_variable (Token); } if (this_tok == V_TYPE) (*SLcompile_ptr)(Token); get_token(); if (CTok == ASSIGN) { Name_Stack_P++; if (this_tok == V_TYPE) (*SLcompile_ptr)("]"); get_token(); expression(); pop_eqsname(ASSIGN); bra = 0; } if (CTok == COMMA) get_token(); else { break; } } if (bra && (this_tok == V_TYPE)) (*SLcompile_ptr)("]"); if (CTok != EOS) parse_error("Expecting EOS.", 0); break; case F_TYPE: /* function declaration */ get_token(); if (CTok != NAME) { parse_error("Expecting function name.", 0); return; } push_name(); get_token(); (*SLcompile_ptr)("("); if (CTok == LEFT_P) function_args(); if (CTok == EOS_BRA) block_internal(); else if (CTok != EOS) { parse_error("Expecting '{'", 0); return; } if (!SLang_Error) { (*SLcompile_ptr)(")"); pop_name(); } break; case INLINE_TOK: Input = SLang_rpn_interpret(Input + 1); if (!SLang_Error) { Input = NULL; get_token(); } break; case SPECIAL_AT_TOK: handle_special_at_line (Input + 1); Input = NULL; if (!SLang_Error) get_token (); break; #if 0 case LEFT_P: if (try_multiple_assignment ()) break; push_token ("(", LEFT_P); get_token (); /* drop */ #endif default: expression(); } return; err: parse_error("Syntax Error.", 1); } static void block_internal(void) { if (CTok != EOS_BRA) expression(); else { get_token(); while (!SLang_Error && (CTok != END) && (CTok != EOS_KET)) { directive (); /* expression(); */ if (CTok == EOS) get_token(); /* if (CTok != EOS_KET) { SLang_Error = SYNTAX_ERROR; return; } */ } if (CTok == END) { parse_error("Unexpected end of source.", 1); return; } get_token(); } } static void block(void) { (*SLcompile_ptr)("{"); if (CTok != EOS) block_internal(); else get_token(); if (!SLang_Error) (*SLcompile_ptr)("}"); } #endif static void expression(void) { int anything_terminates = 0; /* if (CTok == END) return; */ if (CTok == COLON) { (*SLcompile_ptr)(":"); get_token(); } #ifdef IF_TYPE if (CTok >= IF_TYPE) { directive(); return; } #endif if (CTok == LEFT_P) { anything_terminates = 1; if (Look_For_Muliple_Assignment) { if (try_multiple_assignment ()) return; CTok = LEFT_P; } Look_For_Muliple_Assignment = 1; } term(); while (!SLang_Error) { switch (CTok) { case (SLANG_PLUS): case (SLANG_MINUS): push_name(); get_token(); term(); pop_name(); break; case (SLANG_AND): case (SLANG_BAND): case (SLANG_BOR): case (SLANG_OR): case (SLANG_BXOR): case (SLANG_EQ): case (SLANG_NE): case (SLANG_GT): case (SLANG_GE): case (SLANG_LT): case (SLANG_SHL): case (SLANG_SHR): case (SLANG_LE): /* It seems that to achieve C precedence levels, I should also * push a precedence number for the token as well. Then I would * need to check the level of the last on an somehow pop it if it * is higher than this one. */ push_name(); get_token(); expression(); pop_name(); break; case EOS: case EOS_KET: case KET: case RIGHT_P: case EOS_BRA: case COMMA: return; case COLON: return; /* (*SLcompile_ptr)(":"); * CTok = EOS; * return; */ case NAME: /* allow things like 'if (i == 2) i = 3;' and ':' */ if ((*Token == ':') && (Token[1] == 0)) { CTok = COLON; return; } default: if (anything_terminates) return; parse_error("Expecting ';'", 0); return; } } } static void term(void) { basic(); while(!SLang_Error) { switch (CTok) { case (SLANG_MOD): case (SLANG_TIMES): case (SLANG_DIVIDE): push_name(); get_token(); basic(); pop_name(); break; default: return; } } } static void basic(void) { char *save, *save_again; int count, save_ctok; switch(CTok) { case CASE_TYPE: push_name (); get_token (); basic (); pop_name (); break; case NAME: if (*Token == '"') { (*SLcompile_ptr)(Token); get_token(); break; } push_name(); get_token(); switch(CTok) { case (ASSIGN_P): case (ASSIGN_M): case (ASSIGN): save_ctok = CTok; get_token(); expression(); pop_eqsname(save_ctok); return; case (LEFT_P): get_token(); arguments(RIGHT_P); break; case BRA: /* find end of argument list */ save = Input; count = 1; while (count) { get_token(); if ((CTok == END) /* || (CTok == EOS) */ || (CTok == EOS_BRA) || (CTok == EOS_KET)) { parse_error("Incomplete Statement.", 0); return; } else if (CTok == BRA) count++; else if (CTok == KET) count--; } get_token(); if (CTok == ASSIGN) { get_token(); expression(); save_again = Input; save_ctok = CTok; Input = save; get_token(); arguments(KET); pop_name(); (*SLcompile_ptr)("aput"); Input = save_again; CTok = save_ctok; } else { Input = save; get_token(); arguments(KET); pop_name(); (*SLcompile_ptr)("aget"); } return; } pop_name(); /* this push at 'case NAME:' */ break; case SLANG_MINUS: get_token(); basic(); (*SLcompile_ptr)("chs"); break; case LEFT_P: while (!SLang_Error && (CTok != END) && (CTok != RIGHT_P)) { get_token(); if (CTok != RIGHT_P) expression(); } if (!SLang_Error && (CTok != RIGHT_P)) SLang_doerror("Unbalanced parenthesis!"); get_token(); break; default: /* case BRA: case case END: case EOS_BRA: case EOS_KET: case EOS: */ parse_error("Syntax Error.", 0); } } static void arguments(int match) { while (!SLang_Error) { if (CTok == match) { get_token(); return; } else if (CTok == COMMA) get_token(); /* was EOS */ else if ((CTok == END) || /* (CTok == EOS) || */ (CTok == EOS_BRA) || (CTok == EOS_KET)) { parse_error("Incomplete list", 0); } else expression(); } } /* To avoid compiler warnings, the 3rd dummy parameter is used */ static int fast_extract_token(char **sp, char *t, int len) { /* first char is the length of token - 32 */ char *s = *sp; len = (unsigned char) *s++; len -= 32; if (len <= 0) return 0; if (*s == '"') { SLexpand_escaped_string (t, s, s + len); } else { strncpy (t, s, len); t[len] = 0; } *sp += len + 1; return 1; } static char *(*Get_Token_Read_Fun)(SLang_Load_Type *); /* interprets line-- returns offset of last part of line evaluated */ char *SLang_rpn_interpret(char *line) { char token[256]; char *ret; int (*extract_token_ptr)(char **, char *, int); int byte_comp = ((long) SLcompile != (long) SLcompile_ptr); /* @ is signature to use fast method */ if (*line == '@') { extract_token_ptr = fast_extract_token; line++; } else extract_token_ptr = SLang_extract_token; while(ret = line, (*extract_token_ptr) (&line,token, byte_comp)) { if (SLang_Error) break; if (*token == '%') break; (*SLcompile_ptr)(token); if (SLang_Error) break; /* puts(token); */ } /* if (SLang_Error) SLang_doerror(NULL); */ return(ret); } #if 0 #define MAX_DEFINES 10 #define MAX_DEFINE_LEN 16 static char SLdefines[MAX_DEFINES][MAX_DEFINE_LEN]; int SLdefine_for_ifdef (char *s) { int n, i; char *place; for (i = 0; i < MAX_DEFINES; i++) { place = SLdefines[i]; if (*place == 0) { n = strlen (s); if (n > MAX_DEFINE_LEN - 2) n = MAX_DEFINE_LEN - 2; *place++ = (char) n; strncpy(place, s, n); *(place + n) = 0; return 1; } } return 0; } static int is_any_defined(char *buf) { char *sys, *buf_save = buf; int i = 0, n; register char ch; while ((i < MAX_DEFINES) && (sys = SLdefines[i], (n = (int) *sys++) != 0)) { buf = buf_save; while (1) { while ((ch = *buf), ch && (ch != '\n') && (ch <= ' ')) buf++; if ((ch <= '\n') || (ch == '%')) break; if (!strncmp(buf, sys, n)) { buf += n; if ((*buf <= ' ') || (*buf == '%')) return 1; } else { while ((ch = *buf), (ch > ' ') && (ch != '%')) buf++; } } i++; } return 0; } #ifdef SLANG_WITH_IFISDEF /* See below for what this is supposed to be about */ static int check_if_intrinsic (unsigned char *buf) { unsigned char buffer[32], *bmax, *b; int n; while ((*buf == ' ') || (*buf == '\t')) buf++; if ((*buf == 0) || (*buf == '\n')) return 0; b = buffer; bmax = b + 31; while ((b < bmax) && (*buf > ' ')) *b++ = *buf++; if (*buf > ' ') return 0; *b = 0; n = SLang_is_defined ((char *)buffer); return (n * n == 1); } #endif static int slang_line_ok (char *buf, int *levelp, int *exec_levelp) { int level = *levelp; int exec_level = *exec_levelp; if (buf == NULL) return (1); if (*buf == '\n') return (0); if (*buf == '%') return (0); /* since '%' is a comment */ if (*buf == '#') { buf++; if (!strncmp(buf, "ifdef", 5)) { if (level != exec_level) level++; else { level++; if (is_any_defined(buf + 5)) { exec_level = level; } } } else if (!strncmp(buf, "ifndef", 6)) { if (level != exec_level) level++; else { level++; if (!is_any_defined(buf + 6)) { exec_level = level; } } } else if (!strncmp(buf, "else", 4)) { if (level == exec_level + 1) exec_level = level; else if (level == exec_level) exec_level--; } else if (!strncmp(buf, "endif", 5)) { if (level == exec_level) exec_level--; level--; } #ifdef SLANG_WITH_IFISDEF else if (!strncmp(buf, "ifisdef", 7)) { if (level != exec_level) level++; else { level++; if (check_if_intrinsic ((unsigned char *) buf + 7)) { exec_level = level; } } } else if (!strncmp(buf, "ifisndef", 8)) { if (level != exec_level) level++; else { level++; if (!check_if_intrinsic((unsigned char *) buf + 8)) { exec_level = level; } } } #endif /* SLANG_WITH_IFISDEF */ /* Allow '#!' to pass. This could be a shell script with something like '#! /local/bin/slang' */ else if (*buf == '!') return 0; else return 1; /* It will Bomb. */ if (exec_level < 0) return 1; *levelp = level; *exec_levelp = exec_level; return 0; } return (level == exec_level); } /* preprocessor */ #endif /* if 0 */ static SLPreprocess_Type *This_SLpp; #define STREQS(a,b) (*(a) == *(b)) && !strcmp(a,b) #define MAX_PUSHED_TOKENS 3 static struct { char token[32]; int ctok; } Token_Stack[MAX_PUSHED_TOKENS]; static int Num_Pushed_Tokens; static void push_token (char *t, int n) { if ((Num_Pushed_Tokens == MAX_PUSHED_TOKENS) || (*t == '"')) { SLang_Error = SYNTAX_ERROR; Num_Pushed_Tokens = 0; return; } strcpy (Token_Stack[Num_Pushed_Tokens].token, t); Token_Stack[Num_Pushed_Tokens].ctok = n; Num_Pushed_Tokens++; } static int pop_token () { if (Num_Pushed_Tokens == 0) return 0; Num_Pushed_Tokens--; strcpy (Token, Token_Stack[Num_Pushed_Tokens].token); CTok = Token_Stack[Num_Pushed_Tokens].ctok; return 1; } static int get_token(void) { int type; int byte_comp = ((long) SLcompile != (long) SLcompile_ptr); if (SLang_Error) return (CTok = END); if (pop_token ()) return CTok; if ((Input != NULL) && (Input != Terminate_String) && (Input != Terminate_String + 1)) LLT->ofs = (int) (Input - LLT->buf); while ((Input == NULL) || (0 == SLang_extract_token(&Input, Token, byte_comp)) || (*Token == '%')) { do { LLT->n++; if ((NULL == (Input = (*Get_Token_Read_Fun)(LLT))) || SLang_Error) return(CTok = END); } while (!SLprep_line_ok(Input, This_SLpp)); /* lines beginning with a '.' are RPN */ if (*Input == '.') return(CTok = INLINE_TOK); else if ((*Input == '@') && (*at_handler_name)) return CTok = SPECIAL_AT_TOK; } if (0 == Token[1]) { switch (*Token) { case '(': return(CTok = LEFT_P); case ')': return(CTok = RIGHT_P); case ',': return(CTok = COMMA); case ';': return(CTok = EOS); case '=': return(CTok = ASSIGN); case '[': return(CTok = BRA); case ']': return(CTok = KET); case '{': return(CTok = EOS_BRA); case '}': return(CTok = EOS_KET); } } if (*Token == '"') return (CTok = NAME); else if (0 != (type = slang_eqs_name(Token, SL_Binary_Ops))) { return (CTok = abs(type)); } if (STREQS("!if", Token)) return (CTok = IF_NOT_TYPE); if (STREQS("if", Token)) return (CTok = IF_TYPE); if (STREQS("else", Token)) return (CTok = ELSE_TYPE); if (STREQS("forever", Token)) return (CTok = FOREVER_TYPE); if (STREQS("while", Token)) return (CTok = WHILE_TYPE); if (STREQS("variable", Token)) return (CTok = V_TYPE); if (STREQS("define", Token)) return (CTok = F_TYPE); if (STREQS("for", Token)) return (CTok = CFOR_TYPE); if (STREQS("loop", Token)) return (CTok = LOOP_TYPE); if (STREQS("switch", Token)) return (CTok = SWITCH_TYPE); if (STREQS("orelse", Token)) return (CTok = ORELSE_TYPE); if (STREQS("andelse", Token)) return (CTok = ANDELSE_TYPE); if (STREQS("return", Token)) return (CTok = RETURN_TYPE); if (STREQS("+=", Token)) return (CTok = ASSIGN_P); if (STREQS("-=", Token)) return (CTok = ASSIGN_M); if (STREQS("_for", Token)) return (CTok = FOR_TYPE); if (STREQS("do", Token)) return (CTok = DO_WHILE); if (STREQS("ERROR_BLOCK", Token)) return(CTok = ERROR_B_TYPE); if (STREQS("EXIT_BLOCK", Token)) return(CTok = EXIT_B_TYPE); if ((*Token == 'U') && !strncmp(Token, "USER_BLOCK", 10) && (Token[10] < '5') && (Token[10] >= '0') && (Token[11] == 0)) return CTok = USER_B_TYPE; if (STREQS("case", Token)) return(CTok = CASE_TYPE); if (STREQS("global_variable", Token)) return(CTok = GV_TYPE); if (*Token == '@') { parse_error("Illegal Name.", 1); return (CTok == END); } return (CTok = NAME); } /* Since these routines must be re-entrant, the context is saved and later restored. */ static void SLang_eval_object(SLang_Load_Type *x) { char *(*last_read_fun)(SLang_Load_Type *) = Get_Token_Read_Fun; char *last_token = Token, *last_input = Input; SLPreprocess_Type *last_pp, this_pp; SLang_Load_Type *last_llt = LLT; int last_ctok = CTok; last_pp = This_SLpp; if (-1 == SLprep_open_prep (&this_pp)) return; This_SLpp = &this_pp; x->ofs = x->n = 0; Get_Token_Read_Fun = x->read; Token = x->token; LLT = x; Input = NULL; /* Name_Stack_P = 0; */ /* This should be put in restart_slang */ LLT->top_level = 1; get_token(); while (!SLang_Error && (CTok != END)) { LLT->top_level = 0; if (CTok == EOS) { LLT->top_level = 1; get_token(); } else if (CTok != END) directive(); } /* if (SLang_Error) parse_error(NULL, 0); */ /* x.ptr = Input */ Get_Token_Read_Fun = last_read_fun; Token = last_token; CTok = last_ctok; LLT = last_llt; Input = last_input; This_SLpp = last_pp; } int (*SLang_User_Open_Slang_Object)(SLang_Load_Type *); int (*SLang_User_Close_Slang_Object)(SLang_Load_Type *); char *SLang_User_Prompt; static char *slang_read_from_file (SLang_Load_Type *x) { if ((x->handle == (long) stdin) && (SLang_User_Prompt != NULL)) { fputs(SLang_User_Prompt, stdout); fflush(stdout); } return fgets((char *) x->buf, 511, (FILE *) x->handle); } static char *slang_read_from_string (SLang_Load_Type *x) { char *s, ch, *s1; if (x->handle == -1) return (NULL); else if (x->handle == 0) { x->handle = -1; return Terminate_String; } s1 = s = x->ptr; while ((ch = *s++) != 0) if (ch == '\n') break; x->handle--; x->ptr = s; return (s1); } static int slang_close_object(SLang_Load_Type *x) { int status; if ((SLang_User_Close_Slang_Object != NULL) && ((status = (*SLang_User_Close_Slang_Object)(x)) != SL_OBJ_UNKNOWN)) { return(status); } switch (x->type) { case 'C': /* File */ case 'F': /* File */ if (x->handle != (long) stdin) fclose((FILE *) x->handle); SLFREE(x->buf); x->ptr = NULL; return (0); case 'S': /* string */ return (0); default: return SL_OBJ_UNKNOWN; } } /* returns 0 if successful */ static int slang_open_object(SLang_Load_Type *x) { int status, n; char *s, ch; if (SLang_User_Open_Slang_Object != NULL) { status = (*SLang_User_Open_Slang_Object)(x); if ((status == 0) || (status == SL_OBJ_NOPEN)) return(status); /* pass control to default */ } switch (x->type) { case 'C': case 'F': /* File */ x->read = slang_read_from_file; if ((x->name == 0) || (*(char *)(x->name) == 0)) { x->name = (long) ""; x->handle = (long) stdin; } else if (0 == (x->handle = (long) fopen((char *) x->name, "r"))) { return (SL_OBJ_NOPEN); } if (NULL == (x->buf = (char *) SLMALLOC(512))) { SLang_Error = SL_MALLOC_ERROR; if (x->handle != (long) stdin) fclose((FILE *) x->handle); return(SL_OBJ_NOPEN); } x->ptr = x->buf; return (0); case 'S': /* string */ x->read = slang_read_from_string; s = (char *) x->name; x->ptr = x->buf = s; /* handle represents the number of lines in the string. */ n = 1; while ((ch = *s++) != 0) { if (ch == '\n') n++; } x->handle = n; return (0); default: return SL_OBJ_UNKNOWN; } } int SLang_load_object(SLang_Load_Type *x) { int status; status = slang_open_object(x); if (status != 0) return (status); SLang_eval_object(x); slang_close_object(x); if (SLang_Error) { Name_Stack_P = 0; Num_Pushed_Tokens = 0; } return SLang_Error; } /* Note that file could be freed from Slang during run of this routine so get it and store it !! (e.g., autoloading) */ int SLang_load_file(char *f) { SLang_Load_Type x; char buf[300]; char file[256]; if (f != NULL) strcpy(file, f); else *file = 0; x.name = (long) file; x.type = 'F'; if (SL_OBJ_NOPEN == SLang_load_object(&x)) { sprintf(buf, "Error opening %s.", file); SLang_doerror(buf); } else if (SLang_Error) { sprintf(buf, "S-Lang Error: line %d: file: %s", x.n, (char *) x.name); SLang_doerror(buf); return(0); } return(1); } char *SLang_load_string(char *string) { SLang_Load_Type x; x.name = (long) string; x.type = 'S'; SLang_load_object(&x); if (SLang_Error) { SLang_doerror(NULL); } return((char *)x.name + x.ofs); } static FILE *byte_compile_fp; static int Slang_Line_Len; static int defining_variables; static void SLang_byte_compile(char *s) { int n = Slang_Line_Len; int dn; unsigned char ch; if (SLang_Error) return; if (!defining_variables) s = SLbyte_compile_name(s); if (*s == 0) return; if (*s == '[') defining_variables = 1; else if (*s == ']') defining_variables = 0; dn = strlen(s); n += dn; if (n > 250) { fputs("\n.@", byte_compile_fp); n = dn; } ch = (unsigned char) dn; ch += 32; putc((char) ch, byte_compile_fp); fputs(s, byte_compile_fp); Slang_Line_Len = n + 1; } void SLang_byte_compile_file(char *f, int *method) { char file[256]; SLang_Load_Type x; int status; char buf[290]; SLPreprocess_Only = *method; sprintf(file, "%sc", f); if ((byte_compile_fp = fopen(file, "w")) == NULL) { SLang_doerror(file); SLang_doerror("Error opening .slc file for byte compiling"); return; } x.name = (long) f; x.type = 'C'; Slang_Line_Len = 1; fputs(".@", byte_compile_fp); SLcompile_ptr = SLang_byte_compile; status = SLang_load_object(&x); SLcompile_ptr = SLcompile; putc('\n', byte_compile_fp); fclose(byte_compile_fp); if (SL_OBJ_NOPEN == status) { sprintf(buf, "Error opening %s for byte compiling.", f); SLang_doerror(buf); } else if (SLang_Error) { sprintf(buf, "S-Lang Error: line %d: file: %s", x.n, (char *) x.name); SLang_doerror(buf); } } ) f; x.type = 'C'; Slang_Line_Len = 1; fputs(".@", byte_compile_fp); SLcompile_ptr = SLang_byte_compile; status = SLang_load_object(&x); SLcompile_ptr = SLcompile; putc('\n', byte_compile_fp); fclose(byte_compile_fp); if (SL_OBJ_NOPEN == status) { sprintf(buf, "Error opening %s for byte compiling.", f); SLang_doerror(buf); } slang-0.99.12/src/slregexp.c000064400000000000003000000352650603742322500154360ustar00rootsys00000000000000/* ed style regular expressions */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #include "slang.h" #define SET_BIT(b, n) b[(unsigned int) (n) >> 3] |= 1 << ((unsigned int) (n) % 8) #define TEST_BIT(b, n) (b[(unsigned int)(n) >> 3] & (1 << ((unsigned int) (n) % 8))) #define LITERAL 1 #define RANGE 2 #define ANY 3 #define BOL 4 #define EOL 5 #define NTH_MATCH 6 #define OPAREN 7 #define CPAREN 8 #define ANY_DIGIT 9 #define STAR 0x80 #define LEAST_ONCE 0x40 #define MAYBE_ONCE 0x20 #define MANY 0x10 /* The rest are additions */ #define YES_CASE (STAR | BOL) #define NO_CASE (STAR | EOL) #define UPPERCASE(x) (cs ? (x) : UPPER_CASE(x)) #define LOWERCASE(x) (cs ? (x) : LOWER_CASE(x)) static int Next_Pos; static SLRegexp_Type *This_Reg; static unsigned char *This_Str; static unsigned char *do_nth_match(int n, unsigned char *str, unsigned char *estr) { unsigned char *bpos; if (n > Next_Pos) return (NULL); bpos = This_Reg->beg_matches[n] + This_Str; n = This_Reg->end_matches[n]; if (n == 0) return(str); if (n > (int) (estr - str)) return (NULL); /* This needs fixed for case sensitive match */ if (0 != strncmp((char *) str, (char *) bpos, n)) return (NULL); str += n; return (str); } /* returns pointer to the end of regexp or NULL */ static unsigned char *regexp_looking_at(register unsigned char *str, unsigned char *estr, unsigned char *buf, register int cs) { register unsigned char p, p1; unsigned char *save_str, *tmpstr; int n, n0, n1; int save_next = 0; p = *buf++; while (p != 0) { /* p1 = UPPERCASE(*buf); */ /* if (str < estr) c = UPPERCASE(*str); */ switch((unsigned char) p) { case YES_CASE: cs = 1; break; case NO_CASE: cs = 0; break; case OPAREN: This_Reg->beg_matches[Next_Pos] = (int) (str - This_Str); This_Reg->beg_matches[Next_Pos + 1] = -1; break; case CPAREN: This_Reg->end_matches[Next_Pos] = (int) (str - This_Str) - This_Reg->beg_matches[Next_Pos]; Next_Pos++; break; case LITERAL: if ((str >= estr) || (*buf != UPPERCASE(*str))) return (NULL); str++; buf++; break; case MAYBE_ONCE | LITERAL: save_str = str; if ((str < estr) && (*buf == UPPERCASE(*str))) str++; buf++; goto match_rest; case LITERAL | LEAST_ONCE: /* match at least once */ if ((str >= estr) || (UPPERCASE(*str) != UPPERCASE(*buf))) return (NULL); str++; /* drop */ case STAR | LITERAL: save_str = str; p1 = *buf; while ((str < estr) && (UPPERCASE(*str) == p1)) str++; buf++; goto match_rest; /* this type consists of the expression + two bytes that determine number of matches to perform */ case MANY | LITERAL: p1 = *buf; buf++; n = n0 = (int) (unsigned char) *buf++; /* minimum number to match--- could be 0 */ n1 = (int) (unsigned char) *buf++; /* maximum number to match */ while (n && (str < estr) && (p1 == *str)) { n--; str++; } if (n) return (NULL); n = n1 - n0; while (n && (str < estr) && (p1 == *str)) { n--; str++; } break; case NTH_MATCH: if ((str = do_nth_match((int) (unsigned char) *buf, str, estr)) == NULL) return(NULL); buf++; break; case MAYBE_ONCE | NTH_MATCH: save_str = str; tmpstr = do_nth_match((int) (unsigned char) *buf, str, estr); buf++; if (tmpstr != NULL) { str = tmpstr; goto match_rest; } continue; case LEAST_ONCE | NTH_MATCH: if ((str = do_nth_match((int) (unsigned char) *buf, str, estr)) == NULL) return(NULL); /* drop */ case STAR | NTH_MATCH: save_str = str; while (NULL != (tmpstr = do_nth_match((int) (unsigned char) *buf, str, estr))) { str = tmpstr; } buf++; goto match_rest; case MANY | NTH_MATCH: return(NULL); /* needs done */ case RANGE: if (str >= estr) return (NULL); if (TEST_BIT(buf, UPPERCASE(*str)) == 0) return (NULL); buf += 32; str++; break; case MAYBE_ONCE | RANGE: save_str = str; if ((str < estr) && TEST_BIT(buf, UPPERCASE(*str))) str++; buf += 32; goto match_rest; case LEAST_ONCE | RANGE: if ((str >= estr) || (0 == TEST_BIT(buf, UPPERCASE(*str)))) return NULL; str++; /* drop */ case STAR | RANGE: save_str = str; while ((str < estr) && TEST_BIT(buf, UPPERCASE(*str))) str++; buf += 32; goto match_rest; case MANY | RANGE: /* needs finished */ return (NULL); case ANY_DIGIT: if ((str >= estr) || (*str > '9') || (*str < '0')) return (NULL); str++; break; case MAYBE_ONCE | ANY_DIGIT: save_str = str; if ((str < estr) && ((*str > '9') || (*str < '0'))) str++; goto match_rest; case LEAST_ONCE | ANY_DIGIT: if ((str < estr) && ((*str > '9') || (*str < '0'))) return NULL; str++; /* drop */ case STAR | ANY_DIGIT: save_str = str; while ((str < estr) && ((*str <= '9') && (*str >= '0'))) str++; goto match_rest; case MANY | ANY_DIGIT: /* needs finished */ return (NULL); case ANY: if ((str >= estr) || (*str == '\n')) return (NULL); str++; break; case MAYBE_ONCE | ANY: save_str = str; if ((str < estr) && (*str != '\n')) str++; goto match_rest; case LEAST_ONCE | ANY: if ((str >= estr) || (*str == '\n')) return (NULL); str++; /* drop */ case STAR | ANY: save_str = str; while ((str < estr) && (*str != '\n')) str++; goto match_rest; case MANY | ANY: return (NULL); /* needs finished */ case EOL: if ((str >= estr) || (*str == '\n')) return (str); return(NULL); default: return (NULL); } p = *buf++; continue; match_rest: if (save_str == str) { p = *buf++; continue; } /* if (p == EOL) * { * if (str < estr) return (NULL); else return (str); * } */ save_next = Next_Pos; while (str >= save_str) { tmpstr = regexp_looking_at(str, estr, buf, cs); if (tmpstr != NULL) return(tmpstr); Next_Pos = save_next; str--; } return (NULL); } if ((p != 0) && (p != EOL)) return (NULL); else return (str); } unsigned char *SLang_regexp_match(unsigned char *str, int len, SLRegexp_Type *reg) { register unsigned char c = 0, *estr = str + len; int cs = reg->case_sensitive, lit = 0; unsigned char *buf = reg->buf, *epos; if (reg->min_length > len) return NULL; Next_Pos = 1; This_Reg = reg; This_Str = str; if (*buf == BOL) { if (NULL == (epos = regexp_looking_at(str, estr, buf + 1, cs))) str = NULL; reg->beg_matches[0] = (int) (str - This_Str); reg->end_matches[0] = (int) (epos - str); return(str); } if (*buf == NO_CASE) { buf++; cs = 0; } if (*buf == YES_CASE) { buf++; cs = 1; } if (*buf == LITERAL) { lit = 1; c = *(buf + 1); } else if ((*buf == OPAREN) && (*(buf + 1) == LITERAL)) { lit = 1; c = *(buf + 2); } while (str < estr) { /* take care of leading chars */ if (lit) { while ((str < estr) && (c != UPPERCASE(*str))) str++; if (str >= estr) return(NULL); } Next_Pos = 1; if (NULL != (epos = regexp_looking_at(str, estr, buf, cs))) { reg->beg_matches[0] = (int) (str - This_Str); reg->end_matches[0] = (int) (epos - str); return (str); } str++; } return (NULL); } static unsigned char *convert_digit(unsigned char *pat, int *nn) { int n = 0, m = 0; unsigned char c; while (c = (unsigned char) *pat, (c <= '9') && (c >= '0')) { pat++; n = 10 * n + (c - '0'); m++; } if (m == 0) { return (NULL); } *nn = n; return pat; } #define ERROR return (int) (pat - reg->pat) /* Returns 0 if successful or offset in pattern of error */ int SLang_regexp_compile (SLRegexp_Type *reg) { register unsigned char *buf, *ebuf, *pat; unsigned char *last = NULL, *tmppat; register unsigned char c; int i, reverse = 0, n, cs; int oparen = 0, dparen = 0, nparen = 0; /* substring stuff */ int count, last_count, this_max_mm = 0, max_mm = 0, ordinary_search, no_osearch = 0, min_length = 0; unsigned char *mm_p = NULL, *this_mm_p = NULL; reg->beg_matches[0] = reg->end_matches[0] = 0; buf = reg->buf; ebuf = reg->buf + reg->buf_len - 2; /* make some room */ pat = reg->pat; cs = reg->case_sensitive; SLang_init_case_tables (); i = 1; while (i < 10) { reg->beg_matches[i] = reg->end_matches[i] = -1; i++; } if (*pat == '^') { pat++; *buf++ = BOL; reg->must_match_bol = 1; } else reg->must_match_bol = 0; *buf = 0; last_count = count = 0; while ((c = *pat++) != 0) { if (buf >= ebuf - 3) { SLang_doerror ("Pattern large to be compiled."); ERROR; } count++; switch (c) { case '$': if (*pat != 0) goto literal_char; *buf++ = EOL; break; case '\\': c = *pat++; no_osearch = 1; switch(c) { case 'e': c = 033; goto literal_char; case 'n': c = '\n'; goto literal_char; case 't': c = '\t'; goto literal_char; case 'C': cs = 0; *buf++ = NO_CASE; break; case 'c': cs = 1; *buf++ = YES_CASE; break; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': c = c - '0'; if ((int) c > nparen / 2) ERROR; last = buf; *buf++ = NTH_MATCH; *buf++ = c; break; case 'd': /* slang extension */ last = buf; *buf++ = ANY_DIGIT; min_length++; break; case '{': if (last == NULL) goto literal_char; *last |= MANY; tmppat = convert_digit(pat, &n); if (tmppat == NULL) ERROR; pat = tmppat; *buf++ = n; if (*pat == '\\') { *buf++ = n; } else if (*pat == ',') { pat++; if (*pat == '\\') { n = 255; } else { tmppat = convert_digit(pat, &n); if (tmppat == NULL) ERROR; pat = tmppat; if (*pat != '\\') ERROR; } *buf++ = n; } else ERROR; last = NULL; pat++; if (*pat != '}') ERROR; pat++; break; /* case '{' */ case '(': oparen++; if ((oparen > '9') || (dparen == 1)) ERROR; dparen = 1; nparen++; *buf++ = OPAREN; break; case ')': if (dparen != 1) ERROR; dparen = 0; nparen++; *buf++ = CPAREN; break; case 0: ERROR; default: goto literal_char; } break; case '[': *buf = RANGE; last = buf++; if (buf + 32 >= ebuf) ERROR; for (i = 0; i < 32; i++) buf[i] = 0; c = *pat++; if (c == '^') { reverse = 1; SET_BIT(buf, '\n'); c = *pat++; } if (c == ']') { SET_BIT(buf, c); c = *pat++; } while (c && (c != ']')) { if (c == '\\') { c = *pat++; switch(c) { case 'n': c = '\n'; break; case 't': c = '\t'; break; case 0: ERROR; } } if (*pat == '-') { pat++; while (c < *pat) { if (cs == 0) { SET_BIT(buf, UPPERCASE(c)); SET_BIT(buf, LOWERCASE(c)); } else SET_BIT(buf, c); c++; } } if (cs == 0) { SET_BIT(buf, UPPERCASE(c)); SET_BIT(buf, LOWERCASE(c)); } else SET_BIT(buf, c); c = *pat++; } if (c != ']') ERROR; if (reverse) for (i = 0; i < 32; i++) buf[i] = buf[i] ^ 0xFF; reverse = 0; buf += 32; min_length++; break; case '.': last = buf; *buf++ = ANY; min_length++; break; case '*': if (last == NULL) goto literal_char; *last |= STAR; min_length--; last = NULL; break; case '+': if (last == NULL) goto literal_char; *last |= LEAST_ONCE; last = NULL; break; case '?': if (last == NULL) goto literal_char; *last |= MAYBE_ONCE; last = NULL; min_length--; break; literal_char: default: /* This is to keep track of longest substring */ min_length++; this_max_mm++; if (last_count + 1 == count) { if (this_max_mm == 1) { this_mm_p = buf; } else if (max_mm < this_max_mm) { mm_p = this_mm_p; max_mm = this_max_mm; } } else { this_mm_p = buf; this_max_mm = 1; } last_count = count; last = buf; *buf++ = LITERAL; *buf++ = UPPERCASE(c); } } *buf = 0; /* Check for ordinary search */ ebuf = buf; buf = reg->buf; if (no_osearch) ordinary_search = 0; else { ordinary_search = 1; while (buf < ebuf) { if (*buf != LITERAL) { ordinary_search = 0; break; } buf += 2; } } reg->osearch = ordinary_search; reg->must_match_str[15] = 0; reg->min_length = (min_length > 0) ? min_length : 0; if (ordinary_search) { strncpy((char *) reg->must_match_str, (char *) reg->pat, 15); reg->must_match = 1; return(0); } /* check for longest substring of pattern */ reg->must_match = 0; if ((mm_p == NULL) && (this_mm_p != NULL)) mm_p = this_mm_p; if (mm_p == NULL) { return (0); } n = 15; pat = reg->must_match_str; buf = mm_p; while (n--) { if (*buf++ != LITERAL) break; *pat++ = *buf++; } *pat = 0; if (pat != reg->must_match_str) reg->must_match = 1; return(0); } /* #define MAX_EXP 4096 int main(int argc, char **argv) { FILE *fp; char *regexp, *file; char expbuf[MAX_EXP], buf[512]; SLRegexp_Type reg; file = argv[2]; regexp = argv[1]; if (NULL == (fp = fopen(file, "r"))) { fprintf(stderr, "File not open\n"); return(1); } reg.buf = expbuf; reg.buf_len = MAX_EXP; reg.pat = regexp; reg.case_sensitive = 1; if (!regexp_compile(®)) while (NULL != fgets(buf, 511, fp)) { if (reg.osearch) { if (NULL == strstr(buf, reg.pat)) continue; } else { if (reg.must_match && (NULL == strstr(buf, reg.must_match_str))) continue; if (0 == regexp_match(buf, buf + strlen(buf), ®)) continue; } fputs(buf, stdout); } return (0); } */ err, "File not open\n"); return(1); } reg.buf = expbuf; reg.buf_len = MAX_EXP; reg.pat = regexp; reg.case_sensitive = 1; if (!regexp_compile(®)) while (NULL != fgets(buf, 511, fp)) { if (reg.osearch) { if (NULL == strstr(buf, reg.pat)) continue; } else { if (reg.must_matchslang-0.99.12/src/slrline.c000064400000000000003000000417710603742322600152550ustar00rootsys00000000000000/* SLang_read_line interface --- uses SLang tty stuff */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #include "slang.h" #include "_slang.h" #ifndef __GO32__ #ifdef unix #define real_unix #endif #endif #ifdef real_unix int SLang_RL_EOF_Char = 4; #else int SLang_RL_EOF_Char = 26; #endif int SLang_Rline_Quit; static SLang_RLine_Info_Type *This_RLI; static unsigned char Char_Widths[256]; static void position_cursor (int); static void rl_beep (void) { putc(7, stdout); fflush (stdout); } /* editing functions */ static int rl_bol (void) { if (This_RLI->point == 0) return 0; This_RLI->point = 0; return 1; } static int rl_eol (void) { if (This_RLI->point == This_RLI->len) return 0; This_RLI->point = This_RLI->len; return 1; } static int rl_right (void) { if (This_RLI->point == This_RLI->len) return 0; This_RLI->point++; return 1; } static int rl_left (void) { if (This_RLI->point == 0) return 0; This_RLI->point--; return 1; } static int rl_self_insert (void) { unsigned char *pmin, *p; if (This_RLI->len == This_RLI->buf_len) { rl_beep (); return 0; } pmin = This_RLI->buf + This_RLI->point; p = This_RLI->buf + This_RLI->len; while (p > pmin) { *p = *(p - 1); p--; } *pmin = SLang_Last_Key_Char; This_RLI->len++; This_RLI->point++; if ((This_RLI->curs_pos + 2 >= This_RLI->edit_width) || (This_RLI->tt_insert == NULL) || (Char_Widths[SLang_Last_Key_Char] != 1)) return 1; (*This_RLI->tt_insert)((char) SLang_Last_Key_Char); /* update screen buf */ p = This_RLI->old_upd + (This_RLI->len - 1); pmin = This_RLI->old_upd + (This_RLI->point - 1); while (p > pmin) { *p = *(p - 1); p--; } *pmin = SLang_Last_Key_Char; return 0; } int SLang_rline_insert (char *s) { unsigned char *pmin, *p; int n; n = strlen (s); if (n > This_RLI->buf_len - This_RLI->len) n = This_RLI->buf_len - This_RLI->len; if (n == 0) return 0; pmin = This_RLI->buf + This_RLI->point; p = This_RLI->buf + (This_RLI->len - 1); while (p >= pmin) { *(p + n) = *p; p--; } MEMCPY ((char *) pmin, s, n); This_RLI->len += n; This_RLI->point += n; return n; } static int rl_deln (int n) { unsigned char *pmax, *p; p = This_RLI->buf + This_RLI->point; pmax = This_RLI->buf + This_RLI->len; if (p + n > pmax) n = (int) (pmax - p); while (p < pmax) { *p = *(p + n); p++; } This_RLI->len -= n; return n; } static int rl_del (void) { return rl_deln(1); } static int rl_quote_insert (void) { int err = SLang_Error; SLang_Error = 0; SLang_Last_Key_Char = (*This_RLI->getkey)(); rl_self_insert (); if (SLang_Error == USER_BREAK) SLang_Error = 0; else SLang_Error = err; return 1; } static int rl_trim (void) { unsigned char *p, *pmax, *p1; p = This_RLI->buf + This_RLI->point; pmax = This_RLI->buf + This_RLI->len; if (p == pmax) { if (p == This_RLI->buf) return 0; p--; } if ((*p != ' ') && (*p != '\t')) return 0; p1 = p; while ((p1 < pmax) && ((*p1 == ' ') || (*p1 == '\t'))) p1++; pmax = p1; p1 = This_RLI->buf; while ((p >= p1) && ((*p == ' ') || (*p == '\t'))) p--; if (p == pmax) return 0; p++; This_RLI->point = (int) (p - p1); return rl_deln ((int) (pmax - p)); } static int rl_bdel (void) { if (rl_left()) return rl_del(); return 0; } static int rl_deleol (void) { if (This_RLI->point == This_RLI->len) return 0; *(This_RLI->buf + This_RLI->point) = 0; This_RLI->len = This_RLI->point; return 1; } static int rl_delete_line (void) { This_RLI->point = 0; *(This_RLI->buf + This_RLI->point) = 0; This_RLI->len = 0; return 1; } static int rl_enter (void) { *(This_RLI->buf + This_RLI->len) = 0; SLang_Rline_Quit = 1; return 1; } static SLKeyMap_List_Type *RL_Keymap; /* This update is designed for dumb terminals. It assumes only that the * terminal can backspace via ^H, and move cursor to start of line via ^M. * There is a hook so the user can provide a more sophisicated update if * necessary. */ static void position_cursor (int col) { unsigned char *p, *pmax; int dc; if (col == This_RLI->curs_pos) { fflush (stdout); return; } if (This_RLI->tt_goto_column != NULL) { (*This_RLI->tt_goto_column)(col); This_RLI->curs_pos = col; fflush(stdout); return; } dc = This_RLI->curs_pos - col; if (dc < 0) { p = This_RLI->new_upd + This_RLI->curs_pos; pmax = This_RLI->new_upd + col; while (p < pmax) putc((char) *p++, stdout); } else { if (dc < col) { while (dc--) putc(8, stdout); } else { putc('\r', stdout); p = This_RLI->new_upd; pmax = This_RLI->new_upd + col; while (p < pmax) putc((char) *p++, stdout); } } This_RLI->curs_pos = col; fflush (stdout); } static void erase_eol (SLang_RLine_Info_Type *rli) { unsigned char *p, *pmax; p = rli->old_upd + rli->curs_pos; pmax = rli->old_upd + rli->old_upd_len; while (p++ < pmax) putc(' ', stdout); rli->curs_pos = rli->old_upd_len; } static unsigned char *spit_out(SLang_RLine_Info_Type *rli, unsigned char *p) { unsigned char *pmax; position_cursor ((int) (p - rli->new_upd)); pmax = rli->new_upd + rli->new_upd_len; while (p < pmax) putc((char) *p++, stdout); rli->curs_pos = rli->new_upd_len; return pmax; } static void really_update (SLang_RLine_Info_Type *rli, int new_curs_position) { unsigned char *b = rli->old_upd, *p = rli->new_upd, chb, chp; unsigned char *pmax; if (rli->update_hook != NULL) { (*rli->update_hook)(p, rli->edit_width, new_curs_position); } else { pmax = p + rli->edit_width; while (p < pmax) { chb = *b++; chp = *p++; if (chb == chp) continue; if (rli->old_upd_len <= rli->new_upd_len) { /* easy one */ (void) spit_out (rli, p - 1); break; } spit_out(rli, p - 1); erase_eol (rli); break; } position_cursor (new_curs_position); } /* update finished, so swap */ rli->old_upd_len = rli->new_upd_len; p = rli->old_upd; rli->old_upd = rli->new_upd; rli->new_upd = p; } static void RLupdate (SLang_RLine_Info_Type *rli) { int len, dlen, start_len = 0, prompt_len = 0, tw = 0, count; int want_cursor_pos; unsigned char *b, chb, *b_point, *p; b_point = (unsigned char *) (rli->buf + rli->point); *(rli->buf + rli->len) = 0; /* expand characters for output buffer --- handle prompt first. * Do two passes --- first to find out where to begin upon horiz * scroll and the second to actually fill the buffer. */ len = 0; count = 2; /* once for prompt and once for buf */ b = (unsigned char *) rli->prompt; while (count--) { /* The prompt could be NULL */ if (b != NULL) while ((chb = *b) != 0) { /* This will ensure that the screen is scrolled a third of the edit * width each time */ if (b_point == b) break; dlen = Char_Widths[chb]; if ((chb == '\t') && tw) { dlen = tw * ((len - prompt_len) / tw + 1) - (len - prompt_len); } len += dlen; b++; } tw = rli->tab; b = (unsigned char *) rli->buf; if (count == 1) want_cursor_pos = prompt_len = len; } if (len < rli->edit_width - rli->dhscroll) start_len = 0; else if ((rli->start_column > len) || (rli->start_column + rli->edit_width <= len)) { start_len = len - (rli->edit_width - rli->dhscroll); if (start_len < 0) start_len = 0; } else start_len = rli->start_column; rli->start_column = start_len; want_cursor_pos = len - start_len; /* second pass */ p = rli->new_upd; len = 0; count = 2; b = (unsigned char *) rli->prompt; if (b == NULL) b = (unsigned char *) ""; while ((len < start_len) && (*b)) { len += Char_Widths[*b++]; } tw = 0; if (*b == 0) { b = (unsigned char *) rli->buf; while (len < start_len) { len += Char_Widths[*b++]; } tw = rli->tab; count--; } len = 0; while (count--) { while ((len < rli->edit_width) && ((chb = *b++) != 0)) { dlen = Char_Widths[chb]; if (dlen == 1) *p++ = chb; else { if ((chb == '\t') && tw) { dlen = tw * ((len + start_len - prompt_len) / tw + 1) - (len + start_len - prompt_len); len += dlen; /* ok since dlen comes out 0 */ if (len > rli->edit_width) dlen = len - rli->edit_width; while (dlen--) *p++ = ' '; dlen = 0; } else { if (dlen == 3) { chb &= 0x7F; *p++ = '~'; } *p++ = '^'; if (chb == 127) *p++ = '?'; else *p++ = chb + '@'; } } len += dlen; } /* if (start_len > prompt_len) break; */ tw = rli->tab; b = (unsigned char *) rli->buf; } rli->new_upd_len = (int) (p - rli->new_upd); while (p < rli->new_upd + rli->edit_width) *p++ = ' '; really_update (rli, want_cursor_pos); } void SLrline_redraw (SLang_RLine_Info_Type *rli) { unsigned char *p = rli->new_upd; unsigned char *pmax = p + rli->edit_width; while (p < pmax) *p++ = ' '; rli->new_upd_len = rli->edit_width; really_update (rli, 0); RLupdate (rli); } static int rl_eof_insert (void) { if (This_RLI->len == 0) { SLang_Last_Key_Char = SLang_RL_EOF_Char; rl_self_insert (); return rl_enter (); } return 0; } int SLang_read_line (SLang_RLine_Info_Type *rli) { unsigned char *p, *pmax; SLang_Key_Type *key; SLang_Rline_Quit = 0; This_RLI = rli; p = rli->old_upd; pmax = p + rli->edit_width; while (p < pmax) *p++ = ' '; /* Sanity checking */ rli->len = strlen ((char *) rli->buf); if (rli->len >= rli->buf_len) { rli->len = 0; *rli->buf = 0; } if (rli->point > rli->len) rli->point = rli->len; if (rli->point < 0) rli->point = 0; rli->curs_pos = rli->start_column = 0; rli->new_upd_len = rli->old_upd_len = 0; This_RLI->last_fun = NULL; RLupdate (rli); while (1) { key = SLang_do_key (RL_Keymap, (int (*)(void)) rli->getkey); if ((key == NULL) || (key->f == NULL)) { rl_beep (); } else { if ((SLang_Last_Key_Char == SLang_RL_EOF_Char) && (*key->str == 2) && (This_RLI->len == 0)) rl_eof_insert (); else if (key->type == SLKEY_F_INTRINSIC) { if (((int (*)(void))(key->f))()) RLupdate (rli); } if (SLang_Rline_Quit) { This_RLI->buf[This_RLI->len] = 0; if (SLang_Error == USER_BREAK) { SLang_Error = 0; return -1; } return This_RLI->len; } } if (key != NULL) This_RLI->last_fun = key->f; } } static int rl_abort (void) { rl_delete_line (); return rl_enter (); } /* TTY interface --- ANSI */ static void ansi_goto_column (int n) { putc('\r', stdout); if (n) fprintf(stdout, "\033[%dC", n); } static void rl_select_line (SLang_Read_Line_Type *p) { This_RLI->last = p; strcpy ((char *) This_RLI->buf, (char *) p->buf); This_RLI->point = This_RLI->len = strlen((char *) p->buf); } static int rl_next_line (void); static int rl_prev_line (void) { SLang_Read_Line_Type *prev; if (((This_RLI->last_fun != (VOID *) rl_prev_line) && (This_RLI->last_fun != (VOID *) rl_next_line)) || (This_RLI->last == NULL)) { prev = This_RLI->tail; } else prev = This_RLI->last->prev; if (prev == NULL) { rl_beep (); return 0; } rl_select_line (prev); return 1; } static int rl_redraw (void) { SLrline_redraw (This_RLI); return 1; } static int rl_next_line (void) { SLang_Read_Line_Type *next; if (((This_RLI->last_fun != (VOID *) rl_prev_line) && (This_RLI->last_fun != (VOID *) rl_next_line)) || (This_RLI->last == NULL)) { rl_beep (); return 0; } next = This_RLI->last->next; if (next == NULL) { This_RLI->len = This_RLI->point = 0; *This_RLI->buf = 0; This_RLI->last = NULL; } else rl_select_line (next); return 1; } static SLKeymap_Function_Type SLReadLine_Functions[] = { {"up", rl_prev_line}, {"down", rl_next_line}, {"bol", rl_bol}, {"eol", rl_eol}, {"right", rl_right}, {"left", rl_left}, {"self_insert", rl_self_insert}, {"bdel", rl_bdel}, {"del", rl_del}, {"deleol", rl_deleol}, {"enter", rl_enter}, {"trim", rl_trim}, {"quoted_insert", rl_quote_insert}, {(char *) NULL, NULL} }; int SLang_init_readline (SLang_RLine_Info_Type *rli) { int ch; char simple[2]; if (RL_Keymap == NULL) { simple[1] = 0; if (NULL == (RL_Keymap = SLang_create_keymap ("ReadLine", NULL))) return -1; RL_Keymap->functions = SLReadLine_Functions; /* This breaks under some DEC ALPHA compilers (scary!) */ #ifndef __DECC for (ch = ' '; ch < 256; ch++) { simple[0] = (char) ch; SLang_define_key1(simple, (VOID *) rl_self_insert, SLKEY_F_INTRINSIC, RL_Keymap); } #else ch = ' '; while (1) { simple[0] = (char) ch; SLang_define_key1(simple, (VOID *) rl_self_insert, SLKEY_F_INTRINSIC, RL_Keymap); ch = ch + 1; if (ch == 256) break; } #endif simple[0] = SLang_Abort_Char; SLang_define_key1(simple, (VOID *) rl_abort, SLKEY_F_INTRINSIC, RL_Keymap); simple[0] = SLang_RL_EOF_Char; SLang_define_key1(simple, (VOID *) rl_eof_insert, SLKEY_F_INTRINSIC, RL_Keymap); #ifndef pc_system SLang_define_key1 ("^[[A", (VOID *) rl_prev_line, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^[[B", (VOID *) rl_next_line, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^[[C", (VOID *) rl_right, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^[[D", (VOID *) rl_left, SLKEY_F_INTRINSIC, RL_Keymap); #else SLang_define_key1 ("^@H", (VOID *) rl_prev_line, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^@P", (VOID *) rl_next_line, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^@M", (VOID *) rl_right, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^@K", (VOID *) rl_left, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^@S", (VOID *) rl_del, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^@O", (VOID *) rl_eol, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^@G", (VOID *) rl_bol, SLKEY_F_INTRINSIC, RL_Keymap); #endif SLang_define_key1 ("^E", (VOID *) rl_eol, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^I", (VOID *) rl_self_insert, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^A", (VOID *) rl_bol, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^M", (VOID *) rl_enter, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^K", (VOID *) rl_deleol, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^L", (VOID *) rl_deleol, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^V", (VOID *) rl_del, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^D", (VOID *) rl_del, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^F", (VOID *) rl_right, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^B", (VOID *) rl_left, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^?", (VOID *) rl_bdel, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^H", (VOID *) rl_bdel, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^P", (VOID *) rl_prev_line, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^N", (VOID *) rl_next_line, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("^R", (VOID *) rl_redraw, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("`", (VOID *) rl_quote_insert, SLKEY_F_INTRINSIC, RL_Keymap); SLang_define_key1 ("\033\\", (VOID *) rl_trim, SLKEY_F_INTRINSIC, RL_Keymap); if (SLang_Error) return -1; } if (rli->prompt == NULL) rli->prompt = ""; if (rli->keymap == NULL) rli->keymap = RL_Keymap; rli->old_upd = rli->upd_buf1; rli->new_upd = rli->upd_buf2; *rli->buf = 0; rli->point = 0; if (rli->flags & SLRL_USE_ANSI) { if (rli->tt_goto_column == NULL) rli->tt_goto_column = ansi_goto_column; } if (Char_Widths[0] == 2) return 0; for (ch = 0; ch < 32; ch++) Char_Widths[ch] = 2; for (ch = 32; ch < 256; ch++) Char_Widths[ch] = 1; Char_Widths[127] = 2; #ifndef pc_system for (ch = 128; ch < 160; ch++) Char_Widths[ch] = 3; #endif return 0; } SLang_Read_Line_Type *SLang_rline_save_line (SLang_RLine_Info_Type *rli) { SLang_Read_Line_Type *rl = NULL; unsigned char *buf; if (NULL == (rl = (SLang_Read_Line_Type *) SLMALLOC (sizeof (SLang_Read_Line_Type))) || (NULL == (buf = (unsigned char *) SLMALLOC (rli->buf_len)))) { if (rl != NULL) SLFREE (rl); return NULL; } rl->buf = buf; rl->buf_len = rli->buf_len; rl->num = rl->misc = 0; rl->next = rl->prev = NULL; strcpy ((char *) rl->buf, (char *) rli->buf); if (rli->tail != NULL) { rli->tail->next = rl; rl->prev = rli->tail; } rli->tail = rl; return rl; } slang-0.99.12/src/slsearch.c000064400000000000003000000116520603742322600154040ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #include "slang.h" #ifdef upcase #undef upcase #endif #define upcase(ch) (cs ? ch : UPPER_CASE(ch)) static unsigned char *search_forward (register unsigned char *beg, unsigned char *end, unsigned char *key, register int key_len, int cs, int *ind) { register unsigned char char1; unsigned char *pos; int j, str_len; register unsigned char ch; register int db; str_len = (int) (end - beg); if (str_len < key_len) return (NULL); char1 = key[key_len - 1]; beg += (key_len - 1); while(1) { if (cs) while (beg < end) { ch = *beg; db = ind[(unsigned char) ch]; if ((db < key_len) && (ch == char1)) break; beg += db; /* ind[(unsigned char) ch]; */ } else while (beg < end) { ch = *beg; db = ind[(unsigned char) ch]; if ((db < key_len) && (UPPER_CASE(ch) == char1)) break; beg += db; /* ind[(unsigned char) ch]; */ } if (beg >= end) return(NULL); pos = beg - (key_len - 1); for (j = 0; j < key_len; j++) { ch = upcase(pos[j]); if (ch != (unsigned char) key[j]) break; } if (j == key_len) return(pos); beg += 1; } } static unsigned char *search_backward (unsigned char *beg,unsigned char *end, unsigned char *key, int key_len, int cs, int *ind) { unsigned char ch, char1; int j, str_len, ofs; str_len = (int) (end - beg); if (str_len < key_len) return (NULL); /* end -= (key_len - 1); */ end -= key_len; char1 = key[0]; while(1) { while ((beg <= end) && (ch = *end, ch = upcase(ch), ch != char1)) { ofs = ind[(unsigned char) ch]; #ifdef msdos /* This is needed for msdos segment wrapping problems */ if (beg + ofs > end) return(NULL); #endif end -= ofs; } if (beg > end) return(NULL); for (j = 1; j < key_len; j++) { ch = upcase(end[j]); if (ch != key[j]) break; } if (j == key_len) return(end); end--; } } unsigned char *SLsearch (unsigned char *pmin, unsigned char *pmax, SLsearch_Type *st) { if (st->dir > 0) return search_forward (pmin, pmax, st->key, st->key_len, st->cs, st->ind); else return search_backward (pmin, pmax, st->key, st->key_len, st->cs, st->ind); } static int Case_Tables_Ok; int SLsearch_init (char *str, int dir, int cs, SLsearch_Type *st) { int i, maxi; register int max = strlen(str); unsigned char *w, *work = st->key; register int *indp, *indpm; int *ind = st->ind; if (max >= sizeof (st->key)) { SLang_doerror ("Search string too long."); return -1; } st->dir = dir; st->cs = cs; if (!Case_Tables_Ok) SLang_init_case_tables (); if (dir > 0) { w = work; } else { maxi = max - 1; str = str + maxi; w = work + maxi; } /* for (i = 0; i < 256; i++) ind[i] = max; */ indp = ind; indpm = ind + 256; while (indp < indpm) *indp++ = max; i = 0; while (i++ < max) { maxi = max - i; if (cs) { *w = *str; ind[(unsigned char) *str] = maxi; } else { *w = UPPER_CASE(*str); ind[(unsigned char) *w] = maxi; ind[(unsigned char) LOWER_CASE(*str)] = maxi; } str += dir; w += dir; } work[max] = 0; st->key_len = max; return max; } /* 8bit clean upper and lowercase macros */ unsigned char Chg_LCase_Lut[256]; unsigned char Chg_UCase_Lut[256]; void SLang_define_case(int *u, int *l) { unsigned char up = (unsigned char) *u, dn = (unsigned char) *l; Chg_LCase_Lut[up] = dn; Chg_UCase_Lut[dn] = up; } void SLang_init_case_tables (void) { int i, j; if (Case_Tables_Ok) return; for (i = 0; i < 256; i++) { Chg_UCase_Lut[i] = i; Chg_LCase_Lut[i] = i; } for (i = 'A'; i <= 'Z'; i++) { j = i + 32; Chg_UCase_Lut[j] = i; Chg_LCase_Lut[i] = j; } #ifdef msdos /* Initialize for DOS code page 437. */ Chg_UCase_Lut[135] = 128; Chg_LCase_Lut[128] = 135; Chg_UCase_Lut[132] = 142; Chg_LCase_Lut[142] = 132; Chg_UCase_Lut[134] = 143; Chg_LCase_Lut[143] = 134; Chg_UCase_Lut[130] = 144; Chg_LCase_Lut[144] = 130; Chg_UCase_Lut[145] = 146; Chg_LCase_Lut[146] = 145; Chg_UCase_Lut[148] = 153; Chg_LCase_Lut[153] = 148; Chg_UCase_Lut[129] = 154; Chg_LCase_Lut[154] = 129; Chg_UCase_Lut[164] = 165; Chg_LCase_Lut[165] = 164; #else /* ISO Latin */ for (i = 192; i <= 221; i++) { j = i + 32; Chg_UCase_Lut[j] = i; Chg_LCase_Lut[i] = j; } Chg_UCase_Lut[215] = 215; Chg_LCase_Lut[215] = 215; Chg_UCase_Lut[223] = 223; Chg_LCase_Lut[223] = 223; Chg_UCase_Lut[247] = 247; Chg_LCase_Lut[247] = 247; Chg_UCase_Lut[255] = 255; Chg_LCase_Lut[255] = 255; #endif Case_Tables_Ok = 1; } se_Lut[153] = 148; Chg_UCase_Lut[129] = 154; Chg_LCase_Lut[154] = 129; Chg_UCaseslang-0.99.12/src/slsmg.c000064400000000000003000000476730603742322600147410ustar00rootsys00000000000000/* SLang Screen management routines */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #include "slang.h" #include "_slang.h" typedef struct Screen_Type { int n; /* number of chars written last time */ int flags; /* line untouched, etc... */ unsigned short *old, *neew; #ifndef pc_system unsigned long old_hash, new_hash; #endif } Screen_Type; #define TOUCHED 0x1 #define TRASHED 0x2 #ifndef pc_system #define MAX_SCREEN_SIZE 120 #else #define MAX_SCREEN_SIZE 75 #endif Screen_Type SL_Screen[MAX_SCREEN_SIZE]; static int Start_Col, Start_Row; static int Screen_Cols, Screen_Rows; static int This_Row, This_Col; static int This_Color; /* only the first 8 bits of this * are used. The highest bit is used * to indicate an alternate character * set. This leaves 127 userdefineable * color combination. */ #ifndef pc_system #define ALT_CHAR_FLAG 0x80 #else #define ALT_CHAR_FLAG 0x00 #endif static void blank_line (unsigned short *p, int n, unsigned char ch) { register unsigned short *pmax = p + n; while (p < pmax) { *p = (This_Color << 8) | (unsigned short) ch; p++; } } static void clear_region (int row, int n) { int i; int imax = row + n; if (imax > Screen_Rows) imax = Screen_Rows; for (i = row; i < imax; i++) { if (i >= 0) { blank_line (SL_Screen[i].neew, Screen_Cols, ' '); SL_Screen[i].flags |= TOUCHED; } } } void SLsmg_erase_eol (void) { int c = This_Col; if ((This_Row < 0) || (This_Row >= Screen_Rows)) return; if (c < 0) c = 0; else if (c >= Screen_Cols) return; blank_line (SL_Screen[This_Row].neew + c , Screen_Cols - c, ' '); SL_Screen[This_Row].flags |= TOUCHED; } void SLsmg_gotorc (int r, int c) { This_Row = r; This_Col = c; } int SLsmg_get_row (void) { return This_Row; } int SLsmg_get_column (void) { return This_Col; } void SLsmg_erase_eos (void) { SLsmg_erase_eol (); clear_region (This_Row + 1, Screen_Rows); } static int This_Alt_Char; #ifndef pc_system void SLsmg_set_char_set (int i) { if (SLtt_Use_Blink_For_ACS) return; /* alt chars not used and the alt bit * is used to indicate a blink. */ if (i) This_Alt_Char = ALT_CHAR_FLAG; else This_Alt_Char = 0; This_Color &= 0x7F; This_Color |= This_Alt_Char; } #endif void SLsmg_set_color (int color) { if (color < 0) return; This_Color = color | This_Alt_Char; } void SLsmg_reverse_video (void) { SLsmg_set_color (1); } void SLsmg_normal_video (void) { This_Color = This_Alt_Char; /* reset video but NOT char set. */ } static int point_visible (int col_too) { return ((This_Row >= Start_Row) && (This_Row < Start_Row + Screen_Rows) && ((col_too == 0) || ((This_Col >= Start_Col) && (This_Col < Start_Col + Screen_Cols)))); } void SLsmg_printf (char *fmt, ...) { char p[1000]; va_list ap; va_start(ap, fmt); (void) vsprintf(p, fmt, ap); va_end(ap); SLsmg_write_string (p); } void SLsmg_write_string (char *str) { SLsmg_write_nchars (str, strlen (str)); } void SLsmg_write_nstring (char *str, int n) { int width; char blank = ' '; if (str == NULL) width = 0; else { width = strlen (str); if (width > n) width = n; SLsmg_write_nchars (str, width); } while (width++ < n) SLsmg_write_nchars (&blank, 1); } void SLsmg_write_wrapped_string (char *s, int r, int c, int dr, int dc, int fill) { register char ch, *p; int maxc = dc; if ((dr == 0) || (dc == 0)) return; p = s; dc = 0; while (1) { ch = *p++; if ((ch == 0) || (ch == '\n')) { int diff; diff = maxc - dc; SLsmg_gotorc (r, c); SLsmg_write_nchars (s, dc); if (fill && (diff > 0)) { while (diff--) SLsmg_write_char (' '); } if ((ch == 0) || (dr == 1)) break; r++; dc = 0; dr--; s = p; } else if (dc == maxc) { SLsmg_gotorc (r, c); SLsmg_write_nchars (s, dc + 1); if (dr == 1) break; r++; dc = 0; dr--; s = p; } else dc++; } } int SLsmg_Tab_Width = 8; /* Minimum value for which eight bit char is displayed as is. */ #ifndef pc_system int SLsmg_Display_Eight_Bit = 160; static unsigned char Alt_Char_Set[129];/* 129th is used as a flag */ #else int SLsmg_Display_Eight_Bit = 128; #endif void SLsmg_write_nchars (char *str, int n) { register unsigned short *p, old, neew; unsigned char ch; unsigned int flags; int len, start_len = Start_Col, max_len; char *str_max = str + n; if (point_visible (0) == 0) return; len = This_Col; max_len = start_len + Screen_Cols; p = SL_Screen[This_Row].neew; if (len > start_len) p += (len - start_len); flags = SL_Screen[This_Row].flags; while ((len < max_len) && (str < str_max)) { ch = (unsigned char) *str++; #ifndef pc_system if (This_Alt_Char) { ch = Alt_Char_Set[ch & 0x7F]; } #endif if (((ch >= ' ') && (ch < 127)) || (ch >= (unsigned char) SLsmg_Display_Eight_Bit)) { len += 1; if (len > start_len) { old = *p; neew = (This_Color << 8) | (unsigned short) ch; if (old != neew) { flags |= TOUCHED; *p = neew; } p++; } } else if ((ch == '\t') && (SLsmg_Tab_Width > 0)) { n = len; n += SLsmg_Tab_Width; n = SLsmg_Tab_Width - (n % SLsmg_Tab_Width); if (len + n > max_len) n = max_len - len; neew = (This_Color << 8) | (unsigned short) ' '; while (n--) { len += 1; if (len > start_len) { if (*p != neew) { flags |= TOUCHED; *p = neew; } p++; } } } else if (ch == '\n') break; else { if (ch & 0x80) { neew = (This_Color << 8) | (unsigned short) '~'; len += 1; if (len > start_len) { if (*p != neew) { *p = neew; flags |= TOUCHED; } p++; if (len == max_len) break; ch &= 0x7F; } } len += 1; if (len > start_len) { neew = (This_Color << 8) | (unsigned short) '^'; if (*p != neew) { *p = neew; flags |= TOUCHED; } p++; if (len == max_len) break; } if (ch == 127) ch = '?'; else ch = ch + '@'; len++; if (len > start_len) { neew = (This_Color << 8) | (unsigned short) ch; if (*p != neew) { *p = neew; flags |= TOUCHED; } p++; } } } SL_Screen[This_Row].flags = flags; This_Col = len; } void SLsmg_write_char (char ch) { SLsmg_write_nchars (&ch, 1); } static int Cls_Flag; void SLsmg_cls (void) { This_Color = This_Alt_Char; clear_region (0, Screen_Rows); Cls_Flag = 1; } static void do_copy (unsigned short *a, unsigned short *b) { unsigned short *amax = a + Screen_Cols; while (a < amax) *a++ = *b++; } #ifndef pc_system int SLsmg_Scroll_Hash_Border = 0; static unsigned long compute_hash (unsigned short *s, int n) { register unsigned long h = 0, g; register unsigned long sum = 0; register unsigned short *smax, ch; int is_blank = 2; s += SLsmg_Scroll_Hash_Border; smax = s + (n - SLsmg_Scroll_Hash_Border); while (s < smax) { ch = *s++; if (is_blank && ((ch & 0xFF) != 32)) is_blank--; sum += ch; h = sum + (h << 3); if ((g = h & 0xE0000000L) != 0) { h = h ^ (g >> 24); h = h ^ g; } } if (is_blank) return 0; return h; } unsigned long Blank_Hash; static void try_scroll (void) { int i, j, di, r1, r2, rmin, rmax; unsigned long hash; int color, did_scroll = 0; unsigned short *tmp; int ignore; /* find region limits */ for (rmax = Screen_Rows - 1; rmax > 0; rmax--) { if (SL_Screen[rmax].new_hash != SL_Screen[rmax].old_hash) break; } for (rmin = 0; rmin < rmax; rmin++) { if (SL_Screen[rmin].new_hash != SL_Screen[rmin].old_hash) break; } for (i = rmax; i > rmin; i--) { hash = SL_Screen[i].new_hash; if (hash == Blank_Hash) continue; if ((hash == SL_Screen[i].old_hash) || ((i + 1 < Screen_Rows) && (hash == SL_Screen[i + 1].old_hash)) || ((i - 1 > rmin) && (SL_Screen[i].old_hash == SL_Screen[i - 1].new_hash))) continue; for (j = i - 1; j >= rmin; j--) { if (hash == SL_Screen[j].old_hash) break; } if (j < rmin) continue; r2 = i; /* end scroll region */ di = i - j; j--; ignore = 0; while ((j >= rmin) && (SL_Screen[j].old_hash == SL_Screen[j + di].new_hash)) { if (SL_Screen[j].old_hash == Blank_Hash) ignore++; j--; } r1 = j + 1; /* If this scroll only scrolls this line into place, don't do it. */ if ((di > 1) && (r1 + di + ignore == r2)) continue; /* If there is anything in the scrolling region that is ok, abort the * scroll. */ for (j = r1; j <= r2; j++) { if ((SL_Screen[j].old_hash != Blank_Hash) && (SL_Screen[j].old_hash == SL_Screen[j].new_hash)) { /* See if the scroll is happens to scroll this one into place. */ if ((j + di > r2) || (SL_Screen[j].old_hash != SL_Screen[j + di].new_hash)) break; } } if (j <= r2) continue; color = This_Color; This_Color = 0; did_scroll = 1; SLtt_normal_video (); SLtt_set_scroll_region (r1, r2); SLtt_goto_rc (0, 0); SLtt_reverse_index (di); SLtt_reset_scroll_region (); /* Now we have a hole in the screen. Make the virtual screen look * like it. */ for (j = r1; j <= r2; j++) SL_Screen[j].flags = TOUCHED; while (di--) { tmp = SL_Screen[r2].old; for (j = r2; j > r1; j--) { SL_Screen[j].old = SL_Screen[j - 1].old; SL_Screen[j].old_hash = SL_Screen[j - 1].old_hash; } SL_Screen[r1].old = tmp; blank_line (SL_Screen[r1].old, Screen_Cols, ' '); SL_Screen[r1].old_hash = Blank_Hash; r1++; } This_Color = color; } if (did_scroll) return; /* Try other direction */ for (i = rmin; i < rmax; i++) { hash = SL_Screen[i].new_hash; if (hash == Blank_Hash) continue; if (hash == SL_Screen[i].old_hash) continue; /* find a match further down screen */ for (j = i + 1; j <= rmax; j++) { if (hash == SL_Screen[j].old_hash) break; } if (j > rmax) continue; r1 = i; /* beg scroll region */ di = j - i; /* number of lines to scroll */ j++; /* since we know this is a match */ /* find end of scroll region */ ignore = 0; while ((j <= rmax) && (SL_Screen[j].old_hash == SL_Screen[j - di].new_hash)) { if (SL_Screen[j].old_hash == Blank_Hash) ignore++; j++; } r2 = j - 1; /* end of scroll region */ /* If this scroll only scrolls this line into place, don't do it. */ if ((di > 1) && (r1 + di + ignore == r2)) continue; /* If there is anything in the scrolling region that is ok, abort the * scroll. */ for (j = r1; j <= r2; j++) { if ((SL_Screen[j].old_hash != Blank_Hash) && (SL_Screen[j].old_hash == SL_Screen[j].new_hash)) { if ((j - di < r1) || (SL_Screen[j].old_hash != SL_Screen[j - di].new_hash)) break; } } if (j <= r2) continue; color = This_Color; This_Color = 0; SLtt_normal_video (); SLtt_set_scroll_region (r1, r2); SLtt_goto_rc (0, 0); /* relative to scroll region */ SLtt_delete_nlines (di); SLtt_reset_scroll_region (); /* Now we have a hole in the screen. Make the virtual screen look * like it. */ for (j = r1; j <= r2; j++) SL_Screen[j].flags = TOUCHED; while (di--) { tmp = SL_Screen[r1].old; for (j = r1; j < r2; j++) { SL_Screen[j].old = SL_Screen[j + 1].old; SL_Screen[j].old_hash = SL_Screen[j + 1].old_hash; } SL_Screen[r2].old = tmp; blank_line (SL_Screen[r2].old, Screen_Cols, ' '); SL_Screen[r2].old_hash = Blank_Hash; r2--; } This_Color = color; } } #endif /* NOT pc_system */ static int Smg_Inited; void SLsmg_refresh (void) { int i; if (Smg_Inited == 0) return; #ifndef pc_system for (i = 0; i < Screen_Rows; i++) { if (SL_Screen[i].flags == 0) continue; SL_Screen[i].new_hash = compute_hash (SL_Screen[i].neew, Screen_Cols); } #endif if (Cls_Flag) { SLtt_normal_video (); SLtt_cls (); } #ifndef pc_system else if (SLtt_Term_Cannot_Scroll == 0) try_scroll (); #endif for (i = 0; i < Screen_Rows; i++) { int trashed; if (SL_Screen[i].flags == 0) continue; if (SL_Screen[i].flags & TRASHED) { SLtt_goto_rc (i, -1); /* Force cursor to move */ SLtt_goto_rc (i, 0); if (Cls_Flag == 0) SLtt_del_eol (); trashed = 1; } else trashed = 0; if (Cls_Flag || trashed) { int color = This_Color; This_Color = 0; blank_line (SL_Screen[i].old, Screen_Cols, ' '); This_Color = color; } SL_Screen[i].old[Screen_Cols] = 0; SL_Screen[i].neew[Screen_Cols] = 0; SLtt_smart_puts (SL_Screen[i].neew, SL_Screen[i].old, Screen_Cols, i); do_copy (SL_Screen[i].old, SL_Screen[i].neew); SL_Screen[i].flags = 0; #ifndef pc_system SL_Screen[i].old_hash = SL_Screen[i].new_hash; #endif } if (point_visible (1)) SLtt_goto_rc (This_Row - Start_Row, This_Col - Start_Col); SLtt_flush_output (); Cls_Flag = 0; } static int compute_clip (int row, int n, int box_start, int box_end, int *rmin, int *rmax) { int row_max; if (n < 0) return 0; if (row >= box_end) return 0; row_max = row + n; if (row_max <= box_start) return 0; if (row < box_start) row = box_start; if (row_max >= box_end) row_max = box_end; *rmin = row; *rmax = row_max; return 1; } void SLsmg_touch_lines (int row, int n) { int i; int r1, r2; if (0 == compute_clip (row, n, Start_Row, Start_Row + Screen_Rows, &r1, &r2)) return; r1 -= Start_Row; r2 -= Start_Row; for (i = r1; i < r2; i++) { SL_Screen[i].flags |= TRASHED; } } #ifndef pc_system static char Fake_Alt_Char_Pairs [] = "a:j+k+l+m+q-t+u+v+w+x|"; static void init_alt_char_set (void) { int i = 0; unsigned char *p, *pmax, ch; if (Alt_Char_Set[128] == 128) return; while (i <= 128) { Alt_Char_Set [i] = i; i++; } /* Map to VT100 */ if (SLtt_Has_Alt_Charset) { p = (unsigned char *) SLtt_Graphics_Char_Pairs; if (p == NULL) return; } else p = (unsigned char *) Fake_Alt_Char_Pairs; pmax = p + strlen ((char *) p); /* Some systems have messed up entries for this */ while (p < pmax) { ch = *p++; ch &= 0x7F; /* should be unnecessary */ Alt_Char_Set [ch] = *p; p++; } } #endif void SLsmg_suspend_smg (void) { SLtt_reset_video (); } void SLsmg_resume_smg (void) { int i; SLtt_init_video (); Cls_Flag = 1; for (i = 0; i < Screen_Rows; i++) SL_Screen[i].flags |= TRASHED; SLsmg_refresh (); } int SLsmg_init_smg (void) { int i, len; unsigned short *old, *neew; if (Smg_Inited) SLsmg_reset_smg (); SLtt_init_video (); Screen_Cols = SLtt_Screen_Cols; Screen_Rows = SLtt_Screen_Rows; This_Col = This_Row = Start_Col = Start_Row = 0; This_Color = 0; This_Alt_Char = 0; Cls_Flag = 1; #ifndef pc_system init_alt_char_set (); #endif len = Screen_Cols + 3; for (i = 0; i < Screen_Rows; i++) { if ((NULL == (old = (unsigned short *) SLMALLOC (sizeof(short) * len))) || ((NULL == (neew = (unsigned short *) SLMALLOC (sizeof(short) * len))))) { SLang_Error = SL_MALLOC_ERROR; return 0; } blank_line (old, len, ' '); blank_line (neew, len, ' '); SL_Screen[i].old = old; SL_Screen[i].neew = neew; SL_Screen[i].flags = 0; #ifndef pc_system Blank_Hash = compute_hash (old, Screen_Cols); SL_Screen[i].new_hash = SL_Screen[i].old_hash = Blank_Hash; #endif } Smg_Inited = 1; return 1; } void SLsmg_reset_smg (void) { int i; if (Smg_Inited == 0) return; for (i = 0; i < Screen_Rows; i++) { if (SL_Screen[i].old != NULL) SLFREE (SL_Screen[i].old); if (SL_Screen[i].neew != NULL) SLFREE (SL_Screen[i].neew); SL_Screen[i].old = SL_Screen[i].neew = NULL; } SLtt_reset_video (); This_Alt_Char = This_Color = 0; Smg_Inited = 0; } unsigned short SLsmg_char_at (void) { if (point_visible (1)) { return SL_Screen[This_Row - Start_Row].neew[This_Col - Start_Col]; } return 0; } void SLsmg_vprintf (char *fmt, va_list ap) { char p[1000]; (void) vsprintf(p, fmt, ap); SLsmg_write_string (p); } void SLsmg_set_screen_start (int *r, int *c) { int or = Start_Row, oc = Start_Col; if (c == NULL) Start_Col = 0; else { Start_Col = *c; *c = oc; } if (r == NULL) Start_Row = 0; else { Start_Row = *r; *r = or; } } void SLsmg_draw_object (int r, int c, unsigned char object) { This_Row = r; This_Col = c; if (point_visible (1)) { int tac = This_Alt_Char; This_Alt_Char = ALT_CHAR_FLAG; This_Color |= This_Alt_Char; SLsmg_write_char (object); This_Alt_Char = tac; This_Color = (This_Color & 0x7F) | This_Alt_Char; } This_Col = c + 1; } void SLsmg_draw_hline (int n) { static unsigned char hbuf[16]; int count; int cmin, cmax; int final_col = This_Col + n; int tac = This_Alt_Char; if ((This_Row < Start_Row) || (This_Row >= Start_Row + Screen_Rows) || (0 == compute_clip (This_Col, n, Start_Col, Start_Col + Screen_Cols, &cmin, &cmax))) { This_Col = final_col; return; } if (hbuf[0] == 0) { MEMSET ((char *) hbuf, SLSMG_HLINE_CHAR, 16); } n = cmax - cmin; count = n / 16; This_Alt_Char = ALT_CHAR_FLAG; This_Color |= This_Alt_Char; This_Col = cmin; SLsmg_write_nchars ((char *) hbuf, n % 16); while (count-- > 0) { SLsmg_write_nchars ((char *) hbuf, 16); } This_Alt_Char = tac; This_Color = (This_Color & 0x7F) | This_Alt_Char; This_Col = final_col; } void SLsmg_draw_vline (int n) { unsigned char ch = SLSMG_VLINE_CHAR; int c = This_Col, rmin, rmax; int final_row = This_Row + n; int tac = This_Alt_Char; if (((c < Start_Col) || (c >= Start_Col + Screen_Cols)) || (0 == compute_clip (This_Row, n, Start_Row, Start_Row + Screen_Rows, &rmin, &rmax))) { This_Row = final_row; return; } This_Alt_Char = ALT_CHAR_FLAG; This_Color |= This_Alt_Char; for (This_Row = rmin; This_Row < rmax; This_Row++) { This_Col = c; SLsmg_write_nchars ((char *) &ch, 1); } This_Col = c; This_Row = final_row; This_Alt_Char = tac; This_Color = (This_Color & 0x7F) | This_Alt_Char; } void SLsmg_draw_box (int r, int c, int dr, int dc) { if (!dr || !dc) return; This_Row = r; This_Col = c; dr--; dc--; SLsmg_draw_hline (dc); SLsmg_draw_vline (dr); This_Row = r; This_Col = c; SLsmg_draw_vline (dr); SLsmg_draw_hline (dc); SLsmg_draw_object (r, c, SLSMG_ULCORN_CHAR); SLsmg_draw_object (r, c + dc, SLSMG_URCORN_CHAR); SLsmg_draw_object (r + dr, c, SLSMG_LLCORN_CHAR); SLsmg_draw_object (r + dr, c + dc, SLSMG_LRCORN_CHAR); This_Row = r; This_Col = c; } void SLsmg_fill_region (int r, int c, int dr, int dc, unsigned char ch) { static unsigned char hbuf[16]; int count; int dcmax, rmax; if ((dc < 0) || (dr < 0)) return; SLsmg_gotorc (r, c); r = This_Row; c = This_Col; dcmax = Screen_Cols - This_Col; if (dc > dcmax) dc = dcmax; rmax = This_Row + dr; if (rmax > Screen_Rows) rmax = Screen_Rows; #ifndef pc_system ch = Alt_Char_Set[ch]; #endif if (ch != hbuf[0]) MEMSET ((char *) hbuf, (char) ch, 16); for (This_Row = r; This_Row < rmax; This_Row++) { This_Col = c; count = dc / 16; SLsmg_write_nchars ((char *) hbuf, dc % 16); while (count-- > 0) { SLsmg_write_nchars ((char *) hbuf, 16); } } This_Row = r; } Col; dcmax = Screen_Cols - This_Col; if (dc > dcmax) dc = dslang-0.99.12/src/slstd.c000064400000000000003000001641000603742322600147260ustar00rootsys00000000000000/* Basic string functions for S-Lang */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #include "slang.h" #include "_slang.h" #include "slarray.h" #ifdef FLOAT_TYPE #include #endif /* Standard intrinsic functions for S-Lang. Included here are string and array operations */ /* builtin stack manipulation functions */ void SLdo_pop(void) { SLang_Object_Type x; if (SLang_pop(&x)) return; if (x.main_type == SLANG_DATA) { if (x.sub_type == STRING_TYPE) SLFREE(x.v.s_val); if (x.sub_type >= ARRAY_TYPE) { SLang_free_user_object (x.v.uobj); } } } static int SLdo_dup(void) { SLang_Object_Type x; if (SLang_pop(&x)) return(0); SLang_push(&x); if (x.sub_type == STRING_TYPE) SLang_push_string(x.v.s_val); else { if (x.sub_type >= ARRAY_TYPE) x.v.uobj->count += 1; SLang_push (&x); } return(1); } static int generic_equals (void) { SLang_Object_Type obj1, obj2; int ret = 0; /* SLang_pop guarantees that if there is a stack underflow, the type will * come back 0. */ SLang_pop_non_object (&obj1); SLang_pop_non_object (&obj2); if (obj1.sub_type == obj2.sub_type) switch (obj1.sub_type) { case 0: /* stack underflow */ break; case INT_TYPE: ret = obj1.v.i_val == obj2.v.i_val; break; #ifdef FLOAT_TYPE case FLOAT_TYPE: ret = obj1.v.f_val == obj2.v.f_val; break; #endif case STRING_TYPE: ret = !strcmp (obj1.v.s_val, obj2.v.s_val); break; default: ret = obj1.v.l_val == obj2.v.l_val; } if ((obj1.sub_type == STRING_TYPE) && (obj1.main_type == SLANG_DATA)) SLFREE (obj1.v.s_val); if ((obj2.sub_type == STRING_TYPE) && (obj2.main_type == SLANG_DATA)) SLFREE (obj2.v.s_val); return ret; } static int pop_two_strings (char **a, char **b, int *free_a, int *free_b) { if (SLang_pop_string (b, free_b)) return 1; if (SLang_pop_string (a, free_a)) { if (*free_b) SLFREE (*b); return 1; } return 0; } static void SLdo_strcat(void) { char *a, *b, *c; int len, lena; int adata, bdata; if (pop_two_strings (&a, &b, &adata, &bdata)) return; lena = strlen(a); len = lena + strlen(b) + 1; if (adata == 1) { if ((NULL != (c = (char *) SLREALLOC(a, len)))) { strcpy (c + lena, b); adata = 0; } else { SLang_Error = SL_MALLOC_ERROR; return; } } else if (NULL != (c = (char *) SLMALLOC(len))) { strcpy(c, a); strcpy(c + lena, b); } else { SLang_Error = SL_MALLOC_ERROR; /* SLang_doerror("Lang Malloc error."); */ return; } /* instead of going throug push string, push it directly */ SLang_push_malloced_string(c); if (adata == 1) SLFREE(a); if (bdata == 1) SLFREE(b); } static char Utility_Char_Table [256]; static void set_utility_char_table (char *pos) { register char *t = Utility_Char_Table, *tmax; register unsigned char ch; tmax = t + 256; while (t < tmax) *t++ = 0; t = Utility_Char_Table; while ((ch = (unsigned char) *pos++) != 0) t[ch] = 1; } static int do_trim (char **beg, char **end, char *white) { int len; char *a, *b; set_utility_char_table (white); a = *beg; len = strlen (a); b = a + (len - 1); while (Utility_Char_Table[(unsigned char) *a]) a++; while ((b >= a) && (Utility_Char_Table[(unsigned char) *b])) b--; b++; len = (int) (b - a); *beg = a; *end = b; return len; } static void SLdo_strtrim(void) { char *a, *beg, *end, *c, *neew; int len; int adata; if (SLang_pop_string(&a, &adata)) return; beg = a; len = do_trim (&beg, &end, " \t\n"); /* instead of going throug push string, push it directly. This is because * the string that is being copied might be a constant. */ if (NULL != (c = (char *) SLMALLOC(len + 1))) { neew = c; while (beg < end) *c++ = *beg++; *c = 0; SLang_push_malloced_string(neew); } else SLang_Error = SL_MALLOC_ERROR; /* SLang_doerror("Lang Malloc error."); */ if (adata == 1) SLFREE(a); } static void SLdo_strcompress (void) { char *str, *white, *c; unsigned char *s, *beg, *end; int len; int strdata, whitedata; if (pop_two_strings (&str, &white, &strdata, &whitedata)) return; beg = (unsigned char *) str; (void) do_trim ((char **) &beg, (char **) &end, white); if (whitedata) SLFREE (white); /* Determine the effective length */ len = 0; s = (unsigned char *) beg; while (s < end) { len++; if (Utility_Char_Table[*s++]) { while ((s < end) && Utility_Char_Table[*s]) s++; } } if (NULL != (c = (char *) SLMALLOC(len + 1))) { s = (unsigned char *) c; while (beg < end) { *s++ = *beg; if (Utility_Char_Table[*beg++]) { while ((beg < end) && Utility_Char_Table[*beg]) beg++; } } *s = 0; SLang_push_malloced_string(c); } else SLang_Error = SL_MALLOC_ERROR; /* SLang_doerror("Lang Malloc error."); */ if (strdata == 1) SLFREE(str); } static int str_replace (void) { char *orig, *rep, *s, *newstr, *match; int free_orig, free_rep, free_match, ret; int rep_len, match_len, new_len; if (SLang_pop_string (&rep, &free_rep)) return 0; if (pop_two_strings (&orig, &match, &free_orig, &free_match)) { if (free_rep) SLFREE (rep); return 0; } new_len = strlen (orig); newstr = SLmake_nstring (orig, new_len); if ((newstr != NULL) && (NULL != (s = strstr (orig, match)))) { match_len = strlen (match); rep_len = strlen (rep); if (rep_len > match_len) { new_len += rep_len - match_len; if (NULL == (newstr = (char *) SLREALLOC (newstr, new_len + 1))) SLang_Error = SL_MALLOC_ERROR; } if (!SLang_Error) { char *s1 = newstr + (int) (s - orig); strcpy (s1 + rep_len, s + match_len); MEMCPY (s1, rep, rep_len); SLang_push_malloced_string (newstr); } ret = 1; } else ret = 0; if (free_orig) SLFREE (orig); if (free_match) SLFREE (match); if (free_rep) SLFREE (rep); return ret; } /* This routine returns the string with text removed between single character comment delimiters from the set b and e. */ static void uncomment_string (char *str, char *b, char *e) { unsigned char chb, che; unsigned char *s, *cbeg, *mark; if (strlen(b) != strlen(e)) { SLang_doerror ("Comment delimiter length mismatch."); return; } set_utility_char_table (b); if (NULL == (str = (char *) SLmake_string(str))) return; s = (unsigned char *) str; while ((chb = *s++) != 0) { if (Utility_Char_Table [chb] == 0) continue; mark = s - 1; cbeg = (unsigned char *) b; while (*cbeg != chb) cbeg++; che = (unsigned char) *(e + (int) (cbeg - (unsigned char *) b)); while (((chb = *s++) != 0) && (chb != che)); if (chb == 0) { /* end of string and end not found. Just truncate it a return; */ *mark = 0; break; } strcpy ((char *) mark, (char *)s); s = mark; } SLang_push_malloced_string (str); } static void SLquote_string (void) { char *str, *quotes, *q; int sdata, qdata; int slash, n; register char *t, *s, *q1; register unsigned char ch; if (SLang_pop_integer (&slash)) return; if ((slash > 255) || (slash < 0)) { SLang_Error = SL_INVALID_PARM; return; } if (pop_two_strings (&str, "es, &sdata, &qdata)) return; /* setup the utility table to have 1s at quote char postitions. */ set_utility_char_table (quotes); t = Utility_Char_Table; t[(unsigned int) slash] = 1; /* calculate length */ s = str; n = 0; while ((ch = (unsigned char) *s++) != 0) if (t[ch]) n++; n += (int) (s - str); if (NULL != (q = (char *) SLMALLOC(n))) { s = str; q1 = q; while ((ch = (unsigned char) *s++) != 0) { if (t[ch]) *q1++ = slash; *q1++ = (char) ch; } *q1 = 0; SLang_push_malloced_string(q); } else SLang_Error = SL_MALLOC_ERROR; if (qdata == 1) SLFREE (quotes); if (sdata == 1) SLFREE (str); } /* returns the position of substrin in a string or null */ static void SLdo_issubstr(void) { char *a, *b, *c; int adata, bdata, n; if (pop_two_strings (&a, &b, &adata, &bdata)) return; if (NULL == (c = (char *) strstr(a, b))) n = 0; else n = 1 + (int) (c - a); if (adata == 1) SLFREE(a); if (bdata == 1) SLFREE(b); SLang_push_integer (n); } /* returns to stack string at pos n to n + m of a */ static void SLdo_substr(void) { char *a; int adata, n, m; char *b; int lena; if (SLang_pop_integer(&m) || SLang_pop_integer(&n) || (SLang_pop_string(&a, &adata))) return; lena = strlen (a); if (n > lena) n = lena + 1; if (n < 1) { SLang_Error = SL_INVALID_PARM; } else { n--; if (m < 0) m = 0; else if (n + m > lena) m = lena - n; b = SLmake_nstring (a + n, m); if (b != NULL) SLang_push_string(b); } if (adata == 1) SLFREE(a); } /* substitute char m at positin string n in string*/ static void SLdo_strsub(void) { char *a, *b; int adata, n, m; int lena; if (SLang_pop_integer(&m) || SLang_pop_integer(&n) || (SLang_pop_string(&a, &adata))) return; lena = strlen (a); if ((lena < n) || (n <= 0)) { SLang_Error = SL_INVALID_PARM; } else if (NULL != (b = SLmake_nstring (a, lena))) { b[n - 1] = (char) m; SLang_push_malloced_string (b); } if (adata) SLFREE(a); } static void SLdo_strup(void) { unsigned char c, *a; int adata; if (SLang_pop_string((char **) &a, &adata)) return; SLang_push_string((char *) a); if (adata) SLFREE(a); a = (unsigned char *) (SLStack_Pointer - 1)->v.s_val; while ((c = *a) != 0) { /* if ((*a >= 'a') && (*a <= 'z')) *a -= 32; */ *a = UPPER_CASE(c); a++; } } static void SLdo_strlow(void) { unsigned char c, *a; int adata; if (SLang_pop_string((char **) &a, &adata)) return; SLang_push_string((char *) a); if (adata) SLFREE(a); a = (unsigned char *) (SLStack_Pointer - 1)->v.s_val; while ((c = *a) != 0) { /* if ((*a >= 'a') && (*a <= 'z')) *a -= 32; */ *a = LOWER_CASE(c); a++; } } static void SLdo_strcmp(void) { char *a, *b; int adata, bdata; if (pop_two_strings (&a, &b, &adata, &bdata)) return; SLang_push_integer (strcmp(a, b)); if (adata) SLFREE(a); if (bdata) SLFREE(b); } static void SLdo_strncmp(void) { char *a, *b; int adata, bdata, n; if (SLang_pop_integer(&n) || pop_two_strings (&a, &b, &adata, &bdata)) return; if (n < 0) { SLang_Error = SL_INVALID_PARM; } else SLang_push_integer (strncmp(a, b, n)); if (adata) SLFREE(a); if (bdata) SLFREE(b); } static void SLdo_strlen(void) { char *a; int adata; if (SLang_pop_string(&a, &adata)) return; SLang_push_integer ((int) strlen(a)); if (adata) SLFREE(a); } static int SLdo_isdigit(char *what) { if ((*what >= '0') && (*what <= '9')) return(1); else return(0); } /* convert object to integer form */ static void SLdo_int(void) { SLang_Object_Type x; int i; unsigned char stype; if (SLang_pop_non_object (&x)) return; stype = x.sub_type; if (stype == INT_TYPE) { SLang_push(&x); return; } else if (stype == STRING_TYPE) { stype = x.main_type; i = (int) *(unsigned char *) x.v.s_val; if (stype == SLANG_DATA) SLFREE(x.v.s_val); } #ifdef FLOAT_TYPE else if (stype == FLOAT_TYPE) { i = (int) x.v.f_val; } #endif else { SLang_Error = TYPE_MISMATCH; return; } SLang_push_integer(i); } static char Float_Format[16] = "%f"; static void set_float_format (char *s) { strncpy (Float_Format, s, 15); Float_Format[15] = 0; } /* Conver string to integer */ static void SLdo_integer(void) { char *a; int adata; int i; if (SLang_Error) return; if (SLang_pop_string(&a, &adata)) return; i = SLatoi((unsigned char *) a); if (SLang_Error) { SLang_Error = INTRINSIC_ERROR; SLang_doerror ("The string cannot be converted to an integer."); } else SLang_push_integer (i); if (adata) SLFREE(a); } /* convert integer to a sring of length 1 */ static void SLdo_char(void) { char ch, buf[2]; int x; if (SLang_pop_integer(&x)) return; ch = (char) x; buf[0] = ch; buf[1] = 0; SLang_push_string((char *) buf); } /* format object into a string */ char *SLstringize_object (SLang_Object_Type *obj) { unsigned char stype; char *s; char buf [256]; SLang_Class_Type *cl; buf[0] = '?'; buf[1] = 0; s = buf; stype = obj->sub_type; if (obj->main_type != 0) switch (stype) { case STRING_TYPE: s = obj->v.s_val; break; case INT_TYPE: sprintf(buf, "%d", obj->v.i_val); break; #ifdef FLOAT_TYPE case FLOAT_TYPE: sprintf(buf, Float_Format, obj->v.f_val); break; #endif default: cl = SLang_Registered_Types[stype]; if ((cl != NULL) && (cl->string != NULL) && (NULL != (s = (*cl->string) ((VOID *) obj->v.uobj)))) { return s; } } return SLmake_string (s); } static void SLdo_string(void) { SLang_Object_Type x; if (SLang_pop (&x)) return; SLang_push_malloced_string (SLstringize_object (&x)); if (x.main_type == SLANG_DATA) { if (x.sub_type == STRING_TYPE) SLFREE(x.v.s_val); else if (x.sub_type >= ARRAY_TYPE) SLang_free_user_object (x.v.uobj); } } /* probably more useful to have a argc, argv thing */ int SLang_run_hooks(char *hook, char *opt1, char *opt2) { int ret = 0; if (SLang_Error || !SLang_is_defined(hook)) return(0); if (opt1 != NULL) SLang_push_string(opt1); if (opt2 != NULL) SLang_push_string(opt2); if (!SLang_Error) ret = SLang_execute_function(hook); return (ret && !SLang_Error); } static void lang_getenv_cmd(char *s) { char *t; if (NULL == (t = getenv(s))) t = ""; SLang_push_string(t); } #ifndef NO_PUTENV static void lang_putenv_cmd(void) { char *s; int d; if (SLang_pop_string(&s, &d)) return; if (putenv (s)) { SLang_Error = INTRINSIC_ERROR; if (d == 1) SLFREE (s); } /* Note that s is NOT freed */ } #endif static int lang_apropos1(char *s, SLang_Name_Type *table, int max) { int all = 0, n = 0; char *nm; SLang_Object_Type obj; if (*s == 0) all = 1; while(max && (nm = table->name, *nm != 0)) { nm++; /* lose hash */ if ((*nm != 1) && (all || (NULL != strstr(nm, s)))) { n++; /* since string is static, make it literal */ obj.main_type = SLANG_LITERAL; obj.sub_type = STRING_TYPE; obj.v.s_val = nm; SLang_push(&obj); if (SLang_Error) return(1); } table++; max--; } return n; } static void lang_apropos(char *s) { int n; SLName_Table *nt; n = lang_apropos1(s, SLang_Name_Table, SLANG_MAX_SYMBOLS); nt = SLName_Table_Root; while (nt != NULL) { n += lang_apropos1(s, nt->table, nt->n); nt = nt->next; } SLang_push_integer(n); } static void lang_print_stack (void) { SLang_Object_Type *x = SLStack_Pointer; int n; char *b, *t; char buf[132]; char buf2[40]; while (--x >= SLRun_Stack) { b = buf; n = (int) (x - SLRun_Stack); switch (x->sub_type) { case STRING_TYPE: b = x->v.s_val; t = "(Str)"; break; case INT_TYPE: sprintf(buf, "%d", x->v.i_val); t = "(Int)"; break; #ifdef FLOAT_TYPE case FLOAT_TYPE: sprintf(buf, Float_Format, x->v.f_val); t = "(float)"; break; #endif case SLANG_OBJ_TYPE: b = (char *) (x->v.n_val)->name + 1; t = "(Ptr)"; break; case ARRAY_TYPE: *buf = 0; /* I could give some info here */ t = "(Array)"; break; default: t = "(Unknown)"; *buf = 0; } sprintf(buf2, "(%d) %s:", n, t); (*SLang_Dump_Routine)(buf2); (*SLang_Dump_Routine)(b); *buf = '\n'; *(buf + 1) = 0; (*SLang_Dump_Routine)(buf); } } /* sprintf functionality for S-Lang */ static char *SLdo_sprintf(char *fmt) { register char *p = fmt, ch; char *out = NULL, *outp = NULL; char dfmt[80]; /* used to hold part of format */ char *f; unsigned char stmp, ttmp; long *varp; int var, want_width, width, precis, use_varp; int len = 0, malloc_len = 0, dlen, do_free, guess_size; #ifdef FLOAT_TYPE int tmp1, tmp2, use_float; FLOAT x; #endif while (1) { while (ch = *p, ch && (ch != '%')) p++; /* p points at '%' */ dlen = (int) (p - fmt); if (len + dlen >= malloc_len) { malloc_len = len + dlen; if (out == NULL) outp = (char *) SLMALLOC(malloc_len + 1); else outp = (char *) SLREALLOC(out, malloc_len + 1); if (NULL == outp) { SLang_Error = SL_MALLOC_ERROR; return out; } out = outp; outp = out + len; } strncpy(outp, fmt, dlen); len += dlen; outp = out + len; *outp = 0; if (ch == 0) break; /* bump it beyond '%' */ ++p; fmt = p; f = dfmt; *f++ = ch; /* handle flag char */ ch = *p++; if ((ch == '-') || (ch == '+') || (ch == ' ') || (ch == '#')) { *f++ = ch; ch = *p++; } /* width */ /* I have got to parse it myself so that I can see how big it needs to be. */ want_width = width = 0; if (ch == '*') { if (SLang_pop_integer(&width)) return (out); want_width = 1; ch = *p++; } else { if (ch == '0') { *f++ = '0'; ch = *p++; } while ((ch <= '9') && (ch >= '0')) { width = width * 10 + (ch - '0'); ch = *p++; want_width = 1; } } if (want_width) { sprintf(f, "%d", width); while (*f) f++; } precis = 0; /* precision -- also indicates max number of chars from string */ if (ch == '.') { *f++ = ch; ch = *p++; want_width = 0; if (ch == '*') { if (SLang_pop_integer(&precis)) return (out); ch = *p++; want_width = 1; } else while ((ch <= '9') && (ch >= '0')) { precis = precis * 10 + (ch - '0'); ch = *p++; want_width = 1; } if (want_width) { sprintf(f, "%d", precis); while (*f) f++; } else precis = 0; } /* not supported */ if ((ch == 'l') || (ch == 'h')) ch = *p++; var = 0; varp = 0; guess_size = 32; #ifdef FLOAT_TYPE use_float = 0; #endif use_varp = 0; do_free = 0; /* Now the actual format specifier */ switch(ch) { case 's': if (SLang_pop_string((char **) &varp, &do_free)) return (out); guess_size = strlen((char *) varp); use_varp = 1; break; case '%': guess_size = 1; do_free = 0; use_varp = 1; varp = (long *) "%"; break; case 'c': guess_size = 1; /* drop */ case 'd': case 'i': case 'o': case 'u': case 'X': case 'x': if (SLang_pop_integer(&var)) return(out); break; case 'f': case 'e': case 'g': case 'E': case 'G': #ifdef FLOAT_TYPE if (SLang_pop_float(&x, &tmp1, &tmp2)) return (out); use_float = 1; guess_size = 64; (void) tmp1; (void) tmp2; break; #endif case 'p': guess_size = 32; if (NULL == (varp = SLang_pop_pointer(&stmp, &ttmp, &do_free))) { return (out); } (void) stmp; (void) ttmp; use_varp = 1; break; default: SLang_doerror("Invalid Format."); return(out); } *f++ = ch; *f = 0; width = width + precis; if (width > guess_size) guess_size = width; if (len + guess_size > malloc_len) { outp = (char *) SLREALLOC(out, len + guess_size + 1); if (outp == NULL) { SLang_Error = SL_MALLOC_ERROR; return (out); } out = outp; outp = out + len; malloc_len = len + guess_size; } if (use_varp) { sprintf(outp, dfmt, varp); if (do_free == 1) SLFREE(varp); } #ifdef FLOAT_TYPE else if (use_float) sprintf(outp, dfmt, x); #endif else sprintf(outp, dfmt, var); len += strlen(outp); outp = out + len; fmt = p; } if (out != NULL) { outp = (char *) SLREALLOC(out, (int) (outp - out) + 1); if (outp != NULL) out = outp; } return (out); } static void SLsprintf(void) { register char *p, ch, *b; char buf[256], ch1, *fmt; int n = 1, do_free; SLang_Object_Type *ptr; if (NULL == (ptr = SLreverse_stack(&n))) return; if (SLang_pop_string(&fmt, &do_free)) return; strncpy(buf, fmt, 255); if (do_free == 1) SLFREE(fmt); buf[255] = 0; p = b = buf; while ((ch = *p++) != 0) { if (ch == '\\') { p = SLexpand_escaped_char(p, &ch1); if (SLang_Error) return; ch = ch1; } /* else if ((ch == '%') && (*p == '%')) p++; */ *b++ = ch; } *b = 0; p = SLdo_sprintf(buf); while (SLStack_Pointer > ptr) SLdo_pop(); if (SLang_Error) { if (p != NULL) SLFREE(p); } if (p != NULL) SLang_push_malloced_string (p); } /* converts string s to a form that can be used in an eval */ static void make_printable_string(char *s) { int len; register char *s1 = s, ch, *ss1; char *ss; /* compute length */ len = 3; while ((ch = *s1++) != 0) { if ((ch == '\n') || (ch == '\\') || (ch == '"')) len++; len++; } if (NULL == (ss = (char *) SLMALLOC(len))) { SLang_Error = SL_MALLOC_ERROR; return; } s1 = s; ss1 = ss; *ss1++ = '"'; while ((ch = *s1++) != 0) { if (ch == '\n') { ch = 'n'; *ss1++ = '\\'; } else if ((ch == '\\') || (ch == '"')) { *ss1++ = '\\'; } *ss1++ = ch; } *ss1++ = '"'; *ss1 = 0; SLang_push_string(ss); } char *SLang_extract_list_element(char *list, int *nth, int *delim) { int d = *delim, n = *nth; static char elem[256]; char *el = elem; while (n-- > 0) { while (*list && (*list != (char) d)) list++; if (*list == 0) break; list++; } n = 255; while (n-- && *list && (*list != (char) d)) *el++ = *list++; *el = 0; return (elem); } static int SLang_is_list_element(char *list, char *elem, int *delim) { int d = *delim, n, len; char *l = list; len = strlen (elem); n = 1; while (1) { while (*l && (*l != (char) d)) l++; if ((list + len == l) && (!strncmp (elem, list, len))) return n; if (*l == 0) break; list = l = l + 1; n++; } return (0); } /* Regular expression routines for strings */ static SLRegexp_Type regexp_reg; static int string_match (char *str, char *pat, int *np) { int n = *np, len; unsigned char rbuf[512], *match; regexp_reg.case_sensitive = 1; regexp_reg.buf = rbuf; regexp_reg.pat = (unsigned char *) pat; regexp_reg.buf_len = sizeof (rbuf); if (SLang_regexp_compile (®exp_reg)) { SLang_doerror ("Unable to compile pattern."); return 0; } n--; len = strlen(str); if ((n < 0) || (n >= len)) { SLang_Error = SL_INVALID_PARM; return 0; } str += n; len -= n; if (NULL == (match = SLang_regexp_match((unsigned char *) str, len, ®exp_reg))) return 0; /* adjust offsets */ regexp_reg.offset = n; return (1 + (int) ((char *) match - str)); } static int string_match_nth(int *np) { int n = *np, beg; if ((n < 0) || (n > 9) || (regexp_reg.pat == NULL) || ((beg = regexp_reg.beg_matches[n]) == -1)) { SLang_Error = SL_INVALID_PARM; return 0; } SLang_push_integer(beg + regexp_reg.offset); return regexp_reg.end_matches[n]; } static int my_system (char *s) { return system (s); } /* These are here to let interpreter script have access to these values. */ static int Integer_Type_Var = INT_TYPE; static int String_Type_Var = STRING_TYPE; #ifdef FLOAT_TYPE static int Float_Type_Var = FLOAT_TYPE; #endif SLang_Name_Type SLang_Basic_Table[] = { MAKE_INTRINSIC(".autoload", SLang_autoload, VOID_TYPE, 2), /* Prototype: Void autoload(String fun, String file); * This function simply declares function @fun@ to the interpreter. When * @fun@ is actually called, its actual function definition will be loaded * from @file@. For example, * @ autoload ("bessel_j0", "bessel.sl"); * tells the interpreter that the function definition for @bessel_j0@ from * is to be loaded from the file @bessel.sl@ when the function is executed. * Related Functions: @evalfile@ */ MAKE_INTRINSIC(".pop", SLdo_pop, VOID_TYPE, 0), /* Prototype: Void pop (); * @pop@ is used to remove the top object from the S-Lang stack. It is * typically used to ignore values from function that return a value. For * example, the @fflush@ function which is used to flush an output stream * returns an integer value that indicates whether it was sucessful or not. * Usually, it is safe to ignore this value and one simple writes * @ fflush (stdout); pop (); * Related Functions: @dup@ */ MAKE_INTRINSIC(".strcmp", SLdo_strcmp, VOID_TYPE, 0), /* Prototype: Integer strcmp (String a, String b); * @strcmp@ performs a case sensitive comparison between two strings. It * returns 0 if the strings are identical, a negative number if @a@ is less * than @b@, or a positive result if @a@ is greater than @b@ (in a * lexicographic sense). * * To perform a case insensitive comparison, one can use the @strup@ function * to convert both parameters @a@ and @b@ to uppercase before calling @strcmp@. * Related Functions: @strup@, @strlow@, @strncmp@ */ MAKE_INTRINSIC(".strcat", SLdo_strcat, VOID_TYPE, 0), /* Prototype: String strcat(String a, String b); * This function takes two strings, @a@ and @b@, concatenates them together * and returns the result. For example, * @ strcat ("Hello ", "World"); * produces the string @"Hello World"@. * * Related Functions: @Sprintf@ */ MAKE_INTRINSIC(".strlen", SLdo_strlen, VOID_TYPE, 0), /* Prototype: Integer strlen (String a); * The @strlen@ returns the length of the string @a@. The length of a * string is simply the number of characters that comprise the string. * * Related Functions: @char@ */ MAKE_INTRINSIC(".str_replace", str_replace, INT_TYPE, 0), /* Prototype: Integer str_replace (String a, String b, String c); * This function replaces the first occurance of @b@ in @a@ with @c@ and returns * an integer that indicates whether a replacement was made or not. If @b@ * does not occur in @a@, zero is returned. However, if @b@ occurs in @a@, * a non-zero integer is returned as well as the new string resulting from the * replacement. For example, * @ define str_replace_all (orig, match, replacement) * @ { * @ while (str_replace (orig, match, replacement)) * @ orig = (); * @ return orig; * @ } * is a function that replaces all occurances in a string. * Related Functions: @is_substr@, @strsub@, @strtrim@ */ MAKE_INTRINSIC(".is_defined", SLang_is_defined, INT_TYPE, 1), /* Prototype: Integer is_defined (String obj); * This function is used to determine whether or not @obj@ has been defined. * If @obj@ is not defined, it returns 0. Otherwise, it returns a non-zero * value that defpends on the type of object @obj@ represents. Specifically: * @ +1 if arg is an intrinsic function * @ +2 if user defined function * @ -1 if intrinsic variable * @ -2 if user defined variable * @ 0 if undefined * For example, consider the function: * @ define runhooks (hook) * @ { * @ if (2 == is_defined(hook)) eval(hook); * @ } * This function could be called from another S-Lang function to allow customization * of that function, e.g., if the function represents a mode, the hook could * be called to setup keybinding for the mode. * Related Functions: @eval@, @autoload@ */ MAKE_INTRINSIC(".string", SLdo_string, VOID_TYPE, 0), /* Prototype: String string (obj); * Here @obj@ can be of any type. The function @string@ will return a string * representation of @obj@. * For example, @string(12.34)@ returns @"12.34"@. * Note: Not all objects may have a meaningful string representation. * Related Functions: @Sprintf@, @integer@, @char@ */ MAKE_INTRINSIC(".getenv", lang_getenv_cmd, VOID_TYPE, 1), /* Prototype: String getenv(String var); * Returns value of an environment variable @var@ as a string. The empty * string @""@ is returned if @var@ is not defined. Here is a simple example * of how an environment variable can be used in a S-Lang program: * @ if (strlen (getenv ("USE_COLOR"))) * @ { * @ set_color ("normal", "white", "blue"); * @ set_color ("status", "black", "gray"); * @ USE_ANSI_COLORS = 1; * @ } * Related Functions: @putenv@, @strlen@ */ #ifndef NO_PUTENV MAKE_INTRINSIC(".putenv", lang_putenv_cmd, VOID_TYPE, 0), /* Prototype: Void putenv (String s); * This functions adds string @s@ to the environment. Typically, @s@ should * be a string of the form @"name=value"@. It signals an error upon failure. * Note: This function is not available on all systems. * Related Functions: @getenv@ */ #endif MAKE_INTRINSIC(".evalfile", SLang_load_file, INT_TYPE, 1), /* Prototype: Integer evalfile (String file); * Load @file@ as S-Lang code. If loading is successful, a non-zero result * will be returned. If @file@ is not found, zero will be returned. * Note: some applications embedding S-Lang may override the definition of * this function. For example, the JED editor overrides the default definition * and will generate an error if @file@ cannot be opened. * Related Functions: @eval@, @autoload@ */ MAKE_INTRINSIC(".char", SLdo_char, VOID_TYPE, 0), /* Prototype: String char (Integer c); * This function takes and integer and returns a string of length one whose * first character has ascii value @c@. For example, @char('a')@ returns * the string @"a"@. * Related Functions: @integer@, @string@. */ MAKE_INTRINSIC(".eval", SLang_load_string, VOID_TYPE, 1), /* Prototype: Void eval (String expression); * The @eval@ function parses a string as S-Lang code and executes the * result. This is a useful function in many contexts such as dynamically * generating function definitions where there is no way to generate them otherwise. * Related Functions: @is_defined@ */ MAKE_INTRINSIC(".dup", SLdo_dup, VOID_TYPE, 0), /* Prototype: dup (); * This function returns an exact duplicate of the object on top of the * stack. For some objects such as arrays, it creates a new reference to * the array. However, for simple S-Lang types such as Strings, Integers, * and Floats, it creates a new copy of the object. * Related Functions: @pop@, @copy_array@ */ MAKE_INTRINSIC(".substr", SLdo_substr, VOID_TYPE, 0), /* Prototype: String substr (String s, Integer n, Integer len); * This function returns a substring with length @len@ of string @s@ * beginning at position @n@. The first character of @s@ is given by @n@ * equal to 1. For example, * @ substr ("To be or not to be", 7, 5); * returns @"or no"@. * Related Functions: @is_substr@ */ MAKE_INTRINSIC(".integer", SLdo_integer, VOID_TYPE, 0), /* Prototype: Integer integer (String s) * This function converts the string representation of an integer back * to an integer. * For example, @integer ("1234")@ returns the integer value @1234@. * Related Functions: @string@, @Sprintf@, @char@ */ MAKE_INTRINSIC(".is_substr", SLdo_issubstr, VOID_TYPE, 0), /* Prototype: Integer is_substr (String a, String b); * This function may be used to determine if @a@ contains the string @b@. * If it does not, the function returns 0; otherwise it returns the position * of @b@ in @a@. Like all S-Lang strings, positions start at 1. That is, * the first character of @a@ is given by position 1. * Related Functions: @substr@, @string_match@ */ MAKE_INTRINSIC(".strsub", SLdo_strsub, VOID_TYPE, 0), /* Prototype: String strsub (String s, Integer pos, Integer ch); * This function replaces the character at position @pos@ in string @s@ * by the character @ch@ and returns the resulting string. * The first character in the string @s@ is specified by @pos@ equal to 1. * For example, * @ define replace_spaces_with_comma (s) * @ { * @ variable n; * @ while (n = is_substr (s, " "), n) s = strsub (s, n, ','); * @ return s; * @ } * replaces all spaces with a comma. * Related Functions: @is_substr@, @str_replace@ */ MAKE_INTRINSIC(".extract_element", SLang_extract_list_element, STRING_TYPE, 3), /* Prototype: String extract_element (String list, Integer nth, Integer delim); * Returns @nth@ element in @list@ where @delim@ separates elements of the * list. @delim@ is an integer that represents the ascii value of the * character that serves as the delimiter. Elements are numbered from 0. * * For example: * @ extract_element ("element 0, element 1, element 2", 1, ','); * returns the string @" element 1"@, whereas * @ extract_element ("element 0, element 1, element 2", 2, ' '); * returns @"0,"@. * Related Functions: @is_list_element@, @is_substr@. */ MAKE_INTRINSIC(".is_list_element", SLang_is_list_element, INT_TYPE, 3), /* Prototype: Integer is_list_element (String list, String elem, Integer delim); * If @elem@ is an element of @list@ where @list@ is a @delim@ seperated * list of strings, this function returns 1 plus the matching element * number. If @elem@ is not a member of the list, zero is returned. * For example: * @ is_list_element ("element 0, element 1, element 2", "0,", ' '); * returns 2 since @"0,"@ is element number one of the list (numbered from * zero). * Related Functions: @extract_element@. */ MAKE_INTRINSIC(".case", generic_equals, INT_TYPE, 0), /* Prototype: Integer case(Object a, Object b); * The @case@ function is a generic comparison operation that is able to * compare objects of different types. The @case@ function returns zero if * @a@ and @b@ have different types or have different values; otherewise, it * returns one. * * This function is parsed a little different than other functions in the sense * that parenthesis are not required around its arguments. If no parenthisis * follows the @case@ token, it is assumed that the first argument is present * on the stack and that the token immediately following the @case@ token is * the second argument. This means that * @ case (a, b); * and * @ a; case b; * are equivalent. This parsing feature makes the @case@ function useful * for use in a @switch@ statement. In a @switch@ statment, it may be * used as: * @ switch (token) * @ { case "return": return_function ();} * @ { case "break": break_function ();} * Unlike the C version, it one cannot use: * @ switch (i) * @ {case 10: case 20: do_ten_or_twenty (i);} * Instead, one must do either: * @ switch (i) * @ {case 10 or case (i, 20) : do_ten_or_twenty (i);} * or: * @ switch (i) * @ {case 10: do_ten_or_twenty (i);} * @ {case 20: do_ten_or_twenty (i);} * Related Functions: @strcmp@ */ MAKE_INTRINSIC(".string_match", string_match, INT_TYPE, 3), /* Prototype: Integer string_match(String str, String pat, Integer pos); * Returns 0 if @str@ does not match regular expression specified by * @pat@. This function performs the match starting at position @pos@ in * @str@. The first character of @str@ corresponds to @pos@ equal to one. * This function returns the position of the start of the match. To find * the exact substring actually matched, use @string_match_nth@. * Related Functions: @string_match_nth@, @strcmp@, @strncmp@ */ MAKE_INTRINSIC(".string_match_nth", string_match_nth, INT_TYPE, 1), /* Prototype: Integer string_match_nth(Integer nth); * This function returns 2 integers describing the result of the last * call to @string_match@. It returns both the offset into the string * and the length of characters matches by the @nth@ submatch. * By convention, @nth@ equal to zero means the entire match. Otherwise, * @nth@ must be an integer, 1 to 9, and refers to the set of characters * matched by the @nth@ regular expression delimited by @\(@, @\)@ pairs. * For example, consider: * @ variable matched, pos, len; * @ matched = string_match("hello world", "\\([a-z]+\\) \\([a-z]+\\)", 1); * @ if (matched) { * @ (pos, len) = string_match_nth(2); * @ } * This will set @matched@ to 1 since a match will be found at the first * position, @pos@ to 7 since @w@ is the 7th character of the string, and * len to 5 since @"world"@ is 5 characters long. * * Please note that the position offset is affected by the value of the * offset parameter to the @string_match@ function. For example, if the value * of the last parameter to the @string_match@ function had been 3, @pos@ would * have been set to 5. */ MAKE_VARIABLE("._traceback", &SLang_Traceback, INT_TYPE, 0), /* Prototype Integer _traceback; * An error is generated when the integer variable @_traceback@ is * non-zero will result in a function traceback showing the functions that * were active at the time of the error as well as the values of any local * variable that the functions may have. * * Local variables are represented in the form @$n@ where @n@ is an * integer numbered from zero. More explicitly, @$0@ represents the * first declared local variable, @$1@ represents the seconds, and so on. * Please note that function parameters are local variables and that the * first parameter corresponds to @$0@. * * Related functions: @_slangtrace@ */ MAKE_VARIABLE("._slangtrace", &SLang_Trace, INT_TYPE, 0), /* * If non-zero, begin tracing when function declared by * @slang_trace_function@ is entered. This does not trace intrinsic * functions. */ /* -------------------------------------------------------*/ /* these are rarely ever referred to so make them last. */ MAKE_INTRINSIC(".system", my_system, INT_TYPE, 1), /* Prototype: Integer system (String cmd); * The system function may be used to execute the string expression @cmd@ in * an inferior shell. It returns 127 if the inferior shell could not be * invoked, -1 if there was some other error, otherwise it returns the return * code for @cmd@. For example, * @ define dir () * @ { * @ () = system ("DIR"); * @ } * displays a directory listing of the current directory under MSDOS or * VMS. */ MAKE_INTRINSIC(".slapropos", lang_apropos, VOID_TYPE, 1), /* Prototype: Integer slapropos (String s); * The @slapropos@ function may be used to get a list of all defined * objects whose name consists of the substring @s@. The number of * matches is returned. If the number returned is non-zero, that number * of strings which represent the names of the matched objects will will * also be present on the stack. For example, the function * @ define apropos (s) * @ { * @ variable n, name; * @ n = slapropos (s); * @ if (n) print (Sprintf ("Found %d matches:", n, 1)); * @ else print ("No matches."); * @ loop (n) * @ { * @ name = (); * @ print (name); * @ } * @ } * prints a list of all matches. It assumes the existence of a @print@ * intrinsic function. * Related Functions: @is_defined@, @Sprintf@ */ MAKE_INTRINSIC(".slang_trace_function", SLang_trace_fun, VOID_TYPE, 1), /* Prototype: Void slang_trace_function (String f); * This function declares that the S-Lang function with name @f@ is to be * traced when it is called. Calling @slang_trace_function@ does not in * itself turn tracing on. Tracing is turned on only when the variable * @_slangtrace@ is non-zero. * Related Functions: @print_stack@ * Related Variables: @_slangtrace@, @_traceback@. */ /* array ops: */ MAKE_INTRINSIC(".create_array", SLang_create_array, VOID_TYPE, 0), /* Prototype: create_array (Integer type, Integer i_1, i_2...i_dim, Integer dim); * Creates an array of type @type@ with dimension @dim@. * @i_n@ is an integer which specifies the maximum size of array in * direction @n@. @type@ is a control integer which specifies the type * of the array. * Types are: * @ 's' : array of strings * @ 'f' : array of floats * @ 'i' : array of integers * @ 'c' : array of characters * Currently, @dim@ cannot be larger than 3. * Also note that space is dynamically allocated for the array and that * copies of the array are NEVER put on the stack. Rather, references to * the array are put on the stack. * For example, * @ variable a = create_array ('f', 10, 1); * creates a 1 dimensional array of 10 floats and assigns it to @a@. */ MAKE_INTRINSIC(".aget", SLarray_getelem, VOID_TYPE, 0), /* Syntax: i j ... k ARRAY aget returns ARRAY[i][j]...[k] */ MAKE_INTRINSIC(".aput", SLarray_putelem, VOID_TYPE, 0), /* Syntax: x i j ... k ARRAY put sets ARRAY[i][j]...[k] = x */ MAKE_INTRINSIC(".strncmp", SLdo_strncmp, VOID_TYPE, 0), /* Prototype: Integer strncmp (String a, String b, Integer n); * This function behaves like @strcmp@ except that it compares only the * first @n@ characters in the strings @a@ and @b@. * For example, * @ strcmp ("apple", "appliance", 3); * returns zero since the first three characters match. * Related Functions: @strcmp@ */ MAKE_INTRINSIC(".strlow", SLdo_strlow, VOID_TYPE, 0), /* Prototype: String strlow (String s); * This function takes a string @s@ and returns another string identical * to @s@ except that all upper case characters that comprise @s@ will be * converted to lower case. For example, the function * @ define Strcmp (a, b) * @ { * @ return strcmp (strlow (a), strlow (b)); * @ } * performs a case insensitive comparison operation on two strings by * converting them to lower case first. * Related Functions: @strup@, @strcmp@, @strtrim@, @define_case@ */ MAKE_INTRINSIC(".strup", SLdo_strup, VOID_TYPE, 0), /* Prototype: String strup (String s); * This function takes a string @s@ and returns another string identical * to @s@ except that all lower case characters that comprise @s@ will be * converted to upper case. For example, the function * @ define Strcmp (a, b) * @ { * @ return strcmp (strup (a), strup (b)); * @ } * performs a case insensitive comparison operation on two strings by * converting them to upper case first. * Related Functions: @strlow@, @strcmp@, @strtrim@, @define_case@ */ MAKE_INTRINSIC(".isdigit", SLdo_isdigit, INT_TYPE, 1), /* Prototype: Integer isdigit (String s); * This function returns a non-zero value if the first character in the * string @s@ is a digit; otherwise, it returns zero. A simple, user defined * implementation of @isdigit@ is * @ define isdigit (s) * @ { * @ return ((int (s) <= '9') and (int (s) >= '0')); * @ } * However, the intrinsic function @isdigit@ executes up to ten times faster * than the equivalent representation defined above. * Related Functions: @int@, @integer@ */ MAKE_INTRINSIC(".strtrim", SLdo_strtrim, VOID_TYPE, 0), /* Prototype: String strtrim (String s); * The @strtrim@ function removes all leading and trailing whitespace * characters from the string @s@ and returns the result. Whitespace is * defined to be any combination of spaces, tabs, and newline characters. * Related Functions: @int@, @strlow@, @strup@, @strcompress@ */ MAKE_INTRINSIC(".strcompress", SLdo_strcompress, VOID_TYPE, 0), /* Prototype: String strtrim (String s, String white); * The @strcompress@ function compresses the string @s@ by removing all * repeated characters specified by @white@ from the interior of @s@. In * addition, it also removes all leading and trailing characters from @s@ * that are part of @white@. For example, * @ strcompress (",;apple,,cherry;,banana", ",;"); * returns the string @"apple,cherry;banana"@. * Related Functions: @strtrim@ */ MAKE_INTRINSIC(".int", SLdo_int, VOID_TYPE, 0), /* Prototype: Integer int (String s); * This function returns the ascii value value of the first character of * the string @s@. It is often used to convert single character strings * to integers. For example, the intrinsic function @isdigit@ may be * defined as * @ define isdigit (s) * @ { * @ if ((int (s) >= '0') and (int (s) <= '9')) return 1; * @ return 0; * @ } * Related Functions: @char@, @isdigit@ */ MAKE_INTRINSIC(".array_sort", SLarray_sort, VOID_TYPE, 1), /* Prototype: Array array_sort (Array a, String f); * @array_sort@ sorts the array @a@ into ascending order according to the * function @f@ and returns an integer array that represents the result of the * sort. * * The integer array returned by this function is simply an index that indicates the * order of the sorted array. The input array @a@ is not changed. For example, * if the input array consists of the three strings * @ {"gamma", "alpha", "beta"} * and the sort function @f@ is defined to be * @ define f (a, b) * @ { return strcmp (a, b); } * then the index array will be returned as: * @ {2, 0, 1} * * Note that the comparison cannot be an intrinsic function; it must be a * S-Lang user defined function. The function takes two arguments * and returns an integer that is less than zero if the first parameter is * considered to be less than the second, zero if they are equal, and a * value greater than zero if the first is greater than the second. * * Related Functions: @create_array@. */ /* misc stuff */ MAKE_INTRINSIC("._stkdepth", SLstack_depth, INT_TYPE, 0), /* Prototype: Integer: _stkdepth (); * This function returns number of items on stack prior to the call of * @_stkdepth@. * * Related Functions: @print_stack@ */ MAKE_INTRINSIC(".print_stack", lang_print_stack, VOID_TYPE, 0), /* Prototype: Void print_stack (void); * This function dumps out what is currently on the S-Lang stack. It does not * alter the stack and it is usually used for debugging purposes. * Related Functions: @_stkdepth@, @string@ */ MAKE_INTRINSIC(".Sprintf", SLsprintf, VOID_TYPE, 0), /* Prototype: String Sprintf(String format, ..., Integer n); * Sprintf formats a string from @n@ objects according to @format@. * Unlike its C counterpart, Sprintf requires the number of items to * format. Example: * @ Sprintf("%f is greater than %f but %s is better than %s\n", * @ PI, E, "Cake" "Pie", 4); * The final argument to @Sprintf@ is the number of items to format; in * this case, there are 4 items. * Related Functions: @string@ */ MAKE_INTRINSIC(".init_char_array", SLinit_char_array, VOID_TYPE, 0), /* Prototype: Void init_char_array(Array_Type a, String s); * This function may be used to initialize a character array. Here @a@ * is an array type character and @s@ is a string. This function simply * sets the elements of the array @a@ to the corresponding characters of * the string @s@. For example, * @ variable a = create_array ('c', 10, 1); * @ init_char_array (a, "HelloWorld"); * creates an character array and initializes its elements to the * characters in the string @"HelloWorld"@. * * Note: The character array must be large enough to hold all the * characters of the initialization string. * Related Functions: @create_array@, @strlen@, @strcat@ */ MAKE_INTRINSIC(".byte_compile_file", SLang_byte_compile_file, VOID_TYPE, 2), /* Prototype: Void byte_compile_file (String file, Integer method); * byte compiles @file@ producing a new file with the same name except * a @c@ is added to the output file name. For example, * @ byte_compile_file("site.sl"); * produces a new file named @site.slc@. If @method@ is non-zero, the * file is preprocessed only. Note that the resulting bytecompiled file * must only be used by the executable that produced it. Set @method@ to * a non-zero value to use the byte compiled file with more than one * executable. */ MAKE_INTRINSIC(".make_printable_string", make_printable_string, VOID_TYPE, 1), /* Prototype: String make_printable_string(String str); * Takes input string @str@ and creates a new string that may be used by the * interpreter as an argument to the @eval@ function. The resulting string is * identical to @str@ except that it is enclosed in double quotes and the * backslash, newline, and double quote characters are expanded. * Related Functions: @eval@, @str_quote_string@ */ MAKE_INTRINSIC(".str_quote_string", SLquote_string, VOID_TYPE, 0), /* Prototype: String str_quote_string(String str, String qlis, Integer quote); * Return a string identical to @str@ except that all characters in the * string @qlis@ are escaped with the @quote@ character including the quote * character itself. * Related Functions: @str_uncomment_string@ */ MAKE_INTRINSIC(".str_uncomment_string", uncomment_string, VOID_TYPE, 3), /* Prototype: String str_uncomment_string(String s, String beg, String end); * @beg@ and @end@ are strings whose characters define a set of comment * delimiters. This function removes comments defined by the delimiter set * from the input string @s@ and returns it. For example, * @ str_uncomment_string ("Hello (testing) 'example' World", "'(", "')"); * returns the string @"Hello World"@. * Note: this routine does not handle multicharacter comment delimiters and it * assumes that comments are not nested. * Related Functions: @str_quote_string@ */ MAKE_INTRINSIC(".define_case", SLang_define_case, VOID_TYPE, 2), /* Prototype: Void define_case (Integer ch_up, Integer ch_low); * This function defines an upper and lowercase relationship between two * characters specified by the arguments. This relationship is used by * routines which perform uppercase and lowercase conversions. * The first integer @ch_up@ is the ascii value of the upprcase character * and the second parameter @ch_low@ is the ascii value of its lowercase counterpart. * Related Functions: @strlow@, @strup@. */ MAKE_INTRINSIC("._clear_error", SLang_clear_error, VOID_TYPE, 0), /* Prototype: Void _clear_error (); * This function may be used only in error blocks to clear the error that * triggered the error block. Execution resumes following the statement * that triggered the error. * Related Functions: @slang_trace_function@ * Related Variables: @_slangtrace@, @_traceback@ */ MAKE_INTRINSIC(".set_float_format", set_float_format, VOID_TYPE, 1), /* Prototype: Void set_float_format (String fmt); * This function is used to set the floating point format to be used * when floating point numbers are printed. The routines that use this * are the traceback routines and the @string@ function. The default * value is @"%f"@. * Related Functions: @string@, @float@ */ MAKE_INTRINSIC(".copy_array", SLcopy_array, VOID_TYPE, 0), /* Prototype: Void copy_array(Array b, Array a); * Copies the contents of array @a@ to array @b@. Both arrays must be of * the same type and dimension. * Related Functions: @create_array@, @dup@ */ MAKE_INTRINSIC(".array_info", SLarray_info, VOID_TYPE, 0), /* Prototype: Var array_info (Array a); * This function returns information about the array @a@. The number of * values returned depend on the type of array. It always returns at * least three values to the stack. For two and three dimensional * arrays, it returns four and fives values, resp. * The values are ordered in such a way that it may be used as an argument * to the @create_array@ function. For example, * @ define duplicate_array (a) * @ { * @ variable b = create_array (array_info (a)); * @ return copy_array (b, a); * @ } * See also: @create_array@, @copy_array@ */ MAKE_INTRINSIC("._slang_guess_type", SLang_guess_type, INT_TYPE, 1), /* Prototype: Integer _slang_guess_type (String s); * This function tries to determine whether its argument @s@ represents * an integer or a floating point number. If it appears to be neither, * then a string is assumed. It returns one of three values depending on * the format of the string @s@: * @ INT_TYPE : If it appears to be an integer * @ FLOAT_TYPE : If it appears to be a float * @ STRING_TYPE : Anything else. * For example, @_slang_guess_type("1e2")@ returns @FLOAT_TYPE@ but * @_slang_guess_type("e12")@ returns @STRING_TYPE@. * Related Functions: @integer@, @string@, @float@ * Related Variables: @INT_TYPE@, @STRING_TYPE@, @FLOAT_TYPE@ */ MAKE_VARIABLE("._slang_version", &SLang_Version, INT_TYPE, 1), MAKE_VARIABLE(".INT_TYPE", &Integer_Type_Var, INT_TYPE, 1), MAKE_VARIABLE(".STRING_TYPE", &String_Type_Var, INT_TYPE, 1), #ifdef FLOAT_TYPE MAKE_VARIABLE(".FLOAT_TYPE", &Float_Type_Var, INT_TYPE, 1), #endif SLANG_END_TABLE }; #ifdef FLOAT_TYPE /* doing it this way means that I can handle things like 2.0 + 3 and * 3 + 2.0 at the same time. */ static int float_bin_op (int op, unsigned char sta, unsigned char stb, FLOAT *ap, FLOAT *bp) { FLOAT c, a, b; int ic; if (sta == FLOAT_TYPE) a = *ap; else a = (FLOAT) *(int *) ap; if (stb == FLOAT_TYPE) b = *bp; else b = (FLOAT) *(int *) bp; switch (op) { case SLANG_PLUS: c = a + b; goto push_float; case SLANG_MINUS: c = a - b; goto push_float; case SLANG_TIMES: c = a * b; goto push_float; case SLANG_DIVIDE: if (b == 0.0) { SLang_Error = DIVIDE_ERROR; return 1; } c = a / b; goto push_float; case SLANG_EQ: ic = (a == b); goto push_int; case SLANG_NE: ic = (a != b); goto push_int; case SLANG_GT: ic = (a > b); goto push_int; case SLANG_GE: ic = (a >= b); goto push_int; case SLANG_LT: ic = (a < b); goto push_int; case SLANG_LE: ic = (a <= b); goto push_int; default: return 1; } push_float: SLang_push_float (c); return 1; push_int: SLang_push_integer (ic); return 1; } #endif static int int_bin_op (int op, unsigned char sta, unsigned char stb, int *ap, int *bp) { int c, a = *ap, b = *bp; (void) sta; (void) stb; switch (op) { case SLANG_PLUS: c = a + b; break; case SLANG_MINUS: c = a - b; break; case SLANG_TIMES: c = a * b; break; case SLANG_DIVIDE: if (b == 0) { SLang_Error = DIVIDE_ERROR; return 1; } c = a / b; break; case SLANG_EQ: c = (a == b); break; case SLANG_NE: c = (a != b); break; case SLANG_GT: c = (a > b); break; case SLANG_GE: c = (a >= b); break; case SLANG_LT: c = (a < b); break; case SLANG_LE: c = (a <= b); break; default: return 0; } SLang_push_integer (c); return 1; } static int unary_op_function (int op, unsigned char type, VOID *xp) { int x; #ifdef FLOAT_TYPE FLOAT xf; if (type == FLOAT_TYPE) { xf = *(FLOAT *) xp; switch (op) { case SLANG_CHS: xf = -xf; break; case SLANG_SQR: xf = xf * xf; break; case SLANG_MUL2: xf = xf * 2.0; break; case SLANG_ABS: xf = (FLOAT) fabs((double) xf); break; case SLANG_SIGN: if (xf > 0.0) x = 1; else if (xf < 0.0) x = -1; else x = 0; SLang_push_integer (x); return 1; default: return 0; } SLang_push_float (xf); } else { #else (void) type; #endif x = *(int *) xp; switch (op) { case SLANG_CHS: x = -x; break; case SLANG_SQR: x = x * x; break; case SLANG_MUL2: x = x * 2; break; case SLANG_ABS: x = abs(x); break; case SLANG_SIGN: if (x > 0) x = 1; else if (x < 0) x = -1; default: return 0; } SLang_push_integer (x); #ifdef FLOAT_TYPE } #endif return 1; } static int register_types (void) { if ((!SLang_register_class (ARRAY_TYPE, (VOID *) SLarray_free_array, NULL)) || !SLang_register_class (INT_TYPE, NULL, NULL) #ifdef FLOAT_TYPE || !SLang_register_class (FLOAT_TYPE, NULL, NULL) #endif ) return 0; if (!SLang_add_binary_op (INT_TYPE, INT_TYPE, (VOID *) int_bin_op) || !SLang_add_unary_op (INT_TYPE, (VOID *) unary_op_function) #ifdef FLOAT_TYPE || !SLang_add_binary_op (FLOAT_TYPE, FLOAT_TYPE, (VOID *) float_bin_op) || !SLang_add_binary_op (FLOAT_TYPE, INT_TYPE, (VOID *) float_bin_op) || !SLang_add_unary_op (FLOAT_TYPE, (VOID *) unary_op_function) #endif ) return 0; return 1; } int init_SLang() { char name[3]; int i; #ifdef pc_system # ifdef __os2__ char *s = "OS2"; # else char *s = "MSDOS"; # endif #else # ifdef VMS char *s = "VMS"; # else char *s = "UNIX"; # endif #endif #ifdef MSWINDOWS SLang_Name_Table = (SLang_Name_Type *) SLCALLOC(SLANG_MAX_SYMBOLS, sizeof (SLang_Name_Type)); if (SLang_Name_Table == NULL) return 0; #endif if (0 == register_types ()) return 0; if (!SLang_add_table(SLang_Basic_Table, "_Basic")) return(0); SLadd_variable(SLANG_SYSTEM_NAME); if (!SLdefine_for_ifdef (s)) return 0; #ifdef MSWINDOWS /* I am not sure whether this belongs here or not. */ if (!SLdefine_for_ifdef ("MSWINDOWS")) return 0; #endif #ifdef FLOAT_TYPE if (!SLdefine_for_ifdef ("FLOAT_TYPE")) return 0; #endif /* give temp global variables $0 --> $9 */ name[2] = 0; name[0] = '$'; for (i = 0; i < 10; i++) { name[1] = (char) (i + '0'); SLadd_variable(name); } SLstupid_hash(); SLang_init_case_tables (); return (SLang_Error == 0); } if (!SLdefine_for_ifdef (s)) return 0; #ifdef MSWINDOWS /* I am not sure whether this belongs here or not. */ if (!SLdefine_for_ifdef ("MSWINDOWS")) return 0; #endif #ifdef FLOAT_TYPE if (!SLdefine_for_ifdef ("FLOAT_TYPE")) return 0; #endif /* give temp global variables $0 --> $9 */ name[2] = 0; name[0] = '$'; for (i = 0; i < 10; i++) { name[1] = (char) (i + '0'); SLadd_variable(name); } SLstupid_hash(); slang-0.99.12/src/sltermin.c000064400000000000003000000432130603742322600154330ustar00rootsys00000000000000/* This file contains enough terminfo reading capabilities sufficient for * the slang SLtt interface. */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include "config.h" #include "slang.h" #include "_slang.h" /* * The majority of the comments found in the file were taken from the * term(4) man page on an SGI. */ /* Short integers are stored in two 8-bit bytes. The first byte contains * the least significant 8 bits of the value, and the second byte contains * the most significant 8 bits. (Thus, the value represented is * 256*second+first.) The value -1 is represented by 0377,0377, and the * value -2 is represented by 0376,0377; other negative values are illegal. * The -1 generally means that a capability is missing from this terminal. * The -2 means that the capability has been cancelled in the terminfo * source and also is to be considered missing. */ static int make_integer (unsigned char *buf) { register int lo, hi; lo = (int) *buf++; hi = (int) *buf; if (hi == 0377) { if (lo == 0377) return -1; if (lo == 0376) return -2; } return lo + 256 * hi; } /* * The compiled file is created from the source file descriptions of the * terminals (see the -I option of infocmp) by using the terminfo compiler, * tic, and read by the routine setupterm [see curses(3X).] The file is * divided into six parts in the following order: the header, terminal * names, boolean flags, numbers, strings, and string table. * * The header section begins the file. This section contains six short * integers in the format described below. These integers are (1) the magic * number (octal 0432); (2) the size, in bytes, of the names section; (3) * the number of bytes in the boolean section; (4) the number of short * integers in the numbers section; (5) the number of offsets (short * integers) in the strings section; (6) the size, in bytes, of the string * table. */ #define MAGIC 0432 /* In this structure, all char * fields are malloced EXCEPT if the * structure is SLTERMCAP. In that case, only terminal_names is malloced * and the other fields are pointers into it. */ typedef struct { #define SLTERMINFO 1 #define SLTERMCAP 2 unsigned int flags; int name_section_size; char *terminal_names; int boolean_section_size; unsigned char *boolean_flags; int num_numbers; unsigned char *numbers; int num_string_offsets; unsigned char *string_offsets; int string_table_size; char *string_table; } Terminfo_Type; static char *tcap_getstr (char *, Terminfo_Type *); static int tcap_getnum (char *, Terminfo_Type *); static int tcap_getflag (char *, Terminfo_Type *); static int tcap_getent (char *, Terminfo_Type *); static FILE *open_terminfo (char *file, Terminfo_Type *h) { FILE *fp; unsigned char buf[12]; fp = fopen (file, "rb"); if (fp == NULL) return NULL; if ((12 == fread ((char *) buf, 1, 12, fp) && (MAGIC == make_integer (buf)))) { h->name_section_size = make_integer (buf + 2); h->boolean_section_size = make_integer (buf + 4); h->num_numbers = make_integer (buf + 6); h->num_string_offsets = make_integer (buf + 8); h->string_table_size = make_integer (buf + 10); } else { fclose (fp); fp = NULL; } return fp; } /* * The terminal names section comes next. It contains the first line of the * terminfo description, listing the various names for the terminal, * separated by the bar ( | ) character (see term(5)). The section is * terminated with an ASCII NUL character. */ /* returns pointer to malloced space */ static unsigned char *read_terminfo_section (FILE *fp, int size) { char *s; if (NULL == (s = (char *) SLMALLOC (size))) return NULL; if (size != fread (s, 1, size, fp)) { SLFREE (s); return NULL; } return (unsigned char *) s; } static char *read_terminal_names (FILE *fp, Terminfo_Type *t) { return t->terminal_names = (char *) read_terminfo_section (fp, t->name_section_size); } /* * The boolean flags have one byte for each flag. This byte is either 0 or * 1 as the flag is present or absent. The value of 2 means that the flag * has been cancelled. The capabilities are in the same order as the file * . */ static unsigned char *read_boolean_flags (FILE *fp, Terminfo_Type *t) { /* Between the boolean section and the number section, a null byte is * inserted, if necessary, to ensure that the number section begins on an * even byte offset. All short integers are aligned on a short word * boundary. */ int size = (t->name_section_size + t->boolean_section_size) % 2; size += t->boolean_section_size; return t->boolean_flags = read_terminfo_section (fp, size); } /* * The numbers section is similar to the boolean flags section. Each * capability takes up two bytes, and is stored as a short integer. If the * value represented is -1 or -2, the capability is taken to be missing. */ static unsigned char *read_numbers (FILE *fp, Terminfo_Type *t) { return t->numbers = read_terminfo_section (fp, 2 * t->num_numbers); } /* The strings section is also similar. Each capability is stored as a * short integer, in the format above. A value of -1 or -2 means the * capability is missing. Otherwise, the value is taken as an offset from * the beginning of the string table. Special characters in ^X or \c * notation are stored in their interpreted form, not the printing * representation. Padding information ($) and parameter information * (%x) are stored intact in uninterpreted form. */ static unsigned char *read_string_offsets (FILE *fp, Terminfo_Type *t) { return t->string_offsets = (unsigned char *) read_terminfo_section (fp, 2 * t->num_string_offsets); } /* The final section is the string table. It contains all the values of * string capabilities referenced in the string section. Each string is * null terminated. */ static char *read_string_table (FILE *fp, Terminfo_Type *t) { return t->string_table = (char *) read_terminfo_section (fp, t->string_table_size); } /* * Compiled terminfo(4) descriptions are placed under the directory * /usr/share/lib/terminfo. In order to avoid a linear search of a huge * UNIX system directory, a two-level scheme is used: * /usr/share/lib/terminfo/c/name where name is the name of the terminal, * and c is the first character of name. Thus, att4425 can be found in the * file /usr/share/lib/terminfo/a/att4425. Synonyms for the same terminal * are implemented by multiple links to the same compiled file. */ #define MAX_TI_DIRS 4 static char *Terminfo_Dirs [MAX_TI_DIRS] = { NULL, "/usr/lib/terminfo", "/usr/share/lib/terminfo", "/usr/local/lib/terminfo" }; char *SLtt_tigetent (char *term) { char *tidir; int i; FILE *fp = NULL; char file[256]; Terminfo_Type *ti; if (term == NULL) return NULL; if (NULL == (ti = (Terminfo_Type *) SLMALLOC (sizeof (Terminfo_Type)))) { return NULL; } /* If we are on a termcap based system, use termcap */ if (0 == tcap_getent (term, ti)) return (char *) ti; Terminfo_Dirs[0] = getenv ("TERMINFO"); i = 0; while (i < MAX_TI_DIRS) { tidir = Terminfo_Dirs[i]; if (tidir != NULL) { sprintf (file, "%s/%c/%s", tidir, *term, term); if (NULL != (fp = open_terminfo (file, ti))) break; } i++; } if (fp != NULL) { if (NULL != read_terminal_names (fp, ti)) { if (NULL != read_boolean_flags (fp, ti)) { if (NULL != read_numbers (fp, ti)) { if (NULL != read_string_offsets (fp, ti)) { if (NULL != read_string_table (fp, ti)) { /* success */ fclose (fp); ti->flags = SLTERMINFO; return (char *) ti; } SLFREE (ti->string_offsets); } SLFREE (ti->numbers); } SLFREE (ti->boolean_flags); } SLFREE (ti->terminal_names); } fclose (fp); } SLFREE (ti); return NULL; } typedef struct { char *name; int offset; } Tgetstr_Map_Type; Tgetstr_Map_Type Tgetstr_Map [] = { {"@7", 164}, /* KEY End */ {"AL", 110}, /* parm_insert_line */ {"DL", 106}, /* parm_delete_line */ {"RI", 112}, /* parm_right_cursor */ {"ac", 146}, /* acs_chars */ {"ae", 38}, /* exit_alt_charset_mode */ {"as", 25}, /* enter_alt_charset_mode */ {"ce", 6}, /* clr_eol */ {"cl", 5}, /* clear_screen */ {"cm", 10}, /* cursor_address */ {"cs", 3}, /* change_scroll_region */ {"dc", 21}, /* delete_character */ {"ei", 42}, /* exit_insert_mode */ {"eA", 155}, /* enable alt char set */ {"im", 31}, /* enter_insert_mode */ {"k0", 65}, /* key_f0 */ {"k1", 66}, /* key_f1 */ {"k2", 68}, /* key_f2 */ {"k3", 69}, /* key_f3 */ {"k4", 70}, /* key_f4 */ {"k5", 71}, /* key_f5 */ {"k6", 72}, /* key_f6 */ {"k7", 73}, /* key_f7 */ {"k8", 74}, /* key_f8 */ {"k9", 75}, /* key_f9 */ {"kA", 78}, /* key_il */ {"kC", 57}, /* key_clear */ {"kD", 59}, /* key_dc */ {"kE", 63}, /* key_eol, */ {"kF", 84}, /* key_sf */ {"kH", 80}, /* key_ll */ {"kI", 77}, /* key_ic */ {"kL", 60}, /* key_dl */ {"kM", 62}, /* key_eic, */ {"kN", 81}, /* key_npage */ {"kP", 82}, /* key_ppage */ {"kR", 85}, /* key_sr */ {"kS", 64}, /* key_eos, */ {"kT", 86}, /* key_stab */ {"ka", 56}, /* key_catab */ {"k;", 67}, /* key_f10 */ {"kb", 55}, /* key_backspace */ {"kd", 61}, /* key_down */ {"kh", 76}, /* key_home */ {"kl", 79}, /* key_left */ {"kr", 83}, /* key_right */ {"kt", 58}, /* key_ctab */ {"ku", 87}, /* key_up */ {"mb", 26}, /* enter_blink_mode */ {"md", 27}, /* enter_bold_mode */ {"me", 39}, /* exit_attribute_mode */ {"mr", 34}, /* enter_reverse_mode */ {"se", 43}, /* exit_standout_mode */ {"so", 35}, /* enter_standout_mode */ {"sr", 130}, /* scroll_reverse */ {"te", 40}, /* end cursor addressing */ {"ti", 28}, /* begin cursor addressing */ {"up", 19}, /* cursor_up */ {"us", 36}, /* enter_underline_mode */ {"vb", 45}, /* flash_screen */ {"vi", 13}, /* make cursor invisible */ {"vs", 20}, /* make cursor visible */ {NULL, 0} }; static int compute_cap_offset (char *cap, Terminfo_Type *t, Tgetstr_Map_Type *map, int max_ofs) { char cha, chb; cha = *cap++; chb = *cap; while (map->name != NULL) { if ((cha == *map->name) && (chb == *(map->name + 1))) { if (map->offset >= max_ofs) return -1; return map->offset; } map++; } return -1; } char *SLtt_tigetstr (char *cap, char **pp) { int offset; Terminfo_Type *t; if ((pp == NULL) || (NULL == (t = (Terminfo_Type *) *pp))) return NULL; if (t->flags == SLTERMCAP) return tcap_getstr (cap, t); offset = compute_cap_offset (cap, t, Tgetstr_Map, t->num_string_offsets); if (offset < 0) return NULL; offset = make_integer (t->string_offsets + 2 * offset); if (offset < 0) return NULL; return t->string_table + offset; } Tgetstr_Map_Type Tgetnum_Map[] = { {"co", 0}, /* columns */ {"li", 2}, /* lines */ {NULL, -1} }; int SLtt_tigetnum (char *cap, char **pp) { int offset; Terminfo_Type *t; if ((pp == NULL) || (NULL == (t = (Terminfo_Type *) *pp))) return -1; if (t->flags == SLTERMCAP) return tcap_getnum (cap, t); offset = compute_cap_offset (cap, t, Tgetnum_Map, t->num_numbers); if (offset < 0) return -1; return make_integer (t->numbers + 2 * offset); } Tgetstr_Map_Type Tgetflag_Map[] = { {"am", 1}, /* auto_right_margin */ {"ms", 14}, /* move_standout_mode */ {"xs", 3}, /* ceol_standout_glitch */ {"sg", 4}, /* magic cookie glitch */ {NULL, -1} }; int SLtt_tigetflag (char *cap, char **pp) { int offset; Terminfo_Type *t; if ((pp == NULL) || (NULL == (t = (Terminfo_Type *) *pp))) return -1; if (t->flags == SLTERMCAP) return tcap_getflag (cap, t); offset = compute_cap_offset (cap, t, Tgetflag_Map, t->boolean_section_size); if (offset < 0) return -1; return (int) *(t->boolean_flags + offset); } /* These are my termcap routines. They only work with the TERMCAP environment * variable. This variable must contain the termcap entry and NOT the file. */ static int tcap_getflag (char *cap, Terminfo_Type *t) { char a, b; char *f = (char *) t->boolean_flags; char *fmax; if (f == NULL) return 0; fmax = f + t->boolean_section_size; a = *cap; b = *(cap + 1); while (f < fmax) { if ((a == f[0]) && (b == f[1])) return 1; f += 2; } return 0; } static char *tcap_get_cap (unsigned char *cap, unsigned char *caps, int len) { unsigned char c0, c1; unsigned char *caps_max; c0 = cap[0]; c1 = cap[1]; if (caps == NULL) return NULL; caps_max = caps + len; while (caps < caps_max) { if ((c0 == caps[0]) && (c1 == caps[1])) { return (char *) caps + 3; } caps += (int) caps[2]; } return NULL; } static int tcap_getnum (char *cap, Terminfo_Type *t) { cap = tcap_get_cap ((unsigned char *) cap, t->numbers, t->num_numbers); if (cap == NULL) return -1; return atoi (cap); } static char *tcap_getstr (char *cap, Terminfo_Type *t) { return tcap_get_cap ((unsigned char *) cap, (unsigned char *) t->string_table, t->string_table_size); } static int tcap_extract_field (unsigned char *t0) { register unsigned char ch, *t = t0; while (((ch = *t) != 0) && (ch != ':')) t++; if (ch == ':') return (int) (t - t0); return -1; } int SLtt_Try_Termcap = 1; static int tcap_getent (char *term, Terminfo_Type *ti) { unsigned char *termcap, ch; unsigned char *buf, *b; unsigned char *t; int len; if (SLtt_Try_Termcap == 0) return -1; termcap = (unsigned char *) getenv ("TERMCAP"); if ((termcap == NULL) || (*termcap == '/')) return -1; /* We have a termcap so lets use it provided it does not have a reference * to another terminal via tc=. In that case, user terminfo. The alternative * would be to parse the termcap file which I do not want to do right now. * Besides, this is a terminfo based system and if the termcap were parsed * terminfo would almost never get a chance to run. In addition, the tc= * thing should not occur if tset is used to set the termcap entry. */ t = termcap; while ((len = tcap_extract_field (t)) != -1) { if ((len > 3) && (t[0] == 't') && (t[1] == 'c') && (t[2] == '=')) return -1; t += (len + 1); } /* malloc some extra space just in case it is needed. */ len = strlen ((char *) termcap) + 256; if (NULL == (buf = (unsigned char *) SLMALLOC (len))) return -1; b = buf; /* The beginning of the termcap entry contains the names of the entry. * It is terminated by a colon. */ ti->terminal_names = (char *) b; t = termcap; len = tcap_extract_field (t); if (len < 0) { SLFREE (buf); return -1; } strncpy ((char *) b, (char *) t, len); b[len] = 0; b += len + 1; ti->name_section_size = len; /* Now, we are really at the start of the termcap entries. Point the * termcap variable here since we want to refer to this a number of times. */ termcap = t + (len + 1); /* Process strings first. */ ti->string_table = (char *) b; t = termcap; while (-1 != (len = tcap_extract_field (t))) { unsigned char *b1; unsigned char *tmax; /* We are looking for: XX=something */ if ((len < 4) || (t[2] != '=') || (*t == '.')) { t += len + 1; continue; } tmax = t + len; b1 = b; while (t < tmax) { ch = *t++; if ((ch == '\\') && (t < tmax)) { t = (unsigned char *) SLexpand_escaped_char ((char *) t, (char *) &ch); } else if ((ch == '^') && (t < tmax)) { ch = *t++; if (ch == '?') ch = 127; else ch = (ch | 0x20) - ('a' - 1); } *b++ = ch; } /* Null terminate it. */ *b++ = 0; len = (int) (b - b1); b1[2] = (unsigned char) len; /* replace the = by the length */ /* skip colon to next field. */ t++; } ti->string_table_size = (int) (b - (unsigned char *) ti->string_table); /* Now process the numbers. */ t = termcap; ti->numbers = b; while (-1 != (len = tcap_extract_field (t))) { unsigned char *b1; unsigned char *tmax; /* We are looking for: XX#NUMBER */ if ((len < 4) || (t[2] != '#') || (*t == '.')) { t += len + 1; continue; } tmax = t + len; b1 = b; while (t < tmax) { *b++ = *t++; } /* Null terminate it. */ *b++ = 0; len = (int) (b - b1); b1[2] = (unsigned char) len; /* replace the # by the length */ t++; } ti->num_numbers = (int) (b - ti->numbers); /* Now process the flags. */ t = termcap; ti->boolean_flags = b; while (-1 != (len = tcap_extract_field (t))) { /* We are looking for: XX#NUMBER */ if ((len != 2) || (*t == '.') || (*t <= ' ')) { t += len + 1; continue; } b[0] = t[0]; b[1] = t[1]; t += 3; b += 2; } ti->boolean_section_size = (int) (b - ti->boolean_flags); ti->flags = SLTERMCAP; return 0; } lace the # by the length */ t++; } ti->num_numbers = (int) (b - ti->numbers); /* Now process the flags. */ t = termcap; ti->boolean_flags = b; while (-1 != (len = tcap_extract_field (t))) { /* We are looking for: XX#NUMBER */ if ((len != 2) || (*t == '.') || (*t <= ' ')) { t += len + 1; continue; } b[0] = t[0]; b[1]slang-0.99.12/src/sltoken.c000064400000000000003000000160060603742322600152550ustar00rootsys00000000000000/*--------------------------------*-C-*---------------------------------* * File: sltoken.c * * Descript: --- * * Requires: --- * * Public: SLexpand_escaped_char (); * SLexpand_escaped_string (); * SLang_extract_token (); * SLang_guess_type (); * SLatoi (); * * Private: --- * * Notes: --- * * Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. \*----------------------------------------------------------------------*/ #include #include "config.h" #ifndef NO_STDLIB_H # include #endif #include #include "slang.h" #include "_slang.h" /* There are non-zeros at positions "\t %()*,/:;[]{}" */ static unsigned char special_chars[256] = { /* 0 */ 0,0,0,0,0,0,0,0, 0,'\t',0,0,0,0,0,0, /* 16 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 32 */ ' ',0,0,0,0,'%',0,0, '(',')','*',0,',',0,0,'/', /* 48 */ 0,0,0,0,0,0,0,0, 0,0,':',';',0,0,0,0, /* 64 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 80 */ 0,0,0,0,0,0,0,0, 0,0,0,'[',0,']',0,0, /* 96 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 112 */ 0,0,0,0,0,0,0,0, 0,0,0,'{',0,'}',0,0, /* 8-bit characters */ /* 128 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 144 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 160 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 176 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 192 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 208 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 224 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, /* 240 */ 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0 }; char *SLexpand_escaped_char(char *p, char *ch) { int i = 0; int max = 0, num, base = 0; char ch1; ch1 = *p++; switch (ch1) { default: num = ch1; break; case 'n': num = '\n'; break; case 't': num = '\t'; break; case 'v': num = '\v'; break; case 'b': num = '\b'; break; case 'r': num = '\r'; break; case 'f': num = '\f'; break; case 'E': case 'e': num = 27; break; case 'a': num = 7; break; /* octal */ case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': max = '7'; base = 8; i = 2; num = ch1 - '0'; break; case 'd': /* decimal -- S-Lang extension */ base = 10; i = 3; max = '9'; num = 0; break; case 'x': /* hex */ base = 16; max = '9'; i = 2; num = 0; break; } while (i--) { ch1 = *p; if ((ch1 <= max) && (ch1 >= '0')) { num = base * num + (ch1 - '0'); } else if (base == 16) { ch1 |= 0x20; if ((ch1 < 'a') || ((ch1 > 'f'))) break; num = base * num + 10 + (ch1 - 'a'); } else break; p++; } *ch = (char) num; return p; } void SLexpand_escaped_string (register char *s, register char *t, register char *tmax) { char ch; while (t < tmax) { ch = *t++; if (ch == '\\') { t = SLexpand_escaped_char (t, &ch); } *s++ = ch; } *s = 0; } int SLang_extract_token (char **linep, char *word_parm, int byte_comp) { register char ch, *line, *word = word_parm; int string; char ch1; char *word_max; word_max = word + 250; line = *linep; /* skip white space */ while (ch = *line++, (ch == ' ') || (ch == '\t')); if ((!ch) || (ch == '\n')) { *linep = line; return(0); } *word++ = ch; /* Look for -something and rule out --something and -= something */ if ((ch == '-') && (*line != '-') && (*line != '=') && ((*line > '9') || (*line < '0'))) { *word = 0; *linep = line; return 1; } if (ch == '"') string = 1; else string = 0; if (ch == '\'') { if ((ch = *line++) != 0) { if (ch == '\\') { line = SLexpand_escaped_char(line, &ch1); ch = ch1; } if (*line++ == '\'') { --word; sprintf(word, "%d", (int) ((unsigned char) ch)); word += strlen (word); ch = '\''; } else SLang_Error = SYNTAX_ERROR; } else SLang_Error = SYNTAX_ERROR; } else if (!special_chars[(unsigned char) ch]) { while (ch = *line++, (ch > '"') || ((ch != '\n') && (ch != 0) && (ch != '"'))) { if (string) { if (ch == '\\') { ch = *line++; if ((ch == 0) || (ch == '\n')) break; if (byte_comp) *word++ = '\\'; else { line = SLexpand_escaped_char(line - 1, &ch1); ch = ch1; } } } else if (special_chars[(unsigned char) ch]) { line--; break; } *word++ = ch; if (word > word_max) { SLang_doerror ("Token to large."); break; } } } if ((!ch) || (ch == '\n')) line--; if ((ch == '"') && string) *word++ = '"'; else if (string) SLang_Error = SYNTAX_ERROR; *word = 0; *linep = line; /* massage variable-- and ++ into --variable, etc... */ if (((int) (word - word_parm) > 2) && (ch = *(word - 1), (ch == '+') || (ch == '-')) && (ch == *(word - 2))) { word--; while (word >= word_parm + 2) { *word = *(word - 2); word--; } *word-- = ch; *word-- = ch; } return(1); } int SLang_guess_type (char *t) { char *p; register char ch; if (*t == '-') t++; p = t; #ifdef FLOAT_TYPE if (*p != '.') { #endif while ((*p >= '0') && (*p <= '9')) p++; if (t == p) return(STRING_TYPE); if ((*p == 'x') && (p == t + 1)) /* 0x?? */ { p++; while (ch = *p, ((ch >= '0') && (ch <= '9')) || (((ch | 0x20) >= 'a') && ((ch | 0x20) <= 'f'))) p++; } if (*p == 0) return(INT_TYPE); #ifndef FLOAT_TYPE return(STRING_TYPE); #else } /* now down to float case */ if (*p == '.') { p++; while ((*p >= '0') && (*p <= '9')) p++; } if (*p == 0) return(FLOAT_TYPE); if ((*p != 'e') && (*p != 'E')) return(STRING_TYPE); p++; if (*p == '-') p++; while ((*p >= '0') && (*p <= '9')) p++; if (*p != 0) return(STRING_TYPE); else return(FLOAT_TYPE); #endif } int SLatoi (unsigned char *s) { register unsigned char ch; register unsigned int value; register int base; if (*s != '0') return atoi((char *) s); /* look for 'x' which indicates hex */ s++; if ((*s | 0x20) == 'x') { base = 16; s++; if (*s == 0) { SLang_Error = SYNTAX_ERROR; return -1; } } else base = 8; value = 0; while ((ch = *s++) != 0) { char ch1 = ch | 0x20; switch (ch1) { default: SLang_Error = SYNTAX_ERROR; break; case '8': case '9': if (base != 16) SLang_Error = SYNTAX_ERROR; /* drop */ case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': ch1 -= '0'; break; case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': if (base != 16) SLang_Error = SYNTAX_ERROR; ch1 = (ch1 - 'a') + 10; break; } value = value * base + ch1; } return (int) value; } TAX_ERROR; break; case '8': case '9': if (base != 16) SLang_Error = SYNTAX_ERROR; /* drop */ case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': ch1 -= '0'; break; case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': if (base != 16) SLang_Error = SYNTAX_ERROR; ch1 = (ch1 - 'a') + 10; break; } value = value * base + ch1; } return (int) valslang-0.99.12/src/slunix.c000064400000000000003000000203450603742322700151220ustar00rootsys00000000000000/* Unix system calls */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #if defined (__EMX__) # include /* for chmod */ #endif #include "config.h" #include #include #include #include #ifndef NO_UNISTD_H # include #endif #include #include #include "slang.h" /* map value of errno to standard slang return values. */ static int map_errno(void) { switch (errno) { case EACCES: return -1; /* insufficient privilege */ case ENOENT: return -2; /* invalid path */ default: return -50; } } #ifdef NeXT #define pid_t int #define mode_t int #endif #define EQS(a, b) ((*(a) == *(b)) && (!strcmp(a + 1, b + 1))) static struct stat Stat_Buf; static int parse_stat(struct stat *s, char *f) { if (!strncmp(f, "st_", 3)) f += 3; if (EQS("dev", f)) return s->st_dev; if (EQS("ino", f)) return s->st_ino; if (EQS("mode", f)) return s->st_mode; if (EQS("nlink", f)) return s->st_nlink; if (EQS("uid", f)) return s->st_uid; if (EQS("gid", f)) return s->st_gid; if (EQS("rdev", f)) return s->st_rdev; if (EQS("size", f)) return s->st_size; if (EQS("atime", f)) return s->st_atime; if (EQS("mtime", f)) return s->st_mtime; if (EQS("ctime", f)) return s->st_ctime; SLang_doerror("Unknown stat field."); return (0); } static int unix_stat_file(char *file) { if (!stat (file, &Stat_Buf)) return 0; return map_errno(); } #if !defined (__GO32__) && !defined (__EMX__) static int unix_lstat_file(char *file) { if (!lstat (file, &Stat_Buf)) return 0; return map_errno(); } #endif static int unix_stat_struct(char *field) { return parse_stat(&Stat_Buf, field); } /* Well, it appears that on some systems, these are not defined. Here I * provide them. These are derived from the Linux stat.h file. */ #ifndef S_ISLNK # ifdef S_IFLNK # define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) # else # define S_ISLNK(m) 0 # endif #endif #ifndef S_ISREG # ifdef S_IFREG # define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) # else # define S_ISREG(m) 0 # endif #endif #ifndef S_ISDIR # ifdef S_IFDIR # define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) # else # define S_ISDIR(m) 0 # endif #endif #ifndef S_ISCHR # ifdef S_IFCHR # define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR) # else # define S_ISCHR(m) 0 # endif #endif #ifndef S_ISBLK # ifdef S_IFBLK # define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK) # else # define S_ISBLK(m) 0 # endif #endif #ifndef S_ISFIFO # ifdef S_IFIFO # define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) # else # define S_ISFIFO(m) 0 # endif #endif #ifndef S_ISSOCK # ifdef S_IFSOCK # define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK) # else # define S_ISSOCK(m) 0 # endif #endif static int stat_islnk (void) { return S_ISLNK(Stat_Buf.st_mode); } static int stat_isreg (void) { return S_ISREG(Stat_Buf.st_mode); } static int stat_isdir (void) { return S_ISDIR(Stat_Buf.st_mode); } static int stat_ischr (void) { return S_ISCHR(Stat_Buf.st_mode); } static int stat_isblk (void) { return S_ISBLK(Stat_Buf.st_mode); } static int stat_isfifo (void) { return S_ISFIFO(Stat_Buf.st_mode); } static int stat_issock (void) { return S_ISSOCK(Stat_Buf.st_mode); } static int unix_chmod(char *file, int *mode) { if (!chmod(file, (mode_t) *mode)) return 0; return map_errno(); } static int unix_chown(char *file, int *owner, int *group) { if (!chown(file, (uid_t) *owner, (gid_t) *group)) return 0; return map_errno(); } /* This is mainly designed to check pids, but who knows.... */ static int unix_kill(void) { int pid, sig; if (SLang_pop_integer(&sig) || SLang_pop_integer(&pid)) return (-1); return kill ((pid_t) pid, sig); } static char *unix_ctime(int *tt) { char *t; t = ctime ((time_t *) tt); t[24] = 0; /* knock off \n */ return (t); } static SLang_Name_Type slunix_table[] = { MAKE_INTRINSIC(".unix_kill", unix_kill, INT_TYPE, 0), /* Prototype: Integer unix_kill(Integer pid, Integer sig); * This function may be used to send a signal given by the integer @sig@ * to the process specified by @pid@. The function returns zero upon * sucess and @-1@ upon failure. */ MAKE_INTRINSIC(".unix_ctime", unix_ctime, STRING_TYPE, 1), /* Prototype: String unix_ctime(Integer secs); * This function returns a string representation of the time as given * by @secs@ seconds since 1970. */ #if !defined (__GO32__) && !defined (__EMX__) MAKE_INTRINSIC(".lstat_file", unix_lstat_file, INT_TYPE, 1), /* Prototype: Integer lstat_file(String file); * This function is like @stat_file@ but if @file@ is a symbolic link, * this @lstat_file@ returns information about the link itself. * See the documentation for @stat_file@ for more information. * Related Functions: @stat_file@ */ #endif MAKE_INTRINSIC(".stat_file", unix_stat_file, INT_TYPE, 1), /* Prototype: Integer stat_file(String file); * This function returns information about @file@ through the use of the * system @stat@ call. If the stat call fails, the function returns a * negative integer. If it is successful, it returns zero. Upon failure * it returns a negative number. To retrieve information obtained by this * this function call, use the @stat_struct@ function. * Related Functions: @lstat_file@, @stat_struct@ */ MAKE_INTRINSIC(".stat_struct", unix_stat_struct, INT_TYPE, 1), /* Prototype: Integer stat_struct(String field); * This functions returns information obtained by the most recent call to * the @stat_file@ or @lstat_file@ functions. The @field@ argument * specifies what piece of information to return. Valid values for * @field@ are: * @ "dev" * @ "ino" * @ "mode" * @ "nlink" * @ "uid" * @ "gid" * @ "rdev" * @ "size" * @ "atime" * @ "mtime" * @ "ctime" * See the man page for @stat@ for a discussion of these fields. * Example: * @ define file_size (file) * @ { * @ if (stat_file(file) < 0) error ("Unable to stat file!"); * @ return stat_struct("size"); * @ } * Related Functions: @lstat_file@, @stat_file@, @stat_mode_parse@ */ MAKE_INTRINSIC(".stat_islnk", stat_islnk, INT_TYPE, 0), /* Prototype: Integer stat_islnk(); */ MAKE_INTRINSIC(".stat_isreg", stat_isreg, INT_TYPE, 0), /* Prototype: Integer stat_isreg(); */ MAKE_INTRINSIC(".stat_isdir", stat_isdir, INT_TYPE, 0), /* Prototype: Integer stat_isdir(); */ MAKE_INTRINSIC(".stat_ischr", stat_ischr, INT_TYPE, 0), /* Prototype: Integer stat_ischr(); */ MAKE_INTRINSIC(".stat_isblk", stat_isblk, INT_TYPE, 0), /* Prototype: Integer stat_isblk(); */ MAKE_INTRINSIC(".stat_isfifo", stat_isfifo, INT_TYPE, 0), /* Prototype: Integer stat_isfifo(); */ MAKE_INTRINSIC(".stat_issock", stat_issock, INT_TYPE, 1), /* Prototype: Integer stat_issock(); */ MAKE_INTRINSIC(".chown", unix_chown, INT_TYPE, 3), /* Prototype: Integer chown(String file, Integer uid, Integer gid); * This function may be used to change the ownership of @file@ to that of * user id @uid@ and group id @gid@. This function returns 0 upon * success and a negative number up failure. Specifically, it returns -1 * if the process does not have sufficent privileges to change the * ownership, or -2 if the file does not exist. * Related Functions: @chmod@, @stat_file@ */ MAKE_INTRINSIC(".chmod", unix_chmod, INT_TYPE, 2), /* Prototype: Integer chmod(String file, Integer mode); * The @chmod@ function changes the permissions of @file@ to those * specified by @mode@. It returns 0 upon success, -1 if the process * lacks sufficient privilege for the operation, or -2 if the file does * not exist. See the system specific documentation for the C library * function @chmod@ for a discussion of the @mode@ parameter. * Related Functions: @chown@, @stat_file@ */ SLANG_END_TABLE }; int init_SLunix() { if (!SLdefine_for_ifdef ("SLUNIX")) return 0; return SLang_add_table(slunix_table, "_Unix"); } rmissions of @file@ to those * specified by @mode@. It returns 0 upon success, -1 if the process * lacks sufficient privilege for the operation, or -2 if the file does * not exist. See the system specific documentation for the C library * function @chmod@ for a discslang-0.99.12/src/slutty.c000064400000000000003000000132640603742322700151460ustar00rootsys00000000000000/* slutty.c --- Unix Low level terminal (tty) functions for S-Lang */ /* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include /* sequent support thanks to Kenneth Lorber */ /* SYSV (SYSV ISC R3.2 v3.0) provided by iain.lea@erlm.siemens.de */ #include "config.h" #ifndef NO_STDLIB_H # include #endif #ifndef NO_UNISTD_H # include #endif #include #if defined(HAVE_TERMIOS) # include #endif #ifdef SYSV # ifndef CRAY # include # include # include # include # endif #endif #ifndef sun # include #endif #ifdef __QNX__ # include #endif #include #include #include #include "slang.h" #include "_slang.h" #define TTY_DESC 2 int SLang_TT_Read_FD = TTY_DESC; int SLang_TT_Baud_Rate; static int Baud_Rates[20] = { 0, 50, 75, 110, 134, 150, 200, 300, 600, 1200, 1800, 2400, 4800, 9600, 19200, 38400, 0, 0, 0, 0 }; #ifndef HAVE_TERMIOS typedef struct { struct tchars t; struct ltchars lt; struct sgttyb s; } TTY_Termio_Type; #else typedef struct termios TTY_Termio_Type; #endif TTY_Termio_Type Old_TTY; /* this next works on ultrix for setting termios */ #ifdef TCGETS #define GET_TERMIOS(fd, x) ioctl(fd, TCGETS, x) #define SET_TERMIOS(fd, x) ioctl(fd, TCSETS, x) #else # ifdef sequent # define X(x,m) &(((TTY_Termio_Type *)(x))->m) # define GET_TERMIOS(fd, x) \ ioctl(fd, TIOCGETC, X(x,t));\ ioctl(fd, TIOCGLTC, X(x,lt));\ ioctl(fd, TIOCGETP, X(x,s)) # define SET_TERMIOS(fd, x) \ ioctl(fd, TIOCSETC, X(x,t));\ ioctl(fd, TIOCSLTC, X(x,lt));\ ioctl(fd, TIOCSETP, X(x,s)) # else # define GET_TERMIOS(fd, x) tcgetattr(fd, x) # define SET_TERMIOS(fd, x) tcsetattr(fd, TCSAFLUSH, x) /* # define SET_TERMIOS(fd, x) tcsetattr(fd, TCSANOW, x) */ # endif #endif static int TTY_Inited = 0; int SLang_init_tty (int abort_char, int no_flow_control, int opost) { TTY_Termio_Type newtty; if (TTY_Inited) return 0; SLang_Abort_Char = abort_char; GET_TERMIOS(SLang_TT_Read_FD, &Old_TTY); GET_TERMIOS(SLang_TT_Read_FD, &newtty); #ifndef HAVE_TERMIOS newtty.s.sg_flags &= ~(ECHO); newtty.s.sg_flags &= ~(CRMOD); /* if (Flow_Control == 0) newtty.s.sg_flags &= ~IXON; */ newtty.t.t_eofc = 1; newtty.t.t_intrc = SLang_Abort_Char; /* ^G */ newtty.t.t_quitc = 255; newtty.lt.t_suspc = 255; /* to ignore ^Z */ newtty.lt.t_dsuspc = 255; /* to ignore ^Y */ newtty.lt.t_lnextc = 255; newtty.s.sg_flags |= CBREAK; /* do I want cbreak or raw????? */ #else /* get baud rate */ newtty.c_iflag &= ~(ECHO | INLCR | ICRNL); #ifdef ISTRIP newtty.c_iflag &= ~ISTRIP; #endif if (opost == 0) newtty.c_oflag &= ~OPOST; if (SLang_TT_Baud_Rate == 0) { /* Note: if this generates an compiler error, simply remove the statement */ SLang_TT_Baud_Rate = cfgetospeed (&newtty); SLang_TT_Baud_Rate = ((SLang_TT_Baud_Rate > 0) && (SLang_TT_Baud_Rate < 19) ? Baud_Rates[SLang_TT_Baud_Rate] : 0); } if (no_flow_control) newtty.c_iflag &= ~IXON; else newtty.c_iflag |= IXON; newtty.c_cc[VMIN] = 1; newtty.c_cc[VTIME] = 0; newtty.c_cc[VEOF] = 1; newtty.c_lflag = ISIG | NOFLSH; newtty.c_cc[VINTR] = SLang_Abort_Char; /* ^G */ newtty.c_cc[VQUIT] = 255; newtty.c_cc[VSUSP] = 255; /* to ignore ^Z */ #ifdef VSWTCH newtty.c_cc[VSWTCH] = 255; /* to ignore who knows what */ #endif #endif /* NOT HAVE_TERMIOS */ SET_TERMIOS(SLang_TT_Read_FD, &newtty); TTY_Inited = 1; return 0; } void SLtty_set_suspend_state (int mode) { TTY_Termio_Type newtty; GET_TERMIOS (SLang_TT_Read_FD, &newtty); #ifndef HAVE_TERMIOS if (mode == 0) newtty.lt.t_suspc = 255; else newtty.lt.t_suspc = Old_TTY.lt.t_suspc; #else if (mode == 0) newtty.c_cc[VSUSP] = 255; else newtty.c_cc[VSUSP] = Old_TTY.c_cc[VSUSP]; #endif SET_TERMIOS (SLang_TT_Read_FD, &newtty); if (TTY_Inited == 0) return; } void SLang_reset_tty (void) { if (!TTY_Inited) return; SET_TERMIOS(SLang_TT_Read_FD, &Old_TTY); TTY_Inited = 0; } #ifdef __cplusplus # define SIGNAL(a,b) signal((a), (SIG_PF)(b)) #else # define SIGNAL signal #endif static void default_sigint (int sig) { SLKeyBoard_Quit = 1; if (SLang_Ignore_User_Abort == 0) SLang_Error = USER_BREAK; SIGNAL (SIGINT, default_sigint); } void SLang_set_abort_signal (void (*hand)(int)) { if (hand == NULL) hand = default_sigint; SIGNAL (SIGINT, hand); } #ifndef FD_SET #define FD_SET(fd, tthis) *(tthis) = 1 << fd #define FD_ZERO(tthis) *(tthis) = 0 typedef int fd_set; #endif static fd_set Read_FD_Set; int SLsys_input_pending(int tsecs) { struct timeval wait; long usecs, secs; int ret; secs = tsecs / 10; usecs = (tsecs % 10) * 100000; wait.tv_sec = secs; wait.tv_usec = usecs; FD_ZERO(&Read_FD_Set); FD_SET(SLang_TT_Read_FD, &Read_FD_Set); ret = select(SLang_TT_Read_FD + 1, &Read_FD_Set, NULL, NULL, &wait); return (ret); } unsigned int SLsys_getkey (void) { int count = 10; /* number of times to retry if read fails */ unsigned char c; while ((SLKeyBoard_Quit == 0) && !SLsys_input_pending(100)); while (count-- && !SLKeyBoard_Quit && (read(SLang_TT_Read_FD, (char *) &c, 1) < 0)) sleep(1); if (count <= 0) { return 0xFFFF; } /* only way for keyboard quit to be non zero is if ^G recived and sigint processed */ if (SLKeyBoard_Quit) c = SLang_Abort_Char; SLKeyBoard_Quit = 0; return((unsigned int) c); } ) { int count = 10; /* number of times to retry if read fails */ unsigned char c; while ((SLKeyBoard_Quit == 0) && !SLsys_input_pending(100)); while (count-- && !SLKeyBoard_Quit && (read(SLang_TT_Read_FD, (char *) &c, 1) < 0)) sleep(1); if (count <= 0) { return 0xFFFF; } /* onlyslang-0.99.12/src/slvideo.c000064400000000000003000001025460603742322700152510ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include "config.h" #if defined (msdos) # include # include # include #endif #if defined (__WATCOMC__) # include # define int86 int386 /* simplify code writing */ #endif #if defined (__GO32__) # include # define GO32_VIDEO #endif #if defined (__os2__) && !defined (EMX_VIDEO) # define INCL_BASE # define INCL_NOPM # define INCL_VIO # define INCL_KBD # include #else # if defined (__EMX__) /* EMX video does both DOS & OS/2 */ # define EMX_VIDEO # include # endif #endif #include #include "slang.h" /* ------------------------- global variables ------------------------- */ int SLtt_Term_Cannot_Insert; int SLtt_Term_Cannot_Scroll; int SLtt_Ignore_Beep = 3; int SLtt_Use_Ansi_Colors; int SLtt_Screen_Rows = 25; int SLtt_Screen_Cols = 80; /* ------------------------- local variables -------------------------- */ static int Attribute_Byte; static int Scroll_r1 = 0, Scroll_r2 = 25; static int Cursor_Row = 1, Cursor_Col = 1; static int Current_Color; static int IsColor; static int Blink_Killed; /* high intensity background enabled */ #define JMAX_COLORS 256 #define JNORMAL_COLOR 0 #define JNO_COLOR -1 static unsigned char Color_Map [JMAX_COLORS]; #define JMAX_COLOR_NAMES 16 static char *Color_Names [JMAX_COLOR_NAMES] = { "black", "blue", "green", "cyan", "red", "magenta", "brown", "lightgray", "gray", "brightblue", "brightgreen", "brightcyan", "brightred", "brightmagenta", "yellow", "white" }; /* * set_color_from_attribute (int attribute); * define the correspondence of color to attribute */ #define set_color_from_attribute(a)\ SLtt_set_color (\ JNORMAL_COLOR, NULL,\ Color_Names[(a) & 0xf],\ Color_Names[(a) >> 4]) /* this is how to make a space character */ #define mkSpaceChar() (((Attribute_Byte) << 8) | 0x20) /* buffer to hold a line of character/attribute pairs */ #define MAXCOLS 256 static unsigned char Line_Buffer [MAXCOLS*2]; /*----------------------------------------------------------------------*\ * define various ways and means of writing to the screen \*----------------------------------------------------------------------*/ #if defined (__GO32__) || defined (__WATCOMC__) # if !defined (GO32_VIDEO) # define HAS_LINEAR_SCREEN # endif #else /* __GO32__ or __WATCOMC__ */ # if defined (msdos) # define USE_ASM # endif #endif /* __GO32__ or __WATCOMC__ */ /* define for direct to memory screen writes */ #if defined (USE_ASM) || defined (HAS_LINEAR_SCREEN) static unsigned char *Video_Base; #define mkScreenPointer(row,col) ((unsigned short *)\ (Video_Base +\ 2 * (SLtt_Screen_Cols * (row)\ + (col)))) #if defined (USE_ASM) int SLtt_Msdos_Cheap_Video = 0; static int Video_Status_Port; #define MONO_STATUS 0x3BA #define CGA_STATUS 0x3DA #define CGA_SETMODE 0x3D8 #define SNOW_CHECK \ if (SLtt_Msdos_Cheap_Video)\ { while ((inp (CGA_STATUS) & 0x08)); while (!(inp (CGA_STATUS) & 0x08)); } #endif /* USE_ASM */ #endif /* USE_ASM or HAS_LINEAR_SCREEN */ /* -------------------------------------------------------------------- */ #if defined (__WATCOMC__) #define ScreenPrimary (0xb800 << 4) #define ScreenSize (SLtt_Screen_Cols * SLtt_Screen_Rows) #define ScreenSetCursor (x,y) _settextposition (x+1,y+1) void ScreenGetCursor (int *x, int *y) { struct rccoord rc = _gettextposition (); *x = rc.row - 1; *y = rc.col - 1; } void ScreenRetrieve (unsigned char *dest) { memcpy (dest, (unsigned char *) ScreenPrimary, 2 * ScreenSize); } void ScreenUpdate (unsigned char *src) { memcpy ((unsigned char *) ScreenPrimary, src, 2 * ScreenSize); } #endif /* __WATCOMC__ */ /*----------------------------------------------------------------------*\ * Function: void SLtt_write_string (char *str); * * put string STR to 'stdout' \*----------------------------------------------------------------------*/ void SLtt_write_string (char *str) { fputs (str, stdout); } /*----------------------------------------------------------------------*\ * Function: void SLtt_set_scroll_region (int r1, int r2); * * define a scroll region of top_row to bottom_row \*----------------------------------------------------------------------*/ void SLtt_set_scroll_region (int top_row, int bottom_row) { Scroll_r1 = top_row; Scroll_r2 = bottom_row; } /*----------------------------------------------------------------------*\ * Function: void SLtt_reset_scroll_region (void); * * reset the scrol region to be the entire screen, * ie, SLtt_set_scroll_region (0, SLtt_Screen_Rows); \*----------------------------------------------------------------------*/ void SLtt_reset_scroll_region (void) { Scroll_r1 = 0; Scroll_r2 = SLtt_Screen_Rows; } /*----------------------------------------------------------------------*\ * Function: void SLtt_goto_rc (int row, int col); * * move the terminal cursor to x,y position COL, ROW and record the * position in Cursor_Row, Cursor_Col \*----------------------------------------------------------------------*/ void SLtt_goto_rc (int row, int col) { #if !defined (USE_ASM) if (row > SLtt_Screen_Rows) row = SLtt_Screen_Rows; if (col > SLtt_Screen_Cols) col = SLtt_Screen_Cols; #if defined (EMX_VIDEO) v_gotoxy (col, Scroll_r1 + row); #else /* EMX_VIDEO_ */ #if defined (__os2__) VioSetCurPos (Scroll_r1 + row, col, 0); #else /* __os2__ */ #if defined (__GO32__) || defined (__WATCOMC__) ScreenSetCursor(Scroll_r1 + row, col); #endif /* __GO32__ or __WATCOMC__ */ #endif /* __os2__ */ #endif /* EMX_VIDEO_ */ Cursor_Row = row; Cursor_Col = col; #else /* USE_ASM */ /* if (r > SLtt_Screen_Rows - 1) r = SLtt_Screen_Rows - 1; */ asm mov ax, row asm mov bx, SLtt_Screen_Rows asm dec bx asm cmp ax, bx asm jle L1 asm mov ax, bx L1: /* if (c > SLtt_Screen_Cols - 1) c = SLtt_Screen_Cols - 1; */ asm mov cx, SLtt_Screen_Cols asm dec cx asm mov bx, col asm cmp bx, cx asm jle L2 asm mov bx, cx L2: asm mov Cursor_Row, ax asm mov Cursor_Col, bx asm add ax, Scroll_r1 asm xor dx, dx asm mov dh, al asm mov dl, bl asm xor bx, bx asm mov ax, 0x200 asm int 0x10 #endif /* USE_ASM */ } /*----------------------------------------------------------------------*\ * Function: static void slvid_getxy (void); * * retrieve the cursor position into Cursor_Row, Cursor_Col \*----------------------------------------------------------------------*/ static void slvid_getxy (void) { #if !defined (USE_ASM) #if defined (EMX_VIDEO) v_getxy (&Cursor_Col, &Cursor_Row); #else /* EMX_VIDEO */ #if defined (__os2__) VioGetCurPos ((USHORT*) &Cursor_Row, (USHORT*) &Cursor_Col, 0); #else /* __os2__ */ #if defined (__GO32__) || defined (__WATCOMC__) ScreenGetCursor (&Cursor_Row, &Cursor_Col); #endif /* __GO32__ or __WATCOMC__ */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ #else /* USE_ASM */ asm mov ah, 3 asm mov bh, 0 asm int 10h asm xor ax, ax asm mov al, dh asm mov Cursor_Row, ax asm xor ax, ax asm mov al, dl asm mov Cursor_Col, ax #endif /* USE_ASM */ } /*----------------------------------------------------------------------*\ * static void slvid_deleol (int x); * * write space characters from column X of row Cursor_Row through to * SLtt_Screen_Cols using the current Attribute_Byte \*----------------------------------------------------------------------*/ #if defined (GO32_VIDEO) static void slvid_deleol (int x) { while (x < SLtt_Screen_Cols) ScreenPutChar (32, Attribute_Byte, x++, Cursor_Row); } #endif #if defined (EMX_VIDEO) static void slvid_deleol (int x) { int w = mkSpaceChar (); int count = SLtt_Screen_Cols - x; memset (Line_Buffer, w, 2*count); v_putline (Line_Buffer, x, Cursor_Row, count); } #endif /* EMX_VIDEO */ /*----------------------------------------------------------------------*\ * Function: void SLtt_begin_insert (void); * * insert a single space, moving everything right 1 character to make room \*----------------------------------------------------------------------*/ void SLtt_begin_insert (void) { #if !defined (GO32_VIDEO) #if defined (HAS_LINEAR_SCREEN) || defined (USE_ASM) unsigned short *p; #if defined (HAS_LINEAR_SCREEN) unsigned short *pmin; #endif #endif int n; slvid_getxy (); n = SLtt_Screen_Cols - Cursor_Col; /* Msdos_Insert_Mode = 1; */ #if defined (EMX_VIDEO) v_getline (Line_Buffer, Cursor_Col, Cursor_Row, n); v_putline (Line_Buffer, Cursor_Col+1, Cursor_Row, n - 1); #else /* EMX_VIDEO */ #if defined (__os2__) n = 2 * (n - 1); VioReadCellStr ((PCH)Line_Buffer, (USHORT*) &n, Cursor_Row, Cursor_Col, 0); VioWrtCellStr ((PCH)Line_Buffer, n, Cursor_Row, Cursor_Col + 1, 0); #else /* __os2__ */ p = mkScreenPointer (Cursor_Row, SLtt_Screen_Cols - 1); #if defined (HAS_LINEAR_SCREEN) /* pmin = p - (n-1); */ pmin = mkScreenPointer (Cursor_Row, Cursor_Col); while (p-- > pmin) *(p + 1) = *p; #else SNOW_CHECK; asm mov ax, ds asm mov bx, di asm mov dx, si asm mov cx, n asm les di, p asm lds si, p asm sub si, 2 asm std asm rep movsw asm mov ds, ax asm mov di, bx asm mov si, dx #endif /* HAS_LINEAR_SCREEN */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ #endif /* not GO32_VIDEO */ } /*----------------------------------------------------------------------*\ * Function: void SLtt_end_insert (void); * * any cleanup after insert a blank column \*----------------------------------------------------------------------*/ void SLtt_end_insert (void) { } /*----------------------------------------------------------------------*\ * Function: void SLtt_delete_char (void); * * delete a single character, moving everything left 1 column to take * up the room \*----------------------------------------------------------------------*/ void SLtt_delete_char (void) { #if !defined (GO32_VIDEO) #if defined (HAS_LINEAR_SCREEN) || defined (USE_ASM) unsigned short *p; #if defined (HAS_LINEAR_SCREEN) register unsigned short *p1; #endif #endif int n; slvid_getxy (); n = SLtt_Screen_Cols - Cursor_Col - 1; #if defined (EMX_VIDEO) v_getline (Line_Buffer, Cursor_Col+1, Cursor_Row, n); v_putline (Line_Buffer, Cursor_Col, Cursor_Row, n); #else /* EMX_VIDEO */ #if defined (__os2__) n *= 2; VioReadCellStr ((PCH)Line_Buffer, (USHORT*)&n, Cursor_Row, Cursor_Col + 1, 0); VioWrtCellStr ((PCH)Line_Buffer, n, Cursor_Row, Cursor_Col, 0); return; #else /* __os2__ */ p = mkScreenPointer (Cursor_Row, Cursor_Col); #if defined (HAS_LINEAR_SCREEN) while (n--) { p1 = p + 1; *p = *p1; p++; } #else /* HAS_LINEAR_SCREEN */ SNOW_CHECK; asm mov ax, ds asm mov bx, si asm mov dx, di asm mov cx, n asm les di, p asm lds si, p asm add si, 2 asm cld asm rep movsw asm mov ds, ax asm mov si, bx asm mov di, dx #endif /* HAS_LINEAR_SCREEN */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ #endif /* not GO32_VIDEO */ } /*----------------------------------------------------------------------*\ * Function: void SLtt_erase_line (void); * * This function is *only* called on exit. * It sets attribute byte to Black & White \*----------------------------------------------------------------------*/ void SLtt_erase_line (void) { #if defined (GO32_VIDEO) || defined (EMX_VIDEO) Attribute_Byte = 0x07; slvid_deleol (0); #else /* GO32_VIDEO or EMX_VIDEO */ #if defined (__os2__) USHORT w; Attribute_Byte = 0x07; w = mkSpaceChar (); VioWrtNCell ((BYTE*)&w, SLtt_Screen_Cols, Cursor_Row, 0, 0); #else /* __os2__ */ unsigned short w; unsigned short *p = mkScreenPointer (Cursor_Row, 0); #if defined (HAS_LINEAR_SCREEN) register unsigned short *pmax = p + SLtt_Screen_Cols; Attribute_Byte = 0x07; w = mkSpaceChar (); while (p < pmax) *p++ = w; #else /* HAS_LINEAR_SCREEN */ Attribute_Byte = 0x07; w = mkSpaceChar (); SNOW_CHECK; asm mov dx, di asm mov ax, w asm mov cx, SLtt_Screen_Cols asm les di, p asm cld asm rep stosw asm mov di, dx #endif /* HAS_LINEAR_SCREEN */ #endif /* __os2__ */ #endif /* GO32_VIDEO or EMX_VIDEO */ Current_Color = JNO_COLOR; /* since we messed with attribute byte */ } /*----------------------------------------------------------------------*\ * Function: void SLtt_delete_nlines (int nlines); * * delete NLINES by scrolling up the region \*----------------------------------------------------------------------*/ void SLtt_delete_nlines (int nlines) { SLtt_normal_video (); #if defined (EMX_VIDEO) v_attrib (Attribute_Byte); v_scroll (0, Scroll_r1, SLtt_Screen_Cols-1, Scroll_r2, nlines, V_SCROLL_UP); #else /* EMX_VIDEO */ #if defined (__os2__) { Line_Buffer[0] = ' '; Line_Buffer[1] = Attribute_Byte; VioScrollUp (Scroll_r1, 0, Scroll_r2, SLtt_Screen_Cols-1, nlines, (PCH) Line_Buffer, 0); } #else /* __os2__ */ #if defined (USE_ASM) /* This has the effect of pulling all lines below it up */ asm mov ax, nlines asm mov ah, 6 /* int 6h */ asm xor cx, cx asm mov ch, byte ptr Scroll_r1 asm mov dx, SLtt_Screen_Cols asm dec dx asm mov dh, byte ptr Scroll_r2 asm mov bh, byte ptr Attribute_Byte asm int 10h #else /* USE_ASM */ { union REGS r; #if defined (__WATCOMC__) r.x.eax = nlines; r.x.ecx = 0; #else r.x.ax = nlines; r.x.cx = 0; #endif r.h.ah = 6; r.h.ch = Scroll_r1; r.h.dl = SLtt_Screen_Cols - 1; r.h.dh = Scroll_r2; r.h.bh = Attribute_Byte; int86 (0x10, &r, &r); } #endif /* USE_ASM */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ } /*----------------------------------------------------------------------*\ * Function: void SLtt_reverse_index (int nlines); * * scroll down the region by NLINES \*----------------------------------------------------------------------*/ void SLtt_reverse_index (int nlines) { SLtt_normal_video (); #if defined (EMX_VIDEO) v_attrib (Attribute_Byte); v_scroll (0, Scroll_r1, SLtt_Screen_Cols-1, Scroll_r2, nlines, V_SCROLL_DOWN); #else /* EMX_VIDEO */ #if defined (__os2__) { Line_Buffer[0] = ' '; Line_Buffer[1] = Attribute_Byte; VioScrollDn (Scroll_r1, 0, Scroll_r2, SLtt_Screen_Cols-1, nlines, (PCH) Line_Buffer, 0); } #else /* __os2__ */ #if defined (USE_ASM) asm xor cx, cx asm mov ch, byte ptr Scroll_r1 asm mov dx, SLtt_Screen_Cols asm dec dx asm mov dh, byte ptr Scroll_r2 asm mov bh, byte ptr Attribute_Byte asm mov ah, 7 asm mov al, byte ptr nlines asm int 10h #else /* USE_ASM */ { union REGS r; r.h.al = nlines; #if defined (__WATCOMC__) r.x.ecx = 0; #else r.x.cx = 0; #endif r.h.ah = 7; r.h.ch = Scroll_r1; r.h.dl = SLtt_Screen_Cols - 1; r.h.dh = Scroll_r2; r.h.bh = Attribute_Byte; int86 (0x10, &r, &r); } #endif /* USE_ASM */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ } /*----------------------------------------------------------------------*\ * Function: static void slvid_invert_region (int top_row, int bot_row); * * invert the display in the region, top_row <= row < bot_row \*----------------------------------------------------------------------*/ static void slvid_invert_region (int top_row, int bot_row) { #if defined (EMX_VIDEO) int row, col; for (row = top_row; row < bot_row; row++) { v_getline (Line_Buffer, 0, row, SLtt_Screen_Cols); for (col = 1; col < SLtt_Screen_Cols * 2; col += 2) Line_Buffer [col] ^= 0xff; v_putline (Line_Buffer, 0, row, SLtt_Screen_Cols); } #else /* EMX_VIDEO */ #ifdef __os2__ int row, col; USHORT length = SLtt_Screen_Cols * 2; for (row = top_row; row < bot_row; row++) { VioReadCellStr ((PCH)Line_Buffer, &length, row, 0, 0); for (col = 1; col < length; col += 2) Line_Buffer [col] ^= 0xff; VioWrtCellStr ((PCH)Line_Buffer, length, row, 0, 0); } #else /* __os2__ */ #if defined (__GO32__) || defined (__WATCOMC__) unsigned char buf [2 * 180 * 80]; /* 180 cols x 80 rows */ unsigned char *b, *bmax; b = buf + 1 + 2 * SLtt_Screen_Cols * top_row; bmax = buf + 1 + 2 * SLtt_Screen_Cols * bot_row; ScreenRetrieve (buf); while (b < bmax) { *b ^= 0xFF; b += 2; } ScreenUpdate (buf); #else /* __GO32__ or __WATCOMC__ */ register unsigned short ch, sh; register unsigned short *pmin = mkScreenPointer (top_row, 0); register unsigned short *pmax = mkScreenPointer (bot_row, 0); while (pmin < pmax) { sh = *pmin; ch = sh; ch = ch ^ 0xFF00; *pmin = (ch & 0xFF00) | (sh & 0x00FF); pmin++; } #endif /* __GO32__ or __WATCOMC__ */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ } /*----------------------------------------------------------------------*\ * Function: void SLtt_beep (void); * * signal error by a "bell" condition, the type of signal is governed * by the value of SLtt_Ignore_Beep: * * 0 silent bell * 1 audible bell * 2 visual bell * 4 special visual bell (only flash the bottom status line) * * these may be combined: * eg, 3 = audible visual bell. * but if both the visual bell and the "special" visual bell are specified, * only the special bell is used. \*----------------------------------------------------------------------*/ void SLtt_beep (void) { int audible; /* audible bell */ int special = 0; /* first row to invert */ int visual = 0; /* final row to invert */ if (!SLtt_Ignore_Beep) return; audible = (SLtt_Ignore_Beep & 1); if ( (SLtt_Ignore_Beep & 4) ) { special = SLtt_Screen_Rows - 1; visual = special--; /* only invert bottom status line */ } else if ( (SLtt_Ignore_Beep & 2) ) { visual = SLtt_Screen_Rows; } if (visual) slvid_invert_region (special, visual); #if defined (EMX_VIDEO) if (audible) /*sound (1500)*/; _sleep2 (100); if (audible) /* nosound () */; #else #ifdef __os2__ if (audible) DosBeep (1500, 100); else DosSleep (100); #else if (audible) sound (1500); delay (100); if (audible) nosound (); #endif #endif if (visual) slvid_invert_region (special, visual); } /*----------------------------------------------------------------------*\ * Function: void SLtt_del_eol (void); * * delete from the current cursor position to the end of the row \*----------------------------------------------------------------------*/ void SLtt_del_eol (void) { #if defined (GO32_VIDEO) || defined (EMX_VIDEO) if (Current_Color != JNO_COLOR) SLtt_normal_video (); slvid_deleol (Cursor_Col); #else /* GO32_VIDEO or EMX_VIDEO */ #ifdef __os2__ USHORT w; if (Current_Color != JNO_COLOR) SLtt_normal_video (); w = mkSpaceChar (); VioWrtNCell ((BYTE*)&w, (SLtt_Screen_Cols - Cursor_Col), Cursor_Row, Cursor_Col, 0); #else /* __os2__ */ unsigned short *p = mkScreenPointer (Cursor_Row, Cursor_Col); int n = SLtt_Screen_Cols - Cursor_Col; unsigned short w; #if defined (HAS_LINEAR_SCREEN) unsigned short *pmax = p + n; if (Current_Color != JNO_COLOR) SLtt_normal_video (); w = mkSpaceChar (); while (p < pmax) *p++ = w; #else /* HAS_LINEAR_SCREEN */ if (Current_Color != JNO_COLOR) SLtt_normal_video (); w = mkSpaceChar (); SNOW_CHECK; asm mov dx, di asm les di, p asm mov ax, w asm mov cx, n asm cld asm rep stosw asm mov di, dx #endif /* HAS_LINEAR_SCREEN */ #endif /* __os2__ */ #endif /* GO32_VIDEO or EMX_VIDEO */ } /*----------------------------------------------------------------------*\ * Function: void SLtt_reverse_video (int color); * * set Attribute_Byte corresponding to COLOR. * Use Current_Color to remember the color which was set. * convert from the COLOR number to the attribute value. \*----------------------------------------------------------------------*/ void SLtt_reverse_video (int color) { Attribute_Byte = Color_Map [color]; Current_Color = color; } /*----------------------------------------------------------------------*\ * Function: void SLtt_normal_video (void); * * reset the attributes for normal video \*----------------------------------------------------------------------*/ void SLtt_normal_video (void) { SLtt_reverse_video (JNORMAL_COLOR); } #if defined (USE_ASM) /*----------------------------------------------------------------------*\ * Function: static unsigned short *video_write (register unsigned char *pp, * register unsigned char *p, * register unsigned short *pos) * * write out (P - PP) characters from the array pointed to by PP * at position (POS, Cursor_Row) in the current Attribute_Byte * * increment POS to reflect the number of characters sent and * return the it as a pointer \*----------------------------------------------------------------------*/ static unsigned short *video_write (register unsigned char *pp, register unsigned char *p, register unsigned short *pos) { int n = (int) (p - pp); /* num of characters of PP to write */ asm push si asm push ds asm push di /* set up register for BOTH fast and slow */ asm mov bx, SLtt_Msdos_Cheap_Video /* These are the registers needed for both fast AND slow */ asm mov ah, byte ptr Attribute_Byte asm mov cx, n asm lds si, dword ptr pp asm les di, dword ptr pos asm cld asm cmp bx, 0 /* cheap video test */ asm je L_fast asm mov bx, ax asm mov dx, CGA_STATUS asm jg L_slow_blank /* slow video */ asm cli /* wait for retrace */ L_slow: asm in al, dx asm test al, 1 asm jnz L_slow L_slow1: asm in al, dx asm test al, 1 asm jz L_slow1 /* move a character out */ asm mov ah, bh asm lodsb asm stosw asm loop L_slow asm sti asm jmp done /* -------------- slow video, vertical retace and pump --------------*/ L_slow_blank: L_slow_blank_loop: asm in al, dx asm test al, 8 asm jnz L_slow_blank_loop L_slow_blank1: asm in al, dx asm test al, 8 asm jz L_slow_blank1 /* write line */ asm mov ah, bh L_slow_blank2: asm lodsb asm stosw asm loop L_slow_blank2 asm jmp done /*-------------- Fast video --------------*/ L_fast: asm lodsb asm stosw asm loop L_fast done: asm pop di asm pop ds asm pop si return (pos + n); } #endif /* USE_ASM */ /*----------------------------------------------------------------------*\ * Function: static void write_attributes (unsigned short *src, * int count); * * Copy COUNT character/color pairs from the array pointed to by * SRC to the screen at position (0,Cursor_Row). * NB: SRC contains character/color pairs -- the color must be converted to * an ansi attribute. * * Write out * 1) a combination of string/attributes * 2) each string of continuous colour * * approach 2) is used for assembler output, while 1) is used when a higher * level API is available or direct to memory writing is possible: emx video * routines, os/2, go32, watcom. \*----------------------------------------------------------------------*/ static void write_attributes (unsigned short *src, int count) { register unsigned char *p = Line_Buffer; register unsigned short pair; #if !defined (USE_ASM) #if defined (HAS_LINEAR_SCREEN) register unsigned short *pos = mkScreenPointer (Cursor_Row, 0); #endif int n = count; /* write into a character/attribute pair */ while (n-- > 0) { pair = *(src++); /* character/color pair */ SLtt_reverse_video (pair >> 8); /* color change */ #if defined (HAS_LINEAR_SCREEN) *(pos++) = ((unsigned short) Attribute_Byte << 8) | pair & 0xff; #else *(p++) = pair & 0xff; /* character byte */ *(p++) = Attribute_Byte; /* attribute byte */ #endif } #if !defined (HAS_LINEAR_SCREEN) #if defined (EMX_VIDEO) v_putline (Line_Buffer, Cursor_Col, Cursor_Row, count); #else /* EMX_VIDEO */ #if defined (__os2__) VioWrtCellStr ((PCH)Line_Buffer, (USHORT)(2 * count), (USHORT)Cursor_Row, (USHORT)Cursor_Col, 0); #else /* __os2__ */ /* ScreenUpdateLine (void *virtual_screen_line, int row); */ p = Line_Buffer; n = Cursor_Col; while (count-- > 0) { ScreenPutChar ((int)p[0], (int)p[1], n++, Cursor_Row); p += 2; } #endif /* EMX_VIDEO */ #endif /* __os2__ */ #endif /* HAS_LINEAR_SCREEN */ #else /* not USE_ASM */ unsigned char ch, color; register unsigned short *pos = mkScreenPointer (Cursor_Row, 0); while (count--) { pair = *(src++); /* character/color pair */ ch = pair & 0xff; /* character value */ color = pair >> 8; /* color value */ if (color != Current_Color) /* need a new color */ { if (p != Line_Buffer) { pos = video_write (Line_Buffer, p, pos); p = Line_Buffer; } SLtt_reverse_video (color); /* change color */ } *(p++) = ch; } pos = video_write (Line_Buffer, p, pos); #endif /* not USE_ASM */ } /*----------------------------------------------------------------------*\ * Function: void SLtt_smart_puts (unsigned short *new_string, * unsigned short *old_string, * int len, int row); * * puts NEW_STRING, which has length LEN, at row ROW. NEW_STRING contains * characters/colors packed in the form value = ((color << 8) | (ch)); * * the puts tries to avoid overwriting the same characters/colors * * OLD_STRING is not used, maintained for compatibility with other systems \*----------------------------------------------------------------------*/ void SLtt_smart_puts (unsigned short *new_string, unsigned short *old_string, int len, int row) { (void) old_string; Cursor_Row = row; Cursor_Col = 0; write_attributes (new_string, len); } /*----------------------------------------------------------------------*\ * Function: void SLtt_reset_video (void); \*----------------------------------------------------------------------*/ void SLtt_reset_video (void) { SLtt_goto_rc (SLtt_Screen_Rows - 1, 0); Attribute_Byte = 0x07; Current_Color = JNO_COLOR; SLtt_del_eol (); } #if 0 void wide_width (void) { } void narrow_width (void) { } #endif /*----------------------------------------------------------------------*\ * Function: void SLtt_cls (void); \*----------------------------------------------------------------------*/ void SLtt_cls (void) { SLtt_normal_video (); #if defined (__GO32__) || defined (__WATCOMC__) || defined (EMX_VIDEO) SLtt_reset_scroll_region (); SLtt_goto_rc (0, 0); SLtt_delete_nlines (SLtt_Screen_Rows); #else /* __GO32__ or __WATCOMC__ or EMX_VIDEO */ #ifdef __os2__ { Line_Buffer [0] = ' '; Line_Buffer [1] = Attribute_Byte; VioScrollUp (0, 0, -1, -1, -1, (PCH)Line_Buffer, 0); } #else /* __os2__ */ asm mov dx, SLtt_Screen_Cols asm dec dx asm mov ax, SLtt_Screen_Rows asm dec ax asm mov dh, al asm xor cx, cx asm xor ax, ax asm mov ah, 7 asm mov bh, byte ptr Attribute_Byte asm int 10h #endif /* __os2__ */ #endif /* __GO32__ or __WATCOMC__ or EMX_VIDEO */ } /*----------------------------------------------------------------------*\ * Function: void SLtt_putchar (char ch); * * put CH on the screen in the current position. * this function is called assuming that cursor is in correct position \*----------------------------------------------------------------------*/ void SLtt_putchar (char ch) { #if !defined (GO32_VIDEO) && !defined (EMX_VIDEO) unsigned short p, *pp; #endif if (Current_Color) SLtt_normal_video (); slvid_getxy (); /* get current position */ switch (ch) { case 7: /* ^G - break */ SLtt_beep (); break; case 8: /* ^H - backspace */ SLtt_goto_rc (Cursor_Row, Cursor_Col - 1); break; case 13: /* ^M - carriage return */ SLtt_goto_rc (Cursor_Row, 0); break; default: /* write character to screen */ #if defined (EMX_VIDEO) v_putn (ch, 1); #else /* EMX_VIDEO */ #ifdef __os2__ VioWrtCharStrAtt (&ch, 1, Cursor_Row, Cursor_Col, (BYTE*)&Attribute_Byte, 0); #else /* __os2__ */ #ifdef GO32_VIDEO ScreenPutChar ((int) ch, Attribute_Byte, Cursor_Col, Cursor_Row); #else /* GO32_VIDEO */ pp = mkScreenPointer (Cursor_Row, Cursor_Col); p = (Attribute_Byte << 8) | (unsigned char) ch; #ifdef USE_ASM SNOW_CHECK; #endif *pp = p; #endif /* GO32_VIDEO */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ SLtt_goto_rc (Cursor_Row, Cursor_Col + 1); } } /*----------------------------------------------------------------------*\ * Function: void SLtt_set_color (int obj, char *what, char *fg, char *bg); * * set foreground and background colors of OBJ to the attributes which * correspond to the names FG and BG, respectively. * * WHAT is the name corresponding to the object OBJ, but is not used in * this routine. \*----------------------------------------------------------------------*/ void SLtt_set_color (int obj, char *what, char *fg, char *bg) { int i, b = -1, f = -1; (void) what; if ( !IsColor || (obj < 0) || (obj >= JMAX_COLORS)) return; for (i = 0; i < JMAX_COLOR_NAMES; i++ ) { if (!strcmp (fg, Color_Names [i])) { f = i; break; } } for (i = 0; i < JMAX_COLOR_NAMES; i++) { if (!strcmp (bg, Color_Names [i])) { if (Blink_Killed) b = i; else b = i & 0x7; break; } } if ((f == -1) || (b == -1) || (f == b)) return; Color_Map [obj] = (b << 4) | f; } /*----------------------------------------------------------------------*\ * Function: void SLtt_get_terminfo (void) \*----------------------------------------------------------------------*/ void SLtt_get_terminfo (void) { } /*----------------------------------------------------------------------*\ * Function: void SLtt_init_video (void); \*----------------------------------------------------------------------*/ void SLtt_init_video (void) { static int first_time; Cursor_Row = Cursor_Col = 0; if (first_time == 0) { int i; for (i = 0; i < JMAX_COLORS; i++) Color_Map [i] = 0x7; for (i = 1; i < 5; i++) Color_Map [i] = 0x70; first_time = 1; } #if defined (EMX_VIDEO) v_init (); if ( v_hardware () != V_MONOCHROME ) IsColor = 1; else IsColor = 0; v_gotoxy (0, 0); if (IsColor) { if (_osmode == OS2_MODE) { #if 0 /* Enable high-intensity background colors */ VIOINTENSITY RequestBlock; RequestBlock.cb = sizeof (RequestBlock); RequestBlock.type = 2; RequestBlock.fs = 1; VioSetState (&RequestBlock, 0); /* nop if !fullscreen */ #endif Blink_Killed = 1; } else { Blink_Killed = 1; /* seems to work */ } } if (!Attribute_Byte) { /* find the attribute currently under the cursor */ v_getline (Line_Buffer, 0, 0, 1); Attribute_Byte = Line_Buffer[1]; set_color_from_attribute (Attribute_Byte); } v_attrib (Attribute_Byte); /* SLtt_Term_Cannot_Insert = 1; */ #else /* EMX_VIDEO */ #ifdef __os2__ IsColor = 1; /* is it really? */ { /* Enable high-intensity background colors */ VIOINTENSITY RequestBlock; RequestBlock.cb = sizeof (RequestBlock); RequestBlock.type = 2; RequestBlock.fs = 1; VioSetState (&RequestBlock, 0); /* nop if !fullscreen */ Blink_Killed = 1; } if (!Attribute_Byte) { /* find the attribute currently under the cursor */ USHORT Length = 2, Row, Col; VioGetCurPos (&Row, &Col, 0); VioReadCellStr ((PCH)Line_Buffer, &Length, Row, Col, 0); Attribute_Byte = Line_Buffer[1]; set_color_from_attribute (Attribute_Byte); } #else /* os2 */ #if defined (__GO32__) || defined (__WATCOMC__) #ifdef GO32_VIDEO SLtt_Term_Cannot_Insert = 1; #else Video_Base = (unsigned char *) ScreenPrimary; #endif if (!Attribute_Byte) Attribute_Byte = 0x17; IsColor = 1; /* is it really? */ if (IsColor) { union REGS r; #ifdef __WATCOMC__ r.x.eax = 0x1003; r.x.ebx = 0; #else r.x.ax = 0x1003; r.x.bx = 0; #endif int86 (0x10, &r, &r); Blink_Killed = 1; } #else /* __GO32__ or __WATCOMC__ */ { unsigned char *p = (unsigned char far *) 0x00400049L; if (*p == 7) { Video_Status_Port = MONO_STATUS; Video_Base = (unsigned char *) MK_FP (0xb000,0000); IsColor = 0; } else { Video_Status_Port = CGA_STATUS; Video_Base = (unsigned char *) MK_FP (0xb800,0000); IsColor = 1; } } /* test for video adapter type. Of primary interest is whether there is * snow or not. Assume snow if the card is color and not EGA or greater. */ /* Use Ralf Brown test for EGA or greater */ asm mov ah, 0x12 asm mov bl, 0x10 asm mov bh, 0xFF asm int 10h asm cmp bh, 0xFF asm je L1 /* (V)EGA */ asm xor bx, bx asm mov SLtt_Msdos_Cheap_Video, bx asm mov ax, Attribute_Byte asm cmp ax, bx asm jne L2 asm mov ax, 0x17 asm mov Attribute_Byte, ax asm jmp L2 L1: /* Not (V)EGA */ asm mov ah, 0x0F asm int 10h asm cmp al, 7 asm je L3 asm mov ax, 1 asm mov SLtt_Msdos_Cheap_Video, ax L3: asm mov ax, Attribute_Byte asm cmp ax, 0 asm jne L2 asm mov ax, 0x07 asm mov Attribute_Byte, ax L2: /* toggle the blink bit so we can use hi intensity background */ if (IsColor && !SLtt_Msdos_Cheap_Video) { asm mov ax, 0x1003 asm mov bx, 0 asm int 0x10 Blink_Killed = 1; } #endif /* __GO32__ or __WATCOMC__ */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ SLtt_set_scroll_region (0, SLtt_Screen_Rows); } /*----------------------------------------------------------------------*\ * Function: int SLtt_flush_output (void); \*----------------------------------------------------------------------*/ int SLtt_flush_output (void) { fflush (stdout); return -1; } /* /////////////////////// end of file (c source) ///////////////////// */ 0 asm int 0x10 Blink_Killed = 1; } #endif /* __GO32__ or __WATCOMC__ */ #endif /* __os2__ */ #endif /* EMX_VIDEO */ SLtt_set_scroll_region (0,slang-0.99.12/src/slvmstty.c000064400000000000003000000231250603742322700155040ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include #include #include #include #include #include #include #include #include #ifdef __DECC #include #include #include #endif #include #include "config.h" #include "slang.h" #include "_slang.h" typedef struct { /* I/O status block */ short i_cond; /* Condition value */ short i_xfer; /* Transfer count */ long i_info; /* Device information */ } Iosb_Type; typedef struct { /* Terminal characteristics */ char t_class; /* Terminal class */ char t_type; /* Terminal type */ short t_width; /* Terminal width in characters */ long t_mandl; /* Terminal's mode and length */ long t_extend; /* Extended terminal characteristics */ } TermChar_Type; static TermChar_Type Old_Term_Char, New_Term_Char; /* This serves to identify the channel we are reading input from. */ static short This_Term; typedef struct { short buflen; short item_code; int *buf_addr; int *len_addr; } item_list_3; static int TTY_Inited; /* * Exit Handler Control Block */ static struct argument_block { int forward_link; int (*exit_routine)(); int arg_count; int *status_address; int exit_status; } exit_block = { 0, NULL, 1, &exit_block.exit_status, 0 }; static void vms_cancel_exithandler() { sys$canexh(exit_block); } static int vms_exit_handler () { if (TTY_Inited == 0) return 0; SLang_reset_tty (); return 0; } static int vms_input_buffer; static struct vms_ast_iosb { short status; short offset; short termlen; short term; } vms_ast_iosb; static void vms_que_key_ast(); static int Ast_Fired_Event_Flag; static int Timer_Event_Flag; static int Event_Flag_Mask; static int Ast_Stop_Input; static int Waiting_For_Ast; static int getkey_ast(int not_used) { unsigned int c = 1000; if (vms_ast_iosb.offset) { c = (unsigned int) vms_input_buffer; } if (c <= 255) { if (c == SLang_Abort_Char) { if (SLang_Ignore_User_Abort == 0) SLang_Error = USER_BREAK; SLKeyBoard_Quit = 1; } if (SLang_Input_Buffer_Len < MAX_INPUT_BUFFER_LEN - 3) SLang_Input_Buffer[SLang_Input_Buffer_Len++] = c; } if (Waiting_For_Ast) sys$setef (Ast_Fired_Event_Flag); Waiting_For_Ast = 0; vms_que_key_ast(); return (1); } static void vms_que_key_ast() { static int trmmsk [2] = { 0, 0 }; int status; if (Ast_Stop_Input) return; status = sys$qio (0, This_Term, IO$_READVBLK | IO$M_NOECHO | IO$_TTYREADALL, &vms_ast_iosb, getkey_ast, 1, &vms_input_buffer, 1, 0, trmmsk, 0, 0); } static char TTY_Name[8]; static int This_Process_Pid; int SLang_init_tty (int a, int flow, int out) { Iosb_Type iostatus; int tmp, name_len, status, lastppid, ppid; item_list_3 itmlst[3]; $DESCRIPTOR ( term, TTY_Name); itmlst[0].buflen = sizeof(int); itmlst[0].item_code = JPI$_PID; itmlst[0].buf_addr = &This_Process_Pid; itmlst[0].len_addr = &tmp; itmlst[1].buflen = 7; itmlst[1].item_code = JPI$_TERMINAL; itmlst[1].buf_addr = (int *) TTY_Name; itmlst[1].len_addr = &name_len; itmlst[2].buflen = 0; itmlst[2].item_code = 0; itmlst[2].buf_addr = 0; itmlst[2].len_addr = 0; SLang_Abort_Char = a; TTY_Inited = 1; ppid = 0, lastppid = -1; /* Here I get this process pid then I get the master process pid and use the controlling terminal of that process. */ while (1) { status = sys$getjpiw(0, /* event flag */ &ppid, /* pid address */ 0, /* proc name address */ itmlst, 0, 0, 0); if (status != SS$_NORMAL) { fprintf(stderr, "PID: %X, status: %X\n", This_Process_Pid, status); exit(1); } if (lastppid == ppid) break; lastppid = ppid; itmlst[0].item_code = JPI$_MASTER_PID; itmlst[0].buf_addr = &ppid; } term.dsc$w_length = name_len; status = sys$assign ( &term, &This_Term, 0, 0 ); if (status != SS$_NORMAL) { fprintf(stderr,"Unable to assign input channel\n"); fprintf(stderr,"PID: %X, DEV %s, status: %d\n", This_Process_Pid, TTY_Name, status); exit(0); } if (NULL == exit_block.exit_routine) { exit_block.exit_routine = (int (*)()) vms_exit_handler; sys$dclexh(&exit_block); } /* allocate an event flag and clear it--- used by ast routines. Since * I am only using a few local event flags, there is really no need to * worry about freeing these. * * The event flags are used to avoid timing problems with the getkey AST * as well as for a form of time out. */ if (!Ast_Fired_Event_Flag) lib$get_ef (&Ast_Fired_Event_Flag); sys$clref (Ast_Fired_Event_Flag); if (!Timer_Event_Flag) lib$get_ef (&Timer_Event_Flag); sys$clref (Timer_Event_Flag); /* The working assumption here is that the event flags are in the same * cluster. They need not be but it is very likely that they are. */ Event_Flag_Mask = ((unsigned) 1 << (Ast_Fired_Event_Flag % 32)); Event_Flag_Mask |= ((unsigned) 1 << (Timer_Event_Flag % 32)); Waiting_For_Ast = 0; Ast_Stop_Input = 0; /* Get the startup terminal characteristics */ status = sys$qiow(0, /* Wait on event flag zero */ This_Term, /* Channel to input terminal */ IO$_SENSEMODE, /* Get current characteristic */ &iostatus, /* Status after operation */ 0, 0, /* No AST service */ &Old_Term_Char, /* Terminal characteristics buf */ sizeof(Old_Term_Char),/* Size of the buffer */ 0, 0, 0, 0); New_Term_Char = Old_Term_Char; New_Term_Char.t_mandl |= TT$M_EIGHTBIT | TT$M_NOECHO; New_Term_Char.t_extend |= TT2$M_PASTHRU | TT2$M_XON; status = sys$qiow(0, /* Wait on event flag zero */ This_Term, /* Channel to input terminal */ IO$_SETMODE, /* Set current characteristic */ &iostatus, /* Status after operation */ 0, 0, /* No AST service */ &New_Term_Char, /* Terminal characteristics buf */ sizeof(New_Term_Char),/* Size of the buffer */ 0, 0, 0, 0); vms_que_key_ast(); /* set up the key ast */ return 0; } static void cancel_ast (void) { if (TTY_Inited == 0) return; /* stop the keyboard ast */ sys$setast (0); /* disable AST delivery */ sys$clref (Ast_Fired_Event_Flag); Waiting_For_Ast = 1; Ast_Stop_Input = 1; /* cancel all i/o on this channel. This canels pending, as well as those * already in progress and queued. In particular, according to the * manuals, cancelling I/O on the channel will cause the getkey AST * to fire even though the sys$qio call was aborted. This is crucial * because below we wait for the AST to set the event flag. */ sys$cancel (This_Term); sys$setast (1); /* enable ASTs again */ sys$waitfr (Ast_Fired_Event_Flag); /* sleep until it fires */ Waiting_For_Ast = 0; } void SLang_reset_tty (void) { Iosb_Type iostatus; if (!TTY_Inited) return; cancel_ast (); TTY_Inited = 0; /* reset the terminal characteristics */ sys$qiow(0, /* event flag 0 */ This_Term, /* Channel to input terminal */ IO$_SETMODE, /* Set current characteristic */ &iostatus, /* Status after operation */ 0, 0, /* No AST service */ &Old_Term_Char, /* Terminal characteristics buf */ sizeof(Old_Term_Char), /* Size of the buffer */ 0, 0, 0, 0); /* unused */ } unsigned int SLsys_getkey() { unsigned int c; if (SLKeyBoard_Quit) return((unsigned int) SLang_Abort_Char); /* On VMS, the keyboard ast routine should be stuffing the buffer, so do nothing except sleep */ /* clear the flag which ast will set */ Waiting_For_Ast = 0; if (SLang_Input_Buffer_Len) return(SLang_getkey()); while (!SLsys_input_pending(450)); c = SLang_getkey(); return(c); } /* waits *secs tenth of seconds for input */ int SLsys_input_pending(int tsecs) { unsigned long daytim[2]; if (SLang_Input_Buffer_Len) return(SLang_Input_Buffer_Len); if (tsecs) { /* takes a quad word time. If negative, use a relative time. */ daytim[1] = 0xFFFFFFFF; daytim[0] = -(tsecs * 1000 * 1000); /* 1000 * 1000 is a tenth of a sec */ sys$clref (Ast_Fired_Event_Flag); /* sys$clref (Timer_Event_Flag); sys$setimr call clears this */ /* set up a flag for the ast so it knows to set the event flag */ Waiting_For_Ast = 1; sys$setimr(Timer_Event_Flag, daytim, 0, 1); /* this will return when ast does its job or timer expires. * The first argument simply serves to identify the cluster for * the event flag and that is all. The second argument serves * to identify the event flags to wait for. */ sys$wflor (Ast_Fired_Event_Flag, Event_Flag_Mask); Waiting_For_Ast = 0; /* cancel the timer */ sys$cantim(1, 3); /* 3 is user mode */ } return (SLang_Input_Buffer_Len); } void SLang_set_abort_signal (void (*f)(int)) { } nt_Flag, daytim, 0, 1); /* this will return when ast does its job or timer expires. * The first argument simply serves to identify the cluster for * the event flag and that is all. The second argument serves * to identify the event flags to wait for. */ sys$wflor (Ast_Fired_Event_Flag, Event_Flag_Mask); Waiting_For_Ast = 0; /* cancel the timer */ sys$cantim(1, 3); /* 3 is user mode */ } slang-0.99.12/src/slwind.c000064400000000000003000000114240603742322700150760ustar00rootsys00000000000000/* Intrinsic functions */ #include #include "slang.h" #include "_slang.h" #define MAX_WINDOWS 256 static int Resize_Window_Msg = 0; static int Redraw_Window_Msg = 1; static int Destroy_Window_Msg = 2; #define MAX_WINDOW_PROCS 3 typedef struct Window_Type { int handle; int xmin, xmax, ymin, ymax; FLOAT wxmin, wxmax, wymin, wymax; /* world coord system */ unsigned long flags; struct Window_Type *child, *sister; SLang_Name_Type *win_proc[MAX_WINDOW_PROCS]; /* window procedures */ } Window_Type; Window_Type *Windows[MAX_WINDOWS]; void execute_window_proc (Window_Type *w, int msg) { SLang_Name_Type *n; if (SLang_Error) return; if (NULL == (n = w->win_proc[msg])) { /* default procedure */ return; } SLexecute_function (n); } int SLang_pop_4_integers (int *a, int *b, int *c, int *d) { if (SLang_pop_integer (d) || SLang_pop_integer (c) || SLang_pop_integer (b) || SLang_pop_integer (a)) return 1; return 0; } int SLang_pop_4_floats (FLOAT *a, FLOAT *b, FLOAT *c, FLOAT *d) { int p2, p3; if (SLang_pop_float (d, &p2, &p3) || SLang_pop_float (c, &p2, &p3) || SLang_pop_float (b, &p2, &p3) || SLang_pop_float (a, &p2, &p3)) return 1; return 0; } Window_Type *validate_window_handle(int handle) { char err[] = "Window handle invalid."; Window_Type *w; if ((handle < 0) || (handle >= MAX_WINDOWS) || (NULL == (w = Windows[handle]))) { SLang_doerror (err); return NULL; } return w; } /* define a window and returns a handle to the window. Points are clipped * within the window */ int create_window (void) { int xmin, xmax, ymin, ymax; Window_Type *w; int i; if (SLang_pop_4_integers(&xmin, &ymin, &xmax, &ymax)) return -1; for (i = 0; i < MAX_WINDOWS; i++) { if (Windows[i] == NULL) break; } if (i == MAX_WINDOWS) return -1; if (NULL == (w = (Window_Type *) SLMALLOC (sizeof(Window_Type)))) { SLang_Error = SL_MALLOC_ERROR; return -1; } Windows[i] = w; /* zero the structure */ MEMSET (w, 0, sizeof (Window_Type)); w->handle = i; w->ymin = ymin; w->ymax = ymax; if (xmax < xmin) { w->xmax = xmin; w->xmin = xmax; } else { w->xmin = xmin; w->xmax = xmax; } if (ymax < ymin) { w->ymax = ymin; w->ymin = ymax; } else { w->ymax = ymin; w->ymin = ymax; } w->wxmin = (FLOAT) w->xmin; w->wymin = (FLOAT) w->ymin; w->wxmax = (FLOAT) w->xmax; w->wymax = (FLOAT) w->ymax; return w->handle; } /* destroy window associated with handle */ void delete_window (void) { int handle; Window_Type *w; if (SLang_pop_integer (&handle)) return; if (NULL == (w = validate_window_handle(handle))) return; /* need to delete child windows */ execute_window_proc (w, Destroy_Window_Msg); /* send message to all windows this one obscures to update their contents */ Windows[handle] = NULL; SLFREE (w); return; } /* associates a world coordinate system with the window */ void define_world (void) { int handle; FLOAT xmin, xmax, ymin, ymax; Window_Type *w; if (SLang_pop_integer (&handle) || SLang_pop_4_floats (&xmin, &ymin, &xmax, &ymax)) return; if (NULL == (w = validate_window_handle(handle))) return; w->wxmin = xmin; w->wxmax = xmax; w->wymin = ymin; w->wymax = ymax; } void define_window_procedure (int *handle, int *msg, char *proc) { SLang_Name_Type *n; Window_Type *w; if ((*msg < 0) || (*msg >= MAX_WINDOW_PROCS)) { SLang_doerror ("Invalid window message."); return; } if (NULL == (n = SLang_get_function (proc))) { SLang_doerror ("Undefined function."); return; } if (NULL == (w = validate_window_handle(*handle))) return; w->win_proc[*msg] = n; } void show_window (int *handle) { Window_Type *w; if (NULL == (w = validate_window_handle(*handle))) return; execute_window_proc (w, Resize_Window_Msg); execute_window_proc (w, Redraw_Window_Msg); } static SLang_Name_Type slwindow_table[] = { MAKE_INTRINSIC(".create_window", create_window, INT_TYPE, 0), MAKE_INTRINSIC(".delete_window", delete_window, VOID_TYPE, 0), MAKE_INTRINSIC(".define_world", define_world, VOID_TYPE, 0), MAKE_INTRINSIC(".show_window", show_window, VOID_TYPE, 1), MAKE_INTRINSIC(".define_window_procedure", define_window_procedure, VOID_TYPE, 3), MAKE_VARIABLE(".RESIZE_WINDOW_MSG", &Resize_Window_Msg, INT_TYPE, 1), MAKE_VARIABLE(".REDRAW_WINDOW_MSG", &Redraw_Window_Msg, INT_TYPE, 1), MAKE_VARIABLE(".DESTROY_WINDOW_MSG", &Destroy_Window_Msg, INT_TYPE, 1), SLANG_END_TABLE }; int init_SLwindows () { return SLang_add_table(slwindow_table, "_Windows"); } define_world, VOID_TYPE, 0), MAKE_INTRINSIC(".show_window", show_window, VOID_TYPE, 1), MAKE_INTRINSIC(".define_window_procedure", define_window_procedure, VOID_TYPE, 3), MAKE_VARIABLE(".RESIZE_WINDOW_MSG", &Resize_Window_Mslang-0.99.12/src/slxstrng.c000064400000000000003000000015570603742322700154700ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ /* These routines are simple and inefficient. They were designed to work on * SunOS when using Electric Fence. */ char *jed_strcpy(register char *aa, register char *b) { char *a = aa; while ((*a++ = *b++) != 0); return aa; } int jed_strcmp(register char *a, register char *b) { while (*a && (*a == *b)) { a++; b++; } if (*a) return((unsigned char) *a - (unsigned char) *b); else if (*b) return ((unsigned char) *a - (unsigned char) *b); else return 0; } char *jed_strncpy(char *a, register char *b,register int n) { register char *aa = a; while ((n > 0) && *b) { *aa++ = *b++; n--; } while (n-- > 0) *aa++ = 0; return (a); } har *a = aa; while ((*a++ = *b++) != 0); return aa; } int jed_strcmp(register char *a, register char *b) { while (*a && (*a == *b)) slang-0.99.12/src/untic.c000064400000000000003000000022170603742323000147120ustar00rootsys00000000000000 #include "sltermin.c" int main (int argc, char **argv) { Terminfo_Type *t; Tgetstr_Map_Type *map = Tgetstr_Map; unsigned char *str; char *term; term = getenv ("TERM"); if (argc > 1) term = argv[1]; if (term == NULL) return -1; t = (Terminfo_Type *) SLtt_tigetent (term); if (t == NULL) return -1; puts (t->terminal_names); while (map->name != NULL) { str = (unsigned char *) SLtt_tigetstr (map->name, (char **) &t); if (str == NULL) str = (unsigned char *) "NULL"; fprintf (stdout, "\t%s=", map->name); while (*str) { if ((int) (*str & 0x7F) < ' ') { putc ('^', stdout); *str += '@'; } putc (*str, stdout); str++; } putc ('\n', stdout); map++; } map = Tgetflag_Map; while (map->name != NULL) { if (SLtt_tigetflag (map->name, (char **) &t) > 0) { fprintf (stdout, "\t%s\n", map->name); } map++; } map = Tgetnum_Map; while (map->name != NULL) { int val; if ((val = SLtt_tigetnum (map->name, (char **) &t)) >= 0) { fprintf (stdout, "\t%s#%d\n", map->name, val); } map++; } return 0; } += '@'; } putc (*str, stdout); str++; } putc ('\n', stdout); map++; } map = Tgetflag_Map; while (map->name != NULL) { if (SLtt_tigetflag (map->name, (char **) &t) > 0) { fprintf (stdout, "\t%s\n", map->name); } map++; } map = Tgetnum_Map; while (map->name != NULL) { int val; if ((val = SLttslang-0.99.12/src/slprepr.c000064400000000000003000000165220603742323000152630ustar00rootsys00000000000000/* Copyright (c) 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ /*----------------------------------------------------------------- * File: slprepr.c * * preprocessing routines * * * various preprocessing tokens supported * * #ifdef TOKEN1 TOKEN2 ... * - True if any of TOKEN1 TOKEN2 ... are defined * * #ifndef TOKEN1 TOKEN2 ... * - True if none of TOKEN1 TOKEN2 ... are defined * * #iftrue * #ifnfalse * - always True * * #iffalse * #ifntrue * - always False * * #if$ENV * - True if the enviroment variable ENV is set * * #ifn$ENV * - True if the enviroment variable ENV is not set * * #if$ENV TOKEN1 TOKEN2 ... *TOKENa TOKENb* *TOKENc* * - True if the contents of enviroment variable ENV match * any of TOKEN1 TOKEN2 ... *TOKENa TOKENb* *TOKENc*, in which * the '*' character is a wildcard match * * #ifn$ENV TOKEN1 TOKEN2 ... *TOKENa TOKENb* *TOKENc* * #if!$ENV TOKEN1 TOKEN2 ... *TOKENa TOKENb* *TOKENc* * - True if the contents of enviroment variable ENV does not match * any of TOKEN1 TOKEN2 ... *TOKENa TOKENb* *TOKENc*, in which * the '*' character is a wildcard match * * #elif... * #else * #endif * * * Note: the wildcard matching for $ENV can only be at the ends! * * mj olesen *----------------------------------------------------------------------*/ #include #include #include "config.h" #ifndef NO_STDLIB_H #include #endif #include "slang.h" int SLprep_open_prep (SLPreprocess_Type *pt) { pt->this_level = 0; pt->exec_level = 0; pt->prev_exec_level = 0; pt->comment_char = '%'; pt->preprocess_char = '#'; return 0; } void SLprep_close_prep (SLPreprocess_Type *pt) { } #define MAX_DEFINES 10 #define MAX_DEFINE_LEN 16 static char SLdefines[MAX_DEFINES][MAX_DEFINE_LEN]; int SLdefine_for_ifdef (char *s) { int n, i; char *place; for (i = 0; i < MAX_DEFINES; i++) { place = SLdefines[i]; if (*place == 0) { n = strlen (s); if (n > MAX_DEFINE_LEN - 2) n = MAX_DEFINE_LEN - 2; *place++ = (char) n; strncpy(place, s, n); *(place + n) = 0; return 1; } } return 0; } static int is_any_defined(char *buf, char comment) { char *sys, *buf_save = buf; int i = 0, n; register char ch; while ((i < MAX_DEFINES) && (sys = SLdefines[i], (n = (int) *sys++) != 0)) { buf = buf_save; while (1) { while ((ch = *buf), ch && (ch != '\n') && (ch <= ' ')) buf++; if ((ch <= '\n') || (ch == comment)) break; if (!strncmp(buf, sys, n)) { buf += n; if ((*buf <= ' ') || (*buf == comment)) return 1; } else { while ((ch = *buf), (ch > ' ') && (ch != comment)) buf++; } } i++; } return 0; } #define TOKENSZ 31 #define GLOB_STAR '*' static int is_env_defined (unsigned char *buf, char comment) { char *env, token[TOKENSZ + 1], *b, *bmax; int token_length; if ((*buf <= ' ') || ((char) *buf == comment)) return 0; /* no token */ b = token; bmax = b + TOKENSZ; while ((b < bmax) && (*buf > ' ')) *b++ = (char) *buf++; *b = '\0'; if (*buf > ' ') return 0; /* failed, token too long */ if (NULL == (env = (char *) getenv(token))) return 0; /* not defined */ while ((*buf == ' ') || (*buf == '\t')) buf++; /* leading spaces */ if ((*buf == '\n') || ((char)*buf == comment) || (*buf == 0)) return 1; /* no tokens, but getenv() worked */ do { b = token; bmax = b + TOKENSZ; while ((b < bmax) && (*buf > ' ')) *b++ = (char) *buf++; *b = '\0'; if (*buf > ' ') break; /* Oops! Too long */ b--; token_length = (int) (b - token); /* actually, one less than length * since length is used only if globbing * is performed. */ /* rudimentary globbing: */ if (*b == GLOB_STAR) /* ...something* */ { if (*token == GLOB_STAR) { *b = '\0'; if (strstr (env, &token[1])) return 1; /* `*str*' */ } else if (! strncmp (env, token, token_length)) return 1; /* `str*' */ } else if (*token == GLOB_STAR) /* *something */ { int n = strlen (env) - token_length; if ((n >= 0) && ! strncmp (env + n, token + 1, token_length)) return 1; /* `*str' */ } else if (! strcmp (env, token)) return 1; /* `str' */ while ((*buf == ' ') || (*buf == '\t')) buf++; } while (*buf && (*buf != '\n') && ((char) *buf != comment)); return 0; } int SLprep_line_ok (char *buf, SLPreprocess_Type *pt) { int level, prev_exec_level, exec_level; if ((buf == NULL) || (pt == NULL)) return (1); if (*buf == '\n') return (0); if (*buf == pt->comment_char) return (0); /* since '%' is a comment */ if (*buf != pt->preprocess_char) return (pt->this_level == pt->exec_level); level = pt->this_level; exec_level = pt->exec_level; prev_exec_level = pt->prev_exec_level; buf++; /* Allow '#!' to pass. This could be a shell script with something like '#! /local/bin/slang' */ if ((*buf == '!') && (pt->preprocess_char == '#')) return 0; /* Allow whitespace as in '# ifdef' */ while ((*buf == ' ') || (*buf == '\t')) buf++; if (*buf < 'a') return (level == exec_level); if (!strncmp(buf, "endif", 5)) { if (level == exec_level) { exec_level--; prev_exec_level = exec_level; } level--; if (level < prev_exec_level) prev_exec_level = level; goto done; } if ((buf[0] == 'e') && (buf[1] == 'l')) /* else, elifdef, ... */ { if ((level == exec_level + 1) && (prev_exec_level != level)) { /* We are in position to execute */ buf += 2; if ((buf[0] == 's') && (buf[1] == 'e')) { /* "else" */ exec_level = level; goto done; } /* drop through to ifdef testing. First set variable * to values appropriate for ifdef testing. */ level--; /* now == to exec level */ } else { if (level == exec_level) { exec_level--; } goto done; } } if ((buf[0] == 'i') && (buf[1] == 'f')) { int truth; if (level != exec_level) { /* Not interested */ level++; goto done; } level++; buf += 2; if (buf[0] == 'n') { truth = 0; buf++; } else truth = 1; if (!strncmp (buf, "def", 3)) truth = (truth == is_any_defined(buf + 3, pt->comment_char)); else if (!strncmp (buf, "false", 5)) truth = !truth; else if (*buf == '$') truth = (truth == is_env_defined ((unsigned char *)buf + 1, pt->comment_char)); else if (0 != strncmp (buf, "true", 4)) return 1; /* let it bomb */ if (truth) { exec_level = level; prev_exec_level = exec_level; } } else return 1; /* let it bomb. */ done: if (exec_level < 0) return 1; pt->this_level = level; pt->exec_level = exec_level; pt->prev_exec_level = prev_exec_level; return 0; } #if 0 int main () { char buf[1024]; SLPreprocess_Type pt; SLprep_open_prep (&pt); SLdefine_for_ifdef ("UNIX"); while (NULL != fgets (buf, sizeof (buf) - 1, stdin)) { if (SLprep_line_ok (buf, &pt)) { fputs (buf, stdout); } } SLprep_close_prep (&pt); return 0; } #endif t bomb. */ done: if (exec_level < 0) return 1; pt->this_level = level; pt->exec_level = exec_level; pt->prev_exec_level = prev_exec_level; return 0slang-0.99.12/src/deccmake.com000064400000000000003000000032700603742323000156600ustar00rootsys00000000000000$ ver = f$verify(0) $! Makefile for VMS $ if (p1 .eqs. "INSTALL") then goto install $ defs = "FLOAT_TYPE,HAS_MEMCPY,HAS_MEMSET,HAS_MEMCMP" $ C_C := CC/PREFIX_LIBRARY_ENTRIES=ALL_ENTRIES $ axp = 1 $ goto start $! $ start: $ files = "slang,slparse,slmath,slfile,slstd,slarray,slregexp,slerr" $ files = files + ",slrline,slgetkey,slvmstty,slkeymap,sltoken" $ files = files + ",slmemcpy,slmemcmp,slmemset,slmemchr,slmisc" $ files = files + ",sldisply,slsmg,slsearch,slcmd,slmalloc,slclass" $ files = files + ",slprepr" $! $ if (p1 .eqs. "LINK") then goto do_link $! $! simple make $! $ count = 0 $ next_file: $ f = f$element(count, ",", files) $ count = count + 1 $ if (f .eqs. ",") then goto do_link $ objf = f$search("''f'.obj") $ if (objf .eqs. "") then goto compile_it $ tobj = f$file_attr(objf, "RDT") $ tc = f$file_attr("''f'.c", "RDT") $ if (f .eqs. "sysdep") $ then $ if ( f$cvtime(tobj) .lts. f$cvtime(f$file_attr("vms.c","RDT"))) - then goto compile_it $ endif $ if (f$cvtime(tc) .lts. f$cvtime(tobj)) then goto next_file $ compile_it: $ write sys$output "''C_C'/define=(''defs') ''f'.c" $ 'C_C'/define=('defs') 'f'.c $ goto next_file $ do_link: $ write sys$output "library/creat slang ''files'" $ library/creat slang 'files' $ purge slang.olb $ goto The_Exit $ The_Exit: $ write sys$output "''C_C'/define=(''defs') calc.c" $ 'C_C'/define=('defs') calc.c $ write sys$output "link/exec=calc calc ''Link_Flags', slang/LIBRARY" $ if axp $ then $ link/exec=calc calc, slang/LIBRARY 'Link_Flags' $ else $ link/exec=calc calc, slang/LIBRARY 'Link_Flags', sys$input/opt SYS$LIBRARY:VAXCRTL/SHARE $ endif $ exit k: $ write sys$output "library/creat slang ''files'" $ library/creat slang 'files' $ purge slang.olb $ goto The_Exit $ The_Exit: $ write sys$output "''C_C'/define=(''defs') calc.c" $ 'C_C'/define=('defs') calc.c $ write sys$output "link/exec=calc calc ''Link_Flags', slang/LIBRARY" $ if axp $ then $ linslang-0.99.12/src/vmsmake.com000064400000000000003000000040520603742323100155670ustar00rootsys00000000000000$ ver = f$verify(0) $! Makefile for VMS $ if (p1 .eqs. "INSTALL") then goto install $ defs = "FLOAT_TYPE,HAS_MEMCPY,HAS_MEMSET,HAS_MEMCMP" $ axp = f$getsyi("HW_MODEL").ge.1024 $! $! If compiling with GCC, uncomment next line $! goto has_gcc $ if (p1 .eqs. "GCC") then goto has_gcc $! $! There should be no need to change anything below here $! $ if axp $ then C_C = "cc/standard=vaxc" $ Link_Flags = "/NONATIVE_ONLY" $ else C_C = "cc" $ Link_Flags = "" $ endif $ C_C = C_C $ goto start $ has_gcc: $ C_C = "gcc/warnings/nocase_hack" $ Link_FLags = ",GNU_CC:[000000]GCCLIB/LIB" $! $ start: $ files = "slang,slparse,slmath,slfile,slstd,slarray,slregexp,slerr" $ files = files + ",slrline,slgetkey,slvmstty,slkeymap,sltoken" $ files = files + ",slmemcpy,slmemcmp,slmemset,slmemchr,slmisc" $ files = files + ",sldisply,slsmg,slsearch,slcmd,slmalloc,slclass" $ files = files + ",slprepr" $! $ if (p1 .eqs. "LINK") then goto do_link $! $! simple make $! $ count = 0 $ next_file: $ f = f$element(count, ",", files) $ count = count + 1 $ if (f .eqs. ",") then goto do_link $ objf = f$search("''f'.obj") $ if (objf .eqs. "") then goto compile_it $ tobj = f$file_attr(objf, "RDT") $ tc = f$file_attr("''f'.c", "RDT") $ if (f .eqs. "sysdep") $ then $ if ( f$cvtime(tobj) .lts. f$cvtime(f$file_attr("vms.c","RDT"))) - then goto compile_it $ endif $ if (f$cvtime(tc) .lts. f$cvtime(tobj)) then goto next_file $ compile_it: $ write sys$output "''C_C'/define=(''defs') ''f'.c" $ 'C_C'/define=('defs') 'f'.c $ goto next_file $ do_link: $ write sys$output "library/creat slang ''files'" $ library/creat slang 'files' $ purge slang.olb $ goto The_Exit $ The_Exit: $ write sys$output "''C_C'/define=(''defs') calc.c" $ 'C_C'/define=('defs') calc.c $ write sys$output "link/exec=calc calc ''Link_Flags', slang/LIBRARY" $ if axp $ then $ link/exec=calc calc, slang/LIBRARY 'Link_Flags' $ else $ link/exec=calc calc, slang/LIBRARY 'Link_Flags', sys$input/opt SYS$LIBRARY:VAXCRTL/SHARE $ endif $ exit k: $ write sys$output "library/creat slang ''files'" $ library/creat slang 'files' $ purge slang.olb $ goto The_Exit $ The_Exit: $ write sys$output "''C_C'/define=(''defs') calc.c" $ 'C_C'/define=('defs') calc.c $ write sys$output "link/exec=calc calc ''Link_Flags', slang/LIBRARY" $ if axp $ then $ link/exec=calc calc, slang/LIBRARY 'Link_Flags' $ else $ link/exec=calc calc, slang/LIBRARY 'Link_Flags', sys$input/opt SYS$LIBRAslang-0.99.12/src/worm.c000064400000000000003000000224260603742323300145630ustar00rootsys00000000000000/* @@@ @@@ @@@@@@@@@@ @@@@@@@@@@@ @@@@@@@@@@@@ @@@ @@@ @@@@@@@@@@@@ @@@@@@@@@@@@ @@@@@@@@@@@@@ @@@ @@@ @@@@ @@@@ @@@@ @@@@ @@@ @@@@ @@@ @@ @@@ @@@ @@@ @@@ @@@ @@@ @@@ @@@ @@@@ @@@ @@@ @@@ @@@ @@@ @@@ @@@ @@@@ @@@@ @@@@ @@@ @@@ @@@ @@@ @@@ @@@ @@@@@@@@@@@@ @@@@ @@@@ @@@ @@@ @@@ @@@ @@@@ @@@@ @@@@@@@@@@@@ @@@ @@@ @@@ @@@ @@ @@ @@@@@@@@@@ @@@ @@@ @@@ @@@ Eric P. Scott Caltech High Energy Physics October, 1980 */ #include #ifdef SLANG #include "config.h" #include "slcurses.h" #ifndef NO_UNISTD_H #include #endif #ifndef sun #include #endif #define HAS_TERMIOS #ifdef HAS_TERMIOS # include #endif #ifdef SYSV # include # include # include # include #endif /* Not SLANG */ #else #include #define SLMALLOC malloc #endif #include #include #ifndef NO_STDLIB_H #include #endif #ifdef __WATCOMC__ #include #endif unsigned char *safe_malloc (unsigned int size) { unsigned char *p; p = (unsigned char *) SLMALLOC (size); if (p == NULL) { fprintf(stderr, "Malloc error."); exit (-1); } return p; } #define cursor(col,row) move(row,col) /* #define ACS_CHAR '`' */ #define ACS_CHAR ((char) ('+' | 0x80)) int Wrap; short *ref[128]; static char flavor[]={ '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' }; static short xinc[]={ 1, 1, 1, 0, -1, -1, -1, 0 }, yinc[]={ -1, 0, 1, 1, 1, 0, -1, -1 }; static struct worm { int orientation, head; short *xpos, *ypos; } worm[40]; static char *field; static int length=16, number=3, trail=' '; static struct options { int nopts; int opts[3]; } normal[8]={ { 3, { 7, 0, 1 } }, { 3, { 0, 1, 2 } }, { 3, { 1, 2, 3 } }, { 3, { 2, 3, 4 } }, { 3, { 3, 4, 5 } }, { 3, { 4, 5, 6 } }, { 3, { 5, 6, 7 } }, { 3, { 6, 7, 0 } } }, upper[8]={ { 1, { 1, 0, 0 } }, { 2, { 1, 2, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 2, { 4, 5, 0 } }, { 1, { 5, 0, 0 } }, { 2, { 1, 5, 0 } } }, left[8]={ { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 2, { 2, 3, 0 } }, { 1, { 3, 0, 0 } }, { 2, { 3, 7, 0 } }, { 1, { 7, 0, 0 } }, { 2, { 7, 0, 0 } } }, right[8]={ { 1, { 7, 0, 0 } }, { 2, { 3, 7, 0 } }, { 1, { 3, 0, 0 } }, { 2, { 3, 4, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 2, { 6, 7, 0 } } }, lower[8]={ { 0, { 0, 0, 0 } }, { 2, { 0, 1, 0 } }, { 1, { 1, 0, 0 } }, { 2, { 1, 5, 0 } }, { 1, { 5, 0, 0 } }, { 2, { 5, 6, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } } }, upleft[8]={ { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 1, { 3, 0, 0 } }, { 2, { 1, 3, 0 } }, { 1, { 1, 0, 0 } } }, upright[8]={ { 2, { 3, 5, 0 } }, { 1, { 3, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 1, { 5, 0, 0 } } }, lowleft[8]={ { 3, { 7, 0, 1 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 1, { 1, 0, 0 } }, { 2, { 1, 7, 0 } }, { 1, { 7, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } } }, lowright[8]={ { 0, { 0, 0, 0 } }, { 1, { 7, 0, 0 } }, { 2, { 5, 7, 0 } }, { 1, { 5, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } }, { 0, { 0, 0, 0 } } }; static void box (void) { char *msg = "Press Any Key to Quit."; int r = 7, c = 45, dr = 8, dc = 4 + strlen (msg); SLsmg_set_color (1); #ifndef pc_system SLsmg_set_char_set (1); #endif SLsmg_fill_region (r + 1, c + 1, dr - 2, dc - 2, SLSMG_CKBRD_CHAR); #ifndef pc_system SLsmg_set_char_set (0); #endif SLsmg_set_color (0); SLsmg_gotorc (r + dr/2, c + 2); SLsmg_write_string (msg); SLsmg_draw_box (r, c, dr, dc); SLsmg_gotorc (0, 0); } static void onsig (int); static float ranf (void); #ifdef SLANG static void get_screen_size (void) { int r = 0, c = 0; #ifdef TIOCGWINSZ struct winsize wind_struct; if ((ioctl(1,TIOCGWINSZ,&wind_struct) == 0) || (ioctl(0, TIOCGWINSZ, &wind_struct) == 0) || (ioctl(2, TIOCGWINSZ, &wind_struct) == 0)) { c = (int) wind_struct.ws_col; r = (int) wind_struct.ws_row; } #endif if ((r <= 0) || (r > 200)) r = 24; if ((c <= 0) || (c > 250)) c = 80; SLtt_Screen_Rows = r; SLtt_Screen_Cols = c; } #endif int main(int argc, char *argv[]) { struct worm *w; struct options *op; short *ip; int h, n, x, y, last, bottom, counts = -1; char *fg = NULL, *bg = NULL; for (x = 1; x < argc; x++) { register char *p; p = argv[x]; if (*p == '-' ) p++; switch (*p) { case 'f': field="WORM"; break; case 'l': if (++x==argc) goto usage; if ((length=atoi(argv[x]))<2||length>1024) { fprintf(stderr,"%s: Invalid length\n",*argv); exit(1); } break; case 'n': if ( ++x == argc) goto usage; if ((number=atoi(argv[x]))<1||number>40) { fprintf(stderr,"%s: Invalid number of worms\n",*argv); exit(1); } break; case 't': trail='.'; break; case 'c': /* -color */ if (++x == argc) goto usage; fg = argv[x]; if (++x == argc) goto usage; bg = argv[x]; break; default: usage: fprintf (stderr, "usage: %s [-field] [-length #] [-number #] [-trail] [-color fg bg]\n", *argv); exit (1); break; } } #ifdef SLANG SLang_init_tty (7, 0, 0); SLtt_init_video (); get_screen_size (); if ( fg != NULL && bg != NULL ) SLtt_set_color (0, NULL, fg, bg); SLtt_set_cursor_visibility (0); #endif #ifdef SIGINT signal(SIGINT, onsig); #endif #ifdef SLANG #ifdef msdos SLtt_Use_Ansi_Colors = 1; #endif SLtt_Term_Cannot_Scroll = 1; #endif initscr(); bottom = LINES-1; last = COLS-1; ip=(short *)safe_malloc(LINES*COLS*sizeof (short)); for (n=0;n=0;) *ip++=0; ref[bottom][last]=0; for (n=number, w= &worm[0];--n>=0;w++) { w->orientation=w->head=0; if (!(ip=(short *)safe_malloc(length*sizeof (short)))) { fprintf(stderr,"%s: out of memory\n",*argv); exit(1); } w->xpos=ip; for (x=length;--x>=0;) *ip++ = -1; if (!(ip=(short *)safe_malloc(length*sizeof (short)))) { fprintf(stderr,"%s: out of memory\n",*argv); exit(1); } w->ypos=ip; for (y=length;--y>=0;) *ip++ = -1; } if (field) { register char *p; p=field; for (y=bottom;--y>=0;) { for (x=COLS;--x>=0;) { addch(*p++); if (!*p) p=field; } move(y, 0); } } box (); refresh(); while (counts--) { for (n=0, w = &worm[0]; n < number;n++,w++) { #ifdef SLANG SLsmg_set_color (n % 16); #endif /* Worm starts at bottom left */ if ((x=w->xpos[h=w->head])<0) { char ch; cursor(x=w->xpos[h]=0,y=w->ypos[h]=bottom); ch = flavor[n % 16]; #ifndef pc_system if (ch == ACS_CHAR) SLsmg_set_char_set (1); #endif addch(ch); #ifndef pc_system if (ch == ACS_CHAR) SLsmg_set_char_set (0); #endif ref[y][x]++; } else y=w->ypos[h]; if (++h==length) h=0; if (w->xpos[w->head=h]>=0) { /* No need to worry about ypos since it is greater than * zero from above */ register int x1, y1; x1=w->xpos[h]; y1=w->ypos[h]; if (--ref[y1][x1]==0) { cursor(x1,y1); #ifdef SLANG SLsmg_set_color (0); #endif addch(trail); #ifdef SLANG SLsmg_set_color (n % 16); #endif } } op= &(x==0 ? (y==0 ? upleft : (y==bottom ? lowleft : left)) : (x==last ? (y==0 ? upright : (y==bottom ? lowright : right)) : (y==0 ? upper : (y==bottom ? lower : normal))))[w->orientation]; switch (op->nopts) { case 0: box (); refresh(); endwin(); abort(); return -1; case 1: w->orientation=op->opts[0]; break; default: w->orientation=op->opts[(int)(ranf()*(float)op->nopts)]; } cursor(x += xinc[w->orientation], y += yinc[w->orientation]); if (!Wrap || x!=last || y!=bottom) { char ch; ch = flavor[n % 16]; #ifndef pc_system if (ch == ACS_CHAR) SLsmg_set_char_set (1); #endif addch(ch); #ifndef pc_system if (ch == ACS_CHAR) SLsmg_set_char_set (0); #endif } ref[w->ypos[h]=y][w->xpos[h]=x]++; } box (); refresh(); #ifdef SLANG if (SLang_input_pending (1)) break; #endif } box (); refresh (); onsig (0); return 0; } static void onsig (int sig) { endwin(); #ifdef SLANG SLtt_set_cursor_visibility (1); SLtt_reset_video (); SLtt_del_eol (); SLang_reset_tty (); #endif exit (sig); } static float ranf(void) { float rv; long r = rand(); r &= 077777; rv =((float)r/32767.); return rv; } if } ref[w->ypos[h]=y][w->xpos[h]=x]++; } box (); refresh(); #ifdef SLANG if (SLang_input_pending (1)) break; #endif } box (); refresh (); onsig (0); return 0; } static void onsig (int sig) slang-0.99.12/src/Makefile000064400000000000003000000067770603742323300151060ustar00rootsys00000000000000# S-Lang Makefile for Unix -*- sh_mode -*- # There are several sections that may need editing here. For QNX systems, # look for the QNX section below. #--------------------------------------------------------------------------- # C compiler. #--------------------------------------------------------------------------- #CC = cc -O -DNO_PROTOTYPES # <--- Ultrix and many other unix #CC = gcc -O2 -Wall -fno-strength-reduce # <--- Linux #CC = gcc -O2 -traditional-cpp # <--- SunOS without acc #CC = acc -vc -Xa -O # <--- SunOS with acc CC = gcc -O -w -D_HPUX_SOURCE # <--- HP-UX #CC = cc -O -Olimit 2000 # <--- OSF1 #CC = xlc -O -D_POSIX_SOURCE # <--- AIX # Note also that if you do not have /usr/include/unistd.h or stdlib.h, you # should add one or more of: `-DNO_STDLIB_H -DNO_UNISTD_H' to the CC line. #--------------------------------------------------------------------------- # Termcap or Terminfo #--------------------------------------------------------------------------- # At least one system (NeXT) does not have terminfo. If yours does not # have terminfo, or you insist on termcap, uncomment the next two lines: #LIBTERMCAP = -ltermcap #USETERMCAP = -DUSE_TERMCAP #--------------------------------------------------------------------------- # Misc Flags #--------------------------------------------------------------------------- # If your system does not have stdlib.h, remove '#' before -DNO_STDLIB_H # below (e.g., NeXT, sequent,..). # Note: Some systems, e.g., SunOS use signed memory comparison whereas # slang uses unsigned. Do NOT define HAS_MEMCMP for such systems! CFLAGS1 = -Dunix -DFLOAT_TYPE # -DNO_STDLIB_H CFLAGS2 = $(CFLAGS1) -DHAS_MEMSET -DHAS_MEMCPY #-DHAS_MEMCMP #-DHAS_MEMCHR # If your system does not have `ranlib', uncomment the next line: #RANLIB_PREFIX = echo #---------------------------------------------------------------------------- # This needs to be modified for QNX #---------------------------------------------------------------------------- ARCMD = ar cr # Most Unix #ARCMD = wlib # QNX LIBSLANG = libslang.a # Most Unix #LIBSLANG = slang3r.lib # QNX #----------------------------------------------------------------------------- # Nothing below here should require changing #----------------------------------------------------------------------------- RANLIB = ranlib CFLAGS = $(CLFAGS1) $(CFLAGS2) $(USETERMCAP) -Dunix OBJS = slang.o slparse.o slmath.o slfile.o slstd.o slarray.o slregexp.o \ slunix.o slmatrix.o slutty.o slkeymap.o slrline.o slerr.o sltoken.o\ slmemcpy.o slmemcmp.o slmemset.o slmemchr.o slxstrng.o slgetkey.o\ sldisply.o slsmg.o slsearch.o slcmd.o slmalloc.o slclass.o slmisc.o\ sltermin.o slprepr.o EXEC = calc $(LIBSLANG): $(OBJS) rm -f $(LIBSLANG) $(ARCMD) $(LIBSLANG) $(OBJS) @echo @echo Ignore any complaint about a missing ranlib from the next command. @echo $(RANLIB_PREFIX) $(RANLIB) $(LIBSLANG) calc: calc.o $(LIBSLANG) $(CC) $(CFLAGS) calc.o -L. $(LIBSLANG) -lm -o $(EXEC) worm.o: worm.c $(CC) -c $(CFLAGS) -DSLANG worm.c worm: worm.o $(LIBSLANG) $(CC) $(CFLAGS) worm.o -o worm -L. -lslang $(LIBTERMCAP) untic.o: untic.c sltermin.c $(CC) -c $(CFLAGS) -DSLANG untic.c untic: untic.o slerr.o sltoken.o $(CC) untic.o slerr.o sltoken.o -o untic clean: /bin/rm -f *.o *.a *~ worm calc untic out out.* typescript sslang-0.99.12/src/.#Makefile000064400000000000003000000070000603742323300152030ustar00rootsys00000000000000# S-Lang Makefile for Unix -*- sh_mode -*- # There are several sections that may need editing here. For QNX systems, # look for the QNX section below. #--------------------------------------------------------------------------- # C compiler. #--------------------------------------------------------------------------- #CC = cc -O -DNO_PROTOTYPES # <--- Ultrix and many other unix #CC = gcc -O2 -Wall -fno-strength-reduce # <--- Linux #CC = gcc -O2 -traditional-cpp # <--- SunOS without acc #CC = acc -vc -Xa -O # <--- SunOS with acc CC = cc +O3 -Aa -D_HPUX_SOURCE # <--- HP-UX #CC = cc -O -Olimit 2000 # <--- OSF1 #CC = xlc -O -D_POSIX_SOURCE # <--- AIX # Note also that if you do not have /usr/include/unistd.h or stdlib.h, you # should add one or more of: `-DNO_STDLIB_H -DNO_UNISTD_H' to the CC line. #--------------------------------------------------------------------------- # Termcap or Terminfo #--------------------------------------------------------------------------- # At least one system (NeXT) does not have terminfo. If yours does not # have terminfo, or you insist on termcap, uncomment the next two lines: #LIBTERMCAP = -ltermcap #USETERMCAP = -DUSE_TERMCAP #--------------------------------------------------------------------------- # Misc Flags #--------------------------------------------------------------------------- # If your system does not have stdlib.h, remove '#' before -DNO_STDLIB_H # below (e.g., NeXT, sequent,..). # Note: Some systems, e.g., SunOS use signed memory comparison whereas # slang uses unsigned. Do NOT define HAS_MEMCMP for such systems! CFLAGS1 = -Dunix -DFLOAT_TYPE # -DNO_STDLIB_H CFLAGS2 = $(CFLAGS1) -DHAS_MEMSET -DHAS_MEMCPY #-DHAS_MEMCMP #-DHAS_MEMCHR # If your system does not have `ranlib', uncomment the next line: #RANLIB_PREFIX = echo #---------------------------------------------------------------------------- # This needs to be modified for QNX #---------------------------------------------------------------------------- ARCMD = ar cr # Most Unix #ARCMD = wlib # QNX LIBSLANG = libslang.a # Most Unix #LIBSLANG = slang3r.lib # QNX #----------------------------------------------------------------------------- # Nothing below here should require changing #----------------------------------------------------------------------------- RANLIB = ranlib CFLAGS = $(CLFAGS1) $(CFLAGS2) $(USETERMCAP) -Dunix OBJS = slang.o slparse.o slmath.o slfile.o slstd.o slarray.o slregexp.o \ slunix.o slmatrix.o slutty.o slkeymap.o slrline.o slerr.o sltoken.o\ slmemcpy.o slmemcmp.o slmemset.o slmemchr.o slxstrng.o slgetkey.o\ sldisply.o slsmg.o slsearch.o slcmd.o slmalloc.o slclass.o slmisc.o\ sltermin.o slprepr.o EXEC = calc $(LIBSLANG): $(OBJS) rm -f $(LIBSLANG) $(ARCMD) $(LIBSLANG) $(OBJS) @echo @echo Ignore any complaint about a missing ranlib from the next command. @echo $(RANLIB_PREFIX) $(RANLIB) $(LIBSLANG) calc: calc.o $(LIBSLANG) $(CC) $(CFLAGS) calc.o -L. $(LIBSLANG) -lm -o $(EXEC) worm.o: worm.c $(CC) -c $(CFLAGS) -DSLANG worm.c worm: worm.o $(LIBSLANG) $(CC) $(CFLAGS) worm.o -o worm -L. -lslang $(LIBTERMCAP) untic.o: untic.c sltermin.c $(CC) -c $(CFLAGS) -DSLANG untic.c untic: untic.o slerr.o sltoken.o $(CC) untic.o slerr.o sltoken.o -o untic clean: /bin/rm -f *.o *.a *~ worm calc untic out out.* typescript slang-0.99.12/src/libslang.a000064400000000000003000006261540603742324100153770ustar00rootsys00000000000000! / 813573460 0 0 0 16788 `  @L*PD,(W "'"#%) (*( &') H*'0'X"!(p!))!#p&)`B$tR`$T 2O, @ɘ  ޼D<'<!1t4l:4\<dAlDKY 81x | 0l,!4 80AJLle0I Lsh0,Lng0L(Lct0h/8Lon0.Lon0Lck0H Lth0BLme0@,LadP0T+< Lmex0? Lrt0@ Lon0(>$Lle0<=Lme0P)Lun0d Lor0| Lsh0Lon0Lct0Lat0ALng0xLer0Lng0Q Lat04=Lle 0T=0Led@0lE Lle0|@LonpLptLor0@ Ltr0@Lly0AIlme`0*0Lme0 Lct0<@Lon0QTLer0l Lop0|@ LceH0@4Lck`Lle8 Lonx0@aesP0@ LpsLot0Ler@4> Lck0D@LLne\oer0x@(Ler0@3Lleh02TLng 01Lleh0@Ler 0Let(01TLctLpt4LctXLct0| nth0ery 0 nes h Lle X0'h nng p0QLks 0Lop0QLnt0$Lct0<@Lle0TLay0lLay0 p Lrt0`Lem0U Lay 0 t Lfo00  Lay0 @Lem 0$Lay 0ULay `0(8Lay @0Q< LchX0T Lle0p nix 0 nix 0Q Lty 0H Ley0 Lty P04 Lal0L Lte0\ Lng  Lte 8$ lTY 0D@ LFD0\ Lap 0Qt\ Ley0@d Ley 80A Lap0A Ley 0@ Lng0A Lon0U  Ly1H0 0 Lngx < Lar8 TX Lst 0 h@ Lag 0  Lne0 4 Lne 0 ( Lne0 @ Lrt0 Law h0 @ Lar@  Lit0 (D Lor0 @ Lor( T Lok 0 p Lge(0 @ Lor   Lne0  Loi0P  LngX0Q  Len`0  Lpe0A  Lar (0Q $ epyp0Q 4 emp0P D eet0Q T ehr0Q d epy00A t epy`0A $ emp80 Lut0 pLng0 @Lar0@ LngP0@ Lng0 @ Lrt0 0 Ley0 DLLeyX0 X@Lit lLer0 @Lenx0A %Ldep0 $Leo x0 $Leoh0 #@Lys0 Lfo00P   Lno0 ,#lLxx0 D Lag0 XLut(0 p Lum0@ LctH0T lLts00 Lth0 Lth0 Leo0 %tLeo0 `Let0@( Lsc0@@ |Lteh0T` Lor0t  Lep 0Lng0 Lex0 tLls 0 Les0Leo04 LarH0 (Lne80  Lol00 Lar0HLrt0\Lrt0@t LrcX0Lty0pLon0@,Lon0@LCS@0@LOk0Lte(Lut0D@ $Lep\LllP0x@LdeLrsPLrt0@ Letp0x LtrpLlsLws(Lrs 0TDtLonh0T\Lox 0p,Lne0Lne 0PLct0@Lrt0@ Ltf 0 Lat(0DLmg`0Lol0$(Lmg@08Lmgx0PLmgH0@h| Lrc0|Lar0 Low!@0Lmn 0@LesX0Los0  Lsh0Let"0(Lor P0,LLeo0DhLeo"00\(Lng0Tt Ltf0 Lls!0@Lrs#0@PLng x0TLng0@Lth0@Ler$80@Lit!h8 lshH @ Len$0XxLes$0@tDLse$0U Lit"X0QLch$` hut#  hut%0AhLng%0 Loc"0ALoc&@0AlLoc00 Lee$0DLcs`0dxLct&0Lct 0QLss%P0ALon&0ALop%x0QLop&h Les%(0( Lng#0A<(Lng#H0P, Lnt80AdLag'0Ax Ltr0Ad Lum( 0@  gap(0@ gap'0@ gap)80@HLap (0Lep(H0ALok(0(Lef'00$Lep%SLang_add_table SLstupid_hashSLang_push_malloced_stringSLang_push_user_objectSLang_get_functionSLang_execute_functionSLreverse_stack SLstack_depthSLbyte_compile_nameSLang_autoload SLadd_name SLang_restart SLang_VersionSLadd_variableSLang_find_nameSLang_trace_funSLang_clear_error SLang_pushSLexecute_functionSLang_pop_user_objectSLang_push_floatSLang_pop_stringSLang_push_integerSLang_push_stringSLang_pop_floatSLang_add_global_variableSLang_is_defined SLcompileSLang_Enter_FunctionSLang_InterruptSLang_User_Clear_Error SLcompile_ptrSLPreprocess_Onlyslang_eqs_nameSLang_locate_nameSLang_pop_non_objectSLang_Exit_FunctionSLang_pop_pointer SLang_pop SLang_TraceSLang_TracebackSLang_Name_TableSLang_Trace_FunctionLang_Defining_Variables SL_Binary_OpsSLName_Table_RootSLang_pop_integer SLRun_StackSLang_Dump_RoutineLocal_Variable_NumberSLStack_PointerSLang_byte_compile_fileSLang_load_stringSLang_load_fileSLadd_at_handlerSLang_rpn_interpretSLang_load_objectSLang_User_PromptSLang_User_Close_Slang_ObjectSLang_User_Open_Slang_Object init_SLmathget_file_table_entry init_SLfiles SL_File_Table init_SLangSLang_run_hooksSLdo_popSLang_extract_list_elementSLstringize_objectSLang_Basic_TableSLarray_free_arraySLinit_char_array SLarray_sortSLarray_putelemSLang_add_array SLarray_info SLcopy_arraySLarray_getelemSLang_create_arraySLcreate_arraySLang_pop_arraySLang_regexp_matchSLang_regexp_compile init_SLunix init_SLmatrixSLang_init_tty SLsys_getkeySLang_reset_ttySLang_set_abort_signalSLtty_set_suspend_stateSLsys_input_pendingSLang_TT_Baud_RateOld_TTYSLang_TT_Read_FDSLang_find_keymapSLang_define_keySLang_undefine_keySLang_create_keymap SLang_do_keySLang_make_keystringSLang_find_key_functionSLang_define_key1SLang_process_keystringSLang_Last_Key_Char SLKeyMap_ListSLang_Key_TimeOut_FlagSLang_rline_save_lineSLang_read_lineSLang_init_readlineSLang_rline_insertSLrline_redrawSLang_RL_EOF_CharSLang_Rline_QuitSLang_exit_error SLang_doerrorSLang_Exit_Error_HookSLang_Error_Message SLang_ErrorSLang_Error_RoutineSLatoiSLexpand_escaped_stringSLang_extract_tokenSLang_guess_typeSLexpand_escaped_char jed_memcpy jed_memcmp jed_memset jed_memchr jed_strncpy jed_strcpy jed_strcmpSLang_flush_inputSLang_input_pendingSLang_Abort_CharSLang_buffer_keystringSLang_ungetkey_stringSLang_Ignore_User_Abort SLang_getkeySLang_ungetkeySLKeyBoard_QuitSLang_Input_BufferSLang_Input_Buffer_LenSLtt_set_mouse_modeSLtt_reset_videoSLtt_init_videoSLtt_enable_cursor_keysSLtt_get_terminfo SLtt_set_monoSLtt_set_term_vtxxx SLtt_tgetflagSLtt_flush_output SLtt_tgetnumSLtt_set_color_objectSLtt_smart_putsSLtt_wide_widthSLtt_narrow_widthSLtt_reverse_videoSLtt_bold_videoSLtt_set_alt_char_setSLtt_set_color_escSLtt_add_color_attributeSLtt_set_color SLtt_beepSLtt_write_stringSLtt_reverse_indexSLtt_clsSLtt_delete_nlinesSLtt_normal_video SLtt_putcharSLtt_erase_line SLtt_del_eolSLtt_delete_charSLtt_end_insertSLtt_begin_insert SLtt_goto_rcSLtt_set_cursor_visibilitySLtt_reset_scroll_regionSLtt_set_scroll_regionSLtt_Use_Blink_For_ACSSLtt_Newline_OkSLtt_Baud_RateSLtt_Num_Chars_OutputSLtt_Ignore_BeepSLtt_Term_Cannot_ScrollSLtt_Blink_ModeSLtt_Graphics_Char_PairsSLtt_Term_Cannot_InsertSLtt_Has_Alt_Charset SLtt_tgetstrSLtt_Screen_ColsSLtt_Screen_RowsSLtt_Use_Ansi_ColorsSLsmg_fill_regionSLsmg_draw_boxSLsmg_draw_vlineSLsmg_draw_hlineSLsmg_draw_objectSLsmg_set_screen_start SLsmg_vprintf SLsmg_char_atSLsmg_init_smgSLsmg_erase_eolSLsmg_reset_smgSLsmg_resume_smgSLsmg_suspend_smg SLsmg_gotorcSLsmg_write_char SLsmg_get_rowSLsmg_get_columnSLsmg_touch_linesSLsmg_erase_eos SLsmg_refreshSLsmg_set_char_setSLsmg_set_colorSLsmg_reverse_videoSLsmg_normal_videoSLsmg_write_string SLsmg_printf SLsmg_clsSLsmg_write_ncharsSLsmg_write_nstringSLsmg_write_wrapped_stringSLsmg_Tab_WidthSLsmg_Scroll_Hash_BorderSLsmg_Display_Eight_Bit Blank_Hash SL_ScreenSLang_init_case_tablesSLang_define_case SLsearch_initSLsearch Chg_LCase_Lut Chg_UCase_LutSLcmd_execute_stringSLdebug_mallocSLdebug_callocSLdebug_realloc SLdebug_freeSLmalloc_dump_statisticsSLang_free_user_objectSLang_create_user_objectSLang_register_classSLang_add_copy_operationSLang_add_unary_opSLang_add_binary_opSLang_Registered_Types SLmake_stringSLmake_nstring SLtt_tigetentSLtt_tigetflag SLtt_tigetstr SLtt_tigetnum Tgetflag_Map Tgetstr_Map Tgetnum_MapSLtt_Try_TermcapSLprep_open_prepSLprep_line_okSLdefine_for_ifdefSLprep_close_prepslang.o/ 813572382 204 200 100644 32548 `  1$hL- $:2X!-KK QX yd8Q>(}|@,S>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ @ @ ,08@(L h0x@L> 00@0$@@ \` t(0@40@ 0 U(0Q0,@D0Pl0x*0 0AI0@0@0$@@0TEd p)h A0 1 /p A6 * @ 04 < H0 T  d( p  |                $0 <@ T8l :0=00= 0Q,D TA l2                ( 4 @ L X@ t@ @` 5 @X0 @P0x @  @T0A00H0`0| @0 @0 @H0  @ @D @@  8l  H X@< l@8  8 @0 @ @, @$0 ) @  (; @@ T@0 p= @0 >$ @  ? @ @0 @0 ?0T 4+<0@ D, X@`0 hB @0 H  , @X  @0  -0 $.0 @/8  X  h T @ ,   P   d0 (0  3 $@\0 8I L@ d@0A tJ  4p @ȳTTYYRRRTYYT TTTT,PPRRR TT1 R1 R1RRRRR1 1 1RRRRRRR 1RRR 1( RR 11 TTYYRRT!TT1TT0PP1 113UR4R1 RR 1R3RR1# Ճ1ԃRRRRR RR1  p@Ӄ1RRPPPPR1 PP1 PPPPRPRRPPPPRPPPP1 PRP RRPPPPR1 PPPPPRPXӃ11 RPPPR1 PPPPRPPPRPPPP1 RRRP1 PPPPPPPp1ԃPPPPPPPP  1 RP 1 RP1 1  l22ll QQPPPPQ1QӃ10PPXQQӃPPp'1ffaaa2TPPPPPPQQQQӃ3!WW1PPP1 PPPPPPQQTP1 PPQQȃӃ3!WW1PPP1 PPPPPPQQk1 kk1RRee0PP1 1PPPPPPPPQQPPP   Ѓ3!ԃWW1WӃ0PW 0P3!W11VWWWWWԃ1 W Ӄ11 QQQQp%1$Ӄ1dd11RR1 1$Ӄ1dd11RR1 1  p&1RRRRRPPP0PRPRPPPPk0P1 /05RReeQQPPP 1 PPDӃP1 P PDTӃ1PPPPPPP11 0PhӃ1PPP1 ӃRPՃ1PRRRRRRQQQRRR1 QQPPQQRR QQQQQQQQQ QQ2f1faaQQa2]]QQ4QQQQQQbb1QQUU1+ӃӃ1111̃Ӄ1RR1 1 2QQQQQbbӃ Q 1(HPPXQQP1 QQQQQUURR8PPQQ1 QQUUHP PPP 8PPP@PPPPPP PPPP$PPPPP1 PPPPPPP1 PP1 PPP1 RR1 1QQU4UQQQQQbbӃӃ2Ӄ3I HPPPPP 11/PPPPPPPP _2"_PPPӃӃ2ӃӃӃԃӃӃ ӃӃӃ(ԃӃӃ,ԃӃӃ0ԃӃӃHPPPP8PP8@PPPՃ1P%l'7%J%4%6%8%9%:%;%<%=%>%?%@%A%B%C%D%E%F%G%H%Z%[%\%]%^%_%`%a%b%c%d%e%f%g%h%i%j%k')$DATA$$BSS$ SLang_Error$LIT$SLStack_PointerLocal_Variable_Number $$dyncallSLang_Dump_Routine SLang_doerror SLRun_Stackfree inner_interpSLang_pop_integerSLName_Table_Rootstrcmp SL_Binary_OpsLang_Defining_VariablesSLang_Trace_FunctionSLang_Name_Table compute_hashSLang_Registered_TypesSLang_Traceback SLang_Trace SLang_popSLang_free_user_objectSLang_locate_name_in_tableSLang_pop_pointerSLang_Exit_Function__iobSLang_pop_non_objectstrcpySLang_locate_namelang_free_branchsprintfslang_eqs_nameSLPreprocess_Only SLcompile_ptrSLang_User_Clear_ErrorSLang_InterruptSLang_Enter_Function SLmake_string SLcompilemallocSLang_locate_global_namecalloc lang_execlang_try_binarySLang_locate_slang_name try_directivelang_check_namefputcLang_Interp_Stack_StaticL$C0038$$remIL$C0039 lang_dumpL$C0040L$C0041L$C0042L$C0043L$C0044L$C0045L$C0046L$C0047L$C0048L$C0049L$C0050L$C0051L$C0052L$C0053L$C0054L$C0055L$C0056strncmpGlobal_User_Blockinterp_variable_eqsSLang_guess_typeSLatoiatofinterp_push_numberreallocSLang_load_fileSLang_is_definedSLang_add_global_variablestrlenSLang_pop_floatSLstringize_objectSLdo_poptry_byte_compiledlang_try_unaryL$C0067L$C0068L$C0069L$C0070L$C0071L$C0072L$C0073L$C0074L$C0075L$C0076L$C0077L$C0078L$C0079L$C0080L$C0081L$C0082L$C0083L$C0084Local_Variable_StackLang_BBody_SizeLang_Block_Stacklang_begin_blockLang_DirectivesSLang_push_stringUser_Block_PtrSLang_push_integerbuf___44 trace___45SLang_pop_stringSLang_push_floatSLang_pop_user_objectSLexecute_functionExit_Block_Ptr SLang_push do_tracebackLang_Object_PtrSLang_clear_error Last_ErrorLang_Block_DepthLang_Defining_Block do_binarydo_unaryLang_FBody_SizeLang_Defining_Functionlang_make_objectLocal_Variable_FrameHashSLStack_Pointer_MaxLang_Interp_StackSLang_trace_funLang_Interp_Stack_Ptrlang_check_space Lang_ContinueSLang_Name_Table_OfsSLang_find_name Lang_ReturnSLadd_variable Lang_Breakinterp_push_stringLang_Local_Variable_TableLang_Break_Condition SLang_Version SLang_restart SLadd_nameSLang_autoload code___122SLbyte_compile_name flag___125 SLstack_depthlang_define_functionLang_Function_Body$global$SLShort_BlocksSLreverse_stack lang_try_nowSLang_execute_functionSLang_get_function lang_do_eqslang_do_intrinsic lang_do_loops call_funptr lang_do_elseSLang_push_variableSLang_push_user_objectSLang_push_malloced_stringlang_begin_functionLang_FBody_Ptr SLstupid_hashReally_Stupid_Hash init___134SLang_add_table$CODE$lang_end_blockLang_Block_Body+`H7+`43 xTb+`TJ` 44?j+`T+`S6s@j6?Shhhhj+`h7@4+`H7+`H3(+`H3` 4?h3@TShhhhj+`6 h3@k?7k?1C@7? C?s 4&K?!C?4` `+`C?t C?K?!@4B(4&+`@K?!+`H3` 44 h34K>K?1@7?k?o@C B@t4&04@Hz+`4 h34K>@O?k?ok? C@t6?b4Ҕ4$ K>4`@t 0ғ@Hz?4cPHzd "@st?4c Hz "@sf Hz@4B 4=4cK>K? @O?k?7k?1C@7?C?d pK?`"t +`@K?!+`H3` 844 h34K?!hs4K>K?1@7?k?7k>k>k>DEC@7> 4C>f "7>.`,hd PK>K>hsK>k?'1 , 4Xh`"t +`@K>+`4 h344K>YK>K>K>@7>k?74`c?4c?7?!.`_U7?K>@7?k?7k?1k?9CD@7? +`C?t 8K?!H3` h44 h3H4hsC?4` 4hh4K>K?1K?9@7?k?74`c?4c?k?!_7?K>@7?k?@7 0k?!4`c?4c?_u7?K>@7?k?Z(7+`4?h3@K>4`c?4c?k?!_7?K>@7?k?7KS6skSCSc?CSc?k?!_m7?K>@7?k?7CS` CT#@7Z@4B *CT4` bKZ_ 4B` ҔKZ@ D4B84&KZ_4B_u@K>@7?k?7k>C@7>!4K>Hs t k>+`H7+`43 wsd@+`` K>4?h3`4s w6?+`7>ShhhhjTShhhhjT7>hhhhj6?7 7>+`K>לH3 K>YK>@7>k?7k>k>k>DCE@7> 4+`H<hC`C`s@y& :&@$ *KR4 4`8K(7@ 4hKK>YK>K>K>@7>k?7k?1k?9CW4J@4+`KSsH4 t@v`@t4T(KSJcH4@t @v4JdHBtBBv@4B Ҕ4L 4` XZ Hz@4B(4&Z@HzZ@4Bd pf 04V Z7?7?@4B0 +`4 H4H Hs6shs4J 4Hs6s?hsk?!6s?`@B@@@@@@@@@@@@@@@@`+`@7?!!XK>HsK?! (hs@7?!!K>HsK?! hs@7?! K>K?!h@7?! K>HK?! `h@7?! HK>HK?! h+`4?h3K>K?1K?9@7?k?7k>k>k?k? k?k?k?!k?)k?1k?9k>k>k>k>k>k>k>KCHCS@ldCS@f44444 4 4 5?`@`@(@@@@H@@ +`7>7>@7>K7>7>@7>J7>7>@7>I7>7>@7>H7>7>@7>G7>7>@7>E7>7>@7>D+`H3`%B @@@@@@@ @X@x#@ "VBx "VB7>VBk>ь (ZVB *ZVB7>VBk>ь 0ZYVBH 0YZVBh7>VBk>ь 8ZYXVB 8YZXVB7>XVBk>ф Z!0YX k?Z Z0Z k?Hk? k?k? Xk?k?k?ZYXWVB Zk?k?ZYXWVB7>.`k?k?ZYXWVB0k>#@@7Z+`4?h36s?`@:H@@@@@@@@@@+`K>ю` 0K>+`H3` x5?X4_ m4BPK>_ 4B87>.p_ ]4B+`4 h35?`@`@(@@@@H@@ K>YK>b K>@ ZK>b K>@ ZK>b K>@ ZK>b K>@ZK>b K>@ZK>b K>@ZK>Ɏb K>Y@ZK>YK>K>K?K? K?K?K?!K?)K?1K?9@7>k?7k>k>k>k>k>k>k>CE44Hgг6s>`@@P@8@x@@@8#@4c@sr #@7Z@4Bpд4!Hd+`H3`&+`+`C+`H+`F+`E@ZHs`&p+`@7>&K>`&@+`@ZHs`&hiH`?e+`+`H3`%+`+`H+`F+`E+`Chi@ZH`%X+`@Z@7>%K>`%+`Hs`?hS@Z4c@sr!JHg4c@sr!*Hd4c@sr! Hc+`H3`$`+`+`I+`H+`F+`E@Z@7>$HK>`#+`@ZI3`#+`@ZhiH`?e+`r#@7Z@4B@7>#K>Y@7>#xK>Y@7>#XK>YK>`K>K>sB+`I+`H+`F+`EI3`"K>Y_Z@ZI`":hh K>sH+`K>sa+`I+`H+`F+`EI3`"K>Y_Z@ZI`!bhh K>sx0+`@7>!pK>YK>г`14 +`S`@4?+`H3` +`@Z+`H3` p+`S+`Tj?j`S`_m4? +`#@@7Z+`S+`Tjj`+`T+`SJsjK>YK>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>k>k>k?k? DGF4& H4@7>!K>YK>`" t8K>B4&+`L+`K4 "4 $h * 7>_q4B_Z@HI` Is` K>Yh  @7> K>Yj K>` @i K>` 44& K>_94B K>Y@ZK>YK>K>K>K>K>K>K>K>K?K? @7>k?ok? C@s` hT+`D 4@4@zZ@4 b04 K>K? @O?k?7k>k>k>k>k>k>k>k>F@@+`TJ+`UJ7>jk>k>k>k>k>4 Hj@HH%@@ #@7Z@4BhHH+`H(Dg d +`44t(U#@7Z@4B`6??4 +`h$+`H3` 4VB+`H3`"+`@4Ҕ@s 04:@Y +`4h3+`H:4dS@4d7C?+`H3` 4`0+`464@ 6bu+`4$ # 79@4+`H3ZVB+`H36sh3@Z+`T+`S+`Ujj`j+`SJz@ +`@@+`EH`! +`4$ # 79@4+`H3ZVBH6s?b hh@Z+`T+`S+`Ujj`j+`SJz@ +`@@+`H3` 4VB+`H3` (+`H3` Z@pY+`H$x4`4&@e :@t H@4Bc @H4?ဈ@+`h$+`T+`S+`Ujj`j+`Sji+`SjjK>YK>K>K>K>K>K>K>K>@7>k?7k>k>k>k>k>k>k>k>k>k>G7X7># @79+`CHs7>VB"Hs#@7ZVB4ga+`L!`+`F!@!! cI d@7>5y@XH7>VB@ZȜ0H5ZVBH 8ZH5VBHZVB H5VB@ZH5:VB4cg~ucK=K>K>K>K>K>K>K>K>K>K>@7>k?Z 7#@7Z@4B@k?CS@c?CSBc?c?!@7?K>@7?k?+`H3`@7Hh 6s?h3+`H3` K?YVBK?Y@7?k?7k>k>k>k>F"`6e@7>"`K>YC>@7>!C>C>+`43c ` Jt Жu4&Bv Ž(7>K>JwK>Ҁ7>؀K>Jsk?JZyИVB PC>Z@4B0J?B+`4 h3C>4` Jt tK>@4B(4&C>@K>C>4` XK>Y ДK>@4B(4&K>Y@K>K>YK>K>K>K>@7>k?7k>k>k>D"`6e@7>!`K>YC>t+`43t ` Ju 07>4&K>JxK>ZyVB 8C>Z@4B+`4 h3C>4` XK>Yt tK>@4B(4&K>Y@K>K>YK>K>K>@7>k?7k>k>k>k>k>k>k>k>k>k>k>C44+`H3` 4VBc+`4?h3+`STJs`/+`+`M+`I4+`L+`K+`J+`H ZJ`/PI` 4I3` IHi%`084@s`@@@8@@h@X@@@@P@ @ @ @ @ @ @ @ 0@ 8@ @@ @ @ @@ @ h@ X@ H@ 8@ (@ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @`@ 4cHzZIs S_4B h@z_4B P@7>Q,4@7>Y"2k>y@s6s?`@(@p@@@@@@@@p4?K>Y` 0K>QK>Y`!PK>Q`!HK>y0k>yK>YK>Q k>yK>YK>Q k>yK>YK>Qk>yK>YK>Q Sk>yK>YK>Qs>s@֔Xk>yK>YK>Qs>s@Ҕ k>y4?iS 04K>y_A4B_HzIS`(+`H3`(zHz4_]4B`Hz_4B@Hz_4B0@sc>@sc>C>f Hs.`7>!.`k>!@t4&@P4"b8Y +`@ BB:@s4!b@ 4!4 4 A4aYRGHsh3+`H4 Hsj?鐀0Y_a@zX4@7>a&@IK>a`&*Hz@7>i&IK>i`%HzZ #@7Z@7>q%IK>q`0DH@4`I@z0Y_-X 40DIZ_4B@z_E4B@7>Y;40@t K>Ys04k>Y ` k>YK>Y^4BXHsJzH_4B8@s6s?`@*@@@@@@@@@@tHsJzH^=4BPHsJsHHsJsHJsJz^4BHsJsH.`^4B@t4&HsJzH^4B#@7Z@4Bi%iii%iii@7>#x4@7>1#X4^7>7>1^4B@7>y8K>y`!4c4HssIt tB` #@7Z@4B@Jk>!4 c>4`0c>Hsk>!4`c>4 c>7>^u4B@t+`H3 t Jz?A@ @4Bx#@P7Z 8#@@HIS` 4 I7Z@@I4c+`TJ`0+`TJ`!4!K=Jd Jb +`EH6thD+`SJfj`@HHd@:h+`H3` @4Z@4B +`h$+`h&4K=K>K>K>K>K>K>K>K>K>K>K>@7>UCS` 04B t t 03`?B+`S`3s` P@<ғ`3@3` (@<CS`3+`@@<@k?ok? k?k?k?!GC 7 +`e h@3f@dГf 4z@Y 0\ 4cPe?@de(\K>K? K?K?K?!@O?k?oD+`T4@j+`T6+`SBsb7Z@YK>@O?k?ok? k?+`H#` D+`E@s JsX PH| s ZY @Hw˜ C` K>Hc`?}@+`SBt+`U6t `7J s +`48ZY  @4 K>K? K?@O?k?o@C+`H8 @+`ZY@H7 C` \@ZX\K>@O?k?7"`U4 6}4244H4B4~6??svH6?sv06?r ғ| y x(w B4?6?? U 4<@ 4@K>Z#@7Z@@4K>@7?k?ok? k?k?k?!DGE@F"K>@Z|#@7Z@4B@tB 6?b:гt (+`4 h3Z@4Bh@s` P4z!*@t@4 @HzH HzH@4B@Y+`TB`sB+`X7 v v +`S6t  4!, k?' 9(W/K?K? ҵjkhgH`f@`eBK>K? K?K?K?!@O?k?oD@ZZY4_4K>@O?k?ok? C+`UJb`+`DH7TJ @4 CT *@@+`43h+`` (H9+`Z4_ @7+`H3` K>+`h +`H:@ S@@+`Sj`+`Sj`+`T+`SJsjK>K? @O?k?7k>k>k>k>k>k>+`H3` +`+`H3` +`H36sph3H3b`47> b`6_j`+`HI+`GH+`CHd7>hshi@Zih hd+`D+`CH6?h@J? HH@JzHHs?HK=K>K>K>K>K>K>@7>k?@7\ 2CS` "CSBn _ 4B(l H4^@+`H3` 4@44K>@7?k?@7ʜ K>B` 4BB0\@7?k?o@C+`H8 @+`ZY@H7 C` \+`@4+`43t `7H3 s +`48ZY  @4 X\K>@O?k?ok? k?k?C4ȹ!X4"`6y@tҔBss @@ @ss4t #@7ZY@4 @sd4h@4^@@s` r@ss4t +`H44?H44.b+`H3Xj`@ss4Lt 4c4 Z@4B@Z K>C` 4 HCB+` H44*Hb4,0b+`H3buH4C@b +`H4KHjH3j|_M@4K>K? K?K?@O?k?7+`@49˜4hK>ه`4 4+`H3j`b|H3_ubt4K>@7?k?ok? C"`6y@tҔBss 04@@ "`x40"`6y@tҔBss 0"`@Z "`426y@tҔBss 04@Z "`4"`6y@tҔBss 0"`@Z "`046y@tҔBss 0"`@Z "`46y@tҔBss 0"`@Z "``46y@tҔBss p4@Z P44+`H3bdH3btH3_ j`4K>K? @O?k?o+`H3` #@+`H3` +`7Z@4BT4j+`S4jz+`C@4 h|#@7Z@4Bh+`T+`UJj+`T+`SJsjjK>@O?k?o+`TJ6s?j+`UJb`+`SJz7TJt ZCC4s?ߎbt4 0+`@@+`43 c +`H3 X+`+`H3` +`H46h3+`H4U+`SJs s S+`T6 Jj+`UJjJ4bbj+`6h3+`H36s?h3K>@O?k?o+`H44: @H3#@@7Z+`4?h3K>َ@h+`44 s S +`H3j+`H3j+`H3j+`H3` 0+`T+`SJs0j+`T+`SJsj+`S4 jz+`C@4 (h|+`4?h3K>+`TJ6sj+`TJ6sj+`T+`SJsjK>@O?k?ok? k?DC+`EHj`+`S@6yӓ` hHs` xH6t?Bs?r #@7Z@4Bpb+`Ph4` +`X4+`H3` "`6y@ҔBss 0+`@Z +`p4$H3` h"`6y@ҔBss 8+`@Z +`4"+`H3` h"`6y@ҔBss 8"`@Z "`h4 "`6y@ҔBss 4@Z h44&4hs+`H3btH3b`Hd_ Mh`hd4K>K? K?@O?k?7@4 ˜ c k+`4?h34K>@7?k?7k?!k?)C0@ b5Ҵ4Z x4?@4V 0z4z b5Ҵ 4R0z4: b5Ҵ4Z 4 0z4" 4@Z˜ +`C` "4h3Z@4BCB (ғ+`4h34z :b 2| (+`4 h3Z@4B8 @VB@t P4V+`4h34 4B4LKH+`H3`  +`H3` X4+`H44bH3buH3jv6s(h3c?c?k?^q7?4K>K?!K?)@7?k?ok? k?k?7?!,0,C44@0H DГt!4d "@ZE(Ff +`@Z0H +`H3` XГ+`H3` 8Гd 1HZ^4B^ 4Bf x+`@4+`H3 (j|+`4?h34H3Js.` H3je+`H44bH3bdH36sh34K>K? K?K?7?!,0,@O?k?o+`S+`TJsJ sp@#@7Z@4B8+`H3` `+`S+`TJsJ Sc4t+`SxJs+`H3`!+`S+`TJsJ Sc4t+`SJsa24c@#c\(+`+`4?h3K>H3` X+`Sjc+`U+`VJJ tXj+`Sjc+`U+`VJJ tjS` z jK>@O?k?o@D@Z˜ K>C` h4CBn Bn@l 84(4?z 4?4?4K>@O?k?o@D@ZS` 4B| \K>@O?k?o@C P4_U@<Z 44_Q44K>@O?k?ok? k?@D!+`H3`!b@Z+`H#+`H3` `E4d@4P| +`#@7Z@4Bh#+`EH Z z 7Z@YH s s +`TBbtH s s 4btBH s jtH6h@ZK>K? K?@O?k?ok? C@sd4D P+`@@7? Bs d8b4c+`H3` (+`H3` Z^ A4B@Z+`H4 xj+`H3` 4+`H44`b+`H44bH36sh3K>K? @O?k?ok? k?k?F+`TJ4?j+`T"`6sj+`T+`S+`Ujj`j+`SJs` *C_ @Hs` +`H3` +`CHs` H+`_A4@Hz +`@Hz+`DH` (+`C@Hzhh`+`h +`h%H3 +`+`S+`T6Jst H+`D+`S6c@@H c(+`V+`U+`T+`S6sjj 0j+`T+`S6sj+`h K>K? K?K?@O?k?7k?!B44F B36s?`` k?#@7Z@4BK?` K?7?@4BЌb K?@4Bd `K?+`H3 4x4@4Bh#@7Z@4B@6?k?B56? S s!6u?B3 u  S s!6u?CS u +`H66? 0k?J?%K?6s??k? J +`H5BBbH5B@bH3_jt4K>K?!@7?k?ok? k?k?+`H3`"8C@s`" Z+`@49 8+`4$4`34F`4`Z+`@49 8+`4$4`34F`P4b@Z+`H< @4+`ZYX@H7#+`+`H$ +`F@ JsX PH s ZY @H˜ C` X H?u4@Z˜ C`"+`\H |k?' 4!,  9IW'HK?W+`T64b4Fc4`c#'Y79k?' 4!,  9IW'K?U4 7 uҶ  S s! x7c k?' 4!,  9IW'K?U4 8 uҷ  S s! v6ck?' 4!,  9IW'K?U4 3 5Ҵ t S s! w6cXc 4$4`34F`4d`4@Y\K>K? K?K?@O?k?ok? k?k?D@У`%4_ }@+`H3` д4s 4Ds 4s Z_4+`+`C@4yHs` F (+`0+` +`+`4h3+`h д4 X+`+`h 4@40 0%д4#+`H3`#Ҍ#+`+`UJ` 8д4 Zxj_-4Bh+`H3 4DZ_ )4B0 дZ_4B4t X+`H3` @+`H44(bH3j`6sh3д4R p4+`H3b P4+`H3` #@7Z+`4?h3 (д_@+`h 4 H+`H3` 8д_@+`4ph3д4P д_)4B@4 +`4h3@Z +`@Z +`д4r@04z@Z +`д4z@(Z@Z X+`Z@4 0+`4h3Z@@+`H3` (K>_%4+`h K>K? K?K?@O?+`H<+`43 |@Ӝd+`H3` H44+`464Bs bu0`?Bs+`H3` H44+`464Bs bu0`?Bs@k?ok? k?D@ 03+`44 Bs` C4xH|Hy ZҥC3s Z@790 p0 ?C34K>K? K?@O?k?ok? k?k?k?!7?1,0,G+`TJ` D4jT4+`474? 6_jv+`h +`444 `34"b4$b @4Xȼ+`4hCHsh4@Yhe4X444? 6_jvD C"fٙ6s k?' @s` @4z`|Ӝ :k?'9 G'HK?3j4P?eCk?' 4!,  9 W'HK?3h4K>K? K?K?K?!7?1,0,@O?Variable uninitialized.Function requires too many parametersBlock needed for while.Block needed for for.Unknown loop type.Function did not autoload!Local Variable Stack Overflow!>>%s <<%s S-Lang Traceback: %s Local Variables: $%d: ??" Object Ptr is Nil!Operation undefined for type.Block needed.Unsupported Type!Local variable pointer not initialized.No User BlockNo Error BlockName SyntaxName too long.Table size exceeded!EXECUTE_ERROR_BLOCKX_USER_BLOCKnot~chssignabssqrmul2Function nesting illegal.Calloc error defining function.Block Nesting too deep.USER_BLOCK4USER_BLOCK3USER_BLOCK2USER_BLOCK1USER_BLOCK0EXIT_BLOCKERROR_BLOCKorelseandelsedo_whileswitchloop_forforwhileforeverelseif!ifInternal Error with block!continuebreakreturnexchInterpret stack overflow.Lang: calloc error.Illegal name.NO|xorshrshl&modorand!=>=>==<=</*-+&BACslparse.o/ 813572385 204 200 100644 21168 `  1RhLS0 bR:=X!5@5@ ]X O8 ]>(R@, _>(R@ 8D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ @  @(8 L\ht(40H1T` l.0 / Q 2,@ L/pdx 0 , H  X@ d x @  @  @  t - @  @0@  @  @4 DD `@ p @    @ l   0102T 0@ D@ \h x@ 0 @ 4 @ , @ (0@3  !0 @ RRRPP2TT1 PP PPԁӁ4 SS1   PPRPPPTPRRԁPR(ӁR2PT8Ӂ1TPSPP<ӁSSPPPTTPӁ  PPPPPPPTӁPPPPPPPPSS2PPPPPPPPPPRPPPPPRRԁP(ӁRRPP<SRRXӁ ՁSSPPPP\ӁRRRPPXӁ PPxPSSԁRPPTPPRց2RRT1Rx PPP4!3PP2P1  PPPP0PPPPPPTTӁ1PPPPTTӁTTӁPPPPӁTTӁTӁTӁ PPTTӁTӁTāӁ PPRRRӁPPR(ӁRRPPP2PTRRRPPTRRRԁӁPPRցӁRRPPPPPPxSTPSTӁ1PSPSSPTӁTRRRPPTRRRԁӁPPR(ӁRRPPP2PTRRRPPTRRRԁӁPPRցӁRRPPPPPPSSTPSPTSPTRRRPPTPPSSPRPPPTPRP8TӁ11)PTPPRRPTӁPSSPPTTԁӁPṔӁPP܁ӁRRRӁPPR(ӁRRPPP2PTTӁ1PPPPӁSSTTTӁRRRPPTPP1PSSPPPPSSxӁPPSSPPSPPPSPPPPP\Ӂ TTӁ1PPSSTTӁ  PPTT ӁPPPP PPPPPSSRP(PPTPPPRRRԁPRՁR2PRցPRցRPRRT1SPӁSP   SSPRP(PPTPRRԁPRՁR2PRRT1SSP PPxӁRRRӁPPR(ӁRRPPP2PPPRTT1RRցӁPPR(ӁRRPPP2PPPTPP PPP PӁPPPPPPPPTRRRPPT1T8ӁPPPTRRRPPTT@ӁTRRRPPTTTHӁSSPSPSPSPSSPPLӁ1 x SSPdSPPӁSP3+3 0TT ST1STS  (PPSSPPP PP2PPPPPP PPP2PPP  TT SSPPPPPPRR PPPPP PSPPPP3PP P P P1PSPP2 P PPPP PPPPPPPPPPPPPPPPPPPPPPPPPPPPa2aPPtӁPPԁ2ԁPPӁPPԁԁPPӁPPԁxԁPPӁPPԁāԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁԁPPӁPPԁȁԁPPӁPPԁ́ԁPPӁPPԁ؁ԁPPӁPPԁPPPPӁ3"ՁPԁPPӁӁPPԁ2ԁPPӁPPԁPPPPPPPPPӁPP   PPPPPP PPPP PP1(P PP PPSSPPPSPPPSPPPPPPPPPPP PPXX__21*3$RR ^^1XX11]] X ӁX2Ձ1%SSXX11#1SSRR (PPSS21SS8Ӂ4 1 $Ӂ3 81SS 0PPSS 4PP1&PPPP1' ,PXӁ2PPP2PPP 0PP\\\Ӂ3 `2ԁ ,PP1 dӁ 0PPPӁ2PTT1 TP2PPP1PSӁ3 S8Ӂ4 1 %I$BSS$$LIT$$DATA$ SLang_Error SLcompile_ptr $$dyncallstrcmpstrcpy__iob SLang_doerror SLcompilesprintfSLPreprocess_OnlySLang_User_Open_Slang_ObjectSLang_User_Close_Slang_ObjectSLang_User_Promptfputs SL_Binary_OpsSLang_load_objectfcloseslang_read_from_fileSLang_extract_tokenSLang_rpn_interpretslang_read_from_stringstrncpyfopenfast_extract_token__flsbufSLang_byte_compileslang_eqs_namefreeslang_close_objectSLprep_line_ok SLadd_namestrncmpslang_open_objectfgetsmallocSLbyte_compile_namestrlenSLprep_open_prepSLang_add_global_variablefflushSLexpand_escaped_string pop_tokenCTok function_argstry_multiple_assignment push_tokenGet_Token_Read_Fun This_SLpp expressionSLang_eval_objectLLTTokenSLadd_at_handlerat_handler_name parse_errorhandle_special_at_line Name_Stack directiveLook_For_Muliple_Assignmentblockblock_internalInputtermbasic arguments pop_eqsnameSLang_load_fileSLang_load_string Name_Stack_PTerminate_StringL$C0000$global$Slang_Line_Lendefining_variablesbyte_compile_fpNum_Pushed_TokensSLang_byte_compile_file$CODE$ get_token Token_Stackk?7T4 7>4Zc>(7>4 4z4VS"4zS"+`H979?h99+`43@ y +`H37>VBK>Y@7>k?7k?!C+`H7+`H37># 79@Jx0` +`H3` c>@7>K=K?!@7>k?ok>k>k>k>k>k>k>k>A 4+`H36s=b@T4 +`D4 ! +`E4D+`S6g+`FJk!(4 Hj@ 4ch5:_4HBssh (H#@7Z4_4B07ShZ @Hb 0H#@7ZVBHHVB@+`+`H4 #@7Z_4+`H3` K>Y@@+`TH36s=b5J@@` p+`H3#@7ZVB4c? 0K>Y_44c?`'K>YK>K>K>K>K>K>K>K>@O>k?7k>k>k>k>k>k>k?k? k?@l4+`EH4 s 4s!4s +`@ @+`H:@HH4 #@7ZHY+`4Hh3T+`SJJy@$@X4H44!(4 +`H3Bss4Dt (7>+`4h34@H9@@+`H44?+`S+`CJz@Hy7>@4Ht4 %(4@ 4 +`H36s=bHT4 +`E4 ! +`H+`S6g+`FJk 4 Hj@ 4h5:_4IBss4Dt #@7ZH7ShZ I@4BH #@t +`H6h֔"` 6sb6b5"b6"b5"b 47Z_4+`H3`"4@HH6s=bT+`H44 #@X7Z4 s +`H46h3֔+`45"` 6sb6b5"b6"b5"b4@@+`H44 4!`#@@dH#@@+`H3`!@44?!(! +`E+`S6h+`G+`S6fH95:@   Z_%4BHH7Z?hZH VB4??eH 47Z_44K>YK>K>K>K>K>K>K?K? K?@7>k?ok? TC+`@3` P4$ZY4 @4"ZY@4>`>K>K? @O?k?7U4Dc;4 `7;4D4ғt 2 w( v8V"T"4?ғ4DS"4@S"+`@49@7;K:@7;k?7k>k>k>k>k>k>k>k>k>+`4h3+`H36s=`@RH@@@ p@`@P@ @@ @@@ @@p@P@ @ @ @ @@ (@@@+`@Hh @@@+`H44 (4Z@|@+`H44Z +`_e4BH3#@7ZVBXK>Y@@+`h +`H44 @4B@(@+`H3#@7ZVBK>Y@L@@@+`H3#@7ZVBHK>Y@@@`@+`H44 (4\@@+`H44\ #@7Z4@L@+`CHs#@7ZVB@@Hs#@7ZVBHs#@7ZVBK>Y@ |@+`Sj`+`CHs#@7ZVB@@Hs#@7ZVB@`@Hs#@7ZVBK>Y+`Sj`+`UJ4Ɗ@"j#@7Z_ 4+`H3Bss4Dt (+`#@7Z4_ 4BPH:7Sh3Z+`43+` z @H9@ l@@@@@+`T+`SJz7Z?jzZ+`S6s J+`UJ4Ɗ@"j#@7Z_ M4+`H3Bss4Dt (+`#@7Z4_4BPH:7Sh3Z+`43+` z @H9@ @+`H44,#@@ 44 k>k>4k>+`I7>+`G!`+`F4 I3`,b D H5zVBHe @P@I3` PH+`Ch 2@@@@Hs`?He+x#@H7ZVB@4@@ @+`T+`SH:7Z?jzZ+`S6s J+`UJ4Ɗ@"j#@7Z_4+`H3Bss4Dt (+`#@7Z4_4BPH:7Sh3Z+`43+` z @H9@@@ @+`T+`SJz7Z?jzZ+`S6sJ+`UJ4Ɗ@"j#@7Z_u4+`H3Bss4Dt (+`#@7Z4_4BPH:7Sh3Z+`43+` z @H9+`H44d @@@ P4B@@+`H3` p+`+`E4+`CHd 0+`@ @Hs`?H+`T+`SJz7Z?jzZ+`S6sJ+`@H$4+`H3`" +`I4 +`H+`S6j+`G4h+`EI3k!IZ Z @H` R 8#@H7ZVB4@H HHVB@T@I44 4 I6s 0i#@H7ZVB@4@H@_Q4I44 *@@+`H3`>MI3` H4h @+`+`H3#@7ZVB+`H44 $8#@7Z4@@+`H44 #@7Z4+`UJ4Ɗ@"j#@7Z_4+`H3Bss4Dt (+`#@7Z4_4BPH:7Sh3Z+`43+` z @H9@p@+`H3#@7ZVB+`H44 (4_@+`H44 (4 (#@7Z4@P@+`H3`!K>Y+`CHs#@7ZVB+`SJz7Z?jzZ+`S6sHt z VBK>Y+`CHz@7Zh|+`SJs` K>Yh`@P4B+`CHz_ U7Zh`+`SJs` PK>Y@4B8@`4B(#@7Z4_i@K>YK>K>K>K>K>K>K>K>K>@7>k?ok? k?k?k?!+`H44 @x4BH@@+`H3` +`H44 C44 +`E4Hsg h+`_u@Hsf @0@H` +`H3d?Hs+`H44 "#@7Z4_q4B@@K>K? K?K?K?!@O?k?7+`H3#@7ZVB+`H44 _4B@@+`H3` @K>+`H3#@7ZVBK>@7?k?ok>k>k>k>k>k>k>k>k>+`H44 X4 +`H3#@7ZVB@@+`H44V@(D_4B4xh3H4s X+`H3` 04 _I@$(K>Yh+`4h3@P@+`H3`#K>Y4 +`C4 ! +`D4D +`S6e+`F+`H4"H@`4 @(4.axHsBbB4"bHs2@(4 b4"K>YJ4b84Bp4"hK>Y j@h`5:_4HBssh Hz44_4B07ShsZ @H@@@4Bj@h`5:_4HBssh Hz44_4B07ShsZ @H@@_M@Hz7Z?hzZH VBh+`Bs4tt B`;+`` 8#@7Z4_4BH3`<+`K>YK>K>K>K>K>K>K>K>K>@O>k?ok>k>k>k>k>k>k>k>@Xk>+`H3`!K>Y+`L4 +`C4 ! +`E4D +`S6d+`FIfaHK>Y`Pk!2Hsj@h`5:_4HBssh Hz44_4B07ShsZ @H@@@@Hz7Z?hzZH VB+`H3`>IK>YK>K>K>K>K>K>K>K>K>@O>k?ok? k?k?k?!k?)+`H44!b@'#@ :4((4)#@+`UJ4Ɗ@"j#@7Z_4+`H3Bss4Dt (+`#@7Z4_94BPH:7Sh3Z+`43+` z @H9@ @_E4B+`H:CSs4Dt 8+`+`H3VB@4BUJ4Ɗ@"j#@7Z_ 4+`H3Bss4Dt (+`#@7Z4_ 4BPH:7Sh3Z+`43+` z @H9@ @+`H36s=`@R@@(@@@@@@@@@ @@+`+`@ pH#_@Z_ 4BH@ 8@4@`4B+`SJg4+`C4 4@ @Hsh$46s=bHse 4 `2 @ P@+`FH44!(+`@ @_@+`EHH@ h@4+`G+`SJz7Z?jzZ+`S6sH z VBH#@7ZVBhhS@ jg@4+`C+`SJz7Z?jzZ+`S6sHt z VBHs#@7ZVBK>+`T+`SJz7Z?jzZ+`S6sJ z VBK>@p@_@+`H3#@7ZVB K>+`H3` +`C4+`DHs6s=bP+`@@Hse _@H`?Hs+`H3`8+`H448#@7Z@4B8i7Z_4K>K? K?K?K?!K?)@O?k?ok? k?k?k?!k?)D+`H3` K>+`C4 4 +`EHsd @4Bh Hs@4BHg 46s=b4_i4B_ -@H`?mHsK>K? K?K?K?!K?)@O?k?ok? k?EH#4c?`@D4Cs4Dt ZYx @4B(Y@Xd b`4sH h4K>K? K?@O?k?7k?k?k?!k?)k?1k?9k<+`H4"`6s (4CSs4t ("`"`6c7Sk<6c+`D4J+`GK<7<7=XVB bH` PC=sh 8H7=VBH`?gK<\KK? K?@O?k?ok? +`CHy 79?hy+`S 9 +`T6Jz@ +`THs s  H@j44K>K? @O?k?ok>k>k>k>k>k>k>k>k>+`H3"6 t(4 +`H3` +`4h<_5@ +`H<+`H5 P4 J+`H3 06s +`H4J uj8+`C+`G+`J+`I+`H+`F4Hs` H4zH@ X HBssl!@+`+`DIZKS06skS0I<VB h|I` Hzh\@H?mIZHsBss4\t4HsBss4t>Hs+`@3`>Hs4~hH4B`&Bs6s?`U@`@p@`@P@`@0@ @@@@@@@@@@@p@`@@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@@@@(+`+`40h<+`4h<+`4 h<+`4 h<+`4 h<+`4 h<+`4 ph<+`4 Ph<+`4 0h<+`H3Bss4Dt,+`H:+`@49˜ (+`˜43  j|"`6z+`H9BtҔC3s @"`@@ "`+`4l h<6z+`H9BtҔC3s @"`@@ "`+`4X h<6z+`H9BtҔC3s @"`@@ "`+`4Z h<6z+`H9BtҔC3s @"`@@ "`+`4^ xh<6z+`H9BtҔC3s @"`@@ "`+`4\ h<6z+`H9BtҔC3s @"`@@ "`+`4h hh<6z+`H9BtҔC3s @"`@@ "`+`4fh<6z+`H9BtҔC3s @"`@@ "`+`4pXh<6z+`H9BtҔC3s @"`@@ "`+`4bh<6z+`H9BtҔC3s @"`@@ "`+`4dHh<6z+`H9BtҔC3s @"`@@ "`+`4zh<6z+`H9BtҔC3s @"`@@ "`+`4|8h<6z+`H9BtҔC3s @"`@@ "`+`4th<6z+`H9BtҔC3s @"`@@ "`+`4(h<6z+`H9BtҔC3s @"`@@ "`+`4h<6z+`H9BtҔC3s @"`@@ "`+`4`h<6z+`H9BtҔC3s @"`@@ "`+`4rh<6z+`H9BtҔC3s @"`@@ "`+`4nh<6z+`H9BtҔC3s HC@@ +`+`4vh<CHzCSs4t "`# 79@4 `"`HtB6s?h2B` ("`+`4xh<"`6z+`H9BtҔC3s @"`@@ "`+`40h<6z+`H9BtҔC3s HH3@@ +`+`4h<H3Bss4t @#@+`4Xh<+`4j8h<7Z^m4+`H<24K>YK>K>K>K>K>K>K>K>K>@O>k?7k>k>k>k>k>k>k>k>k>k>k?k? C+`FH+`GH+`HI+`EH+`SJi+`DH@7>!7>hh`0h`8Hs(h4s8hhi4_hs@+`H3` +`+`D4+`H4 4+`EH `I j`@jf@_4B Hc ^@H`?H+`h*+`h++`h)+`h-+`h.+`h,K>YK>K>K>K>K>K>K>K>K>K>K?K? @7>k?ok? DH+`43s 0+`H:@ @4y @4z H 4@HK>K? @O?KS 4` 4?kS+`@H<K\T3` t 3` KS6s?kS@kT@k?o+`H3` (CVB K>Ht4 J@4 04r4 `4P4Hz+`43S @@@Hz h`4K>@O?k?o+`H3` 0CVB˜"8K>ه"*Ht4 R@ 4 @"`44!P"`4"`6shs(Hs` +`Bs` 0# "`6shs438hsHz@79 h|4@4 Ph| +`4?h3Hz+`43S 4@4B?Hs hsx46shs(Htht ht3` (4`03` hu4K>@O?k?o@C˜pK>_MZ@Z+`H3` +`h +`h +`H<K>@O?k?7: k>7<@4Bc<7@78k?7k<4k<@7<+`H3` K<@4K KK? K?@O?k?7k>k>k>k>C+`K3h378# 79@X78# @79+` (h<@78#@7Zk:4k:)+`T4j+`E#@7Z@H+`D"`6sh@7:F"`6shHK36s?``k34@4B8+`H4J6j4b+`@H: 8+`7K>K>K>@78;Line %d: %sName stack overflow.Invalid Name[Expecting comma.])popUnexpected end of source.Syntax Error.ifreturnelseExpecting while.{}do_whilewhileExpecting EOS.Expecting function name.(Expecting '{':Expecting ';'Incomplete Statement.aputagetchsUnbalanced parenthesis!Incomplete list!ifforevervariabledefineforloopswitchorelseandelse+=-=_fordoERROR_BLOCKEXIT_BLOCKUSER_BLOCKcaseglobal_variableIllegal Name.rError opening %s.S-Lang Error: line %d: file: %s .@%scwError opening .slc file for byte compiling.@Error opening %s for byte compiling.slmath.o/ 813572386 204 200 100644 4024 `  1hL-8T: X!   X  8>( (@,.>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$  0, @ d@px   4 T (t 8 H X h4 x T  @  @ (4<0P `t p| @RR231   1    1A31  1#R1$1%R21ԀUUӀӀ2' ')'''''''!''''% %"'& $LIT$dmath1 SLang_ErrorSLang_pop_floatmath_floating_point_exception$DATA$expcossignalsin $$dyncalltanlogatanpowacoslog10asinsqrtmath_cosmath_sinmath_tan math_atan math_acos math_asin math_sqrt math_log10math_logmath_powSLang_pop_integerSLdefine_for_ifdefdmath2Const_Emath_expConst_Pi SLang_popatoffreeslmath_do_floatSLang_add_table init_SLmath math_poly$CODE$$global$ slmath_tablek?7+`4h34# @79K>@7?k?7k?1C7?7?!@7?) @0H7?JyJzVBK>K>K?1@7?k?7k>k>k>E7>7>7>Y@X x0H7>Y@X H0H7>Jy?Jz?7>JJVBK>YK>K>K>@7>k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7#@@7ZK>@7?k?7k>7>,0-,0,"`6s.` 0H 7>7>@7> 0H@7> 0HK>6?@k>7>7>7>@7> J,q1N1 7>.1N K>6?_k>1HK>YK>7>,0-,0,@7>k?77?1,0,0H @7? 0HC?d K?!k?'1 f 7?!h.` t H+`@K?!C?4` (0H K?!@4B4 h31HK>7?1,0,@7?k?74# @79#@@7Z (+`4:# 79@4B4K>@7??SLMATH_Math@ Wi@ !TD-.polynom.sin.cos.tan.atan.acos.asin.exp.log.sqrt.log10.pow.E.PI.floatslfile.o/ 813572387 204 200 100644 3580 `  1 hL|"\H4 :X!| X  l8>( x@x,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$h $ A0 D@P`lx A,  x  4L@ ALX d t@ @ @ @ 0 A  0PP12UU# 12 1PPPP21 8 1 2 13 1 221PPR1RR1ԁ TTӁ2 '' '''%%% SL_File_Table$LIT$__iob check_handle$DATA$ SLang_Errorfilenostrncpyfree remake_stringfopenfcloseSLfclose__filbuffile_process_flagsreallocmallocSLang_push_malloced_stringSLang_add_tableSLfgetsfputsSLfputsfflushSLfflush slfile_stdin slfile_stdout slfile_stderrSLdefine_for_ifdefSLFiles_Name_Table init_SLfilesSLfopen$CODE$$global$get_file_table_entry+`4<7Ѓ"K 7K4@k?7Z79Z@4B@@Z@ \+`4?h3\K>@7?B3`!4444V444su u@Jt zt@y ן@4x `ן?@4w v 8ן?@4ןן?ן_B3`?=s@k?ok? k?k?F_D| 4?@Zȼ Z@Y\ @hzh|he+`44 "`6s.`k?' 9(W/K?K?Ҽ4?K>K? K?K?@O?KZ4:S Z S@4+`44 J 4J  \@k?ok? 4@?| P4Hz@ @@'4h`4?hs\K>K? @O?k?7k>k>k>k>k>k>k>47<7>4@4˜ 4?KH6s?`` h@Z EH6hB 7< pZ@4|  ?=Z@4B?)H7<Y@44? "7< d Z 4@ |  >Z@4B>y7<@X  b`@Z\KK>K>K>K>K>K>@7@O?k?7@4˜4?(K>@K'4K>@7?k?ok? +`4#44:4? Ss 6_jv+`D@4h|4hs4hd4c@4 h|4hs4 hs4c@4@h|4hs4@hd#@@7Z (+`4:# 79@4B4K>K? @O?SLFILES_Files.fopen".fclose.fgets.fflush.fputs".stdin.stdout.stderrslstd.o/ 813572390 204 200 100644 20268 `  1O,hL ,R \O,:X!(((( X E8>(E 0@ 0,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$  @,8L X@d| U(DT`l 0@ Q%<( UD"Xt U# Q$ Q8LXp    `  p     $  4  H X l | P   L 0 L( D\T`l t  0Q Q< |Xt Q!8 " " @   @  0@ D0\l$8Pl 0 d  d 0 < X l|  |0Q  @ @  & @  h 0 'h ( 4@ L1$11)11 1)2( 1 241221PP1 1RRRR1RRRRR23'11 PP143'RR1RR1 PP12412!2#2PPPP23H1 1 1Ӂ11*RR21 1 PP4RR11 PP142# 11 21PP2!1 11 21PP2!1 121 TTThh TTTjj 42(111 4PP3,112111111PP1VV3 VPP21?PP(Ӂ1111 1 0 V``XӁ3 V: `11*1$1C1 11)PP1/1 PPP1EPP1G\Ӂ1 21VPP1 P2#1Pgg3+dd1 0 TTaaa`XhVp]/`X3 hV: pxӁӁӁӁ4 ]1]] (P12P3 1 XӁ3 ՁӁ21Ӂ1 3I3JӁ1 23 1: 1281L23 1P2MP1KTTTPP1  1PP1 RR RR 13,PRRR1SӁ11PPR3TRR RRRPPR11X3PP;h&1,PP0v*;h&%113%3"203"ЁӁff؁2Pԁ1.ԁ1-ԁ0x0wPP=''`'7'y'9'B'/'D'u']'a'A'b'F'2'@'3'['Q'R'z'U'W%c%d'Y'<'e'f'g'h'8'6'4':'t'_';'i'j's'N'k'l'O'5'='m'n'>'o'p'q%r%Z%\%^ SLang_Error$LIT$$BSS$freeSLStack_Pointerstrlen$DATA$SLang_pop_stringSLang_push_integerSLang_pop_integersprintfSLang_push_stringSLang_push_malloced_stringSLang_Dump_Routinepop_two_stringsmallocSLang_Registered_Types SLRun_StackstrcpyreallocSLName_Table_Root $$dyncallSLang_Basic_TableSLang_Name_Table Chg_UCase_Lut SLang_doerror Chg_LCase_Lut SLang_pushunary_op_functionSLang_pop_non_object float_bin_opSLang_register_classstrncpySLmake_nstringSLang_add_binary_opstrstr SLang_pop int_bin_opSLang_push_floatdo_trimstrcmpSLang_free_user_object SLmake_string lang_apropos1strncmpSLdefine_for_ifdefSLadd_variableSLang_is_definedSLang_add_unary_opSLarray_free_array SLdo_substr SLdo_issubstr SLdo_strupSLquote_string SLdo_strlow SLdo_strcmp SLdo_strncmp SLdo_strlen SLdo_isdigitSLdo_int lang_aproposuncomment_stringset_float_formatSLatoi SLdo_integer SLdo_char str_replaceSLstringize_object SLdo_stringSLang_execute_functionSLdo_dupgetenvmemcpySLang_pop_floatSLang_pop_pointer SLdo_sprintfSLreverse_stackSLexpand_escaped_char SLsprintfmake_printable_stringSLang_add_tableSLang_extract_list_elementSLang_is_list_elementSLang_regexp_compileSLang_regexp_match string_matchputenvstring_match_nthsystem my_systemInteger_Type_Var SLdo_strsubString_Type_Varlang_putenv_cmdFloat_Type_VarSLdo_strcompressSLdo_popSLang_load_fileSLang_load_stringSLang_Traceback SLang_TraceSLang_trace_funSLang_create_arraySLarray_getelemSLarray_putelem SLarray_sort SLstack_depthSLinit_char_arraySLang_byte_compile_fileSLang_define_caseSLang_clear_error SLcopy_array SLarray_infoSLang_guess_type SLang_Versionlang_print_stack SLdo_strtrimlang_getenv_cmd$$divISLang_init_case_tables SLstupid_hash SLdo_strcatgeneric_equalsSLang_run_hooks elem___74 regexp_regregister_types Float_Formatset_utility_char_table$global$ init_SLang$CODE$Utility_Char_TableSLang_autoloadk?7@7? xK>C?4` XC?t C?@K?!C?4&K>@K?!K>@7?k?7@7? 4@7?C?t C?K?!@4B@4&K?!J6sj@7?4K>@7?k?7k>4@7>@7>C>C>!z@BX@(@@@@@@@@@`@K>7>7>.` .1( 0$ h4X4K>@K>04(K>K>K> 84K>`"t K>@K>K>`"t \@K>\K>YK>@7>k?ok? k?k?EFDCZ@Y ZP4@Y *Hs` 4H@4B?4K>K? K?K?@O?k?7k?1k?97?7?7?!@7?)!`K>@K?D@K? K?!b @79@K?| : @K?pk?!@Z|"+`4?h3K>Z@K? @K?@ZK?!b K?)@K?K?)b K>@K?K>K?1K?9@7?+`446""+`B3` 8444s t buB3`?s@k?ok? k?DE_-ZH@Z7?@s+`44 Bs` 0 44 b03 Bs`? b03@+`44C Bs` 7?C7hh|K>K? K?@O?k?77?@7?! K>K?k?!7?!7?)#@7@7˜ ZK?!K?)HUT6k?!B"K?!K?)Tc@4B+`4?h3K?b K>@K?K>@7?k?77?7?7?!@7?)"K>K?k?17?17?9@K?K?)` 4@K?4K?1K?9T+`463 Bs` H7ZSJB Bs` 6BK?93@7Z\!UK?1K?9V+`47B"K?16tk?1Bs Bs` PK?9`VK?1B Bs` 6vk?1K?1K?9ӿOBb@4B+`4?h3K?!b K>@K?K>@7?k?7k>k>k>k>k>7>@7> 7>@47>7>@7> K>`?K>@4B?@K>DK>@Yȼ!(K>@K>!4@K>F@K>Cf@@ d Z@4ȼ+`4?h3+`H3` XK> d @ ZK>@X@Z44K>` K>@K>K>` K>@K>K>` \@K>\K>YK>K>K>K>K>@7>k?ok? k?k?k?!ECF@ZD@Z (#@7Z@4BhH`_Z@Zȼ!(Y"5!+`4'Ҷ Bs` 7$?@sv Tҵ03u?03t f "5 0Bstҳt "5?ҳ0@ZY"5?Ҷ@ZK>K? K?K?K?!@O?k?7k>@7>"8K>YK>4 +`4?h3K>Y7>7>7>@7>!K>Y_K>+`4#K>s 4btK>5 @4ҳ c Bs` 5?ҳK> V@ T \ K>5 PTҳ c Bs` C>""5?ҳb@4B+`4?h3K>b K>@K>K>b K>Y@K>K>YK>@7>k?7k?17?7?7?!@7?) K>K?@K?˜K?4 |4cK?!b K?)@K?K?)b @K?@ZK>K?1@7?k?7@7?!K>@7?!`K>7?!@7?)!8K>@K?!K?|@7k?K?`@(6s?+`4?h3K?)k?K?``K? k? t |@ k?K?!K? S @K?\ K?)@@K?)b K>@K?!K>@7?k?7@7?!K>@7? K>7?!@7?) K>@K?!YK?3`+``@4?h3HK?)@K?!\ K? S C?@bt?K?)` K>@K?!K>@7?k?77?@7? K>@K?K?` +`@K?+`H3Js?k?Bs` `+`45K?s BsbK?6k?B`?K?K>@7?k?77?@7? K>@K?K?` +`@K?+`H3Js?k?Bs` `+`45K?s BsbK?6k?B`?K?K>@7?k?77?7?7?!@7?) K>K?@K?@ZK?!` K?)@K?K?)` K>@K?K>@7?k?7@7? K>7?7?!7?)@7?1 K>K?``(K?+`4?h30K?)K?!@K?@ZK?)` K?1@K?K?1` K>@K?!K>@7?k?77?@7? PK>@K?@ZK?` K>@K?K>@7?C\7?4@k?7k?1@7? K>C?d 7?@4Bt 0K?!C?4` hCC@4BXf +`4 h3@K>7?!.`1'K?@ZK>K?1@7?k?oY+`C4z@44sb`K>@O?k?7k?!+`CHs` K>7?@7? K>@K?ZHs` (4hs#@7Z@4B@@K?` K>@K?K>K?!@7?k?7@7?! 0K>C?'c?c?@7?K>@7?k?7k?T4~c=c=7=B`!Bҳf p+`f@d 07=p+`t `+`J# 79J@4B7=49.@4BX43u ` :Js` *JVB|\@ZK@7?@ZC?4` `K>C?t C?K?!@4B(4&K>@K?!K>@7?k?ok? k?k?FCD4+`H3` 4@@ 4` @Z +`@Z+`H3` @ZE 4+`H3|04K>K? K?K?@O?k?@7\"`6z@@K>@7?k?77?@7? `K>@K? 8+`4h3K?b K>@K?K>@7?k?7k>k>k>k>k>k>k>k>k>GC@h04ȸ 44 4 +`I@s` @sb p4d Z@Y B4c>c>k>@7>I3` 4?]4cP\K>YK>K>K>K>K>K>K>K>K>@7>k?ok? k?E+`49@4 +`H#` 8DZHy@HxHc`? @ZK>K? K?@O?k?7k>qk>yk>k>k>k>k>k>k>k>k>+`H#4c?+`43sxS6h!!!`+`J! 7>!+`G7= ed@s6s?`@H@h@@@h@@@@@`@P@@@0@ @@@@@@"`Hd57=5@Hx5w7=5Y@,p`57Hs6d"`86wc="`6w"`6wc=# Z79@XHZVBHZVB4c=c=H7=VB4c?h7=KqK>yK>K>K>K>K>K>K>K>K>@7=k?7k>k>k>k>k>k>k>k>k>k>k>k>FD444 4 4J+`M@` 0sn  0#`?s l`Z L5@4BZ@5G 4?i x\H H ZY@X H `+`4c= #t4Z 07=4V 4@ 4F " #k>1t4T 84@7>1+h\4 #4` 4s?4` " #4s?rZ4K>1 s s!6s?t k>1 #4s?rK>1 PZ# 79@K>1@` t 03`? 03t4\!Pk>9 " #t4T 84@7>9)\ #p44s?rZ4K>9 s s!6s?t k>9 #4s?rK>9 `Z# 79@K>9@` 8t 03`? 03tk>9t4؂ 4 8 #k>Qk>A4@4 4 k>Is6s?`Y@@x@h@X@H@8@(@@@@@@@@@@@x@h@X@H@8@(@@@@@@@@@@@x@@X@H@8@(@@@@@@@@@@@x@h@@H@8@(@@@@@@@@@@@@@X@@8@(@@@@0@@@@`@@@x@h@@P#@7>A@7>I"\@K>AE4 4k>II"`6sk>A4@7>Q \J7>a7>q@7>y" \4 h44@7>7>@7>I!k>A 4 #@7Z@4B "`K>1K>9 t @k>1E ,@0Z@794 H H  @Z7=@K>AK>Ib hK>A@4BX` (7>QZ7=.p@4B Z7=@K>Q@Z H F * Z@79 H\K=YK>K>K>K>K>K>K>K>K>K>K>K>@7=k?7k>k>k>k>k>4k>@7>ȼ!7>@7>!K@4K>b @K>c>7CH` C> " b4?ғ`@7<+`H3e0CD_@H e+`H3` ` 8KK>K>K>K>@7' K?ZT"B5 p44D ҳ4 " v(w 4""B5 4D"b@ZK>7?,0,@7?KK9+`45S`@x79?CS` XTғv B04?ғCS` 7ZS`_79?4CS` PTғx 2"79?? 7ZCT?ғb+`@4<k?ok? k?k?k?!k?)EHKC@ZG4Є@s` (Tғd  b04?ғ c (ZY@X 8\@s` 4cEU44K>K? K?K?K?!K?)@O?k?7k?k?k?!DK+`4:4kS7;kSh94@kS #@7Z@4B4c?@Z``+`|` d 4?h3h4Z|+`E@4˜ 4jc74K:K?K?K?!@7;k?ok? KCr@+`H3` (444` c Js "+`4?h3@44$H@ S 4 c  J|K>K? @O?k?@7K>@7?k?79& K>. &1 f .7S?&17S?`@@@@@@@@@@@X4 1%1%.1%N0 0$  +`4h341%n4p1% 4X1% 4@1% 4(1% 41% 41% 0$ 4 @4B@@4K>@7?k?7K>JJy7Z?@@@@@@@ @(@0@8@@@p4H 7 8 7k?' k?'I9)W'HK?Z +`4h34ZZ 84 (4j X4R x4: h4" H4 4@@4K>@7?k?79&!@S/6s?`@*@@@@@@@40.0Nx0h0h0 0$  4j0 0$ H484?@4B8K6s?`@@@@@x@@4 @k?' k?'I9)W'HK?HZ8Z!@`S @Z4@@4K>@7?k?ok? 4(# 79@4! 44@4 44@4 44#@7 4 @4 x44 `@4x H44@4x 4@4 44K>K? @O?k?7k?!"`_=6c +`4:# @79 P#@@7Z@Z #@@7Z 4H4c?c?44s`c?@7?4cr_4s`@@@@+`H<04K>K?!@7? Comment delimiter length mismatch.The string cannot be converted to an integer.%d(Str)(Int)(float)(Ptr)(Array)(Unknown)(%d) %s:%Invalid Format.Unable to compile pattern.UNIX_Basic_UNIXFLOAT_TYPE%f .autoload!.pop.strcmp.strcat.strlen.str_replace.is_defined.string.getenv.putenv.evalfile.char.eval.dup.substr.integer.is_substr.strsub.extract_element:.is_list_element2.case.string_match2.string_match_nth._traceback._slangtrace.system.slapropos.slang_trace_function.create_array.aget.aput.strncmp.strlow.strup.isdigit.strtrim.strcompress.int.array_sort._stkdepth.print_stack.Sprintf.init_char_array.byte_compile_file!.make_printable_string.str_quote_string.str_uncomment_string1.define_case!._clear_error.set_float_format.copy_array.array_info._slang_guess_type._slang_version.INT_TYPE.STRING_TYPE.FLOAT_TYPEslarray.o/ 813572392 204 200 100644 7056 `  1hL 8*D:X! 8 X 8>(@,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$  4Ph t@080U 4@P\t @$40<$0T @h0x 0 t @0U 0` @0 p 40  $00 1 1 Y11121QQ1 QQ 4 Ӏ1 1 Q1QQ QQV1V11 QQVV1111QQ1 QQ12 113 11P1ԀdӀ11;h 1 Ӏ111 QQ1QQQQӀӀ11114 4  1ЀӀ1Ӏ1QQӀ4  Ӏ1"1 11 12 1<Ӏ11 `Ӏ311_%&$LIT$ SLang_Error SLang_doerrorSLang_free_user_objectSLang_pop_integerfree$DATA$SLang_push_integerSLang_pop_arraySLcreate_arraySLang_push_user_objectcompute_array_offsetstrlenSLang_pop_stringSLexecute_functionmalloc SLang_popcallocSLang_push_stringSLang_pop_user_objectSLang_push_floatSLang_create_user_objectstrncpySLang_pop_float SLadd_nameSLang_locate_name SLmake_stringarray_push_elementSLang_create_arraySLarray_getelem$global$ SLcopy_array SLarray_info str_get_elemSLang_add_arraySLarray_putelem Bound_err SLarray_sortL$C0002SLinit_char_array$CODE$SLarray_free_arrayk?ok? k?k?FEH(`!@@d`4 hA$ $I9)W& 9 G'HK?4( T4ƊZH(t dHz@ 4c@@dHz`H( JH(t d:Hz@ 4c@@dHzH(` @0` @Z@ZK>K? K?K?@O?k?ok>k>k>k>k>k>k>k>k>k>HMLIK>C>C>ҳ6s?;`@j0@P@@@@ @@@@@@@@@@@p@ @XҴ`4P44@44(4Ҵ4ƊG4 @4 @@4 k?' k?'I9)Wk?' 9 G'HK?D@48| 4@4(ܠ@Z4 Ps Z@4B@YH 4R`04 hh(hmhlhihj `g`k0h\K>YK>K>K>K>K>K>K>K>K>K>@O>k?7@7?!K>K?6s?d0+`4?h3#@7Z@4B4k?k?)k?!K?d :d@b 8K?)Bf 8K?)@7?@7?!@7?)K?)`@ +`K?!`@K?`@4?h3K>@7?1 K>K?k?C?7k?k?4K?K?)@K?!\#@7Z@4B@@K>@7?k?7k?1C@7? 4C?ҕ4( Hs` Ҕ P4`4&+`@K?!+`4 h3@4C? 4?4hsh`K?!K>K?1@7?k?7k>k>k>+`H3` 4KTKSk>KSk>KS k>k>k>6? k>7>+`E@7>я?] K>Js `H` @4B?K>4c??j7>$  7>$ I9)WK>'HK? k?' 7>$ I9)W / K?K?K> K>YK>K>K>@7>k?7k?!k?)CD@7? r@ZK?`+```0 c 4?h3+`H:@4B@Bz K>@ZK>K?!K?)@7?k?7k>k>k>k>k>@7>#H@s0~ +`4h3@ZE+`H3`"@s6s?`@@@8@@@@@x@P@`@z@7>!Hs( e K>jt7>@7>!z@K>K>b D@K>Hs( e Hz@ @4B@7> Hs( C>bt7>7>@7>ɏ Ht(7>.a."@z4&SR@@Ȝ RHs( e Hz@ @@hd#@@7Z@ZK>YK>K>K>K>@7>k?7"`6uCS6s?`@:@@@@@@@@X@CTKZ(Y @4BKS( 3 Bz@4BKS(y @ Z@4BKS(.y @4BxCT4&:KS( y K3` (ZK:@4B #@7Z@@K>@7?k?7k?!k?)4k?@7?| xK? Z_4BXHd@ZY+`H3` _5Z@ZK>K?!K?)@7?k?7k?!k?)k?k?@7?|#K>@7?Ȝ`"K>HB0~ Hv+`4h3jJJ x+`JJ `4 JJ @4 J J 4 BB 4 h3B6s?`@@@@@@p@`@P@@@8#@@404 4#@7Z@4Bk?' &I9)W& 9 G6 & 9 GJ(J('HK?@h_ Ju 3@Z@ZK>K?!K?)@7?k?7k?!k?)k?1k?@7?ȼ zH@@zHd@Hz@ @Hz@ @Hz @Z@ZK>K?!K?)K?1@7?k?ok? DK>C>C>k?Ҕk?ҵk?ZYX@K>| @4`s4(`sZY4@4(\K>K? @O?k?7k>k>k>k>k>k>k>k>k>k>@k>| #@As` 7Z@4BAsBn #@7Z@4Bk>@7>ɼ#I@0~ +`4h3ZHb H#@7Z@4B(4k?4k?k?4Y@ Xɜ84#@7Z@4B Z@4BIJe(@(4? jd4_ S j h5 F@5?  H4?@`j4@0h 6s?4_j Z@4BxDd!fAH f` Z_-79? JyZ_79?@ Z@7>>-K>` cZ_59? Z_79?@ Z@7>=K>` ( jDd!4f^ ji@ ZK>YK>K>K>K>K>K>K>K>K>K>K>@7>k?7k?1k?97?@7?!@K>k?!@7?!Ȝ H@sh #@7Z@4B@K?$p $xI9)W4t & 9 G'HK?X#@7Z@4BHz(@K? K?@ZK?b K>@K?K>K?1K?9@7?Array size not supported.Unable to create array.Array dims out of boundsCorrupted Array.Array Element uninitialized.Internal Error in array element.Copy not supported for this array type.Sort function undefined.Invalid sort function.Sort requires 1 dim arrays.Error Creating index array.Operation requires character array.String too big to init Array.slregexp.o/ 813572393 204 200 100644 6944 `  1 hL(H :[X!( X  8>( @,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ @ $0 QD UX Ap L @ @ @0 0Q(  @PPPPPP3 PQQPPPPPPPPPPPV3P4PPPPPPPP P QQP PPP  $0QQ2K? @O?k?ok? k?k?k?!k?)k?1k?9CFD %3 H+`J+`S6iг6s?`@ p@ @(@p@@ @P@@@@@@@@@@ P@@@p@`@P@@@0@ @@@@@@@@@ @X@p@`@ @@@0@(@@@@@@@@@@@p@`@P@@@0@ @@@@@@@@P@ @ @p@`@H@@@0@ `@@@ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @ @ @ @ p@ `@ P@ @@ 0@ @ @ @ @ @ @ @ @@x@ @`@`@x@ @@ 0@@ X4 4 4+`H4IS +`H3 cj`4? (jh+`H5IV +`H3 cJ` j6iVfh4 @@s@s 3 Bs) 44cP4f G @@s *4@s 3 Bs"4cf4 @t@s 3 Bt @ 3 Bs((44cGf0@ @st "4 3 Bst!4cf4 6 7ʗ P 8f2@s  4cf@s'(4 &ZfP@s&:&04cf"@s@Y@X|&44G :Y@X˜&"C@Y@X|& 4G@Y@X˜ C@4f4 @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ`$4@84cfXG @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ c f4 @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ`#4cfG @ss 3 Bsss d  Bt@s@s 3 Bssss>s@ғ` 4cf74@f"@s6s?rP44cfpG@s6s?``Bf@s6s?r44cGf@s6s?r4cπfJ@st!44cfG@s` czf@st 4cGfJ@st :4c׀f\@st K>و p %gPIEZYX@W˜hK>4c?giE84-гг` \` 4K>K? K?K?K?!K?)K?1K?9@O?k?ok? k?k?k?!k?)k?1k?9CH4 # I4 IXyBI+`T4j+`Sjh+`Fh@h H4 ZY4@W04xH@ 444@ 44@b JI`@H3 ci`|i8\n @b I@eҦ+`4* x+`e4 @s : 4c S Bs 4cee`+`4h3ZYX@W˜+`4ce4K>K? K?K?K?!K?)K?1K?9@O?4CT6?r84 S6u?B046?r6 4k5@\@k?7k>qk>yk>k>k>k>k>k>k>k>k>k>k>k>k>k>F44k>)4 4 4 k>Ik>Y4k>i4hh`HH c 5k?H@H44? jt6_jt`@4 *44 s"4h(h(``k>9 7.04 44+`405s?s56s?`@ @ @ @ @ @ x@ @ @ H@ 8@ `@ @ @ @ @ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @ @ @ @ x@ h@ X@ H@ 8@ (@ @ @ @ @ @ @ @ @ @ @ x@ h@@8@ @4@`) 4 s" 744Ƃ!Xk>Y@4r@X4baH4P"ʂ@*44R"4j4 4 H4 r@(4Ȃ!4ʂ :44肝 84 446444h s"44H s"6?S j sI`E4 s" w"E@4&@`Z@7>˜(DC> s"@q r@4X( 03q Z40k>@7>˜(ZD@q(BC> s" 044(44K>)74rGk>)'4 5J4` s"'4 5J40 s"4`sE4c4s@kH44> 6_b` 74 (44@s_`s 7} (T03b 7`#+`484}"q j 7o :o@`&*@:4} @44@4Z}!8 03"   Btҕ Ҕ>Bt@b  Bҕ Ҕ>Bt@@bu ss>Bs@֟b6@ ׍   Btҕ Ҕ>Bt@b  Bҕ Ҕ>Bt@@bu ss>Bs@֟b 7= 4}#Z@ 844> B ` 6_b44c@4E4 s"4 @`4?H4 Z@`4 *@`44?4K>97l @5)" K>I0N`"k>ik>IN4 k>9E4 s"T 4cS  Bsb 715s?``KK>Y H@4k04@s` 4ck@shP`NHS (hX40H4@4Bh K>i `4004 @k>i4#@@7ZH K>i4k> b3b * b3 "K>6s??k>40 `4h 4K=K>qK>yK>K>K>K>K>K>K>K>K>K>K>K>K>K>@7>Pattern large to be compiled.slunix.o/ 813572395 204 200 100644 4160 `  1@hLX%xH@:X!X   KX  xpp8K>( X@X,M+>(R@hD$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$  @ (@4@X dx  @ d      0 D T A`(p Q|T A$  0 @  ,@ <TT3ӀӀ2ԀӀӀ ԀӀӀԀӀӀԀӀӀ ԀӀӀ$ԀӀӀ,ԀӀӀ4ԀӀӀ<ԀӀӀDԀӀӀLӀ1ԀQ2QQ2 QQ2QQQQQQQQQQQQQQQ23121`1ԀSShӀ2''' '' ' ' ''''''' $LIT$$BSS$strcmp$DATA$errnoSLang_pop_integerstatunix_stat_file SLang_doerrorlstatunix_lstat_fileunix_stat_struct stat_islnk stat_isreg stat_isdir stat_ischr stat_isblkstrncmp stat_isfifoSLang_add_table stat_issockchmod unix_chmodchown unix_chown parse_statkillSLdefine_for_ifdefctime unix_ctime unix_kill init_SLunix slunix_table$CODE$$global$Stat_Buf map_errno+`H3d 4?z 4?@4?@k?ok? DCZ# 79@404c"`6zBtҔ@ss 8"`7Z@4y "`H6zBtҔ@ss 8"`7Z@4y "`H6zBtҔ@ss 8"`7Z@4y "`D6zBtҔ@ss @"`7Z@4y "`D(Ӝ6zBtҔ@ss 8"`7Z@4y "`H6zBtҔ@ss 8"`7Z@4y "`HH6zBtҔ@ss 8"`7Z@4y "`H 6zBtҔ@ss 8"`7Z@4y "`hH(6zBtҔ@ss 8"`7Z@4y "`H06zBtҔ@ss 8"`7Z@4y "`H@6zBtҔ@ss 27Z@4y #@ HP#@@7Z4K>K? @O?k?7+`@49 4_4BK>@7?k?7+`@49 4_4BK>@7?k?7Y+`@4:K>@7?+`D<׀"e 84@+`D<׀"d 84@+`D<׀"b 84@+`D<׀"a 84@+`D<׀"c 84@+`D<׀4 84@+`D<׀"f 84@k?7@G9 4_u4BK>@7?k?7K9@K 4_4BK>@7?k?7@7? 84?@7? 4?K?@K?K>@7?k?@7c0K>@7?k?7#@@7Z (+`4:# 79@4B4K>@7?st_devinomodenlinkuidgidrdevsizeatimemtimectimeUnknown stat field.SLUNIX_Unix.unix_kill.unix_ctime.lstat_file.stat_file.stat_struct.stat_islnk.stat_isreg.stat_isdir.stat_ischr.stat_isblk.stat_isfifo.stat_issock.chown2.chmod"slmatrix.o/ 813572395 204 200 100644 2328 `  1 hLvl< :~X! nX  8n>(x@x,o>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$   <@Hdx  @ T0  (1 PP1PP 41(11 &PPP41$11 SS2ԁ' ' SLang_Error$LIT$SLang_free_user_object$DATA$SLang_push_user_objectSLcreate_array SLang_doerrorSLmatrix_additionSLang_add_tableSLang_pop_array$global$slmatrix_tableSLmatrix_multiply init_SLmatrix$CODE$SLpop_float_matrixk?7k?@7?\ X4KSBsf 0+`4 h3@@4\K>@7?k?ok? k?k?k?!k?)k?1k?9_4<"j_@"jII%HHd (HHd@Hd@ 4+`4 h3Hk?4k?k?44`04X@W\ 4#@7Z@4BPKSJ(H(H(4àk?'k?'V:W k?'V:W'HK? X0H 'KK? U4d@T/5 / 1(N 1I 66sdt  6ÿm/" 64@@ @Z K>@ ZK>K? K?K?K?!K?)K?1K?9@O?k?ok? k?k?k?!k?)7?1,0,_4"j_@"jHIHHH k?HH H' Hc 8+`Hd (4 H  4+`4 h3k?4k?k?4HX@W\#@7Z@4B0KSJ}(H(H(k?' 9LG'HK?W4k?' 9LG'HK?48 / /3 1( /" 6 6k?6' K?߿E4@@ @Z K>@ZK>K? K?K?K?!K?)7?1,0,@O?k?7+`4:# @79K>@7?Unable to create array._Matrix.matrix_multiply.matrix_addslutty.o/ 813572396 204 200 100644 2964 `  1 hL   :X! (( X  48>( <X@X,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$0@ 0@<$H` x@  0\,8D0TL p@T04 @00H @ 0QTRRTTPPS2 SPUUU1URRTTPP3 TRRPP2 !SSPP3 TRRPPSSRQQYYWW 2 VV3PPV 4QQ1QQQPQP31QPQQTTQQSLang_TT_Read_FDSLKeyBoard_Quit$DATA$Old_TTYSLang_Abort_CharSLang_TT_Baud_Rate$BSS$ SLang_Error$LIT$SLang_Ignore_User_Abortdefault_sigint tcgetattr tcsetattrsignalselectsleepSLsys_input_pendingreadmemset cfgetospeedSLtty_set_suspend_state TTY_InitedSLang_set_abort_signal Read_FD_SetSLang_reset_tty SLsys_getkey$global$ Baud_Rates$CODE$SLang_init_ttyk?7k>k>k>E+`H3`"D+`Sjz+`CHz+`S@6yHz@7>K>4=/  k>K>`k>+`CHs` h4d@7>h|7?4" U+`43| 4j K>`__k>4c>c>c>4k>+`@3c>4c>c>c>+`H:4@7>+`4h34K>YK>K>K>@7>k?7k>D+`H:@7> +`4@3c>+`H:4@7>K>YK>@7>k?o+`CHs` 0+`H:4+`@48h`K>@O?k?7+`4h3+`H3` 4+`4h34# @79K>@7?k?:7"`6y@4K>@7?k?7k?!"sL6s k?' 4!,  9IW'K?U4V v uҴ  s! z Z Z Z Z Z Zk?k?+`C4z4@4+`SJzTE4y 4 Ss>4 s@֟j7?k?7Z4@4K>K?!@7?k?7k?!k?)k?14+`H3` 2D@4ȏ H`04c? +`H3` x+`E+`DH7?@4`2@44c? H`?H`@+`@ןH3` +`@3c?+`h C?K>K?!K?)K?1@7?fffg2Kn,X `%Kslkeymap.o/ 813572398 204 200 100644 4676 `  1DhL&<D:RX! x x 8X @@88>(<@,9>(R@HD$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$0@ X 4@@P h@ t  00  AT(40U@Xdp |0A @0@0A @0A0@d0Q0\H0X p | @1 3SSQQ3SS 2 RRRRR 1 U QQ13 U1 U QQ11 211 SS 1 Ԇ24 1 TT PPPPPTTTXPTXPPPTPP 1 QQ3 1RR RR2SS1 12 QQ3%$SLang_Key_TimeOut_Flag SLKeyMap_List$BSS$ SLang_ErrorSLang_Last_Key_Char$DATA$$LIT$freeSLKeyBoard_Quit jed_memcmp $$dyncallmalloc SLang_doerror malloc_keySLang_process_keystringstrcmp add_keymapstrncpymemcpySLang_define_key1strncmpstrlenstrcpy copy_keymapcallocSLang_find_key_functionbuf___19SLang_make_keystring SLang_do_keystr___8SLang_create_keymapSLang_undefine_keySLang_define_key$global$SLang_find_keymap$CODE$L$C0000Define_Key_Errork?ok? D@48| (ZY@@ \+`4?h34K>K? @O?k?oU4+`474: Hs` @6hyZY@4``0\_ +`4?h34K>@O?k?ok? K# ` xDHz@ bCTҔ@s *@Y H| K>٬p?Hz4K>K? @O?4CS` T424+`474~B03` (6??s|U6?Tғx JB4 ғ bx@6y 6?4 btCT?=6+``6@4<k?ok? k?k?k?!k?)k?1HC@IF@"`4@֓c tHs t Hs0`!+`+`H3` @s(b @Hz hh `i(TSb6b5"b4GH0` Y4?"$X xX4@7? 2 +`@H:4? " xZY@X P+`H3` @s(b @Hz hh `i(`4~G@Z˜ *k0h0k c(44?K>K? K?K?K?!K?)K?1@O?k?ok? k?k?FDEZ@Y|4@Z@7|@Z+`4?h3#@@7Z@4?@Y4ZY@WK>K? K?K?@O?k?ok? k?k?k?!k?)k?1DEVB+`Ӝh<CccsֳBH H0` h4H ` (+`4t??4269 h `\Ph H0+`h3VB+`43h<4Bw6??s42tX6?V6?s42 t6@"p+`I+`G+`H42I3`"(d BuҴt t!@4s u rH0 `4u| Bst "Cu *hK>K0?| hP\ p bH0 P4t| Bsu Ct=+`K0?| VBWi4c7??sfX7?V6?sf6@ uH0 +`h 4K>K? K?K?K?!K?)K?1@O?k?ok? k?k?k?!k?)k?1@K#D (!@tc s H0` G+`4)He04zY@X JI3@` @s(b @Hz @Zh0GewHe0 K>`h `(K>K? K?K?K?!K?)K?1@O?+`B56? h444>4CSw"CS6sCS"6??7Zb+`@4<k?ok? k?k?k?!k?)C4@48ܠ +`4?h3H4`!2Hg44ecsB g  f Hs h @s(`(@uTS@h_ Jv 3Hc0` R@Zh0DHs h @s(`(Hc0` 4^h0\K>K? K?K?K?!K?)@O?k?ok? DC@Z< H4@Z˜4 K>ل` Hs k K>K? @O?k?ok? k?k?k?!E4+`4'4:c  ZY@4 4c\f_c 4K>K? K?K?K?!@O?Inconsistency in define key.Malloc error in define key.slrline.o/ 813572400 204 200 100644 10136 `  1'hL HTD ':|X!     X &@8 >(' x@x,6>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ @ (@Ph0@     @ X   , D P \t p| \  H   0 A  x ( 4 H\h    $ , 4 8 @ L T d ` \ (@0D  X X h @| L p @ l $0@0 ( $@04 40H d p@ RR2 R1RPPPPPPPPPPP SSPP SPPPPSS1 PSSS1PPPP 3/PP PPPPP1TTTSPP1 STTTTPPPP PP PPPPPPPPVVPPP1 PPRR2 PRRPRRPPRRPPR1RRR RR 1 2  PP 0"-PP PP PPEPPSWWS VVPP1PPPSWPVTP2$SWPV1 VVPTPTPP RR2 RRӁ3)PP2 P1PP PPPPPPPPPPPP PPPpӁ2&PPP]] P4PaaPPWW#P|ӁPӁ PӁPӁPӁPӁ PӁPӁPӁPӁPӁPӁPӁPӁPāӁPȁӁṔӁPЁӁ PԁӁ!P؁ӁP܁ӁPTTPP PPPPPPPPPP11% 2 7%='%2' %3'%4'%1'%0'%.' %-'%,'%+'%*'%('%''$BSS$$LIT$__iobSLang_Last_Key_Char SLang_ErrorSLang_define_key1SLang_Rline_QuitSLang_RL_EOF_Char rl_prev_line__flsbuf rl_next_linerl_self_insert $$dyncall$DATA$rl_delrl_right rl_deleolSLang_Abort_Charrl_leftrl_bdelrl_quote_insertrl_trimstrlenrl_bolrl_eolrl_entermallocfflushrl_delnrl_abortansi_goto_columnspit_outstrcpy rl_redraw$$divI rl_eof_insert SLang_do_keyfreeSLang_create_keymapL$C0014L$C0013fprintfL$C0012L$C0011L$C0010L$C0009L$C0008memcpyL$C0007L$C0006L$C0003L$C0004L$C0005SLReadLine_FunctionsSLrline_redrawRLupdaterl_select_line really_update erase_eolposition_cursor RL_KeymapL$C0002rl_delete_line$global$SLang_rline_insertSLang_init_readline Char_WidthsSLang_read_lineSLang_rline_save_line$CODE$This_RLIrl_beepk?7+`446 J 6s?``j 4@4B(J(6j(4b+`@4:K>@7?+`H4J(` 4j(@4@+`H4J(J8u 4j(@4@+`H4J(J8 46j(@4@+`H4J(` 46s?j(@4@k?o+`H3Jt8Js H3_4BJuJt( Js8 u ԀB??ԟB?+`V6Bsb+`SJuJ86sj8J(6sj(JH6sJ@t`H4J` 0J+`44 Bsb +`K>CHs+`TBJsZVBHtJ86s?Jp J(6s? Ԁ(+`B??ԟB?+`@3b4K>@O?k?ok? @DC+`H3Jt Js8 ttXC` +`4H3JuJt( Js86s? (Yu 3bY@X+`H3Jt8 jt8Jt( jt(\K>K? @O?+`H3JuJt( Js8 u  T  u 0+` T Bs" T +`H4J8 Sj8@\k?7@4K>@7?k?ok?k?+`CHdh`+`E+`SJsJ|VB_}hHsd +`h`4h$4K?YK?K?@O?k?+`H3JvJt( Js8 v  7!6?B4@ V 424@B t(r 6ڿBZ+`H3Jv24@B t(r 6?B 86+`H4 j( @4B4K>@7?k?_7 4_@K?Y@7?+`H4J(J8 @4J b`H4J(j8@4@+`H3j`(Jsb`H3j`8@4+`H4JJ8 b`+`4@h<k?ok? k?k?F+`H3JsH#CHsJs` (ZVBHsH3JtH``Jsx  f ep+`4$H 6s?`` h b:4 @4B(H(6th( b4bteH +`f`4c?!+`4$4H 6s?`` h 44 @4B H(6h(b4c??H 0+`+`446 J 6s?``j 4@4B(J(6j(4b+`H3Jcxf e+`4$H 6s?`` h b:4 @4B(H(6th( b4bteH +`H3jfH+`@4:K>K? K?K?@O?k?ok? k?k?k?!EHpHH t H t Sf4c+`4$4@H 6s?`` h 4@4 @4B H(6h(bSf4cHhHK>K? K?K?K?!@O?k?ok? k?k?FCHx_ CHxH t e+`4$H 6s?`` h b:4 @4B(H(6th( b4bteH HhH\K>K? K?K?@O?k?ok? CDHupHs` XHyxZHy@XVBHs79?@4BHs@ y 6j4"3 BHtHs_Z@79?Z_]4B64_ZHshsHypHsxhsphyxK>K? @O?k?ok>k>k>k>k>k>k>k>k>k>\44KK( K8 b`4K`4+`4$ B Ҕ  pBu@ `ZY7k?'k?' 9(G'HK? m04?U K0b KE4c?`'K@KX `p4KP@K@ t x@:K@KX  x@4kPKPkP Kx4K` 4"`6w`@+`44B` Bs x 6B` `4`@K+`443 Bs x 3K04c?4c?!4+`4+4@4 4 4x4~ғ`!x s Bu "8  ʄ@  ZY7k?'k?' 9(G'HK? m K@@ x6?6??"X4 ғҔ"ғh ""6" K@~w4K04c??KKx vkKxK@ Ӡ04@"KxK@ ӿ"Z_u YK>YK>K>K>K>K>K>K>K>K>K>@O>k?oCHtxHs@ t 4@""Hs@hsZ_4_ZK>@O?k?+`H3Js8` 7H4+`T+`SJs_j_E@K?Y@7?k?ok? k?k?k?!k?)k?1k?9D+`h +`h$HpH@ t 4@""@Hh8H `h8Hb`H(H8 tXh(H(``h(hPhHhh+`SJsj`h_Z+`J+`I+`H+`E+`G+`FIZ@H| Hs ` I4_}4BI 2@sd HJs8` _4BX@s(d HHH| VB H_ZH` `HJJ8 b`Hd Hh@4?0J|8`>IZHHs ujhK>K? K?K?K?!K?)K?1K?9@O?k?_ 7_ M@K?Y@7?k?oC+`446 J 6s?``j 4@4B(J(6j(4b` (+`4:# 79@XK>@O?k?ok? D+`EHjdJz@HH@Hh8h(K>K? @O?k?+`H3Jth"`6s (7"`6s 8H3+`H3Js` H3+`H3JzJsJz@ _@4_1@4K>@7?k?7+`_ H:4K>@7?k?+`H3Jth"`6s 7"`6s H3Js` H4_A@h4JJz@ 2j(j8Jb`H3j`_@4K>@7?k?7k>k>k>k>k>k>k>+`CHs`& Ic>#@7Z@4%h|+`SJt+`S6sj 4@ +`E4c>7>44@H4_c>+`SBsc>+`C7># 794@Hw+`SBsc>7># 794@Hw#@7Z!54@Hw#@7Z 44@Hw#@7Z 44@Hw#@7Z 44@Hw#@7Z# 794@Hw#@7Z# 794@Hw#@7Z# 794@Hw#@7Z# 794@Hw#@7Z 44@Hw#@7Z44@Hw#@7Z 44@Hw#@7Z44@Hw#@7Z44@Hw#@7Z44@Hw#@7Z 44@Hw#@7Z44@Hw#@7Z54@Hw#@7Z44@Hw#@7Z# 794@Hw#@7Z# 794@Hw#@7Z# 794@Hw+`SJs` 4?I3`` "`6si3`I3` 53p+`H3i353pi3p53pi3xI3b`i (I30+`I3` @3"`6si3@3d 44>+`464 4_bu4@4+`464 4_bu+`444b44>464 4_bu4K>YK>K>K>K>K>K>K>@7>k?ok? D@40| 4@H ˜*` 4@Z4h|H hsh`(h` h`h`Hz@HH` \jcHhshK>K? @O?[%dCquoted_inserttrimenterdeleoldelbdelself_insertleftrighteolboldownupReadLine^[[A^[[B^[[C^[[D^E^I^A^M^K^L^V^D^F^B^?^H^P^N^R`\slerr.o/ 813572400 204 200 100644 2108 `  1<hL<:X! X 48>(4@,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ 04@D\h 00D 0SSTSTSS"Ӏ Ӏ0Ӏ@ӀXӀhӀӀӀӀӀӀЀӀTTӀ3 RR Q2QӀQQQՀӀQRR1RRVVQQӀ31 ?$LIT$__iobSLang_Error_Routine SLang_ErrorSLang_Error_MessagefputsSLang_Exit_Error_Hook $$dyncallfprintfsprintfexit SLang_doerrorSLang_exit_error$CODE$$global$k?7k?k?k?!D+`TJ` +`4?jc=H8"hC+`H36s `@@@@@@@@h@@@X@`@@@@@"`(6c"`6c"`6c"`6c"`6c"`6c"`6c"`6c"`h6c"`P6c"`86c"` 6c C"`6c+`h 7=# 79@X+`H3` @Z+`E@4#@7Z@4d 7=+`C@4y#@7Z4y@4Bp (+`H3ZVBd (+`H37=VBK(@,x>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ @ 0A,HT`l00Q0P0  @߶2 /QP31PPӂ1Q2QQPP%D1PPPvPPP? SLang_Error$DATA$$LIT$SLexpand_escaped_charstrlensprintfatoi SLang_doerrorSLang_guess_typeSLang_extract_tokenSLexpand_escaped_stringSLatoi$global$$CODE$ special_charsk?444B66s?`o@@@@@@@@@@@@@@@@@@p@`@P@@@@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@@@P@@@@@@@@@@@@@@p@@P@`@0@P@@@44444446p44n44@6?444r4 4r446? 4^4 CV@R@Jk?' k?'I9)W'HK?4S?X  `SV6s??sj2֔6s?S t 6??%7Zc4K?@\k?7k?!k?)k?1D$hC4"3c?se (C?Z@7?YC?$ s"``K>K?!K?)K?1@7?k?7k>k>k>k>k>k>k>k>GHJD4H b%д4@? b%? b%г` 4t еh4Z P "@v 04z 6?r`8hд0D44N!(+` b%д 4 Z@7>CC> b3s4Nt `+`4?Z# 79@и@Z 4N+`4h3г4c?#@7Z@4Bг44 Bs`!hг b%е4D@ T!*!@гt! д4 b%г` t څ@ 4h "4z?@7>C8C>г+`44 Bs`  "4D b%г tXt ` г` t д4c?д4D  04D " +`4h3` d@h@?д4V 4Z 4д@?s X44?5 T@? ?@? ?`4K>YK>K>K>K>K>K>K>K>@7>CS`0ZUUB4\ W6?r036s?r03 4@4Bst P6 B046?r04S6s??j04B` s@44\t 036s?r03B` t@44ʂ 4 p403`0ZB6s?r036s?r03B4` 4@k?CT4` 7@4BB034t :B03` 04 +`4h34?4B3`$p4+`44 T֟ғ6s?`@j@x@h@X@H@8@(@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@P@@@0@ @@@@@@@@@@@p@`@@x@h@X@H@8@h6@k? (h66? (h66?Sk?' k?'I9)Wғ'HK? x B3`;TK>@7?%dToken to large. %()*,/:;[]{}slmemcpy.o/ 813572402 204 200 100644 628 `  1thL t:6X!pp X t8 >(t@, >(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$0Q  jed_memcpy$CODE$T`S7` x7? t jC3bC3bC3bC3b6796?"6??"3@\slmemcmp.o/ 813572402 204 200 100644 1388 `  1lhL l:6X!hh X l8 >(l@, >(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$0Q ٶ jed_memcmp$CODE$7? z U*CTҔC3s CSC<@ CTҔC3s?CSCTҔC3s?CSCTҔC3s?_CSCTҔC3s?/CSCT ҔC3 s>CSCT ҔC3 s>CSCTҔC3s>CSCTҔC3s>oCSCTҔC3s>?CSCTҔC3s>CSCTҔC3s=CSCTҔC3s=CSCTҔC3s=CSCTҔC3s=OCSCTҔC3s=CSCT ҔC3 sҔC3>s:CS7Z@U79@`S7>` x z U@4CTC3 t 7ZU794@slmemset.o/ 813572403 204 200 100644 604 `  1\hL \:6X!XX X \8 >(\@, >(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$0P  jed_memset$CODE$7? z `S7`TH xcYcYcYcY7ZTcY7?7??Y"@slmemchr.o/ 813572403 204 200 100644 1124 `  1dhL d:6X!`` X d8 >(d@, >(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$0Q  jed_memchr$CODE$7? z U"4CSst @\CSst$P7\CSst$07\CSst$7\CSst#7\CS st#7\ CS st#7\ CSst#7\CSst#p7\CSst#P7\CSst#07\CSst#7\CSst"7\CSst"7\CSst"7\CSst"7\CS st"p7\ CS"st"P7\"CS$st"07\$CS&st"7\&CS(st!7\(CS*st!7\*CS,st!7\,CS.st!7\.CS0st!p7\0CS2st!P7\2CS4st!07\4CS6st!7\6CS8st 7\8CS:st 7\:CSst 7\>7Z@UCS`S7>` x  09CSsy;7??7Z@4@slxstrng.o/ 813572404 204 200 100644 788 `  1hLT<:uX!T X 8>(@,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$0A$0A0Q$ 4 jed_strcmp jed_strcpy jed_strncpy$CODE$"3T` ""3`?"@\CS` hTҔC3s B04?79CS` CSC<@ C3` 4@CSC<@ @@TC3` *"79S"S`_7?@\slgetkey.o/ 813572404 204 200 100644 1784 `  1hL|p`:LX! {X 8{>(@,{>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$0@ 08@LXl0L0 0@ 0@0@0@04p0LȳPPQ0QQPPP3 PPQQPPPPPPQQPPPP1 RRPPRR0RSLang_Input_Buffer_LenSLang_Input_BufferSLKeyBoard_Quitmemcpy SLsys_getkeySLsys_input_pendingSLang_ungetkey$global$ SLang_getkey$CODE$SLang_Ignore_User_AbortSLang_ungetkey_stringSLang_buffer_keystringSLang_Abort_CharSLang_input_pendingSLang_flush_inputk?o+`H3` 8+`@@Cs PK>49@#+`H87?h8Z@790t4>6@Z46\K>@O?+`3H4@+`456?  4 3? 5 (+`B3"B3+`H3 y h3@k?ok? C+`DH 4@HV+`4: U Y@XH c hK>K? @O?k?7c?7?_M4K>@7?k?7k?!+`H< `K>@@| 8\_@c?7?_4\K>K?!@7?k?o+`SJc+`Tjj`@4@+`@4B?h#K>@O?sldisply.o/ 813573460 204 200 100644 22796 `  1Y hL" D X Y :*lX!"&& X H8 >(L\ @ , 8>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ @  @(D\0tx0@ 0@0@ $(4P\h0|@0@(4@ UL \` hP tD < A     $@ 8D P \ h t   t l @| P0@, @,0p  @00 P@X h@\0@ @x @P @t0 @$0  @(0  8@@0L 0` (0t4 @800  @D0 t @00  @H (@L0<0T  @d0Tt  @0@ |0@  @0` @` @d04%t H `@  x@ @ @4 @0 @0 0$ 8 @L `@T0Tpl @0@  @ @ @0 @0 0  0@  @@ T@< d@ ( t@ 0 #l0P  @ 0  @  @l @p @  (@  <@h T@ 0 p#@0 $0 $0A %  @  RRPP^^^cPP`1*c3+` RRPPR PPPRPPR3RRRRaaPPP1)PP1PP1PP|PPPPPPPPPPPUU R PPPPRRPPRIӁӁM04 RR RR,PPPPTTXPPP\PPPPP RRPP PPxPPPP|PPPPPPPPPPPbPPPP bPPPP PPtPPPPxPPPP$PP(PP@PP RR ӁPP|PPSS$Ӂ8PP( DPP RRxPP RRRR3R 0PPHPPLPP\\\\PPPP,Ӂ14Ӂ RRK? K?K?K?!@O?k?ok? k?k?k?!k?)Ⱥ!DA+`TJ d j+`F+`S6h4 H  gd`HY@XH c _Mhde @XH d h+`H56>"a6s ҂+`TJ s s!u@jj@4C+`H3 cb"_]@@4+`h#K>K? K?K?K?!K?)@O?k?oz 0K>@ZZ_mYK>@O?k?7@c?+`H3b!C?s4>t@ +`H36shh3C?p H36s?0h3z +`+`h h +`H36s+`H4t 0+`+`H3` +`h +`UJ+`S6s 6jC?b7?_4K>@7?k?7k?ak?ik?qk?yk?k?E44k?k?49$\"5$4`7?4"|<6g >"sL6f Ҵ4J$R @"56?f(ҳc C57979Ҵ4 `4N"44b 4_ jx7_ jw7 0Ҵ_ "3j7P794Ȃ 6?sbҴ7? _ ] @k?' !5- 9IW'K?U4Ӷ uҳE 6t`" s s sB0 }ҳf "4d@ҳk?' !5- 9IW'K?U4Ӷ uҳ 6t`" s s! }`0"7`P"4Ҋ Ҵ(44V 07? _ _ J? } j?"5!T_ Bs t Uҳt 6x"Ҵ4䊓 4\k?@k? ( "7?_ Bu06""5;}ҴcK>K?aK?iK?qK?yK?K?@7?k?7S: 0W7=@X7=_}YK<@7=k?7SX+`h3+`h8+`H:_5Y+`h K>@7?k?7+`H94_E79?K>@7?k?ه@ (7+`H3` (H:*+`H3` H:4?_]@4K>@7?k?7k?!k?)Dy4` +`h +`H3 d +`H3`@`b+`H3`"r+`H3 d P+`H3`@8+`H3c +`H3` Z x+`H3b bb@+`H3s B+`H4"4s!4c?hc?` +`+`H3b 7?+`H3` 4S"6? 46??S"c@H3` +`H3b +`H5`4su@6? (7?46??S"+`H3s 46??S"c@7?@ +`_4B H:Y_X+`h#+`h$+`4h3K>K?!K?)@7?k?7+`_]H:K>@7?k?7+`_H:K>@7?k?@7+`_H:K>@7?k?7+`4?h3#@_}7Z+`4h3+`h +`H3` "`6z+`H:_@@@K>@7?k?7k>k>k>k>k>z!8K=Y@@+`H:@ Y4_-4B+`GH+`SJd+`FZ_EHHH S_47=4@X7=_ EYZ_HZ_-4K=YK>K>K>K>K>@7=k?@7_@+`_H:K>@7?k?ok? z K>@ @+`H:@ Y4_=4BH4c? 0+`D_-H4c?`'K>K? @O?k?+`H3 7_4+`H3+`H:@ `+`H3` X#@_ ]7Z_ E@#F@7Z#@7Z_ @_@K>@7?k?+`H3 7@ @+`_ H:K>@7?4S0+`43 Z T t " jt@k?ok? k?D4E S+`44 Hz@ x @@Hss+`44 Bt6bth`+`44 S jK>K? K?@O?4S@+`45 Z S "` yJ Sj@k?ok>k>k>k>k>k>k>k>k>k>MHL4?E4h44+`4)4 4  # Z@H *H F` * f 4c~_ # 4+`4(4    Z@H H %ԥ 4c~_  Ą HK>Y :  Z (K>Y_}YK>YK>K>K>K>K>K>K>K>K>K>@O>k?ok? k?k?k?!k?)k?1k?9GD484 S+`44 He J@ZHss+`44 Bt6bt@Z@7ȼ Z@Y+`44 S j4f4+`4*+`4)4 C Bs`0F 8c S 3 H@ @Y?_H4ch_ C +`44 B6sb+`43 T t ֆ  T֔ jtK>K? K?K?K?!K?)K?1K?9@O?k?o+`H3` pC+`H3s XK>ل` +`H:+`H:_@+`h#K>@O?k?ok? +`H3`!C+`DHu!x"` c u! ` 0+`_H:cH`h" +`H3 S _U@ģ+`_}H: @ D@ă+`_EH:(+`H3` +`_ H:+`H3` +`H:y_ x+`h#K>K? @O?k?+`H3`!`74SH+`H3` Z@ +`+`H:H:_ @+`4?h3+`H3` h Z T+`43 t Jt XJz+`H3S jh:Z_e4BP+`43 t Jz+`H3S K>_@K>@7?k?7_E4K>@7?k?7#@_7ZK>@7?k?7#@_]7ZK>@7?k?7k>k>k>k>k>k>k>k>k>k>k>k>F4? t"`7<+`N+`S6j+`I!7<+`L!`҅耶!HI` г s S S s S S JcH+`H3` (+`H3` ?I5I5u!4@      :`_1ZI iDI` pг s S S Jz@ J_@ cI3 sS _M@i#_ZV " t> ҅7< `_!@+`7< dH4 h3KK>K>K>K>K>K>K>K>K>K>K>@7Ch@hZ+`H3 c _-h37>4@@X7>Y_4B+`H9 X+`H3 c h37>X@47>Y_4BH9_ # K>YK>@7>k?7k>k>k>k>k>k>k>k>k>k>k>k>NED!   +`H7+`45*DD ր` D PD Ҕ TD s s S X Ҕ T D s s S JJs  D44Z_9e 4@+`SJy+`ST6Jx }0sw `w z 8Es s s S x RX5k s s S JtJ 5keO }0s$ 4@+`SJy+`ST6Jx =0sw `w z 8E3 s s S x RX5) s s S JtJ 5)$O =0s7:4 @+`L+`MS6fx4Dj `j#0I` @D s s S It BD s s S JtH"Dj `j"I` HD s s S It PZ0D s s S JtH!Z44Dj `j!I` @D s s S It H DB s s S JtH! DDj `j I` @D s s S It H D s s S JtH P D404D4@t?`t>uI D cDD!ր` I` PD Ҕ TD s s S X Ҕ T D s s S JJs (7: s d47: d_@`!7:8ZY_]4B` XD Ҕ TD s s S b Ҕ T D s s S JJs R s d42DD?ր`>IHT7:gz@@_YG7: Zx+` ( gzH@Y_4Bd_7:+`_@+`H3` 8+`H36s+`H4t`+`h K:YK>K>K>K>K>K>K>K>K>K>K>K>@7:k?@7˜!CҴ4\?056?r05C`0TC`!(T4H4x4|3sy BVsx 6?w 06?B` 6k?'3'K?U` "3`?"'K?TB`?3C`04K>@7?k?7+`H3k?@7?K>@7?k?7+`@49K>@7?k?7+`@49K>@7?k?7k?!k?)+`C#@@7Z 4h|#@@7Z| +`#@@7Z+`DZ# 79@4 04hZ# @79 xU3s4t R@ss4t 06B6s?p+`4h3@Z+`!hh<+`H3` X4+`H3` 84Z# @79 7;4k?Z# @790k?+`T4j+`T40j+`SJs` 7?42j@ 4B # 79@X@7;+`T+`SJsj#@@7Z+`S 0j|#@@7Z+` h<#@@7Z#@@7Z+` `h<#@@7Z+` 0h<#@@7Z+` h<+`4h3#@@7Z+`h<#@@7Z+`h<#@@7Z+`h<#@@7Z+`h<#@@7Z+`h<#@@7Z+`h<#@@7Z+`h<+`H3` +`@ss4bt H3` j+`TJ` +`"`6sjTJ` "`6sj#@@7Z+`h<+`H3` #@+`H3`!r7Z+`S@6y+`T@j4j#@7Z+`S@6y+`T@j40j#@@7Z\ :@@+`T@j40j#@@7Z\ :@@+`T@j4jZ# 79@4 04k?+`H3` P+`H3` +`H3` h#@+`H3` H#@K?` 7?@4B+`4h3#@@7Z+`Sj|#@@7Z+`C h|#@@7Zh|#@@7Z+`Sj|#@@7Z+`Sj|#@@7Z+`Sj|#@@7Z+`Dh#@@7Z+`Ch|#@@7Z+`Tj+`SJs` X+`"`6sh3"`6sh"`6shsj#@@7Z+` xh<+`H3` X+`"`6sh3+`"`6sh3+`"`6sh3K?` X+`"`6sh3+`"`6sh3+`"`6sh3+`H3` `+`+`H3` +`H3` (+`+`h +`h 4h3#@@7Z+`C h|#@@7Zh|#@@7Z+`Sj|#@@7Z+`Sj|#@@7Z+`Sj|#@7Z+`C@4y+`Sj|#@7Z@4y+`D 8h#@7Z@4yP4hK:K?!K?)@7;k?+`H3` 7#@^M7ZK>@7?+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3KS` +`+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`"`6sh3+`0h h +`h +`4h3+`@h k?7+`^H:_Y@_1@+`^]H:+`4h3K>@7?k?7+`H:7Z?_4+`_h +`^H:+`4?h3_Q4#@^7Z_ @+`^]H:^E@+`h K>@7?k?7+`^H:K>@7?k?o XC#@@7Z< #@7Z@4 H4?` #@7Z#@7Z^-@4K>@O?[3%d;4%dmQfffg [?5h[?5lwhitebrightcyanbrightmagentabrightblueyellowbrightgreenbrightredgraylightgraycyanmagentabluebrowngreenredblack[?3l[?3hCOLORTERMTERMTERM environment variable needs set.linuxvt52screenvt100Unknown terminal: %s Check the TERM environment variable. Also make sure that the terminal is defined in the terminfo database. Alternatively, set the TERMCAP environment variable to the desired termcap entry.clcmTerminal not powerful enough for SLang.imeidcvbupsrDLALtite[%dM[%dLcscoliLINESCOLUMNSxtermcemrsomdmbusasaeeAlmkjutvwqxn+o~s_`afg~ ,+.-hi0(B)U(B)0ac)0(B)0mesevivsRIamxssg=[?1l[%i%d;%drM[%dC[%i%d;%dH [?9h[?9l slsmg.o/ 813572411 204 200 100644 12664 `  11xhLhVl1x:5X!h X 1P8>(1P(@(,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ @ @ 0D0T@p0@  ,@80T@h U< A\$0Pdt 0T0@P0@ ,@@0@ P@ @`80Tl0( @  @$0h0L0( @< 0 08  L@0\0@p @ 000 $0@ |0  8@00H0`( t@40 @( @,0D @000@0@0P$ <@ L@80\0t,0T @0Tt  P8PP,PPQQ(PP4PP0PP,PP(PPPPQQPPPPP4PPPPPPPP,PP^^K? K?K?K?!@O?k?ok? +`H5+`H4a+`H3`K>ن`+`4H3`K>+`CHs s S+`T6 Jz+`SJy U Z _]4@Hs s S HhK>K? @O?+`h:+`@h9+`@H<+`@H<k?_-7+`H:+`7Z_H9K>@7?+`H3` z@ +`4h3h +`UJsj+`TJ Sj@Z@0+`T+`SJs zSj@k?7_4K>@7?+`T+`SJs@j+`T+`SJJt`4+`H3 t `b@ P+`T+`SJJt` +`H3 t `4@k?7 k6k6k6k6Y77@76@77K6@77k?o@DZ@HYK>@O?k?7k?!k?)k?1E4@Țc?`4@ZCexCZY7?4@x@Se4cK>K?!K?)K?1@7?k?ok>k>k>k>k>k>k>k>k>EHKK>K>!@J!0F4 )3` t Z_u YZ@0Y :`@24c? "@4@4c?`'ׅ K>Y:??4Z_ YZ@4 544?EK>YK>K>K>K>K>K>K>K>K>@O>k?ok>k>k>k>k>k>k>k>k>k>D+`H# $ @4$+`H8+`H3 c +`H4 T+`43 t Ӌ@Jwx W+`H4 T+`43 t ӃcJ|+`M+`S6l4+`S6k+`S6e+`J4 4(I`  6 Bv6?sfAs`7BDs  tUFҳ"bןPfr IS`@ x Y  8  bX Ds U79??!ֿҴ7@"Ft ןf679???7jt!h 6` jDs U7@@ֿ:Fҳ fן 67@JDs UFҳ fן 6h 64~7@JDs  tUFҳ fן6 h+`44+`H3 s S j+`h8K>YK>K>K>K>K>K>K>K>K>K>@O>k?7c?7?_4K>@7?k?7+`T+`SJsj+`S4_-Jy+`T4jK>@7?+`H3 S TT$sSdT$s@44+`H3 S V y Y٠44@ tғ z(ғ x   Tր ғ u  ٨0\@k?ok>k>k>k>k>k>k>k>k>k>k>k>k>k>+`H36j?@@P4+`45 J S Jt(Js 4_ J S4 `H+`45  S Jt(Js 5   SHD` G+`S6i+`M+`N4+`P S 3 J(I#J #4+`H3` S 3 Js #z4?h@84? T 4 s S 3 J Js(#*c S 3 Js 6? SbC 6?`p4I S 3   T 4 Ju J( "6? 8 S@6  c""V@I S 3 Jt :Js( ( c@0 s S 3 Js( 6_ SAIi@4Z@Y4@4@Z@@V@" S 3 6_jq4? c S 3 Izf@PV U 5 6? T 4 JjJ _j  D $ hJ_4@Ih 4??E4i4?[ S#K>YGc+`S6h+`K+`M4+`N S  J(Is#:J #(4C S  Js 6_ SBF6@p4Ix S   T  Ju J( "6 8_ S@6?  c"V@Iu S  Jt :Js( (f`0 s S  Js( 6_ SAI@iZ@Y4@4@Z@@V@" S  6_jo4?  S  V`PI: U  6 T  JjJ j c D  hI_4@Ish 4??E4c?i4| SK>YK>K>K>K>K>K>K>K>K>K>K>K>K>K>@O>k?ok? k?k?k?!k?)k?1+`H3`#4+`H3s`+`S6g+`F+`Ec S H` 4cH@Hh(Hsc S+`H3` +`@4@4B(H3` 4_M@+`H3sb+`S6f4 +`H+`E+`Gc S Js`!p 3` `Z@4?Z@4I` 04@@44I` H :hc S JzH_M4@hc D HH x Sf`H x Sf`HH@WH_5HhH(h 4c+`H3s~Mc S@4 p+`T+`SJJz+`S+`UJsJ T@ 3@@+`h K>K? K?K?K?!K?)K?1@O?K?9K?@4W`P4 : x@: XHZ wxSjj@4@k?7k?!+`C+`SHwJt7?k?7?k?X@  K?Hu k?K? U`Pk?+`47K? T J?6jK>K?!@7?k?o4+`@44 V+`44 bu6_ +`H3` +`H#` K> +`4#@Z u8+`46 b3s  b4ubtK>@O?k?@7K?Y@7?k?@7+`4h34+`H3`PT+`47J T J?6j_u@K?Y@7?k?ok>k>k>k>k>k>k>k>k>k>k>+`H3` @8@@4+`D+`SJsh+`C+`SJshs+`U+`T+`S+`Vjj`jj+`Sj`+`Sj`+`T4_ jH6gHsa`!+`N4 ?+`S6l+`K+`J+`I@Zȼ @Z|Zi4Y_4@ZY_4@ D hhhZ@Iyi\h h(4I3h+`4h<K>YK>K>K>K>K>K>K>K>K>K>K>@O>k?ok? k?+`H3`!H4+`H3s`+`S6d+`Ec S Jz@ c S@@c S Jz@ c S@@c S j`j`4cHs]c S@@+`S+`Tjj`+`Sj`K>K? K?@O?k?7@4 +`4S+`TJsJ  s S+`T6 +`T+`SJJs tJ t SF|K>@7?k?7 SX77@Y_ 77K6@77+`H5+`9H4h K3h3k4@ +`@h KSh3@kUk?ok? k?k?k?!GF+`h:+`h'@4 +`EH4h+`CHs Shs_hHssShs+`4h3K>K? K?K?K?!@O?k?7k?!k?)k?1k?9U+`SJz+`SJe+`T+`SJJtb( U +`H3 t b+`T+`SJJt7?k?7?k?YX@ !+`@3` 4:4@4 K?K? t`S6cd+`4h3+`H4 tTh4+`K?h3`Y6 +`4:_Q 5S`@@4c?+`D4_4 S`_4c?+`h%+`H3sSh3+`h&K>K?!K?)K?1K?9@7?k?7k>k>k>k>k>Y4c>+`H$+`H:+`H'+`H4` Y +`H3 t `p+`T+`SJJt7>k?7>k?X@  +`+` h&4h4+`H3 Sh3+`K>h4K>`h+`E+`Ch7>_4Ht6htK>h+`h$+`h&+`h'+`H3sSh3K>YK>K>K>K>K>@7>k?ok? k?k?k?!k?)k?1FGx!8D!(+`Ii&+`Hi4c?4?_Z_Zi&i_mZ_EZZY_4 ZY_4f ZY_4ZY_e4i&iK>K? K?K?K?!K?)K?1@O?k?ok>k>k>k>k>k>k>k>GHEȗBC>bK>Y_ y@+`H'+`H(+`H3 xD +`H3XEs+`44 Bc+`t@3 4:y@4 +`ah'+`K+`IS6j+`Fih`S4cd`Y4  Z $5:4 _@S`_4c?H6seMh+`h'K>YK>K>K>K>K>K>K>K>@O>a:j+k+l+m+q-t+u+v+w+x|slsearch.o/ 813572412 204 200 100644 2296 `  1hLp`:X!ppp ~X 8~>(@,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ ,@ 8D UP Udx0Q0U @0@D 0xPPPPPPPP 44 11RRPPQQ#QQPPRRPPQQPPQQPPQQPPQQ RR Chg_UCase_Lut Chg_LCase_Lut$BSS$$LIT$strlensearch_forwardsearch_backward SLang_doerrorSLsearch$global$ SLsearch_initCase_Tables_OkSLang_define_case$CODE$SLang_init_case_tablesk?K? Yw`K?  B}?6? z @ JYӵCS hu YCSbYh+`46ӵCS ` Bsu  YCSY6?44`p z+`46@  Bs Bt ҔBs 6 h>7ZK?@K? Yw`K?@4 CY+`46 C4ғ Btғu  y YY]4`h+`46  Bs Bt ҔBs 6 h 79?@\k?TJ `@@7Jk?6k?6J @4B8Jk?6k?6@J K>@7?k?ok? k?k?k?!k?)k?1CFI@GD44(4#@@7Z4?h h+`H3` @@@U4?  4Sdtd@4+`48+`47 @sbP@s@s  BsbB jt@s Bs jt  SdM6 b`h \K>K? K?K?K?!K?)K?1@O?CVC5+`44 buҵ+`43 u @b+`H3`!44+`47+`46 bt bt6_ 44+`48+`476@  bt 6_bu44+`48+`476@  bt 6_bu+`454b+`44b4bb4bb4bb+`4h3@Search string too long.slcmd.o/ 813572412 204 200 100644 2684 `  1 |hL~( |:X!00 |X  8|>( |@,~>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$  4@Xp  A0Ah  2  83QQ12 11QQ(Ӏ2 Q3Q1v2D1ԀӀ1 `ԀӀ1Q1 11 !$LIT$ SLang_Error SLang_doerrorstrlenSLang_extract_tokenSLang_guess_typeSLmake_nstringmalloc $$dyncallstrcpyfreeSLcmd_find_commandstrcmpSLatoiatofSLcmd_execute_string$CODE$$global$k?ok? k?DC 3e@ss` @4y e?4c`@Z?4c`\4K>K? K?@O?k?7k>k>k>k>k>k>k>k>k>k>k>k>k<9H4 4?7<97<@4 (K@7<@I\"#@@7Z4?@4|`Z+`4?h3P4?7Z@4B#@7Z@4B@7K>K>K>K>K>K>K>K>K>K>K>@7( @,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$  @(4 AH\ht @ PT 00 @  @ 40A@l0AT0h |QQQQ RRQ4 QQQQQQQQQQ1 TӀ xӀQӀӀ4QQԀ1Ā2Ԁ11 ̀ӀԀ2Ԁ2ԀӀ2 ܀Ӏ9$LIT$$BSS$__iobsprintf SLang_doerror check_memoryfreecallocreallocmallocfprintf Max_AllocatedfixupSLmalloc_doerrorSLmalloc_dump_statistics SLdebug_freeMax_Single_AllocationTotal_Allocated$CODE$SLdebug_reallocSLdebug_callocSLdebug_malloc$global$k?7+`T+`U+`SJsk?+`S6z# 79J@JK>@7?7Z3cS?3cS?3cS?cY? : 46cS4lcS4cS4cS+`H3 y h4+`H3 Xh4+`H3 3Xh9@k?@7K>@7?k?7WXB?ֵ B?s  uUB?s  uUB? uU4b?b?b? (b?7># 796? B46 `7>B4l H# B4 079B4 @+`# 79@@_U7>h4H3 ``@h3k?k?7># @79@7>4K=@7>k?oC# @79 K>@4z?K>@O?k?ok? D@4| 0ZY#_ 74|4K>K? @O?k?ok? CD# @79 P4z?@4| 0ZY#_E74|4K>K? @O?k?ok? k?ED44@ Z| jk?' k?'I9)WZ'HK?Y#_M74|4K>K? K?@O?Total Allocated: %ld Highest single allocation: %ld Highest Total Allocated:%ld %s: %p: Already FREE! Abort NOW.%s: %p: Memory corrupt! Abort NOW.%s: %p Freed %ld, Allocated is: %ld! FREEMALLOCREALLOCCALLOCslclass.o/ 813572414 204 200 100644 2048 `  1hL}l:X! |X 8|>(@,}>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ ,8H Th t0Q T0A0A0Q0(0Hx dPP13PP  PP11 PPPPPP11SS PP11SLang_Registered_Types$LIT$malloc SLang_Errorfreedefault_destroymemset $$dyncall SLang_doerrorSLang_add_binary_op add_binary_opSLang_add_unary_opSLang_add_copy_operationSLang_register_class$global$SLang_create_user_objectSLang_free_user_object$CODE$@k?ok? k?k?DEд+`43t ` F@4(|Zp44@4( д"`6dhdhf+`43 t jc4K>K? K?K?@O?c8k7k KT kY@J`?J@jk?ok? k?k?k?!k?)k?1IHF4+`44   4@4| @4Ȝ XZY_ WZY_} W@4` @Z 4@Z4K>K? K?K?K?!K?)K?1@O?Z+`43z ` 4jy@4@Z+`43z ` 4jy @4@k?oCt4&s+`44 ` #@7Z@4BX@4˜ "c4`c k+`4?h34K>@O?k?oC@t4` K>Hs6s?` Xhs@s+`44 JsHzVB@ZK>@O?Type not registered.slmisc.o/ 813572414 204 200 100644 900 `  1hLT&|x:X! &X 8&>(@,&>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$ 0A,(@0L` p1213PP SLang_ErrorstrlenmemcpySLmake_nstringmalloc SLmake_string$global$$CODE$k?o@DZ@YK>@O?k?ok? k?ED@4| 8ZY@X b` \+`4?h34K>K? K?@O?sltermin.o/ 813572416 204 200 100644 8140 `  1hLln L ` :%X!l  >X xx8>>(|P@P,@>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$  $ 0@ A< X$0p@H0@0@0@  U Qx  A$x< AHT A`l Ap< T P L H D @ < 8 4 0 , ( $    , 8 D P \  h t             8 D P \ h t               ( 4| @x Lt Xp dl ph |d ` A A \ X A A A (l 4h @d L`X Ad x0Ad @0A0A 4 0,264 11 1 4 12 0 1 2H1ԀSSSTӀ42222^2\2Y1 1 2XXX4 12]WW2dYY 31c  VVp1Ԁ11W1 13V28&]%j%e%%%%%%%%%%%% %!%"%#%$%%%&%'%(%)%*%+%,%-%.%/%0%1%2%3%4%5%7%9%:%;%<%=%>%?%@%A%B%C%D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%Z%[%_%`%a%b$LIT$ make_integerfree$DATA$read_terminfo_sectiontcap_extract_fieldSLtt_Try_Termcap Tgetnum_Map Tgetstr_Map Tgetflag_Mapfclosecompute_cap_offsetmallocfreadgetenv tcap_get_capL$C0003read_boolean_flagssprintfread_terminal_names tcap_getent open_terminfoL$C0006L$C0007L$C0008L$C0009L$C0010L$C0011L$C0012L$C0013L$C0014L$C0015L$C0016L$C0017L$C0018L$C0019L$C0020L$C0021L$C0022L$C0023L$C0024L$C0025L$C0026L$C0027L$C0028L$C0029L$C0030L$C0031L$C0032L$C0033L$C0034L$C0035L$C0036L$C0037fopenL$C0038SLexpand_escaped_charL$C0039L$C0040L$C0041L$C0042L$C0043L$C0044L$C0045L$C0046L$C0047L$C0048L$C0049L$C0050L$C0051L$C0052L$C0053L$C0054L$C0055L$C0056L$C0057L$C0058L$C0059L$C0060L$C0061L$C0062L$C0063L$C0064L$C0065L$C0066L$C0067strncpystrlen tcap_getstrread_string_tableL$C0068L$C0069read_string_offsets tcap_getnum read_numbersL$C0070L$C0071L$C0072L$C0073atoi tcap_getflagL$C0002 SLtt_tigetnum Terminfo_Dirs SLtt_tigetstrSLtt_tigetflagL$C0001$global$$CODE$ SLtt_tigetentB4C\4 : 4@4? ל @4?ל @ k?7k?1k?9D# @79|7?444@W @7?44 z@7?h@7?h@7?h(@7?!h8@7?%hH@Z4\K>K?1K?9@7?k?ok? k?ED@Z| BZ4X@W \@Z4K>K? K?@O?k?oD@HhK>@O?k?oDHH 3 y ` y@ h K>@O?k?oDH(@9!h0K>@O?k?oDH8@9!h@K>@O?k?oD@HHhPK>@O?k?7k?k?k?!k?)k?1k?9"@4@4XȜ""Z@Y #@\@7Z+`h<44(  R@k?7=4@7=@Yȼ(Z4cf_  !Z@Y Z@Y Z@Y Z@Y XZ@Y *@Z4hh\@H@@H0@H @H@Z@Z4K@O?k?9 oK#` jHsd Y@4BP+`48@Hw(˜@Hz0 \ Z@4B4?K>@O?k?9 oK#` jHsd Y@4BP+`48@Hw˜@Hs B|4?K>@O?K4 4K3 t CSpCZvZBs BsS (46B@4@CS9CT@4  8PzҔC3S C3 07<C3 y 8C3@4@k?7SJy0@Jx(\ 4?@4BK>@7?k?7SJyP@JxHK>@7?CS` 0\4tst B03`?st4t \@4?@ \@k?7k>k>k>k>k>k>k>k>k>k>k>k>+`H3`!PH#@@7Z!*@4^!C4 44z@ZD b@B@si 84@sf 4@se$4?4} c @Z@7\ @EiC@ZȜ Z@Z4?Y@X b`4 e i c iPC4z4 \4 4 4 ~4 @ZD!P4\@"@sn 4@sm 4 c  dF b3c>C>l *d Z@7>`Ck RdJ b3c>C>j C>c>6s@c>C>d= " "`4cIP eiHCi04 F@ZD @*@si 4@sf  4 c xT b3x " " bE4cI0 ei(Ci 4\4@@ZD r 4@s g(f4 c @s`@s`4cm4I ei4i4K>YK>K>K>K>K>K>K>K>K>K>K>K>@7>rb/usr/local/lib/terminfo/usr/share/lib/terminfo/usr/lib/terminfoTERMINFO%s/%c/%svsvivbusuptitesrsosemrmemdmbkuktkrklkhkdkbk;kakTkSkRkPkNkMkLkIkHkFkEkDkCkAk9k8k7k6k5k4k3k2k1k0imeAeidccscmclceasaeacRIDLAL@7licosgxsmsamTERMCAPnjp& *ABDEFGHIJKN9;?TPM<>QRU@V8C7=LOS:W'"+#($- slprepr.o/ 813572416 204 200 100644 2872 `  1 8hL 8:rX! ~X   8~>( 8@,>(R@D$TEXT$ $PRIVATE$$CODE$$DATA$$LIT$$BSS$  @(4@LX Ad Ax @0$0(0A0 QQ13  QQ3$ 1(2132735Ӏ2 Ӏ Ӏ2 $LIT$$BSS$strncmpstrlengetenvstrstrstrncpystrcmpis_any_definedis_env_defined SLdefinesSLprep_close_prepSLdefine_for_ifdefSLprep_line_ok$global$SLprep_open_prep$CODE$k@k@k@4JcS4FcS@4@k?ok? k?E4+`454t @s` h6@Z@D d"ZY@X `4_mt4K>K? K?@O?k?ok? k?k?k?!k?)k?1k?9I4+`4*4@&g S  3e!X C@tғ` Bt!ғh@" b04ғ` ` ғt@҂f ZY@X B @ssh@4f??@tK>@tғh_4@ғf>@t b04ғu^@t4^g4K>K? K?K?K?!K?)K?1K?9@O?k?7k>k>k>k>k>k>k?C@t4@8H@sst#7>7>ς24@@su b3"@sb@t4@4@7>ȼ"@t4@? b04? b04@u! @sst"(4"7>4@4 T7>*@sg b3"@sb@sg6?7> tBu XC>su 0Zb@7> 04H7>si XZ@Z`P 7>@X (4@7> 4@s g(r * b03g? b03r? b03@s` 84t *@sst> 7>4K>YK>K>K>K>K>K>K?@7>k?ok? k?k?k?!k?)z$G$@st$@tҔ@s$Z@tҔ@s *HH |84(K>HH b03s4Bt (H@s4Ft#4@st4@? b03? b03@ss4t@ Z84HK># 79@4 2 4?F4? xH@su4ʊ @ss4؊t 4 Z R d03s4t "@ssu F4?8@ss4Ҋt!4@ss4̊t!K>و!4 d03s4܊t 444cZ# 79@4 (Z@4z9@4B# 79@4 4H04@sst 8Z# 79@4 84z@4z@984 HF`"hhh44K>K? K?K?K?!K?)@O?endifdeffalsetrues4t@ Z84HK># 79@4 2 4?F4? xH@su4ʊ @ss4؊t 4 Z R d03s4t "@ssu F4?8@ss4Ҋt!4@ss4̊t!K>و!4 d03s4܊t 444cZ# 79@4 (Z@4z9@4B# 79@4 4H04@sst 8Z# 79@4 84z@4z@98slang-0.99.12/src/.#sldisply.c000064400000000000003000001034520603742324100155610ustar00rootsys00000000000000/* Copyright (c) 1992, 1995 John E. Davis * All rights reserved. * * You may distribute under the terms of either the GNU General Public * License or the Perl Artistic License. */ #include #include #include #include "config.h" #include "slang.h" #include "_slang.h" #ifndef NO_STDLIB_H #include #endif #ifndef NO_UNISTD_H # include #endif #ifdef __DECC /* These get prototypes for write an sleep */ # include # include #endif /* Colors: These definitions are used for the display. However, the * application only uses object handles which get mapped to this * internal representation. The mapping is performed by the Color_Map * structure below. */ #define CHAR_MASK 0x000000FF #define FG_MASK 0x0000FF00 #define BG_MASK 0x00FF0000 #define ATTR_MASK 0x1F000000 #define BGALL_MASK 0x0FFF0000 /* The 0x10000000 bit represents the alternate character set. BGALL_MASK does * not include this attribute. */ #define GET_FG(color) ((color & FG_MASK) >> 8) #define GET_BG(color) ((color & BG_MASK) >> 16) #define MAKE_COLOR(fg, bg) (((fg) | ((bg) << 8)) << 8) int SLtt_Screen_Cols; int SLtt_Screen_Rows; int SLtt_Term_Cannot_Insert; int SLtt_Term_Cannot_Scroll; int SLtt_Use_Ansi_Colors; int SLtt_Blink_Mode = 1; int SLtt_Use_Blink_For_ACS = 0; int SLtt_Newline_Ok = 0; int SLtt_Has_Alt_Charset = 0; static int Automatic_Margins; /* static int No_Move_In_Standout; */ static int Worthless_Highlight; static int Linux_Console; /* It is crucial that JMAX_COLORS must be less than 128 since the high bit * is used to indicate a character from the ACS (alt char set). The exception * to this rule is if SLtt_Use_Blink_For_ACS is true. This means that of * the highbit is set, we interpret that as a blink character. This is * exploited by DOSemu. */ #define JMAX_COLORS 256 #define JNORMAL_COLOR 0 typedef struct { SLtt_Char_Type fgbg; SLtt_Char_Type mono; char *custom_esc; } Ansi_Color_Type; #define RGB1(r, g, b) ((r) | ((g) << 1) | ((b) << 2)) #define RGB(r, g, b, br, bg, bb) ((RGB1(r, g, b) << 8) | (RGB1(br, bg, bb) << 16)) static Ansi_Color_Type Ansi_Color_Map[JMAX_COLORS] = { {RGB(1, 1, 1, 0, 0, 0), 0x00000000, NULL}, {RGB(0, 0, 1, 0, 0, 0), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 0, 0, 0), SLTT_REV_MASK, NULL}, {RGB(1, 0, 0, 0, 0, 0), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 0, 0, 1), SLTT_REV_MASK, NULL}, {RGB(1, 0, 0, 0, 0, 1), SLTT_REV_MASK, NULL}, {RGB(0, 0, 1, 0, 1, 0), SLTT_REV_MASK, NULL}, {RGB(1, 0, 0, 0, 1, 0), SLTT_REV_MASK, NULL}, {RGB(0, 0, 1, 1, 0, 0), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 0, 0), SLTT_REV_MASK, NULL}, {RGB(0, 1, 1, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(1, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(1, 0, 1, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 0, 0, 0, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL}, {RGB(0, 1, 0, 1, 1, 1), SLTT_REV_MASK, NULL} }; /* This is the string to use to use when outputting color information. */ #ifdef M_UNIX /* work around for sco console bug that can't handle combined sequences */ static char *Color_Escape_Sequence = "\033[3%dm\033[4%dm"; #else static char *Color_Escape_Sequence = "\033[3%d;4%dm"; #endif char *SLtt_Graphics_Char_Pairs; /* ac termcap string -- def is vt100 */ /* 1 if terminal lacks the ability to do into insert mode or into delete mode. Currently controlled by S-Lang but later perhaps termcap. */ static char *UnderLine_Vid_Str; static char *Blink_Vid_Str; static char *Bold_Vid_Str; static char *Ins_Mode_Str; /* = "\033[4h"; */ /* ins mode (im) */ static char *Eins_Mode_Str; /* = "\033[4l"; */ /* end ins mode (ei) */ static char *Scroll_R_Str; /* = "\033[%d;%dr"; */ /* scroll region */ static char *Cls_Str; /* = "\033[2J\033[H"; */ /* cl termcap STR for ansi terminals */ static char *Rev_Vid_Str; /* = "\033[7m"; */ /* mr,so termcap string */ static char *Norm_Vid_Str; /* = "\033[m"; */ /* me,se termcap string */ static char *Del_Eol_Str; /* = "\033[K"; */ /* ce */ static char *Del_Char_Str; /* = "\033[P"; */ /* dc */ static char *Del_N_Lines_Str; /* = "\033[%dM"; */ /* DL */ static char *Add_N_Lines_Str; /* = "\033[%dL"; */ /* AL */ static char *Rev_Scroll_Str; static char *Curs_Up_Str; static char *Curs_F_Str; /* RI termcap string */ static char *Cursor_Visible_Str; /* vs termcap string */ static char *Cursor_Invisible_Str; /* vi termcap string */ static char *Start_Alt_Chars_Str; /* as */ static char *End_Alt_Chars_Str; /* ae */ static char *Enable_Alt_Char_Set; /* eA */ static char *Term_Init_Str; static char *Term_Reset_Str; /* static int Len_Curs_F_Str = 5; */ /* cm string has %i%d since termcap numbers columns from 0 */ /* char *CURS_POS_STR = "\033[%d;%df"; ansi-- hor and vert pos */ static char *Curs_Pos_Str; /* = "\033[%i%d;%dH";*/ /* cm termcap string */ /* scrolling region */ static int Scroll_r1 = 0, Scroll_r2 = 23; static int Cursor_r, Cursor_c; /* 0 based */ /* current attributes --- initialized to impossible value */ static SLtt_Char_Type Current_Fgbg = 0xFFFFFFFF; static int Cursor_Set; /* 1 if cursor position known, 0 * if not. -1 if only row is known */ #define MAX_OUTPUT_BUFFER_SIZE 4096 static unsigned char Output_Buffer[MAX_OUTPUT_BUFFER_SIZE]; static unsigned char *Output_Bufferp = Output_Buffer; unsigned long SLtt_Num_Chars_Output; int SLtt_flush_output (void) { int nwrite = 0; int n = (int) (Output_Bufferp - Output_Buffer); SLtt_Num_Chars_Output += n; while (n > 0) { nwrite = write (fileno(stdout), (char *) Output_Buffer + nwrite, n); if (nwrite == -1) { nwrite = 0; #ifdef EAGAIN if (errno == EAGAIN) continue; #endif #ifdef EINTR if (errno == EINTR) continue; #endif break; } n -= nwrite; } Output_Bufferp = Output_Buffer; return n; } int SLtt_Baud_Rate; static void tt_write(char *str, int n) { static unsigned long last_time; static int total; unsigned long now; int ndiff; if ((str == NULL) || (n <= 0)) return; total += n; while (1) { ndiff = MAX_OUTPUT_BUFFER_SIZE - (int) (Output_Bufferp - Output_Buffer); if (ndiff < n) { MEMCPY ((char *) Output_Bufferp, (char *) str, ndiff); Output_Bufferp += ndiff; SLtt_flush_output (); n -= ndiff; str += ndiff; } else { MEMCPY ((char *) Output_Bufferp, str, n); Output_Bufferp += n; break; } } if (((SLtt_Baud_Rate > 150) && (SLtt_Baud_Rate <= 9600)) && (10 * total > SLtt_Baud_Rate)) { total = 0; if ((now = (unsigned long) time(NULL)) - last_time <= 1) { SLtt_flush_output (); sleep((unsigned) 1); } last_time = now; } } void SLtt_write_string(char *str) { if (str != NULL) tt_write(str, strlen(str)); } void SLtt_putchar(char ch) { SLtt_normal_video (); if (Cursor_Set == 1) { if (ch >= ' ') Cursor_c++; else if (ch == '\b') Cursor_c--; else if (ch == '\r') Cursor_c = 0; else Cursor_Set = 0; if ((Cursor_c + 1 == SLtt_Screen_Cols) && Automatic_Margins) Cursor_Set = 0; } if (Output_Bufferp < Output_Buffer + MAX_OUTPUT_BUFFER_SIZE) { *Output_Bufferp++ = (unsigned char) ch; } else tt_write (&ch, 1); } /* this is supposed to be fast--- also handles termcap: %d, &i, %., %+, %r strings as well as terminfo stuff */ static int tt_sprintf(char *buf, char *fmt, int x, int y) { register unsigned char *f = (unsigned char *) fmt, *b, ch; int offset = 0, tinfo = 0; int stack[10]; int i = 0, z; stack[0] = y; stack[1] = x; i = 2; b = (unsigned char *) buf; if (fmt != NULL) while ((ch = *f++) != 0) { if (ch != '%') *b++ = ch; else { ch = *f++; if (tinfo) { if ((ch <= '3') && (ch >= '0')) { /* map it to termcap. Since this is terminfo, * it must be one of: * %2d, %3d, %02d, %03d * * I am assuming that a terminal that understands * %2d form will also understand the %02d form. These * only differ by a space padding the field. */ /* skip the 'd'-- hope it is there */ if (ch == '0') { ch = *f; f += 2; } else f++; } } if (ch == 'p') { tinfo = 1; ch = *f++; if (ch == '1') stack[i++] = x; else stack[i++] = y; } else if (ch == '\'') /* 'x' */ { stack[i++] = *f++; f++; } else if ((ch == 'd') || (ch == '2') || (ch == '3')) { z = stack[--i]; z += offset; if (z >= 100) { *b++ = z / 100 + '0'; z = z % 100; goto ten; } else if (ch == 3) { *b++ = '0'; ch = '2'; } if (z >= 10) { ten: *b++ = z / 10 + '0'; z = z % 10; } else if (ch == 2) *b++ = '0'; *b++ = z + '0'; } else if (ch == 'i') { offset = 1; } else if (ch == '+') { if (tinfo) { z = stack[--i]; stack[i-1] += z; } else { ch = *f++; if ((unsigned char) ch == 128) ch = 0; ch = ch + (unsigned char) stack[--i]; if (ch == '\n') ch++; *b++ = ch; } } else if (ch == 'r') { stack[0] = x; stack[1] = y; } else if ((ch == '.') || (ch == 'c')) { ch = (unsigned char) stack[--i]; if (ch == '\n') ch++; *b++ = ch; } else *b++ = ch; } } *b = 0; return((int) (b - (unsigned char *) buf)); } static void tt_printf(char *fmt, int x, int y) { char buf[256]; int n; if (fmt == NULL) return; n = tt_sprintf(buf, fmt, x, y); tt_write(buf, n); } void SLtt_set_scroll_region (int r1, int r2) { Scroll_r1 = r1; Scroll_r2 = r2; tt_printf (Scroll_R_Str, Scroll_r1, Scroll_r2); Cursor_Set = 0; } void SLtt_reset_scroll_region (void) { SLtt_set_scroll_region(0, SLtt_Screen_Rows - 1); } int SLtt_set_cursor_visibility (int show) { if (show) { if (Cursor_Visible_Str != NULL) SLtt_write_string (Cursor_Visible_Str); else return -1; return 0; } if (Cursor_Invisible_Str != NULL) SLtt_write_string (Cursor_Invisible_Str); else return -1; return 0; } /* the goto_rc function moves to row relative to scrolling region */ void SLtt_goto_rc(int r, int c) { char *s = NULL; int n; char buf[6]; if (c < 0) { c = -c - 1; Cursor_Set = 0; } /* if (No_Move_In_Standout && Current_Fgbg) SLtt_normal_video (); */ r += Scroll_r1; if ((Cursor_Set > 0) || ((Cursor_Set < 0) && !Automatic_Margins)) { n = r - Cursor_r; if ((n == -1) && (Cursor_Set > 0) && (Cursor_c == c) && (Curs_Up_Str != NULL)) { s = Curs_Up_Str; } else if ((n >= 0) && (n <= 4)) { if ((n == 0) && (Cursor_Set == 1) && ((c > 1) || (c == Cursor_c))) { if (Cursor_c == c) return; if (Cursor_c == c + 1) { s = buf; *s++ = '\b'; *s = 0; s = buf; } } else if (c == 0) { s = buf; if ((Cursor_Set != 1) || (Cursor_c != 0)) *s++ = '\r'; while (n--) *s++ = '\n'; #ifdef VMS /* Need to add this after \n to start a new record. Sheesh. */ *s++ = '\r'; #endif *s = 0; s = buf; } /* Will fail on VMS */ #ifndef VMS else if (SLtt_Newline_Ok && (Cursor_Set == 1) && (Cursor_c >= c) && (c + 3 > Cursor_c)) { s = buf; while (n--) *s++ = '\n'; n = Cursor_c - c; while (n--) *s++ = '\b'; *s = 0; s = buf; } #endif } } if (s != NULL) SLtt_write_string(s); else tt_printf(Curs_Pos_Str, r, c); Cursor_c = c; Cursor_r = r; Cursor_Set = 1; } void SLtt_begin_insert (void) { SLtt_write_string(Ins_Mode_Str); } void SLtt_end_insert (void) { SLtt_write_string(Eins_Mode_Str); } void SLtt_delete_char (void) { SLtt_normal_video (); SLtt_write_string(Del_Char_Str); } void SLtt_erase_line (void) { char *s; Current_Fgbg = 0xFFFFFFFF; SLtt_write_string("\r"); Cursor_Set = 1; Cursor_c = 0; if (SLtt_Use_Ansi_Colors) s = "\033[0m"; else s = Norm_Vid_Str; SLtt_write_string(s); SLtt_del_eol(); } void SLtt_delete_nlines (int n) { int r1, curs; char buf[132]; if (!n) return; SLtt_normal_video (); if (Del_N_Lines_Str != NULL) tt_printf(Del_N_Lines_Str,n, 0); else /* get a new terminal */ { r1 = Scroll_r1; curs = Cursor_r; SLtt_set_scroll_region(curs, Scroll_r2); SLtt_goto_rc(Scroll_r2 - Scroll_r1, 0); MEMSET(buf, '\n', n); tt_write(buf, n); /* while (n--) tt_putchar('\n'); */ SLtt_set_scroll_region(r1, Scroll_r2); SLtt_goto_rc(curs, 0); } } void SLtt_cls (void) { SLtt_normal_video(); SLtt_reset_scroll_region (); SLtt_write_string(Cls_Str); } void SLtt_reverse_index (int n) { if (!n) return; SLtt_normal_video(); if (Add_N_Lines_Str != NULL) tt_printf(Add_N_Lines_Str,n, 0); else { while(n--) SLtt_write_string(Rev_Scroll_Str); } } int SLtt_Ignore_Beep = 3; static char *Visible_Bell_Str; void SLtt_beep (void) { if (SLtt_Ignore_Beep & 0x1) SLtt_putchar('\007'); if (SLtt_Ignore_Beep & 0x2) { if (Visible_Bell_Str != NULL) SLtt_write_string (Visible_Bell_Str); else if (Linux_Console) { SLtt_write_string ("\033[?5h"); SLtt_flush_output (); usleep (50000); SLtt_write_string ("\033[?5l"); } } SLtt_flush_output (); } void SLtt_del_eol (void) { if (Current_Fgbg != 0xFFFFFFFF) SLtt_normal_video (); SLtt_write_string(Del_Eol_Str); } typedef struct { char *name; SLtt_Char_Type color; } Color_Def_Type; static Color_Def_Type Color_Defs[16] = { {"black", 0x00000000}, {"red", 0x00000100}, {"green", 0x00000200}, {"brown", 0x00000300}, {"blue", 0x00000400}, {"magenta", 0x00000500}, {"cyan", 0x00000600}, {"lightgray", 0x00000700}, {"gray", 0x00000800}, {"brightred", 0x00000900}, {"brightgreen", 0x00000A00}, {"yellow", 0x00000B00}, {"brightblue", 0x00000C00}, {"brightmagenta", 0x00000D00}, {"brightcyan", 0x00000E00}, {"white", 0x00000F00} }; void SLtt_set_mono (int obj, char *what, SLtt_Char_Type mask) { if ((obj < 0) || (obj >= JMAX_COLORS)) { return; } Ansi_Color_Map[obj].mono = mask & ATTR_MASK; } static unsigned char FgBg_Stats[JMAX_COLORS]; void SLtt_set_color_object (int obj, SLtt_Char_Type attr) { char *cust_esc; if ((obj < 0) || (obj >= JMAX_COLORS)) return; cust_esc = Ansi_Color_Map[obj].custom_esc; if (cust_esc != NULL) { SLFREE (cust_esc); FgBg_Stats[(Ansi_Color_Map[obj].fgbg >> 8) & 0x7F] -= 1; Ansi_Color_Map[obj].custom_esc = NULL; } Ansi_Color_Map[obj].fgbg = attr; } void SLtt_add_color_attribute (int obj, SLtt_Char_Type attr) { if ((obj < 0) || (obj >= JMAX_COLORS)) return; Ansi_Color_Map[obj].fgbg |= (attr & ATTR_MASK); } void SLtt_set_color (int obj, char *what, char *fg, char *bg) { int i; SLtt_Char_Type f = 0xFFFFFFFF, g = 0xFFFFFFFF; SLtt_Char_Type attr = 0; if ((obj < 0) || (obj >= JMAX_COLORS)) { return; } i = 0; while (i < 16) { if (!strcmp(fg, Color_Defs[i].name)) { f = Color_Defs[i].color; if (f & 0x800) { f &= 0x700; attr = SLTT_BOLD_MASK; } break; } i++; } i = 0; while (i < 16) { if (!strcmp(bg, Color_Defs[i].name)) { g = Color_Defs[i].color; g &= 0x700; g = g << 8; break; } i++; } if ((f == 0xFFFFFFFF) || (g == 0xFFFFFFFF) || ((f == g) && (attr == 0))) return; SLtt_set_color_object (obj, f | g | attr); } void SLtt_set_color_esc (int obj, char *esc) { char *cust_esc; SLtt_Char_Type fgbg = 0; int i; if ((obj < 0) || (obj >= JMAX_COLORS)) { return; } cust_esc = Ansi_Color_Map[obj].custom_esc; if (cust_esc != NULL) { SLFREE (cust_esc); FgBg_Stats[(Ansi_Color_Map[obj].fgbg >> 8) & 0x7F] -= 1; } cust_esc = (char *) SLMALLOC (strlen(esc) + 1); if (cust_esc != NULL) strcpy (cust_esc, esc); Ansi_Color_Map[obj].custom_esc = cust_esc; if (cust_esc == NULL) fgbg = 0; else { /* The whole point of this is to generate a unique fgbg */ for (i = 0; i < JMAX_COLORS; i++) { if (FgBg_Stats[i] == 0) fgbg = i; if (obj == i) continue; if ((Ansi_Color_Map[i].custom_esc) == NULL) continue; if (!strcmp (Ansi_Color_Map[i].custom_esc, cust_esc)) { fgbg = (Ansi_Color_Map[i].fgbg >> 8) & 0x7F; break; } } FgBg_Stats[fgbg] += 1; } fgbg |= 0x80; Ansi_Color_Map[obj].fgbg = (fgbg | (fgbg << 8)) << 8; } void SLtt_set_alt_char_set (int i) { static int last_i; if (SLtt_Has_Alt_Charset == 0) return; if (i == last_i) return; SLtt_write_string (i ? Start_Alt_Chars_Str : End_Alt_Chars_Str ); last_i = i; } static void write_attributes (SLtt_Char_Type fgbg) { int bg0, fg0; if (Worthless_Highlight) return; if (fgbg == Current_Fgbg) return; /* Before spitting out colors, fix attributes */ if ((fgbg & ATTR_MASK) != (Current_Fgbg & ATTR_MASK)) { if (Current_Fgbg & ATTR_MASK) { SLtt_write_string(Norm_Vid_Str); /* In case normal video turns off ALL attributes: */ if (fgbg & SLTT_ALTC_MASK) Current_Fgbg &= ~SLTT_ALTC_MASK; } if ((fgbg & SLTT_ALTC_MASK) != (Current_Fgbg & SLTT_ALTC_MASK)) { SLtt_set_alt_char_set ((int) (fgbg & SLTT_ALTC_MASK)); } if (fgbg & SLTT_ULINE_MASK) SLtt_write_string (UnderLine_Vid_Str); if (fgbg & SLTT_BOLD_MASK) SLtt_bold_video (); if (fgbg & SLTT_REV_MASK) SLtt_write_string (Rev_Vid_Str); if (fgbg & SLTT_BLINK_MASK) { /* Someday Linux will have a blink mode that set high intensity * background. Lets be prepared. */ if (SLtt_Blink_Mode) SLtt_write_string (Blink_Vid_Str); } } if (SLtt_Use_Ansi_Colors) { fg0 = (int) GET_FG(fgbg); bg0 = (int) GET_BG(fgbg); tt_printf(Color_Escape_Sequence, fg0, bg0); } Current_Fgbg = fgbg; } static int Video_Initialized; void SLtt_reverse_video (int color) { SLtt_Char_Type fgbg; char *esc; if (Worthless_Highlight) return; if ((color < 0) || (color >= JMAX_COLORS)) return; if (Video_Initialized == 0) { if (color == JNORMAL_COLOR) { SLtt_write_string (Norm_Vid_Str); } else SLtt_write_string (Rev_Vid_Str); Current_Fgbg = 0xFFFFFFFF; return; } if (SLtt_Use_Ansi_Colors) { fgbg = Ansi_Color_Map[color].fgbg; if ((esc = Ansi_Color_Map[color].custom_esc) != NULL) { if (fgbg != Current_Fgbg) { Current_Fgbg = fgbg; SLtt_write_string (esc); return; } } } else fgbg = Ansi_Color_Map[color].mono; if (fgbg == Current_Fgbg) return; write_attributes (fgbg); } void SLtt_normal_video (void) { SLtt_reverse_video(JNORMAL_COLOR); } void SLtt_narrow_width (void) { SLtt_write_string("\033[?3l"); } void SLtt_wide_width (void) { SLtt_write_string("\033[?3h"); } /* Highest bit represents the character set. */ #define COLOR_MASK 0x7F00 #define COLOR_OF(x) (((unsigned int)(x) & COLOR_MASK) >> 8) /* #define COLOR_EQS(a, b) \ (Ansi_Color_Map[COLOR_OF(a)].fgbg == Ansi_Color_Map[COLOR_OF(b)].fgbg) */ #define COLOR_EQS(a, b) \ (SLtt_Use_Ansi_Colors \ ? (Ansi_Color_Map[COLOR_OF(a)].fgbg == Ansi_Color_Map[COLOR_OF(b)].fgbg)\ : (Ansi_Color_Map[COLOR_OF(a)].mono == Ansi_Color_Map[COLOR_OF(b)].mono)) #define CHAR_EQS(a, b) (((a) == (b))\ || ((((a) & ~COLOR_MASK) == ((b) & ~COLOR_MASK))\ && COLOR_EQS((a), (b)))) static void send_attr_str(unsigned short *s) { unsigned char out[256], ch, *p; register SLtt_Char_Type attr; register unsigned short sh; int color, last_color = -1; p = out; while (0 != (sh = *s++)) { ch = sh & 0xFF; color = ((int) sh & 0xFF00) >> 8; if (color != last_color) { if (SLtt_Use_Ansi_Colors) attr = Ansi_Color_Map[color & 0x7F].fgbg; else attr = Ansi_Color_Map[color & 0x7F].mono; if (sh & 0x8000) /* alternate char set */ { if (SLtt_Use_Blink_For_ACS) { if (SLtt_Blink_Mode) attr |= SLTT_BLINK_MASK; } else attr |= SLTT_ALTC_MASK; } if (attr != Current_Fgbg) { if ((ch != ' ') || /* it is a space so only consider it different if it * has different attributes. */ (attr & BGALL_MASK) != (Current_Fgbg & BGALL_MASK)) { if (p != out) { *p = 0; SLtt_write_string((char *) out); Cursor_c += (int) (p - out); p = out; } if (SLtt_Use_Ansi_Colors && (NULL != Ansi_Color_Map[color & 0x7F].custom_esc)) { SLtt_write_string (Ansi_Color_Map[color & 0x7F].custom_esc); /* Just in case the custom escape sequence screwed up * the alt character set state... */ if ((attr & SLTT_ALTC_MASK) != (Current_Fgbg & SLTT_ALTC_MASK)) SLtt_set_alt_char_set ((int) (attr & SLTT_ALTC_MASK)); Current_Fgbg = attr; } else write_attributes (attr); last_color = color; } } } *p++ = ch; } *p = 0; if (p != out) SLtt_write_string((char *) out); Cursor_c += (int) (p - out); } static void forward_cursor (int n, int row) { char buf[30]; if (n <= 4) { Cursor_c += n; SLtt_normal_video (); MEMSET (buf, ' ', n); tt_write (buf, n); } else if (Curs_F_Str != NULL) { Cursor_c += n; n = tt_sprintf(buf, Curs_F_Str, n, 0); tt_write(buf, n); } else SLtt_goto_rc (row, Cursor_c + n); } #define SPACE_CHAR (0x20 | (JNORMAL_COLOR << 8)) void SLtt_smart_puts(unsigned short *neww, unsigned short *oldd, int len, int row) { register unsigned short *p, *q, *qmax, *pmax, *buf; unsigned short buffer[256]; int n_spaces; unsigned short *space_match, *last_buffered_match; q = oldd; p = neww; qmax = oldd + len; pmax = p + len; /* Find out where to begin --- while they match, we are ok */ for (;;) { if (q == qmax) return; if (!CHAR_EQS(*q, *p)) break; q++; p++; } /*position the cursor */ SLtt_goto_rc (row, (int) (p - neww)); /* Find where the last non-blank character on old/new screen is */ while (qmax > q) { qmax--; if (!CHAR_EQS(*qmax, SPACE_CHAR)) { qmax++; break; } } while (pmax > p) { pmax--; if (!CHAR_EQS(*pmax, SPACE_CHAR)) { pmax++; break; } } last_buffered_match = buf = buffer; /* buffer is empty */ /* loop using overwrite then skip algorithm until done */ while (1) { /* while they do not match and we do not hit a space, buffer them up */ n_spaces = 0; while (p < pmax) { if (CHAR_EQS(*q,SPACE_CHAR) && CHAR_EQS(*p, SPACE_CHAR)) { /* If *q is not a space, we would have to overwrite it. * However, if *q is a space, then while *p is also one, * we only need to skip over the blank field. */ space_match = p; p++; q++; while ((p < pmax) && CHAR_EQS(*q,SPACE_CHAR) && CHAR_EQS(*p, SPACE_CHAR)) { p++; q++; } n_spaces = (int) (p - space_match); break; } if (CHAR_EQS(*q, *p)) break; *buf++ = *p++; q++; } *buf = 0; if (buf != buffer) send_attr_str (buffer); buf = buffer; if (n_spaces && (p < pmax)) { forward_cursor (n_spaces, row); } /* Now we overwrote what we could and cursor is placed at position * of a possible match of new and old. If this is the case, skip * some more. */ while ((p < pmax) && CHAR_EQS(*p, *q)) { *buf++ = *p++; q++; } last_buffered_match = buf; if (p >= pmax) break; /* jump to new position is it is greater than 5 otherwise * let it sit in the buffer and output it later. */ if ((int) (buf - buffer) >= 5) { forward_cursor (buf - buffer, row); last_buffered_match = buf = buffer; } } if (buf != buffer) { if (q < qmax) { if ((buf == last_buffered_match) && ((int) (buf - buffer) >= 5)) { forward_cursor (buf - buffer, row); } else { *buf = 0; send_attr_str (buffer); } } } if (q < qmax) SLtt_del_eol (); if (Automatic_Margins && (Cursor_c + 1 >= SLtt_Screen_Cols)) Cursor_Set = 0; } /* termcap stuff */ #ifdef unix #define EXTERN extern #ifndef USE_TERMCAP static char *Tbuf; static char *Tstr_Buf; #define tgetstr SLtt_tigetstr #define tgetent SLtt_tigetent #define TGETNUM(x) SLtt_tigetnum((x), &Tbuf) #define TGETFLAG(x) SLtt_tigetflag((x), &Tbuf) #else EXTERN char *tgetstr(char *, char **); EXTERN int tgetent(char *, char *); EXTERN int tgetnum(char *); EXTERN int tgetflag(char *); static char Tstr_Buf[1024]; static char Tbuf[4096]; #define TGETNUM tgetnum #define TGETFLAG tgetflag #endif static char *my_tgetstr(char *what, char **p) { register char *w, *w1; char *wsave; what = tgetstr(what, p); if (what != NULL) { /* lose pad info --- with today's technology, term is a loser if it is really needed */ while ((*what == '.') || ((*what >= '0') && (*what <= '9'))) what++; if (*what == '*') what++; /* lose terminfo padding--- looks like $<...> */ w = what; while (*w) if ((*w++ == '$') && (*w == '<')) { w1 = w - 1; while (*w && (*w != '>')) w++; if (*w == 0) break; w++; wsave = w1; while ((*w1++ = *w++) != 0); w = wsave; } if (*what == 0) what = NULL; } return(what); } char *SLtt_tgetstr (char *s) { #ifdef USE_TERMCAP static #endif char *p = Tstr_Buf; return my_tgetstr (s, &p); } int SLtt_tgetnum (char *s) { return TGETNUM (s); } int SLtt_tgetflag (char *s) { return TGETFLAG (s); } static int Vt100_Like = 0; void SLtt_get_terminfo (void) { char *term, *t, ch; int is_xterm; SLtt_Use_Ansi_Colors = (NULL != getenv ("COLORTERM")); if (NULL == (term = (char *) getenv("TERM"))) { SLang_exit_error("TERM environment variable needs set."); } Linux_Console = (!strncmp (term, "linux", 5) #ifdef linux || !strncmp(term, "con", 3) #endif ); t = term; if (strcmp(t, "vt52") && (*t++ == 'v') && (*t++ == 't') && (ch = *t, (ch >= '1') && (ch <= '9'))) Vt100_Like = 1; #ifndef USE_TERMCAP if (NULL == (Tbuf = tgetent (term))) { char err_buf[512]; /* Special cases. */ if (Vt100_Like || Linux_Console || !strcmp (term, "screen")) { int vt102 = 1; if (!strcmp (term, "vt100")) vt102 = 0; SLtt_Screen_Cols = 80; SLtt_Screen_Rows = 24; if (Linux_Console) SLtt_Screen_Rows++; SLtt_set_term_vtxxx (&vt102); return; } sprintf (err_buf, "Unknown terminal: %s\n\ Check the TERM environment variable.\n\ Also make sure that the terminal is defined in the terminfo database.\n\ Alternatively, set the TERMCAP environment variable to the desired\n\ termcap entry.", term); SLang_exit_error(err_buf); } Tstr_Buf = Tbuf; #else /* USE_TERMCAP */ if (1 != tgetent(Tbuf, term)) SLang_exit_error("Unknown terminal."); #endif /* NOT USE_TERMCAP */ if ((NULL == (Cls_Str = SLtt_tgetstr("cl"))) || (NULL == (Curs_Pos_Str = SLtt_tgetstr("cm")))) { SLang_exit_error("Terminal not powerful enough for SLang."); } if ((NULL == (Ins_Mode_Str = SLtt_tgetstr("im"))) || ( NULL == (Eins_Mode_Str = SLtt_tgetstr("ei"))) || ( NULL == (Del_Char_Str = SLtt_tgetstr("dc")))) SLtt_Term_Cannot_Insert = 1; Visible_Bell_Str = SLtt_tgetstr ("vb"); Curs_Up_Str = SLtt_tgetstr ("up"); Rev_Scroll_Str = SLtt_tgetstr("sr"); Del_N_Lines_Str = SLtt_tgetstr("DL"); Add_N_Lines_Str = SLtt_tgetstr("AL"); /* Actually these are used to initialize terminals that use cursor * addressing. Hard to believe. */ Term_Init_Str = SLtt_tgetstr ("ti"); Term_Reset_Str = SLtt_tgetstr ("te"); /* Make up for defective termcap/terminfo databases */ if ((Vt100_Like && (term[2] != '1')) || Linux_Console ) { if (Del_N_Lines_Str == NULL) Del_N_Lines_Str = "\033[%dM"; if (Add_N_Lines_Str == NULL) Add_N_Lines_Str = "\033[%dL"; } Scroll_R_Str = SLtt_tgetstr("cs"); if ((SLtt_Screen_Rows == 0) || (SLtt_Screen_Cols == 0)) { char *envptr; if ((SLtt_Screen_Cols = TGETNUM("co")) <= 0) SLtt_Screen_Cols = 80; if ((SLtt_Screen_Rows = TGETNUM("li")) <= 0) SLtt_Screen_Rows = 24; envptr = getenv ("LINES"); if (envptr != NULL) { if ((SLtt_Screen_Rows = atoi (envptr)) <= 0) SLtt_Screen_Rows = 24; } envptr = getenv ("COLUMNS"); if (envptr != NULL) { if ((SLtt_Screen_Cols = atoi (envptr)) <= 0) SLtt_Screen_Cols = 80; } } is_xterm = !strncmp (term, "xterm", 5); if ((Scroll_R_Str == NULL) || (((NULL == Del_N_Lines_Str) || (NULL == Add_N_Lines_Str)) && (NULL == Rev_Scroll_Str))) { if (is_xterm) { /* Defective termcap mode!!!! */ SLtt_set_term_vtxxx (&is_xterm); } else SLtt_Term_Cannot_Scroll = 1; } Del_Eol_Str = SLtt_tgetstr("ce"); Rev_Vid_Str = SLtt_tgetstr("mr"); if (Rev_Vid_Str == NULL) Rev_Vid_Str = SLtt_tgetstr("so"); Bold_Vid_Str = SLtt_tgetstr("md"); Blink_Vid_Str = SLtt_tgetstr("mb"); UnderLine_Vid_Str = SLtt_tgetstr("us"); Start_Alt_Chars_Str = SLtt_tgetstr ("as"); End_Alt_Chars_Str = SLtt_tgetstr ("ae"); Enable_Alt_Char_Set = SLtt_tgetstr ("eA"); /* I have had it with defective console/linux terminfo entries provided * by ncurses. They are not reliable. I cannot track every ncurses * release and fudge my stuff to work with defective stuff. For that * reason, I am hardcoding some things. */ if (Linux_Console) { SLtt_Graphics_Char_Pairs = "l\332m\300k\277j\331u\264t\303v\301w\302q\304x\263n\053o\176s\137`\004a\260f\370g\361~\011,\020+\021.\031-\030h\261i\0250\333"; Start_Alt_Chars_Str = "\033(B\033)U\016"; End_Alt_Chars_Str = "\033(B\033)0\017"; Enable_Alt_Char_Set = NULL; } else if (NULL == (SLtt_Graphics_Char_Pairs = SLtt_tgetstr ("ac"))) { /* make up for defective termcap/terminfo */ if (Vt100_Like) { Start_Alt_Chars_Str = "\016"; End_Alt_Chars_Str = "\017"; Enable_Alt_Char_Set = "\033)0"; } } if (is_xterm) { Start_Alt_Chars_Str = "\016"; End_Alt_Chars_Str = "\017"; Enable_Alt_Char_Set = "\033(B\033)0"; } if ((SLtt_Graphics_Char_Pairs == NULL) && ((Start_Alt_Chars_Str == NULL) || (End_Alt_Chars_Str == NULL))) { SLtt_Has_Alt_Charset = 0; Enable_Alt_Char_Set = NULL; } else SLtt_Has_Alt_Charset = 1; if (NULL == (Norm_Vid_Str = SLtt_tgetstr("me"))) { Norm_Vid_Str = SLtt_tgetstr("se"); } Cursor_Invisible_Str = SLtt_tgetstr("vi"); Cursor_Visible_Str = SLtt_tgetstr("vs"); Curs_F_Str = SLtt_tgetstr("RI"); #if 0 if (NULL != Curs_F_Str) { Len_Curs_F_Str = strlen(Curs_F_Str); } else Len_Curs_F_Str = strlen(Curs_Pos_Str); #endif Automatic_Margins = TGETFLAG ("am"); /* No_Move_In_Standout = !TGETFLAG ("ms"); */ Worthless_Highlight = TGETFLAG ("xs"); if (Worthless_Highlight == 0) { Worthless_Highlight = (TGETNUM ("sg") > 0); } } #endif /* Unix */ /* specific to vtxxx only */ void SLtt_enable_cursor_keys (void) { #ifdef unix if (Vt100_Like) #endif SLtt_write_string("\033=\033[?1l"); } #ifdef VMS void SLtt_get_terminfo () { int zero = 0; SLtt_set_term_vtxxx(&zero); Start_Alt_Chars_Str = "\016"; End_Alt_Chars_Str = "\017"; SLtt_Has_Alt_Charset = 1; SLtt_Graphics_Char_Pairs = "aaffgghhjjkkllmmnnooqqssttuuvvwwxx"; Enable_Alt_Char_Set = "\033(B\033)0"; } #endif /* This sets term for vt102 terminals it parameter vt100 is 0. If vt100 * is non-zero, set terminal appropriate for a only vt100 * (no add line capability). */ void SLtt_set_term_vtxxx(int *vt100) { Norm_Vid_Str = "\033[m"; Scroll_R_Str = "\033[%i%d;%dr"; Cls_Str = "\033[2J\033[H"; Rev_Vid_Str = "\033[7m"; Bold_Vid_Str = "\033[1m"; Blink_Vid_Str = "\033[5m"; UnderLine_Vid_Str = "\033[4m"; Del_Eol_Str = "\033[K"; Rev_Scroll_Str = "\033M"; Curs_F_Str = "\033[%dC"; /* Len_Curs_F_Str = 5; */ Curs_Pos_Str = "\033[%i%d;%dH"; if (*vt100 == 0) { Ins_Mode_Str = "\033[4h"; Eins_Mode_Str = "\033[4l"; Del_Char_Str = "\033[P"; Del_N_Lines_Str = "\033[%dM"; Add_N_Lines_Str = "\033[%dL"; SLtt_Term_Cannot_Insert = 0; } else { Del_N_Lines_Str = NULL; Add_N_Lines_Str = NULL; SLtt_Term_Cannot_Insert = 1; } SLtt_Term_Cannot_Scroll = 0; /* No_Move_In_Standout = 0; */ } void SLtt_init_video (void) { /* send_string_to_term("\033[?6h"); */ /* relative origin mode */ SLtt_write_string (Term_Init_Str); SLtt_reset_scroll_region(); SLtt_end_insert(); SLtt_write_string (Enable_Alt_Char_Set); Video_Initialized = 1; } void SLtt_reset_video (void) { SLtt_goto_rc (SLtt_Screen_Rows - 1, 0); Cursor_Set = 0; SLtt_normal_video (); /* MSKermit requires this */ SLtt_write_string(Norm_Vid_Str); Current_Fgbg = 0xFFFFFFFF; SLtt_set_alt_char_set (0); SLtt_write_string ("\n"); SLtt_del_eol (); SLtt_write_string (Term_Reset_Str); SLtt_flush_output (); Video_Initialized = 0; } void SLtt_bold_video (void) { SLtt_write_string (Bold_Vid_Str); } int SLtt_set_mouse_mode (int mode, int force) { char *term; if (force == 0) { if (NULL == (term = (char *) getenv("TERM"))) return -1; if (strncmp ("xterm", term, 5)) return -1; } if (mode) SLtt_write_string ("\033[?9h"); else SLtt_write_string ("\033[?9l"); return 0; } \n"); SLtt_del_eol (); SLtt_write_string (Term_Reset_Str); SLtt_flush_output (); Video_Initialized = 0; } void SLtt_bold_video (void) { SLtt_write_string (Bold_Vid_Str); } int SLtt_set_mouse_mode (