Γλώσσα IDL

ioanna_io · 11 Σεπτεμβρίου 2006

Γνωρίζει κανείς πως μπορώ να κατασκευάσω ένα module χρησιμοποιώντας τη γλώσσα IDL?

Ευχαριστώ

chiossif · 11 Σεπτεμβρίου 2006

Φοβάμαι ότι δυστυχώς η απάντηση στην ερώτηση σου για την IDL ξεκινάει με το διάβασμα του Getting Started with IDL της RSI. Είναι το αρχείο getstart.pdf στον κατάλογο τεκμηρίωσης (documentation).

Επειδή δεν εμβάθυνα και πολύ σε αυτήν - δεν άργησα να ξεφύγω από την σειρήνα IDL - εύχομαι να λαθεύω και να είναι απλό αυτό που θέλεις να κάνεις.

Paulus · 13 Σεπτεμβρίου 2006

Μήπως εννοείς interface definition language για δημιουργία type library; Έχω κάνει modules σε αυτήν την γλώσσα. Τέλος πάντων να ένα module που είχα φτιάξει παλαιότερα για χρήση συναρτήσεων για επίλυση γραμμικών συστημάτων (ένα μέρος του -έχω και τα σχόλια που είχα γράψει τότε ):

[

uuid(d960bea7-94df-4f17-a1c3-6244abe90415),//this is the uuid generated by the uuidgen program

helpstring("Paulus Math Type Library"),//this is the description of the library as it appears in the references dialog box

lcid (0x00000000),//this is the locale id

version(1.52) //this is the version ok

]

library MathLIB //this is the name of the library as it appears in the object browser

{

//geometry types

typedef [helpstring("Represents a vector entity.")] struct VECTOR { //types in capital

double x,y,z;

} VECTOR;

typedef [helpstring("Represents a point entity.")] struct POINT {

double x,y,z;

} POINT;

[dllname("MathLIB.dll"),helpstring("Contains functions for linear systems.")]

module Linear {

[entry("linGN"),helpstring("Solves a linear system using the Gauss naive method. Returns 1 on success.")]

int stdcall linGN(double* a,double* b,int* n,double* x,double* tol);

[entry("linGPP"),helpstring("Solves a linear system using the Gauss method with partial pivoting. Returns 1 on success.")]

int stdcall linGPP(double* a,double* b,int* n,double* x,double* tol);

[entry("linGJN"),helpstring("Solves a linear system using the Gauss-Jordan naive method. Returns 1 on success.")]

int stdcall linGJN(double* a,double* b,int* n,double* x,double* tol);

[entry("linGJPP"),helpstring("Solves a linear system using the Gauss-Jordan method with partial pivoting. Returns 1 on success.")]

int stdcall linGJPP(double* a,double* b,int* n,double* x,double* tol);

[entry("lindetGN"),helpstring("Returns the determinant of a square matrix using the Gauss naive method.")]

double stdcall lindetGN(double* a,int* n,double* tol);

[entry("lagrange"),helpstring("Retrieves the value x of a function f(x) given n pairs of values (xi,fxi), based on the Lagrange method.")]

double stdcall Lagrange(int* n,double* xi,double* fxi,double* x);

[entry("newton"),helpstring("Retrieves the value x of a function f(x) given n pairs of values (xi,fxi), based on the Newton method. m is the desired degree of the polynomial and should be m<=n. If m=n then we get the Lagrange polynomial.")]

double stdcall Newton(int* n,double* xi,double* fxi,double* x,int* m);

};

}