Console Mode Pascal/es: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Contents
2	2
3	3		* 1 Programación con Pascal en modo consola
4	4		* 1.1 Iniciando el trabajo
5	5		* 1.1.1 Programar en modo consola sin Lazarus
6	6		* 1.1.2 Programar en modo consola con Lazarus
7	7		* 1.1.3 Programa personalizado
8	8		* 1.1.4 Programa
9	9		* 1.1.5 Aplicación de consola
10	10		* 1.2 Compilar
11	11		* 1.3 Ejecutar
12	12		* 1.4 Ejecutar desde el IDE
13	13		* 1.4.1 Ejecutar en el IDE con redirección de la salida
14	14		* 1.5 Salida en Unicode (UTF8)
15	15		* 1.6 Ejemplos
16	16		* 1.6.1 Ejecutando ordenes del _shell_
17	17		* 1.6.2 Ejemplo: actualizar FPC y Lazarus
18	18		* 1.7 Parámetros de la línea de órdenes
19	19
20	20		# Programación con Pascal en modo consola
21	21
22	22		por [User:Kirkpatc](</User:Kirkpatc> "User:Kirkpatc")
23	23
24	24		## Iniciando el trabajo
25	25
26	26		Muchos de nosotros escribíamos programas en Pascal mucho antes de que los interfaces gráficos de usuario (GUIs) y los entornos de desarrollo integrados (IDEs) se pusieran de moda. Muchos otros son principiantes en programación en Pascal y necesitan poder probar las herramientas básicas del lenguaje. Otros necesitan escribir aplicaciones de consola o en modo de texto para realizar tareas complejas de control del sistema.
27	27
28	28		### Programar en modo consola sin Lazarus
29	29
30	30		A pesar de que muchos prefieren usar el IDE de Lazarus para escribir programas en modo consola, también podemos escribirlos con cualquier editor de texto y compilarlos llamando nosotros al compilador FPC, por ejemplo para el programa ejemplo.pas:
31	31		```
32	32		fpc ejemplo.pas
33	33		```
34	34
35	35		Además disponemos del IDE en modo de texto' 'fp _(que se parece bastante al viejo IDE de Turbo Pascal)._ En las secciones siguientes nos centraremos en la programación con Lazarus.
36	36
37	37		### Programar en modo consola con Lazarus
38	38
39	39		Lazarus dispone de un entorno ideal para aprender Pascal, y para desarrollar programas en modo texto. Todas las funcionalidades del IDE se pueden utilizar, incluyendo el editor de código con su resaltado de sintaxis, acceso a las librerías, búsquedas complejas y herramientas de completado de código y comprobación de sintaxis. Si no se quiere un formulario con componentes visuales no es necesario tenerlo, pero el editor de Lazarus es un gran entorno para desarrollar programas. Puedes compilar y ejecutar programas durante el desarrollo, sin abandonar el Editor.
40	40
41	41		Para dar inicio a un programa en modo consola, hay que ir al Menú principal y en la opción Proyecto seleccionar Nuevo Proyecto ... y en la ventana que aparece seleccionar Programa , Aplicación de consola o Programa personalizado. El IDE no generará todos los ficheros que están asociados con una aplicación gráfica completa, tampoco abrirá la ventana del Inspector de objetos y sí abrirá el Editor de código con el esqueleto del programa, a a la espera de que introduzcamos nuestro código.
42	42		```
43	43		Nota : En windows una aplicación gŕafica no dispone de consola y por tanto no podemos utilizar writeln ni readln , ya que obtendremos el error _File not open_. Desmarca en _Proyecto / Opciones de Proyecto... / Opciones del Compilador / Enlazado / Opciones específicas del SO objetivo /Aplicación gráfica Win32 (-WG)_ para crear una aplicación de consola.
44	44		```
45	45
46	46		### Programa personalizado
47	47
48	48		Un programa Pascal muy sencillo. Seleccionaremos esta opción si queremos hacerlo todo nosotros o para realizar algunas pruebas rápidas y eliminar los ficheros a continuación.
49	49
50	50		### Programa
51	51
52	52		Parecido al anterior, pero el IDE nos ayudará más. Por ejemplo cuándo añadimos un unidad el IDE automáticamente añade el nombre de la unidad en la sección uses. Este comportamiento está definido en las opciones de proyecto. Así podemos alternar entre los tipos _Programa_ y _Programa personalizado_ en cualquier momento.
53	53
54	54		Un ejemplo para principiantes:
55	55		```
56	56		program Proyecto1;
57	57		{$mode objfpc}{$H+}
58	58		uses
59	59		{$IFDEF UNIX}{$IFDEF UseCThreads}
60	60		cthreads,
61	61		{$ENDIF}{$ENDIF}
62	62		Classes
63	63		{ puedes añadir unidades trás esto};
64	64		begin
65	65		writeln('¡Hola Mundo!');
66	66		readln;
67	67		end.
68	68		```
69	69
70	70		### Aplicación de consola
71	71
72	72		Esta opción creará un programa con una nueva clase derivada de TCustomApplication, la cual proporciona gran parte de la funcionalidad común y convierte la programación en línea de comando en algo muy fácil. Por ejemplo comprobando los parámetros pasados en la línea de comando, escribiendo ayudas, comprobando las variables de entorno y gestionado las excepciones. Todos los programas de la LCL utilizan esta funcionalidad automáticamente.
73	73
74	74		## Compilar
75	75
76	76		Una vez finalizado el programa (o una parte del mismo) lo podemos compilar y ejecutar con la opción Ejecutar > Ejecutar del menú principal, pulsando sobre el triangulo verde del panel de botones o con la tecla F9. Todos los mensajes de compilación ( avisos, informes de progreso o errores) aparecerán en la ventana de Mensajes, y con suerte eventualmente veremos un único mensaje que diga:
77	77		```
78	78		El proyecto "project1" se ha construido correctamente. :)
79	79		```
80	80
81	81		## Ejecutar
82	82
83	83		¡Pero! ¿dónde está el programa?
84	84
85	85		Si no hemos guardado el proyecto, el IDE lo pone el el directorio temporal del sistema (/tmp en linux, C:\temp en windows, ver Entorno > Opciones del Entorno > Directorio para construir proyectos de prueba).
86	86
87	87		Si hemos guardado el proyecto, el programa se creará en el mismo directorio donde hayamos guardado el archivo _lpi_ del proyecto.
88	88
89	89		Podemos ejecutar el programa desde una consola (terminal), utilizando un cd para cambiar al directorio deseado y escribir el nombre del programa. En *nix probablemente tengamos que escribir _./Nombredelprograma_ , ya que no se encuentra en la ruta por defecto (PATH).
90	90
91	91		Ir de la consola al IDE y viceversa puede ser un poco tedioso. Por suerte hay una forma de abrir la ventana del terminal directamente desde el IDE de Lazarus.
92	92
93	93		## Ejecutar desde el IDE
94	94
95	95		Desde el menú principal seleccionar Ejecutar > Parámetros de ejecución ..., y en el cuadro de diálogo, marcar "Usar al lanzar la aplicación". La primera vez que se lanza un programa, con la secuencia compilar/ejecutar, es probable que obtengamos este mensaje
96	96		```
97	97		"xterm: Can't execvp /usr/share/lazarus//tools/runwait.sh: Permission denied".
98	98		```
99	99
100	100		Si sucede esto, necesitaremos cambiar los permisos en el archivo apropiado (por ejemplo usando chmod +x nombredelejecutable, o usar la utilidad de Windows para cambiar los permisos); es probable que tengamos que hacer esta operación como administrador. Tras esto cada vez que lancemos nuestro programa aparecerá una ventana de consola y toda la entrada/salida de programa se mostrará en ella
101	101
102	102		Una vez terminada la ejecución de nuestro programa, aparecerá un mensaje de "Press enter" en la consola. Así toda la salida generada por el programa permanecerá en la pantalla para tener la posibilidad de leerla; la ventana de la consola se cerrará tras pulsar 'enter'.
103	103
104	104		Desafortunadamente,este método no nos permite utilizar el depurador integrado.
105	105
106	106		#### Ejecutar en el IDE con redirección de la salida
107	107
108	108		Si quieres ver lo que se escribe en la salida estándar y deseas utilizar el depurador integrado, _stdout_ se puede redirigir a un archivo con el siguiente código:
109	109		```
110	110		uses
111	111		baseunix;
112	112
113	113		var
114	114		ArchivoSalida: text;
115	115		Resultado : integer;
116	116
117	117		begin
118	118		Assign(ArchivoSalida, 'ArchivoSalida.txt');
119	119		if FileExists('ArchivoSalida.txt') then
120	120		begin
121	121		Append(ArchivoSalida);
122	122		end
123	123		else
124	124		begin
125	125		Rewrite(ArchivoSalida); { abrir archivo para escritura, destruir contenido, en su caso }
126	126		end;
127	127
128	128		Resultado := fpdup(ArchivoSalida, output);
129	129
130	130		if Resultado < 0 then
131	131		begin
132	132		raise Exception.CreateFmt('duplicación fallida: %s', [Resultado]);
133	133		end;
134	134
135	135		Close( ArchivoSalida );
136	136		```
137	137
138	138		ArchivoSalida.txt se puede ver con 'tail -f ArchivoSalida.txt" o con un editor si 'tail' no está disponible en tu SO.
139	139
140	140		Por otra parte, utilizando Lazarus 0.9.31 o superior (sólo en Linux): En el menú "Ver", en "Debug Windows" hay una entrada para "Salida de la consola" para ver la salida _stdout_.
141	141
142	142		## Salida en Unicode (UTF8)
143	143
144	144		Si quieres que tu programa en modo consola muestre la salida en Unicode (UTF-8) en Windows Vista y superior (y tal vez en las versiones anteriores), puedes utilizar el comando SetConsoleOutputCP para activar en la consola el juego de caracteres UTF-8.
145	145
146	146		[![Note-icon.png](/wiki-images/b/be/Note-icon.png)](</File:Note-icon.png>)
147	147
148	148		Nota: Trás la ejcución del programa, la consola se comporta extrañamente en mi sistema: la introducción de comandos y la escritura no muestran resultados: ningún comando ejecutado, ningún error, nada. ¿Tal vez la consola necesita ser cambiada de nuevo? Lo he intentado también, pero parecía dar el mismo resultado. \--[BigChimp](</User:BigChimp> "User:BigChimp") 17:15, 28 June 2012 (UTC)
149	149
150	150		[![Note-icon.png](/wiki-images/b/be/Note-icon.png)](</File:Note-icon.png>)
151	151
152	152		Nota: tendrás que asegurarte de que la fuente de la consola puede mostrar las letras que desea en la salida (por ejemplo, griego, cirílico, coreano)..
153	153
154	154		[![Note-icon.png](/wiki-images/b/be/Note-icon.png)](</File:Note-icon.png>)
155	155
156	156		Nota: necesitas incluir la unidad Windows.
157	157
158	158
159	159		Ver [[LCL Unicode Support/es\|Soporte Unicode en la LCL]] para más detalles sobre soporte Unicode en Lazarus y FPC.
160	160
161	161		Programa de ejemplo:
162	162		```
163	163		program uniconsole;
164	164
165	165		{$mode objfpc}{$H+}
166	166		{$APPTYPE CONSOLE}
167	167
168	168		uses
169	169		{$IFDEF UNIX}
170	170		{$IFDEF UseCThreads}
171	171		cthreads,
172	172		{$ENDIF}
173	173		{Widestring manager needed for widestring support}
174	174		cwstring,
175	175		{$ENDIF}
176	176		{$IFDEF WINDOWS}
177	177		Windows, {for setconsoleoutputcp}
178	178		{$ENDIF}
179	179		Classes
180	180		;
181	181
182	182		var
183	183		UTF8TestString: string;
184	184
185	185		begin
186	186		{$IFDEF WINDOWS}
187	187		SetConsoleOutputCP(CP_UTF8);
188	188		{$ENDIF}
189	189		UTF8TestString:= 'rosé, водка and ούζο';
190	190		writeln ('plain: ' + UTF8TestString);
191	191		{Apparently we don't need UTF8ToConsole for this
192	192		UTF8ToConsole did not do anything for me in fact.}
193	193		end.
194	194		```
195	195
196	196		## Ejemplos
197	197
198	198		Podemos utilizar Lazarus para probar todos los ejemplos que encontremos en libros de Pascal estándar, o podemos escribirlos de nuestra cosecha. Muchos de los procedimientos más útiles son aquellos que nos permiten ejecutar ordenes del sistema o lanzar la ejecución de otros programas, que pueden estar escritos en Pascal, C o Perl , o incluso pueden ser _shell_ o rutinas de proceso por lotes (_batch scripts_)
199	199
200	200		### Ejecutando ordenes del _shell_
201	201
202	202		Este es un ejemplo para un _programa_ o un _programa personalizado_ :
203	203		```
204	204		Program ProbarShell;
205	205		uses classes, unix;
206	206		var S: longint;
207	207		begin
208	208		S := fpsystem ('/bin/ls -la .p'); //lista los archivos .pp, .pas, .php, .png, etc. en el directorio actual
209	209		writeln ('Programa terminado con estado: ', S)
210	210		end.
211	211		```
212	212
213	213		### Ejemplo: actualizar FPC y Lazarus
214	214
215	215		Podemos ejecutar ordenes algo más complejas. Por ejemplo, si usted ha comprobado los repositorios de SVN para FPC y Lazarus (ver [construyendo FPC](<http://www.stack.nl/~marcov/buildfaq.pdf>)) podemos mantener los archivos fuente de FPC y de Lazarus actualizados mediante la recuperación desde el repositorio de SVN con la siguiente secuencia de ordenes:
216	216		```
217	217		Program LazUpdate;
218	218		uses classes, unix;
219	219		var S : longint;
220	220		begin
221	221		S := fpsystem ('cd /usr/local/src/fpc/devel/fpc ; make clean');
222	222		S := fpsystem ('cd /usr/local/src/fpc/devel/lazarus ; make clean');
223	223		S := fpsystem ('cd /usr/local/src/fpc/devel ; svn update fpc >& ~/cvscheckout.log');
224	224		S := fpsystem ('cd /usr/local/src/fpc/devel ; svn update lazarus >& ~/cvslaz.log');
225	225		end.
226	226		```
227	227
228	228		Nota: la ejecución de la orden
229	229		```
230	230		fpsystem ('cd /un_direcorio')
231	231		```
232	232
233	233		seguida de
234	234		```
235	235		fpsystem ('hacer algo en ese directorio')
236	236		```
237	237
238	238		no funcionará según queremos, ya que tras la llamada a la función _fpsystem_ el programa sigue en el directorio en que se encontraba previamente a la misma; será necesario incluir múltiples órdenes en cada línea de llamada al sistema.
239	239
240	240		Por supuesto, no hay que poner cada orden como una línea separada, podemos crear un archivo de proceso por loets como este (de [fpc _buildfaq_](<http://www.stack.nl/~marcov/buildfaq.pdf>)):
241	241		```
242	242		#!/bin/sh
243	243		cd /usr/local/src/fpc/devel
244	244		cd fpc
245	245		make clean
246	246		cd ..
247	247		cd lazarus
248	248		make clean
249	249		cd ..
250	250		svn up fpc >& ~/cvscheckout.log
251	251		svn up lazarus >& ~/cvslaz.log
252	252		```
253	253
254	254		Lo llamaremos _actualizarlaz.sh_ , y lo llamaremos desde el programa Pascal así:
255	255		```
256	256		Program LazUpdate1;
257	257		uses classes, unix;
258	258		var S : longint;
259	259		begin
260	260		S := fpsystem ('updatelaz.sh')
261	261		end.
262	262		```
263	263
264	264		## Parámetros de la línea de órdenes
265	265
266	266		Ver [[Command line parameters and environment variables/es\|Parámetros de la línea de órdenes y variables de entorno]].
267	267
268	268		* * *
269	269
270	270		[[Executing External Programs\|Ejecutando programas externos]]
271	271
272	272		---
273		-	From the Free Pascal wiki, page "Console Mode Pascal/es", as the Internet Archive kept it on 2025-02-19. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
	273	+	From the Free Pascal wiki, page "Console Mode Pascal/es", as the Internet Archive kept it on 2025-02-19, last changed on 2020-02-12. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history