Projet mkd/mkd.c

De Wiki EELL.

(Différences entre les versions)
m (Page créée avec « {{Modèle:Pas fini/autre}} <small>Retour aux fichiers en développement →</small> [[Catégorie:Générateurs de documentation]… »)
m (Pas fini mis en commentaire)
 
(11 versions intermédiaires masquées)
Ligne 1 : Ligne 1 :
-
{{Modèle:Pas fini/autre}}
+
<!--{{Modèle:Pas fini/autre}}-->
<small>[[Projet mkd/Fichiers en développement|Retour aux fichiers en développement &rarr;]]</small>
<small>[[Projet mkd/Fichiers en développement|Retour aux fichiers en développement &rarr;]]</small>
 +
 +
 +
== version.h ==
 +
{{Boîte déroulante/début|titre=version.h Updated 11 may 2013}}
 +
<pre style="color:red">
 +
/*
 +
* © mkd, version 2009.12 et ultérieures
 +
*
 +
* Concédée sous licence EUPL, version 1.1 ou – dès leur approbation par la
 +
* Commission européenne - versions ultérieures de l’EUPL (la «Licence»).
 +
* Vous ne pouvez utiliser la présente œuvre que conformément à la Licence.
 +
* Vous pouvez obtenir une copie de la Licence à l’adresse suivante:
 +
*
 +
* http://ec.europa.eu/idabc/eupl5
 +
*
 +
* Sauf obligation légale ou contractuelle écrite, le logiciel distribué sous
 +
* la Licence est distribué «en l’état»,
 +
* SANS GARANTIES OU CONDITIONS QUELLES QU’ELLES SOIENT, expresses ou implicites.
 +
* Consultez la Licence pour les autorisations et les restrictions linguistiques
 +
* spécifiques relevant de la Licence.
 +
*/
 +
 +
/*P
 +
NOM DU FICHIER: version.h
 +
PROJET INITIAL: mkd console linux & MSDOS
 +
DOSSIER INITIAL : mkdoc3.12 Centre d'Electronique de Montpellier
 +
PROGRAMMEUR: JPL
 +
DATE: 18/12/2009
 +
MODIFICATIONS:
 +
le: 09/01/2011 par JPL objet: Ajouté l'option de compilation pour MSDEV41
 +
le: 10/01/2012 par JPL objet: Ajouté la définition std_C pour compilation UNIX STD
 +
le: 25/03/2012 par Clara objet: internationalisation
 +
le: 27/03/2012 par jpl objet: internationalisation en utf-8
 +
le: 10/04/2013 par Cardabela: Modification mineure. Alignement des commentaires.
 +
        le: 11/05/2013 par jpl mise à jour des définitions CD* pour tri.c
 +
*/
 +
// le: ../../.. par .............. objet de la modification ....
 +
 +
/*E ?C?*/
 +
/**# MKD.C ############################*/ /*H*/
 +
/*U            UTILISATEURS            */ /*H*/
 +
/*O            ORGANIGRAMME            */ /*H*/
 +
/*S              STRUCTURE            */ /*H*/
 +
/*T                TESTS              */ /*H*/
 +
/*P            PROGRAMMEUR            */ /*H*/
 +
/*www    remarques particulieres      */ /*H*/
 +
/**####################################*/ /*H*/
 +
 +
// define VERSION line 173
 +
 +
#define UNIX /*O UNIX version */ /* Delete this line for PC version */
 +
//#define GTKMM /*O Version fenêtrée avec gtkmm pour mkdcppw uniquement */
 +
 +
#ifndef UNIX            /*H*/
 +
#define PC              /*O version de compilation PC  */  /*H*/
 +
/*#define PC_ONLY*/    /*H find_ ne reconnaît pas: .s .f .p .sh .csh  */
 +
#define NL "\r\n"      /*H*/
 +
//#define VC10 /*O Microsoft Visual C 10.- */
 +
#define MSDEV41
 +
#endif                  /*H*/
 +
                        /*H*/
 +
#ifdef UNIX            /*H*/
 +
// #define UNIX_ONLY    /*H find_ ne reconnaît pas: .BAS .PAS .FOR ... */
 +
#endif                  /*H*/
 +
                        /*H*/
 +
 +
/*H #D *************************************************************************************/
 +
/*H *** #Define OPTIONS DE COMPILATION:  options par défaut, redéfinissables: **************
 +
          (#D pour l'extraction des options de compilation en ligne avec l'option CD3='#') */
 +
/*H****************** #Define 'l' (ligne) commence par #define en 1ère colonne : ***********/
 +
#define CD1 '%'  /*H #Define Option CD1 en 1ère colonne  prend fin avec NL                */
 +
#define CD2 '<'  /*H #Define Option CD2 en 1ère colonne  prend fin avec NL                */
 +
#define CD3 '!'  /*H #Define Option CD3 dans la ligne    prend fin avec NL                */
 +
                  /*H #Define Option '!' commentaire Fortran 90 et ultérieurs              */
 +
                  /*H #Define Option '%' commentaire postcript                            */
 +
                  /*H #Define Option '#' commentaire shell ou pour Makefile voir option S
 +
                                    ( le commentaire se termine avec new_line )          */
 +
                  /*H #Define Option '\'' commentaires Basic                              */
 +
                  /*H #Define Option ';'  commentaires assembleur                          */
 +
/*H ***************** #Define Option 'p' (dans la page) #define en 1ère colonne : **********/
 +
#define CD4 '\"'  /*H #Define Option CD4 = "  debut de commentaire                        */
 +
#define CD5 '\"'  /*H #Define Option CD5 = "  fin de commentaire                          */
 +
                  /*H #Define **************************************************************/
 +
#define FULL_LINE /*H #Define Option de compil. copier toute la ligne                      */
 +
/*H #D *************************************************************************************/
 +
 +
 +
 +
/*H*/
 +
#define VERSION "13.05 alpha1" /*H*/
 +
/*H*/
 +
#define MAX    85 /*H longueur des buffers des path source et doc */
 +
#define STX    0x2 /*H Start Text */
 +
#include <stdio.h> /*H*/
 +
/*H*/
 +
#ifdef PC /*H*/
 +
#include <conio.h> /*H*/
 +
#include <process.h> /*H*/
 +
#include <io.h> /*H*/
 +
#endif /*H*/
 +
#ifdef VC10 /*H Microsoft Visual C 10.- */
 +
#define putch _putch /*H ISO C++ */
 +
#define getch _getch /*H ISO C++ */
 +
#define access _access /*H ISO C++ */
 +
#endif /*H*/
 +
/*H*/
 +
#ifdef MSDEV41 /*H*/
 +
//#define STD_C /*H SVr4, 4.3BSD, C89, C99.*/
 +
#include <string.h> /*H*/
 +
#endif /*H*/
 +
/*H*/
 +
#ifdef UNIX /*H*/
 +
#define NL "\n"                /*H*/
 +
  #define exit return
 +
#define bool int
 +
//#define STD_C /*H SVr4, 4.3BSD, C89, C99.*/
 +
//#define getch() getchar()*/ defined in mkd.c
 +
#define putch putchar /*H*/
 +
#include <signal.h> /*H*/
 +
#include <sys/file.h> /*H*/
 +
#include <string.h> /*H*/
 +
#endif /*H*/
 +
</pre>
 +
{{Boîte déroulante/fin}}
 +
 +
== mkd.h ==
 +
<pre style="color:green">
 +
// asm.cpp:
 +
extern int asm_(FILE *pfdoc, FILE *pnfile);
 +
 +
   
 +
// File: basic.c
 +
void basic_ (FILE * pfdoc, FILE * pnfile);
 +
 +
   
 +
// File: cpp.c
 +
extern int cpp_ (FILE * pfdoc, FILE * pnfile);
 +
   
 +
// File: fortran.c
 +
void fortran_ (FILE * pfdoc, FILE * pnfile);
 +
   
 +
// File: pascal.c (Comments for UTF-8 text editor)
 +
void pascal_ (FILE * pfdoc, FILE * pnfile);
 +
 +
   
 +
// File: shell.c (Comments for UTF-8 text editor)
 +
void shell_ (FILE * pfdoc, FILE * pnfile);
 +
 +
   
 +
// File: tri.c
 +
void tri_ (FILE * pfdoc, FILE * pnfile);
 +
</pre>
 +
 +
== mkd.c ==
 +
{{Boîte déroulante/début|titre=mkd.c ; Update 11 may 2013}}
 +
<pre style="color:red">
 +
/*D
 +
COPYRIGHT:
 +
  © Contact: http://edeulo.free.fr/contacts/formmail.php
 +
  © EELL, Éditeurs Européens de Logiciels Libres, 2007
 +
  Association à but non lucratif selon l'Article 11 de la convention européenne
 +
  des droits de l'homme.
 +
 +
AUTHORS:
 +
  Designer: intial JP Louyot (JPL)
 +
  Updates : JPL and Clara Jimenez
 +
  Tranlations: Alizée, Clara, JPL, JPT, Luca
 +
*/
 +
/*P
 +
NOM DU FICHIER: mkd.c
 +
PROJET INITIAL: mkd console linux & Windows 7
 +
DOSSIER INITIAL : mkdoc3.12 Centre d'Electronique de Montpellier
 +
PROGRAMMEUR: Jean-Paul LOUYOT
 +
DATE: 18/12/2009
 +
MODIFICATIONS:
 +
le: 10/03/2010 par JPL :  Mise à jour pour Visual C 10
 +
le: 25/03/2012 par Clara : internationalisation
 +
le: 31/03/2012 par jpl : internationalisation. Conversion du fichier
 +
                                au format UTF-8
 +
le: 18/04/2013 par jpl : mise à jour pour version 2013 alpha
 +
le: 11/05/2013 par jpl : pour compilation avec les fichiers mis à jour
 +
*/
 +
// le: ../../.. par
 +
 +
</pre>
 +
<pre style="color:blue">
 +
#include "version.h"
 +
#include "strings.h"
 +
#include "mkd.h"
 +
 +
#include "internationalisation.h"
 +
 +
unsigned char A,B,C,F,P,S,a,f,j,l,n,p,s,t,v,w; /*P ajout n et v version 3.1 */
 +
/* static */ char codes[5] = {0,0,0,0,0};
 +
 +
 +
/** #######################################
 +
    #          SOUS PROGRAMMES          #
 +
    ####################################### */
 +
 +
 +
// #include "asm.inc.c"     //P old version see asm.c
 +
// #include "basic.inc.c"  //P old version see basic.c
 +
// #include "c.inc.c"     //P old version see cpp.c
 +
// #include "fortran.inc.c" //P old version see fortran.c
 +
// #include "pascal.inc.c"  //P old version see pascal.c
 +
// #include "shell.inc.c"  //P old version see shell.c
 +
// #include "tri.inc.c"    //P old version see tri.c
 +
 +
 +
 +
int tolower(int c)
 +
// char c;
 +
    {
 +
        if( c >='A' && c <='Z' ) c=(c-'A')+'a';
 +
        return(c);
 +
    }
 +
 +
int toupper(int c)
 +
// char c;
 +
    {
 +
        if( c >='a' && c <='z' ) c=(c-'a')+'A';
 +
        return(c);
 +
    }
 +
 +
#ifdef UNIX
 +
int getch()
 +
    {
 +
        int c;
 +
        c=getc(stdin);
 +
        if (c=='\r')c='\n';
 +
        return(c);
 +
    }
 +
#define exit return //P c++
 +
#endif
 +
 +
 +
 +
 +
/** #######################################
 +
    #              MAIN()                #
 +
    ####################################### */
 +
 +
 +
int main (int argc, char * argv[])
 +
// int argc;
 +
// char *argv[];
 +
{ /*S main */
 +
//O Internationalization Initialization
 +
//  i18n: initializes the entire current locale of the program as per
 +
//  environment variables set by the user
 +
    setlocale( LC_ALL, "" );   
 +
//  i18n: Indicate the path of the i18n catalog file
 +
    bindtextdomain( "mkd", "/usr/share/locale" );   
 +
//  i18n: sets the message domain
 +
    textdomain( "mkd" );
 +
 +
    char *fprj;      // nom du fichier de projet s'il existe
 +
    char fdoc[MAX];  // nom du fichier cible
 +
    char fsrc[MAX];  // nom du fichier source
 +
    extern  char codes[];  // codes
 +
    extern unsigned char A,B,C,F,P,S,a,f,j,l,n,p,s,t,v,w; // booléennes
 +
    int i,k;          // compteurs
 +
    char isource;    // position nom du fichier source dans path source
 +
    char itarget;    // position fin du path_target avec '*' ou ':'(PC)
 +
    char ktar;        // position du '.' dans p_target
 +
    static char O;    // booléen =1 si option validée
 +
    static char L;    // booléen =1 si option langage
 +
    register int c;  // char (variable)
 +
    int c1;          // char (variable) pour version PC
 +
    int ret = 0;      // essai
 +
 +
    FILE *pfprj;  // fichier de projet      */
 +
    FILE *pnfile; // fichier source
 +
    FILE *pfdoc;  // fichier cible
 +
 +
/*##########################################################################*/
 +
/*O si argc < 3 ou arc > 5: */
 +
/*##########################################################################*/
 +
/*O alors ecrire 'USAGE', donner la syntaxe puis quitter */
 +
    if ( argc < 3 || argc > 5 )
 +
    { //S argc <3 ou argc > 5 : syntaxe
 +
 +
#ifdef PC
 +
        ret = printf(gettext("mkd PC version, Release %s, USAGE:\n"),VERSION);
 +
        printf(gettext("syntax: mkd [-ABCFPSafjlnpstvw] char_codes path_source [path_target]\n"));
 +
        puts  (gettext("    or: mkd ? .See also mkd.doc or manual."));
 +
#endif
 +
 +
#ifdef UNIX
 +
        printf(gettext("mkd UNIX version, Release %s, USAGE:\n"),VERSION);
 +
        printf(gettext("syntax: mkd [-ABCFPSafjlnpstvw] char_codes path_source [path_target]\n"));
 +
        puts  (gettext("    or: mkd \\? .See also nanual: \'man mkd\'"));
 +
#endif
 +
 +
        if( argc==2 && argv[1][0]=='?' )
 +
        { //S argc=2 et ?
 +
          printf(gettext(" --> options:\n"));
 +
          printf(gettext("      -A decode Assembler comment style only\n"));
 +
/* #ifndef UNIX_ONLY */
 +
          printf(gettext("      -B        Basic style\n"));
 +
/* #endif */
 +
          printf(gettext("      -C        C++ style\n"));
 +
          printf(gettext("      -F        Fortran 77 style\n"));
 +
          printf(gettext("      -P        Pascal style\n"));
 +
/* #ifndef PC_ONLY */
 +
          printf(gettext("      -S        Shell style\n"));
 +
/* #endif */
 +
          printf(gettext("      -a append target file\n"));
 +
          printf(gettext("      -f:\n"));
 +
 +
#ifndef UNIX_ONLY
 +
          printf(gettext("          find language ( .ASM .BAS .C .FOR .PAS .PRO )\n"));
 +
#endif
 +
 +
#ifndef PC_ONLY
 +
          printf(gettext("          find language ( .s .S .c .h .i .f .F .r .p .sh .csh )\n"));
 +
#endif
 +
 +
          printf(gettext("      -j use only with project sources file.\n"));
 +
          printf(gettext("      -l and p;  line:  (compil.: %c or %c in first column or %c in line)\n"),CD1,CD2,CD3);
 +
          printf(gettext("                  page:  (compil.: begin with %c and end with %c)\n"),CD4,CD5);
 +
          printf(gettext("      -n insert line number\n"));
 +
          printf(gettext("      -s copy and add to screen\n"));
 +
          printf(gettext("      -t copy the comment only\n"));
 +
          printf(gettext("      -v verbose\n"));
 +
          printf(gettext("      -w overwrite (default option: switch off)\n"));
 +
          printf(gettext(" --> char_codes: all ASCII "));
 +
 +
#ifdef PC
 +
          printf(gettext("except space:' '  (5 char max)\n"));
 +
          printf(gettext("                example codes = UM or *OPTw or *HOS or ** for all\n"));
 +
#endif
 +
 +
#ifdef UNIX
 +
          printf(gettext(" (5 char max)\n"));
 +
          printf(gettext("                example codes = UM or \\*OPTw or '* HOS' or '**' for all\n"));
 +
#endif
 +
 +
          printf(gettext(" --> path_source: source file (option j: if it is a project file) \n"));
 +
          printf(gettext(" --> path_target: target file\n"));
 +
 +
#ifdef UNIX
 +
          printf(gettext("Example: mkd -Csnv '*S' file.c \\*.verif_struct\n"));
 +
#endif
 +
 +
#ifdef PC
 +
          printf(gettext("Example: mkd -Cs *Snv file.c *.str\n"));
 +
#endif
 +
          printf(gettext(".Exit 2\n"));
 +
          exit(2); /* Pour un contrôle éventuel (make) */
 +
        } //S argc=2 et ?
 +
    } //S argc <3 ou argc > 5 : syntaxe
 +
 +
/*O sinon exécuter la suite de la commande: */
 +
    else
 +
        { /*S corps */
 +
 +
/*O  valider QUIT par CTRL \ */
 +
#ifdef UNIX
 +
        signal(SIGQUIT,SIG_DFL);
 +
#endif
 +
 +
/*www n'est pas utile lorsque break est 'on' avant lancement de mkd
 +
éliminer cette procédure évite la recherche de command.com sur disque.
 +
#ifdef PC
 +
        c=system("BREAK ON");
 +
#endif
 +
www*/
 +
 +
/*O    init fsrc & fdoc buffers */
 +
          for(i=0;i<MAX;fsrc[i]='\0',fdoc[i]='\0',++i);
 +
/*O    init options par défaut */
 +
          {A=0;B=0;C=0;F=0;P=0;S=0;a=0;f=0;j=0;l=0;n=0,p=0;s=0;t=0;v=0;w=0;} /*O*/
 +
          O=0; /* Option=0 */
 +
/*O    si argc>3 */
 +
          if (argc>3)
 +
          { /*S argc>3 */
 +
/*O      si en 2ème paramètre 1er char = '-' décoder les options */
 +
              if( argv[1][0]=='-')
 +
              { /*S*/
 +
/*O          initialiser les paramètres du tant que */
 +
                O=1; /* Option=1 */
 +
                c=1;
 +
                i=1;
 +
/*O          tant que pas fin paramètres options & (5 options max) */
 +
                while (c != '\0' && i < 13)
 +
                { /*S*/
 +
/*O            valider les options */
 +
                    if ((c=argv[1][i]) == 'a') a=1;
 +
                    else if (c=='w') w=1;
 +
                      else if (c=='l') l=1;
 +
                          else if (c=='p') p=1;
 +
                              else if (c=='j') j=1;
 +
                                else if (c=='f') f=1;
 +
                                    else if (c=='s') s=1;
 +
                                      else if (c=='t') t=1;
 +
                                          else if (c=='A') A=1;
 +
                                            else if (c=='B') B=1;
 +
                                                else if (c=='C') C=1;
 +
                                                  else if (c=='F') F=1;
 +
                                                      else if (c=='P') P=1;
 +
                                                        else if (c=='S') S=1;
 +
                                                            else if (c=='n') n=1;
 +
                                                              else if (c=='v') v=1;
 +
                    i++;
 +
                } /*S*/
 +
/*O          si A+B+C+F+P+S > 1 il y a erreur le dire et quitter */
 +
              if((L=A+B+C+F+P+S)>1)
 +
                {
 +
                printf(gettext("Syntax error: Too many 'Language' options:\n"));
 +
                printf(gettext(" A or B or C or...please.\n.Exit 2\n"));
 +
                exit(2);
 +
                }
 +
/*O          sinon si option langage = 1 imposer (find) f = 0 */
 +
              else if(L==1)
 +
                {
 +
                f=0;
 +
                }
 +
/*O            sinon si pas d'option de langage et p=1 ou l=1 alors f=0 */
 +
                else if (L==0 && p==0 && l==0) f=1;
 +
 +
/*O          si a=1 et w=1 alors a=w=0 */
 +
                if (a==1 && w==1)
 +
                {
 +
                if (v) printf(gettext("Options a or w please... "));
 +
                a=w=0;
 +
                }
 +
              } /*S*/
 +
              /*wwwO sinon écrire Option syntax error (OPTION DE COMPILATION) */
 +
              /*www else {printf("Option '-' syntax error\n");exit(2);} */
 +
          } /*S argc>3 */
 +
 +
/*O    si langage et mode verbose : */
 +
        if(L && v)
 +
          { /*SL*/
 +
/*O      donner les options a l'écran */
 +
          printf (gettext("Force language comment, style "));
 +
          if(A)printf(gettext("ASSEMBLER\n"));
 +
          else if(B)printf(gettext("BASIC\n"));
 +
              else if(C)printf(gettext("C\n"));
 +
                else if(F)printf(gettext("FORTRAN\n"));
 +
                    else if(P)printf(gettext("PASCAL\n"));
 +
                      else if(S)printf(gettext("SHELL\n"));
 +
          } /*SL*/
 +
 +
          if (v) printf (gettext("Options a=%d f=%d j=%d l=%d n=%d p=%d s=%d t=%d w=%d\n"),a,f,j,l,n,p,s,t,w);
 +
 +
/*###########################################################################*/
 +
/*O    si ( argc > 3 et Opt ) examiner les cas *. *.* pour path_target=""    */
 +
/*###########################################################################*/
 +
        if (argc > 3+O && ((c=argv[O+3][0])=='.'||c=='*') )
 +
          { /*S cas ramenés */
 +
          if(c=='*')
 +
              { /*S *. *.* */
 +
              if(argv[O+3][1]=='.'&&((c=argv[O+3][2])=='*'||c=='\0') )argc=O+3;
 +
              } /*S * */
 +
          else
 +
              { /*S . */ /*P même répertoire */
 +
              if(argv[O+3][1]=='\0')argc=O+3;
 +
/*      Les cas '\*'.... sont examines plus loin */
 +
              } /*S . */
 +
          } /*S cas ramenés */
 +
 +
/*##########################################################################*/
 +
/*O    si argc<4 ou (argc<5 avec Options)
 +
                  - ligne de commande "mkd -options char_codes path"
 +
                  -                ou "mkd char_codes path"
 +
                  - (source et dest auront même path avec suffixe différent) */
 +
/*###########################################################################*/
 +
          if (argc<4+O)
 +
          { /*S même path */
 +
 +
/*O      alors si j=1 fprj=4ème argument de la ligne de commande */
 +
              if (j==1) fprj=argv[3]; /* fichier projet si j */
 +
 +
/*O      fsrc=O+2ème arg. de la ligne de commande a copier dans fsrc */
 +
              { /*S source */
 +
              k=0;isource=0;
 +
              c=1;
 +
#ifdef PC
 +
              if(argv[O+2][1]==':')isource=2;
 +
#endif
 +
              for (i=0; c != '\0' && i < MAX-5;++i)
 +
                { /*S*/
 +
                if((c=argv[O+2][i])=='.')k=i; /* pour find */
 +
#ifdef PC
 +
                if(c=='\\')isource=i+1;
 +
#endif
 +
#ifdef UNIX
 +
                if(c=='/')isource=i+1;
 +
#endif
 +
                    else if(c=='*')
 +
                    { /*S*/
 +
                    printf(gettext("Syntax error '*' in path_source.\n.Exit 2\n"));
 +
                    exit(2);
 +
                    } /*S*/
 +
                fsrc[i]=c;
 +
                } /*S*/
 +
#ifdef PC
 +
/*O            si  '\:'  adresser un message d'erreur et quitter */
 +
                if (isource==1&&argv[O+2][1]==':')
 +
                { /*S*/
 +
                printf(gettext("Arg. syntax error '\\:'\n.Exit 2 \n"));
 +
                exit(2);
 +
                } /*S*/
 +
#endif
 +
 +
/*O            si find est positionne et pas j: chercher le langage */
 +
                if(f&&!j)
 +
                { /*S*/
 +
                // puts("\nTEST: f positionné et pas j ... rechercher avec find"); //T
 +
#include"find.inc.c"
 +
 +
              if (j==1) fprj=argv[O+2]; /* fichier projet si j trouve */
 +
                } /*S*/
 +
              } /*S source */
 +
 +
 +
 +
/*O      recopier le nomfichier sans path dans fdoc et noter l'emplacement du point s'il existe */
 +
              k=0;
 +
              for ( i = 0 ;(c=argv[O+2][i+isource]) != '\0' && i < MAX-5; ++i )
 +
              { /*S*/
 +
              fdoc[i]=c;
 +
              if(c=='.')k=i;
 +
              } /*S*/
 +
/*O      si le source a le suffixe .DOC l'ecrire et quitter le pgm  */
 +
              if(k)i=k;
 +
              if ( fdoc[i]=='.' && ((c=(fdoc[i+1]))=='d'||c=='D')
 +
                                && ((c=(fdoc[i+2]))=='o'||c=='O')
 +
                                && ((c=(fdoc[i+3]))=='c'||c=='C'))
 +
                { /*S*/
 +
                printf(gettext("Syntax error: path_source, suffixe '.doc'\n.Exit 2\n"));
 +
                exit(2);
 +
                } /*S*/
 +
/*O      sinon donner le suffixe .doc au fichier documentaire */
 +
              else
 +
              { /*S*/
 +
              fdoc[i] = '.'  ;
 +
              fdoc[i+1] = 'd' ;
 +
              fdoc[i+2] = 'o' ;
 +
              fdoc[i+3] = 'c' ;
 +
              fdoc[i+4] = '\0' ;
 +
              } /*S*/
 +
          } /*S meme path */
 +
 +
 +
/*###########################################################################*/
 +
/*O    sinon si ( argc > 3 et Opt )
 +
                    -ligne de commande "mkd char_codes path_src path_target
 +
                    -    ou " mkd -options char_codes path_src path_target
 +
                    -(path doc et path src seront différents) */
 +
/*##########################################################################*/
 +
          else if (argc > 3+O)
 +
              { /*S path différents */
 +
/*O          copier les noms de fichier: */
 +
/*O            si j=1 fprj=4ème argument de la ligne de commande */
 +
                    if (j==1) fprj=argv[3];  /* 3 = O+2 */
 +
 +
 +
/*              fsrc est O+2ème arg. de la ligne de commande a copier dans fsrc */
 +
/*O            copier le path source dans fsrc pour évaluation des paramètres */
 +
                    { /*S source */
 +
                    isource=0;itarget=0;
 +
#ifdef PC
 +
                    if(argv[O+2][1]==':')isource=2;
 +
#endif
 +
 +
                    for (i=0; (c=argv[O+2][i]) != '\0' && i < MAX-1;++i)
 +
                      { /*S examen des positions de '/' et '.' */
 +
                      if(c=='.')k=i;  /* pour find */
 +
#ifdef PC
 +
                      else if(c=='\\')isource=i+1;  /* '\:' n'est pas evalue */
 +
#endif
 +
#ifdef UNIX
 +
                      else if(c=='/')isource=i+1;
 +
#endif
 +
                          else if(c=='*')
 +
                          { /*S*/
 +
                          printf(gettext("Syntax error '*' in path_source.\n.Exit 2\n"));
 +
                          exit(2);
 +
                          } /*S*/
 +
                      fsrc[i]=c;
 +
                      } /*S examen des positions de '/' et '.' */
 +
                      fsrc[i]='\0';
 +
 +
#ifdef PC
 +
/*O                  si  '\:'  adresser un message d'erreur et quitter */
 +
                      if (isource==1&&argv[O+2][1]==':')
 +
                      { /*S*/
 +
                      printf(gettext("Arg. syntax error '\\:'\n.Exit 2\n"));
 +
                      exit(2);
 +
                      } /*S*/
 +
#endif
 +
/*O                si find est positionne et pas j: chercher le langage */
 +
                    if(f&&!j)
 +
                      { /*S*/
 +
#include "find.inc.c"
 +
/*O                  si le fichier est un fichier projet affecter le nom a fprj */
 +
                      if (j==1) fprj=argv[O+2]; /* fichier projet si j trouve */
 +
                      } /*S*/
 +
                    } /*S source */
 +
 +
 +
/*O            traitement du dernier argument de la ligne de commande */
 +
/*O                reperer  '/ *' ou ':' et '.' dans fdoc */
 +
                    ktar=0;itarget=0;c=1;
 +
#ifdef PC
 +
                    if(argv[O+3][1]==':')itarget=2;
 +
                    for (i=0; c!='\0' && i<MAX-1 ; ++i)
 +
                      { /*S*/
 +
                      if((c=argv[O+3][i])=='\\')
 +
                          { /*S*/
 +
                          if((c=argv[O+3][i+1])=='*')itarget=i+1;
 +
/*O                      si  '\\0' erreur de syntaxe quitter */
 +
                          if(c=='\0')
 +
                            { /* err */
 +
                            printf(gettext("Path_target: syntax error at or near '\\'\n.Exit 2\n"));
 +
                            exit(2);
 +
                            } /* err */
 +
                          } /*S*/
 +
                      else if(c=='.')ktar=i;
 +
                      } /*S*/
 +
#endif
 +
#ifdef UNIX
 +
                    c=1;
 +
                    for (i=0; c!='\0' && i<MAX-1 ; ++i)
 +
                      { /*S*/
 +
                      if((c=argv[O+3][i])=='/')
 +
                          { /*S*/
 +
                          if((c=argv[O+3][i+1])=='*')itarget=i+1;
 +
/*O                      si  '/ \0' erreur de syntaxe quitter */
 +
                          if(c=='\0')
 +
                            { /* err */
 +
                            printf(gettext("Path_target: syntax error at or near '/'\n.Exit 2\n"));
 +
                            exit(2);
 +
                            } /* err */
 +
                          } /*S*/
 +
                      else if(c=='.')ktar=i;
 +
                      } /*S*/
 +
#endif
 +
/*O                si nomfichier commence par '*': '/ *' ou ':' ou target commence par '*': */
 +
                    if(itarget||argv[O+3][0]=='*')
 +
/*O                alors: */
 +
                    { /*S*/
 +
/*O                  si * n'est pas en 1ere position copier le path target dans fdoc tq pas '*' */
 +
                      if(itarget){for(i=0;i<itarget;i++)fdoc[i]=argv[argc-1][i];}
 +
/*O                  concaténer le nom du fichier source  */
 +
                      k=0;
 +
                      for(i=0;(c=argv[argc-2][i+isource]) !=0 && i < (MAX-5); ++i)
 +
                      { /*S*/
 +
                          fdoc[i+itarget]=c;
 +
/*O                      si il y a un point, noter la dernière place */
 +
                          if(c=='.') k=i+itarget; /* position du dernier '.' dans la recopie */
 +
                      } /*S*/
 +
/*O                  ajouter le suffixe: */
 +
/*O                      si le '.' existe dans le path_target */
 +
                          if( argv[argc-1][ktar]== '.')
 +
                          { /*S*/
 +
/*O                        si c'est .* ou s'il n'est pas suivi d'une chaîne */
 +
                            if( (c=argv[argc-1][ktar+1]) =='\0'||c=='*')
 +
/*O                        alors donner le suffixe .doc au fichier documentaire */
 +
                            { /*S*/
 +
                            if(k)i=k;
 +
                            fdoc[i] = '.'  ;
 +
                            fdoc[i+1] = 'd' ;
 +
                            fdoc[i+2] = 'o' ;
 +
                            fdoc[i+3] = 'c' ;
 +
                            fdoc[i+4] = '\0' ;
 +
                            } /*S*/
 +
/*O                        sinon (le '.' existe) concaténer le suffixe demande */
 +
                            else
 +
                            { /*S*/
 +
                            for(i=ktar;(c=argv[argc-1][i])!='\0'&&k<(MAX-1);++i)
 +
                                { /*S*/
 +
                                fdoc[k]=c;
 +
                                k++;
 +
                                } /*S*/
 +
                            fdoc[k]='\0';
 +
                            } /*S*/
 +
                          } /*S*/
 +
/*O                      sinon le nom du suffixe est indéterminé */
 +
                          else
 +
                          { /*S*/
 +
                          printf(gettext("Path target: suffixe not determined.\n"));
 +
                          fdoc[k]='\0';
 +
                          } /*S*/
 +
                    } /*S*/
 +
 +
/*O                sinon: xxx xxx. xxx.* .xxx .*  */
 +
                    else
 +
                    { /*S else */
 +
/*O                si le point existe: (abc. abc.def abc.* .abc .*) */
 +
                      if( argv[argc-1][ktar]== '.')
 +
                      { /*S '. */
 +
/*O                  copier le nom du fichier target  */
 +
                      k=0;c=1;
 +
                      for(i=0;(c=argv[argc-1][i]) !=0 && i < (MAX-5); ++i)
 +
                          { /*S*/
 +
                          fdoc[i]=c;
 +
/*O                      noter la position du point dans la recopie */
 +
                          if(c=='.') k=i;
 +
                          } /*S*/
 +
/*O                  ajouter le suffixe: */
 +
/*O                      si le point est suivi de '*' ou rien: */
 +
                          if( (c=argv[argc-1][k+1])=='\0'||c=='*')
 +
/*O                      alors donner le suffixe .doc au fichier documentaire */
 +
                          { /*S xxx.* */
 +
                          fdoc[k] = '.'  ;
 +
                          fdoc[k+1] = 'd' ;
 +
                          fdoc[k+2] = 'o' ;
 +
                          fdoc[k+3] = 'c' ;
 +
                          fdoc[k+4] = '\0' ;
 +
                          } /*S xxx.* */
 +
/*O                      sinon (le '.' existe) concaténer le suffixe demande */
 +
                          else
 +
                          { /*S xxx.abc */
 +
                          for(i=0;(c=argv[argc-1][i+ktar])!='\0'&&k<(MAX-1);++i)
 +
                            { /*S*/
 +
                            fdoc[i+k]=c;
 +
                            } /*S*/
 +
                          fdoc[i+k]='\0';
 +
                          } /*S xxx.abc*/
 +
                      } /*S '.' */
 +
 +
/*O                  sinon le nom du suffixe est indéterminé */
 +
                      else /* abcde */
 +
                      { /*S*/
 +
                      for(i=0;(c=argv[argc-1][i]) != '\0' && i<MAX-1;fdoc[i]=c,++i);
 +
                      printf(gettext("Path target: suffixe not determined.\n"));
 +
                      fdoc[i]='\0';
 +
                      } /*S*/
 +
                    } /*S else */
 +
              } /*S path differents */
 +
 +
/*########### controle des arguments ########################################*/
 +
/*O    si le fichier source est identique au fichier target : */
 +
        k=1;
 +
        for(i=0;k>0&&i<MAX;i++)
 +
          { /*S*/
 +
#ifdef PC
 +
          c=toupper(fdoc[i]);
 +
          c1=toupper(fsrc[i]);
 +
          if(c>0 && c!=c1)k=0;                        /* exit */
 +
          else if(c=='\0'|| fsrc[i]=='\0')k=0;        /* exit */
 +
#endif
 +
#ifdef UNIX
 +
          if((c=fdoc[i])>0&&c!=fsrc[i])k=0;            /* exit */
 +
          else if(c=='\0'|| fsrc[i]=='\0')k=0;        /* exit */
 +
#endif
 +
/*Test    printf("%c%c",c,fsrc[i]); */
 +
          } /*S*/
 +
      if(c=='\0'&& fsrc[i]=='\0')
 +
/*O    alors : */
 +
          { /*S*/
 +
/*O      envoi du message d'erreur et quitter */
 +
          printf(gettext("Syntax error: (path_source : \'%s\') == (path_target = \'%s\')\n"),fsrc,fdoc);
 +
          printf(".Exit 2 \n");
 +
          exit(2);
 +
          } /*S*/
 +
 +
/*## FIN DE L'EXAMEN DES ARGUMENTS ##########################################*/
 +
 +
/*O    copier les codes dans le buffer codes */
 +
          for ( i = 0 ; *(argv[1+O]+i) != '\0' && i < 5 ; ++i) codes[i] = *(argv[1+O]+i);
 +
          if(codes[0]=='*'&&codes[1]=='*')codes[0]=0;
 +
          /*T printf("code nx1 pour test: %c\n",codes[0]); T*/
 +
 +
/*O    si option v écrire le nom du fichier documentaire sur la sortie standard */
 +
        if(v) printf(gettext("doc file : \'%s\' \n"), fdoc);
 +
/*O    si pas d'option a ni w vérifier l'existence et ses protections */
 +
        if (w==0 && a==0)
 +
          { /*S si !a !w */
 +
/*O      si le fichier existe: */
 +
          if( (access(fdoc, 00 )) == 0 )
 +
/*O      alors si il n'est pas protégé en écriture */
 +
              if( (access(fdoc, 02 )) == 0 )
 +
              { /*S*/
 +
/*O          alors demander si overwrit ...si pas 'y'es quitter le programme */
 +
                {
 +
                printf(gettext("\n OVERWRIT \'%s\' ...  y?\n"),fdoc);
 +
                if ( (c=(getch()))=='y' || c=='Y');
 +
                else
 +
                    { /*S*/
 +
                    printf(gettext(".Exit 1\n"));
 +
                    exit(1);
 +
                    } /*S*/
 +
                }
 +
              } /*S*/
 +
/*O          sinon préciser qu'il existe et est protégé puis quitter avec retour = 2 */
 +
              else
 +
              { /*S*/
 +
                printf(gettext("%s is write protected.\n"), fdoc);
 +
                puts(gettext(".Exit 2\n"));
 +
                exit(2);
 +
              } /*S*/
 +
/*O      faire option w=1 (puisque overwrit) */
 +
              w=1;
 +
          } /*S si !a !w */
 +
 +
 +
/*O    si option a ouvrir fdoc en ajout */
 +
          if (a==1)
 +
          { /*S option a */
 +
/*O      si erreur l'ecrire et sortir */
 +
#ifdef VC10
 +
  if ( fopen_s( &pfdoc,fdoc,"ab") != 0 )
 +
#else
 +
              if((pfdoc = fopen(fdoc,"ab")) == NULL)
 +
#endif
 +
              {
 +
              printf(gettext("fopen file \'%s\' error for append\n.Exit 2\n"),fdoc);
 +
              exit(2);
 +
              }
 +
          } /*S option a */
 +
/*O      sinon si option w ouvrir fdoc en écriture */
 +
              else if (w==1)
 +
                { /*S option w */
 +
/*O            si erreur l'écrire et sortir */
 +
#ifdef VC10
 +
if (fopen_s(&pfdoc,fdoc,"wb") != 0)
 +
#else
 +
                    if((pfdoc = fopen(fdoc,"wb")) == NULL)
 +
#endif
 +
                    { /*S*/
 +
                    printf(gettext("fopen file \'%s\' error for overwrit\n.Exit 2\n"),fdoc);
 +
                    exit(2);
 +
                    } /*S*/
 +
                } /*S option w */
 +
/*T          sinon ecrire message d'erreur -a -w pas trouve */
 +
                else /* ne doit jamais arriver.... */
 +
                { /*Test*/
 +
                printf(gettext("error option -a or -w not found\n"));
 +
                exit(255);
 +
                } /*Test*/
 +
 +
/*O    si option j */
 +
          if (j==1)
 +
          { /*S si option j */
 +
/*O      écrire le nom du fichier projet a l'écran */
 +
              printf(gettext("project file : \'%s\' \n"), fprj);
 +
/*O      si erreur d'ouverture écrire not found et quitter le programme */
 +
#ifdef VC10
 +
  if ( fopen_s(&pfprj,fprj,"r") != 0 )
 +
#else
 +
  if (( pfprj = fopen ( fprj,"r" )) == 0 )
 +
#endif
 +
              { /*S*/
 +
              printf (gettext("project file \'%s\' not found\n.Exit 2\n"),fprj);
 +
              exit(2);
 +
              } /*S*/
 +
/*O      sinon : */
 +
              else
 +
              { /*S copy src & tri */
 +
/*O          tant que pas fin de fichier projet */
 +
                while ( (c = getc(pfprj)) != EOF )
 +
                { /*S tq !EOF */
 +
/*O            lire le nom du fichier a documenter */
 +
                    ungetc(c,pfprj);
 +
                    for (i=0 ; (c = getc(pfprj)) != '\n' && c != EOF ;
 +
                        ++i) fsrc[i] = (char)c ;
 +
                    fsrc[i] = '\0';
 +
/*O            si le nomfichier existe et ne commence pas par '#' */
 +
                if( fsrc[0]!='\0' || fsrc[0]!='#' )
 +
                { /*S namefile exist */
 +
/*O                si option v écrire le nom du fichier a documenter */
 +
                    if(v) printf(gettext("\n\nfile for doc: \'%s\'\n"),fsrc);
 +
/*O                si option f déterminer la place du point séparateur du langage */
 +
                    if(f)
 +
                    { /*S source */
 +
                    k=0;
 +
                    c=1;
 +
/*O                  déterminer l'emplacement du point s'il existe */
 +
                      for (i=0; fsrc[i] != '\0' && i < MAX-5;++i)
 +
                      { /*S*/
 +
                      if(fsrc[i]=='.')k=i;
 +
                      } /*S*/
 +
                    if(k)
 +
#include "find.inc.h"
 +
#include "find.inc.c"
 +
                    } /*S source */
 +
 +
/*O                si le décryptage (langage) est détermine */
 +
                    if(L==1||p||l)
 +
/*O                alors: */
 +
                      { /*S alors*/
 +
/*O                  si l'ouverture du fichier source n'est pas correcte */
 +
#ifdef VC10
 +
                      if ( fopen_s(&pnfile,fsrc,"rb" ) != 0 )
 +
#else
 +
                      if  (( pnfile = fopen ( fsrc,"rb" )) == 0 )
 +
#endif
 +
/*O                  écrire file "nomfich" not found */
 +
                      printf (gettext("file \'%s\' not found for read\n"),fsrc);
 +
/*O                  sinon call tri ou langage */
 +
                          else
 +
                          { /*S else*/
 +
/*O                      si: on a option n ou s et mode bavard (option v) écrire le nom du fichier lu et les options */
 +
if(n||s||v) /*www modifié le 10/03/2010 par JPL */
 +
{ /*S si*/
 +
if(v)fprintf(pfdoc,gettext("%s\n(file %s :)"), NL, fsrc );
 +
if( v || s ) printf(gettext("\n\n(file %s :)\n"),fsrc);
 +
if(v)fprintf (pfdoc,gettext("Options a=%d f=%d j=%d l=%d n=%d p=%d s=%d t=%d w=%d"),a,f,j,l,n,p,s,t,w);
 +
fprintf (pfdoc, "%s", NL );
 +
} /*S fin si*/
 +
                          if(l||p)tri_(pfdoc,pnfile);
 +
                          if(A)asm_(pfdoc,pnfile);
 +
                            else if(B)basic_(pfdoc,pnfile);
 +
                                else if(C)cpp_(pfdoc,pnfile); /*www modifié le 10 mars 2010 */
 +
                                  else if(F)fortran_(pfdoc,pnfile);
 +
                                      else if(P)pascal_(pfdoc,pnfile);
 +
                                        else if(S)shell_(pfdoc,pnfile);
 +
                                            else if(l==0&&p==0)printf(gettext("Error, language not determined !.\n"));
 +
/*O                      fermer le fichier source */
 +
                          if (fclose(pnfile))
 +
                            { /*S si*/
 +
                            printf(gettext("Closure error: \'%s\'\n.Exit 2\n"),fsrc);
 +
                            /*www exit(2); */
 +
                            } /*S fin si*/
 +
                          } /*S fin else*/
 +
                      } /*S fin alors*/
 +
                    } /*S namefile exist */
 +
                } /*S tq !EOF */
 +
/*O          fermer le fichier projet */
 +
                if (fclose(pfprj))
 +
                { /*S*/
 +
                printf(gettext("Closure error: \'%s\'\n.Exit 2\n"),fprj);
 +
                exit(2);
 +
                } /*S*/
 +
              } /*S copy src & tri */
 +
          } /*S si option j */
 +
/*O    sinon: (pas option j) */
 +
          else
 +
          { /*S !j */
 +
/*O      si option v écrire le nom du fichier a documenter */
 +
              if(v) printf(gettext("\n\nfile for doc: \'%s\' \n"),fsrc);
 +
/*O      si l'ouverture du fichier n'est pas correcte */
 +
#ifdef VC10
 +
  if ( fopen_s(&pnfile,fsrc,"rb") != 0 )
 +
#else
 +
  if (( pnfile = fopen ( fsrc,"rb" )) == 0 )
 +
#endif
 +
              { /*S*/
 +
/*O          écrire file "nomfich" not found */
 +
                printf(gettext("file \'%s\' not found for read\n.Exit 2\n"),fsrc);
 +
                exit(2);
 +
              } /*S*/
 +
/*O      sinon call langage... */
 +
              else
 +
              { /*S*/
 +
/*O          si: on a option n (on n'a pas l'option j) et mode bavard (option v) écrire le nom du fichier lu et les option */
 +
              if(n||v||s) /*www modifié le 10/03/2010 par JPL */
 +
                { /*S*/
 +
if(v)fprintf(pfdoc,gettext("%s\n(file %s :)"), NL, fsrc );
 +
if( v || s ) printf(gettext("\n\n(file %s :)\n"),fsrc);
 +
if(v)fprintf (pfdoc,gettext("Options a=%d f=%d j=%d l=%d n=%d p=%d s=%d t=%d w=%d"),a,f,j,l,n,p,s,t,w);
 +
fprintf (pfdoc, "%s", NL );
 +
                } /*S*/
 +
              if(l||p) tri_(pfdoc,pnfile);
 +
              if(A)asm_(pfdoc,pnfile);
 +
              else if(B)basic_(pfdoc,pnfile);
 +
                else if(C) cpp_(pfdoc,pnfile); /*www modifié le 10/03/2010 par JPL */
 +
                    else if(F)fortran_(pfdoc,pnfile);
 +
                      else if(P)pascal_(pfdoc,pnfile);
 +
                          else if(S) shell_(pfdoc,pnfile);
 +
                                else if(l==0&&p==0)
 +
                                { /*S*/
 +
                                printf(gettext("Error, programming language not found !.\n.Exit 2\n"));
 +
                                exit(2);
 +
                                } /*S*/
 +
/*O          fermer le fichier depouille */
 +
                if (fclose(pnfile))
 +
                { /*S*/
 +
                printf(gettext("Closure error: \'%s\'\n.Exit 2 \n"),fdoc);
 +
                exit(2);
 +
                } /*S*/
 +
              } /*S*/
 +
          } /*S !j */
 +
/*O    fermer le fichier documentaire */
 +
          if (fclose(pfdoc))
 +
          { /*S*/
 +
          printf(gettext("Closure \'%s\' error\n.Exit 2\n"),fdoc);
 +
          exit(2);
 +
          } /*S*/
 +
/*O    ecrire DOC "file_src" END */
 +
          if(v) printf(gettext("\n\nDOC %s END\n"),fdoc);
 +
        } /*S corps */
 +
} /*S main */
 +
</pre>
 +
{{Boîte déroulante/fin}}
[[Catégorie:Générateurs de documentation]]
[[Catégorie:Générateurs de documentation]]

Version actuelle en date du 11 mai 2013 à 14:48

Retour aux fichiers en développement →


version.h

version.h Updated 11 may 2013
/*
* © mkd, version 2009.12 et ultérieures
*
* Concédée sous licence EUPL, version 1.1 ou – dès leur approbation par la
* Commission européenne - versions ultérieures de l’EUPL (la «Licence»).
* Vous ne pouvez utiliser la présente œuvre que conformément à la Licence.
* Vous pouvez obtenir une copie de la Licence à l’adresse suivante:
*
* http://ec.europa.eu/idabc/eupl5
*
* Sauf obligation légale ou contractuelle écrite, le logiciel distribué sous
* la Licence est distribué «en l’état»,
* SANS GARANTIES OU CONDITIONS QUELLES QU’ELLES SOIENT, expresses ou implicites.
* Consultez la Licence pour les autorisations et les restrictions linguistiques
* spécifiques relevant de la Licence.
*/

/*P
	NOM DU FICHIER: version.h
	PROJET INITIAL: mkd console linux & MSDOS
	DOSSIER INITIAL : mkdoc3.12 Centre d'Electronique de Montpellier
	PROGRAMMEUR: JPL 
	DATE: 18/12/2009
	MODIFICATIONS:
	le: 09/01/2011 par JPL objet: Ajouté l'option de compilation pour MSDEV41
	le: 10/01/2012 par JPL objet: Ajouté la définition std_C pour compilation UNIX STD
	le: 25/03/2012 par Clara objet: internationalisation
	le: 27/03/2012 par jpl objet: internationalisation en utf-8
	le: 10/04/2013 par Cardabela: Modification mineure. Alignement des commentaires.
        le: 11/05/2013 par jpl mise à jour des définitions CD* pour tri.c
*/
// 	le: ../../.. par .............. objet de la modification ....

/*E ?C?*/
/**# MKD.C ############################*/ /*H*/
/*U            UTILISATEURS            */ /*H*/
/*O            ORGANIGRAMME            */ /*H*/
/*S              STRUCTURE             */ /*H*/
/*T                TESTS               */ /*H*/
/*P             PROGRAMMEUR            */ /*H*/
/*www     remarques particulieres      */ /*H*/
/**####################################*/ /*H*/

// define VERSION line 173

#define UNIX 		/*O UNIX version */ /* Delete this line for PC version */
//#define GTKMM		/*O Version fenêtrée avec gtkmm pour mkdcppw uniquement */

#ifndef UNIX            /*H*/
#define PC              /*O version de compilation PC   */  /*H*/
/*#define PC_ONLY*/     /*H find_ ne reconnaît pas: .s .f .p .sh .csh  */
#define NL "\r\n"       /*H*/
//#define VC10		/*O Microsoft Visual C 10.- */
#define MSDEV41
#endif                  /*H*/
                        /*H*/
#ifdef UNIX             /*H*/
// #define UNIX_ONLY    /*H find_ ne reconnaît pas: .BAS .PAS .FOR ... */
#endif                  /*H*/
                        /*H*/

/*H #D *************************************************************************************/
/*H *** #Define OPTIONS DE COMPILATION:  options par défaut, redéfinissables: **************
          (#D pour l'extraction des options de compilation en ligne avec l'option CD3='#') */
/*H****************** #Define 'l' (ligne) commence par #define en 1ère colonne : ***********/
#define CD1 '%'   /*H #Define Option CD1 en 1ère colonne  prend fin avec NL                */
#define CD2 '<'   /*H #Define Option CD2 en 1ère colonne  prend fin avec NL                */
#define CD3 '!'   /*H #Define Option CD3 dans la ligne    prend fin avec NL                */
                  /*H #Define Option '!' commentaire Fortran 90 et ultérieurs              */
                  /*H #Define Option '%' commentaire postcript                             */
                  /*H #Define Option '#' commentaire shell ou pour Makefile voir option S
                                     ( le commentaire se termine avec new_line )           */
                  /*H #Define Option '\'' commentaires Basic                               */
                  /*H #Define Option ';'  commentaires assembleur                          */
/*H ***************** #Define Option 'p' (dans la page) #define en 1ère colonne : **********/
#define CD4 '\"'  /*H #Define Option CD4 = "  debut de commentaire                         */
#define CD5 '\"'  /*H #Define Option CD5 = "  fin de commentaire                           */
                  /*H #Define **************************************************************/
#define FULL_LINE /*H #Define Option de compil. copier toute la ligne                      */
/*H #D *************************************************************************************/



				/*H*/
#define VERSION "13.05 alpha1"	/*H*/
				/*H*/
#define MAX     85		/*H longueur des buffers des path source et doc */
#define STX     0x2		/*H Start Text */
#include <stdio.h>		/*H*/
				/*H*/
#ifdef PC			/*H*/
#include <conio.h>		/*H*/
#include <process.h>		/*H*/
#include <io.h>			/*H*/
#endif				/*H*/
#ifdef VC10			/*H Microsoft Visual C 10.- */
	#define putch _putch	/*H ISO C++ */
	#define getch _getch	/*H ISO C++ */
	#define access _access	/*H ISO C++ */
#endif				/*H*/
				/*H*/
#ifdef MSDEV41			/*H*/
	//#define STD_C		/*H SVr4, 4.3BSD, C89, C99.*/
	#include <string.h>	/*H*/
#endif				/*H*/
				/*H*/
#ifdef UNIX			/*H*/
#define NL "\n"                 /*H*/
   #define exit return
	#define bool int
	//#define STD_C		/*H SVr4, 4.3BSD, C89, C99.*/
	//#define getch() getchar()*/ defined in mkd.c
	#define putch putchar	/*H*/
#include <signal.h>		/*H*/
#include <sys/file.h>		/*H*/
#include <string.h>		/*H*/
#endif				/*H*/
 

mkd.h 

	// asm.cpp:
	extern int asm_(FILE *pfdoc, FILE *pnfile);

     
	// File: basic.c
	void basic_ (FILE * pfdoc, FILE * pnfile);

     
	// File: cpp.c
	extern int cpp_ (FILE * pfdoc, FILE * pnfile);
     
	// File: fortran.c
	void fortran_ (FILE * pfdoc, FILE * pnfile);
     
	// File: pascal.c (Comments for UTF-8 text editor)
	void pascal_ (FILE * pfdoc, FILE * pnfile);

     
	// File: shell.c (Comments for UTF-8 text editor)
	void shell_ (FILE * pfdoc, FILE * pnfile);

     
	// File: tri.c
	void tri_ (FILE * pfdoc, FILE * pnfile);

mkd.c

mkd.c ; Update 11 may 2013
/*D
 COPYRIGHT:
  © Contact: http://edeulo.free.fr/contacts/formmail.php
  © EELL, Éditeurs Européens de Logiciels Libres, 2007
  Association à but non lucratif selon l'Article 11 de la convention européenne 
  des droits de l'homme.

 AUTHORS:
  Designer: intial JP Louyot (JPL)
  Updates : JPL and Clara Jimenez
  Tranlations: Alizée, Clara, JPL, JPT, Luca
*/
/*P
	NOM DU FICHIER: mkd.c
	PROJET INITIAL: mkd console linux & Windows 7
	DOSSIER INITIAL : mkdoc3.12 Centre d'Electronique de Montpellier
	PROGRAMMEUR: Jean-Paul LOUYOT
	DATE: 18/12/2009
	MODIFICATIONS:
	le: 10/03/2010 par JPL :  Mise à jour pour Visual C 10
	le: 25/03/2012 par Clara : internationalisation
	le: 31/03/2012 par jpl : internationalisation. Conversion du fichier
                                 au format UTF-8
	le: 18/04/2013 par jpl : mise à jour pour version 2013 alpha
	le: 11/05/2013 par jpl : pour compilation avec les fichiers mis à jour
*/
// le: ../../.. par


#include "version.h"
#include "strings.h"
#include "mkd.h"

#include "internationalisation.h"

unsigned char A,B,C,F,P,S,a,f,j,l,n,p,s,t,v,w; /*P ajout n et v version 3.1 */
/* static */ char codes[5] = {0,0,0,0,0};


/** #######################################
    #           SOUS PROGRAMMES           #
    ####################################### */


// #include "asm.inc.c"	    //P old version see asm.c
// #include "basic.inc.c"   //P old version see basic.c
// #include "c.inc.c"	    //P old version see cpp.c
// #include "fortran.inc.c" //P old version see fortran.c
// #include "pascal.inc.c"  //P old version see pascal.c
// #include "shell.inc.c"   //P old version see shell.c
// #include "tri.inc.c"     //P old version see tri.c



 int tolower(int c)
// char c;
     {
         if( c >='A' && c <='Z' ) c=(c-'A')+'a';
         return(c);
     }

 int toupper(int c)
// char c;
     {
         if( c >='a' && c <='z' ) c=(c-'a')+'A';
         return(c);
     }

#ifdef UNIX
 int getch()
     {
         int c;
         c=getc(stdin);
         if (c=='\r')c='\n';
         return(c);
     }
#define exit return //P c++
#endif




/** #######################################
    #               MAIN()                #
    ####################################### */


 int main (int argc, char * argv[])
// int argc;
// char *argv[];
 { /*S main */
//O Internationalization Initialization 
//  i18n: initializes the entire current locale of the program as per 
//  environment variables set by the user
     setlocale( LC_ALL, "" );    
//  i18n: Indicate the path of the i18n catalog file
     bindtextdomain( "mkd", "/usr/share/locale" );    
//  i18n: sets the message domain
     textdomain( "mkd" );

     char *fprj;       // nom du fichier de projet s'il existe
     char fdoc[MAX];   // nom du fichier cible
     char fsrc[MAX];   // nom du fichier source
     extern  char codes[];  // codes
     extern unsigned char A,B,C,F,P,S,a,f,j,l,n,p,s,t,v,w; // booléennes
     int i,k;          // compteurs
     char isource;     // position nom du fichier source dans path source
     char itarget;     // position fin du path_target avec '*' ou ':'(PC)
     char ktar;        // position du '.' dans p_target
     static char O;    // booléen =1 si option validée
     static char L;    // booléen =1 si option langage
     register int c;   // char (variable)
     int c1;           // char (variable) pour version PC
     int ret = 0;      // essai

     FILE *pfprj;  // fichier de projet       */
     FILE *pnfile; // fichier source
     FILE *pfdoc;  // fichier cible

/*##########################################################################*/
/*O si argc < 3 ou arc > 5: */
/*##########################################################################*/
/*O alors ecrire 'USAGE', donner la syntaxe puis quitter */
     if ( argc < 3 || argc > 5 )
     { //S argc <3 ou argc > 5 : syntaxe

#ifdef PC
        ret = printf(gettext("mkd PC version, Release %s, USAGE:\n"),VERSION);
        printf(gettext("syntax: mkd [-ABCFPSafjlnpstvw] char_codes path_source [path_target]\n"));
        puts  (gettext("    or: mkd ? .See also mkd.doc or manual."));
#endif

#ifdef UNIX
        printf(gettext("mkd UNIX version, Release %s, USAGE:\n"),VERSION);
        printf(gettext("syntax: mkd [-ABCFPSafjlnpstvw] char_codes path_source [path_target]\n"));
        puts  (gettext("    or: mkd \\? .See also nanual: \'man mkd\'"));
#endif

        if( argc==2 && argv[1][0]=='?' )
        { //S argc=2 et ?
           printf(gettext(" --> options:\n"));
           printf(gettext("      -A decode Assembler comment style only\n"));
/* #ifndef UNIX_ONLY */
           printf(gettext("      -B        Basic style\n"));
/* #endif */
           printf(gettext("      -C        C++ style\n"));
           printf(gettext("      -F        Fortran 77 style\n"));
           printf(gettext("      -P        Pascal style\n"));
/* #ifndef PC_ONLY */
           printf(gettext("      -S        Shell style\n"));
/* #endif */
           printf(gettext("      -a append target file\n"));
           printf(gettext("      -f:\n"));

#ifndef UNIX_ONLY
           printf(gettext("          find language ( .ASM .BAS .C .FOR .PAS .PRO )\n"));
#endif

#ifndef PC_ONLY
           printf(gettext("          find language ( .s .S .c .h .i .f .F .r .p .sh .csh )\n"));
#endif

           printf(gettext("      -j use only with project sources file.\n"));
           printf(gettext("      -l and p;   line:  (compil.: %c or %c in first column or %c in line)\n"),CD1,CD2,CD3);
           printf(gettext("                  page:  (compil.: begin with %c and end with %c)\n"),CD4,CD5);
           printf(gettext("      -n insert line number\n"));
           printf(gettext("      -s copy and add to screen\n"));
           printf(gettext("      -t copy the comment only\n"));
           printf(gettext("      -v verbose\n"));
           printf(gettext("      -w overwrite (default option: switch off)\n"));
           printf(gettext(" --> char_codes: all ASCII "));

#ifdef PC
           printf(gettext("except space:' '  (5 char max)\n"));
           printf(gettext("                 example codes = UM or *OPTw or *HOS or ** for all\n"));
#endif

#ifdef UNIX
           printf(gettext(" (5 char max)\n"));
           printf(gettext("                 example codes = UM or \\*OPTw or '* HOS' or '**' for all\n"));
#endif

           printf(gettext(" --> path_source: source file (option j: if it is a project file) \n"));
           printf(gettext(" --> path_target: target file\n"));

#ifdef UNIX
           printf(gettext("Example: mkd -Csnv '*S' file.c \\*.verif_struct\n"));
#endif

#ifdef PC
           printf(gettext("Example: mkd -Cs *Snv file.c *.str\n"));
#endif
           printf(gettext(".Exit 2\n"));
           exit(2); /* Pour un contrôle éventuel (make) */
        } //S argc=2 et ?
     } //S argc <3 ou argc > 5 : syntaxe

/*O sinon exécuter la suite de la commande: */
     else
        { /*S corps */

/*O   valider QUIT par CTRL \ */
#ifdef UNIX
        signal(SIGQUIT,SIG_DFL);
#endif

/*www n'est pas utile lorsque break est 'on' avant lancement de mkd
 éliminer cette procédure évite la recherche de command.com sur disque.
#ifdef PC
        c=system("BREAK ON");
#endif
www*/

/*O    init fsrc & fdoc buffers */
           for(i=0;i<MAX;fsrc[i]='\0',fdoc[i]='\0',++i);
/*O    init options par défaut */
           {A=0;B=0;C=0;F=0;P=0;S=0;a=0;f=0;j=0;l=0;n=0,p=0;s=0;t=0;v=0;w=0;} /*O*/
           O=0; /* Option=0 */
/*O    si argc>3 */
           if (argc>3)
           { /*S argc>3 */
/*O       si en 2ème paramètre 1er char = '-' décoder les options */
              if( argv[1][0]=='-')
              { /*S*/
/*O          initialiser les paramètres du tant que */
                 O=1; /* Option=1 */
                 c=1;
                 i=1;
/*O          tant que pas fin paramètres options & (5 options max) */
                 while (c != '\0' && i < 13)
                 { /*S*/
/*O             valider les options */
                    if ((c=argv[1][i]) == 'a') a=1;
                    else if (c=='w') w=1;
                       else if (c=='l') l=1;
                           else if (c=='p') p=1;
                              else if (c=='j') j=1;
                                 else if (c=='f') f=1;
                                    else if (c=='s') s=1;
                                       else if (c=='t') t=1;
                                          else if (c=='A') A=1;
                                             else if (c=='B') B=1;
                                                else if (c=='C') C=1;
                                                   else if (c=='F') F=1;
                                                      else if (c=='P') P=1;
                                                         else if (c=='S') S=1;
                                                            else if (c=='n') n=1;
                                                               else if (c=='v') v=1;
                    i++;
                 } /*S*/
/*O          si A+B+C+F+P+S > 1 il y a erreur le dire et quitter */
              if((L=A+B+C+F+P+S)>1)
                 {
                 printf(gettext("Syntax error: Too many 'Language' options:\n"));
                 printf(gettext(" A or B or C or...please.\n.Exit 2\n"));
                 exit(2);
                 }
/*O          sinon si option langage = 1 imposer (find) f = 0 */
              else if(L==1)
                 {
                 f=0;
                 }
/*O             sinon si pas d'option de langage et p=1 ou l=1 alors f=0 */
                 else if (L==0 && p==0 && l==0) f=1;

/*O          si a=1 et w=1 alors a=w=0 */
                 if (a==1 && w==1)
                 {
                 if (v) printf(gettext("Options a or w please... "));
                 a=w=0;
                 }
              } /*S*/
              /*wwwO sinon écrire Option syntax error (OPTION DE COMPILATION) */
              /*www else {printf("Option '-' syntax error\n");exit(2);} */
           } /*S argc>3 */

/*O    si langage et mode verbose : */
        if(L && v)
           { /*SL*/
/*O       donner les options a l'écran */
           printf (gettext("Force language comment, style "));
           if(A)printf(gettext("ASSEMBLER\n"));
           else if(B)printf(gettext("BASIC\n"));
              else if(C)printf(gettext("C\n"));
                 else if(F)printf(gettext("FORTRAN\n"));
                    else if(P)printf(gettext("PASCAL\n"));
                       else if(S)printf(gettext("SHELL\n"));
           } /*SL*/

           if (v) printf (gettext("Options a=%d f=%d j=%d l=%d n=%d p=%d s=%d t=%d w=%d\n"),a,f,j,l,n,p,s,t,w);

/*###########################################################################*/
/*O    si ( argc > 3 et Opt ) examiner les cas *. *.* pour path_target=""    */
/*###########################################################################*/
        if (argc > 3+O && ((c=argv[O+3][0])=='.'||c=='*') )
           { /*S cas ramenés */
           if(c=='*')
              { /*S *. *.* */
              if(argv[O+3][1]=='.'&&((c=argv[O+3][2])=='*'||c=='\0') )argc=O+3;
              } /*S * */
           else
              { /*S . */ /*P même répertoire */
              if(argv[O+3][1]=='\0')argc=O+3;
/*      Les cas '\*'.... sont examines plus loin */
              } /*S . */
           } /*S cas ramenés */

/*##########################################################################*/
/*O    si argc<4 ou (argc<5 avec Options)
                  - ligne de commande "mkd -options char_codes path"
                  -                ou "mkd char_codes path"
                  - (source et dest auront même path avec suffixe différent) */
/*###########################################################################*/
           if (argc<4+O)
           { /*S même path */

/*O       alors si j=1 fprj=4ème argument de la ligne de commande */
              if (j==1) fprj=argv[3]; /* fichier projet si j */

/*O       fsrc=O+2ème arg. de la ligne de commande a copier dans fsrc */
              { /*S source */
              k=0;isource=0;
              c=1;
#ifdef PC
              if(argv[O+2][1]==':')isource=2;
#endif
              for (i=0; c != '\0' && i < MAX-5;++i)
                 { /*S*/
                 if((c=argv[O+2][i])=='.')k=i; /* pour find */
#ifdef PC
                 if(c=='\\')isource=i+1;
#endif
#ifdef UNIX
                 if(c=='/')isource=i+1;
#endif
                    else if(c=='*')
                    { /*S*/
                    printf(gettext("Syntax error '*' in path_source.\n.Exit 2\n"));
                    exit(2);
                    } /*S*/
                 fsrc[i]=c;
                 } /*S*/
#ifdef PC
/*O             si  '\:'  adresser un message d'erreur et quitter */
                 if (isource==1&&argv[O+2][1]==':')
                 { /*S*/
                 printf(gettext("Arg. syntax error '\\:'\n.Exit 2 \n"));
                 exit(2);
                 } /*S*/
#endif

/*O             si find est positionne et pas j: chercher le langage */
                 if(f&&!j)
                 { /*S*/
                 // puts("\nTEST: f positionné et pas j ... rechercher avec find"); //T
#include"find.inc.c"

              if (j==1) fprj=argv[O+2]; /* fichier projet si j trouve */
                 } /*S*/
              } /*S source */



/*O       recopier le nomfichier sans path dans fdoc et noter l'emplacement du point s'il existe */
               k=0;
              for ( i = 0 ;(c=argv[O+2][i+isource]) != '\0' && i < MAX-5; ++i )
              { /*S*/
               fdoc[i]=c;
               if(c=='.')k=i;
              } /*S*/
/*O       si le source a le suffixe .DOC l'ecrire et quitter le pgm  */
              if(k)i=k;
              if ( fdoc[i]=='.' && ((c=(fdoc[i+1]))=='d'||c=='D')
                                && ((c=(fdoc[i+2]))=='o'||c=='O')
                                && ((c=(fdoc[i+3]))=='c'||c=='C'))
                 { /*S*/
                 printf(gettext("Syntax error: path_source, suffixe '.doc'\n.Exit 2\n"));
                 exit(2);
                 } /*S*/
/*O       sinon donner le suffixe .doc au fichier documentaire */
              else
              { /*S*/
              fdoc[i] = '.'  ;
              fdoc[i+1] = 'd' ;
              fdoc[i+2] = 'o' ;
              fdoc[i+3] = 'c' ;
              fdoc[i+4] = '\0' ;
              } /*S*/
           } /*S meme path */


/*###########################################################################*/
/*O    sinon si ( argc > 3 et Opt )
                     -ligne de commande "mkd char_codes path_src path_target
                     -     ou " mkd -options char_codes path_src path_target
                     -(path doc et path src seront différents) */
/*##########################################################################*/
           else if (argc > 3+O)
              { /*S path différents */
/*O          copier les noms de fichier: */
/*O             si j=1 fprj=4ème argument de la ligne de commande */
                    if (j==1) fprj=argv[3];  /* 3 = O+2 */


/*              fsrc est O+2ème arg. de la ligne de commande a copier dans fsrc */
/*O             copier le path source dans fsrc pour évaluation des paramètres */
                    { /*S source */
                    isource=0;itarget=0;
#ifdef PC
                    if(argv[O+2][1]==':')isource=2;
#endif

                    for (i=0; (c=argv[O+2][i]) != '\0' && i < MAX-1;++i)
                       { /*S examen des positions de '/' et '.' */
                       if(c=='.')k=i;  /* pour find */
#ifdef PC
                       else if(c=='\\')isource=i+1;  /* '\:' n'est pas evalue */
#endif
#ifdef UNIX
                       else if(c=='/')isource=i+1;
#endif
                          else if(c=='*')
                          { /*S*/
                          printf(gettext("Syntax error '*' in path_source.\n.Exit 2\n"));
                          exit(2);
                          } /*S*/
                       fsrc[i]=c;
                       } /*S examen des positions de '/' et '.' */
                       fsrc[i]='\0';

#ifdef PC
/*O                   si  '\:'  adresser un message d'erreur et quitter */
                      if (isource==1&&argv[O+2][1]==':')
                       { /*S*/
                       printf(gettext("Arg. syntax error '\\:'\n.Exit 2\n"));
                       exit(2);
                       } /*S*/
#endif
/*O                si find est positionne et pas j: chercher le langage */
                    if(f&&!j)
                       { /*S*/
#include "find.inc.c"
/*O                   si le fichier est un fichier projet affecter le nom a fprj */
                       if (j==1) fprj=argv[O+2]; /* fichier projet si j trouve */
                       } /*S*/
                    } /*S source */


/*O             traitement du dernier argument de la ligne de commande */
/*O                reperer  '/ *' ou ':' et '.' dans fdoc */
                    ktar=0;itarget=0;c=1;
#ifdef PC
                    if(argv[O+3][1]==':')itarget=2;
                    for (i=0; c!='\0' && i<MAX-1 ; ++i)
                       { /*S*/
                       if((c=argv[O+3][i])=='\\')
                          { /*S*/
                          if((c=argv[O+3][i+1])=='*')itarget=i+1;
/*O                      si  '\\0' erreur de syntaxe quitter */
                          if(c=='\0')
                             { /* err */
                             printf(gettext("Path_target: syntax error at or near '\\'\n.Exit 2\n"));
                             exit(2);
                             } /* err */
                          } /*S*/
                       else if(c=='.')ktar=i;
                       } /*S*/
#endif
#ifdef UNIX
                    c=1;
                    for (i=0; c!='\0' && i<MAX-1 ; ++i)
                       { /*S*/
                       if((c=argv[O+3][i])=='/')
                          { /*S*/
                          if((c=argv[O+3][i+1])=='*')itarget=i+1;
/*O                      si  '/ \0' erreur de syntaxe quitter */
                          if(c=='\0')
                             { /* err */
                             printf(gettext("Path_target: syntax error at or near '/'\n.Exit 2\n"));
                             exit(2);
                             } /* err */
                          } /*S*/
                       else if(c=='.')ktar=i;
                       } /*S*/
#endif
/*O                si nomfichier commence par '*': '/ *' ou ':' ou target commence par '*': */
                    if(itarget||argv[O+3][0]=='*')
/*O                alors: */
                    { /*S*/
/*O                   si * n'est pas en 1ere position copier le path target dans fdoc tq pas '*' */
                       if(itarget){for(i=0;i<itarget;i++)fdoc[i]=argv[argc-1][i];}
/*O                   concaténer le nom du fichier source  */
                       k=0;
                       for(i=0;(c=argv[argc-2][i+isource]) !=0 && i < (MAX-5); ++i)
                       { /*S*/
                          fdoc[i+itarget]=c;
/*O                      si il y a un point, noter la dernière place */
                          if(c=='.') k=i+itarget; /* position du dernier '.' dans la recopie */
                       } /*S*/
/*O                   ajouter le suffixe: */
/*O                      si le '.' existe dans le path_target */
                          if( argv[argc-1][ktar]== '.')
                          { /*S*/
/*O                         si c'est .* ou s'il n'est pas suivi d'une chaîne */
                             if( (c=argv[argc-1][ktar+1]) =='\0'||c=='*')
/*O                         alors donner le suffixe .doc au fichier documentaire */
                             { /*S*/
                             if(k)i=k;
                             fdoc[i] = '.'  ;
                             fdoc[i+1] = 'd' ;
                             fdoc[i+2] = 'o' ;
                             fdoc[i+3] = 'c' ;
                             fdoc[i+4] = '\0' ;
                             } /*S*/
/*O                         sinon (le '.' existe) concaténer le suffixe demande */
                             else
                             { /*S*/
                             for(i=ktar;(c=argv[argc-1][i])!='\0'&&k<(MAX-1);++i)
                                { /*S*/
                                fdoc[k]=c;
                                k++;
                                } /*S*/
                             fdoc[k]='\0';
                             } /*S*/
                          } /*S*/
/*O                      sinon le nom du suffixe est indéterminé */
                          else
                          { /*S*/
                          printf(gettext("Path target: suffixe not determined.\n"));
                          fdoc[k]='\0';
                          } /*S*/
                    } /*S*/

/*O                sinon: xxx xxx. xxx.* .xxx .*  */
                    else
                    { /*S else */
/*O                si le point existe: (abc. abc.def abc.* .abc .*) */
                       if( argv[argc-1][ktar]== '.')
                       { /*S '. */
/*O                   copier le nom du fichier target  */
                       k=0;c=1;
                       for(i=0;(c=argv[argc-1][i]) !=0 && i < (MAX-5); ++i)
                          { /*S*/
                          fdoc[i]=c;
/*O                      noter la position du point dans la recopie */
                          if(c=='.') k=i;
                          } /*S*/
/*O                   ajouter le suffixe: */
/*O                      si le point est suivi de '*' ou rien: */
                          if( (c=argv[argc-1][k+1])=='\0'||c=='*')
/*O                      alors donner le suffixe .doc au fichier documentaire */
                          { /*S xxx.* */
                          fdoc[k] = '.'  ;
                          fdoc[k+1] = 'd' ;
                          fdoc[k+2] = 'o' ;
                          fdoc[k+3] = 'c' ;
                          fdoc[k+4] = '\0' ;
                          } /*S xxx.* */
/*O                      sinon (le '.' existe) concaténer le suffixe demande */
                          else
                          { /*S xxx.abc */
                          for(i=0;(c=argv[argc-1][i+ktar])!='\0'&&k<(MAX-1);++i)
                             { /*S*/
                             fdoc[i+k]=c;
                             } /*S*/
                          fdoc[i+k]='\0';
                          } /*S xxx.abc*/
                       } /*S '.' */

/*O                   sinon le nom du suffixe est indéterminé */
                       else /* abcde */
                       { /*S*/
                       for(i=0;(c=argv[argc-1][i]) != '\0' && i<MAX-1;fdoc[i]=c,++i);
                       printf(gettext("Path target: suffixe not determined.\n"));
                       fdoc[i]='\0';
                       } /*S*/
                    } /*S else */
              } /*S path differents */

/*########### controle des arguments ########################################*/
/*O    si le fichier source est identique au fichier target : */
        k=1;
        for(i=0;k>0&&i<MAX;i++)
           { /*S*/
#ifdef PC
           c=toupper(fdoc[i]);
           c1=toupper(fsrc[i]);
           if(c>0 && c!=c1)k=0;                         /* exit */
           else if(c=='\0'|| fsrc[i]=='\0')k=0;         /* exit */
#endif
#ifdef UNIX
           if((c=fdoc[i])>0&&c!=fsrc[i])k=0;            /* exit */
           else if(c=='\0'|| fsrc[i]=='\0')k=0;         /* exit */
#endif
/*Test     printf("%c%c",c,fsrc[i]); */
           } /*S*/
       if(c=='\0'&& fsrc[i]=='\0')
/*O    alors : */
           { /*S*/
/*O       envoi du message d'erreur et quitter */
           printf(gettext("Syntax error: (path_source : \'%s\') == (path_target = \'%s\')\n"),fsrc,fdoc);
           printf(".Exit 2 \n");
           exit(2);
           } /*S*/

/*## FIN DE L'EXAMEN DES ARGUMENTS ##########################################*/

/*O    copier les codes dans le buffer codes */
           for ( i = 0 ; *(argv[1+O]+i) != '\0' && i < 5 ; ++i) codes[i] = *(argv[1+O]+i);
           if(codes[0]=='*'&&codes[1]=='*')codes[0]=0;
           /*T printf("code nx1 pour test: %c\n",codes[0]); T*/

/*O    si option v écrire le nom du fichier documentaire sur la sortie standard */
        if(v) printf(gettext("doc file : \'%s\' \n"), fdoc);
/*O    si pas d'option a ni w vérifier l'existence et ses protections */
        if (w==0 && a==0)
           { /*S si !a !w */
/*O       si le fichier existe: */
           if( (access(fdoc, 00 )) == 0 )
/*O       alors si il n'est pas protégé en écriture */
              if( (access(fdoc, 02 )) == 0 )
              { /*S*/
/*O          alors demander si overwrit ...si pas 'y'es quitter le programme */
                 {
                 printf(gettext("\n OVERWRIT \'%s\' ...  y?\n"),fdoc);
                 if ( (c=(getch()))=='y' || c=='Y');
                 else
                    { /*S*/
                    printf(gettext(".Exit 1\n"));
                    exit(1);
                    } /*S*/
                 }
              } /*S*/
/*O          sinon préciser qu'il existe et est protégé puis quitter avec retour = 2 */
              else
              { /*S*/
                 printf(gettext("%s is write protected.\n"), fdoc);
                 puts(gettext(".Exit 2\n"));
                 exit(2);
              } /*S*/
/*O       faire option w=1 (puisque overwrit) */
              w=1;
           } /*S si !a !w */


/*O    si option a ouvrir fdoc en ajout */
           if (a==1)
           { /*S option a */
/*O       si erreur l'ecrire et sortir */
#ifdef VC10
			  if ( fopen_s( &pfdoc,fdoc,"ab") != 0 )
#else
              if((pfdoc = fopen(fdoc,"ab")) == NULL)
#endif
              {
              printf(gettext("fopen file \'%s\' error for append\n.Exit 2\n"),fdoc);
              exit(2);
              }
           } /*S option a */
/*O       sinon si option w ouvrir fdoc en écriture */
              else if (w==1)
                 { /*S option w */
/*O             si erreur l'écrire et sortir */
#ifdef VC10
					 if (fopen_s(&pfdoc,fdoc,"wb") != 0)
#else
                     if((pfdoc = fopen(fdoc,"wb")) == NULL)
#endif
                     { /*S*/
                     printf(gettext("fopen file \'%s\' error for overwrit\n.Exit 2\n"),fdoc);
                     exit(2);
                     } /*S*/
                 } /*S option w */
/*T          sinon ecrire message d'erreur -a -w pas trouve */
                 else /* ne doit jamais arriver.... */
                 { /*Test*/
                 printf(gettext("error option -a or -w not found\n"));
                 exit(255);
                 } /*Test*/

/*O    si option j */
           if (j==1)
           { /*S si option j */
/*O       écrire le nom du fichier projet a l'écran */
              printf(gettext("project file : \'%s\' \n"), fprj);
/*O       si erreur d'ouverture écrire not found et quitter le programme */
#ifdef VC10
			  if ( fopen_s(&pfprj,fprj,"r") != 0 )
#else
			  if (( pfprj = fopen ( fprj,"r" )) == 0 )
#endif
              { /*S*/
              printf (gettext("project file \'%s\' not found\n.Exit 2\n"),fprj);
              exit(2);
              } /*S*/
/*O       sinon : */
              else
              { /*S copy src & tri */
/*O          tant que pas fin de fichier projet */
                 while ( (c = getc(pfprj)) != EOF )
                 { /*S tq !EOF */
/*O             lire le nom du fichier a documenter */
                    ungetc(c,pfprj);
                    for (i=0 ; (c = getc(pfprj)) != '\n' && c != EOF ;
                         ++i) fsrc[i] = (char)c ;
                    fsrc[i] = '\0';
/*O             si le nomfichier existe et ne commence pas par '#' */
                 if( fsrc[0]!='\0' || fsrc[0]!='#' )
                 { /*S namefile exist */
/*O                si option v écrire le nom du fichier a documenter */
                    if(v) printf(gettext("\n\nfile for doc: \'%s\'\n"),fsrc);
/*O                si option f déterminer la place du point séparateur du langage */
                    if(f)
                    { /*S source */
                    k=0;
                    c=1;
/*O                   déterminer l'emplacement du point s'il existe */
                       for (i=0; fsrc[i] != '\0' && i < MAX-5;++i)
                      { /*S*/
                       if(fsrc[i]=='.')k=i;
                       } /*S*/
                    if(k)
#include "find.inc.h"
#include "find.inc.c"
                    } /*S source */

/*O                si le décryptage (langage) est détermine */
                    if(L==1||p||l)
/*O                alors: */
                       { /*S alors*/
/*O                   si l'ouverture du fichier source n'est pas correcte */
#ifdef VC10
                       if ( fopen_s(&pnfile,fsrc,"rb" ) != 0 )
#else
                       if  (( pnfile = fopen ( fsrc,"rb" )) == 0 )
#endif
/*O                   écrire file "nomfich" not found */
                       printf (gettext("file \'%s\' not found for read\n"),fsrc);
/*O                   sinon call tri ou langage */
                          else
                          { /*S else*/
/*O                      	si: on a option n ou s et mode bavard (option v) écrire le nom du fichier lu et les options */
							if(n||s||v) /*www modifié le 10/03/2010 par JPL */
							{ /*S si*/
								if(v)fprintf(pfdoc,gettext("%s\n(file %s :)"), NL, fsrc );
								if( v || s ) printf(gettext("\n\n(file %s :)\n"),fsrc);
								if(v)fprintf (pfdoc,gettext("Options a=%d f=%d j=%d l=%d n=%d p=%d s=%d t=%d w=%d"),a,f,j,l,n,p,s,t,w);
								fprintf (pfdoc, "%s", NL );
							} /*S fin si*/
                          if(l||p)tri_(pfdoc,pnfile);
                          if(A)asm_(pfdoc,pnfile);
                             else if(B)basic_(pfdoc,pnfile);
                                else if(C)cpp_(pfdoc,pnfile); /*www modifié le 10 mars 2010 */
                                   else if(F)fortran_(pfdoc,pnfile);
                                      else if(P)pascal_(pfdoc,pnfile);
                                         else if(S)shell_(pfdoc,pnfile);
                                            else if(l==0&&p==0)printf(gettext("Error, language not determined !.\n"));
/*O                      fermer le fichier source */
                          if (fclose(pnfile))
                             { /*S si*/
                             printf(gettext("Closure error: \'%s\'\n.Exit 2\n"),fsrc);
                             /*www exit(2); */
                             } /*S fin si*/
                          } /*S fin else*/
                       } /*S fin alors*/
                    } /*S namefile exist */
                 } /*S tq !EOF */
/*O          fermer le fichier projet */
                 if (fclose(pfprj))
                 { /*S*/
                 printf(gettext("Closure error: \'%s\'\n.Exit 2\n"),fprj);
                 exit(2);
                 } /*S*/
              } /*S copy src & tri */
           } /*S si option j */
/*O    sinon: (pas option j) */
           else
           { /*S !j */
/*O       si option v écrire le nom du fichier a documenter */
              if(v) printf(gettext("\n\nfile for doc: \'%s\' \n"),fsrc);
/*O       si l'ouverture du fichier n'est pas correcte */
#ifdef VC10
			  if ( fopen_s(&pnfile,fsrc,"rb") != 0 )
#else
			  if (( pnfile = fopen ( fsrc,"rb" )) == 0 )
#endif
              { /*S*/
/*O          écrire file "nomfich" not found */
                 printf(gettext("file \'%s\' not found for read\n.Exit 2\n"),fsrc);
                 exit(2);
              } /*S*/
/*O       sinon call langage... */
              else
              { /*S*/
/*O          si: on a option n (on n'a pas l'option j) et mode bavard (option v) écrire le nom du fichier lu et les option */
              if(n||v||s) /*www modifié le 10/03/2010 par JPL */
                 { /*S*/
					if(v)fprintf(pfdoc,gettext("%s\n(file %s :)"), NL, fsrc );
					if( v || s ) printf(gettext("\n\n(file %s :)\n"),fsrc);
					if(v)fprintf (pfdoc,gettext("Options a=%d f=%d j=%d l=%d n=%d p=%d s=%d t=%d w=%d"),a,f,j,l,n,p,s,t,w);
					fprintf (pfdoc, "%s", NL );
                 } /*S*/
              if(l||p) tri_(pfdoc,pnfile);
              if(A)asm_(pfdoc,pnfile);
              else if(B)basic_(pfdoc,pnfile);
                 else if(C) cpp_(pfdoc,pnfile); /*www modifié le 10/03/2010 par JPL */
                    else if(F)fortran_(pfdoc,pnfile);
                       else if(P)pascal_(pfdoc,pnfile);
                          else if(S) shell_(pfdoc,pnfile);
                                else if(l==0&&p==0)
                                { /*S*/
                                printf(gettext("Error, programming language not found !.\n.Exit 2\n"));
                                exit(2);
                                } /*S*/
/*O          fermer le fichier depouille */
                 if (fclose(pnfile))
                 { /*S*/
                 printf(gettext("Closure error: \'%s\'\n.Exit 2 \n"),fdoc);
                 exit(2);
                 } /*S*/
              } /*S*/
           } /*S !j */
/*O    fermer le fichier documentaire */
           if (fclose(pfdoc))
           { /*S*/
           printf(gettext("Closure \'%s\' error\n.Exit 2\n"),fdoc);
           exit(2);
           } /*S*/
/*O    ecrire DOC "file_src" END */
           if(v) printf(gettext("\n\nDOC %s END\n"),fdoc);
        } /*S corps */
} /*S main */
 
Récupérée de « http://edeulo.free.fr/wiki/index.php/Projet_mkd/mkd.c »
Outils personnels