Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
14e42114
Commit
14e42114
authored
Mar 21, 2003
by
Diederik van Arkel
Browse files
add NoReturnType for console app without result from Start rule
parent
57fb4ed0
Changes
4
Hide whitespace changes
Inline
Side-by-side
Ide/PmDialogues.icl
View file @
14e42114
...
...
@@ -243,13 +243,15 @@ where
:+:
RadioControl
[
(
"Basic Values Only"
,
Nothing
,
noPS
(\
l
->{
l
&
ao
=
{
l
.
ao
&
o
=
BasicValuesOnly
}}))
,
(
"Show Constructors"
,
Nothing
,
noPS
(\
l
->{
l
&
ao
=
{
l
.
ao
&
o
=
ShowConstructors
}}))
,
(
"No Return Type"
,
Nothing
,
noPS
(\
l
->{
l
&
ao
=
{
l
.
ao
&
o
=
NoReturnType
}}))
,
(
"No Console"
,
Nothing
,
noPS
(\
l
->{
l
&
ao
=
{
l
.
ao
&
o
=
NoConsole
}}))
]
(
Columns
1
)
(
case
ao
.
o
of
BasicValuesOnly
->
1
ShowConstructors
->
2
NoConsole
->
3
NoReturnType
->
3
NoConsole
->
4
)
[
ControlPos
(
Left
,
zero
)
]
...
...
Interfaces/LinkerInterface/WriteOptionsFile.icl
View file @
14e42114
...
...
@@ -28,9 +28,11 @@ where
|
memoryProfiling
=
32
=
0
cons
|
o
==
BasicValuesOnly
=
1
|
o
==
ShowConstructors
=
0
=
16
=
case
o
of
BasicValuesOnly
->
1
ShowConstructors
->
0
NoReturnType
->
16
NoConsole
->
16
FlagsToApplicationOptions
::
!
Int
!
ApplicationOptions
->
ApplicationOptions
;
FlagsToApplicationOptions
flags
applicationOptions
...
...
Pm/PmTypes.dcl
View file @
14e42114
...
...
@@ -127,6 +127,7 @@ DefApplicationOptions :: ApplicationOptions
::
Output
=
BasicValuesOnly
|
ShowConstructors
|
NoReturnType
|
NoConsole
instance
==
Output
...
...
Pm/PmTypes.icl
View file @
14e42114
...
...
@@ -325,7 +325,7 @@ DefApplicationOptions =
,
standard_rte
=
True
}
::
Output
=
BasicValuesOnly
|
ShowConstructors
|
NoConsole
::
Output
=
BasicValuesOnly
|
ShowConstructors
|
NoReturnType
|
NoConsole
instance
==
Output
where
...
...
@@ -334,6 +334,8 @@ where
=
True
(==)
ShowConstructors
ShowConstructors
=
True
(==)
NoReturnType
NoReturnType
=
True
(==)
NoConsole
NoConsole
=
True
(==)
_
_
...
...
@@ -346,6 +348,8 @@ where
=
BasicValuesOnly
fromString
"ShowConstructors"
=
ShowConstructors
fromString
"NoReturnType"
=
NoReturnType
fromString
"NoConsole"
=
NoConsole
fromString
string
...
...
@@ -358,6 +362,8 @@ where
=
"BasicValuesOnly"
toString
ShowConstructors
=
"ShowConstructors"
toString
NoReturnType
=
"NoReturnType"
toString
NoConsole
=
"NoConsole"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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