Howto: Leer un único carácter (Readkey) en Ocaml

26 diciembre 2009 47 comentarios

Si hace unos días decía que al hacer programas básicos en Ocaml se echa de menos poder limpiar la pantalla hoy vengo a ofrecer la solución a otra de las funcionalidades perdidas: el Readkey de Pascal. Nuevamente haremos uso de las funciones de cada sistema operativo para solucionar ésto:

let readkey () = 
    if Sys.os_type="Unix" then 
	  begin	(*Leemos un carácter en modo silencioso*)
	    print_endline ("Presione una tecla para continuar...");
	    ignore (Sys.command ("read -n 1 -s"));
	  end	(*Se llama a la función Pause*)
    else if (Sys.os_type="Win32" || Sys.os_type="Win64" ||Sys.os_type="Cygwin") 
               then ignore (Sys.command ("Pause"));;
Anuncios
Categorías:Ocaml, Programacion Etiquetas: , ,

Howto: Limpiar la pantalla (clrscrn) en Ocaml

21 diciembre 2009 1 comentario

Una de las funciones que no trae por defecto OCaml es la de limpiar la salida de la consola; sin embargo, lo que sí que permite es llamar a funciones propias del sistema. Así pues lo podemos solucionar con ésto:

let limpiar_pantalla ()=
   (*Se llama a la función adecuada del sistema*)
   if Sys.os_type="Unix" then  ignore (Sys.command ("clear"))
   else if (Sys.os_type="Win32" || Sys.os_type="Win64" ||Sys.os_type="Cygwin")
         then ignore(Sys.command ("cls"));;

Esta función llama al comando “clear” si usamos Linux o Unix, o al comando “cls” si estamos utilizando un programa hecho con alguno de los compiladores que existen para Windows. No hará nada para cualquier otro.

Categorías:Ocaml, Programacion Etiquetas: , ,

hello, world

1 diciembre 2009 11 comentarios
main() {
    printf("hello, world\n");
}
Categorías:Presentación Etiquetas: