[Gd-chatter] r11066 - trunk/src/common/common-dylan
agent at gwydiondylan.org
agent at gwydiondylan.org
Wed Dec 13 09:24:44 CET 2006
Author: agent
Date: Wed Dec 13 09:24:41 2006
New Revision: 11066
Modified:
trunk/src/common/common-dylan/common-dylan-exports.dylan
trunk/src/common/common-dylan/extensions.dylan
Log:
Job: minor
De-tabbed files and aligned indentation.
Modified: trunk/src/common/common-dylan/common-dylan-exports.dylan
==============================================================================
--- trunk/src/common/common-dylan/common-dylan-exports.dylan (original)
+++ trunk/src/common/common-dylan/common-dylan-exports.dylan Wed Dec 13 09:24:41 2006
@@ -124,17 +124,17 @@
$maximum-double-float-exponent,
$minimum-extended-float-exponent,
$maximum-extended-float-exponent,
- false-or,
- one-of,
- subclass,
- <format-string-condition>, <simple-condition>,
- ignore,
- difference,
+ false-or,
+ one-of,
+ subclass,
+ <format-string-condition>, <simple-condition>,
+ ignore,
+ difference,
concatenate!,
- register-application-exit-function,
- <stretchy-sequence>,
- <object-deque>,
- <stretchy-object-vector>,
+ register-application-exit-function,
+ <stretchy-sequence>,
+ <object-deque>,
+ <stretchy-object-vector>,
<byte-character>,
<byte-vector>};
use %Hash-Tables,
@@ -144,7 +144,7 @@
use c-support;
use simple-profiling,
export: { \profiling,
- profiling-type-result };
+ profiling-type-result };
create
<closable-object>,
@@ -219,7 +219,7 @@
#if (~mindy)
export
- \table,
+ \table,
\table-definer,
\iterate,
\when;
@@ -255,13 +255,13 @@
export: all;
// Conditions
create <stream-error>,
- stream-error-stream,
+ stream-error-stream,
<end-of-stream-error>,
- <incomplete-read-error>,
- stream-error-sequence,
- stream-error-count,
- <incomplete-write-error>,
- stream-error-count;
+ <incomplete-read-error>,
+ stream-error-sequence,
+ stream-error-count,
+ <incomplete-write-error>,
+ stream-error-count;
// Opening streams
create open-file-stream;
// Reading from streams
@@ -302,7 +302,7 @@
export: all;
create <locator-defaults>,
<server-locator>,
- <physical-locator>;
+ <physical-locator>;
end module functional-objects-extras;
define module common-dylan-internals
Modified: trunk/src/common/common-dylan/extensions.dylan
==============================================================================
--- trunk/src/common/common-dylan/extensions.dylan (original)
+++ trunk/src/common/common-dylan/extensions.dylan Wed Dec 13 09:24:41 2006
@@ -41,7 +41,7 @@
end function;
define inline function unfound? (object :: <object>)
- => (unfound? :: <boolean>)
+ => (unfound? :: <boolean>)
object == unfound();
end function;
@@ -189,66 +189,66 @@
for (i :: <integer> from start below _end)
let char :: <character> = string[i];
let digit :: false-or(<integer>)
- = select (char)
- '-' =>
- if (i = start)
- negative? := #t;
- elseif (valid?)
- return(if (negative?) - integer else integer end, i);
+ = select (char)
+ '-' =>
+ if (i = start)
+ negative? := #t;
+ elseif (valid?)
+ return(if (negative?) - integer else integer end, i);
elseif (supplied?(default))
- return(default, i);
+ return(default, i);
else
error("not a valid integer");
- end if;
- #f;
- '+' =>
- if (i = start)
+ end if;
+ #f;
+ '+' =>
+ if (i = start)
negative? := #f;
- elseif (valid?)
- return(if (negative?) - integer else integer end, i);
+ elseif (valid?)
+ return(if (negative?) - integer else integer end, i);
elseif (supplied?(default))
- return(default, i);
+ return(default, i);
else
error("not a valid integer");
- end if;
- #f;
- '0' => 0;
- '1' => 1;
- '2' => 2;
- '3' => 3;
- '4' => 4;
- '5' => 5;
- '6' => 6;
- '7' => 7;
- '8' => 8;
- '9' => 9;
- 'A', 'a' => 10;
- 'B', 'b' => 11;
- 'C', 'c' => 12;
- 'D', 'd' => 13;
- 'E', 'e' => 14;
- 'F', 'f' => 15;
- 'G', 'g' => 16;
- 'H', 'h' => 17;
- 'I', 'i' => 18;
- 'J', 'j' => 19;
- 'K', 'k' => 20;
- 'L', 'l' => 21;
- 'M', 'm' => 22;
- 'N', 'n' => 23;
- 'O', 'o' => 24;
- 'P', 'p' => 25;
- 'Q', 'q' => 26;
- 'R', 'r' => 27;
- 'S', 's' => 28;
- 'T', 't' => 29;
- 'U', 'u' => 30;
- 'V', 'v' => 31;
- 'W', 'w' => 32;
- 'X', 'x' => 33;
- 'Y', 'y' => 34;
- 'Z', 'z' => 35;
- otherwise =>
+ end if;
+ #f;
+ '0' => 0;
+ '1' => 1;
+ '2' => 2;
+ '3' => 3;
+ '4' => 4;
+ '5' => 5;
+ '6' => 6;
+ '7' => 7;
+ '8' => 8;
+ '9' => 9;
+ 'A', 'a' => 10;
+ 'B', 'b' => 11;
+ 'C', 'c' => 12;
+ 'D', 'd' => 13;
+ 'E', 'e' => 14;
+ 'F', 'f' => 15;
+ 'G', 'g' => 16;
+ 'H', 'h' => 17;
+ 'I', 'i' => 18;
+ 'J', 'j' => 19;
+ 'K', 'k' => 20;
+ 'L', 'l' => 21;
+ 'M', 'm' => 22;
+ 'N', 'n' => 23;
+ 'O', 'o' => 24;
+ 'P', 'p' => 25;
+ 'Q', 'q' => 26;
+ 'R', 'r' => 27;
+ 'S', 's' => 28;
+ 'T', 't' => 29;
+ 'U', 'u' => 30;
+ 'V', 'v' => 31;
+ 'W', 'w' => 32;
+ 'X', 'x' => 33;
+ 'Y', 'y' => 34;
+ 'Z', 'z' => 35;
+ otherwise =>
if (valid?)
return(if (negative?) - integer else integer end, i);
elseif (supplied?(default))
@@ -256,18 +256,18 @@
else
error("not a valid integer");
end if;
- end select;
+ end select;
if (digit)
- if(digit < base)
- integer := integer * base + digit;
+ if(digit < base)
+ integer := integer * base + digit;
valid? := #t;
- elseif (valid?)
- return(if (negative?) - integer else integer end, i);
+ elseif (valid?)
+ return(if (negative?) - integer else integer end, i);
elseif(supplied?(default))
return(default, i);
else
error("not a valid integer");
- end if;
+ end if;
end if;
end for;
@@ -298,12 +298,12 @@
// let my-table = table(<string-table>, "red"=>"stop", "green"=>"go");
define macro table
- // Matches when optional class included.
+ // Matches when optional class included.
{ table(?table-class:expression, ?table-contents) }
=> { let ht = make(?table-class); ?table-contents; ht; }
- // Matches without optional class.
- { table(?rest:*) } => { table(<table>, ?rest); }
+ // Matches without optional class.
+ { table(?rest:*) } => { table(<table>, ?rest); }
table-contents:
{ } => { }
@@ -327,9 +327,9 @@
define macro iterate
{ iterate ?:name (?clauses:*) ?:body end }
=> { %iterate-aux ?name
- %iterate-param-helper(?clauses)
- %iterate-value-helper(?clauses)
- ?body
+ %iterate-param-helper(?clauses)
+ %iterate-value-helper(?clauses)
+ ?body
end }
end;
@@ -340,8 +340,8 @@
?:body
end }
=> { local method ?name (?param-clauses)
- ?body
- end;
+ ?body
+ end;
?name(?value-clauses) }
end macro;
More information about the chatter
mailing list