home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / unix_c / utils / bexec.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-03-21  |  4.1 KB  |  144 lines
  1. 10-Dec-85 13:09:35-MST,4267;000000000001
  2. Return-Path: <unix-sources-request@BRL.ARPA>
  3. Received: from BRL-TGR.ARPA by SIMTEL20.ARPA with TCP; Tue 10 Dec 85 13:09:24-MST
  4. Received: from usenet by TGR.BRL.ARPA id a003897; 10 Dec 85 14:04 EST
  5. From: Brandon Allbery <allbery@ncoast.uucp>
  6. Newsgroups: net.unix-wizards,net.sources
  7. Subject: csh vs. # comments in bourne shell scripts
  8. Message-ID: <918@ncoast.UUCP>
  9. Date: 10 Dec 85 03:08:18 GMT
  10. Followup-To: net.unix-wizards
  11. Xref: seismo net.unix-wizards:16109 net.sources:4009
  12. To:       unix-sources@BRL-TGR.ARPA
  13.  
  14. Expires:
  15.  
  16. Quoted from <392@brl-tgr.ARPA> ["Re: Magic Numbers"], by gwyn@brl-tgr.ARPA (Doug Gwyn <gwyn>)...
  17. +---------------
  18. | > Csh on non-4.2 systems checks for a # as
  19. | > the first character of the file, and forks itself if it sees it; if not, it
  20. | > forks a /bin/sh.
  21. | 
  22. | Yes, some of them do, but if they do that's a bug.
  23. | Virtually all of my Bourne shell scripts (including
  24. | SVR2 system utility scripts) start with "#".
  25. +---------------
  26.  
  27. All of them do.  When csh was written bsh still only spoke :.
  28.  
  29. There *is* a simple (albeit slow) solution.  Write a program to intuit the
  30. program to invoke on the file, with the file's full pathname passed as argv[1]
  31. and its arguments as argv[2] .. argv[argc - 1].  Then say:
  32.  
  33.     alias shell $HOME/bin/bexec
  34.  
  35. or whatever you decide to call it.  IT MUST BE A BINARY FILE AND IT MUST BE A
  36. FULL PATHNAME.  If csh can't exec() a program it will prepend the value of the
  37. ``shell'' alias to it, if any, and try again; if there isn't a shell alias it
  38. uses its own heuristics.
  39.  
  40. The program below uses this (mis-?)feature of bastard (orphaned?) csh'es to
  41. handle #! magic numbers, sans set[ug]id and other fun stuff.  Other than
  42. that it uses the same test as csh itself.  But you can do whatever you like,
  43. say to use * to cause your local Kermit-running MS-DOS machine to receive and
  44. execute the file as an MS-DOS batch file. [ :-) ]  Let me know if you come
  45. up with any interesting new twists.
  46.  
  47. --Brandon
  48. ----------------------------- cut here ---------------------------------------
  49. #include <stdio.h>
  50. #include <fcntl.h>
  51.  
  52. /*
  53.  * bexec: execute a non-binary file for csh, with #! recognition
  54.  * (usage: alias shell /usr/local/bin/bexec)
  55.  */
  56.  
  57. extern int errno;
  58. extern char *sys_errlist[];
  59.  
  60. #define SH        "/bin/sh"
  61. #define CSH        "/usr/plx/csh"
  62.  
  63. #define NARG        512    /* this is the number csh uses */
  64.  
  65. char *sysargv[NARG + 1];
  66. char **newargv();
  67. char *basename();
  68. extern char *strrchr();
  69.  
  70. main(argc, argv, envp)
  71. char **argv, **envp; {
  72.     FILE *cmd;
  73.     char kcmd[512];
  74.     char *cp, *ap;
  75.     
  76.     if ((cmd = fopen(argv[1], "r")) == NULL) {
  77.         fprintf(stderr, "bexec: can't open %s: %s\n", argv[1], sys_errlist[errno]);
  78.         exit(1);
  79.     }
  80.     fgets(kcmd, sizeof kcmd, cmd);
  81.     kcmd[strlen(kcmd) - 1] = '\0';    /* kill trailing \n */
  82.     if (strncmp(kcmd, "#!", 2) != 0) {
  83.         if (kcmd[0] == '#') {
  84.             argv[0] = "csh";
  85.             cp = CSH;
  86.         }
  87.         else {
  88.             argv[0] = "sh";
  89.             cp = SH;
  90.         }
  91.         execve(cp, argv, envp);
  92.         fprintf(stderr, "bexec: can't exec %s: %s\n", cp, sys_errlist[errno]);
  93.         exit(100);
  94.     }
  95.     for (cp = kcmd + 2; *cp == ' '; cp++)
  96.         ;
  97.     for (ap = cp; *ap != ' ' && *ap != '\0'; ap++)
  98.         ;
  99.     if (*ap == ' ')
  100.         *ap++ = '\0';
  101.     argv = newargv(basename(argv[1]), ap, argv);
  102.     fclose(stdin);
  103.     fcntl(fileno(cmd), F_DUPFD, 0);
  104.     lseek(0, ftell(cmd), 0);
  105.     fclose(cmd);
  106.     execve(cp, argv, envp);
  107.     fprintf(stderr, "bexec: can't exec %s: %s\n", cp, sys_errlist[errno]);
  108.     exit(100);
  109. }
  110.  
  111. char **newargv(newar0, newar1, oldargv)
  112. char *newar0, *newar1, **oldargv; {
  113.     int ap, op;
  114.     
  115.     sysargv[0] = newar0;
  116.     ap = 1;
  117.     if (newar1[0] != '\0') {
  118.         sysargv[1] = newar1;
  119.         ap++;
  120.     }
  121.     for (op = 2; ap < NARG && oldargv[op] != NULL; ap++, op++)
  122.         sysargv[ap] = oldargv[op];
  123.     sysargv[ap] = NULL;
  124.     return sysargv;
  125. }
  126.  
  127. char *basename(path)
  128. char *path; {
  129.     char *cp;
  130.  
  131.     if ((cp = strrchr(path, '/')) == NULL)
  132.         return path;
  133.     return cp + 1;
  134. }
  135.  
  136. -- 
  137.  
  138.             Lord Charteris (thurb)
  139.  
  140. ncoast!allbery@Case.CSNet (ncoast!allbery%Case.CSNet@CSNet-Relay.ARPA)
  141. ..decvax!cwruecmp!ncoast!allbery (..ncoast!tdi2!root for business)
  142. 6615 Center St., Mentor, OH 44060 (I moved) --Phone: +01 216 974 9210
  143. CIS 74106,1032 -- MCI MAIL BALLBERY (WARNING: I am only a part-time denizen...)
  144.