Restore HDC management code - seems to be key to linking gdi and printing API's

4 files changed, 326 insertions, 0 deletions

diff --git a/win/Makefile.in b/win/Makefile.in
index 849e79c..d46ce74 100644
--- a/win/Makefile.in
+++ b/win/Makefile.in
@@ -309,6 +309,7 @@ TK_OBJS = \
 	tkWinEmbed.$(OBJEXT) \
 	tkWinFont.$(OBJEXT) \
 	tkWinGDI.$(OBJEXT) \
+	tkWinHDC.$(OBJEXT) \
 	tkWinIco.$(OBJEXT) \
 	tkWinImage.$(OBJEXT) \
 	tkWinInit.$(OBJEXT) \
diff --git a/win/makefile.vc b/win/makefile.vc
index 4624265..ee42f1e 100644
--- a/win/makefile.vc
+++ b/win/makefile.vc
@@ -189,6 +189,7 @@ TKOBJS = \
 	$(TMP_DIR)\tkWinEmbed.obj \

 	$(TMP_DIR)\tkWinFont.obj \

 	$(TMP_DIR)\tkWinGDI.obj \

+	$(TMP_DIR)\tkWinHDC.obj \

 	$(TMP_DIR)\tkWinIco.obj \

 	$(TMP_DIR)\tkWinImage.obj \

 	$(TMP_DIR)\tkWinInit.obj \

diff --git a/win/tkWinHDC.c b/win/tkWinHDC.c
new file mode 100644
index 0000000..daca149
--- /dev/null
+++ b/win/tkWinHDC.c
@@ -0,0 +1,295 @@
+/*
+ * tkWinHDC.c --
+ *
+ *      This module implements utility functions for accessing hardware device contexts
+ *      for graphics rendering in Windows.
+ *
+ * Copyright © 2009 Michael I. Schwartz.
+ * Copyright © 2021 Kevin Walzer/WordTech Communications LLC.
+ *
+ * See the file "license.terms" for information on usage and redistribution of
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+
+#include "tkWinHDC.h"
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Hdc_build_name --
+ *
+ *  Creates HDC name.
+ *
+ * Results:
+ *	 HDC name created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static const char *Hdc_build_name(int type)
+{
+  const char *prefix;
+  Tcl_HashEntry *data;
+  int status;
+  
+  if ( (data = Tcl_FindHashEntry(&hdcprefixes, (char *)type)) != 0 )
+    prefix = (const char *)Tcl_GetHashValue(data);
+  else
+  {
+    char *cp;
+    prefix = "hdc";
+    if ( (cp = (char *)Tcl_Alloc(4)) != 0 )
+    {
+      strcpy (cp, prefix);
+      if ( (data = Tcl_CreateHashEntry(&hdcprefixes, (char *)type, &status)) != 0 )
+        Tcl_SetHashValue(data, (ClientData)cp);
+    }
+  }
+
+  sprintf(hdc_name, "%s%ld", prefix, ++hdc_count);
+  return hdc_name;
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * hdc_create --
+ *
+ *  Creates device context.
+ *
+ * Results:
+ *	 HDC created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+const char * hdc_create (Tcl_Interp *interp, void *ptr, int type)
+{
+  struct hdc_value *pval;
+  const char *name;
+  Tcl_HashEntry *entry;
+  int status;
+  
+  pval = (struct hdc_value *)Tcl_Alloc(sizeof(struct hdc_value));
+  if (pval == 0)
+  {
+    return 0;
+  }
+  pval->addr = ptr;
+  pval->type = type;
+
+  name = Hdc_build_name(type);
+  if ( ( entry = Tcl_CreateHashEntry(&hdcs, name, &status)) != 0 )
+    Tcl_SetHashValue(entry, (ClientData)pval);
+  return name;
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * hdc_valid --
+ *
+ *  Tests validity of HDC.
+ *
+ * Results:
+ *	 HDC tested.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int hdc_valid (Tcl_Interp *interp, const char *hdcname, int type)
+{
+  struct hdc_value *val;
+  Tcl_HashEntry *data;
+
+  if ( (data = Tcl_FindHashEntry(&hdcs, hdcname)) != 0 )
+  {
+    val = (struct hdc_value *)Tcl_GetHashValue(data);
+
+    if ( type <= 0 || val->type == type )
+      return 1;
+  }
+  return 0;
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * hdc_delete --
+ *
+ *  Dletes device context.
+ *
+ * Results:
+ *	 HDC created.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int hdc_delete (Tcl_Interp *interp, const char *hdcname)
+{
+  struct hdc_value *val;
+  Tcl_HashEntry *data;
+
+  if ( (data = Tcl_FindHashEntry(&hdcs, hdcname)) != 0 )
+  {
+    val = (struct hdc_value *)Tcl_GetHashValue(data);
+
+    Tcl_DeleteHashEntry(data);
+    Tcl_Free((void *)val);
+    return 1;
+  }
+  return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * hdc_get --
+ *
+ *  Gets device context.
+ *
+ * Results:
+ *	 HDC returned.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void * hdc_get (Tcl_Interp *interp, const char *hdcname)
+{
+  struct hdc_value *val;
+  Tcl_HashEntry *data;
+
+  if ( (data = Tcl_FindHashEntry(&hdcs, hdcname)) != 0 )
+    val = (struct hdc_value *)Tcl_GetHashValue(data);
+  else
+    return 0;
+
+  return val->addr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * hdc_typeof --
+ *
+ *  Gets HDC type.
+ *
+ * Results:
+ *	 Type returned.
+ *
+ *----------------------------------------------------------------------
+ */
+
+
+int hdc_typeof (Tcl_Interp *interp, const char *hdcname)
+{
+  struct hdc_value *val;
+  Tcl_HashEntry *data;
+
+  if ( (data = Tcl_FindHashEntry(&hdcs, hdcname)) != 0 )
+    val = (struct hdc_value *)Tcl_GetHashValue(data);
+
+  return val->type;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * hdc_prefixof --
+ *
+ *  Gets HDC prefix.
+ *
+ * Results:
+ *	 Prefix returned.
+ *
+ *----------------------------------------------------------------------
+ */
+
+const char * hdc_prefixof (Tcl_Interp *interp, int type, const char *newprefix)
+{
+  const char *prefix;
+  Tcl_HashEntry *data;
+
+  if ( (data = Tcl_FindHashEntry(&hdcprefixes, (char *)type)) != 0 )
+    prefix = (const char *)Tcl_GetHashValue(data);
+    
+  if ( newprefix )
+  {
+    char *cp;
+    size_t siz, len;
+    
+    siz = strlen(newprefix);
+    len = siz > 32 ? 32 : siz;
+    
+    if ( (cp = (char *)Tcl_Alloc(len+1)) != 0 )
+    {
+      int newptr = 0;
+      
+      strncpy (cp, newprefix, len);
+      cp[len] = '\0';
+      if ( data == 0 )
+        data = Tcl_CreateHashEntry(&hdcprefixes,(char *)type,&newptr);
+      Tcl_SetHashValue(data, (ClientData)cp);
+      prefix = cp;
+    }
+  }
+
+  return prefix;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * hdc_list --
+ *
+ *  Lists all device contexts.
+ *
+ * Results:
+ *	List of device contexts returned.
+ *
+ *----------------------------------------------------------------------
+ */
+ 
+int hdc_list (Tcl_Interp *interp, int type, const char *out[], int *poutlen)
+{
+  Tcl_HashEntry *ent;
+  Tcl_HashSearch srch;
+  int i=0;
+  const char *cp;
+  int retval = 0;
+  struct hdc_value *val;
+  
+  for ( ent = Tcl_FirstHashEntry(&hdcs, &srch); ent !=0; ent=Tcl_NextHashEntry(&srch))
+  {
+    if ( (cp = Tcl_GetHashKey(&hdcs, ent)) != 0 )
+    {
+      if ( i < *poutlen )
+      {
+        if ( (val = (struct hdc_value *)Tcl_GetHashValue(ent) ) != 0 )
+        {
+          if ( type <= 0 || type == val->type )
+          {
+            out[i++] = cp;
+            retval++;
+          }
+        }
+      }
+    }
+  }
+  *poutlen = i;
+  return retval;
+}
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */
+
+
diff --git a/win/tkWinHDC.h b/win/tkWinHDC.h
new file mode 100644
index 0000000..c83c894
--- /dev/null
+++ b/win/tkWinHDC.h
@@ -0,0 +1,29 @@
+#include <tcl.h>
+#include <stdlib.h>
+#include <string.h>
+#include <math.h>
+
+
+/* 
+ * Static data and function prototypes.
+ */
+
+struct hdc_value
+{
+  void *addr;
+  int  type;
+};
+
+static unsigned long hdc_count = 0L;
+static Tcl_HashTable hdcs;
+static Tcl_HashTable hdcprefixes;
+static char hdc_name [32+12+1];
+
+
+const char * hdc_create (Tcl_Interp *interp, void *ptr, int type);
+int hdc_valid (Tcl_Interp *interp, const char *hdcname, int type);
+int hdc_delete (Tcl_Interp *interp, const char *hdcname);
+const char * hdc_prefixof (Tcl_Interp *interp, int type, const char *newprefix);
+int hdc_typeof (Tcl_Interp *interp, const char *hdcname);
+void * hdc_get (Tcl_Interp *interp, const char *hdcname);
+static const char *Hdc_build_name(int type);
\ No newline at end of file