Histoire de 1993 à JS

Bonjour.
En lisant mon journal ce matin, je tombe sur un article qui rappelle l'histoire du Newton. (pour les plus jeunes le Newton est considéré comme l'ancêtre de tous les PDAs. je n'en suis pas convaincu. il est sorti en 1993)
le newton arrivait avec un langage le newtonscript. je me suis alors souvenu de la chose. je n'ai à l'époque pas réellement pratiqué mais j'étais curieux.
et là tout d'un coup le langage me reviens à la mémoire et je le trouve proche dans sa syntaxe de Javascript. je vous laisse juger

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
func myfunc() begin
   Stack := {
      class: 'stack',
      Content: [],
      Push: func (item) begin
         AddArraySlot(Content,item);
         /* Adds the item as the new last element to the array */
      end,
      Pop: func () begin
         local item:=Content[Length(Content)-1];
         ArrayRemoveCount(Content,Length(Content)-1,1);
         item;
         /* the last expression is always the function result,
            here item is returned */
      end
   };
   Stack:Push(1);
   Stack:Push(2);
   Print(Stack:Pop()); /* Print does debugging output */
   Print(Stack:Pop());
end;

Remplaçons := par =, begin par {, end par } et fun par function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function myfunc() {
   Stack = {
      class: 'stack',
      Content: [],
      Push: function (item) {
         AddArraySlot(Content,item);
         /* Adds the item as the new last element to the array */
      },
      Pop: function () {
         local item=Content[Length(Content)-1];
         ArrayRemoveCount(Content,Length(Content)-1,1);
         item;
         /* the last expression is always the function result,
            here item is returned */
      }
   };
   Stack:Push(1);
   Stack:Push(2);
   Print(Stack:Pop()); /* Print does debugging output */
   Print(Stack:Pop());
};

l'histoire de l'informatique est un éternel recommencement.

A+JYT