xsharp.eu

Code: Select all

CLASS MyKeyCollection INHERIT KeyedCollecion<STRING, MyClass>
  METHOD GetKeyForItem(o AS MyClass) AS STRING
  RETURN o:Name
END CLASS

Code: Select all

CLASS MyKeyCollection INHERIT KeyedCollecion<STRING, MyClass>
  EXPORT Key AS STRING
  CONSTRUCTOR(k AS STRING)
    SUPER()
    Key := k
  RETURN
  PROTECTED METHOD GetKeyForItem(o AS MyClass) AS STRING
  RETURN o[Key]
END CLASS
CLASS MyClass
  PROTECT kvp AS KeyValuePair<STRING, STRING>
  PROPERTY SELF[k AS STRING] AS STRING GET SELF[k] SET SELF[k] := VALUE
END CLASS

Code: Select all

class MessengerMessage implements IMessengerMessage
  protect _cMessage as string
  protect _oSender as IMessengerClient
  protect _oReceiver as IMessengerClient
  protect _oData as object
  protect _oParameters as Dictionary<string,object>

Code: Select all

public method AddParameter( cName as string, oValue as object ) as void 
	
if _oParameters == null
  _oParameters := Dictionary<string,object>{}
endif
if _oParameters:ContainsKey( cName )
  _oParameters[cName] := oValue
else
  _oParameters:Add( cName, oValue )
endif
	
return
	
public virtual method GetParameter( cName as string ) as object
local oValue as object
	
if _oParameters:ContainsKey( cName )
  oValue := _oParameters[cName]
else
  oValue := null
endif
	
return oValue

Code: Select all

PROPERTY SELF[name AS STRING] AS OBJECT
  GET
    // your GetParameter code here
  END  GET
  SET
    // Your PutParameter code here
  END SET
END PROPERTY

Code: Select all

{|o| o:Par1 + o:Par2 * o:Par3 } // Where o is the codeblock itself.

Code: Select all

(string, string, string) LookupName(long id) // tuple return type
{
    ... // retrieve first, middle and last from data storage
    return (first, middle, last); // tuple literal
}

Code: Select all

var names = LookupName(id);
WriteLine($"found {names.Item1} {names.Item3}.");

Code: Select all

(string first, string middle, string last) LookupName(long id) // tuple elements have names

Code: Select all

var names = LookupName(id);
WriteLine($"found {names.first} {names.last}.");

Code: Select all

FUNCTION LookupName(id AS LONG) AS (STRING,STRING,STRING)

Code: Select all

FUNCTION LookupName(id AS LONG) AS ( First AS STRING, Middle AS STRING, Last AS STRING)