Changeset 97

Timestamp:

03/30/07 02:31:57 (20 months ago)

Author:

gnue

Message:

MakePkg and ReadPkg was added for script call

Location:

NEWT0/trunk/src/newt_core

Files:

• NewtPkg.c (modified) (2 diffs)
• NewtVM.c (modified) (2 diffs)
• incs/NewtPkg.h (modified) (1 diff)

NEWT0/trunk/src/newt_core/NewtPkg.c

@@ -658 +658 @@
 
         // the original file has this (c) message embedded
-        {   char msg[] = "Newton� ToolKit Package � 1992-1997, Apple Computer, Inc.";
+        {   char msg[] = "Newtonｪ ToolKit Package ｩ 1992-1997, Apple Computer, Inc.";
             PkgWriteData(&pkg, pkg.header_size + pkg.var_data_size, msg, sizeof(msg));
             pkg.var_data_size += sizeof(msg);
@@ -1154 +1154 @@
 
 
-
-
+/*------------------------------------------------------------------------*/
+/** Read a Package and create an array of parts
+ *
+ * @param rcvr  [in] receiver
+ * @param r     [in] Package binary object
+ *
+ * @retval      Newt array containing some descriptions and all parts of the Package
+ *
+ * @note        for script call
+ */
+
+newtRef NsReadPkg(newtRefArg rcvr, newtRefArg r)
+{
+    uint32_t    len;
+
+    if (! NewtRefIsBinary(r))
+        return NewtThrow(kNErrNotABinaryObject, r);
+
+    len = NewtBinaryLength(r);
+
+    return NewtReadPkg(NewtRefToBinary(r), len);
+}
+
+
+/*------------------------------------------------------------------------*/
+/** Create a new binary object that contains the object tree in package format.
+ *
+ * @param rcvr  [in] receiver
+ * @param r     [in] object hierarchy describing the package
+ *
+ * @retval      binary object with package
+ *
+ * @note        for script call
+ */
+
+newtRef NsMakePkg(newtRefArg rcvr, newtRefArg r)
+{
+    return NewtWritePkg(r);
+}

NEWT0/trunk/src/newt_core/NewtVM.c

@@ -27 +27 @@
 #include "NewtPrint.h"
 #include "NewtNSOF.h"
+#include "NewtPkg.h"
 
 
@@ -3584 +3585 @@
     NewtDefGlobalFunc(NSSYM(ReadNSOF),  NsReadNSOF,         1, "ReadNSOF(nsof)");
 
+    NewtDefGlobalFunc(NSSYM(MakePkg),   NsMakePkg,          1, "MakePkg(obj)");
+    NewtDefGlobalFunc(NSSYM(ReadPkg),   NsReadPkg,          1, "ReadPkg(pkg)");
+
     NewtDefGlobalFunc(NSSYM(GetEnv),    NsGetEnv,           1, "GetEnv(str)");
 

NEWT0/trunk/src/newt_core/incs/NewtPkg.h

@@ -25 +25 @@
 newtRef     NewtWritePkg(newtRefArg pkg);
 
+newtRef     NsReadPkg(newtRefArg rcvr, newtRefArg r);
+newtRef     NsMakePkg(newtRefArg rcvr, newtRefArg r);
+
 
 #ifdef __cplusplus