...
 
Commits (3)
......@@ -290,7 +290,6 @@ private
pragma Linker_Options ("c_backend.o");
pragma Linker_Options ("sdl_gateway.o");
pragma Linker_Options ("build_sdl_glue.o");
pragma Linker_Options ("simulink_gateway.o");
pragma Linker_Options ("concurrency_view.o");
pragma Linker_Options ("vertical_transformation.o");
......
......@@ -10,7 +10,7 @@ project BuildSupport is
for Languages use ("Ada", "C");
for Source_Files use ("c_backend.c", "sdl_gateway.c", "my_types.h",
"build_sdl_glue.c", "imported_routines.ads", "buildsupport.adb",
"imported_routines.ads", "buildsupport.adb",
"buildsupport_utils.ads", "buildsupport_utils.adb",
"simulink_gateway.c");
......@@ -20,7 +20,7 @@ project BuildSupport is
package binder is
for default_switches ("Ada") use ("-E", "-t", "-static");
end binder;
end binder;
package Compiler is
for Default_Switches ("Ada") use
......@@ -28,9 +28,9 @@ project BuildSupport is
"-gnat05",
"-gnatf",
"-gnaty",
-- "-gnatwa",
-- "-gnatwa",
"-gnatoa",
"-gnatg",
"-gnatg",
"-fstack-check");
for Default_Switches ("C") use ("-g");
......
......@@ -249,15 +249,7 @@ void Create_script()
}
fprintf (script, "%s", fv->name);
/* ObjectGEODE systems are treated differently from all other languages,
because it directly refers to .pr files, instead of zip files
if (sdl == fv->language) { UNCOMMENT WHEN OPENGEODE FULLY SUPPORTED
fprintf (script, ":\"$SKELS\"/%s/system_implementation.pr, \"$SKELS\"/%s/system_structure.pr, \"$SKELS\"/%s/DataView.pr",
fv->name,
fv->name,
fv->name);
} */
/*else*/
if (rtds == fv->language && NULL == fv->zipfile) {
fprintf (script, ":\"$SKELS\"/%s/%s.zip", fv->name, fv->name);
}
......
This diff is collapsed.
......@@ -136,7 +136,6 @@ void C_End()
/* Export to SMP2: generate glue code and Python AST */
if (true == get_context()->smp2) {
GLUE_OG_Backend(fv);
GLUE_RTDS_Backend(fv);
GLUE_MiniCV_Backend(fv);
GLUE_C_Backend(fv);
......@@ -186,7 +185,6 @@ void C_End()
}
if (get_context()->glue) {
GLUE_OG_Backend(fv);
GLUE_RTDS_Backend(fv);
GLUE_MiniCV_Backend(fv);
GLUE_C_Backend(fv);
......
......@@ -3,10 +3,10 @@
* License is LGPL, check LICENSE file */
/*
ObjectGEODE 4.2 skeleton-generation
Update August 2012 : support for OpenGEODE 1.0
*/
SDL Skeleton-generation
Update August 2012 : support for OpenGEODE in place of ObjectGEODE..
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
......@@ -23,27 +23,23 @@ void Create_New_SDL_Structure(FV * fv)
{
FILE *process;
char *path = NULL;
char *command = NULL;
if (NULL != fv->system_ast->context->output)
build_string(&path, fv->system_ast->context->output,
strlen(fv->system_ast->context->output));
build_string(&path, fv->name, strlen(fv->name));
/* OpenGEODE Skeletons require iv.py and DataView.py to be present in the working directory */
Generate_Python_AST(get_system_ast(), path);
char *dataview_uniq = getASN1DataView();
char *dataview_path = getDataViewPath();
/* OpenGEODE Skeletons require the dataview(s) .asn files */
//Generate_Python_AST(get_system_ast(), path);
char *dataview_uniq = getASN1DataView();
char *dataview_path = getDataViewPath();
if (!file_exists (dataview_path, dataview_uniq)) {
ERROR ("[Information] %s/%s not found. Checking for dataview-uniq.asn\n", dataview_path, dataview_uniq);
free (dataview_uniq);
dataview_uniq = make_string ("dataview-uniq.asn");
ERROR ("[Information] %s/%s not found. Checking for dataview-uniq.asn\n", dataview_path, dataview_uniq);
free (dataview_uniq);
dataview_uniq = make_string ("dataview-uniq.asn");
}
char *command = make_string("mono $(which asn1.exe) -customStg $(taste-config --prefix)/share/asn1scc/python.stg:%s/DataView.py -customStgAstVerion 4 %s/%s", path, dataview_path, dataview_uniq);
if (system(command)) {
ERROR ("** Error: Command \"%s\" failed in generation of SDL skeleton\n", command);
}
free(command);
command = make_string("cp \"%s/%s\" %s/", dataview_path, dataview_uniq, path);
if (system(command)) {
ERROR ("** Error: Command \"%s\" failed in generation of SDL skeleton\n", command);
......
......@@ -31,7 +31,6 @@ extern void AADL_CV_Unparser();
extern void Preprocessing_Backend(System *);
extern void ModelTransformation_Backend(System *);
extern void Semantic_Checks();
extern void GLUE_OG_Backend(FV *);
extern void GLUE_RTDS_Backend(FV *);
extern void GLUE_MiniCV_Backend(FV *);
extern void GLUE_C_Backend(FV *);
......