il me semble que dans mon code tout ce que j'ai fais est en anglais (enfin ça y ressemble)Geo Trouvpatou a écrit :C'est surtout qu'il faudrait uniformiser le code.
S'il y a des procédures et variables avec des noms anglais et d'autres en français, ça ne sera peut-être pas le mieux.
J'imagine qu'il serait bien de tout mettre en anglais, si d'autres nationalités voulaient participer.
Enfin c'est vous qui voyez (Tiens ça me rappelle 2 comiques)
C'était pour ça que j'avais dit ça.Thyphoon a écrit :merci Geo Trouvpatou !
je vais mettre a jour la procédure dans le code de Thothbox ... (mais je ne ferais pa d'autre changement pour l'instant) j'attends le retour de Guimauve !
parcontre j'ai des soucis avec sous windows c'est currieux !!!! faut que je regarde de plus prêt !Geo Trouvpatou a écrit :C'était pour ça que j'avais dit ça.Thyphoon a écrit :merci Geo Trouvpatou !
je vais mettre a jour la procédure dans le code de Thothbox ... (mais je ne ferais pa d'autre changement pour l'instant) j'attends le retour de Guimauve !
Code : Tout sélectionner
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
lcid = GetThreadLocale_()
langid = LANGIDFROMLCID(lcid)
primary = PRIMARYLANGID(langid)
sub = SUBLANGID(lcid)
CompilerCase #PB_OS_Linux
lcid = ????
langid = ????
primary = ????
sub = ????
CompilerCase #PB_OS_MacOS
lcid = ????
langid = ????
primary = ????
sub = ????
CompilerEndSelectCode : Tout sélectionner
Debug GetEnvironmentVariable("LANGUAGE")Donc la langue et autre chose, probablement la disposition clavier. À confirmer...fr_CA:en
Question, est-ce que le système est assez fort pour prendre un truc du genre :djes a écrit :Super, ça bouge
Je suis là si vous avez besoin d'explications pour la partie SVN.
Pour la partie traduction, voir ce topic : http://www.purebasic.fr/french/viewtopi ... =3&t=12104
(je remets le texte d'explication ici)
Gettext et ici poedit récupèrent automatiquement les chaînes à traduire à partir des codes sources.
1 - Dans tous les sources entourez les chaînes à traduire avec t("") ou gettext("")
Code : Tout sélectionner
t(*LanguageA, "About")Code : Tout sélectionner
t("About")Code : Tout sélectionner
Debug PeekS(getenv_("LANG")) ; fr_FR.UTF-8
Debug GetEnvironmentVariable("LANG") ; fr_FR.UTF-8
Debug PeekS(getenv_("LANGUAGE")) ; fr_FR:en
Debug GetEnvironmentVariable("LANGUAGE") ; fr_FR:enCode : Tout sélectionner
If ExamineEnvironmentVariables()
While NextEnvironmentVariable()
Debug EnvironmentVariableName() + " = " + EnvironmentVariableValue()
Wend
EndIfPar exemple la variable : GNOME_DESKTOP_SESSION_ID = this-is-deprecatedGDM_KEYBOARD_LAYOUT = ca
GNOME_KEYRING_PID = 1917
LANGUAGE = fr_CA:en
USER = guimauve
SSH_AGENT_PID = 1969
COMPIZ_CONFIG_PROFILE = ubuntu
ORBIT_SOCKETDIR = /tmp/orbit-guimauve
HOME = /home/guimauve
XDG_SESSION_COOKIE = 64600120c336cb45722ed39700000006-1315837376.754006-1135282929
DESKTOP_SESSION = gnome
GTK_MODULES = canberra-gtk-module
DBUS_SESSION_BUS_ADDRESS = unix:abstract=/tmp/dbus-l1UyhBRQxO,guid=3fe0bb8dcd68e64bea56703400000038
GNOME_KEYRING_CONTROL = /tmp/keyring-XnrSc1
UBUNTU_MENUPROXY = libappmenu.so
MANDATORY_PATH = /usr/share/gconf/gnome.mandatory.path
LOGNAME = guillaume
DESKTOP_AUTOSTART_ID = 101f610ce7931d4dc13158373778207200000019360000
DEFAULTS_PATH = /usr/share/gconf/gnome.default.path
USERNAME = guimauve
GNOME_DESKTOP_SESSION_ID = this-is-deprecated
WINDOWPATH = 8
SESSION_MANAGER = local/guimauve-desktop:@/tmp/.ICE-unix/1936,unix/guimauve-desktop:/tmp/.ICE-unix/1936
GDM_LANG = fr_CA
PATH = /usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
DISPLAY = :0
LANG = fr_CA.UTF-8
XAUTHORITY = /var/run/gdm/auth-for-guimauve-80XsIb/database
SSH_AUTH_SOCK = /tmp/keyring-XnrSc1/ssh
SHELL = /bin/bash
GDMSESSION = gnome
PWD = /home/guimauve
XDG_DATA_DIRS = /usr/share/gnome:/usr/local/share/:/usr/share/
XDG_CONFIG_DIRS = /etc/xdg/xdg-gnome:/etc/xdg
GIO_LAUNCHED_DESKTOP_FILE = /home/guillaume/.local/share/applications/alacarte-made.desktop
GIO_LAUNCHED_DESKTOP_FILE_PID = 7744
PUREBASIC_HOME = /home/guimauve/PureBasic/purebasic460/
LD_LIBRARY_PATH = /home/guimauve/PureBasic/purebasic460/compilers/:
Code : Tout sélectionner
#include <langinfo.h>
char *s;
s = getenv("LANG");
if (s == NULL)
printf("LANG is not set");
else {
setlocale(LC_ALL, s);
printf(nl_langinfo(_NL_IDENTIFICATION_LANGUAGE));
}
Code : Tout sélectionner
; Utile pour la portabilitée du code.
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows : #EOL$ = #CRLF$ : #SeparatorDir = "\"
CompilerCase #PB_OS_Linux : #EOL$ = #LF$ : #SeparatorDir = "/"
CompilerCase #PB_OS_MacOS : #EOL$ = #CR$ : #SeparatorDir = "/"
CompilerEndSelectCode : Tout sélectionner
;*********************************
;* Title : DirectoryCreate(dossier$)
;* Author : GeoTrouvpatou
;* Date : 13/09/2011
;* Compatibility
;* Windows x86 [?] | Windows x64 [Ok]
;* Linux x86 [?] | Linux x64 [Ok]
;* MacOs PPC [?] | MacOs intel [?]
;* Unicode [?]
;* Demo [Ok]
;*********************************
DebugLevel 2
; Utile pour la portabilitée du code.
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows : #EOL$ = #CRLF$ : #SeparatorDir = "\"
CompilerCase #PB_OS_Linux : #EOL$ = #LF$ : #SeparatorDir = "/"
CompilerCase #PB_OS_MacOS : #EOL$ = #CR$ : #SeparatorDir = "/"
CompilerEndSelect
Procedure.b DirectoryCreate(dossier$)
; Il est préférable de mettre le code ci-dessous parce que
; si l'on met pour dossier$ : "toto\titi\vovo\aze" cela ne créer pas
; le repertoire "aze" considérant que c'est un fichier.
If Right(dossier$, 1) <> #SeparatorDir
dossier$ + #SeparatorDir
EndIf
; ; ; CompilerSelect #PB_Compiler_OS
; ; ;
; ; ; CompilerCase #PB_OS_Windows
; ; ; Debug "Windows Use"
; ; ; ; Sous Windows autant utiliser une API existante.
; ; ; ProcedureReturn MakeSureDirectoryPathExists_(dossier$)
; ; ;
; ; ;
; ; ; CompilerCase #PB_OS_Linux ;Or #PB_OS_MacOS
; ; ; Debug "Linux Use"
Protected.b nbDossiersPourBoucle, indexDossierActuel ; Sert à la boucle For ... Next
Protected nbDossiersExistants.b ; Nb de dossiers déjà créés.
Protected nomDossier$
Protected nomCheminComplet$
Debug dossier$, 2
nbDossiersPourBoucle = CountString(dossier$, #SeparatorDir)
Debug "Nombre de dossiers : "+ Str(nbDossiersPourBoucle), 2
For indexDossierActuel = 1 To nbDossiersPourBoucle
nomDossier$ = StringField(dossier$, indexDossierActuel, #SeparatorDir)
Debug "nomDossier$ : "+ nomDossier$, 2
; [1] On liste le chemin vers le dernier dossier.
; On a un dossier principal et pas de sous-dossier.
If indexDossierActuel = 1
nomCheminComplet$ + nomDossier$
Debug Str(indexDossierActuel) +" nomCheminComplet$ >>> " + nomCheminComplet$, 2
Else
; On a des sous-dossiers, donc à chaques fois, on ajoute
; le chemin précédent, plus un Slash plus le nom de dossier en cours.
nomCheminComplet$ + #SeparatorDir + nomDossier$
Debug Str(indexDossierActuel) +" nomCheminComplet$ >>> " + nomCheminComplet$, 2
EndIf
; [2] On créer le dossier en fonction de son chemin.
; Si c'est un dossier et qu'il existe alors on ne fait qu'incrementer nbDossiersExistants
If FileSize(nomCheminComplet$) = -2
nbDossiersExistants + 1
Else
; Si le dossier n'existe pas, alors on le créer et si le dossier a bien été créé,
; alors on incremente nbDossiersExistants
If CreateDirectory(nomCheminComplet$) <> 0
nbDossiersExistants + 1
EndIf
EndIf
Next indexDossierActuel
; [3] On vérifie si tous les dossiers ont bien été créés
Debug "nbDossiersPourBoucle : "+ Str(nbDossiersPourBoucle), 2
Debug "nbDossiersExistants : "+ Str(nbDossiersExistants), 2
; Si nbDossiersPourBoucle = nbDossiersExistants, alors c'est que tous
; les dossiers ont bien été créés et donc la procedure retourne 1
If nbDossiersPourBoucle = nbDossiersExistants
ProcedureReturn #True
EndIf
ProcedureReturn #False
; ; ; CompilerEndSelect
EndProcedure
; CallDebugger
; Exemple :
Debug DirectoryCreate("toto\titi\vovo\aze") ; Windows
; Debug DirectoryCreate("toto/titi/vovo/aze") ; Linux
; Debug DirectoryCreate("toto\") ; Test avec un unique dossier.
Code : Tout sélectionner
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : BuiltPathDirectory()
; Fichier : BuiltPathDirectory.pbi
; Version : 1.0.0
; Programmation : OK
; Programmé par : Guimauve
; Date : 29-04-2008
; Mise à jour : 14-09-2011
; Codé avec PureBasic V4.60 RC1
; Plate forme : Windows, Linux, MacOS
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Procedure.b BuiltPathDirectory(Path.s)
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
PathSep.s = "\"
CompilerCase #PB_OS_Linux
PathSep.s = "/"
CompilerCase #PB_OS_MacOS
PathSep.s = "/"
CompilerEndSelect
DirectoryQty = CountString(Path, PathSep)
For Index = 0 To DirectoryQty
Directory.s = Directory + StringField(Path, Index + 1, PathSep) + PathSep
If FileSize(Directory) <> -2
CreateDirectory(Directory)
EndIf
Next
If FileSize(Directory) = -2
Success.b = #True
Else
Success = #False
EndIf
ProcedureReturn Success
EndProcedure
; Debug BuiltPathDirectory("toto\titi\vovo\aze") ; Windows
Debug BuiltPathDirectory("toto/titi/vovo/aze") ; Linux, MacOS
; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<