program empaquetar;

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,
  upreprocesador, uActores,
  uempaquetar,
  SysUtils, uevaluador;

{$R *.res}

procedure Ayuda;
begin
  writeln('Sintaxis : ' );
  writeln('  empaquetar archivo_sala ' );
  halt( 1 );
end;

var
  archi: String;

begin
  if ParamCount <> 1 then Ayuda;
  archi:= ParamStr( 1 );
  if not fileExists( archi ) then Ayuda;
  writeln( 'genrando: '+  EmpaquetarSalaEnZip( archi, nil ) );
end.

