Discussion :

[JeromeMATHIAS]

Bonjour,
je viens de l'univers SAS et je n'ai jamais fait de C++.
Afin d'étendre les possibilité du logiciel SAS, une nouvelle procédure a récemment été introduite afin de créer des fonctions à partir de code C++.

Un certain nombre de code sont donnés en exemple.
Je souhaite comprendre cet exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
proc proto package=sasuser.mylib.str2;
struct linklist{
   double value;
   struct linklist * next;
   struct linklist * prev;
};
 
struct linklist * get_list(int);
 
externc get_list;
   struct linklist * get_list(int len){
      int i;
      struct linklist * list=0;
      list=(struct linklist*)
         malloc(len*sizeof(struct linklist));
      for (i=0;i<len-1;i++){
         list[i].value=i;
         list[i].next=&list[i+1];
      }
      list[i].value=i;
      list[i].next=0;
      return list;
   }
externcend;
 
 
run;
 
options pageno=1 nodate ls=80 ps=64;
proc fcmp libname=sasuser.mylib;
   struct linklist list;
   list=get_list(3);
*   put list.value=;
put list ;
   do while (^isnull(list.next));
      list = list.next;
     * put list.value=;
	  put list ;
   end;
run;

J'ai dans ma jeunesse fait un peu de Pascal donc je vois à peu près ce qu'est un pointeur.
Après avoir examiné le code ces deux derniers jours je commence à comprendre son début, cependant arrivé à la ligne suivante :

list=(struct linklist*)

je n'arrive pas à en saisir le sens, j'ai parcouru pas mal de cours pour débutant en C++ et je n'ai pour l'instant pas encore repéré de telle construction. Et je me demande si c'est bien du code C++ et dans ce cas quel est son sens ou bien si c'est une invocation propre à la Proc Proto de SAS (et dans ce cas je changerais de forum...).

Merci de votre aide.

Edit : après de nouvelles recherches la PROC PROTO semble accepter du code C ou C++ , comme je ne connais par leur syntaxe je pensais que le code ci-dessus était du C++ mais il semblerait que ce soit du C , si on pouvait me le confirmer peut-être que ce topic aurait plutot sa place dans le forum C et non C++.

[Arzar]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
struct linklist * list=0;
      list=(struct linklist*)
         malloc(len*sizeof(struct linklist));

C'est une syntaxe utilisée en C pur, en C++ on écrira plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
linklist * list=0;
list = (linklist*) malloc(len*sizeof(linklist));

(les deux sont valides)

Donc en gros ce code alloue un bloc de mémoire de taille len * sizeof(linklist) avec la fonction malloc(). malloc() retourne un pointeur de type void* sur le début du bloc, mais vu que list est une variable de type linklist* on ne peut pas lui assigner directement un void* et il faut donc caster le void* en linklist*

Edit : Sinon vu le code, je pense que tu auras probablement plus de réponse sur le forum C.

[JeromeMATHIAS]

Merci Arzar de la confirmation, je vais me tourner du côté du forum C alors.

[koala01]

Salut,

Ce code a effectivement beaucoup plus la forme d'un code C que d'un code C++, je déplace la discussion

[Bktero]

Bonjour,

Ce code ne ressemble pas franchement à du C non

A note d'ailleurs que le cast de malloc() est une obligation en C++ mais pas en C ; j'aurais pour cela plutôt dit que le code est du C++

Je l'ai remis en forme pour tenter de le rendre plus lisible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
proc proto package=sasuser.mylib.str2;
struct linklist
{
    double value;
    struct linklist * next;
    struct linklist * prev;
};
 
struct linklist * get_list(int);
 
externc get_list;
struct linklist * get_list(int len)
{
    int i;
    struct linklist * list=0;
    list=(struct linklist*)
         malloc(len*sizeof(struct linklist));
    for (i=0; i<len-1; i++)
    {
        list[i].value=i;
        list[i].next=&list[i+1];
    }
    list[i].value=i;
    list[i].next=0;
    return list;
}
externcend;
 
 
run;
 
options pageno=1 nodate ls=80 ps=64;
proc fcmp libname=sasuser.mylib;
struct linklist list;
list=get_list(3);
*   put list.value=;
put list ;
do while (^isnull(list.next));
list = list.next;
* put list.value=;
put list ;
end;
run;

Il reste des choses très étonnantes comme end;, run; ou encore proc proto package=sasuser.mylib.str2; et options pageno=1 nodate ls=80 ps=64;.

D'où sort cet exemple ? Ne manque t-il pas plein de fichiers d'en-tête ?

[JeromeMATHIAS]

bonjour, comme dit en introduction le code proviens de l' "univers" SAS , ce code est un des programmes illustrant les PROC PROTO/FCMP du logiciel SAS, permettant de tirer le bénéfice de code écrit en C/C++ dans des fonctions utilisateur créées via la PROC FCMP de SAS.

Je pense que l'on peut dire que PROC PROTO dans sas est équivalent à un interpréteur/compileur de C/C++ ?

Le document dans lequel est présent le code est le suivant

http://support.sas.com/documentation...a003168903.htm

RUN; est une demande d'execution du code

END; est une balise de fin de bloc de code (DO;...END; par exemple)

et de fichiers en en-tête il y en a pas....le code tourne tel quel...ceci-dit c'est une bonne question peut-être elle à poser sur le forum SAS

[JeromeMATHIAS]

Bon je viens de tenter d'appréhender un peu la programmation.

J'ai défini (enfin je crois avoir...) défini une fonction ayant pour argument une liste (de type linklist), je lui repasse la liste précédente et l'opération consiste à rajouter 1 à "value" (ajoute_list)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
proc proto package=sasuser.mylib.str2;
struct linklist{
   double value;
   struct linklist * next;
   struct linklist * prev;
};
 
struct linklist * get_list(int);
 
externc get_list;
   struct linklist * get_list(int len){
      int i;
      struct linklist * list=0;
      list=(struct linklist*)
         malloc(len*sizeof(struct linklist));
      for (i=0;i<len-1;i++){
         list[i].value=i;
         list[i].next=&list[i+1];
      }
      list[i].value=999;
      list[i].next=0;
      return list;
   }
externcend;
 
 
 
struct linklist * ajoute_list(struct linklist *  );
 
 
externc ajoute_list;
 
struct linklist * ajoute_list( struct linklist  * malist )
  {  
	int j;
	struct linklist * calcul_list=0  ;
	calcul_list=(struct linklist*) malloc(3*sizeof(struct linklist));
	calcul_list=malist ;
 
  		for (j=0;j<2;j++)	{
         calcul_list[j].value=calcul_list[j].value+1;
         calcul_list[j].next=&calcul_list[j+1];
     						 }
 
      calcul_list[j].value=calcul_list[j].value+1;
      calcul_list[j].next=0;
 
	return calcul_list;
	}
externcend;
 
run;
quit;
options pageno=1 nodate ls=80 ps=64;
proc fcmp libname=sasuser.mylib;
   struct linklist list;
   list=get_list(3);
*   put list.value=;
put list ;
   do while (^isnull(list.next));
      list = list.next;
     * put list.value=;
	  put list ;
   end;
 
struct linklist malist;
 
malist=ajoute_list(list);
put malist ;
   do while (^isnull(malist.next));
      malist = malist.next;
     * put list.value=;
	  put malist ;
   end;
run;
quit;

Le résultat n'est pas celui attendu.. ma nouvelle liste commence avec la valeur de la fin de la liste soumise...

Si vous avez une idée où est le soucis.

ci-dessous la sortie, les 3 première lignes c'est le code initial (list) et mon rajout (malist) les 3 suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
                                 The SAS System                                1
 
                               The FCMP Procedure
 
list {0,0xdaa1a38,0x0}
list {1,0xdaa1a50,0x0}
list {999,0x0,0x0}
malist {1000,0xdaa1a68,0x0}
malist {1,0xdaa1a80,0x7100000070}
malist { ,0x0,0x0}

J'obtiens donc pour value successivement 1000, 1 , valeur manquante là ou j'aurais voulu obtenir 1 , 2 et 1000


Edit : En regardant plus attentivement la log de l'execution du programme, j'ai le message

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
WARNING: Cannot find function 'get_record' in any of the libraries specified.
NOTE: PROCEDURE FCMP used (Total process time):
      real time           0.17 seconds
      cpu time            0.04 seconds

C'est un problème sur SAS, soit mon code C est correct et c'est ce que j'ai écris dans la FCMP qui ne va pas (et auquel cas je vais me diriger vers le forum SAS) , soit c'est mon code C qui est bancal et qui fait planter SAS dans la FCMP.

[JeromeMATHIAS]

Merci de votre aide, finalement compte tenu du fait que je ne maitrise pas le C, je suis passé par d'autres chemins.
Je clos le sujet.