Console Mode Pascal/es: what changed

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

Old	New		Line
1		-	~~## Contents~~
2		-
3		-	* 1 Programación con Pascal en modo consola
4		-	* 1.1 Iniciando el trabajo
5		-	* 1.1.1 Programar en modo consola sin Lazarus
6		-	* 1.1.2 Programar en modo consola con Lazarus
7		-	* 1.1.3 Programa personalizado
8		-	* 1.1.4 Programa
9		-	* 1.1.5 Aplicación de consola
10		-	* 1.2 Compilar
11		-	* 1.3 Ejecutar
12		-	* 1.4 Ejecutar desde el IDE
13		-	* 1.4.1 Ejecutar en el IDE con redirección de la salida
14		-	* 1.5 Salida en Unicode (UTF8)
15		-	* 1.6 Ejemplos
16		-	* 1.6.1 Ejecutando ordenes del _shell_
17		-	* 1.6.2 Ejemplo: actualizar FPC y Lazarus
18		-	* 1.7 Parámetros de la línea de órdenes
19		-
20	1		# Programación con Pascal en modo consola
21	2
22	3		por [User:Kirkpatc](</User:Kirkpatc> "User:Kirkpatc")
23	4
24	5		## Iniciando el trabajo
25	6
26	7		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	8
28	9		### Programar en modo consola sin Lazarus
29	10
30	11		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	12		```
32	13		fpc ejemplo.pas
33	14		```
34	15
35	16		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	17
37	18		### Programar en modo consola con Lazarus
38	19
39	20		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	21
41	22		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	23		```
43	24		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	25		```
45	26
46	27		### Programa personalizado
47	28
48	29		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	30
50	31		### Programa
51	32
52	33		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	34
54	35		Un ejemplo para principiantes:
55	36		```
56	37		program Proyecto1;
57	38		{$mode objfpc}{$H+}
58	39		uses
59	40		{$IFDEF UNIX}{$IFDEF UseCThreads}
60	41		cthreads,
61	42		{$ENDIF}{$ENDIF}
62	43		Classes
63	44		{ puedes añadir unidades trás esto};
64	45		begin
65	46		writeln('¡Hola Mundo!');
66	47		readln;
67	48		end.
68	49		```
69	50
70	51		### Aplicación de consola
71	52
72	53		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	54
74	55		## Compilar
75	56
76	57		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	58		```
78	59		El proyecto "project1" se ha construido correctamente. :)
79	60		```
80	61
81	62		## Ejecutar
82	63
83	64		¡Pero! ¿dónde está el programa?
84	65
85	66		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	67
87	68		Si hemos guardado el proyecto, el programa se creará en el mismo directorio donde hayamos guardado el archivo _lpi_ del proyecto.
88	69
89	70		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	71
91	72		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	73
93	74		## Ejecutar desde el IDE
94	75
95	76		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	77		```
97	78		"xterm: Can't execvp /usr/share/lazarus//tools/runwait.sh: Permission denied".
98	79		```
99	80
100	81		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	82
102	83		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	84
104	85		Desafortunadamente,este método no nos permite utilizar el depurador integrado.
105	86
106	87		#### Ejecutar en el IDE con redirección de la salida
107	88
108	89		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	90		```
110	91		uses
111	92		baseunix;
112	93
113	94		var
114	95		ArchivoSalida: text;
115	96		Resultado : integer;
116	97
117	98		begin
118	99		Assign(ArchivoSalida, 'ArchivoSalida.txt');
119	100		if FileExists('ArchivoSalida.txt') then
120	101		begin
121	102		Append(ArchivoSalida);
122	103		end
123	104		else
124	105		begin
125	106		Rewrite(ArchivoSalida); { abrir archivo para escritura, destruir contenido, en su caso }
126	107		end;
127	108
128	109		Resultado := fpdup(ArchivoSalida, output);
129	110
130	111		if Resultado < 0 then
131	112		begin
132	113		raise Exception.CreateFmt('duplicación fallida: %s', [Resultado]);
133	114		end;
134	115
135	116		Close( ArchivoSalida );
136	117		```
137	118
138	119		ArchivoSalida.txt se puede ver con 'tail -f ArchivoSalida.txt" o con un editor si 'tail' no está disponible en tu SO.
139	120
140	121		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	122
142	123		## Salida en Unicode (UTF8)
143	124
144	125		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	126
146	127		[![Note-icon.png](/wiki-images/b/be/Note-icon.png)](</File:Note-icon.png>)
147	128
148	129		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	130
150	131		[![Note-icon.png](/wiki-images/b/be/Note-icon.png)](</File:Note-icon.png>)
151	132
152	133		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	134
154	135		[![Note-icon.png](/wiki-images/b/be/Note-icon.png)](</File:Note-icon.png>)
155	136
156	137		Nota: necesitas incluir la unidad Windows.
157	138
158	139
159	140		Ver [[LCL Unicode Support/es\|Soporte Unicode en la LCL]] para más detalles sobre soporte Unicode en Lazarus y FPC.
160	141
161	142		Programa de ejemplo:
162	143		```
163	144		program uniconsole;
164	145
165	146		{$mode objfpc}{$H+}
166	147		{$APPTYPE CONSOLE}
167	148
168	149		uses
169	150		{$IFDEF UNIX}
170	151		{$IFDEF UseCThreads}
171	152		cthreads,
172	153		{$ENDIF}
173	154		{Widestring manager needed for widestring support}
174	155		cwstring,
175	156		{$ENDIF}
176	157		{$IFDEF WINDOWS}
177	158		Windows, {for setconsoleoutputcp}
178	159		{$ENDIF}
179	160		Classes
180	161		;
181	162
182	163		var
183	164		UTF8TestString: string;
184	165
185	166		begin
186	167		{$IFDEF WINDOWS}
187	168		SetConsoleOutputCP(CP_UTF8);
188	169		{$ENDIF}
189	170		UTF8TestString:= 'rosé, водка and ούζο';
190	171		writeln ('plain: ' + UTF8TestString);
191	172		{Apparently we don't need UTF8ToConsole for this
192	173		UTF8ToConsole did not do anything for me in fact.}
193	174		end.
194	175		```
195	176
196	177		## Ejemplos
197	178
198	179		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	180
200	181		### Ejecutando ordenes del _shell_
201	182
202	183		Este es un ejemplo para un _programa_ o un _programa personalizado_ :
203	184		```
204	185		Program ProbarShell;
205	186		uses classes, unix;
206	187		var S: longint;
207	188		begin
208	189		S := fpsystem ('/bin/ls -la .p'); //lista los archivos .pp, .pas, .php, .png, etc. en el directorio actual
209	190		writeln ('Programa terminado con estado: ', S)
210	191		end.
211	192		```
212	193
213	194		### Ejemplo: actualizar FPC y Lazarus
214	195
215	196		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	197		```
217	198		Program LazUpdate;
218	199		uses classes, unix;
219	200		var S : longint;
220	201		begin
221	202		S := fpsystem ('cd /usr/local/src/fpc/devel/fpc ; make clean');
222	203		S := fpsystem ('cd /usr/local/src/fpc/devel/lazarus ; make clean');
223	204		S := fpsystem ('cd /usr/local/src/fpc/devel ; svn update fpc >& ~/cvscheckout.log');
224	205		S := fpsystem ('cd /usr/local/src/fpc/devel ; svn update lazarus >& ~/cvslaz.log');
225	206		end.
226	207		```
227	208
228	209		Nota: la ejecución de la orden
229	210		```
230	211		fpsystem ('cd /un_direcorio')
231	212		```
232	213
233	214		seguida de
234	215		```
235	216		fpsystem ('hacer algo en ese directorio')
236	217		```
237	218
238	219		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	220
240	221		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	222		```
242	223		#!/bin/sh
243	224		cd /usr/local/src/fpc/devel
244	225		cd fpc
245	226		make clean
246	227		cd ..
247	228		cd lazarus
248	229		make clean
249	230		cd ..
250	231		svn up fpc >& ~/cvscheckout.log
251	232		svn up lazarus >& ~/cvslaz.log
252	233		```
253	234
254	235		Lo llamaremos _actualizarlaz.sh_ , y lo llamaremos desde el programa Pascal así:
255	236		```
256	237		Program LazUpdate1;
257	238		uses classes, unix;
258	239		var S : longint;
259	240		begin
260	241		S := fpsystem ('updatelaz.sh')
261	242		end.
262	243		```
263	244
264	245		## Parámetros de la línea de órdenes
265	246
266	247		Ver [[Command line parameters and environment variables/es\|Parámetros de la línea de órdenes y variables de entorno]].
267	248
268	249		* * *
269	250
270	251		[[Executing External Programs\|Ejecutando programas externos]]
271	252
272	253		---
273	254		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