@@ -49,6 +49,10 @@ object. cardinalmeta = get_hll_global ['CardinalObject'], '!CARDINALMETA' compilerclass = cardinalmeta.'new_class'('cardinal::Compiler', 'parent'=>'PCT::HLLCompiler') + $P2 = new 'CardinalString' + $P2 = "" + set_hll_global '$,', $P2 + compiler = compilerclass.'new'() compiler.'language'('cardinal') $P0 = get_hll_namespace ['cardinal';'Grammar'] cardinal.pir @@ -610,13 +610,20 @@ Returns a string comprised of all of the list, separated by the string SEPARATOR .sub 'join' :method .param string sep :optional + .param int sep_given :opt_flag .local string res .local string tmp .local int len .local int i - + res = "" + + if sep_given goto skip_setting_sep + $P0 = get_hll_global '$,' + sep = $P0 + + skip_setting_sep: len = elements self if len == 0 goto done src/classes/Array.pir dd12a49ca797f6e6e96cc6baff121d773d0e052a Joeri Samson joerisamson@gmail.com http://github.com/cardinal/cardinal/commit/550139a3187ca8a1b20790e9a6262ef92a90425d 550139a3187ca8a1b20790e9a6262ef92a90425d 2009-08-02T11:29:06-07:00 2009-07-28T14:48:36-07:00 Respect $, when joining, and set $, when cardinal starts Signed-off-by: Ted Reed <ted.reed@gmail.com> b146a2894669d0e7cd28958e4f6b647e04745a10 Ted Reed ted.reed@gmail.com