/* ProjStor.ACT        --this defines additional object storage
                         related methods for the project application
                       --this assumes the Object Storage methods from
                         Language Extensions I are loaded
                       --these are a subset of OBJSTOR2.ACT
*/

/* * * * * * * * * * * *
  storeStructureOn methods.
* * * * * * * * * * * * */

now(Date)!!

/* Override Number:storeStructureOn. */
Def storeStructureOn(self, stream, table)
{ storeStructureOn(self:Object, stream, table);
}!!

/* * * * * * * * * * * *
  storeDefinitionOn methods.
* * * * * * * * * * * * */

now(Date)!!

/* Override Number:storeStructureOn.
  Note: Dates are stored in the form #Date(%123456L). */
Def storeDefinitionOn(self, stream, table)
{ storeStructureOn(asLong(self), stream, table);
}!!

/* * * * * * * * * * * *
  getNew for various classes.
* * * * * * * * * * * * */

now(class(Date))!!

Def getNew(self, reader, id | obj)
{ obj := new(Date);
  set(obj, next(reader));
  addObject(reader, id, obj);
  ^obj;
}!!