From: Nate Younger <nyounger@...>
Date: 2006-12-02T02:14:47+09:00
Subject: Ruby/DL binding to CASA: [BUG] Segmentation fault

Hello,

I am trying to create a binding for CASA(http://developer.novell.com/wiki/index.php/Casa) using Ruby/DL.  And I am running into the following problem:

casa.rb:85: [BUG] Segmentation fault
ruby 1.8.4 (2005-12-24) [x86_64-linux]

I'm almost sure its something that I missed.  I'm just hoping that some one smarter than me can help me find it.  Thanks in advance!

-Nate


casa.rb:

NSSCS_MAX_USERID_LEN      = 256
NSSCS_MAX_PWORD_LEN       = 128
NSSCS_MAX_SECRET_ID_LEN   = 512

SSCS_CRED_TYPE_BASIC_F    = 0x0000001
SSCS_CRED_TYPE_BINARY_F   = 0x0000002
SSCS_CRED_TYPE_SERVER_F   = 0x0000004

USERNAME_TYPE_CN_F        = 0x0000000
USERNAME_TYPE_NDS_DN_F    = 0x0000001
USERNAME_TYPE_NDS_FDN_F   = 0x0000002
USERNAME_TYPE_LDAP_DN_F   = 0x0000004
USERNAME_TYPE_EMAIL_F     = 0x0000008
USERNAME_TYPE_OTHER_F     = 0x0000010


module CASA
  require 'dl'
  require 'dl/import'
  require 'dl/struct'
  require 'dl/types'
  
  extend DL::Importable

  # Type alias
  typealias("uint32_t", "unsigned int")
  typealias("int32_t", "int")
  typealias("SS_UTF8_T", "unsigned char")
  
  # Struct Type Alias
  typealias("SSCS_BASIC_CREDENTIAL", "struct")
  typealias("SSCS_SECRET_ID_T", "struct")

  SSCS_SECRET_ID = struct([ 
    "uint32_t len",
    "SS_UTF8_T id[#{NSSCS_MAX_SECRET_ID_LEN}]"
  ])

  SSCS_BASIC_CREDENTIAL = struct [
    "uint32_t  unFlags",
    "uint32_t  unLen",
    "SS_UTF8_T username[#{NSSCS_MAX_USERID_LEN}]",
    "uint32_t  pwordLen",
    "SS_UTF8_T password[#{NSSCS_MAX_PWORD_LEN}]"
  ]

  LIB = DL.dlopen('/usr/lib64/libmicasa.so')
  SYM = {
    :miCASAGetCredential => LIB['miCASAGetCredential','IIPPIPP'],
    :miCASASetCredential => LIB['miCASASetCredential','IIPPIPP'],   
    :miCASARemoveCredential => LIB['miCASAGetCredential','IIPPP']    
  }

  
  def CASA::get_sscs_secret_id_t(id)   
     id_bytes = []
     id.each_byte { |b| id_bytes << b }

     sscs_secret_id_t = SSCS_SECRET_ID.malloc() 
     sscs_secret_id_t.len = id_bytes.length
     sscs_secret_id_t.id = id_bytes
     
     return sscs_secret_id_t
  end

  def CASA::get_sscs_basic_credential( flags, username, password )
    username_bytes = []
    username.each_byte { |b| username_bytes << b }
    password_bytes = []
    password.each_byte { |b| password_bytes << b }  
  
    sscs_basic_credential = SSCS_BASIC_CREDENTIAL.malloc()
    sscs_basic_credential.unFlags = flags
    sscs_basic_credential.unLen = username_bytes.length
    sscs_basic_credential.username = username_bytes
    sscs_basic_credential.pwordLen = password_bytes.length
    sscs_basic_credential.password = password_bytes
    
    return sscs_basic_credential
  end
  
  def CASA::get_credential( username, password, secret_id, shared_id = nil )  
    sec_id = CASA::get_sscs_secret_id_t(secret_id)
    basic_cred = CASA::get_sscs_basic_credential( USERNAME_TYPE_CN_F, username, password )
   
    i, ir = SYM[:miCASAGetCredential].call( 0, sec_id, nil, SSCS_CRED_TYPE_BASIC_F, basic_cred, nil )
    puts i
  end
end