Verified Commit 60d53df2 authored by Camil Staps's avatar Camil Staps 🚀

Update to all the breaking changes

parent 5a261505
Pipeline #13595 passed with stage
in 59 seconds
......@@ -12,7 +12,7 @@ $(addsuffix .prj,$(BIN)): %.prj: %.prj.default
cp $^ $@
clean-compiler:
svn checkout -r 3022 https://svn.cs.ru.nl/repos/clean-compiler/branches/itask/ clean-compiler
svn checkout -r 3043 https://svn.cs.ru.nl/repos/clean-compiler/branches/itask/ clean-compiler
$(MAKE) -j -C clean-compiler/main/Unix
$(MAKE) -j -C clean-compiler/backendC/CleanCompilerSources -f Makefile.linux64
ln -s ../../backendC/CleanCompilerSources/backend.a clean-compiler/backend/Clean\ System\ Files/backend_library
......
......@@ -214,15 +214,15 @@ handleModule opts fp w
// Find properties
#! (comments,w) = scanComments fp w
#! (dcl,w) = readModule fp w
#! (modid,dcldefs,documentation) = case dcl of
#! (mod,dcldefs,documentation) = case dcl of
Error _ -> (abort "failed to parse module\n", [], emptyCollectedComments)
Ok (dcl,_) -> (dcl.mod_ident, dcl.mod_defs, case comments of
Ok (dcl,_) -> (dcl, dcl.mod_defs, case comments of
Error _ -> emptyCollectedComments
Ok comments -> collectComments comments dcl)
# moddoc = case parseDoc <$> getComment modid documentation of
# moddoc = case parseDoc <$> getComment mod documentation of
Just (Right (doc,_)) -> Just doc
_ -> Nothing
# modname = modid.id_name
# modname = mod.mod_ident.id_name
# output_modname = opts.output_prefix +++ "." +++ modname
# output_filename = opts.output_directory </> replaceSubString "." {pathSeparator} output_modname +++ ".icl"
# (nprops,coverage,props) = generatePropertyModule
......@@ -231,8 +231,10 @@ handleModule opts fp w
opts.test_options
moddoc
[(id.id_name,doc) \\
id <- [id \\ PD_Function pos id _ _ _ _ <- dcldefs] ++ [id \\ PD_TypeSpec pos id _ _ _ <- dcldefs],
Just docstring <- [getComment id documentation],
(pd,id) <-
[(pd,id) \\ pd=:(PD_Function pos id _ _ _ _) <- dcldefs] ++
[(pd,id) \\ pd=:(PD_TypeSpec pos id _ _ _) <- dcldefs],
Just docstring <- [getComment pd documentation],
Right (doc,_) <- [parseDoc docstring]]
// Write properties
| nprops == 0 = w
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment