From VisualWorks®, Release 5i.1 Beta of October 8, 1999 on November 2, 1999 at 7:45:04 am (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <class> <name>OracleAlphaUnixThreadedInterface</name> <environment>Database</environment> <super>Database.OracleThreadedInterface</super> <private>false</private> none <imports> Database.OracleAlphaUnixThreadedInterfaceDictionary.* </imports> <category>Database-External-Libraries</category> <attributes> <includeFiles></includeFiles> <includeDirectories></includeDirectories> <libraryFiles><item>libclntsh.so</item></libraryFiles> <libraryDirectories></libraryDirectories> <beVirtual>false</beVirtual> <optimizationLevel>full</optimizationLevel> </attributes> </class> <methods> Database.OracleAlphaUnixThreadedInterface <category>types</category>
dvoid <C: typedef void * dvoid>
sb2 <C: typedef signed short sb2>
sb4 <C: typedef signed int sb4>
sword <C: typedef signed int sb4>
ub1 <C: typedef unsigned char ub1>
ub2 <C: typedef unsigned short ub2>
ub4 <C: typedef unsigned int ub4>
</methods> <methods> Database.OracleAlphaUnixThreadedInterface <category>structs</category>
crsdef "The cursor data area defined for a 64-bit machine." <C: struct crsdef { sb2 crs_v2_rc; // V2 return code ub2 crs_sql_fc; // SQL function code ub4 crs_rpc; // rows processed count ub2 crs_peo; // parse error offset ub1 crs_oci_fc; // OCI function code ub1 crs_fil1; // filler ub2 crs_rc; // return code ub1 crs_wrn_flg; // warning flags 1 ub1 crs_rsv1; // reserved sword crs_rsv2; // reserved ub4 crs_rcs3; // rowid structure ub2 crs_rcs4; // rowid structure ub1 crs_rcs5; // rowid structure ub4 crs_rcs6; // rowid structure ub2 crs_rcs7; // rowid structure sword crs_ose; // OSD dependent error ub1 crs_chk; dvoid *crs_rcsp; // pointer to reserved area ub1 filler[88]; // filler should have variable size }>
</methods> <methods> Database.OracleThreadedConnection class <category>class initialization</category>
initializeInterfaceMapping "OracleThreadedConnection initializeInterfaceMapping" xifMap := IdentityDictionary new. "as each thapi supported platform is tested-make the appropriate commented-out line below a real line" "the following 3 Unix platforms are potential thapi candidates" xifMap at: #alpha_unix put: #OracleAlphaUnixThreadedInterface. " xifMap at: #aix_unix put: #OracleThreadedInterface." " xifMap at: #hp_unix put: #OracleThreadedInterface." "solaris is thapi-enabled" xifMap at: #sun5_unix put: #OracleThreadedInterface. "sun4 will never have thapi" " xifMap at: #sun4_unix put: nil." "Win3.1 will never have thapi" " xifMap at: #win32s put: #nil." xifMap at: #win95 put: #OracleWin95ThreadedInterface. xifMap at: #nt put: #OracleNTThreadedInterface. "when OS/2 is tested for thapi, make following commented-out line a real line" " xifMap at: #os2 put: #OracleOS2Interface." "Mac 68K will never have thapi" " xifMap at: #mac put: #nil." "when PowerMac is tested for thapi, make following commented-out line a real line" " xifMap at: #powermac put: #OraclePowerMacThreadedInterface." xifMap at: #unknown put: #OracleInterface.
postLoadActionFor: aParcel self initialize
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>OracleThreadedInterface</name> <environment>Database</environment> <super>Database.OracleInterface</super> <private>false</private> none <imports> private Database.OracleThreadedInterfaceDictionary.* Smalltalk.OracleThreadedInterfaceDictionary.* </imports> <category>Database-External-Libraries</category> <attributes> <includeFiles></includeFiles> <includeDirectories></includeDirectories> <libraryFiles><item>libclntsh.so</item></libraryFiles> <libraryDirectories></libraryDirectories> <beVirtual>true</beVirtual> <optimizationLevel>full</optimizationLevel> </attributes> </class>