script/mapi_object_init.prop

   1 void
   2 uno_check(void)
   3 {       /* warning, named args to select() are currently not supported */
   4
   5         if (select("mapi_object_init", FCALL, NONE))    /* unmarked symbols of type function call */
   6         {       if (select("", USE, NONE))              /* unmarked symbols USEd in those stmnts */
   7                 {       if (match(1, DEF, NONE))        /* are there matching symbols with mark 1? */
   8                                 error("mapi_object_init follows mapi_object_init");
   9                         else
  10                                 mark(1);                /* mark 1 */
  11                 }
  12         }
  13
  14         if (select("mapi_object_release", FCALL, NONE))
  15         {       if (select("", USE, NONE))
  16                 {       if (match(1, USE, NONE))
  17                                 unmark();               /* remove mark */
  18                         else
  19                                 error("mapi_object_release without mapi_object_init");
  20                 } else
  21                         error("no argument to mapi_object_release");
  22         }
  23
  24         if (path_ends())
  25         {       if (marked(1, ANY, NONE))
  26                 {       if (known_zero())
  27                                 no_error();
  28                         else
  29                                 error("mapi_object_init without mapi_object_release");
  30         }       }
  31 }