sys/lib/acid/syscall

   1 // print system calls
   2 defn printstring(s)
   3 {
   4         print("\"", s, "\"");
   5 }
   6
   7 defn printtextordata(addr, n)
   8 {
   9         local a, i;
  10
  11         a = addr\c;
  12         i = 0;
  13         loop 1, n do {
  14                 if (a[i]>=127) then {
  15                         print(fmt(addr, 'X'), ", ", n\D);
  16                         return {};
  17                 }
  18                 i = i+1;
  19         }
  20
  21         print("\"");
  22         printstringn(addr, n);
  23         print("\"");
  24 }
  25
  26 defn printstringn(s, n)
  27 {
  28         local m;
  29
  30         m = n;
  31         if (m > 100) then m = 100;
  32         loop 1,m do {
  33                 print(*(s\c)); s=s+1;
  34         }
  35         if(m != n) then print("...");
  36 }
  37
  38 defn printsyscall(name, fmt, arg) {
  39         local f, i, a, argp, sl;
  40
  41         print(name, "(");
  42         i = 0;
  43         a = eval arg;
  44         while fmt[i] != 0 do {
  45                 if fmt[i] == 's' then {
  46                         if *a == 0 then
  47                                 print("nil");
  48                         else
  49                                 printstring(*(*a\s));
  50                 } else if fmt[i] == 'S' then {
  51                         argp = *a;
  52                         argl = {};
  53                         while *argp != 0 do {
  54                                 argl = append argl, *(*argp\s);
  55                                 argp++;
  56                         }
  57                         print(argl);
  58                 } else if (fmt[i] == 'Z') && (~*a == 0) then {
  59                         print("-1");
  60                         a++;    // advance extra word for quadword
  61                 } else if (fmt[i] == 'Y') || (fmt[i] == 'V') then {
  62                         print(fmt(*a, fmt[i]));
  63                         a++;    // advance extra word for quadword
  64                 } else if (fmt[i] == 'T') then {
  65                         if *a == 0 then
  66                                 print("nil");
  67                         else
  68                                 printtextordata(*a, a[1]);
  69                 } else
  70                         print(fmt(*a, fmt[i]));
  71                 if fmt[i+1] != 0 then
  72                         print(", ");
  73                 i = i+1;
  74                 a++;
  75         }
  76         print(")\n");
  77 }
  78
  79 defn code(*e) { return e; }
  80
  81 syscalls = {
  82         { 0, {"sysr1",          "s",            code(0)}},
  83         { 1, {"_errstr",                "s",            code(*sys_errstr:arg)}},
  84         { 2, {"bind",           "ssX",          code(*sysbind:arg)}},
  85         { 3, {"chdir",          "s",            code(*sysbind:arg)}},
  86         { 4, {"close",          "D",            code(*sysclose:arg)}},
  87         { 5, {"dup",            "DD",           code(*sysdup:arg)}},
  88         { 6, {"alarm",          "D",            code(*sysalarm:arg)}},
  89         { 7, {"exec",           "sS",           code(*sysexec:arg)}},
  90         { 8, {"exits",          "s",            code(*sysexits:arg)}},
  91         { 9, {"_fsession",      "DX",           code(*sys_fsession:arg)}},
  92         {10, {"fauth",          "DX",           code(*sysfauth:arg)}},
  93         {11, {"_fstat",         "DX",           code(*sys_fstat:arg)}},
  94         {12, {"segbrk",         "XX",           code(*syssegbrk:arg)}},
  95         {13, {"_mount",         "DsXs",         code(*sys_mount:arg)}},
  96         {14, {"open",           "sD",           code(*sysopen:arg)}},
  97         {15, {"_read",          "DXD",          code(*sys_read:arg)}},
  98         {16, {"oseek",          "DDD",          code(*sysoseek:arg)}},
  99         {17, {"sleep",          "D",            code(*syssleep:arg)}},
 100         {18, {"_stat",          "sX",           code(*sys_stat:arg)}},
 101         {19, {"rfork",          "X",            code(*sysstat:arg)}},
 102         {20, {"_write",         "DXD",          code(*sys_write:arg)}},
 103         {21, {"pipe",           "X",            code(*syspipe:arg)}},
 104         {22, {"create",         "sDO",          code(*syscreate:arg)}},
 105         {23, {"fd2path",        "DXD",          code(*sysfd2path:arg)}},
 106         {24, {"brk_",           "X",            code(*sysbrk_:arg)}},
 107         {25, {"remove",         "s",            code(*sysremove:arg)}},
 108         {26, {"_wstat",         "sX",           code(*sys_wstat:arg)}},
 109         {27, {"_fwstat",                "DX",           code(*sys_fwstat:arg)}},
 110         {28, {"notify",         "X",            code(*sysnotify:arg)}},
 111         {29, {"noted",          "D",            code(*sysnoted:arg)}},
 112         {30, {"segattach",      "DsXD",         code(*syssegattach:arg)}},
 113         {31, {"segdetach",      "X",            code(*syssegdetach:arg)}},
 114         {32, {"segfree",        "XD",           code(*syssegfree:arg)}},
 115         {33, {"segflush",       "XD",           code(*syssegflush:arg)}},
 116         {34, {"rendezvous",     "XX",           code(*sysrendezvous:arg)}},
 117         {35, {"unmount",        "ss",           code(*sysunmount:arg)}},
 118         {36, {"_wait",          "X",            code(*sys_wait:arg)}},
 119         {39, {"seek",           "XDVD",         code(*sysseek:arg)}},
 120         {40, {"fversion",       "DDsD",         code(*sysfversion:arg)}},
 121         {41, {"errstr",         "TD",           code(*syserrstr:arg)}},
 122         {42, {"stat",           "sXD",          code(*sysstat:arg)}},
 123         {43, {"fstat",          "DXD",          code(*sysfstat:arg)}},
 124         {44, {"wstat",          "sXD",          code(*syswstat:arg)}},
 125         {45, {"fwstat",         "DXD",          code(*sysfwstat:arg)}},
 126         {46, {"mount",          "DDsXs",                code(*sysmount:arg)}},
 127         {47, {"await",          "TD",           code(*sysawait:arg)}},
 128         {50, {"pread",          "DXDZ",         code(*syspread:arg)}},
 129         {51, {"pwrite",         "DTDZ",         code(*syspwrite:arg)}},
 130 };
 131
 132 defn syscall() {
 133         local n, sl, h, p;
 134
 135         map({"*data", 0, 0xffffffff, 0});
 136         n = *syscall:scallnr;
 137         sl = syscalls;
 138         while sl != {} do {
 139                 h = head sl;
 140                 sl = tail sl;
 141
 142                 if n == h[0] then {
 143                         p = h[1];
 144                         printsyscall(p[0], p[1], p[2]);
 145                 }
 146         }
 147 }
 148
 149 defn UPCSPRET() {
 150         // return sys call number, address of first argument, location of syscall return value
 151         if objtype == "386" then
 152                 return { code(*(*PC-4)), code(*SP+4), code(*AX) };
 153         if (objtype == "mips") || (objtype == "mips2") then
 154                 return { code(*(*PC-4) & 0xffff), code(*SP+4), code(*R1) };
 155         if objtype == "arm" then
 156                 return { code(*(*PC-4) & 0xffff), code(*SP+4), code(*R0) };     // untested
 157         if objtype == "alpha" then
 158                 return { code(*(*PC-4) & 0xffff), code(*SP+4), code(*R0) };     // untested
 159 }
 160
 161 defn trapoffset() {
 162         // return offset from entry point to trap instr
 163         if objtype == "386" then return 5;
 164         if objtype == "mips" then return 8;
 165         if objtype == "mips2" then return 8;
 166         if objtype == "arm" then return 8;      // untested
 167         if objtype == "alpha" then return 8;    // untested
 168 }
 169
 170 defn trapreason() {
 171         // return reason for trap
 172         if objtype == "386" then return reason(*TRAP);
 173         if objtype == "mips" then return reason(*CAUSE);
 174         if objtype == "mips2" then return reason(*CAUSE);
 175         if objtype == "arm" then return "unknown trap"; // untested
 176         if objtype == "alpha" then return reason(cause);        // untested
 177 }
 178
 179
 180 defn usyscall() {       // gives args for system call in user level; not useful with -k
 181         local n, sl, h, p;
 182
 183         // stopped at TRAP instruction in system call library
 184         pcsp = UPCSPRET();
 185         n = eval pcsp[0];
 186         sl = syscalls;
 187         while sl != {} do {
 188                 h = head sl;
 189                 sl = tail sl;
 190
 191                 if n == h[0] then {
 192                         p = h[1];
 193                         printsyscall(p[0], p[1], pcsp[1]);
 194                 }
 195         }
 196 }