paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: version 0.8.45

Browse Source 
git-svn-id: trunk@38026 -
This commit is contained in:
Mattias Gaertner 2018-01-23 22:27:11 +00:00
parent b028dcdce1
commit eb5990882e
2 changed files with 26 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
packages/pastojs/src/pas2jscompiler.pp
View File

@ -29,7 +29,7 @@ uses
const
VersionMajor = 0;
VersionMinor = 8;
VersionRelease = 44;
VersionRelease = 45;
VersionExtra = '+beta';
DefaultConfigFile = 'pas2js.cfg';
@ -364,8 +364,7 @@ type
procedure SetTargetPlatform(const AValue: TPasToJsPlatform);
procedure SetTargetProcessor(const AValue: TPasToJsProcessor);
protected
// If this function returns true, the compiler assumes the file was written.
// If false, the compiler will attempt to write the file itself.
// DoWriteJSFile: return false to use the default write function.
function DoWriteJSFile(const DestFilename: String; aWriter: TPas2JSMapper): Boolean; virtual;
procedure Compile(StartTime: TDateTime);
function MarkNeedBuilding(aFile: TPas2jsCompilerFile; Checked: TAVLTree;
@ -2333,6 +2332,14 @@ begin
inc(p);
case c of
'c': FileCache.AllJSIntoMainJS:=p^<>'-';
'e':
begin
Identifier:=NormalizeEncoding(String(p));
case Identifier of
'console','system','utf8': Log.Encoding:=Identifier;
else ParamFatal('invalid encoding "'+String(p)+'"');
end;
end;
'i':
if p^=#0 then
ParamFatal('missing insertion file: '+Param)
@ -2389,14 +2396,18 @@ begin
if not Quick then
if not FileCache.AddSrcUnitPaths(String(p),FromCmdLine,ErrorMsg) then
ParamFatal('invalid foreign unit path "'+ErrorMsg+'"');
'e':
{$IFDEF EnablePas2jsPrecompiled}
'U':
begin
Identifier:=NormalizeEncoding(String(p));
case Identifier of
'console','system','utf8': Log.Encoding:=Identifier;
else ParamFatal('invalid encoding "'+String(p)+'"');
Value:=String(p);
if (Value='') or SameText(Value,PrecompiledExt) then
begin
end
else
ParamFatal('invalid precompile output format -JU"'+Value+'"');;
end;
end
{$ENDIF}
else UnknownParam;
end;
end;
@ -3170,8 +3181,9 @@ begin
l(' -Jminclude : include Pascal sources in source map.');
l(' -Jm- : disable generating source maps');
l(' -Ju<x> : Add <x> to foreign unit paths. Foreign units are not compiled.');
//l(' -Jg<x> : Add <x> to group paths. A "-" starts a new group.');
//l(' -JU<x> : Set unit output path of current group to <y>');
{$IFDEF EnablePas2jsPrecompiled}
l(' -JU : Create precompiled units in '+PrecompiledExt+' format.');
{$ENDIF}
l(' -l : Write logo');
l(' -MDelphi: Delphi 7 compatibility mode');
l(' -MObjFPC: FPC''s Object Pascal compatibility mode (default)');

3
packages/pastojs/src/pas2jsfilecache.pp
View File

@ -22,6 +22,9 @@ const // Messages
nSearchingFileFound = 203; sSearchingFileFound = 'Searching file: %s... found';
nSearchingFileNotFound = 204; sSearchingFileNotFound = 'Searching file: %s... not found';
const
PrecompiledExt = 'pju';
type
EPas2jsFileCache = class(Exception);