[stupid-crypto] 2 new revisions pushed by b.clifford on 2010-03-29 20:12 GMT

[stupid...@googlecode.com]

2 new revisions:

Revision: 37230ab101
Author: Ben Clifford <be...@hawaga.org.uk>
Date: Mon Mar 29 12:45:05 2010
Log: makes ostream-variable.stupid work in Haskell
http://code.google.com/p/stupid-crypto/source/detail?r=37230ab101

Revision: 615b383aaf
Author: Ben Clifford <be...@hawaga.org.uk>
Date: Mon Mar 29 13:11:09 2010
Log: Another ostream test that breaks in both C and Haskell
http://code.google.com/p/stupid-crypto/source/detail?r=615b383aaf

==============================================================================
Revision: 37230ab101
Author: Ben Clifford <be...@hawaga.org.uk>
Date: Mon Mar 29 12:45:05 2010
Log: makes ostream-variable.stupid work in Haskell
http://code.google.com/p/stupid-crypto/source/detail?r=37230ab101

Modified:
/src/Stupid/Haskell.pm

=======================================
--- /src/Stupid/Haskell.pm Mon Mar 29 09:37:10 2010
+++ /src/Stupid/Haskell.pm Mon Mar 29 12:45:05 2010
@@ -34,10 +34,11 @@
my $self = shift;

$self->{function}->emitCall();
- print '(';
+ print ' ';
# $self->{function}->maybeAddSelf(); # do we ever need this? perhaps
not... where is it used? for object-style invocations only, I think, and in
those, the self is passed through a different syntax
$self->{args}->emitParameters();
- print ");\n";
+ # whats happening for return parameters here?
+ print " ;\n";
}

## FUNCTODO
@@ -497,6 +498,12 @@
print $self->{name};
print ') ';
}
+
+# is this for the left or the right? what we output varies in Haskell...
+sub Stupid::Variable::emitParameter {
+ my $self = shift;
+ $self->emitCode();
+}

sub Stupid::Type::UInt32::emitHaskellType {
my $self = shift;

==============================================================================
Revision: 615b383aaf
Author: Ben Clifford <be...@hawaga.org.uk>
Date: Mon Mar 29 13:11:09 2010
Log: Another ostream test that breaks in both C and Haskell
http://code.google.com/p/stupid-crypto/source/detail?r=615b383aaf

Added:
/test/ostream-funccall.stupid

=======================================
--- /dev/null
+++ /test/ostream-funccall.stupid Mon Mar 29 13:11:09 2010
@@ -0,0 +1,11 @@
+"EXPECT:A";
+
+function (uint8 l)k() {
+ l=65;
+}
+
+function (ostream o) test() {
+ uint8 x=k();
+ o.put(x);
+}
+