Projet mkd/find.c

De Wiki EELL.

(Différences entre les versions)
m (!!)
m (!)
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>
 +
: '''find.inc.c''' : Ce fichier est à revoir il n'est pas indépendant! ...--[[Utilisateur:JPL|jpl]] 19 décembre 2010 à 14:44 (UTC)
 +
 +
<pre>
 +
/*P maj R3.11 04/01/91 par JPL */
 +
                { /*S find */
 +
                L=0;
 +
                if(v) printf("Find Souce File Language, \'%s\':  ",fsrc);
 +
                if(k)
 +
                    { /*S chercher */
 +
 +
#ifndef UNIX_ONLY
 +
                    if((tolower(fsrc[k+1]))=='a'&&
 +
                      (tolower(fsrc[k+2]))=='s'&&
 +
                      (tolower(fsrc[k+3]))=='m')                {L=1;A=1;printf("ASM\n");}
 +
                    else if((tolower(fsrc[k+1]))=='b'&&
 +
                            (tolower(fsrc[k+2]))=='a'&&
 +
                            (tolower(fsrc[k+3]))=='s')          {L=1;B=1;printf("BASIC\n");}
 +
                      else if(
 +
                              ( ( (c=tolower(fsrc[k+1])) == 'c' ||
 +
                                                c=='h'||c=='i') &&
 +
                                                fsrc[k+2]=='\0')
 +
                                ||
 +
                                                  (c=='p'&&
 +
                                (tolower(fsrc[k+2]))=='r'&&
 +
                                (tolower(fsrc[k+3]))=='o')    ) {L=1;C=1;printf("C or PROLOG\n");}
 +
                          else if((tolower(fsrc[k+1]))=='f'&&
 +
                                  (tolower(fsrc[k+2]))=='o'&&
 +
                                  (tolower(fsrc[k+3]))=='r')    {L=1;F=1;printf("FORTRAN\n");}
 +
                            else if((tolower(fsrc[k+1]))=='p'&&
 +
                                    (tolower(fsrc[k+2]))=='a'&&
 +
                                    (tolower(fsrc[k+3]))=='s')  {L=1;P=1;printf("PASCAL\n");}
 +
#endif
 +
 +
#ifndef PC_ONLY
 +
                    if((c=tolower(fsrc[k+1]))=='s'&&
 +
                                  fsrc[k+2]=='\0')              {L=1;A=1;printf("Assembler\n");}
 +
                      else if(c=='f'&&fsrc[k+2]=='\0')          {L=1;F=1;printf("Fortran\n");}
 +
                          else if(c=='p'&&fsrc[k+2]=='\0')        {L=1;P=1;printf("Pascal\n");}
 +
                            else if(                  c=='c'&&
 +
                                    (tolower(fsrc[k+2]))=='s'&&
 +
                                    (tolower(fsrc[k+3]))=='h')      {L=1;S=1;printf("Cshell\n");}
 +
                                else if(                  c=='s'&&
 +
                                        (tolower(fsrc[k+2]))=='h'&&
 +
                                        (tolower(fsrc[k+3]))=='\0')  {L=1;S=1;printf("Shell\n");}
 +
                                  else if(c=='r'&&fsrc[k+2]=='\0')  {L=1;S=1;printf("Ratfor\n");}
 +
#endif
 +
 +
#ifdef UNIX_ONLY
 +
                                  else if((c=='c'||
 +
                                            c=='i'|| c=='h')&&
 +
                                            fsrc[k+2]=='\0')        {L=1;C=1;printf("C or C after cpp\n");}
 +
#endif
 +
 +
#ifndef ARGS_EXAM
 +
                                      else if((tolower(fsrc[k+1]))=='p'&&
 +
                                              (tolower(fsrc[k+2]))=='r'&&
 +
                                              (tolower(fsrc[k+3]))=='j') {L=1;j=1;printf("Project file\n");}
 +
#endif
 +
 +
 +
                    } /*S chercher */
 +
/*O                si le langage n'est pas trouve: */
 +
                    if(!L)
 +
/*O                alors: */
 +
                    { /*S*/
 +
/*O                  mettre les drapeaux (options ABC... ) a 0 */
 +
                      A=B=C=F=P=S=0;
 +
/*O                  demander le type de langage du fichier et positionner le drapeau */
 +
                      printf("\n*** Source file: language not found. (Enter A,B,C,F,P,S,l or p)\n");
 +
#ifndef ARGS_EXAM
 +
                      if(!j)printf("*** For project file: exit and use option -j.\n");
 +
#endif
 +
                      printf("Enter ESCAPE for exit ?:");
 +
                      if(j)printf("\b\bor space_bar for Ignore ?: ");
 +
                      if((c=getch())==0x1B){ /*S*/ printf("\n.Exit 1\n");exit(1);} /*S*/
 +
                      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=='l')l=1;
 +
                                            else if(c=='p')p=1;
 +
                                              else { /*S*/printf("\n.Exit 2\n"); exit(2);} /*S*/
 +
                      printf("\n");
 +
                      L=A+B+C+F+P+S;
 +
/*O                  si aucun drapeau langage n'est positionne envoyer BEL */
 +
                      if(!(L==1||p||l))putch(0x7);
 +
                      putch('\n');
 +
                    } /*S*/
 +
                } /*S find */
 +
</pre>
[[Catégorie:Générateurs de documentation]]
[[Catégorie:Générateurs de documentation]]

Version du 19 décembre 2010 à 14:44

Cette page n'est pas finie. Veuillez considérer le plan et le contenu comme incomplets et en préparation, temporaires et sujets à caution. Si vous souhaitez participer, il vous est recommandé de consulter sa page de discussion au préalable.

Retour aux fichiers en développement →

find.inc.c : Ce fichier est à revoir il n'est pas indépendant! ...--jpl 19 décembre 2010 à 14:44 (UTC) 
/*P maj R3.11 04/01/91 par JPL */
                 { /*S find */
                 L=0;
                 if(v) printf("Find Souce File Language, \'%s\':   ",fsrc);
                 if(k)
                    { /*S chercher */

#ifndef UNIX_ONLY
                    if((tolower(fsrc[k+1]))=='a'&&
                       (tolower(fsrc[k+2]))=='s'&&
                       (tolower(fsrc[k+3]))=='m')                {L=1;A=1;printf("ASM\n");}
                    else if((tolower(fsrc[k+1]))=='b'&&
                            (tolower(fsrc[k+2]))=='a'&&
                            (tolower(fsrc[k+3]))=='s')           {L=1;B=1;printf("BASIC\n");}
                       else if(
                               ( ( (c=tolower(fsrc[k+1])) == 'c' ||
                                                 c=='h'||c=='i') &&
                                                fsrc[k+2]=='\0')
                                ||
                                                  (c=='p'&&
                                (tolower(fsrc[k+2]))=='r'&&
                                (tolower(fsrc[k+3]))=='o')     ) {L=1;C=1;printf("C or PROLOG\n");}
                          else if((tolower(fsrc[k+1]))=='f'&&
                                  (tolower(fsrc[k+2]))=='o'&&
                                  (tolower(fsrc[k+3]))=='r')     {L=1;F=1;printf("FORTRAN\n");}
                             else if((tolower(fsrc[k+1]))=='p'&&
                                     (tolower(fsrc[k+2]))=='a'&&
                                     (tolower(fsrc[k+3]))=='s')  {L=1;P=1;printf("PASCAL\n");}
#endif

#ifndef PC_ONLY
                    if((c=tolower(fsrc[k+1]))=='s'&&
                                   fsrc[k+2]=='\0')               {L=1;A=1;printf("Assembler\n");}
                       else if(c=='f'&&fsrc[k+2]=='\0')          {L=1;F=1;printf("Fortran\n");}
                          else if(c=='p'&&fsrc[k+2]=='\0')        {L=1;P=1;printf("Pascal\n");}
                             else if(                   c=='c'&&
                                     (tolower(fsrc[k+2]))=='s'&&
                                     (tolower(fsrc[k+3]))=='h')      {L=1;S=1;printf("Cshell\n");}
                                else if(                   c=='s'&&
                                        (tolower(fsrc[k+2]))=='h'&&
                                        (tolower(fsrc[k+3]))=='\0')  {L=1;S=1;printf("Shell\n");}
                                   else if(c=='r'&&fsrc[k+2]=='\0')  {L=1;S=1;printf("Ratfor\n");}
#endif

#ifdef UNIX_ONLY
                                   else if((c=='c'||
                                            c=='i'|| c=='h')&&
                                            fsrc[k+2]=='\0')         {L=1;C=1;printf("C or C after cpp\n");}
#endif

#ifndef ARGS_EXAM
                                      else if((tolower(fsrc[k+1]))=='p'&&
                                              (tolower(fsrc[k+2]))=='r'&&
                                              (tolower(fsrc[k+3]))=='j') {L=1;j=1;printf("Project file\n");}
#endif


                    } /*S chercher */
/*O                si le langage n'est pas trouve: */
                    if(!L)
/*O                alors: */
                    { /*S*/
/*O                   mettre les drapeaux (options ABC... ) a 0 */
                       A=B=C=F=P=S=0;
/*O                   demander le type de langage du fichier et positionner le drapeau */
                       printf("\n*** Source file: language not found. (Enter A,B,C,F,P,S,l or p)\n");
#ifndef ARGS_EXAM
                       if(!j)printf("*** For project file: exit and use option -j.\n");
#endif
                       printf("Enter ESCAPE for exit ?:");
                       if(j)printf("\b\bor space_bar for Ignore ?: ");
                       if((c=getch())==0x1B){ /*S*/ printf("\n.Exit 1\n");exit(1);} /*S*/
                       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=='l')l=1;
                                            else if(c=='p')p=1;
                                               else { /*S*/printf("\n.Exit 2\n"); exit(2);} /*S*/
                       printf("\n");
                       L=A+B+C+F+P+S;
/*O                   si aucun drapeau langage n'est positionne envoyer BEL */
                       if(!(L==1||p||l))putch(0x7);
                       putch('\n');
                    } /*S*/
                 } /*S find */
Récupérée de « http://edeulo.free.fr/wiki/index.php/Projet_mkd/find.c »
Outils personnels