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