Skip to content
GitLab
Explorer
Connexion
Navigation principale
Rechercher ou aller à…
Projet
G
gtfs_of_oud2
Gestion
Activité
Membres
Labels
Programmation
Tickets
Tableaux des tickets
Jalons
Wiki
Wiki externe
Code
Requêtes de fusion
Dépôt
Branches
Validations
Étiquettes
Graphe du dépôt
Comparer les révisions
Extraits de code
Compilation
Pipelines
Jobs
Planifications de pipeline
Artéfacts
Déploiement
Releases
Registre de paquets
Registre de conteneurs
Registre de modèles
Opération
Environnements
Modules Terraform
Surveillance
Incidents
Analyse
Données d'analyse des chaînes de valeur
Analyse des contributeurs
Données d'analyse CI/CD
Données d'analyse du dépôt
Expériences du modèle
Aide
Aide
Support
Documentation de GitLab
Comparer les forfaits GitLab
Forum de la communauté GitLab
Contribuer à GitLab
Donner votre avis
Raccourcis clavier
?
Extraits de code
Groupes
Projets
Afficher davantage de fils d'Ariane
ひるまの583系
gtfs_of_oud2
Validations
f3da3dab
Valider
f3da3dab
rédigé
Il y a 2 mois
par
hieda_kyuko@hpr
Parcourir les fichiers
Options
Téléchargements
Correctifs
Plain Diff
Support stations on different lines
parent
299b8dba
Branches
Branches contenant la validation
Étiquettes
Étiquettes contenant la validation
Aucune requête de fusion associée trouvée
Modifications
2
Afficher les modifications d'espaces
En ligne
Côte à côte
Affichage de
2 fichiers modifiés
lib/App/MasterUtils.pm
+49
-0
49 ajouts, 0 suppression
lib/App/MasterUtils.pm
src/oud2_parser.pl
+14
-6
14 ajouts, 6 suppressions
src/oud2_parser.pl
avec
63 ajouts
et
6 suppressions
lib/App/MasterUtils.pm
0 → 100644
+
49
−
0
Voir le fichier @
f3da3dab
package
MasterUtils
;
use
strict
;
use
warnings
;
BEGIN
{
unshift
@INC
,
'
.
';
}
use
App::
Log
;
use
Data::
Printer
;
sub
sta_from_id
{
my
%master
=
%
{
$_
[
0
]
};
my
$id
=
$_
[
1
];
if
(
!
defined
$id
)
{
Log::
e
'
Please specify a station id.
';
}
foreach
my
$k
(
keys
%
{
$master
{'
eki_index
'}
})
{
my
$v
=
$master
{'
eki_index
'}
->
{
$k
};
if
(
$k
eq
$id
)
{
return
$v
};
}
Log::
e
"
Station id
$id
not found.
";
}
sub
get_routes
{
my
%master
=
%
{
$_
[
0
]
};
my
$id
=
$_
[
1
];
my
@res
;
if
(
!
defined
$id
)
{
Log::
e
'
Please specify a station id to get its routes.
';
}
my
$eki_ref
=
sta_from_id
\
%master
,
$id
;
my
%rosens
=
%
{
$master
{'
rosen
'}
};
foreach
my
$k
(
keys
%rosens
)
{
my
@ekis
=
@
{
$rosens
{
$k
}
->
{'
eki
'}
};
foreach
my
$eki
(
@ekis
)
{
if
(
$id
eq
$eki
)
{
push
@res
,
$k
;
}
}
}
@res
?
return
@res
:
Log::
e
"
$id
has no routes
";
}
1
;
Ce diff est replié.
Cliquez pour l'agrandir.
src/oud2_parser.pl
+
14
−
6
Voir le fichier @
f3da3dab
...
...
@@ -33,6 +33,7 @@ use App::Ts;
use
App::
Ressya
;
use
App::
Frame
;
use
App::
FrameUtils
;
use
App::
MasterUtils
;
use
App::
Dia
;
# .oud2 grammar
...
...
@@ -282,7 +283,7 @@ foreach my $frame (values %{ $master{'rosen'} })
# Station occurs twice on the same route (branch line)
foreach
my
$old
(
values
@new_ekis
)
{
if
(
$old
->
{'
ekimei
'}
eq
$ekimei
)
if
(
(
MasterUtils::
sta_from_id
\
%master
,
$old
)
->
{'
ekimei
'}
eq
$ekimei
)
{
Log::
i
"
$ekimei
has already appeared on this route before, assuming branch line
";
push
@new_ekis
,
$old
;
...
...
@@ -294,19 +295,24 @@ foreach my $frame (values %{ $master{'rosen'} })
if
(
$restart
)
{
next
;
}
# TODO Station has already been processed in another route
foreach
my
$old
(
@
master
_
eki
s
)
foreach
my
$old
(
keys
%
{
$
master
{'
eki
_index
'}
}
)
{
my
$old_ref
=
MasterUtils::
sta_from_id
\
%master
,
$old
;
if
(
$old_ref
->
{'
ekimei
'}
eq
$ekimei
)
{
Log::
i
"
Found
$ekimei
in the existing index (first found in
"
.
$old_ref
->
{'
found_in
'}
.
'
)
';
Log::
i
"
Assuming this is the same station as the one processed earlier.
";
last
;
}
}
my
$id
=
$frame
->
{'
id
'}
.
"
_
$index
";
print
"
Adding station
$ekimei
to master frame with id
$id
\n
";
$master
{'
eki_index
'}{
$id
}
=
\
%new_struct
;
$new_struct
{'
ekimei
'}
=
$ekimei
;
$new_struct
{'
found_in
'}
=
$frame
->
{'
id
'};
$master
{'
eki_index
'}{
$id
}
=
\
%new_struct
;
push
@new_ekis
,
\
%new_struct
;
push
@new_ekis
,
$id
;
if
(
$update_index
)
{
$index
++
;
}
}
...
...
@@ -315,3 +321,5 @@ foreach my $frame (values %{ $master{'rosen'} })
# The order is conserved so there's no need to modify {'jikoku'} in {'dia'}
$frame
->
{'
eki
'}
=
\
@new_ekis
;
}
MasterUtils::
get_routes
\
%master
,
'
konpoku_10
';
Ce diff est replié.
Cliquez pour l'agrandir.
Aperçu
0%
Chargement en cours
Veuillez réessayer
ou
joindre un nouveau fichier
.
Annuler
You are about to add
0
people
to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Enregistrer le commentaire
Annuler
Veuillez vous
inscrire
ou vous
se connecter
pour commenter