Bonjour,
je suis totalement HS...désolé.
Bon je fais du fortran. ben oui ça existe tjs et dans le numérique on
aime bien ça...bon c'est simple mais la contrainte des 72 colonnes doit
être respectée (enfin en 77). Et apparemment le cochon qui a codé le
code que j'utilise...soit il ne savait pas...soit il a décidé de
m'embeter. Comme je suis fainéant (en bon informaticien que je suis...),
j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
Zavez une idée ????
Guillaume
Bonjour,
je suis totalement HS...désolé.
Bon je fais du fortran. ben oui ça existe tjs et dans le numérique on
aime bien ça...bon c'est simple mais la contrainte des 72 colonnes doit
être respectée (enfin en 77). Et apparemment le cochon qui a codé le
code que j'utilise...soit il ne savait pas...soit il a décidé de
m'embeter. Comme je suis fainéant (en bon informaticien que je suis...),
j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
Zavez une idée ????
Guillaume
Bonjour,
je suis totalement HS...désolé.
Bon je fais du fortran. ben oui ça existe tjs et dans le numérique on
aime bien ça...bon c'est simple mais la contrainte des 72 colonnes doit
être respectée (enfin en 77). Et apparemment le cochon qui a codé le
code que j'utilise...soit il ne savait pas...soit il a décidé de
m'embeter. Comme je suis fainéant (en bon informaticien que je suis...),
j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
Zavez une idée ????
Guillaume
Le 15/07/2009 à 11:30, giggzounet a écrit :Bonjour,
je suis totalement HS...désolé.
Bon je fais du fortran. ben oui ça existe tjs et dans le numérique on
aime bien ça...bon c'est simple mais la contrainte des 72 colonnes doit
être respectée (enfin en 77). Et apparemment le cochon qui a codé le
code que j'utilise...soit il ne savait pas...soit il a décidé de
m'embeter. Comme je suis fainéant (en bon informaticien que je suis...),
j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
rendre un code qui ne compile pas ?)
Ne serait ce pas un pb d'éditeur de texte qui converti les
tab en espaces , ou une taille de tab différente ?
Zavez une idée ????
Guillaume
pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
Une regexp et un coup de perl devrait le faire (mais je suis un boulet
en regexp...)
Le 15/07/2009 à 11:30, giggzounet a écrit :
Bonjour,
je suis totalement HS...désolé.
Bon je fais du fortran. ben oui ça existe tjs et dans le numérique on
aime bien ça...bon c'est simple mais la contrainte des 72 colonnes doit
être respectée (enfin en 77). Et apparemment le cochon qui a codé le
code que j'utilise...soit il ne savait pas...soit il a décidé de
m'embeter. Comme je suis fainéant (en bon informaticien que je suis...),
j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
rendre un code qui ne compile pas ?)
Ne serait ce pas un pb d'éditeur de texte qui converti les
tab en espaces , ou une taille de tab différente ?
Zavez une idée ????
Guillaume
pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
Une regexp et un coup de perl devrait le faire (mais je suis un boulet
en regexp...)
Le 15/07/2009 à 11:30, giggzounet a écrit :Bonjour,
je suis totalement HS...désolé.
Bon je fais du fortran. ben oui ça existe tjs et dans le numérique on
aime bien ça...bon c'est simple mais la contrainte des 72 colonnes doit
être respectée (enfin en 77). Et apparemment le cochon qui a codé le
code que j'utilise...soit il ne savait pas...soit il a décidé de
m'embeter. Comme je suis fainéant (en bon informaticien que je suis...),
j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
rendre un code qui ne compile pas ?)
Ne serait ce pas un pb d'éditeur de texte qui converti les
tab en espaces , ou une taille de tab différente ?
Zavez une idée ????
Guillaume
pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
Une regexp et un coup de perl devrait le faire (mais je suis un boulet
en regexp...)
pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
>> j'aimerai taper une ligne de commande et savoir s'il y a du texte au
>> dela de la 72 ieme colonnes dans tel ou tel fichier.
>
> ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
> rendre un code qui ne compile pas ?)
>
> Ne serait ce pas un pb d'éditeur de texte qui converti les
> tab en espaces , ou une taille de tab différente ?
>
ah oui possible. je n'y ai pas pensé. Le code compile sans problème e t s
execute aussi sans probleme.
C'est super mal codé alors je ne peux pas
utiliser les options de debuggage...
le code s arrete tout de suite.
rhaaaaaaa misère!
>> Zavez une idée ????
>> j'aimerai taper une ligne de commande et savoir s'il y a du texte au
>> dela de la 72 ieme colonnes dans tel ou tel fichier.
>
> ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
> rendre un code qui ne compile pas ?)
>
> Ne serait ce pas un pb d'éditeur de texte qui converti les
> tab en espaces , ou une taille de tab différente ?
>
ah oui possible. je n'y ai pas pensé. Le code compile sans problème e t s
execute aussi sans probleme.
C'est super mal codé alors je ne peux pas
utiliser les options de debuggage...
le code s arrete tout de suite.
rhaaaaaaa misère!
>> Zavez une idée ????
>> j'aimerai taper une ligne de commande et savoir s'il y a du texte au
>> dela de la 72 ieme colonnes dans tel ou tel fichier.
>
> ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
> rendre un code qui ne compile pas ?)
>
> Ne serait ce pas un pb d'éditeur de texte qui converti les
> tab en espaces , ou une taille de tab différente ?
>
ah oui possible. je n'y ai pas pensé. Le code compile sans problème e t s
execute aussi sans probleme.
C'est super mal codé alors je ne peux pas
utiliser les options de debuggage...
le code s arrete tout de suite.
rhaaaaaaa misère!
>> Zavez une idée ????
Le 15/07/2009 à 12:20, giggzounet a écrit :j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
rendre un code qui ne compile pas ?)
Ne serait ce pas un pb d'éditeur de texte qui converti les
tab en espaces , ou une taille de tab différente ?
ah oui possible. je n'y ai pas pensé. Le code compile sans problème et s
execute aussi sans probleme.
ben alors le code est valide (syntaxiquement) et le contenu
des colonnes 73+ est bien un commentaire
C'est super mal codé alors je ne peux pas
utiliser les options de debuggage...
avec quel compilateur ?
? pourquoi ? ajouter -g (ou autre) ne marche pas ?le code s arrete tout de suite.
rhaaaaaaa misère!Zavez une idée ????
Contacter l'auteur du code ?
au moins pour savoir quel compilateur il emploie et
ses options de compilation ?
Le 15/07/2009 à 12:20, giggzounet a écrit :
j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
rendre un code qui ne compile pas ?)
Ne serait ce pas un pb d'éditeur de texte qui converti les
tab en espaces , ou une taille de tab différente ?
ah oui possible. je n'y ai pas pensé. Le code compile sans problème et s
execute aussi sans probleme.
ben alors le code est valide (syntaxiquement) et le contenu
des colonnes 73+ est bien un commentaire
C'est super mal codé alors je ne peux pas
utiliser les options de debuggage...
avec quel compilateur ?
? pourquoi ? ajouter -g (ou autre) ne marche pas ?
le code s arrete tout de suite.
rhaaaaaaa misère!
Zavez une idée ????
Contacter l'auteur du code ?
au moins pour savoir quel compilateur il emploie et
ses options de compilation ?
Le 15/07/2009 à 12:20, giggzounet a écrit :j'aimerai taper une ligne de commande et savoir s'il y a du texte au
dela de la 72 ieme colonnes dans tel ou tel fichier.
ca parait bizarre, le code ne devrait pas compiler. (a moins qu'"il" ose
rendre un code qui ne compile pas ?)
Ne serait ce pas un pb d'éditeur de texte qui converti les
tab en espaces , ou une taille de tab différente ?
ah oui possible. je n'y ai pas pensé. Le code compile sans problème et s
execute aussi sans probleme.
ben alors le code est valide (syntaxiquement) et le contenu
des colonnes 73+ est bien un commentaire
C'est super mal codé alors je ne peux pas
utiliser les options de debuggage...
avec quel compilateur ?
? pourquoi ? ajouter -g (ou autre) ne marche pas ?le code s arrete tout de suite.
rhaaaaaaa misère!Zavez une idée ????
Contacter l'auteur du code ?
au moins pour savoir quel compilateur il emploie et
ses options de compilation ?
Alain Baeckeroot à écrit le Wed, 15 Jul
2009 12:07:34 +0200pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
erf j'avais encore moins subtil (script une ligne) :
L=1 ; cat < fichier | while true ; do read ligne ;
NBcar=${#ligne} ; if (( $NBcar > 73)) ; then echo "Ligne $L = $NBcar" ;
fi ; L=$(($L + 1)) ; done | more
Alain Baeckeroot <alain.baeckeroot@laposte.net> à écrit le Wed, 15 Jul
2009 12:07:34 +0200
pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
erf j'avais encore moins subtil (script une ligne) :
L=1 ; cat < fichier | while true ; do read ligne ;
NBcar=${#ligne} ; if (( $NBcar > 73)) ; then echo "Ligne $L = $NBcar" ;
fi ; L=$(($L + 1)) ; done | more
Alain Baeckeroot à écrit le Wed, 15 Jul
2009 12:07:34 +0200pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
erf j'avais encore moins subtil (script une ligne) :
L=1 ; cat < fichier | while true ; do read ligne ;
NBcar=${#ligne} ; if (( $NBcar > 73)) ; then echo "Ligne $L = $NBcar" ;
fi ; L=$(($L + 1)) ; done | more
Grégory Bulot a écrit :Alain Baeckeroot à écrit le Wed, 15 Jul
2009 12:07:34 +0200pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
erf j'avais encore moins subtil (script une ligne) :
L=1 ; cat < fichier | while true ; do read ligne ;
NBcar=${#ligne} ; if (( $NBcar > 73)) ; then echo "Ligne $L = $NBcar" ;
fi ; L=$(($L + 1)) ; done | more
voilà ou j'en suis :
#!/bin/sh
for file in *.f ;do
L=1
cat $file | grep -v "C" | while read ligne
do
NBcar=${#ligne}
if [ "$NBcar" -ge "73" ]; then
echo -e
'E[34;40m'" 33[1m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m------------------------------------------------------------------------ 33[0m";
tput sgr0
echo -e 'E[34;40m'" 33[1mfile : $file : Line $L = $NBcar 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m------------------------------------------------------------------------ 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 33[0m";
tput sgr0
echo " "
echo "Line :"
echo $ligne
echo " "
echo " "
echo " "
sleep 1
fi
L=$(($L + 1))
done
done
exit
ça marchait pas avec "while true ; do read ligne ;", il faut mettre
"while read ligne; do".
Sinon encore une question je veux eviter de tester les commentaires,
d'ou pour l'instant mon "cat $file | grep -v "C"". mais c'est moche et
surtout assez dangereux car je zappe tous les CALL par exemple...
je cherche donc une regexp qui teste sur la premiere colonne. une idée ?
Merci
Grégory Bulot a écrit :
Alain Baeckeroot <alain.baeckeroot@laposte.net> à écrit le Wed, 15 Jul
2009 12:07:34 +0200
pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
erf j'avais encore moins subtil (script une ligne) :
L=1 ; cat < fichier | while true ; do read ligne ;
NBcar=${#ligne} ; if (( $NBcar > 73)) ; then echo "Ligne $L = $NBcar" ;
fi ; L=$(($L + 1)) ; done | more
voilà ou j'en suis :
#!/bin/sh
for file in *.f ;do
L=1
cat $file | grep -v "C" | while read ligne
do
NBcar=${#ligne}
if [ "$NBcar" -ge "73" ]; then
echo -e
'E[34;40m'" 33[1m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m------------------------------------------------------------------------ 33[0m";
tput sgr0
echo -e 'E[34;40m'" 33[1mfile : $file : Line $L = $NBcar 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m------------------------------------------------------------------------ 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 33[0m";
tput sgr0
echo " "
echo "Line :"
echo $ligne
echo " "
echo " "
echo " "
sleep 1
fi
L=$(($L + 1))
done
done
exit
ça marchait pas avec "while true ; do read ligne ;", il faut mettre
"while read ligne; do".
Sinon encore une question je veux eviter de tester les commentaires,
d'ou pour l'instant mon "cat $file | grep -v "C"". mais c'est moche et
surtout assez dangereux car je zappe tous les CALL par exemple...
je cherche donc une regexp qui teste sur la premiere colonne. une idée ?
Merci
Grégory Bulot a écrit :Alain Baeckeroot à écrit le Wed, 15 Jul
2009 12:07:34 +0200pas subtil du tout
$ cat fichier.f77 |cut -c73- |sort -u |wc -l
si ce n'est pas 0 il y a qq chose.
erf j'avais encore moins subtil (script une ligne) :
L=1 ; cat < fichier | while true ; do read ligne ;
NBcar=${#ligne} ; if (( $NBcar > 73)) ; then echo "Ligne $L = $NBcar" ;
fi ; L=$(($L + 1)) ; done | more
voilà ou j'en suis :
#!/bin/sh
for file in *.f ;do
L=1
cat $file | grep -v "C" | while read ligne
do
NBcar=${#ligne}
if [ "$NBcar" -ge "73" ]; then
echo -e
'E[34;40m'" 33[1m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m------------------------------------------------------------------------ 33[0m";
tput sgr0
echo -e 'E[34;40m'" 33[1mfile : $file : Line $L = $NBcar 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m------------------------------------------------------------------------ 33[0m";
tput sgr0
echo -e
'E[34;40m'" 33[1m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 33[0m";
tput sgr0
echo " "
echo "Line :"
echo $ligne
echo " "
echo " "
echo " "
sleep 1
fi
L=$(($L + 1))
done
done
exit
ça marchait pas avec "while true ; do read ligne ;", il faut mettre
"while read ligne; do".
Sinon encore une question je veux eviter de tester les commentaires,
d'ou pour l'instant mon "cat $file | grep -v "C"". mais c'est moche et
surtout assez dangereux car je zappe tous les CALL par exemple...
je cherche donc une regexp qui teste sur la premiere colonne. une idée ?
Merci