ACC SHELL

#!/usr/bin/env slsh

private define usage ()
{
   () = fprintf (stdout, "Usage: %s script args...\n", path_basename (__argv[0]));
   () = fprintf (stdout, " -or-: %s --pid pid\n", path_basename (__argv[0]));
   exit (1);
}

if (__argc == 1)
  usage ();

autoload ("sldbsock_attach", "sldbsock.sl");

if (__argv[1] == "--pid")
{
   private variable pid;

   if (__argc != 3)
     usage ();
   if (1 != sscanf (__argv[2], "%d", &pid))
     usage ();
   
   public variable __SLDB_CLIENT__ = 1;
   if (-1 == sldbsock_attach (pid))
     exit (1);
   exit (0);
}

__set_argc_argv (__argv[[1:]]);
$0 = __argv[0];
if (not path_is_absolute ($0))
  $0 = path_concat (getcwd (), $0);
sldb ($0);

#ifexists slsh_main
slsh_main ();
#endif

exit (0);