home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / DSHL11.ZIP / DEVMAN.CMD next >
OS/2 REXX Batch file  |  1991-12-09  |  8KB  |  188 lines
  1. /*------------------------------------------------------*/
  2. /*       DevMan - Online Manual For DevShell            */
  3. /*  (C) Copyright 1991, 1992 Frank V. Castellucci       */
  4. /*             All Rights Reserved                      */
  5. /*                 $Revision: 1.3 $                     */
  6. /*------------------------------------------------------*/
  7. pull choice
  8. rc=0;
  9.  
  10. if(choice = "" ) then do
  11.     r=lineout(,"Use ? <command> or Help <command> for verbose listing");
  12.     r=lineout(," ");
  13.     r=lineout(,"ALIAS       - Lists the alias name and references");
  14.     r=lineout(,"ASET        - Sets alias macro for session");
  15.     r=lineout(,"CONFIG      - Displays Standard Configuration");
  16.     r=lineout(,"CSET        - Sets configuration macro for session"); 
  17.     r=lineout(,"COMSTACK    - Lists command stack");
  18.     r=lineout(,"DSETS       - Lists open data sets");
  19.     r=lineout(,"EXIT        - Exits DevShell and returns to OS");
  20.     r=lineout(,"GO          - Changes to volume assignment");
  21.     r=lineout(,"INFO        - Displays general information about session");
  22.     r=lineout(,"QUIT        - Same as exit");
  23.     r=lineout(,"REINIT      - Reinits DevShell from config file");
  24.     r=lineout(,"VOLUMES     - List the volume cross assignments");
  25.     r=lineout(,"VSET        - Sets a volume reference for session");
  26.     r=lineout(," ");
  27.     end
  28.     
  29. else
  30.     do
  31.     select
  32.         when (choice = 'ALIAS') then do
  33.             r=lineout(," "); 
  34.             r=lineout(,"Usage : alias ");
  35.             r=lineout(," "); 
  36.             r=lineout(,"    Displays the configuration alias list");
  37.             r=lineout(," "); 
  38.             end
  39.             
  40.         when (choice = 'ASET') then do
  41.             r=lineout(," ");
  42.             r=lineout(,"Usage : aset <aliasname> <assignment>");
  43.             r=lineout(," ");
  44.             r=lineout(,"    Re-assigns alias <aliasname> with")
  45.             r=lineout(,"    <assignment>. Example:");
  46.             r=lineout(," ");
  47.             r=lineout(,"    aset ed exec using EDIT ?");
  48.             r=lineout(," ");                   
  49.             r=lineout(,"    would assign alias ed to indirectly"); 
  50.             r=lineout(,"    execute the application configured for EDIT ");
  51.             r=lineout(,"    and prompt the user for an argument string");
  52.             r=lineout(," ");
  53.             r=lineout(,"    If an entry for edit existed, it would");
  54.             r=lineout(,"    be replaced. If no entry exists, then a new");
  55.             r=lineout(,"    alias is created. This assignment will ");
  56.             r=lineout(,"    last for the current session only");
  57.             r=lineout(," ");
  58.             end
  59.             
  60.         when (choice = 'CONFIG') then do
  61.             r=lineout(," ");  
  62.             r=lineout(,"Usage : config ");
  63.             r=lineout(," "); 
  64.             r=lineout(,"    Displays the configuration replacement");
  65.             r=lineout(,"    parameters for the editor, browser, etc");
  66.             r=lineout(," ");  
  67.             end
  68.             
  69.         when (choice = 'CSET') then do
  70.             r=lineout(," ");  
  71.             r=lineout(,"Usage : cset <configname> <assignment>");
  72.             r=lineout(," ");   
  73.             r=lineout(,"    Re-assigns name <configname> with")
  74.             r=lineout(,"    <assignment>. Example:");
  75.             r=lineout(," ");
  76.             r=lineout(,"    cset EDIT C:\OS2\E.EXE");
  77.             r=lineout(," ");             
  78.             r=lineout(,"    would assign configname EDIT to C:\OS2\E.EXE"); 
  79.             r=lineout(," ");
  80.             r=lineout(,"    If an entry for EDIT existed, it would");
  81.             r=lineout(,"    be replaced. If no entry exists, then a new");
  82.             r=lineout(,"    configname is created. This assignment will ");
  83.             r=lineout(,"    last for the current session only");
  84.             r=lineout(," ");
  85.             end
  86.        
  87.             
  88.         when (choice = 'COMSTACK') then do
  89.             r=lineout(," ");
  90.             r=lineout(,"Usage : comstack | coms");
  91.             r=lineout(," "); 
  92.             r=lineout(,"    Lists the command stack with the oldest");
  93.             r=lineout(,"    entry on the top ( position 0 ).");
  94.             r=lineout(," ");
  95.             r=lineout(,"    Individual entries ( 0 - x ) can be re-");
  96.             r=lineout(,"    executed by entering the number to the");
  97.             r=lineout(,"    left of the command displayed in the list");
  98.             r=lineout(," "); 
  99.             end
  100.             
  101.         when (choice = 'DSETS') then do
  102.             r=lineout(," ");  
  103.             r=lineout(,"Function does not exist, so neither does help");
  104.             r=lineout(," ");
  105.             end
  106.  
  107.         when (choice = 'EXIT') then do
  108.             r=lineout(," ");  
  109.             r=lineout(,"Usage : exit");
  110.             r=lineout(," ");
  111.             r=lineout(,"    Exits DevShell and returns to OS or other shell");
  112.             r=lineout(," ");
  113.             end
  114.             
  115.         when (choice = 'GO') then do
  116.             r=lineout(," ");  
  117.             r=lineout(,"Usage : go <volsassign> | <path>");
  118.             r=lineout(," ");
  119.             r=lineout(,"    changes directory and drive to either the");
  120.             r=lineout(,"    volume assigned in volassign or the drive");
  121.             r=lineout(,"    and directory as specified in path");
  122.             r=lineout(," ");
  123.             end
  124.             
  125.         when (choice = 'INFO') then do
  126.             r=lineout(," ");
  127.             r=lineout(,"Usage : info "); 
  128.             r=lineout(," "); 
  129.             r=lineout(,"    Displays general information and statistics"); 
  130.             r=lineout(,"    about the current session."); 
  131.             r=lineout(," "); 
  132.             end
  133.             
  134.         when (choice = 'QUIT') then do
  135.             r=lineout(," ");  
  136.             r=lineout(,"Usage : quit");
  137.             r=lineout(," ");
  138.             r=lineout(,"    Exits DevShell and returns to OS or other shell");
  139.             r=lineout(," ");
  140.             end
  141.             
  142.         when (choice = 'REINIT') then do
  143.             r=lineout(," "); 
  144.             r=lineout(,"Usage : reinit "); 
  145.             r=lineout(," "); 
  146.             r=lineout(,"    Reinits DevShell from configuration file"); 
  147.             r=lineout(," "); 
  148.             end
  149.             
  150.         when (choice = 'VOLUMES') then do
  151.             r=lineout(," ");  
  152.             r=lineout(,"Usage : volumes");
  153.             r=lineout(," ");   
  154.             r=lineout(,"    Displays the list of volume drive and directory");   
  155.             r=lineout(,"    assignments");   
  156.             r=lineout(," ");   
  157.             end
  158.             
  159.         when (choice = 'VSET') then do
  160.             r=lineout(," ");  
  161.             r=lineout(,"Usage : vset <volname> <path>");
  162.             r=lineout(," ");   
  163.             r=lineout(,"    Re-assigns name <volname> with")
  164.             r=lineout(,"    <path>. Example:");
  165.             r=lineout(," ");
  166.             r=lineout(,"    vset cursrc F:\DEVLP\SRC");
  167.             r=lineout(," ");             
  168.             r=lineout(,"    would assign volname cursrc to F:\DEVLP\SRC"); 
  169.             r=lineout(," ");
  170.             r=lineout(,"    If an entry for cursrc existed, it would");
  171.             r=lineout(,"    be replaced. If no entry exists, then a new");
  172.             r=lineout(,"    volname is created. This assignment will ");
  173.             r=lineout(,"    last for the current session only");
  174.             r=lineout(," ");   
  175.             end
  176.             
  177.         otherwise
  178.             r=lineout(," ");
  179.             r=lineout(,"Help not found for :" choice);
  180.             r=lineout(," ");
  181.             rc=1
  182.         end
  183.         
  184.     end
  185.     
  186. exit (rc);
  187.  
  188.