e6bf3bd5e17766e4a50e0e7d63eeac3dd7e576a2
[dcpomatic.git] / src / lib / film.cc
1 /*
2     Copyright (C) 2012-2013 Carl Hetherington <cth@carlh.net>
3
4     This program is free software; you can redistribute it and/or modify
5     it under the terms of the GNU General Public License as published by
6     the Free Software Foundation; either version 2 of the License, or
7     (at your option) any later version.
8
9     This program is distributed in the hope that it will be useful,
10     but WITHOUT ANY WARRANTY; without even the implied warranty of
11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12     GNU General Public License for more details.
13
14     You should have received a copy of the GNU General Public License
15     along with this program; if not, write to the Free Software
16     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17
18 */
19
20 #include <stdexcept>
21 #include <iostream>
22 #include <algorithm>
23 #include <fstream>
24 #include <cstdlib>
25 #include <sstream>
26 #include <iomanip>
27 #include <unistd.h>
28 #include <boost/filesystem.hpp>
29 #include <boost/algorithm/string.hpp>
30 #include <boost/lexical_cast.hpp>
31 #include <boost/date_time.hpp>
32 #include <libxml++/libxml++.h>
33 #include <libcxml/cxml.h>
34 #include "film.h"
35 #include "job.h"
36 #include "util.h"
37 #include "job_manager.h"
38 #include "transcode_job.h"
39 #include "scp_dcp_job.h"
40 #include "log.h"
41 #include "exceptions.h"
42 #include "examine_content_job.h"
43 #include "scaler.h"
44 #include "config.h"
45 #include "version.h"
46 #include "ui_signaller.h"
47 #include "playlist.h"
48 #include "player.h"
49 #include "dcp_content_type.h"
50 #include "ratio.h"
51 #include "cross.h"
52
53 #include "i18n.h"
54
55 using std::string;
56 using std::stringstream;
57 using std::multimap;
58 using std::pair;
59 using std::map;
60 using std::vector;
61 using std::ifstream;
62 using std::ofstream;
63 using std::setfill;
64 using std::min;
65 using std::make_pair;
66 using std::endl;
67 using std::cout;
68 using std::list;
69 using boost::shared_ptr;
70 using boost::weak_ptr;
71 using boost::lexical_cast;
72 using boost::dynamic_pointer_cast;
73 using boost::to_upper_copy;
74 using boost::ends_with;
75 using boost::starts_with;
76 using boost::optional;
77 using libdcp::Size;
78
79 int const Film::state_version = 4;
80
81 /** Construct a Film object in a given directory.
82  *
83  *  @param dir Film directory.
84  */
85
86 Film::Film (boost::filesystem::path dir)
87         : _playlist (new Playlist)
88         , _use_dci_name (true)
89         , _dcp_content_type (Config::instance()->default_dcp_content_type ())
90         , _container (Config::instance()->default_container ())
91         , _resolution (RESOLUTION_2K)
92         , _scaler (Scaler::from_id ("bicubic"))
93         , _with_subtitles (false)
94         , _j2k_bandwidth (Config::instance()->default_j2k_bandwidth ())
95         , _dci_metadata (Config::instance()->default_dci_metadata ())
96         , _video_frame_rate (24)
97         , _audio_channels (MAX_AUDIO_CHANNELS)
98         , _three_d (false)
99         , _sequence_video (true)
100         , _interop (false)
101         , _dirty (false)
102 {
103         set_dci_date_today ();
104
105         _playlist->Changed.connect (bind (&Film::playlist_changed, this));
106         _playlist->ContentChanged.connect (bind (&Film::playlist_content_changed, this, _1, _2));
107         
108         /* Make state.directory a complete path without ..s (where possible)
109            (Code swiped from Adam Bowen on stackoverflow)
110         */
111         
112         boost::filesystem::path p (boost::filesystem::system_complete (dir));
113         boost::filesystem::path result;
114         for (boost::filesystem::path::iterator i = p.begin(); i != p.end(); ++i) {
115                 if (*i == "..") {
116                         if (boost::filesystem::is_symlink (result) || result.filename() == "..") {
117                                 result /= *i;
118                         } else {
119                                 result = result.parent_path ();
120                         }
121                 } else if (*i != ".") {
122                         result /= *i;
123                 }
124         }
125
126         set_directory (result.string ());
127         _log.reset (new FileLog (file ("log")));
128
129         _playlist->set_sequence_video (_sequence_video);
130 }
131
132 string
133 Film::video_identifier () const
134 {
135         assert (container ());
136         LocaleGuard lg;
137
138         stringstream s;
139         s << container()->id()
140           << "_" << resolution_to_string (_resolution)
141           << "_" << _playlist->video_identifier()
142           << "_" << _video_frame_rate
143           << "_" << scaler()->id()
144           << "_" << j2k_bandwidth();
145
146         if (_interop) {
147                 s << "_I";
148         } else {
149                 s << "_S";
150         }
151
152         if (_three_d) {
153                 s << "_3D";
154         }
155
156         return s.str ();
157 }
158           
159 /** @return The path to the directory to write video frame info files to */
160 string
161 Film::info_dir () const
162 {
163         boost::filesystem::path p;
164         p /= "info";
165         p /= video_identifier ();
166         return dir (p.string());
167 }
168
169 string
170 Film::internal_video_mxf_dir () const
171 {
172         return dir ("video");
173 }
174
175 string
176 Film::internal_video_mxf_filename () const
177 {
178         return video_identifier() + ".mxf";
179 }
180
181 string
182 Film::video_mxf_filename () const
183 {
184         return filename_safe_name() + "_video.mxf";
185 }
186
187 string
188 Film::audio_mxf_filename () const
189 {
190         return filename_safe_name() + "_audio.mxf";
191 }
192
193 string
194 Film::filename_safe_name () const
195 {
196         string const n = name ();
197         string o;
198         for (size_t i = 0; i < n.length(); ++i) {
199                 if (isalnum (n[i])) {
200                         o += n[i];
201                 } else {
202                         o += "_";
203                 }
204         }
205
206         return o;
207 }
208
209 boost::filesystem::path
210 Film::audio_analysis_path (shared_ptr<const AudioContent> c) const
211 {
212         boost::filesystem::path p = dir ("analysis");
213         p /= c->digest();
214         return p;
215 }
216
217 /** Add suitable Jobs to the JobManager to create a DCP for this Film */
218 void
219 Film::make_dcp ()
220 {
221         set_dci_date_today ();
222         
223         if (dcp_name().find ("/") != string::npos) {
224                 throw BadSettingError (_("name"), _("cannot contain slashes"));
225         }
226         
227         log()->log (String::compose ("DCP-o-matic %1 git %2 using %3", dcpomatic_version, dcpomatic_git_commit, dependency_version_summary()));
228
229         {
230                 char buffer[128];
231                 gethostname (buffer, sizeof (buffer));
232                 log()->log (String::compose ("Starting to make DCP on %1", buffer));
233         }
234
235         ContentList cl = content ();
236         for (ContentList::const_iterator i = cl.begin(); i != cl.end(); ++i) {
237                 log()->log (String::compose ("Content: %1", (*i)->technical_summary()));
238         }
239         log()->log (String::compose ("DCP video rate %1 fps", video_frame_rate()));
240         log()->log (String::compose ("%1 threads", Config::instance()->num_local_encoding_threads()));
241         log()->log (String::compose ("J2K bandwidth %1", j2k_bandwidth()));
242 #ifdef DCPOMATIC_DEBUG
243         log()->log ("DCP-o-matic built in debug mode.");
244 #else
245         log()->log ("DCP-o-matic built in optimised mode.");
246 #endif
247 #ifdef LIBDCP_DEBUG
248         log()->log ("libdcp built in debug mode.");
249 #else
250         log()->log ("libdcp built in optimised mode.");
251 #endif
252         log()->log (String::compose ("CPU: %1, %2 processors", cpu_info(), boost::thread::hardware_concurrency ()));
253         list<pair<string, string> > const m = mount_info ();
254         for (list<pair<string, string> >::const_iterator i = m.begin(); i != m.end(); ++i) {
255                 log()->log (String::compose ("Mount: %1 %2", i->first, i->second));
256         }
257         
258         if (container() == 0) {
259                 throw MissingSettingError (_("container"));
260         }
261
262         if (content().empty()) {
263                 throw StringError (_("You must add some content to the DCP before creating it"));
264         }
265
266         if (dcp_content_type() == 0) {
267                 throw MissingSettingError (_("content type"));
268         }
269
270         if (name().empty()) {
271                 throw MissingSettingError (_("name"));
272         }
273
274         JobManager::instance()->add (shared_ptr<Job> (new TranscodeJob (shared_from_this())));
275 }
276
277 /** Start a job to send our DCP to the configured TMS */
278 void
279 Film::send_dcp_to_tms ()
280 {
281         shared_ptr<Job> j (new SCPDCPJob (shared_from_this()));
282         JobManager::instance()->add (j);
283 }
284
285 /** Count the number of frames that have been encoded for this film.
286  *  @return frame count.
287  */
288 int
289 Film::encoded_frames () const
290 {
291         if (container() == 0) {
292                 return 0;
293         }
294
295         int N = 0;
296         for (boost::filesystem::directory_iterator i = boost::filesystem::directory_iterator (info_dir ()); i != boost::filesystem::directory_iterator(); ++i) {
297                 ++N;
298                 boost::this_thread::interruption_point ();
299         }
300
301         return N;
302 }
303
304 /** Write state to our `metadata' file */
305 void
306 Film::write_metadata () const
307 {
308         if (!boost::filesystem::exists (directory())) {
309                 boost::filesystem::create_directory (directory());
310         }
311         
312         LocaleGuard lg;
313
314         boost::filesystem::create_directories (directory());
315
316         xmlpp::Document doc;
317         xmlpp::Element* root = doc.create_root_node ("Metadata");
318
319         root->add_child("Version")->add_child_text (lexical_cast<string> (state_version));
320         root->add_child("Name")->add_child_text (_name);
321         root->add_child("UseDCIName")->add_child_text (_use_dci_name ? "1" : "0");
322
323         if (_dcp_content_type) {
324                 root->add_child("DCPContentType")->add_child_text (_dcp_content_type->dci_name ());
325         }
326
327         if (_container) {
328                 root->add_child("Container")->add_child_text (_container->id ());
329         }
330
331         root->add_child("Resolution")->add_child_text (resolution_to_string (_resolution));
332         root->add_child("Scaler")->add_child_text (_scaler->id ());
333         root->add_child("WithSubtitles")->add_child_text (_with_subtitles ? "1" : "0");
334         root->add_child("J2KBandwidth")->add_child_text (lexical_cast<string> (_j2k_bandwidth));
335         _dci_metadata.as_xml (root->add_child ("DCIMetadata"));
336         root->add_child("VideoFrameRate")->add_child_text (lexical_cast<string> (_video_frame_rate));
337         root->add_child("DCIDate")->add_child_text (boost::gregorian::to_iso_string (_dci_date));
338         root->add_child("AudioChannels")->add_child_text (lexical_cast<string> (_audio_channels));
339         root->add_child("ThreeD")->add_child_text (_three_d ? "1" : "0");
340         root->add_child("SequenceVideo")->add_child_text (_sequence_video ? "1" : "0");
341         root->add_child("Interop")->add_child_text (_interop ? "1" : "0");
342         _playlist->as_xml (root->add_child ("Playlist"));
343
344         doc.write_to_file_formatted (file ("metadata.xml"));
345         
346         _dirty = false;
347 }
348
349 /** Read state from our metadata file */
350 void
351 Film::read_metadata ()
352 {
353         LocaleGuard lg;
354
355         if (boost::filesystem::exists (file ("metadata")) && !boost::filesystem::exists (file ("metadata.xml"))) {
356                 throw StringError (_("This film was created with an older version of DCP-o-matic, and unfortunately it cannot be loaded into this version.  You will need to create a new Film, re-add your content and set it up again.  Sorry!"));
357         }
358
359         cxml::File f (file ("metadata.xml"), "Metadata");
360         
361         _name = f.string_child ("Name");
362         _use_dci_name = f.bool_child ("UseDCIName");
363
364         {
365                 optional<string> c = f.optional_string_child ("DCPContentType");
366                 if (c) {
367                         _dcp_content_type = DCPContentType::from_dci_name (c.get ());
368                 }
369         }
370
371         {
372                 optional<string> c = f.optional_string_child ("Container");
373                 if (c) {
374                         _container = Ratio::from_id (c.get ());
375                 }
376         }
377
378         _resolution = string_to_resolution (f.string_child ("Resolution"));
379         _scaler = Scaler::from_id (f.string_child ("Scaler"));
380         _with_subtitles = f.bool_child ("WithSubtitles");
381         _j2k_bandwidth = f.number_child<int> ("J2KBandwidth");
382         _dci_metadata = DCIMetadata (f.node_child ("DCIMetadata"));
383         _video_frame_rate = f.number_child<int> ("VideoFrameRate");
384         _dci_date = boost::gregorian::from_undelimited_string (f.string_child ("DCIDate"));
385         _audio_channels = f.number_child<int> ("AudioChannels");
386         _sequence_video = f.bool_child ("SequenceVideo");
387         _three_d = f.bool_child ("ThreeD");
388         _interop = f.bool_child ("Interop");
389
390         _playlist->set_from_xml (shared_from_this(), f.node_child ("Playlist"));
391
392         _dirty = false;
393 }
394
395 /** Given a directory name, return its full path within the Film's directory.
396  *  The directory (and its parents) will be created if they do not exist.
397  */
398 string
399 Film::dir (string d) const
400 {
401         boost::filesystem::path p;
402         p /= _directory;
403         p /= d;
404         
405         boost::filesystem::create_directories (p);
406         
407         return p.string ();
408 }
409
410 /** Given a file or directory name, return its full path within the Film's directory.
411  *  Any required parent directories will be created.
412  */
413 string
414 Film::file (string f) const
415 {
416         boost::filesystem::path p;
417         p /= _directory;
418         p /= f;
419
420         boost::filesystem::create_directories (p.parent_path ());
421         
422         return p.string ();
423 }
424
425 /** @return a DCI-compliant name for a DCP of this film */
426 string
427 Film::dci_name (bool if_created_now) const
428 {
429         stringstream d;
430
431         string fixed_name = to_upper_copy (name());
432         for (size_t i = 0; i < fixed_name.length(); ++i) {
433                 if (fixed_name[i] == ' ') {
434                         fixed_name[i] = '-';
435                 }
436         }
437
438         /* Spec is that the name part should be maximum 14 characters, as I understand it */
439         if (fixed_name.length() > 14) {
440                 fixed_name = fixed_name.substr (0, 14);
441         }
442
443         d << fixed_name;
444
445         if (dcp_content_type()) {
446                 d << "_" << dcp_content_type()->dci_name();
447         }
448
449         if (three_d ()) {
450                 d << "-3D";
451         }
452
453         if (video_frame_rate() != 24) {
454                 d << "-" << video_frame_rate();
455         }
456
457         if (container()) {
458                 d << "_" << container()->dci_name();
459         }
460
461         DCIMetadata const dm = dci_metadata ();
462
463         if (!dm.audio_language.empty ()) {
464                 d << "_" << dm.audio_language;
465                 if (!dm.subtitle_language.empty() && with_subtitles()) {
466                         d << "-" << dm.subtitle_language;
467                 } else {
468                         d << "-XX";
469                 }
470         }
471
472         if (!dm.territory.empty ()) {
473                 d << "_" << dm.territory;
474                 if (!dm.rating.empty ()) {
475                         d << "-" << dm.rating;
476                 }
477         }
478
479         switch (audio_channels ()) {
480         case 1:
481                 d << "_10";
482                 break;
483         case 2:
484                 d << "_20";
485                 break;
486         case 3:
487                 d << "_30";
488                 break;
489         case 4:
490                 d << "_40";
491                 break;
492         case 5:
493                 d << "_50";
494                 break;
495         case 6:
496                 d << "_51";
497                 break;
498         }
499
500         d << "_" << resolution_to_string (_resolution);
501
502         if (!dm.studio.empty ()) {
503                 d << "_" << dm.studio;
504         }
505
506         if (if_created_now) {
507                 d << "_" << boost::gregorian::to_iso_string (boost::gregorian::day_clock::local_day ());
508         } else {
509                 d << "_" << boost::gregorian::to_iso_string (_dci_date);
510         }
511
512         if (!dm.facility.empty ()) {
513                 d << "_" << dm.facility;
514         }
515
516         if (!dm.package_type.empty ()) {
517                 d << "_" << dm.package_type;
518         }
519
520         return d.str ();
521 }
522
523 /** @return name to give the DCP */
524 string
525 Film::dcp_name (bool if_created_now) const
526 {
527         if (use_dci_name()) {
528                 return dci_name (if_created_now);
529         }
530
531         return name();
532 }
533
534
535 void
536 Film::set_directory (string d)
537 {
538         _directory = d;
539         _dirty = true;
540 }
541
542 void
543 Film::set_name (string n)
544 {
545         _name = n;
546         signal_changed (NAME);
547 }
548
549 void
550 Film::set_use_dci_name (bool u)
551 {
552         _use_dci_name = u;
553         signal_changed (USE_DCI_NAME);
554 }
555
556 void
557 Film::set_dcp_content_type (DCPContentType const * t)
558 {
559         _dcp_content_type = t;
560         signal_changed (DCP_CONTENT_TYPE);
561 }
562
563 void
564 Film::set_container (Ratio const * c)
565 {
566         _container = c;
567         signal_changed (CONTAINER);
568 }
569
570 void
571 Film::set_resolution (Resolution r)
572 {
573         _resolution = r;
574         signal_changed (RESOLUTION);
575 }
576
577 void
578 Film::set_scaler (Scaler const * s)
579 {
580         _scaler = s;
581         signal_changed (SCALER);
582 }
583
584 void
585 Film::set_with_subtitles (bool w)
586 {
587         _with_subtitles = w;
588         signal_changed (WITH_SUBTITLES);
589 }
590
591 void
592 Film::set_j2k_bandwidth (int b)
593 {
594         _j2k_bandwidth = b;
595         signal_changed (J2K_BANDWIDTH);
596 }
597
598 void
599 Film::set_dci_metadata (DCIMetadata m)
600 {
601         _dci_metadata = m;
602         signal_changed (DCI_METADATA);
603 }
604
605 void
606 Film::set_video_frame_rate (int f)
607 {
608         _video_frame_rate = f;
609         signal_changed (VIDEO_FRAME_RATE);
610 }
611
612 void
613 Film::set_audio_channels (int c)
614 {
615         _audio_channels = c;
616         signal_changed (AUDIO_CHANNELS);
617 }
618
619 void
620 Film::set_three_d (bool t)
621 {
622         _three_d = t;
623         signal_changed (THREE_D);
624 }
625
626 void
627 Film::set_interop (bool i)
628 {
629         _interop = i;
630         signal_changed (INTEROP);
631 }
632
633 void
634 Film::signal_changed (Property p)
635 {
636         _dirty = true;
637
638         switch (p) {
639         case Film::CONTENT:
640                 set_video_frame_rate (_playlist->best_dcp_frame_rate ());
641                 break;
642         case Film::VIDEO_FRAME_RATE:
643         case Film::SEQUENCE_VIDEO:
644                 _playlist->maybe_sequence_video ();
645                 break;
646         default:
647                 break;
648         }
649
650         if (ui_signaller) {
651                 ui_signaller->emit (boost::bind (boost::ref (Changed), p));
652         }
653 }
654
655 void
656 Film::set_dci_date_today ()
657 {
658         _dci_date = boost::gregorian::day_clock::local_day ();
659 }
660
661 string
662 Film::info_path (int f, Eyes e) const
663 {
664         boost::filesystem::path p;
665         p /= info_dir ();
666
667         stringstream s;
668         s.width (8);
669         s << setfill('0') << f;
670
671         if (e == EYES_LEFT) {
672                 s << ".L";
673         } else if (e == EYES_RIGHT) {
674                 s << ".R";
675         }
676
677         s << ".md5";
678         
679         p /= s.str();
680
681         /* info_dir() will already have added any initial bit of the path,
682            so don't call file() on this.
683         */
684         return p.string ();
685 }
686
687 string
688 Film::j2c_path (int f, Eyes e, bool t) const
689 {
690         boost::filesystem::path p;
691         p /= "j2c";
692         p /= video_identifier ();
693
694         stringstream s;
695         s.width (8);
696         s << setfill('0') << f;
697
698         if (e == EYES_LEFT) {
699                 s << ".L";
700         } else if (e == EYES_RIGHT) {
701                 s << ".R";
702         }
703         
704         s << ".j2c";
705
706         if (t) {
707                 s << ".tmp";
708         }
709
710         p /= s.str();
711         return file (p.string ());
712 }
713
714 /** Make an educated guess as to whether we have a complete DCP
715  *  or not.
716  *  @return true if we do.
717  */
718
719 bool
720 Film::have_dcp () const
721 {
722         try {
723                 libdcp::DCP dcp (dir (dcp_name()));
724                 dcp.read ();
725         } catch (...) {
726                 return false;
727         }
728
729         return true;
730 }
731
732 shared_ptr<Player>
733 Film::make_player () const
734 {
735         return shared_ptr<Player> (new Player (shared_from_this (), _playlist));
736 }
737
738 shared_ptr<Playlist>
739 Film::playlist () const
740 {
741         return _playlist;
742 }
743
744 ContentList
745 Film::content () const
746 {
747         return _playlist->content ();
748 }
749
750 void
751 Film::examine_and_add_content (shared_ptr<Content> c)
752 {
753         shared_ptr<Job> j (new ExamineContentJob (shared_from_this(), c));
754         j->Finished.connect (bind (&Film::maybe_add_content, this, boost::weak_ptr<Job> (j), boost::weak_ptr<Content> (c)));
755         JobManager::instance()->add (j);
756 }
757
758 void
759 Film::maybe_add_content (weak_ptr<Job> j, weak_ptr<Content> c)
760 {
761         shared_ptr<Job> job = j.lock ();
762         if (!job || !job->finished_ok ()) {
763                 return;
764         }
765         
766         shared_ptr<Content> content = c.lock ();
767         if (content) {
768                 add_content (content);
769         }
770 }
771
772 void
773 Film::add_content (shared_ptr<Content> c)
774 {
775         /* Add video content after any existing content */
776         if (dynamic_pointer_cast<VideoContent> (c)) {
777                 c->set_position (_playlist->video_end ());
778         }
779
780         _playlist->add (c);
781 }
782
783 void
784 Film::remove_content (shared_ptr<Content> c)
785 {
786         _playlist->remove (c);
787 }
788
789 Time
790 Film::length () const
791 {
792         return _playlist->length ();
793 }
794
795 bool
796 Film::has_subtitles () const
797 {
798         return _playlist->has_subtitles ();
799 }
800
801 OutputVideoFrame
802 Film::best_video_frame_rate () const
803 {
804         return _playlist->best_dcp_frame_rate ();
805 }
806
807 void
808 Film::playlist_content_changed (boost::weak_ptr<Content> c, int p)
809 {
810         if (p == VideoContentProperty::VIDEO_FRAME_RATE) {
811                 set_video_frame_rate (_playlist->best_dcp_frame_rate ());
812         } 
813
814         if (ui_signaller) {
815                 ui_signaller->emit (boost::bind (boost::ref (ContentChanged), c, p));
816         }
817 }
818
819 void
820 Film::playlist_changed ()
821 {
822         signal_changed (CONTENT);
823 }       
824
825 OutputAudioFrame
826 Film::time_to_audio_frames (Time t) const
827 {
828         return t * audio_frame_rate () / TIME_HZ;
829 }
830
831 OutputVideoFrame
832 Film::time_to_video_frames (Time t) const
833 {
834         return t * video_frame_rate () / TIME_HZ;
835 }
836
837 Time
838 Film::audio_frames_to_time (OutputAudioFrame f) const
839 {
840         return f * TIME_HZ / audio_frame_rate ();
841 }
842
843 Time
844 Film::video_frames_to_time (OutputVideoFrame f) const
845 {
846         return f * TIME_HZ / video_frame_rate ();
847 }
848
849 OutputAudioFrame
850 Film::audio_frame_rate () const
851 {
852         /* XXX */
853         return 48000;
854 }
855
856 void
857 Film::set_sequence_video (bool s)
858 {
859         _sequence_video = s;
860         _playlist->set_sequence_video (s);
861         signal_changed (SEQUENCE_VIDEO);
862 }
863
864 libdcp::Size
865 Film::full_frame () const
866 {
867         switch (_resolution) {
868         case RESOLUTION_2K:
869                 return libdcp::Size (2048, 1080);
870         case RESOLUTION_4K:
871                 return libdcp::Size (4096, 2160);
872         }
873
874         assert (false);
875         return libdcp::Size ();
876 }