svn commit: samba r9344 - in branches/SAMBA_4_0/source/scripting/ejs: .

tridge at samba.org tridge at samba.org
Wed Aug 17 02:55:31 GMT 2005


Author: tridge
Date: 2005-08-17 02:55:31 +0000 (Wed, 17 Aug 2005)
New Revision: 9344

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=9344

Log:

started adding calls for manipulation of data blobs in ejs

added:

  blobToArray()
  blobFromArray()
  blobCompare()

Added:
   branches/SAMBA_4_0/source/scripting/ejs/smbcalls_data.c
Modified:
   branches/SAMBA_4_0/source/scripting/ejs/config.mk
   branches/SAMBA_4_0/source/scripting/ejs/smbcalls.c
   branches/SAMBA_4_0/source/scripting/ejs/smbcalls_string.c


Changeset:
Modified: branches/SAMBA_4_0/source/scripting/ejs/config.mk
===================================================================
--- branches/SAMBA_4_0/source/scripting/ejs/config.mk	2005-08-17 02:46:10 UTC (rev 9343)
+++ branches/SAMBA_4_0/source/scripting/ejs/config.mk	2005-08-17 02:55:31 UTC (rev 9344)
@@ -22,6 +22,7 @@
 		scripting/ejs/smbcalls_options.o \
 		scripting/ejs/smbcalls_nss.o \
 		scripting/ejs/smbcalls_string.o \
+		scripting/ejs/smbcalls_data.o \
 		scripting/ejs/smbcalls_rand.o \
 		scripting/ejs/smbcalls_sys.o \
 		scripting/ejs/smbcalls_creds.o \

Modified: branches/SAMBA_4_0/source/scripting/ejs/smbcalls.c
===================================================================
--- branches/SAMBA_4_0/source/scripting/ejs/smbcalls.c	2005-08-17 02:46:10 UTC (rev 9343)
+++ branches/SAMBA_4_0/source/scripting/ejs/smbcalls.c	2005-08-17 02:55:31 UTC (rev 9344)
@@ -128,6 +128,7 @@
 	smb_setup_ejs_random();
 	smb_setup_ejs_system();
 	smb_setup_ejs_credentials();
+	smb_setup_ejs_datablob();
 
 	ejsDefineCFunction(-1, "typeof", ejs_typeof, NULL, MPR_VAR_SCRIPT_HANDLE);
 	ejsDefineStringCFunction(-1, "libinclude", ejs_libinclude, NULL, MPR_VAR_SCRIPT_HANDLE);

Added: branches/SAMBA_4_0/source/scripting/ejs/smbcalls_data.c
===================================================================
--- branches/SAMBA_4_0/source/scripting/ejs/smbcalls_data.c	2005-08-17 02:46:10 UTC (rev 9343)
+++ branches/SAMBA_4_0/source/scripting/ejs/smbcalls_data.c	2005-08-17 02:55:31 UTC (rev 9344)
@@ -0,0 +1,165 @@
+/* 
+   Unix SMB/CIFS implementation.
+
+   provide access to data blobs
+
+   Copyright (C) Andrew Tridgell 2005
+   
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+   
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+   
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/
+
+#include "includes.h"
+#include "scripting/ejs/smbcalls.h"
+#include "lib/appweb/ejs/ejs.h"
+
+/*
+  create a data blob object from a ejs array of integers
+*/
+static int ejs_blobFromArray(MprVarHandle eid, int argc, struct MprVar **argv)
+{
+	struct MprVar *array, *v;
+	unsigned length, i;
+	DATA_BLOB blob;
+
+	if (argc != 1) {
+		ejsSetErrorMsg(eid, "blobFromArray invalid arguments");
+		return -1;		
+	}
+	array = argv[0];
+
+	v = mprGetProperty(array, "length", NULL);
+	if (v == NULL) {
+		goto failed;
+	}
+	length = mprToInt(v);
+
+	blob = data_blob_talloc(mprMemCtx(), NULL, length);
+	if (length != 0 && blob.data == NULL) {
+		goto failed;
+	}
+
+	for (i=0;i<length;i++) {
+		struct MprVar *vs;
+		char idx[16];
+		mprItoa(i, idx, sizeof(idx));		
+		vs = mprGetProperty(array, idx, NULL);
+		if (vs == NULL) {
+			goto failed;
+		}
+		blob.data[i] = mprVarToNumber(vs);
+	}
+
+	mpr_Return(eid, mprDataBlob(blob));
+	return 0;
+
+failed:
+	mpr_Return(eid, mprCreateUndefinedVar());
+	return 0;
+}
+
+/*
+  create a ejs array of integers from a data blob
+*/
+static int ejs_blobToArray(MprVarHandle eid, int argc, struct MprVar **argv)
+{
+	DATA_BLOB *blob;
+	struct MprVar array;
+	int i;
+
+	if (argc != 1) {
+		ejsSetErrorMsg(eid, "blobToArray invalid arguments");
+		return -1;		
+	}
+	blob = mprToDataBlob(argv[0]);
+	if (blob == NULL) {
+		goto failed;
+	}
+
+	array = mprObject("array");
+	
+	for (i=0;i<blob->length;i++) {
+		mprAddArray(&array, i, mprCreateNumberVar(blob->data[i]));
+	}
+	mpr_Return(eid, array);
+	return 0;
+
+failed:
+	mpr_Return(eid, mprCreateUndefinedVar());
+	return 0;
+}
+
+
+/*
+  compare two data blobs
+*/
+static int ejs_blobCompare(MprVarHandle eid, int argc, struct MprVar **argv)
+{
+	DATA_BLOB *blob1, *blob2;
+	BOOL ret = False;
+
+	if (argc != 2) {
+		ejsSetErrorMsg(eid, "blobCompare invalid arguments");
+		return -1;		
+	}
+	
+	blob1 = mprToDataBlob(argv[0]);
+	blob2 = mprToDataBlob(argv[1]);
+
+	if (blob1 == blob2) {
+		ret = True;
+		goto done;
+	}
+	if (blob1 == NULL || blob2 == NULL) {
+		ret = False;
+		goto done;
+	}
+
+	if (blob1->length != blob2->length) {
+		ret = False;
+		goto done;
+	}
+
+	if (memcmp(blob1->data, blob2->data, blob1->length) != 0) {
+		ret = False;
+		goto done;
+	}
+	ret = True;
+
+done:
+	mpr_Return(eid, mprCreateBoolVar(ret));
+	return 0;
+}
+
+/*
+  initialise datablob ejs subsystem
+*/
+static int ejs_datablob_init(MprVarHandle eid, int argc, struct MprVar **argv)
+{
+	struct MprVar *obj = mprInitObject(eid, "datablob", argc, argv);
+
+	mprSetCFunction(obj, "blobFromArray", ejs_blobFromArray);
+	mprSetCFunction(obj, "blobToArray", ejs_blobToArray);
+	mprSetCFunction(obj, "blobCompare", ejs_blobCompare);
+
+	return 0;
+}
+
+/*
+  setup C functions that be called from ejs
+*/
+void smb_setup_ejs_datablob(void)
+{
+	ejsDefineCFunction(-1, "datablob_init", ejs_datablob_init, NULL, MPR_VAR_SCRIPT_HANDLE);
+}

Modified: branches/SAMBA_4_0/source/scripting/ejs/smbcalls_string.c
===================================================================
--- branches/SAMBA_4_0/source/scripting/ejs/smbcalls_string.c	2005-08-17 02:46:10 UTC (rev 9343)
+++ branches/SAMBA_4_0/source/scripting/ejs/smbcalls_string.c	2005-08-17 02:55:31 UTC (rev 9344)
@@ -23,7 +23,6 @@
 #include "includes.h"
 #include "scripting/ejs/smbcalls.h"
 #include "lib/appweb/ejs/ejs.h"
-#include "system/passwd.h"
 
 /*
   usage:



More information about the samba-cvs mailing list