1 files changed, 87 insertions, 0 deletions
diff --git a/Linux_C_12/cCrossCallFont_121.c b/Linux_C_12/cCrossCallFont_121.c
new file mode 100644
index 0000000..c0e1cd3
--- /dev/null
+++ b/Linux_C_12/cCrossCallFont_121.c
@@ -0,0 +1,87 @@
+/********************************************************************************************
+	Clean OS Windows library module version 1.2.1.
+	This module is part of the Clean Object I/O library, version 1.2.1,
+	for the Windows platform.
+********************************************************************************************/
+
+/********************************************************************************************
+	About this module:
+	Routines related to font handling.
+********************************************************************************************/
+#include "cCrossCallFont_121.h"
+#include "cCrossCall_121.h"
+
+/*
+
+static int CALLBACK EnumFontNameProc (ENUMLOGFONT FAR * lpelf,		// pointer to logical-font  data 
+									  NEWTEXTMETRIC FAR * lpntm,	// pointer to physical-font data 
+									  int fontType,					// type of font
+									  LPARAM lParam					// address of application-defined data
+									 )
+{
+	SendMessage1ToClean (CcCbFONTNAME, lpelf->elfLogFont.lfFaceName);
+
+	return 1;
+}
+
+static int CALLBACK EnumFontSizeProc (ENUMLOGFONT FAR * lpelf,		// pointer to logical-font data
+									  NEWTEXTMETRIC FAR * lpntm,	// pointer to physical-font data
+									  int fontType,				// type of font  
+									  LPARAM lParam				// address of application-defined data	
+									 )
+{
+	SendMessage2ToClean (CcCbFONTSIZE,lpntm->tmHeight - lpntm->tmInternalLeading, fontType == TRUETYPE_FONTTYPE);
+
+	if (fontType == TRUETYPE_FONTTYPE)
+		return 0;
+	else
+		return 1;
+}
+
+*/
+
+/*	Cross call procedure implementations.
+	Eval<nr> corresponds with a CrossCallEntry generated by NewCrossCallEntry (nr,Eval<nr>).
+*/
+void EvalCcRqGETFONTNAMES (CrossCallInfo *pcci)		// no params; no result.
+{
+/*	HDC hdc;
+
+	hdc = GetDC (ghMainWindow);
+	EnumFontFamilies (hdc, NULL, (FONTENUMPROC) EnumFontNameProc, 0);
+	ReleaseDC (ghMainWindow, hdc);
+	MakeReturn0Cci (pcci);
+*/
+    printf("EvalCcRqGETFONTNAMES -> not implemented");
+    MakeReturn0Cci(pcci);
+}
+
+void EvalCcRqGETFONTSIZES (CrossCallInfo *pcci)		// textptr; no result.
+{
+/*	HDC hdc;
+
+	hdc = GetDC (ghMainWindow);
+	EnumFontFamilies (hdc, (char *) pcci->p1, (FONTENUMPROC) EnumFontSizeProc, 0);
+	ReleaseDC (ghMainWindow, hdc);
+	rfree ((char *) pcci->p1);
+	MakeReturn0Cci (pcci);
+*/
+    printf("EvalCcRqGETFONTSIZES -> not implemented");
+    MakeReturn0Cci(pcci);
+}
+
+
+//	InstallCrossCallFont adds the proper cross call procedures to the
+//	cross call procedures managed by cCrossCall_121.c.
+OS InstallCrossCallFont (OS ios)
+{
+	CrossCallProcedureTable newTable;
+
+    printf("InstallCrossCallFont\n");
+	newTable = EmptyCrossCallProcedureTable ();
+	AddCrossCallEntry (newTable, CcRqGETFONTNAMES,EvalCcRqGETFONTNAMES);
+	AddCrossCallEntry (newTable, CcRqGETFONTSIZES,EvalCcRqGETFONTSIZES);
+	AddCrossCallEntries (gCrossCallProcedureTable, newTable);
+
+    return ios;
+}