ss_blob_t *
 ss_blob_new(ss_scope_t *scope,                  /* Scope where the new blob will be created */
             unsigned flags,                     /* Flags such as SS_ALLSAME */
             ss_blob_t *buf                      /* OUT: Optional buffer to receive blob link */
             )
 {
     SS_ENTER(ss_blob_new, ss_blob_tP);
     ss_blob_t   *retval=NULL;

     if (NULL==(retval=(ss_blob_t*)ss_pers_new(scope, SS_MAGIC(ss_blob_t), NULL, flags, (ss_pers_t*)buf, NULL))) SS_ERROR(FAILED);
 SS_CLEANUP:
     SS_LEAVE(retval);
 }