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-compiler-and-rts
compiler
Commits
5a24f945
Commit
5a24f945
authored
May 09, 2001
by
Ronny Wichers Schreur
🏢
Browse files
removed docommand modules
parent
63cde425
Changes
4
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/docommand.c
deleted
100644 → 0
View file @
63cde425
typedef
struct
clean_string
{
int
length
;
char
chars
[
1
];
}
*
CleanString
;
# define Clean(ignore)
# include "docommand.h"
/*
Clean string
============
*/
extern
int
do_command
(
char
*
command
);
int
DoCommandNullTerminated
(
CleanString
command
)
{
return
(
docommand
(
command
->
chars
));
}
/* DoCommandNullTerminated */
backendC/CleanCompilerSources/docommand.dcl
deleted
100644 → 0
View file @
63cde425
definition
module
docommand
;
from
StdString
import
String
;
::
*
DoCommandEnvironment
:==
Int
;
DoCommandNullTerminated
::
!
String
!
DoCommandEnvironment
->
(!
Int
,!
DoCommandEnvironment
);
backendC/CleanCompilerSources/docommand.h
deleted
100644 → 0
View file @
63cde425
#pragma export on
Clean
(
::
*
DoCommandEnvironment
:==
Int
)
/* Clean (DoCommand command :== DoCommandNullTerminated (command +++ "\0")) */
Clean
(
DoCommandNullTerminated
::
String
DoCommandEnvironment
->
(
Int
,
DoCommandEnvironment
))
/* functions */
int
DoCommandNullTerminated
(
CleanString
command
);
Clean
(
DoCommandNullTerminated
::
String
DoCommandEnvironment
->
(
Int
,
DoCommandEnvironment
))
#pragma export off
backendC/CleanCompilerSources/docommand.icl
deleted
100644 → 0
View file @
63cde425
implementation
module
docommand
;
from
StdString
import
String
;
::
*
DoCommandEnvironment
:==
Int
;
DoCommandNullTerminated
::
!
String
!
DoCommandEnvironment
->
(!
Int
,!
DoCommandEnvironment
);
DoCommandNullTerminated
a0
a1
=
code {
ccall
DoCommandNullTerminated
"S:I:I"
}
// int DoCommandNullTerminated(CleanString);
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