Changeset 13553


Ignore:
Timestamp:
08/31/11 12:07:26 (10 years ago)
Author:
Mark Evenson
Message:

Final metrics for initial run for every tenth commit

Location:
trunk/abcl/tools/jar-size
Files:
2 edited
1 moved

Legend:

Unmodified
Added
Removed
  • trunk/abcl/tools/jar-size/build-metrics.data

    r13552 r13553  
    1531531561 13454 2011-08-11 8154597 245.62
    1541541571 13464 2011-08-11 8155389 243.52
     1551581 13484 2011-08-13 8150267 241.97
     1561591 13494 2011-08-14 8151646 242.04
     1571601 13511 2011-08-19 8158078 241.24
     1581611 13521 2011-08-20 8282056 246.42
     1591621 13531 2011-08-22 8291943 248.02
     1601631 13541 2011-08-27 8305574 246.17
  • trunk/abcl/tools/jar-size/build-metrics.lisp

    r13552 r13553  
    1 (defun write (&key (file "build-metrics.gnuplot"))
    2   (format t "Writing gnuplot file to ~A.~%" file)
    3   (with-open-file (s file :direction :output :if-exists :supersede)
    4     (format s "# hg-changeset-number svn-revision date abcl.jar-size user-build-time~%")
    5     (dolist (line (nreverse (parse)))
    6       (format s "~A~%" line))))
     1(defun write-data (&key (file "build-metrics.data"))
     2  (let ((results (nreverse (parse))))
     3    (format t "Writing gnuplot file to ~A.~%" file)
     4    (with-open-file (s file :direction :output :if-exists :supersede)
     5      (format s "# hg-changeset-number svn-revision date abcl.jar-size user-build-time~%")
     6      (dolist (line results)
     7        (format s "~A~%" line)))))
    78
    89(defun parse (&key (file "build-metrics.out"))
     
    1112    (with-open-file (s file)
    1213      (loop
    13          (unless (equal (peek-char nil s nil #\-) #\-)
     14         (when (eq (peek-char nil s nil 'EOF) 'EOF)
    1415           (return result))
    1516         (let ((record (read-record s)))
     
    4041       
    4142(defun read-record (s)
    42   (let ((begin (read-line s))
    43         result)
    44     (unless (string-equal begin "-----")
    45       (error "Stream ~a not at beginning of record: ~a" s begin))
    46     (loop
    47        (when (equal (peek-char nil s nil #\-) #\-) (return result))
    48        (let* ((line (read-line s))
    49               (space (search " " line)))
    50          (when (numberp space)
    51            (let ((key (subseq line 0 space))
    52                  (value (subseq line (1+ space))))
    53              (when (equal #\: (char key (1- (length key))))
    54                (setf key (subseq key 0 (1- (length key)))))
    55              (push (cons key value) result)))))
    56     result))
     43  (let (result)
     44    (handler-case
     45        (let ((begin (read-line s)))
     46          (unless (string-equal begin "-----")
     47            (error "Stream ~a not at beginning of record: ~a" s begin))
     48          (loop
     49             (when (equal (peek-char nil s) #\-) (return-from read-record result))
     50             (let* ((line (read-line s))
     51                    (space (search " " line)))
     52               (when (numberp space)
     53                 (let ((key (subseq line 0 space))
     54                       (value (subseq line (1+ space))))
     55                   (when (equal #\: (char key (1- (length key))))
     56                     (setf key (subseq key 0 (1- (length key)))))
     57                   (push (cons key value) result)))))
     58          result)
     59      (end-of-file () (return-from read-record result)))))
     60
     61
     62
     63
     64
    5765
    5866   
  • trunk/abcl/tools/jar-size/build-metrics.out

    r13551 r13553  
    14271427abcl.jar-size: 8155389
    14281428-----
     1429real 194.98
     1430user 241.97
     1431sys 12.17
     1432changeset: 1581:4558d3d2ca0a0a6da5b0b089584cc58523d52064
     1433date: 2011-08-13 08:29 +0000
     1434svn: r13484
     1435description: Store local functions in the parent compiland, since you can't
     1436abcl.jar-size: 8150267
     1437-----
     1438real 194.44
     1439user 242.04
     1440sys 12.30
     1441changeset: 1591:271ac61fe93c86006b53a85571343c6e11e19c6d
     1442date: 2011-08-14 13:19 +0000
     1443svn: r13494
     1444description: Only evaluate atoms in the input stream once.
     1445abcl.jar-size: 8151646
     1446-----
     1447real 193.62
     1448user 241.24
     1449sys 12.22
     1450changeset: 1601:88c8e659e06749750608326495d0058c9a95afec
     1451date: 2011-08-19 15:42 +0000
     1452svn: r13511
     1453description: Re #116: while working to fix the issue, at least tell the user we're
     1454abcl.jar-size: 8158078
     1455-----
     1456real 197.90
     1457user 246.42
     1458sys 11.97
     1459changeset: 1611:ae2c27358aca112fd48b22cba92f350760bb58cf
     1460date: 2011-08-20 22:18 +0000
     1461svn: r13521
     1462description: Revert r13509 because it breaks cl-ppcre compilation and the ANSI tests.
     1463abcl.jar-size: 8282056
     1464-----
     1465real 207.14
     1466user 248.02
     1467sys 12.38
     1468changeset: 1621:77e29e2bfe758fd287ab68755cb0ee1c16569f47
     1469date: 2011-08-22 14:48 +0000
     1470svn: r13531
     1471description: Optimize the compilation of files with a large number of compilands.
     1472abcl.jar-size: 8291943
     1473-----
     1474real 206.05
     1475user 246.17
     1476sys 12.26
     1477changeset: 1631:9a3a6bc22b61557de5cfaf2029ec466aa33c5182
     1478date: 2011-08-27 23:23 +0000
     1479svn: r13541
     1480description: Convert docstrings and primitives to standard conventions.
     1481abcl.jar-size: 8305574
     1482
     1483
Note: See TracChangeset for help on using the changeset viewer.