Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
curry
curry-frontend
Commits
a286178c
Commit
a286178c
authored
May 06, 2011
by
Björn Peemöller
Browse files
Build failures solved
parent
b7bb161e
Changes
4
Hide whitespace changes
Inline
Side-by-side
.gitignore
0 → 100644
View file @
a286178c
dist/
src/CurryBuilder.hs
View file @
a286178c
...
...
@@ -43,13 +43,13 @@ makeCurry opts deps1 targetFile = mapM_ (compile . snd) deps1 where
compile
(
Interface
_
)
=
return
()
compile
Unknown
=
return
()
compile
(
Source
file
mods
)
=
compile
(
Source
file
mods
)
-- target file
|
dropExtension
targetFile
==
dropExtension
file
=
do
flatIntfExists
<-
doesModuleExist
(
flatIntName
file
)
if
flatIntfExists
&&
not
(
force
opts
)
&&
null
(
dump
opts
)
then
smake
(
targetNames
file
)
(
f
ile
'
:
(
catMaybes
(
map
flatInterface
mods
)))
(
targetF
ile
:
(
catMaybes
(
map
flatInterface
mods
)))
(
generateFile
file
)
(
skipFile
file
)
else
generateFile
file
...
...
src/Html/CurryHtml.hs
View file @
a286178c
...
...
@@ -9,6 +9,7 @@ import Curry.Files.PathUtils
(
readModule
,
writeModule
,
getCurryPath
,
dropExtension
,
takeFileName
)
import
Curry.Syntax
(
lexFile
)
import
CurryCompilerOpts
(
Options
(
..
))
import
Frontend
(
parse
,
typingParse
,
fullParse
)
import
Html.SyntaxColoring
...
...
@@ -16,7 +17,7 @@ import Html.SyntaxColoring
--- @param outputfilename
--- @param sourcefilename
source2html
::
Options
->
String
->
IO
()
source2html
imports
outputfilename
sourcefilename
=
do
source2html
opts
sourcefilename
=
do
let
imports
=
importPaths
opts
outputfilename
=
fromMaybe
""
$
output
opts
sourceprogname
=
dropExtension
sourcefilename
...
...
@@ -125,19 +126,19 @@ replace :: Char -> String -> String -> String
replace
old
new
=
foldr
(
\
x
->
if
x
==
old
then
(
new
++
)
else
([
x
]
++
))
""
addHtmlAnchor
::
String
->
QualIdent
->
String
addHtmlAnchor
html
qualIdent
=
"<a name=
\"
"
++
addHtmlAnchor
str
qualIdent
=
"<a name=
\"
"
++
string2urlencoded
(
show
(
unqualify
qualIdent
))
++
"
\"
></a>"
++
html
"
\"
></a>"
++
str
addHtmlLink
::
String
->
QualIdent
->
String
addHtmlLink
html
qualIdent
=
addHtmlLink
str
qualIdent
=
let
(
maybeModIdent
,
ident
)
=
(
qualidMod
qualIdent
,
qualidId
qualIdent
)
in
"<a href=
\"
"
++
maybe
""
(
\
x
->
show
x
++
"_curry.html"
)
maybeModIdent
++
"#"
++
string2urlencoded
(
show
ident
)
++
"
\"
>"
++
html
++
str
++
"</a>"
isCall
::
Code
->
Bool
...
...
src/cymake.hs
View file @
a286178c
...
...
@@ -8,7 +8,7 @@
-}
module
Main
(
main
)
where
import
Data.Maybe
(
fromMaybe
,
isJust
)
import
Data.Maybe
(
isJust
)
import
System.Environment
(
getArgs
,
getProgName
)
import
CurryBuilder
(
buildCurry
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment