home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / MACLIST.AML < prev    next >
Encoding:
Text File  |  1995-09-01  |  4.0 KB  |  106 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        MACLIST.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a scrollable list of macros,     */
  6. /*               showing the macro name and description for each      */
  7. /*               macro in the list. Selecting a macro from the list   */
  8. /*               will run the macro.                                  */
  9. /*                                                                    */
  10. /* Usage:        Select the 'Macro List' item from the Macro menu,    */
  11. /*               or press <ctrl f12>.                                 */
  12. /* ------------------------------------------------------------------ */
  13.  
  14.   // compile time macros and function definitions
  15.   include  bootpath "define.aml"
  16.  
  17.   // macro list buffer id
  18.   buffer = "maclist"
  19.  
  20.   // create a macro list buffer
  21.   // (modify this list to suit your own preferences)
  22.   databuf buffer
  23.     " ASCII2     2-Dimensional ASCII chart"
  24.     " BOOKLIST   List all bookmarks"
  25.     " CALCPAD    Calculator"
  26.     " CALEN4     Four-month calendar"
  27.     " CALENDAR   One-month calendar"
  28.     " CLRCHART   Color chart"
  29.     " COMPARE    Compare two files"
  30.     " COMPRESS   Display occurrences of a search string by folding lines"
  31.     " COUNTCHR   Count the characters in a file or block"
  32.     " COUNTLIN   Count the lines in multiple files"
  33.     " COUNTWRD   Count the words in a file or block"
  34.     " DELBLANK   Delete blank Lines in a file or block"
  35.     " DELDUP     Delete duplicate lines in a file"
  36.     " DESKOPEN   Open and restore a previously saved desktop layout"
  37.     " DESKSAVE   Save the current desktop layout to a file"
  38.     " DLGDEMO    AML dialog box demo with dialog box controls"
  39.     " DRAWBOX    Draw a box around a column mark"
  40.     " FULLDATE   Display the current date and time in full-format"
  41.     " INSTALL    Run Installation"
  42.     " KEYCODES   Display various keycodes for any key pressed"
  43.     " KEYDEF     Display the assigned state of each assignable key"
  44.     " LONGLINE   Go to the longest line in the current file"
  45.     " PALETTE    Change the color palette"
  46.     " SCAN2      Find all occurrences of a string in a directory/filespec"
  47.     " SCRSAVER   Screen Saver Install or Remove"
  48.     " STYLE      Change the editor keyboard/menu style"
  49.     " SUMBLOCK   Add up numbers in a marked block"
  50.     " TABS       Detab a file or block"
  51.     " TABS e     Entab a file or block"
  52.     " TEMPLATE   Template Editing Install or Remove"
  53.     " WHERE      Where-is utility: locate files on any disk drive"
  54.   end
  55.  
  56.   // name the buffer so the menu position will be remembered
  57.   setbufname "mlist"
  58.  
  59.   // display the popup menu
  60.   line = popup buffer "Macro    Description"  getvidcols - 11 getvidrows - 8
  61.  
  62.   // destroy the menu
  63.   destroybuf buffer
  64.  
  65.   // run the selected macro
  66.   if line then
  67.     macro = line [1 : posnot ' ' line [1 : 11] 'r']
  68.  
  69.     // separate file and parameter (if any)
  70.     var parameter
  71.     splitstr ' ' macro ref macro ref parameter
  72.  
  73.     case macro
  74.  
  75.       // desktop functions are not implemented as external macros
  76.       when "DESKOPEN"
  77.         file = ask "Restore desktop from file" "_load"
  78.         if file then
  79.           if opendesk (qualify file (getbufname)) then
  80.             restoredesk
  81.           else
  82.             msgbox "Can't open " + file
  83.           end
  84.         end
  85.  
  86.       when "DESKSAVE"
  87.         file = ask "Save current desktop to file" "_load"
  88.         if file then
  89.           currdesk
  90.           if savedesk (qualify file (getbufname)) then
  91.             display
  92.           else
  93.             msgbox "Can't save " + file
  94.           end
  95.         end
  96.  
  97.       // queue for execution to minimize interpreter stack usage
  98.       when "INSTALL"
  99.         queue "runmacro" (bootpath  macro + ".X")
  100.  
  101.       otherwise
  102.         queue "runmacro" getbootpath + "MACRO\\" + macro + ".X"  parameter
  103.     end
  104.  
  105.   end
  106.