[ginge.git] / prep / main.c

/*
 * GINGE - GINGE Is Not Gp2x Emulator
 * (C) notaz, 2010-2011
 *
 * This work is licensed under the MAME license, see COPYING file for details.
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <unistd.h>
#include <elf.h>
#include <sys/stat.h>
#include <ctype.h>

#include "../common/host_fb.h"
#include "../common/cmn.h"

#define PFX "ging_prep: "
#define LOADER_STATIC   "ginge_sloader"
#define LOADER_DYNAMIC  "ginge_dyn.sh"
#define LAUNCHER        "gp2xmenu"

#ifdef PND
#define WRAP_APP        "op_runfbapp "
#else
#define WRAP_APP        ""
#endif

#include "font.c"

static void *fb_mem;
static int fb_stride;
static int fb_x, fb_y;
static int init_done;

static char *sskip(char *p)
{
  while (p && *p && isspace(*p))
    p++;
  return p;
}

static char *cskip(char *p)
{
  while (p && *p && !isspace(*p))
    p++;
  return p;
}

static void fb_text_exit(void)
{
  if (!init_done)
    return;

  host_video_finish();
  init_done = 0;
}

static void fb_text_init(void)
{
  int ret = host_video_init(&fb_stride, 1);
  if (ret == 0)
    fb_mem = host_video_flip();
  fb_x = 4;
  fb_y = 4;
  init_done = 1;
  atexit(fb_text_exit);
}

static void fb_syms_out(void *fbi, int x, int y, int dotsz, int stride, const char *text, int count)
{
  int v = -1, n = 0, *p;
  int i, l;
  char *fb;

  fb = (char *)fbi + x * dotsz + y * stride;

  for (i = 0; i < count; i++)
  {
    for (l = 0; l < 8; l++)
    {
      #define pix(fdmask,add) \
        p = (fontdata8x8[((text[i])*8)+l] & fdmask) ? &v : &n; \
        memcpy(fb + l*stride + add*dotsz, p, dotsz)
      pix(0x80,  0);
      pix(0x40,  1);
      pix(0x20,  2);
      pix(0x10,  3);
      pix(0x08,  4);
      pix(0x04,  5);
      pix(0x02,  6);
      pix(0x01,  7);
      #undef pix
    }
    fb += dotsz * 8;
  }
}

// FIXME: y overrun
static void fb_text_out(char *text)
{
  int dotsz = 2, w = 320; // hardcoded for now
  char *p, *pe;
  int l;

  if (!init_done)
    fb_text_init();

  if (fb_mem == NULL)
    return;

  p = text;
  while (*p) {
    for (; *p && isspace(*p); p++) {
      if (*p == '\n' || fb_x + dotsz * 8 > w) {
        fb_x = 4;
        fb_y += 8;
      }
      if (*p >= 0x20)
        fb_x += 8;
    }

    pe = cskip(p);
    l = pe - p;
    if (fb_x + 8 * l > w) {
      fb_x = 4;
      fb_y += 8;
    }
    fb_syms_out(fb_mem, fb_x, fb_y, dotsz, fb_stride, p, l);
    fb_x += 8 * l;
    p = pe;
  }
}

static void fbprintf(int is_err, const char *format, ...)
{
  va_list ap;
  char buff[512];

  va_start(ap, format);
  vsnprintf(buff, sizeof(buff), format, ap);
  va_end(ap);
  fputs(buff, is_err ? stderr : stdout);

  fb_text_out(buff);
}

#define msg(fmt, ...) fbprintf(0, fmt, ##__VA_ARGS__)
#define err(fmt, ...) fbprintf(1, fmt, ##__VA_ARGS__)

static int id_elf(const char *fname)
{
  Elf32_Ehdr hdr;
  Elf32_Phdr *phdr = NULL;
  FILE *fi;
  int i, ret = 0;

  fi = fopen(fname, "rb");
  if (fi == NULL) {
    err("open %s: ", fname);
    perror("");
    return -1;
  }

  if (fread(&hdr, 1, sizeof(hdr), fi) != sizeof(hdr))
    goto out;

  if (memcmp(hdr.e_ident, ELFMAG "\x01\x01", SELFMAG + 2) != 0)
    goto out;

  if (hdr.e_phentsize != sizeof(Elf32_Phdr) || hdr.e_phnum == 0)
    goto out;

  phdr = malloc(hdr.e_phnum * hdr.e_phentsize);
  if (phdr == NULL)
    goto out;

  if (fread(phdr, hdr.e_phentsize, hdr.e_phnum, fi) != hdr.e_phnum)
    goto out;

  ret = 1;

  // do what 'file' does - check for PT_INTERP in program headers
  for (i = 0; i < hdr.e_phnum; i++) {
    if (phdr[i].p_type == PT_INTERP) {
      ret = 2;
      break;
    }
  }

out:
  fclose(fi);
  free(phdr);
  return ret;
}

static void dump_args(FILE *fout, char * const argv[])
{
  const char *p;
  int i;

  for (i = 0; argv[i] != NULL; i++) {
    if (i != 0)
      fputc(' ', fout);
    fputc('"', fout);

    for (p = argv[i]; *p != 0; p++) {
      if (*p == '"')
        fputc('\\', fout);
      fputc(*p, fout);
    }

    fputc('"', fout);
  }
}

static char *get_arg(char *d, size_t size, char *p)
{
  char *pe;
  int len;

  p = sskip(p);
  pe = cskip(p);
  len = pe - p;

  if (len > size - 1) {
    err(PFX "get_arg: buff to small: %d/%d\n", len, size);
    len = size - 1;
  }
  strncpy(d, p, len);
  d[len] = 0;

  return sskip(pe);
}

#define ARRAY_SIZE(x) (sizeof(x) / sizeof(x[0]))

#define CB_ENTRY(x) { x, sizeof(x) - 1 }
const struct {
  const char *name;
  int len;
} conv_blacklist[] = {
  CB_ENTRY("insmod"),
  CB_ENTRY("modprobe"),
  CB_ENTRY("umount"),
  CB_ENTRY("./cpuctrl_tiny"),
};

static int cmd_in_blacklist(char *cmd)
{
  int i;

  cmd = sskip(cmd);
  for (i = 0; i < ARRAY_SIZE(conv_blacklist); i++)
    if (strncmp(cmd, conv_blacklist[i].name, conv_blacklist[i].len) == 0)
      return 1;

  return 0;
}

int main(int argc, char *argv[])
{
  static const char out_script[] = "/tmp/ginge_conv.sh";
  char root_path[512], cwd[512];
  char **argv_app = NULL;
  int have_cramfs = 0;
  int rerun_gp2xmenu = 1;
  int quit_if_no_app = 0;
  FILE *fin, *fout;
  int i, ret;

  for (i = 1; i < argc && argv[i][0] == '-' && argv[i][1] == '-'; i++) {
    if (strcmp(argv[i], "--cleanup") == 0) {
      // as loader may crash eny time, restore screen for the menu
      host_video_init(NULL, 1);
      host_video_finish();
      quit_if_no_app = 1;
      continue;
    }
    if (strcmp(argv[i], "--nomenu") == 0) {
      rerun_gp2xmenu = 0;
      continue;
    }
    if (strcmp(argv[i], "--") == 0) {
      i++;
      break;
    }

    fprintf(stderr, PFX "ignoring unknown option \"%s\"\n", argv[i]);
  }

  if (argc <= i) {
    if (quit_if_no_app)
      return 0;
    err("usage: %s [opts] <script|program> [args]\n", argv[0]);
    err("  --cleanup  - restore framebuffer state\n");
    err("  --nomenu   - don't run menu on exit\n");
    return 1;
  }
  argv_app = &argv[i];

  if (getcwd(cwd, sizeof(cwd)) == NULL) {
    err(PFX "failed to get cwd\n");
    return 1;
  }

  ret = make_local_path(root_path, sizeof(root_path), "");
  if (ret != 0) {
    err(PFX "failed to generate root path\n");
    return 1;
  }

  fout = fopen(out_script, "w");
  if (fout == NULL) {
    perror("can't open output script");
    return 1;
  }

  fprintf(fout, "#!/bin/sh\n");

  ret = id_elf(argv_app[0]);
  if (ret == 1 || ret == 2) {
    if (cmd_in_blacklist(argv_app[0])) {
      fprintf(stderr, "blacklisted: %s\n", argv_app[0]);
      goto no_in_script;
    }
  }

  switch (ret) {
  case 0:
    break;

  case 1:
    fprintf(fout, WRAP_APP "%s%s ", root_path, LOADER_STATIC);
    dump_args(fout, argv_app);
    fprintf(fout, "\n");
    goto no_in_script;

  case 2:
    fprintf(fout, WRAP_APP "%s%s \"%s\" ", root_path, LOADER_DYNAMIC, root_path);
    dump_args(fout, argv_app);
    fprintf(fout, "\n");
    goto no_in_script;

  default:
    return 1;
  }

  // assume script
  fin = fopen(argv_app[0], "r");
  if (fin == NULL)
    return 1;

  while (1) {
    char buff[512], fname[512], *p, *p2;

    p = fgets(buff, sizeof(buff), fin);
    if (p == NULL)
      break;
    p = sskip(p);

    if (p[0] == '#' && p[1] == '!')
      continue;

    if (*p == 0) {
      fputs("\n", fout);
      continue;
    }

    // things we are sure we want to pass
    if (*p == '#' || strncmp(p, "export ", 7) == 0)
      goto pass;

    // hmh..
    if (strncmp(p, "exec ", 5) == 0)
      p = sskip(p + 5);

    // blacklist some stuff
    if      (strncmp(p, "/sbin/", 6) == 0)
      p2 = p + 6;
    else if (strncmp(p, "/bin/", 5) == 0)
      p2 = p + 5;
    else
      p2 = p;
    if (strncmp(p2, "mount ", 6) == 0) {
      p2 = sskip(p2 + 6);
      // cramfs stuff?
      if (strstr(p2, "cramfs")) {
        while (*p2 == '-') {
          // skip option
          p2 = sskip(cskip(p2));
          p2 = sskip(cskip(p2));
        }
        if (*p2 == 0) {
          err(PFX "cramfs: missing mount file in \"%s\"?\n", p);
          continue;
        }
        p2 = get_arg(fname, sizeof(fname), p2);
        if (*p2 == 0) {
          err(PFX "cramfs: missing mount point in \"%s\"?\n", p);
          continue;
        }
        get_arg(buff, sizeof(buff), p2);
        fprintf(fout, "if [ `ls %s | wc -l` -eq 0 ]; then\n", buff);
        fprintf(fout, "  rmdir \"%s\"\n", buff); // cramfsck doesn't want it
        fprintf(fout, "  %stools/cramfsck -x \"%s\" \"%s\"\n", root_path, buff, fname);
        fprintf(fout, "fi\n");
        have_cramfs = 1;
      }
      continue;
    }
    if (cmd_in_blacklist(p2))
      continue;

    // cd?
    if (strncmp(p, "cd ", 3) == 0) {
      get_arg(fname, sizeof(fname), p + 3);
      if (strncmp(fname, "/usr/gp2x", 9) == 0)
        continue;
      ret = chdir(fname);
      if (ret != 0) {
        err("%s: ", fname);
        perror("");
      }
    }

    // trying to run something from cwd?
    if ((p[0] == '.' && p[1] == '/') || *p == '/') {
      get_arg(fname, sizeof(fname), p);
      p2 = strrchr(fname, '/');
      if (p2 != NULL && strcmp(p2 + 1, "gp2xmenu") == 0)
        continue;

      ret = id_elf(fname);
      switch (ret) {
      case 1:
        printf(PFX "prefixing as static: %s", p);
        fprintf(fout, WRAP_APP "%s%s ", root_path, LOADER_STATIC);
        break;

      case 2:
        printf(PFX "prefixing as dynamic: %s", p);
        fprintf(fout, WRAP_APP "%s%s \"%s\" ", root_path, LOADER_DYNAMIC, root_path);
        break;

      default:
        break;
      }
    }

pass:
    fputs(p, fout);
  }

  fclose(fin);

no_in_script:
#ifdef WIZ
  fprintf(fout, "sync\n");
  // since we don't know if loader manages to do proper cleanup,
  // need to wait for it's threads to die
  fprintf(fout, "sleep 1\n");
  fprintf(fout, "%sginge_prep --cleanup\n", root_path);
#endif
  if (rerun_gp2xmenu) {
    fprintf(fout, "cd %s\n", root_path);
    fprintf(fout, "exec %s%s\n", root_path, LAUNCHER);
  }

  fclose(fout);

  //msg("starting script..\n");
  if (have_cramfs) {
    msg("\nsome files need to be unpacked, this may tike a few minutes.\n");
#ifdef PND
    msg("Please wait at least while SD LED is active.\n");
#endif
  }
  system("echo ---; cat /tmp/ginge_conv.sh; echo ---");
  chmod(out_script, S_IRWXU|S_IRWXG|S_IRWXO);
  chdir(cwd);
  fb_text_exit();
  execlp(out_script, out_script, NULL);
  perror("run out_script");

  return 1;
}

// vim:shiftwidth=2:expandtab
Commit	Line	Data
499bf01c	1	/*
	2	* GINGE - GINGE Is Not Gp2x Emulator
	3	* (C) notaz, 2010-2011
	4	*
	5	* This work is licensed under the MAME license, see COPYING file for details.
	6	*/
3adc9ccb	7	#include <stdio.h>
	8	#include <stdlib.h>
	9	#include <string.h>
	10	#include <stdarg.h>
	11	#include <unistd.h>
	12	#include <elf.h>
	13	#include <sys/stat.h>
	14	#include <ctype.h>
	15
	16	#include "../common/host_fb.h"
	17	#include "../common/cmn.h"
	18
	19	#define PFX "ging_prep: "
	20	#define LOADER_STATIC "ginge_sloader"
	21	#define LOADER_DYNAMIC "ginge_dyn.sh"
	22	#define LAUNCHER "gp2xmenu"
	23
4d045184	24	#ifdef PND
	25	#define WRAP_APP "op_runfbapp "
	26	#else
	27	#define WRAP_APP ""
	28	#endif
	29
3adc9ccb	30	#include "font.c"
	31
	32	static void *fb_mem;
	33	static int fb_stride;
	34	static int fb_x, fb_y;
4d045184	35	static int init_done;
3adc9ccb	36
	37	static char sskip(char p)
	38	{
	39	while (p && p && isspace(p))
	40	p++;
	41	return p;
	42	}
	43
	44	static char cskip(char p)
	45	{
	46	while (p && p && !isspace(p))
	47	p++;
	48	return p;
	49	}
	50
adb79840	51	static void fb_text_exit(void)
	52	{
	53	if (!init_done)
	54	return;
	55
	56	host_video_finish();
	57	init_done = 0;
	58	}
	59
4d045184	60	static void fb_text_init(void)
	61	{
	62	int ret = host_video_init(&fb_stride, 1);
	63	if (ret == 0)
	64	fb_mem = host_video_flip();
	65	fb_x = 4;
	66	fb_y = 4;
	67	init_done = 1;
adb79840	68	atexit(fb_text_exit);
4d045184	69	}
4d045184	70
3adc9ccb	71	static void fb_syms_out(void fbi, int x, int y, int dotsz, int stride, const char text, int count)
	72	{
	73	int v = -1, n = 0, *p;
	74	int i, l;
	75	char *fb;
	76
	77	fb = (char )fbi + x dotsz + y * stride;
	78
	79	for (i = 0; i < count; i++)
	80	{
	81	for (l = 0; l < 8; l++)
	82	{
	83	#define pix(fdmask,add) \
	84	p = (fontdata8x8[((text[i])*8)+l] & fdmask) ? &v : &n; \
	85	memcpy(fb + lstride + adddotsz, p, dotsz)
	86	pix(0x80, 0);
	87	pix(0x40, 1);
	88	pix(0x20, 2);
	89	pix(0x10, 3);
	90	pix(0x08, 4);
	91	pix(0x04, 5);
	92	pix(0x02, 6);
	93	pix(0x01, 7);
	94	#undef pix
	95	}
	96	fb += dotsz * 8;
	97	}
	98	}
	99
	100	// FIXME: y overrun
	101	static void fb_text_out(char *text)
	102	{
	103	int dotsz = 2, w = 320; // hardcoded for now
	104	char p, pe;
	105	int l;
	106
4d045184	107	if (!init_done)
	108	fb_text_init();
	109
3adc9ccb	110	if (fb_mem == NULL)
	111	return;
	112
	113	p = text;
	114	while (*p) {
	115	for (; p && isspace(p); p++) {
	116	if (p == '\n' \|\| fb_x + dotsz 8 > w) {
	117	fb_x = 4;
	118	fb_y += 8;
	119	}
	120	if (*p >= 0x20)
	121	fb_x += 8;
	122	}
	123
	124	pe = cskip(p);
	125	l = pe - p;
	126	if (fb_x + 8 * l > w) {
	127	fb_x = 4;
	128	fb_y += 8;
	129	}
	130	fb_syms_out(fb_mem, fb_x, fb_y, dotsz, fb_stride, p, l);
	131	fb_x += 8 * l;
	132	p = pe;
	133	}
	134	}
	135
3adc9ccb	136	static void fbprintf(int is_err, const char *format, ...)
	137	{
	138	va_list ap;
	139	char buff[512];
	140
	141	va_start(ap, format);
	142	vsnprintf(buff, sizeof(buff), format, ap);
	143	va_end(ap);
	144	fputs(buff, is_err ? stderr : stdout);
	145
	146	fb_text_out(buff);
	147	}
	148
adb79840	149	#define msg(fmt, ...) fbprintf(0, fmt, ##__VA_ARGS__)
adb79840	150	#define err(fmt, ...) fbprintf(1, fmt, ##__VA_ARGS__)
3adc9ccb	151
	152	static int id_elf(const char *fname)
	153	{
	154	Elf32_Ehdr hdr;
	155	Elf32_Phdr *phdr = NULL;
	156	FILE *fi;
	157	int i, ret = 0;
	158
	159	fi = fopen(fname, "rb");
	160	if (fi == NULL) {
	161	err("open %s: ", fname);
	162	perror("");
	163	return -1;
	164	}
	165
	166	if (fread(&hdr, 1, sizeof(hdr), fi) != sizeof(hdr))
	167	goto out;
	168
	169	if (memcmp(hdr.e_ident, ELFMAG "\x01\x01", SELFMAG + 2) != 0)
	170	goto out;
	171
	172	if (hdr.e_phentsize != sizeof(Elf32_Phdr) \|\| hdr.e_phnum == 0)
	173	goto out;
	174
	175	phdr = malloc(hdr.e_phnum * hdr.e_phentsize);
	176	if (phdr == NULL)
	177	goto out;
	178
	179	if (fread(phdr, hdr.e_phentsize, hdr.e_phnum, fi) != hdr.e_phnum)
	180	goto out;
	181
	182	ret = 1;
	183
	184	// do what 'file' does - check for PT_INTERP in program headers
	185	for (i = 0; i < hdr.e_phnum; i++) {
	186	if (phdr[i].p_type == PT_INTERP) {
	187	ret = 2;
	188	break;
	189	}
	190	}
	191
	192	out:
	193	fclose(fi);
	194	free(phdr);
	195	return ret;
	196	}
	197
adb79840	198	static void dump_args(FILE fout, char const argv[])
3adc9ccb	199	{
	200	const char *p;
	201	int i;
	202
adb79840	203	for (i = 0; argv[i] != NULL; i++) {
3adc9ccb	204	if (i != 0)
	205	fputc(' ', fout);
	206	fputc('"', fout);
	207
	208	for (p = argv[i]; *p != 0; p++) {
	209	if (*p == '"')
	210	fputc('\\', fout);
	211	fputc(*p, fout);
	212	}
	213
	214	fputc('"', fout);
	215	}
	216	}
	217
	218	static char get_arg(char d, size_t size, char *p)
	219	{
	220	char *pe;
	221	int len;
	222
	223	p = sskip(p);
	224	pe = cskip(p);
	225	len = pe - p;
	226
	227	if (len > size - 1) {
	228	err(PFX "get_arg: buff to small: %d/%d\n", len, size);
	229	len = size - 1;
	230	}
	231	strncpy(d, p, len);
	232	d[len] = 0;
	233
	234	return sskip(pe);
	235	}
	236
	237	#define ARRAY_SIZE(x) (sizeof(x) / sizeof(x[0]))
	238
	239	#define CB_ENTRY(x) { x, sizeof(x) - 1 }
	240	const struct {
	241	const char *name;
	242	int len;
	243	} conv_blacklist[] = {
	244	CB_ENTRY("insmod"),
	245	CB_ENTRY("modprobe"),
	246	CB_ENTRY("umount"),
	247	CB_ENTRY("./cpuctrl_tiny"),
	248	};
	249
	250	static int cmd_in_blacklist(char *cmd)
	251	{
	252	int i;
	253
	254	cmd = sskip(cmd);
	255	for (i = 0; i < ARRAY_SIZE(conv_blacklist); i++)
	256	if (strncmp(cmd, conv_blacklist[i].name, conv_blacklist[i].len) == 0)
	257	return 1;
	258
	259	return 0;
	260	}
	261
	262	int main(int argc, char *argv[])
	263	{
	264	static const char out_script[] = "/tmp/ginge_conv.sh";
	265	char root_path[512], cwd[512];
adb79840	266	char **argv_app = NULL;
3adc9ccb	267	int have_cramfs = 0;
3adc9ccb	268	int rerun_gp2xmenu = 1;
adb79840	269	int quit_if_no_app = 0;
3adc9ccb	270	FILE fin, fout;
adb79840	271	int i, ret;
	272
	273	for (i = 1; i < argc && argv[i][0] == '-' && argv[i][1] == '-'; i++) {
	274	if (strcmp(argv[i], "--cleanup") == 0) {
	275	// as loader may crash eny time, restore screen for the menu
	276	host_video_init(NULL, 1);
	277	host_video_finish();
	278	quit_if_no_app = 1;
	279	continue;
	280	}
	281	if (strcmp(argv[i], "--nomenu") == 0) {
	282	rerun_gp2xmenu = 0;
	283	continue;
	284	}
	285	if (strcmp(argv[i], "--") == 0) {
	286	i++;
	287	break;
	288	}
3adc9ccb	289
adb79840	290	fprintf(stderr, PFX "ignoring unknown option \"%s\"\n", argv[i]);
3adc9ccb	291	}
3adc9ccb	292
adb79840	293	if (argc <= i) {
	294	if (quit_if_no_app)
	295	return 0;
	296	err("usage: %s [opts] <script\|program> [args]\n", argv[0]);
	297	err(" --cleanup - restore framebuffer state\n");
	298	err(" --nomenu - don't run menu on exit\n");
	299	return 1;
6ca08393	300	}
adb79840	301	argv_app = &argv[i];
6ca08393	302
3adc9ccb	303	if (getcwd(cwd, sizeof(cwd)) == NULL) {
	304	err(PFX "failed to get cwd\n");
	305	return 1;
	306	}
	307
	308	ret = make_local_path(root_path, sizeof(root_path), "");
	309	if (ret != 0) {
	310	err(PFX "failed to generate root path\n");
	311	return 1;
	312	}
	313
	314	fout = fopen(out_script, "w");
	315	if (fout == NULL) {
	316	perror("can't open output script");
	317	return 1;
	318	}
	319
	320	fprintf(fout, "#!/bin/sh\n");
	321
adb79840	322	ret = id_elf(argv_app[0]);
3adc9ccb	323	if (ret == 1 \|\| ret == 2) {
adb79840	324	if (cmd_in_blacklist(argv_app[0])) {
adb79840	325	fprintf(stderr, "blacklisted: %s\n", argv_app[0]);
3adc9ccb	326	goto no_in_script;
	327	}
	328	}
	329
	330	switch (ret) {
	331	case 0:
	332	break;
	333
	334	case 1:
4d045184	335	fprintf(fout, WRAP_APP "%s%s ", root_path, LOADER_STATIC);
adb79840	336	dump_args(fout, argv_app);
3adc9ccb	337	fprintf(fout, "\n");
	338	goto no_in_script;
	339
	340	case 2:
4d045184	341	fprintf(fout, WRAP_APP "%s%s \"%s\" ", root_path, LOADER_DYNAMIC, root_path);
adb79840	342	dump_args(fout, argv_app);
3adc9ccb	343	fprintf(fout, "\n");
	344	goto no_in_script;
	345
	346	default:
	347	return 1;
	348	}
	349
	350	// assume script
adb79840	351	fin = fopen(argv_app[0], "r");
3adc9ccb	352	if (fin == NULL)
	353	return 1;
	354
	355	while (1) {
	356	char buff[512], fname[512], p, p2;
	357
	358	p = fgets(buff, sizeof(buff), fin);
	359	if (p == NULL)
	360	break;
	361	p = sskip(p);
	362
	363	if (p[0] == '#' && p[1] == '!')
	364	continue;
	365
	366	if (*p == 0) {
	367	fputs("\n", fout);
	368	continue;
	369	}
	370
	371	// things we are sure we want to pass
	372	if (*p == '#' \|\| strncmp(p, "export ", 7) == 0)
	373	goto pass;
	374
	375	// hmh..
	376	if (strncmp(p, "exec ", 5) == 0)
	377	p = sskip(p + 5);
	378
	379	// blacklist some stuff
	380	if (strncmp(p, "/sbin/", 6) == 0)
	381	p2 = p + 6;
	382	else if (strncmp(p, "/bin/", 5) == 0)
	383	p2 = p + 5;
	384	else
	385	p2 = p;
	386	if (strncmp(p2, "mount ", 6) == 0) {
	387	p2 = sskip(p2 + 6);
	388	// cramfs stuff?
	389	if (strstr(p2, "cramfs")) {
	390	while (*p2 == '-') {
	391	// skip option
	392	p2 = sskip(cskip(p2));
	393	p2 = sskip(cskip(p2));
	394	}
	395	if (*p2 == 0) {
	396	err(PFX "cramfs: missing mount file in \"%s\"?\n", p);
	397	continue;
	398	}
	399	p2 = get_arg(fname, sizeof(fname), p2);
	400	if (*p2 == 0) {
	401	err(PFX "cramfs: missing mount point in \"%s\"?\n", p);
	402	continue;
	403	}
	404	get_arg(buff, sizeof(buff), p2);
	405	fprintf(fout, "if [ `ls %s \| wc -l` -eq 0 ]; then\n", buff);
	406	fprintf(fout, " rmdir \"%s\"\n", buff); // cramfsck doesn't want it
	407	fprintf(fout, " %stools/cramfsck -x \"%s\" \"%s\"\n", root_path, buff, fname);
	408	fprintf(fout, "fi\n");
	409	have_cramfs = 1;
	410	}
	411	continue;
	412	}
	413	if (cmd_in_blacklist(p2))
	414	continue;
	415
416	// cd?
417	if (strncmp(p, "cd ", 3) == 0) {
418	get_arg(fname, sizeof(fname), p + 3);
419	if (strncmp(fname, "/usr/gp2x", 9) == 0)
420	continue;
421	ret = chdir(fname);
422	if (ret != 0) {
423	err("%s: ", fname);
424	perror("");
425	}
426	}
427
428	// trying to run something from cwd?
429	if ((p[0] == '.' && p[1] == '/') \|\| *p == '/') {
430	get_arg(fname, sizeof(fname), p);
431	p2 = strrchr(fname, '/');
432	if (p2 != NULL && strcmp(p2 + 1, "gp2xmenu") == 0)
433	continue;
434
435	ret = id_elf(fname);
436	switch (ret) {
437	case 1:
438	printf(PFX "prefixing as static: %s", p);
4d045184	439	fprintf(fout, WRAP_APP "%s%s ", root_path, LOADER_STATIC);
3adc9ccb	440	break;
	441
	442	case 2:
	443	printf(PFX "prefixing as dynamic: %s", p);
4d045184	444	fprintf(fout, WRAP_APP "%s%s \"%s\" ", root_path, LOADER_DYNAMIC, root_path);
3adc9ccb	445	break;
	446
	447	default:
	448	break;
	449	}
	450	}
	451
	452	pass:
	453	fputs(p, fout);
	454	}
	455
	456	fclose(fin);
	457
	458	no_in_script:
6ca08393	459	#ifdef WIZ
6ca08393	460	fprintf(fout, "sync\n");
adb79840	461	// since we don't know if loader manages to do proper cleanup,
	462	// need to wait for it's threads to die
	463	fprintf(fout, "sleep 1\n");
6ca08393	464	fprintf(fout, "%sginge_prep --cleanup\n", root_path);
6ca08393	465	#endif
3adc9ccb	466	if (rerun_gp2xmenu) {
	467	fprintf(fout, "cd %s\n", root_path);
	468	fprintf(fout, "exec %s%s\n", root_path, LAUNCHER);
	469	}
	470
	471	fclose(fout);
	472
4d045184	473	//msg("starting script..\n");
	474	if (have_cramfs) {
	475	msg("\nsome files need to be unpacked, this may tike a few minutes.\n");
	476	#ifdef PND
	477	msg("Please wait at least while SD LED is active.\n");
	478	#endif
	479	}
3adc9ccb	480	system("echo ---; cat /tmp/ginge_conv.sh; echo ---");
	481	chmod(out_script, S_IRWXU\|S_IRWXG\|S_IRWXO);
	482	chdir(cwd);
adb79840	483	fb_text_exit();
3adc9ccb	484	execlp(out_script, out_script, NULL);
	485	perror("run out_script");
	486
	487	return 1;
	488	}
	489
499bf01c	490	// vim:shiftwidth=2:expandtab