PureBasic

Denis a écrit :Je viens de télécharger Moebius et j'ai passé mon projet à Moebius, en ne voulant que les asm (pas la lib).

Denis a écrit :A un moment, j'ai une fenêtre me disant que FASM a retourné une erreur mais il serait intéressant d'avoir le texte d'erreur de FASM.

Denis a écrit :Ensuite plus rien, la progressbar reste au 1/3. J'ai plein de fichier asm mais je ne sais pas si j'ai tout.

Denis a écrit :Je suspecte le fait que j'utilise un peu d'asm directement dans mon code (pour des problèmes liés aux listes chainées) et il serait bien que Moebius propose d'activer l'asm en ligne comme dans les options du compilateur.

Denis a écrit :Serait-il possible d'utiliser un projet pb dont l'extension est .pbp, c'est du xml (enfin je crois).

Par exemple, dans mon projet j'ai ça, il y a le fichier principal, les options asm, les skinxp, le mode debug mais inutile pour pour l'asm.

Code : Tout sélectionner

 <section name="targets">
    <target name="Cible par défaut" enabled="1" default="1">
      <inputfile value="PureIconManager_Main.pbi"/>
      <outputfile value="PueIconManager.exe"/>
      <options asm="1" xpskin="1" debug="1"/>
      <temporaryexe value="source"/>
    </target>
  </section>
</project>

Denis a écrit :@ ? Quel version de PB ?
PB 4.40 beta 5

Denis a écrit :@Peux tu regarder dans le dossier temporaire/LOGS, les logs ?
Pas activé le log, mais si c'est si important je le ferais

Denis a écrit :@Normalement, il y a n+2 (n = nb de fonctions + shared + init)
J'ai 25000 lignes de codes avec plein de fichiers include et j'ai pas compté les procedures
J'ai déjà 255 fichiers asm de créés, mais je ne vais pas compter les procédurs pb, c'est imbuvable.
Tu pourrais d'ailleurs afficher le nombre de procédures que Moebius trouve et comparer le nombres de fichiers asm

Denis a écrit :@En fait, tu souhaites que je pompe les options et les chemins directement du pbp ?
T'as tout compris

16:27:47 FASM String
16:27:47 flat assembler version 1.67.26 (1840914 kilobytes memory)
2 passes, 451 bytes.

16:27:47
16:27:47 "K:\PureBasic\compilers\fasm.exe" "C:\Users\jj\AppData\Local\Temp\Moebius\PureIconManger_Viewer_Main\ASM\PureIconManager_Init.asm" "C:\Users\jj\AppData\Local\Temp\Moebius\PureIconManger_Viewer_Main\OBJ\PureIconManager_Init.obj"
16:27:47 FASM String
16:27:47 flat assembler version 1.67.26 (1838010 kilobytes memory)

16:27:47 FASM Error
16:27:47 C:\Users\jj\AppData\Local\Temp\Moebius\PureIconManger_Viewer_Main\ASM\PureIconManager_Init.asm [35]:
JMP _PB_EOP_NoValue
error: undefined symbol '_PB_EOP_NoValue'.

16:27:47
16:27:47 Step3 > Error > 18

format MS COFF

public PB_PureIconManager_Init

extrn _GetProcessHeap@0
extrn _OleInitialize@4
extrn _PB_CloseLibrary@4
extrn _PB_GetFunction@8
extrn _PB_OpenLibrary@8
extrn _S1
extrn _S2
extrn _SYS_InitString@0
extrn PB_PIM_Display_Error
extrn PB_PIM_SetError_Code
extrn _SYS_InitString@0

PB_PureIconManager_Init:
CALL _SYS_InitString@0
PB_PureIconManager_Init:
CALL _SYS_InitString@0
_Procedure82:
PUSH   ebx
PS82=24
XOR    eax,eax
PUSH   eax
PUSH   eax
PUSH   eax
PUSH   eax
PUSH   dword 0
CALL  _OleInitialize@4
MOV    ebx,eax
AND    ebx,ebx
JE    _EndIf4
PUSH   dword 79
CALL  PB_PIM_SetError_Code
PUSH   dword 626
CALL  PB_PIM_Display_Error
JMP   _PB_EOP_NoValue
_EndIf4:
PUSH   dword _S1
PUSH   dword -1
CALL  _PB_OpenLibrary@8
MOV    dword [esp],eax
CMP    dword [esp],0
JE    _EndIf6
PUSH   dword _S2
PUSH   dword [esp+4]
CALL  _PB_GetFunction@8
MOV    dword [esp+4],eax
MOV    dword [esp+8],2
MOV    eax,dword [esp+4]
MOV    dword [esp+12],eax
PUSH   dword 4
LEA    eax,[esp+12]
PUSH   eax
PUSH   dword 0
CALL  _GetProcessHeap@0
PUSH   eax
CALL   dword [esp+28]
PUSH   dword [esp]
CALL  _PB_CloseLibrary@4
_EndIf6:
XOR    eax,eax
_EndProcedure83:
ADD    esp,16
POP    ebx
RET
_Procedure82:
PUSH   ebx
PS82=24
XOR    eax,eax
PUSH   eax
PUSH   eax
PUSH   eax
PUSH   eax
PUSH   dword 0
CALL  _OleInitialize@4
MOV    ebx,eax
AND    ebx,ebx
JE    _EndIf4
PUSH   dword 79
CALL  PB_PIM_SetError_Code
PUSH   dword 626
CALL  PB_PIM_Display_Error
JMP   _PB_EOP_NoValue
_EndIf4:
PUSH   dword _S1
PUSH   dword -1
CALL  _PB_OpenLibrary@8
MOV    dword [esp],eax
CMP    dword [esp],0
JE    _EndIf6
PUSH   dword _S2
PUSH   dword [esp+4]
CALL  _PB_GetFunction@8
MOV    dword [esp+4],eax
MOV    dword [esp+8],2
MOV    eax,dword [esp+4]
MOV    dword [esp+12],eax
PUSH   dword 4
LEA    eax,[esp+12]
PUSH   eax
PUSH   dword 0
CALL  _GetProcessHeap@0
PUSH   eax
CALL   dword [esp+28]
PUSH   dword [esp]
CALL  _PB_CloseLibrary@4
_EndIf6:
XOR    eax,eax
_EndProcedure83:
ADD    esp,16
POP    ebx
RET

format MS COFF

public PureIconManger_Viewer_Main_BytesPerLine


PureIconManger_Viewer_Main_BytesPerLine:
PureIconManger_Viewer_Main_BytesPerLine:
_Procedure86:
PUSH   ebp
PUSH   ebx
PUSH   edi
PS86=16

format MS COFF

public PureIconManger_Viewer_Main_CalculateImageOffset


PureIconManger_Viewer_Main_CalculateImageOffset:
PureIconManger_Viewer_Main_CalculateImageOffset:
_Procedure88:
PUSH   ebp
PUSH   ebx
PUSH   edi
PS88=24
XOR    eax,eax
PUSH   eax
PUSH   eax

Denis a écrit :Dans le GUI, lorsque je clique sur le bouton 'Enregistrer le Plugin de l'IDE', j'ai un boite avec un message qui me dit :

Function PureBasic_RegisterPlungin() : Where is the tools prefs file ?

Dans la boite, il n'y a qu'un bouton OK, on peut juste faire OK mais il ne se passe rien.
Je suppose que le GUI ne trouve pas le fichier tools.prefs de PB


Je suis sous Seven 32 mais c'est le même dossier que sous Vista, à savoir :

C:\Users\<username>\AppData\Roaming\PureBasic

Le disque est spécifique à ma machine. Le code qui suit fonctionne sous Vista/Seven/XP et c'est dérivé d'un code du forum anglais (Je l'utilise dans PureIconManager).

Il retourne sous SEVEN : C:\Users\<username>\AppData\Roaming\
Il retourne sous VISTA : C:\Users\<username>\AppData\Roaming\
Il retourne sous XP : C:\Documents And Settings\<username>\Application Data\

Il faut ajouter PureBasic à la fin pour obtenir le chemin des prefs

Code : Tout sélectionner

Procedure.s GetSpecialFolderLocation(val)
       Protected id, path$ = "", var$
     
     If SHGetSpecialFolderLocation_(0,val,@id) = #False
          path$ = Space(#MAX_PATH)
          
          If SHGetPathFromIDList_(id,@path$) = #False
               Select val
                    Case   #CSIDL_PROGRAM_FILES
                         var$="ProgramFiles"
               EndSelect
               
               If var$
                    path$=GetEnvironmentVariable(var$)
               EndIf
          EndIf
          
          If  path$
               If Right(path$,1)<>"\"
                    path$+"\"
               EndIf
          EndIf
          
          ;// teste que c'est bien un dossier
          If  FileSize(path$) <> - 2
               path$ = ""
          EndIf
     EndIf
     ProcedureReturn path$
EndProcedure



Path$ = GetSpecialFolderLocation(#CSIDL_APPDATA)

Debug Path$

PBPath.s = GetEnvironmentVariable("APPDATA")+"\PureBasic"
Debug PBPath
Debug FileSize(PBPath)
PBPath + "\Tools.prefs"
Debug PBPath
Debug FileSize(PBPath)

Denis a écrit :J'ai fait une tentative de compilation mais il manquait une structure que j'ai ajouté.

Mais en tentant une nouvelle compilation, j'ai le message d'erreur :

Etape 0 : Ne peut effacer le répertoire bat du projet

Je pense qu'il s'agit des droits que Moebius ne possède pas pour le dossier.

Progi1984 a écrit :
Peux tu tester ca et me dire si ca fonctionne sous Vista et Seven ?

Code : Tout sélectionner

PBPath.s = GetEnvironmentVariable("APPDATA")+"\PureBasic"
Debug PBPath
Debug FileSize(PBPath)
PBPath + "\Tools.prefs"
Debug PBPath
Debug FileSize(PBPath)

Denis a écrit :

Progi1984 a écrit :
Peux tu tester ca et me dire si ca fonctionne sous Vista et Seven ?

Code : Tout sélectionner

PBPath.s = GetEnvironmentVariable("APPDATA")+"\PureBasic"
Debug PBPath
Debug FileSize(PBPath)
PBPath + "\Tools.prefs"
Debug PBPath
Debug FileSize(PBPath)

Vista et XP sur la machine 1 sont des install de moins d'une semaine.
PB a été installé et je n'ai mis que la langue en français, le fichier Tools.prefs n'existe pas sous ces 2 install. Idem pour la machine 2 sous XP.
Ces install ne me servent qu'à tester mes codes.

Je vais adopter ton code qui est ultra simple.


Machine 1 sous SEVEN
C:\Users\Fa\AppData\Roaming\PureBasic
-2
C:\Users\Fa\AppData\Roaming\PureBasic\Tools.prefs
3353

Machine 1 sous VISTA
C:\Users\fg\AppData\Roaming\PureBasic
-2
C:\Users\fg\AppData\Roaming\PureBasic\Tools.prefs
-1

Machine 1 sous XP
C:\Documents And Settings\hb\Application Data\PureBasic
-2
C:\Documents And Settings\hb\Application Data\PureBasic\Tools.prefs
-1




Machine 2 sous VISTA
C:\Users\jj\AppData\Roaming\PureBasic
-2
C:\Users\jj\AppData\Roaming\PureBasic\Tools.prefs
3066

Machine 2 sous XP
C:\Documents And Settings\qs\Application Data\PureBasic
-2
C:\Documents And Settings\qs\Application Data\PureBasic\Tools.prefs
-1