home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / ME494-6.ZIP / SRC / STARTUP.SRC < prev    next >
Encoding:
Text File  |  1990-05-30  |  2.2 KB  |  63 lines
  1. $MACRO STARTUP DUMP;
  2. {******************************************************************************
  3.                                                                 MULTI-EDIT MACRO
  4.  
  5. Name: STARTUP
  6.  
  7. Description: This macro gets automatically run upon invocation of Multi-Edit.
  8. You can put anything you want in it.  Intended for initializations, etc.
  9.  
  10.                             (C) Copyright 1989 by American Cybernetics, Inc.
  11. ******************************************************************************}
  12.     def_int(jx);
  13.     {set_global_int('@RESTORE_USE_ME_PATH',1);}
  14.  
  15.     macro_to_key(<AltN>,'NOTES',ALL);
  16.     set_global_str('ARCDIR_COMMAND', '/D1=6/S1=2/S2=2/C=PKPAK -v' );
  17.     set_global_str('ZIPDIR_COMMAND', '/D1=6/S1=2/S2=2/C=PKZIP -vb' );
  18. {    set_global_str('@SEARCH_ORDER','/SR=1/RP=2/SW=3/GO=4'); }
  19.     Set_Global_Int('@WINDOW_LIST_MODE@',1);
  20.   Set_Global_Str('@FM_MACRO@','FM2^FM_FILE_LIST2 /PN=F:\PROJECT');
  21.   set_global_str('@HELP_PATH@', 'G:\HELP;<ME_PATH>');
  22. { set_global_str('@HELP_PATH@', 'F:\NG\TEMP\TEST1;G:\HELP;W:\ME.NEW');}
  23.   Print_Margin := 5;
  24.  
  25. {    set_global_int('CONDENSE_MODE',1);
  26.     set_global_str('CONDENSE_SEARCH','$macro');
  27.   set_global_Str('CONDENSE_SWITCHES','IX');}
  28.     set_global_int('USER_ACI_COPYRIGHT', 1) ;
  29.  
  30.  
  31. {************** Setup for TLIB ***************}
  32.                 {Tell Multi-Edit to utilize the TLIB_GET_FILE macro if a
  33.                  FILE NOT FOUND error occurs when the user loads a file.}
  34.     set_global_str('@FNF_LOAD_MACRO@', 'TLIB^TLIB_GET_FILE');
  35.  
  36.                 {Setup the switches to use for checking out a file.
  37.                  E is the default switch. }
  38.     set_global_str('!TLIB_GET_CMD!', 'TLIB P <PATH> E <NAME>.<EXT> ' );
  39.     set_global_str('!TLIB_PARMS!', '/LIBEXT=TLB' );
  40.  
  41.                 {Tell Multi-Edit to call the TLIB_CLEANUP macro before
  42.                  exiting.  Only use this if you want to be prompted to
  43.                  check files back in before exiting.}
  44.     set_global_str('@ME_EXIT_MACRO@', 'TLIB^TLIB_CLEANUP');
  45. {*********************************************}
  46.  
  47.  
  48.     jx := 0;
  49.     while (jx < param_count) do
  50.         ++jx;
  51.         IF caps( param_str(jx) ) = '/4DOS' THEN
  52.             set_global_str('@SHELL_TO_DOS_CMD', '<comspec> <me_path>4DOSPROMPT');
  53.         END;
  54.     end;
  55.  
  56.     {Run a user specific startup macro}
  57.     IF (user_id <> '') THEN
  58.         RM( user_id + 'STARTUP' );
  59.         error_level := 0;
  60.     END;
  61.  
  62. END_MACRO;
  63.