| /dports/lang/racket-minimal/racket-8.3/src/bc/src/ |
| H A D | compile.c | 580 Scheme_With_Continuation_Mark *wcm; in with_cont_mark_compile() local
601 wcm = MALLOC_ONE_TAGGED(Scheme_With_Continuation_Mark); in with_cont_mark_compile()
602 wcm->so.type = scheme_with_cont_mark_type; in with_cont_mark_compile()
603 wcm->key = key; in with_cont_mark_compile()
604 wcm->val = val; in with_cont_mark_compile()
605 wcm->body = expr; in with_cont_mark_compile()
607 return (Scheme_Object *)wcm; in with_cont_mark_compile()
|
| H A D | eval.c | 3250 # define wcm ((Scheme_With_Continuation_Mark *)obj) in scheme_do_eval() macro
3255 key = wcm->key; in scheme_do_eval()
3258 val = wcm->val; in scheme_do_eval()
3270 obj = wcm->body; in scheme_do_eval()
3271 # undef wcm in scheme_do_eval()
3318 # define wcm ((Scheme_With_Continuation_Mark *)obj) in scheme_do_eval() macro
3322 mark_key = wcm->key; in scheme_do_eval()
3328 mark_val = wcm->val; in scheme_do_eval()
3341 obj = wcm->body; in scheme_do_eval()
3343 #undef wcm in scheme_do_eval()
|
| H A D | jit.c | 2666 Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj; in scheme_generate() local
2671 scheme_generate_two_args(wcm->key, wcm->val, jitter, 1, 0); in scheme_generate()
2693 return scheme_generate(wcm->body, jitter, is_tail, wcm_may_replace, in scheme_generate()
3330 Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj; in scheme_generate() local
3339 scheme_generate_non_tail(wcm->key, jitter, 0, 1, 0); /* sync'd below */ in scheme_generate()
3343 scheme_generate_non_tail(wcm->val, jitter, 0, 1, 0); /* sync'd below */ in scheme_generate()
3350 if (SCHEME_TYPE(wcm->key) < _scheme_values_types_) { in scheme_generate()
3385 return scheme_generate(wcm->body, jitter, is_tail, wcm_may_replace, in scheme_generate()
|
| H A D | print.c | 2933 Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj; in print() local
2936 print(scheme_protect_quote(wcm->key), notdisplay, 1, NULL, mt, pp); in print()
2937 print(scheme_protect_quote(wcm->val), notdisplay, 1, NULL, mt, pp); in print()
2938 closed = print(scheme_protect_quote(wcm->body), notdisplay, 1, NULL, mt, pp); in print()
2986 Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj; in print() local
2991 print(wcm->key, notdisplay, 1, NULL, mt, pp); in print()
2992 print(wcm->val, notdisplay, 1, NULL, mt, pp); in print()
2993 closed = print(wcm->body, notdisplay, 1, NULL, mt, pp); in print()
|
| /dports/lang/racket/racket-8.3/src/bc/src/ |
| H A D | eval.c | 3250 # define wcm ((Scheme_With_Continuation_Mark *)obj) in scheme_do_eval() macro
3255 key = wcm->key; in scheme_do_eval()
3258 val = wcm->val; in scheme_do_eval()
3270 obj = wcm->body; in scheme_do_eval()
3271 # undef wcm in scheme_do_eval()
3318 # define wcm ((Scheme_With_Continuation_Mark *)obj) in scheme_do_eval() macro
3322 mark_key = wcm->key; in scheme_do_eval()
3328 mark_val = wcm->val; in scheme_do_eval()
3341 obj = wcm->body; in scheme_do_eval()
3343 #undef wcm in scheme_do_eval()
|
| H A D | jit.c | 2666 Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj; in scheme_generate() local
2671 scheme_generate_two_args(wcm->key, wcm->val, jitter, 1, 0); in scheme_generate()
2693 return scheme_generate(wcm->body, jitter, is_tail, wcm_may_replace, in scheme_generate()
3330 Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj; in scheme_generate() local
3339 scheme_generate_non_tail(wcm->key, jitter, 0, 1, 0); /* sync'd below */ in scheme_generate()
3343 scheme_generate_non_tail(wcm->val, jitter, 0, 1, 0); /* sync'd below */ in scheme_generate()
3350 if (SCHEME_TYPE(wcm->key) < _scheme_values_types_) { in scheme_generate()
3385 return scheme_generate(wcm->body, jitter, is_tail, wcm_may_replace, in scheme_generate()
|
| H A D | print.c | 2933 Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj; in print() local
2936 print(scheme_protect_quote(wcm->key), notdisplay, 1, NULL, mt, pp); in print()
2937 print(scheme_protect_quote(wcm->val), notdisplay, 1, NULL, mt, pp); in print()
2938 closed = print(scheme_protect_quote(wcm->body), notdisplay, 1, NULL, mt, pp); in print()
2986 Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj; in print() local
2991 print(wcm->key, notdisplay, 1, NULL, mt, pp); in print()
2992 print(wcm->val, notdisplay, 1, NULL, mt, pp); in print()
2993 closed = print(wcm->body, notdisplay, 1, NULL, mt, pp); in print()
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
| H A D | exx_gs.f90 | 1432 INTEGER i, bcm(3), wcm(3) local
1444 wcm(1) = IDNINT( wcs(1)*DBLE(nr1s) )
1445 wcm(2) = IDNINT( wcs(2)*DBLE(nr2s) )
1446 wcm(3) = IDNINT( wcs(3)*DBLE(nr3s) )
1449 tran(i) = bcm(i) - wcm(i)
|
| /dports/sysutils/perp/perp-2.07/ |
| H A D | README | 4 # wcm, 2009.12.28 - 2013.01.11
|
| H A D | INSTALL | 4 # wcm, 2009.12.23 - 2013.01.09
|
| /dports/science/tinker/tinker/source/ |
| H A D | final.f | 837 if (allocated(wcm)) deallocate (wcm)
|
| H A D | mdsave.f | 179 write (ivel,210) i,(wcm(j,i),j=1,3)
|
| /dports/lang/racket/racket-8.3/share/pkgs/drracket/drracket/private/ |
| H A D | eval-helpers-and-pref-init.rkt | 220 [wcm (syntax-shift-phase-level #'with-continuation-mark phase)]
223 (wcm et-key
|
| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/model/ |
| H A D | deriv-c.rkt | 106 ;; - (p:wcm <Base> Deriv Deriv Deriv)
107 (struct p:wcm prule (key mark body) #:transparent)
|
| /dports/www/py-protego/Protego-0.1.16/tests/test_data/ |
| H A D | www.cox.com | 46 Disallow: /wcm/en/business/datasheet/hamptonroads/CC7B-0214A_ChannelLineup_Hampton%20Roads.pdf
|
| H A D | www.medtronic.com | 14 Disallow: /wcm/
|
| /dports/x11-fm/wcmcommander/WCMCommander-release-0.20.0/debian/ |
| H A D | manpage.sgml.ex | 30 <!ENTITY dhpackage "wcm">
|
| /dports/games/hyperrogue/hyperrogue-12.0f/ |
| H A D | goldberg.cpp | 519 auto &wcm = get_mapping(at2 + eudir(d)); in extend_map() local
520 if(wcm.cw.at && length(wcm.start - at2) < bdist) in extend_map()
521 bdist = length(wcm.start - at2), bdir = d; in extend_map()
|
| /dports/sysutils/perp/perp-2.07/lasagna/ |
| H A D | README | 2 # wcm, 2009.12.20 - 2013.01.08
|
| /dports/x11-fm/wcmcommander/WCMCommander-release-0.20.0/install-files/share/wcm/lang/ |
| H A D | help.ru | 4 /c{<shead><sbold>wcm/@linderdaum.com/n}
|
| /dports/www/fswiki/wiki3_6_2/config/ |
| H A D | mime.dat | 159 wcm=application/vnd.ms-works
|
| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger/tests/macro-debugger/tests/ |
| H A D | syntax-basic.rkt | 60 (testK "wcm"
252 (testK "wcm"
|
| H A D | syntax-errors.rkt | 69 "wcm misapplied"
|
| /dports/lang/racket/racket-8.3/share/pkgs/errortrace-lib/errortrace/ |
| H A D | errortrace-lib.rkt | 168 … [wcm (syntax-shift-phase-level #'with-continuation-mark (- phase base-phase))])
172 (wcm et-key
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/stepper/ |
| H A D | DESIGN-NOTES | 458 expression that the wcm wraps. Let me give an example:
464 (define b (wcm <must grab a> (+ 3 4))))
498 in a wcm that captures all free vars. No problemo. Normal units are
522 (wcm blah ; including imported vars
731 Why, for the love of God, do we need to put a wcm around a quote? I can
739 [Later Note: This is preposterous. Of course I need a wcm there, to
|