From 1bd7a315100f6ae9fd6254a1fefdbc5edd9ff550 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Wed, 24 Apr 2019 22:59:38 -0400
Subject: driver: added F77 support.
---
include/slibtool/slibtool.h | 1 +
src/driver/slbt_driver_ctx.c | 3 +++
src/skin/slbt_skin_default.c | 2 +-
3 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/include/slibtool/slibtool.h b/include/slibtool/slibtool.h
index 360ec7c..2738080 100644
--- a/include/slibtool/slibtool.h
+++ b/include/slibtool/slibtool.h
@@ -110,6 +110,7 @@ enum slbt_tag {
SLBT_TAG_UNKNOWN,
SLBT_TAG_CC,
SLBT_TAG_CXX,
+ SLBT_TAG_F77,
SLBT_TAG_NASM,
SLBT_TAG_RC,
};
diff --git a/src/driver/slbt_driver_ctx.c b/src/driver/slbt_driver_ctx.c
index da8bc76..4ff364b 100644
--- a/src/driver/slbt_driver_ctx.c
+++ b/src/driver/slbt_driver_ctx.c
@@ -1318,6 +1318,9 @@ int slbt_get_driver_ctx(
else if (!strcmp("CXX",entry->arg))
cctx.tag = SLBT_TAG_CXX;
+ else if (!strcmp("F77",entry->arg))
+ cctx.tag = SLBT_TAG_F77;
+
else if (!strcmp("NASM",entry->arg))
cctx.tag = SLBT_TAG_NASM;
diff --git a/src/skin/slbt_skin_default.c b/src/skin/slbt_skin_default.c
index 6300d8f..334c69a 100644
--- a/src/skin/slbt_skin_default.c
+++ b/src/skin/slbt_skin_default.c
@@ -35,7 +35,7 @@ const struct argv_option slbt_default_options[] = {
"do not make any changes to the file system"},
{"tag", 0,TAG_TAG,ARGV_OPTARG_REQUIRED,0,
- "CC|CXX|NASM|RC|disable-static|disable-shared",0,
+ "CC|CXX|F77|NASM|RC|disable-static|disable-shared",0,
"a universal playground game; "
"currently accepted tags are {%s}"},
--
cgit v1.2.3