Short: List and go to labels in CygnusEd Author: Axel.Greve@siemens.com Uploader: Axel Greve siemens com Type: text/edit Version: 1.0 Requires: CygnusEd 4.20, rexxtricks.library, AmigaDOS 'Delete' command Architecture: generic Kurz: Labels listen und anspringen in CygnusEd ENGLISH: This script uses the rexxtricks.library v38.6 by Jürgen Kohrmeyer which You can find in the util/rexx dir of Aminet. I want to thank Jürgen for his library, without his development this program wouldn't have been possible. These files are Freeware. Do with it whatever You want, but You are not allowed to make profit with it. I am not responsible for GURUs or data loss caused by usage of this program - You use it at Your own risk. GoToLbl.ced is an ARexx script for use with CygnusEd. It has been tested with v4.20 of CEd but may work with earlier versions. Ths script lists all labels in the active view. The list is sorted by label names and shown in a RexxTricks 'VIEWLIST' requester. Along with the label the corresponding line number and the contents of the previous line (which f.ex may be a comment) is displayed. By selecting a list entry the cursor jumps to that specific line. You can use CygnusEd's auto-mark function (keyboard shortcut RAmiga+4) to toggle between the label's position and the old position the cursor had before jumping to the label. Note: The VIEWLIST requester's window is set to a width of 560 pixels in this script. If You want to change this value You must edit the line 66. With a value of 0 or commenting out this line You can force RexxTricks to take control over the requester's width. By un-commenting line 67 You can control the requester's height. Although this script is intended for usage with ARexx scripts it may be used for other languages' sources (such as Basic) as long as the label names follow these rules: o The label must be the first space-delimited word in the line o The label must not contain any spaces ('20'x) o The label must end with a colon (':') Installation: Copy this file to where You keep Your CEd scripts, REXX: or /cedscripts/ are good ideas. Please be careful with the authors eMail given above. It is at my companies domain, and I do not wanna lose their faith (nor my job)... Please send any comments, ideas for improvements / usage with other programming languages, or just "Hello"s, to the address given above. DEUTSCH: Dieses Script benutzt die rexxtricks.library v38.6 von Jürgen Kohrmeyer, welche Sie im Verzeichnis util/rexx des Aminets finden koennen. Ich moechte Jürgen fuer die Entwicklung der Library danken, ohne die dieses Programm nicht moeglich gewesen waere. Diese Dateien sind Freeware. Tun Sie damit, was immer Sie wollen, aber es ist nicht erlaubt, Profit damit zu machen. Ich bin nicht fuer GURUs oder Datenverluste verantwortlich, die durch Verwen- dung dieses Programms entstehen - Sie benutzen es auf eigenes Risiko. GoToLbl.ced ist ein ARexx Script zur Verwendung mit CygnusEd. Es wurde getestet mit v4.20 von CEd, kann evtl. aber auch mit frueheren Versionen laufen. Dieses Script listet alle Labels (Sprungmarken) im aktiven View. Die Liste wird alphabetisch sortiert und mittels des 'VIEWLIST' Requesters der RexxTricks Library angezeigt. Zusammen mit den Namen der Labels werden die zugehoerigen Zeilennummern und die Inhalte der jeweils voraus gehenden Zeilen (welche z. B. eine Kommentierung des Labels enthalten) angezeigt. Durch Auswahl eines Listeneintrags springt der Cursor in die entsprechende Zeile. Sie koennen die Auto-Mark Funktion von CygnusEd benutzen (Tastaturkuerzel RAmiga+4), um zwischen der Labelposition und der alten Cursorposition hin und her zu springen. Anmerkung: Im Script wird die Breite des Requesterfensters auf 560 Pixel eingestellt. Wenn Sie diesen Wert veraendern wollen, muessen Sie die Zeile 66 editieren. Mit einem Wert von 0 oder durch Kommentieren der Zeile uebernimmt RexxTricks die Kontrolle ueber die Requesterbreite. Durch Ent-Kommentieren der Zeile 67 koennen Sie die Hoehe des Requesters bestimmen. Obwohl das Script fuer die Verwendung fuer ARexx Scripte gedacht ist, kann es auch fuer andere Quelltexte (wie Basic) verwendet werden, wenn die Labelnamen folgenden Regeln folgen: o Das Label muss das erste durch Leerzeichen begrenzte Wort in der Zeile sein o Das Label darf keine Leerzeichen ('20'x) enthalten o Das Label muss mit einem Doppelpunkt (':') enden Installation: Kopieren Sie das Script dorthin, wo Sie Ihre CEd Scripte aufbewahren, REXX: oder /cedscripts/ waeren gute Ideen. Bitte benutzen Sie die oben angegebene eMail-Adresse des Autors mit der gegebenen Vorsicht. Sie ist die Domaene meines Broetchen- gebers, und ich moechte sein Vertrauen (und meinen Job) nicht verlieren... Bitte senden Sie Kommentare, Verbesserungswuensche, Ideen fuer die Verwendung mit anderen Programmiersprachen oder einfach nur "Hallo"s an die oben angegebene Adresse.