Commit 5a24f945 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

removed docommand modules

parent 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 */
definition module docommand;
from StdString import String;
:: *DoCommandEnvironment :== Int;
DoCommandNullTerminated :: !String !DoCommandEnvironment -> (!Int,!DoCommandEnvironment);
#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
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);
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