lanisys/W
4
0 Fork 0
Code Issues Pull Requests Packages Projects Releases 16 Wiki Activity

Compare commits

base: lanisys/W:alpha.0.4
lanisys/W:master lanisys/W:dev/alpha-10 lanisys/W:dev/alpha-9 lanisys/W:dev/alpha-8 lanisys/W:dev/alpha-7 lanisys/W:dev/alpha-6 lanisys/W:dev/alpha-5 lanisys/W:dev/alpha-4 lanisys/W:dev/alpha-3 lanisys/W:dev/alpha-2
lanisys/W:alpha.0.9.2 lanisys/W:alpha.0.9.1 lanisys/W:alpha-0.9.0 lanisys/W:alpha.0.8.0 lanisys/W:alpha.0.7.0 lanisys/W:alpha.0.6.0 lanisys/W:alpha.0.5.0 lanisys/W:alpha.0.4.6 lanisys/W:alpha.0.4.5 lanisys/W:alpha.0.4.4 lanisys/W:alpha.0.4.3 lanisys/W:alpha.0.4.2 lanisys/W:alpha.0.4.1 lanisys/W:alpha.0.4 lanisys/W:alpha-0.3 lanisys/W:alpha.0.2 lanisys/W:alpha.0.1 lanisys/W:alpha
..
compare: lanisys/W:master
lanisys/W:dev/alpha-10 lanisys/W:dev/alpha-9 lanisys/W:dev/alpha-8 lanisys/W:dev/alpha-7 lanisys/W:dev/alpha-6 lanisys/W:dev/alpha-5 lanisys/W:dev/alpha-4 lanisys/W:master lanisys/W:dev/alpha-3 lanisys/W:dev/alpha-2
lanisys/W:alpha.0.9.2 lanisys/W:alpha.0.9.1 lanisys/W:alpha-0.9.0 lanisys/W:alpha.0.8.0 lanisys/W:alpha.0.7.0 lanisys/W:alpha.0.6.0 lanisys/W:alpha.0.5.0 lanisys/W:alpha.0.4.6 lanisys/W:alpha.0.4.5 lanisys/W:alpha.0.4.4 lanisys/W:alpha.0.4.3 lanisys/W:alpha.0.4.2 lanisys/W:alpha.0.4.1 lanisys/W:alpha.0.4 lanisys/W:alpha-0.3 lanisys/W:alpha.0.2 lanisys/W:alpha.0.1 lanisys/W:alpha
8 Commits
alpha.0.4 .. master
Author SHA1 Message Date
fred 14b314484c Merge pull request 'Modif readme install' (#6) from fred-patch-1-readme into master 
Reviewed-on: #6
 2026-02-08 11:15:25 +01:00
fred f45b6a9181 Modif readme install 
Ajout d'une instruction dans le readme pour actualiser le shell afin de prendre en compte les variables d'env

Signed-off-by: Deville <fred@lanisys.fr>
 2026-02-08 10:24:32 +01:00
nicolas 3c86d54a10 Merge pull request 'Ajout section installation' (#5) from nicolas-patch-installation into master 
Reviewed-on: #5
 2026-01-02 15:30:59 +01:00
nicolas ac2ade566a Changement nom sources files 
Changement du nom du source file dans /etc/apt/sources.list.d de docker.sources en wlanguage.sources

Signed-off-by: Deville <nicolas@lanisys.fr>
 2026-01-02 12:06:40 +01:00
nicolas 81b7307d18 Suppression espace 
Suppression d'un espace pour faire plus jolie

Signed-off-by: Deville <nicolas@lanisys.fr>
 2026-01-02 12:00:53 +01:00
nicolas e120af6ec3 Ajout section installation 
Ajout de la section installation pour décrire l'ajout du dépôt officiel.

Signed-off-by: Deville <nicolas@lanisys.fr>
 2026-01-02 11:57:26 +01:00
fred 264291b36b Merge pull request 'Update Wiki W' (#3) from nicolas-patch-1 into master 
Reviewed-on: #3
 2025-12-24 17:29:43 +01:00
nicolas 73ab1c2aa6 Update Wiki W 
Suite changement hébergement web, le lien du wiki a changé. Mise à jour du lien.

Signed-off-by: Deville <nicolas@lanisys.fr>
 2025-12-24 13:30:32 +01:00
58 changed files with 3620 additions and 7530 deletions
Expand all files Collapse all files

No files matched your search

README.md
+19 -38
View File
@@ -24,15 +24,29 @@ W
along with this program. If not, see <https://www.gnu.org/licenses/>.
```
# Installation
Installation depuis les dépôts officiels pour base Debian/Ubuntu:
```
sudo apt update
sudo apt install ca-certificates curl
sudo curl -fsSL http://apt.lanisys.fr/public.key -o /etc/apt/keyrings/wlanguage.gpg
sudo tee /etc/apt/sources.list.d/wlanguage.sources <<EOF
Types: deb
URIs: http://apt.lanisys.fr
Suites: $(. /etc/os-release && echo "$VERSION_CODENAME")
Components: main
Signed-By: /etc/apt/keyrings/wlanguage.gpg
EOF
sudo apt update
sudo apt install wlanguage
sudo exec bash -l
```
# Execution
var pour la shared lib, puis exécution :
```
export LD_LIBRARY_PATH=/home/fde/dev/langage/w/exec
(sur le serveur de dev. pour que ce soit compatible avec la version installee)
sudo ln -s /home/fde/dev/langage/w/lex /etc/wlanguage
exec/lw -t -WBIN:./exec -WSRC:. test
```
@@ -43,43 +57,10 @@ ldd
objdump/readelf (moins bien)
cat /proc/*/maps et faire des grep pour voir les .so et module chargés par opendl
```
# Compilation et execution
# Compilation
```
# exec/lwc $1.w $1.wa < $1.w ; exec/lwa $1.wa ; exec/lw $1
exec/genw $1.w && exec/lwa $1.wa && rm $1.wa && exec/lw $1
exec/genw $1.w && exec/lwa $1.wa ; exec/lw $1
```
# Site Web
https://w.lanisys.fr/
## LANGAGE W
### Présentation
Le but du langage W est d’être simple, efficace, robuste.
Il est fourni avec un compilateur qui génère un code binaire de type
*p-code*, compatible toute plateforme.
Un exécuteur de p-code W sera disponible sur Linux et d’autres OS.
Un interpréteur W permet également d’exécuter un programme W en mode
*script*.
Un module FastCGI permettra de plus d’utiliser le langage W en mode
interprété ou compilé pour les sites Internet.
Enfin, les programmes W pourront être appelés depuis d’autres
programmes, un peu comme un langage de plugins.
Deux utilitaires permettent de formatter le code source et de générer de
la documentation à partir de *tags* dans le code, au format
[DokuWiki](https://www.dokuwiki.org/dokuwiki).
Description du fonctionnement des [programmes](/w/prog) d’exécution et
compilation.
Pour démarrer, premier programme d’exemple :
``` w
; Le celebre Hello world en W
begin hello
echonl "Hello world !"
except
end
```
Voici la description complète du [langage W](/w/instr).
apidecl.h
-34
View File
@@ -1,34 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#undef WAPIDECL
#define WAPIDECL
// for windows compilation and generating/using import library
#ifdef WAPIEXPORT
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#endif
#ifdef WAPIIMPORT
#undef WAPIDECL
#define WAPIDECL __declspec(dllimport)
#endif
arg.c
-51
View File
@@ -1,51 +0,0 @@
#define ARG_DEBUG "d"
#define ARG_TRACE "t"
#define ARG_DISASM "d"
void GetArgs(env * e, int argc, char * argv[], Dynamic * arg)
{
int nbOpt = 0, cpt = 0;
dynSetLen(e, arg, 0);
for(int a = 1; a < argc; a++)
{
if(strcmp(argv[a], "-" ARG_DEBUG) == 0)
dynStoreSz(e, arg, 1, ++nbOpt, ARG_DEBUG, 1, cFM, cVM);
else if(strcmp(argv[a], "-" ARG_TRACE) == 0)
dynStoreSz(e, arg, 1, ++nbOpt, ARG_TRACE, 1, cFM, cVM);
else if(strncmp(argv[a], "-WBIN:", 6) == 0 && strlen(argv[a]) > 6)
dynStoreSz(e, arg, 3, DYN_NONE, &argv[a][6], DYN_LGNONE, cFM, DYN_NONE); // memo (.o .so)
else if(strncmp(argv[a], "-WLIB:", 6) == 0 && strlen(argv[a]) > 6)
dynStoreSz(e, arg, 5, DYN_NONE, &argv[a][6], DYN_LGNONE, cFM, DYN_NONE); // memo (.wp .wa)
else if(strncmp(argv[a], "-WSRC:", 6) == 0 && strlen(argv[a]) > 6)
dynStoreSz(e, arg, 4, DYN_NONE, &argv[a][6], DYN_LGNONE, cFM, DYN_NONE); // memo (.w)
else if(strncmp(argv[a], "-", 1) == 0)
; // argument inconnu, ignorer
else
{
// premier argument ne commencant pas par "-" : nom du prog wp
for( ; a < argc; a++)
dynStoreSz(e, arg, 2, ++cpt, argv[a], DYN_LGNONE, cFM, cVM);
break;
}
}
if(dynExtractPos(e, arg, 3, DYN_NONE, cFM, DYN_NONE) <= 0)
{
dynStoreSz(e, arg, 3, DYN_NONE, getenv("WBIN"), DYN_LGNONE, cFM, DYN_NONE); // si absent en ligne de cmd, lire de la var d'env
if(dynExtractPos(e, arg, 3, DYN_NONE, cFM, DYN_NONE) <= 0)
dynStoreSz(e, arg, 3, DYN_NONE, getenv("LD_LIBRARY_PATH"), DYN_LGNONE, cFM, DYN_NONE); // dernier recours...
}
//
if(dynExtractPos(e, arg, 5, DYN_NONE, cFM, DYN_NONE) <= 0)
dynStoreSz(e, arg, 5, DYN_NONE, getenv("WLIB"), DYN_LGNONE, cFM, DYN_NONE); // si absent en ligne de cmd, lire de la var d'env
//
if(dynExtractPos(e, arg, 4, DYN_NONE, cFM, DYN_NONE) <= 0)
dynStoreSz(e, arg, 4, DYN_NONE, getenv("WSRC"), DYN_LGNONE, cFM, DYN_NONE); // si absent en ligne de cmd, lire de la var d'env
/*
arg<1> = options en MV
arg<2> = prog et parametres en MV
arg<3> = WBIN (.o .so) => invoke, LD_LIBRARY_PATH
arg<4> = WSRC (.w) => lwc
arg<5> = WLIB (.wp .wa) => call, lwa lwc
*/
}
assembler.c
+189 -219
View File
@@ -20,9 +20,6 @@
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#ifdef WINLIB
#include "windows.h"
#endif
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
@@ -31,7 +28,8 @@
#include "langage.h"
#include "dynamic.h"
#include "instr.h"
#include "arg.c"
char libComp[9 * 3] = {"EQ " "NE " "LT " "GT " "LE " "GE " "AND" "OR " "NOT"};
env e;
@@ -86,23 +84,10 @@ void decodeString(env * e, Dynamic * this)
dynChange(e, this, "#20", " ", DYN_ALL);
}
Dynamic pcode;
ent64s posOffset;
void PCODE(int x)
{
dynConcatSz(&e,&pcode,"0",1);
pcode.ptr[pcode.mLg-1]=((octet)x);
}
void PCODEP(int x)
{
pcode.ptr[posOffset++]=((octet)x);
}
int assembler(env * e, char * fichier, int * cptLig)
{
//#define PCODE(x) {dynConcatSz(e,&pcode,"0",1);pcode.ptr[pcode.mLg-1]=((octet)x);}
//#define PCODEP(x) pcode.ptr[pcode.mLg++]=((octet)x);
#define PCODE(x) {dynConcatSz(e,&pcode,"0",1);pcode.ptr[pcode.mLg-1]=((octet)x);}
#define PCODEP(x) pcode.ptr[pcode.mLg++]=((octet)x);
//
dynInit(e, &e->int_dynamic, DYN_LGMIN);
//
@@ -110,8 +95,8 @@ int assembler(env * e, char * fichier, int * cptLig)
if(dynRead(e, &e->int_dynamic, fichier) != OK)
return -1;
// traiter chaque ligne
Dynamic ligne, tmp, varsys, trav;
int ret = OK, i, sav, offset, instr, debutSub; // precInstr = -1;
Dynamic ligne, tmp, pcode, varsys, trav;
int ret = OK, i, sav, offset, instr, debutSub;
int premiere_instr = 1, derniere_instr = 0;
long pos; // pour locate
ent64s num;
@@ -167,13 +152,13 @@ int assembler(env * e, char * fichier, int * cptLig)
debutSub = debutSub + 2 + pcode.ptr[debutSub + 1];
offset = pcode.mLg + 1 - debutSub;
// maj offset
//sav = pcode.mLg;
sav = pcode.mLg;
dynField(e, &adrLabel, &trav, 5, iLabel, cFM, cVM, 1);
posOffset = dynToNum(e, &trav, DYN_FALSE, 0);
PCODEP((offset >> 16) & 255);
PCODEP((offset >> 8 ) & 255);
PCODEP(offset & 255);
//pcode.mLg = sav;
pcode.mLg = dynToNum(e, &trav, DYN_FALSE, 0);
PCODEP((offset >> 16) & 255)
PCODEP((offset >> 8 ) & 255)
PCODEP(offset & 255)
pcode.mLg = sav;
dynDel(e, &adrLabel, 4, iLabel, cFM, cVM, 1);
dynDel(e, &adrLabel, 5, iLabel, cFM, cVM, 1);
}
@@ -226,8 +211,8 @@ int assembler(env * e, char * fichier, int * cptLig)
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
num = dynToNum(e, &tmp, 0, 3) & 255;
if(tmp.mInternal == DYN_ERR) ret = -3; // erreur conversion
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
break;
case IN_JUMP:
case IN_JMPF:
@@ -238,7 +223,7 @@ int assembler(env * e, char * fichier, int * cptLig)
pos = dynLocateSz(e, &adrLabel, tmp.mPtr, cVM, 1, cFM);
if(pos > 0)
{
PCODE(instr);
PCODE(instr)
dynField(e, &adrLabel, &trav, 2, pos, cFM, cVM, 1); // adresse debut loop
offset = dynToNum(e, &trav, DYN_FALSE, 8);
dynField(e, &adrLabel, &trav, 3, subNiv, cFM, cVM, 1); // adresse debut sub en cours
@@ -246,19 +231,19 @@ int assembler(env * e, char * fichier, int * cptLig)
if(subNiv > 1)
debutSub = debutSub + 2 + pcode.ptr[debutSub + 1];
offset = offset + 1 - debutSub; // ad debut loop - debut du prog/sub en cours
PCODE((offset >> 16) & 255); // 23/11/2025 - verif PCODE ok a la place de PCODEP
PCODE((offset >> 8 ) & 255); // 23/11/2025 - verif PCODE ok a la place de PCODEP
PCODE(offset & 255); // 23/11/2025 - verif PCODE ok a la place de PCODEP
PCODEP((offset >> 16) & 255)
PCODEP((offset >> 8 ) & 255)
PCODEP(offset & 255)
}
else
{
PCODE(instr);
PCODE(instr)
// memoriser l'endroit ou on veut mettre l'offset du jump a faire adrLabel<4> et <5>
dynIns(e, &adrLabel, 4, 1, &tmp, cFM, cVM);
dynInsSz(e, &adrLabel, 5, 1, Int32ToSz(pcode.mLg, DYN_FALSE, 0), DYN_LGNONE, cFM, cVM);
PCODE(0);
PCODE(0);
PCODE(0);
PCODE(0)
PCODE(0)
PCODE(0)
}
break;
case IN_DECL:
@@ -269,20 +254,20 @@ int assembler(env * e, char * fichier, int * cptLig)
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 1 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom variable
num = tmp.mLg;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_SRCL:
// SRCL
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
num = dynToNum(e, &tmp, 0, 8) & 0xFFFFFF;
if(tmp.mInternal == DYN_ERR) ret = -3; // erreur conversion
PCODE(instr);
PCODE((num >> 16) & 255);
PCODE((num >> 8) & 255);
PCODE(num & 255);
PCODE(instr)
PCODE((num >> 16) & 255)
PCODE((num >> 8) & 255)
PCODE(num & 255)
break;
case IN_PHDS:
case IN_PIDS:
@@ -294,13 +279,13 @@ int assembler(env * e, char * fichier, int * cptLig)
num = tmp.mLg;
if(num == 1 && tmp.mPtr[0] == '_') // assembler SUBR _ pour avoir lg = 0
num = 0;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(0);
PCODE(0);
PCODE(0);
PCODE(tmp.mPtr[p])
PCODE(0)
PCODE(0)
PCODE(0)
/* nouvelle methode */
dynStoreSz(e, &adrLabel, 3, ++subNiv, Int32ToSz(sav, DYN_FALSE, 0), DYN_LGNONE, cFM, cVM);
break;
@@ -309,28 +294,28 @@ int assembler(env * e, char * fichier, int * cptLig)
if(subNiv < 2) { ret = -8; break; } // erreur descente de niveau incorrecte
dynField(e, &adrLabel, &trav, 3, subNiv--, cFM, cVM, 1);
debutSub = dynToNum(e, &trav, DYN_FALSE, 8);
//sav = pcode.mLg;
posOffset = debutSub + 2 + pcode.ptr[debutSub + 1];
offset = pcode.mLg + 1 - debutSub;
PCODEP((offset >> 16) & 255);
PCODEP((offset >> 8 ) & 255);
PCODEP(offset & 255);
//pcode.mLg = sav;
PCODE(instr);
sav = pcode.mLg;
pcode.mLg = debutSub + 2 + pcode.ptr[debutSub + 1];
offset = sav + 1 - debutSub;
PCODEP((offset >> 16) & 255)
PCODEP((offset >> 8 ) & 255)
PCODEP(offset & 255)
pcode.mLg = sav;
PCODE(instr)
break;
case IN_BEXC:
// BEXC
// memoriser la position pour renseigner l'offset plus tard => idem adrLabel<3> : BEXC juste apres PROG et SUBR !
PCODE(instr);
PCODE(0);
PCODE(0);
PCODE(0);
PCODE(instr)
PCODE(0)
PCODE(0)
PCODE(0)
break;
case IN_EXCE:
// EXCE
// debut du bloc except : ecrire l'adresse dans l'instruction BEXC
PCODE(instr);
//sav = pcode.mLg;
PCODE(instr)
sav = pcode.mLg;
/* nouvelle methode */
dynField(e, &adrLabel, &trav, 3, subNiv, cFM, cVM, 1); // adresse debut sub en cours
debutSub = dynToNum(e, &trav, DYN_FALSE, 8);
@@ -338,31 +323,31 @@ int assembler(env * e, char * fichier, int * cptLig)
{
debutSub = debutSub + 2 + pcode.ptr[debutSub + 1] + 3;
offset = pcode.mLg - debutSub;
posOffset = debutSub + 1;
pcode.mLg = debutSub + 1;
}
else
{
offset = pcode.mLg - debutSub;
posOffset = debutSub + 1;
pcode.mLg = debutSub + 1;
}
PCODEP((offset >> 16) & 255);
PCODEP((offset >> 8 ) & 255);
PCODEP(offset & 255);
//pcode.mLg = sav;
PCODEP((offset >> 16) & 255)
PCODEP((offset >> 8 ) & 255)
PCODEP(offset & 255)
pcode.mLg = sav;
break;
case IN_CATC:
// CATC
PCODE(instr);
PCODE(instr)
break;
case IN_THRW:
// THRW
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
num = dynToNum(e, &tmp, 0, 8) & 0xFFFFFF;
if(tmp.mInternal == DYN_ERR) ret = -3; // erreur conversion
PCODE(instr);
PCODE((num >> 16) & 255);
PCODE((num >> 8) & 255);
PCODE(num & 255);
PCODE(instr)
PCODE((num >> 16) & 255)
PCODE((num >> 8) & 255)
PCODE(num & 255)
break;
case IN_PART:
// PART
@@ -371,35 +356,39 @@ int assembler(env * e, char * fichier, int * cptLig)
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
num = dynToNum(e, &tmp, 0, 3) & 255;
if(tmp.mInternal == DYN_ERR) ret = -3; // erreur conversion
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
break;
case IN_RETN:
case IN_RETT:
// RETN / RETT
PCODE(instr)
break;
case IN_CRAZ:
// RETN / RETT / CRAZ
PCODE(instr);
// CRAZ
PCODE(instr)
break;
case IN_CLIB:
case IN_CALL:
// CLIB / CALL
PCODE(instr);
//dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
//num = dynToNum(e, &tmp, 0, 3) & 255;
//if(tmp.mInternal == DYN_ERR) { ret = -3; break; } // erreur conversion
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 1 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom variable
num = tmp.mLg;
if(num == 1 && tmp.mPtr[0] == '_')
PCODE(instr)
do
{
PCODE(0);
}
else
{
PCODE(num);
//dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
//num = dynToNum(e, &tmp, 0, 3) & 255;
//if(tmp.mInternal == DYN_ERR) { ret = -3; break; } // erreur conversion
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 1 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom variable
num = tmp.mLg;
if(num == 1 && tmp.mPtr[0] == '_')
{
PCODE(0)
break;
}
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
}
PCODE(tmp.mPtr[p])
} while(TRUE);
break;
case IN_PVAT:
case IN_TYPO:
@@ -408,7 +397,7 @@ int assembler(env * e, char * fichier, int * cptLig)
case IN_RNXT:
case IN_CPHA:
// PVAT / TYPO / PSHT / SELE / RNXT / CPHA
PCODE(instr);
PCODE(instr)
break;
case IN_CPSH:
case IN_PARM:
@@ -430,33 +419,33 @@ int assembler(env * e, char * fichier, int * cptLig)
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 1 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom variable
num = tmp.mLg;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_COMP:
// COMP
PCODE(instr);
PCODE(instr)
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(strcmp(tmp.mPtr, "EQ") == 0)
PCODE(CMP_EQ);
PCODE(CMP_EQ)
else if(strcmp(tmp.mPtr, "NE") == 0)
PCODE(CMP_NE);
PCODE(CMP_NE)
else if(strcmp(tmp.mPtr, "LT") == 0)
PCODE(CMP_LT);
PCODE(CMP_LT)
else if(strcmp(tmp.mPtr, "GT") == 0)
PCODE(CMP_GT);
PCODE(CMP_GT)
else if(strcmp(tmp.mPtr, "LE") == 0)
PCODE(CMP_LE);
PCODE(CMP_LE)
else if(strcmp(tmp.mPtr, "GE") == 0)
PCODE(CMP_GE);
PCODE(CMP_GE)
else if(strcmp(tmp.mPtr, "AND") == 0)
PCODE(CMP_AND);
PCODE(CMP_AND)
else if(strcmp(tmp.mPtr, "OR") == 0)
PCODE(CMP_OR);
PCODE(CMP_OR)
else if(strcmp(tmp.mPtr, "NOT") == 0)
PCODE(CMP_NOT);
PCODE(CMP_NOT)
else
ret = -9; // code comparaison inconnu
break;
@@ -542,32 +531,32 @@ int assembler(env * e, char * fichier, int * cptLig)
// DESV
case IN_DEZV:
// DEZV
PCODE(instr);
PCODE(instr)
break;
case IN_MODL:
// MODL
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 3 || tmp.mLg > 45) { ret = -4; break; } // erreur longueur nom module
num = tmp.mLg;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_PSHC:
// PSHC
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
num = dynToNum(e, &tmp, 1, 19);
if(tmp.mInternal == DYN_ERR) ret = -3; // erreur conversion
PCODE(instr);
PCODE((num >> 56) & 255);
PCODE((num >> 48) & 255);
PCODE((num >> 40) & 255);
PCODE((num >> 32) & 255);
PCODE((num >> 24) & 255);
PCODE((num >> 16) & 255);
PCODE((num >> 8) & 255);
PCODE(num & 255);
PCODE(instr)
PCODE((num >> 56) & 255)
PCODE((num >> 48) & 255)
PCODE((num >> 40) & 255)
PCODE((num >> 32) & 255)
PCODE((num >> 24) & 255)
PCODE((num >> 16) & 255)
PCODE((num >> 8) & 255)
PCODE(num & 255)
break;
case IN_PSH0:
case IN_PSH1:
@@ -590,7 +579,7 @@ int assembler(env * e, char * fichier, int * cptLig)
// WRIT
case IN_WRLN:
// WRLN
PCODE(instr);
PCODE(instr)
break;
case IN_PSHA:
// PSHA d1 : transco chaine / numero
@@ -600,8 +589,8 @@ int assembler(env * e, char * fichier, int * cptLig)
dynField(e, &varsys, &tmp, 2, pos, ';', ',', 1);
num = dynToNum(e, &tmp, 0, 3) & 255;
if(tmp.mInternal == DYN_ERR) ret = -3; // erreur conversion
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
break;
case IN_DSET:
// DSET - TODO decoder la chaine, cas des \xx en hexa (recalcul lg : fn qui met a jour directement tmp et maj lg)
@@ -609,10 +598,10 @@ int assembler(env * e, char * fichier, int * cptLig)
decodeString(e, &tmp);
if(tmp.mLg < 0 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom
num = tmp.mLg;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_DEXH:
// DEXH
@@ -637,103 +626,93 @@ int assembler(env * e, char * fichier, int * cptLig)
num = tmp.mLg;
if(num == 1 && tmp.mPtr[0] == '_') // assembler DEXF/DEXV/VLET/DCAT _ pour avoir lg = 0
num = 0;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_CLAS:
// CLAS
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 1 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom var
num = tmp.mLg;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 1 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom var
num = tmp.mLg;
if(num == 1 && tmp.mPtr[0] == '_') // assembler CLAS lg1 nom1 _ pour avoir lg2 = 0
num = 0;
PCODE(num);
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_DCMP:
// DCMP
//dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
PCODE(instr);
PCODE(instr)
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(strcmp(tmp.mPtr, "EQ") == 0)
PCODE(CMP_EQ);
PCODE(CMP_EQ)
else if(strcmp(tmp.mPtr, "NE") == 0)
PCODE(CMP_NE);
PCODE(CMP_NE)
else if(strcmp(tmp.mPtr, "LT") == 0)
PCODE(CMP_LT);
PCODE(CMP_LT)
else if(strcmp(tmp.mPtr, "GT") == 0)
PCODE(CMP_GT);
PCODE(CMP_GT)
else if(strcmp(tmp.mPtr, "LE") == 0)
PCODE(CMP_LE);
PCODE(CMP_LE)
else if(strcmp(tmp.mPtr, "GE") == 0)
PCODE(CMP_GE);
PCODE(CMP_GE)
else
ret = -9; // code comparaison inconnu
//
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 1 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom var
num = tmp.mLg;
PCODE(num);
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_INCL:
// INCL (lg=0 possible si rien)
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 0 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom variable
num = tmp.mLg;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_PNAM:
// PNAM (lg=0 possible si rien)
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
if(tmp.mLg < 0 || tmp.mLg > 255) { ret = -4; break; } // erreur longueur nom ident
num = tmp.mLg;
PCODE(instr);
PCODE(num);
PCODE(instr)
PCODE(num)
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
PCODE(tmp.mPtr[p])
break;
case IN_PROG:
case IN_BACK:
case IN_LIBR:
// debut de programme executable directement (normal et demon) et debut library, non executable directement
PCODE(instr);
PCODE(instr)
/* nouvelle methode */
dynStoreSz(e, &adrLabel, 3, ++subNiv, Int32ToSz(pcode.mLg, DYN_FALSE, 0), DYN_LGNONE, cFM, cVM);
break;
case IN_SDBG:
dynField(e, &ligne, &tmp, i++, 0, ' ', 0, 1);
num = tmp.mLg;
PCODE(instr);
PCODE((num >> 16) & 255);
PCODE((num >> 8) & 255);
PCODE(num & 255);
for(int p = 0; p < num; p++)
PCODE(tmp.mPtr[p]);
break;
case IN_TEST:
// TEST
PCODE(instr);
PCODE(instr)
break;
case IN_ENDL:
case IN_ENDP:
// ENDL / ENDP : fin de librairie / prog directement executable
if(subNiv != 1) { ret = -8; break; } // erreur descente de niveau incorrecte
PCODE(instr);
PCODE(instr)
derniere_instr = 1;
break;
default:
@@ -755,12 +734,27 @@ int assembler(env * e, char * fichier, int * cptLig)
if(tmp.mLg != 0 && tmp.mPtr[0] != ';') { ret = -6; printf("tmp *%s*\n", tmp.mPtr);} // erreur en fin d'instruction
}
}
//precInstr = instr;
}
//
if(!ret)
{
// si pas d'erreur, ecrire au meme endroit que le .wa (=> dans WLIB)
// si pas d'erreur : copier dans le repertoire WBIN en renommant "xxx.wa" en "xxx.wp"
//char * wbin = getenv("WBIN");
//if(wbin == NULL)
// wbin = getenv("LD_LIBRARY_PATH");
//if(wbin == NULL)
//{
// ret = -11;
//}
//else
//{
// dynLet(e, &tmp, wbin, DYN_LGNONE);
// dynConcatSz(e, &tmp, e->path_sep, DYN_LGNONE);
// dynConcatSz(e, &tmp, fichier, DYN_LGNONE);
// tmp.mPtr[tmp.mLg - 1] = 'p';
// dynWrite(e, &pcode, tmp.mPtr);
//}
// ecrire au meme endroit que le .w et .wa
dynLet(e, &tmp, fichier, DYN_LGNONE);
tmp.mPtr[tmp.mLg - 1] = 'p';
dynWrite(e, &pcode, tmp.mPtr);
@@ -910,10 +904,15 @@ int disassembler(env * e, char * fichier)
case IN_CALL:
// CLIB / CALL
si++;
lg = pcode.ptr[si++];
if(lg > 0)
do
{
lg = pcode.ptr[si++];
if(lg == 0)
break;
for(int p = 0; p < lg; p++)
printf("%c", pcode.mPtr[si++]);
printf(" ");
} while(TRUE);
printf("\n");
dumpHex(&pcode, si_instr, si);
break;
@@ -1210,16 +1209,6 @@ int disassembler(env * e, char * fichier)
printf("\n");
dumpHex(&pcode, si_instr, si);
break;
case IN_SDBG:
si++;
lg = pcode.ptr[si++];
lg = lg * 256 + pcode.ptr[si++];
lg = lg * 256 + pcode.ptr[si++];
for(int p = 0; p < lg; p++)
printf("%c", pcode.mPtr[si++]);
printf("\n");
dumpHex(&pcode, si_instr, si);
break;
case IN_TEST:
// TEST
si++;
@@ -1251,14 +1240,13 @@ int disassembler(env * e, char * fichier)
dynFree(e, &tmp);
dynFree(e, &varsys);
dynFree(e, &niv);
return OK;
return 0;
}
/* ***************************************************************************************************** */
int main(int argc, char * argv[])
{
int cr = OK;
Dynamic arg, wlib, fichier;
int cr = 0;
/* */
/* avis de licence */
printf("W language Copyright 2024,2025 lanisys.fr\n");
@@ -1266,7 +1254,7 @@ int main(int argc, char * argv[])
/* argument : fichier a assembler/desassembler (si -d) */
if(argc < 2)
{
printf("Usage: lwa [-d] [-WLIB:<chemin>] <fichier.wa|fichier.wp>\n");
printf("Usage: lwa [-d] <fichier>\n");
exit(-1);
}
/* */
@@ -1276,58 +1264,40 @@ int main(int argc, char * argv[])
lap = ts.tv_sec * 1000000 + (ts.tv_nsec / 1000);
/* */
init_env(&e);
dynInit(&e, &arg, 0);
dynInit(&e, &wlib, 0);
dynInit(&e, &fichier, 0);
/* */
GetArgs(&e, argc, argv, &arg);
dynExtractField(&e, &arg, 5, &wlib);
dynExtractSubField(&e, &arg, 2, 1, &fichier); // fichier = .wa a assembler / .wp a desassembler
/* */
if(fichier.mLg < 4)
if(strcmp(argv[1], "-d") == 0)
{
printf("Nom de fichier incorrect\n");
cr = -14;
}
else if(wlib.mLg == 0)
{
printf("Variable d'environnement WLIB non definie\n");
cr = -15;
}
else
{
if(wlib.mPtr[wlib.mLg - 1] != e.path_sep[0])
dynConcatSz(&e, &wlib, e.path_sep, 1);
dynConcat(&e, &wlib, &fichier);
if(dynLocateSz(&e, &arg, ARG_DISASM, cVM, 1, cFM) > 0)
if(argc >= 3)
{
#ifndef UNIX
cr = disassembler(&e, wlib.mPtr);
cr = disassembler(&e, argv[2]);
#else
cr = disassembler(&e, wlib.mPtr);
cr = disassembler(&e, argv[2]);
#endif
}
else
printf("Usage: lwa -d <fichier>\n");
}
else
{
int numLig = 0;
#ifndef UNIX
if((cr = assembler(&e, argv[1], &numLig)) != OK)
#else
if((cr = assembler(&e, argv[1], &numLig)) != OK)
#endif
{
int numLig = 0;
#ifndef UNIX
if((cr = assembler(&e, wlib.mPtr, &numLig)) != OK)
#else
if((cr = assembler(&e, wlib.mPtr, &numLig)) != OK)
#endif
{
printf("Erreur %d a la ligne %d\n", cr, numLig);
}
else
{
printf("Result : OK, lines=%d\n", numLig);
}
printf("Erreur %d a la ligne %d\n", cr, numLig);
}
else
{
printf("Result : OK, lines=%d\n", numLig);
}
}
/* */
if(clock_gettime_monotonic(&ts) != -1)
lap = ts.tv_sec * 1000000 + (ts.tv_nsec / 1000) - lap;
printf("exit:%d ", cr);
printf("exit:%u ", cr);
if(lap < 1500)
printf("(%llu µs)\n", lap);
else if(lap < 1500000)
buffer.c
-215
View File
@@ -1,215 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include "langage.h"
#include "var.h"
#include "buffer.h"
#include "dynamic.h"
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
/*
Dans le contexte des IPC, memoire partagee, contenant un buffer (donc partagé), le champ "ptr" pointe forcement a la suite de l'entete,
car un malloc ne fonctionne pas en inter process.
Contrairement à la création avec "var_init", destiné a ne pas etre partage, ptr est créé par un malloc
La macro BUFPTR permet de gerer ces 2 cas : si le buffer est en memoire partagee, le champ ptr = NULL et il suffit alors d'aller juste apres l'entete
pour trouver les donnees. Si le buffer est cree avec var_init, il faut utiliser la valeur de ptr directement.
*/
//#define BUFPTR(x) (pointeur)(x->ptr == NULL ? (pointeur)(x + sizeof(var)) : x->ptr)
pointeur BUFPTR(var * x)
{
return (pointeur)(x->ptr == NULL ? (pointeur)(x + sizeof(var)) : x->ptr);
}
WAPIDECL void buffer_read(env * e, var * varbuf, var * v)
{
ent16 lg, lgfin; /* taille max d'un element dans un buffer : 64 Ko */
ent64 p;
if(varbuf == NULL || v == NULL)
return;
if(varbuf->type != VAR_BUFFER)
return;
/* uniquement lecture dans VAR_DYNAMIC : raz var sinon */
if(v->type == VAR_PARAM)
v = (var *)v->ptr; /* travailler avec la var pointee ! */
if(v->type != VAR_DYNAMIC)
{
var_free(e, v, TRUE);
var_init(e, v, VAR_DYNAMIC, 0, 0, NULL);
if(v->type == VAR_NULL)
{
/* erreur alloc memoire */
e->exception = EX_MEM;
return;
}
}
dynLet(e, v, NULL, DYN_LGNONE);
if(varbuf->read == varbuf->write)
return; /* buffer vide : var dynamic vide aussi */
/* */
p = varbuf->read;
lg = *(octet *)(BUFPTR(varbuf) + p++) * 256;
if(p >= varbuf->lgmax) p = 0;
lg += *(octet *)(BUFPTR(varbuf) + p++);
if(p >= varbuf->lgmax) p = 0;
if(lg > 0)
{
if(dynCtrl(e, v, lg, TRUE) != DYN_OK) /* avec RAZ */
return;
/* */
if(lg <= (lgfin = varbuf->lgmax - p))
{
/* copier un seul bloc */
memcopie(v->ptr, BUFPTR(varbuf) + p, lg);
//memcpy(v->ptr, varbuf->ptr + p, lg);
v->lg = lg;
*(v->ptr + lg) = 0; /* \0 de fin de chaine */
if(p + lg >= varbuf->lgmax)
varbuf->read = 0; /* cela ne peut pas etre plus loin, car sinon il y aurait eu 2 blocs a lire */
else
varbuf->read = p + lg;
}
else
{
/* 2 blocs */
memcopie(v->ptr, BUFPTR(varbuf) + p, lgfin);
//memcpy(v->ptr, varbuf->ptr + p, lgfin);
memcopie(v->ptr + lgfin, BUFPTR(varbuf), lg - lgfin);
//memcpy(v->ptr + lgfin, varbuf->ptr, lg - lgfin);
varbuf->read = lg - lgfin;
}
}
else
varbuf->read = p;
}
WAPIDECL void buffer_write(env * e, var * varbuf, var * v)
{
ent64 p, lgfin;
if(varbuf == NULL || v == NULL)
return;
if(v->type == VAR_PARAM)
v = (var *)v->ptr; /* travailler avec la var pointee ! */
if(varbuf->type != VAR_BUFFER || v->type != VAR_DYNAMIC)
return;
/* uniquement ecriture d'une VAR_DYNAMIC */
if(v->lg > (varbuf->lgmax / 2)) // pour pouvoir ecrire au moins 2 items dans le buffer
{
e->exception = EX_BUFOVF; /* trop grand a ecrire */
return;
}
ent64 vbread = varbuf->read;
if(varbuf->write < vbread)
{
/* ecriture en une fois, + 3 car lg sur 16 bits en plus et laisser au moins 1 octet libre => read=write veut dire vide ! */
if(vbread - varbuf->write < v->lg + 3)
{
e->exception = EX_BUFOVF; /* pas assez de place */
return;
}
/* */
p = varbuf->write;
*(BUFPTR(varbuf) + p) = (v->lg & 65535) >> 8;
p++;
*(BUFPTR(varbuf) + p) = v->lg & 255;
p++;
memcopie(BUFPTR(varbuf) + p, v->ptr, v->lg);
//memcpy(varbuf->ptr + p, v->ptr, v->lg);
varbuf->write = p + v->lg;
}
else
{
/* ecriture en une ou 2 fois */
if(varbuf->lgmax + vbread - varbuf->write < v->lg + 3) /* lgbuffer - (write - read) */
{
e->exception = EX_BUFOVF; /* pas assez de place */
return;
}
p = varbuf->write;
*(BUFPTR(varbuf) + p) = (v->lg & 65535) >> 8;
p++;
if(p >= varbuf->lgmax) p = 0;
*(BUFPTR(varbuf) + p) = v->lg & 255;
p++;
if(p >= varbuf->lgmax) p = 0;
if(v->lg == 0)
{
varbuf->write = p;
return;
}
if(v->lg <= (lgfin = varbuf->lgmax - p))
{
/* copier en une fois */
memcopie(BUFPTR(varbuf) + p, v->ptr, v->lg);
//memcpy(varbuf->ptr + p, v->ptr, v->lg);
if(p + v->lg >= varbuf->lgmax)
varbuf->write = 0; /* pas plus cas sinon il y aurait eu copie en 2 fois */
else
varbuf->write = p + v->lg;
}
else
{
/* en 2 fois */
memcopie(BUFPTR(varbuf) + p, v->ptr, lgfin);
//memcpy(varbuf->ptr + p, v->ptr, lgfin);
memcopie(BUFPTR(varbuf), v->ptr + lgfin, v->lg - lgfin);
//memcpy(varbuf->ptr, v->ptr + lgfin, v->lg - lgfin);
varbuf->write = v->lg - lgfin;
}
}
}
WAPIDECL void buffer_clear(env * e, var * varbuf)
{
if(varbuf == NULL)
return;
if(varbuf->type != VAR_BUFFER)
return;
varbuf->read = 0;
varbuf->write = 0;
memset(BUFPTR(varbuf), 0, varbuf->lgmax);
}
WAPIDECL void buffer_printdebug(env * e, var * varbuf, ent32 lg)
{
if(varbuf == NULL)
return;
if(varbuf->type != VAR_BUFFER)
return;
printf("buffer lgmax=%lld read=%lld write=%lld\n", varbuf->lgmax, varbuf->read, varbuf->write);
if(lg == 0)
lg = varbuf->lgmax;
/* affichage brut en hexa */
hex2((char *)BUFPTR(varbuf), lg, 32);
}
buffer.h
-35
View File
@@ -1,35 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#ifndef BUFFER_H
#define BUFFER_H
#include "apidecl.h"
WAPIDECL void buffer_read(env * e, var * varbuf, var * v);
WAPIDECL void buffer_write(env * e, var * varbuf, var * v);
WAPIDECL void buffer_clear(env * e, var * varbuf);
WAPIDECL void buffer_printdebug(env * e, var * varbuf, ent32 lg);
/* ********************************************** */
#endif
compil
+16 -31
View File
@@ -1,18 +1,13 @@
BUILD=`date +%Y%m%d%H%M%S`
echo BUILD $BUILD
echo 0. Compilation pour shared lib
gcc -c w_src/dynamic.c -s -Wall -DUNIX -m64 -fPIC -o exec/dynamic.o -Wno-unused-value
gcc -c w_src/dynamic.c -s -Wall -DUNIX -m64 -fPIC -o exec/dynamic.o
gcc -c w_src/var.c -s -Wall -DUNIX -m64 -fPIC -o exec/var.o
gcc -c w_src/hashtable.c -s -Wall -DUNIX -m64 -fPIC -o exec/hashtable.o
gcc -c w_src/buffer.c -s -Wall -DUNIX -m64 -fPIC -o exec/buffer.o
gcc -c w_src/global.c -s -Wall -DUNIX -m64 -fPIC -o exec/global.o
gcc -c w_src/rep.c -s -Wall -DUNIX -m64 -fPIC -o exec/rep.o
gcc -shared -s exec/dynamic.o exec/var.o exec/hashtable.o exec/global.o exec/rep.o exec/buffer.o -o exec/libw.so
rm -f exec/dynamic.o exec/var.o exec/hashtable.o exec/global.o exec/rep.o exec/buffer.o
gcc -shared -s exec/dynamic.o exec/var.o exec/hashtable.o exec/global.o -o exec/libw.so
rm -f exec/dynamic.o exec/var.o exec/hashtable.o exec/global.o
echo 1. Compilation de templateMod.c
gcc -shared -s -o exec/template.o w_src/templateMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
echo 1. Compilation de modeleMod.c
gcc -shared -s -o exec/modele.o w_src/modeleMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
echo 2. Compilation de fileMod.c
gcc -shared -s -o exec/file.o w_src/fileMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
@@ -20,25 +15,16 @@ gcc -shared -s -o exec/file.o w_src/fileMod.c -m64 -DUNIX -Wall -fPIC -L./exec -
echo 3. Compilation de sockMod.c
gcc -shared -s -o exec/sock.o w_src/sockMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
#echo 4. Compilation de dbMod.c et dbpgsql.c
#gcc -shared -s -o exec/db.o w_src/dbMod.c -m64 -DUNIX -Wall -ldl -fPIC -L./exec -l:libw.so
echo 4. Compilation de dbMod.c et dbpgsql.c
gcc -shared -s -o exec/db.o w_src/dbMod.c -m64 -DUNIX -Wall -ldl -fPIC -L./exec -l:libw.so
#gcc -shared -s -o exec/pgsql.o w_src/dbpgsql.c -m64 -DUNIX -Wall -I/usr/include/postgresql -fPIC -L./exec -l:libw.so
echo 5. Compilation de lzwMod.c
gcc -shared -s -o exec/lzw_lib.so w_src/lzw_lib.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
gcc -shared -s -o exec/lzw.o w_src/lzwMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so -l:lzw_lib.so
echo 5. Compilation de pdfMod.c
gcc -shared -s -o exec/pdf_lib.so w_src/pdf_lib.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
gcc -shared -s -o exec/pdf.o w_src/pdfMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so -l:pdf_lib.so -l:lzw_lib.so
gcc -shared -s -o exec/lzw.o w_src/lzwMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
echo 6. Compilation de jsonMod.c
gcc -shared -s -o exec/json_lib.so w_src/json_lib.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
gcc -shared -s -o exec/json.o w_src/jsonMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so -l:json_lib.so
echo 6. Compilation de shmMod.c
gcc -shared -s -o exec/shm_lib.so w_src/shm_lib.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
gcc -shared -s -o exec/shm.o w_src/shmMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so -l:shm_lib.so
gcc -shared -s -o exec/json_lib.o w_src/json_lib.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
gcc -shared -s -o exec/json.o w_src/jsonMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so -l:json_lib.o
echo 7. Compilation de timeMod.c
gcc -shared -s -o exec/time.o w_src/timeMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
@@ -53,7 +39,7 @@ echo 10. Compilation de randomMod.c
gcc -shared -s -o exec/random.o w_src/randomMod.c -m64 -DUNIX -Wall -fPIC -L./exec -l:libw.so
echo 11. Compilation et link de langage.c
gcc w_src/langage.c -s -o exec/lw -ldl -m64 -DUNIX -DBUILD=$BUILD -Wall -Wno-stringop-truncation -L./exec -l:libw.so -l:shm_lib.so
gcc w_src/langage.c -s -o exec/lw -ldl -m64 -DUNIX -Wall -Wno-stringop-truncation -L./exec -l:libw.so
echo 12. Compilation et link de assembler.c
gcc w_src/assembler.c -s -o exec/lwa -ldl -m64 -DUNIX -Wall -Wno-stringop-truncation -L./exec -l:libw.so
@@ -62,12 +48,11 @@ echo 13. Generation du formatteur de code
gcc w_src/format.c -s -o exec/lwf -Wall -m64 -DUNIX -L./exec -l:libw.so
echo 14. Generation du generateur de fichier lex
gcc w_src/genlex.c -o exec/wlex -s -Wall -m64 -DUNIX -L./exec -l:libw.so
gcc w_src/genlex.c -o exec/genlex -s -Wall -m64 -DUNIX -L./exec -l:libw.so
echo 15. Generation de l\'analyseur de source w \(compilateur w\)
gcc w_src/genw.c -s -o exec/lwc -Wall -m64 -DUNIX -Wno-stringop-truncation -L./exec -l:libw.so
echo 15. Generation de l\'analyseur de source w
gcc w_src/genw.c -s -o exec/genw -Wall -m64 -DUNIX -Wno-stringop-truncation -L./exec -l:libw.so
echo "test_utf => gcc test_utf.c -s -o utf -Wall -m64 -DUNIX -L./exec -l:libw.so"
echo "test_pdf => gcc test_pdf.c -s -o pdf -Wall -m64 -DUNIX -L./exec -l:libw.so -l:pdf_lib.so -l:lzw_lib.so"
echo "compress => gcc compress.c -s -o compress -Wall -m64 -DUNIX -L./exec -l:libw.so"
echo "package => dpkg-deb --build wlanguage"
echo "rep => gcc rep.c -s -o rep -Wall -m64 -DUNIX -L./exec -l:libw.so"
compil.bat
-71
View File
@@ -1,71 +0,0 @@
@echo off
cd "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build"
call vcvars64.bat
cd "C:\Users\Poupougne42\source\repos\win_w_src"
echo ------------------------------------------------------------------------------------------
echo 0. Compilation pour dynamic lib DLL
cl /LD /DWINLIB /DWAPIEXPORT /Feexec\libw.dll w_src\dynamic.c w_src\var.c w_src\hashtable.c w_src\buffer.c w_src\global.c w_src\rep.c
echo 1a. Compilation de templateMod.c
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\template.dll w_src\templateMod.c exec\libw.lib
echo 1b. Compilation de fileMod.c
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\file.dll w_src\fileMod.c exec\libw.lib
echo 1c. Compilation de timeMod.c
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\time.dll w_src\timeMod.c exec\libw.lib
echo 1d. Compilation de hashMod.c
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\hash.dll w_src\hashMod.c exec\libw.lib
echo 1e. Compilation de systemMod.c (ws2_32.lib pour socket)
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\system.dll w_src\systemMod.c exec\libw.lib ws2_32.lib
echo 1f. Compilation de randomMod.c
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\random.dll w_src\randomMod.c exec\libw.lib
echo ------------------------------------------------------------------------------------------
echo 2a. Compilation de jsonMod.c
cl /LD /DWINLIB /DWAPIEXPORT /Feexec\json_lib.dll w_src\json_lib.c exec\libw.lib
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\json.dll w_src\jsonMod.c exec\libw.lib exec\json_lib.lib
echo 2b. Compilation de shmMod.c
cl /LD /DWINLIB /DWAPIEXPORT /Feexec\shm_lib.dll w_src\shm_lib.c exec\libw.lib
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\shm.dll w_src\shmMod.c exec\libw.lib exec\shm_lib.lib
echo 2c. Compilation de lzwMod.c
cl /LD /DWINLIB /DWAPIEXPORT /Feexec\lzw_lib.dll w_src\lzw_lib.c exec\libw.lib
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\lzw.dll w_src\lzwMod.c exec\libw.lib exec\lzw_lib.lib
echo 2d. Compilation de pdfMod.c
cl /LD /DWINLIB /DWAPIEXPORT /Feexec\pdf_lib.dll w_src\pdf_lib.c exec\libw.lib exec\lzw_lib.lib
cl /LD /DWINLIB /DWAPIIMPORT /Feexec\pdf.dll w_src\pdfMod.c exec\libw.lib exec\pdf_lib.lib
echo ------------------------------------------------------------------------------------------
echo 3a. Generation lw.exe
cl w_src\langage.c /DWINLIB /DWAPIIMPORT /Feexec\lw.exe exec\libw.lib exec\shm_lib.lib /link
echo 3b. Generation lwa.exe
cl w_src\assembler.c /DWINLIB /DWAPIIMPORT /Feexec\lwa.exe exec\libw.lib /link
echo 3c. Generation lwc.exe
cl w_src\genw.c /DWINLIB /DWAPIIMPORT /Feexec\lwc.exe exec\libw.lib /link
echo 3d. Generation lwf.exe
cl w_src\format.c /DWINLIB /DWAPIIMPORT /Feexec\lwf.exe exec\libw.lib /link
echo 3d. Generation wlex.exe
cl w_src\genlex.c /DWINLIB /DWAPIIMPORT /Feexec\wlex.exe exec\libw.lib /link
echo ------------------------------------------------------------------------------------------
echo 4. Purge
del .\*.obj
del exec\*.obj
del exec\*.lib
del exec\*.exp
dir exec
exit
dbMod.c
+8 -8
View File
@@ -2,7 +2,7 @@
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
\/ \/ Copyright 2024 lanisys.fr
This file is part of W language.
@@ -86,7 +86,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -102,14 +102,14 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
p_etat->fnDb = NULL;
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
// liberation specifique au module avant arret process
if(p_etat != NULL)
memfree(e, p_etat);
//*** code specifique ici
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
// renvoie la version du module/plugins
if(param->type == VAR_DYNAMIC)
@@ -119,7 +119,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -133,7 +133,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
}
}
/* ============================================================================================= */
else if(modFnIs(e, "conn", 4))
else if(strncmp(e->fn, "conn", 4) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -182,7 +182,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
}
}
/* ============================================================================================= */
else if(modFnIs(e, "disc", 4))
else if(strncmp(e->fn, "disc", 4) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -208,7 +208,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
}
}
/* ============================================================================================= */
else if(modFnIs(e, "info", 4))
else if(strncmp(e->fn, "info", 4) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
dbModFde.c
+9 -9
View File
@@ -221,7 +221,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
}
}
// -----------------------------------------------------------
if(modFnIs(e, "read", 4))
if(strncmp(e->fn, "read", 4) == 0)
{
// param<1> = no fichier ; param<2> = cle
dynRemove(e, param, &p_etat->mTmp, cFM, DYN_TRUE);
@@ -319,11 +319,11 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
return EX_DB_ELSE; // pas d'erreur : mettre le code pour "non trouve" ELSE
}
}
else if(modFnIs(e, "write", 5))
else if(strncmp(e->fn, "write", 4) == 0)
{
//
}
else if(modFnIs(e, "open", 4))
else if(strncmp(e->fn, "open", 4) == 0)
{
// param<1> = nom table ; si ok renvoie en retour param<1> = id fichier (indice du tableau)
int lgSav = p_etat->mBase.mLg;
@@ -376,7 +376,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
}
dynSetLen(e, &p_etat->mBase, lgSav);
}
else if(modFnIs(e, "create", 5))
else if(strncmp(e->fn, "create", 5) == 0)
{
// cree la table : param<1> nom ; modulo param<2> ; separateur param<3>
fileHeader info;
@@ -421,7 +421,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
}
}
}
else if(modFnIs(e, "close", 5))
else if(strncmp(e->fn, "close", 5) == 0)
{
// param<1> = no fichier
int pos = dynToNum(e, param, 0, 6);
@@ -437,7 +437,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
// sinon, fichier deja ferme : RAS
}
}
else if(modFnIs(e, "setup", 5))
else if(strncmp(e->fn, "setup", 5) == 0)
{
// sortir si mId deja present (!=0) : une base est deja ouverte
// param<1> = repertoire de base => sa cle d'acces = mKey
@@ -488,7 +488,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
}
}
}
else if(modFnIs(e, "init", 4))
else if(strncmp(e->fn, "init", 4) == 0)
{
// si init deja fait, ras
if(p_etat == NULL)
@@ -502,7 +502,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
dynInit(e, &p_etat->mEntry, DYN_LGMIN);
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
struct shmid_ds attrs = {0};
// liberation specifique au module avant arret process
@@ -534,7 +534,7 @@ extern long execModule(env * e, var * param, var * param2, var * param3, void **
memfree(e, p_etat);
*etat = NULL;
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
// renvoie la version du module/plugins
dynLet(e, param, "100", 3); // version 1.00 ici
debug.c
+185 -529
View File
@@ -20,57 +20,13 @@
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
char * strerr[] = {
"EX_DIV0 Divide by zero", // 1
"EX_MEM memalloc error",
"EX_BUFOVF buffer overflow",
"EX_IO input/output error (file...)",
"EX_END instruction out of program memory", // 5
"EX_LGNOM variable' length incorrect (1-24)",
"EX_TYPVAR variable type unexpected",
"EX_NULLOCAL null local table et not in global",
"EX_NOVAR variable name unknown",
"EX_MODOPEN module opening error (dlopen)", // 10
"EX_MODDSYM module exec error (dlsym)",
"EX_NOSTACK ends instruction and no _stack variable found",
"EX_NAVAR variable type not expected",
"EX_NOADVAR no ad_var pointer found for instruction",
"EX_NAVERS pcode version of programm not supported", // 15
"EX_MODNAME module name incorrect (1-21&1-23)",
"EX_DYNERR string error",
"EX_MODFUNC module function unknown",
"EX_MODPARAM module parameter incorrect",
"EX_MODETAT internal module state error", // 20
"EX_MODERR module specific error",
"EX_NOTNUM cannot convert from string to number",
"EX_NOCLASS class name not found",
"EX_CMDLINE_ARG command line argument not supported",
"EX_PCODE bad pcode binary", // 25
"EX_NOENVVAR environment variables not found",
"EX_EXCEPTNUM except number too big (0-255)",
"EX_BINVAR_KO _bin global variable not found",
"EX_ENVVAR_KO _env global variable not found",
"EX_BINADDRVAR_KO _binnaddr global variable not found", // 30
"EX_CREATEHASH cannot create hashtable (memory error)",
"EX_FIELD_KO extract from string error",
"EX_SUBSTR_KO substring from string error",
"EX_SEP_INCORRECT setsep characters incorrect",
"EX_FORMAT_KO format string incorrect", // 35
"EX_INSERT_KO insert field error",
"EX_REMOVE_KO remove field error"
};
enum {
cLF = 10
};
long rg(env * e, Dynamic * regles, char * nom, Dynamic * tmp)
{
// renvoie le numero de la regle a partir de son nom, 0 si non trouvee ou erreur conversion en numerique
long pos = dynLocateSz(e, regles, nom, ',', 1, cLF);
long pos = dynLocateSz(e, regles, nom, ',', 1, 10);
if(pos > 0)
{
dynField(e, regles, tmp, 1, pos + 1, cLF, ',', 1);
dynField(e, regles, tmp, 1, pos + 1, 10, ',', 1);
pos = dynToNum(e, tmp, DYN_FALSE, 5); // pas de signe et num regle sur 16 bits : 5 chiffres
if(tmp->mInternal != DYN_OK)
pos = 0;
@@ -96,191 +52,74 @@ void init_reg(env * e, Dynamic * regles, Dynamic * tmp)
r.reste = rg(e, regles, "reste", tmp);
}
void print_var(env * e, var * v, Dynamic * tmp, int prettyPrint)
#include <dirent.h>
long searchAndRead(env * e, const char * cheminBase, const char * fichier, Dynamic * fichierLu)
{
if(v->type == VAR_PARAM)
v = (var *)v->ptr; /* travailler avec la var pointee */
#ifdef UNIX
// recherche d'un fichier dans un repertoire puis, si pas trouve, dans tous les sous-repertoire
DIR * rep = NULL;
if((rep = opendir(cheminBase)) == NULL)
return DYN_ERR;
//
char * var_str[9] = {"0","X","N","S","P","D","H","O","B"};
if(e->demon)
switch(v->type)
{
// "0XNSPDHOB"
case VAR_NULL:
dynPrintfSz(e, "Var " PRINTF_MARK "\n", var_str[v->type]); // X
break;
case VAR_NUMBER:
dynPrintfSz(e, "Var " PRINTF_MARK " : ", var_str[v->type]);
dynPrintfSz(e, PRINTF_MARK "\n", NumberToSz(e, v->num, NULL, NULL)); // N
break;
case VAR_DYNAMIC:
if(strncmp(e->nom, GUV_BINADDR, 8) == 0)
{
dynPrintfSz(e, "=> begin end counter\n", NULL);
dynPrintfSz(e, "=> ", NULL);
dynPrintfConcatHexSz(e, v->mPtr, v->mLg);
dynPrintfSz(e, "\n", NULL);
}
else if(strncmp(e->nom, GUV_STACK, 6) == 0)
{
dynPrintfSz(e, "=> prevLocal si begin end EXCE except\n", NULL);
dynPrintfSz(e, "=> ", NULL);
dynPrintfConcatHexSz(e, v->mPtr, v->mLg);
dynPrintfSz(e, "\n", NULL);
}
else
{
dynPrintfSz(e, "Var " PRINTF_MARK "(", var_str[v->type]); // X
dynPrintfInt64(e, PRINTF_MARK ") : \n", v->mLg, 0);
if(prettyPrint)
{
dynSetAs(e, tmp, v);
dynReplace(e, tmp, cFM, cLF);
dynReplace(e, tmp, cVM, '|');
dynPrintfSz(e, PRINTF_MARK "\n", tmp->mPtr);
}
else
dynPrintfSz(e, PRINTF_MARK "\n", v->mPtr);
}
break;
case VAR_BUFFER:
dynPrintfSz(e, "Var " PRINTF_MARK "\n", var_str[v->type]); // B
break;
case VAR_HASHTABLE:
dynPrintfSz(e, "Var " PRINTF_MARK "\n", var_str[v->type]); // H
hashtable_printdebug(e, v, 1);
break;
case VAR_OBJECT:
dynPrintfSz(e, "Var " PRINTF_MARK "\n", var_str[v->type]); // O
hashtable_printdebug(e, v, 1);
break;
case VAR_SUBROUTINE:
dynPrintfSz(e, "Var " PRINTF_MARK " : ", var_str[v->type]); // X
dynPrintfHex(e, PRINTF_MARK " (-> ", (ent64)v, 0);
dynPrintfHex(e, PRINTF_MARK ")\n", (ent64)v->ptr, 0); // S
break;
case VAR_PARAM:
dynPrintfSz(e, "Var " PRINTF_MARK "\n", var_str[v->type]); // P : mais ne peut pas arriver ici
break;
}
else
switch(v->type)
{
// "0XNSPDHOB"
case VAR_NULL:
printf("Var %c\n",e->var_car[v->type]); // X
break;
case VAR_NUMBER:
printf("Var %c : %s\n",e->var_car[v->type], NumberToSz(e, v->num, NULL, NULL)); // N
break;
case VAR_DYNAMIC:
if(strncmp(e->nom, GUV_STACK, 6) == 0)
{
printf("=> prevLocal si begin end EXCE except\n");
hex3(v->mPtr, v->mLg);
}
else if(strncmp(e->nom, GUV_BINADDR, 8) == 0)
{
printf("=> begin end counter\n");
hex3(v->mPtr, v->mLg);
}
else
{
if(prettyPrint)
{
dynSetAs(e, tmp, v);
dynReplace(e, tmp, cFM, cLF);
dynReplace(e, tmp, cVM, '|');
printf("Var %c(%lld) : \n%s\n",e->var_car[v->type], tmp->mLg, tmp->mPtr); // D
}
else
printf("Var %c(%lld) : %s\n",e->var_car[v->type], v->mLg, v->mPtr); // D
}
break;
case VAR_BUFFER:
printf("Var %c\n",e->var_car[v->type]); // B
break;
case VAR_HASHTABLE:
printf("Var %c\n",e->var_car[v->type]); // H
hashtable_printdebug(e, v, 1);
break;
case VAR_OBJECT:
printf("Var %c\n",e->var_car[v->type]); // O
hashtable_printdebug(e, v, 1);
break;
case VAR_SUBROUTINE:
printf("Var %c : %p (-> %p)\n",e->var_car[v->type], v, v->ptr); // S
break;
case VAR_PARAM:
printf("Var %c\n",e->var_car[v->type]); // P : mais ne peut pas arriver ici
break;
}
}
void initDebugCtxShm(env * e)
{
if( ! e->debugCtxShm)
e->debugCtxShm = memalloc(e, sizeof(modContextShm));
if( ! e->debugCtxShm)
e->debug = 0; // erreur alloc : pas de debug
else
Dynamic sousRep;
dynInit(e, &sousRep, 0);
long lgCheminBase = strlen(cheminBase) - 1;
struct dirent * fic = NULL;
// 1ere passe sur les fichiers
while ((fic = readdir(rep)) != NULL)
{
*((ent64 *)(((modContextShm *)e->debugCtxShm)->nom)) = 0;
*(((ent64 *)(((modContextShm *)e->debugCtxShm)->nom)) + 1) = 0;
*(((ent64 *)(((modContextShm *)e->debugCtxShm)->nom)) + 2) = 0;
strncpy(((modContextShm *)e->debugCtxShm)->nom, "dbg", 3);
strcpy(((modContextShm *)e->debugCtxShm)->nom + 3, Int64ToSz(e, getpid(), DYN_FALSE, 0));
((modContextShm *)e->debugCtxShm)->taille = 16000;
initShm(e, e->debugCtxShm);
((modContextShm *)e->debugCtxShm)->message = &e->printf;
*((ent64 *)(((modContextShm *)e->debugCtxShm)->desti)) = 0;
*(((ent64 *)(((modContextShm *)e->debugCtxShm)->desti)) + 1) = 0;
*(((ent64 *)(((modContextShm *)e->debugCtxShm)->desti)) + 2) = 0;
//
if( ! ((modContextShm *)e->debugCtxShm)->buffer)
e->debug = 0; // erreur init : pas de debug
if(fic->d_type == DT_REG && strcmp(fic->d_name, fichier) == 0)
{
closedir(rep);
// fichier trouve : lecture
dynLet(e, &sousRep, (char *)cheminBase, DYN_LGNONE);
if(lgCheminBase >= 0 && sousRep.mPtr[lgCheminBase] != '/')
dynConcatSz(e, &sousRep, "/", 1);
dynConcatSz(e, &sousRep, fic->d_name, DYN_LGNONE);
long cr = dynRead(e, fichierLu, sousRep.mPtr);
dynFree(e, &sousRep);
return cr;
}
}
// si pas trouve, 2eme passe recursive sur les fichiers des repertoires
rewinddir(rep);
while ((fic = readdir(rep)) != NULL)
{
if(fic->d_type == DT_DIR && strcmp(fic->d_name, ".") != 0 && strcmp(fic->d_name, "..") != 0)
{
dynLet(e, &sousRep, (char *)cheminBase, DYN_LGNONE);
if(lgCheminBase >= 0 && sousRep.mPtr[lgCheminBase] != '/')
dynConcatSz(e, &sousRep, "/", 1); // a rendre compatible avec Windows
dynConcatSz(e, &sousRep, fic->d_name, DYN_LGNONE);
//
if(searchAndRead(e, sousRep.mPtr, fichier, fichierLu) == DYN_OK)
{
closedir(rep);
dynFree(e, &sousRep);
return DYN_OK;
}
}
}
closedir(rep);
dynFree(e, &sousRep);
#endif
return DYN_ERR;
}
/* gestion du mode "debug" */
/* gestion du mode "debug" dans tous les type d'execution : p-code, compile, script... */
void debug(env * e)
{
/* mode debug quand background
sur le client qui debugge, utilisation du mod shm, en ciblant dbg<pid>, et donne son nom pour la reponse (prog w a faire, attente 1s apres signal + demander user retry)
le background (<pid>) que l'on veut debugger utilise shm_lib.c en se nommant dbg<pid> : ouverture du shm a reception du signal (cf. var ctx_env_debug)
*/
int arret = FALSE;
if(ctx_env_debug)
{
if(e->debug == 0) e->debug = 1; else e->debug = 0;
/* si activation debug, mode 1 = pas a pas */
ctx_env_debug = 0;
// managing background process debug
if(e->debug && e->demon)
{
initDebugCtxShm(e);
}
if( (! e->debug) && e->demon)
{
return;
}
}
else if(e->debug != 0 && e->demon && ! e->debugCtxShm)
{
// demarrage process directement en mode debug
initDebugCtxShm(e);
}
//
if(e->debug == 0 || e->debugreglelex.mLg == 0 || ctx_env_kill) // pas de debug ou erreur a la lecture des regles lex de debug ou signal kill recu
{
if(e->demon && e->debugCtxShm && ((modContextShm *)e->debugCtxShm)->buffer)
{
dynSetLen(e, &e->printf, 0);
dynPrintfSz(e, "%", NULL);
writeShm(e, (modContextShm *)e->debugCtxShm); // envoi message au client, signifiant l'arret du mode debug
}
return;
}
/* gestion mode debug : si 1, mode pas a pas */
if(e->debug == 1)
arret = TRUE;
@@ -292,123 +131,63 @@ void debug(env * e)
if(!arret)
return;
/* */
// attente message du client donnant son identifiant, si pas deja recu !
if(e->demon && ((modContextShm *)e->debugCtxShm)->desti[0] == 0)
{
while( ! ctx_env_kill)
{
dynSetLen(e, &e->printf, 0);
readShm(e, (modContextShm *)e->debugCtxShm);
if(e->printf.mLg > 0)
break;
#ifdef WINLIB
Sleep(500); // 1/2 sec.
#else
usleep(500000); // 1/2 sec.
#endif
}
if(ctx_env_kill)
return;
*((ent64 *)(((modContextShm *)e->debugCtxShm)->desti)) = 0;
*(((ent64 *)(((modContextShm *)e->debugCtxShm)->desti)) + 1) = 0;
*(((ent64 *)(((modContextShm *)e->debugCtxShm)->desti)) + 2) = 0;
if(e->printf.mLg < 24 && e->printf.mPtr[0] == '%')
strncpy(((modContextShm *)e->debugCtxShm)->desti, e->printf.mPtr + 1, e->printf.mLg);
}
/* */
var * v;
Dynamic tmp, file;
Dynamic tmp, dyn;
dynInit(e, &tmp, 0);
dynInit(e, &file, 0);
int prettyPrint = FALSE;
dynInit(e, &dyn, 0);
ent16 tok, tok2; /* token lu par la macro ci-dessous "ntok" */
long n; /* indice en cours dans les token (parametre de la macro "ntok") base 1 */
//#define ntok(x) dynExtractSubFieldAsNumber(e, &e->debugvalex, 2, x, &e->debugcmd) // attention aux separateurs !
#define ntok(x) dynFieldAsNumber(e, &e->debugvalex, 2, x, cFM, cVM)
//
long localLineNum = e->ligsrc; // pour la lecture du source a la bonne ligne
//
// afficher source et ligne en cours
dynSetLen(e, &e->printf, 0);
long srcFound = FALSE;
hashtable_do(e, HASH_READ, &e->g, copy_nom(e, GUV_SRCDBG), &v);
e->nom64[0] = 0;
e->nom64[1] = 0;
e->nom64[2] = 0;
strncpy(e->nom, "_env", 4);
hashtable_do(e, HASH_READ, &e->g, e->nom, &v);
if(v != NULL)
{
// v = liste des noms/fichiers source vs numero de ligne
GetFile(e, e->ligsrc, v, e->bin_indice, &file, &localLineNum);
hashtable_do(e, HASH_READ, &e->g, copy_nom(e, GUV_WDIR), &v); // permet de savoir si wsrc gere lors de cette execution
if(file.mLg > 0 && v != NULL)
dynField(e, v, &dyn, 2, DYN_NONE, cFM, DYN_NONE, 1);
e->nom64[0] = 0;
e->nom64[1] = 0;
e->nom64[2] = 0;
strncpy(e->nom, "_file", 5);
hashtable_do(e, HASH_READ, &e->g, e->nom, &v);
if(v != NULL)
{
if(dynRead(e, &e->tmp_dynamic, file.mPtr) == OK)
dynField(e, v, &tmp, 1, DYN_NONE, cFM, DYN_NONE, 1);
if(searchAndRead(e, dyn.mPtr, tmp.mPtr, &e->debugcmd) == DYN_OK)
{
dynField(e, &e->tmp_dynamic, &tmp, localLineNum, DYN_NONE, cLF, DYN_NONE, 1);
if(e->demon)
{
dynSetAs(e, &e->printf, &file);
dynConcatSz(e, &e->printf, ":", 1);
dynConcatNumber(e, &e->printf, localLineNum);
dynConcatSz(e, &e->printf, ": ", 2);
dynConcat(e, &e->printf, &tmp);
dynConcatSz(e, &e->printf, "\n", 1);
}
else
printf("%s:%ld: %s\n", file.mPtr, localLineNum, tmp.mPtr);
srcFound = TRUE;
printf("%s:%lld ", tmp.mPtr, e->ligsrc);
dynField(e, &e->debugcmd, &tmp, e->ligsrc, DYN_NONE, 10, DYN_NONE, 1);
printf("%s\n", tmp.mPtr);
}
}
}
//
for(;;)
{
if(e->demon)
{
dynPrintfInt64(e, "W" PRINTF_MARK, VERSION, 0);
if( ! srcFound)
dynPrintfInt64(e, ":" PRINTF_MARK, e->ligsrc, 0);
dynPrintfSz(e, "> ", NULL);
writeShm(e, (modContextShm *)e->debugCtxShm);
//
// attente de la commande
while( ! ctx_env_kill)
{
dynSetLen(e, &e->printf, 0);
readShm(e, (modContextShm *)e->debugCtxShm);
if(e->printf.mLg > 0)
break;
#ifdef WINLIB
Sleep(500); // 1/2 sec.
#else
usleep(500000); // 1/2 sec.
#endif
}
dynSetAs(e, &e->debugcmd, &e->printf);
dynSetLen(e, &e->printf, 0);
}
else
{
// prompt
if(srcFound)
printf("W%d> ", VERSION);
// prompt
printf("W%d:%lld> ", VERSION, e->ligsrc);
e->debugcmd.mLg = 0;
int c;
char cmd[2];
cmd[1] = 0;
while((c = getchar()) != EOF && !ctx_env_kill) // EOF = -1 ; verifier signal ctx_env_kill
if(c == 10)
break;
else
printf("W%d:%lld> ", VERSION, e->ligsrc);
dynSetLen(e, &e->debugcmd, 0);
int c;
char cmd[2];
cmd[1] = 0;
while((c = getchar()) != EOF && !ctx_env_kill) // EOF = -1 ; verifier signal ctx_env_kill
if(c == cLF)
break;
else
{
cmd[0] = c;
dynConcatSz(e, &e->debugcmd, cmd, 1);
}
}
{
cmd[0] = c;
dynConcatSz(e, &e->debugcmd, cmd, 1);
}
//printf("\n");
//
if(ctx_env_kill)
{
dynFree(e, &tmp);
dynFree(e, &file);
dynFree(e, &dyn);
return;
}
//
@@ -418,231 +197,105 @@ void debug(env * e)
//
if(e->debugvalex.mLg == 0)
continue; // empty line
n = 0;
while((tok = ntok(++n)) == r.blanc) ;
for(n = 1;;n++)
{
tok = ntok(n);
if(tok == r.blanc)
continue;
else
break;
}
if(tok == 0)
continue; // blank line
/* */
if(tok == r.aide)
{
if(e->demon)
dynPrintfSz(e, "Debug command list :\n"
"? affiche les commandes de debug\n"
"s S infos en cours sur le programme\n"
"q Q continuer et arreter le mode debug 0\n"
"n N continuer en mode debug pas a pas 1\n"
"c C continuer en mode debug 2 arret aux points d'arret uniquement\n"
"v V :ident voir le contenu de la variable <ident>\n"
"vg VG voir le contenu de la hash globale 'g'\n"
"vg VG :ident voir le contenu de la var <ident> a l'interieur de la hash globale 'g'\n"
"vl VL voir le contenu de la hash locale courante\n"
"b B liste des breakpoints\n"
"b B +/- num ajouter ou supprimer un breakpoint ; si pas de nombre, à l'emplacement en cours, sinon numero de ligne source <num>\n"
"a A + afficher les infos assembleur (idem trace)\n"
"a A - supprimer les infos assembleur\n", NULL);
else
printf("Debug command list :\n"
"? affiche les commandes de debug\n"
"s S infos en cours sur le programme\n"
"q Q continuer et arreter le mode debug 0\n"
"n N continuer en mode debug pas a pas 1\n"
"c C continuer en mode debug 2 arret aux points d'arret uniquement\n"
"v V :ident voir le contenu de la variable <ident>\n"
"vg VG voir le contenu de la hash globale 'g'\n"
"vg VG :ident voir le contenu de la var <ident> a l'interieur de la hash globale 'g'\n"
"vl VL voir le contenu de la hash locale courante\n"
"b B liste des breakpoints\n"
"b B +/- num ajouter ou supprimer un breakpoint ; si pas de nombre, à l'emplacement en cours, sinon numero de ligne source <num>\n"
"a A + afficher les infos assembleur (idem trace)\n"
"a A - supprimer les infos assembleur\n");
printf("Debug command list :\n"
"? affiche les commandes de debug\n"
"s S infos en cours sur le programme\n"
"q Q continuer et arreter le mode debug 0\n"
"n N continuer en mode debug pas a pas 1\n"
"c C continuer en mode debug 2 arret aux points d'arret uniquement\n"
"v V :ident voir le contenu de la variable <ident>\n"
"b B liste des breakpoints\n"
"b B +/- <nombre> ajouter ou supprimer un breakpoint ; si pas de nombre, à l'emplacement en cours, sinon numero de ligne source <nombre>\n"
"a A + afficher les infos assembleur (idem trace)\n"
"a A - supprimer les infos assembleur\n");
continue;
}
if(tok != r.commande)
{
if(e->demon)
dynPrintfSz(e, "Unknown command\n", NULL);
else
printf("Unknown command\n");
printf("Unknown command\n");
continue;
}
/* trt cmd ; e->debugcmd sert de variable tmp ici */
dynField(e, &e->debugvalex, &tmp, 1, n, cFM, cVM, 1);
dynIconv(e, &tmp, &e->debugcmd, "X");
if(dynCompare(e, &e->debugcmd, CMP_EQ, "vg", 2) || dynCompare(e, &e->debugcmd, CMP_EQ, "VG", 2))
{
/* voir le contenu d'une variable */
while((tok = ntok(++n)) == r.blanc) ;
if(tok != r.ident)
hashtable_printdebug(e, &e->g, 1);
else
{
dynField(e, &e->debugvalex, &tmp, 1, n, cFM, cVM, 1);
dynIconv(e, &tmp, &e->debugcmd, "X");
if(e->debugcmd.mLg < 2 || e->debugcmd.mLg > 24)
{
if(e->demon)
dynPrintfSz(e, "Incorrect var name\n", NULL);
else
printf("Incorrect var name\n");
}
else
{
e->nom64[0] = 0;
e->nom64[1] = 0;
e->nom64[2] = 0;
for(int i = 0; i < e->debugcmd.mLg - 1; i++)
e->nom[i] = e->debugcmd.mPtr[i + 1];
var * v;
hashtable_do(e, HASH_READ, &e->g, e->nom, &v);
if(v != NULL)
{
print_var(e, v, &tmp, prettyPrint);
}
else
{
if(e->demon)
dynPrintfSz(e, "Unknown global var\n", NULL);
else
printf("Unknown global var\n");
}
}
}
continue;
}
if(dynCompare(e, &e->debugcmd, CMP_EQ, "vl", 2) || dynCompare(e, &e->debugcmd, CMP_EQ, "VL", 2))
{
if(e->local)
hashtable_printdebug(e, e->local, 1);
else
{
if(e->demon)
dynPrintfSz(e, "No local hashtable.\n", NULL);
else
printf("No local hashtable.\n");
}
continue;
}
if(dynCompare(e, &e->debugcmd, CMP_EQ, "s", 1) || dynCompare(e, &e->debugcmd, CMP_EQ, "S", 1))
{
if(e->demon)
printf("Statut du programme en cours, pid %lld, pcode version %d, endianess %d :\n", e->pid, e->version, e->endianess);
e->nom64[0] = 0;e->nom64[1] = 0;e->nom64[2] = 0;
strncpy(e->nom, "_file", 5);
hashtable_do(e, HASH_READ, &e->g, e->nom, &v);
if(v != NULL)
{
dynPrintfInt64(e, "Statut du programme en cours, pid " PRINTF_MARK ", pcode version ", e->pid, 0);
dynPrintfInt64(e, PRINTF_MARK ", w-exec version ", e->version, 0);
dynPrintfInt64(e, PRINTF_MARK " (", VERSION, 0);
dynPrintfSz(e, PRINTF_MARK ") :\n", (e->endianess == W_BIG_ENDIAN ? "big-endian" : "little-endian"));
dynLet(e, &dyn, v->mPtr, DYN_LGNONE);
dynConvert(e, &dyn, sFM, "/");
}
else
printf("Statut du programme en cours, pid %lld, pcode version %d, w-exec version %d (%s) :\n", e->pid, e->version, VERSION, (e->endianess == W_BIG_ENDIAN ? "big-endian" : "little-endian"));
//
if(e->except_ex > 0 && e->except_ex <= EXNB)
dynLet(e, &e->debugcmd, strerr[e->except_ex - 1], DYN_LGNONE);
else
dynLet(e, &e->debugcmd, e->except_ex == 0 ? "" : "Unknown", DYN_LGNONE);
if(e->demon)
{
dynPrintfSz(e, "Source en cours => " PRINTF_MARK ":", file.mPtr);
dynPrintfInt64(e, PRINTF_MARK "\nPCode en cours => ", localLineNum, 0);
dynPrintfHex(e, PRINTF_MARK " - ", (ent64)e->debut, 0);
dynPrintfHex(e, PRINTF_MARK " (", (ent64)e->fin, 0);
dynPrintfInt64(e, PRINTF_MARK ")\nPart => ", e->fin - e->debut + 1, 0);
dynPrintfInt64(e, PRINTF_MARK "\nPrecision => ", e->part, 0);
dynPrintfInt64(e, PRINTF_MARK "\nException => ", e->precision / NUM_FACTEUR, 0);
dynPrintfInt64(e, PRINTF_MARK " ", e->except_ex, 0);
dynPrintfSz(e, PRINTF_MARK "\nOccupation memoire => ", e->debugcmd.mPtr);
dynPrintfInt64(e, PRINTF_MARK " Ko, ", e->mem_size/1024, 0);
dynPrintfInt64(e, PRINTF_MARK " blocs\n", e->mem_numb, 0);
}
else
{
printf("Source en cours => %s:%ld\n", file.mPtr, localLineNum);
printf("PCode en cours => %p - %p (%d)\n", e->debut, e->fin, (int)(e->fin - e->debut + 1));
printf("Part => %d\n", e->part);
printf("Precision => %lld\n", e->precision / NUM_FACTEUR);
printf("Exception => %lld %s\n", e->except_ex, e->debugcmd.mPtr);
printf("Occupation memoire => %lld Ko, %lld blocs\n", e->mem_size/1024, e->mem_numb);
}
dynSetLen(e, &dyn, 0);
printf("Source en cours => %s:%lld\n", dyn.mPtr, e->ligsrc);
printf("Part => %d\n", e->part);
printf("Precision => %lld\n", e->precision);
printf("Exception => %lld\n", e->except_ex);
printf("Occupation memoire => %lld Ko, %lld blocs\n", e->mem_size/1024, e->mem_numb);
continue;
}
if(dynCompare(e, &e->debugcmd, CMP_EQ, "q", 1) || dynCompare(e, &e->debugcmd, CMP_EQ, "Q", 1))
{
if(e->demon)
{
dynLet(e, &e->printf, "%", 1); // envoi commande fin debugging au client
writeShm(e, (modContextShm *)e->debugCtxShm);
}
e->debug = 0;
dynFree(e, &tmp);
dynFree(e, &file);
dynFree(e, &dyn);
return;
}
if(dynCompare(e, &e->debugcmd, CMP_EQ, "n", 1) || dynCompare(e, &e->debugcmd, CMP_EQ, "N", 1))
{
e->debug = 1;
dynFree(e, &tmp);
dynFree(e, &file);
dynFree(e, &dyn);
return;
}
if(dynCompare(e, &e->debugcmd, CMP_EQ, "c", 1) || dynCompare(e, &e->debugcmd, CMP_EQ, "C", 1))
{
e->debug = 2;
dynFree(e, &tmp);
dynFree(e, &file);
dynFree(e, &dyn);
return;
}
if(dynCompare(e, &e->debugcmd, CMP_EQ, "a", 1) || dynCompare(e, &e->debugcmd, CMP_EQ, "A", 1))
{
/* gestion des traces assembleur */
while((tok = ntok(++n)) == r.blanc) ;
if(tok == r.ajouter)
{
e->trace = 1;
if(e->demon)
dynPrintfSz(e, "Trace ON\n", NULL);
else
printf("Trace ON\n");
}
else if(tok == r.supprimer)
{
e->trace = 0;
if(e->demon)
dynPrintfSz(e, "Trace OFF\n", NULL);
else
printf("Trace OFF\n");
}
else
{
if(e->demon)
dynPrintfSz(e, "Syntax error in command\n", NULL);
else
printf("Syntax error in command\n");
}
continue;
}
if(dynCompare(e, &e->debugcmd, CMP_EQ, "b", 1) || dynCompare(e, &e->debugcmd, CMP_EQ, "B", 1))
{
/* gestion des breakpoints */
while((tok = ntok(++n)) == r.blanc) ;
for(n++;;n++)
{
tok = ntok(n);
if(tok == r.blanc)
continue;
else
break;
}
if(tok == 0)
{
/* voir les breakpoints */
dynLet(e, &tmp, e->debugbrkpoint.mPtr, e->debugbrkpoint.mLg);
dynReplace(e, &tmp, cFM, ',');
if(e->demon)
dynPrintfSz(e, "brkpoints: " PRINTF_MARK "\n", tmp.mPtr);
else
printf("brkpoints: %s\n", tmp.mPtr);
printf("brkpoints: %s\n", tmp.mPtr);
}
else if(tok == r.ajouter || tok == r.supprimer)
{
n++;
tok2 = ntok(n);
if(tok2 != r.nombre)
{
if(e->demon)
dynPrintfSz(e, "Syntax error in command\n", NULL);
else
printf("Syntax error in command\n");
}
printf("Syntax error in command\n");
else
{
dynField(e, &e->debugvalex, &tmp, 1, n, cFM, cVM, 1);
@@ -652,28 +305,17 @@ void debug(env * e)
if(pos < 0 && tok == r.ajouter)
{
dynInsSz(e, &e->debugbrkpoint, abs(pos), DYN_NONE, Int64ToSz(e, numLigne, FALSE, 9), DYN_LGNONE, cFM, DYN_NONE);
if(e->demon)
dynPrintfInt64(e, "Breakpoint added in line " PRINTF_MARK "\n", numLigne, 0);
else
printf("Breakpoint added in line %ld\n", numLigne);
printf("Brkpoint added in line %ld\n", numLigne);
}
if(pos > 0 && tok == r.supprimer)
{
dynDel(e, &e->debugbrkpoint, pos, DYN_NONE, cFM, DYN_NONE, 1);
if(e->demon)
dynPrintfInt64(e, "Breakpoint in line " PRINTF_MARK " deleted\n", numLigne, 0);
else
printf("Breakpoint in line %ld deleted\n", numLigne);
printf("Brkpoint in line %ld deleted\n", numLigne);
}
}
}
else
{
if(e->demon)
dynPrintfSz(e, "Syntax error in command\n", NULL);
else
printf("Syntax error in command\n");
}
printf("Syntax error in command\n");
//
continue;
}
@@ -681,25 +323,22 @@ void debug(env * e)
if(dynCompare(e, &e->debugcmd, CMP_EQ, "v", 1) || dynCompare(e, &e->debugcmd, CMP_EQ, "V", 1))
{
/* voir le contenu d'une variable */
while((tok = ntok(++n)) == r.blanc) ;
if(tok != r.ident)
for(n++;;n++)
{
if(e->demon)
dynPrintfSz(e, "Syntax error in command\n", NULL);
else
printf("Syntax error in command\n");
tok = ntok(n);
if(tok == r.blanc)
continue;
else
break;
}
if(tok != r.ident)
printf("Syntax error in command\n");
else
{
dynField(e, &e->debugvalex, &tmp, 1, n, cFM, cVM, 1);
dynIconv(e, &tmp, &e->debugcmd, "X");
if(e->debugcmd.mLg < 2 || e->debugcmd.mLg > 24)
{
if(e->demon)
dynPrintfSz(e, "Incorrect var name\n", NULL);
else
printf("Incorrect var name\n");
}
printf("Incorrect var name\n");
else
{
e->nom64[0] = 0;
@@ -719,37 +358,55 @@ void debug(env * e)
hashtable_do(e, HASH_READ, &e->g, e->nom, &v);
}
if(v != NULL)
print_var(e, v, &tmp, prettyPrint);
else
{
if(e->demon)
dynPrintfSz(e, "Unknown var\n", NULL);
else
printf("Unknown var\n");
//var_printdebug(e, v, e->debugcmd.mPtr + 1);
// renvoyer la valeur lue, selon le type de la var
if(v->type == VAR_PARAM)
v = (var *)v->ptr; /* travailler avec la var pointee */
switch(v->type)
{
// "0XNSPDHOB"
case VAR_NULL:
printf("Var %c\n",e->var_car[v->type]); // X
break;
case VAR_NUMBER:
long lg;
NumberToSz(e, v->num, tmp.mPtr, &lg);
printf("Var %c : %s\n",e->var_car[v->type], tmp.mPtr); // N
break;
case VAR_DYNAMIC:
printf("Var %c : %s\n",e->var_car[v->type], v->mPtr); // D
break;
case VAR_BUFFER:
printf("Var %c\n",e->var_car[v->type]); // B
break;
case VAR_HASHTABLE:
printf("Var %c\n",e->var_car[v->type]); // H
hashtable_printdebug(e, v, 1);
break;
case VAR_OBJECT:
printf("Var %c\n",e->var_car[v->type]); // O
hashtable_printdebug(e, v, 1);
break;
case VAR_SUBROUTINE:
printf("Var %c\n",e->var_car[v->type]); // S
break;
case VAR_PARAM:
printf("Var %c\n",e->var_car[v->type]); // P : mais ne peut pas arriver ici
break;
}
}
else
printf("Unknown var\n");
}
}
continue;
}
/* */
if(dynCompare(e, &e->debugcmd, CMP_EQ, "pp", 2) || dynCompare(e, &e->debugcmd, CMP_EQ, "PP", 2))
{
// toggle pretty print switch
prettyPrint = ! prettyPrint;
if(e->demon)
dynPrintfSz(e, "Pretty print " PRINTF_MARK " (dynamic)\n", prettyPrint ? "ON" : "OFF");
else
printf("Pretty print %s (dynamic)\n", prettyPrint ? "ON" : "OFF");
continue;
}
/* */
if(e->demon)
dynPrintfSz(e, "Unknown command\n", NULL);
else
printf("Unknown command\n");
printf("Unkown command\n");
}
dynFree(e, &tmp);
dynFree(e, &file);
dynFree(e, &dyn);
}
/*
@@ -803,4 +460,3 @@ r.ident = rg(e, regles, "ident", tmp);
r.reste = rg(e, regles, "reste", tmp);
*/
debug.lex
-9
View File
@@ -1,9 +0,0 @@
; liste des commandes et mots cles en mode debug
blanc: (1,*,#20#09#0A#0D)
commande: (1,2,a-zA-Z)
aide: (1,1,?)
nombre: (1,9,0-9)
ajouter: (1,1,#2B) ; +
supprimer:(1,1,#2D) ; -
ident: (1,1,#3A) (1,1,a-zA-Z_) (0,23,a-zA-Z0-9) ; :abcABC123
reste: (1,1,#00-#FF)
debug.w
-100
View File
@@ -1,100 +0,0 @@
;
; for background w process debugging
; using shm_lib on buffer "dbg<pid>" for the debugged process
; Usage: lw debug <pid2debug>
;
begin wdebug
declare idProc, msg, pid, cmd, ret, capt, again, delay, debugging
declare OK, ERROR
let debugging = @false
let OK = 0
let ERROR = neg(1)
;
sub WriteProcess(id, message, cr)
invoke shm&set(id, message)
let cr = OK
except
let cr = ERROR
catch
endsub
;
sub ReadProcess(message, cr)
invoke shm&get(message)
let cr = OK
except
let cr = ERROR
catch
endsub
; ********************************************************
;
let pid = field(@arg, @currfm, 2)
if pid = '' or type(pid) # @varnumber then
let msg = 'Incorrect pid number (':pid:'), abort'
echonl msg
return
endif
;
let idProc = 'dbg':pid
let msg = 'Start debugging process ':pid
echonl msg
;
loop
let msg = 'Sending SIGUSR1 signal and wait 1 second'
echonl msg
let capt = ''
let ret = 0
let cmd = 'kill -10 ':pid
invoke system&execute(cmd, ret, capt)
breakon ret # OK
; now waiting for shm to init from signaled process
let delay = 1
invoke system&sleep(delay)
;
let msg = '%':@prog
do WriteProcess(idProc, msg, ret)
breakon ret = OK
; retry ?
let msg = 'Process ':pid:" don't respond to debug start message (":msg:"), try again (Y/N) ? "
echo msg
input again
breakon again # 'y' and again # 'Y'
endloop
returnon ret # OK
;
; ok, we can debug background process now
; 1. read prompt
; 2. get command from user
; 3. send command
; 4. repeat from step 1
let msg = "Ready for debuging... ('q' to end session)"
echonl msg
let delay = 0.1
let debugging = @true
loop
do ReadProcess(msg, ret)
breakon ret # OK or msg = '%'
if msg # '' then
echo msg
loop
let cmd = ''
input cmd
breakon cmd # ''
endloop
;
do WriteProcess(idProc, cmd, ret)
breakon ret # OK
else
invoke system&sleep(delay)
endif
endloop
let msg = "End of debugging"
echonl msg
;
except
if debugging then
let cmd = '%'
do WriteProcess(idProc, cmd, ret)
endif
let msg = 'Exception ':@except
echonl msg
end
debuglex
-9
View File
@@ -1,9 +0,0 @@
blanc,1,commande,2,aide,3,nombre,4,ajouter,5,supprimer,6,ident,7,reste,8
1,-1,20:09:0A:0D
1,2,61-7A:41-5A
1,1,3F
1,9,30-39
1,1,2B
1,1,2D
1,1,3A;1,1,5F:61-7A:41-5A;0,23,61-7A:41-5A:30-39
1,1,00-FF
dynamic.c
+529 -983
View File
File diff suppressed because it is too large. Load diff
dynamic.h
+75 -98
View File
@@ -32,123 +32,100 @@
#define sSVM "\xFC"
#define sTM "\xFB"
enum {
DYN_OK = 0, // attention, DYN_OK doit etre egal a 0 sinon des tests seront KO...
DYN_ERR = -1,
#define DYN_OK 0
#define DYN_ERR -1
DYN_FALSE = 0,
DYN_TRUE = -1,
#define DYN_FALSE 0
#define DYN_TRUE -1
DYN_LGNONE = -1, // quand un parametre ne doit pas etre pris en compte, de type "lgChaine"
DYN_NONE = 0, // quand un parametre ne doit pas etre pris en compte, de type "numChamp/numSousChamp separateurChamp/SousChamp"
#define DYN_LGNONE -1 // quand un parametre ne doit pas etre pris en compte, de type "lgChaine"
#define DYN_NONE 0 // quand un parametre ne doit pas etre pris en compte, de type "numChamp/numSousChamp separateurChamp/SousChamp"
DYN_ALL = 0, // toues les occurences (dynChange...)
#define DYN_ALL 0 // toues les occurences (dynChange...)
DYN_SORT_ASC = 1,
DYN_SORT_DESC = 2,
DYN_NOTFOUND = -1 // quand pas trouve (index...)
};
#define DYN_SORT_ASC 1
#define DYN_SORT_DESC 2
/*typedef struct
{
long mLg, mLgmax, mInternal;
char * mPtr;
short codePage;
} Dynamic;*/
typedef var Dynamic;
#define DYN_LGMIN 256
/*
pour la gestion de l'UTF8, revoir les methodes suivantes (https://en.wikipedia.org/wiki/UTF-8) :
getLen, count, substr [x,y], erase, convert, cut
pour la gestion de l'UTF8, revoir les methodes suivantes :
getLen, count, substr, erase, convert, cut
(+ version de getLen sur une chaine sz ; getLen doit remplacer l'utilisation de mLg dans certains cas / creer un getCharLen)
travailler en lg physique dans dynamic.c (c'est le cas) et si utf-8, faire un "pre-traitement" pour retrouver la lg physique
à partir de la lg "logique" quand besoin ; si pas possible, evo dans chaque methode de dynamic.c ou plutot faire une 2eme methode pour l'UTF8 !!
si erreur de codage/lecture utf8, la norme est de le remplacer par le point de code \uFFFD (EF BF BD) et de continuer (à convertir en 3F ? par exemple en mono byte)
*/
#include "apidecl.h"
/* ********************************************** */
WAPIDECL char * NumberToSz(env * e, ent64s valeur, char * resultat, ent64s * lg);
WAPIDECL char * Int64ToSz(env * e, ent64s valeur, long signe, long leftPad);
WAPIDECL char * Int32ToSz(ent32s valeur, long signe, long leftPad);
WAPIDECL long dynInit(env * e, Dynamic * this, long lgmax);
WAPIDECL long dynCopy(env * e, Dynamic * this, Dynamic * aCopier);
WAPIDECL void dynFree(env * e, Dynamic * this);
WAPIDECL void dynSetLen(env * e, Dynamic * this, long lg);
//long dynCarU8(env * e, Dynamic * this, long * pos);
//long dynLgU8(env * e, Dynamic * this);
WAPIDECL long dynLengthUtf8(const char * p, long lg, int separator);
WAPIDECL long dynNextUtf8(char ** p, long lg, long * pos, char * carU8, int separator);
WAPIDECL long dynCtrl(env * e, Dynamic * this, long lg, long copier);
WAPIDECL long Win1252ToUTF8(env * e, Dynamic * valeur, Dynamic * resultat);
WAPIDECL long UTF8ToWin1252(env * e, Dynamic * valeur, Dynamic * resultat);
WAPIDECL void NumberToBin(env * e, ent64s valeur, pointeur resultat, int nbOctet, int signe, int endianess);
WAPIDECL void BinToNumber(env * e, pointeur valeur, ent64s * resultat, int nbOctet, int signe, int endianess);
WAPIDECL long dynSetAsNumber(env * e, Dynamic * this, ent64s valeur);
WAPIDECL long dynSetAs(env * e, Dynamic * this, Dynamic * valeur);
WAPIDECL long dynSetAsSz(env * e, Dynamic * this, char * chaine);
WAPIDECL long dynLet(env * e, Dynamic * this, char * chaine, long lgChaine);
WAPIDECL long dynCompare(env * e, Dynamic * this, ent64 comparaison, char * chaine, long lgChaine);
WAPIDECL long dynRead(env * e, Dynamic * this, char * fichier);
WAPIDECL long dynWrite(env * e, Dynamic * this, char * fichier);
WAPIDECL ent64s dynSzToNum(env * e, char * chaine, long signe, long nbLuMax, long * error);
WAPIDECL ent64s dynToNum(env * e, Dynamic * this, long signe, long nbLuMax);
WAPIDECL ent64s dynToNumber(env * e, Dynamic * this);
WAPIDECL long dynConvertError(env * e, Dynamic * this);
WAPIDECL long dynConcatSz(env * e, Dynamic * this, char * chaine, long lgChaine);
WAPIDECL long dynConcat(env * e, Dynamic * this, Dynamic * valeur);
WAPIDECL long dynConcatNumber(env * e, Dynamic * this, ent64s valeur);
WAPIDECL long dynStoreSz(env * e, Dynamic * this, long numChamp, long numSousChamp, char * chaine, long lgChaine, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynStore(env * e, Dynamic * this, long numChamp, long numSousChamp, Dynamic * valeur, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynStoreNumber(env * e, Dynamic * this, long numChamp, long numSousChamp, ent64s valeur, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynField(env * e, Dynamic * this, Dynamic * resultat, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp, long nb);
WAPIDECL ent64s dynFieldAsNumber(env * e, Dynamic * this, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynExtractField(env * e, Dynamic * this, long numChamp, Dynamic * resultat);
WAPIDECL long dynExtractSubField(env * e, Dynamic * this, long numChamp, long numSousChamp, Dynamic * resultat);
WAPIDECL ent64s dynExtractFieldAsNumber(env * e, Dynamic * this, long numChamp, Dynamic * resultat);
WAPIDECL ent64s dynExtractSubFieldAsNumber(env * e, Dynamic * this, long numChamp, long numSousChamp, Dynamic * resultat);
WAPIDECL long dynInsSz(env * e, Dynamic * this, long numChamp, long numSousChamp, char * chaine, long lgChaine, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynIns(env * e, Dynamic * this, long numChamp, long numSousChamp, Dynamic * valeur, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynInsNumber(env * e, Dynamic * this, long numChamp, long numSousChamp, ent64s valeur, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynDel(env * e, Dynamic * this, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp, long nb);
WAPIDECL long dynLocateSz(env * e, Dynamic * this, char * chaine, char separateur, long numChamp, char separateurChamp);
WAPIDECL long dynSortLocateSz(env * e, Dynamic * this, char * chaine, char separateur, long tri, long numChamp, char separateurChamp);
WAPIDECL long dynDcount(env * e, Dynamic * this, char caractere, long numChamp, char separateurChamp);
WAPIDECL void dynBegin(env * e, Dynamic * this);
WAPIDECL long dynNext(env * e, Dynamic * this, Dynamic * resultat, char separateur);
WAPIDECL long dynRemove(env * e, Dynamic * this, Dynamic * resultat, char separateur, long raz);
WAPIDECL long dynExtractPos(env * e, Dynamic * this, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynCount(env * e, Dynamic * this, char caractere, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynCountUtf8(env * e, Dynamic * this, char * caractere4, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynSetSubstr(env * e, Dynamic * this, Dynamic * valeur, long debut, long len, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynSetSubstrUtf8(env * e, Dynamic * this, Dynamic * valeur, long debut, long len, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynSubstr(env * e, Dynamic * this, Dynamic * resultat, long debut, long len, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
WAPIDECL long dynSubstrUtf8(env * e, Dynamic * this, Dynamic * resultat, long debut, long len, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
WAPIDECL char ** dynToTabPtr(env * e, Dynamic * this, char separateur);
WAPIDECL long dynConvert(env * e, Dynamic * this, char * from, char * to);
WAPIDECL void dynReplace(env * e, Dynamic * this, char from, char to);
WAPIDECL long dynConvertUtf8(env * e, Dynamic * this, char * from, char * to);
WAPIDECL void dynErase(env * e, Dynamic * this, char * car);
WAPIDECL void dynEraseUtf8(env * e, Dynamic * this, char * car);
WAPIDECL long dynIndexSz(env * e, Dynamic * this, char * chaine, long lgChaine, long occ);
WAPIDECL long dynIndex(env * e, Dynamic * this, Dynamic * valeur, long occ);
WAPIDECL long dynIndexSzUtf8(env * e, Dynamic * this, char * chaine, long lgChaine, long occ);
WAPIDECL long dynChange(env * e, Dynamic * this, char * chaine, char * remplace, long nb);
WAPIDECL long dynChangeUtf8(env * e, Dynamic * this, char * chaine, char * remplace, long nb);
WAPIDECL long dynOconv(env * e, Dynamic * this, Dynamic * resultat, char * format);
WAPIDECL long dynIconv(env * e, Dynamic * this, Dynamic * resultat, char * format);
WAPIDECL char * dynConvertCharToCharHexa(octet c);
WAPIDECL long dynConvertHexaToLong(Dynamic * valeur);
WAPIDECL long dynConvertCharHexaToChar(char c1, char c2, char * c);
WAPIDECL long dynFmt(env * e, Dynamic * this, Dynamic * resultat, char cadrage, char filler, long lg);
WAPIDECL long dynFmtUtf8(env * e, Dynamic * this, Dynamic * resultat, char cadrage, char * filler, long lg);
WAPIDECL long dynFmtNumber(env * e, ent64s valeur, Dynamic * resultat, char cadrage, char filler, long lg);
WAPIDECL long dynTrim(env * e, Dynamic * this, Dynamic * resultat, char car, long option);
WAPIDECL long dynTrimUtf8(env * e, Dynamic * this, Dynamic * resultat, char * car, long option);
void NumberToSz(env * e, ent64s valeur, char * resultat, long * lg);
char * Int64ToSz(env * e, ent64s valeur, long signe, long leftPad);
char * Int32ToSz(ent32s valeur, long signe, long leftPad);
long dynInit(env * e, Dynamic * this, long lgmax);
long dynCopy(env * e, Dynamic * this, Dynamic * aCopier);
void dynFree(env * e, Dynamic * this);
void dynSetLen(env * e, Dynamic * this, long lg);
long dynLgU8(env * e, Dynamic * this);
long dynCtrl(env * e, Dynamic * this, long lg, long copier);
void Win1252ToUTF8(env * e, Dynamic * valeur, Dynamic * resultat);
void UTF8ToWin1252(env * e, Dynamic * valeur, Dynamic * resultat);
void NumberToBin(env * e, ent64s valeur, pointeur resultat, int nbOctet, int signe, int endianess);
void BinToNumber(env * e, pointeur valeur, ent64s * resultat, int nbOctet, int signe, int endianess);
long dynSetAsNumber(env * e, Dynamic * this, ent64s valeur);
long dynSetAs(env * e, Dynamic * this, Dynamic * valeur);
long dynSetAsSz(env * e, Dynamic * this, char * chaine);
long dynLet(env * e, Dynamic * this, char * chaine, long lgChaine);
long dynCompare(env * e, Dynamic * this, ent64 comparaison, char * chaine, long lgChaine);
long dynRead(env * e, Dynamic * this, char * fichier);
long dynWrite(env * e, Dynamic * this, char * fichier);
ent64s dynSzToNum(env * e, char * chaine, long signe, long nbLuMax, long * error);
ent64s dynToNum(env * e, Dynamic * this, long signe, long nbLuMax);
ent64s dynToNumber(env * e, Dynamic * this);
long dynConvertError(env * e, Dynamic * this);
long dynConcatSz(env * e, Dynamic * this, char * chaine, long lgChaine);
long dynConcat(env * e, Dynamic * this, Dynamic * valeur);
long dynConcatNumber(env * e, Dynamic * this, ent64s valeur);
long dynStoreSz(env * e, Dynamic * this, long numChamp, long numSousChamp, char * chaine, long lgChaine, char separateurChamp, char separateurSousChamp);
long dynStore(env * e, Dynamic * this, long numChamp, long numSousChamp, Dynamic * valeur, char separateurChamp, char separateurSousChamp);
long dynStoreNumber(env * e, Dynamic * this, long numChamp, long numSousChamp, ent64s valeur, char separateurChamp, char separateurSousChamp);
long dynField(env * e, Dynamic * this, Dynamic * resultat, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp, long nb);
ent64s dynFieldAsNumber(env * e, Dynamic * this, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
long dynExtractField(env * e, Dynamic * this, long numChamp, Dynamic * resultat);
long dynExtractSubField(env * e, Dynamic * this, long numChamp, long numSousChamp, Dynamic * resultat);
ent64s dynExtractFieldAsNumber(env * e, Dynamic * this, long numChamp, Dynamic * resultat);
ent64s dynExtractSubFieldAsNumber(env * e, Dynamic * this, long numChamp, long numSousChamp, Dynamic * resultat);
long dynInsSz(env * e, Dynamic * this, long numChamp, long numSousChamp, char * chaine, long lgChaine, char separateurChamp, char separateurSousChamp);
long dynIns(env * e, Dynamic * this, long numChamp, long numSousChamp, Dynamic * valeur, char separateurChamp, char separateurSousChamp);
long dynInsNumber(env * e, Dynamic * this, long numChamp, long numSousChamp, ent64s valeur, char separateurChamp, char separateurSousChamp);
long dynDel(env * e, Dynamic * this, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp, long nb);
long dynLocateSz(env * e, Dynamic * this, char * chaine, char separateur, long numChamp, char separateurChamp);
long dynSortLocateSz(env * e, Dynamic * this, char * chaine, char separateur, long tri, long numChamp, char separateurChamp);
long dynDcount(env * e, Dynamic * this, char caractere, long numChamp, char separateurChamp);
void dynBegin(env * e, Dynamic * this);
long dynNext(env * e, Dynamic * this, Dynamic * resultat, char separateur);
long dynRemove(env * e, Dynamic * this, Dynamic * resultat, char separateur, long raz);
long dynExtractPos(env * e, Dynamic * this, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
long dynCount(env * e, Dynamic * this, char caractere, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
long dynSetSubstr(env * e, Dynamic * this, Dynamic * valeur, long debut, long len, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
long dynSubstr(env * e, Dynamic * this, Dynamic * resultat, long debut, long len, long numChamp, long numSousChamp, char separateurChamp, char separateurSousChamp);
char ** dynToTabPtr(env * e, Dynamic * this, char separateur);
long dynConvert(env * e, Dynamic * this, char * from, char * to);
void dynReplace(env * e, Dynamic * this, char from, char to);
void dynErase(env * e, Dynamic * this, char * car);
long dynIndexSz(env * e, Dynamic * this, char * chaine, long lgChaine, long occ);
long dynIndex(env * e, Dynamic * this, Dynamic * valeur, long occ);
long dynChange(env * e, Dynamic * this, char * chaine, char * remplace, long nb);
long dynOconv(env * e, Dynamic * this, Dynamic * resultat, char * format);
long dynIconv(env * e, Dynamic * this, Dynamic * resultat, char * format);
long dynConvertHexaToLong(Dynamic * valeur);
long dynConvertCharHexaToChar(char c1, char c2, char * c);
long dynFmt(env * e, Dynamic * this, Dynamic * resultat, char cadrage, char filler, long lg);
long dynFmtNumber(env * e, ent64s valeur, Dynamic * resultat, char cadrage, char filler, long lg);
long dynTrim(env * e, Dynamic * this, Dynamic * resultat, char car, long option);
/* ********************************************** */
#endif
fcgiMod.c
+18 -20
View File
@@ -2,7 +2,7 @@
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
\/ \/ Copyright 2024 lanisys.fr
This file is part of W language.
@@ -20,32 +20,30 @@
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
enum {
/* types de requete FCGI */
FCGI_BEGIN_REQUEST = 1,
FCGI_ABORT_REQUEST = 2,
FCGI_END_REQUEST = 3,
FCGI_PARAMS = 4,
FCGI_STDIN = 5,
FCGI_STDOUT = 6,
#define FCGI_BEGIN_REQUEST 1
#define FCGI_ABORT_REQUEST 2
#define FCGI_END_REQUEST 3
#define FCGI_PARAMS 4
#define FCGI_STDIN 5
#define FCGI_STDOUT 6
/* demande dans le BEGIN REQUEST */
FCGI_RESPONDER = 1,
FCGI_AUTHORIZER = 2,
FCGI_FILTER = 3,
#define FCGI_RESPONDER 1
#define FCGI_AUTHORIZER 2
#define FCGI_FILTER 3
/* code du "protocl status" lors du END REQUEST */
FCGI_REQUEST_COMPLETE = 0,
FCGI_CANT_MPX_CONN = 1,
FCGI_OVERLOADED = 2,
FCGI_UNKNOWN_ROLE = 3,
#define FCGI_REQUEST_COMPLETE 0
#define FCGI_CANT_MPX_CONN 1
#define FCGI_OVERLOADED 2
#define FCGI_UNKNOWN_ROLE 3
/* codes d'erreurs du module */
WFC_OK = 0, /* continuer a lire */
WFC_ERR = 1,
WFC_KEEPALIVE = 2,
WFC_REPONDRE = 3
};
#define WFC_OK 0 /* continuer a lire */
#define WFC_ERR 1
#define WFC_KEEPALIVE 2
#define WFC_REPONDRE 3
/* Descritpion du message en cours ; id = 0 si aucun en cours */
struct {
fileMod.c
+69 -80
View File
@@ -2,7 +2,7 @@
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
\/ \/ Copyright 2024 lanisys.fr
This file is part of W language.
@@ -26,10 +26,10 @@
#include <string.h>
#ifdef UNIX
#include <dirent.h>
#include <sys/types.h>
#include <dirent.h>
#include <sys/types.h>
#else
#include "windows.h" // pour les fonctions FindFile...
#include "windows.h" // pour les fonctions FindFile...
#endif
#include "langage.h"
@@ -51,12 +51,13 @@ static int setError(modEtat * p, int err)
return EX_MODERR;
}
#ifdef WINLIB
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
#else
extern long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
{
/* TODO : gestion des 3 parametres (au lieu d'un seul) */
modEtat * p_etat;
@@ -73,24 +74,17 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
// set : ecrit depuis param le dynamic dans le fichier (param = nom FM contenu)
// size : donne la taille sur disque du fichier
// dir : donne la liste des fichiers et repertoires d'un repertoire
if(etat == NULL)
if(param == NULL || etat == NULL)
return EX_MODPARAM;
else
p_etat = (modEtat *)(*etat); /* evite de la faire a chaque fonction */
//
if(param1 != NULL)
if(param1->type == VAR_PARAM)
param1 = (var *)param1->ptr; /* evite de le faire a chaque fonction */
if(param2 != NULL)
if(param2->type == VAR_PARAM)
param2 = (var *)param2->ptr; /* evite de le faire a chaque fonction */
if(param3 != NULL)
if(param3->type == VAR_PARAM)
param3 = (var *)param3->ptr; /* evite de le faire a chaque fonction */
if(param->type == VAR_PARAM)
param = (var *)param->ptr; /* evite de le faire a chaque fonction */
//printf("In fileMod (dlfcn) : fonction %s(%s)\n", e->fn, param->mPtr);
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -103,42 +97,40 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//*** code specifique ici
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
//*** code specifique ici
// liberation specifique au module avant arret process
if(p_etat != NULL)
{
//printf("mod end %d\n", p_etat->test);
memfree(e, p_etat);
}
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
// renvoie la version du module/plugins
if(param1->type == VAR_DYNAMIC)
dynLet(e, param1, "1", 1); // version 1 ici
else if(param1->type == VAR_NUMBER)
param1->num = NUM_UN;
if(param->type == VAR_DYNAMIC)
dynLet(e, param, "1", 1); // version 1 ici
else if(param->type == VAR_NUMBER)
param->num = NUM_UN;
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else
{
if(param1->type == VAR_NUMBER)
param1->num = (ent64)(NUM_FACTEUR * p_etat->error);
if(param->type == VAR_NUMBER)
param->num = (ent64)(NUM_FACTEUR * p_etat->error);
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
}
/* ============================================================================================= */
else if(modFnIs(e, "create", 6))
else if(strncmp(e->fn, "create", 6) == 0)
{
// todo...
// test
@@ -148,61 +140,59 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
printf("mod create %d\n", p_etat->error);
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "get", 3))
else if(strncmp(e->fn, "get", 3) == 0)
{
/* utilisation de dynRead qui fait le travail, param1 : nom, param2 : contenu lu */
if(param1 == NULL || param2 == NULL)
exc = EX_MODPARAM;
else if(param1->type != VAR_DYNAMIC || param2->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
/* utilisation de dynRead qui fait le travail */
if(param->type == VAR_DYNAMIC)
{
if(dynRead(e, param2, param1->mPtr) != DYN_OK)
if(dynRead(e, param, param->mPtr) != DYN_OK)
exc = setError(p_etat, 1);
}
else
exc = EX_MODPARAM; /* TODO code */
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "set", 3))
else if(strncmp(e->fn, "set", 3) == 0)
{
/* copie du code de dynWrite, avec modif param1 : nom, param2 : contenu a ecrire */
if(param1 == NULL || param2 == NULL)
exc = EX_MODPARAM;
else if(param1->type != VAR_DYNAMIC || param2->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
/* copie du code de dynWrite, avec modif car c'est la meme var dyn qui contient nom + contenu */
FILE * fic;
ent64s lg;
/* */
dynRemove(e, param, 0, 0, TRUE);
if(dynRemove(e, param, &e->int_dynamic, cFM, FALSE) < 0)
exc = setError(p_etat, 1); /* erreur generique : lire la vraie erreur ailleurs */
else
{
FILE * fic;
#ifndef UNIX
if((fic = fopen(param1->mPtr, "wb")) == NULL) /* mode binaire sous Windows, sinon conversions faites en auto ! */
#else
if((fic = fopen(param1->mPtr, "w")) == NULL)
#endif
lg = e->int_dynamic.mInternal + 1;
#ifndef UNIX
if((fic = fopen(e->int_dynamic.mPtr, "wb")) == NULL) /* mode binaire sous Windows, sinon conversions faites en auto ! */
#else
if((fic = fopen(e->int_dynamic.mPtr, "w")) == NULL)
#endif
exc = setError(p_etat, 1); /* erreur generique : lire la vraie erreur ailleurs */
else
{
if(fwrite(param->mPtr + lg, param->mLg - lg, 1, fic) != 1) /* retourne le nb de blocs ecrits, pas lenb d'octets !! */
exc = setError(p_etat, 1); /* erreur generique : lire la vraie erreur ailleurs */
else
{
if(fwrite(param2->mPtr, param2->mLg, 1, fic) != 1) /* retourne le nb de blocs ecrits, pas lenb d'octets !! */
exc = setError(p_etat, 1); /* erreur generique : lire la vraie erreur ailleurs */
fclose(fic);
}
fclose(fic);
}
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "size", 4))
else if(strncmp(e->fn, "size", 4) == 0)
{
/* copie du code de dynRead, plus court */
FILE * fic;
ent64s lg;
/* */
if(param1 == NULL || param2 == NULL)
exc = EX_MODPARAM;
if(param1->type != VAR_DYNAMIC || param2->type != VAR_NUMBER)
if(param->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
{
#ifndef UNIX
if((fic = fopen(param1->mPtr, "rb")) == NULL) /* mode binaire sous Windows, sinon conversions faites en auto ! */
if((fic = fopen(param->mPtr, "wb")) == NULL) /* mode binaire sous Windows, sinon conversions faites en auto ! */
#else
if((fic = fopen(param1->mPtr, "r")) == NULL)
if((fic = fopen(param->mPtr, "w")) == NULL)
#endif
exc = setError(p_etat, 1); /* erreur generique : lire la vraie erreur ailleurs */
else
@@ -212,37 +202,36 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
else
{
lg = ftell(fic); /* longueur du fichier */
param2->num = lg * NUM_FACTEUR;
NumberToSz(e, lg, param->mPtr, (long *)&param->mLg); // TODO a verifier
}
fclose(fic);
}
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "dir", 3))
else if(strncmp(e->fn, "dir", 3) == 0)
{
/* copie du code de dynRead, plus court */
if(param1 == NULL)
exc = EX_MODPARAM;
if(param1->type != VAR_DYNAMIC)
/* */
if(param->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
{
#ifdef UNIX
DIR * rep = NULL;
if((rep = opendir(param1->mPtr)) == NULL)
if((rep = opendir(param->mPtr)) == NULL)
exc = setError(p_etat, 1); /* todo vraie erreur */
else
{
dynSetLen(e, param1, 0); // idem raz
dynSetLen(e, param, 0); // idem raz
struct dirent * fic = NULL;
while ((fic = readdir(rep)) != NULL)
{
if((fic->d_type == DT_DIR || fic->d_type == DT_REG) && strcmp(fic->d_name,".") != 0 && strcmp(fic->d_name,"..") != 0)
{
if(param1->mLg > 0)
dynConcatSz(e, param1, sFM, 1);
dynConcatSz(e, param1, fic->d_name, DYN_LGNONE);
if(param->mLg > 0)
dynConcatSz(e, param, sFM, 1);
dynConcatSz(e, param, fic->d_name, DYN_LGNONE);
}
}
/* */
@@ -251,17 +240,17 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#else
HANDLE hFind;
WIN32_FIND_DATA FindFileData;
dynConcatSz(e, param1, "\\*", DYN_LGNONE); /* sinon ko... */
if((hFind = FindFirstFile(param1->mPtr, &FindFileData)) != INVALID_HANDLE_VALUE)
dynConcatSz(e, param, "\\*", DYN_LGNONE); /* sinon ko... */
if((hFind = FindFirstFile(param->mPtr, &FindFileData)) != INVALID_HANDLE_VALUE)
{
dynSetLen(e, param1, 0); // idem raz
dynSetLen(e, param, 0); // idem raz
for(int cr = -1;cr != 0;)
{
if(strcmp(FindFileData.cFileName,".") != 0 && strcmp(FindFileData.cFileName,"..") != 0)
{
if(param1->mLg > 0)
dynConcatSz(e, param1, sFM, 1);
dynConcatSz(e, param1, FindFileData.cFileName, DYN_LGNONE);
if(param->mLg > 0)
dynConcatSz(e, param, sFM, 1);
dynConcatSz(e, param, FindFileData.cFileName, DYN_LGNONE);
}
cr = FindNextFile(hFind, &FindFileData);
}
format.c
+7 -23
View File
@@ -181,11 +181,6 @@ void init_reg(env * e, Dynamic * regles, Dynamic * tmp)
r.other = rg(e, regles, "other", tmp);
}
enum {
TAB_COUNT = 3,
COMMENT_EOL = 8
};
static void formatage(Dynamic * s, Dynamic * f, int type)
{
// s : source ; f : source apres formatage, type : 1 w, 2 pcode
@@ -195,8 +190,8 @@ static void formatage(Dynamic * s, Dynamic * f, int type)
//#define nreg(x) ((x)*2 > token.mLg ? 0 : *(ent16 *)(token.mPtr + (x)*2 - 2))
#define ntok(x) dynExtractSubFieldAsNumber(&e, &valex, 2, x, &tmp)
//
//#define TAB_COUNT 3
//#define COMMENT_EOL 8
#define TAB_COUNT 3
#define COMMENT_EOL 8
//
Dynamic trav, tmp, lig; /* variables de travail */
Dynamic regles; /* regles lex */
@@ -204,8 +199,7 @@ static void formatage(Dynamic * s, Dynamic * f, int type)
//
dynInit(&e, &regles, 0);
//
//if(lire_regles_lex(&e, &regles, "/etc/wlanguage/wlex") != DYN_OK) // au lieu de lex/wlex
if(lire_regles_lex(&e, &regles, "wlex") != DYN_OK)
if(lire_regles_lex(&e, &regles, "/etc/wlanguage/wlex") != DYN_OK) // au lieu de lex/wlex
{
dynLet(&e, f, s->mPtr, s->mLg);
dynFree(&e, &regles);
@@ -322,21 +316,11 @@ static void formatage(Dynamic * s, Dynamic * f, int type)
// si pos_comment > -1 traiter le commentaire en fin de ligne, position multiple de 10 (par exemple), >= position actuelle
// + formatage debut de ligne
if(pos_comment == -1)
{
#ifdef WINLIB
dynSubstr(&e, &trav, &lig, pos - 1, ((intptr_t)(trav.mPtr)) - pos, 1, DYN_NONE, 10, DYN_NONE);
#else
dynSubstr(&e, &trav, &lig, pos - 1, (long)(trav.mPtr - pos), 1, DYN_NONE, 10, DYN_NONE);
#endif
}
dynSubstr(&e, &trav, &lig, pos - 1, (long)trav.mPtr - pos, 1, DYN_NONE, 10, DYN_NONE);
else
{
dynSubstr(&e, &trav, &lig, pos - 1, pos_comment - pos, 1, DYN_NONE, 10, DYN_NONE);
#ifdef WINLIB
dynSubstr(&e, &trav, &tmp, pos_comment - 1, ((intptr_t)(trav.mPtr)) - pos_comment, 1, DYN_NONE, 10, DYN_NONE);
#else
dynSubstr(&e, &trav, &tmp, pos_comment - 1, (long)(trav.mPtr - pos_comment), 1, DYN_NONE, 10, DYN_NONE);
#endif
dynSubstr(&e, &trav, &tmp, pos_comment - 1, (long)trav.mPtr - pos_comment, 1, DYN_NONE, 10, DYN_NONE);
}
//
if(flag_trt == 1)
@@ -398,7 +382,7 @@ int main(int argc, char * argv[])
type = 1; // par defaut formatage du source w
else if(argc != 3)
{
printf("Usage: lwf [-w|-wa] <source>\n");
printf("Usage: wlf [-w|-wa] <source>\n");
exit(-1);
}
else
@@ -410,7 +394,7 @@ int main(int argc, char * argv[])
type = 2; // formatage du pcode (fichier .wa) TODO
else
{
printf("Usage: lwf [-w|-wa] <source>\n");
printf("Usage: wlf [-w|-wa] <source>\n");
exit(-1);
}
}
genlex.c
+2 -14
View File
@@ -313,13 +313,6 @@ long gen_c(Dynamic * resultat, Dynamic * elem1, Dynamic * elem2, Dynamic * elem3
return OK;
}
long gen_h(Dynamic * resultat, Dynamic * elem1, Dynamic * elem2, Dynamic * elem3)
{
dynErase(&e, resultat, "\r"); /* nettoyage au cas ou fichier Windows */
dynChange(&e, resultat, "\n", "\\n", DYN_ALL);
return OK;
}
int main(int argc, char * argv[])
{
Dynamic fichier, valex, ligne, resultat, elem1, elem2, elem3, regles;
@@ -328,7 +321,7 @@ int main(int argc, char * argv[])
/* argument : fichier lex a convertir en format "interne" */
if(argc != 2)
{
printf("Usage: wlex <fichier>\n");
printf("Usage: genlex <fichier>\n");
exit(-3);
}
/* */
@@ -370,17 +363,12 @@ int main(int argc, char * argv[])
//printf("valex %s\n", valex.mPtr);//
}
printf("Resultat (ret=%d):\n%s\n", ret, resultat.mPtr);
//
dynFree(&e, &regles);
if(ret == 0)
{
dynLet(&e, &fichier, resultat.mPtr, resultat.mLg); // sauvegarde
// generer le code C a copier/coller dans genw.c
ret = gen_c(&resultat, &elem1, &elem2, &elem3);
printf("\nCode C genere : \n%s\n", resultat.mPtr);
//
// generer le code C a copier/coller dans lex_files.h
ret = gen_h(&fichier, &elem1, &elem2, &elem3);
printf("\nCode H genere : \n%s\n", fichier.mPtr);
}
}
dynFree(&e, &valex);
genw.c
+229 -203
View File
@@ -20,9 +20,6 @@
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#ifdef WINLIB
#include "windows.h"
#endif
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
@@ -32,46 +29,33 @@
#include "dynamic.h"
#include "lex.c"
#include "instr.h"
#include "rep.h"
#include "arg.c"
enum {
WVERS = 1, /* version du compilateur w et donc du code compile */
#define WVERS 1 /* version du compilateur w et donc du code compile */
//R_EXCEPT = 100000, /* permet de savoir si le except a ete fait dans le niveau de code */
#define R_EXCEPT 100000 /* permet de savoir si le except a ete fait dans le niveau de code */
TERM_ERR = 0,
TERM_NUM = 1,
TERM_STR = 2,
TERM_VARSYS = 3,
TERM_PAR = 4,
TERM_ENDPAR = 5,
TERM_VAR = 6,
TERM_ENDH = 7,
TERM_ENDS = 8,
TERM_FN = 256, /* terme fn() : > 256 */
#define TERM_ERR 0
#define TERM_NUM 1
#define TERM_STR 2
#define TERM_VARSYS 3
#define TERM_PAR 4
#define TERM_ENDPAR 5
#define TERM_VAR 6
#define TERM_ENDH 7
#define TERM_ENDS 8
#define TERM_FN 256 /* terme fn() : > 256 */
VAR_ERR = 0,
VAR_OK = 1
};
#define sNUM_ZERO_NEUF "0,100000,200000,300000,400000,500000,600000,700000,800000,900000;PSH0,PSH1,PSH2,PSH3,PSH4,PSH5,PSH6,PSH7,PSH8,PSH9"
#define VAR_ERR 0
#define VAR_OK 1
env e;
Dynamic fichier; /* contient le/les fichiers sources en cours de traitement */
Dynamic token; /* contient les tokens suite au decodage lex d'une ligne */
ent16 tok,tok2,tok3,tok4; /* token lu par la macro ci-dessous "nreg" */
long n; /* indice en cours dans les token (parametre de la macro "nreg") */
ent16 nreg(int x)
{
return ((x)*4 > token.mLg ? 0 : *(ent16 *)(token.mPtr + (x)*4 - 4));
}
ent16 norig(int x)
{
return ((x)*4 > token.mLg ? x : *(ent16 *)(token.mPtr + (x)*4 - 2));
}
#define nreg(x) ((x)*4 > token.mLg ? 0 : *(ent16 *)(token.mPtr + (x)*4 - 4)) // maxi : 65535 regles...
#define norig(x) ((x)*4 > token.mLg ? x : *(ent16 *)(token.mPtr + (x)*4 - 2)) // numero de sous-champ originel dans valex<1 2 3>
Dynamic prio; /* pile des priorites dans les expressions, 0 = expr vide = erreur
prio<iImbricPrio,iPrio> = priorite du niveau iPrio "," operateur du niveau iPrio (pour l'imbrication)
@@ -79,16 +63,23 @@ Dynamic prio; /* pile des priorites dans les expressions, 0 = expr vide = erre
long iPrio; /* indice en cours dans la pile prio, 0 pas d'expr en cours */
long iImbriPrio; /* niveau d'imbrication des expressions, 1 la premiere expression ; donne l'attribut en cours de "prio" */
Dynamic src; /* pile des fichiers sources : sert a gerer les include et l'instruction INCL
<1,x> = nom source ; <2,x> = nb lignes ; <3,x> = numlig en cours lors de l'include, pour restaurer au retour */
long iSrc; /* indice dans la pile src, 1 = nom prog principal, 2 = nom include, etc. */
int numlig; /* numero ligne de source en cours */
char * wsrc; /* pointeur sur la var d'env WSRC point de depart des sources */
Dynamic wdir; /* contient les repertoires dans l'arborescence WSRC */
Dynamic srcdbg; /* contient les num lignes / nom des sources en gerant les "include" */
int numatt; /* numero "attribut" (separateur \n) pour gestion des include */
Dynamic instrNiv; /* en MV, <1> = type P/S/L/F/I <2> = id unique <3> = indice if/elseif */
long numNiv; /* numero de niveau en cours */
long idNiv; /* numero unique de chaque instruction qui cree un niveau */
Dynamic label; /* label formatte selon le contexte (:i<niv>.<id>.<ind>, etc.) */
Dynamic interp; /* en mode "interpreter" : contient les instruction de la ligne de source courante */
/* pour la gestion du mode interprete, macro pour simplifier le code */
#define INSTR(e,x) {if(dynCtrl(e,&interp,interp.mLg+3,TRUE)==DYN_OK){*(short*)(interp.mPtr+interp.mLg)=(short)(1);*(interp.mPtr+interp.mLg+2)=*(char*)x;interp.mLg+=3;}}
#define INSTR_D1(e,x,d) {if(dynCtrl(e,&interp,interp.mLg+4,TRUE)==DYN_OK){*(short*)(interp.mPtr+interp.mLg)=(short)(2);*(interp.mPtr+interp.mLg+2)=*(char*)x;*(interp.mPtr+interp.mLg+3)=(d&255);interp.mLg+=4;}}
#define INSTR_D3(e,x,d) {if(dynCtrl(e,&interp,interp.mLg+6,TRUE)==DYN_OK){*(short*)(interp.mPtr+interp.mLg)=(short)(4);*(interp.mPtr+interp.mLg+2)=*(char*)x;*(interp.mPtr+interp.mLg+3)=((d>>16)&255);*(interp.mPtr+interp.mLg+4)=((d>>8)&255);*(interp.mPtr+interp.mLg+5)=(d&255);interp.mLg+=6;}}
Dynamic trav; /* variable de travail */
Dynamic envers; /* variable de travail pour empiler les params a l'envers */
Dynamic dercode;/* pour la gestion des variables de hash a gauche du signe " = " (methode variable() ) */
@@ -123,20 +114,23 @@ static int clock_gettime_monotonic(struct timespec * tv)
long init(env * e)
{
/* initialisations diverses */
dynInit(e, &fichier, 0);
dynInit(e, &prio, 0);
dynInit(e, &label, 0);
dynInit(e, &instrNiv, 0);
dynInit(e, &src, 0);
dynInit(e, &token, 0);
dynInit(e, &trav, 0);
dynInit(e, &envers, 0);
dynInit(e, &interp, 0);
dynInit(e, &dercode, 0);
dynInit(e, &wdir, 0);
dynInit(e, &srcdbg, 0);
iPrio = 0;
iImbriPrio = 1;
numNiv = 0;
idNiv = 0;
iSrc = 0;
numlig = 0;
numatt = 0;
return OK; /* TODO controles */
}
@@ -146,11 +140,12 @@ void fin(env * e)
dynFree(e, &prio);
dynFree(e, &label);
dynFree(e, &instrNiv);
dynFree(e, &src);
dynFree(e, &fichier);
dynFree(e, &token);
dynFree(e, &envers);
dynFree(e, &interp);
dynFree(e, &dercode);
dynFree(e, &wdir);
dynFree(e, &srcdbg);
}
long rg(env * e, Dynamic * regles, char * nom, Dynamic * tmp)
@@ -193,13 +188,11 @@ struct {
} r;
/* les 2 fonctions fictives ci dessous doivent avoir un numero < 512 et > au max de "r" ci-dessus */
/* servent a gerer la notation x{1,2}[3,4] */
enum {
FN_FIELD = 500,
FN_SUBSTR = 501,
FN_SETSEP = 502,
FN_SETFLD = 503, // pour : let x{1,2] = ...}
FN_SETSUBSTR = 504 // pour : let x[x,y] ou x{1,2}[a,b]
};
#define FN_FIELD 500
#define FN_SUBSTR 501
#define FN_SETSEP 502
#define FN_SETFLD 503 // pour : let x{1,2] = ...}
#define FN_SETSUBSTR 504 // pour : let x[x,y] ou x{1,2}[a,b]
void init_reg(env * e, Dynamic * regles, Dynamic * tmp)
{
@@ -369,14 +362,14 @@ long variable(env * e, Dynamic * resultat, Dynamic * valex, Dynamic * tmp, Dynam
/* si *aGauche = 1 : permet de faire PHDE PIDE, sinon que PVAH PVAI (a droite du =) => mis a jour avec 2 si le dernier est bien PHDE/PIDE */
/* renvoi VAR_OK ou VAR_ERR */
tok = nreg(n);
if(tok != r.ident && tok != r.this && tok != r.parent)
if(tok != r.ident)
return VAR_ERR;
dynField(e, valex, tmp, 1, norig(n), cFM, cVM, 1);
dynIconv(e, tmp, encours, "X");
dynConcatSz(e, resultat, "PVAR ", 5);
dynConcat(e, resultat, encours);
dynConcatSz(e, resultat, "\n", 1);
if(*aGauche) dynLet(e, &dercode, "", 0); // si expr a droite, garder le <dercode> trouve a gauche
dynLet(e, &dercode, "", 0);
/* */
n++;
for(;;)
@@ -498,14 +491,12 @@ long terme(env * e, ent16 t, Dynamic * valex, Dynamic * tmp, Dynamic * encours)
return ret;
}
enum {
PRIO1 = 1,
PRIO2 = 2,
PRIO3 = 3,
PRIO4 = 4,
PRIO5 = 5,
PRIO0 = 6 // pseudo priorite => " , " => nouveau parametre (si fonction en cours)
};
#define PRIO1 1
#define PRIO2 2
#define PRIO3 3
#define PRIO4 4
#define PRIO5 5
#define PRIO0 6 // pseudo priorite => " , " => nouveau parametre (si fonction en cours)
long tokprio(ent16 t)
{
@@ -823,23 +814,11 @@ long expr(env * e, Dynamic * resultat, Dynamic * valex, Dynamic * tmp, Dynamic *
if(termType == TERM_NUM)
{
/* empiler le terme en assembleur <number> */
/* recherche si constante de 0 à 9 pour instruction PSHx */
dynLet(e, tmp, sNUM_ZERO_NEUF, DYN_LGNONE);
long pos = dynLocateSz(e, tmp, encours->mPtr, ',', 1, ';');
if(pos > 0)
{
dynField(e, tmp, encours, 2, pos, ';', ',', 1);
dynConcat(e, resultat, encours);
}
else
{
dynConcatSz(e, resultat, "PSHC ", DYN_LGNONE);
dynConcat(e, resultat, encours);
}
dynConcatSz(e, resultat, "PSHC ", DYN_LGNONE);
dynConcat(e, resultat, encours);
dynConcatSz(e, resultat, "\n", DYN_LGNONE);
//printf("PSHC: %s\n", encours->mPtr);
/* chercher ENDPAR */
//termType = terme(e, tok, valex, tmp, encours);
termType = terme(e, tok, valex, tmp, encours);
}
else if(termType == TERM_STR)
{
@@ -850,7 +829,7 @@ long expr(env * e, Dynamic * resultat, Dynamic * valex, Dynamic * tmp, Dynamic *
dynConcat(e, resultat, encours);
dynConcatSz(e, resultat, "\"\nPSHV\n", DYN_LGNONE);
/* chercher ENDPAR */
//termType = terme(e, tok, valex, tmp, encours);
termType = terme(e, tok, valex, tmp, encours);
}
else if(termType == TERM_VARSYS)
{
@@ -859,7 +838,7 @@ long expr(env * e, Dynamic * resultat, Dynamic * valex, Dynamic * tmp, Dynamic *
dynConcat(e, resultat, encours);
dynConcatSz(e, resultat, "\n", DYN_LGNONE);
/* chercher ENDPAR */
//termType = terme(e, tok, valex, tmp, encours);
termType = terme(e, tok, valex, tmp, encours);
}
else if(termType == TERM_VAR)
{
@@ -888,15 +867,11 @@ long expr(env * e, Dynamic * resultat, Dynamic * valex, Dynamic * tmp, Dynamic *
continue;
}
/* chercher ENDPAR */
//termType = terme(e, tok, valex, tmp, encours);
termType = terme(e, tok, valex, tmp, encours);
}
/* ici, forcement au moins 1 ENDPAR... */
for(;;)
{
termType = terme(e, tok, valex, tmp, encours);
if(termType == TERM_NUM || termType == TERM_STR || termType == TERM_VAR || termType == TERM_VARSYS ||
termType == TERM_PAR || termType >= TERM_FN) return -1; // types de termes consecutifs non autorises : erreur de syntaxe
/* */
if(termType == TERM_ENDPAR || termType == TERM_ENDH || termType == TERM_ENDS)
{
/* recup aussi nb param pour les TERM_FN */
@@ -933,7 +908,7 @@ long expr(env * e, Dynamic * resultat, Dynamic * valex, Dynamic * tmp, Dynamic *
break;
}
/* chercher ENDPAR */
//termType = terme(e, tok, valex, tmp, encours);
termType = terme(e, tok, valex, tmp, encours);
}
else break;
}
@@ -968,6 +943,40 @@ long expr(env * e, Dynamic * resultat, Dynamic * valex, Dynamic * tmp, Dynamic *
return 0; /* OK */
}
long lire_source(env * e, char * ficsrc, Dynamic * tmp, Dynamic * elem)
{
/* si deja present, erreur (include recursif interdit) */
long pos = dynLocateSz(e, &src, ficsrc, cVM, 1, cFM);
if(pos > 0)
return -4;
/* */
dynLet(e, elem, getenv("WSRC"), DYN_LGNONE); /* A REVOIR (getenv) ? */
if(elem->mLg > 0)
dynConcatSz(e, elem, e->path_sep, 1);
dynConcatSz(e, elem, ficsrc, DYN_LGNONE);
if(dynRead(e, tmp, ficsrc) != OK)
return -2;
dynErase(e, tmp, "\r");
long nblig = dynDcount(e, tmp, '\n', DYN_NONE, DYN_NONE);
if(nblig == 0)
{
/* include vide : mettre une ligne vide au moins */
dynLet(e, tmp, " ", 1);
nblig = 1;
}
/* */
iSrc++;
// insertion de l'include
dynIns(e, &fichier, numatt + 1, DYN_NONE, tmp, '\n', DYN_NONE);
/* */
dynStoreSz(e, &src, 2, iSrc, Int64ToSz(e, nblig, FALSE, 0), DYN_LGNONE, cFM, cVM);
dynStoreSz(e, &src, 3, iSrc, Int64ToSz(e, numlig, FALSE, 0), DYN_LGNONE, cFM, cVM);
dynLet(e, tmp, ficsrc, DYN_LGNONE);
//dynField(e, tmp, elem, dynDcount(e, tmp, e->path_sep[0], DYN_NONE, DYN_NONE), DYN_NONE, e->path_sep[0], DYN_NONE, 1);
dynStore(e, &src, 1, iSrc, tmp, cFM, cVM);
return OK;
}
/* -------------------------------------------------------------------- */
/* Gestion des niveaux dans les structures de W : begin/sub/loop/for/if */
@@ -1071,7 +1080,7 @@ int RechercheLoopForNiveau(env * e)
// recherche niveau foreach ou loop : seuls blocs dans lesquels break/continue sont possibles
for(long niv = numNiv; niv > 0; niv--)
{
dynExtractSubField(e, &instrNiv, 1, niv, &label); // <label> = type
dynExtractSubField(e, &instrNiv, 1, numNiv, &label); // <label> = type
if(*label.mPtr == 'L' || *label.mPtr == 'F')
return niv;
}
@@ -1080,13 +1089,17 @@ int RechercheLoopForNiveau(env * e)
/* -------------------------------------------------------------------- */
long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic * encours, Dynamic * file)
long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic * encours)
{
numlig++;
numatt++;
/* */
dynSetLen(e, &interp, 0); // memorise dans mLg la prochaine position ou ecrire lg (sur 2 octets) = longueur !
/* */
if(valex->mLg == 0)
return OK; /* ligne vide */
/* */
//int nbres = dynDcount(e, resultat, 10, DYN_NONE, DYN_NONE);
int nbval = dynDcount(e, valex, cVM, 2, cFM);
if(dynCtrl(e, &token, nbval * 4, FALSE) != DYN_OK)
return DYN_ERR;
@@ -1094,6 +1107,8 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
for(ent16 ival = 1; ival <= nbval; ival++)
{
/* suppression des tokens 1 et 2 (blanc et commentaire) */
//dynField(e, valex, tmp, 2, ival, cFM, cVM, 1);
//tok = dynToNum(e, tmp, DYN_FALSE, 0);
tok = (ent16)dynExtractSubFieldAsNumber(e, valex, 2, ival, tmp);
if(tok != r.blank && tok != r.comment)
{
@@ -1101,14 +1116,30 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
*(ent16 *)(token.mPtr + token.mLg + 2) = ival;
dynSetLen(e, &token, token.mLg + 4);
}
/*{
dynDel(e, valex, 1, ival, cFM, cVM, 1);
dynDel(e, valex, 2, ival, cFM, cVM, 1);
dynDel(e, valex, 3, ival, cFM, cVM, 1);
}
else
{
if(dynCtrl(e, &token, token.mLg + 2, TRUE) != DYN_OK)
return DYN_ERR;
if(token.mLg > 0)
memcopie(token.mPtr + 2, token.mPtr, token.mLg);
*(ent16 *)(token.mPtr) = tok;
dynSetLen(e, &token, token.mLg + 2);
}*/
}
/* */
//or(int i=1;i<=token.mLg/4;i++) printf("%d,",nreg(i)); printf("\n");
/* debut d'analyse des tokens de la ligne de source w */
long aGauche = 0;
dynSetLen(e, encours, 0);
n = 1;
if((tok = nreg(n)) == 0 || token.mLg == 0)
return OK; /* blancs et/ou commentaire seuls */
// field(valex, n) a ete remplace par field(valex, norig(n))
if(numNiv == -1)
{
dynField(e, valex, tmp, 3, norig(n), cFM, cVM, 1);
@@ -1138,11 +1169,10 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
dynConcatSz(e, resultat, "BACK\nBEXC\nVERS ", DYN_LGNONE);
dynConcatSz(e, resultat, Int64ToSz(e, WVERS, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, "\nINCL ", DYN_LGNONE);
dynConcat(e, resultat, file);
dynConcatSz(e, resultat, "\nSDBG ", DYN_LGNONE);
dynConcat(e, resultat, &srcdbg);
//dynConcatSz(e, resultat, "\nSRCL ", DYN_LGNONE);
//dynConcatSz(e, resultat, Int64ToSz(e, numlig, FALSE, 0), DYN_LGNONE);
dynField(e, &src, tmp, 1, 1, cFM, cVM, 1);
dynConcat(e, resultat, tmp);
dynConcatSz(e, resultat, "\nSRCL ", DYN_LGNONE);
dynConcatSz(e, resultat, Int64ToSz(e, numlig, FALSE, 0), DYN_LGNONE);
if(tok2 == 0)
dynConcatSz(e, resultat, "\nPNAM\n", DYN_LGNONE);
else
@@ -1165,22 +1195,20 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
else
{
/* library ici forcement */
if(tok2 != r.beginpar && tok2 != 0)
if(tok2 != r.beginpar)
{
dynField(e, valex, tmp, 3, norig(n), cFM, cVM, 1);
printf("Erreur ligne %dc%s : library incorrect\n", numlig, tmp->mPtr);
return DYN_ERR; /* TODO numeroter les erreurs */
}
if(tok2 == 0)
tok3 = r.endpar; // si pas de parenthese, simule () vide
dynConcatSz(e, resultat, "LIBR\nBEXC\nVERS ", DYN_LGNONE);
dynConcatSz(e, resultat, Int64ToSz(e, WVERS, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, "\nINCL ", DYN_LGNONE);
dynConcat(e, resultat, file);
dynConcatSz(e, resultat, "\nSDBG ", DYN_LGNONE);
dynConcat(e, resultat, &srcdbg); // FDE A tester TODO 02/08/2025
dynField(e, &src, tmp, 1, 1, cFM, cVM, 1);
dynConcat(e, resultat, tmp);
dynConcatSz(e, resultat, "\n", 1);
/* chercher une liste de variables = liste de parametres ; que des IDENT autorises ici ! */
/* TODO enchainer les PARM */
for(;tok3 != r.endpar;n += 2) /* ne rien faire si pas de parametre */
{
tok3 = nreg(n+1);
@@ -1199,6 +1227,11 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
return DYN_ERR; /* TODO numeroter les erreurs */
}
}
/* */
dynConcatSz(e, resultat, "SRCL ", DYN_LGNONE);
dynConcatSz(e, resultat, Int64ToSz(e, numlig, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, "\n", 1);
/* */
AjoutProgNiveau(e, "2");
}
return OK;
@@ -1305,24 +1338,22 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
if(encours->mLg < 1 || encours->mLg > 255)
{
dynField(e, valex, tmp, 3, norig(n), cFM, cVM, 1);
printf("Erreur ligne %dc%s : longueur fichier include incorrect\n", numlig, tmp->mPtr);
printf("Erreur ligne %dc%s : fichier include incorrect\n", numlig, tmp->mPtr);
return DYN_ERR; /* TODO numeroter les erreurs */
}
// include ne doit pas inclure de separateur de chemin, ni .. (est deja fait dans GetSource lors du ScanDirectory)
if(dynIndexSz(e, encours, "..", 2, 1) != DYN_NOTFOUND ||
dynIndexSz(e, encours, e->path_sep, 1, 1) != DYN_NOTFOUND )
if(lire_source(e, encours->mPtr, tmp, tmp) != OK)
{
dynField(e, valex, tmp, 3, norig(n), cFM, cVM, 1);
printf("Erreur ligne %dc%s : nom fichier include incorrect\n", numlig, tmp->mPtr);
printf("Erreur ligne %dc%s : lecture fichier include ko\n", numlig, tmp->mPtr);
return DYN_ERR; /* TODO numeroter les erreurs */
}
// include deja mis dans <source>, mis ici pour info dans le compile
dynConcatSz(e, resultat, "SRCL ", DYN_LGNONE);
dynConcatSz(e, resultat, Int64ToSz(e, numlig, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, "\nINCL ", DYN_LGNONE);
dynConcatSz(e, resultat, encours->mPtr, DYN_LGNONE);
dynConcatSz(e, resultat, "\n", 1);
/* */
numlig = 0;
return OK;
}
/* -------------------------------------------------------------------------------------- */
@@ -1358,8 +1389,7 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
printf("Erreur ligne %dc%s : numero exception throw incorrect\n", numlig, tmp->mPtr);
return DYN_ERR; /* TODO numeroter les erreurs */
}
numb /= NUM_FACTEUR;
if(numb < 1 || numb > 0xFFFFFF)
if(numb < NUM_FACTEUR || numb > 0xFFFFFF)
{
dynField(e, valex, tmp, 3, norig(n), cFM, cVM, 1);
printf("Erreur ligne %dc%s : numero exception throw hors limite\n", numlig, tmp->mPtr);
@@ -1368,7 +1398,7 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
dynConcatSz(e, resultat, "SRCL ", 5);
dynConcatSz(e, resultat, Int64ToSz(e, numlig, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, "\nTHRW ", 6);
dynConcatSz(e, resultat, Int64ToSz(e, numb, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, encours->mPtr, DYN_LGNONE);
dynConcatSz(e, resultat, "\n", 1);
return OK;
}
@@ -1443,8 +1473,7 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
printf("Erreur ligne %dc%s : numero part incorrect\n", numlig, tmp->mPtr);
return DYN_ERR; /* TODO numeroter les erreurs */
}
numb /= NUM_FACTEUR;
if(numb < 1 || numb > 255)
if(numb < 0 || numb > 255)
{
dynField(e, valex, tmp, 3, norig(n), cFM, cVM, 1);
printf("Erreur ligne %dc%s : numero part hors limite\n", numlig, tmp->mPtr);
@@ -1453,7 +1482,7 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
dynConcatSz(e, resultat, "SRCL ", 5);
dynConcatSz(e, resultat, Int64ToSz(e, numlig, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, "\nPART ", 6);
dynConcatSz(e, resultat, Int64ToSz(e, numb, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, encours->mPtr, DYN_LGNONE);
dynConcatSz(e, resultat, "\n", 1);
return OK;
}
@@ -1865,7 +1894,7 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
{
dynSetLen(e, &envers, 0);
/* 3 formes : do var ; do ident@ident ; do library@ident
invoke ident&ident call ident */
invoke ident@ident call ident */
dynConcatSz(e, resultat, "SRCL ", DYN_LGNONE);
dynConcatSz(e, resultat, Int64ToSz(e, numlig, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, resultat, "\nCRAZ\n", DYN_LGNONE);
@@ -2558,20 +2587,61 @@ long parse(env * e, Dynamic * valex, Dynamic * resultat, Dynamic * tmp, Dynamic
return DYN_ERR;
}
/* ***************************************************************************************************** */
/* mode interprete */
ent64 idecode(env * e, pointeur code, short lg)
{
/* IDEE : dans parse, preparer 2 resultats : 1 pour l'assembleur en mode compile et
1 pour le mode interprete, pour enchainer les "idecode" si pas d'erreur,
resultat interprete remis a zero a chaque nouvelle ligne, puis
execution avec remove/idecode et gestion exception
Attention aux adresses de SUB et LIBR : garder le mInternal du source !
(exception de type "script incorrect" en plus ?)
*/
return OK; // en attendant
}
/* idecode est dans langage.c ; dans le wiki, mettre la transformation des instructions quand compile et interprete
car selon les instructions, cela peut etre different ! */
int interprete(env * e)
{
/* interprete le code de la ligne en cours */
/* renvoi un code indiquant comment continuer :
0 : lire la ligne suivante
1 : chercher le ENDP/ENDL du meme niveau
2 : chercher le ENDS du meme niveau
3 : chercher le EXCE du meme niveau
*/
if(!e->interpreter) return 0; /* securite */
/* Les donnes etant en binaire, on ecrit d'abord la longueur sur 2 octets puis les octets */
short lg = 0;
for(int pos = 0;pos < interp.mLg; pos += lg)
{
lg = *(short *)(interp.ptr + pos);
pos += 2;
/* gerer les cas particuliers : do library, etc. */
if(idecode(e, interp.ptr + pos, lg) != OK) ;
}
INSTR(e, IS_PROG)
INSTR_D1(e, IS_PART, 1)
INSTR_D3(e, IS_BEXC, 0)
INSTR(e, IS_ENDP)
return 0;
}
/* ***************************************************************************************************** */
int main(int argc, char * argv[])
{
Dynamic valex, ligne, resultat, source, tmp, file, regles, arg, wsrc, wlib, encours;
int ret = 0;
Dynamic valex, ligne, resultat, elem1, elem2, elem3, regles;
int ret = 0, lg;
/* */
/* avis de licence */
printf("W language Copyright 2024,2025 lanisys.fr\n");
printf("This program comes with ABSOLUTELY NO WARRANTY;\nThis is free software, and you are welcome to redistribute it\nunder certain conditions (GPL-3.0-or-later)\n\n");
/* argument : fichier w a convertir en assembleur w */
if(argc < 2)
if(argc != 2)
{
printf("Usage: lwc [-WSRC:<path>] [-WLIB:<path>] <file.w>\n");
printf("Usage: genw <fichier.w>\n");
exit(-1);
}
/* */
@@ -2586,95 +2656,59 @@ int main(int argc, char * argv[])
dynInit(&e, &valex, 0);
dynInit(&e, &ligne, 0);
dynInit(&e, &resultat, 0);
dynInit(&e, &source, 0);
dynInit(&e, &tmp, 0);
dynInit(&e, &file, 0);
dynInit(&e, &elem1, 0);
dynInit(&e, &elem2, 0);
dynInit(&e, &elem3, 0);
dynInit(&e, &regles, 0);
dynInit(&e, &arg, 0);
dynInit(&e, &wsrc, 0);
dynInit(&e, &wlib, 0);
dynInit(&e, &encours, 0);
/* */
GetArgs(&e, argc, argv, &arg);
dynExtractField(&e, &arg, 4, &wsrc);
dynExtractField(&e, &arg, 5, &wlib);
dynExtractSubField(&e, &arg, 2, 1, &file); // file = fichier.w a compiler
/* */
for(;;)
lg = strlen(argv[1]);
if(lg < 3)
{
if(file.mLg < 3)
printf("Nom de fichier incorrect\n");
ret = -2;
}
else if(argv[1][lg-1] != 'w' && argv[1][lg-2] != '.')
{
printf("Nom de fichier incorrect\n");
ret = -2;
}
else
{
if((ret = lire_source(&e, argv[1], &elem1, &elem2)) != OK)
{
printf("Nom de fichier incorrect\n");
ret = -2;
break;
}
if(file.mPtr[file.mLg - 1] != 'w' && file.mPtr[file.mLg - 2] != '.')
{
printf("Nom de fichier incorrect\n");
ret = -2;
break;
}
if(wsrc.mLg == 0)
{
printf("Variable d'environnement WSRC non definie\n");
ret = -6;
break;
}
if(wlib.mLg == 0)
{
printf("Variable d'environnement WLIB non definie\n");
ret = -6;
break;
}
//
long nb,dup;
if( ScanDirectory(&e, wsrc.mPtr, &wdir, NULL, &source, &nb, &dup) != 1) // init : inutile de rappeler ScanDirectory avec arg4 = NULL
{
printf("Erreur d'acces aux fichiers/repertoires de %s\n", wsrc.mPtr);
printf("Erreur d'acces au fichier '%s'\n", argv[1]);
ret = -3;
break;
}
//
if((ret = GetSource(&e, &wdir, file.mPtr, &source, &srcdbg)))
else
{
printf("Fichier en entree/include inconnu ou en double, ou include en double/recursif => non autorise, code %d\n", ret);
ret = -7;
break;
if(lire_regles_lex(&e, &regles, "/etc/wlanguage/wlex") != DYN_OK) // au lieu de lex/wlex
{
printf("Erreur d'acces aux regles lex de w '%s'\n", "wlex");
ret = -4;
}
else
init_reg(&e, &regles, &elem1);
}
long nbSrcdbg = dynDcount(&e, &srcdbg, cVM, META_GLOBAL_LN, cFM);
if(wsrc.mPtr[wsrc.mLg - 1] != e.path_sep[0])
dynConcatSz(&e, &wsrc, e.path_sep, 1); // ajoute le / si absent a la fin
dynStore(&e, &srcdbg, META_WSRC, DYN_NONE, &wsrc, cFM, DYN_NONE);
//
if(lire_regles_lex(&e, &regles, "wlex") != DYN_OK)
{
printf("Erreur d'acces aux regles lex de w '%s'\n", "wlex");
ret = -4;
break;
}
init_reg(&e, &regles, &tmp);
/* ----------------------------------------------------------------------------------------------- */
}
if(ret == 0)
{
/* resultat contient l'assembleur wa du source en entree */
long currentLevel = 1, level = 0;
dynRemove(&e, &source, NULL, 0, DYN_TRUE);
while(dynRemove(&e, &source, &ligne, 10, DYN_FALSE) > -1 && ret == 0)
dynRemove(&e, &fichier, NULL, 0, DYN_TRUE);
while(dynRemove(&e, &fichier, &ligne, 10, DYN_FALSE) > -1 && ret == 0)
{
lex(&e, &regles, &ligne, &valex);
/* */
ret = parse(&e, &valex, &resultat, &tmp, &encours, &file);
ret = parse(&e, &valex, &resultat, &elem1, &elem2);
/* */
if(ret == 0)
dynField(&e, &src, &elem1, 2, iSrc, cFM, cVM, 1);
if(ret == 0 && iSrc > 1 && numlig >= dynToNum(&e, &elem1, FALSE, 0))
{
dynFmtNumber(&e, numlig, &tmp, 'R', '0', 8);
long pos = dynSortLocateSz(&e, &srcdbg, tmp.mPtr, cVM, DYN_SORT_ASC, META_GLOBAL_LN, cFM);
if(pos < 0)
pos = abs(pos) - 1;
if(pos > nbSrcdbg)
pos = nbSrcdbg;
level = dynFieldAsNumber(&e, &srcdbg, META_LEVEL, pos, cFM, cVM);
if(level < currentLevel)
dynConcatSz(&e, &resultat, "INCL\n", 5); /* juste informatif, en lisant le compile ; la gestion passe par _srcdbg */
currentLevel = level;
/* descendre d'un niveau de source */
dynDel(&e, &src, 1, iSrc, cFM, cVM, 1);
dynField(&e, &src, &elem1, 3, iSrc, cFM, cVM, 1);
numlig = dynToNum(&e, &elem1, FALSE, 0);
dynConcatSz(&e, &resultat, "INCL\n", 5); /* inutile en mode interprete */
iSrc--;
}
}
/* */
@@ -2686,36 +2720,29 @@ int main(int argc, char * argv[])
if(ret == 0)
{
printf("Result : OK, lines=%d\n", numlig);
/* */
if(wlib.mPtr[wlib.mLg - 1] != e.path_sep[0])
dynConcatSz(&e, &wlib, e.path_sep, 1);
dynConcat(&e, &wlib, &file);
dynConcatSz(&e, &wlib, "a", 1);
dynWrite(&e, &resultat, wlib.mPtr);
dynLet(&e, &elem1, argv[1], DYN_LGNONE);
dynConcatSz(&e, &elem1, "a", 1);
dynWrite(&e, &resultat, elem1.mPtr);
}
else
{
dynField(&e, &source, &ligne, numlig, DYN_NONE, 10, DYN_NONE, 1);
printf("Result : error %d line %d => %s\n", ret, numlig, ligne.mPtr);
dynField(&e, &fichier, &elem1, numlig, DYN_NONE, 10, DYN_NONE, 1);
printf("Result : error %d line %d => %s\n", ret, numlig, elem1.mPtr);
}
break;
/* */
}
fin(&e);
dynFree(&e, &valex);
dynFree(&e, &ligne);
dynFree(&e, &resultat);
dynFree(&e, &source);
dynFree(&e, &tmp);
dynFree(&e, &file);
dynFree(&e, &elem1);
dynFree(&e, &elem2);
dynFree(&e, &elem3);
dynFree(&e, &regles);
dynFree(&e, &arg);
dynFree(&e, &wsrc);
dynFree(&e, &wlib);
dynFree(&e, &encours);
/* */
if(clock_gettime_monotonic(&ts) != -1)
lap = ts.tv_sec * 1000000 + (ts.tv_nsec / 1000) - lap;
printf("exit:%d ", ret);
printf("exit:%u ", ret);
if(lap < 1500)
printf("(%llu µs)\n", lap);
else if(lap < 1500000)
@@ -2724,4 +2751,3 @@ int main(int argc, char * argv[])
printf("(%llu s)\n", lap/1000000);
exit(ret);
}
global.c
+43 -99
View File
@@ -25,19 +25,10 @@
#include <string.h>
#include "langage.h"
#include "dynamic.h"
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
#ifndef WINLIB
/* met a jour le minimum de <env> pour pouvoir utiliser <dynamic.h> sans erreur... */
WAPIDECL void init_env(env * e)
void init_env(env * e)
{
int i,j,k;
/* endianess */
@@ -65,7 +56,7 @@ WAPIDECL void init_env(env * e)
e->sep_subfield = '\xFD'; // cVM
}
WAPIDECL char * copy_nom(env * e, const char * s)
char * copy_nom(env * e, const char * s)
{
e->nom64[0] = 0;
e->nom64[1] = 0;
@@ -76,22 +67,35 @@ WAPIDECL char * copy_nom(env * e, const char * s)
return e->nom;
}
WAPIDECL int modFnIs(env * e, const char * fn, int lg)
{
// modifier l'endroit ou e->fn est mis a jour : verif fn64[0 1 2] est bien remis a zero avant la maj
ent64 f[3];
f[0] = 0; f[1] = 0; f[2] = 0;
if(lg < 1 || lg > 23)
return FALSE;
strncpy((char *)f, fn, lg);
return (e->fn64[0] == f[0] && e->fn64[1] == f[1] && e->fn64[2] == f[2]);
}
/* CONTENU DE env->g
_arg : contient en FM les arguments de la ligne de commande a partir du nom du pcode wp ; @ARG
_file : contient le fichier source en cours, arborescence en FM celui en cours toujours en <1> ; @FILE
_bin : contient les noms des progs pcode en cours, arborescence d'appel des library en VM att 1 + "position" (1-n) binaddr en VM att 2, prog principal puis chaque appel de libr,
si plusieurs appel de la meme libr, le nom est repete ! le nom memorise est sans chemin ni extension (WBIN + .wp ajoute en auto); @BIN
exemple : prog VM libA VM libA VM libB FM 1 VM 2 VM 2 VM 3
_binaddr : contient les adresses debut et fin et compteur des sub/libr (pour eviter SIGSEGV lors dechargement library)
_env : contient les variables d'environnement "WBIN" FM "WSRC" ; @ENV
_prog : contient le nom du programme (apres begin dans le source), pas le nom du fichier
__xxx : var subroutine point d'entree pour le module xxx (dlsym)
a b c : variables globales
classe1 : classes, hashtables contenant =>
_class, ce qui permet de differencier une hashtable simple d'une classe
t u v : membres de la classe
objet1 : objet, instanciation d'une classe contenant =>
_class (oid FM _class de la classe), pour se differencier d'une hashtable normale
_oid : dernier n° d'objet traite (new,...) var @OID
_local : cree lors d'un do, contient la hashtable des vars de la sub (peut elle meme contenir une var _local pour
la sub appelee depuis la sub, etc.). Contenu de _local =>
_stack : var memorisant ce qu'il faut pour revenir a l'appelant
x y z : variables locales
*/
/* ************************************************************************** */
/* fonctions wrapper au cas ou on aurait besoin de ne plus utiliser certaines */
/* fonctions standards (malloc, etc.) */
WAPIDECL void * memalloc(env * e, ent64 taille)
void * memalloc(env * e, ent64 taille)
{
void * ptr;
taille += sizeof(ent64);
@@ -105,11 +109,7 @@ WAPIDECL void * memalloc(env * e, ent64 taille)
}
*(ent64 *)ptr = taille;
//printf("P%p+\n", ptr);
#ifdef UNIX
return(ptr + sizeof(ent64));
#else
return((pointeur)ptr + sizeof(ent64));
#endif
}
else
{
@@ -119,15 +119,11 @@ WAPIDECL void * memalloc(env * e, ent64 taille)
}
}
WAPIDECL void memfree(env * e, void * ptr)
void memfree(env * e, void * ptr)
{
if(ptr != NULL)
{
#ifdef UNIX
ptr -= sizeof(ent64);
#else
(pointeur)ptr -= sizeof(ent64);
#endif
ptr -= sizeof(ent64);
if(e != NULL)
{
e->mem_numb--;
@@ -139,7 +135,7 @@ WAPIDECL void memfree(env * e, void * ptr)
}
}
WAPIDECL void memcopie(void * dst, void * src, long nb)
void memcopie(void * dst, void * src, long nb)
{
if(dst == src || nb <= 0)
return;
@@ -157,55 +153,7 @@ WAPIDECL void memcopie(void * dst, void * src, long nb)
// for (char *p=src, *q=dst; --n>=0; ) q[n]=p[n]; // fin au debut
}
WAPIDECL void dynPrintfSz(env * e, const char * format, char * valeur)
{
dynConcatSz(e, &e->printf, (char *)format, DYN_LGNONE);
if(valeur)
dynChange(e, &e->printf, PRINTF_MARK, valeur, DYN_ALL);
}
WAPIDECL void dynPrintfInt64(env * e, const char * format, ent64s valeur, long nb)
{
dynConcatSz(e, &e->printf, (char *)format, DYN_LGNONE);
dynChange(e, &e->printf, PRINTF_MARK, Int64ToSz(e, valeur, DYN_TRUE, nb), DYN_ALL);
}
WAPIDECL void dynPrintfHex(env * e, const char * format, ent64 valeur, long nb)
{
static char hex[16] = {'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'};
char conv[17] = "0000000000000000";
conv[16] = 0;
dynConcatSz(e, &e->printf, (char *)format, DYN_LGNONE);
int i;
for(i = 15; i >=0 && valeur != 0; i--, valeur /= 16)
conv[i] = hex[valeur % 16];
//
if(nb > 0 && nb < 17)
nb = 16 - nb;
else
nb = i + 1;
dynChange(e, &e->printf, PRINTF_MARK, conv + nb, DYN_ALL);
}
WAPIDECL void dynPrintfConcatHexSz(env * e, char * valeur, long lg)
{
static char hex[16] = {'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'};
char car[3] = {0};
for(long i = 0; i < lg; i++)
{
car[0] = hex[((unsigned char)valeur[i]) >> 4];
car[1] = hex[((unsigned char)valeur[i]) & 15];
dynConcatSz(e, &e->printf, car, 2);
if(i % 32 == 31 && i < lg - 1)
dynConcatSz(e, &e->printf, "\n ", 4);
else if(i % 8 == 7 && i < lg - 1)
dynConcatSz(e, &e->printf, " | ", 3);
else
dynConcatSz(e, &e->printf, " ", 1);
}
}
WAPIDECL void hex(pointeur ch, int lg)
void hex(pointeur ch, int lg)
{
int i;
char c;
@@ -225,7 +173,7 @@ WAPIDECL void hex(pointeur ch, int lg)
printf(" > %s\n", a);
}
WAPIDECL void hex2(char * ch, int lg, int nbpl)
void hex2(char * ch, int lg, int nbpl)
{
int i;
char c;
@@ -268,18 +216,14 @@ WAPIDECL void hex2(char * ch, int lg, int nbpl)
printf(" (%6d) %s\n", i, a);
}
WAPIDECL void hex3(const char * p, long lg)
{
static char hex[16] = {'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'};
// affiche en hexa la chaine sur une ligne
printf("=> ");
for(long i = 0; i < lg; i++)
{
printf("%c%c ", hex[((unsigned char)p[i]) >> 4], hex[((unsigned char)p[i]) & 15]);
if(i % 32 == 31 && i < lg - 1)
printf("\n ");
else if(i % 8 == 7 && i < lg - 1)
printf(" | ");
}
printf("\n");
}
#else
// Windows...
void init_env(env * e) {}
void hex(pointeur ch, int lg) {}
void hex2(char * ch, int lg, int nbpl) {}
void memcopie(void * dst, void * src, long nb) {}
void memfree(env * e, void * ptr) {}
void * memalloc(env * e, ent64 taille) {}
#endif
global.h
+31 -16
View File
@@ -23,30 +23,45 @@
#ifndef GLOBAL_H
#define GLOBAL_H
#include "apidecl.h"
WAPIDECL void init_env(env * e);
void init_env(env * e);
WAPIDECL char * copy_nom(env * e, const char * s);
WAPIDECL int modFnIs(env * e, const char * fn, int lg);
char * copy_nom(env * e, const char * s);
/* CONTENU DE env->g
_arg : contient en FM les arguments de la ligne de commande a partir du nom du pcode wp ; @ARG
_file : contient le fichier source en cours, arborescence en FM celui en cours toujours en <1> ; @FILE
_bin : contient les noms des progs pcode en cours, arborescence d'appel des library en VM att 1 + "position" (1-n) binaddr en VM att 2, prog principal puis chaque appel de libr,
si plusieurs appel de la meme libr, le nom est repete ! le nom memorise est sans chemin ni extension (WBIN + .wp ajoute en auto); @BIN
exemple : prog VM libA VM libA VM libB FM 1 VM 2 VM 2 VM 3
_binaddr : contient les adresses debut et fin et compteur des sub/libr (pour eviter SIGSEGV lors dechargement library)
_env : contient les variables d'environnement "WBIN" FM "WSRC" ; @ENV
_prog : contient le nom du programme (apres begin dans le source), pas le nom du fichier
__xxx : var subroutine point d'entree pour le module xxx (dlsym)
a b c : variables globales
classe1 : classes, hashtables contenant =>
_class, ce qui permet de differencier une hashtable simple d'une classe
t u v : membres de la classe
objet1 : objet, instanciation d'une classe contenant =>
_class (oid FM _class de la classe), pour se differencier d'une hashtable normale
_oid : dernier n° d'objet traite (new,...) var @OID
_local : cree lors d'un do, contient la hashtable des vars de la sub (peut elle meme contenir une var _local pour
la sub appelee depuis la sub, etc.). Contenu de _local =>
_stack : var memorisant ce qu'il faut pour revenir a l'appelant
x y z : variables locales
*/
/* ************************************************************************** */
/* fonctions wrapper au cas ou on aurait besoin de ne plus utiliser certaines */
/* fonctions standards (malloc, etc.) */
WAPIDECL void * memalloc(env * e, ent64 taille);
WAPIDECL void memfree(env * e, void * ptr);
WAPIDECL void memcopie(void * dst, void * src, long nb);
void * memalloc(env * e, ent64 taille);
void memfree(env * e, void * ptr);
void memcopie(void * dst, void * src, long nb);
#define PRINTF_MARK "\1"
WAPIDECL void dynPrintfSz(env * e, const char * format, char * valeur);
WAPIDECL void dynPrintfInt64(env * e, const char * format, ent64s valeur, long nb);
WAPIDECL void dynPrintfHex(env * e, const char * format, ent64 valeur, long nb);
WAPIDECL void dynPrintfConcatHexSz(env * e, char * valeur, long lg); // equiv hex3
WAPIDECL void hex(pointeur ch, int lg);
WAPIDECL void hex2(char * ch, int lg, int nbpl);
WAPIDECL void hex3(const char * p, long lg);
void hex(pointeur ch, int lg);
void hex2(char * ch, int lg, int nbpl);
/* ************************************ */
#endif
hashMod.c
+10 -9
View File
@@ -301,12 +301,13 @@ void encodageMD4(char * entree, ent64 longueur, char * sortie)
sortie[32] = 0;
}
#ifdef WINLIB
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#else
extern long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#endif
{
modEtat * p_etat;
long exc = OK;
@@ -332,7 +333,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -345,7 +346,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//*** code specifique ici
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
// liberation specifique au module avant arret process
if(p_etat != NULL)
@@ -354,7 +355,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
memfree(e, p_etat);
}
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
// renvoie la version du module/plugins
if(param1->type == VAR_DYNAMIC)
@@ -364,7 +365,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -378,7 +379,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "MD2", 3))
else if(strncmp(e->fn, "MD2", 3) == 0)
{
p_etat->error = 0;
// pour les vars en sortie, forcer le chgt de type si besoin ?
@@ -392,7 +393,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "MD4", 3))
else if(strncmp(e->fn, "MD4", 3) == 0)
{
p_etat->error = 0;
// pour les vars en sortie, forcer le chgt de type si besoin ?
hashtable.c
+25 -71
View File
@@ -28,62 +28,30 @@
#include "var.h"
#include "hashtable.h"
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
// =============== PRIVATE ========================================================================
static entry * calc_entry(char * val, var * varht)
{
/* fonctionne avec des noms de 24 octets max (val) */
ent64 hash;
/* algo de D. B e r n s t e i n / M u r m u r h a s h 6 4 */
/* autre algo */
if(0) {
ent64 * p = (ent64 *)val;
ent64 k = *p++;
ent64 m = 0xc6a4a7935bd1e995ull;
hash = 5381 ^ (24 * m);
//
k *= m;
k ^= k >> 47;
k *= m;
hash ^= k;
hash *= m;
k = *p++; /* */
k *= m;
k ^= k >> 47;
k *= m;
hash ^= k;
hash *= m;
k = *p; /* */
k *= m;
k ^= k >> 47;
k *= m;
hash ^= k;
hash *= m;
}
/* */
if(1) {
hash = 5381;
for(int iCle = 0; iCle < 24; iCle++)
if(val[iCle])
hash = hash + (hash<<5) + val[iCle]; /* hash*33 */
else
break; // stop au premier \0
}
/* algo de D. B e r n s t e i n */
ent64 hash = 5381;
/* optimiser en travaillant sur 3 qword ou 6 dword mais
pbm les petites chaines donneront des modules idem */
/* ent64 * p = (ent64 *)val;
hash += *p++;
hash = hash + (hash << 5) + *p++;
hash = hash + (hash << 5) + *p;*/
for(int iCle = 0; iCle < 24; iCle++)
if(val[iCle])
hash = hash + (hash<<5) + val[iCle]; /* hash*33 */
else
break; // stop au premier \0
return((entry *)(varht->ptr + (varht->separateur * (hash % varht->modulo))));
}
// =============== PUBLIC ========================================================================
WAPIDECL void hashtable_do(env * e, int action, var * varht, char * nom, var ** v)
void hashtable_do(env * e, int action, var * varht, char * nom, var ** v)
{
/* READ renvoi le ptr sur la var (ne fait pas une copie de la var)
WRITE copie la var (si pas trouve ou trouve mais pointeurs differents)
@@ -185,12 +153,7 @@ WAPIDECL void hashtable_do(env * e, int action, var * varht, char * nom, var **
}
}
WAPIDECL var * hashtable_lastitemwritten(var * varht)
{
return ((entry *)varht->ptr)->pvar;
}
WAPIDECL void hashtable_select(env * e, var * varht)
void hashtable_select(env * e, var * varht)
{
/* les 4 variables necessaires seront mises dans le groupe 0, premiere entree (celle servant au chainage) */
/* dans la variable (content, inutilise) : */
@@ -206,7 +169,7 @@ WAPIDECL void hashtable_select(env * e, var * varht)
pvar->ptr = (pointeur)(pentry+1); /* pentry */
}
WAPIDECL int hashtable_next(env * e, var * varht, char * nom, var ** v)
int hashtable_next(env * e, var * varht, char * nom, var ** v)
{
var * pvar;
entry * pentry;
@@ -245,7 +208,7 @@ WAPIDECL int hashtable_next(env * e, var * varht, char * nom, var ** v)
return FALSE;
}
WAPIDECL void hashtable_free_ovf(env *e, var * varht)
void hashtable_free_ovf(env *e, var * varht)
{
/* libere les overflow de la hash table */
/* pour chaque entree, chainage avant puis liberation en revenant en arriere */
@@ -268,7 +231,7 @@ WAPIDECL void hashtable_free_ovf(env *e, var * varht)
/* reste a liberer le bloc primaire de la hashtable */
}
WAPIDECL void hashtable_clear(env * e, var * varht)
void hashtable_clear(env * e, var * varht)
{
var * pvar;
int suivrepar = TRUE;
@@ -284,7 +247,7 @@ WAPIDECL void hashtable_clear(env * e, var * varht)
hashtable_select(e, varht);
}
WAPIDECL long hashtable_count(env *e, var * varht)
long hashtable_count(env *e, var * varht)
{
long nb = 0;
var * pvar;
@@ -297,13 +260,13 @@ WAPIDECL long hashtable_count(env *e, var * varht)
return nb;
}
WAPIDECL void hashtable_printdebug(env * e, var * varht, int detail)
void hashtable_printdebug(env * e, var * varht, int detail)
{
entry * pentry; /* pointe sur une entree */
entry * pchain; /* pointe sur la premiere du groupe, servant au chainage */
entry * pchain_first; /* premier bloc */
ent64 groupe; /* groupe en cours */
ent64 occ, tot, nb; /* taille occupee, totale, nb items */
ent64 occ, tot; /* taille occupee, totale */
char * ptrClass = NULL;
/* affiche le contenu d'une hashtable */
if(varht == NULL)
@@ -312,18 +275,10 @@ WAPIDECL void hashtable_printdebug(env * e, var * varht, int detail)
varht = (var *)varht->ptr; /* travailler avec la var pointee ! */
if(varht->type != VAR_HASHTABLE && varht->type != VAR_OBJECT)
return;
if(e->demon)
{
dynPrintfInt64(e, "hashtable modulo=" PRINTF_MARK " separateur=", varht->modulo, 0);
dynPrintfInt64(e, PRINTF_MARK " (n=", varht->separateur, 0);
dynPrintfInt64(e, PRINTF_MARK ")\n", varht->separateur/sizeof(entry), 0);
}
else
printf("hashtable modulo=%lld separateur=%lld (n=%lld)\n", varht->modulo, varht->separateur, varht->separateur/sizeof(entry));
printf("hashtable modulo=%lld separateur=%lld (n=%lld)\n", varht->modulo, varht->separateur, varht->separateur/sizeof(entry));
/* */
occ = 0;
tot = 0;
nb = 0;
pchain = (entry *)varht->ptr;
for(groupe = 0; groupe < varht->modulo; groupe++)
{
@@ -357,11 +312,10 @@ WAPIDECL void hashtable_printdebug(env * e, var * varht, int detail)
else
printf("%c", e->var_car[pentry->content.type % 10]);
/* */
if(varht->type == VAR_OBJECT && strncmp((char *)&pentry->nom1, GUV_CLASS, 6) == 0 && ! ptrClass)
if(varht->type == VAR_OBJECT && strncmp((char *)&pentry->nom1, "_class", 6) == 0 && ! ptrClass)
ptrClass = pentry->content.mPtr;
/* */
occ += sizeof(entry);
nb++;
}
pentry++;
}
@@ -371,8 +325,8 @@ WAPIDECL void hashtable_printdebug(env * e, var * varht, int detail)
pchain = (entry *)((ent64)pchain_first + varht->separateur);
}
if(ptrClass)
printf("%s : %s\n", GUV_CLASS, ptrClass);
printf("taille totale=%lld, occupee=%lld (taux %lld%%), nb item=%lld\n", tot, occ, occ * 100 / tot, nb);
printf("_class : %s\n", ptrClass);
printf("taille totale=%lld, occupee=%lld (taux %lld%%)\n", tot, occ, occ * 100 / tot);
}
/* ********************************************** */
hashtable.h
+7 -10
View File
@@ -23,17 +23,14 @@
#ifndef HASHTABLE_H
#define HASHTABLE_H
#include "apidecl.h"
void hashtable_do(env * e, int action, var * varht, char * nom, var ** v);
void hashtable_select(env * e, var * varht);
int hashtable_next(env * e, var * varht, char * nom, var ** v);
void hashtable_free_ovf(env *e, var * varht);
void hashtable_clear(env *e, var * varht);
long hashtable_count(env *e, var * varht);
WAPIDECL void hashtable_do(env * e, int action, var * varht, char * nom, var ** v);
WAPIDECL void hashtable_select(env * e, var * varht);
WAPIDECL int hashtable_next(env * e, var * varht, char * nom, var ** v);
WAPIDECL void hashtable_free_ovf(env *e, var * varht);
WAPIDECL void hashtable_clear(env *e, var * varht);
WAPIDECL long hashtable_count(env *e, var * varht);
WAPIDECL var * hashtable_lastitemwritten(var * varht);
WAPIDECL void hashtable_printdebug(env * e, var * varht, int detail);
void hashtable_printdebug(env * e, var * varht, int detail);
/* ********************************************** */
#endif
instr.c
-186
View File
@@ -1,186 +0,0 @@
void instr_unassemble(env * e, pointeur debutBin, ent64 nolig)
{
char * l = libInstr + e->instr * 4;
//
if(e->fin - debutBin > 9999)
printf("[%d:%08lld-%08lld-%08lld ex %08lld]", e->bin_indice, (ent64)(e->debut - debutBin), (ent64)(e->si - 1 - debutBin), (ent64)(e->fin - debutBin), (ent64)(e->si_except - debutBin));
else
printf("[%d:%04lld-%04lld-%04lld ex %04lld]", e->bin_indice, (ent64)(e->debut - debutBin), (ent64)(e->si - 1 - debutBin), (ent64)(e->fin - debutBin), (ent64)(e->si_except - debutBin));
//
printf(" line %06lld ex-ex %04lld > %c%c%c%c ", nolig, e->except_ex, *l, *(l+1), *(l+2), *(l+3));
//
ent64s d8;
int d3;
octet d1;
pointeur p = e->si;
//
switch(e->instr)
{
/* 2 bytes w opcode (instr d1) */
case IN_VERS:
case IN_PART:
case IN_PREC:
d1 = lire8(p);
printf("%d", d1);
break;
/* special 2 bytes w opcode */
case IN_COMP:
d1 = lire8(p);
if(d1 < CMP_EQ || d1 > CMP_NOT)
printf("??? (%d)", d1);
else
{
l = libComp + d1 * 3 - 3;
printf("%c%c%c", *l, *(l+1), *(l+2));
}
break;
case IN_PSHA:
dynLet(e, &e->tmp_dynamic, VARSYS, DYN_LGNONE);
d1 = lire8(p);
d3 = dynLocateSz(e, &e->tmp_dynamic, Int32ToSz(d1, FALSE, 0), ',', 2, ';');
if(d3 > 0)
{
d3 = dynExtractPos(e, &e->tmp_dynamic, 1, d3, ';', ',');
if(d3 > 0)
printf("%.*s", d3, &e->tmp_dynamic.mPtr[e->tmp_dynamic.mInternal]);
}
if(d3 <= 0)
printf("?? (%d)\n", d1);
break;
/* 2+lg bytes w opcode (instr lg valeur) */
case IN_DECL:
case IN_CALL:
case IN_PARM:
case IN_MODL:
case IN_PVAR:
case IN_PVAH:
case IN_DSET:
case IN_DSTO:
case IN_VLET:
case IN_DCAT:
case IN_NLET:
case IN_INCL:
case IN_PNAM:
case IN_CLIB:
case IN_PVAI:
case IN_CPSH:
case IN_PHDE:
case IN_PIDE:
case IN_PHDH:
case IN_PIDH:
case IN_PHDO:
case IN_PIDO:
case IN_DEXH:
case IN_DEXI:
case IN_DESH:
case IN_DESI:
case IN_DEZH:
case IN_DEZI:
d1 = *p++;
if(d1 > 0)
for( ;d1;d1--)
printf("%c", *p++);
else
printf("_"); // marque une longueur à 0
break;
/* 3+lg bytes w opcode (instr lg valeur) */
case IN_DCMP:
d1 = lire8(p++);
if(d1 < CMP_EQ || d1 > CMP_NOT)
printf("??? (%d) ", d1);
else
{
l = libComp + d1 * 3 - 3;
printf("%c%c%c ", *l, *(l+1), *(l+2));
}
d1 = *p++;
if(d1 > 0)
for( ;d1;d1--)
printf("%c", *p++);
else
printf("_"); // marque une longueur à 0
break;
/* 5+lg bytes w opcode (instr lg valeur) */
case IN_SUBR:
d1 = *p++;
if(d1 > 0)
for( ;d1;d1--)
printf("%c", *p++);
else
printf("_"); // marque une longueur à 0
d3 = lire24(p) + (e->si - 1 - debutBin);
printf(" %d", d3);
break;
case IN_PHDS:
case IN_PIDS:
d1 = *p++;
if(d1 > 0)
for( ;d1;d1--)
printf("%c", *p++);
else
printf("_"); // marque une longueur à 0
d3 = lire24(p);
printf(" %d", d3);
break;
/* 4 bytes w opcode (instr d3) */
case IN_JUMP:
case IN_JMPF:
case IN_JMPT:
d3 = lire24(e->si) + (e->debut - debutBin);
printf("%d", d3);
break;
case IN_BEXC:
d3 = lire24(e->si) + (e->si - 1 - debutBin);
printf("%d", d3);
break;
case IN_SRCL:
case IN_THRW:
d3 = lire24(e->si);
printf("%d", d3);
break;
/* 9 bytes w opcode */
case IN_PSHC:
d8 = lire64(p);
printf("%lld\n", d8);
break;
/* 3+lg1+lg2 bytes w opcode */
case IN_CLAS:
d1 = *p++;
if(d1 > 0)
for( ;d1;d1--)
printf("%c", *p++);
else
printf("_"); // marque une longueur à 0
printf(":");
d1 = *p++;
if(d1 > 0)
for( ;d1;d1--)
printf("%c", *p++);
else
printf("_"); // marque une longueur à 0
break;
/* 4+d3 bytes w opcode */
case IN_SDBG:
d3 = *p++;
if(d3 > 0)
for( ;d3;d3--)
printf("%c", *p++);
else
printf("_"); // marque une longueur à 0
break;
/* one byte w opcode (and unknown opcode...) */
default:
break;
}
printf("\n");
}
instr.h
+1 -4
View File
@@ -46,7 +46,7 @@ char libInstr[256 * 4] ={"VERS" "JUMP" "DECL" "SRCL" "BEXC" "EXCE" "CATC" "THRW"
"PIDS" "TYPE" "ROUN" "LENG" "COUN" "DCOF" "FIEL" "INDX" "SRCH" "CHNG"
"FMTA" "INSE" "REMV" "TONU" "TOST" "CCAT" "SSTR" "SSEP" "FLDF" "FLDS" /* 0-99 */
"DCOS" "FMTT" "FMTS" "SCHS" "INSS" "REMS" "DEXH" "DEXI" "PREC" "DESV"
"DESH" "DESI" "DEZV" "DEZH" "DEZI" "SDBG" "xxxx" "xxxx" "xxxx" "xxxx" /* 110-119 */
"DESH" "DESI" "DEZV" "DEZH" "DEZI" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" /* 110-119 */
"xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx"
"xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx"
"xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx"
@@ -62,7 +62,6 @@ char libInstr[256 * 4] ={"VERS" "JUMP" "DECL" "SRCL" "BEXC" "EXCE" "CATC" "THRW"
"xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" "xxxx" /* 200-249 */
"xxxx" "LIBR" "ENDL" "TEST" "ENDS" "ENDP"};
char libComp[9 * 3] = {"EQ " "NE " "LT " "GT " "LE " "GE " "AND" "OR " "NOT"};
#define IS_VERS "\x00"
#define IN_VERS 0
@@ -305,8 +304,6 @@ char libComp[9 * 3] = {"EQ " "NE " "LT " "GT " "LE " "GE " "AND" "OR " "NOT"};
#define IN_DEZH 113
#define IS_DEZI "\x72"
#define IN_DEZI 114
#define IS_SDBG "\x73"
#define IN_SDBG 115
#define IS_LIBR "\xFB"
#define IN_LIBR 251
json.h
+27 -44
View File
@@ -1,25 +1,3 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include "langage.h"
@@ -51,34 +29,39 @@ typedef struct
/* mettre ici les codes d'erreurs specifiques au module */
/* codes a passer a la fonction setError */
enum {
EXMODJSON_MEM = 106,
EXMODJSON_DECODE_INCORRECT_CHAR = 101,
EXMODJSON_DECODE_KEYWORD_TRUE_EXPECTED = 102,
EXMODJSON_DECODE_KEYWORD_FALSE_EXPECTED = 103,
EXMODJSON_DECODE_KEYWORD_NULL_EXPECTED = 104,
EXMODJSON_DECODE_INCORRECT_CHAR_IN_NUMBER = 105,
EXMODJSON_DECODE_UNTERMINATED_STRING = 107,
EXMODJSON_DECODE_UNEXPECTED_TOKEN_START_OBJECT = 108,
EXMODJSON_DECODE_UNEXPECTED_TOKEN_START_ARRAY = 109,
EXMODJSON_DECODE_UNEXPECTED_KEY = 110,
EXMODJSON_DECODE_UNEXPECTED_VALUE = 111,
EXMODJSON_DECODE_UNEXPECTED_TOKEN_NEXT = 112,
EXMODJSON_DECODE_UNEXPECTED_TOKEN_END_OBJECT = 113,
EXMODJSON_DECODE_UNEXPECTED_TOKEN_END_ARRAY = 114,
EXMODJSON_DECODE_UNEXPECTED_ENDOFJSON = 115
};
#define EXMODJSON_MEM 106
#define EXMODJSON_DECODE_INCORRECT_CHAR 101
#define EXMODJSON_DECODE_KEYWORD_TRUE_EXPECTED 102
#define EXMODJSON_DECODE_KEYWORD_FALSE_EXPECTED 103
#define EXMODJSON_DECODE_KEYWORD_NULL_EXPECTED 104
#define EXMODJSON_DECODE_INCORRECT_CHAR_IN_NUMBER 105
#define EXMODJSON_DECODE_UNTERMINATED_STRING 107
#define EXMODJSON_DECODE_UNEXPECTED_TOKEN_START_OBJECT 108
#define EXMODJSON_DECODE_UNEXPECTED_TOKEN_START_ARRAY 109
#define EXMODJSON_DECODE_UNEXPECTED_KEY 110
#define EXMODJSON_DECODE_UNEXPECTED_VALUE 111
#define EXMODJSON_DECODE_UNEXPECTED_TOKEN_NEXT 112
#define EXMODJSON_DECODE_UNEXPECTED_TOKEN_END_OBJECT 113
#define EXMODJSON_DECODE_UNEXPECTED_TOKEN_END_ARRAY 114
#define EXMODJSON_DECODE_UNEXPECTED_ENDOFJSON 115
/*
Le decodage a besoin de mEncodeCle mEncodeValeur et la position de l'erreur si erreur (3 parametres ; en entree la position le flag "NoDQuote"). L'erreur est le code retour.
L'encodage a besoin de mEncode, mId, flag NoDQuote (3 parametres)
*/
WAPIDECL int jsonInit(env * e, modContextJson * ctx);
WAPIDECL int jsonEnd(env * e, modContextJson * ctx);
WAPIDECL int jsonDecode(env * e, modContextJson * ctx, var * param1, var * param2, var * param3);
WAPIDECL int jsonPrint(env * e, modContextJson * ctx, var * param1, var * param2, var * param3);
WAPIDECL int jsonTreeFetch(env * e, modContextJson * ctx, var * param1, var * param2, var * param3);
int jsonInit(env * e, modContextJson * ctx);
int jsonEnd(env * e, modContextJson * ctx);
int jsonDecode(env * e, modContextJson * ctx, var * param1, var * param2, var * param3);
int jsonPrint(env * e, modContextJson * ctx, var * param1, var * param2, var * param3);
typedef struct {
var * KeyList, * CurrentKey, * Name, * Value, * DecodeCle, * DecodeValue; // Dynamic
var * KeyField, * KeyItem, * KeyCount, * ItemCount, * Id, * Parent, * IdKey, * ParentKey, * ValuePresent, * Begin; // Number
// output: Name Value IdKey IdParent ValuePresent
} treefetch; // contenu de la var hashtable passee en param
int jsonTreeFetch(env * e, modContextJson * ctx, var * param1, var * param2, var * param3);
/*
jsonMod.c
+13 -12
View File
@@ -43,12 +43,13 @@ static int setError(modEtat * p, int err)
return err == OK ? OK : EX_MODERR;
}
#ifdef WINLIB
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#else
extern long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#endif
{
/* TODO : gestion des 3 parametres (au lieu d'un seul) */
modEtat * p_etat;
@@ -72,7 +73,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -86,7 +87,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = setError(p_etat, jsonInit(e, &p_etat->jsonCtx));
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
//*** code specifique ici
exc = setError(p_etat, jsonEnd(e, &p_etat->jsonCtx));
@@ -94,7 +95,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
if(p_etat != NULL)
memfree(e, p_etat);
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
if(param1 == NULL)
exc = EX_MODPARAM;
@@ -109,7 +110,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -125,7 +126,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "decode", 6))
else if(strncmp(e->fn, "decode", 6) == 0)
{
if(param1 == NULL || param2 == NULL || param3 == NULL)
exc = EX_MODPARAM;
@@ -140,7 +141,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "print", 5))
else if(strncmp(e->fn, "print", 5) == 0)
{
if(param1 == NULL || param2 == NULL || param3 == NULL)
exc = EX_MODPARAM;
@@ -153,14 +154,14 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = setError(p_etat, jsonPrint(e, &p_etat->jsonCtx, param1, param2, param3));
}
}
else if(modFnIs(e, "treeFetch", 9))
else if(strncmp(e->fn, "treeFetch", 9) == 0)
{
if(param1 == NULL || param2 == NULL)
if(param1 == NULL)
exc = EX_MODPARAM;
else
{
/* param1 must be a hash table (input) */
if(param1->type != VAR_HASHTABLE || param2->type != VAR_NUMBER)
if(param1->type != VAR_HASHTABLE)
exc = EX_MODPARAM; // bad type of parameter 1
else
exc = setError(p_etat, jsonTreeFetch(e, &p_etat->jsonCtx, param1, param2, param3));
json_lib.c
+66 -182
View File
@@ -1,25 +1,3 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
@@ -29,16 +7,8 @@
#include "var.h"
#include "hashtable.h"
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
#define LF 10
/* ------------------------------------------ */
#define CAR_DQUOTE '"'
#define CAR_MARQUE_CLE ':'
#define CAR_DEBUT_OBJET '{'
@@ -55,27 +25,23 @@
#define STR_FIN_TABLEAU "]"
#define STR_SUIVANT ","
enum {
DEBUT_FICHIER = 0,
VALEUR_CHAINE = 1,
VALEUR_NOMBRE = 2,
VALEUR_CLE = 3,
DEBUT_OBJET = 4,
FIN_OBJET = 5,
DEBUT_TABLEAU = 6,
FIN_TABLEAU = 7,
SUIVANT = 8,
FIN_FICHIER = 9,
#define DEBUT_FICHIER 0
#define VALEUR_CHAINE 1
#define VALEUR_NOMBRE 2
#define VALEUR_CLE 3
#define DEBUT_OBJET 4
#define FIN_OBJET 5
#define DEBUT_TABLEAU 6
#define FIN_TABLEAU 7
#define SUIVANT 8
#define FIN_FICHIER 9
ENCODE_OK = 1,
ENCODE_ERREUR = 0,
LF = 10
};
#define ENCODE_OK 1
#define ENCODE_ERREUR 0
/* =================================================================================== */
/* --------- PRIVATE --------- */
/* --------- JSON C --------- */
static void ConcatValue(env * e, modContextJson * ctx, char c)
{
char car[2];
@@ -518,83 +484,52 @@ static int MakePrintable(env * e, modContextJson * ctx, var * DecodeBrut, var *
return OK;
}
typedef struct {
var * KeyList, * CurrentKey, * Name, * Value, * DecodeCle, * DecodeValue; // Dynamic
var * KeyField, * KeyItem, * KeyCount, * ItemCount, * Id, * Parent, * IdKey, * ParentKey, * ValuePresent; // Number
// output: Name Value IdKey ParentKey ValuePresent
} treefetch; // contenu de la var hashtable passee en param
static int GetNextTreeFetch(env * e, treefetch * tree)
/* NOT USED
static void InitTreeFetch()
{
char ArrayMark = '#';
//
if(tree->KeyField->num == 0)
return FALSE; // false = fini
// check here if empty json
if(tree->KeyCount->num == 0 && tree->ItemCount->num == 0)
{
// single value json
dynLet(e, tree->Name, "#", 1);
dynField(e, tree->DecodeValue, tree->Value, 1, DYN_NONE, cVM, cSVM, 1);
tree->ParentKey->num = tree->Parent->num;
tree->IdKey->num = tree->Id->num;
tree->ValuePresent->num = NUM_UN;
tree->KeyField->num = 0;
return TRUE;
}
//
for(long pos;;)
{
if(tree->KeyItem->num == tree->ItemCount->num)
{
// value found
tree->ParentKey->num = tree->Parent->num;
tree->IdKey->num = tree->Id->num;
dynField(e, tree->DecodeCle, tree->Name, tree->KeyField->num, tree->KeyItem->num, cVM, cSVM, 1);
dynReplace(e, tree->Name, cTM, ArrayMark);
dynField(e, tree->DecodeValue, tree->Value, tree->KeyField->num, DYN_NONE, cVM, DYN_NONE, 1);
tree->ValuePresent->num = TRUE; // means send a value
// prepare next call
if(tree->KeyField->num >= tree->KeyCount->num)
tree->KeyField->num = 0;
else
{
tree->Id->num++;
tree->Parent->num = 0;
tree->KeyField->num++;
tree->KeyItem->num = 1;
tree->ItemCount->num = dynDcount(e, tree->DecodeCle, cSVM, tree->KeyField->num, cVM);
}
return TRUE;
}
dynField(e, tree->DecodeCle, tree->CurrentKey, tree->KeyField->num, 1, cVM, cSVM, tree->KeyItem->num);
pos = dynLocateSz(e, tree->KeyList, tree->CurrentKey->mPtr, cVM, 1, cFM);
if(pos < 1)
{
// new path
dynIns(e, tree->KeyList, 1, 1, tree->CurrentKey, cFM, cVM);
dynInsNumber(e, tree->KeyList, 2, 1, tree->Id->num, cFM, cVM);
// part of path found
tree->ParentKey->num = tree->Parent->num;
tree->IdKey->num = tree->Id->num;
dynField(e, tree->DecodeCle, tree->Name, tree->KeyField->num, tree->KeyItem->num, cVM, cSVM, 1);
dynReplace(e, tree->Name, cTM, ArrayMark);
tree->ValuePresent->num = NUM_ZERO; // means no value here (part of path)
// prepare next call
tree->Parent->num = tree->Id->num++;
tree->KeyItem->num++;
//
return TRUE;
}
// loop to next part of path
dynExtractSubField(e, tree->KeyList, 2, pos, tree->Parent);
tree->KeyItem->num++;
}
//
return TRUE; //ok, but should never reach this point...
GetNextTreeFetch(NULL, NULL, NULL, NULL, NULL);
}
*/
/*
static int GetNextTreeFetch(env * e, modContextJson * ctx, long * parentKey, long * idKey, Dynamic * name, Dynamic * value, int * valuePresent)
{
static Dynamic KeyList, CurrentKey; // hash entree
static long KeyField, KeyItem, KeyCount, ItemCount, id, parent; // hash entree
char ArrayMark = '#';
//
if(parentKey == NULL && idKey == NULL && name == NULL && value == NULL && valuePresent == NULL)
{
// InitTreeFetch
KeyList.DeleteAllContent();
KeyField = 1; // current field in mDecodeCle
KeyItem = 1; // current part of path of current field
mDecodeCle.SetSubFieldDelimiter(cSVM);
KeyCount = mDecodeCle.CountField();
ItemCount = mDecodeCle.CountSubField(KeyField);
id = 1;
parent = 0;
return true;
}
if(parentKey == nullptr || idKey == nullptr || name == nullptr || value == nullptr || valuePresent == nullptr)
return false; // security
//
if(KeyField == 0)
return false; // false = fini
//
// check here if empty json
if(KeyCount == 0 && ItemCount == 0)
{
// single value json
name->SetAs("#");
mDecodeValeur.ExtractField(1, *value, 1);
*parentKey = parent;
*idKey = id;
*valuePresent = true;
KeyField = 0;
return true;
}
//
for(long pos;;)
{
if(KeyItem == ItemCount)
@@ -642,10 +577,12 @@ static int GetNextTreeFetch(env * e, treefetch * tree)
KeyList.ExtractSubField(2, pos, parent);
KeyItem++;
}
*/
//
return true; //ok, but should never reach this point...
}*/
/* =================== PUBLIC ========================== */
WAPIDECL int jsonInit(env * e, modContextJson * ctx)
int jsonInit(env * e, modContextJson * ctx)
{
int cr = OK;
//cr += dynInit(e, &ctx->mKeyList, DYN_LGMIN);
@@ -670,7 +607,7 @@ WAPIDECL int jsonInit(env * e, modContextJson * ctx)
return (cr == OK ? OK : EXMODJSON_MEM);
}
WAPIDECL int jsonEnd(env * e, modContextJson * ctx)
int jsonEnd(env * e, modContextJson * ctx)
{
//dynFree(e, &ctx->mKeyList);
//dynFree(e, &ctx->mCurrentKey);
@@ -682,76 +619,23 @@ WAPIDECL int jsonEnd(env * e, modContextJson * ctx)
return OK;
}
WAPIDECL int jsonDecode(env * e, modContextJson * ctx, var * param1, var * param2, var * param3)
int jsonDecode(env * e, modContextJson * ctx, var * param1, var * param2, var * param3)
{
return Decode(e, ctx, param1->mPtr, param2, param3);
}
WAPIDECL int jsonPrint(env * e, modContextJson * ctx, var * param1, var * param2, var * param3)
int jsonPrint(env * e, modContextJson * ctx, var * param1, var * param2, var * param3)
{
char value[4] = " : \0", path = '/', index = '@';
//
return MakePrintable(e, ctx, param1, param2, param3, path, index, value);
}
WAPIDECL int jsonTreeFetch(env * e, modContextJson * ctx, var * param1, var * param2, var * param3)
int jsonTreeFetch(env * e, modContextJson * ctx, var * param1, var * param2, var * param3)
{
// KeyList, CurrentKey, Name, Value, DecodeCle, DecodeValue; // Dynamic
// KeyField, KeyItem, KeyCount, ItemCount, Id, Parent, IdKey, ParentKey, ValuePresent; // Number
treefetch tree; // contexte specifique a chaque appel
//
hashtable_do(e, HASH_READ, param1, copy_nom(e, "DecodeCle"), &tree.DecodeCle);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "DecodeValue"), &tree.DecodeValue);
if(tree.DecodeCle == NULL || tree.DecodeValue == NULL)
{
param2->num = NUM_UN;
return OK; // TODO erreur
}
//
// KeyField, KeyItem, KeyCount, ItemCount, Id, Parent, IdKey, ParentKey, ValuePresent, Begin; // Number
treefetch tree;
hashtable_do(e, HASH_READ, param1, copy_nom(e, "KeyList"), &tree.KeyList);
if(tree.KeyList == NULL)
{
// init vars
var * v = &e->int_dynamic;
dynSetLen(e, &e->int_dynamic, 0);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "KeyList"), &v);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "CurrentKey"), &v);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "Name"), &v);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "Value"), &v);
v = &e->int_number;
v->num = 1;
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "KeyField"), &v);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "KeyItem"), &v);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "Id"), &v);
v->num = 0;
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "Parent"), &v);
v->num = dynDcount(e, tree.DecodeCle, cVM, DYN_NONE, DYN_NONE);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "KeyCount"), &v);
v->num = dynDcount(e, tree.DecodeCle, cSVM, 1, cVM);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "ItemCount"), &v);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "IdKey"), &v);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "ParentKey"), &v);
hashtable_do(e, HASH_WRITE, param1, copy_nom(e, "ValuePresent"), &v);
}
hashtable_do(e, HASH_READ, param1, copy_nom(e, "KeyList"), &tree.KeyList);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "CurrentKey"), &tree.CurrentKey);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Name"), &tree.Name);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Value"), &tree.Value);
//
hashtable_do(e, HASH_READ, param1, copy_nom(e, "KeyField"), &tree.KeyField);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "KeyItem"), &tree.KeyItem);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "KeyCount"), &tree.KeyCount);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "ItemCount"), &tree.ItemCount);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Id"), &tree.Id);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Parent"), &tree.Parent);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "IdKey"), &tree.IdKey);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "ParentKey"), &tree.ParentKey);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "ValuePresent"), &tree.ValuePresent);
/* */
//hashtable_printdebug(e, param1, 1);
if(GetNextTreeFetch(e, &tree)) // TRUE = pas fini
param2->num = NUM_ZERO; // var <fin>
else
param2->num = NUM_UN;
return OK;
}
langage.c
+1569 -702
View File
File diff suppressed because it is too large. Load diff
langage.h
+82 -119
View File
@@ -2,7 +2,7 @@
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
\/ \/ Copyright 2024-2025 lanisys.fr
This file is part of W language.
@@ -23,20 +23,16 @@
#ifndef LANGAGE_H
#define LANGAGE_H
enum {
VERSION = 1 // version "max" gere du pcode => version du "langage"
};
#define VERSION 1 // version "max" gere du pcode => version du "langage"
#ifndef TRUE
#define TRUE 1
#define FALSE 0
#endif
enum {
W_LITTLE_ENDIAN = 1,
W_BIG_ENDIAN = 0,
W_DEFAULT_ENDIAN = 2 // celle de la plateforme d'execution
};
#define W_LITTLE_ENDIAN 1
#define W_BIG_ENDIAN 0
#define W_DEFAULT_ENDIAN 2 // celle de la plateforme d'execution
typedef unsigned char octet;
typedef octet * pointeur; /* et pas "void *" ... */
@@ -48,11 +44,7 @@ typedef int ent32s;
typedef long long ent64s;
typedef unsigned short ent16;
#ifndef UNIX
typedef ent64s ent128s; // sous windows, pas de __int128 : TODO a changer pour des calculs corrects
#else
typedef __int128 ent128s; // temporaire pour les calculs intermediaires (multiplication)
#endif
#define NUM_MIN -999999999999999999ll
#define NUM_MAX 999999999999999999ll
@@ -77,36 +69,31 @@ typedef ent64s number; /* 8 octets signes, virgule fixe */
/* les variables ne sont pas typees : elles peuvent changer de type au fur et a mesure des affectations */
/* type 0 indique que l'emplacement n'a pas ete utilise encore : place disponible */
enum {
VAR_NULL = 1, /* variable declaree mais pas encore affectee d'une valeur */
VAR_NUMBER = 2, /* et @number */
VAR_SUBROUTINE = 3,
VAR_PARAM = 4, /* adresse de la "vraie" variable, 1 seul niveau d'indirection, travail toujours sur la var "pointee" */
VAR_DYNAMIC = 5, /* et @string */
VAR_HASHTABLE = 6,
VAR_OBJECT = 7, /* idem hashtable mais en objet : seule diff. element "_class" cree dans la table (interne) */
VAR_BUFFER = 8, /* usage interne : pile calcul + pile appel sub (autre ? buffer circulaire ptr read/write) */
VAR_NB = 8,
VAR_EMPTY = 0, /* retour @empty */
#define VAR_NULL 1 /* variable declaree mais pas encore affectee d'une valeur */
#define VAR_NUMBER 2 /* et @number */
#define VAR_SUBROUTINE 3
#define VAR_PARAM 4 /* adresse de la "vraie" variable, 1 seul niveau d'indirection, travail toujours sur la var "pointee" */
#define VAR_DYNAMIC 5 /* et @string */
#define VAR_HASHTABLE 6
#define VAR_OBJECT 7 /* idem hashtable mais en objet : seule diff. element "_class" cree dans la table (interne) */
#define VAR_BUFFER 8 /* usage interne : pile calcul + pile appel sub (autre ? buffer circulaire ptr read/write) */
#define VAR_NB 8
#define VAR_EMPTY 0 /* retour @empty */
VAR_UNDECLARED = -1,
#define VAR_UNDECLARED -1
WCP_WIN1252 = 1252,
WCP_8859_1 = 28591,
WCP_8859_15 = 28605,
WCP_UTF8 = 65001,
WCP_DEFAULT = WCP_WIN1252 // UTF8 ??
};
#define CP_WIN1252 1252
#define CP_8859_1 28591
#define CP_8859_15 28605
#define CP_UTF8 65001
typedef struct {
//union {
ent16 type; /* type defini ci-dessus (au lieu de ent64) */
union {
ent64 type; /* type defini ci-dessus */
//pointeur local; /* pour memo _stack */
ent16 codePage; /* pour dynamic */
ent16 typv[2]; /* permet de gerer des options par type : unite/devise pour number, fuseau si number/date etc. */
ent16 typv[4]; /* permet de gerer des options par type : code page pour dynamic, unite/devise pour number, fuseau si number/date etc. */
/* typv[0] = type; typv[1] = code page/unite/fuseau typv[2] typv[3] usage futur (langue, pays) */
//};
};
union {
number num; /* si type = 1 VAR_NUMBER */
pointeur ptr; /* si type = 2 a 8 : pointeur vers les donnees variables / variable si "PARAM" / si->debut si SUBROUTINE / ptr si module */
@@ -169,6 +156,9 @@ typedef struct {
v->ptr v->ptr v->misc
*/
#define BUF_LGBLOC 8192 /* multiple de 32 sinon pile d'elements 8 et 16 octets KO */
#define BUF_LGWRITE_MAX 4000 /* doit etre au maxi BUF_LGBLOC - 3 */
typedef struct {
/* buffer servant de stack pour number et string */
number num; /* nombre si str == NULL */
@@ -191,67 +181,61 @@ typedef struct {
/* vrai buffer read = position a lire dans les donnees (a ajouter a ptr) ou prochaine position a ecrire (pile calcul et appel) */
/* vrai buffer write = position a ecrire dans les donnees (a ajouter a ptr) ; si READ=WRITE : vide ! ou utilise en interne si pile */
#define OID_MAX 999999999999999ll /* pour que l'OID reste sur 16 chiffres : 15 neufs ici, pour qu'un oid commence toujours par 0 ! */
#define OID_MAX 9999999999999999ll /* pour que l'OID reste sur 16 chiffres : 16 neufs ici */
#define OID_MIN 100ll /* demarrage a 100 pour eviter les nombres trop petits */
#define CLASS_BASE "Base" /* classe mere de toutes les classes */
enum {
BUF_LGMINBLOC = 16384, /* multiple de 32 sinon pile d'elements 8 et 16 octets KO, lgmax message = lg buffer / 32 (512 octets ici) */
MAX_PARAM = 8, /* nb maxi de parametres d'une sub/methode */
#define MAX_PARAM 8 /* nb maxi de parametres d'une sub/methode */
HASH_READ = 1,
HASH_DELETE = 2,
HASH_WRITE = 3,
#define HASH_READ 1
#define HASH_DELETE 2
#define HASH_WRITE 3
NOK = -1 /* quand pas une exception */
};
#define NOK -1 /* quand pas une exception */
//
// 000 a 999 : erreur systeme
// 1000 a 9999 : reserve aux modules systeme
// 1000 a 1099 : module "db"
//
enum {
OK = 0,
EX_DIV0 = 1, /* exceptions */
EX_MEM = 2, /* memalloc ko */
EX_BUFOVF = 3, /* depassement de capacite du buffer */
EX_IO = 4,/* erreur d'entree/sortie (leture fichier...) */
EX_END = 5, /* adresse du code hors prog/sub */
EX_LGNOM = 6, /* lg nom variable incorrecte (de 1 a 24 inclus) */
EX_TYPVAR = 7, /* type variable non attendu */
EX_NULLOCAL = 8, /* hashtable locale null et pas dans le code "global" */
EX_NOVAR = 9, /* nom de variable inconnu */
EX_MODOPEN = 10, /* erreur ouverture module (dlopen) */
EX_MODDSYM = 11, /* fonction execModule non trouvee dans le module (dsym) */
EX_NOSTACK = 12, /* dans ENDS, pas de var _stack trouve pour revenir a l'appelant */
EX_NAVAR = 13, /* la variable n'est pas du bon type / not available */
EX_NOADVAR = 14, /* pointeur ad_var non renseigne pour l'instruction qui en a besoin */
EX_NAVERS = 15, /* version de pcode non prise en charge par le "compilateur" */
EX_MODNAME = 16, /* le nom d'appel du module est incorrect */
EX_DYNERR = 17, /* erreur dans la manipulation des chaines */
EX_MODFUNC = 18, /* le code function du module est inconnu */
EX_MODPARAM = 19, /* le parametre donne au module est incorrect */
EX_MODETAT = 20, /* l'etat interne du module est incorrect */
EX_MODERR = 21, /* erreur specifique au module */
EX_NOTNUM = 22, /* erreur de conversion de chaine en number */
EX_NOCLASS = 23, /* la classe n'a pas ete trouvee dans la hash globale */
EX_CMDLINE_ARG = 24, /* erreur dans les parametres de la ligne de commande */
EX_PCODE = 25, /* pcode "binaire" incorrect : ne commence pas par PROG, library ne commence pas par LIBR, etc.*/
EX_NOENVVAR = 26, /* WBIN et/ou WSRC non defini en var d'environnement ou non passe en parametre de la ligne de commande */
EX_EXCEPTNUM = 27, /* code except ne tient pas sur 8 bits : ko pour retour shell */
EX_BINVAR_KO = 28, /* variable _bin de g non trouvee */
EX_ENVVAR_KO = 29, /* variable _env de g non trouvee */
EX_BINADDRVAR_KO = 30, /* variable _binaddr de g non trouvee */
EX_CREATEHASH = 31, /* erreur de creation de hashtable (memoire) */
EX_FIELD_KO = 32, /* erreur lors de dynField (memoire ou param incorrect) */
EX_SUBSTR_KO = 33, /* erreur lors de dynSubstr (memoire ou param incorrect) */
EX_SEP_INCORRECT = 34, /* separateurs incorrects dans setsep (0 interdit) */
EX_FORMAT_KO = 35, /* erreur de parametre (type format ou longueur incorrects) */
EX_INSERT_KO = 36, /* erreur de parametre ou memoire dans insert() */
EX_REMOVE_KO = 37, /* erreur de parametre ou memoire dans remove() */
EXNB = 37 /* MEMO !!!! */
};
#define OK 0
#define EX_DIV0 1 /* exceptions */
#define EX_MEM 2 /* memalloc ko */
#define EX_BUFOVF 3 /* depassement de capacite du buffer */
#define EX_IO 4 /* erreur d'entree/sortie (leture fichier...) */
#define EX_END 5 /* adresse du code hors prog/sub */
#define EX_LGNOM 6 /* lg nom variable incorrecte (de 1 a 24 inclus) */
#define EX_TYPVAR 7 /* type variable non attendu */
#define EX_NULLOCAL 8 /* hashtable locale null et pas dans le code "global" */
#define EX_NOVAR 9 /* nom de variable inconnu */
#define EX_MODOPEN 10 /* erreur ouverture module (dlopen) */
#define EX_MODDSYM 11 /* fonction execModule non trouvee dans le module (dsym) */
#define EX_NOSTACK 12 /* dans ENDS, pas de var _stack trouve pour revenir a l'appelant */
#define EX_NAVAR 13 /* la variable n'est pas du bon type / not available */
#define EX_NOADVAR 14 /* pointeur ad_var non renseigne pour l'instruction qui en a besoin */
#define EX_NAVERS 15 /* version de pcode non prise en charge par le "compilateur" */
#define EX_MODNAME 16 /* le nom d'appel du module est incorrect */
#define EX_DYNERR 17 /* erreur dans la manipulation des chaines */
#define EX_MODFUNC 18 /* le code function du module est inconnu */
#define EX_MODPARAM 19 /* le parametre donne au module est incorrect */
#define EX_MODETAT 20 /* l'etat interne du module est incorrect */
#define EX_MODERR 21 /* erreur specifique au module */
#define EX_NOTNUM 22 /* erreur de conversion de chaine en number */
#define EX_NOCLASS 23 /* la classe n'a pas ete trouvee dans la hash globale */
#define EX_CMDLINE_ARG 24 /* erreur dans les parametres de la ligne de commande */
#define EX_PCODE 25 /* pcode "binaire" incorrect : ne commence pas par PROG, library ne commence pas par LIBR, etc.*/
#define EX_NOENVVAR 26 /* WBIN et/ou WSRC non defini en var d'envvironnement ou non passe en parametre de la ligne de commande */
#define EX_EXCEPTNUM 27 /* code except ne tient pas sur 8 bits : ko pour retour shell */
#define EX_BINVAR_KO 28 /* variable _bin de g non trouvee */
#define EX_ENVVAR_KO 29 /* variable _env de g non trouvee */
#define EX_BINADDRVAR_KO 30 /* variable _binaddr de g non trouvee */
#define EX_CREATEHASH 31 /* erreur de creation de hashtable (memoire) */
#define EX_FIELD_KO 32 /* erreur lors de dynField (memoire ou param incorrect) */
#define EX_SUBSTR_KO 33 /* erreur lors de dynSubstr (memoire ou param incorrect) */
#define EX_SEP_INCORRECT 34 /* separateurs incorrects dans setsep (0 interdit) */
#define EX_FORMAT_KO 35 /* erreur de parametre (type format ou longueur incorrects) */
#define EX_INSERT_KO 36 /* erreur de parametre ou memoire dans insert() */
#define EX_REMOVE_KO 37 /* erreur de parametre ou memoire dans remove() */
typedef struct {
/* environnement global */
@@ -268,7 +252,6 @@ typedef struct {
//
//var tblptr; /* contient les pointeurs sur les vars de type SUB/PARAM/OBJET, pour les rendre VAR_NULL si le ptr est libere */
//
var tmp_dynamic; /* comme son nom l'indique... doit etre utilise localement et sur une portee tres courte ; pas d'utilisation inter instruction */
var int_number; /* variable number interne servant aux conversions */
var int_dynamic; /* variable dynamic interne servant aux conversions */
var int_hash; /* variable interne servant a la creation de classe/objet */
@@ -276,8 +259,6 @@ typedef struct {
var v; /* variable servant en interne */
var * ad_var; /* permet de recuperer l'adresse d'une var entre 2 instructions */
var * ad_var_hash; /* dans les enchainements PVAR/PVAH-PVAI, donne l'adresse de la hash possédant la "derniere" variable */
var * ad_var_obj; /* dans une affectation let ou do sub, donne l'objet concerne si objet, pour lire les membres (hors sub) -> pour creer this */
var * ad_var_class; /* donne l'objet de la classe mere de l'objet courant, objet Base si objet de classe Base */
/* */
ent64 exception; /* exception courante (di) ; 0 ok, si # 0, levee d'une exception et saut au code qui le traite, 0 a chaque debut de fonction */
ent64 except_ex; /* dans bloc except, code erreur ayant genere l'exception ; a mettre a 0 a chaque debut de methode sauf si appel depuis le bloc except ! */
@@ -294,8 +275,6 @@ typedef struct {
var debugreglelex;
var debugcmd;
var debugvalex;
var printf;
void * debugCtxShm; /* pour le debug des process phantom */
/* */
octet bin_comp; /* indique si les binaires lus sont compresses (1) et si oui, avec une cle (2), 0 RAS */
octet demon; /* 1 si prog lance en demon, 0 sinon (lu par @demon) */
@@ -310,14 +289,11 @@ typedef struct {
char sep_field, sep_subfield; /* pour dynamic */
/* */
int endianess; /* pour detection automatique de l'endianess de la plateforme d'execution */
/* */
int bin_indice; /* position dans _bin du binaire en cours d'exec ( _bin<2, bin_indice> ) */
/* */
pointeur debut,fin; /* position en memoire de la fonction, fin est toujours l'instruction END ou ENDS */
pointeur si; /* position dans le source, inclus entre debut et fin inclus */
pointeur si_except; /* position dans le source du code traitant les exceptions (apres instruction EXC) */
/* */
pointeur binaddr; /* permet de lire les adresses binaires en mode Trace */
pointeur debutProg, finProg; // debut:fin du prog principal (= toute la zone memoire du prog)
/* */
ent64 mem_numb; /* nombre de blocs memoire alloues */
ent64 mem_size; /* taille des bloc memoire alloues */
@@ -342,31 +318,18 @@ typedef struct {
char var_car[VAR_NB + 1]; /* lettre caracteristique de chaque type (printdebug) */
} env;
enum {
CMP_EQ = 1,
CMP_NE = 2,
CMP_LT = 3,
CMP_GT = 4,
CMP_LE = 5,
CMP_GE = 6,
CMP_AND = 7,
CMP_OR = 8,
CMP_NOT = 9
};
#define CMP_EQ 1
#define CMP_NE 2
#define CMP_LT 3
#define CMP_GT 4
#define CMP_LE 5
#define CMP_GE 6
#define GUV_CLASS "_class"
#define GUV_BINADDR "_binaddr"
#define GUV_LOCAL "_local"
#define GUV_ENV "_env"
#define GUV_ARG "_arg"
#define GUV_ARGBACK "_argback"
#define GUV_SRCDBG "_srcdbg"
#define GUV_PROG "_prog"
#define GUV_STACK "_stack"
#define GUV_BIN "_bin"
#define GUV_WDIR "_wdir"
#define CMP_AND 7
#define CMP_OR 8
#define CMP_NOT 9
#define VARSYS "@varnull,@varnumber,@varsubroutine,@varparam,@vardynamic,@varhashtable,@varobject,@varbuffer,@false,@true,@forcount,@kill,@fork,@prog,@exceptstr,@exceptline,@except,@part,@line,@os,@vers,@verw,@demon,@endian,@file,@arg,@pi,@fm,@vm,@svm,@tm,@currfm,@currvm,@number,@dynamic,@empty,@trim,@left,@right,@center,@surround;1,2,3,4,5,6,7,8,10,11,12,13,14,15,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,40,41,42,50,51,52,53,54"
#define VARSYS "@varnull,@varnumber,@varsubroutine,@varparam,@vardynamic,@varhashtable,@varobject,@varbuffer,@false,@true,@forcount,@kill,@fork,@exceptline,@except,@part,@line,@os,@vers,@verw,@demon,@endian,@file,@arg,@pi,@fm,@vm,@svm,@tm,@currfm,@currvm,@number,@dynamic,@empty,@trim,@left,@right,@center,@surround;1,2,3,4,5,6,7,8,10,11,12,13,14,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,40,41,42,50,51,52,53,54"
#include "global.h"
lex.c
+4 -31
View File
@@ -47,12 +47,11 @@ reste: (1,1,#00-#FF) ;11; 1,1,00-FF
[] est remplace par () car cela revient au meme !
*/
#include "lex_files.h"
long regles_lex(env * e, Dynamic * r)
{
dynLet(e, r, "", 0);
dynConcatSz(e, r, "blanc,1,nomregle,2,debut,3,fin,4,occ,5,infini,6,commentaire,7,intervalle,8,hexa,9,car,10,reste,11\n", DYN_LGNONE);
//printf("%s", r->mPtr);
dynConcatSz(e, r, "1,-1,20:09\n", DYN_LGNONE);
dynConcatSz(e, r, "1,1,61-7A;0,-1,30-39:61-7A;1,1,3A\n", DYN_LGNONE);
dynConcatSz(e, r, "1,1,28\n", DYN_LGNONE);
@@ -71,35 +70,9 @@ long lire_regles_lex(env * e, Dynamic * regles, char * fichier_lex)
{
long cr;
if(fichier_lex != NULL)
{
/* selon fichier_lex, lire directement depuis le source */
if(strncmp(fichier_lex, "debuglex", 8) == 0)
{
if(*file_debuglex == 0)
#ifdef WINLIB
cr = dynRead(e, regles, "C:\\Users\\Poupougne42\\source\\repos\\win_w_src\\lex\\debuglex"); // lire les regles depuis le fichier sur disque
#else
cr = dynRead(e, regles, "/etc/wlanguage/debuglex"); // lire les regles depuis le fichier sur disque
#endif
else
cr = dynLet(e, regles, file_debuglex, DYN_LGNONE);
}
else if(strncmp(fichier_lex, "wlex", 4) == 0)
{
if(*file_wlex == 0)
#ifdef WINLIB
cr = dynRead(e, regles, "C:\\Users\\Poupougne42\\source\\repos\\win_w_src\\lex\\wlex"); // lire les regles depuis le fichier sur disque
#else
cr = dynRead(e, regles, "/etc/wlanguage/wlex"); // lire les regles depuis le fichier sur disque
#endif
else
cr = dynLet(e, regles, file_wlex, DYN_LGNONE);
}
else
cr = dynRead(e, regles, fichier_lex); // lire les regles depuis le fichier sur disque
}
cr = dynRead(e, regles, fichier_lex); // lire les regles depuis le fichier sur disque
else
cr = regles_lex(e, regles); // par defaut, charger les regles lex des fichiers "lex" (?!)
cr = regles_lex(e, regles); // par defaut, charger les regles lex des fichiers "lex"
//
if(cr == DYN_OK)
{
@@ -361,7 +334,7 @@ void lex(env * e, Dynamic * regles, Dynamic * saisie, Dynamic * valex)
dynFree(e, &motencours);
dynFree(e, &trouvemot);
}
/* source OK :
/* source Universe (OK) :
* LEX.REGLE = regles Lex, valeurs ET separees par "," ; liste de cars en OU pour chaque partie ET
LEX.REGLE = ""
* 1 entete
lex.lex
-13
View File
@@ -1,13 +0,0 @@
; fichier de description du lex des fichiers lex
blanc: (1,*,#20#09) ;1; 1,-1,20:09
nomregle: (1,1,a-z) (0,*,0-9a-z) (1,1,#3A) ;2; 1,1,61-7A;0,-1,30-39:61-7A;1,1,3A
debut: (1,1,#28) ;3; 1,1,28
fin: (1,1,#29) ;4; 1,1,29
occ: (1,9,0-9) (1,1,#2C) ;5; 1,9,30-39;1,1,2C
infini: (1,1,#2A) (1,1,#2C) ;6; 1,1,2A;1,1,2C
commentaire: (1,1,#3B) (0,*,#20-#7E) ;7; 1,1,3B;0,-1,20-7E
intervalle: (1,1,#2D) ;8; 1,1,2D
hexa: (1,1,#23) (2,2,0-9A-F) ;9; 1,1,23;2,2,30-39:41-46
car: (1,1,#21-#7E) ;10; 1,1,21-7E
reste: (1,1,#00-#FF) ;11; 1,1,00-FF
lex_files.h
-6
View File
@@ -1,6 +0,0 @@
//static char file_debuglex[] = "";
static char file_debuglex[] = "blanc,1,commande,2,aide,3,nombre,4,ajouter,5,supprimer,6,ident,7,reste,8\n1,-1,20:09:0A:0D\n1,2,61-7A:41-5A\n1,1,3F\n1,9,30-39\n1,1,2B\n1,1,2D\n1,1,3A;1,1,61-7A:41-5A:5F;0,23,61-7A:41-5A:30-39\n1,1,00-FF";
//static char file_wlex[] = "";
static char file_wlex[] = "blank,1,comment,2,begin,3,background,4,library,5,end,6,except,7,throw,8,catch,9,include,10,sub,11,endsub,12,if,13,then,14,else,15,elseif,16,endif,17,do,18,call,19,invoke,20,return,21,returnon,22,loop,23,endloop,24,foreach,25,in,26,like,27,endfor,28,break,29,breakon,30,continue,31,continueon,32,nop,33,part,34,echonl,35,echo,36,input,37,declare,38,let,39,delet,40,new,41,class,42,this,43,parent,44,free,45,precision,46,setsep,47,int,48,frac,49,abs,50,neg,51,round,52,type,53,len,54,count,55,dcount,56,field,57,index,58,search,59,change,60,format,61,insert,62,remove,63,tonum,64,tostring,65,equal,66,diff,67,gt,68,lt,69,gte,70,lte,71,and,72,or,73,not,74,beginpar,75,endpar,76,beginh,77,endh,78,begins,79,ends,80,indirect,81,typeof,82,stringdq,83,stringq,84,ident,85,varsys,86,numberdec,87,numberint,88,minus,89,plus,90,multiply,91,divide,92,divident,93,modulo,94,concat,95,listesep,96,identsep,97,modsep,98,other,99\n1,-1,20:09\n1,1,3B;0,-1,00-FF\n1,1,62;1,1,65;1,1,67;1,1,69;1,1,6E\n1,1,62;1,1,61;1,1,63;1,1,6B;1,1,67;1,1,72;1,1,6F;1,1,75;1,1,6E;1,1,64\n1,1,6C;1,1,69;1,1,62;1,1,72;1,1,61;1,1,72;1,1,79\n1,1,65;1,1,6E;1,1,64\n1,1,65;1,1,78;1,1,63;1,1,65;1,1,70;1,1,74\n1,1,74;1,1,68;1,1,72;1,1,6F;1,1,77\n1,1,63;1,1,61;1,1,74;1,1,63;1,1,68\n1,1,69;1,1,6E;1,1,63;1,1,6C;1,1,75;1,1,64;1,1,65\n1,1,73;1,1,75;1,1,62\n1,1,65;1,1,6E;1,1,64;1,1,73;1,1,75;1,1,62\n1,1,69;1,1,66\n1,1,74;1,1,68;1,1,65;1,1,6E\n1,1,65;1,1,6C;1,1,73;1,1,65\n1,1,65;1,1,6C;1,1,73;1,1,65;1,1,69;1,1,66\n1,1,65;1,1,6E;1,1,64;1,1,69;1,1,66\n1,1,64;1,1,6F\n1,1,63;1,1,61;1,1,6C;1,1,6C\n1,1,69;1,1,6E;1,1,76;1,1,6F;1,1,6B;1,1,65\n1,1,72;1,1,65;1,1,74;1,1,75;1,1,72;1,1,6E\n1,1,72;1,1,65;1,1,74;1,1,75;1,1,72;1,1,6E;1,1,6F;1,1,6E\n1,1,6C;1,1,6F;1,1,6F;1,1,70\n1,1,65;1,1,6E;1,1,64;1,1,6C;1,1,6F;1,1,6F;1,1,70\n1,1,66;1,1,6F;1,1,72;1,1,65;1,1,61;1,1,63;1,1,68\n1,1,69;1,1,6E\n1,1,6C;1,1,69;1,1,6B;1,1,65\n1,1,65;1,1,6E;1,1,64;1,1,66;1,1,6F;1,1,72\n1,1,62;1,1,72;1,1,65;1,1,61;1,1,6B\n1,1,62;1,1,72;1,1,65;1,1,61;1,1,6B;1,1,6F;1,1,6E\n1,1,63;1,1,6F;1,1,6E;1,1,74;1,1,69;1,1,6E;1,1,75;1,1,65\n1,1,63;1,1,6F;1,1,6E;1,1,74;1,1,69;1,1,6E;1,1,75;1,1,65;1,1,6F;1,1,6E\n1,1,6E;1,1,6F;1,1,70\n1,1,70;1,1,61;1,1,72;1,1,74\n1,1,65;1,1,63;1,1,68;1,1,6F;1,1,6E;1,1,6C\n1,1,65;1,1,63;1,1,68;1,1,6F\n1,1,69;1,1,6E;1,1,70;1,1,75;1,1,74\n1,1,64;1,1,65;1,1,63;1,1,6C;1,1,61;1,1,72;1,1,65\n1,1,6C;1,1,65;1,1,74\n1,1,64;1,1,65;1,1,6C;1,1,65;1,1,74\n1,1,6E;1,1,65;1,1,77\n1,1,63;1,1,6C;1,1,61;1,1,73;1,1,73\n1,1,74;1,1,68;1,1,69;1,1,73\n1,1,70;1,1,61;1,1,72;1,1,65;1,1,6E;1,1,74\n1,1,66;1,1,72;1,1,65;1,1,65\n1,1,70;1,1,72;1,1,65;1,1,63;1,1,69;1,1,73;1,1,69;1,1,6F;1,1,6E\n1,1,73;1,1,65;1,1,74;1,1,73;1,1,65;1,1,70\n1,1,69;1,1,6E;1,1,74\n1,1,66;1,1,72;1,1,61;1,1,63\n1,1,61;1,1,62;1,1,73\n1,1,6E;1,1,65;1,1,67\n1,1,72;1,1,6F;1,1,75;1,1,6E;1,1,64\n1,1,74;1,1,79;1,1,70;1,1,65\n1,1,6C;1,1,65;1,1,6E\n1,1,63;1,1,6F;1,1,75;1,1,6E;1,1,74\n1,1,64;1,1,63;1,1,6F;1,1,75;1,1,6E;1,1,74\n1,1,66;1,1,69;1,1,65;1,1,6C;1,1,64\n1,1,69;1,1,6E;1,1,64;1,1,65;1,1,78\n1,1,73;1,1,65;1,1,61;1,1,72;1,1,63;1,1,68\n1,1,63;1,1,68;1,1,61;1,1,6E;1,1,67;1,1,65\n1,1,66;1,1,6F;1,1,72;1,1,6D;1,1,61;1,1,74\n1,1,69;1,1,6E;1,1,73;1,1,65;1,1,72;1,1,74\n1,1,72;1,1,65;1,1,6D;1,1,6F;1,1,76;1,1,65\n1,1,74;1,1,6F;1,1,6E;1,1,75;1,1,6D\n1,1,74;1,1,6F;1,1,73;1,1,74;1,1,72;1,1,69;1,1,6E;1,1,67\n1,1,3D\n1,1,23\n1,1,3E\n1,1,3C\n1,1,3E;1,1,3D\n1,1,3C;1,1,3D\n1,1,61;1,1,6E;1,1,64\n1,1,6F;1,1,72\n1,1,6E;1,1,6F;1,1,74\n1,1,28\n1,1,29\n1,1,7B\n1,1,7D\n1,1,5B\n1,1,5D\n1,1,21\n1,1,3F\n1,1,22;0,765,20-21:23-EF;1,1,22\n1,1,27;0,765,20-26:28-EF;1,1,27\n1,1,61-7A:41-5A;0,23,61-7A:41-5A:30-39\n1,1,40;1,-1,61-7A\n1,13,30-39;1,1,2E;0,5,30-39\n1,13,30-39\n1,1,2D\n1,1,2B\n1,1,2A\n1,1,2F\n1,1,5C\n1,1,25\n1,1,3A\n1,1,2C\n1,1,2E\n1,1,26\n1,1,00-FF";
lzw.h
-54
View File
@@ -1,54 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include "langage.h"
#include "dynamic.h"
/*
tester avec alloc (size 20) !! TODO
*/
enum {
MAX_ENTRY = 3838, // 4096 - 258
SIZE_ENTRY = (124 + sizeof(int)) // TODO : voir la meilleure taille 91 sur fichier binaire de 130 Ko... !!! tester avec 20...
};
typedef struct {
octet Dict[MAX_ENTRY * SIZE_ENTRY]; // dictionnaire en cours
int posDict; // prochaine entree a ecrire dans le dictionnaire
pointeur Alloc[MAX_ENTRY]; // pointeurs des blocs alloues en dehors des entry (car trop grand)
int allocEntry; // nb blocs alloue en dehors des entry (car trop grand)
var code; // de type dynamic, contient le code/decode en cours
var w; // de type dynamic, contient la chaine en cours d'analyse
long prec; // dernier code trouve dans le dict
long bits; // nb de bits en cours (codage/decodage)
long reste; // bits restant a traiter lors du decodage (nb bits dans pe->code.mInternal)
} modContextLzw;
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
WAPIDECL void initLzw(env * e, modContextLzw * cl);
WAPIDECL void freeLzw(env * e, modContextLzw * cl);
WAPIDECL long setLzw(env * e, var * clair, modContextLzw * cl, int type);
WAPIDECL long getLzw(env * e, var * comp, modContextLzw * cl, int type);
lzwMod.c
+270 -24
View File
@@ -2,7 +2,7 @@
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
\/ \/ Copyright 2024 lanisys.fr
This file is part of W language.
@@ -28,12 +28,16 @@
#include "langage.h"
#include "dynamic.h"
#include "lzw.h"
typedef struct {
int error; // dernier code erreur specifique au module
//*** a completer selon le besoin du module
modContextLzw cl;
var dict; // de type dynamic, dictionnaire en cours
var code; // de type dynamic, contient le code/decode en cours
var w; // de type dynamic, contient la chaine en cours d'analyse
long prec; // dernier code trouve dans le dict
long posDict;// position en cours du code dans dict + 256 (dernier)
long bits; // nb de bits en cours (codage/decodage)
long reste; // bits restant a traiter lors du decodage (nb bits dans pe->code.mInternal)
} modEtat;
/* mettre ici les codes d'erreurs specifiques au module */
@@ -47,12 +51,16 @@ static int setError(modEtat * p, int err)
return err == OK ? OK : EX_MODERR;
}
#ifdef WINLIB
long set(env * e, var * clair, modEtat * pe, int type);
long get(env * e, var * code, modEtat * pe, int type);
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
#else
extern long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
#endif
{
/* TODO : gestion des 3 parametres (au lieu d'un seul) */
modEtat * p_etat;
@@ -68,7 +76,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -79,26 +87,24 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
p_etat = (modEtat *)(*etat);
p_etat->error = 0;
//*** code specifique ici
initLzw(e, &p_etat->cl);
//dynInit(e, &p_etat->dict, 4096);
//dynInit(e, &p_etat->code, 4096);
//dynInit(e, &p_etat->w, 256);
dynInit(e, &p_etat->dict, 4096);
dynInit(e, &p_etat->code, 4096);
dynInit(e, &p_etat->w, 256);
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
// liberation specifique au module avant arret process
if(p_etat != NULL)
{
freeLzw(e, &p_etat->cl);
//dynFree(e, &p_etat->dict);
//dynFree(e, &p_etat->code);
//dynFree(e, &p_etat->w);
//*** FIN du code specifique ici
memfree(e, p_etat);
//*** code specifique ici
dynFree(e, &p_etat->dict);
dynFree(e, &p_etat->code);
dynFree(e, &p_etat->w);
}
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
// renvoie la version du module/plugins
if(param->type == VAR_DYNAMIC)
@@ -108,7 +114,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -122,7 +128,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "set", 3))
else if(strncmp(e->fn, "set", 3) == 0)
{
/* compression du clair de param, en une fois */
/* sinon utiliser : setinit, setnext, setend */
@@ -134,11 +140,11 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
if(param->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
exc = setError(p_etat, setLzw(e, param, &p_etat->cl, 0)); /* 0 : en une fois */
exc = setError(p_etat, set(e, param, p_etat, 0)); /* 0 : en une fois */
}
}
/* ============================================================================================= */
else if(modFnIs(e, "get", 3))
else if(strncmp(e->fn, "get", 3) == 0)
{
/* decompression du code de param, en une fois */
/* sinon utiliser getinit, getnext, getend */
@@ -150,7 +156,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
if(param->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
exc = setError(p_etat, getLzw(e, param, &p_etat->cl, 0)); /* 0 : en une fois */
exc = setError(p_etat, get(e, param, p_etat, 0)); /* 0 : en une fois */
}
}
/* ============================================================================================= */
@@ -168,3 +174,243 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
return exc;
}
/* **************************************************************************************************** */
void ecrireCode(env * e, modEtat * pe, long num)
{
long b = pe->bits; /* nb bits a ecrire */
/* ecrire dans pe->code le numero num selon pe->bits (9 10 11 12) */
/* il y a entre 1 et 3 octets a ecrire dans pe->code */
if(pe->code.mInternal > 0)
{
/* finir de remplir le dernier octet de pe->code : de 1 a 7 bits */
b -= pe->code.mInternal;
pe->code.ptr[pe->code.mLg - 1] |= (num >> b); /* il reste b bits a ecrire maintenant */
}
dynCtrl(e, &pe->code, pe->code.mLg + (b > 8 ? 2 : 1), 1); /* tester code retour ? */
if(b > 7)
{
/* ecrire un octet complet */
b -= 8;
pe->code.ptr[pe->code.mLg++] = (b ? (num >> b) : num) & 255;
}
if(b > 0)
{
/* ajouter les derniers bits */
b = 8 - b;
pe->code.ptr[pe->code.mLg++] = (num << b) & 255;
}
pe->code.mInternal = b; /* nb bits libres restant */
}
long set(env * e, var * clair, modEtat * pe, int type)
{
long pos;
/* codage lzw, type = 1 : premier appel, 2 : appel suivant, 3 : dernier appel, type = 0 : un seul appel pour tout */
if(type == 1 || type == 0)
{
/* initialisations */
dynSetLen(e, &pe->dict, 0);
dynSetLen(e, &pe->code, 0);
pe->code.mInternal = 0; /* nb de bits libres dans le dernier octet utilise de pe->code */
dynLet(e, &pe->w, sFM, 1); /* pour simplifier le concat plus loin */
pe->prec = -1;
pe->posDict = 258;
pe->bits = 9;
}
long lg_clair = clair->mLg;
unsigned char c;
char h[3] = {0}; /* c, en faux-hexa de a=0 jusqu'a p=15 (codes ascii 97 a 112) */
unsigned char * pclair = clair->ptr; /* ptr en unsigned */
while(lg_clair--)
{
c = *pclair++;
h[0] = (c / 16) + 97;
h[1] = (c % 16) + 97;
dynConcatSz(e, &pe->w, h, 2);
/* */
if(pe->w.mLg == 3)
{
/* code simple : trouve */
pe->prec = (long)c;
}
else if((pos = dynLocateSz(e, &pe->dict, pe->w.mPtr + 1, cFM, DYN_NONE, DYN_NONE)) > 0) /* ne pas chercher le FM en debut de w */
{
/* code compose trouve */
pe->prec = pos + 256;
}
else
{
/* pas trouve */
/* 1. ecriture de pe->prec dans pe->code */
ecrireCode(e, pe, pe->prec);
/* 2. ajout de w au dict */
dynConcat(e, &pe->dict, &pe->w);
/* 3. gestion changement bits */
if(pe->posDict == 511 || pe->posDict == 1023 || pe->posDict == 2047)
pe->bits++; /* passage a 10,11,12 bits */
if(pe->posDict == 4095)
{
/* 3.1 ecrire 256 (raz bits) */
ecrireCode(e, pe, 256);
/* 3.2 raz dict */
dynSetLen(e, &pe->dict, 0);
pe->posDict = 258;
pe->bits = 9;
}
else
pe->posDict++;
/* 4. w = c */
dynLet(e, &pe->w, sFM, 1);
dynConcatSz(e, &pe->w, h, 2);
pe->prec = (long)c;
}
}
if(type == 3 || type == 0)
{
/* ecrire pe->prec (dernier code en cours) */
if(pe->prec > -1)
ecrireCode(e, pe, pe->prec);
/* ecrire 257 */
ecrireCode(e, pe, 257);
/* copie du resultat dans le parametre en sortie */
dynLet(e, clair, pe->code.mPtr, pe->code.mLg);
}
/* */
return OK;
}
/* - - - - - - - - - - - - - - - - - - - - - - - - - */
long get(env * e, var * comp, modEtat * pe, int type)
{
long v; /* code en cours de decodage */
unsigned char * p;
long masque[8] = {0, 1, 3, 7, 15, 31, 63, 127};
/* decodage lzw, type = 1 : premier appel, 2 : appel suivant, 3 : dernier appel, type = 0 : un seul appel pour tout */
if(type == 1 || type == 0)
{
/* initialisations */
dynSetLen(e, &pe->dict, 0);
dynSetLen(e, &pe->code, 0);
pe->code.mInternal = 0; /* nb bits restant en entree, a traiter (contenu dans pe->reste) */
pe->reste = 0;
dynSetLen(e, &pe->w, 0);
pe->prec = -1;
pe->posDict = 258;
pe->bits = 9;
}
long lg_comp = comp->mLg, lg;
char h[3] = {0};
unsigned char c;
unsigned char * pcomp = comp->ptr; /* ptr en unsigned */
while(lg_comp--)
{
/* lire les bits pour trouver le prochain code */
c = *pcomp++;
/* */
pe->reste = (pe->reste << 8) | c;
pe->code.mInternal += 8;
if(pe->code.mInternal < pe->bits)
continue;
pe->code.mInternal -= pe->bits; /* maxi 7 bits restants */
if(pe->code.mInternal == 0)
v = pe->reste;
else
v = pe->reste >> pe->code.mInternal;
pe->reste &= masque[pe->code.mInternal];
/* */
if(v == 256)
{
/* raz dict */
dynSetLen(e, &pe->dict, 0);
pe->posDict = 258;
pe->bits = 9;
pe->prec = -1;
continue;
}
if(v == 257)
break;
/* v est-il dans le dictionnaire ? */
if(v < pe->posDict)
{
/* *** oui *** */
/* ecrire dans le clair (pe->code) le dict[v] */
if(v < 256)
{
dynCtrl(e, &pe->code, pe->code.mLg + 1, 1);
pe->code.ptr[pe->code.mLg++] = (unsigned char)v;
h[0] = (v / 16) + 97;
h[1] = (v % 16) + 97;
}
else
{
dynField(e, &pe->dict, &pe->w, v - 256, DYN_NONE, cFM, DYN_NONE, 1);
/* w contient le clair en faux-hexa : a=0 jusqu'a p=15 (codes ascii 97 a 112) */
dynCtrl(e, &pe->code, pe->code.mLg + pe->w.mLg / 2, 1);
for(p = pe->w.ptr, lg = pe->w.mLg; lg > 0; p += 2, lg -= 2)
pe->code.ptr[pe->code.mLg++] = ((*p) << 4) + (*(p + 1)) - 1649; /* optimisation de : (*p - 97) * 16 + (*(p + 1)) - 97; */
/* garder en memoire le premier caractere du dict (h) */
h[0] = pe->w.mPtr[0];
h[1] = pe->w.mPtr[1];
dynSetLen(e, &pe->w, 2);
}
if(pe->prec != -1)
{
/* recup dict<pe->prec> dans w */
if(pe->prec < 256)
{
pe->w.ptr[0] = (pe->prec / 16) + 97;
pe->w.ptr[1] = (pe->prec % 16) + 97;
dynSetLen(e, &pe->w, 2);
}
else
dynField(e, &pe->dict, &pe->w, pe->prec - 256, DYN_NONE, cFM, DYN_NONE, 1);
/* ajout premier car du dict<v> (h) */
dynConcatSz(e, &pe->w, h, 2);
/* ecrire le nouveau dict */
dynConcatSz(e, &pe->dict, sFM, 1);
dynConcat(e, &pe->dict, &pe->w);
pe->posDict++;
if(pe->posDict == 511 || pe->posDict == 1023 || pe->posDict == 2047)
pe->bits++; /* bug passage a 10,11,12 bits */
}
}
else
{
/* *** non *** */
/* recup dict<pe->prec> dans w (ici, pe->prec ne peut pas etre a -1) */
if(pe->prec < 256)
{
pe->w.ptr[0] = (pe->prec / 16) + 97;
pe->w.ptr[1] = (pe->prec % 16) + 97;
dynSetLen(e, &pe->w, 2);
}
else
dynField(e, &pe->dict, &pe->w, pe->prec - 256, DYN_NONE, cFM, DYN_NONE, 1);
/* ajout premier car du dict<pe->prec> (w) a sa fin elle meme (w) */
h[0] = pe->w.mPtr[0];
h[1] = pe->w.mPtr[1];
dynConcatSz(e, &pe->w, h, 2);
/* ecrire w dans le clair, w contient le clair en faux-hexa : a=0 jusqu'a p=15 (codes ascii 97 a 112) */
dynCtrl(e, &pe->code, pe->code.mLg + pe->w.mLg / 2, 1);
for(p = pe->w.ptr, lg = pe->w.mLg; lg > 0; p += 2, lg -= 2)
pe->code.ptr[pe->code.mLg++] = ((*p) << 4) + (*(p + 1)) - 1649; /* optimisation de : (*p - 97) * 16 + (*(p + 1)) - 97; */
/* ecrire le nouveau dict */
dynConcatSz(e, &pe->dict, sFM, 1);
dynConcat(e, &pe->dict, &pe->w);
pe->posDict++;
if(pe->posDict == 511 || pe->posDict == 1023 || pe->posDict == 2047)
pe->bits++; /* bug : passage a 10,11,12 bits */
}
pe->prec = v;
}
/* */
if(type == 3 || type == 0)
{
/* traiter les bits restant (y-en-a-t-il ?) => a priori, tout a deja ete traite avant... */
/* copie du resultat dans le parametre en sortie */
dynLet(e, comp, pe->code.mPtr, pe->code.mLg);
}
/* */
return OK;
}
lzw_lib.c
-373
View File
@@ -1,373 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include "lzw.h"
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
/* ***** PRIVATE *************** */
static void InitDict(env * e, modContextLzw * cl)
{
cl->posDict = 0; // prochaine entree
// pour chaque entree, liberer tout bloc alloue (quand lg < 0 de l'entree)
for(int alloc = 0; alloc < cl->allocEntry ; alloc++)
memfree(e, cl->Alloc[alloc]);
cl->allocEntry = 0;
}
static int SearchDictEntry(env * e, modContextLzw * cl, pointeur valeur, int lg)
{
// Dict => 0-255 : idem ; 256 : EOF ; 257 : RAZ nb bits ; 258-4095 : entrees
if(lg <= 1)
return *valeur;
pointeur pDict = cl->Dict;
for(int entry = 0; entry < cl->posDict; entry++, pDict += SIZE_ENTRY)
if(lg == *(int *)(pDict))
{
if(memcmp(valeur, pDict + sizeof(int), lg) == 0)
return entry + 258;
}
else if(-lg == *(int *)(pDict))
{
// bloc alloue en dehors de l'entry (trop grand)
if(memcmp(valeur, *(pointeur *)(pDict + sizeof(int)), lg) == 0)
return entry + 258;
}
return -1; // non trouve
}
static pointeur GetDictEntry(env * e, modContextLzw * cl, int entry, int * lg)
{
entry -= 258;
if(entry < 0 || entry >= cl->posDict)
return NULL;
pointeur pDict = cl->Dict + entry * SIZE_ENTRY;
if((*lg = *(int *)(pDict)) > 0)
return pDict + sizeof(int);
else
{
*lg = abs(*lg);
return *(pointeur *)(pDict + sizeof(int));
}
}
static int AddDictEntry(env * e, modContextLzw * cl, pointeur valeur, int lg)
{
if(cl->posDict < MAX_ENTRY && lg > 0)
{
if(lg <= SIZE_ENTRY - sizeof(int))
{
pointeur pDict = cl->Dict + cl->posDict * SIZE_ENTRY;
*(int *)pDict = lg;
memcpy(pDict + sizeof(int), valeur, lg);
cl->posDict++;
return 1; // TRUE : ok
}
else
{
// mettre la longueur en negatif et allouer un bloc de la bonne taille
pointeur alloc = memalloc(e, lg);
if(alloc)
{
cl->Alloc[cl->allocEntry++] = alloc;
//
pointeur pDict = cl->Dict + cl->posDict * SIZE_ENTRY;
*(int *)pDict = -lg;
*(pointeur *)(pDict + sizeof(int)) = alloc;
memcpy(alloc, valeur, lg);
cl->posDict++;
return 1;
}
else
return 0;
}
}
else
return 0;
}
static void ecrireCode(env * e, modContextLzw * cl, long num)
{
long b = cl->bits; /* nb bits a ecrire */
/* ecrire dans cl->code le numero num selon cl->bits (9 10 11 12) */
/* il y a entre 1 et 3 octets a ecrire dans cl->code */
if(cl->code.mInternal > 0)
{
/* finir de remplir le dernier octet de cl->code : de 1 a 7 bits */
b -= cl->code.mInternal;
cl->code.ptr[cl->code.mLg - 1] |= (num >> b); /* il reste b bits a ecrire maintenant */
}
dynCtrl(e, &cl->code, cl->code.mLg + (b > 8 ? 2 : 1), 1); /* tester code retour ? */
if(b > 7)
{
/* ecrire un octet complet */
b -= 8;
cl->code.ptr[cl->code.mLg++] = (b ? (num >> b) : num) & 255;
}
if(b > 0)
{
/* ajouter les derniers bits */
b = 8 - b;
cl->code.ptr[cl->code.mLg++] = (num << b) & 255;
}
cl->code.mInternal = b; /* nb bits libres restant */
}
/* ***** PUBLIC *************** */
WAPIDECL void initLzw(env * e, modContextLzw * cl)
{
cl->allocEntry = 0;
dynInit(e, &cl->code, 4096);
dynInit(e, &cl->w, 256);
}
WAPIDECL void freeLzw(env * e, modContextLzw * cl)
{
dynFree(e, &cl->code);
dynFree(e, &cl->w);
}
WAPIDECL long setLzw(env * e, var * clair, modContextLzw * cl, int type)
{
/* codage lzw, type = 1 : premier appel, 2 : appel suivant, 3 : dernier appel, type = 0 : un seul appel pour tout */
if(type == 1 || type == 0)
{
/* initialisations */
InitDict(e, cl);
dynSetLen(e, &cl->code, 0);
cl->code.mInternal = 0; /* nb de bits libres dans le dernier octet utilise de pe.le->code */
dynSetLen(e, &cl->w, 0);
cl->prec = -1;
cl->bits = 9;
}
long pos, lg_clair = clair->mLg;
unsigned char c[2], * pclair = clair->ptr; /* ptr en unsigned */
c[1] = 0;
while(lg_clair--)
{
c[0] = *pclair++;
dynConcatSz(e, &cl->w, (char *)c, 1);
/* */
if(cl->w.mLg == 1)
{
/* code simple : trouve */
cl->prec = c[0];
}
else if((pos = SearchDictEntry(e, cl, (pointeur)cl->w.mPtr, cl->w.mLg)) > -1)
{
/* code compose trouve */
cl->prec = pos;
}
else
{
/* pas trouve */
/* 1. ecriture de cl->prec dans cl->code */
ecrireCode(e, cl, cl->prec);
/* 2. ajout de w au dict */
AddDictEntry(e, cl, (pointeur)cl->w.mPtr, cl->w.mLg);
/* 3. gestion changement bits */
if(cl->posDict == 512 - 258 || cl->posDict == 1024 - 258 || cl->posDict == 2048 - 258)
cl->bits++; /* passage a 10,11,12 bits */
if(cl->posDict == 4096 - 258)
{
/* 3.1 ecrire 256 (raz bits) */
ecrireCode(e, cl, 256);
/* 3.2 raz dict */
InitDict(e, cl);
cl->bits = 9;
}
/* 4. w = c */
*cl->w.ptr = c[0];
dynSetLen(e, &cl->w, 1);
cl->prec = c[0];
}
}
if(type == 3 || type == 0)
{
/* ecrire cl->prec (dernier code en cours) */
if(cl->prec > -1)
ecrireCode(e, cl, cl->prec);
/* ecrire 257 */
ecrireCode(e, cl, 257);
/* copie du resultat dans le parametre en sortie */
dynLet(e, clair, cl->code.mPtr, cl->code.mLg);
InitDict(e, cl);
}
/* */
return OK;
}
/* - - - - - - - - - - - - - - - - - - - - - - - - - */
WAPIDECL long getLzw(env * e, var * comp, modContextLzw * cl, int type)
{
long v; /* code en cours de decodage */
long masque[8] = {0, 1, 3, 7, 15, 31, 63, 127};
/* decodage lzw, type = 1 : premier appel, 2 : appel suivant, 3 : dernier appel, type = 0 : un seul appel pour tout */
if(type == 1 || type == 0)
{
/* initialisations */
InitDict(e, cl);
dynSetLen(e, &cl->code, 0);
cl->code.mInternal = 0; /* nb bits restant en entree, a traiter (contenu dans cl->reste) */
cl->reste = 0;
dynSetLen(e, &cl->w, 0);
cl->prec = -1;
cl->bits = 9;
}
long lg_comp = comp->mLg;
int lg;
unsigned char c, h[2];
unsigned char * pcomp = comp->ptr; /* ptr en unsigned */
pointeur pEntry;
h[1] = 0;
while(lg_comp--)
{
/* lire les bits pour trouver le prochain code */
c = *pcomp++;
/* */
cl->reste = (cl->reste << 8) | c;
cl->code.mInternal += 8;
if(cl->code.mInternal < cl->bits)
continue;
cl->code.mInternal -= cl->bits; /* maxi 7 bits restants */
if(cl->code.mInternal == 0)
v = cl->reste;
else
v = cl->reste >> cl->code.mInternal;
cl->reste &= masque[cl->code.mInternal];
/* */
if(v == 256)
{
/* raz dict */
InitDict(e, cl);
cl->bits = 9;
cl->prec = -1;
continue;
}
if(v == 257)
break;
/* v est-il dans le dictionnaire ? */
if(v - 258 < cl->posDict)
{
/* *** oui *** */
/* ecrire dans le clair (cl->code) le dict[v] */
if(v < 256)
{
h[0] = v;
dynConcatSz(e, &cl->code, (char *)h, 1);
}
else
{
pEntry = GetDictEntry(e, cl, v, &lg);
//dynField(e, &pe->dict, &pe->w, v - 256, DYN_NONE, cFM, DYN_NONE, 1);
/* w contient le clair en faux-hexa : a=0 jusqu'a p=15 (codes ascii 97 a 112) */
//dynCtrl(e, &pe->code, pe->code.mLg + pe->w.mLg / 2, 1);
//for(p = pe->w.ptr, lg = pe->w.mLg; lg > 0; p += 2, lg -= 2)
// pe->code.ptr[pe->code.mLg++] = ((*p) << 4) + (*(p + 1)) - 1649; /* optimisation de : (*p - 97) * 16 + (*(p + 1)) - 97; */
dynConcatSz(e, &cl->code, (char *)pEntry, lg);
/* garder en memoire le premier caractere du dict (h) */
h[0] = *pEntry;
*cl->w.mPtr = *pEntry; // utilite ? a mettre en commentaire
dynSetLen(e, &cl->w, 1); // utilite ? a mettre en commentaire
}
if(cl->prec != -1)
{
/* recup dict<cl->prec> dans w */
if(cl->prec < 256)
{
*cl->w.mPtr = cl->prec;
dynSetLen(e, &cl->w, 1);
}
else
{
//dynField(e, &pe->dict, &pe->w, pe->prec - 256, DYN_NONE, cFM, DYN_NONE, 1);
pEntry = GetDictEntry(e, cl, cl->prec, &lg);
dynLet(e, &cl->w, (char *)pEntry, lg);
}
/* ajout premier car du dict<v> (h) */
dynConcatSz(e, &cl->w, (char *)h, 1);
/* ecrire le nouveau dict */
AddDictEntry(e, cl, (pointeur)cl->w.mPtr, cl->w.mLg);
//dynConcatSz(e, &pe->dict, sFM, 1);
//dynConcat(e, &pe->dict, &pe->w);
//cl->posDict++;
if(cl->posDict == 511 - 258 || cl->posDict == 1023 - 258 || cl->posDict == 2047 - 258)
cl->bits++;
}
}
else
{
/* *** non *** */
/* recup dict<cl->prec> dans w (ici, cl->prec ne peut pas etre a -1) */
if(cl->prec < 256)
{
*cl->w.mPtr = cl->prec;
dynSetLen(e, &cl->w, 1);
}
else
{
//dynField(e, &pe->dict, &pe->w, pe->prec - 256, DYN_NONE, cFM, DYN_NONE, 1);
pEntry = GetDictEntry(e, cl, cl->prec, &lg);
dynLet(e, &cl->w, (char *)pEntry, lg);
}
/* ajout premier car du dict<cl->prec> (w) a sa fin elle meme (w) */
h[0] = *cl->w.mPtr;
//h[1] = pe->w.mPtr[1];
dynConcatSz(e, &cl->w,(char *) h, 1);
/* ecrire w dans le clair, w contient le clair en faux-hexa : a=0 jusqu'a p=15 (codes ascii 97 a 112) */
//dynCtrl(e, &pe->code, pe->code.mLg + pe->w.mLg / 2, 1);
//for(p = pe->w.ptr, lg = pe->w.mLg; lg > 0; p += 2, lg -= 2)
// pe->code.ptr[pe->code.mLg++] = ((*p) << 4) + (*(p + 1)) - 1649; /* optimisation de : (*p - 97) * 16 + (*(p + 1)) - 97; */
dynConcatSz(e, &cl->code, cl->w.mPtr, cl->w.mLg);
/* ecrire le nouveau dict */
AddDictEntry(e, cl, (pointeur)cl->w.mPtr, cl->w.mLg);
//dynConcatSz(e, &pe->dict, sFM, 1);
//dynConcat(e, &pe->dict, &pe->w);
//cl->posDict++;
if(cl->posDict == 511 - 258 || cl->posDict == 1023 - 258 || cl->posDict == 2047 - 258)
cl->bits++;
}
cl->prec = v;
}
/* */
if(type == 3 || type == 0)
{
/* traiter les bits restant (y-en-a-t-il ?) => a priori, tout a deja ete traite avant... */
/* copie du resultat dans le parametre en sortie */
dynLet(e, comp, cl->code.mPtr, cl->code.mLg);
InitDict(e, cl);
}
/* */
return OK;
}
modeleMod.c
+5 -11
View File
@@ -44,12 +44,6 @@ static int setError(modEtat * p, int err)
return EX_MODERR;
}
#ifndef UNIX
#define WLIBDECL __declspec(dllexport)
#else
#define WLIBDECL
#endif
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
@@ -80,7 +74,7 @@ extern long execModule(env * e, var * param1, var * param2, var * param3, void *
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -94,7 +88,7 @@ extern long execModule(env * e, var * param1, var * param2, var * param3, void *
//
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
//*** code specifique ici
//
@@ -102,7 +96,7 @@ extern long execModule(env * e, var * param1, var * param2, var * param3, void *
if(p_etat != NULL)
memfree(e, p_etat);
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
if(param1 == NULL)
exc = EX_MODPARAM;
@@ -117,7 +111,7 @@ extern long execModule(env * e, var * param1, var * param2, var * param3, void *
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -133,7 +127,7 @@ extern long execModule(env * e, var * param1, var * param2, var * param3, void *
}
}
/* ============================================================================================= */
else if(modFnIs(e, "xxx", 3))
else if(strncmp(e->fn, "xxx", 3) == 0)
{
//*** coder les autres fonctions ici de la meme maniere, au a mettre au debut !
exc = setError(p_etat, EXMOD_xxx);
pdf.h
-89
View File
@@ -1,89 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include "lzw.h"
/* ******* constantes ********** */
enum {
PDFFMT_A4P = 1, /* A4 portrait */
PDFFMT_A4L = 2, /* A4 paysage ("landscape") */
PDFFMT_A3P = 3, /* A3 portrait */
PDFFMT_A3L = 4, /* A3 paysage */
PDFFONT_COURIER = 1,
PDFFONT_COURIER_BOLD = 2,
PDFFONT_COURIER_BOLDOBLIQUE = 3,
PDFFONT_COURIER_OBLIQUE = 4,
PDFFONT_HELVETICA = 5,
PDFFONT_HELVETICA_BOLD = 6,
PDFFONT_HELVETICA_BOLDOBLIQUE = 7,
PDFFONT_HELVETICA_OBLIQUE = 8,
PDFFONT_TIMES_ROMAN = 9,
PDFFONT_TIMES_BOLD = 10,
PDFFONT_TIMES_ITALIC = 11,
PDFFONT_TIMES_BOLDITALIC = 12,
PDFFONT_SYMBOL = 13,
PDFFONT_ZAPFDINGBATS = 14,
PDFFONT_NB = 14
};
/* ***** MACRO ****/
#define RGB(r,g,b) (((((r&255)<<8)+(g&255))<<8)+(b&255))
typedef struct
{
Dynamic mPdf; /* PDF en cours de constitution */
Dynamic mPage; /* page en cours */
Dynamic mXref; /* liste des xref du PDF en cours (<1> contient le titre et les dimensions des images) */
Dynamic mImg; /* images en FM, en hexa, BMP 24/32 bpp uniquement (codage RGB) */
long mNbPage; /* nb de pages total du PDF */
long mFormat; /* A4 ou A3 et Paysage ou portrait */
long mLarg, mHaut; /* largeur/hauteur de la page en (mm x 10), selon le format */
long mNbObj; /* pour xref */
long mNumPage; /* numero page en cours */
long mLmarg; /* marge gauche en mm x 10 */
long mRmarg; /* marge droite en mm x 10 */
long mHmarg; /* marge haute en mm x 10 */
long mBmarg; /* marge basse en mm x 10 */
long mDimFont; /* taille fonte */
long mDimFontCadre;
long mDimLig;
Dynamic mFont; /* nom des 14 fontes standards */
modContextLzw mCtxLzw; /* gestion compression page lzw */
Dynamic mTmp1, mTmp2, mTmp3; /* temporaire pour le traitement */
} modContextPdf;
WAPIDECL void initPdf(env * e, modContextPdf * ctxPdf);
WAPIDECL void freePdf(env * e, modContextPdf * ctxPdf);
WAPIDECL int newPdf(env * e, modContextPdf * ctxPdf, Dynamic * titre, long nb_page, long format, Dynamic * fonts);
WAPIDECL int endPdf(env * e, modContextPdf * ctxPdf);
WAPIDECL Dynamic * getPdf(env * e, modContextPdf * ctxPdf);
WAPIDECL int setPdfPage(env * e, modContextPdf * ctxPdf, int compression);
WAPIDECL int setPdfText(env * e, modContextPdf * ctxPdf, long x, long y, long w, long h, long font, long taille, long couleur, Dynamic * txt);
WAPIDECL int setPdfGraph(env * e, modContextPdf * ctxPdf, char type, long x, long y, long w, long h, long coul_trait, long coul_rempl, long epaisseur, long pointille);
WAPIDECL int setPdfImage(env * e, modContextPdf * ctxPdf, long x, long y, long img);
WAPIDECL int pdfDeleteImage(env * e, modContextPdf * ctxPdf, long img);
WAPIDECL int pdfLoadImageBmp(env * e, modContextPdf * ctxPdf, Dynamic * fichier);
WAPIDECL int pdfList(env * e, modContextPdf * ctxPdf, Dynamic * titre, Dynamic * lignes, long format);
pdfMod.c
-373
View File
@@ -1,373 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <string.h>
#include "langage.h"
#include "dynamic.h"
#include "var.h"
#include "hashtable.h"
#include "pdf.h"
typedef struct {
int error; // dernier code erreur specifique au module
//*** a completer selon le besoin du module
modContextPdf cp;
} modEtat;
/* mettre ici les codes d'erreurs specifiques au module */
/* codes a passer a la fonction setError */
#define EXMOD_xxx 1
static int setError(modEtat * p, int err)
{
if(p != NULL)
p->error = err;
return err == OK ? OK : EX_MODERR;
}
#ifdef WINLIB
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
{
modEtat * p_etat;
long exc = OK;
// init/end/vers/error sont obligatoires pour tout module
// - - - - - - - - - - - - - - - - - - - -
if(etat == NULL)
return EX_MODPARAM;
else
p_etat = (modEtat *)(*etat); /* evite de la faire a chaque fonction */
//
if(param1 != NULL)
if(param1->type == VAR_PARAM)
param1 = (var *)param1->ptr; /* evite de le faire a chaque fonction */
if(param2 != NULL)
if(param2->type == VAR_PARAM)
param2 = (var *)param2->ptr; /* evite de le faire a chaque fonction */
if(param3 != NULL)
if(param3->type == VAR_PARAM)
param3 = (var *)param3->ptr; /* evite de le faire a chaque fonction */
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
if(*etat == NULL)
exc = EX_MODETAT;
else
{
p_etat = (modEtat *)(*etat);
p_etat->error = 0;
//*** code specifique ici
initPdf(e, &p_etat->cp);
}
}
else if(modFnIs(e, "end", 3))
{
if(p_etat != NULL)
{
//*** code specifique ici
freePdf(e, &p_etat->cp);
// fin liberation specifique module avant arret process
memfree(e, p_etat);
}
}
else if(modFnIs(e, "vers", 4))
{
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else
{
// renvoie la version du module/plugins
if(param1->type == VAR_DYNAMIC)
dynLet(e, param1, "1", 1); //*** version en alpha
else if(param1->type == VAR_NUMBER)
param1->num = NUM_UN; //*** version en numerique
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
}
else if(modFnIs(e, "error", 5))
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else
{
if(param1->type == VAR_NUMBER)
param1->num = (ent64)(NUM_FACTEUR * p_etat->error);
else
exc = EX_MODPARAM; // bad type of parameter
}
}
/* ============================================================================================= */
else if(modFnIs(e, "beginDoc", 8))
{
// nouveau document pdf
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1->type != VAR_HASHTABLE)
exc = EX_MODPARAM;
else
{
// lire les infos necessaires a la creation d'un nouveau doc. pdf :
// titre, nb pages, format, fontes utilisees
var * titre, * fontes, * nbPage, * format;
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Titre"), &titre);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Fontes"), &fontes);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Pages"), &nbPage);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Format"), &format);
if(titre && fontes && nbPage && format)
{
if(titre->type == VAR_DYNAMIC && fontes->type == VAR_DYNAMIC && nbPage->type == VAR_NUMBER && format->type == VAR_NUMBER)
{
number nnbPage, nformat;
if( var_conv_num(e, nbPage, &nnbPage) && var_conv_num(e, format, &nformat) )
exc = setError(p_etat, ! newPdf(e, &p_etat->cp, titre, nnbPage / NUM_FACTEUR, nformat / NUM_FACTEUR, fontes));
else
exc = EX_MODPARAM;
}
else
exc = EX_MODPARAM;
}
else
exc = EX_MODPARAM;
}
}
/* ============================================================================================= */
else if(modFnIs(e, "endDoc", 6))
{
// finalise le document pdf, et renvoi le contenu dans param1
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else
{
int cr = endPdf(e, &p_etat->cp);
if(cr)
{
var_let(e, param1, getPdf(e, &p_etat->cp), FALSE, FALSE);
}
exc = setError(p_etat, ! cr);
}
}
/* ============================================================================================= */
else if(modFnIs(e, "addPage", 7))
{
if(p_etat == NULL)
exc = EX_MODETAT;
else
// ajouter la page en cours au doucment pdf
exc = setError(p_etat, ! setPdfPage(e, &p_etat->cp, 1)); // 1 = avec compression ; parametrer ?
}
/* ============================================================================================= */
else if(modFnIs(e, "addText", 7))
{
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else if(param2 == NULL)
exc = EX_MODPARAM;
else if(param1->type != VAR_HASHTABLE || param2->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
{
// ajouter le texte
var * x, * y, * w, * h; // cadre englobant
var * fonte, * taille, * couleur;
hashtable_do(e, HASH_READ, param1, copy_nom(e, "X"), &x);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Y"), &y);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "W"), &w);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "H"), &h);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Fonte"), &fonte);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Taille"), &taille);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Couleur"), &couleur);
if(x && y && w && h && fonte && taille && couleur)
{
number nx, ny, nw, nh, nfonte, ntaille, ncouleur;
if( var_conv_num(e, x, &nx) && var_conv_num(e, y, &ny) && var_conv_num(e, w, &nw) && var_conv_num(e, h, &nh) &&
var_conv_num(e, fonte, &nfonte) && var_conv_num(e, taille, &ntaille) && var_conv_num(e, couleur, &ncouleur) )
exc = setError(p_etat, ! setPdfText(e, &p_etat->cp, nx / NUM_FACTEUR, ny / NUM_FACTEUR, nw / NUM_FACTEUR, nh / NUM_FACTEUR,
nfonte / NUM_FACTEUR, ntaille / NUM_FACTEUR, ncouleur / NUM_FACTEUR, param2)); // param2 = texte
else
exc = EX_MODPARAM;
}
else
exc = EX_MODPARAM;
}
}
/* ============================================================================================= */
else if(modFnIs(e, "delImage", 8))
{
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else if(param1->type != VAR_NUMBER && param1->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
{
number indice;
if(var_conv_num(e, param1, &indice))
exc = setError(p_etat, ! pdfDeleteImage(e, &p_etat->cp, indice / NUM_FACTEUR));
else
exc = EX_MODPARAM;
}
}
/* ============================================================================================= */
else if(modFnIs(e, "addGraph", 8))
{
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else if(param1->type != VAR_HASHTABLE)
exc = EX_MODPARAM;
else
{
// ajouter l'element graphique
var * x, * y, * w, * h; // cadre englobant
var * couleurTrait, * couleurRemplissage, * epaisseur, * pointille, * type;
hashtable_do(e, HASH_READ, param1, copy_nom(e, "X"), &x);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Y"), &y);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "W"), &w);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "H"), &h);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "CouleurTrait"), &couleurTrait);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "CouleurRemplissage"), &couleurRemplissage);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "EpaisseurTrait"), &epaisseur);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Pointille"), &pointille);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Type"), &type);
if(x && y && w && h && couleurTrait && couleurRemplissage && epaisseur && pointille && type)
{
number nx, ny, nw, nh, ntrait, nrempl, nepais, npoint;
if( var_conv_num(e, x, &nx) && var_conv_num(e, y, &ny) && var_conv_num(e, w, &nw) && var_conv_num(e, h, &nh) &&
type->type == VAR_DYNAMIC && var_conv_num(e, couleurTrait, &ntrait) && var_conv_num(e, couleurRemplissage, &nrempl) &&
var_conv_num(e, epaisseur, &nepais) && var_conv_num(e, pointille, &npoint) )
exc = setError(p_etat, ! setPdfGraph(e, &p_etat->cp, *type->mPtr, nx / NUM_FACTEUR, ny / NUM_FACTEUR, nw / NUM_FACTEUR, nh / NUM_FACTEUR,
ntrait / NUM_FACTEUR, nrempl / NUM_FACTEUR, nepais / NUM_FACTEUR, npoint / NUM_FACTEUR));
else
exc = EX_MODPARAM;
}
else
exc = EX_MODPARAM;
}
}
/* ============================================================================================= */
else if(modFnIs(e, "addImage", 8))
{
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else if(param1->type != VAR_HASHTABLE)
exc = EX_MODPARAM;
else
{
// ajouter l'element graphique
var * x, * y, * img; // cadre englobant et n° image
hashtable_do(e, HASH_READ, param1, copy_nom(e, "X"), &x);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Y"), &y);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Image"), &img);
if(x && y && img)
{
number nx, ny, nimg;
if( var_conv_num(e, x, &nx) && var_conv_num(e, y, &ny) && var_conv_num(e, img, &nimg) )
exc = setError(p_etat, ! setPdfImage(e, &p_etat->cp, nx / NUM_FACTEUR, ny / NUM_FACTEUR, nimg / NUM_FACTEUR));
else
exc = EX_MODPARAM;
}
else
exc = EX_MODPARAM;
}
}
/* ============================================================================================= */
else if(modFnIs(e, "loadImage", 9))
{
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else if(param1->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
{
exc = setError(p_etat, ! pdfLoadImageBmp(e, &p_etat->cp, param1));
}
}
/* ============================================================================================= */
else if(modFnIs(e, "listing", 7))
{
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL || param2 == NULL)
exc = EX_MODPARAM;
else if(param1->type != VAR_HASHTABLE || param2->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
{
var * titre, * format;
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Titre"), &titre);
hashtable_do(e, HASH_READ, param1, copy_nom(e, "Format"), &format);
if(titre && format)
{
if(titre->type == VAR_DYNAMIC && format->type == VAR_NUMBER)
{
int cr = pdfList(e, &p_etat->cp, titre, param2, format->num / NUM_FACTEUR);
if(cr)
{
var_let(e, param2, getPdf(e, &p_etat->cp), FALSE, FALSE);
}
exc = setError(p_etat, ! cr);
}
else
exc = EX_MODPARAM;
}
else
exc = EX_MODPARAM;
}
}
/* ----------------------------------------------------------------------------------------------- */
else
{
setError(p_etat, 0); // evite un warning de compil
exc = EX_MODFUNC; // fonction non prise en charge
}
//
return exc;
}
pdf_lib.c
-750
View File
@@ -1,750 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include "pdf.h"
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
//
// creation fichier PDF
//
// structure fichier PDF :
// header - body - xref table - trailer
//
// header :
// %PDF-1.2 : version du fichier
//
// xref table :
// xref
// "no objet debut" "nb objet" --> no objet debut = 0 le plus souvent
// "offset R%10" "00000" n EOL (20 octets pile, autant que de nb objet ; utilise)
// "objet libre suiv R%10" "generation num R%5" f EOL (20 octets pile, autant que de nb objet ; libre)
// si pas d'objets libres, le zero est toujours libre (debut de la liste chainee : 0000000000 65535 f)
//
// trailer :
// trailer << "liste cle/valeur" >>
// startxref
// "offset xref-table"
// %%EOF
// cle/valeur obligatoires :
// /Size "nb xref" : nb d'objet dans la xref table --> = "nb objet" de xref
// /Root "N" 0 R : reference a l'objet de depart du fichier, numero "N" (sauf 0)
// facultatif /Info "N" 0 R --> liste des infos possibles dans l'objet "N" :
// N 0 R << /Producer (Nom du logiciel)
// /Title (Titre)
// /Author (Nom prenom)
// /Creator ()
// /Subject ()
// /Keywords ()
// /CreationDate (D:20120906140053) --> format des dates au passage ici
// >>
//
// body :
// contient la liste des objets, structure :
// catalog - page tree - liste des pages
//
// commentaires :
// % "bla bla bla .." jusqu'à la fin de la ligne
// dans un "stream" uniquement
//
// catalog :
// 1 0 obj << /Type /Catalog /Pages 2 0 R >> endobj
// Type et Pages sont obligatoires
//
// page tree :
// 2 0 obj << /Type /Pages /Count 3 /Kids [ 3 0 R 4 0 R 5 0 R ] >> end obj
// Type, Count et Kids sont obligatoires
//
// page :
// 3 0 obj << /Type /Page /Parent 2 0 R /MediaBox [ x1 y1 x2 y2 ]
// /Resources << "ressources de la page : police, etc." >>
// /Contents 6 0 R --> contenu de la page dans l'objet 6
// >> end obj
// Type et Parent sont obligatoires ; Resources et Contents sont heritables
//
// ressources :
// /Font << /F1 7 0 R >>
//
// contenu : objet 6
// 6 0 obj << /Length 123 >>
// stream
// ... "contenu : BT, etc. de longueur 123 octets" ...
// endstream
// endobj
//
// fonte no 1 :
// 7 0 obj << /Type /Font /Subtype /Type1 (ou "/TrueType" mais necessite plus d'infos)
// /Name F1 /BaseFont Helvetica (ou "Courier" "Times-Roman" "Helvetica-Bold" "Courier-Bold" "Times-Bold")
// >> endobj
//
// Coordonnees :
//
// y ^
// |
// |
// 0 +------> user space en 1/72 de pouce (=25.4mm)
// 0 x
// ex. A4 = 210x297 = 595x841 (mm a multiplier par 2.835) ; 1 cm = 28 user space ; 1 userspace = 0.35 mm)
// nb avec decimale possible : ex : 594.25, etc.
//
// zones de texte (dans un "stream") :
// BT --> debut texte
// /F13 12 Tf --> choix fonte 13 (cf. /Resources) en taille 12
// 288 720 Td --> positionnement x y
// (ABC) Tj --> texte a editer
// ET --> fin texte
//
// rectangle ("stream") :
// "x y w h" re S
// ligne :
// x1 y1 m x2 y2 l S
//
// Path clipping :
// utiliser l'opérateur "W n" pour définir une région de clipping (à mettre pour les zones texte)
//
// EXEMPLE (enlever les // de chaque debut de ligne...) -----------------------------------------------------------------------------
//
// %PDF-1.2
// 1 0 obj << /Type /Catalog /Pages 2 0 R >> endobj
// 2 0 obj << /Type /Pages /Count 1 /Kids [ 3 0 R ] >> end obj
// 3 0 obj << /Type /Page /Parent 2 0 R /MediaBox [ 0 0 595 841 ] /Resources << /Font << /F1 4 0 R >> >> /Contents 5 0 R >> end obj
// 4 0 obj << /Type /Font /Subtype /Type1 /Name /F1 /BaseFont /Courier >> endobj
// 5 0 obj << /Length 95 >>
// stream
// % Page 1
// 188 720 15 15 re W n
// BT
// /F1 10 Tf 188 720 Td (ABC) Tj
// ET
// 0 w
// 188 730 80 40 re S
// endstream
// endobj
// xref
// 0 6
// 0000000000 65535 f
// 0000000010 00000 n
// 0000000060 00000 n
// 0000000121 00000 n
// 0000000252 00000 n
// 0000000331 00000 n
// trailer
// << /Size 6 /Root 1 0 R >>
// startxref
// 481
// %%EOF
//
#include "stdio.h"
enum {
PDF_CONV1 = 72000,
PDF_CONV2 = 2540
};
/* valeur en dixieme de mm * CONV11 / CONV2 = valeur en unites pdf x 100 (72 dpi = 72 points par pouce ; 1 pouce = 25.4) */
/* PRIVATE *****************************************************/
static int pdfEchap(env * e, Dynamic * resultat, Dynamic * chaine)
{
char * p, * q, c;
long lg = chaine->mLg, nb = 0;
/* d'abord compter les caracteres a "echapper" */
p = chaine->mPtr;
while((c=*p++))
if(c == '(' || c == ')' || c == '\\')
nb++;
/* ensuite, preparer la chaine resultat (lg + nb) */
if(dynCtrl(e, resultat, lg + nb, FALSE))
return FALSE; // erreur memoire
/* enfin, recopier les caracteres et prefixer ( ) \ par \ */
p = chaine->mPtr;
q = resultat->mPtr;
while((c=*p++))
{
if(c == '(' || c == ')' || c == '\\')
*q++ = '\\';
*q++ = c;
}
dynSetLen(e, resultat, lg + nb);
return TRUE;
}
static int setXref(env * e, modContextPdf * ctxPdf)
{
/* calcule la taille actuelle du PDF (pour calcul offset) avec saut de ligne meme sur la derniere ligne */
return ! dynConcatSz(e, &ctxPdf->mXref, sFM, 1) && ! dynConcatSz(e, &ctxPdf->mXref, Int64ToSz(e, (ent64s)ctxPdf->mPdf.mLg, FALSE, 10), DYN_LGNONE); // verif leftpad ok (idem "%010ld") !! TODO !!
}
static char table100[400] = ".00\0.01\0.02\0.03\0.04\0.05\0.06\0.07\0.08\0.09\0"
".10\0.11\0.12\0.13\0.14\0.15\0.16\0.17\0.18\0.19\0"
".20\0.21\0.22\0.23\0.24\0.25\0.26\0.27\0.28\0.29\0"
".30\0.31\0.32\0.33\0.34\0.35\0.36\0.37\0.38\0.39\0"
".40\0.41\0.42\0.43\0.44\0.45\0.46\0.47\0.48\0.49\0"
".50\0.51\0.52\0.53\0.54\0.55\0.56\0.57\0.58\0.59\0"
".60\0.61\0.62\0.63\0.64\0.65\0.66\0.67\0.68\0.69\0"
".70\0.71\0.72\0.73\0.74\0.75\0.76\0.77\0.78\0.79\0"
".80\0.81\0.82\0.83\0.84\0.85\0.86\0.87\0.88\0.89\0"
".90\0.91\0.92\0.93\0.94\0.95\0.96\0.97\0.98\0.99\0";
static int fmt2(env * e, Dynamic * res, ent64s a, ent64s b)
{
int cr = TRUE;
ent64s r = a * PDF_CONV1 / PDF_CONV2;
cr = cr && !dynConcatSz(e, res, Int64ToSz(e, r / 100, TRUE, 0), DYN_LGNONE) && !dynConcatSz(e, res, &table100[(abs(r) % 100) * 4], 3) && !dynConcatSz(e, res, " ", 1);
r = b * PDF_CONV1 / PDF_CONV2;
cr = cr && !dynConcatSz(e, res, Int64ToSz(e, r / 100, TRUE, 0), DYN_LGNONE) && !dynConcatSz(e, res, &table100[(abs(r) % 100) * 4], 3);
return cr;
}
static int fmt4(env * e, Dynamic * res, ent64s a, ent64s b, ent64s c, ent64s d)
{
int cr = TRUE;
ent64s r = a * PDF_CONV1 / PDF_CONV2;
cr = cr && !dynConcatSz(e, res, Int64ToSz(e, r / 100, TRUE, DYN_NONE), DYN_LGNONE) && !dynConcatSz(e, res, &table100[(abs(r) % 100) * 4], 3) && !dynConcatSz(e, res, " ", 1);
r = b * PDF_CONV1 / PDF_CONV2;
cr = cr && !dynConcatSz(e, res, Int64ToSz(e, r / 100, TRUE, DYN_NONE), DYN_LGNONE) && !dynConcatSz(e, res, &table100[(abs(r) % 100) * 4], 3) && !dynConcatSz(e, res, " ", 1);
r = c * PDF_CONV1 / PDF_CONV2;
cr = cr && !dynConcatSz(e, res, Int64ToSz(e, r / 100, TRUE, DYN_NONE), DYN_LGNONE) && !dynConcatSz(e, res, &table100[(abs(r) % 100) * 4], 3) && !dynConcatSz(e, res, " ", 1);
r = d * PDF_CONV1 / PDF_CONV2;
cr = cr && !dynConcatSz(e, res, Int64ToSz(e, r / 100, TRUE, DYN_NONE), DYN_LGNONE) && !dynConcatSz(e, res, &table100[(abs(r) % 100) * 4], 3);
return cr;
}
static int fmtc(env * e, Dynamic * res, long coul)
{
int cr = TRUE;
/* utilise la var t pour renvoyer la couleur convertie en 9 9 9, avec 9 allant de 0 a 1 sur 2 decimales */
long r = (coul >> 16) & 255; // red
long g = (coul >> 8) & 255; // green
long b = coul & 255; // blue
cr = cr && !dynConcatSz(e, res, r == 255 ? "1" : "0", 1);
cr = cr && (r != 255 ? !dynConcatSz(e, res, &table100[((int)(r * 100 / 255)) * 4], 3) : TRUE);
cr = cr && !dynConcatSz(e, res, g == 255 ? " 1" : " 0", 2);
cr = cr && (g != 255 ? !dynConcatSz(e, res, &table100[((int)(g * 100 / 255)) * 4], 3) : TRUE);
cr = cr && !dynConcatSz(e, res, b == 255 ? " 1" : " 0", 2);
cr = cr && (b != 255 ? !dynConcatSz(e, res, &table100[((int)(b * 100 / 255)) * 4], 3) : TRUE);
/* */
return cr;
}
static void convertHexaRGBToBinLzw(env * e, modContextPdf * ctxPdf)
{
// ctxPdf->mTmp1 contient les donnees en entree, et ctxPdf->mTmp2 en sortie le lzw binaire
// conversion de mTmp1 RGB hexa en binaire dans mTmp2
dynSetLen(e, &ctxPdf->mTmp2, 0);
long i, nb = ctxPdf->mTmp1.mLg / 6; // RRGGBB = 6 octets
octet * p = ctxPdf->mTmp1.ptr;
char res[4] = {0};
for(i = 0; i < nb; i++, p += 6)
{
dynConvertCharHexaToChar(*p, *(p+1), res);
dynConvertCharHexaToChar(*(p+2), *(p+3), res + 1);
dynConvertCharHexaToChar(*(p+4), *(p+5), res + 2);
dynConcatSz(e, &ctxPdf->mTmp2, res, 3);
}
// compression lzw de e->mTmp2
setLzw(e, &ctxPdf->mTmp2, &ctxPdf->mCtxLzw, 0);
}
/* PUBLIC ************************************************************************/
WAPIDECL void initPdf(env * e, modContextPdf * ctxPdf)
{
ctxPdf->mLmarg = 100; /* dixieme de mm ( = 1 cm ici) */
ctxPdf->mRmarg = 100;
ctxPdf->mHmarg = 100;
ctxPdf->mBmarg = 100;
ctxPdf->mDimFont = 9;
ctxPdf->mDimFontCadre = 9;
ctxPdf->mDimLig = 9;
/* */
dynInit(e, &ctxPdf->mFont, 256);
dynInit(e, &ctxPdf->mTmp1, 1024);
dynInit(e, &ctxPdf->mTmp2, 1024);
dynInit(e, &ctxPdf->mTmp3, 1024);
dynInit(e, &ctxPdf->mPage, 4096);
dynInit(e, &ctxPdf->mPdf, 8192);
ctxPdf->mPdf.type = VAR_DYNAMIC;
dynInit(e, &ctxPdf->mXref, 1024);
dynInit(e, &ctxPdf->mImg, 2048);
/* nom des fontes standards */
dynLet(e, &ctxPdf->mFont, "Courier,Courier-Bold,Courier-BoldOblique,Courier-Oblique,Helvetica,Helvetica-Bold,Helvetica-BoldOblique,Helvetica-Oblique,"
"Times-Roman,Times-Bold,Times-Italic,Times-BoldItalic,Symbol,ZapfDingbats", DYN_LGNONE);
dynConvert(e, &ctxPdf->mFont, ",", sFM);
//
initLzw(e, &ctxPdf->mCtxLzw);
}
WAPIDECL void freePdf(env * e, modContextPdf * ctxPdf)
{
freeLzw(e, &ctxPdf->mCtxLzw);
/* */
dynFree(e, &ctxPdf->mFont);
dynFree(e, &ctxPdf->mTmp1);
dynFree(e, &ctxPdf->mTmp2);
dynFree(e, &ctxPdf->mTmp3);
dynFree(e, &ctxPdf->mPage);
dynFree(e, &ctxPdf->mPdf);
dynFree(e, &ctxPdf->mXref);
dynFree(e, &ctxPdf->mImg);
}
WAPIDECL int newPdf(env * e, modContextPdf * ctxPdf, Dynamic * titre, long nb_page, long format, Dynamic * fonts)
{
long i, j, cpt, nbp;
long nb_img, nb_obj_entete, nb_font, nb_obj_fixe = 3;
int cr = TRUE;
/* controles */
if(nb_page < 1)
return FALSE;
/* */
switch(format)
{
/* largeur et hauteur en unités mm x 10 ici */
case PDFFMT_A4P:
ctxPdf->mLarg = 2100;
ctxPdf->mHaut = 2970;
ctxPdf->mFormat = format;
break;
case PDFFMT_A4L:
ctxPdf->mLarg = 2970;
ctxPdf->mHaut = 2100;
ctxPdf->mFormat = format;
break;
case PDFFMT_A3P:
ctxPdf->mLarg = 2970;
ctxPdf->mHaut = 4200;
ctxPdf->mFormat = format;
break;
case PDFFMT_A3L:
ctxPdf->mLarg = 4200;
ctxPdf->mHaut = 2970;
ctxPdf->mFormat = format;
break;
default:
return FALSE;
}
ctxPdf->mNbPage = nb_page;
/* raz vars dynamiques */
dynSetLen(e, &ctxPdf->mPdf, 0);
dynSetLen(e, &ctxPdf->mPage, 0);
dynSetLen(e, &ctxPdf->mXref, 0);
/* */
cr = cr && pdfEchap(e, &ctxPdf->mTmp1, titre); // dans les chaines "echapper" ( ) \ avec \( \) \\ (seuls cas)
dynConcat(e, &ctxPdf->mXref, &ctxPdf->mTmp1); // xref<1> = titre
/* */
nb_font = dynDcount(e, fonts, cFM, DYN_NONE, DYN_NONE);
nb_img = dynDcount(e, &ctxPdf->mImg, cFM, DYN_NONE, DYN_NONE);
nb_obj_entete = nb_obj_fixe + nb_font + nb_img;
ctxPdf->mNbObj = nb_obj_entete + ctxPdf->mNbPage;
ctxPdf->mNumPage = 0;
//
dynLet(e, &ctxPdf->mPdf, "%PDF-1.2\r\n", DYN_LGNONE);
// objet racine root
setXref(e, ctxPdf);
dynConcatSz(e, &ctxPdf->mPdf, "1 0 obj << /Type /Catalog /Pages 3 0 R >> endobj\r\n", DYN_LGNONE);
setXref(e, ctxPdf);
// infos sur le pdf
dynConcatSz(e, &ctxPdf->mPdf, "2 0 obj << /Producer (WPDF) /Author (WPDF) /Title (", DYN_LGNONE);
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mTmp1); /* titre "echape" */
dynConcatSz(e, &ctxPdf->mPdf, ") /CreationDate (", DYN_LGNONE);
dynSetLen(e, &ctxPdf->mTmp1, 0); // empty => oconv will convert time of the day
dynOconv(e, &ctxPdf->mTmp1, &ctxPdf->mTmp2, "DYMDhms");
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mTmp2);
//dynConcatSz(e, &ctxPdf->mPdf, "20000101140000", DYN_LGNONE); // TODO date courante YMDhms dynOconv(e, ...) en TU
dynConcatSz(e, &ctxPdf->mPdf, ") >> endobj\r\n", DYN_LGNONE);
setXref(e, ctxPdf);
// liste des pages
cpt = nb_obj_entete;
dynConcatSz(e, &ctxPdf->mPdf,"3 0 obj << /Type /Pages /Count ", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ctxPdf->mNbPage, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf," /Kids [ ", DYN_LGNONE);
for(i = 1; i <= ctxPdf->mNbPage; i++)
{
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ++cpt, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " 0 R ", DYN_LGNONE);
}
dynConcatSz(e, &ctxPdf->mPdf,"] >> endobj\r\n", DYN_LGNONE);
/* liste des fontes, prendre celles utilisees */
cpt = nb_obj_fixe;
for(i = 1, nbp = 0; i <= PDFFONT_NB; i++)
{
dynField(e, &ctxPdf->mFont, &ctxPdf->mTmp1, i, DYN_NONE, cFM, DYN_NONE, 1);
if(dynLocateSz(e, fonts, ctxPdf->mTmp1.mPtr, cFM, DYN_NONE, DYN_NONE) > 0)
{
setXref(e, ctxPdf);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ++cpt, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " 0 obj << /Type /Font /Subtype /Type1 /Name /F", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ++nbp, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " /BaseFont /", DYN_LGNONE);
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPdf," /Encoding << /Type /Encoding /BaseEncoding /WinAnsiEncoding >> >> endobj\r\n", DYN_LGNONE);
}
}
/* liste des images */
for(i = 1; i <= nb_img; i++)
{
setXref(e, ctxPdf);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ++cpt, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " 0 obj << /Type /XObject /Subtype /Image /Width ", DYN_LGNONE);
/* ajout des coordonnes de l'image au format "w 0 0 h" de xref<1,2> a xref<1,1+nb_img> */
dynField(e, &ctxPdf->mImg, &ctxPdf->mTmp1, i, 1, cFM, cVM, 1); // vm1 = larg (w) VM2 = haut (h) VM3 = bitmap 32bpp hexa RGB
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mXref, sVM, DYN_LGNONE);
dynConcat(e, &ctxPdf->mXref, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPdf," /Height ", DYN_LGNONE);
dynField(e, &ctxPdf->mImg, &ctxPdf->mTmp1, i, 2, cFM, cVM, 1); // vm1 = larg (w) VM2 = haut (h) VM3 = bitmap 32bpp hexa RGB
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mXref, " 0 0 ", DYN_LGNONE);
dynConcat(e, &ctxPdf->mXref, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPdf," /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /LZWDecode /Length ", DYN_LGNONE); // TODO remplacer /ASCIIHexDecode par /LZWDecode
dynField(e, &ctxPdf->mImg, &ctxPdf->mTmp1, i, 3, cFM, cVM, 1); // vm1 = larg (w) VM2 = haut (h) VM3 = bitmap 32bpp hexa RGBRGBRGBRGB
convertHexaRGBToBinLzw(e, ctxPdf);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ctxPdf->mTmp2.mLg, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " >>\r\nstream\r\n", DYN_LGNONE);
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mTmp2);
//dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ctxPdf->mTmp1.mLg, FALSE, 0), DYN_LGNONE);
//dynConcatSz(e, &ctxPdf->mPdf, " >>\r\nstream\r\n", DYN_LGNONE);
//dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPdf,"\r\nendstream\r\nendobj\r\n", DYN_LGNONE);
}
/* definition de chaque page */
cpt = nb_obj_entete;
for(i = 1; i <= ctxPdf->mNbPage; i++)
{
setXref(e, ctxPdf);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ++cpt, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " 0 obj << /Type /Page /Parent 3 0 R /MediaBox [ 0 0 ", DYN_LGNONE);
fmt2(e, &ctxPdf->mPdf, ctxPdf->mLarg, ctxPdf->mHaut);
dynConcatSz(e, &ctxPdf->mPdf," ] /Resources << /Font << ", DYN_LGNONE);
for(j = 1; j <= nbp; j++)
{
dynConcatSz(e, &ctxPdf->mPdf, "/F", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, j, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " ", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, j + nb_obj_fixe, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " 0 R ", DYN_LGNONE);
}
dynConcatSz(e, &ctxPdf->mPdf, ">> ", DYN_LGNONE);
for(j = 1; j <= nb_img; j++)
{
if(j == 1)
dynConcatSz(e, &ctxPdf->mPdf, "/XObject << ", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, "/Img", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, j, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " ", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, j + nb_obj_fixe + nbp, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " 0 R", DYN_LGNONE);
if(j == nb_img)
dynConcatSz(e, &ctxPdf->mPdf, ">> ", DYN_LGNONE);
}
dynConcatSz(e, &ctxPdf->mPdf, ">> /Contents ", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, i + nb_obj_entete + ctxPdf->mNbPage, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " 0 R >> endobj\r\n", DYN_LGNONE);
}
return cr;
}
WAPIDECL int endPdf(env * e, modContextPdf * ctxPdf)
{
long i, nb; /* nb xref */
setXref(e, ctxPdf);
dynConcatSz(e, &ctxPdf->mPdf, "xref\r\n0 ", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ctxPdf->mNbObj + 1, FALSE, DYN_NONE), DYN_LGNONE);
nb = dynDcount(e, &ctxPdf->mXref, cFM, DYN_NONE, DYN_NONE);
for(i = 1; i < nb; i++)
if(i == 1)
/* le premier attribut ne fait pas partie de "xref" (titre) */
dynConcatSz(e, &ctxPdf->mPdf, "\r\n0000000000 65535 f\r\n", DYN_LGNONE);
else
{
dynField(e, &ctxPdf->mXref, &ctxPdf->mTmp1, i, 1, cFM, cVM, 1); // VM1 a cause des images (x et y dans xref<x,2>...)
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPdf, " 00000 n\r\n", DYN_LGNONE);
}
dynField(e, &ctxPdf->mXref, &ctxPdf->mTmp1, nb, DYN_NONE, cFM, DYN_NONE, 1);
dynConcatSz(e, &ctxPdf->mPdf, "trailer\r\n<< /Size ", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ctxPdf->mNbObj + 1, FALSE, 0), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " /Root 1 0 R /Info 2 0 R >>\r\nstartxref\r\n", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, dynToNum(e, &ctxPdf->mTmp1, FALSE, 10), FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, "\r\n%%EOF", DYN_LGNONE);
return TRUE;
}
WAPIDECL Dynamic * getPdf(env * e, modContextPdf * ctxPdf)
{
return &ctxPdf->mPdf;
}
WAPIDECL int setPdfPage(env * e, modContextPdf * ctxPdf, int compression)
{
int cr = TRUE;
/* compression = 0 : pas de compression LZW */
/* 1 : compression LZW en binaire */
setXref(e, ctxPdf);
ctxPdf->mNbObj++;
ctxPdf->mNumPage++;
/* ajout du code "PDF" directement */
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ctxPdf->mNbObj, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " 0 obj << /Length ", DYN_LGNONE);
if( ! compression)
{
/* pas de compression ni codage ici */
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ctxPdf->mPage.mLg, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " >>\r\nstream\r\n", DYN_LGNONE);
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mPage);
}
else
{
// compression LZW du stream de la page
//ctxPdf->mCtxLzw.compress_do(0, (unsigned char *)ctxPdf->mPage.mPtr, ctxPdf->mPage.mLg); // verif
setLzw(e, &ctxPdf->mPage, &ctxPdf->mCtxLzw, 0);
//ctxPdf->mPage = ctxPdf->mLzw.getCode(); // verif
/* */
dynConcatSz(e, &ctxPdf->mPdf, Int64ToSz(e, ctxPdf->mPage.mLg, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPdf, " /Filter /LZWDecode >>\r\nstream\r\n", DYN_LGNONE);
dynConcat(e, &ctxPdf->mPdf, &ctxPdf->mPage);
}
dynConcatSz(e, &ctxPdf->mPdf, "endstream\r\nendobj\r\n", DYN_LGNONE);
/* raz page */
dynSetLen(e, &ctxPdf->mPage, 0);
return cr;
}
WAPIDECL int setPdfText(env * e, modContextPdf * ctxPdf, long x, long y, long w, long h, long font, long taille, long couleur, Dynamic * txt)
{
int cr = TRUE;
/* x,y,w,h en mm, font de 1 a PDF_FONT_NB, couleur avec RGB(r,g,b) */
cr = cr && pdfEchap(e, &ctxPdf->mTmp1, txt);
fmtc(e, &ctxPdf->mPage, couleur);
dynConcatSz(e, &ctxPdf->mPage, " rg q ", DYN_LGNONE);
fmt4(e, &ctxPdf->mPage, x, y, w, h);
dynConcatSz(e, &ctxPdf->mPage, " re W n BT /F", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, Int64ToSz(e, font, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, " ", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, Int64ToSz(e, taille, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, " Tf ", DYN_LGNONE);
fmt2(e, &ctxPdf->mPage, x, y);
dynConcatSz(e, &ctxPdf->mPage, " Td 2 Ts (", DYN_LGNONE);
dynConcat(e, &ctxPdf->mPage, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPage, ") Tj ET Q 0 0 0 rg\r\n", DYN_LGNONE);
return cr;
}
WAPIDECL int setPdfGraph(env * e, modContextPdf * ctxPdf, char type, long x, long y, long w, long h, long coul_trait, long coul_rempl, long epaisseur, long pointille)
{
int cr = TRUE;
/* x,y,w,h en mm, font de 1 a PDF_FONT_NB, coul_trait/coul_rempl avec RGB(r,g,b), epaisseur et pointille de 0 a 9 */
/* si couleur = -1, ne pas tenir compte */
/* type: L ligne C cadre R remplissage D cadre+remplissage */
dynConcatSz(e, &ctxPdf->mPage, "q ", DYN_LGNONE);
if(coul_trait != -1)
{
fmtc(e, &ctxPdf->mPage, coul_trait);
dynConcatSz(e, &ctxPdf->mPage, " RG ", DYN_LGNONE);
}
if(coul_rempl != -1 && type != 'L') /* pas de remplissage si trace de ligne... */
{
fmtc(e, &ctxPdf->mPage, coul_rempl);
dynConcatSz(e, &ctxPdf->mPage, " rg ", DYN_LGNONE);
}
if(pointille > 0)
{
dynConcatSz(e, &ctxPdf->mPage, "[", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, Int64ToSz(e, pointille % 10, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, "] 0 d ", DYN_LGNONE);
}
else
dynConcatSz(e, &ctxPdf->mPage, "[] 0 d ", DYN_LGNONE);
//
if(epaisseur > 0)
{
dynConcatSz(e, &ctxPdf->mPage, Int64ToSz(e, epaisseur % 10, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, " w ", DYN_LGNONE);
}
//
if(type == 'L')
{
fmt2(e, &ctxPdf->mPage, x, y);
dynConcatSz(e, &ctxPdf->mPage, " m ", DYN_LGNONE);
fmt2(e, &ctxPdf->mPage, x + w, y + h);
dynConcatSz(e, &ctxPdf->mPage, " l S Q\r\n", DYN_LGNONE);
}
else
{
fmt4(e, &ctxPdf->mPage, x, y, w, h);
dynConcatSz(e, &ctxPdf->mPage, " re ", DYN_LGNONE);
if(type == 'R')
dynConcatSz(e, &ctxPdf->mPage, "f Q\r\n", DYN_LGNONE); /* remplissage */
else
if(type == 'D')
dynConcatSz(e, &ctxPdf->mPage, "B Q\r\n", DYN_LGNONE); /* cadre+remplissage */
else
dynConcatSz(e, &ctxPdf->mPage, "S Q\r\n", DYN_LGNONE); /* par defaut : cadre seul */
}
return cr;
}
WAPIDECL int setPdfImage(env * e, modContextPdf * ctxPdf, long x, long y, long img)
{
int cr = TRUE;
/* x,y en mm, image numero <img> */
dynConcatSz(e, &ctxPdf->mPage, "q ", DYN_LGNONE);
dynField(e, &ctxPdf->mImg, &ctxPdf->mTmp1, img, 1, cFM, cVM, 1); // vm1 = larg (w) VM2 = haut (h) VM3 = bitmap 32bpp hexa RGB
dynConcat(e, &ctxPdf->mPage, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPage, " 0 0 ", DYN_LGNONE);
dynField(e, &ctxPdf->mImg, &ctxPdf->mTmp1, img, 2, cFM, cVM, 1); // vm1 = larg (w) VM2 = haut (h) VM3 = bitmap 32bpp hexa RGB
dynConcat(e, &ctxPdf->mPage, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPage, " ", DYN_LGNONE);
fmt2(e, &ctxPdf->mPage, x, y);
dynConcatSz(e, &ctxPdf->mPage, " cm /Img", DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, Int64ToSz(e, img, FALSE, DYN_NONE), DYN_LGNONE);
dynConcatSz(e, &ctxPdf->mPage, " Do Q\r\n", DYN_LGNONE);
return cr;
}
WAPIDECL int pdfDeleteImage(env * e, modContextPdf * ctxPdf, long img)
{
// delete image number <img>, if 0 delete all
if(img > 0)
dynDel(e, &ctxPdf->mImg, img, DYN_NONE, cFM, DYN_NONE, 1);
else
dynSetLen(e, &ctxPdf->mImg, 0);
return TRUE;
}
//int pdfLoadImageRGB(env * e, Dynamic * pixel)
//{
// /* TODO png, jpeg,... en amont*/
// return TRUE;
//}
WAPIDECL int pdfLoadImageBmp(env * e, modContextPdf * ctxPdf, Dynamic * fichier)
{
long bpp, larg, haut, offset, par_ligne;
octet * p; /* pour simplifier le code... */
long i, j, pos, ind;
/* lecture fichier */
if(!fichier)
return FALSE;
if(fichier->type != VAR_DYNAMIC)
return FALSE;
// controle du bitmap avant memorisation
p = fichier->ptr;
if(p[0] != 'B' && p[1] != 'M')
return FALSE; /* pas un fichier .bmp */
//
bpp = p[28];
if(bpp != 24 && bpp != 32)
return FALSE; /* uniquement les fichiers bmp encodes en 24bpp ou 32bpp */
bpp = bpp >> 3;
/* */
offset = (p[11] << 8) + p[10];
larg = (p[19] << 8) + p[18];
haut = (p[23] << 8) + p[22];
par_ligne = larg * bpp; /* nb octets par ligne */
if((par_ligne & 3) != 0)
par_ligne += (4 - (par_ligne & 3));
/* la bitmap en hexa fera une taille de larg*haut*3*2 */
ind = dynDcount(e, &ctxPdf->mImg, cFM, DYN_NONE, DYN_NONE) + 1;
dynStoreNumber(e, &ctxPdf->mImg, ind, 1, larg, cFM, cVM);
dynStoreNumber(e, &ctxPdf->mImg, ind, 2, haut, cFM, cVM);
dynConcatSz(e, &ctxPdf->mImg, sVM, 1);
// boucle sur chaque pixel
for(i = haut-1; i >= 0; i--)
for(j = 0; j < larg; j++)
{
pos = offset + j * bpp + i * par_ligne;
dynConcatSz(e, &ctxPdf->mImg, dynConvertCharToCharHexa(p[pos + 2]), 2);
dynConcatSz(e, &ctxPdf->mImg, dynConvertCharToCharHexa(p[pos + 1]), 2);
dynConcatSz(e, &ctxPdf->mImg, dynConvertCharToCharHexa(p[pos]), 2);
}
//printf("Image:\n%s\nlarg:%ld haut:%ld bpp:%ld ind:%ld parligne:%ld lenfichier:%lld\n", ctxPdf->mImg.mPtr, larg, haut, bpp, ind, par_ligne, fichier->mLg);
return TRUE;
}
WAPIDECL int pdfList(env * e, modContextPdf * ctxPdf, Dynamic * titre, Dynamic * lignes, long format)
{
// enchaine automatiquement les fonctions pour creer un pdf de type "listing" (log ou programme)
// police Courrier taille 9 en A4 =>
// paysage : 60 lignes 145 colonnes
// portrait : 87 lignes 99 colonnes
long nbLigPage, nbColPage;
if(format == PDFFMT_A4P)
{
// portrait
nbLigPage = 87;
nbColPage = 99;
}
else if(format == PDFFMT_A4L)
{
// paysage (Landscape)
nbLigPage = 60;
nbColPage = 145;
}
else
return FALSE; // format non pris en charge
//
long nbPage, nbLig;
dynErase(e, lignes, "\r");
nbLig = dynDcount(e, lignes, 10, DYN_NONE, DYN_NONE); // \n
if(nbLig == 0)
nbPage = 1;
else
nbPage = (nbLig - 1) / nbLigPage + 1;
//
dynLet(e, &ctxPdf->mTmp3, "Courier", DYN_LGNONE);
if( ! newPdf(e, ctxPdf, titre, nbPage, format, &ctxPdf->mTmp3))
return FALSE;
//
long iPage, iLigPage, iLigTotal = 1;
for(iPage = 1; iPage <= nbPage; iPage++)
{
dynConcatSz(e, &ctxPdf->mPage, "BT /F1 9 Tf ", 12); // Fonte 1 = Courier (/F1)
fmt2(e, &ctxPdf->mPage, ctxPdf->mLmarg, ctxPdf->mHaut - ctxPdf->mHmarg);
dynConcatSz(e, &ctxPdf->mPage, " Td 9 TL\r\n", DYN_LGNONE);
//
for(iLigPage = 1; iLigPage <= nbLigPage && iLigTotal <= nbLig; iLigPage++)
{
dynField(e, lignes, &ctxPdf->mTmp1, iLigTotal++, DYN_NONE, 10, DYN_NONE, 1);
if(ctxPdf->mTmp1.mLg > nbColPage)
dynSetLen(e, &ctxPdf->mTmp1, nbColPage);
pdfEchap(e, &ctxPdf->mTmp2, &ctxPdf->mTmp1);
dynConcatSz(e, &ctxPdf->mPage, "(", 1);
dynConcatSz(e, &ctxPdf->mPage, ctxPdf->mTmp2.mPtr, ctxPdf->mTmp2.mLg);
dynConcatSz(e, &ctxPdf->mPage, ") '\r\n", DYN_LGNONE);
}
dynConcatSz(e, &ctxPdf->mPage, "ET\r\n", DYN_LGNONE);
//
if( ! setPdfPage(e, ctxPdf, 1)) // compression forcee, mettre un param ?
return FALSE;
}
return endPdf(e, ctxPdf);
}
/* ******************************************************** */
randomMod.c
+12 -13
View File
@@ -28,10 +28,8 @@
#include "langage.h"
#include "dynamic.h"
enum {
RAND_STATE_COUNT = 624,
RAND_PERIOD = 397
};
#define RAND_STATE_COUNT 624
#define RAND_PERIOD 397
typedef struct {
int error; // dernier code erreur specifique au module
@@ -86,12 +84,13 @@ static int setError(modEtat * p, int err)
return EX_MODERR;
}
#ifdef WINLIB
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#else
extern long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#endif
{
/* TODO : gestion des 3 parametres (au lieu d'un seul) */
modEtat * p_etat;
@@ -115,7 +114,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -130,7 +129,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
//*** code specifique ici
//
@@ -138,7 +137,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
if(p_etat != NULL)
memfree(e, p_etat);
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
if(param1 == NULL)
exc = EX_MODPARAM;
@@ -153,7 +152,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -169,7 +168,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "setSeed", 7))
else if(strncmp(e->fn, "setSeed", 7) == 0)
{
if(param1 == NULL)
exc = EX_MODPARAM;
@@ -181,7 +180,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "get", 3))
else if(strncmp(e->fn, "get", 3) == 0)
{
if(param1 == NULL)
exc = EX_MODPARAM;
rep.c
-395
View File
@@ -1,395 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
// TODO version windows
#ifdef UNIX
#include <dirent.h>
#include <sys/types.h>
#else
#include "windows.h" // pour les fonctions FindFile...
#endif
#include "langage.h"
#include "dynamic.h"
#include "rep.h"
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
/* ******** PRIVATE ********************* */
static int GetInclude(env * e, Dynamic * line, Dynamic * includeFilename)
{
// check that the <line> is a include w statement. If not, return zero, else
// return in <includeFilename> the name of the include file
// separators are 9 and 32 (tab and space) and ";"" for the optional end of line comment
char * p = line->mPtr, * q;
while(*p && (*p == 9 || *p == 32)) p++;
if(*p++ != 'i') return 0;
if(*p++ != 'n') return 0;
if(*p++ != 'c') return 0;
if(*p++ != 'l') return 0;
if(*p++ != 'u') return 0;
if(*p++ != 'd') return 0;
if(*p++ != 'e') return 0;
if(*p != 9 && *p != 32) return 0;
p++;
while(*p && (*p == 9 || *p == 32)) p++;
if(*p != '\'' && *p != '"') return 0;
q = p + 1; // *p is the first char of include filename , including ' or ", and that chra must bi found at the end of the file
while(*q && (*q != *p)) q++;
if(*q != *p) return 0; // *q must be the same ' or " that begins filename
long lg = q - p - 1;
if(lg < 1) return 0;
dynLet(e, includeFilename, p + 1, lg);
dynSetLen(e, includeFilename, lg); // to be sure that \0 ends the filename
return 1;
}
/* ******** PUBLIC ********************* */
WAPIDECL long ScanDirectory(env * e, const char * path, Dynamic * directory, const char * fileToSearch, Dynamic * fileFound, long * fileFoundCount, long * duplicateCount)
{
if(!e || !directory || !fileFound || !fileFoundCount || !duplicateCount)
return 0; // error
//
// non-recursive method : scan <path> and save each directory in <directory>'s fields. Then scan each directory and save subdirectories, in <directory>'s fields, at the end.
// And so on for each newly saved subdirectories. Finally, <directory>'s fields will contain all directories and subdirectories within <path>
// if <path> is null, <directory> already contains the list of directory to scan, else directory is setup with the directory tree.
// if <fileToSearch> is not null : <fileFound> is filled (within fields) with the full path name of each file name found.
// <fileFoundCount> contains the number of times the file was found (i.e. <fileFound> field's number)
// if <fileToSearch> is equal to "*" : means to check for duplicate files within the whole directory tree (<duplicateCount> gives the number of it),
// and so <fileFound> will contains all filenames (without path)
//
if(path)
dynSetAsSz(e, directory, (char *)path);
long nb = dynDcount(e, directory, cFM, DYN_NONE, DYN_NONE), done = 0;
//
#ifdef UNIX
DIR * dir = NULL;
struct dirent * entry = NULL;
#else
HANDLE hFind;
WIN32_FIND_DATA FindFileData;
#endif
//
Dynamic workPath;
dynInit(e, &workPath, DYN_LGMIN);
//
*duplicateCount = 0;
*fileFoundCount = 0;
if(fileToSearch)
dynSetLen(e, fileFound, 0);
//
while(nb > done)
{
long newNb = nb;
for(long ind = done + 1; ind <= nb; ind++)
{
//dynExtractField(e, directory, ind, &workPath);
dynField(e, directory, &workPath, ind, DYN_NONE, cFM, DYN_NONE, 1);
// read each entry in directory and save subdirectory name (full path)
// TODO !? => check that workPath hasn't yet been scanned (e.g. directory link with circular reference)
#ifdef UNIX
if((dir = opendir(workPath.mPtr)) == NULL)
{
// continue to next item (no access right for example for this directory, etc.)
//dynFree(e, &workPath);
//return 0;
continue;
}
while ((entry = readdir(dir)) != NULL)
{
if(path)
{
if(entry->d_type == DT_DIR && strcmp(entry->d_name, ".") != 0 && strcmp(entry->d_name, "..") != 0)
{
newNb++;
dynStore(e, directory, newNb, DYN_NONE, &workPath, cFM, DYN_NONE);
if(workPath.mLg > 0 && workPath.mPtr[workPath.mLg - 1] != '/')
dynConcatSz(e, directory, "/", 1);
dynConcatSz(e, directory, entry->d_name, DYN_LGNONE);
}
}
// check "regular" files (DT_REG si linux specific)
if(fileToSearch)
{
if(entry->d_type == DT_REG && *fileToSearch == '*')
{
long pos = dynLocateSz(e, fileFound, entry->d_name, cFM, DYN_NONE, DYN_NONE);
if(pos > 0)
(*duplicateCount)++; // duplicate found
else
{
(*fileFoundCount)++;
dynStoreSz(e, fileFound, *fileFoundCount, DYN_NONE, entry->d_name, DYN_LGNONE, cFM, DYN_NONE); // duplicate checking doesn't take care of the file's path
}
}
else if(entry->d_type == DT_REG && strcmp(entry->d_name, fileToSearch) == 0)
{
// file found
(*fileFoundCount)++; // found, save file's directory
dynStore(e, fileFound, *fileFoundCount, DYN_NONE, &workPath, cFM, DYN_NONE);
if(workPath.mLg > 0 && workPath.mPtr[workPath.mLg - 1] != '/')
dynConcatSz(e, fileFound, "/", 1);
dynConcatSz(e, fileFound, entry->d_name, DYN_LGNONE);
}
}
}
closedir(dir);
// end readdir
#else
dynConcatSz(e, &workPath, "\\*", DYN_LGNONE); /* sinon ko... */
if((hFind = FindFirstFile(workPath.mPtr, &FindFileData)) == INVALID_HANDLE_VALUE)
{
// continue to next item (no access right for example for this directory, etc.)
//dynFree(e, &workPath);
//return 0;
continue;
}
dynSetLen(e, &workPath, workPath.mLg - 2); // enlever \* mis a la fin...
for(int cr = -1;cr != 0;)
{
if(path)
{
if((FindFileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && strcmp(FindFileData.cFileName,".") != 0 && strcmp(FindFileData.cFileName,"..") != 0)
{
newNb++;
dynStore(e, directory, newNb, DYN_NONE, &workPath, cFM, DYN_NONE);
if(workPath.mLg > 0 && workPath.mPtr[workPath.mLg - 1] != '\\')
dynConcatSz(e, directory, "\\", 1);
dynConcatSz(e, directory, FindFileData.cFileName, DYN_LGNONE);
}
}
// check "regular" files (DT_REG si linux specific)
if(fileToSearch)
{
if( !(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_REPARSE_POINT))
if( *fileToSearch == '*')
{
long pos = dynLocateSz(e, fileFound, FindFileData.cFileName, cFM, DYN_NONE, DYN_NONE);
if(pos > 0)
(*duplicateCount)++; // duplicate found
else
{
(*fileFoundCount)++;
dynStoreSz(e, fileFound, *fileFoundCount, DYN_NONE, FindFileData.cFileName, DYN_LGNONE, cFM, DYN_NONE); // duplicate checking doesn't take care of the file's path
}
}
else if(strcmp(FindFileData.cFileName, fileToSearch) == 0)
{
// file found
(*fileFoundCount)++; // found, save file's directory
dynStore(e, fileFound, *fileFoundCount, DYN_NONE, &workPath, cFM, DYN_NONE);
if(workPath.mLg > 0 && workPath.mPtr[workPath.mLg - 1] != '\\')
dynConcatSz(e, fileFound, "\\", 1);
dynConcatSz(e, fileFound, FindFileData.cFileName, DYN_LGNONE);
}
}
//
cr = FindNextFile(hFind, &FindFileData);
}
FindClose(hFind);
#endif
}
done = nb;
nb = newNb;
}
dynFree(e, &workPath);
return 1;
}
WAPIDECL long GetSource(env * e, Dynamic * directory, const char * filename, Dynamic * source, Dynamic * meta)
{
int cr = 0;
char cLF = 10;
char sLF[2] = {"\n"};
char sCR[2] = {"\r"};
dynSetLen(e, source, 0);
dynSetLen(e, meta, 0);
//
Dynamic fileFound, line, include, filenameFound;
dynInit(e, &fileFound, DYN_LGMIN);
dynInit(e, &line, DYN_LGMIN);
dynInit(e, &include, DYN_LGMIN);
dynInit(e, &filenameFound, DYN_LGMIN);
//
long fileCount, dup;
for(;;)
{
if( ScanDirectory(e, NULL, directory, filename, &fileFound, &fileCount, &dup) != 1)
{
cr = 1;
break;
}
if(fileCount != 1)
{
cr = 2;
break;
}
if(dynRead(e, source, fileFound.mPtr) != DYN_OK)
{
cr = 3;
break;
}
dynErase(e, source, sCR);
//
long treeLevel = 1, currentLevel = 1, level = 0, nbMeta = 1;
dynStoreSz(e, meta, META_GLOBAL_LN, DYN_NONE, "00000001", 8, cFM, DYN_NONE);
dynStoreSz(e, meta, META_FILENAME, DYN_NONE, fileFound.mPtr, DYN_LGNONE, cFM, DYN_NONE);
dynStoreSz(e, meta, META_LOCAL_LN, DYN_NONE, "1", DYN_LGNONE, cFM, DYN_NONE);
dynStoreNumber(e, meta, META_LEVEL, DYN_NONE, currentLevel, cFM, DYN_NONE);
dynStoreSz(e, meta, META_FILETREE, DYN_NONE, (char *)filename, DYN_LGNONE, cFM, DYN_NONE);
// foreach source line
long numberOfLines = dynDcount(e, source, cLF, DYN_NONE, DYN_NONE);
long numLine = 1;
for( ;numLine <= numberOfLines; )
{
dynField(e, source, &line, numLine, DYN_NONE, cLF, DYN_NONE, 1);
numLine++;
if(GetInclude(e, &line, &include))
{
if(ScanDirectory(e, NULL, directory, include.mPtr, &fileFound, &fileCount, &dup))
{
if(fileCount == 1)
{
// memo include file tree to avoid cyclic includes and get meta data
// 2 memos : one for call tree, and one for the map of files/number of lines
// call tree =>
// meta<5> = file tree, multi-valued filenames (temporary, during GetSource)
// meta data =>
// meta<1> = beginning line number, global
// meta<2> = filename
// meta<3> = local line number
// meta<4> = level
//
// if filename already presents in file tree, error (ignore include)
dynRead(e, &include, fileFound.mPtr);
dynField(e, &fileFound, &filenameFound, dynDcount(e, &fileFound, e->path_sep[0], DYN_NONE, DYN_NONE), DYN_NONE, e->path_sep[0], DYN_NONE, 1); // extract filename from full path
if(dynLocateSz(e, meta, filenameFound.mPtr, cVM, META_FILETREE, cFM) > 0)
{
cr = 4;
break;
}
// insert include file after include's line
if(include.mLg == 0) // don't insert empty file (else, local line number calculus wouldn't be correct), add one space instead
{
dynLet(e, &include, " ", 1);
}
else
{
dynErase(e, &include, sCR);
if(include.mPtr[include.mLg - 1] != cLF)
dynConcatSz(e, &include, sLF, 1); // add empty final line if there's not, else meta would have double same global line (if last line is include's line)
}
//
dynIns(e, source, numLine, DYN_NONE, &include, cLF, DYN_NONE);
long nbInclude = dynDcount(e, &include, cLF, DYN_NONE, DYN_NONE);
numberOfLines = dynDcount(e, source, cLF, DYN_NONE, DYN_NONE); // extending scope
//
// put in <include> the line number formatted 00000000 and split current block in three
dynFmtNumber(e, numLine, &include, 'R', '0', 8);
long pos = abs(dynSortLocateSz(e, meta, include.mPtr, cVM, DYN_SORT_ASC, META_GLOBAL_LN, cFM));
dynIns(e, meta, META_GLOBAL_LN, pos, &include, cFM, cVM);
dynIns(e, meta, META_FILENAME, pos, &fileFound, cFM, cVM);
dynInsSz(e, meta, META_LOCAL_LN, pos, "1", 1, cFM, cVM);
level = dynFieldAsNumber(e, meta, META_LEVEL, pos - 1, cFM, cVM);
dynInsNumber(e, meta, META_LEVEL, pos, level + 1, cFM, cVM);
currentLevel = level + 1;
//
dynField(e, meta, &include, 2, pos - 1, cFM, cVM, 1);
dynIns(e, meta, META_FILENAME, pos + 1, &include, cFM, cVM);
dynFmtNumber(e, numLine + nbInclude, &include, 'R', '0', 8);
dynIns(e, meta, META_GLOBAL_LN, pos + 1, &include, cFM, cVM);
long global = dynFieldAsNumber(e, meta, META_GLOBAL_LN, pos - 1, cFM, cVM);
long local = dynFieldAsNumber(e, meta, META_LOCAL_LN, pos - 1, cFM, cVM);
dynInsNumber(e, meta, META_LOCAL_LN, pos + 1, numLine - global + local, cFM, cVM);
dynInsNumber(e, meta, META_LEVEL, pos + 1, level, cFM, cVM);
//
// adjust starting line of next blocks
nbMeta = dynDcount(e, meta, cVM, META_FILENAME, cFM);
for(long cpt = pos + 2; cpt <= nbMeta; cpt++)
{
global = dynFieldAsNumber(e, meta, META_GLOBAL_LN, cpt, cFM, cVM);
dynFmtNumber(e, global + nbInclude, &include, 'R', '0', 8);
dynStore(e, meta, META_GLOBAL_LN, cpt, &include, cFM, cVM);
}
//
dynStore(e, meta, META_FILETREE, ++treeLevel, &filenameFound, cFM, cVM);
}
else
{
cr = 5; // if fileCount <> 1, error (multiple included include not autorized, or not found when filename includes dot or path separator char)
break;
}
}
else
{
cr = 6; // if error while searching for the include file, error
break;
}
}
// delete last file in call tree when changing of file
dynFmtNumber(e, numLine, &include, 'R', '0', 8);
long pos = dynSortLocateSz(e, meta, include.mPtr, cVM, DYN_SORT_ASC, META_GLOBAL_LN, cFM);
if(pos < 0)
pos = abs(pos) - 1;
if(pos > nbMeta)
pos = nbMeta;
level = dynFieldAsNumber(e, meta, META_LEVEL, pos, cFM, cVM);
if(level < currentLevel)
dynDel(e, meta, META_FILETREE, treeLevel--, cFM, cVM, 1);
currentLevel = level;
}
dynDel(e, meta, META_FILETREE, DYN_NONE, cFM, DYN_NONE, 1);
break;
}
//
dynFree(e, &fileFound);
dynFree(e, &line);
dynFree(e, &include);
dynFree(e, &filenameFound);
return cr;
}
WAPIDECL void GetFile(env * e, long lineNumber, Dynamic * meta, int indice, Dynamic * fileFound, long * ficLine)
{
indice = (indice - 1) * META_NB;
dynFmtNumber(e, lineNumber, fileFound, 'R', '0', 8);
long pos = dynSortLocateSz(e, meta, fileFound->mPtr, cVM, DYN_SORT_ASC, indice + META_GLOBAL_LN, cFM);
if(pos < 0)
pos = abs(pos) - 1;
//
*ficLine = lineNumber - dynFieldAsNumber(e, meta, indice + META_GLOBAL_LN, pos, cFM, cVM) + dynFieldAsNumber(e, meta, indice + META_LOCAL_LN, pos, cFM, cVM);
dynField(e, meta, fileFound, indice + META_FILENAME, pos, cFM, cVM, 1);
}
rep.h
-44
View File
@@ -1,44 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#ifndef REP_H
#define REP_H
#include "apidecl.h"
enum {
META_GLOBAL_LN = 1,
META_FILENAME = 2,
META_LOCAL_LN = 3,
META_LEVEL = 4,
META_FILETREE = 5,
META_WSRC = 5,
META_NB = 5
};
WAPIDECL long ScanDirectory(env * e, const char * path, Dynamic * directory, const char * fileToSearch, Dynamic * fileFound, long * fileFoundCount, long * duplicateCount);
WAPIDECL long GetSource(env * e, Dynamic * directory, const char * filename, Dynamic * source, Dynamic * meta);
WAPIDECL void GetFile(env * e, long lineNumber, Dynamic * meta, int indice, Dynamic * fileFound, long * ficLine);
/* ********************************************** */
#endif
shm.h
-69
View File
@@ -1,69 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#ifndef WINLIB
#include <sys/types.h>
#include <sys/ipc.h>
#include <sys/shm.h>
#else
#include <windows.h>
#endif
#include "langage.h"
#ifdef WINLIB
typedef int key_t;
#endif
/* codes a passer a la fonction setError */
enum {
EXMOD_BUFFER_INIT = 1,
EXMOD_BUFFER_WRITE = 2
};
typedef struct {
// proprietaire
key_t cle;
char nom[24]; // 23 cars + \0
long taille;
var * buffer;
#ifndef WINLIB
int handle;
int semId;
#else
HANDLE handle;
char semDesti[25]; // 23 cars + '#' + \0 (different desti sinon ko sous windows)
#endif
// destinataire
char desti[24]; // 23 cars + \0
// message lu/ecrit
var * message;
} modContextShm;
WAPIDECL void initShm(env * e, modContextShm * ctx);
WAPIDECL void freeShm(env * e, modContextShm * ctx);
WAPIDECL long readShm(env * e, modContextShm * ctx);
WAPIDECL long writeShm(env * e, modContextShm * ctx);
shmMod.c
-174
View File
@@ -1,174 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <string.h>
#include "langage.h"
#include "dynamic.h"
#include "hashtable.h"
#include "shm.h"
typedef struct {
int error; // dernier code erreur specifique au module
//*** a completer selon le besoin du module
modContextShm cs;
} modEtat;
static int setError(modEtat * p, int err)
{
if(p != NULL)
p->error = err;
return err == OK ? OK : EX_MODERR;
}
#ifdef WINLIB
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
{
/* gestion des 3 parametres (au lieu d'un seul) */
modEtat * p_etat;
long exc = OK;
// init/end/vers/error sont obligatoires pour tout module
// - - - - - - - - - - - - - - - - - - - -
if(etat == NULL)
return EX_MODPARAM;
else
p_etat = (modEtat *)(*etat); /* evite de la faire a chaque fonction */
//
if(param1 != NULL)
if(param1->type == VAR_PARAM)
param1 = (var *)param1->ptr; /* evite de le faire a chaque fonction */
if(param2 != NULL)
if(param2->type == VAR_PARAM)
param2 = (var *)param2->ptr; /* evite de le faire a chaque fonction */
if(param3 != NULL)
if(param3->type == VAR_PARAM)
param3 = (var *)param3->ptr; /* evite de le faire a chaque fonction */
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
if(*etat == NULL)
exc = EX_MODETAT;
else
{
p_etat = (modEtat *)(*etat);
p_etat->error = 0;
//*** code specifique ici
var * prog;
hashtable_do(e, HASH_READ, &e->g, copy_nom(e, GUV_PROG), &prog);
// maj ctx avec _prog et taille
*((ent64 *)(p_etat->cs.nom)) = 0;
*(((ent64 *)(p_etat->cs.nom)) + 1) = 0;
*(((ent64 *)(p_etat->cs.nom)) + 2) = 0;
if(prog && prog->type == VAR_DYNAMIC && prog->mLg < 24)
strncpy(p_etat->cs.nom, prog->mPtr, prog->mLg);
p_etat->cs.taille = 4000;
//
initShm(e, &p_etat->cs);
}
}
else if(modFnIs(e, "end", 3))
{
// liberation specifique au module avant arret process
if(p_etat != NULL)
{
freeShm(e, &p_etat->cs);
//*** FIN du code specifique ici
memfree(e, p_etat);
}
}
else if(modFnIs(e, "vers", 4))
{
// renvoie la version du module/plugins
if(param1->type == VAR_DYNAMIC)
dynLet(e, param1, "1", 1); //*** version en alpha
else if(param1->type == VAR_NUMBER)
param1->num = NUM_UN; //*** version en numerique
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
else if(modFnIs(e, "error", 5))
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
exc = EX_MODETAT;
else
{
if(param1->type == VAR_NUMBER)
param1->num = (ent64)(NUM_FACTEUR * p_etat->error);
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
}
/* ============================================================================================= */
else if(modFnIs(e, "get", 3))
{
if(!param1)
exc = EX_MODPARAM;
else if(param1->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
{
p_etat->cs.message = param1;
exc = setError(p_etat, readShm(e, &p_etat->cs));
// param1 vide si rien a lire
}
}
/* ============================================================================================= */
else if(modFnIs(e, "set", 3))
{
if(!param1 || !param2)
exc = EX_MODPARAM;
else if(param1->type != VAR_DYNAMIC || param2->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else
{
*((ent64 *)(p_etat->cs.desti)) = 0;
*(((ent64 *)(p_etat->cs.desti)) + 1) = 0;
*(((ent64 *)(p_etat->cs.desti)) + 2) = 0;
if(param1->mLg < 24)
strncpy(p_etat->cs.desti, param1->mPtr, param1->mLg);
p_etat->cs.message = param2;
exc = setError(p_etat, writeShm(e, &p_etat->cs));
}
}
/* ----------------------------------------------------------------------------------------------- */
else
{
exc = setError(p_etat, EX_MODFUNC); // fonction non prise en charge
}
//
return exc;
}
/* **************************************************************************************************** */
shm_lib.c
-261
View File
@@ -1,261 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include "shm.h"
#include "buffer.h"
#include <errno.h>
#ifndef WINLIB
#include <sys/types.h>
#include <sys/ipc.h>
#include <sys/sem.h>
#endif
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
/* ---------------------------------------------------- */
enum {
NBSEM = 1
};
/* ****** PRIVATE ************************ */
static key_t Hash32(const char * cle, int lg)
{
// lg multiple de 4 et > 0
// cle est une zone memoire de lg cars
ent64 k, h = 0;
if(lg > 0 && (lg % 4 == 0))
{
h = *(int *)cle;
for(int i = 0; i < lg; )
{
k = (ent64)cle[i++];
k |= ((ent64)cle[i++]) << 8;
k |= ((ent64)cle[i++]) << 16;
k |= ((ent64)cle[i++]) << 24;
k *= 0xcc9e2d51;
k = (k << 15) | (k >> 17); // 32 - 15
k *= 0x1b873593;
h ^= k;
h = (h << 13) | (h >> 19); // 32 - 13
h = h * 5 + 0xe6546b64;
}
}
h ^= lg;
h ^= h >> 16;
h *= 0x85ebca6b;
h ^= h >> 13;
h *= 0xc2b2ae35;
h ^= h >> 16;
return (key_t)h;
}
/* ****** PUBLIC ************************ */
WAPIDECL void initShm(env * e, modContextShm * ctx)
{
#ifndef WINLIB
ctx->buffer = NULL;
ctx->handle = -1;
ctx->semId = -1;
// creer la sharedmemory du process, pour lecture
// ne pas controler la taille, sera fait par 'shmget'
// calculer la cle a partir du nom du prog (ctx->nom)
ctx->cle = Hash32(ctx->nom, 24); // chaine de 23 cars max + \0 de fin
// securite : supprimer un eventuel reliquat d'un ancien shm ? Faire un appel externe pas systematique, que le createur, (ou mettre un flag)
//shmctl(ctx->cle, IPC_RMID, NULL);
// creer le buffer
ctx->handle = shmget(ctx->cle, ctx->taille, IPC_CREAT | IPC_EXCL | 0666); // < 0 si ko
if(ctx->handle < 0)
return; // erreur creation sharedmemory
// lire le pointeur
ctx->buffer = (var *)shmat(ctx->handle, NULL, 0);
if(ctx->buffer == (var *)(-1))
{
shmctl(ctx->handle, IPC_RMID, NULL);
ctx->buffer = NULL;
ctx->handle = -1;
return; // erreur recup pointeur
}
// creer le semaphore pour les writers
ctx->semId = semget(ctx->cle, NBSEM, IPC_CREAT | IPC_EXCL | 0666); // < 0 si ko
if(ctx->semId < 0)
{
freeShm(e, ctx); // erreur
return;
}
// init semaphore
unsigned short table[NBSEM];
table[0] = 1;
if(semctl(ctx->semId, 0, SETALL, table) < 0)
{
freeShm(e, ctx); // erreur
return;
}
#else
ctx->buffer = NULL;
ctx->handle = NULL;
strncpy(ctx->semDesti, ctx->desti, 24);
ctx->semDesti[24] = 0;
ctx->semDesti[strlen(ctx->desti)] = '#';
// creer la sharedmemory du process, pour lecture
// ne pas controler la taille, sera fait par 'CreateFileMapping'
// la cle est directement le nom
// creer le buffer
ctx->handle = CreateFileMapping(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, ctx->taille, ctx->nom); // NULL si ko, attention au \0 de fin de ctx->nom
if( ! ctx->handle)
return; // erreur creation sharedmemory
ctx->buffer = (var *)MapViewOfFile(ctx->handle, FILE_MAP_ALL_ACCESS, 0, 0, 0);
if( ! ctx->buffer)
{
CloseHandle(ctx->handle);
ctx->buffer = NULL;
ctx->handle = NULL;
return; // erreur recup pointeur
}
#endif
ctx->buffer->type = VAR_BUFFER;
ctx->buffer->lgmax = ctx->taille - sizeof(var);
ctx->buffer->read = 0;
ctx->buffer->write = 0;
ctx->buffer->ptr = NULL; // NULL signifie que le contenu est a la suite de l'entete de la variable (utilise uniquement ici avec les IPC)
}
WAPIDECL void freeShm(env * e, modContextShm * ctx)
{
#ifndef WINLIB
if(ctx->buffer)
shmdt(ctx->buffer);
if(ctx->handle >= 0)
shmctl(ctx->handle, IPC_RMID, NULL);
if(ctx->semId >= 0)
semctl(ctx->semId, IPC_RMID, 0);
ctx->buffer = NULL;
ctx->handle = -1;
ctx->semId = -1;
#else
if(ctx->buffer)
UnmapViewOfFile(ctx->buffer);
if(ctx->handle >= 0)
CloseHandle(ctx->handle); // verif que bien detruit
ctx->buffer = NULL;
ctx->handle = NULL;
#endif
}
WAPIDECL long readShm(env * e, modContextShm * ctx)
{
#ifndef WINLIB
if( ! ctx->buffer || ctx->handle < 0)
return EXMOD_BUFFER_INIT;
#else
if( ! ctx->buffer || ! ctx->handle)
return EXMOD_BUFFER_INIT;
#endif
buffer_read(e, ctx->buffer, ctx->message);
// e->exception != OK si exception en lecture (que EX_MEM) ! vide si rien a lire (Dynamic)
return e->exception;
}
WAPIDECL long writeShm(env * e, modContextShm * ctx)
{
// TODO gestion verrou !
#ifndef WINLIB
// calculer la cle a partir du nom du prog (ctx->nom)
key_t cle = Hash32(ctx->desti, 24); // chaine de 23 cars + \0
// acceder au buffer
int handle = shmget(cle, 0, 0);
if(handle < 0)
return EXMOD_BUFFER_WRITE; // erreur access
// lire le pointeur
var * buffer = (var *)shmat(handle, NULL, 0);
if(buffer == (var *)(-1))
return EXMOD_BUFFER_WRITE; // seul le ptr se libere
// prendre le verrou (semaphore) pour ecrire, avec attente
int semId = semget(cle, NBSEM, 0);
if(semId < 0)
{
shmdt(buffer);
return EXMOD_BUFFER_WRITE;
}
struct sembuf bufw;
bufw.sem_num = 0;
bufw.sem_op = -1; // prendre
bufw.sem_flg = SEM_UNDO; // | IPC_NOWAIT ?
if(semop(semId, &bufw, 1) < 0)
{
shmdt(buffer);
return EXMOD_BUFFER_WRITE;
}
// EcrireBuffer
buffer_write(e, buffer, ctx->message);
// e->exception != OK si exception en ecriture (que EX_BUFOVF) !
// liberer le verrou
bufw.sem_op = 1; // liberer
semop(semId, &bufw, 1);
// ne liberer que le ptr sous unix
shmdt(buffer);
#else
// la cle est directement le destinataire
HANDLE handle = OpenFileMapping(FILE_MAP_ALL_ACCESS, FALSE, ctx->desti); // attention au \0 de fin
if( ! handle)
return EXMOD_BUFFER_WRITE; // erreur access
// lire le pointeur
var * buffer = (var *)MapViewOfFile(handle, FILE_MAP_ALL_ACCESS, 0, 0, 0);
if( ! buffer)
{
CloseHandle(handle);
return EXMOD_BUFFER_WRITE; // erreur recup pointeur
}
// prendre le verrou (semaphore) pour ecrire, avec attente
HANDLE hSem = CreateSemaphore(NULL, 1, 1, ctx->semDesti); // NULL si erreur
if( ! hSem)
{
UnmapViewOfFile(buffer);
CloseHandle(handle);
return EXMOD_BUFFER_WRITE; // erreur recup pointeur
}
if(WaitForSingleObject(hSem, 0) != WAIT_OBJECT_0) // retour WAIT_OBJECT_0 si ok, WAIT_TIMEOUT ou autre si pas dispo ou erreur ; 0 = timeout en secondes
{
ReleaseSemaphore(hSem, 1, NULL);
UnmapViewOfFile(buffer);
CloseHandle(handle);
return EXMOD_BUFFER_WRITE; // erreur recup pointeur
}
// EcrireBuffer
buffer_write(e, buffer, ctx->message);
// e->exception != OK si exception en ecriture (que EX_BUFOVF) !
// liberer le verrou
ReleaseSemaphore(hSem, 1, NULL);
// liberations
UnmapViewOfFile(buffer);
CloseHandle(handle);
#endif
return e->exception;
}
sockMod.c
+22 -21
View File
@@ -2,7 +2,7 @@
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
\/ \/ Copyright 2024 lanisys.fr
This file is part of W language.
@@ -29,13 +29,13 @@
#include <errno.h>
#ifdef UNIX
#include <unistd.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <sys/ioctl.h>
#include <netdb.h>
#include <unistd.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <sys/ioctl.h>
#include <netdb.h>
#else
#include "windows.h"
#include "windows.h"
#endif
#include "langage.h"
@@ -63,12 +63,13 @@ static int setError(modEtat * p, int err)
return EX_MODERR;
}
#ifdef WINLIB
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
#else
extern long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
#endif
{
/* TODO : gestion des 3 parametres (au lieu d'un seul) */
modEtat * p_etat;
@@ -85,7 +86,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -100,7 +101,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
p_etat->mServeur = 0;
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
// liberation specifique au module avant arret process
p_etat = (modEtat *)(*etat);
@@ -113,7 +114,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
memfree(e, p_etat);
}
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
// renvoie la version du module/plugins
if(param->type == VAR_DYNAMIC)
@@ -123,7 +124,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -137,7 +138,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "server", 6))
else if(strncmp(e->fn, "server", 6) == 0)
{
/* cree un point d'entree serveur */
if(p_etat == NULL)
@@ -243,7 +244,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "connect", 7))
else if(strncmp(e->fn, "connect", 7) == 0)
{
char ** tParam;
/* connexion a un serveur */
@@ -346,7 +347,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "arret", 5))
else if(strncmp(e->fn, "arret", 5) == 0)
{
/* arret connexion cliente ou serveur */
if(p_etat != NULL)
@@ -357,7 +358,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "attente", 7))
else if(strncmp(e->fn, "attente", 7) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -403,7 +404,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "get", 3))
else if(strncmp(e->fn, "get", 3) == 0)
{
long nblu = 0, arg = 1, flagInProgress = 0, pas = 16000, would_block;
/* lecture sur la connexion */
@@ -445,7 +446,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "set", 3))
else if(strncmp(e->fn, "set", 3) == 0)
{
long nb , pos = 0, lg, would_block;
/* ecriture sur la connexion */
@@ -480,7 +481,7 @@ long execModule(env * e, var * param, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "accept", 6))
else if(strncmp(e->fn, "accept", 6) == 0)
{
/* ecriture sur la connexion */
if(p_etat == NULL)
systemMod.c
+42 -134
View File
@@ -26,17 +26,17 @@
#include <string.h>
#ifdef UNIX
#include <dirent.h>
#include <sys/types.h>
#include <sys/utsname.h>
#include <sys/wait.h>
#include <arpa/inet.h>
#include <netdb.h>
#include <netinet/in.h>
#include <errno.h>
#include <unistd.h>
#include <dirent.h>
#include <sys/types.h>
#include <sys/utsname.h>
#include <sys/wait.h>
#include <arpa/inet.h>
#include <netdb.h>
#include <netinet/in.h>
#include <errno.h>
#include <unistd.h>
#else
#include "windows.h" // TODO ici
#include "windows.h" // TODO ici
#endif
#include "langage.h"
@@ -49,15 +49,13 @@ typedef struct {
/* mettre ici les codes d'erreurs specifiques au module */
/* codes a passer a la fonction setError */
enum {
EXMOD_SYSTEM_FICTMP = 1,
EXMOD_SYSTEM_UNKNOWNVARENV = 2,
EXMOD_SYSTEM_SETENV = 3,
EXMOD_SYSTEM_UNSETENV = 4,
EXMOD_SYSTEM_GETHOST = 5,
EXMOD_SYSTEM_UNAME = 6,
EXMOD_SYSTEM_FORK = 7
};
#define EXMOD_SYSTEM_FICTMP 1
#define EXMOD_SYSTEM_UNKNOWNVARENV 2
#define EXMOD_SYSTEM_SETENV 3
#define EXMOD_SYSTEM_UNSETENV 4
#define EXMOD_SYSTEM_GETHOST 5
#define EXMOD_SYSTEM_UNAME 6
#define EXMOD_SYSTEM_FORK 7
static int setError(modEtat * p, int err)
{
@@ -66,12 +64,13 @@ static int setError(modEtat * p, int err)
return EX_MODERR;
}
#ifdef WINLIB
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#else
extern long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#endif
{
modEtat * p_etat;
long exc = OK;
@@ -101,7 +100,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -114,7 +113,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//*** code specifique ici
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
// liberation specifique au module avant arret process
if(p_etat != NULL)
@@ -123,7 +122,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
memfree(e, p_etat);
}
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
// renvoie la version du module/plugins
if(param1->type == VAR_DYNAMIC)
@@ -133,7 +132,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -147,14 +146,14 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "execute", 7))
else if(strncmp(e->fn, "execute", 7) == 0)
{
p_etat->error = 0;
// execute(command, returning, capturing)
// pour les vars en sortie, forcer le chgt de type si besoin ?
if(!param1 || param1->type != VAR_DYNAMIC)
if(param1->type != VAR_DYNAMIC)
exc = EX_MODPARAM;
else if(!param2 || param2->type != VAR_NUMBER)
else if(param2->type != VAR_NUMBER)
exc = EX_MODPARAM;
else
{
@@ -167,30 +166,20 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
if(flagCapturing && exc == OK)
{
dynSetLen(e, param3, 0);
#ifdef WINLIB
if (!GetTempPathA(param3->mLgmax, param3->mPtr))
exc = EXMOD_SYSTEM_FICTMP;
else if(!GetTempFileNameA(param3->mPtr, "tmp", 0, e->int_dynamic.mPtr))
exc = EXMOD_SYSTEM_FICTMP;
#else
int fd; // pour avoir un nom de fichier temporaire
dynLet(e, &e->int_dynamic, "/tmp/cap_XXXXXX", 15);
if((fd = mkstemp(e->int_dynamic.mPtr)) == -1)
exc = EXMOD_SYSTEM_FICTMP;
else
close(fd);
#endif
}
if(exc == OK)
{
if(flagCapturing)
{
dynSetAs(e, param3, param1);
dynIns(e, param3, 1 + dynDcount(e, param3, '>', DYN_NONE, DYN_NONE), DYN_NONE, &e->int_dynamic, '>', DYN_NONE);
cr = system(param3->mPtr);
dynIns(e, &e->int_dynamic, 1, DYN_NONE, param3, '>', DYN_NONE);
cr = system(param1->mPtr);
dynRead(e, param3, e->int_dynamic.mPtr);
// purge fichier temp
remove(e->int_dynamic.mPtr); // pbm windows ?!
}
else
{
@@ -201,7 +190,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "getEnv", 6))
else if(strncmp(e->fn, "getEnv", 6) == 0)
{
p_etat->error = 0;
/* utilisation de dynRead qui fait le travail */
@@ -226,7 +215,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "createEnv", 9))
else if(strncmp(e->fn, "createEnv", 9) == 0)
{
p_etat->error = 0;
// setEnv(nom, valeur, overwritting)
@@ -237,31 +226,16 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = EX_MODPARAM;
else
{
#ifdef WINLIB
// verifier si existe avec getenv, si oui erreur
char * varenv = getenv(param1->mPtr);
if(varenv)
{
exc = EXMOD_SYSTEM_SETENV;
setError(p_etat, exc);
}
else if (!SetEnvironmentVariableA(param1->mPtr, param2->mPtr))
{
exc = EXMOD_SYSTEM_SETENV;
setError(p_etat, exc);
}
#else
int cr = setenv(param1->mPtr, param2->mPtr, 0); // 1 = overwrite, 0 = ne pas ecraser si existe
if(cr != 0)
{
exc = EXMOD_SYSTEM_SETENV;
setError(p_etat, cr);
}
#endif
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "updateEnv", 9))
else if(strncmp(e->fn, "updateEnv", 9) == 0)
{
p_etat->error = 0;
// setEnv(nom, valeur, overwritting)
@@ -272,24 +246,16 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = EX_MODPARAM;
else
{
#ifdef WINLIB
if (!SetEnvironmentVariableA(param1->mPtr, param2->mPtr))
{
exc = EXMOD_SYSTEM_SETENV;
setError(p_etat, exc);
}
#else
int cr = setenv(param1->mPtr, param2->mPtr, 1); // 1 = overwrite, 0 = ne pas ecraser si existe
if(cr != 0)
{
exc = EXMOD_SYSTEM_SETENV;
setError(p_etat, cr);
}
#endif
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "deleteEnv", 9))
else if(strncmp(e->fn, "deleteEnv", 9) == 0)
{
p_etat->error = 0;
// setEnv(nom, valeur, overwritting)
@@ -298,24 +264,16 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = EX_MODPARAM;
else
{
#ifdef WINLIB
if (!SetEnvironmentVariableA(param1->mPtr, NULL))
{
exc = EXMOD_SYSTEM_SETENV;
setError(p_etat, exc);
}
#else
int cr = unsetenv(param1->mPtr); // suppression
if(cr != 0)
{
exc = EXMOD_SYSTEM_UNSETENV;
setError(p_etat, cr);
}
#endif
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "getOS", 5))
else if(strncmp(e->fn, "getOS", 5) == 0)
{
p_etat->error = 0;
// uname() donne les infos
@@ -323,9 +281,6 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = EX_MODPARAM;
else
{
#ifdef WINLIB
dynLet(e, param1, "Windows", DYN_LGNONE);
#else
struct utsname name;
int lg;
if(uname(&name) == 0)
@@ -340,11 +295,10 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = EXMOD_SYSTEM_UNAME;
setError(p_etat, errno);
}
#endif
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "getHostname", 11))
else if(strncmp(e->fn, "getHostname", 5) == 0)
{
p_etat->error = 0;
// uname() donne les infos
@@ -354,48 +308,6 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
exc = EX_MODPARAM;
else
{
#ifdef WINLIB
DWORD size = param1->mLgmax;
if (!GetComputerNameA(param1->mPtr, &size))
{
exc = EXMOD_SYSTEM_GETHOST;
setError(p_etat, errno);
}
else
{
WSADATA wsaData;
if (WSAStartup(MAKEWORD(2, 2), &wsaData) != 0)
{
exc = EXMOD_SYSTEM_GETHOST;
setError(p_etat, errno);
}
else
{
if (gethostname(param2->mPtr, param2->mLgmax) == SOCKET_ERROR)
{
WSACleanup();
exc = EXMOD_SYSTEM_GETHOST;
setError(p_etat, errno);
}
else
{
struct hostent * host_entry;
host_entry = gethostbyname(param2->mPtr);
if (host_entry == NULL)
{
WSACleanup();
exc = EXMOD_SYSTEM_GETHOST;
setError(p_etat, errno);
}
else
{
dynLet(e, param2, inet_ntoa(*(struct in_addr*)host_entry->h_addr_list[0]), DYN_LGNONE);
WSACleanup();
}
}
}
}
#else
struct utsname name;
int lg;
if(uname(&name) == 0)
@@ -423,11 +335,10 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
setError(p_etat, errno);
exc = EXMOD_SYSTEM_UNAME;
}
#endif
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "fork", 4))
else if(strncmp(e->fn, "fork", 4) == 0)
{
p_etat->error = 0;
#ifndef UNIX
@@ -449,7 +360,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#endif
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "wait", 4))
else if(strncmp(e->fn, "wait", 4) == 0)
{
#ifndef UNIX
// faire differemment sous windows : pas de wait dispo ? WaitForSingleObject()
@@ -460,7 +371,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#endif
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "kill", 4))
else if(strncmp(e->fn, "kill", 4) == 0)
{
#ifndef UNIX
// faire differemment sous windows : pas de kill dispo ?
@@ -469,13 +380,10 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#endif
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "sleep", 5))
else if(strncmp(e->fn, "sleep", 5) == 0)
{
#ifdef WINLIB
if(param1->type != VAR_NUMBER)
exc = EX_MODPARAM;
// duree attente envoyee en secondes
Sleep(param1->num * 1000 / NUM_FACTEUR); // en millisec.
#ifndef UNIX
// faire differemment sous windows : pas de sleep dispo ?
#else
if(param1->type != VAR_NUMBER)
exc = EX_MODPARAM;
templateMod.c
-142
View File
@@ -1,142 +0,0 @@
/* **********************************************
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
This file is part of W language.
W language is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version (GPL-3.0-or-later).
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <string.h>
#include "langage.h"
#include "dynamic.h"
typedef struct {
int error; // dernier code erreur specifique au module
//*** a completer selon le besoin du module
} modEtat;
/* mettre ici les codes d'erreurs specifiques au module */
/* codes a passer a la fonction setError */
#define EXMOD_xxx 1
static int setError(modEtat * p, int err)
{
if(p != NULL)
p->error = err;
return EX_MODERR;
}
#ifdef WINLIB
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
{
/* TODO : gestion des 3 parametres (au lieu d'un seul) */
modEtat * p_etat;
long exc = OK;
// init/end/vers/error sont obligatoires pour tout module
// - - - - - - - - - - - - - - - - - - - -
if(etat == NULL)
return EX_MODPARAM;
else
p_etat = (modEtat *)(*etat); /* evite de la faire a chaque fonction */
//
if(param1 != NULL)
if(param1->type == VAR_PARAM)
param1 = (var *)param1->ptr; /* evite de le faire a chaque fonction */
if(param2 != NULL)
if(param2->type == VAR_PARAM)
param2 = (var *)param2->ptr; /* evite de le faire a chaque fonction */
if(param3 != NULL)
if(param3->type == VAR_PARAM)
param3 = (var *)param3->ptr; /* evite de le faire a chaque fonction */
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
if(*etat == NULL)
exc = EX_MODETAT;
else
{
p_etat = (modEtat *)(*etat);
p_etat->error = 0;
//*** code specifique ici
//
}
}
else if(modFnIs(e, "end", 3))
{
//*** code specifique ici
//
// liberation specifique au module avant arret process
if(p_etat != NULL)
memfree(e, p_etat);
}
else if(modFnIs(e, "vers", 4))
{
if(param1 == NULL)
exc = EX_MODPARAM;
else
{
// renvoie la version du module/plugins
if(param1->type == VAR_DYNAMIC)
dynLet(e, param1, "1", 1); //*** version en alpha
else if(param1->type == VAR_NUMBER)
param1->num = NUM_UN; //*** version en numerique
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
}
else if(modFnIs(e, "error", 5))
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
exc = EX_MODETAT;
else if(param1 == NULL)
exc = EX_MODPARAM;
else
{
if(param1->type == VAR_NUMBER)
param1->num = (ent64)(NUM_FACTEUR * p_etat->error);
else
exc = EX_MODPARAM; // bad type of parameter
}
}
/* ============================================================================================= */
else if(modFnIs(e, "xxx", 3))
{
//*** coder les autres fonctions ici de la meme maniere, au a mettre au debut !
exc = setError(p_etat, EXMOD_xxx);
}
/* ----------------------------------------------------------------------------------------------- */
else
{
setError(p_etat, 0); // evite un warning de compil
exc = EX_MODFUNC; // fonction non prise en charge
}
//
return exc;
}
timeMod.c
+26 -30
View File
@@ -2,7 +2,7 @@
__ __ __
\ \/ \/ / W language
\ /\ /
\/ \/ Copyright 2024,2025 lanisys.fr
\/ \/ Copyright 2024 lanisys.fr
This file is part of W language.
@@ -20,9 +20,6 @@
along with this program. If not, see <https://www.gnu.org/licenses/>.
********************************************** */
#ifdef WINLIB
#include "windows.h"
#endif
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
@@ -51,13 +48,11 @@ typedef struct {
/* mettre ici les codes d'erreurs specifiques au module */
/* codes a passer a la fonction setError */
enum {
EXMOD_GETCLOCK = 1,
EXMOD_PARAMNUM = 2,
EXMOD_FORMAT_KO = 3,
EXMOD_JETLAG_KO = 4,
EXMOD_DURATION_GETCLOCK = 5
};
#define EXMOD_GETCLOCK 1
#define EXMOD_PARAMNUM 2
#define EXMOD_FORMAT_KO 3
#define EXMOD_JETLAG_KO 4
#define EXMOD_DURATION_GETCLOCK 5
static int setError(modEtat * p, int err)
{
@@ -302,12 +297,13 @@ static void FormatTm(env * e, modEtat * p_etat, const char * format, time_t dhm,
}
/* fonctions locales au module FIN */
#ifdef WINLIB
#ifndef UNIX
/* Sous Windows, export de la fonction de base au sein d'une DLL : 1 module = 1 DLL */
__declspec(dllexport) long execModule(env * , var * , var * , var * , void ** );
#endif
long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#else
extern long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
#endif
{
/* TODO : gestion des 3 parametres (au lieu d'un seul) */
modEtat * p_etat;
@@ -330,7 +326,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
//
/* ----------------------------------------------------------------------------------------------- */
/* les 4 fonctions suivantes doivent toujours exister dans chaque module */
if(modFnIs(e, "init", 4))
if(strncmp(e->fn, "init", 4) == 0)
{
// alloc ptr sur zone memoire pour memoriser l'etat du module
*etat = memalloc(e, sizeof(modEtat));
@@ -347,7 +343,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
dynInit(e, &p_etat->valNum, DYN_LGMIN);
}
}
else if(modFnIs(e, "end", 3))
else if(strncmp(e->fn, "end", 3) == 0)
{
// liberation specifique au module avant arret process
if(p_etat != NULL)
@@ -356,7 +352,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
dynFree(e, &p_etat->horodate);
dynFree(e, &p_etat->valNum);
}
else if(modFnIs(e, "vers", 4))
else if(strncmp(e->fn, "vers", 4) == 0)
{
// renvoie la version du module/plugins
if(param1 == NULL)
@@ -368,7 +364,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
else
exc = EX_MODPARAM; // variable en parametre du mauvais type
}
else if(modFnIs(e, "error", 5))
else if(strncmp(e->fn, "error", 5) == 0)
{
// renvoie la derniere erreur specifique au module
if(p_etat == NULL)
@@ -384,7 +380,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ============================================================================================= */
else if(modFnIs(e, "startChrono", 11))
else if(strncmp(e->fn, "startChrono", 11) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -402,7 +398,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "lapChrono", 9))
else if(strncmp(e->fn, "lapChrono", 9) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -421,7 +417,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "setUTC", 6))
else if(strncmp(e->fn, "setUTC", 6) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -449,7 +445,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "setLocal", 8))
else if(strncmp(e->fn, "setLocal", 8) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -484,7 +480,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "setNowLocal", 11))
else if(strncmp(e->fn, "setNowLocal", 11) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -512,7 +508,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "setNowUTC", 9))
else if(strncmp(e->fn, "setNowUTC", 9) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -534,7 +530,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "set", 3))
else if(strncmp(e->fn, "set", 3) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -567,7 +563,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "getUTC", 6))
else if(strncmp(e->fn, "getUTC", 6) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -587,7 +583,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "getLocal", 8))
else if(strncmp(e->fn, "getLocal", 8) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -613,7 +609,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "get", 3))
else if(strncmp(e->fn, "get", 3) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -636,7 +632,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "alarmUTCHM", 10))
else if(strncmp(e->fn, "alarmUTCHM", 16) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
@@ -674,7 +670,7 @@ long execModule(env * e, var * param1, var * param2, var * param3, void ** etat)
}
}
/* ----------------------------------------------------------------------------------------------- */
else if(modFnIs(e, "alarmLocalHM", 12))
else if(strncmp(e->fn, "alarmLocalHM", 18) == 0)
{
if(p_etat == NULL)
exc = EX_MODETAT;
var.c
+6 -37
View File
@@ -29,16 +29,7 @@
#include "var.h"
#include "hashtable.h"
// force exporting
#ifdef WINLIB
#undef WAPIDECL
#define WAPIDECL __declspec(dllexport)
#else
#undef WAPIDECL
#define WAPIDECL
#endif
WAPIDECL void var_init(env * e, var * v, octet type, ent64 mod_lg, ent64 sep_lgm, pointeur pf)
void var_init(env * e, var * v, octet type, ent64 mod_lg, ent64 sep_lgm, pointeur pf)
{
/* ne pas regarder le type precedent : ecraser ! */
if(v == NULL)
@@ -64,19 +55,15 @@ WAPIDECL void var_init(env * e, var * v, octet type, ent64 mod_lg, ent64 sep_lgm
v->lg = 0;
v->lgmax = sep_lgm;
v->ptr[0] = 0;
v->codePage = WCP_DEFAULT;
}
break;
case VAR_BUFFER:
if(sep_lgm < BUF_LGMINBLOC)
sep_lgm = BUF_LGMINBLOC;
else if((sep_lgm % 32) != 0)
sep_lgm = ((sep_lgm / 32) + 1) * 32; // taille multiple de 32, sinon pile d'elements de 8 et 16 ko !!
if(sep_lgm < BUF_LGBLOC)
sep_lgm = BUF_LGBLOC;
if((v->ptr = memalloc(e, sep_lgm)) == NULL)
v->type = VAR_NULL; /* exception levee dans memalloc */
else
{
memset(v->ptr, 0, sep_lgm);
v->lgmax = sep_lgm;
v->read = 0;
v->write = 0;
@@ -111,7 +98,7 @@ WAPIDECL void var_init(env * e, var * v, octet type, ent64 mod_lg, ent64 sep_lgm
}
}
WAPIDECL void var_ctrl_param(env * e, var * v)
void var_ctrl_param(env * e, var * v)
{
/* controle que la var "v", si de type PARAM, pointe sur une var toujours existante... */
if(v->type != VAR_PARAM)
@@ -120,25 +107,7 @@ WAPIDECL void var_ctrl_param(env * e, var * v)
/* dans le cas : hash, puis var de hash, puis clear hash : quid de la var de hash : ras car c'est une copie ! */
}
WAPIDECL int var_conv_num(env * e, var * v, number * num)
{
if(!v || !num)
return FALSE;
if(v->type == VAR_PARAM)
v = (var *)v->ptr;
if(v->type == VAR_NUMBER)
{
*num = v->num;
return TRUE;
}
if(v->type != VAR_DYNAMIC)
return FALSE;
/* convertir si string, en number */
*num = dynToNumber(e, v);
return(v->mInternal == DYN_OK);
}
WAPIDECL void var_free(env * e, var * v, int suivre_par)
void var_free(env * e, var * v, int suivre_par)
{
var * pvar;
/* */
@@ -176,7 +145,7 @@ WAPIDECL void var_free(env * e, var * v, int suivre_par)
v->type = VAR_NULL;
}
WAPIDECL void var_let(env * e, var * let, var * v, int suivre_let, int suivre_v)
void var_let(env * e, var * let, var * v, int suivre_let, int suivre_v)
{
var * pvar;
/* tient compte de la valeur precedente de la var ; suivre_let/suivre_v = TRUE pour travailler avec la var pointee */
var.h
+4 -7
View File
@@ -23,13 +23,10 @@
#ifndef VAR_H
#define VAR_H
#include "apidecl.h"
WAPIDECL void var_init(env * e, var * v, octet type, ent64 mod_lg, ent64 sep_lgm, pointeur pf);
WAPIDECL void var_ctrl_param(env * e, var * v);
WAPIDECL int var_conv_num(env * e, var * v, number * num);
WAPIDECL void var_free(env * e, var * v, int suivre_par);
WAPIDECL void var_let(env * e, var * let, var * v, int suivre_let, int suivre_v);
void var_init(env * e, var * v, octet type, ent64 mod_lg, ent64 sep_lgm, pointeur pf);
void var_ctrl_param(env * e, var * v);
void var_free(env * e, var * v, int suivre_par);
void var_let(env * e, var * let, var * v, int suivre_let, int suivre_v);
/* ********************************************** */
#endif
w.bat
-18
View File
@@ -1,18 +0,0 @@
set WBIN=exec
set WLIB=.
set WSRC=.
exec\lwc prg.w
exec\lwa prg.wa
exec\lw prg
rem
exec\lwc comp.w
exec\lwa comp.wa
exec\lw comp
rem
exec\lwc pdf.w
exec\lwa pdf.wa
exec\lw pdf
rem
exec\lwc debug.w
exec\lwa debug.wa
exec\lw debug 1234
w.lex
-128
View File
@@ -1,128 +0,0 @@
; regles lex des token w
; \r est supprime des lignes et \n sert de separateur de lignes : non present
blank: (1,*,#20#09)
comment: (1,1,#3B) (0,*,#00-#FF)
begin: begin
background: background
library: library
end: end
except: except
throw: throw
catch: catch
include: include
sub: sub
endsub: endsub
if: if
then: then
else: else
elseif: elseif
endif: endif
do: do
call: call
invoke: invoke
return: return
returnon: returnon
loop: loop
endloop: endloop
foreach: foreach
in: in
like: like
endfor: endfor
break: break
breakon: breakon
continue: continue
continueon: continueon
nop: nop
part: part
echonl: echonl
echo: echo
input: input
declare: declare
let: let
delet: delet ; unlet ??
new: new
class: class
this: this
parent: parent
free: free
precision: precision
setsep: setsep
int: int
frac: frac
abs: abs
neg: neg
round: round
type: type
len: len
count: count
dcount: dcount
field: field
index: index
search: search
change: change
format: format
insert: insert
remove: remove ; delete (dynamic)
tonum: tonum
tostring: tostring
equal: =
diff: (1,1,#23) ; #
gt: >
lt: <
gte: >=
lte: <=
and: and
or: or
not: not
beginpar: (1,1,#28) ; (
endpar: (1,1,#29) ; )
beginh: (1,1,#7B) ; {
endh: (1,1,#7D) ; }
begins: (1,1,#5B) ; [
ends: (1,1,#5D) ; ]
indirect: !
typeof: ? ; typeof ??
stringdq: (1,1,#22) (0,765,#20-#21#23-#EF) (1,1,#22) ; contenu chaine : car car car #FF (en majuscule), a verifier lors du parse (hexa -> binaire + controle)
stringq: (1,1,#27) (0,765,#20-#26#28-#EF) (1,1,#27) ; idem
ident: (1,1,a-zA-Z) (0,23,a-zA-Z0-9)
varsys: @ (1,*,a-z)
numberdec: (1,13,0-9) . (0,5,0-9)
numberint: (1,13,0-9)
minus: (1,1,#2D) ; -
plus: (1,1,#2B) ; +
multiply: (1,1,#2A) ; *
divide: (1,1,#2F) ; /
divident: (1,1,#5C) ; \
modulo: (1,1,#25) ; %
concat: (1,1,#3A) ; :
listesep: (1,1,#2C) ; ,
identsep: (1,1,#2E) ; .
modsep: &
other: (1,1,#00-#FF)
; fin des regles w.lex
wlex
-100
View File
@@ -1,100 +0,0 @@
blank,1,comment,2,begin,3,background,4,library,5,end,6,except,7,throw,8,catch,9,include,10,sub,11,endsub,12,if,13,then,14,else,15,elseif,16,endif,17,do,18,call,19,invoke,20,return,21,returnon,22,loop,23,endloop,24,foreach,25,in,26,like,27,endfor,28,break,29,breakon,30,continue,31,continueon,32,nop,33,part,34,echonl,35,echo,36,input,37,declare,38,let,39,delet,40,new,41,class,42,this,43,parent,44,free,45,precision,46,setsep,47,int,48,frac,49,abs,50,neg,51,round,52,type,53,len,54,count,55,dcount,56,field,57,index,58,search,59,change,60,format,61,insert,62,remove,63,tonum,64,tostring,65,equal,66,diff,67,gt,68,lt,69,gte,70,lte,71,and,72,or,73,not,74,beginpar,75,endpar,76,beginh,77,endh,78,begins,79,ends,80,indirect,81,typeof,82,stringdq,83,stringq,84,ident,85,varsys,86,numberdec,87,numberint,88,minus,89,plus,90,multiply,91,divide,92,divident,93,modulo,94,concat,95,listesep,96,identsep,97,modsep,98,other,99
1,-1,20:09
1,1,3B;0,-1,00-FF
1,1,62;1,1,65;1,1,67;1,1,69;1,1,6E
1,1,62;1,1,61;1,1,63;1,1,6B;1,1,67;1,1,72;1,1,6F;1,1,75;1,1,6E;1,1,64
1,1,6C;1,1,69;1,1,62;1,1,72;1,1,61;1,1,72;1,1,79
1,1,65;1,1,6E;1,1,64
1,1,65;1,1,78;1,1,63;1,1,65;1,1,70;1,1,74
1,1,74;1,1,68;1,1,72;1,1,6F;1,1,77
1,1,63;1,1,61;1,1,74;1,1,63;1,1,68
1,1,69;1,1,6E;1,1,63;1,1,6C;1,1,75;1,1,64;1,1,65
1,1,73;1,1,75;1,1,62
1,1,65;1,1,6E;1,1,64;1,1,73;1,1,75;1,1,62
1,1,69;1,1,66
1,1,74;1,1,68;1,1,65;1,1,6E
1,1,65;1,1,6C;1,1,73;1,1,65
1,1,65;1,1,6C;1,1,73;1,1,65;1,1,69;1,1,66
1,1,65;1,1,6E;1,1,64;1,1,69;1,1,66
1,1,64;1,1,6F
1,1,63;1,1,61;1,1,6C;1,1,6C
1,1,69;1,1,6E;1,1,76;1,1,6F;1,1,6B;1,1,65
1,1,72;1,1,65;1,1,74;1,1,75;1,1,72;1,1,6E
1,1,72;1,1,65;1,1,74;1,1,75;1,1,72;1,1,6E;1,1,6F;1,1,6E
1,1,6C;1,1,6F;1,1,6F;1,1,70
1,1,65;1,1,6E;1,1,64;1,1,6C;1,1,6F;1,1,6F;1,1,70
1,1,66;1,1,6F;1,1,72;1,1,65;1,1,61;1,1,63;1,1,68
1,1,69;1,1,6E
1,1,6C;1,1,69;1,1,6B;1,1,65
1,1,65;1,1,6E;1,1,64;1,1,66;1,1,6F;1,1,72
1,1,62;1,1,72;1,1,65;1,1,61;1,1,6B
1,1,62;1,1,72;1,1,65;1,1,61;1,1,6B;1,1,6F;1,1,6E
1,1,63;1,1,6F;1,1,6E;1,1,74;1,1,69;1,1,6E;1,1,75;1,1,65
1,1,63;1,1,6F;1,1,6E;1,1,74;1,1,69;1,1,6E;1,1,75;1,1,65;1,1,6F;1,1,6E
1,1,6E;1,1,6F;1,1,70
1,1,70;1,1,61;1,1,72;1,1,74
1,1,65;1,1,63;1,1,68;1,1,6F;1,1,6E;1,1,6C
1,1,65;1,1,63;1,1,68;1,1,6F
1,1,69;1,1,6E;1,1,70;1,1,75;1,1,74
1,1,64;1,1,65;1,1,63;1,1,6C;1,1,61;1,1,72;1,1,65
1,1,6C;1,1,65;1,1,74
1,1,64;1,1,65;1,1,6C;1,1,65;1,1,74
1,1,6E;1,1,65;1,1,77
1,1,63;1,1,6C;1,1,61;1,1,73;1,1,73
1,1,74;1,1,68;1,1,69;1,1,73
1,1,70;1,1,61;1,1,72;1,1,65;1,1,6E;1,1,74
1,1,66;1,1,72;1,1,65;1,1,65
1,1,70;1,1,72;1,1,65;1,1,63;1,1,69;1,1,73;1,1,69;1,1,6F;1,1,6E
1,1,73;1,1,65;1,1,74;1,1,73;1,1,65;1,1,70
1,1,69;1,1,6E;1,1,74
1,1,66;1,1,72;1,1,61;1,1,63
1,1,61;1,1,62;1,1,73
1,1,6E;1,1,65;1,1,67
1,1,72;1,1,6F;1,1,75;1,1,6E;1,1,64
1,1,74;1,1,79;1,1,70;1,1,65
1,1,6C;1,1,65;1,1,6E
1,1,63;1,1,6F;1,1,75;1,1,6E;1,1,74
1,1,64;1,1,63;1,1,6F;1,1,75;1,1,6E;1,1,74
1,1,66;1,1,69;1,1,65;1,1,6C;1,1,64
1,1,69;1,1,6E;1,1,64;1,1,65;1,1,78
1,1,73;1,1,65;1,1,61;1,1,72;1,1,63;1,1,68
1,1,63;1,1,68;1,1,61;1,1,6E;1,1,67;1,1,65
1,1,66;1,1,6F;1,1,72;1,1,6D;1,1,61;1,1,74
1,1,69;1,1,6E;1,1,73;1,1,65;1,1,72;1,1,74
1,1,72;1,1,65;1,1,6D;1,1,6F;1,1,76;1,1,65
1,1,74;1,1,6F;1,1,6E;1,1,75;1,1,6D
1,1,74;1,1,6F;1,1,73;1,1,74;1,1,72;1,1,69;1,1,6E;1,1,67
1,1,3D
1,1,23
1,1,3E
1,1,3C
1,1,3E;1,1,3D
1,1,3C;1,1,3D
1,1,61;1,1,6E;1,1,64
1,1,6F;1,1,72
1,1,6E;1,1,6F;1,1,74
1,1,28
1,1,29
1,1,7B
1,1,7D
1,1,5B
1,1,5D
1,1,21
1,1,3F
1,1,22;0,765,20-21:23-EF;1,1,22
1,1,27;0,765,20-26:28-EF;1,1,27
1,1,61-7A:41-5A;0,23,61-7A:41-5A:30-39
1,1,40;1,-1,61-7A
1,13,30-39;1,1,2E;0,5,30-39
1,13,30-39
1,1,2D
1,1,2B
1,1,2A
1,1,2F
1,1,5C
1,1,25
1,1,3A
1,1,2C
1,1,2E
1,1,26
1,1,00-FF