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
dfd8a9a1
Valider
dfd8a9a1
rédigé
Il y a 2 mois
par
hieda_kyuko@hpr
Parcourir les fichiers
Options
Téléchargements
Correctifs
Plain Diff
Multi-line timetables
parent
76c9e0f5
Branches
Branches contenant la validation
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
Modifications
3
Afficher les modifications d'espaces
En ligne
Côte à côte
Affichage de
3 fichiers modifiés
lib/App/FrameUtils.pm
+46
-33
46 ajouts, 33 suppressions
lib/App/FrameUtils.pm
lib/App/MasterUtils.pm
+47
-0
47 ajouts, 0 suppression
lib/App/MasterUtils.pm
src/oud2_parser.pl
+2
-1
2 ajouts, 1 suppression
src/oud2_parser.pl
avec
95 ajouts
et
34 suppressions
lib/App/FrameUtils.pm
+
46
−
33
Voir le fichier @
dfd8a9a1
...
...
@@ -2,7 +2,7 @@ package FrameUtils;
use
strict
;
use
warnings
;
use
Data::
Dump
er
;
use
Data::
Print
er
;
BEGIN
{
...
...
@@ -10,35 +10,33 @@ BEGIN
}
use
App::
Utils
;
use
App::
MasterUtils
;
sub
get_syubetsu
{
my
%frame
=
%
{
$_
[
0
]
};
my
$index
=
$_
[
1
];
my
$rosen_id
=
$_
[
1
];
my
$index
=
$_
[
2
];
if
(
$index
>=
scalar
@
{
$frame
{'
syubetsu
'}
})
{
die
"
Index error
";
}
return
%
{
@
{
$frame
{'
syubetsu
'}
}[
$index
]
}{'
name
'};
}
sub
get_ekimei
{
my
%frame
=
%
{
$_
[
0
]
};
my
$eki
=
$_
[
1
];
if
(
$eki
>=
$frame
{'
eki_num
'})
{
die
"
Index error
"
};
return
@
{
$frame
{'
eki
'}
}[
$eki
];
my
$rosen
=
MasterUtils::
get_rosen_frame
\
%frame
,
$rosen_id
;
my
@syubetsus
=
@
{
$rosen
->
{'
syubetsu
'}
};
if
(
$index
>=
scalar
@syubetsus
)
{
die
"
Index error
";
}
return
%
{
$syubetsus
[
$index
]
}{'
name
'};
}
sub
get_destination
{
my
%frame
=
%
{
$_
[
0
]
};
my
@jikoku
=
@
{
$_
[
1
]
};
my
$offset
=
$_
[
2
];
my
$is_down
=
$_
[
3
];
my
$rosen_id
=
$_
[
1
];
my
$rosen
=
MasterUtils::
get_rosen_frame
\
%frame
,
$rosen_id
;
my
@jikoku
=
@
{
$_
[
2
]
};
my
$offset
=
$_
[
3
];
my
$is_down
=
$_
[
4
];
return
get_ekimei
\
%frame
,
$is_down
return
(
MasterUtils::
sta_from_index
\
%frame
,
$rosen_id
,
$is_down
?
scalar
$offset
+
@jikoku
-
1
:
$frame
{'
eki_num
'}
-
$offset
-
@jikoku
;
:
$rosen
->
{'
eki_num
'}
-
$offset
-
@jikoku
)
->
{'
ekimei
'};
}
sub
hassya_hyou
...
...
@@ -46,17 +44,20 @@ sub hassya_hyou
my
%frame
=
%
{
$_
[
0
]
};
my
$eki
=
$_
[
1
];
if
(
$eki
>=
$frame
{'
eki_num
'})
{
die
"
Index error
"
};
print
"
Timetable for station
@{
$
frame
{'
eki
'
}
}[
$eki
]
\n
";
my
@rosens
=
MasterUtils::
get_routes
\
%frame
,
$eki
;
my
%sta_info
=
%
{
MasterUtils::
sta_from_id
\
%frame
,
$eki
};
sub
process_ressya_list
{
my
@ressyas
=
@
{
$_
[
0
]
};
my
$is_down
=
$_
[
2
];
my
$target_absolute
=
$_
[
1
];
my
$rosen_id
=
$_
[
0
];
my
$rosen
=
MasterUtils::
get_rosen_frame
\
%frame
,
$rosen_id
;
my
@ressyas
=
@
{
$_
[
1
]
};
my
$is_down
=
$_
[
3
];
my
$target_absolute
=
MasterUtils::
get_eki_position
\
%frame
,
$rosen_id
,
$_
[
2
];
my
$target_relative
=
$is_down
?
$target_absolute
:
$
frame
{'
eki_num
'}
-
$target_absolute
-
1
;
:
$
rosen
->
{'
eki_num
'}
-
$target_absolute
-
1
;
foreach
my
$ressya
(
@ressyas
)
{
...
...
@@ -68,13 +69,16 @@ sub hassya_hyou
my
%ts
=
%
{
$jikoku
[
0
]
};
my
$time
=
$ts
{'
hatsu
'};
# Timestamp has no dep time (only arrival time for ex)
if
(
!
defined
$time
)
{
next
;
}
# This service does not stop here
if
(
%ts
{'
mode
'}
!=
1
)
{
next
;
}
# Format: time (tab) destination (tab) type (with eventual name)
my
$syubetsu
=
get_syubetsu
\
%frame
,
$data
{'
syubetsu
'};
print
Utils::
format_time
$time
my
$syubetsu
=
get_syubetsu
\
%frame
,
$rosen_id
,
$data
{'
syubetsu
'};
print
((
Utils::
format_time
$time
)
.
"
\t
for
"
.
(
get_destination
\
%frame
,
\
@jikoku
,
$target_relative
,
$is_down
)
.
"
\t
$syubetsu
"
.
(
get_destination
\
%frame
,
$rosen_id
,
\
@jikoku
,
$target_relative
,
$is_down
)
.
"
\t
$syubetsu
"
)
;
if
(
defined
$data
{'
meisyo
'})
{
...
...
@@ -85,10 +89,19 @@ sub hassya_hyou
print
"
\n
";
}
foreach
my
$rosen_id
(
@rosens
)
{
my
$rosenmei
=
MasterUtils::
get_rosenmei
\
%frame
,
$rosen_id
;
print
"
$rosenmei
timetable for station
$sta_info
{'ekimei'}
\n
";
my
$dia
=
$frame
{'
rosen
'}
->
{
$rosen_id
}
->
{'
dia
'};
print
"
=================== Down ===================
\n
";
process_ressya_list
\
@
{
$frame
{'
dia
'}
{'
kudari
'}
}
,
$eki
,
1
;
process_ressya_list
$rosen_id
,
$
dia
->
{'
kudari
'},
$eki
,
1
;
print
"
==================== Up ====================
\n
";
process_ressya_list
\
@
{
$frame
{'
dia
'}{'
nobori
'}
},
$eki
,
0
;
process_ressya_list
$rosen_id
,
$dia
->
{'
nobori
'},
$eki
,
0
;
}
}
1
;
Ce diff est replié.
Cliquez pour l'agrandir.
lib/App/MasterUtils.pm
+
47
−
0
Voir le fichier @
dfd8a9a1
...
...
@@ -9,6 +9,8 @@ BEGIN
}
use
App::
Log
;
use
List::
Util
qw(first)
;
use
Data::
Printer
;
sub
sta_from_id
...
...
@@ -24,6 +26,51 @@ sub sta_from_id
Log::
e
"
Station id
$id
not found.
";
}
sub
get_ekimei
{
return
(
sta_from_id
$_
[
0
],
$_
[
1
])
->
{'
ekimei
'};
}
sub
get_rosen_frame
{
my
%master
=
%
{
$_
[
0
]
};
my
$rosen_id
=
$_
[
1
];
if
(
!
defined
$rosen_id
)
{
Log::
e
'
Please specify a route id.
';
}
foreach
my
$rosen
(
keys
%
{
$master
{'
rosen
'}
})
{
if
(
$rosen
eq
$rosen_id
)
{
return
$master
{'
rosen
'}
->
{
$rosen
};
}
}
Log::
e
"
Route id
$rosen_id
not found.
";
}
sub
get_rosenmei
{
return
(
get_rosen_frame
$_
[
0
],
$_
[
1
])
->
{'
rosenmei
'};
}
sub
get_eki_position
{
my
%master
=
%
{
$_
[
0
]
};
my
$rosen_id
=
$_
[
1
];
my
$id
=
$_
[
2
];
my
$rosen
=
get_rosen_frame
\
%master
,
$rosen_id
;
my
@ekis
=
@
{
$rosen
->
{'
eki
'}
};
return
first
{
$ekis
[
$_
]
eq
$id
}
0
..
$#ekis
;
}
sub
sta_from_index
{
my
%master
=
%
{
$_
[
0
]
};
my
$rosen_id
=
$_
[
1
];
my
$index
=
$_
[
2
];
if
(
!
defined
$rosen_id
)
{
Log::
e
'
Please specify a route id.
';
}
if
(
!
defined
$index
)
{
Log::
e
'
Please specify a station index.
';
}
my
$rosen
=
get_rosen_frame
\
%master
,
$rosen_id
;
return
sta_from_id
\
%master
,
@
{
$rosen
->
{'
eki
'}
}[
$index
];
}
sub
get_routes
{
my
%master
=
%
{
$_
[
0
]
};
...
...
Ce diff est replié.
Cliquez pour l'agrandir.
src/oud2_parser.pl
+
2
−
1
Voir le fichier @
dfd8a9a1
...
...
@@ -326,4 +326,5 @@ foreach my $frame (values %{ $master{'rosen'} })
$frame
->
{'
eki
'}
=
\
@new_ekis
;
}
MasterUtils::
get_routes
\
%master
,
'
konpoku_10
';
# MasterUtils::get_routes \%master, 'konpoku_9';
FrameUtils::
hassya_hyou
\
%master
,
'
konpoku_9
';
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