home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / thinkc30.sit / unixexec.c < prev    next >
Encoding:
Text File  |  1989-01-15  |  910 b   |  56 lines  |  [TEXT/KAHL]
  1. /*    (C) Copyright 1986. THINK Technologies, Inc.  All rights reserved. */    
  2.  
  3. /* This module implements abbreviated versions of execl, execv, execle,
  4.     and execve. It seems that the args should do something, however
  5.     nothing is done with them here.  These are implemented purely as a
  6.     starting point for those applications which need to do transfers to
  7.     other applications. */
  8.  
  9. char *CtoPstr();
  10.  
  11.  
  12. static void
  13. _exec(path)
  14. char *path;
  15. {
  16.     _exiting(1);
  17.     Launch(0, CtoPstr(path));
  18. }
  19.  
  20.  
  21. #line 0 execl
  22.  
  23. execl(path, arg)
  24. char *path, *arg;
  25. {    /* designed for launching application with arg0, arg1, ..., argn */
  26.  
  27.     _exec(path);
  28. }
  29.  
  30. #line 0 execv
  31.  
  32. execv(path, argv)
  33. char *path, *argv[];
  34. {
  35.     _exec(path);
  36. }
  37.  
  38. #line 0 execle
  39.  
  40. execle(path, arg)
  41. char *path, *arg;
  42. {
  43.     /* launch application with arg0, arg1, ..., argn, 0, env */
  44.  
  45.     _exec(path);
  46. }
  47.  
  48. #line 0 execve
  49.  
  50. execve(path, argv, envp)
  51. char *path, *argv[], *envp[];
  52. {
  53.     _exec(path);
  54. }
  55.  
  56.