Committed ObjectFramework application @ 2017-08-05_01:29:50

Author: b3m2a1

ObjectFramework.m

@@ -1,6 +1,23 @@
 (* ::Package:: *)
 
-$packageHeader
+(************************************************************************)
+(* This file was generated automatically by the Mathematica front end. *)
+(* It contains Initialization cells from a Notebook file, which *)
+(* typically will have the same name as this file except ending in *)
+(* ".nb" instead of ".m". *)
+(* *)
+(* This file is intended to be loaded into the Mathematica kernel using *)
+(* the package loading commands Get or Needs. Doing so is equivalent *)
+(* to using the Evaluate Initialization Cells menu command in the front *)
+(* end. *)
+(* *)
+(* DO NOT EDIT THIS FILE. This entire file is regenerated *)
+(* automatically each time the parent Notebook file is saved in the *)
+(* Mathematica front end. Any changes you make to this file will be *)
+(* overwritten. *)
+(************************************************************************)
+
+
 
 $OFObjectTable::usage=
 "The master table of objects an types";
@@ -122,18 +139,17 @@
 ];
 
 
-OFNew[a:{(_Association->_)..}]:=
+OFNew[objs:{__Association}]:=
 With[{
-types=Lookup[Map[First,a],"ObjectType","Object"],
-objs=Map[First,a],
-args=Map[Last,a]
+types=Lookup[objs,"ObjectType","Object"],
+args=Lookup[objs,"ObjectInitializationArguments",{}]
 },
 With[{uuids=CreateUUID[#<>"-"]&/@types},
 AssociateTo[$OFObjectTable["Objects"],
 MapThread[
 #3->
 Join[
-#,
+KeyDrop[#,"ObjectInitializationArguments"],
 <|
 "ObjectType"->#2
 |>
@@ -160,8 +176,16 @@
 OFObject/@uuids
 ]
 ];
-OFNew[s_String,args___]:=
-OFNew[<|"ObjectType"->s|>,args];
+OFNew[a:{(_String->_Association|_String)..}]:=
+OFNew@
+Map[
+If[Length[#]==2,
+Append[#[[2]],"ObjectType"->#[[1]]],
+<|"ObjectType"->#|>
+]&,
+a];
+OFNew[a:_Association|_String|(_String->_Association)]:=
+First@OFNew[{a}];
 
 
 OFSelect[pattern_:_]:=