Commit ffc4ec41 authored by Dave Cooper's avatar Dave Cooper

fixed problem with trickle-downs

parent 5d7b95fb
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ta2 :description
"The Gendl\" (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160125" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/javascript") (:file "source/action-object")
(:file "source/ajax") (:file "source/assembly")
(:file "source/click-mode") (:file "source/inspector")
(:file "source/object-tree") (:file "source/part-type-form")
(:file "source/publish") (:file "source/viewport")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ta2 :description
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "Dave Cooper" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20160211" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/javascript") (:file "source/action-object")
(:file "source/ajax") (:file "source/assembly")
(:file "source/click-mode") (:file "source/inspector")
(:file "source/object-tree") (:file "source/part-type-form")
(:file "source/publish") (:file "source/viewport")))
......@@ -95,7 +95,7 @@
(defmethod ,(glisp:intern (symbol-name attr-sym) :gdl-slots) ((,self-arg gdl-basis) &rest ,args-arg)
;;(declare (ignore ,args-arg))
(let ((,parent-arg (the-object ,self-arg %parent%)))
(if (null ,parent-arg) (not-handled ,self-arg ,(make-keyword attr-sym) ,args-arg)
(if (or (null ,parent-arg) ,args-arg) (not-handled ,self-arg ,(make-keyword attr-sym) ,args-arg)
(let ((,val-arg (let (*error-on-not-handled?*)
(,(glisp:intern (symbol-name attr-sym) :gdl-inputs)
,parent-arg (the-object ,self-arg :%name%) ,self-arg))))
......
......@@ -95,7 +95,7 @@
(defmethod ,(glisp:intern (symbol-name attr-sym) :gdl-slots) ((,self-arg gdl-basis) &rest ,args-arg)
;;(declare (ignore ,args-arg))
(let ((,parent-arg (the-object ,self-arg %parent%)))
(if (null ,parent-arg) (not-handled ,self-arg ,(make-keyword attr-sym) ,args-arg)
(if (or (null ,parent-arg) ,args-arg) (not-handled ,self-arg ,(make-keyword attr-sym) ,args-arg)
(,(glisp:intern (symbol-name attr-sym) :gdl-inputs)
,parent-arg (the-object ,self-arg :%name%) ,self-arg))))))))))
......
......@@ -97,6 +97,23 @@
(,self-arg gdl-basis))
(the-object ,parent-arg (fetch-input ,(make-keyword attr-sym) ,part-arg ,self-arg)))))
;;
;; FLAG -- added recently, because why wouldn't we need default message handlers for input-slots?
;;
`(unless (find-method (symbol-function ',(glisp:intern (symbol-name attr-sym) :gdl-slots))
nil (list (find-class 'gdl-basis)) nil)
(defmethod ,(glisp:intern (symbol-name attr-sym) :gdl-slots) ((,self-arg gdl-basis) &rest ,args-arg)
;;(declare (ignore ,args-arg))
(let ((,parent-arg (the-object ,self-arg %parent%)))
(if (or (null ,parent-arg) ,args-arg) (not-handled ,self-arg ,(make-keyword attr-sym) ,args-arg)
(let ((,val-arg (let (*error-on-not-handled?*)
(,(glisp:intern (symbol-name attr-sym) :gdl-inputs)
,parent-arg (the-object ,self-arg :%name%) ,self-arg))))
(if (eql ,val-arg 'gdl-rule:%not-handled%) (not-handled ,self-arg ,(make-keyword attr-sym) ,args-arg) ,val-arg))))))
`(defmethod ,(glisp:intern (symbol-name attr-sym) :gdl-slots) ((self ,name) &rest ,args-arg)
;;(declare (ignore ,args-arg))
(let ((*error-on-not-handled?* t))
......
......@@ -44,7 +44,7 @@
(defmethod ,(glisp:intern key :gdl-slots) ((,self-arg gdl-basis) &rest ,args-arg)
;;(declare (ignore ,args-arg))
(let ((,parent-arg (the-object ,self-arg %parent%)))
(if (null ,parent-arg) (not-handled ,self-arg ,(make-keyword key) ,args-arg)
(if (or (null ,parent-arg) ,args-arg) (not-handled ,self-arg ,(make-keyword key) ,args-arg)
(,(glisp:intern key :gdl-inputs)
,parent-arg (the-object ,self-arg :%name%) ,self-arg)))))) object-input-keys))))
......
((1058.035267604659 2688.5041710795895 2688.5041710795895
((1058.0352676046589 2688.5041710795876 2688.5041710795876
(:area-static-moments
#(-1.2516023374730837e-5 -1.752511252561817e-6 7.378588446727008e-5)
#(-1.2516019850438867e-5 -1.752511252561817e-6 7.378588446727008e-5)
:area-moments-of-inertia
#(45373.56521368806 15113.217286214529 28017.91238960419)
#(45373.56521368802 15113.217286214523 28017.91238960417)
:area-products-of-inertia
#(-4.3343436368559196e-4 6.358578601803488e-4 3.5709442411434127e-4)
#(-4.334343550453923e-4 6.358578601803488e-4 3.5709442502383597e-4)
:area-second-moment-about-coordinate-axii
#(43131.12967581871 73391.47760329227 60486.78249990257)
#(43131.12967581869 73391.47760329222 60486.78249990253)
:volume-static-moments
#(3.9638599881441585e-4 -1.701379783298762e-4 2.4730424297558784e-4)
#(3.9638600995572595e-4 -1.7013797992149193e-4 2.473042432029615e-4)
:volume-moments-of-inertia
#(81217.79392566209 19928.14927283348 44950.6675645201)
#(81217.79392566197 19928.149272833474 44950.667564520074)
:volume-products-of-inertia
#(-0.002630723777201638 0.001591932979262924 -0.0013632378256717916)
#(-0.0026307237699256802 0.0015919329774439345
-0.001363237813393613)
:volume-second-moment-about-coordinate-axii
#(64878.81683735359 126168.46149018215 101145.94319849556))
#(64878.81683735357 126168.46149018206 101145.94319849546))
(#(10.0 -2.00000000000001 4.4999999999999964)
#(10.000173003586115 -2.471165784895959 4.499999999999988)
#(9.879598731083746 -2.99608705449096 4.499999999999991)
......
((1089.2577092512606 1250.004916950833 1250.004916950833
((1089.3545725127021 1250.0997574550963 1250.0997574550963
(:area-static-moments
#(5112.455615205815 866.171533208656 378.0041768566916)
#(5113.352274961743 865.8324036407816 377.95281587843516)
:area-moments-of-inertia
#(85649.60020679353 23109.941945026098 7612.483746644122)
#(85657.93659656242 23111.729923894483 7612.8535821951355)
:area-products-of-inertia
#(-1568.283494521658 -1208.904950096722 9837.237648830473)
#(-1568.1106712154715 -1209.3742200726035 9834.063086284506)
:area-second-moment-about-coordinate-axii
#(30722.425691670225 93262.08395343763 108759.54215181962)
#(30724.583506089617 93270.79017875752 108769.66652045689)
:volume-static-moments
#(8367.760757611759 669.7657015327287 8.778675631858432)
#(8368.624458470109 669.4666261655432 8.750358474366562)
:volume-moments-of-inertia
#(110225.45853229248 20202.587844593923 5626.040179425969)
#(110233.34190891174 20203.97461105498 5626.179898838167)
:volume-products-of-inertia
#(-1003.89369720415 -118.95010208895464 10795.877483489843)
#(-1003.8008786745856 -119.20679676814576 10793.169500742768)
:volume-second-moment-about-coordinate-axii
#(25828.62802401989 115851.4987117185 130428.04637688643))
#(25830.154509893146 115859.52180774997 130437.31651996673))
(#(8.133830193561195 -2.0 1.448265807229958e-16)
#(8.242287563769043 -1.9997678825767906 -1.854312893450784e-17)
#(8.358730111378742 -2.1642798521024074 4.4381505953416766e-17)
......
((1089.242023596985 1252.2717410024447 1252.2717410024447
((1089.2420753485085 1252.2718386516028 1252.2718386516028
(:area-static-moments
#(5117.779175201335 866.2062474551456 378.39541467605795)
#(5117.779689434775 866.206678307373 378.39527317281846)
:area-moments-of-inertia
#(85665.97453981513 23115.39221491946 7623.055073071605)
#(85665.9847705332 23115.398102670235 7623.055355893459)
:area-products-of-inertia
#(-1567.2515736983332 -1178.3617757456918 9842.857989634238)
#(-1567.2527290179148 -1178.3634652216344 9842.86304855295)
:area-second-moment-about-coordinate-axii
#(30738.447287991065 93289.02961288673 108781.36675473455)
#(30738.45345856369 93289.04012642668 108781.38287320343)
:volume-static-moments
#(8420.30470304734 673.6124619370088 -35.82410157565081)
#(8420.306235689319 673.6133536234138 -35.82427108750301)
:volume-moments-of-inertia
#(111112.49628133452 20266.001569716875 5620.61596935377)
#(111112.5153899013 20266.01139169047 5620.616267410028)
:volume-products-of-inertia
#(-1064.9129496666117 -702.0899783013497 10873.577040538888)
#(-1064.914137137426 -702.091766239508 10873.58874703246)
:volume-second-moment-about-coordinate-axii
#(25886.61753907064 116733.11225068828 131378.49785105136))
#(25886.6276591005 116733.13165731129 131378.52678159176))
(#(9.82650956271737 -0.030340127786433975 2.0638769144578624)
#(9.79103778308162 -0.02283263958972534 2.0248382911608207)
#(9.735281003790085 -0.011031896387229002 1.9999934694978658)
......
((1089.3977970224005 1255.8028684381093 1255.8028684381093
((1089.3820805114563 1255.7977472157454 1255.7977472157454
(:area-static-moments
#(5115.601969656445 866.2839512348878 378.2857383778874)
#(5115.413032767073 866.3455159012758 378.26135738683064)
:area-moments-of-inertia
#(85682.88777983858 23121.67139070613 7639.650579791736)
#(85682.00539452476 23121.338536346946 7639.62338049118)
:area-products-of-inertia
#(-1568.1415917261743 -1176.56624283773 9846.5944319451)
#(-1568.0742711093176 -1176.7622284022204 9846.937019816467)
:area-second-moment-about-coordinate-axii
#(30761.32197049787 93322.53835963034 108804.55917054476)
#(30760.961916838132 93321.62877501598 108803.34393087175)
:volume-static-moments
#(8502.331515312608 674.4548843419894 -3.3514085255740027)
#(8502.243019156502 674.4832878453241 -3.3539069116978495)
:volume-moments-of-inertia
#(112638.76884608834 20316.046768995293 5652.401477945189)
#(112638.59979609151 20315.995536288694 5652.404942760509)
:volume-products-of-inertia
#(-1016.6150978805528 -300.54096243554034 10927.177641244152)
#(-1016.6111624405158 -300.5595630715688 10927.192173331066)
:volume-second-moment-about-coordinate-axii
#(25968.448246940476 118291.17032403346 132954.81561508361))
#(25968.400479049196 118291.00473885196 132954.59533238018))
(#(8.133830193561195 -2.0 1.0e-16)
#(8.242287563769043 -1.9997678825767906 -7.16063167706578e-17)
#(8.358730111378742 -2.1642798521024074 -9.873642959467139e-18)
......
S 1
1H,,1H;,26H/Users/dcooper8/tmp/g90257,26H/Users/dcooper8/tmp/g90257,23HHG 1
armonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,,1.,1, G 2
2HIN,1,1.,15H20160210.111800,1.D-6,21.3205116838006,,,11,0,15H20160210.1G 3
11800; G 4
1H,,1H;,27H/Users/dcooper8/tmp/g337274,27H/Users/dcooper8/tmp/g337274, G 1
23HHarmonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,, G 2
1.,1,2HIN,1,1.,15H20160211.185342,1.D-6,21.3205116838006,,,11,0,15H20160G 3
211.185342; G 4
502 1 0 0 0 0 0 000010000D 1
502 0 0 16 1 0D 2
124 17 0 0 0 0 0 000000000D 3
......
S 1
1H,,1H;,26H/Users/dcooper8/tmp/g90247,26H/Users/dcooper8/tmp/g90247,23HHG 1
armonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,,1.,1, G 2
2HIN,1,1.,15H20160210.111755,1.D-6,20.7712135760006,,,11,0,15H20160210.1G 3
11755; G 4
1H,,1H;,27H/Users/dcooper8/tmp/g337264,27H/Users/dcooper8/tmp/g337264, G 1
23HHarmonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,, G 2
1.,1,2HIN,1,1.,15H20160211.185338,1.D-6,20.7712135760006,,,11,0,15H20160G 3
211.185338; G 4
502 1 0 0 0 0 0 000010000D 1
502 0 0 442 1 0D 2
110 443 0 0 0 0 0 000010000D 3
ISO-10303-21;
HEADER;
FILE_DESCRIPTION ((), '1');
FILE_NAME ('/Users/dcooper8/tmp/g90488', '2016-02-10T11:18:14', ('Unknown'), ('Unknown'), 'HarmonyWare STEP v2.0.2', 'HarmonyWare Translators', '');
FILE_NAME ('/Users/dcooper8/tmp/g337451', '2016-02-11T18:53:53', ('Unknown'), ('Unknown'), 'HarmonyWare STEP v2.0.2', 'HarmonyWare Translators', '');
FILE_SCHEMA (('CONFIG_CONTROL_DESIGN'));
ENDSEC;
......@@ -26462,9 +26462,9 @@ DATA;
#264330 = PRODUCT_DEFINITION_FORMATION_WITH_SPECIFIED_SOURCE ('', '', #264260, .NOT_KNOWN.);
#264340 = APPROVAL_STATUS ('approved');
#264350 = APPROVAL (#264340, '');
#264360 = CALENDAR_DATE (2016, 10, 2);
#264360 = CALENDAR_DATE (2016, 11, 2);
#264370 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264380 = LOCAL_TIME (11, 18, 14., #264370);
#264380 = LOCAL_TIME (18, 53, 53., #264370);
#264390 = DATE_AND_TIME (#264360, #264380);
#264400 = APPROVAL_DATE_TIME (#264390, #264350);
#264410 = APPROVAL_ROLE ('');
......@@ -26487,9 +26487,9 @@ DATA;
#264580 = SECURITY_CLASSIFICATION ('', '', #264570);
#264590 = APPROVAL_STATUS ('approved');
#264600 = APPROVAL (#264590, '');
#264610 = CALENDAR_DATE (2016, 10, 2);
#264610 = CALENDAR_DATE (2016, 11, 2);
#264620 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264630 = LOCAL_TIME (11, 18, 14., #264620);
#264630 = LOCAL_TIME (18, 53, 53., #264620);
#264640 = DATE_AND_TIME (#264610, #264630);
#264650 = APPROVAL_DATE_TIME (#264640, #264600);
#264660 = APPROVAL_ROLE ('');
......@@ -26499,9 +26499,9 @@ DATA;
#264700 = APPROVAL_PERSON_ORGANIZATION (#264690, #264600, #264660);
#264710 = CC_DESIGN_APPROVAL (#264600, (#264580));
#264720 = DATE_TIME_ROLE ('classification_date');
#264730 = CALENDAR_DATE (2016, 10, 2);
#264730 = CALENDAR_DATE (2016, 11, 2);
#264740 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264750 = LOCAL_TIME (11, 18, 14., #264740);
#264750 = LOCAL_TIME (18, 53, 53., #264740);
#264760 = DATE_AND_TIME (#264730, #264750);
#264770 = CC_DESIGN_DATE_AND_TIME_ASSIGNMENT (#264760, #264720, (#264580));
#264780 = PERSON_AND_ORGANIZATION_ROLE ('classification_officer');
......@@ -26514,9 +26514,9 @@ DATA;
#264850 = PRODUCT_DEFINITION ('', '', #264330, #264840);
#264860 = APPROVAL_STATUS ('approved');
#264870 = APPROVAL (#264860, '');
#264880 = CALENDAR_DATE (2016, 10, 2);
#264880 = CALENDAR_DATE (2016, 11, 2);
#264890 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264900 = LOCAL_TIME (11, 18, 14., #264890);
#264900 = LOCAL_TIME (18, 53, 53., #264890);
#264910 = DATE_AND_TIME (#264880, #264900);
#264920 = APPROVAL_DATE_TIME (#264910, #264870);
#264930 = APPROVAL_ROLE ('');
......@@ -26526,9 +26526,9 @@ DATA;
#264970 = APPROVAL_PERSON_ORGANIZATION (#264960, #264870, #264930);
#264980 = CC_DESIGN_APPROVAL (#264870, (#264850));
#264990 = DATE_TIME_ROLE ('creation_date');
#265000 = CALENDAR_DATE (2016, 10, 2);
#265000 = CALENDAR_DATE (2016, 11, 2);
#265010 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#265020 = LOCAL_TIME (11, 18, 14., #265010);
#265020 = LOCAL_TIME (18, 53, 53., #265010);
#265030 = DATE_AND_TIME (#265000, #265020);
#265040 = CC_DESIGN_DATE_AND_TIME_ASSIGNMENT (#265030, #264990, (#264850));
#265050 = PERSON_AND_ORGANIZATION_ROLE ('creator');
((341.37194260881034 194.8633427541621 194.8633427541621
((341.3719578719625 194.8633427541621 194.8633427541621
(:area-static-moments
#(1879.1168523880797 1545.0723989326125 1706.8612609970507)
#(1879.1169066926623 1545.072383308333 1706.8610828683593)
:area-moments-of-inertia
#(11032.38304900525 8729.799105196384 12028.61953822371)
#(11032.38322375188 8729.798625181777 12028.617878487936)
:area-products-of-inertia
#(7725.364749011742 9395.588848375117 8571.077799155302)
#(7725.363076991063 9395.587798961393 8571.077531788247)
:area-second-moment-about-coordinate-axii
#(20758.418643420096 23061.002587228966 19762.182154201644)
#(20758.416503669716 23061.00110223982 19762.181848933666)
:volume-static-moments
#(1167.0325469794298 916.5378499401291 974.3167137708108)
:volume-moments-of-inertia
......
......@@ -9,7 +9,7 @@
:area-second-moment-about-coordinate-axii
#(582.7142401912969 3193.401207624094 2765.8195696330636)
:volume-static-moments
#(11.238073550321875 0.22449654149750825 9.797581696355303)
#(11.238073550321872 0.22449654149750825 9.797581696355303)
:volume-moments-of-inertia
#(116.98462650227934 1.1132978321765357 39.899144223061754)
:volume-products-of-inertia
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment