Discussion :

[Emmanuel Delahaye]

Bonjour,

Je cherche à reproduire la fonction strdup() du C. Ce code est-il correct ?

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
 
program snippet;
 
 procedure main;
 var
  sdup : ^string;
  s : string;
 begin
  s := "Hello word";
  new (sdup, 1 + length(s));
  sdup^ := s;
 
  writeln (s);
  writeln (sdup^);
  dispose (sdup);
 
 end;
 
begin
 main;
 readln;
end.

Merci :

P.S. new/dispose sont-ils mieux que getmem()/freemem() ?

[M.Dlb]

A priori, le code est bon et devrait compiler. Sémantiquement c'est correct en tout cas.

New et Dispose sont plutôt utilisé pour la programmation objet, sachant qu'avec new on alloue l'espace mémoire du pointeur passé en paramètre sans gérer la taille (le choix est laissé au compilateur, qui alloue la bonne taille). Avec getmem, on réserve un espace de mémoire, et on y met ce qu'on veut dedans. Ce n'est pas tout à fait pareil. getmem est plus fin pour gérer l'espace mémoire.

Dans ton cas, si on voulait optimiser, on aurait choisi getmem : en récupérant la taille de la string à copier, on alloue un espace de même taille + 1, puis on copie octet par octet. Avec new, tu vas allouer 256 octets, alors que tous ne sont pas utiles, si ta chaîne à copier fait 10 octets

[Emmanuel Delahaye]

Dans ton cas, si on voulait optimiser, on aurait choisi getmem : en récupérant la taille de la string à copier, on alloue un espace de même taille + 1, puis on copie octet par octet. Avec new, tu vas allouer 256 octets, alors que tous ne sont pas utiles, si ta chaîne à copier fait 10 octets

Ca veut dire que le 2ème paramètre ne sert à rien ?

Code :

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

1
2
3
4
5
6
7
 
 var
  sdup : ^string;
  s : string;
 begin
  s := "Hello word";
  new (sdup, 1 + length(s));

si je ne le met pas, le compilateur me dit qu'il ne sait pas faire... Je rappelle que sdup est un ^string et non un string.

[M.Dlb]

Bizarre, sans le deuxième paramètre, ca compile chez moi.

Voici la version avec getmem, plus logique à mon goût :

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
 
program snippet;
 
 procedure main;
 var
  sdup : ^string;
  s : string;
 begin
  s := 'Hello word';
  getmem (sdup, length(s) + 1);
  sdup^ := s;
 
  writeln (s);
  writeln (sdup^);
  freemem (sdup, length(s) + 1);
 
 end;
 
begin
 main;
 readln;
end.

[Emmanuel Delahaye]

Bizarre, sans le deuxième paramètre, ca compile chez moi.

J'utilise GNUPascal.

Voici la version avec getmem, plus logique à mon goût :

Code :

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

1
2
3
4
 
  getmem (sdup, length(s) + 1);
<...>
  freemem (sdup, length(s) + 1);

OK, mais il faut se trimballer la taille pour la libération. C'est pas drôle...

Exceptionnellement, ici, je peux faire

Code :

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

  freemem (sdup, length(sdup) + 1);

mais c'est un cas très particulier...

En tout cas, merci, je vais continuer à étudier tout ça.

[Alcatîz]

Bonjour !

Les chaînes AZT (tableaux de caractères et pChar) du Pascal sont plus proches du C que les chaînes à attribut de longueur (strings).
A ce sujet, encore un peu de pub pour la nouvelle FAQ :
http://pascal.developpez.com/faq/?pa...-zero-terminal