Example #1
0
static int
write_dhmm(float32 **tmat, float32 ***mixw, FILE *fp)
{
    int32 n_arc;
    uint32 i, j, k;
    int32 tmp;

    fwrite_long (fp, COUNT_F);
				/* what type of file it is (trans only) */
				/* might also be BIG_HMM */

    fwrite_long (fp, S2_N_CODEWORD);	/* number of codewords??? */

    fwrite_long (fp, S2_N_STATE-1);	/* n_omatrix */


    /*
     * Output pdfs
     */
    for (j = 0; j < 4; j++) {
	for (i = 0; i < S2_N_STATE-1; i++) {
	    for (k = 0; k < S2_N_CODEWORD; k++) {
		tmp = LOG(mixw[i][j][k]);
		fwrite_long(fp, tmp);
	    }
	}
    }

    fwrite_long (fp, S2_N_STATE);	/* n_states */
    fwrite_long (fp, 1);			/* n_initial (states) */
    fwrite_long (fp, 0);			/* list of initial states {0} */
    fwrite_long (fp, 1);			/* n_final */
    fwrite_long (fp, (S2_N_STATE-1));  /* list of final states {S2_N_STATE-1} */

    n_arc = 14;
    fwrite_long (fp, n_arc);		/* number of arcs */

    /*
     * Dump these in the same order as s2 did.
     */
    write_transition (0, 0, LOG(tmat[0][0]), 0, fp);
    write_transition (0, 1, LOG(tmat[0][1]), 0, fp);

    write_transition (1, 1, LOG(tmat[1][1]), 1, fp);
    write_transition (1, 2, LOG(tmat[1][2]), 1, fp);

    write_transition (2, 2, LOG(tmat[2][2]), 2, fp);
    write_transition (2, 3, LOG(tmat[2][3]), 2, fp);

    write_transition (3, 3, LOG(tmat[3][3]), 3, fp);
    write_transition (3, 4, LOG(tmat[3][4]), 3, fp);

    write_transition (4, 4, LOG(tmat[4][4]), 4, fp);
    write_transition (4, 5, LOG(tmat[4][5]), 4, fp);

    /* skip arcs */
    write_transition (0, 2, LOG(tmat[0][2]), 0, fp);
    write_transition (1, 3, LOG(tmat[1][3]), 1, fp);
    write_transition (2, 4, LOG(tmat[2][4]), 2, fp);
    write_transition (3, 5, LOG(tmat[3][5]), 3, fp);

    return S3_SUCCESS;
}
Example #2
0
static int
write_sdm(float32 **tmat, FILE *fp)
{
    int32 n_arc;
    

    fwrite_long (fp, TIED_DIST);
				/* what type of file it is (trans only) */
				/* might also be BIG_HMM */

    fwrite_long (fp, S2_N_CODEWORD);	/* number of codewords??? */

    fwrite_long (fp, S2_N_STATE-1);	/* n_omatrix */


    /*
     * Output pdfs would go here, but instead go in *.{ccode,xcode,...}
     */

    fwrite_long (fp, S2_N_STATE);	/* n_states */
    fwrite_long (fp, 1);			/* n_initial (states) */
    fwrite_long (fp, 0);			/* list of initial states {0} */
    fwrite_long (fp, 1);			/* n_final */
    fwrite_long (fp, (S2_N_STATE-1));  /* list of final states {S2_N_STATE-1} */

    n_arc = 14;
    fwrite_long (fp, n_arc);		/* number of arcs */

    /*
     * Dump these in the same order as s2 did.
     */
    write_transition (0, 0, LOG(tmat[0][0]), 0, fp);
    write_transition (0, 1, LOG(tmat[0][1]), 0, fp);
    write_transition (1, 1, LOG(tmat[1][1]), 1, fp);
    write_transition (1, 2, LOG(tmat[1][2]), 1, fp);
    write_transition (2, 2, LOG(tmat[2][2]), 2, fp);
    write_transition (2, 3, LOG(tmat[2][3]), 2, fp);
    write_transition (3, 3, LOG(tmat[3][3]), 3, fp);
    write_transition (3, 4, LOG(tmat[3][4]), 3, fp);
    write_transition (4, 4, LOG(tmat[4][4]), 4, fp);
    write_transition (4, 5, LOG(tmat[4][5]), 4, fp);
    write_transition (0, 2, LOG(tmat[0][2]), 0, fp);
    write_transition (1, 3, LOG(tmat[1][3]), 1, fp);
    write_transition (2, 4, LOG(tmat[2][4]), 2, fp);
    write_transition (3, 5, LOG(tmat[3][5]), 3, fp);

    return S3_SUCCESS;
}
Example #3
0
void write_rules ()
{
   struct source_group_node   *s;
   char                       *filter = ccfilter ? " $(CCFILTER)" : "";

	/*
	*	Write dependencies with actions for all source groups.
	*	These are used instead of the transition rules when the
	*	source file and object file are in different directories.
	*	A separate dependency action is generated for each source group
	*	to prevent a "too many lefts" error from make(1).
	*/

   if ( src_flags.c )
   {
      s = srcfiles;
      while (s)
      {
         if( s->c_list )
         {
            fprintf(outfp, "$(c_%s):\n", s->sgrp_name);
            write_why("$(@)");
            write_transition(cNameFromObjName, "$(@)");
            write_change_dir();
            write_dependency_action(cToObjActionFormat, ccdef, filter);
         }
         s = s->next;
      }
   }

   if ( src_flags.assm )
   {
      s = srcfiles;
      while (s)
      {
         if( s->assm_list )
         {
            fprintf(outfp, "$(assm_%s):\n", s->sgrp_name);
            write_why("$(@)");
            write_transition(asmNameFromObjName, "$(@)");
            write_change_dir();
            write_dependency_action(asmToObjActionFormat, 0, 0);
         }
         s = s->next;
      }
   }

   if ( src_flags.spec )
   {
      s = srcfiles;
      while (s)
      {
         if( s->spec_list )
         {
            fprintf(outfp, "$(spec_%s):\n", s->sgrp_name);
            write_why("$(@)");
            write_change_dir();
            write_opp_dependency_action(SNameFromObjName, filter);
         }
         s = s->next;
      }
   }

   if ( src_flags.imp )
   {
      s = srcfiles;
      while (s)
      {
         if( s->imp_list )
         {
            fprintf(outfp, "$(imp_%s):\n", s->sgrp_name);
            write_why("$(@)");
            write_change_dir();
            write_opp_dependency_action(INameFromObjName, filter);
         }
         s = s->next;
      }
   }

   if ( src_flags.C )
   {
      s = srcfiles;
      while (s)
      {
 	 if( s->C_list )
         {
            fprintf(outfp, "$(C_%s):\n", s->sgrp_name);
            write_why("$(@)");
            write_transition(CNameFromObjName, OmcppOutFileName);
            write_change_dir();
#if defined(CLIX) || defined(SUNOS) || defined(IRIX)
            fprintf(outfp, "\t if [ -n \"$(VERBOSE_RULES)\" ]; \\\n");
            fprintf(outfp, "\t then \\\n");
            fprintf(outfp, "\t      echo \"\\t%s $(SRC)/$(@:.o=.C) $(@F:.o=.c)\"; \\\n", omcppdef);
            fprintf(outfp, "\t fi; \\\n");
            fprintf(outfp, "\t %s \\\n\t\t$(SRC)/$(@:.o=.C) $(@F:.o=.c); \\\n", omcppdef);
            fprintf(outfp, "\t if [ \"$(FAST)\" ]; \\\n");
            fprintf(outfp, "\t then \\\n");
            fprintf(outfp, "\t     if [ -f $(@) ]; then rm $(@); fi; \\\n");
            fprintf(outfp, "\t     if [ -z \"$(VERBOSE_RULES)\" ]; \\\n");
            fprintf(outfp, "\t     then \\\n");
            fprintf(outfp, "\t        echo \"\\t$(@:.o=.c) -> cc.list\\c\"; \\\n");
            fprintf(outfp, "\t     else \\\n");
            fprintf(outfp, "\t        echo \"\\techo \\\"$(@:.o=.c)\\\" >>cc.list\"; \\\n");
            fprintf(outfp, "\t     fi; \\\n");
            fprintf(outfp, "\t     echo \"$(@:.o=.c)\" >>cc.list; \\\n");
            fprintf(outfp, "\t else \\\n");
            fprintf(outfp, "\t     if [ -z \"$(VERBOSE_RULES)\" ]; \\\n");
            fprintf(outfp, "\t     then \\\n");
            fprintf(outfp, "\t         echo \"\\t$(@:.o=.c) -> $(@)\"; \\\n");
            fprintf(outfp, "\t     else \\\n");
            fprintf(outfp, "\t         echo \"\\t%s -c $(@F:.o=.c)%s\"; \\\n", ccdef, filter);
            fprintf(outfp, "\t     fi; \\\n");
            fprintf(outfp, "\t     %s -c $(@F:.o=.c)%s; \\\n", ccdef, filter);
            write_dependency_file_cleanup(OmcppOutExtension);
            fprintf(outfp, "\t fi\n");
            fprintf(outfp, "\t@echo \n\n");
#elif defined(NT)
            fprintf(outfp, "\t@if not \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t%s $(SRC)\\$(@:.obj=.C) $(@F:.obj=.i)\"\n", omcppdef);
            fprintf(outfp, "\t@%s \\\n\t\t$(SRC)\\$(@:.obj=.C) $(@F:.obj=.i)\n", omcppdef);
            fprintf(outfp, "\t@if \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t$(@:.obj=.i) -> $(@)\"\n");
            fprintf(outfp, "\t@if not \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t%s -c -Tc $(@F:.obj=.i)%s\"\n", ccdef, filter);
            fprintf(outfp, "\t@%s -c -Tc $(@F:.obj=.i)%s\n", ccdef, filter);
            write_dependency_file_cleanup(OmcppOutExtension);
            fprintf(outfp, "\t@$(ECHO) \n\n");
#else
#error Unknown OS
#endif
         }
         s = s->next;
      }
   }

	/*
	*	These are the inference rules.  They are used when source
	*	and object file are in the same directory.
	*/

   if ( src_flags.imp )
      write_opp_inference_rule(IToObjTransition, filter);

   if ( src_flags.C )
   {
#if defined(CLIX) || defined(SUNOS) || defined(IRIX)
      fprintf(outfp, ".C.o:\n");
      write_why("$<");
      fprintf(outfp, "\t@if [ -z \"$(VERBOSE_RULES)\" ]; \\\n");
      fprintf(outfp, "\t then \\\n");
      fprintf(outfp, "\t     echo \"\\t$< -> $*.c\"; \\\n");
      fprintf(outfp, "\t else \\\n");
      fprintf(outfp, "\t     echo \"\\t%s $< $*.c\"; \\\n", omcppdef);
      fprintf(outfp, "\t fi\n");
      fprintf(outfp, "\t@%s $< $*.c\n", omcppdef);
      fprintf(outfp, "\t@if [ \"$(FAST)\" ]; \\\n");
      fprintf(outfp, "\t then \\\n");
      fprintf(outfp, "\t     if [ -f $(@) ]; then rm $(@); fi; \\\n");
      fprintf(outfp, "\t     if [ -z \"$(VERBOSE_RULES)\" ]; \\\n");
      fprintf(outfp, "\t     then \\\n");
      fprintf(outfp, "\t         echo \"\\t$*.c -> cc.list\\c\"; \\\n");
      fprintf(outfp, "\t     else \\\n");
      fprintf(outfp, "\t         echo \"\\techo \\\"$*.c\\\" >>cc.list\"; \\\n");
      fprintf(outfp, "\t     fi; \\\n");
      fprintf(outfp, "\t     echo \"$*.c\" >>cc.list; \\\n");
      fprintf(outfp, "\t else \\\n");
      fprintf(outfp, "\t     if [ -z \"$(VERBOSE_RULES)\" ]; \\\n");
      fprintf(outfp, "\t     then \\\n");
      fprintf(outfp, "\t         echo \"\\t$*.c -> $*.o\"; \\\n");
      fprintf(outfp, "\t     else \\\n");
      fprintf(outfp, "\t         echo \"\\t%s -c $*.c%s\"; \\\n", ccdef, filter);
      fprintf(outfp, "\t     fi; \\\n");
      fprintf(outfp, "\t     %s -c $*.c%s; \\\n", ccdef, filter);
      write_inference_rule_file_cleanup(OmcppOutExtension);
      fprintf(outfp, "\t fi\n");
      fprintf(outfp, "\t@echo \n\n");
#elif defined(NT)
      fprintf(outfp, ".C.obj:\n");
      write_why("$<");
      fprintf(outfp, "\t@if \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t$< -> $*.c\"\n");
      fprintf(outfp, "\t@if not \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t%s $< $*.c\"\n", omcppdef);
      fprintf(outfp, "\t@%s $< $*.c\n", omcppdef);
      fprintf(outfp, "\t@if \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t$*.c -> $*.o\"\n");
      fprintf(outfp, "\t@if not \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t%s -c $*.c%s\"\n", ccdef, filter);
      fprintf(outfp, "\t@%s -c $*.c%s\n", ccdef, filter);
      write_inference_rule_file_cleanup(OmcppOutExtension);
      fprintf(outfp, "\t@$(ECHO) \n\n");
#else
#error Unknown OS
#endif
   }

   if ( src_flags.spec )
      write_opp_inference_rule(SToObjTransition, filter);

#if defined(CLIX) || defined(SUNOS) || defined(IRIX)
   fprintf(outfp, ".c.o:\n");
   write_why("$<");
   fprintf(outfp, "\t@if [ -z \"$(VERBOSE_RULES)\" ]; \\\n");
   fprintf(outfp, "\t then \\\n");
   fprintf(outfp, "\t     echo \"\\t$< -> $*.o\"; \\\n");
   fprintf(outfp, "\t else \\\n");
   fprintf(outfp, "\t     echo \"\\t%s -c $*.c%s\"; \\\n", ccdef, filter);
   fprintf(outfp, "\t fi\n");
   fprintf(outfp, "\t@%s -c $*.c%s\n", ccdef, filter);
   fprintf(outfp, "\t@echo \n\n");
#elif defined(NT)
   fprintf(outfp, ".c.obj:\n");
   write_why("$<");
   fprintf(outfp, "\t@if \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t$< -> $*.obj\"\n");
   fprintf(outfp, "\t@if not \"$(VERBOSE_RULES)\" == \"\" $(ECHO) \"\\\\t%s -c $*.c%s\"\n", ccdef, filter);
   fprintf(outfp, "\t@%s -c $*.c%s\n", ccdef, filter);
   fprintf(outfp, "\t@$(ECHO) \n\n");
#else
#error Unknown OS
#endif
}