Paste: how to factor (get it?) this?

Author: sohail
Mode: factor
Date: Sat, 10 Oct 2009 19:22:06
Plain Text |
: init-qt-smoke ( -- )
    smoke_init

    smoke_get_qt_Smoke smoke-delete-callback smoke-call-method-callback smoke_bind
    FactorSmokeBound memory>struct qt-bound set
 
    smoke_get_qtwebkit_Smoke smoke-delete-callback smoke-call-method-callback smoke_bind   
    FactorSmokeBound memory>struct qt-webkit-bound set
    
    ;

Annotation: marshall this fugly struct automagically,

Author: sohail
Mode: factor
Date: Sat, 10 Oct 2009 19:27:46
Plain Text |
! right now, gotta do memory>struct and yucky specialized-array stuff for each array

STRUCT: FactorSmokeBound
  { moduleName char* }
  
  { NullModuleIndex ModuleIndex }

  { classes    Class* }
  { numClasses Index  }
  
  { methods    Method* }
  { numMethods Index   }

  { methodMaps    MethodMap* }
  { numMethodMaps Index      }

  { methodNames    char** }
  { numMethodNames Index }

  { types          Type* }
  { numTypes       Index }

  { inheritanceList Index* }
  { argumentList    Index* }
  { ambiguousMethodList Index* }

  { castFn CastFn }

  { binding void* }
  { smoke   void* }

  ;

New Annotation

Summary:
Author:
Mode:
Body: