From 6e6b0ff289dc734aee33ff3db68aa1c998aaba67 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Sat, 29 Jun 2019 10:32:11 +0000
Subject: driver: added FC 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 2738080..fd188df 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_FC,
 	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 ec47db8..22eb0bc 100644
--- a/src/driver/slbt_driver_ctx.c
+++ b/src/driver/slbt_driver_ctx.c
@@ -1324,6 +1324,9 @@ int slbt_get_driver_ctx(
 					else if (!strcmp("CXX",entry->arg))
 						cctx.tag = SLBT_TAG_CXX;
 
+					else if (!strcmp("FC",entry->arg))
+						cctx.tag = SLBT_TAG_FC;
+
 					else if (!strcmp("F77",entry->arg))
 						cctx.tag = SLBT_TAG_F77;
 
diff --git a/src/skin/slbt_skin_default.c b/src/skin/slbt_skin_default.c
index c7a51c1..51e7452 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|F77|NASM|RC|disable-static|disable-shared",0,
+				"CC|CXX|FC|F77|NASM|RC|disable-static|disable-shared",0,
 				"a universal playground game; "
 				"currently accepted tags are {%s}"},
 
-- 
cgit v1.2.3