mirror of
				https://github.com/ruby/ruby.git
				synced 2022-11-09 12:17:21 -05:00 
			
		
		
		
	scripts with stub. * ruby.c (load_file_internal): assume xflag for exe file as well as no-shebang file. * tool/rbinstall.rb: install script programs. * win32/mkexports.rb (Exports#initialize): alias ruby_sysinit for stub. * win32/stub.c: stub for scripts. [EXPERIMENTAL] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@29738 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
		
			
				
	
	
		
			42 lines
		
	
	
	
		
			982 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			42 lines
		
	
	
	
		
			982 B
		
	
	
	
		
			C
		
	
	
	
	
	
#include <ruby.h>
 | 
						|
static void stub_sysinit(int *argc, char ***argv);
 | 
						|
#define ruby_sysinit stub_sysinit
 | 
						|
#include <main.c>
 | 
						|
#undef ruby_sysinit
 | 
						|
 | 
						|
void
 | 
						|
stub_sysinit(int *argc, char ***argv)
 | 
						|
{
 | 
						|
    char exename[4096];
 | 
						|
    size_t lenexe, len0, lenall;
 | 
						|
    int i, ac;
 | 
						|
    char **av, *p;
 | 
						|
 | 
						|
    lenexe = (size_t)GetModuleFileName(NULL, exename, sizeof exename);
 | 
						|
    ruby_sysinit(argc, argv);
 | 
						|
    ac = *argc;
 | 
						|
    av = *argv;
 | 
						|
    len0 = strlen(av[0]) + 1;
 | 
						|
    lenall = 0;
 | 
						|
    for (i = 1; i < ac; ++i) {
 | 
						|
	lenall += strlen(av[i]) + 1;
 | 
						|
    }
 | 
						|
    *argv = av = realloc(av, lenall + (lenexe + 1) * 2 + sizeof(char *) * (i + 2));
 | 
						|
    *argc = ++ac;
 | 
						|
    p = (char *)(av + i + 2);
 | 
						|
    memmove(p + (lenexe + 1) * 2, (char *)(av + ac) + len0, lenall);
 | 
						|
    memcpy(p, exename, lenexe);
 | 
						|
    p[lenexe] = '\0';
 | 
						|
    *av++ = p;
 | 
						|
    p += lenexe + 1;
 | 
						|
    memcpy(p, exename, lenexe);
 | 
						|
    p[lenexe] = '\0';
 | 
						|
    *av++ = p;
 | 
						|
    p += lenexe + 1;
 | 
						|
    while (--i) {
 | 
						|
	*av++ = p;
 | 
						|
	p += strlen(p) + 1;
 | 
						|
    }
 | 
						|
    *av = NULL;
 | 
						|
}
 | 
						|
 |