SpiderBasic 1.30 est sorti

1
2
3
4
5
6
7
8
9
10
11
12
Procedure.l BuildRequestHeader(*Buffer, DataLength, ContentType$)
  Chaine$ =   "HTTP/1.1 200 OK"+EOL$ + 
                  "Date: Wed, 07 Aug 1996 11:15:43 GMT"+EOL$ + 
                  "Server: Atomic Web Server 0.2b"+EOL$ + 
                  "Content-Length: "+Str(DataLength)+EOL$ +
                  "Content-Type: "+ContentType$+EOL$ +
                  EOL$
  
  PokeS(*Buffer, Chaine$)
 
  ProcedureReturn *Buffer
EndProcedure

LoadJSON(#JSON, FileName$ [, Flags])

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Procedure.l BuildRequestHeader(*Buffer, DataLength, ContentType$)

  Length = PokeS(*Buffer, "HTTP/1.1 200 OK"+EOL$)                     : *Buffer+Length
  Length = PokeS(*Buffer, "Date: Wed, 07 Aug 1996 11:15:43 GMT"+EOL$) : *Buffer+Length
  Length = PokeS(*Buffer, "Server: Atomic Web Server 0.2b"+EOL$)      : *Buffer+Length
  Length = PokeS(*Buffer, "Content-Length: "+Str(DataLength)+EOL$)    : *Buffer+Length
  Length = PokeS(*Buffer, "Content-Type: "+ContentType$+EOL$)         : *Buffer+Length
  Length = PokeS(*Buffer, EOL$)                                       : *Buffer+Length

  ; Length = PokeS(*Buffer, "Last-modified: Thu, 27 Jun 1996 16:40:50 GMT"+Chr(13)+Chr(10)  , *Buffer) : *Buffer+Length
  ; Length = PokeS(*Buffer, "Accept-Ranges: bytes"+EOL$                 , *Buffer) : *Buffer+Length
  ; Length = PokeS(*Buffer, "Connection: close"+EOL$) : *Buffer+Length

  ProcedureReturn *Buffer
EndProcedure

1
2
3
4
5
6
7
8
9
      If RequestedFile$ = ""
        RequestedFile$ = DefaultPage$
      Else
        *t.tmp = @RequestedFile$
        While *t\a <> 0
          If *t\a = '/' : *t\a = '\' : EndIf
          *t+1
        Wend
      EndIf

1
2
3
var data = Bacon.fromNodeCallback(fs.readFile, "data.json", "utf8").map(function(event){
   return JSON.parse(event);
}).toProperty();

1
2
3
import json
with open('data.json') as data_file:    
    data = json.load(data_file)

1
2
3
4
5
        *t.tmp = @RequestedFile$ 
        While *t\a <> 0 
          If *t\a = '/' : *t\a = '\' : EndIf 
          *t+1 
        Wend

t.a = t.a.replace('/', '\')

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    tag_groupe_dst = (idx_a < idx_b ? tag_groupe_a : tag_groupe_b); 
    for (i = 0; i < psrc->len; i++) { 
        psrc->tab[i]->tag = tag_groupe_dst; 
    } 
    /* Allocation dst = (taille dst + taille src) : */ 
    tab_tmp = 
        (struct cell **) realloc(pdst->tab, 
                                 (pdst->len + psrc->len) * 
                                 sizeof(struct cell *)); 
    if (tab_tmp == NULL) { 
        snprintf(buffer_erreur, sizeof(buffer_erreur) - 1, 
                 "Erreur de ré-allocation d\'un groupe, " 
                 "plus assez de mémoire"); 
        return -1; 
    } 
    pdst->tab = tab_tmp;

1
2
3
4
5
6
7
8
9
10
11
12
13
    going = True 
    while going: 
        clock.tick(60) 
        for event in pygame.event.get(): 
            if event.type == QUIT: 
                going = False 
            elif event.type == KEYDOWN: 
                if event.key == K_ESCAPE: 
                    going = False 
                elif event.key == K_q: 
                    going = False 
                elif event.key == K_RETURN: 
                    going = False

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Structure Quake3Mods 
  Alias.s 
  NomReel.s 
  Version.s 
EndStructure 
 
NewList Mods.Quake3Mods() 
 
If ReadFile(0, "Quake3Launcher.prefs") 
 
  While Eof(0) = 0 
 
    AddElement(Mods()) 
    Mods()\Alias   = ReadString(0) 
    Mods()\NomReel = ReadString(0) 
    Mods()\Version = ReadString(0) 
 
  Wend

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
structure Quake3Mods 
  Alias.s 
  NomReel.s 
  Version.s 
ends 
 
newList Mods.Quake3Mods() 
 
if ReadFile(0, "Quake3Launcher.prefs") 
  while Eof(0) = 0 
    addElement(Mods()) 
    mods().Alias   = ReadString(0) 
    mods().NomReel = ReadString(0) 
    mods().Version = ReadString(0) 
 
  wend

UneChaine$ = ReplaceString(UneChaine$,"/","\")