gmane.comp.lang.dylan.gwydion.cvs

[chatter] r11783 - trunk/gwydion/d2c/runtime/dylan

2008-04-27T18:14:57

Author: agent Date: Sun Apr 27 20:14:57 2008 New Revision: 11783 Modified: trunk/gwydion/d2c/runtime/dylan/limited-collection.dylan Log: Job: minor Detabbed file. Modified: trunk/gwydion/d2c/runtime/dylan/limited-collection.dylan ============================================================================== --- trunk/gwydion/d2c/runtime/dylan/limited-collection.dylan(original) +++ trunk/gwydion/d2c/runtime/dylan/limited-collection.dylanSun Apr 27 20:14:57 2008 < at >< at > -56,9 +56,9 < at >< at > (type :: , #rest supplied-keys, #key, #all-keys) => (instance :: ) apply(make-limited-collection, -type.limited-type-base-class, -type.limited-element-type, -type, supplied-keys); + type.limited-type-base-class, + type.limited-element-type, + type, supplied-keys); end method make; // Note that we should specify tight return types on the individual methods, < at >< at > -152,11 +152,11 < at >< at > let choice = case (min == 0) => -select (max by \==) - $UCHAR_MAX => 0; - $USHRT_MAX => 2; - otherwise => 4; -end select; + select (max by \==) + $UCHAR_MAX => 0; + $USHRT_MAX => 2; + otherwise => 4; + end select; (min == $CHAR_MIN & max == $CHAR_MAX) => 1; (min == $SHRT_MIN & max == $SHRT_MAX) => 3; otherwise => 4; < at >< at > -198,8 +198,8 < at >< at > #rest supplied-keys, #key, #all-keys) => (instance :: ) apply(make, , -collection-type: collection-type, -supplied-keys); + collection-type: collection-type, + supplied-keys); end method make-limited-collection; // This isn't especially efficient--we need to inline it and implement < at >< at > -209,7 +209,7 < at >< at > key :: , #next next-method) => (element :: ) check-type(new-value, - collection.%limited-collection-type.limited-element-type); + collection.%limited-collection-type.limited-element-type); next-method(); end method element-setter; < at >< at > -232,17 +232,17 < at >< at > let requested-size :: = case instance?(size, ) => -size; + size; restricted-size => -restricted-size; + restricted-size; otherwise => -0; + 0; end case; // XXX - These may not be the right errors to signal. Oh, well. if (restricted-size & requested-size ~= restricted-size) error("Requested vector size %= does not match size of %=", - size, collection-type); + size, collection-type); end if; if (requested-size > 0 & ~instance?(fill, collection-type.element-type)) error("Cannot fill %= with %=", collection-type, fill); < at >< at > -258,70 +258,70 < at >< at > // version for . define macro %limited-simple-vector-class { %limited-simple-vector-class(?:name, - ?element-type:expression, - ?fill:expression) } + ?element-type:expression, + ?fill:expression) } => { begin - define sealed class ?name (, - ) - sealed slot %elem :: ?element-type, - init-value: ?fill, init-keyword: fill:, sizer: size, - size-init-value: 0, size-init-keyword: size:; - end class; + define sealed class ?name (, + ) + sealed slot %elem :: ?element-type, + init-value: ?fill, init-keyword: fill:, sizer: size, + size-init-value: 0, size-init-keyword: size:; + end class; define sealed domain make (singleton(?name)); define sealed inline method element - (vec :: ?name, index :: , -#key default = $not-supplied) - => element :: ; // because of default: - if (index >= 0 & index < vec.size) - %elem(vec, index); - elseif (default == $not-supplied) - element-error(vec, index); - else - default; - end; - end; + (vec :: ?name, index :: , + #key default = $not-supplied) + => element :: ; // because of default: + if (index >= 0 & index < vec.size) + %elem(vec, index); + elseif (default == $not-supplied) + element-error(vec, index); + else + default; + end; + end; define sealed inline outlined-forward-iteration-protocol ?name; end; } end macro; define macro %limited-simple-vector-setter { %limited-simple-vector-setter(?:name, - ?element-type:expression, - ?fill:expression) } + ?element-type:expression, + ?fill:expression) } => { begin define sealed inline method element-setter - (new-value :: ?element-type, vec :: ?name, -index :: ) - => new-value :: ?element-type; - if (index >= 0 & index < vec.size) - %elem(vec, index) := new-value; - else - element-error(vec, index); - end; - end; + (new-value :: ?element-type, vec :: ?name, + index :: ) + => new-value :: ?element-type; + if (index >= 0 & index < vec.size) + %elem(vec, index) := new-value; + else + element-error(vec, index); + end; + end; end; } end macro; define macro %limited-simple-vector-maker { %limited-simple-vector-maker(?:name, - ?element-type:expression, - ?fill:expression) } + ?element-type:expression, + ?fill:expression) } => { begin define method make-limited-collection (base-class :: type-union(singleton(), - singleton()), -element-type == ?element-type, -collection-type :: , -#rest supplied-keys, -#key fill = ?fill, size = $not-supplied, #all-keys) - => (instance :: limited(, of: ?element-type)) - let requested-size = - process-simple-vector-keys(collection-type, size, fill); - apply(make, ?name, - collection-type: collection-type, - size: requested-size, fill: fill, - supplied-keys); - end method make-limited-collection; + singleton()), + element-type == ?element-type, + collection-type :: , + #rest supplied-keys, + #key fill = ?fill, size = $not-supplied, #all-keys) + => (instance :: limited(, of: ?element-type)) + let requested-size = + process-simple-vector-keys(collection-type, size, fill); + apply(make, ?name, + collection-type: collection-type, + size: requested-size, fill: fill, + supplied-keys); + end method make-limited-collection; end; } end macro; < at >< at > -335,7 +335,7 < at >< at > // limited(, of: ) define method make-limited-collection (base-class :: type-union(singleton(), - singleton()), + singleton()), element-type == , collection-type :: , #rest supplied-keys, < at >< at > -346,8 +346,8 < at >< at > // 'limited(, of: )' on page 223 // requires us to this exactly so. apply(make, , -size: requested-size, fill: fill, -supplied-keys); + size: requested-size, fill: fill, + supplied-keys); end method make-limited-collection; // Simple integer types with compact representations. < at >< at > -363,8 +363,8 < at >< at > // Classes to use with look-up-class-by-limited-integer-type. define constant $lsvli-classes = vector(, , - , , - ); + , , + ); // limited(, of: limited(, ...)) // This is pretty slow, unfortunately. < at >< at > -379,9 +379,9 < at >< at > let class = look-up-class-by-limited-integer-type(element-type, $lsvli-classes); apply(make, class, -collection-type: collection-type, -size: requested-size, fill: fill, -supplied-keys); + collection-type: collection-type, + size: requested-size, fill: fill, + supplied-keys); end method make-limited-collection; // Standard optimized types with compact representations. < at >< at > -430,7 +430,7 < at >< at > => (instance :: ) let requested-size = process-simple-vector-keys(collection-type, size, fill); apply(make, , -collection-type: collection-type, -size: requested-size, fill: fill, -supplied-keys); + collection-type: collection-type, + size: requested-size, fill: fill, + supplied-keys); end method make-limited-collection; _______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

[chatter] r11782 - in trunk/libraries/monday: examples/calcexamples/simple-compiler lib/compression/codinglib/language/grammar lib/language/regularlib/language/simple-parser lib/markup/entmgrlib/markup/xml-sax lib/program-representation/cprlib/program-representation/source-locationlib/program-representation/system-f tools/language/parsergentools/program/cpr-cpp

2008-04-27T16:30:23

Author: agent Date: Sun Apr 27 18:30:23 2008 New Revision: 11782 Modified: trunk/libraries/monday/examples/calc/calc.lid trunk/libraries/monday/examples/simple-compiler/simple-compiler.lid trunk/libraries/monday/lib/compression/coding/coding.lid trunk/libraries/monday/lib/language/grammar/grammar.lid trunk/libraries/monday/lib/language/regular/regular.lid trunk/libraries/monday/lib/language/simple-parser/simple-parser.lid trunk/libraries/monday/lib/markup/entmgr/entity-manager.lid trunk/libraries/monday/lib/markup/xml-sax/xml-sax.lid trunk/libraries/monday/lib/program-representation/cpr/cpr.lid trunk/libraries/monday/lib/program-representation/source-location/source-location.lid trunk/libraries/monday/lib/program-representation/system-f/system-f.lid trunk/libraries/monday/tools/language/parsergen/parsergen.lid trunk/libraries/monday/tools/program/cpr-cpp/cpr-cpp.lid Log: Job: minor Removed .dylan file extensions; OD doesn't care, but GD does. Modified: trunk/libraries/monday/examples/calc/calc.lid ============================================================================== --- trunk/libraries/monday/examples/calc/calc.lid(original) +++ trunk/libraries/monday/examples/calc/calc.lidSun Apr 27 18:30:23 2008 < at >< at > -1,4 +1,4 < at >< at > Library: calc Executable: calc -Files: calc-exports.dylan - calc.dylan +Files: calc-exports + calc \ No newline at end of file Modified: trunk/libraries/monday/examples/simple-compiler/simple-compiler.lid ============================================================================== --- trunk/libraries/monday/examples/simple-compiler/simple-compiler.lid(original) +++ trunk/libraries/monday/examples/simple-compiler/simple-compiler.lidSun Apr 27 18:30:23 2008 < at >< at > -1,9 +1,9 < at >< at > Library: simple-compiler Executable: simple-compiler -Files: Dylan-user.dylan - p2k-lexer.dylan - p2k-rep.dylan - p2k-parser.dylan - p2k-cse.dylan - p2k-regalloc.dylan - p2k-test.dylan +Files: Dylan-user + p2k-lexer + p2k-rep + p2k-parser + p2k-cse + p2k-regalloc + p2k-test Modified: trunk/libraries/monday/lib/compression/coding/coding.lid ============================================================================== --- trunk/libraries/monday/lib/compression/coding/coding.lid(original) +++ trunk/libraries/monday/lib/compression/coding/coding.lidSun Apr 27 18:30:23 2008 < at >< at > -1,4 +1,4 < at >< at > Library: coding Unique-ID-Base: 24060 -Files: Dylan-user.dylan - coding-base.dylan +Files: Dylan-user + coding-base Modified: trunk/libraries/monday/lib/language/grammar/grammar.lid ============================================================================== --- trunk/libraries/monday/lib/language/grammar/grammar.lid(original) +++ trunk/libraries/monday/lib/language/grammar/grammar.lidSun Apr 27 18:30:23 2008 < at >< at > -1,7 +1,7 < at >< at > Library: grammar Unique-ID-Base: 24000 -Files: Dylan-user.dylan - digraph.dylan - grammar.dylan - parser-automaton.dylan - dependent-set.dylan +Files: Dylan-user + digraph + grammar + parser-automaton + dependent-set Modified: trunk/libraries/monday/lib/language/regular/regular.lid ============================================================================== --- trunk/libraries/monday/lib/language/regular/regular.lid(original) +++ trunk/libraries/monday/lib/language/regular/regular.lidSun Apr 27 18:30:23 2008 < at >< at > -1,4 +1,4 < at >< at > Library: regular Unique-ID-Base: 24020 -Files: Dylan-user.dylan - regular-expression.dylan +Files: Dylan-user + regular-expression Modified: trunk/libraries/monday/lib/language/simple-parser/simple-parser.lid ============================================================================== --- trunk/libraries/monday/lib/language/simple-parser/simple-parser.lid(original) +++ trunk/libraries/monday/lib/language/simple-parser/simple-parser.lidSun Apr 27 18:30:23 2008 < at >< at > -1,7 +1,7 < at >< at > Library: simple-parser Unique-ID-Base: 24120 -Files: Dylan-user.dylan - simple-lexical-definition.dylan - simple-lexical-scanner.dylan - simple-parser-automaton.dylan - simple-parser-implementation.dylan +Files: Dylan-user + simple-lexical-definition + simple-lexical-scanner + simple-parser-automaton + simple-parser-implementation Modified: trunk/libraries/monday/lib/markup/entmgr/entity-manager.lid ============================================================================== --- trunk/libraries/monday/lib/markup/entmgr/entity-manager.lid(original) +++ trunk/libraries/monday/lib/markup/entmgr/entity-manager.lidSun Apr 27 18:30:23 2008 < at >< at > -1,6 +1,6 < at >< at > Library: entity-manager -Files: Dylan-user.dylan - entity-data-consumer.dylan - entity-manager.dylan - storage-manager.dylan - encoding-manager.dylan +Files: Dylan-user + entity-data-consumer + entity-manager + storage-manager + encoding-manager Modified: trunk/libraries/monday/lib/markup/xml-sax/xml-sax.lid ============================================================================== --- trunk/libraries/monday/lib/markup/xml-sax/xml-sax.lid(original) +++ trunk/libraries/monday/lib/markup/xml-sax/xml-sax.lidSun Apr 27 18:30:23 2008 < at >< at > -1,2 +1,2 < at >< at > Library: xml-sax -Files: Dylan-user.dylan +Files: Dylan-user Modified: trunk/libraries/monday/lib/program-representation/cpr/cpr.lid ============================================================================== --- trunk/libraries/monday/lib/program-representation/cpr/cpr.lid(original) +++ trunk/libraries/monday/lib/program-representation/cpr/cpr.lidSun Apr 27 18:30:23 2008 < at >< at > -1,6 +1,6 < at >< at > Library: cpr Unique-ID-Base: 24140 -Files: Dylan-user.dylan - interned-string.dylan - hierarchical-table.dylan - cpr-internals.dylan +Files: Dylan-user + interned-string + hierarchical-table + cpr-internals Modified: trunk/libraries/monday/lib/program-representation/source-location/source-location.lid ============================================================================== --- trunk/libraries/monday/lib/program-representation/source-location/source-location.lid(original) +++ trunk/libraries/monday/lib/program-representation/source-location/source-location.lidSun Apr 27 18:30:23 2008 < at >< at > -1,6 +1,6 < at >< at > Library: source-location Unique-ID-Base: 24080 -Files: Dylan-user.dylan - source-location.dylan - source-location-rangemap.dylan - source-location-conditions.dylan +Files: Dylan-user + source-location + source-location-rangemap + source-location-conditions Modified: trunk/libraries/monday/lib/program-representation/system-f/system-f.lid ============================================================================== --- trunk/libraries/monday/lib/program-representation/system-f/system-f.lid(original) +++ trunk/libraries/monday/lib/program-representation/system-f/system-f.lidSun Apr 27 18:30:23 2008 < at >< at > -1,3 +1,3 < at >< at > Library: system-f Unique-ID-Base: 24100 -Files: Dylan-user.dylan +Files: Dylan-user Modified: trunk/libraries/monday/tools/language/parsergen/parsergen.lid ============================================================================== --- trunk/libraries/monday/tools/language/parsergen/parsergen.lid(original) +++ trunk/libraries/monday/tools/language/parsergen/parsergen.lidSun Apr 27 18:30:23 2008 < at >< at > -1,5 +1,5 < at >< at > Library: parsergen Executable: parsergen Unique-ID-Base: 25000 -Files: Dylan-user.dylan - parsergen.dylan +Files: Dylan-user + parsergen Modified: trunk/libraries/monday/tools/program/cpr-cpp/cpr-cpp.lid ============================================================================== --- trunk/libraries/monday/tools/program/cpr-cpp/cpr-cpp.lid(original) +++ trunk/libraries/monday/tools/program/cpr-cpp/cpr-cpp.lidSun Apr 27 18:30:23 2008 < at >< at > -1,4 +1,4 < at >< at > Library: cpr-cpp Executable: cpr-cpp -Files: library.dylan - cpr-cpp.dylan +Files: library + cpr-cpp _______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

[chatter] r11781 - trunk/libraries/collection-extensions

2008-04-27T16:04:44

Author: agent Date: Sun Apr 27 18:04:43 2008 New Revision: 11781 Modified: trunk/libraries/collection-extensions/collection-utils.dylan Log: Job: minor Fixed collection-extensions:collection-utilities:key-exists? Modified: trunk/libraries/collection-extensions/collection-utils.dylan ============================================================================== --- trunk/libraries/collection-extensions/collection-utils.dylan(original) +++ trunk/libraries/collection-extensions/collection-utils.dylanSun Apr 27 18:04:43 2008 < at >< at > -55,9 +55,9 < at >< at > (collection :: , key) => (key-exists? :: , value :: ); let result = element(collection, key, default: $not-found); - if (result) - values(#t, result); + if (result == $not-found) + values(#f, #f); else - values(#f, result); + values(#t, result); end if; end method key-exists?; _______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

[chatter] r11778 - in trunk/fundev/sources: dylan/testsfunctional-dylan/tests system/locators system/tests

2008-04-27T11:13:04

Author: cgay Date: Sun Apr 27 13:13:03 2008 New Revision: 11778 Modified: trunk/fundev/sources/dylan/tests/control.dylan trunk/fundev/sources/functional-dylan/tests/functions.dylan trunk/fundev/sources/system/locators/web-locators.dylan trunk/fundev/sources/system/tests/date.dylan trunk/fundev/sources/system/tests/temp-files.dylan Log: job: fd Fixed some compiler warnings in the dylan-test-suite. Please carefully review the change from check-equal to check-condition. I convinced myself this is correct after reading the Parameter Lists section in the DRM again, but it's a bit complicated. A few other minor changes as well. Modified: trunk/fundev/sources/dylan/tests/control.dylan ============================================================================== --- trunk/fundev/sources/dylan/tests/control.dylan(original) +++ trunk/fundev/sources/dylan/tests/control.dylanSun Apr 27 13:13:03 2008 < at >< at > -488,11 +488,11 < at >< at > check-equal("one param call one arg", (method (x) x end)(1), 1); check-condition("no param call one arg", , - no-param-function(1)); + apply(no-param-function, #[1])); check-condition("one param call no args", , - one-param-function()); + apply(one-param-function, #[])); check-condition("one param call two args", , - one-param-function(1, 2)); + apply(one-param-function, #[1, 2])); check-equal("two args call", (method (x, y) x + y end)(1, 2), 3); check-equal("lots args call", < at >< at > -537,8 +537,8 < at >< at > (method (#rest keys, #key) keys end)(), #[]); check-equal("rest one key call no args", (method (#rest keys, #key x) keys end)(), #[]); - check-equal("rest one key call one arg", - (method (#rest keys, #key) keys end)(x: 1), #[#"x", 1]); + check-condition("rest one key call one arg", , + (method (#rest keys, #key) keys end)(x: 1)); check-equal("rest one key call one arg keys", (method (#rest keys, #key x) keys end)(x: 1), #[#"x", 1]); check-equal("rest one key call one arg key", Modified: trunk/fundev/sources/functional-dylan/tests/functions.dylan ============================================================================== --- trunk/fundev/sources/functional-dylan/tests/functions.dylan(original) +++ trunk/fundev/sources/functional-dylan/tests/functions.dylanSun Apr 27 13:13:03 2008 < at >< at > -212,7 +212,7 < at >< at > define functional-extensions function-test split () check-equal("split on empty string", split("", '/'), - #[]); + #[""]); check-equal("split on single character", split("a", '/'), #["a"]); < at >< at > -248,10 +248,10 < at >< at > #["major", "", "build"]); check-equal("split with spaces", split("major, minor, build", ','), - #["major", "minor", "build"]); + #["major", " minor", " build"]); check-equal("split with spaces everywhere", split(" major , minor , build ", ','), - #["major", "minor", "build"]); + #[" major ", " minor ", " build "]); check-equal("no trim split with spaces", split("major, minor, build", ',', trim?: #f), #["major", " minor", " build"]); Modified: trunk/fundev/sources/system/locators/web-locators.dylan ============================================================================== --- trunk/fundev/sources/system/locators/web-locators.dylan(original) +++ trunk/fundev/sources/system/locators/web-locators.dylanSun Apr 27 13:13:03 2008 < at >< at > -436,6 +436,9 < at >< at > /// File index locators +// These might be better called to follow the terminology in +// RFC 3986. + define sealed class () sealed constant slot locator-file :: , required-init-keyword: file:; < at >< at > -463,6 +466,9 < at >< at > /// CGI locators +// These might be better called to follow the terminology in +// RFC 3986. + define sealed class () sealed constant slot locator-file :: , required-init-keyword: file:; Modified: trunk/fundev/sources/system/tests/date.dylan ============================================================================== --- trunk/fundev/sources/system/tests/date.dylan(original) +++ trunk/fundev/sources/system/tests/date.dylanSun Apr 27 13:13:03 2008 < at >< at > -223,7 +223,7 < at >< at > (make(, year: 2000, month: 1, day: 1, hours: 0, minutes: 0, seconds: 0, time-zone-offset: 0, microseconds: 0)), - "20000101T000000Z"); + "2000-01-01T00:00:00+00:00"); end; Modified: trunk/fundev/sources/system/tests/temp-files.dylan ============================================================================== --- trunk/fundev/sources/system/tests/temp-files.dylan(original) +++ trunk/fundev/sources/system/tests/temp-files.dylanSun Apr 27 13:13:03 2008 < at >< at > -38,7 +38,7 < at >< at > counter := *temp-file-counter*; end; let filename = concatenate(initial-substring | "", - copy-sequence(as-iso8601-string(now), start: 6), + format-date("%d%H%M%S.", now), integer-to-string(counter, size: 6), (extension & ".") | "", extension | ""); _______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

[chatter] r11779 - in trunk/fundev/sources: environment/managerlib/release-info

2008-04-27T11:23:51

Author: cgay Date: Sun Apr 27 13:23:51 2008 New Revision: 11779 Modified: trunk/fundev/sources/environment/manager/commands.dylan trunk/fundev/sources/lib/release-info/libraries.dylan Log: job: minor Add some comments. Modified: trunk/fundev/sources/environment/manager/commands.dylan ============================================================================== --- trunk/fundev/sources/environment/manager/commands.dylan(original) +++ trunk/fundev/sources/environment/manager/commands.dylanSun Apr 27 13:23:51 2008 < at >< at > -112,6 +112,7 < at >< at > // where "<>" surrounds 'placeholders' and "[]" indicates "optional" // Any of the placeholders may be empty. + // Replace with common-dylan:split. --cgay local method split (string :: , char :: ) Modified: trunk/fundev/sources/lib/release-info/libraries.dylan ============================================================================== --- trunk/fundev/sources/lib/release-info/libraries.dylan(original) +++ trunk/fundev/sources/lib/release-info/libraries.dylanSun Apr 27 13:23:51 2008 < at >< at > -461,8 +461,9 < at >< at > root-category.info-subcategories end method installed-library-categories; -//---*** andrewa: for bootstrapping only, this really lives in -//---*** functional-extensions.dylan. +//---*** cgay: This is a copy of split from functional-extensions +// (now common-extensions) but the original has now diverged +// from this one. define sealed method %split (string :: , character :: , #key start :: = 0, _______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

[chatter] r11780 - trunk/libraries/utilities/peg-parser

2008-04-27T16:02:28

Author: agent Date: Sun Apr 27 18:02:27 2008 New Revision: 11780 Modified: trunk/libraries/utilities/peg-parser/parser-definers.dylan trunk/libraries/utilities/peg-parser/parser-rules.dylan trunk/libraries/utilities/peg-parser/parser-support.dylan Log: Job: minor * Added add'l optional type specs to macros. * Fixed semicolon error in afterwards clause. * Improved collect-subelements function. Modified: trunk/libraries/utilities/peg-parser/parser-definers.dylan ============================================================================== --- trunk/libraries/utilities/peg-parser/parser-definers.dylan(original) +++ trunk/libraries/utilities/peg-parser/parser-definers.dylanSun Apr 27 18:02:27 2008 < at >< at > -5,7 +5,7 < at >< at > // rule parsers parse a stream in a given context and return a value or sequence // of values called the "product." -/// SYNOPSIS: Defines an arbitrary 'rule parser'. +/// SYNOPSIS: Defines an arbitrary rule parser. /// DISCUSSION: This macro defines a rule parser that includes support for /// debugging and other features described for rule parsers. The main part of /// the parser is Dylan code supplied by you. < at >< at > -53,7 +53,7 < at >< at > end macro; -/// SYNOPSIS: Defines a 'rule parser' and perhaps a token class for a given +/// SYNOPSIS: Defines a rule parser and perhaps a token class for a given /// token. /// /// The macro takes three forms: class, yield, and basic. < at >< at > -70,27 +70,28 < at >< at > /// end parser; /// [end code] /// -/// defines a rule parser named `parse-t` and a token class named `` -/// which inherits from `` (optional) and ``. `` will have -/// a slot named `content` (inherited from ) and a slot named `more-content`. -/// When is initialized, `tokens` gets set to the product of the rule -/// `many(t2)`, `content` gets set to the expression `tokens[1]`, and -/// `more-content` gets set to the expression `tokens[2]` (which must be a -/// ). +/// defines a rule parser named parse-t and a token class named +/// which inherits from and . The superclass is optional, but the +/// parentheses aren't. will have a slot named content (inherited +/// from ) and a slot named more-content. When is initialized, +/// tokens gets set to the product of the rule `many(t2)`, content gets set to +/// the expression `tokens[1]`, and more-content gets set to the expression +/// `tokens[2]` (which must be a ). /// /// === Yield form === /// /// Yield form returns a value. /// /// [code] -/// define parser t +/// define parser t :: /// rule many(t2) => tokens; /// yield tokens[1]; /// end parser; /// [end code] /// -/// defines a rule parser that returns `tokens[1]` directly, without defining -/// a `` class. +/// defines a rule parser that returns `tokens[1]` (which must be a ) +/// directly, without defining a class. The type specialization is +/// optional. /// /// === Basic form === /// < at >< at > -102,12 +103,13 < at >< at > /// end parser; /// [end code] /// -/// defines a rule parser that return `#"t"`. +/// defines a rule parser that returns #"t". /// /// === Affecting context === /// /// All three forms allow two additional clauses, "afterwards" and "cleanup," -/// that perform actions after the rule parser matches or fails to match. +/// that perform actions after the rule parser matches or fails to match. These +/// actions are inherited by token subclasses. /// /// [code] /// define parser t () < at >< at > -140,7 +142,7 < at >< at > // This form creates a parser that return an initialized class. { define parser ?token-name:name (?supers) - rule ?rule => ?product-name:name; + rule ?rule => ?product-name:name :: ?product-type:expression; ?class-slots-and-clauses end } => { < at >< at > -149,7 +151,9 < at >< at > // Initialize the class's slots based on results of rule. define method initialize (?token-name :: "<" ## ?token-name ## "-token>", - #next next-method, #key ?product-name = unsupplied()) + #next next-method, + #key ?product-name :: type-union(?product-type, singleton(unsupplied())) + = unsupplied()) next-method(); if (supplied?(?product-name)) slot-initializers(?token-name; ?class-slots-and-clauses) < at >< at > -167,7 +171,7 < at >< at > indent-trace(); format-trace(?"token-name" ## "..."); let pos = stream.stream-position; - let production = + let production :: ?product-type = block() // User-defined match action on rule product "match-" ## ?token-name < at >< at > -204,8 +208,8 < at >< at > // // This form creates a parser that returns the result of an expression. { - define parser ?token-name:name - rule ?rule => ?product-name:name; + define parser ?token-name:name :: ?token-type:expression + rule ?rule => ?product-name:name :: ?product-type:expression; yield ?:expression; ?body-clauses end < at >< at > -216,11 +220,11 < at >< at > // Define the parser function including tracing and rollback. Result is // yield expression. define function "parse-" ## ?token-name - (stream :: , context) => (token) + (stream :: , context) => (token :: ?token-type) indent-trace(); format-trace(?"token-name" ## "..."); let pos = stream.stream-position; - let ?product-name = + let ?product-name :: ?product-type = block() // User-defined match action on rule product "match-" ## ?token-name < at >< at > -337,9 +341,9 < at >< at > // Optional. Note that the body is turned into an expression, which is why the // 'user-functions' auxiliary macro takes an expression instead of a body. body-clauses: - { afterwards (?context:name, ?product:name) ?:body; ... } + { afterwards (?context:variable, ?product:variable) ?:body ... } => { afterwards ?context, ?product, ?body; ... } - { cleanup (?context:name) ?:body } + { cleanup (?context:variable) ?:body } => { cleanup ?context, ?body } { } => { } end macro; < at >< at > -402,36 +406,46 < at >< at > { user-functions(?token:name; - afterwards ?after-ctxt:name, ?after-prod:name, ?after-expr:expression; - cleanup ?clean-ctxt:name, ?clean-expr:expression) + afterwards ?after-ctxt:name :: ?after-ctxt-type:expression, + ?after-prod:name :: ?after-ctxt-type:expression, + ?after-expr:expression; + cleanup ?clean-ctxt:name :: ?clean-ctxt-type:expression, + ?clean-expr:expression) } => { - define inline function "match-" ## ?token (?after-ctxt, ?after-prod) - => (p) + define inline function "match-" ## ?token + (?after-ctxt :: ?after-ctxt-type, ?after-prod :: ?after-prod-type) + => (p :: ?after-prod-type) ?after-expr; ?after-prod; end function; - define inline function "cleanup-" ## ?token (?clean-ctxt) => () + define inline function "cleanup-" ## ?token + (?clean-ctxt :: ?clean-ctxt-type) => () ?clean-expr end function; } { user-functions(?token:name; - cleanup ?clean-ctxt:name, ?clean-expr:expression) + cleanup ?clean-ctxt:name :: ?clean-ctxt-type:expression, + ?clean-expr:expression) } => { define inline function "match-" ## ?token (c, p) => (p) p end function; - define inline function "cleanup-" ## ?token (?clean-ctxt) => () + define inline function "cleanup-" ## ?token + (?clean-ctxt :: ?clean-ctxt-type) => () ?clean-expr end function; } { user-functions(?token:name; - afterwards ?after-ctxt:name, ?after-prod:name, ?after-expr:expression) + afterwards ?after-ctxt:name :: ?after-ctxt-type:expression, + ?after-prod:name :: ?after-prod-type:expression, + ?after-expr:expression) } => { - define inline function "match-" ## ?token (?after-ctxt, ?after-prod) - => (p) + define inline function "match-" ## ?token + (?after-ctxt :: ?after-ctxt-type, ?after-prod :: ?after-prod-type) + => (p :: ?after-prod-type) ?after-expr; ?after-prod end function; define inline function "cleanup-" ## ?token (c) => () Modified: trunk/libraries/utilities/peg-parser/parser-rules.dylan ============================================================================== --- trunk/libraries/utilities/peg-parser/parser-rules.dylan(original) +++ trunk/libraries/utilities/peg-parser/parser-rules.dylanSun Apr 27 18:02:27 2008 < at >< at > -19,7 +19,7 < at >< at > /// /// Rollback and naming are done automatically when using 'parser-method-definer' /// or 'parser-definer' macros or the 'seq' etc. functions, but with the -/// 'parser-method-definer' macro, you have to signal on failure. +/// 'parser-method-definer' macro, you have to signal yourself. /// /// ARGUMENTS: /// stream - An instance of . < at >< at > -27,16 +27,17 < at >< at > /// VALUES: /// product - An instance of , #f, or some other value (usually /// an instance of ), depending on the parser's rule(s). -/// If the parser fails to match, it signals . +/// CONDITIONS: +/// If the parser fails to match, it signals . -/// SYNOPSIS: Builds a 'rule parser' matching a sequence of elements. +/// SYNOPSIS: Builds a rule parser matching a sequence of elements. /// Equivalent to PEG "p1 p2" operation. /// ARGUMENTS: -/// "#rest sub-rules" - A series of 'rule parser's, all of which must succeed +/// "#rest sub-rules" - A series of rule parsers, all of which must succeed /// for the returned parser to succeed. /// VALUES: -/// rule-parser - A 'rule parser' returning a . The sequence will +/// rule-parser - A rule parser returning a . The sequence will /// contain the sub-rules' products. define function seq (#rest sub-rules) => (rule-parser :: ) local method seq-parser (stream :: , context) < at >< at > -60,13 +61,13 < at >< at > end function; -/// SYNOPSIS: Builds a 'rule parser' matching one of several elements. +/// SYNOPSIS: Builds a rule parser matching one of several elements. /// Equivalent to PEG "p1 / p2" operation. /// ARGUMENTS: -/// "#rest sub-rules" - A series of 'rule parser's, the first of which to +/// "#rest sub-rules" - A series of rule parsers, the first of which to /// succeed supplies the parser's product. /// VALUES: -/// rule-parser - A 'rule parser' returning one of the sub-rules' products. +/// rule-parser - A rule parser returning one of the sub-rules' products. define function choice (#rest sub-rules) => (rule-parser :: ) local method choice-parser (stream :: , context) => (product) < at >< at > -93,12 +94,12 < at >< at > end function; -/// SYNOPSIS: Builds a 'rule parser' matching one or more elements. +/// SYNOPSIS: Builds a rule parser matching one or more elements. /// Equivalent to PEG "p1+" operation. /// ARGUMENTS: -/// sub-rule - A 'rule parser'. +/// sub-rule - A rule parser. /// VALUES: -/// rule-parser - A 'rule parser' returning a containing the +/// rule-parser - A rule parser returning a containing the /// sub-rule's products. define function many (sub-rule :: ) => (rule-parser :: ) local method many-parser (stream :: , context) < at >< at > -124,12 +125,12 < at >< at > end function; -/// SYNOPSIS: Builds a 'rule parser' matching zero or one element. +/// SYNOPSIS: Builds a rule parser matching zero or one element. /// Equivalent to PEG "p1?" operation. /// ARGUMENTS: -/// sub-rule - A 'rule parser'. +/// sub-rule - A rule parser. /// VALUES: -/// rule-parser - A 'rule parser' returning the sub-rule's product, or #f if +/// rule-parser - A rule parser returning the sub-rule's product, or #f if /// the element is not present. define function opt (sub-rule :: ) => (rule-parser :: ) local method opt-parser (stream :: , context) < at >< at > -146,12 +147,12 < at >< at > end function; -/// SYNOPSIS: Builds a 'rule parser' matching zero or more elements. +/// SYNOPSIS: Builds a rule parser matching zero or more elements. /// Equivalent to PEG "p1*" operation. /// ARGUMENTS: -/// sub-rule - A 'rule parser'. +/// sub-rule - A rule parser. /// VALUES: -/// rule-parser - A 'rule parser' returning a containing the +/// rule-parser - A rule parser returning a containing the /// sub-rule's products, or #f if the elements are not present. define function opt-many (sub-rule :: ) => (rule-parser :: ) local method opt-many-parser (stream :: , context) < at >< at > -172,13 +173,13 < at >< at > end function; -/// SYNOPSIS: Builds a 'rule parser' matching all elements or none of them. +/// SYNOPSIS: Builds a rule parser matching all elements or none of them. /// Equivalent to PEG "(p1 p2)?" operation. /// ARGUMENTS: -/// "#rest sub-rules" - A series of 'rule parser's, all of which must match +/// "#rest sub-rules" - A series of rule parsers, all of which must match /// for this parser to match. /// VALUES: -/// rule-parser - A 'rule parser' returning #f or a containing +/// rule-parser - A rule parser returning #f or a containing /// all sub-rules' products. define function opt-seq (#rest sub-rules) => (rule-parser :: ) let parser = opt(apply(seq, sub-rules)); < at >< at > -189,12 +190,12 < at >< at > end function; -/// SYNOPSIS: Builds a 'rule parser' matching one of the specified elements or +/// SYNOPSIS: Builds a rule parser matching one of the specified elements or /// none of them. Equivalent to PEG "(p1 / p2)?" operation. /// ARGUMENTS: -/// "#rest sub-rules" - A series of 'rule parser's. +/// "#rest sub-rules" - A series of rule parsers. /// VALUES: -/// rule-parser - A 'rule parser' returning #f or the product of the +/// rule-parser - A rule parser returning #f or the product of the /// matching rule. define function opt-choice (#rest sub-rules) => (rule-parser :: ) let parser = opt(apply(choice, sub-rules)); < at >< at > -205,12 +206,12 < at >< at > end function; -/// SYNOPSIS: Builds a 'rule parser' that looks ahead to match the sub-rule +/// SYNOPSIS: Builds a rule parser that looks ahead to match the sub-rule /// without consuming any elements. Equivalent to PEG "&p1" operation. /// ARGUMENTS: -/// sub-rule - A 'rule parser'. +/// sub-rule - A rule parser. /// VALUES: -/// rule-parser - A 'rule parser' returning #f. +/// rule-parser - A rule parser returning #f. define function req-next (sub-rule :: ) => (rule-parser :: ) local method req-next-parser (stream :: , context) => (product :: ) < at >< at > -230,13 +231,13 < at >< at > end function; -/// SYNOPSIS: Builds a 'rule parser' that looks ahead to ensure the sub-rule +/// SYNOPSIS: Builds a rule parser that looks ahead to ensure the sub-rule /// does not match, but does not consume any elements in doing so. /// Equivalent to PEG "!p1" operation. /// ARGUMENTS: -/// sub-rule - A 'rule parser'. +/// sub-rule - A rule parser. /// VALUES: -/// rule-parser - A 'rule parser' returning #f. +/// rule-parser - A rule parser returning #f. define function not-next (sub-rule :: ) => (rule-parser :: ) local method not-next-parser (stream :: , context) => (product :: ) Modified: trunk/libraries/utilities/peg-parser/parser-support.dylan ============================================================================== --- trunk/libraries/utilities/peg-parser/parser-support.dylan(original) +++ trunk/libraries/utilities/peg-parser/parser-support.dylanSun Apr 27 18:02:27 2008 < at >< at > -37,6 +37,9 < at >< at > /// SYNOPSIS: Builds and caches a parser name, for debugging and exceptions. +/// DISCUSSION: This whole system I've devised for parser names does not work +/// when it comes to the parsers created by 'seq', etc. I have no idea why, +/// but they all show up as "?". define function rule-name (rule-func :: ) => (name :: ) if (~member?(rule-func, *rule-names*)) let parts = element(*rule-name-parts*, rule-func, default: #("?")); < at >< at > -88,20 +91,24 < at >< at > /// : #[1, "blue"] /// /// ARGUMENTS: -/// sequences - A collection of . +/// sequences - A collection of , or #f. /// index - An . The element of each of 'sequences' that should -/// be pulled out into a new resulting sequence. +/// be pulled out into a new sequence. /// default: - An . If the sequence doesn't have an element at /// 'index', this value is used instead. Defaults to #f. /// VALUES: -/// new-sequence - The resulting sequence. +/// new-sequence - The resulting sequence. It is empty if 'sequences' is #f. define function collect-subelements - (sequences :: , index :: , #key default = #f) + (sequences :: false-or(), index :: , #key default = #f) => (new-sequence :: ) - map-as(, - method (sequence :: ) => (item :: ) - element(sequence, index, default: default) - end, - sequences) + if (sequences) + map-as(, + method (sequence :: ) => (item :: ) + element(sequence, index, default: default) + end, + sequences) + else + #() + end if end function; _______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

[chatter] r11777 - trunk/www

2008-04-26T11:03:57

Author: hannes Date: Sat Apr 26 13:03:55 2008 New Revision: 11777 Modified: trunk/www/community.phtml trunk/www/footer.html trunk/www/news.phtml trunk/www/ports.phtml trunk/www/shared.inc Log: Job: website update to new mailing list names ("gd-" prefix is gone) Modified: trunk/www/community.phtml ============================================================================== --- trunk/www/community.phtml(original) +++ trunk/www/community.phtmlSat Apr 26 13:03:55 2008 < at >< at > -72,41 +72,34 < at >< at >

-gd-hackers -subscribe -archives +hackers +subscribe +archives

Our public development list. Here's where we talk about improving -Gwydion Dylan and co-ordinate most of our development work. (A very small bit +Gwydion Dylan and Open Dylan. We coordinate most of our development work. (A very small bit happens behind the scenes.) If you want to contribute, this is the place to start. Just post a message explaining what you'd like to do, and see what other -developers suggest. You can post small patches to the list, or upload big ones -to our FTP site. Lurkers are also welcome!

- -

This list is moderated. The archived list is browsable at -gmane.comp.lang.dylan.gwydion.devel.

-gd-announce -subscribe -archives +announce +subscribe +archives

Find out about new Gwydion Dylan releases! This is an extremely -low-traffic list reserved for announcements. (If you subscribe to gd-hackers -below, you don't need to subscribe to this list.) The archived list is browsable at -gmane.comp.lang.dylan.gwydion.announce.

Find out about new Gwydion Dylan and Open Dylan releases! This is an extremely +low-traffic list reserved for announcements. (If you subscribe to hackers< at >, +you don't need to subscribe to this list.)

-gd-chatter -subscribe -archives +chatter +subscribe +archives

This list contains nothing but Subversion and Bugzilla output. This is -for developers who need to know everything that's going on. -The archived list is browsable at -gmane.comp.lang.dylan.gwydion.cvs.

Modified: trunk/www/footer.html ============================================================================== --- trunk/www/footer.html(original) +++ trunk/www/footer.htmlSat Apr 26 13:03:55 2008 < at >< at > -6,12 +6,12 < at >< at >

- [Feedback] + [Feedback]

Modified: trunk/www/news.phtml ============================================================================== --- trunk/www/news.phtml(original) +++ trunk/www/news.phtmlSat Apr 26 13:03:55 2008 < at >< at > -54,7 +54,7 < at >< at >

First working version of d2c for MacOS reported (20 Oct 1999)

Rob Myers announced on -the gd-hackers mailing list that he has built a first version of d2c, +the hackers mailing list that he has built a first version of d2c, the Dylan compiler that's part of Gwydion, for MacOS. He expects to be able to release patches next week. This means that Gwydion Dylan now works on all major platforms (although nobody maintains the Win32 port Modified: trunk/www/ports.phtml ============================================================================== --- trunk/www/ports.phtml(original) +++ trunk/www/ports.phtmlSat Apr 26 13:03:55 2008 < at >< at > -45,7 +45,7 < at >< at > Dylan interpreter for bootstrapping—this takes several hours on a 700 MHz Athlon and up to several days on early model Pentiums and PowerPCs.

Please announce your efforts on our gd-hackers mailing list, let us know +

Please announce your efforts on our hackers mailing list, let us know of any problems you have (we may have seen them before). When you're done, let us know as well, so we can put your binary on the server.

Modified: trunk/www/shared.inc ============================================================================== --- trunk/www/shared.inc(original) +++ trunk/www/shared.incSat Apr 26 13:03:55 2008 < at >< at > -21,9 +21,9 < at >< at > } function short_header ($title) { - readfile("/var/www/header.html"); + readfile("/var/www/website/header.html"); echo "Dylan: " . $title . ""; - readfile("/var/www/menu.html"); + readfile("/var/www/website/menu.html"); } function standard_header ($title) { < at >< at > -32,6 +32,6 < at >< at > } function standard_footer () { - readfile("/var/www/footer.html"); + readfile("/var/www/website/footer.html"); } ?> _______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

[chatter] r11776 - trunk/www/books/dpg

2008-04-26T11:02:59

Author: hannes Date: Sat Apr 26 13:02:57 2008 New Revision: 11776 Modified: trunk/www/books/dpg/db_253.html Log: Job: website unindent the "end class" Modified: trunk/www/books/dpg/db_253.html ============================================================================== --- trunk/www/books/dpg/db_253.html(original) +++ trunk/www/books/dpg/db_253.htmlSat Apr 26 13:02:57 2008 < at >< at > -32,7 +32,7 < at >< at > // smaller than another comparison value constant slot comparison-function :: <function> = \<, init-keyword: comparison-function:; - end class <sorted-sequence>; +end class <sorted-sequence>;

Because is there is a well-defined ordering of the elements of sorted sequences, we choose <sequence> to be the superclass of <sorted-sequence>. We use the built-in collection class called <stretchy-vector> to store the elements of our sorted sequence, because we want to be able to have the sorted sequence grow to any size in a convenient way.

The slots comparison-function and value-function are constant slots, because we intend to have clients specify these functions only when they create the sorted sequence. If we had decided to let clients change the value of these slots, we would have made the slots virtual, so that we could reorder the data vector after either function had changed.

Now that we have covered the structure and initialization of the sorted sequence data structure, we can define basic collection methods.

_______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

[chatter] r11775 - in trunk/fundev/sources: databases/odbc-ffidatabases/sql-odbc registry/generic

2008-04-26T10:05:15

Author: andreas Date: Sat Apr 26 12:05:14 2008 New Revision: 11775 Added: trunk/fundev/sources/databases/odbc-ffi/sql-unix.dylan - copied, changed from r11774, trunk/fundev/sources/databases/odbc-ffi/sql.dylan trunk/fundev/sources/databases/odbc-ffi/sqlext-unix.dylan - copied, changed from r11774, trunk/fundev/sources/databases/odbc-ffi/sqlext.dylan trunk/fundev/sources/registry/generic/odbc-ffi (contents, props changed) Modified: trunk/fundev/sources/databases/odbc-ffi/constant.dylan trunk/fundev/sources/databases/odbc-ffi/odbc-library.dylan trunk/fundev/sources/databases/odbc-ffi/unix-odbc.lid trunk/fundev/sources/databases/sql-odbc/binding.dylan trunk/fundev/sources/databases/sql-odbc/conditions.dylan Log: job: fd Make ODBC binding work on Unixen, support for LONGVARCHAR. Modified: trunk/fundev/sources/databases/odbc-ffi/constant.dylan ============================================================================== --- trunk/fundev/sources/databases/odbc-ffi/constant.dylan(original) +++ trunk/fundev/sources/databases/odbc-ffi/constant.dylanSat Apr 26 12:05:14 2008 < at >< at > -90,6 +90,14 < at >< at > define constant $SQL-DOUBLE = 8; define constant $SQL-DATETIME = 9; define constant $SQL-VARCHAR = 12; +define constant $SQL-LONGVARCHAR = -1; +define constant $SQL-BINARY = -2; +define constant $SQL-VARBINARY = -3; +define constant $SQL-LONGVARBINARY = -4; +define constant $SQL-BIGINT = -5; +define constant $SQL-TINYINT = -6; +define constant $SQL-BIT = -7; + define constant $SQL-TYPE-DATE = 91; define constant $SQL-TYPE-TIME = 92; define constant $SQL-TYPE-TIMESTAMP = 93; Modified: trunk/fundev/sources/databases/odbc-ffi/odbc-library.dylan ============================================================================== --- trunk/fundev/sources/databases/odbc-ffi/odbc-library.dylan(original) +++ trunk/fundev/sources/databases/odbc-ffi/odbc-library.dylanSat Apr 26 12:05:14 2008 < at >< at > -126,7 +126,8 < at >< at > $SQL-DIAG-UPDATE-WHERE, $SQL-UNKNOWN-TYPE, $SQL-CHAR, $SQL-NUMERIC, $SQL-DECIMAL, $SQL-INTEGER, $SQL-SMALLINT, $SQL-FLOAT, $SQL-REAL, $SQL-DOUBLE, $SQL-DATETIME, $SQL-VARCHAR, $SQL-TYPE-DATE, - $SQL-TYPE-TIME, $SQL-TYPE-TIMESTAMP, $SQL-UNSPECIFIED, + $SQL-TYPE-TIME, $SQL-TYPE-TIMESTAMP, $SQL-LONGVARCHAR, $SQL-BINARY, + $SQL-VARBINARY, $SQL-LONGVARBINARY, $SQL-BIGINT, $SQL-TINYINT, $SQL-BIT, $SQL-UNSPECIFIED, $SQL-INSENSITIVE, $SQL-SENSITIVE, $SQL-ALL-TYPES, $SQL-DEFAULT, $SQL-ARD-TYPE, $SQL-CODE-DATE, $SQL-CODE-TIME, $SQL-CODE-TIMESTAMP, $SQL-FALSE, $SQL-TRUE, $SQL-NO-NULLS, $SQL-NULLABLE, Copied: trunk/fundev/sources/databases/odbc-ffi/sql-unix.dylan (from r11774, trunk/fundev/sources/databases/odbc-ffi/sql.dylan) ============================================================================== --- trunk/fundev/sources/databases/odbc-ffi/sql.dylan(original) +++ trunk/fundev/sources/databases/odbc-ffi/sql-unix.dylanSat Apr 26 12:05:14 2008 < at >< at > -15,13 +15,13 < at >< at > parameter EnvironmentHandle :: ; output parameter ConnectionHandle :: ; result value :: ; - c-name: "SQLAllocConnect", c-modifiers: "__stdcall"; + c-name: "SQLAllocConnect"; end; define c-func-with-err SQLAllocEnv output parameter EnvironmentHandle :: ; result value :: ; - c-name: "SQLAllocEnv", c-modifiers: "__stdcall"; + c-name: "SQLAllocEnv"; end; define c-func-with-err SQLAllocHandle < at >< at > -29,14 +29,14 < at >< at > parameter InputHandle :: ; output parameter OutputHandle :: ; result value :: ; - c-name: "SQLAllocHandle", c-modifiers: "__stdcall"; + c-name: "SQLAllocHandle"; end; define c-func-with-err SQLAllocStmt parameter ConnectionHandle :: ; output parameter StatementHandle :: ; result value :: ; - c-name: "SQLAllocStmt", c-modifiers: "__stdcall"; + c-name: "SQLAllocStmt"; end; define c-func-with-err SQLBindCol < at >< at > -47,7 +47,7 < at >< at > parameter BufferLength :: ; parameter StrLen_or_Ind :: ; result value :: ; - c-name: "SQLBindCol", c-modifiers: "__stdcall"; + c-name: "SQLBindCol"; end; define c-func-with-err SQLBindParam < at >< at > -60,19 +60,19 < at >< at > parameter ParameterValue :: ; parameter StrLen_or_Ind :: ; result value :: ; - c-name: "SQLBindParam", c-modifiers: "__stdcall"; + c-name: "SQLBindParam"; end; define c-func-with-err SQLCancel parameter StatementHandle :: ; result value :: ; - c-name: "SQLCancel", c-modifiers: "__stdcall"; + c-name: "SQLCancel"; end; define c-func-with-err SQLCloseCursor parameter StatementHandle :: ; result value :: ; - c-name: "SQLCloseCursor", c-modifiers: "__stdcall"; + c-name: "SQLCloseCursor"; end; define c-func-with-err SQLColAttribute < at >< at > -84,7 +84,7 < at >< at > output parameter StringLength :: ; parameter NumericAttribute :: ; result value :: ; - c-name: "SQLColAttribute", c-modifiers: "__stdcall"; + c-name: "SQLColAttribute"; end; define c-func-with-err SQLColumns < at >< at > -98,7 +98,7 < at >< at > parameter ColumnName :: ; parameter NameLength4 :: ; result value :: ; - c-name: "SQLColumns", c-modifiers: "__stdcall"; + c-name: "SQLColumns"; end; define c-func-with-err SQLConnect < at >< at > -110,14 +110,14 < at >< at > parameter Authentication :: ; parameter NameLength3 :: ; result value :: ; - c-name: "SQLConnect", c-modifiers: "__stdcall"; + c-name: "SQLConnect"; end; define c-func-with-err SQLCopyDesc parameter SourceDescHandle :: ; parameter TargetDescHandle :: ; result value :: ; - c-name: "SQLCopyDesc", c-modifiers: "__stdcall"; + c-name: "SQLCopyDesc"; end; define c-func-with-err SQLDataSources < at >< at > -130,7 +130,7 < at >< at > parameter BufferLength2 :: ; output parameter NameLength2 :: ; result value :: ; - c-name: "SQLDataSources", c-modifiers: "__stdcall"; + c-name: "SQLDataSources"; end; define c-func-with-err SQLDescribeCol < at >< at > -144,13 +144,13 < at >< at > output parameter DecimalDigits :: ; output parameter Nullable :: ; result value :: ; - c-name: "SQLDescribeCol", c-modifiers: "__stdcall"; + c-name: "SQLDescribeCol"; end; define c-func-with-err SQLDisconnect parameter ConnectionHandle :: ; result value :: ; - c-name: "SQLDisconnect", c-modifiers: "__stdcall"; + c-name: "SQLDisconnect"; end; define c-func-with-err SQLEndTran < at >< at > -158,7 +158,7 < at >< at > parameter Handle :: ; parameter CompletionType :: ; result value :: ; - c-name: "SQLEndTran", c-modifiers: "__stdcall"; + c-name: "SQLEndTran"; end; define C-function SQLError < at >< at > -171,7 +171,7 < at >< at > parameter BufferLength :: ; output parameter TextLength :: ; result value :: ; - c-name: "SQLError", c-modifiers: "__stdcall"; + c-name: "SQLError"; end; define c-func-with-err SQLExecDirect < at >< at > -179,19 +179,19 < at >< at > parameter StatementText :: ; parameter TextLength :: ; result value :: ; - c-name: "SQLExecDirect", c-modifiers: "__stdcall"; + c-name: "SQLExecDirect"; end; define c-func-with-err SQLExecute parameter StatementHandle :: ; result value :: ; - c-name: "SQLExecute", c-modifiers: "__stdcall"; + c-name: "SQLExecute"; end; define c-func-with-err SQLFetch parameter StatementHandle :: ; result value :: ; - c-name: "SQLFetch", c-modifiers: "__stdcall"; + c-name: "SQLFetch"; end; define c-func-with-err SQLFetchScroll < at >< at > -199,33 +199,33 < at >< at > parameter FetchOrientation :: ; parameter FetchOffset :: ; result value :: ; - c-name: "SQLFetchScroll", c-modifiers: "__stdcall"; + c-name: "SQLFetchScroll"; end; define c-func-with-err SQLFreeConnect parameter ConnectionHandle :: ; result value :: ; - c-name: "SQLFreeConnect", c-modifiers: "__stdcall"; + c-name: "SQLFreeConnect"; end; define c-func-with-err SQLFreeEnv parameter EnvironmentHandle :: ; result value :: ; - c-name: "SQLFreeEnv", c-modifiers: "__stdcall"; + c-name: "SQLFreeEnv"; end; define c-func-with-err SQLFreeHandle parameter HandleType :: ; parameter Handle :: ; result value :: ; - c-name: "SQLFreeHandle", c-modifiers: "__stdcall"; + c-name: "SQLFreeHandle"; end; define c-func-with-err SQLFreeStmt parameter StatementHandle :: ; parameter Option :: ; result value :: ; - c-name: "SQLFreeStmt", c-modifiers: "__stdcall"; + c-name: "SQLFreeStmt"; end; define c-func-with-err SQLGetConnectAttr < at >< at > -235,7 +235,7 < at >< at > parameter BufferLength :: ; output parameter StringLength :: ; result value :: ; - c-name: "SQLGetConnectAttr", c-modifiers: "__stdcall"; + c-name: "SQLGetConnectAttr"; end; define c-func-with-err SQLGetConnectOption < at >< at > -243,7 +243,7 < at >< at > parameter Option :: ; parameter Value :: ; result value :: ; - c-name: "SQLGetConnectOption", c-modifiers: "__stdcall"; + c-name: "SQLGetConnectOption"; end; define c-func-with-err SQLGetCursorName < at >< at > -252,7 +252,7 < at >< at > parameter BufferLength :: ; output parameter NameLength :: ; result value :: ; - c-name: "SQLGetCursorName", c-modifiers: "__stdcall"; + c-name: "SQLGetCursorName"; end; define c-func-with-err SQLGetData < at >< at > -263,7 +263,7 < at >< at > parameter BufferLength :: ; output parameter StrLen_or_Ind :: ; result value :: ; - c-name: "SQLGetData", c-modifiers: "__stdcall"; + c-name: "SQLGetData"; end; define c-func-with-err SQLGetDescField < at >< at > -274,7 +274,7 < at >< at > parameter BufferLength :: ; output parameter StringLength :: ; result value :: ; - c-name: "SQLGetDescField", c-modifiers: "__stdcall"; + c-name: "SQLGetDescField"; end; define c-func-with-err SQLGetDescRec < at >< at > -290,7 +290,7 < at >< at > output parameter Scale :: ; output parameter Nullable :: ; result value :: ; - c-name: "SQLGetDescRec", c-modifiers: "__stdcall"; + c-name: "SQLGetDescRec"; end; define c-func-with-err SQLGetDiagField < at >< at > -302,7 +302,7 < at >< at > parameter BufferLength :: ; output parameter StringLength :: ; result value :: ; - c-name: "SQLGetDiagField", c-modifiers: "__stdcall"; + c-name: "SQLGetDiagField"; end; define c-func-with-err SQLGetDiagRec < at >< at > -315,7 +315,7 < at >< at > parameter BufferLength :: ; output parameter TextLength :: ; result value :: ; - c-name: "SQLGetDiagRec", c-modifiers: "__stdcall"; + c-name: "SQLGetDiagRec"; end; define c-func-with-err SQLGetEnvAttr < at >< at > -325,7 +325,7 < at >< at > parameter BufferLength :: ; output parameter StringLength :: ; result value :: ; - c-name: "SQLGetEnvAttr", c-modifiers: "__stdcall"; + c-name: "SQLGetEnvAttr"; end; define c-func-with-err SQLGetFunctions < at >< at > -333,7 +333,7 < at >< at > parameter FunctionId :: ; output parameter Supported :: ; result value :: ; - c-name: "SQLGetFunctions", c-modifiers: "__stdcall"; + c-name: "SQLGetFunctions"; end; define c-func-with-err SQLGetInfo < at >< at > -343,7 +343,7 < at >< at > parameter BufferLength :: ; output parameter StringLength :: ; result value :: ; - c-name: "SQLGetInfo", c-modifiers: "__stdcall"; + c-name: "SQLGetInfo"; end; define c-func-with-err SQLGetStmtAttr < at >< at > -353,7 +353,7 < at >< at > parameter BufferLength :: ; output parameter StringLength :: ; result value :: ; - c-name: "SQLGetStmtAttr", c-modifiers: "__stdcall"; + c-name: "SQLGetStmtAttr"; end; define c-func-with-err SQLGetStmtOption < at >< at > -361,28 +361,28 < at >< at > parameter Option :: ; parameter Value :: ; result value :: ; - c-name: "SQLGetStmtOption", c-modifiers: "__stdcall"; + c-name: "SQLGetStmtOption"; end; define c-func-with-err SQLGetTypeInfo parameter StatementHandle :: ; parameter DataType :: ; result value :: ; - c-name: "SQLGetTypeInfo", c-modifiers: "__stdcall"; + c-name: "SQLGetTypeInfo"; end; define c-func-with-err SQLNumResultCols parameter StatementHandle :: ; output parameter ColumnCount :: ; result value :: ; - c-name: "SQLNumResultCols", c-modifiers: "__stdcall"; + c-name: "SQLNumResultCols"; end; define c-func-with-err SQLParamData parameter StatementHandle :: ; parameter Value :: ; result value :: ; - c-name: "SQLParamData", c-modifiers: "__stdcall"; + c-name: "SQLParamData"; end; define c-func-with-err SQLPrepare < at >< at > -390,7 +390,7 < at >< at > parameter StatementText :: ; parameter TextLength :: ; result value :: ; - c-name: "SQLPrepare", c-modifiers: "__stdcall"; + c-name: "SQLPrepare"; end; define c-func-with-err SQLPutData < at >< at > -398,14 +398,14 < at >< at > parameter Data :: ; parameter StrLen_or_Ind :: ; result value :: ; - c-name: "SQLPutData", c-modifiers: "__stdcall"; + c-name: "SQLPutData"; end; define c-func-with-err SQLRowCount parameter StatementHandle :: ; output parameter RowCount :: ; result value :: ; - c-name: "SQLRowCount", c-modifiers: "__stdcall"; + c-name: "SQLRowCount"; end; define c-func-with-err SQLSetConnectAttr < at >< at > -414,7 +414,7 < at >< at > parameter Value :: ; // is this going to work for strings? parameter StringLength :: ; result value :: ; - c-name: "SQLSetConnectAttr", c-modifiers: "__stdcall"; + c-name: "SQLSetConnectAttr"; end; define c-func-with-err SQLSetConnectOption < at >< at > -422,7 +422,7 < at >< at > parameter Option :: ; parameter Value :: ; result value :: ; - c-name: "SQLSetConnectOption", c-modifiers: "__stdcall"; + c-name: "SQLSetConnectOption"; end; define c-func-with-err SQLSetCursorName < at >< at > -430,7 +430,7 < at >< at > parameter CursorName :: ; parameter NameLength :: ; result value :: ; - c-name: "SQLSetCursorName", c-modifiers: "__stdcall"; + c-name: "SQLSetCursorName"; end; define c-func-with-err SQLSetDescField < at >< at > -440,7 +440,7 < at >< at > parameter Value :: ; parameter BufferLength :: ; result value :: ; - c-name: "SQLSetDescField", c-modifiers: "__stdcall"; + c-name: "SQLSetDescField"; end; define c-func-with-err SQLSetDescRec < at >< at > -455,7 +455,7 < at >< at > parameter StringLength :: ; parameter Indicator :: ; result value :: ; - c-name: "SQLSetDescRec", c-modifiers: "__stdcall"; + c-name: "SQLSetDescRec"; end; define c-func-with-err SQLSetEnvAttr < at >< at > -464,7 +464,7 < at >< at > parameter Value :: ; //was sqlpointer parameter StringLength :: ; result value :: ; - c-name: "SQLSetEnvAttr", c-modifiers: "__stdcall"; + c-name: "SQLSetEnvAttr"; end; define c-func-with-err SQLSetParam < at >< at > -477,7 +477,7 < at >< at > parameter ParameterValue :: ; parameter StrLen_or_Ind :: ; result value :: ; - c-name: "SQLSetParam", c-modifiers: "__stdcall"; + c-name: "SQLSetParam"; end; define c-func-with-err SQLSetStmtAttr < at >< at > -486,7 +486,7 < at >< at > parameter Value :: ; parameter StringLength :: ; result value :: ; - c-name: "SQLSetStmtAttr", c-modifiers: "__stdcall"; + c-name: "SQLSetStmtAttr"; end; define c-func-with-err SQLSetStmtOption < at >< at > -494,7 +494,7 < at >< at > parameter Option :: ; parameter Value :: ; result value :: ; - c-name: "SQLSetStmtOption", c-modifiers: "__stdcall"; + c-name: "SQLSetStmtOption"; end; define c-func-with-err SQLSpecialColumns < at >< at > -509,7 +509,7 < at >< at > parameter Scope :: ; parameter Nullable :: ; result value :: ; - c-name: "SQLSpecialColumns", c-modifiers: "__stdcall"; + c-name: "SQLSpecialColumns"; end; define c-func-with-err SQLStatistics < at >< at > -523,7 +523,7 < at >< at > parameter Unique :: ; parameter Reserved :: ; result value :: ; - c-name: "SQLStatistics", c-modifiers: "__stdcall"; + c-name: "SQLStatistics"; end; define c-func-with-err SQLTables < at >< at > -537,7 +537,7 < at >< at > parameter TableType :: ; parameter NameLength4 :: ; result value :: ; - c-name: "SQLTables", c-modifiers: "__stdcall"; + c-name: "SQLTables"; end; define c-func-with-err SQLTransact < at >< at > -545,6 +545,6 < at >< at > parameter ConnectionHandle :: ; parameter CompletionType :: ; result value :: ; - c-name: "SQLTransact", c-modifiers: "__stdcall"; + c-name: "SQLTransact"; end; Copied: trunk/fundev/sources/databases/odbc-ffi/sqlext-unix.dylan (from r11774, trunk/fundev/sources/databases/odbc-ffi/sqlext.dylan) ============================================================================== --- trunk/fundev/sources/databases/odbc-ffi/sqlext.dylan(original) +++ trunk/fundev/sources/databases/odbc-ffi/sqlext-unix.dylanSat Apr 26 12:05:14 2008 < at >< at > -21,7 +21,7 < at >< at > output parameter pcbConnStrOut :: ; parameter fDriverCompletion :: ; result value :: ; - c-name: "SQLDriverConnect", c-modifiers: "__stdcall"; + c-name: "SQLDriverConnect"; end; define c-func-with-err SQLBrowseConnect < at >< at > -32,14 +32,14 < at >< at > parameter cbConnStrOutMax :: ; output parameter pcbConnStrOut :: ; result value :: ; - c-name: "SQLBrowseConnect", c-modifiers: "__stdcall"; + c-name: "SQLBrowseConnect"; end; define c-func-with-err SQLBulkOperations parameter StatementHandle :: ; parameter Operation :: ; result value :: ; - c-name: "SQLBulkOperations", c-modifiers: "__stdcall"; + c-name: "SQLBulkOperations"; end; define c-func-with-err SQLColAttributes < at >< at > -51,7 +51,7 < at >< at > output parameter pcbDesc :: ; output parameter pfDesc :: ; result value :: ; - c-name: "SQLColAttributes", c-modifiers: "__stdcall"; + c-name: "SQLColAttributes"; end; define c-func-with-err SQLColumnPrivileges < at >< at > -65,7 +65,7 < at >< at > parameter szColumnName :: ; parameter cbColumnName :: ; result value :: ; - c-name: "SQLColumnPrivileges", c-modifiers: "__stdcall"; + c-name: "SQLColumnPrivileges"; end; define c-func-with-err SQLDescribeParam < at >< at > -76,7 +76,7 < at >< at > output parameter pibScale :: ; output parameter pfNullable :: ; result value :: ; - c-name: "SQLDescribeParam", c-modifiers: "__stdcall"; + c-name: "SQLDescribeParam"; end; define c-func-with-err SQLExtendedFetch < at >< at > -86,7 +86,7 < at >< at > output parameter pcrow :: ; output parameter rgfRowStatus :: ; result value :: ; - c-name: "SQLExtendedFetch", c-modifiers: "__stdcall"; + c-name: "SQLExtendedFetch"; end; define c-func-with-err SQLForeignKeys < at >< at > -104,13 +104,13 < at >< at > parameter szFkTableName :: ; parameter cbFkTableName :: ; result value :: ; - c-name: "SQLForeignKeys", c-modifiers: "__stdcall"; + c-name: "SQLForeignKeys"; end; define c-func-with-err SQLMoreResults parameter hstmt :: ; result value :: ; - c-name: "SQLMoreResults", c-modifiers: "__stdcall"; + c-name: "SQLMoreResults"; end; define c-func-with-err SQLNativeSql < at >< at > -121,14 +121,14 < at >< at > parameter cbSqlStrMax :: ; output parameter pcbSqlStr :: ; result value :: ; - c-name: "SQLNativeSql", c-modifiers: "__stdcall"; + c-name: "SQLNativeSql"; end; define c-func-with-err SQLNumParams parameter hstmt :: ; output parameter pcpar :: ; result value :: ; - c-name: "SQLNumParams", c-modifiers: "__stdcall"; + c-name: "SQLNumParams"; end; define c-func-with-err SQLParamOptions < at >< at > -136,7 +136,7 < at >< at > parameter crow :: ; output parameter pirow :: ; result value :: ; - c-name: "SQLParamOptions", c-modifiers: "__stdcall"; + c-name: "SQLParamOptions"; end; define c-func-with-err SQLPrimaryKeys < at >< at > -148,7 +148,7 < at >< at > parameter szTableName :: ; parameter cbTableName :: ; result value :: ; - c-name: "SQLPrimaryKeys", c-modifiers: "__stdcall"; + c-name: "SQLPrimaryKeys"; end; define c-func-with-err SQLProcedureColumns < at >< at > -162,7 +162,7 < at >< at > parameter szColumnName :: ; parameter cbColumnName :: ; result value :: ; - c-name: "SQLProcedureColumns", c-modifiers: "__stdcall"; + c-name: "SQLProcedureColumns"; end; define c-func-with-err SQLProcedures < at >< at > -174,7 +174,7 < at >< at > parameter szProcName :: ; parameter cbProcName :: ; result value :: ; - c-name: "SQLProcedures", c-modifiers: "__stdcall"; + c-name: "SQLProcedures"; end; define c-func-with-err SQLSetPos < at >< at > -183,7 +183,7 < at >< at > parameter fOption :: ; parameter fLock :: ; result value :: ; - c-name: "SQLSetPos", c-modifiers: "__stdcall"; + c-name: "SQLSetPos"; end; define c-func-with-err SQLTablePrivileges < at >< at > -195,7 +195,7 < at >< at > parameter szTableName :: ; parameter cbTableName :: ; result value :: ; - c-name: "SQLTablePrivileges", c-modifiers: "__stdcall"; + c-name: "SQLTablePrivileges"; end; define c-func-with-err SQLDrivers < at >< at > -208,7 +208,7 < at >< at > parameter cbDrvrAttrMax :: ; output parameter pcbDrvrAttr :: ; result value :: ; - c-name: "SQLDrivers", c-modifiers: "__stdcall"; + c-name: "SQLDrivers"; end; define c-func-with-err SQLBindParameter < at >< at > -223,7 +223,7 < at >< at > parameter cbValueMax :: ; parameter pcbValue :: ; result value :: ; - c-name: "SQLBindParameter", c-modifiers: "__stdcall"; + c-name: "SQLBindParameter"; end; define c-func-with-err SQLAllocHandleStd < at >< at > -231,7 +231,7 < at >< at > parameter hInput :: ; output parameter phOutput :: ; result value :: ; - c-name: "SQLAllocHandleStd", c-modifiers: "__stdcall"; + c-name: "SQLAllocHandleStd"; end; define c-func-with-err SQLSetScrollOptions < at >< at > -240,7 +240,7 < at >< at > parameter crowKeyset :: ; parameter crowRowset :: ; result value :: ; - c-name: "SQLSetScrollOptions", c-modifiers: "__stdcall"; + c-name: "SQLSetScrollOptions"; end; /* This junk is undocumented and uses types I don't know about. I'm < at >< at > -251,23 +251,23 < at >< at > parameter lpwstr2 :: ; parameter dword3 :: ; result value :: ; - c-name: "TraceOpenLogFile", c-modifiers: "__stdcall"; + c-name: "TraceOpenLogFile"; end; define c-func-with-err TraceCloseLogFile result value :: ; - c-name: "TraceCloseLogFile", c-modifiers: "__stdcall"; + c-name: "TraceCloseLogFile"; end; define c-func-with-err TraceReturn parameter retcode1 :: ; parameter retcode2 :: ; - c-name: "TraceReturn", c-modifiers: "__stdcall"; + c-name: "TraceReturn"; end; define c-func-with-err TraceVersion result value :: ; - c-name: "TraceVersion", c-modifiers: "__stdcall"; + c-name: "TraceVersion"; end; */ \ No newline at end of file Modified: trunk/fundev/sources/databases/odbc-ffi/unix-odbc.lid ============================================================================== --- trunk/fundev/sources/databases/odbc-ffi/unix-odbc.lid(original) +++ trunk/fundev/sources/databases/odbc-ffi/unix-odbc.lidSat Apr 26 12:05:14 2008 < at >< at > -2,13 +2,13 < at >< at > Major-Version: 2 Minor-Version: 1 Library-Pack: ODBC -Linker-Options: -lodbc -liodbcinst +Linker-Options: -lodbc -lodbcinst Files: odbc-library macros constant sqltypes - sql - sqlext + sql-unix + sqlext-unix Copyright: Original Code is Copyright (c) 1995-2004 Functional Objects, Inc. All rights reserved. License: Functional Objects Library Public License Version 1.0 Modified: trunk/fundev/sources/databases/sql-odbc/binding.dylan ============================================================================== --- trunk/fundev/sources/databases/sql-odbc/binding.dylan(original) +++ trunk/fundev/sources/databases/sql-odbc/binding.dylanSat Apr 26 12:05:14 2008 < at >< at > -102,7 +102,7 < at >< at > signal(make(, format-string: "Binding to column whose datatype (%=) is not supported\n" "Using instance of instead.\n", - format-arguments: sql-data-type)); + format-arguments: list(sql-data-type))); values($sql-unsupported-type, null-pointer(), 0, 0); end method; < at >< at > -399,6 +399,26 < at >< at > values($sql-c-char, storage, storage-size, precision); end method; +define method create-storage(sql-data-type == $sql-longvarchar, + precision :: , + scale :: , + #key initial-value :: false-or()) + => (c-data-type :: , + storage :: , + storage-size :: , + data-size :: ) + // string size includes the null termination byte which ODBC appends + let storage-size = precision + 1; + let storage = make(, size: storage-size); + if (initial-value ~= #f) + for (ndx from 0 to min(initial-value.size, storage-size) - 1) + pointer-value(storage, index: ndx) := initial-value[ndx]; + end for; + end if; + + values($sql-c-char, storage, storage-size, precision); +end method; + define sealed concrete class () Modified: trunk/fundev/sources/databases/sql-odbc/conditions.dylan ============================================================================== --- trunk/fundev/sources/databases/sql-odbc/conditions.dylan(original) +++ trunk/fundev/sources/databases/sql-odbc/conditions.dylanSat Apr 26 12:05:14 2008 < at >< at > -48,7 +48,7 < at >< at > if (return-code = $sql-invalid-handle) error("Assert-odbc-goodness: invalid ODBC handle."); else - error("Assert-odbc-goodness: error in acquiring sqlstate."); + error("Assert-odbc-goodness: error in acquiring sqlstate: %=", return-code); end if; end if; end method; Added: trunk/fundev/sources/registry/generic/odbc-ffi ============================================================================== --- (empty file) +++ trunk/fundev/sources/registry/generic/odbc-ffiSat Apr 26 12:05:14 2008 < at >< at > -0,0 +1,2 < at >< at > +abstract://dylan/databases/odbc-ffi/unix-odbc.lid + _______________________________________________ chatter mailing list chatter< at >lists.opendylan.org https://www.opendylan.org/mailman/listinfo/chatter

r11774 -trunk/fundev/sources/lib/run-time/pentium-freebsd

2008-04-03T12:05:42

Author: andreas Date: Thu Apr 3 14:05:42 2008 New Revision: 11774 Modified: trunk/fundev/sources/lib/run-time/pentium-freebsd/x86-freebsd-build.jam Log: job: fd Set rpath in .so files too. Modified: trunk/fundev/sources/lib/run-time/pentium-freebsd/x86-freebsd-build.jam ============================================================================== --- trunk/fundev/sources/lib/run-time/pentium-freebsd/x86-freebsd-build.jam(original) +++ trunk/fundev/sources/lib/run-time/pentium-freebsd/x86-freebsd-build.jamThu Apr 3 14:05:42 2008 < at >< at > -336,7 +336,7 < at >< at > } actions together LinkDLL bind NEEDLIBS { - $(CC) -shared -o $(<) -T $(LINKSCRIPTDLL) $(LINKFLAGS) $(>) -L"$(LIBPATH)" $(NEEDLIBS) $(LINKLIBS) + $(CC) -shared -o $(<) -T $(LINKSCRIPTDLL) -Wl,-rpath,"$(LIBPATH:J=:)" $(LINKFLAGS) $(>) -L"$(LIBPATH)" $(NEEDLIBS) $(LINKLIBS) } rule LinkEXE {

r11773 - trunk/libraries/network/koala/sources/koala

2008-04-03T11:25:32

Author: andreas Date: Thu Apr 3 13:25:31 2008 New Revision: 11773 Modified: trunk/libraries/network/koala/sources/koala/errors.dylan trunk/libraries/network/koala/sources/koala/library-unix.dylan trunk/libraries/network/koala/sources/koala/urls.dylan Log: job: minor Temporarily redirect. Modified: trunk/libraries/network/koala/sources/koala/errors.dylan ============================================================================== --- trunk/libraries/network/koala/sources/koala/errors.dylan(original) +++ trunk/libraries/network/koala/sources/koala/errors.dylanThu Apr 3 13:25:31 2008 < at >< at > -136,6 +136,11 < at >< at > "The requested document has moved permanently to %s", location; +define http-error moved-temporarily-redirect () + 302 + "The document has moved temporarily to %s", + loction; + define http-error see-other-redirect () 303 "See Other"; Modified: trunk/libraries/network/koala/sources/koala/library-unix.dylan ============================================================================== --- trunk/libraries/network/koala/sources/koala/library-unix.dylan(original) +++ trunk/libraries/network/koala/sources/koala/library-unix.dylanThu Apr 3 13:25:31 2008 < at >< at > -176,7 +176,8 < at >< at > count-query-values, application-error, current-url, - redirect-to; + redirect-to, + redirect-temporarily-to; // Virtual hosts create < at >< at > -260,6 +261,7 < at >< at > create moved-permanently-redirect, + moved-temporarily-redirect, see-other-redirect, unauthorized-error; Modified: trunk/libraries/network/koala/sources/koala/urls.dylan ============================================================================== --- trunk/libraries/network/koala/sources/koala/urls.dylan(original) +++ trunk/libraries/network/koala/sources/koala/urls.dylanThu Apr 3 13:25:31 2008 < at >< at > -21,3 +21,15 < at >< at > define method redirect-to (url :: ) redirect-to(build-uri(url)); end; + +define open generic redirect-temporarily-to (object :: ); + +define method redirect-temporarily-to (url :: ) + let headers = current-response().response-headers; + add-header(headers, "Location", url); + moved-temporarily-redirect(headers: headers); +end method redirect-to; + +define method redirect-temporarily-to (url :: ) + redirect-to(build-uri(url)); +end;

r11772 - trunk/gwydion/tools/elisp

2008-04-03T09:57:30

Author: hannes Date: Thu Apr 3 11:57:30 2008 New Revision: 11772 Modified: trunk/gwydion/tools/elisp/README Log: Job: minor add initial dswank documentation here.. including the snippet which should be copied to .emacs Modified: trunk/gwydion/tools/elisp/README ============================================================================== --- trunk/gwydion/tools/elisp/README(original) +++ trunk/gwydion/tools/elisp/READMEThu Apr 3 11:57:30 2008 < at >< at > -7,3 +7,17 < at >< at > (setq load-path (cons "/usr/lib/dylan/elisp" load-path)) (autoload 'dylan-mode "dylan-mode" "Dylan-mode" t) (setq auto-mode-alist (cons '("\\.dylan\\'" . dylan-mode) auto-mode-alist)) + +Dylan-slime interface +--------------------- + +To enable slime with Open Dylan, compile project dswank + (located in fundev/sources/environment/dswank) and +download slime from + cvs -d :pserver:anonymous:anonymous< at >common-lisp.net:/project/slime/cvsroot co slime + +Add the following lines to your .emacs file: +(add-to-list 'load-path "/path/to/slime/") ; your SLIME directory +(setq inferior-lisp-program "/path/to/dswank") ; your dswank binary +(require 'slime) +(slime-setup '(slime-dylan))

r11771 - trunk/fundev/sources/environment/dswank

2008-04-03T09:56:30

Author: hannes Date: Thu Apr 3 11:56:29 2008 New Revision: 11771 Modified: trunk/fundev/sources/environment/dswank/dswank-exports.dylan trunk/fundev/sources/environment/dswank/dswank.dylan Log: Job: minor use $machine-name and $os-name instead of hardcoded machine and os update SLIME version Modified: trunk/fundev/sources/environment/dswank/dswank-exports.dylan ============================================================================== --- trunk/fundev/sources/environment/dswank/dswank-exports.dylan(original) +++ trunk/fundev/sources/environment/dswank/dswank-exports.dylanThu Apr 3 11:56:29 2008 < at >< at > -24,7 +24,10 < at >< at > use standard-io; use sockets; use environment-commands; - use environment-protocols, exclude: { application-filename, application-arguments }; + use environment-protocols, + exclude: { application-filename, + application-arguments, + run-application }; use command-lines; use commands; use source-records; < at >< at > -34,4 +37,5 < at >< at > use registry-projects; //use stack-walker; use release-info; + use operating-system; end module; Modified: trunk/fundev/sources/environment/dswank/dswank.dylan ============================================================================== --- trunk/fundev/sources/environment/dswank/dswank.dylan(original) +++ trunk/fundev/sources/environment/dswank/dswank.dylanThu Apr 3 11:56:29 2008 < at >< at > -57,7 +57,7 < at >< at > #":lisp-implementation", list(#":type", "dylan", #":name", release-product-name(), #":version", release-version()), - #":version", "2008-03-24", + #":version", "2008-03-27", #":package", #(#":name", "opendylan", #":prompt", "opendylan")); end; < at >< at > -75,7 +75,7 < at >< at > end; end; end; - let regs = find-registries("x86", "linux"); + let regs = find-registries($machine-name, $os-name); let reg-paths = map(registry-location, regs); for (reg-path in reg-paths) if (file-exists?(reg-path))

r11770 - trunk/fundev/packages/unix

2008-04-03T09:35:52

Author: hannes Date: Thu Apr 3 11:35:51 2008 New Revision: 11770 Modified: trunk/fundev/packages/unix/README-freebsd.diff Log: Job: minor update README to tell something about the sysctl vm.max_proc_mmap Modified: trunk/fundev/packages/unix/README-freebsd.diff ============================================================================== --- trunk/fundev/packages/unix/README-freebsd.diff(original) +++ trunk/fundev/packages/unix/README-freebsd.diffThu Apr 3 11:35:51 2008 < at >< at > -1,6 +1,31 < at >< at > ---- READMESun Apr 29 21:37:36 2007 -+++ /usr/local/opendylan-1.0beta4/READMESun Apr 29 22:52:07 2007 -< at >< at > -23,14 +23,8 < at >< at > +Index: README-freebsd.diff +=================================================================== +--- README-freebsd.diff(revision 11769) ++++ README-freebsd.diff(working copy) +< at >< at > -1,18 +0,0 < at >< at > +---- READMESun Apr 29 21:37:36 2007 +-+++ /usr/local/opendylan-1.0beta4/READMESun Apr 29 22:52:07 2007 +-< at >< at > -23,14 +23,8 < at >< at > +- Requirements +- ============ +- +--This tarball contains the port of Open Dylan to Linux on x86 CPUs. So, +-+This tarball contains the port of Open Dylan to FreeBSD-6 on x86 CPUs. So, +- you should have that, or an emulation thereof, to run this distribution. +--More specifically, due to the usage of thread-local storage, the +--minimum requirements are: +-- +-- * Linux kernel 2.6 (or newer) +-- * glibc 2.3 (or newer) +-- +- +- Installation +- ============ +Index: README +=================================================================== +--- README(revision 11769) ++++ README(working copy) +< at >< at > -23,15 +23,23 < at >< at > Requirements ============ < at >< at > -9,10 +34,23 < at >< at > you should have that, or an emulation thereof, to run this distribution. -More specifically, due to the usage of thread-local storage, the -minimum requirements are: -- + - * Linux kernel 2.6 (or newer) - * glibc 2.3 (or newer) -- ++You need to set the sysctl vm.max_proc_mmap to 0 (to disable it) in ++/etc/sysctl.conf to compile the whole compiler. This sysctl specifies ++the maximum number of mmap()'d spaces (discrete vm_map_entry's in the ++process). The garbage collector uses a lot of mmap()'d spaces with ++different protection bits. (See discussion on ++freebsd-current< at >lists.freebsd.org from 16 Feb 2000 with the title ++"Heads up, vm.max_proc_mmap sysctl added" for more details). + ++Otherwise you'll get the following error message: ++MPS ASSERTION FAILURE: addr == (void *)base ++vmfr.c ++273 ++ Installation ============ +

r11769 - trunk/fundev/sources/common-dylan

2008-04-03T08:39:13

Author: hannes Date: Thu Apr 3 10:39:13 2008 New Revision: 11769 Modified: trunk/fundev/sources/common-dylan/freebsd-common-extensions.dylan Log: Job: minor fix copyright statement Modified: trunk/fundev/sources/common-dylan/freebsd-common-extensions.dylan ============================================================================== --- trunk/fundev/sources/common-dylan/freebsd-common-extensions.dylan(original) +++ trunk/fundev/sources/common-dylan/freebsd-common-extensions.dylanThu Apr 3 10:39:13 2008 < at >< at > -1,7 +1,7 < at >< at > Module: common-dylan-internals Author: Hannes Mehnert Synopsis: Common extensions to Dylan -Copyright: Original Code is Copyright (c) 1995-2004 Functional Objects, Inc. +Copyright: Original Code is Copyright (c) 2008 Dylan Hackers All rights reserved. License: Functional Objects Library Public License Version 1.0 Dual-license: GNU Lesser General Public License

r11768 - in trunk/fundev/sources: common-dylanlib/unix-portability registry/x86-freebsd registry/x86-linux

2008-04-03T08:31:48

Author: hannes Date: Thu Apr 3 10:31:46 2008 New Revision: 11768 Added: trunk/fundev/sources/common-dylan/freebsd-common-dylan.lid - copied, changed from r11767, trunk/fundev/sources/common-dylan/unix-common-dylan.lid trunk/fundev/sources/common-dylan/freebsd-common-extensions-helper.c (contents, props changed) trunk/fundev/sources/common-dylan/freebsd-common-extensions.dylan (contents, props changed) trunk/fundev/sources/common-dylan/linux-common-dylan.lid - copied, changed from r11767, trunk/fundev/sources/common-dylan/unix-common-dylan.lid trunk/fundev/sources/common-dylan/linux-common-extensions.dylan (contents, props changed) Removed: trunk/fundev/sources/common-dylan/unix-common-dylan.lid Modified: trunk/fundev/sources/common-dylan/library.dylan trunk/fundev/sources/common-dylan/unix-common-extensions.dylan trunk/fundev/sources/lib/unix-portability/freebsd-portability.dylan trunk/fundev/sources/lib/unix-portability/library.dylan trunk/fundev/sources/lib/unix-portability/linux-portability.dylan trunk/fundev/sources/lib/unix-portability/win32-portability.dylan trunk/fundev/sources/registry/x86-freebsd/common-dylan trunk/fundev/sources/registry/x86-linux/common-dylan Log: Bug: 7297 deprecate procfs on FreeBSD: * create separate lid files for common-dylan on FreeBSD and Linux; update registry * implement sysctls on FreeBSD for KERN_PROC_PATHNAME and KERN_PROC_ARGS in freebsd-common-extensions.dylan and freebsd-common-extensions-helper.c * move platform-specific Linux code from unix-common-extensions.dylan to linux-common-extensions.dylan * remove $proc-path from unix-portability; remove unix-portability from common-dylan Copied: trunk/fundev/sources/common-dylan/freebsd-common-dylan.lid (from r11767, trunk/fundev/sources/common-dylan/unix-common-dylan.lid) ============================================================================== --- trunk/fundev/sources/common-dylan/unix-common-dylan.lid(original) +++ trunk/fundev/sources/common-dylan/freebsd-common-dylan.lidThu Apr 3 10:31:46 2008 < at >< at > -5,6 +5,7 < at >< at > Files: library macros common-extensions + freebsd-common-extensions unix-common-extensions locators-protocol streams-protocol < at >< at > -22,6 +23,7 < at >< at > machine-words/signal-overflow machine-words/double machine-words/unsigned-double +C-Source-Files: freebsd-common-extensions-helper.c Copyright: Original Code is Copyright (c) 1995-2004 Functional Objects, Inc. All rights reserved. License: Functional Objects Library Public License Version 1.0 Added: trunk/fundev/sources/common-dylan/freebsd-common-extensions-helper.c ============================================================================== --- (empty file) +++ trunk/fundev/sources/common-dylan/freebsd-common-extensions-helper.cThu Apr 3 10:31:46 2008 < at >< at > -0,0 +1,22 < at >< at > +#include +#include +#include + +uint application_filename_length () { + int mib[4] = { CTL_KERN, KERN_PROC, KERN_PROC_PATHNAME, -1 }; + size_t len; + sysctl(mib, 4, NULL, &len, NULL, 0); + return len; +} + +uint application_filename_name (char* buffer, uint len) { + int mib[4] = { CTL_KERN, KERN_PROC, KERN_PROC_PATHNAME, -1 }; + sysctl(mib, 4, buffer, &len, NULL, 0); + return len; +} + +uint application_arguments (char* buffer, uint len) { + int mib[4] = { CTL_KERN, KERN_PROC, KERN_PROC_ARGS, getpid() }; + sysctl(mib, 4, buffer, &len, NULL, 0); + return len; +} Added: trunk/fundev/sources/common-dylan/freebsd-common-extensions.dylan ============================================================================== --- (empty file) +++ trunk/fundev/sources/common-dylan/freebsd-common-extensions.dylanThu Apr 3 10:31:46 2008 < at >< at > -0,0 +1,44 < at >< at > +Module: common-dylan-internals +Author: Hannes Mehnert +Synopsis: Common extensions to Dylan +Copyright: Original Code is Copyright (c) 1995-2004 Functional Objects, Inc. + All rights reserved. +License: Functional Objects Library Public License Version 1.0 +Dual-license: GNU Lesser General Public License +Warranty: Distributed WITHOUT WARRANTY OF ANY KIND + +define inline-only function get-application-commandline () => (res :: ) + let cursize = 128; + let len = 128; + let buffer = #f; + while (len >= cursize) + cursize := cursize * 2; + buffer := make(, size: cursize, fill: '\0'); + len := raw-as-integer(%call-c-function("application_arguments") + (buffer :: , + length :: ) + => (res :: ) + (primitive-string-as-raw(buffer), + integer-as-raw(cursize)) + end); + end; + copy-sequence(buffer, end: len); +end; + +define inline-only function get-application-filename () => (res :: ) + let length = raw-as-integer(%call-c-function("application_filename_length") +() +=> (length :: ) +() + end); + + let buffer = make(, size: length, fill: '\0'); + let len = raw-as-integer(%call-c-function("application_filename_name") + (buffer :: , + length :: ) + => (res :: ) + (primitive-string-as-raw(buffer), + integer-as-raw(length)) + end); + copy-sequence(buffer, end: len - 1); +end; \ No newline at end of file Modified: trunk/fundev/sources/common-dylan/library.dylan ============================================================================== --- trunk/fundev/sources/common-dylan/library.dylan(original) +++ trunk/fundev/sources/common-dylan/library.dylanThu Apr 3 10:31:46 2008 < at >< at > -14,7 +14,6 < at >< at > finalization, threads, threads-extensions }; - use unix-portability; export common-dylan, common-extensions, < at >< at > -305,5 +304,4 < at >< at > use simple-random; use simple-profiling; use simple-io; - use unix-portability; end module common-dylan-internals; Copied: trunk/fundev/sources/common-dylan/linux-common-dylan.lid (from r11767, trunk/fundev/sources/common-dylan/unix-common-dylan.lid) ============================================================================== --- trunk/fundev/sources/common-dylan/unix-common-dylan.lid(original) +++ trunk/fundev/sources/common-dylan/linux-common-dylan.lidThu Apr 3 10:31:46 2008 < at >< at > -5,6 +5,7 < at >< at > Files: library macros common-extensions + linux-common-extensions unix-common-extensions locators-protocol streams-protocol Added: trunk/fundev/sources/common-dylan/linux-common-extensions.dylan ============================================================================== --- (empty file) +++ trunk/fundev/sources/common-dylan/linux-common-extensions.dylanThu Apr 3 10:31:46 2008 < at >< at > -0,0 +1,85 < at >< at > +Module: common-dylan-internals +Author: Gary Palter +Synopsis: Common extensions to Dylan +Copyright: Original Code is Copyright (c) 1995-2004 Functional Objects, Inc. + All rights reserved. +License: Functional Objects Library Public License Version 1.0 +Dual-license: GNU Lesser General Public License +Warranty: Distributed WITHOUT WARRANTY OF ANY KIND + + +define inline-only function get-application-commandline () => (res :: ) + let pid + = raw-as-integer(%call-c-function("getpid") + () => (pid :: ) + () + end); + + let cmdline-path + = concatenate("/proc/", integer-to-string(pid), "/cmdline"); + let cmdline-fd = -1; + let cmdline :: = ""; + block () + cmdline-fd + := raw-as-integer(%call-c-function ("open") + (path :: , + flags :: , + mode :: ) + => (fd :: ) + (primitive-string-as-raw(cmdline-path), + integer-as-raw(0), + integer-as-raw(0)) + end); + if (cmdline-fd > 0) + let count :: = 1; + while (count > 0) +let buffer = make(, size: 8192, fill: '\0'); +count + := raw-as-integer(%call-c-function ("read") + (fd :: , + buffer :: , + size :: ) + => (count :: ) + (integer-as-raw(cmdline-fd), + primitive-string-as-raw(buffer), + integer-as-raw(8192)) + end); +if (count > 0) + cmdline := concatenate(cmdline, copy-sequence(buffer, end: count)); +end; + end; + end; + cleanup + if (cmdline-fd > 0) + %call-c-function ("close") +(fd :: ) => (ok? :: ) +(integer-as-raw(cmdline-fd)) + end + end + end; + cmdline +end; + +define inline-only function get-application-filename () => (res :: ) + let pid + = raw-as-integer(%call-c-function("getpid") + () => (pid :: ) + () + end); + let exe-path + = concatenate("/proc/", integer-to-string(pid), "/exe"); + let buffer = make(, size: 8192, fill: '\0'); + let count + = raw-as-integer(%call-c-function ("readlink") + (path :: , +buffer :: , +bufsize :: ) + => (count :: ) + (primitive-string-as-raw(exe-path), +primitive-string-as-raw(buffer), +integer-as-raw(8192)) + end); + unless (count = -1) + copy-sequence(buffer, end: count) + end; +end; \ No newline at end of file Modified: trunk/fundev/sources/common-dylan/unix-common-extensions.dylan ============================================================================== --- trunk/fundev/sources/common-dylan/unix-common-extensions.dylan(original) +++ trunk/fundev/sources/common-dylan/unix-common-extensions.dylanThu Apr 3 10:31:46 2008 < at >< at > -47,82 +47,24 < at >< at > define variable *application-filename* :: false-or() = #f; define variable *application-arguments* :: = #[]; -///---*** NOTE: The following works on Linux and, presumably, any other UNIX -///---*** variant that implements the /proc filesystem. define inline-only function ensure-application-name-filename-and-arguments () => () unless (*application-name*) - let pid - = raw-as-integer(%call-c-function ("getpid") () => (pid :: ) () end); - // - let cmdline-path - = concatenate("/proc/", integer-to-string(pid), "/cmdline"); - let cmdline-fd = -1; - block () - cmdline-fd -:= raw-as-integer(%call-c-function ("open") - (path :: , flags :: , - mode :: ) - => (fd :: ) - (primitive-string-as-raw(cmdline-path), - integer-as-raw(0), - integer-as-raw(0)) - end); - if (cmdline-fd > 0) -let cmdline :: = ""; -let count :: = 1; -while (count > 0) - let buffer = make(, size: 8192, fill: '\0'); - count - := raw-as-integer(%call-c-function ("read") - (fd :: , buffer :: , - size :: ) - => (count :: ) -(integer-as-raw(cmdline-fd), - primitive-string-as-raw(buffer), - integer-as-raw(8192)) - end); - if (count > 0) - cmdline := concatenate(cmdline, copy-sequence(buffer, end: count)); - end; -end; -let tokens = make(); -let _start :: = 0; -let _end :: = size(cmdline); -let _skip :: = 0; -while (_start < _end) - let _next :: = position(cmdline, '\0', test: \=, skip: _skip) | _end; - add!(tokens, copy-sequence(cmdline, start: _start, end: _next)); - _start := _next + 1; - _skip := _skip + 1; -end; -*application-name* := tokens[0]; -*application-arguments* := apply(vector, copy-sequence(tokens, start: 1)); - end; - cleanup - if (cmdline-fd > 0) -%call-c-function ("close") - (fd :: ) => (ok? :: ) - (integer-as-raw(cmdline-fd)) -end - end + let cmdline = get-application-commandline(); + let tokens = make(); + let _start :: = 0; + let _end :: = size(cmdline); + let _skip :: = 0; + while (_start < _end) + let _next :: += position(cmdline, '\0', test: \=, skip: _skip) | _end; + add!(tokens, copy-sequence(cmdline, start: _start, end: _next)); + _start := _next + 1; + _skip := _skip + 1; end; - // - let exe-path - = concatenate("/proc/", integer-to-string(pid), "/", $proc-path); - let buffer = make(, size: 8192, fill: '\0'); - let count - = raw-as-integer(%call-c-function ("readlink") - (path :: , buffer :: , - bufsize :: ) -=> (count :: ) - (primitive-string-as-raw(exe-path), - primitive-string-as-raw(buffer), - integer-as-raw(8192)) - end); - unless (count = -1) - *application-filename* := copy-sequence(buffer, end: count) - end - end + *application-name* := tokens[0]; + *application-arguments* := apply(vector, copy-sequence(tokens, start: 1)); + *application-filename* := get-application-filename(); + end; end function ensure-application-name-filename-and-arguments; define function application-name () => (name :: ) Modified: trunk/fundev/sources/lib/unix-portability/freebsd-portability.dylan ============================================================================== --- trunk/fundev/sources/lib/unix-portability/freebsd-portability.dylan(original) +++ trunk/fundev/sources/lib/unix-portability/freebsd-portability.dylanThu Apr 3 10:31:46 2008 < at >< at > -18,5 +18,3 < at >< at > (%call-c-function ("__error") () => (errnop :: ) () end, integer-as-raw(0), integer-as-raw(0))) end; - -define constant $proc-path = "file"; Modified: trunk/fundev/sources/lib/unix-portability/library.dylan ============================================================================== --- trunk/fundev/sources/lib/unix-portability/library.dylan(original) +++ trunk/fundev/sources/lib/unix-portability/library.dylanThu Apr 3 10:31:46 2008 < at >< at > -11,5 +11,5 < at >< at > use dylan; use dylan-direct-c-ffi; - export unix-errno, $proc-path, unix-lseek; + export unix-errno, unix-lseek; end; \ No newline at end of file Modified: trunk/fundev/sources/lib/unix-portability/linux-portability.dylan ============================================================================== --- trunk/fundev/sources/lib/unix-portability/linux-portability.dylan(original) +++ trunk/fundev/sources/lib/unix-portability/linux-portability.dylanThu Apr 3 10:31:46 2008 < at >< at > -12,10 +12,6 < at >< at > end) end; - - define function unix-errno () => (res :: ) raw-as-integer(%call-c-function ("myerrno") () => (errnop :: ) () end) end; - -define constant $proc-path = "exe"; Modified: trunk/fundev/sources/lib/unix-portability/win32-portability.dylan ============================================================================== --- trunk/fundev/sources/lib/unix-portability/win32-portability.dylan(original) +++ trunk/fundev/sources/lib/unix-portability/win32-portability.dylanThu Apr 3 10:31:46 2008 < at >< at > -7,5 +7,3 < at >< at > define function unix-errno () => (res) end; - -define constant $proc-path = ""; Modified: trunk/fundev/sources/registry/x86-freebsd/common-dylan ============================================================================== --- trunk/fundev/sources/registry/x86-freebsd/common-dylan(original) +++ trunk/fundev/sources/registry/x86-freebsd/common-dylanThu Apr 3 10:31:46 2008 < at >< at > -1 +1 < at >< at > -abstract://dylan/common-dylan/unix-common-dylan.lid +abstract://dylan/common-dylan/freebsd-common-dylan.lid Modified: trunk/fundev/sources/registry/x86-linux/common-dylan ============================================================================== --- trunk/fundev/sources/registry/x86-linux/common-dylan(original) +++ trunk/fundev/sources/registry/x86-linux/common-dylanThu Apr 3 10:31:46 2008 < at >< at > -1 +1 < at >< at > -abstract://dylan/common-dylan/unix-common-dylan.lid +abstract://dylan/common-dylan/linux-common-dylan.lid

[Bug 7374] the installer overwrites the PATHenvironment variable

2008-04-03T04:22:32

http://www.gwydiondylan.org/cgi-bin/bugzilla/show_bug.cgi?id=7374 matthew72< at >tiscali.it changed: What |Removed |Added ---------------------------------------------------------------------------- Component|Win32/General |Release | |Engineering/Installation

[Bug 7374] New: the installer overwrites the PATHenvironment variable

2008-04-03T04:18:03

http://www.gwydiondylan.org/cgi-bin/bugzilla/show_bug.cgi?id=7374 Summary: the installer overwrites the PATH environment variable Product: OpenDylan Version: OD 1.0 beta 4 Platform: PC OS/Version: Windows Status: NEW Severity: normal Priority: P2 Component: Win32/General AssignedTo: housel< at >acm.org ReportedBy: matthew72< at >tiscali.it CC: gd-chatter< at >gwydiondylan.org the installer overwrites the PATH environment variable, leaving only the folder where open dylan have been installed. the uninstaller fails to restore the original contents, leaving it completely empty. as a result (system-wide problems aside) compilation in open dylan aborts with an error message complaining that an executable part of the c compiler can't be found ("rc.exe" in my case). btw, i didn't found an option to configure the path to the c compiler used by open dylan (i could probably tweak the related *.jam file, but i don't think that's the best way to do it); such an option would make life easier in case one doesn't want to have a c compiler on the path (a nonsense on unix but not on windows, where having too many things on the path is likely to cause problems). operating system: italian language edition of windows xp service pack 2 with all the fixes from "windows update" open dylan: version 1.0 beta 4 downloaded from http://www.opendylan.org/downloads/opendylan/1.0beta4/opendylan-1.0beta4-win32.exe