开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
COM.C
资源名称：drdossrc.zip　[点击查看]
上传用户：xiaogehua
上传日期：2007-01-08
资源大小：1183k
文件大小：54k
源码类别：

操作系统开发

开发平台：

Asm

COM.C：源码内容
  1. /*   File              : $Workfile: COM.C$
  2. ;
  3. ;    Description       :
  4. ;
  5. ;    Original Author   : DIGITAL RESEARCH
  6. ;
  7. ;    Last Edited By    : $CALDERA$
  8. ;
  9. ;-----------------------------------------------------------------------;
  10. ;    Copyright Work of Caldera, Inc. All Rights Reserved.
  11. ;      
  12. ;    THIS WORK IS A COPYRIGHT WORK AND CONTAINS CONFIDENTIAL,
  13. ;    PROPRIETARY AND TRADE SECRET INFORMATION OF CALDERA, INC.
  14. ;    ACCESS TO THIS WORK IS RESTRICTED TO (I) CALDERA, INC. EMPLOYEES
  15. ;    WHO HAVE A NEED TO KNOW TO PERFORM TASKS WITHIN THE SCOPE OF
  16. ;    THEIR ASSIGNMENTS AND (II) ENTITIES OTHER THAN CALDERA, INC. WHO
  17. ;    HAVE ACCEPTED THE CALDERA OPENDOS SOURCE LICENSE OR OTHER CALDERA LICENSE
  18. ;    AGREEMENTS. EXCEPT UNDER THE EXPRESS TERMS OF THE CALDERA LICENSE
  19. ;    AGREEMENT NO PART OF THIS WORK MAY BE USED, PRACTICED, PERFORMED,
  20. ;    COPIED, DISTRIBUTED, REVISED, MODIFIED, TRANSLATED, ABRIDGED,
  21. ;    CONDENSED, EXPANDED, COLLECTED, COMPILED, LINKED, RECAST,
  22. ;    TRANSFORMED OR ADAPTED WITHOUT THE PRIOR WRITTEN CONSENT OF
  23. ;    CALDERA, INC. ANY USE OR EXPLOITATION OF THIS WORK WITHOUT
  24. ;    AUTHORIZATION COULD SUBJECT THE PERPETRATOR TO CRIMINAL AND
  25. ;    CIVIL LIABILITY.
  26. ;-----------------------------------------------------------------------;
  27. ;
  28. ;    *** Current Edit History ***
  29. ;    *** End of Current Edit History ***
  30. ;
  31. ;    $Log$
  32.  *   COM.C 1.2 97/03/21 14:41:21
  33.  *   Added /n option to disable critical error handler
  34.  *   COM.C 1.59 94/12/01 10:05:21
  35.  *   Removed closing handles 5 and 6 in error_code() in order to be able
  36.  *   to continue with a batch file if the user wants to. JBEULICH
  37.  *   Enabled UNC filenames
  38.  *   COM.C 1.58 94/08/10 14:49:22 
  39.  *   After first run through looking for a file to execute, now strips the D:
  40.  *   off the path, if only a drive and not a directory is specified. So, if you
  41.  *   type D:TEST, it will look for TEST on the current directory of drive D:, then
  42.  *   continue to search the path. It will only skip searching the path if a
  43.  *   specific directory is specified.
  44.  *   COM.C 1.57 94/03/29 16:12:11 
  45.  *   docmd_int2f in CSTART.ASM returns 1 if it has been accepted.
  46.  *   In this case, we don't want it, so docmd_offer returns TRUE.
  47.  *   All cases of docmd_offer return if TRUE, so we don't process
  48.  *   the line ourselves.
  49.  *   COM.C 1.56 94/02/08 11:50:17
  50.  *   Fixed a problem where typing COMMAND DIR A: after giving the correct error
  51.  *   message for DIR being an incorrect loadpath, tries to access A: and crashes
  52.  *   under /MULTI.
  53.  *   Break added after error message to fix crashing problem.
  54.  *   Variable lferror added so that after an incorrect loadpath, it does not use
  55.  *   the next bit (ie. A:) as keyboard input.
  56.  *   COM.C 1.54 93/12/09 18:07:04 
  57.  *   Fixed a bug which screwed the upper memory link if you entered c:lh dir
  58.  *   COM.C 1.53 93/12/01 23:14:02 
  59.  *   Fix parsing bug "<infile >outfile command" would fail
  60.  *   COM.C 1.49 93/12/01 11:32:08
  61.  *   Now do a flush cache call before displaying prompt.
  62.  *   COM.C 1.48 93/12/01 00:17:17
  63.  *   docmd_offer() will do an int 2F/AE (2 if external) within batch files
  64.  *   SPR: 811218, shouldn't access drive whatever the prompt
  65.  *   COM.C 1.45 93/11/19 21:08:14
  66.  *   Put code to report "Syntax Error" for "| command" and "command |" back to
  67.  *   it's original state.   
  68.  *   COM.C 1.43 93/11/08 23:59:19
  69.  *   F8 key now only affects autoexec, not 1st batch file
  70.  *   COM.C 1.42 93/11/05 13:03:00
  71.  *   Fix problem with /P /MH (missing break;....)
  72.  *   COM.C 1.41 93/11/05 00:44:07
  73.  *   /MU option only valid with /P option. The problem is if you "exit" with upper
  74.  *   memory unlinked the resident portion isn't freed, and you eat upper memory.
  75.  *   COM.C 1.40 93/10/29 17:05:51
  76.  *   Add PROMPT=$P$G and PATH=d:NWDOS to default env
  77.  *   COM.C 1.39 93/10/22 11:51:30
  78.  *   Changed Beta string from 3 to 4
  79.  *   COM.C 1.36 93/09/15 18:56:39
  80.  *   FOR command now allows any char in brackets. eg for %%v in (+ -) do...
  81.  *   COM.C 1.34 93/08/26 09:39:05
  82.  *   Now use PSP for stack during func 4b exec. There's some debug
  83.  *   code in case things screw up.
  84.  *   COM.C 1.30 93/07/05 08:32:57 
  85.  *   Memory allocation strategy now restored if ctrl-c pressed during a hiload.
  86.  *   COM.C 1.25 93/05/24 11:34:43 
  87.  *   psp now points to itself when /P isn't specified. 
  88.  *   COM.C 1.24 93/05/17 11:22:28
  89.  *   Added support for F5 and F8 being pressed during boot-up.  
  90.  *   COM.C 1.23 93/04/22 14:51:10 
  91.  *   Now close handles 5-19 after an exec.
  92.  *   echoflg is now correctly preserved when batch files are chained. See
  93.  *   echoflg_save2.
  94.  *   COM.C 1.19 93/01/21 14:29:44
  95.  *   Now do INT 21 ah=29 when changing default drive.
  96.  *   COM.C 1.16 92/11/25 09:30:15
  97.  *   Password support enabled/disabled by #if defined(PASSWORD) statements.
  98.  *   HOMEDIR support disabled.
  99.  *   COM.C 1.12 92/09/25 19:48:56
  100.  *   Removed .cmd from search order if DOSPLUS defined.
  101.  *   Fixed bug when ;; appears in path.
  102.  *   COM.C 1.11 92/09/17 11:30:14 
  103.  *   Piping a batch file through MORE no longer stops with Syntax Error
  104.  *   displayed.
  105.  *   COM.C 1.10 92/09/11 10:43:41
  106.  *   COMMAND /P: disables time and date prompt and copyright message.
  107.  *   COMMAND ? no longer hangs.
  108.  *   ENDLOG
  109.  */
  111. #include "defines.h"
  113. #if 0
  114. #if defined(DLS)
  115. #define MSG_VER 111 /* required message file version No. */
  116. #else
  117. #define MSG_VER msg_ver111 /* required message file version No. */
  118. extern char  *MSG_VER;
  119. #endif
  120. #endif
  123. #include <setjmp.h>
  124. #include <string.h>
  126. #if defined(MWC) && defined(strlen)
  127. #undef strcmp /* These are defined as macros in string.h */
  128. #undef strcpy /* which are expaneded in line under */
  129. #undef strlen /* Metaware C. These undefs avoid this. */
  130. #endif
  132. #include <portab.h>
  133. #include <mserror.h>
  134. #if !defined(DOSPLUS)
  135. #include <ccpm.h>
  136. #include <sysdat.h>
  137. #endif
  139. #include "command.h" /* Command Definitions */
  140. #include "support.h" /* Support routines */
  141. #include "dos.h"  /* MSDOS function definitions */
  142. #include "dosif.h" /* DOS interface definitions */
  143. #include "toupper.h"
  144. #include "global.h" /* Global Variables */
  146. /* RG-00- */
  147. #define PATH_LEN     65  /* max path length (null terminated) */
  148. #if !defined(NOSECURITY) && (defined(CDOSTMP) || defined(CDOS))
  149. #include <pd.h>
  150. #include "security.h"
  151. #include "login.h"
  152. #endif
  153. /* RG-00- end */
  155. MLOCAL BYTE valid_sepchar[] = ":.;,=+";
  158. #if defined(DOSPLUS) /* we now define initial  */
  159. MLOCAL BYTE PATH_DIR[]  = "A:\OPENDOS";
  160. MLOCAL BYTE SET_PATH[]  = "PATH=%s";
  161. MLOCAL BYTE SET_PROMPT[]  = "PROMPT=$P$G";
  162. MLOCAL BYTE SET_OS[]   = "OS=OPENDOS"; /* environment in COMMAND */
  163. MLOCAL BYTE SET_VER[]  = "VER=7"; /* not in BIOSINIT        */
  164. #if !defined(FINAL)
  165. MLOCAL BYTE SET_BETA[] = "BETA=Beta 4";
  166. #endif
  167. #endif
  169. GLOBAL jmp_buf break_env;
  171. #if defined(DOSPLUS)
  172. EXTERN UWORD _psp;
  173. EXTERN VOID *batchptr_off;
  174. EXTERN VOID *batchflg_off;
  175. EXTERN VOID *echoflg_off;
  176. EXTERN UWORD FAR *batch_seg_ptr;
  177. #endif
  179. /*RG-03*/
  180. EXTERN BOOLEAN  if_context;         /* BATCH.C */
  181. /*RG-03-end*/
  184. #if defined(DOSPLUS)
  185. EXTERN VOID CDECL show_help(WORD); /* CSTART.ASM */
  186. EXTERN VOID CDECL put_resident_high(WORD); /* CSTART.ASM */
  187. EXTERN BYTE FAR * CDECL get_config_env(VOID); /* CTSART.ASM */
  188. EXTERN UWORD CDECL get_original_envsize(VOID);
  189. EXTERN VOID CDECL copy_crit_msgs(VOID); /* CSUP.ASM */
  190. EXTERN VOID CDECL copy_rld_msgs(VOID); /* CSUP.ASM */
  191. EXTERN WORD CDECL dos_parse_filename(BYTE *);
  192. EXTERN UWORD  CDECL docmd_int2f(BYTE *, BYTE *, UWORD);
  193. #endif
  194. EXTERN void CDECL flush_cache(void);
  196. EXTERN BYTE  *kbdptr;
  197. EXTERN BYTE msg_patheq[]; /* Static Environ String "PATH=" */
  198. EXTERN S_CMD cmd_list[]; /* CMDLIST.C */
  200. #if defined(DOSPLUS)
  201. EXTERN VOID inherit_parent_state();
  202. #endif
  204. EXTERN WORD echoflg_save2;
  205. EXTERN VOID batch_start(BYTE *, BYTE *, BYTE *);
  206. EXTERN VOID batch_end(VOID); /* BATCH.C */
  207. EXTERN VOID batch_endall(VOID); /* BATCH.C */
  208. EXTERN VOID batch_close(VOID); /* BATCH.C */
  209. EXTERN VOID for_end(VOID); /* BATCH.C */
  210. EXTERN BOOLEAN getcmd(BYTE *); /* BATCH.C */
  211. #if !defined(CDOSTMP)
  212. EXTERN VOID int2e_start(); /* BATCH.C */
  213. EXTERN VOID int2e_finish(); /* BATCH.C */
  214. #endif
  216. EXTERN VOID CDECL cmd_cd(BYTE *); /* COMINT.C */     
  217. EXTERN VOID CDECL cmd_ver(); /* COMINT.C */
  218. EXTERN VOID CDECL cmd_set(BYTE *); /* COMINT.C */
  220. GLOBAL VOID docmd(BYTE *, BOOLEAN); /* COM.C */
  221. MLOCAL VOID cmd_loop (BYTE *); /* COM.C */
  222. MLOCAL VOID error_code(UWORD); /* COM.C */
  224. MLOCAL VOID cmd_cleantp(VOID); /* COM.C */
  225. GLOBAL BOOLEAN parse(BYTE *); /* COM.C */
  226. MLOCAL VOID init(BYTE *); /* COM.C */
  227. MLOCAL BOOLEAN doexec(BYTE *, BYTE *, UWORD, BYTE *);
  229. #if !defined(CDOSTMP)
  230. MLOCAL BYTE msg_comspec[] = "COMSPEC=";
  231. /*EXTERN BYTE *reload_file;    CSTART.ASM  */
  233. EXTERN VOID CDECL get_reload_file(VOID); /* CSUP.ASM */
  234. EXTERN VOID CDECL set_reload_file(VOID); /* CSUP.ASM */
  235. EXTERN VOID CDECL get_out_pipe(VOID); /* CSUP.ASM */
  237. EXTERN VOID CDECL install_perm(VOID);    /* CSTART.ASM  */ 
  238. EXTERN VOID CDECL master_env(UWORD);    /* CSTART.ASM  */ 
  239. GLOBAL WORD CDECL findfile(BYTE *, UWORD *);    /* COM.C for MS-DOS  */
  240. MLOCAL WORD checkfile(BYTE *, UWORD *, BYTE *, BYTE *, BYTE *, BYTE *);
  241. EXTERN BYTE cbreak_ok; /* control break handler initialised */
  242. #else
  243. EXTERN WORD CDECL findfile(BYTE *, UWORD *);     /* DOSIF.A86 (P_PATH) */
  244. EXTERN VOID network_init(VOID);     /* NETWORK.C   */
  245. EXTERN PD FAR * CDECL pd; /* Far pointer to Current PD */
  246. MLOCAL BOOLEAN system_init = TRUE;
  247. #endif
  248. EXTERN BYTE FAR * CDECL farptr(BYTE *);
  249. EXTERN BYTE FAR * CDECL cgroupptr(BYTE *);
  251. #if defined(CPM)
  252. EXTERN UWORD CDECL cpm_init(VOID); /* CP/M Init Routine */
  253. #endif
  255. #if !defined(NOSECURITY) && (defined(CDOSTMP) || defined(CDOS))
  256. /* global VC data */
  257. UWORD   vc_base;    /* first vc number for this station */
  258. UWORD   num_of_vcs; /* number of vcs on this station */
  259. #endif
  261. #if !defined(CDOSTMP)
  262. BYTE autoexec_name[13] = "autoexec.bat";
  263. #endif
  265. #if defined(DOSPLUS)
  266. UWORD boot_key_scan_code = 0;
  267. #endif
  269. #if !defined(FINAL)
  270. void save_psp(void);
  271. void check_psp(void);
  272. WORD psp_xsum;
  273. #endif
  275. VOID FAR CDECL _main(cmd)
  276. BYTE *cmd;
  277. {
  278. BYTE    cmd_buf[128];
  280. #if defined(CDOSTMP) /* Insure the NETWORK_INIT   */
  281. network_init(); /* function is called before */
  282. #endif /* any disk activity so that */
  283. /* Diskless DRNET systems can*/
  284. /* be generated.      */
  286. #if !defined(NOSECURITY) && (defined(CDOSTMP) || defined(CDOS))
  287.         /* get the VC data and make global */
  288.         vc_data(&vc_base, &num_of_vcs, &station);
  289. #endif
  291. #if defined(DOSPLUS) && defined(DLS)
  292. copy_crit_msgs();
  293. copy_rld_msgs();
  294. #endif
  296.   init(cmd); /* Initialize COMMAND.???    */
  298. #if defined(CPM)
  299. if(cpm_init()) { /* If this is the CP/M Media */
  300.     eprintf(MSG_SINGLECPM); /* Access program then call  */
  301.     ms_x_exit(1); /* the CPM_INIT function     */
  302. }
  303. #endif
  305. ms_drv_set(drive);  /* try to set default drive  */
  307. FOREVER {
  309.             error_code(setjmp(break_env)); /* Initialize Error Handler */
  310. #if !defined(CDOSTMP)
  311.     cbreak_ok = TRUE; /* we can handle break now */
  312. #endif
  313. #if !defined(NOSECURITY) && (defined(CDOSTMP) || defined(CDOS))
  314. #if defined(CDOSTMP)
  316.     ms_drv_set(drive);   /* try to set default drive  */
  318.             /* Ensure we are the foreground process on the Virtual Console */
  319.             /* before displaying login prompt. */
  320.             if(login_enabled()) {
  321.                 disable_vc_switch(); /* stop user switching to another console */
  323.                 /* if 1st time through on VC 0 then run system autoexec */
  324. if (system_init) {
  325.     login_save_initial_state();
  326.     if (pd->P_CNS==0) {
  327.                     /* log this event */
  328.                     logevent("",LOG_POWERON);
  329. /* process system Autoexec.bat */
  330.         while (*kbdptr || batchflg)
  331.         cmd_loop (cmd_buf);
  332.                 }
  333.     system_init = FALSE;
  334. }
  335.                 if(waiting_on_login() && !background_proc())
  336.                     login_station(); /* login station */
  337.         login_consoles(); /* initialise all VCs */
  338.                 enable_vc_switch();
  339.             }
  340. #endif
  341.             FOREVER {
  342.                 error_code(setjmp(break_env)); /* Initialize Error Handler */
  344.     if (login_enabled()) {
  345.                     if(!logged_in())  /* keep going until logged out */
  346.         break;
  347.     }
  348. #endif
  349.                 cmd_loop (cmd_buf);
  351. #if !defined(NOSECURITY) && (defined(CDOSTMP) || defined(CDOS))
  352.     }
  353.             if(login_enabled()) {
  354. /* kill off any remaining batch processes still running */
  355.                 while (batchflg)
  356.         cmd_exit("");
  357. #if defined(CDOSTMP)
  358. /* the logout event */
  359.                 if(!background_proc())
  360.     logout();
  361. #else
  362. return; /* CDOS.COM just dies when logout happens */
  363. #endif
  364.     }
  365. #endif
  366.         } 
  367. }
  369. /*MLOCAL*/ VOID cmd_loop (cmd)
  370. BYTE *cmd;
  371. {
  372. WORD echoing;     
  373. REG BYTE *cmdline;
  374. BYTE first_ch;
  375.   
  376. cmd_cleanup(); /* Cleanup after the command */
  377. cmdline = cmd;
  379. if (!batchflg) flush_cache();
  380. echoing = getcmd(cmdline); /* do not echo Labels      */
  382. first_ch = *deblank(cmdline);
  384. if((pipe_out && !batchflg && !*deblank(kbdptr)) ||
  385. /* if "|<nul command>" */
  386.    (pipe_in && (first_ch == 0 || first_ch == ':'))) {
  387.     /* or "<null command>|" */
  388.     eprintf(MSG_SYNTAX); /* report syntax error */
  389.     pipe_out = NO; /* forget about pipes */
  390.     pipe_in  = NO;
  391.     if (!batchflg)
  392. *kbdptr = ''; /* discard rest of line */
  393.     crlfflg = YES; /* remember to do a LF */
  394.     return; /* stop now before echo */
  395. }
  397. if(echoing && first_ch != ':') {
  398. /* Echo command line if ECHO */
  399.     puts(cmdline); /* ON and source not keyboard*/
  400.     crlf(); /* and not a label      */
  401. }
  403. crlfflg = NO; /* NO CR/LF req'd           */
  404. cmdline = deblank(cmdline);  /* remove leading spaces    */
  405.  
  406. if(*cmdline && *cmdline != ':') /* Check for a command     */
  407. { /* not a LABEL     */
  409.     if (!strnicmp(cmdline,"IF",2)) docmd(cmdline,YES);
  410.     else {
  411.         if(!parse(cmdline)) { /* If the Parse succeeds then*/
  412.     docmd(cmdline, YES); /* execute the command.      */
  413.                 }
  414.     }
  415. }
  416. }
  418. /*.pa*/
  419. /*
  420.  *
  421.  */
  422. #define COMMAND_P (cflag & 1) /* Permanent Flag */
  423. #define COMMAND_C (cflag & 2) /* One Command Option */
  424. #define COMMAND_T (cflag & 4) /* CDOS TSR option */
  427. MLOCAL VOID init(cmd)
  428. BYTE *cmd;
  429. {
  430. UBYTE console = 1; /* Concurrent Console No. +1 */
  431. SYSDATE date; /* System Date Structure     */
  432. WORD ret; /* General Variable      */
  433. UWORD cflag;
  434. BYTE *s;
  435. #if defined(CDOSTMP)
  436. UWORD vc_base, vc_num, pc_num; /* Virtual Console Data      */
  437. #else
  438. BYTE buf[MAX_ENVLEN], c;
  439. UWORD envsize = 256;
  440. #endif
  441. #if defined(DOSPLUS)
  442. BOOLEAN no_timedate = FALSE;
  443. WORD  prh_function = 0;
  444. UWORD FAR *p_batch_seg;
  445. #endif
  446. BYTE lferror = 0;
  447. strcpy(kbdptr, ""); /* start with no commands */
  449. #if 0
  450. #if defined(DLS)
  451. dls_msg_ver(MSG_VER); /* check message file version*/
  452. #else
  453. s = MSG_VER; /* ensure label is referenced */
  454. #endif
  455. #endif
  457. #if defined(CDOS)
  458. ret = ioctl_ver();
  459. if(ret < 0x1450 || ret > 0x1499) { /* Get the CDOS BDOS Version */
  460.     eprintf(MSG_BADOS); /* and quit if it is not 5.0 */
  461.     ms_x_exit(-1); /* or Above      */
  462. }
  463. #endif
  465. #if defined(DOSPLUS)
  467. batchptr_off = (VOID *) &batch;
  468. batchflg_off = (VOID *) &batchflg;
  469. echoflg_off  = (VOID *) &echoflg;
  471. envsize = get_original_envsize(); /* BAP - sets envsize to */
  472. /* same as original COMMAND */
  473. if ((envsize < 128) || (envsize > 32752)) envsize = 256; /* shouldn't really need this */
  475. parent_psp = MK_FP(_psp, 0x16); /* our parental PSP is here  */
  476. ret = ioctl_ver(); /* Get the BDOS Version No.  */
  478. if(ret < 0x1071) { /* Abort if this is not DOS  */
  479.     eprintf(MSG_BADOS); /* PLUS with a BDOS version  */
  480.     if ((*parent_psp) && (*parent_psp != _psp))
  481. ms_x_exit(-1); /* abort unless root process */
  482.     while(1){};
  483. }
  485. #if 0
  486. #if defined(DLS)
  487. dls_msg_crit(); /* init crit error messages  */
  488. #endif
  489. #endif
  491. #endif
  493. #if defined(CDOSTMP)
  494. console = (UBYTE) bdos(C_GET, 0) + 1; /* CDOS Console No. + 1     */
  495. execed = NO; /* COMMAND.RSP not EXECED    */
  496. err_ret = 0; /* Initial Error Code 0000   */
  498. #else
  499. execed = YES; /* Assume we have been loaded*/
  500. /* from the command line     */
  501. break_flag = ms_set_break(NO); /* Get the Current Break Flag*/
  502. err_ret = ms_x_wait(); /* Get the completion code   */
  503. /* for process's that cause  */
  504. /* COMMAND.COM to be reloaded*/
  506. init_switchar(); /* initialise switchar and   */
  507. /* pathchar      */
  508. #endif
  510. drive = ms_drv_get();   /* get default drive.      */
  511. country.code = ms_s_country(&country); /* Initialise the Country data*/
  512. in_handle = psp_poke(STDIN, 0xFF); /* Get the standard input    */
  513. psp_poke(STDIN, in_handle); /* and save internally      */
  515. out_handle = psp_poke(STDOUT, 0xFF); /* Get the standard Output   */
  516. psp_poke(STDOUT, out_handle); /* and save internally      */
  518. for(ret=5;ret<20;ms_x_close(ret++)); /* close handles 5-20      */
  520. if(initflg) /* is this a warm boot?      */
  521.     return; /* Yes then QUIT      */
  523. initflg = YES; /* there's only one 1st time */
  524. cflag = 0; /* Clear the switch variable */
  526. #if !defined(CDOSTMP)
  527. /*
  528.  *
  529.  * COMMAND.COM
  530.  * The following command line formats must be supported for
  531.  * applications that exec the command processor.
  532.  *
  533.  * COMMAND /CCOPY filex filey FrameWork Install
  534.  * COMMAND /C DIR *.* /P Procomm directory option
  535.  * COMMAND /C=DIR *.*
  536.  *
  537.  * These varients prevent support for multiple options and
  538.  * force the option scanning to be halted at the first command
  539.  *
  540.  * COMMAND /T - TSR support for CDOS
  541.  *
  542.  * We are auto-invoking COMMAND after detecting a TSR, so
  543.  * try and inherit any open batch files.
  544.  *
  545.  */
  547. s = (BYTE *) heap_get(128); /* allocate some heap memory */
  549. FOREVER {
  550.     cmd = deblank(cmd); /* Deblank the command line  */
  551.     if((*cmd == '') || (*cmd == *switchar))
  552. break; /* stop at option or end     */
  554.     cmd = get_filename(s, cmd, NO);
  556.     if(strlen(s)) { /* look for Loadpath/STDIO */
  557. if((ret = ms_x_open(s, OPEN_RW)) >= 0) {
  558.     if(isdev(ret)) {
  559. strcat(kbdptr,"ctty "); /* if its a R/W device put */
  560. strcat(kbdptr, s); /* CTTY <dev> into buffer  */
  561. strcat(kbdptr,"!");
  562.     }
  563.     else /* otherwise its an error  */
  564. eprintf(MSG_LOADPATH); /*  an invalid loadpath    */
  565.     ms_x_close(ret); /* Close the handle */
  566. }
  567. else {
  568.     append_slash(s); /* user specified loadpath   */
  569.     get_reload_file(); /* get reload_file on heap   */
  570.     strcat(s, fptr(heap()));
  571.     if(file_exist(s)) { /* append existing load file */
  572.      ms_x_expand(heap(), s);
  573.      set_reload_file(); /* copy heap to reload_file  */
  574.     }
  575.     else { /* Print an error message if */
  576. eprintf(MSG_LOADPATH); /* an invalid path used.     */
  577. lferror = 1;
  578. break;
  579.     }
  580. }
  581.     }
  582.     else {
  583.         eprintf(MSG_LOADPATH);
  584. break;
  585.     }
  586. }
  588. heap_set(s); /* free up heap memory */
  590. c_option = FALSE;
  591. k_option = FALSE;
  592. FOREVER {
  593.     cmd = deblank(cmd); /* Deblank the command line  */
  594.     if(*cmd != *switchar) /* Stop the option check if  */
  595. break; /* the next character is not */
  596.     cmd++; /* a switch character.      */
  597.     c = toupper(*cmd++);
  598.     switch(c) {
  599. /*RG-05-*/
  600. #if (defined(CDOS)||defined(DOSPLUS)) && !defined(NOHELP)
  601.    case 'H': /* Support /H Help Option      */
  602. case '?': /* Support /? Help Option      */
  603.     cflag |= 2;
  604.                     cmd_ver();
  605.                     crlf();
  606.                     printf(HELP_COM);
  607.     ms_x_exit(0);
  608.     break;
  609. #endif
  610. /*RG-05-end*/
  611. case 'C': /* Support /C Option      */
  612.     echoflg  = ECHO_OFF; /* Don't issue CR LF      */
  613.     c_option = TRUE;
  614. case 'K':
  615.     k_option = TRUE;
  616.     cmd = deblank(cmd);
  617.     if (*cmd == '=') {
  618.      cmd++; /* Skip optional '='         */
  619.         cmd = deblank(cmd);
  620.     }
  621.     
  622.     cflag |= 2;
  623.     break;
  625. case 'N':
  626. n_option = TRUE;
  627. break;
  629. case 'P': /* Support /P Option      */
  630.     cflag |= 1;
  631.     if (*cmd == ':') { /* See if a different fname  */
  632.      cmd++; /* has been specified for    */
  633. ret = 0; /* AUTOEXEC.BAT.             */
  634.      while ((*cmd > 32) && (ret < 12))
  635. autoexec_name[ret++] = *cmd++;
  636.      autoexec_name[ret] = 0;
  637. while (*cmd > 32) cmd++;
  638.     }
  639.     break;
  641. case 'E': /* Environment Option */
  642.     if(*cmd != ':') /* Check for /E:nnn   */
  643.         break;
  644.     cmd++;
  645.     if(getdigit(&ret, &cmd) && ret > 128 && ret < 32752)
  646.         envsize = ret;
  647.     break;
  649. #if defined(CDOS)
  650. case 'T': /* TSR support */
  651.     cflag |= 5;
  652.     inherit_TMP_state(); /* inherit batch files etc */
  653.     break;
  654. #endif
  656. #if defined(DOSPLUS)
  657. case 'T':
  658.     inherit_parent_state();
  659.     break;
  660. #endif
  663. #if defined(DOSPLUS)
  664. case 'M': /* relocate resident portion */
  665.     c = toupper(*cmd++);
  666.     if (c == 'H') prh_function = 1;
  667.     if (c == 'U') prh_function = 2;
  668.     if (c == 'L') prh_function = -1;
  669.     break;
  671. case 'D':
  672.     no_timedate = TRUE;
  673.     break;
  674. #endif
  676. case '': /* Treat the NULL character */
  677.     cmd--; /* specially in case some of*/
  678.     break; /* the following command "/"*/
  680. default: /* Skip invalid options.    */
  681.     break;
  682.     }
  683. }
  684. #if defined(DOSPLUS)
  685. /* We cannot allow COMMAND to go into upper memory unless "/P" has also */
  686. /* been given. If we do the memory won't be freed up on exit */
  688. switch(prh_function) {
  689.    case 0: /* try high, upper, then low */
  690. if(COMMAND_P)
  691. put_resident_high(0);
  692. else
  693. put_resident_high(1);
  694. break;
  695. case 1: /* try high, then low */
  696. put_resident_high(1);
  697. break;
  698. case 2: /* try upper, then low */
  699. if(COMMAND_P)
  700. put_resident_high(2);
  701. break;
  702. default:/* try low */
  703. break;
  704. }
  705. #endif
  707. master_env(envsize); /* Allocate the master       */
  708. /* environment of ENVSIZE    */
  709. /* bytes in length      */
  710. #if 0
  711. /*
  712.  * If no COMSPEC has been defined or it is different from
  713.  * the RELOAD_FILE specification then update COMSPEC.
  714.  */
  715. if(env_scan(msg_comspec, heap()) || stricmp(heap(), reload_file)) {
  716.     sprintf(buf, "%s%s", msg_comspec, reload_file);
  717.     cmd_set(buf);
  718. }
  719. #else
  720. /* BAP changed this */
  721. get_reload_file();
  722. if(env_scan(msg_comspec,heap())) {
  723.     sprintf(buf,"%s%s",msg_comspec,heap());
  724.     cmd_set(buf);
  725. }
  726. #endif
  728. #if defined(DOSPLUS)
  729. save_parent = *parent_psp;
  730. *parent_psp = _psp; /* Always do this */
  732.     if(COMMAND_P) { /* Action the /P flag for   */
  733. execed = NO; /* DOSPLUS.COM     */
  735. PATH_DIR[0] = drive + 'A'; /* if DRDOS directory exists */
  736. ret = ms_x_chmod(PATH_DIR, ATTR_ALL, 0);
  737. if ((ret > 0) && (ret & 0x10)) {/* point the path at it */
  738. sprintf(buf, SET_PATH, PATH_DIR);
  739. cmd_set(buf);
  740. }
  741. cmd_set(SET_PROMPT);
  742. cmd_set(SET_OS);
  743. cmd_set(SET_VER);
  744. #if !defined(FINAL)
  745. cmd_set(SET_BETA);
  746. #endif
  747.         install_perm(); /* Install Backdoor entry    */
  748.     }
  750. /* process the environment created by config.sys */
  751. process_config_env();
  752. #endif
  754. #endif
  756. FOREVER {
  757.     if(execed) { /* If this is a transient  */
  758. if (!lferror)
  759.     strcat(kbdptr, cmd); /* command processor then  */
  760. ret = FALSE; /* get the command line and*/
  761. break; /* ignore AUTOEXEC.BAT.    */
  762.     }
  764.     /* Check for the presence of STARTnnn.BAT in the root   */
  765.     /* of the boot disk if not found check for AUTOEXEC     */
  766.     /* if neither are present then if this is console 0     */
  767.     /* and this is < 1987 ask for the date.      */
  769. #if defined(CDOSTMP) 
  770.             vc_data(&vc_base, &vc_num, &pc_num); /* Get VC Data     */
  771.     vc_num = console - vc_base; /* Relative VC Num  */
  772.     sprintf(heap(), "!start%02d%1d.bat", pc_num, vc_num);
  773.     if((ret = file_exist(heap()+1)) == 0) {
  774.         strcpy(heap(), "!autoexec.bat");
  775. ret = file_exist(heap()+1);
  776.     }
  778.     if(ret != 0) { 
  779. strcat(kbdptr, heap());
  780. sprintf(heap(), " %d %d %d", console, pc_num, vc_num);
  781. strcat(kbdptr, heap());
  782. break;
  783.     }
  785. #else
  786.     strcpy(heap(), "!");
  787.     strcat(heap(), autoexec_name);
  788.     if((ret = file_exist(heap()+1)) != 0) {
  789. if (boot_key_scan_code != 0x3f00 /*F5*/)
  790.     strcat(kbdptr,heap());
  791. break;
  792.     } else {
  793. boot_key_scan_code = 0;
  794.     }
  795. #endif
  797. #if defined(DOSPLUS)
  798.     if (!no_timedate && *autoexec_name!=0)
  799.         strcat(kbdptr, "!date!time");
  800. #else
  801.     ms_getdate(&date);
  802.     if(console == 1 && date.year < 1987)
  803. strcat(kbdptr, "!date!time");
  804. #endif
  805.     break;
  806. }
  807. #if defined(CDOS) && !defined(CPM)
  808.     if(COMMAND_P) /* Action the /P flag for   */
  809. execed = NO; /* CDOS.COM to disable EXIT */
  810. #endif
  812. #if 0
  813. if(COMMAND_C) { /* Append EXIT if COMMAND.COM*/
  814.     strcat(kbdptr, "!exit 0"); /* is just used to execute a */
  815. } /* a command.      */
  816. #endif
  818. #if !defined(CDOSTMP)
  819. #if 0
  820. else { 
  821. #else
  822. if(!COMMAND_C) {
  823. #endif
  824. #if defined(DOSPLUS)
  825.     if (*autoexec_name != 0) {
  826.         cmd_ver(); /* display the signon      */
  828.           printf(MSG_OEMCPYRT);
  829.         crlf();
  830.     }
  831. #else
  832.     if(!COMMAND_T) { /* if it's CDOS TSR support  */
  833. cmd_ver(); /* don't display signon      */
  834. crlf();
  835.     }
  836. #endif
  838. }
  839. #endif
  840. }
  842. /*
  843.  * The following function is called to clean up COMMAND.COM after 
  844.  * an internal or external command has been executed. The major areas
  845.  * to be handled by this function are:-
  846.  *
  847.  * 1) Control-C termination for Batch file termination
  848.  * 2) I/O Redirection
  849.  * 3) Hiloading off
  850.  */
  851. MLOCAL VOID cmd_cleanup()
  852. {
  853. BYTE cmdbuf[128];
  854. #if 0
  855. hiload_set(NO); /* HILOADing off now */
  856. #endif
  858. if(err_ret == BREAK_EXIT || /* Check for Control-C      */
  859.     err_ret == ERROR_EXIT) { /* or Critical Error Exit    */
  861.     if(pipe_out) { /* If a Pipe'ed command is   */
  862. pipe_out = NO; /* is aborted then absorb    */
  863. getcmd(cmdbuf); /* the second command.      */
  864. crlf();
  865.     }
  867.     if(batchflg) {
  868. eprintf(MSG_BATTERM); /* Processing a BATCH file   */
  869. err_flag = TRUE; /* ask if the uses wishes to */
  870. if(yes(NO, YES)) /* to abort this batch job   */
  871.     batch_endall(); /* Close ALL batch files     */
  872. err_flag = FALSE;
  873.     }
  874.     else if(for_flag) /* If processing a FOR      */
  875. for_end(); /* command outside a batch   */
  876. } /* file then abort it.      */
  878. err_ret &= 0x00FF; /* Mask the Termination      */
  879. /* condition this should only*/
  880. /* be tested once.      */
  882. /*
  883.  * After the termination of a Batch file or a Program then
  884.  * the relevant redirection is removed. If the redirection
  885.  * was instigated because of the PIPE facility then the
  886.  * correct clean up code is executed.
  887.  */
  889. while(in_flag & REDIR_ACTIVE) { /* Is Redirection Active     */
  890.     if((in_flag & REDIR_BATCH) && batchflg)
  891. break;
  893.     if((in_flag & REDIR_FOR) && for_flag)
  894. break;
  896.     ms_x_close(STDIN);  /* Close the Redirected File */
  897.     psp_poke(STDIN, in_handle); /* Restore original Handle   */
  898.     
  899.     if(pipe_in) {
  900. pipe_in = NO;
  901. ms_x_unlink(old_pipe);
  902. heap_set(old_pipe);
  903.     }
  905.     in_flag = NULL;
  906. }
  908. while(out_flag & REDIR_ACTIVE) { /* Is Redirection Active     */
  909.     if((out_flag & REDIR_BATCH) && batchflg)
  910. break;
  912.     if((out_flag & REDIR_FOR) && for_flag)
  913. break;
  915.     ms_x_close(STDOUT); /* Close the Redirected File */
  916.     psp_poke(STDOUT, out_handle); /* Restore original Handle   */
  918.     if(pipe_out) {
  919. pipe_in = YES; pipe_out = NO;
  920. old_pipe = heap_get(strlen(out_pipe)+1);
  921. strcpy(old_pipe,out_pipe);
  922.     }
  924.     out_flag = NULL;
  925. }
  927. country.code = ms_s_country(&country); /* re-init the Country data  */
  928. #if 0
  929. #if defined(DLS)
  930. dls_msg_crit(); /* re-init crit error msgs   */
  931. #endif
  932. #endif
  933. }
  935. /*.pa*/
  936. /*
  937.  * ERROR_INIT is the "CRITICAL" error handler which will initialize
  938.  * the error handling code, displays error messages and clean-up the
  939.  * environment after an error has occurred.
  940.  */
  941. /*RG-00*/
  942. /*MLOCAL VOID error_code(error)*/
  943. VOID error_code(error)
  944. /*RG-00-end*/
  945. UWORD error;
  946. {
  947. switch(error) {
  948.     case 0: /* Setting JMPBUF. Enable    */
  949. #if !defined(CDOSTMP) /* break checking in case    */
  950. ms_set_break(YES); /* this is the first time    */
  951. #endif /* through the command proc. */
  952.   return;
  954.     case IA_BREAK:
  955. putc('r'); /* A CR here makes SideKick+ */
  956. /* look good when it      */
  957. /* deinstalls itself      */
  958. /* The following two function calls close the batch file during an INT 23
  959.    thus disallowing to continue with a batch file if the user chooses to
  960.    do so after being prompted. However, there migh have been a reason why
  961.    this has been inserted before which I don't know of. JBM */
  962. /* ms_x_close(5);  ##jc## Close Unused Handles*/
  963. /* ms_x_close(6);  ##jc## Close Unused Handles*/
  964. mem_free(&bufaddr); /* Free External Copy Buffer */
  965. #if defined(CDOSTMP) /* On Concurrent DOS and     */
  966. bdos(DRV_RESET, 0xFFFF); /* DOSPLUS reset the disk    */
  967. crlf(); /* when we get a Control-C.  */
  968. #endif
  969. break;
  971.     case IA_STACK: /* Stack Overflow Error      */
  972.     case IA_HEAP: /* Heap Overflow Error      */
  973. batch_endall();  /* Out of memory error      */
  974. eprintf(MSG_BATNEST); /* probably caused by nesting*/
  975. break; /* batch files TOO deep.     */
  977.     case IA_FILENAME: /* FileName Error      */
  978. eprintf(ERR_FILE); /* display an error message  */
  979. break; /* and terminate the command */
  981.     default:
  982. eprintf(MSG_LONGJMP, error);
  983. break;
  984. }
  986. crlfflg = NO; /* Reset CR/LF Flag     */
  987. }
  989. /*
  990.  * This function is invoked after a CONTROL-BREAK or Critical Error
  991.  * during the execution of an internal function. Any BREAK specific
  992.  * cleanup is executed here. The break handler then restarts normal
  993.  * code execution by executing a LONGJMP.
  994.  */
  995. GLOBAL VOID CDECL int_break()
  996. {
  997. int i;
  999. if (show_file_buf) mem_free(&show_file_buf);
  1001. if (global_in_hiload) {
  1002.     /* if ctrl-c pressed during a hiload, restore memory */
  1003.     /* allocation strategy.  */
  1005.     for(i=1;i<10;i++) { /* free up any UMB's we have */
  1006. if (hidden_umb[i]) {
  1007.     free_region(hidden_umb[i]);
  1008.     hidden_umb[i] = 0;
  1009. }
  1010.     }
  1011.     set_upper_memory_link(global_link);
  1012.     set_alloc_strategy(global_strat);
  1013.     global_in_hiload = 0;
  1014. }
  1016. err_ret = BREAK_EXIT; /* Update the Global Error Return */
  1017. longjmp(break_env, IA_BREAK); /* Either Control-C or Critical   */
  1018. /* Error Process Termination.   */
  1019. }
  1021. /*.pa*/
  1022. /*
  1023.  * This function parses the command line and extracts all unquoted
  1024.  * >>, > and < character sequences and their corresponding filenames.
  1025.  * The last redirection specification of the same type is used all
  1026.  * previous references will be removed. Redirection will only be 
  1027.  * enabled if no redirection of the same type is already active.
  1028.  * ie. If redirection is enabled on a batch file all redirection
  1029.  * commands of the same type inside the file are ignored.
  1030.  */
  1031. GLOBAL BOOLEAN parse(s)     /* Parse the command line looking    */
  1032. BYTE *s; /* for Redirection commands      */
  1033. {
  1034. REG BYTE *bps;
  1035. BYTE *bpi, *bpo;
  1036. BYTE infile[MAX_FILELEN]; /* Input Redirection FileName     */
  1037. BYTE outfile[MAX_FILELEN]; /* Output Redirection FileName     */
  1038. BYTE cmdbuf[128]; /* Command buffer for Aborted Pipe  */
  1039. WORD h;
  1040. BOOLEAN quote = NO; /* Check for Quoted Statements      */
  1041. BOOLEAN append;  /* Out Redirection Append      */
  1043. crlfflg = YES; /* Force a CRLF in case an error     */
  1044. /* occurs in the command line parsing*/
  1046. for(bpi = NULL, bpo = NULL; *s; s++) {
  1048.     if(*s == '"') { /* Maintain the correct    */
  1049. quote = !quote;  /* Status of the QUOTE flag*/
  1050. continue;
  1051.     }
  1053.     if(quote) /* If the QUOTE flag is     */
  1054. continue; /* then skip the following  */
  1056.     if(*s == '>') { /* Found Output redirection  */
  1057. bpo = outfile; /* Character extract the Path*/
  1058. bps = s+1; append = FALSE; /*  and save locally      */
  1060. if(*(bps) == '>') { /* Check for append mode     */
  1061.     append = TRUE;
  1062.     bps++;
  1063. }
  1065. bps = get_filename(bpo, deblank(bps), NO);
  1066. /* Extract the FileName      */
  1067. bps = deblank(bps);
  1068. strcpy(s--, bps); /* Then remove data from Line*/
  1069. continue; /* S decrement to force new  */
  1070.     } /* next character to be read */
  1072.     if(*s == '<') { /* Found Input redirection   */
  1073. bpi = infile; /* Character extract the Path*/
  1074. bps = get_filename(bpi, deblank(s+1), NO);
  1075. /* Extract the FileName      */
  1076. bps = deblank(bps);
  1077. strcpy(s--, bps); /* Then remove data from Line*/
  1078.     } /* S decrement to force new  */
  1079. } /* next character to be read */
  1082. #if defined(DOSPLUS)
  1083. /* only redirect if not already redirected */
  1084. if ((pipe_in || bpi) && (!(in_flag & REDIR_ACTIVE))) {
  1085. #else
  1086. if(pipe_in || bpi) { /* Check for any redirection */
  1087.     if(in_flag & REDIR_ACTIVE) { /* If Standard Input has been*/
  1088. eprintf(MSG_INACTIVE); /* redirected then fail      */
  1089. return FAILURE;
  1090.     }
  1091. #endif
  1093.     bpi = pipe_in ? out_pipe : infile; /* BPI points to the filename*/
  1095.     h = ms_x_open(bpi, OPEN_READ);
  1096.     if(h < 0) {
  1097. /* Attempt to Open the file  */
  1098. e_check(h); /* || device specified and   */
  1099. return FAILURE;  /* print an error message if */
  1100.     } /* we fail.      */
  1102.     psp_poke(STDIN, psp_poke(h, 0xFF)); /* Force New input file onto */
  1103.      /* Standard Input and close  */
  1104.     in_flag = REDIR_ACTIVE; /* the returned handle      */
  1105. }
  1107. #if defined(DOSPLUS)
  1108. /* only redirect if not already redirected */
  1109. if ((pipe_out || bpo) && (!(out_flag & REDIR_ACTIVE))) {
  1110. #else
  1111. if(pipe_out || bpo) { /* Check for any redirection */
  1112.     if(out_flag & REDIR_ACTIVE) { /* If Standard Output has been*/
  1113. eprintf(MSG_OUTACTIVE); /* redirected then fail      */
  1114. return FAILURE;
  1115.     }
  1116. #endif
  1118.     if(pipe_out) {
  1119. #if defined(CDOSTMP)
  1120. out_pipe[0] = *SYSDATB(TEMPDISK)+'A'; /* Initialise the DRIVE */
  1121. out_pipe[3] = ''; /* Terminate String */
  1122. #else
  1123. if (!env_scan("TEMP=",out_pipe)) {
  1124.     
  1125.     /* if TEMP != "d:" check its a valid directory */
  1126.     if ((strlen(out_pipe) > 3) || (out_pipe[1] !=':')) {
  1128.      h = ms_x_chmod(out_pipe,ATTR_ALL,0);
  1129. if ((h<0) || !(h&0x10)) goto assume_root;
  1130.     }
  1131.     append_slash(out_pipe);
  1132. }
  1133. else {
  1134. assume_root:
  1135.     get_out_pipe(); /* get string from low_seg */
  1136.     out_pipe[0] = drive+'A'; /* Initialise the DRIVE */
  1137.     out_pipe[3] = ''; /* Terminate String */
  1138. }
  1139. #endif
  1140. bpo = out_pipe;
  1141. h = ms_x_unique(out_pipe, ATTR_SYS);
  1143.     }
  1144.     else { /* Create the output file if */
  1145. bpo = outfile; /* not Appending or the OPEN */
  1146. /* on the file fails.      */
  1147. if(!append || (h = ms_x_open(bpo, OPEN_WRITE)) < 0)
  1148.     h = ms_x_creat(bpo, 0);
  1149.     }
  1151.     if(e_check(h) < 0) { /* Display any error message */
  1152.      if(pipe_out) { /* Pipe'ed command then     */
  1153.     pipe_out = NO; /* absorb the second command*/
  1154.     getcmd(cmdbuf);  /* return FAILURE on error   */
  1155.     crlfflg = YES;
  1156. }
  1157. return FAILURE;
  1158.     }
  1160.     if(append) /* If in APPEND mode then    */
  1161. ms_x_lseek(h, 0L, 2); /* seek to the end.      */
  1163.     psp_poke(STDOUT, psp_poke(h, 0xFF));/* Force New input file onto */
  1164.      /* Standard Ouput and close  */
  1165.     out_flag = REDIR_ACTIVE; /* the returned handle      */
  1167.     if(pipe_out)
  1168. out_flag |= REDIR_PIPE;
  1169. }
  1171. crlfflg = NO;
  1172. return SUCCESS;
  1173. }
  1176. MLOCAL BOOLEAN docmd_offer(BYTE *cp, BYTE *command, UWORD internal_flag)
  1177. {
  1178. BYTE *lcp;
  1179. int i;
  1180. UWORD int2f_gotit = 0;
  1182. lcp = heap();
  1184. lcp[0] = 0x80; /* copy command line to buffer */
  1185. lcp[1] = strlen(cp); /*   with "readline" format */
  1186. for (i=0;i<lcp[1];i++)
  1187.     lcp[i+2]=cp[i];
  1188. lcp[i+2] = 'r';
  1190. /* offer command line to interested parties */
  1191. if(int2f_gotit = docmd_int2f(lcp,command,internal_flag))
  1192.     return 1; /* if they want it, docmd_offer = TRUE      */
  1195. for(i=command[0];i<8;command[1+(i++)]=' ');
  1196. /* if length is altered, space fill */
  1198. for(i=0;i<lcp[1];i++)
  1199.     cp[i] = lcp[i+2]; /* copy it back in case it was changed */
  1200. cp[i] = 0; /* null terminate it */
  1201. return 0; /* docmd_offer = FALSE, cos the int2f didn't want it */
  1202. }
  1204. GLOBAL VOID docmd(cp, internal)
  1205. REG BYTE  *cp; /* Command Line To be Parsed */
  1206. BOOLEAN   internal; /* Search for INTERNAL Commands */
  1207. {
  1208. REG S_CMD FAR *s_cmd_p;
  1209. WORD   i;
  1210. BYTE FAR  *cpf;
  1211. BYTE    loadfile[MAX_FILELEN];
  1212. BYTE   *cp1, *lcp;
  1213. UWORD   loadtype;
  1214. BYTE   argv0[MAX_FILELEN];
  1216. heap_get(0); /* check for stack overflow */
  1217. lcp = cp; /* in case 1st parse fails.. */
  1218.         crlfflg = YES;
  1220. for(i=0;i<12;loadfile[i++]=' '); /* initialise with blanks */
  1221. ms_f_parse(loadfile, cp, 1); /* parse for internal cmd */
  1222. for(i=7;(i>=0) && (loadfile[i+1] == ' '); i--);
  1223. loadfile[0] = i+1; /* set length of cmd */
  1225. for(;strchr(valid_sepchar,*cp);cp++); /* ignore leading separators */
  1226. for(;is_filechar(cp);cp++); /* skip the command itself */
  1227. /* offer command line to */
  1228. /* interested parties */
  1229. if(docmd_offer(lcp,loadfile,0xFF00+strlen(cp))) /* If they want it */
  1230. return; /* we don't */
  1232. cp = lcp;
  1233. if ((cp[0] != 0) && (cp[1] == ':')) cp+=2;
  1234. for(;strchr(valid_sepchar,*cp);cp++);
  1235. for(;is_filechar(cp);cp++); /* skip the command itself */
  1237. cp1 = cp;
  1238. i = 0;
  1239. while (*cp1 != '') {
  1240.     if (*cp1 == '"')
  1241. i ^= 1;
  1242.     if (is_blank(cp1) == 2 && !i) /* replace each KANJI space */
  1243. *cp1 = *(cp1 + 1) = ' '; /* with one ASCII space */
  1244.     cp1 = skip_char(cp1);
  1245. }
  1247. s_cmd_p = (S_CMD FAR *)farptr((BYTE *)&cmd_list[0]);
  1248. while(internal && s_cmd_p->cmnd) { /* while more builtins */
  1249.     cpf = cgroupptr(s_cmd_p->cmnd);
  1250.     for(i=0;cpf[i];i++) /* make upper case copy */
  1251.      argv0[i]=toupper(cpf[i]);
  1252.     for(;i<8;argv0[i++]=' '); /* space fill it to 8 */
  1254.     if(!strncmp(argv0,loadfile+1,8)) { /* Is this a match ? */
  1256. #if !defined(NOHELP)
  1257. /* Handle  /H or /? in command */
  1258. strcpy(heap(),deblank(cp));
  1259. if(!strnicmp(heap(),"/h",2)||!strnicmp(heap(),"/?",2)) {
  1260.     if (s_cmd_p->help_index != -1)
  1261.      show_help(s_cmd_p->help_index);
  1262.     crlf();
  1263.     return;
  1264. }
  1265. #endif
  1267. /* check for embedded commands in IF that only have meaning in
  1268.                  that context */
  1269. if(s_cmd_p->needparm==PARAM_IFCONTEXT) {
  1270.     if(if_context==FALSE) break;
  1271. }
  1273. cp1 = deblank(cp); /* Remove Blanks from Options*/
  1275. if(s_cmd_p->needparm!=PARAM_NONE /* if a parameter is needed */
  1276.    && !*cp1) { /* but none is supplied      */
  1278.     switch ((UWORD)s_cmd_p->needparm) /* display an error message  */
  1279.     {
  1280.     case PARAM_NEEDFILE: eprintf(MSG_NEEDFILE); break;
  1281.     case PARAM_NEEDPATH: eprintf(MSG_NEEDPATH); break;
  1282.     case PARAM_NEEDDEV:  eprintf(MSG_NEEDDEV);  break;
  1283.     default:  eprintf(MSG_SYNTAX);   break;
  1284.     }
  1285.     eprintf("n");
  1286.     return; /* ignore the command      */
  1287. }
  1289. page_len = get_lines_page();    /* so /P works in 43 and 50 */
  1290. /* line modes */
  1291. (*s_cmd_p->func)(cp1, cp); /* Just Invoke builtin      */
  1292. return;
  1293.     }
  1294.     s_cmd_p ++;  /* compare with next command */
  1295. }
  1297. /* it's not an internal command - could it be help ? */
  1298.         if ((!strnicmp(lcp,"/h",2))||(!strncmp(lcp,"/?",2))) {
  1299.             show_help(0);
  1300.     s_cmd_p = (S_CMD FAR *)farptr((BYTE *)&cmd_list[0]);
  1301.     while(s_cmd_p->cmnd) {
  1302.         cpf = cgroupptr(s_cmd_p->cmnd);
  1303.                 printf("%st",cpf);
  1304.         s_cmd_p++;
  1305.     }
  1306.     crlf();
  1307.     return;
  1308. }
  1310. /* command is not builtin, must be disk based so determine path ... */
  1311. if(docmd_offer(lcp,loadfile,strlen(cp))) /* offer command line to */
  1312. return; /* interested parties */
  1313. /* If they want it, we don't */
  1315. cp = get_filename(loadfile, lcp, NO);
  1316. strcpy(argv0, loadfile); /* the original command name */
  1317. strlwr(loadfile);
  1319. if((loadfile[strlen(loadfile)-1] == '\') ||
  1320.    ((strlen(loadfile) == 2) && (loadfile[1] == ':'))) {
  1321.     if(!dos_parse_filename(loadfile) && d_check(loadfile)) {
  1322. if (ddrive != -1)
  1323. {
  1324.     ms_drv_set(ddrive); /* then check the requested */
  1325.     drive = ddrive; /* drive and make it the    */
  1326.     crlfflg = NO; /* default if OK.     */
  1327. }
  1328.     }
  1329.     else {
  1330. eprintf(ERR15);
  1331. crlf();
  1332.     }
  1333.     return;
  1334. }
  1336. if (strcmp(loadfile,"________") == 0) {
  1337. ms_x_first("________.???",ATTR_HID+ATTR_STD,(DTA *) heap());
  1338. strcpy(loadfile,"C:\________.COM");
  1339. }
  1340. else if((i = findfile(loadfile, &loadtype)) < 0) {
  1341.     if(i == ED_FILE || /* Determine the full */
  1342.        i == ED_ROOM ||  /* path and type of the */
  1343.        i == ED_PATH) { /* command and return if*/
  1344.     eprintf(MSG_BADCMD); /* file or command cannot be located */
  1345.     }
  1346.     else {
  1347. e_check(i);
  1348.     }
  1349.     return;
  1350. }
  1353. if(!env_scan(msg_comspec, heap())) /* If COMSPEC is defined   */
  1354.     set_reload_file(); /* then update RELOAD_FILE */
  1356. doexec(argv0, loadfile, loadtype, cp); /* Load the file */
  1357. allow_pexec = TRUE;
  1358. }
  1361. /*
  1362.  * FindFile searches the file system copying the actions of the 
  1363.  * Concurrent DOS P_PATH function. If this is TMP for Concurrent 
  1364.  * DOS then use the system call otherwise use the C function.
  1365.  *
  1366.  * If no extension is specified then check the file types in
  1367.  * the following order .CMD, .COM, .EXE, .BAT
  1368.  *
  1369.  * If a Path is specified then just check that location otherwise
  1370.  * check the current directory and then all entries in the path.
  1371.  */
  1372. #if !defined(CDOSTMP)
  1373. GLOBAL WORD CDECL findfile(loadpath, loadtype)
  1374. BYTE *loadpath; /* Command Name expanded to full path */
  1375. UWORD *loadtype; /* Command file Type */
  1376. {
  1377. REG BYTE *s;
  1378. BYTE sppath[MAX_PATHLEN]; /* Buffer for the optional  */
  1379. /* load path.     */
  1380. BYTE fname[8+1+3+1+8+1]; /* Buffer for the filename */
  1381. /* optional extension and   */
  1382. /* password     */
  1383. BYTE *path; /* Environment Load path    */
  1384. BYTE *ftype;  /* Optional file type     */
  1385. BYTE *pwd; /* Optional Password     */
  1386. BYTE *envpath; /* current PATH= in env     */
  1387. WORD i, ret;
  1388. #if !STACK
  1389. BYTE pathbuf[MAX_ENVLEN]; /* temporary path buffer    */
  1390. #endif
  1392. strip_path(loadpath, sppath); /* isolate the optional path*/
  1393. ftype = loadpath+strlen(sppath); /* get the Filename Address */
  1395. if(strlen(ftype) < sizeof(fname)) /* If the filename is not   */
  1396.     strcpy(fname, ftype); /* too long then copy to an */
  1397. else /* internal buffer otherwise*/
  1398.     longjmp(break_env, IA_FILENAME); /* break with FILENAME error*/
  1400. if((ftype = strchr(fname, '.')) != 0) { /* then extract the optional*/
  1401.     *ftype++ = ''; /* file type from the name  */
  1402.     pwd = ftype;
  1403. }
  1404. else { /* If no type has been     */
  1405.     ftype = NULLPTR; /* specified then make it   */
  1406.     pwd = fname; /* file type a NULL pointer */
  1407. }
  1409. if ((ret = ms_x_open (fname, 0)) > 0) { /* don't exec a device in   */
  1410.     i = isdev (ret); /* any shape or form     */
  1411.     ms_x_close (ret);
  1412.     if (i)
  1413. return (ED_FILE);
  1414. }
  1416. #if defined(PASSWORD)
  1417. if((pwd = strchr(pwd, *pwdchar)) != 0)  /* Finally extract the      */
  1418.     *pwd++ = ''; /* optional password if none*/
  1419. else /* exists then default to a */
  1420.     pwd = NULLPTR; /* NULL pointer.     */
  1421. #endif
  1423. if(ftype) { /* If a file type has been  */
  1424.     for(i=0; ftypes[i]; i++) /* specified then check that*/
  1425. if(!strcmp(ftype, ftypes[i])) /* is legal and return an   */
  1426.     break; /* error if not.     */
  1428.     if(!ftypes[i]) /* If an illegal filetype   */
  1429. return ED_FILE;  /* has been given then     */
  1430. } /* return FAILURE     */
  1432. *loadtype = i; /* Save the Load File Type  */
  1434. /*
  1435.  * Check if a path is currently defined if YES then get
  1436.  * a copy of the path and save locally on the heap. Protecting
  1437.  * it against being overwritten.
  1438.  */
  1440. if(!env_scan(msg_patheq, heap())) {
  1441.     envpath = heap();
  1442.     while (*envpath) { /* process path in env  */
  1443. if(dbcs_lead(*envpath)) /* so delimiters are the */
  1444.     envpath++; /* pathchar we expect  */
  1445. else
  1446.     if((*envpath == '/') || (*envpath == '\'))
  1447. *envpath = *pathchar;
  1448. envpath++;
  1449.     }
  1450. #if STACK
  1451.     envpath = stack(strlen(heap()) + 1);
  1452. #else
  1453.     envpath = &pathbuf[0];
  1454. #endif
  1455.     strcpy(envpath, heap());
  1456. }
  1457. else
  1458.     envpath = "";
  1460. /*
  1461.  * First attempt to load the file from the default/specified
  1462.  * path and then if no path was specified attempt to load the
  1463.  * file from all the entries in the search path defined in the
  1464.  * environment.
  1465.  */
  1467. if(*sppath)
  1468.     path = sppath;
  1469. else
  1470.     path = "";
  1472. do {
  1473.     i = checkfile(loadpath, loadtype, path, fname, ftype, pwd);
  1475.     switch (i)
  1476.     {
  1477.       case SUCCESS:
  1478. strupr(loadpath);
  1479. return SUCCESS;
  1480.       case ED_FAIL:
  1481.       case ED_DRIVE: /* if bad drive in search  */
  1482. if ((!*sppath) && (*path)) /* path, print msg & carry on*/
  1483. {
  1484.     eprintf(MSG_PATHDRV);
  1485.     i = ED_FILE;
  1486.     break;
  1487. }
  1488.       default:
  1489. break; /* get next search path    */
  1490.     }
  1492.     path = envpath; /* Set PATH to the next     */
  1493.     if((s=strchr(envpath, ';')) != 0) { /* element in the search path*/
  1494. while (*s == ';') { /* Skip over extra semicolons*/
  1495.     *s = 0;
  1496.     s++;
  1497. }
  1498. envpath = s;
  1499.     }
  1500.     else
  1501. envpath = ""; /* path exhausted, -> null */
  1503.     /* If you type FILENAME.EXE, it will search the current drive then */
  1504.     /* the path. If you type C:DIRFILENAME.EXE, it will search */
  1505.     /* C:DIR. Now, if you type C:FILENAME.EXE, it will search the */
  1506.     /* current directory on C:, then path. This is done by resetting */
  1507.     /* sppath after the first run through, if it is just D: */
  1508.     if((strlen(sppath) == 2) && (sppath[1] == ':'))
  1509. sppath[0] = '';
  1511. } while(!*sppath && *path);
  1513. return i;
  1514. }
  1516. /*
  1517.  * CHECKFILE generates the full path of the load file and
  1518.  * attempts to open the file. If the file is located and
  1519.  * can successfully be opened return SUCCESS with the full
  1520.  * path in LOADPATH and the LOADTYPE initialised.
  1521.  *
  1522.  * If no file extension has been specified then use the standard
  1523.  * search order.
  1524.  *
  1525.  * ATTR_SEARCH specifies the attributes used to locate the file
  1526.  * to be loaded.
  1527.  */
  1529. #define ATTR_SEARCH ATTR_STD + ATTR_HID
  1531. MLOCAL WORD checkfile(loadpath, loadtype, path, fname, ftype, pwd)
  1532. BYTE *loadpath;
  1533. UWORD *loadtype;
  1534. BYTE *path, *fname, *ftype, *pwd;
  1535. {
  1536. UWORD type;
  1537. WORD ret;
  1538. DTA search;
  1539. BYTE curpath[MAX_PATHLEN+1];
  1541. if((path = d_check(path)) == NULL) /* Remove the drive specifier*/
  1542.     return ED_DRIVE; /* and return on Error.      */
  1543. /* get path starting from root. n.b. don't use ms_x_expand (func 60h)   */
  1544. /* as it upsets Novell      */
  1546. if (ddrive != -1)
  1547. {
  1548.     sprintf(loadpath, "%c:%c", ddrive + 'A', *pathchar);
  1549.     if((*path == '\') || (*path == '/'))  /* If path is absolute then */
  1550. strcpy(loadpath+2, path);    /* just append to drive     */
  1551.     else {    /* Otherwise append the     */
  1552. ms_x_curdir(ddrive+1, loadpath+3); /* path to the drive and    */
  1553. if(*fptr(loadpath))    /* current subdirectory.    */
  1554.     append_slash(loadpath);
  1555. strcat(loadpath, path);
  1556.     }
  1557. }
  1558. else
  1559.     ms_x_expand(loadpath,path);
  1562. if(*fptr(loadpath))
  1563.     append_slash(loadpath);
  1565. strcat(loadpath, fname); /* Add the FileName      */
  1566. strcat(loadpath, ".");
  1567. path = loadpath + strlen(loadpath); /* Save the Extension Offset */
  1569. #if defined(PCDOS)
  1570. /*
  1571.  * If running under PCDOS the check if any extension has been specified
  1572.  * if not then search first for filename.* and return if no match occurs
  1573.  * This will be quicker than opening each file in turn.
  1574.  */
  1575. if(!ftype) {
  1576.     strcat(path, "*");
  1577.     if((ret = ms_x_first(loadpath, ATTR_SEARCH, &search)) < 0) {
  1578. if( ret == ED_FILE ||     /* Abort if an error occurs     */
  1579.     ret == ED_ROOM ||     /* but ignore File not Found    */
  1580.     ret == ED_PATH)     /* and invalid path errors     */
  1581.     return ED_FILE;
  1582. else
  1583.     return e_check(ret);
  1584.     }
  1585. }
  1586. #endif
  1588. if (ftype == 0)
  1589.     type = COM_FILETYPE; /* Initialize the Type Index */
  1590. else /* correctly depending on the */
  1591.     type = *loadtype; /* initial file type. */
  1593. do {
  1594.     strcpy(path, ftypes[type]); /* Add the first file type  */
  1596. #if defined(PASSWORD)
  1597.     if(pwd) { /* followed by the optional */
  1598. strcat(path, pwdchar); /* password and attempt to  */
  1599. strcat(path, pwd); /* open the file.     */
  1600.     }
  1601. #endif
  1603.     if((ret = ms_x_first(loadpath, ATTR_SEARCH, &search)) < 0) {
  1604. if(ret == ED_PATH) /* Stop scanning this    */
  1605.     return ED_FILE; /* element of the path if  */
  1606. /* it is invalid.    */
  1607. #if 0
  1608. if(ret != ED_FILE && ret != ED_ROOM)
  1609.     return ret;
  1610. #endif
  1611.     }
  1612.     else {
  1613. *loadtype = type; /* Set the correct loadtype */
  1614. return SUCCESS; /* and return SUCCESS     */
  1615.     }
  1616.     if (++type > BAT_FILETYPE)
  1617. #if defined(DOSPLUS) || defined(NETWARE)
  1618. type = COM_FILETYPE;
  1619. #else
  1620. type = CMD_FILETYPE;
  1621. #endif
  1622. } while(!ftype && (type != COM_FILETYPE));
  1623. return ED_FILE;
  1624. }
  1625. #endif
  1627. MLOCAL BOOLEAN doexec(argv0, loadpath, loadtype, tail)
  1628. BYTE *argv0; /* Invoking Command */
  1629. BYTE *loadpath; /* Fully expanded filename */
  1630. UWORD loadtype; /* File Type .BAT, .EXE etc. */
  1631. BYTE *tail; /* Command line options */
  1632. {
  1633. WORD ret;
  1634. WORD i;
  1635. BYTE *s;
  1636. #if !STACK
  1637. BYTE tailbuf[128];
  1638. #endif
  1640. #if 0
  1641. printf("DOEXEC Load File "%s" Command Line "%s"n",
  1642. loadpath, (tail ? tail : ""));
  1643. #endif
  1646. if(loadtype == BAT_FILETYPE) {     /* if Batch file then:-      */
  1647.     
  1648.     if (batchflg == 0) echoflg_save2 = echoflg;
  1649.     
  1650.     ret = echoflg;     /* Save the Current ECHO State   */
  1651.     batch_end();     /* Close any Existing Batch file */
  1652.     echoflg = ret;     /* restore the ECHO status      */
  1653.     batch_start(argv0, loadpath, tail); /* and initialize the new batch  */
  1654.     return YES;      /* use "CALL" to nest batches.   */
  1655. }
  1656. /* if CMD, COM or EXE      */
  1657. if(batchflg) /* close the BATCH file if OPEN cos  */
  1658.     batch_close(); /* some programs update the running  */
  1659. /* batch file.      */
  1661. s = deblank(tail); /* No SPACE before options   */
  1662. if(!*s) /* if this is a blank line   */
  1663.     tail = s;
  1665. #if defined(CDOSTMP)
  1666. ret = exec(loadpath, loadtype, tail, back_flag);
  1667. #else
  1668. ms_set_break(break_flag);
  1669. #if STACK
  1670. s = stack(strlen(tail)+2)+1;
  1671. #else
  1672. s = &tailbuf[1];
  1673. #endif
  1674. tail = strcpy(s, tail) - 1;
  1675. *tail = (UBYTE) strlen(tail+1);
  1676. strcat(tail+1, "r");
  1677. #if !defined(FINAL)
  1678. save_psp();
  1679. #endif
  1680. ret = exec(loadpath, loadtype, tail, back_flag);
  1681. #if !defined(FINAL)
  1682. check_psp();
  1683. #endif
  1684. init_switchar(); /* switch character may have changed */
  1685. break_flag = ms_set_break(YES);
  1686. #endif
  1688. /*
  1689.  * Novell use the MS_DRV_GET function to detect abnormal
  1690.  * program termination. They assume this function is only
  1691.  * called by the command processor when a child has terminated.
  1692.  * They close all Remote Handles when the parent command
  1693.  * processor calls this function.
  1694.  */
  1695. drive = ms_drv_get();   /* get default drive.      */
  1697. for (i=5;i<20;i++) ms_x_close(i); /* Close all handles */
  1699. if(ret < 0) { /* Get the returned Error Code */
  1700. #if defined(CDOS) || defined(CDOSTMP)
  1701.     if(ret == ED_ENVIRON) /* Check for an Environment */
  1702. ret = (-255); /* error this is really  */
  1703. #endif /* a resource unavailable. */
  1705. /* Print a message if the exec */
  1706.     e_check(ret); /* went wrong otherwise get the */
  1707. /* completion status and return */
  1708.     return FAILURE;
  1709. }
  1711. err_ret = ms_x_wait();
  1712. return YES;
  1713. }
  1715. #if !defined(CDOSTMP)
  1716. VOID FAR CDECL int2e_handler (cmd)
  1717. BYTE *cmd;
  1718. {
  1719. BYTE *p;
  1720. jmp_buf save_jmpbuf;
  1722. /* save the normal setjmp environment and reset it to ourselves */
  1723. /* so that the int2e caller does not get aborted on criterr or */
  1724. /* Control break */
  1726.     memmove (&save_jmpbuf, &break_env, sizeof (jmp_buf));
  1728.     if (setjmp (break_env) == 0) {
  1730. if ((p = strchr (cmd, 0xd)) != NULL)
  1731.     *p = ''; 
  1733. int2e_start();
  1735. docmd (deblank (cmd), TRUE);
  1737. /* if int2e is executing a batch file, do not return until all */
  1738. /* batch file commands have been processed. Loop round as in main */
  1739. /* loop */
  1741. while (batchflg > 0)
  1742. {
  1743.     cmd_loop (cmd);
  1744. }
  1746. int2e_finish();
  1747.     }
  1748.     memmove (&break_env, &save_jmpbuf, sizeof (jmp_buf));
  1749. }
  1752. MLOCAL VOID init_switchar()
  1753. {
  1754. *switchar = ms_switchar(); /* get switch character      */
  1755. if (*switchar == '/') /* if not UNIX path char     */
  1756.     *pathchar = '\'; /*   then be compatible      */
  1757. else
  1758.     *pathchar = '/';
  1759. }
  1761. #endif
  1763. #if defined(DOSPLUS)
  1765. GLOBAL VOID process_config_env()
  1766. {
  1767. BYTE FAR *config_env;
  1768. WORD i;
  1769. BYTE buff[128];
  1770. BYTE *s;
  1772. config_env = get_config_env();
  1773. if (config_env) {
  1774. FOREVER {
  1775. i = 0;
  1776. while ((*config_env) && (*config_env!=0x1A) && 
  1777.        (i < 127)) {
  1779. buff[i++] = *config_env++;
  1780. }
  1781. if (i == 0) {
  1782.    while (*config_env != 0x1A) config_env++;
  1783.    config_env++;
  1784.    boot_key_scan_code = * ((UWORD far *) config_env);
  1785.    break;
  1786. }
  1787. buff[i] = 0;
  1788. cmd_set(buff);    
  1789.      while (*config_env) config_env++;
  1790. config_env++;
  1791. }
  1792. #if 0
  1793. s = heap();
  1794. if (!env_scan("HOMEDIR=",s)) {
  1795. if (s[1] == ':') ms_drv_set(toupper(*s)-'A');
  1796. ms_x_chdir(s);
  1797. }
  1798. #endif
  1799. }
  1800. }
  1801. #endif
  1803. #if !defined(FINAL)
  1804. void save_psp()
  1805. {
  1806. BYTE far *fp;
  1807. WORD i;
  1809. fp = MK_FP(_psp,0);
  1811. psp_xsum = 0;
  1812. for  (i=64;i<128;i++) psp_xsum += fp[i];
  1813. }
  1815. void check_psp()
  1816. {
  1817. BYTE far *fp;
  1818. WORD xsum;
  1819. WORD i;
  1821. fp = MK_FP(_psp,0);
  1823. xsum = 0;
  1824. for (i=64;i<128;i++) xsum += fp[i];
  1826. if (xsum != psp_xsum) {
  1827.     printf("BETA DEBUG ERROR: Need more stack!n");
  1828.     printf("Press a key to continue.n");
  1829.     getch();
  1830. }
  1831. }
  1832. #endif