kernel/arch/x86_64/syscall.c

   1 /*
   2  *  ZeX/OS
   3  *  Copyright (C) 2007  Tomas 'ZeXx86' Jedrzejek (zexx86@zexos.org)
   4  *  Copyright (C) 2008  Tomas 'ZeXx86' Jedrzejek (zexx86@zexos.org)
   5  *
   6  *  This program is free software: you can redistribute it and/or modify
   7  *  it under the terms of the GNU General Public License as published by
   8  *  the Free Software Foundation, either version 3 of the License, or
   9  *  (at your option) any later version.
  10  *
  11  *  This program is distributed in the hope that it will be useful,
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  *  GNU General Public License for more details.
  15  *
  16  *  You should have received a copy of the GNU General Public License
  17  *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20
  21 #include <system.h>
  22 #include <arch/io.h>
  23 #include <string.h>
  24 #include <tty.h>
  25 #include <proc.h>
  26 #include <net/socket.h>
  27 #include <file.h>
  28 #include <signal.h>
  29 #include <module.h>
  30 #include <rs232.h>
  31
  32 int sattrib = 0x0F;
  33
  34 extern task_t *_curr_task;
  35 void sys_exit (struct regs *r)
  36 {
  37         proc_t *proc = proc_find (_curr_task);
  38
  39         if (!proc)
  40                 return;
  41
  42         if (proc->task != _curr_task)
  43                 return;
  44
  45         if (proc) {
  46                 task_t *task = proc->tty->task;
  47
  48                 proc->pid = 0;
  49
  50                 /*if (int_disable ())
  51                         longjmp (task->state, 1);
  52                 else
  53                         while (1)
  54                                 schedule ();*/
  55         }
  56 }
  57
  58 void sys_getch (struct regs *r)
  59 {
  60         unsigned att = sattrib << 8;
  61         unsigned short *where;
  62
  63         unsigned char c = (unsigned char) getkey ();
  64
  65         if (c != 0) {
  66                 setkey (0);
  67         }
  68
  69         unsigned short *memptr = (unsigned short *) 0x9000;
  70         where = memptr;
  71         *where = c | att;
  72
  73 }
  74
  75 void sys_sleep (struct regs *r)
  76 {
  77         timer_wait (1000 * (unsigned) r->r9);
  78 }
  79
  80 void sys_putch (struct regs *r)
  81 {
  82         proc_t *proc = proc_find (_curr_task);
  83
  84         if (!proc)
  85                 return;
  86
  87         if (proc->task != _curr_task)
  88                 return;
  89
  90         if (proc->tty != currtty)
  91                 return;
  92
  93         tty_putnch (proc->tty, r->r9);
  94 }
  95
  96 void sys_color (struct regs *r)
  97 {
  98         settextcolor (r->r9, r->r10);
  99 }
 100
 101
 102 void sys_cls (struct regs *r)
 103 {
 104         proc_t *proc = proc_find (_curr_task);
 105
 106         if (!proc)
 107                 return;
 108
 109         if (proc->task != _curr_task)
 110                 return;
 111
 112         if (proc->tty != currtty)
 113                 return;
 114
 115         int_disable ();
 116         tty_cls (proc->tty);
 117         int_enable ();
 118 }
 119
 120 extern unsigned char scancode;
 121 void sys_getkey (struct regs *r)
 122 {
 123         proc_t *proc = proc_find (_curr_task);
 124
 125         if (!proc)
 126                 return;
 127
 128         if (proc->task != _curr_task)
 129                 return;
 130
 131         if (proc->tty != currtty)
 132                 return;
 133
 134         unsigned att = sattrib << 8;
 135         unsigned short *where;
 136         unsigned char c = (unsigned char) scancode;
 137
 138         scancode = 0;
 139
 140         unsigned short *memptr = (unsigned short *) 0x9000;
 141         where = memptr;
 142         *where = c | att;
 143 }
 144
 145 void sys_gotoxy (struct regs *r)
 146 {
 147         gotoxy (r->r9, r->r10);
 148 }
 149
 150 void sys_fork (struct regs *r)
 151 {
 152         unsigned att = sattrib << 8;
 153         unsigned short *where;
 154         unsigned char c = (unsigned char) fork ();
 155
 156         unsigned short *memptr = (unsigned short *) 0x9000;
 157         where = memptr;
 158         *where = c | att;
 159 }
 160
 161 void sys_schedule (struct regs *r)
 162 {
 163         schedule ();
 164 }
 165
 166 extern kbd_quaue kbd_q;
 167 void sys_write (struct regs *r)
 168 {
 169         unsigned len = r->r10;
 170         unsigned fd = r->r11;
 171
 172         unsigned char *buf = (unsigned char *) r->r9;
 173
 174         if (!buf)
 175                 return;
 176
 177         //kprintf ("#buf: 0x%x / '%s'\n", buf, buf);
 178
 179         /*char buf[len+1];
 180         if (!memcpy_to_user (&buf, (char *) r->r9, len))
 181                 return;*/
 182
 183         int ret = 0;
 184
 185         proc_t *proc = 0;
 186
 187         switch (fd) {
 188                 case 0:
 189                         proc = proc_find (_curr_task);
 190
 191                         if (!proc)
 192                                 return;
 193
 194                         if (proc->task != _curr_task)
 195                                 return;
 196
 197                         //if (proc->tty != currtty)
 198                         //      return;
 199
 200                         //printf ("data: 0x%x | 0x%x | 0x%x\n", buf, proc->data, proc->data_off);
 201                         //printf ("hehe: 0x%x+0x%x / '%s' len: %d\n", buf+proc->code, proc->data_off, buf+proc->code, len);
 202                         //if (!memtest_data (buf, (void *) proc->data, proc->data_off))
 203                         tty_write (proc->tty, (char *) buf, len);
 204                         //else {
 205                         //      tty_write (proc->tty, (char *) buf+proc->code, len);
 206                         //}
 207                         ret = len;
 208                         break;
 209                 case 1:
 210                         proc = proc_find (_curr_task);
 211
 212                         if (!proc)
 213                                 return;
 214
 215                         if (proc->task != _curr_task)
 216                                 return;
 217
 218                         if (len > KBD_MAX_QUAUE)
 219                                 len = KBD_MAX_QUAUE;
 220
 221                         int i = 0;
 222                         for (i = len; i >= 0; i --) {
 223                                 setkey (buf[i]);
 224                                 kbd_q.state[kbd_q.p] = 1;       // down
 225                                 kbd_q.p ++;
 226                         }
 227
 228                         buf[len] = '\0';
 229
 230                         ret = len;
 231                         break;
 232                 default:
 233                         ret = write (fd, (char *) buf, len);
 234                         break;
 235         }
 236
 237         int *where;
 238         int *memptr = (int *) 0x9000;
 239         where = memptr;
 240         *where = ret;
 241
 242         //printf ("yeah, sys_write: '%d' '%s' '0x%x'\n", len, buf, buf);
 243 }
 244
 245 void sys_socket (struct regs *r)
 246 {
 247         int ret = socket (r->r9, r->r10, r->r11);
 248
 249         int *where;
 250         int *memptr = (int *) 0x9000;
 251         where = memptr;
 252         *where = ret;
 253 }
 254
 255 void sys_connect (struct regs *r)
 256 {
 257         sockaddr_in *addr = (sockaddr_in *) r->r9;
 258
 259         /*if (!memtest_data (addr, (void *) proc->data, proc->data_off))
 260                 tty_write (proc->tty, (char *) buf, len);
 261         else {
 262 //              printf ("hehe: 0x%x+0x%x / '%s' len: %d\n", buf+proc->code, proc->data_off, buf+proc->code, len);
 263                 tty_write (proc->tty, (char *) buf+proc->code, len);
 264         }       */
 265         //printf ("adresa mem: %s - 0x%x\n", addr->sin_addr, addr);
 266         int ret = connect (r->r10, addr, r->r11);
 267
 268         int *where;
 269         int *memptr = (int *) 0x9000;
 270         where = memptr;
 271         *where = ret;
 272 }
 273
 274 void sys_malloc (struct regs *r)
 275 {
 276         r->r8 = (unsigned) malloc ((int) r->r9);
 277
 278         DPRINT ("malloc (): 0x%x\n", r->r8);
 279 }
 280
 281 void sys_send (struct regs *r)
 282 {
 283 /*      char msg[r->r11+1];
 284         if (!memcpy_to_user (&msg, (char *) r->r9, r->r11))
 285                 return;*/
 286
 287         int ret = send ((int) r->r10, (char *) r->r9, (unsigned) r->r11, 0);
 288
 289         int *where;
 290         int *memptr = (int *) 0x9000;
 291         where = memptr;
 292         *where = ret;
 293 }
 294
 295 void sys_recv (struct regs *r)
 296 {
 297         unsigned char *msg = (unsigned char *) r->r9;
 298
 299         int ret = recv ((int) r->r10, (char *) msg, (unsigned) r->r11, 0);
 300
 301 //      printf ("recv> r->r9: %d, r->r11: %u, ret: %d\n", (int) r->r9, (unsigned) r->r11, ret);
 302
 303         int *where;
 304         int *memptr = (int *) 0x9000;
 305         where = memptr;
 306         *where = ret;
 307 }
 308
 309 void sys_close (struct regs *r)
 310 {
 311         close (r->r9);
 312 }
 313
 314 void sys_open (struct regs *r)
 315 {
 316         unsigned char *pathname = (unsigned char *) r->r9;
 317
 318         int ret = open ((char *) pathname, (unsigned) r->r10);
 319
 320 //      printf ("%d = sys_open (%s, %u)\n", ret, (char *) pathname, (unsigned) r->r10);
 321
 322         int *where;
 323         int *memptr = (int *) 0x9000;
 324         where = memptr;
 325         *where = ret;
 326 }
 327
 328 void sys_pcspk (struct regs *r)
 329 {
 330         dev_t *dev = dev_find ("/dev/pcspk");
 331
 332         if (dev)
 333                 dev->handler (DEV_ACT_PLAY, (unsigned) r->r9);
 334 }
 335
 336 void sys_usleep (struct regs *r)
 337 {
 338         usleep ((unsigned) r->r9);
 339 }
 340
 341 void sys_read (struct regs *r)
 342 {
 343         unsigned fd = r->r10;
 344         unsigned len = r->r11;
 345
 346         unsigned char *buf = (unsigned char *) r->r9;
 347
 348         int ret = 0;
 349
 350         proc_t *proc = 0;
 351
 352         switch (fd) {
 353                 case 0:
 354                         break;
 355                 case 1:
 356                         proc = proc_find (_curr_task);
 357
 358                         if (!proc)
 359                                 break;
 360
 361                         if (proc->task != _curr_task)
 362                                 break;
 363
 364                         //if (proc->tty != currtty)
 365                         //      return;
 366
 367                         ret = tty_read (proc->tty, (char *) buf, len);
 368                         break;
 369                 default:
 370                         ret = read (fd, (char *) buf, len);
 371                         break;
 372         }
 373
 374         int *where;
 375         int *memptr = (int *) 0x9000;
 376         where = memptr;
 377         *where = ret;
 378 }
 379
 380 void sys_time (struct regs *r)
 381 {
 382         r->r8 = (unsigned) rtc_getcurrtime ();
 383 }
 384
 385 void sys_system (struct regs *r)
 386 {
 387         unsigned char *cmd = (unsigned char *) r->r9;
 388
 389         command_parser ((char *) cmd, strlen (cmd));
 390 }
 391
 392 void sys_chdir (struct regs *r)
 393 {
 394         unsigned char *dir = (unsigned char *) r->r9;
 395
 396         cd ((char *) dir);
 397 }
 398
 399 void sys_getdir (struct regs *r)
 400 {
 401         r->r8 = (unsigned) &dir;
 402 }
 403
 404 void sys_procarg (struct regs *r)
 405 {
 406         proc_t *proc = proc_find (_curr_task);
 407
 408         if (!proc)
 409                 return;
 410
 411         if (proc->task != _curr_task)
 412                 return;
 413
 414         switch (r->r10) {
 415                 case 0:
 416                         r->r8 = (unsigned) proc->argv;
 417                         break;
 418                 case 1:
 419                         r->r8 = (unsigned) proc->argc;
 420                         break;
 421                 default:
 422                         r->r8 = 0;
 423         }
 424 }
 425
 426 void sys_signal (struct regs *r)
 427 {
 428         signal (r->r9, (sighandler_t) r->r10);
 429 }
 430
 431 void sys_mount (struct regs *r)
 432 {
 433         partition_t *p = partition_find ((char *) r->r9);
 434
 435         if (p) {
 436                 mount (p, "", (char *) r->r10);
 437                 r->r8 = 1;
 438         } else
 439                 r->r8 = 0;
 440 }
 441
 442 void sys_kputs (struct regs *r)
 443 {
 444         int_disable ();
 445
 446         module_t *kmod = module_find (_curr_task);
 447
 448         if (!kmod)
 449                 return;
 450
 451         if (kmod->task != _curr_task)
 452                 return;
 453
 454         unsigned char *buf = (unsigned char *) r->r9;
 455         kprintf (buf);
 456
 457         //kprintf ("yeah, sys_kputs: '%s' '0x%x'\n", buf, buf);
 458
 459         int_enable ();
 460 }
 461
 462 void sys_bind (struct regs *r)
 463 {
 464         int ret = bind (r->r10, r->r9, r->r11);
 465
 466         int *where;
 467         int *memptr = (int *) 0x9000;
 468         where = memptr;
 469         *where = ret;
 470 }
 471
 472 void sys_listen (struct regs *r)
 473 {
 474         int ret = listen (r->r9, r->r10);
 475
 476         int *where;
 477         int *memptr = (int *) 0x9000;
 478         where = memptr;
 479         *where = ret;
 480 }
 481
 482 void sys_accept (struct regs *r)
 483 {
 484         int ret = accept (r->r10, r->r9, r->r11);
 485
 486         int *where;
 487         int *memptr = (int *) 0x9000;
 488         where = memptr;
 489         *where = ret;
 490 }
 491
 492 void sys_fcntl (struct regs *r)
 493 {
 494         int ret = fcntl (r->r9, r->r10, r->r11);
 495
 496         int *where;
 497         int *memptr = (int *) 0x9000;
 498         where = memptr;
 499         *where = ret;
 500 }
 501
 502 void sys_gvgafb (struct regs *r)
 503 {
 504         r->r8 = (unsigned) init_vgafb ();
 505 }
 506
 507 void sys_gcls (struct regs *r)
 508 {
 509         gcls (r->r9);
 510 }
 511
 512 void sys_gpixel (struct regs *r)
 513 {
 514         gpixel (r->r9, r->r10, r->r11);
 515 }
 516
 517 void sys_rs232read (struct regs *r)
 518 {
 519         char *where;
 520         char *memptr = (char *) 0x9000;
 521         where = memptr;
 522         *where = rs232_read ();
 523 }
 524
 525 void sys_rs232write (struct regs *r)
 526 {
 527         rs232_write ((char) r->r9);
 528 }
 529
 530 void sys_gttyexit (struct regs *r)
 531 {
 532         proc_t *proc = proc_find (_curr_task);
 533
 534         if (!proc)
 535                 return;
 536
 537         if (proc->task != _curr_task)
 538                 return;
 539
 540         tty_change (proc->tty);
 541 }
 542
 543 void sys_gexit (struct regs *r)
 544 {
 545         gexit ();
 546 }
 547
 548 extern unsigned char vgagui;
 549 extern tty_t *gtty;
 550 void sys_gttyinit (struct regs *r)
 551 {
 552         gtty_init ();
 553
 554         if (!gtty)
 555                 return;
 556
 557         r->r8 = (unsigned) &gtty->screen;
 558 }
 559
 560 void sys_mkdir (struct regs *r)
 561 {
 562         unsigned char *dir = (unsigned char *) r->r9;
 563
 564         mkdir ((char *) dir);
 565 }
 566
 567 void sys_free (struct regs *r)
 568 {
 569         free ((void *) r->r9);
 570
 571         DPRINT ("free (): 0x%x\n", r->r9);
 572 }
 573
 574 void sys_realloc (struct regs *r)
 575 {
 576         r->r8 = (unsigned) realloc ((void *) r->r9, (size_t) r->r10);
 577
 578         DPRINT ("realloc (): 0x%x\n", r->r8);
 579 }
 580
 581 void syscall_handler (struct regs *r)
 582 {
 583         switch (r->r8) {
 584                 case 1:
 585                         return sys_exit (r);
 586                 case 2:
 587                         return sys_getch (r);
 588                 case 3:
 589                         return sys_sleep (r);
 590                 case 4:
 591                         return sys_putch (r);
 592                 case 5:
 593                         return sys_color (r);
 594                 case 6:
 595                         return sys_cls (r);
 596                 case 7:
 597                         return sys_getkey (r);
 598                 case 8:
 599                         return sys_gotoxy (r);
 600                 case 9:
 601                         return sys_fork (r);
 602                 case 10:
 603                         return sys_schedule (r);
 604                 case 11:
 605                         return sys_write (r);
 606                 case 12:
 607                         return sys_socket (r);
 608                 case 13:
 609                         return sys_connect (r);
 610                 case 14:
 611                         return sys_malloc (r);
 612                 case 15:
 613                         return sys_send (r);
 614                 case 16:
 615                         return sys_recv (r);
 616                 case 17:
 617                         return sys_close (r);
 618                 case 18:
 619                         return sys_open (r);
 620                 case 19:
 621                         return sys_pcspk (r);
 622                 case 20:
 623                         return sys_usleep (r);
 624                 case 21:
 625                         return sys_read (r);
 626                 case 22:
 627                         return sys_time (r);
 628                 case 23:
 629                         return sys_system (r);
 630                 case 24:
 631                         return sys_chdir (r);
 632                 case 25:
 633                         return sys_getdir (r);
 634                 case 26:
 635                         return sys_procarg (r);
 636                 case 27:
 637                         return sys_signal (r);
 638                 case 28:
 639                         return sys_mount (r);
 640                 case 29:
 641                         return sys_kputs (r);
 642                 case 30:
 643                         return sys_bind (r);
 644                 case 31:
 645                         return sys_listen (r);
 646                 case 32:
 647                         return sys_accept (r);
 648                 case 33:
 649                         return sys_fcntl (r);
 650                 case 34:
 651                         return sys_gvgafb (r);
 652                 case 35:
 653                         return sys_gcls (r);
 654                 case 36:
 655                         return sys_gpixel (r);
 656                 case 37:
 657                         return sys_rs232read (r);
 658                 case 38:
 659                         return sys_rs232write (r);
 660                 case 39:
 661                         return sys_gttyexit (r);
 662                 case 40:
 663                         return sys_gexit (r);
 664                 case 41:
 665                         return sys_gttyinit (r);
 666                 case 42:
 667                         return sys_mkdir (r);
 668                 case 43:
 669                         return sys_free (r);
 670                 case 44:
 671                         return sys_realloc (r);
 672         }
 673 }