The start of the implementation of the init code for the babel fish translator.

md2teach.xcodeproj/project.pbxproj

@@ -45,8 +45,9 @@
 		9D406AC4264A2AD400747EE9 /* babelfish_defs.h */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.c.h; path = babelfish_defs.h; sourceTree = "<group>"; };
 		9D406ACB264A2B5800747EE9 /* babelfish_rez.h */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.c.h; path = babelfish_rez.h; sourceTree = "<group>"; };
 		9D406ACD264A2BD300747EE9 /* markdown.rez */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.rez; path = markdown.rez; sourceTree = "<group>"; };
-		9D406AD8264C50E400747EE9 /* init.s */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.asm; path = init.s; sourceTree = "<group>"; };
+		9D406AD8264C50E400747EE9 /* init.c */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.c.c; path = init.c; sourceTree = "<group>"; xcLanguageSpecificationIdentifier = xcode.lang.c; };
 		9D406AD9264C50F700747EE9 /* filter.s */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.asm; path = filter.s; sourceTree = "<group>"; xcLanguageSpecificationIdentifier = xcode.lang.asm.orcam; };
+		9D406B2D2652155B00747EE9 /* babelfish_types.h */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.c.h; path = babelfish_types.h; sourceTree = "<group>"; };
 		9D6532E42626240800105D50 /* md2teach */ = {isa = PBXFileReference; explicitFileType = "compiled.mach-o.executable"; includeInIndex = 0; path = md2teach; sourceTree = BUILT_PRODUCTS_DIR; };
 		9D6532EA2626240800105D50 /* doNotBuild */ = {isa = PBXFileReference; explicitFileType = "compiled.mach-o.executable"; includeInIndex = 0; path = doNotBuild; sourceTree = BUILT_PRODUCTS_DIR; };
 		9D6532EC2626240800105D50 /* main.c */ = {isa = PBXFileReference; lastKnownFileType = sourcecode.c.c; path = main.c; sourceTree = "<group>"; };
@@ -108,8 +109,9 @@
 			children = (
 				9D406AC4264A2AD400747EE9 /* babelfish_defs.h */,
 				9D406ACB264A2B5800747EE9 /* babelfish_rez.h */,
+				9D406B2D2652155B00747EE9 /* babelfish_types.h */,
 				9D406ACD264A2BD300747EE9 /* markdown.rez */,
-				9D406AD8264C50E400747EE9 /* init.s */,
+				9D406AD8264C50E400747EE9 /* init.c */,
 				9D406AD9264C50F700747EE9 /* filter.s */,
 			);
 			path = babelfish;

md2teach/babelfish.mk

@@ -185,7 +185,7 @@ $(OBJDIR)/babelfish/markdown.r: $(FILTERTARGET) $(INITTARGET)
 $(FILTERTARGET): $(OBJDIR)/babelfish/filter.ROOT
 	cd $(OBJDIR); $(LINK) $(LDFLAGS) babelfish/filter keep="$(abspath $@)"
     
-$(INITTARGET): $(OBJDIR)/babelfish/init.ROOT
+$(INITTARGET): $(OBJDIR)/babelfish/init.root $(OBJDIR)/md4c.a
 	cd $(OBJDIR); $(LINK) $(LDFLAGS) babelfish/init keep="$(abspath $@)"
 
 $(TARGETDIR)/Markdown: $(OBJDIR)/babelfish/markdown.r

md2teach/babelfish/babelfish_defs.h

@@ -42,4 +42,8 @@
 #define TrFormatFont            0x0005
 #define TrFormatSound           0x0006
 
+#define TrStartUp       0x9101
+#define TrShutDown      0x9102
+#define TrRead          0x9103
+
 #endif /* define _GUARD_PROJECTmd2teach_FILEbabelfish_defs_ */

md2teach/babelfish/babelfish_types.h

@@ -0,0 +1,113 @@
+/*
+ *  babelfish_types.h
+ *  md2teach
+ *
+ *  Created by Jeremy Rand on 2021-05-16.
+ * 
+ */
+
+#ifndef _GUARD_PROJECTmd2teach_FILEbabelfish_types_
+#define _GUARD_PROJECTmd2teach_FILEbabelfish_types_
+
+#include <Types.h>
+
+
+// The actual data record varies based on the file format.
+typedef struct TrDataRecord
+{
+    Word parmCount;
+} TrDataRecord;
+
+
+typedef struct TrTextDataRecord
+{
+    Word parmCount;
+    Word actionCode;
+    Word responseCode;
+    Long textStreamLength;
+    char * textStreamPtr;
+    Handle textStreamHandle;
+    Word familyId;
+    Word fontSize;
+    Word fontStyle;
+    Word foreColor;
+    Word backColor;
+    Word position;
+    Word charSpacing;
+    Word lineSpacing;
+    Word spaceBefore;
+    Word spaceAfter;
+    Word firstIndent;
+    Word leftIndent;
+    Word rightIndent;
+    Word justification;
+    unsigned char tabArray[64];
+    Word options;
+    Long border;
+    Word pageLength;
+    Word pageWidth;
+    Rect sectionRect;
+    Word columns;
+    Word gutter;
+    Handle picHandle;
+} TrTextDataRecord;
+
+
+typedef struct TrTransferRecord
+{
+    Word parmCount;
+    Word status;
+    Word miscFlags;
+    unsigned char dataKinds[8];
+    Word transNum;
+    Word userId;
+    Word progressAction;
+    Word fullTherm;
+    Word currentTherm;
+    char * msgPtr;
+    TrDataRecord * dataRecordPtr;
+    char * filePathPtr;     /* C string*/
+    char * fileNamePtr;     /* P string */
+} TrTransferRecord;
+
+
+typedef struct TrStartUpDataIn
+{
+    TrTransferRecord * xferRecPtr;
+} TrStartUpDataIn;
+
+
+typedef struct TrStartUpDataOut
+{
+    Word recvCount;
+    Word trResult;
+} TrStartUpDataOut;
+
+
+typedef struct TrShutDownDataIn
+{
+    TrTransferRecord * xferRecPtr;
+} TrShutDownDataIn;
+
+
+typedef struct TrShutDownDataOut
+{
+    Word recvCount;
+    Word trResult;
+} TrShutDownDataOut;
+
+
+typedef struct TrReadDataIn
+{
+    TrTransferRecord * xferRecPtr;
+} TrReadDataIn;
+
+
+typedef struct TrReadDataOut
+{
+    Word recvCount;
+    Word trResult;
+} TrReadDataOut;
+
+
+#endif /* define _GUARD_PROJECTmd2teach_FILEbabelfish_types_ */

md2teach/babelfish/init.c

@@ -0,0 +1,84 @@
+/*
+ * init.c
+ * md2teach
+ *
+ * Created by Jeremy Rand on 2021-05-12.
+ * Copyright (c) 2021 Jeremy Rand. All rights reserved.
+ *
+ */
+
+#include <stdio.h>
+
+#include <Locator.h>
+#include <Memory.h>
+
+#include "babelfish/babelfish_defs.h"
+#include "babelfish/babelfish_types.h"
+#include "md4c.h"
+
+
+#pragma memorymodel 1
+#pragma rtl
+
+
+uint16_t myUserId;
+
+
+void DoStartUp(TrStartUpDataIn * dataIn, TrStartUpDataOut * dataOut)
+{
+    
+}
+
+
+void DoShutDown(TrShutDownDataIn * dataIn, TrShutDownDataOut * dataOut)
+{
+    
+}
+
+
+void DoRead(TrReadDataIn * dataIn, TrReadDataOut * dataOut)
+{
+    
+}
+
+
+#pragma databank 1
+#pragma toolparms 1
+
+pascal unsigned MyRequestProc(uint16_t request, uint32_t dataIn, uint32_t dataOut)
+{
+    switch (request) {
+        case TrStartUp:
+            DoStartUp((TrStartUpDataIn *)dataIn, (TrStartUpDataOut *)dataOut);
+            break;
+            
+        case TrShutDown:
+            DoShutDown((TrShutDownDataIn *)dataIn, (TrShutDownDataOut *)dataOut);
+            break;
+            
+        case TrRead:
+            DoRead((TrReadDataIn *)dataIn, (TrReadDataOut *)dataOut);
+            break;
+            
+        default:
+            break;
+    }
+    
+	return 0;
+}
+
+#pragma toolparms 0
+
+
+int main(void)
+{
+    static char myName[48];
+    
+	myUserId = MMStartUp();
+    sprintf(myName, "Babelfish~Jeremy~MarkdownTrans%04x", myUserId);
+    AcceptRequests(myName, myUserId, MyRequestProc);
+
+	return 0;
+}
+
+#pragma databank 0

md2teach/babelfish/init.s

@@ -1,16 +0,0 @@
-;
-;  init.s
-;  md2teach
-;
-;  Created by Jeremy Rand on 2021-05-12.
-;
-;
-
-        mcopy init.macros
-        keep init
-
-init start
-		phb
-		plb
-        rtl
-        end