mdes2.c

Go to the documentation of this file.

/*****************************************************************************\
 *      File:   mdes2.c
 *      Author: John C. Gyllenhaal
 *      Creation Date:  April 1996
 *      Copyright (c) 1996 John C. Gyllenhaal, Wen-mei Hwu and
 *                         The Board of Trustees of the University of Illinois.
 *                         All rights reserved.
 *      The University of Illinois software License Agreement
 *      specifies the terms and conditions for redistribution.
\*****************************************************************************/

#ifndef lint
#define lint
static char copyright[] =
"@(#) Copyright (c) 1996 John C. Gyllenhaal, Wen-mei Hwu and The Board of \n\
 Trustees of the University of Illinois. All rights reserved.\n";
#endif

#include <stdio.h>
// wah 3/19/98 Changed strings.h to string.h
//#include <strings.h>
#include <string.h>
//#include <Lcode/l_main.h>
#include "l_alloc_new.h"
#include "lmdes.h"
#include "mdes2.h"
#include "mdes2.h"
#include "l_punt.h"

static L_Alloc_Pool *Mdes2_pool = NULL;



Mdes2 *load_mdes2 (char *file_name)
{
    Mdes2 *mdes2;
    FILE *in, *version1_in;
    char *version1_name;
    int name_len;
    int i;

    /* For now, make sure ends with .lmdes2 */
    name_len = strlen (file_name);
    if ((name_len < 7) ||
        (file_name[name_len -7] != '.') ||
        (file_name[name_len -6] != 'l') ||
        (file_name[name_len -5] != 'm') ||
        (file_name[name_len -4] != 'd') ||
        (file_name[name_len -3] != 'e') ||
        (file_name[name_len -2] != 's') ||
        (file_name[name_len -1] != '2'))
    {
        L_punt ("load_mdes2: '%s' must currently end with .lmdes2",
                file_name);
    }

    /* Open the file for reading */
    if ((in = fopen (file_name, "r")) == NULL)
    {
        L_punt ("load_mdes2: Unable to open mdes2 file '%s' for reading.",
                file_name);
    }
    
    /* Initialize mdes2 alloc pool if necessary */
    if (Mdes2_pool == NULL)
        Mdes2_pool = L_create_alloc_pool ("Mdes2", sizeof (Mdes2), 1);

    /* Allocate the mdes2 structure */
    mdes2 = (Mdes2 *) L_alloc (Mdes2_pool);

    /* Get a copy of the file name */
    mdes2->file_name = strdup (file_name);

    /* Read the md version of the machine description */
    mdes2->md_mdes = MD_read_md (in, file_name);
    fclose (in);

    mdes2->version1_mdes = NULL;

    /* Create the schedule manager version of the mdes */
    mdes2->sm_mdes = SM_build_mdes (mdes2);
    
    /* Return the newly created mdes2 structure */
    return (mdes2);
}

---