home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / PET-CDW2.DMS / in.adf / rexx / JumpToBookmark.ced next >
Encoding:
Text File  |  1993-07-07  |  1.6 KB  |  87 lines
  1. /*
  2. ** JumpToBookmark.ced
  3. **
  4. ** $VER: JumpToBookmark.ced 1.1.0 (27.05.93)
  5. **
  6. ** This script jumps the cursor to the selected bookmark.  If no
  7. ** bookmark exists for the selected mark, then the cursor will not move.
  8. **
  9. ** This script requires CygnusEd Professional v3.5 (or later) to run.
  10. **
  11. ** Copyright © 1993 ASDG, Incorporated  All Rights Reserved
  12. */
  13.  
  14.  
  15. OPTIONS RESULTS
  16.  
  17.  
  18. NL = '0A'X
  19. TRUE = 1
  20. FALSE = 0
  21.  
  22. /*
  23. ** Select the bookmark to jump to.
  24. */
  25.  
  26. CEDTOFRONT
  27. GETSTRING "1" '"Jump to which bookmark?"'
  28. IF (RESULT = "") THEN
  29.     EXIT 0
  30. ELSE NewBookmark = RESULT
  31.  
  32. /*
  33. ** If it's one of the menu-selectable bookmarks or the auto-mark, get
  34. ** the current bookmark's position.
  35. */
  36.  
  37. IF (NewBookmark = 1) THEN DO
  38.     STATUS MARKX1
  39.     CurrCursorCol = RESULT + 1
  40.     STATUS MARKY1
  41.     CurrCursorLine = RESULT + 1
  42. END
  43. ELSE IF (NewBookmark = 2) THEN DO
  44.     STATUS MARKX2
  45.     CurrCursorCol = RESULT + 1
  46.     STATUS MARKY2
  47.     CurrCursorLine = RESULT + 1
  48. END
  49. ELSE IF (NewBookmark = 3) THEN DO
  50.     STATUS MARKX3
  51.     CurrCursorCol = RESULT + 1
  52.     STATUS MARKY3
  53.     CurrCursorLine = RESULT + 1
  54. END
  55. ELSE IF (NewBookmark = 4) THEN DO
  56.     STATUS AUTOMARKX
  57.     CurrCursorCol = RESULT + 1
  58.     STATUS AUTOMARKY
  59.     CurrCursorLine = RESULT + 1
  60. END
  61. ELSE DO
  62.     /*
  63.     ** If not a menu-selectable bookmark, just get the bookmark's
  64.     ** cursor position.
  65.     */
  66.  
  67.     BookmarkID = "CEDBookmark" || NewBookmark
  68.     BookmarkValue = GETCLIP( BookmarkID )
  69.  
  70.     IF (BookmarkValue = "") THEN DO
  71.         STATUS CURSORLINE
  72.         CurrCursorLine = RESULT + 1
  73.         STATUS CURSORCOLUMN
  74.         CurrCursorCol = RESULT + 1
  75.     END
  76.     ELSE
  77.         PARSE VAR BookmarkValue CurrCursorLine "," CurrCursorCol
  78. END
  79.  
  80. /*
  81. ** Jump the cursor to the bookmark.
  82. */
  83.  
  84. JUMPTO CurrCursorLine CurrCursorCol
  85.  
  86. EXIT 0
  87.