hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed the option HCL_TRAIT_LANG_ENABLE_BLOCK, thus removing conditional codes for simplicity.
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source 
changed the compiler to require a block expression as the class body
This commit is contained in:
hyung-hwan
2024-07-06 12:16:05 +09:00
parent 0befaf0a97
commit 6407d3c175
10 changed files with 64 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
pas/hcl.pas
View File

@ -16,13 +16,11 @@ type
BitMask = longword; (* this must match hcl_bitmask_t in hcl.h *)
(*const
TRAIT_LANG_ENABLE_EOF = (BitMask(1) shl 14);
TRAIT_LANG_ENABLE_BLOCK = (BitMask(1) shl 15);*)
TRAIT_LANG_ENABLE_EOL = (BitMask(1) shl 14); *)
type
TraitBit = ( (* this enum must follow hcl_trait_t in hcl.h *)
LANG_ENABLE_EOF = (BitMask(1) shl 14),
LANG_ENABLE_BLOCK = (BitMask(1) shl 15)
LANG_ENABLE_EOL = (BitMask(1) shl 14)
);
Option = ( (* this enum must follow hcl_option_t in hcl.h *)
@ -171,8 +169,9 @@ begin
raise Exception.Create(errmsg);
end;
if hcl_getoption(h, Option.TRAIT, @tb) <= -1 then tb := 0;
tb := BitMask(TraitBit.LANG_ENABLE_EOF) or BitMask(TraitBit.LANG_ENABLE_BLOCK);
tb := tb or BitMask(TraitBit.LANG_ENABLE_EOL);
if hcl_setoption(h, Option.TRAIT, @tb) <= -1 then begin
hcl_errnum_to_errbcstr(errnum, @errmsg, length(errmsg));
hcl_close(h);