home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / ME494-3.ZIP / SRC / BRIEF.SRC < prev    next >
Encoding:
Text File  |  1990-03-20  |  13.2 KB  |  432 lines
  1. $MACRO_FILE BRIEF;
  2. {******************************************************************************
  3.                                                         MULTI-EDIT MACRO FILE
  4.  
  5. Name:        BRIEF
  6.  
  7. Description:  This macro file contains macros to emulate a subset of common
  8.                             B.R.I.E.F. macros.  It is not our intention to completely mimic
  9.                             BRIEF, but to provide a less painful transition from BRIEF to
  10.                             Multi-Edit.
  11.  
  12. SRC_CASE - Mimics BRIEF's Search_Case macro
  13. DELETE_M - Mimics BRIEF's Delete_Macro macro
  14. TO_BOTTO - Mimics BRIEF's To_Bottom macro
  15. TO_TOP   - Mimics BRIEF's To_Top macro
  16. OPEN_LIN - Mimics BRIEF's Open_Line macro
  17. NEXT_ERR - Mimics BRIEF's Next_Error 1 macro
  18. QUOTE    - Mimics BRIEF's Quote macro
  19. TOGGLE_R - Mimics BRIEF's Toggle_Re macro
  20. SEARCH_A - Mimics BRIEF's Search_Again macro
  21. SX_AGAIN - Moves cursor in preparation for repeated search or translate
  22. SEARCH_B - Mimics BRIEF's Search_Back macro
  23. SEARCH_F - Mimics BRIEF's Search_Fwd macro
  24. XLAT_AGA - Mimics BRIEF's Translate_Again macro
  25. XLAT_BWD - Mimics BRIEF's Translate_Back macro
  26. TRANSLAT - Mimics BRIEF's Translate macro
  27. WRITE_IT - Mimics BRIEF's Write_It macro
  28. BRIEF_TAB_RIGHT - Mimics BRIEF's Tab key functionality
  29. BRIEF_TAB_LEFT  - Mimics BRIEF's Shift Tab key functionality
  30. CHANGE_WINDOW  - Mimics BRIEF's Change_Window macro
  31.  
  32.                              (C) Copyright 1989 by American Cybernetics, Inc.
  33. ******************************************************************************}
  34.  
  35. $MACRO BRIEF_HELP TRANS;
  36. {******************************************************************************
  37.                                                                 MULTI-EDIT MACRO
  38.  
  39. Name:        BRIEF_HELP
  40.  
  41. Description:  Brings up BRIEF quick reference
  42.  
  43.                              (C) Copyright 1989 by American Cybernetics, Inc.
  44. ******************************************************************************}
  45.     Help('BRIEF^*');
  46. END_MACRO;
  47.  
  48. $MACRO SRC_CASE TRANS;
  49. {******************************************************************************
  50.                                                                 MULTI-EDIT MACRO
  51.  
  52. Name:        SRC_CASE
  53.  
  54. Description:  Mimics BRIEF's Search_Case macro
  55.  
  56.                              (C) Copyright 1989 by American Cybernetics, Inc.
  57. ******************************************************************************}
  58.     Set_Global_Str('Switches',Caps(Global_Str('Switches')));
  59.     Return_Int := XPos('I',Global_Str('Switches'),1);
  60.     IF (Return_Int) THEN
  61.         Set_Global_Str('Switches',Str_Del(Global_Str('Switches'),Return_Int,1));
  62.     ELSE
  63.         Set_Global_Str('Switches',Global_Str('Switches') + 'I');
  64.     END;
  65.     Set_Global_Str('REPL_Switches',Caps(Global_Str('REPL_Switches')));
  66.     Return_Int := XPos('I',Global_Str('REPL_Switches'),1);
  67.     IF (Return_Int) THEN
  68.         Set_Global_Str('REPL_Switches',Str_Del(Global_Str('REPL_Switches'),Return_Int,1));
  69.     ELSE
  70.         Set_Global_Str('REPL_Switches',Global_Str('REPL_Switches') + 'I');
  71.     END;
  72. END_MACRO;
  73.  
  74. $MACRO DELETE_M TRANS;
  75. {******************************************************************************
  76.                                                                 MULTI-EDIT MACRO
  77.  
  78. Name:        DELETE_M
  79.  
  80. Description:  Mimics BRIEF's Delete_Macro macro.  A significant difference is
  81.                             that BRIEF can only delete entire macro files from memory, ME
  82.                             can delete individual macros
  83.  
  84.                              (C) Copyright 1989 by American Cybernetics, Inc.
  85. ******************************************************************************}
  86.     return_str := '';
  87.     RM('USERIN^QUERYBOX /P=Macro to unload:  /W=16/C=5/L=3/H=MC');
  88.     IF return_int THEN
  89.         UnLoad_Macro(return_str);
  90.     END;
  91.     Kill_Box;
  92. END_MACRO;
  93.  
  94. $MACRO TO_BOTTO TRANS;
  95. {******************************************************************************
  96.                                                                 MULTI-EDIT MACRO
  97.  
  98. Name:        TO_BOTTO
  99.  
  100. Description:  Mimics BRIEF's To_Bottom macro
  101.  
  102.                              (C) Copyright 1989 by American Cybernetics, Inc.
  103. ******************************************************************************}
  104.     Def_Int(Temp_Integer);
  105.     Temp_Integer := C_Line;
  106.     RM('BOTWIN');
  107.     Goto_Line(Temp_Integer);
  108.     Redraw;
  109. END_MACRO;
  110.  
  111. $MACRO TO_TOP TRANS;
  112. {******************************************************************************
  113.                                                                 MULTI-EDIT MACRO
  114.  
  115. Name:        TO_TOP
  116.  
  117. Description:  Mimics BRIEF's To_Top macro
  118.  
  119.                              (C) Copyright 1989 by American Cybernetics, Inc.
  120. ******************************************************************************}
  121.     Def_Int(Temp_Integer);
  122.     Temp_Integer := C_Line;
  123.     RM('TOPWIN');
  124.     Goto_Line(Temp_Integer);
  125.     Redraw;
  126. END_MACRO;
  127.  
  128. $MACRO OPEN_LIN TRANS;
  129. {******************************************************************************
  130.                                                                 MULTI-EDIT MACRO
  131.  
  132. Name:        OPEN_LIN
  133.  
  134. Description:  Mimics BRIEF's Open_Line macro
  135.  
  136.                              (C) Copyright 1989 by American Cybernetics, Inc.
  137. ******************************************************************************}
  138.     Def_Int(Temp_Insert_Mode);
  139.     Temp_Insert_Mode := Insert_Mode;
  140.     Insert_Mode := True;
  141.     Eol;
  142.     Cr;
  143.     Insert_Mode := Temp_Insert_Mode;
  144. END_MACRO;
  145.  
  146. $MACRO NEXT_ERR TRANS;
  147. {******************************************************************************
  148.                                                                 MULTI-EDIT MACRO
  149.  
  150. Name:        NEXT_ERR
  151.  
  152. Description:  Mimics BRIEF's Next_Error 1 macro
  153.  
  154.                              (C) Copyright 1989 by American Cybernetics, Inc.
  155. ******************************************************************************}
  156.     Def_Int(Temp_Integer);
  157.     Temp_Integer := Cur_Window;
  158.     Refresh := False;
  159.     Switch_Window(Cur_Window + 1);
  160.     WHILE ((Cur_Window <> Temp_Integer) and (Caps(Truncate_Path(File_Name)) <> (user_id + 'MEERR.TMP'))) DO
  161.         Switch_Window(Cur_Window + 1);
  162.     END;
  163.     Refresh := True;
  164.     Redraw;
  165. END_MACRO;
  166.  
  167. $MACRO QUOTE TRANS;
  168. {******************************************************************************
  169.                                                                 MULTI-EDIT MACRO
  170.  
  171. Name:        QUOTE
  172.  
  173. Description:  Mimics BRIEF's Quote macro
  174.  
  175.                              (C) Copyright 1989 by American Cybernetics, Inc.
  176. ******************************************************************************}
  177.     Read_Key;
  178.     IF (Key1 <> 0) THEN
  179.         Text(Char(Key1));
  180.     ELSE
  181.         Pass_Key(Key1,Key2);
  182.     END;
  183. END_MACRO;
  184.  
  185. $MACRO TOGGLE_R TRANS;
  186. {******************************************************************************
  187.                                                                 MULTI-EDIT MACRO
  188.  
  189. Name:        TOGGLE_R
  190.  
  191. Description:  Mimics BRIEF's Toggle_Re macro
  192.  
  193.                              (C) Copyright 1989 by American Cybernetics, Inc.
  194. ******************************************************************************}
  195.     Set_Global_Str('Switches',Caps(Global_Str('Switches')));
  196.     Return_Int := XPos('X',Global_Str('Switches'),1);
  197.     IF (Return_Int) THEN
  198.         Set_Global_Str('Switches',Str_Del(Global_Str('Switches'),Return_Int,1));
  199.     ELSE
  200.         Set_Global_Str('Switches',Global_Str('Switches') + 'X');
  201.     END;
  202.     Set_Global_Str('REPL_SWITCHES',Caps(Global_Str('REPL_SWITCHES')));
  203.     Return_Int := XPos('X',Global_Str('REPL_SWITCHES'),1);
  204.     IF (Return_Int) THEN
  205.         Set_Global_Str('REPL_SWITCHES',Str_Del(Global_Str('REPL_SWITCHES'),Return_Int,1));
  206.     ELSE
  207.         Set_Global_Str('REPL_SWITCHES',Global_Str('REPL_SWITCHES') + 'X');
  208.     END;
  209. END_MACRO;
  210.  
  211. $MACRO SEARCH_A TRANS;
  212. {******************************************************************************
  213.                                                                 MULTI-EDIT MACRO
  214.  
  215. Name:        SEARCH_A
  216.  
  217. Description:  Mimics BRIEF's Search_Again macro
  218.  
  219.                              (C) Copyright 1989 by American Cybernetics, Inc.
  220. ******************************************************************************}
  221.     RM('SX_AGAIN');
  222.     SET_GLOBAL_INT('SEARCH_MODE',0);
  223.     SET_GLOBAL_INT('REPSEARCH',1);
  224.     RM('MEUTIL2^S_AND_R');
  225. END_MACRO;
  226.  
  227. $MACRO SX_AGAIN;
  228. {******************************************************************************
  229.                                                                 MULTI-EDIT MACRO
  230.  
  231. Name:        SX_AGAIN
  232.  
  233. Description:  Moves cursor in preparation for repeated search or translate
  234.  
  235.                              (C) Copyright 1989 by American Cybernetics, Inc.
  236. ******************************************************************************}
  237.     IF XPOS('B',Caps(Global_Str('SWITCHES')),1) THEN
  238.         Left;
  239.     ELSE
  240.         Right;
  241.         while NOT(at_eol) and (cur_char = '|255') do
  242.             right;
  243.         END;
  244.     END;
  245. END_MACRO;
  246.  
  247. $MACRO SEARCH_B TRANS;
  248. {******************************************************************************
  249.                                                                 MULTI-EDIT MACRO
  250.  
  251. Name:        SEARCH_B
  252.  
  253. Description:  Mimics BRIEF's Search_Back macro
  254.  
  255.                              (C) Copyright 1989 by American Cybernetics, Inc.
  256. ******************************************************************************}
  257.     Set_Global_Str('Switches',Caps(Global_Str('Switches')));
  258.     Return_Int := XPos('B',Global_Str('Switches'),1);
  259.     IF (Return_Int = 0) THEN
  260.         Set_Global_Str('Switches',Global_Str('Switches') + 'B');
  261.     END;
  262.     SET_GLOBAL_INT('SEARCH_MODE',0);
  263.     RM('MEUTIL2^S_AND_R');
  264.     SET_GLOBAL_INT('REPSEARCH',0);
  265. END_MACRO;
  266.  
  267. $MACRO SEARCH_F TRANS;
  268. {******************************************************************************
  269.                                                                 MULTI-EDIT MACRO
  270.  
  271. Name:        SEARCH_F
  272.  
  273. Description:  Mimics BRIEF's Search_Fwd macro
  274.  
  275.                              (C) Copyright 1989 by American Cybernetics, Inc.
  276. ******************************************************************************}
  277.     Set_Global_Str('Switches',Caps(Global_Str('Switches')));
  278.     Return_Int := XPos('B',Global_Str('Switches'),1);
  279.     IF (Return_Int) THEN
  280.         Set_Global_Str('Switches',Str_Del(Global_Str('Switches'),Return_Int,1));
  281.     END;
  282.     SET_GLOBAL_INT('SEARCH_MODE',0);
  283.     RM('MEUTIL2^S_AND_R');
  284.     SET_GLOBAL_INT('REPSEARCH',0);
  285. END_MACRO;
  286.  
  287. $MACRO XLAT_AGA TRANS;
  288. {******************************************************************************
  289.                                                                 MULTI-EDIT MACRO
  290.  
  291. Name:        XLAT_AGA
  292.  
  293. Description:  Mimics BRIEF's Translate_Again macro
  294.  
  295.                              (C) Copyright 1989 by American Cybernetics, Inc.
  296. ******************************************************************************}
  297.     RM('SX_AGAIN');
  298.     SET_GLOBAL_INT('SEARCH_MODE',1);
  299.     SET_GLOBAL_INT('REPSEARCH',1);
  300.     RM('MEUTIL2^S_AND_R');
  301. END_MACRO;
  302.  
  303. $MACRO XLAT_BWD TRANS;
  304. {******************************************************************************
  305.                                                                 MULTI-EDIT MACRO
  306.  
  307. Name:        XLAT_BWD
  308.  
  309. Description:  Mimics BRIEF's Translate_Back macro
  310.  
  311.                              (C) Copyright 1989 by American Cybernetics, Inc.
  312. ******************************************************************************}
  313.     Set_Global_Str('Switches',Caps(Global_Str('Switches')));
  314.     Return_Int := XPos('B',Global_Str('Switches'),1);
  315.     IF (Return_Int = 0) THEN
  316.         Set_Global_Str('Switches',Global_Str('Switches') + 'B');
  317.     END;
  318.     SET_GLOBAL_INT('SEARCH_MODE',1);
  319.     SET_GLOBAL_INT('REPSEARCH',0);
  320.     RM('MEUTIL2^S_AND_R');
  321. END_MACRO;
  322.  
  323. $MACRO TRANSLAT TRANS;
  324. {******************************************************************************
  325.                                                                 MULTI-EDIT MACRO
  326.  
  327. Name:     TRANSLAT
  328.  
  329. Description:  Mimics BRIEF's Translate macro
  330.  
  331.                              (C) Copyright 1989 by American Cybernetics, Inc.
  332. ******************************************************************************}
  333.     Set_Global_Str('Switches',Caps(Global_Str('Switches')));
  334.     Return_Int := XPos('B',Global_Str('Switches'),1);
  335.     IF (Return_Int) THEN
  336.         Set_Global_Str('Switches',Str_Del(Global_Str('Switches'),Return_Int,1));
  337.     END;
  338.     SET_GLOBAL_INT('SEARCH_MODE',1);
  339.     SET_GLOBAL_INT('REPSEARCH',0);
  340.     RM('MEUTIL2^S_AND_R');
  341. END_MACRO;
  342.  
  343. $MACRO WRITE_IT TRANS;
  344. {******************************************************************************
  345.                                                                 MULTI-EDIT MACRO
  346.  
  347. Name:     WRITE_IT
  348.  
  349. Description:  Mimics BRIEF's Write_It macro
  350.  
  351.                              (C) Copyright 1989 by American Cybernetics, Inc.
  352. ******************************************************************************}
  353.     IF (Block_Stat) THEN
  354.         RM( 'MEUTIL1^SAVEBLCK' );
  355.     ELSE
  356.         RM( 'MEUTIL1^SAVEFILE' );
  357.     END;
  358. END_MACRO;
  359.  
  360. $MACRO BRIEF_TAB_RIGHT;
  361. {******************************************************************************
  362.                                                                 MULTI-EDIT MACRO
  363.  
  364. Name:     BRIEF_TAB_RIGHT;
  365.  
  366. Description:  Mimics BRIEF's Tab key functionality
  367.  
  368.                              (C) Copyright 1989 by American Cybernetics, Inc.
  369. ******************************************************************************}
  370.     IF (Marking = True) and (Block_Stat = 1) THEN
  371.         RM('MEUTIL2^INDBLK');
  372.     ELSE
  373.         Tab_Right;
  374.     END;
  375. END_MACRO;
  376.  
  377. $MACRO BRIEF_TAB_LEFT;
  378. {******************************************************************************
  379.                                                                 MULTI-EDIT MACRO
  380.  
  381. Name:     BRIEF_TAB_LEFT;
  382.  
  383. Description:  Mimics BRIEF's Shift Tab key functionality
  384.  
  385.                              (C) Copyright 1989 by American Cybernetics, Inc.
  386. ******************************************************************************}
  387.     IF (Marking = True) and (Block_Stat = 1) THEN
  388.         RM('MEUTIL2^UNDBLK');
  389.     ELSE
  390.         Tab_Left;
  391.     END;
  392. END_MACRO;
  393.  
  394. $MACRO CHANGE_WINDOW;
  395. {******************************************************************************
  396.                                                                 MULTI-EDIT MACRO
  397.  
  398. Name:     CHANGE_WINDOW;
  399.  
  400. Description:  Mimics BRIEF's change window macro
  401.  
  402. Parameters:
  403.                             /DIR=
  404.                                         1 = Left
  405.                                         2 = Right
  406.                                         3 = Up
  407.                                         4 = Down
  408.                                         Any other value = User is prompted for direction
  409.  
  410.                              (C) Copyright 1989 by American Cybernetics, Inc.
  411. ******************************************************************************}
  412.     Def_Int(Direction);
  413.  
  414.     Direction := Parse_Int('/DIR=',MParm_Str);
  415.     IF (Direction = 1) THEN
  416.         Push_Key(0,75);
  417.     ELSIF (Direction = 2) THEN
  418.         Push_Key(0,77);
  419.     ELSIF (Direction = 3) THEN
  420.         Push_Key(0,72);
  421.     ELSIF (Direction = 4) THEN
  422.         Push_Key(0,80);
  423.     END;
  424.     RM('WINDOW^ADJACENT_WIN');
  425. END_MACRO;
  426.  
  427.  
  428. $MACRO BriefInstall;
  429.     Set_Global_Int('SETUP_CHANGED',Global_Int('SETUP_CHANGED') or $02);
  430.     Set_Global_Str('@KEYMAP_NAME@','KN=BRIEFFN=BRIEF');
  431. END_MACRO;
  432.