paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 19:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Christian Iversen to implement LIBPREFIX/SUFFIX/EXTENSION directives

Browse Source
This commit is contained in:
michael 2004-08-02 07:15:54 +00:00
parent ff069c5ecc
commit f897872df2
1 changed files with 49 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
compiler/scanner.pas
View File

@ -319,6 +319,46 @@ implementation
current_scanner.addpreprocstack(pp_ifopt,found,hs,scan_c_ifopt_found); current_scanner.addpreprocstack(pp_ifopt,found,hs,scan_c_ifopt_found);
end; end;
procedure dir_libprefix;
var
s : string;
begin
current_scanner.skipspace;
if c <> '''' then
Message2(scan_f_syn_expected, '''', c);
s := current_scanner.readquotedstring;
stringdispose(outputprefix);
outputprefix := stringdup(s);
with current_module do
setfilename(paramfn^, paramallowoutput);
end;
procedure dir_libsuffix;
var
s : string;
begin
current_scanner.skipspace;
if c <> '''' then
Message2(scan_f_syn_expected, '''', c);
s := current_scanner.readquotedstring;
stringdispose(outputsuffix);
outputsuffix := stringdup(s);
with current_module do
setfilename(paramfn^, paramallowoutput);
end;
procedure dir_extension;
var
s : string;
begin
current_scanner.skipspace;
if c <> '''' then
Message2(scan_f_syn_expected, '''', c);
s := current_scanner.readquotedstring;
outputextension := '.'+s;
with current_module do
setfilename(paramfn^, paramallowoutput);
end;
function parse_compiler_expr:string; function parse_compiler_expr:string;
@ -3163,10 +3203,13 @@ exit_label:
{ Default directives and conditionals for all modes } { Default directives and conditionals for all modes }
AddDirective('I',directive_all, {$ifdef FPCPROCVAR}@{$endif}dir_include); AddDirective('I',directive_all, {$ifdef FPCPROCVAR}@{$endif}dir_include);
{ Default Turbo directives and conditionals } { Common directives and conditionals }
AddDirective('DEFINE',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_define); AddDirective('DEFINE',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_define);
AddDirective('UNDEF',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_undef); AddDirective('UNDEF',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_undef);
AddDirective('INCLUDE',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_include); AddDirective('INCLUDE',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_include);
AddDirective('LIBPREFIX',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_libprefix);
AddDirective('LIBSUFFIX',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_libsuffix);
AddDirective('EXTENSION',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_extension);
AddConditional('ELSE',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_else); AddConditional('ELSE',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_else);
AddConditional('ELSEIF',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_elseif); AddConditional('ELSEIF',directive_turbo, {$ifdef FPCPROCVAR}@{$endif}dir_elseif);
@ -3196,7 +3239,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.83 2004-07-23 00:25:05 olle Revision 1.84 2004-08-02 07:15:54 michael
+ Patch from Christian Iversen to implement LIBPREFIX/SUFFIX/EXTENSION directives
Revision 1.83 2004/07/23 00:25:05 olle
+ Added compile time function OPTION(x) for MacPas + Added compile time function OPTION(x) for MacPas
* Saved file as text and not binary (I hope) * Saved file as text and not binary (I hope)