Routix/tareas/punto/old/routix.c

   1 /* routix.c */
   2 #include "stdarg.h"
   3 #include "routix.h"
   4 #include "syscalls.h"
   5 void sprintn ( unsigned int num, int base);
   6 void sputchar (char car);
   7 char getascii (char c);
   8
   9 #define _syscall0(numero,retorno) __asm__ __volatile__ ("int $0x50" : "=a" (retorno) : "a" (numero))
  10 #define _syscall1(numero,retorno,param1) __asm__ __volatile__ ("int $0x50" : "=a" (retorno) : "a" (numero), "b" (param1))
  11 #define _syscall2(numero,retorno,param1,param2) __asm__ __volatile__ ("int $0x50" : "=a" (retorno) : "a" (numero), "b" (param1), "c" (param2))
  12
  13
  14 int sleep(int segundos)
  15 {
  16   int retorno;
  17
  18  _syscall1( SYS_TIMER | SYS_SLEEP, retorno, segundos);
  19
  20  return retorno;
  21 }
  22
  23 int exec (char *tarea)
  24 {
  25     __asm__ __volatile__ ("movl %0, %%eax ; movl %1, %%ebx" : : "g" (SYS_PROCESS | SYS_EXEC) , "g" (tarea) : "eax" , "ebx");
  26     __asm__ __volatile__ ("int $0x50");
  27
  28      int retorno;
  29     __asm__ __volatile__ ("movl %%eax, %0" : "=g" (retorno)  );
  30
  31     return retorno;
  32 }
  33
  34
  35 void gets (char *str)
  36 {
  37
  38     __asm__ __volatile__ ("movl %0, %%eax ; movl %1, %%ebx" : : "g" (SYS_CONSOLE | SYS_GETS) , "g" (str) : "eax" , "ebx" );
  39     __asm__ __volatile__ ("int $0x50");
  40
  41 }
  42
  43 int fork(void)
  44 {
  45     __asm__ __volatile__ ("movl %0, %%eax" : : "g" (SYS_PROCESS | SYS_FORK) : "eax");
  46     __asm__ __volatile__ ("int $0x50");
  47 }
  48
  49
  50 void voido (void)
  51 {
  52     __asm__ __volatile__ ("movl %0, %%eax" : : "g" (SYS_PROCESS | SYS_VOID) : "eax");
  53     __asm__ __volatile__ ("int $0x50");
  54
  55 }
  56
  57 // Funcion de libraria "putchar"
  58 int putchar (char car)
  59 {
  60     char aux[2];
  61     aux[1]='\0';
  62     aux[0]=car;
  63     puts(aux);
  64 }
  65
  66 // llamada al sistema (similar a write pero hacia stdout)
  67 void puts(char *str)
  68 {
  69
  70     __asm__ __volatile__ ("movl %0, %%eax ; mov %1, %%ebx ; mov %2, %%ecx" : : \
  71                     "g" (SYS_CONSOLE | SYS_PRINT), "g" (str), "g" (strlen(str)) : "eax", "ebx", "ecx" );
  72
  73     __asm__ __volatile__ ("int $0x50");
  74 }
  75
  76 int clrscr(void)
  77 {
  78     __asm__ __volatile__ ("movl %0, %%eax" : : "g" (SYS_CONSOLE | SYS_CLRSCR));
  79     __asm__ __volatile__ ("int $0x50");
  80 }
  81
  82 #define MAX_STRING  100
  83
  84 word sposicion=0;
  85 char string_stdio[MAX_STRING];
  86
  87 void sputchar (char car)
  88 {
  89     string_stdio[sposicion] = car;
  90     string_stdio[++sposicion] = '\0';
  91 }
  92
  93 void printf ( char *stri, ...)
  94 {
  95     string_stdio[0]='\0';
  96     char *p=stri;
  97     char *d;
  98     char nibble[8];
  99     char car;
 100
 101     unsigned int i,flag;
 102
 103     va_list argumentos;
 104
 105     va_start(argumentos, stri );
 106
 107     for ( p=stri; *p ; p++ ) {
 108         if ( *p != '%' ) {
 109             sputchar(*p);
 110             continue;
 111         }
 112
 113         switch (*++p) {
 114
 115         case 'c':
 116              car=va_arg(argumentos, int);
 117              sputchar( (char) car);
 118              break;
 119
 120         case 'x':
 121              i = va_arg(argumentos, unsigned int );
 122              sprintn(i,16);
 123              break;
 124
 125         case 'd':
 126              i = va_arg(argumentos, unsigned int);
 127              sprintn(i,10);
 128              break;
 129
 130         case 'o':
 131              i = va_arg(argumentos, unsigned int);
 132              sprintn(i,8);
 133              break;
 134
 135         case 's':
 136              d = va_arg(argumentos, char *);
 137              strcat(string_stdio, d);
 138              sposicion = sposicion + strlen(d);
 139              break;
 140
 141         default:
 142              sputchar(*p);
 143              break;
 144         }
 145
 146     }
 147
 148     va_end(argumentos);
 149     puts(string_stdio);
 150 }
 151
 152
 153
 154 void sprintn( unsigned int num, int base)
 155 {
 156     unsigned int div;
 157     if ( (div=num/base) )
 158         sprintn(div,base);
 159     sputchar( getascii(num%base) );
 160 }
 161
 162
 163
 164
 165 //****************************************************************************************************
 166 // printf ( char *string, ...)  y funciones requeridas por ella
 167 //****************************************************************************************************
 168 /*
 169 char getascii_ ( char c );
 170 void printn_ ( unsigned int num, int base);
 171
 172 void printf ( char *string, ...)
 173 {
 174
 175  char *p=string;
 176  char *d;
 177  char nibble[8];
 178  char car;
 179
 180  unsigned int i,flag;
 181
 182  va_list argumentos;
 183
 184  va_start(argumentos, string );
 185
 186  for ( p=string; *p ; p++ ) {
 187   if ( *p != '%' ) {
 188    putchar(*p);
 189    continue;
 190   }
 191
 192   switch (*++p) {
 193
 194    case 'c':
 195              car=va_arg(argumentos, int);
 196              putchar( (char) car);
 197              break;
 198
 199    case 'x':
 200              i = va_arg(argumentos, unsigned int );
 201              printn_(i,16);
 202              break;
 203
 204    case 'd':
 205              i = va_arg(argumentos, unsigned int);
 206              printn_(i,10);
 207              break;
 208
 209    case 'o':
 210              i = va_arg(argumentos, unsigned int);
 211              printn_(i,8);
 212              break;
 213
 214    case 's':
 215              d = va_arg(argumentos, char *);
 216              puts(d);
 217              break;
 218
 219    default:
 220              putchar(*p);
 221              break;
 222   }
 223
 224  }
 225
 226  va_end(argumentos);
 227 }
 228
 229 void printn_ ( unsigned int num, int base)
 230 {
 231  unsigned int div;
 232  if ( (div=num/base) ) printn_(div,base);
 233  putchar( getascii_(num%base) );
 234 }
 235 */
 236 char getascii ( char c )
 237 {
 238  char valor = '0' + c;
 239
 240  if ( valor > '9' ) valor += 7;
 241  return valor;
 242 }
 243
 244