Usermode/Libraries/libspiderscript.so_src/exports.c

   1 /*
   2  * Acess2 - SpiderScript
   3  * - Script Exports (Lang. Namespace)
   4  */
   5 #include <string.h>
   6 #include <stdlib.h>
   7 #include <stdio.h>
   8 #include <spiderscript.h>
   9
  10 // === PROTOTYPES ===
  11 tSpiderValue    *Exports_Lang_Struct(tSpiderScript *Script, int NArgs, tSpiderValue **Args);
  12
  13 // === GLOBALS ===
  14 tSpiderFunction gExports_Lang_Struct = {NULL,"Lang.Struct", Exports_Lang_Struct, {SS_DATATYPE_STRING,-1}};
  15 tSpiderFunction *gpExports_First = &gExports_Lang_Struct;
  16
  17 // === CODE ===
  18 tSpiderValue *Exports_Lang_Struct(tSpiderScript *Script, int NArgs, tSpiderValue **Args)
  19 {
  20          int    i;
  21         printf("Exports_Lang_Struct: (Script=%p, NArgs=%i, Args=%p)\n", Script, NArgs, Args);
  22
  23         for( i = 0; i < NArgs; i ++ )
  24         {
  25                 printf(" Args[%i] = {Type: %i, ", i, Args[i]->Type);
  26                 switch(Args[i]->Type)
  27                 {
  28                 case SS_DATATYPE_INTEGER:
  29                         printf(" Integer: 0x%lx", Args[i]->Integer);
  30                         break;
  31                 case SS_DATATYPE_REAL:
  32                         printf(" Real: %f", Args[i]->Real);
  33                         break;
  34                 case SS_DATATYPE_STRING:
  35                         printf(" Length: %i, Data = '%s'", Args[i]->String.Length, Args[i]->String.Data);
  36                         break;
  37                 default:
  38                         break;
  39                 }
  40                 printf("}\n");
  41         }
  42
  43         return NULL;
  44 }