Overview
| Comment: | Change how quote names are generated. |
|---|---|
| Timelines: | family | ancestors | descendants | both | modules |
| Files: | files | file ages | folders |
| SHA3-256: |
8c27f5a80cce371c5528e1dda68b2f4e |
| User & Date: | robin.hansen on 2021-02-05 12:52:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-05
| ||
| 14:46 | Built test case to check if name mangling works. Implementation to follow. check-in: 8a801a61d4 user: robin.hansen tags: modules | |
| 12:52 | Change how quote names are generated. check-in: 8c27f5a80c user: robin.hansen tags: modules | |
| 11:33 | Prepare for name mangling in qualifier step. check-in: 7b1a6816a6 user: robin.hansen tags: modules | |
Changes
Modified src/Play/Qualifier.elm from [8e24e7430a] to [a9af1a5f84].
463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 |
, qualifiedWords
, Ok (GetMember typeName memberName) :: qualifiedNodes
)
Parser.Quotation sourceLocation quotImpl ->
let
quoteName =
currentDefName ++ "__" ++ "quote" ++ String.fromInt availableQuoteId
( newWordsAfterQuot, qualifiedQuotImplResult ) =
initQualifyNode quoteName ast qualifiedWords quotImpl
in
case qualifiedQuotImplResult of
Ok [ Word _ wordRef ] ->
case Dict.get wordRef newWordsAfterQuot of
|
> | > > > |
463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 |
, qualifiedWords
, Ok (GetMember typeName memberName) :: qualifiedNodes
)
Parser.Quotation sourceLocation quotImpl ->
let
quoteName =
if String.startsWith "quote:/" currentDefName then
currentDefName ++ "/" ++ String.fromInt availableQuoteId
else
"quote:/" ++ currentDefName ++ "/" ++ String.fromInt availableQuoteId
( newWordsAfterQuot, qualifiedQuotImplResult ) =
initQualifyNode quoteName ast qualifiedWords quotImpl
in
case qualifiedQuotImplResult of
Ok [ Word _ wordRef ] ->
case Dict.get wordRef newWordsAfterQuot of
|
Modified tests/Test/Qualifier.elm from [64da3c24c7] to [c36fbff834].
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
...
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
|
, { name = "main"
, metadata =
Metadata.default
|> Metadata.asEntryPoint
, implementation =
SoloImpl
[ Integer emptyRange 1
, WordRef emptyRange "main__quote2"
, Word emptyRange "apply-to-num"
, WordRef emptyRange "main__quote1"
, Word emptyRange "apply-to-num"
]
}
, { name = "main__quote2"
, metadata =
Metadata.default
|> Metadata.isQuoted
, implementation =
SoloImpl
[ Integer emptyRange 1
, Builtin emptyRange Builtin.Plus
]
}
, { name = "main__quote1"
, metadata =
Metadata.default
|> Metadata.isQuoted
, implementation =
SoloImpl
[ Integer emptyRange 1
, Builtin emptyRange Builtin.Minus
................................................................................
[ { name = "main"
, metadata =
Metadata.default
|> Metadata.asEntryPoint
, implementation =
SoloImpl
[ Integer emptyRange 1
, WordRef emptyRange "main__quote1"
, Builtin emptyRange Builtin.Apply
]
}
, { name = "main__quote1"
, metadata =
Metadata.default
|> Metadata.isQuoted
, implementation =
SoloImpl
[ Integer emptyRange 1
, WordRef emptyRange "main__quote1__quote1"
, Builtin emptyRange Builtin.Apply
, Builtin emptyRange Builtin.Plus
]
}
, { name = "main__quote1__quote1"
, metadata =
Metadata.default
|> Metadata.isQuoted
, implementation =
SoloImpl
[ Integer emptyRange 1
, Builtin emptyRange Builtin.Plus
|
|
|
|
|
|
|
|
|
|
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
...
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
|
, { name = "main"
, metadata =
Metadata.default
|> Metadata.asEntryPoint
, implementation =
SoloImpl
[ Integer emptyRange 1
, WordRef emptyRange "quote:/main/2"
, Word emptyRange "apply-to-num"
, WordRef emptyRange "quote:/main/1"
, Word emptyRange "apply-to-num"
]
}
, { name = "quote:/main/2"
, metadata =
Metadata.default
|> Metadata.isQuoted
, implementation =
SoloImpl
[ Integer emptyRange 1
, Builtin emptyRange Builtin.Plus
]
}
, { name = "quote:/main/1"
, metadata =
Metadata.default
|> Metadata.isQuoted
, implementation =
SoloImpl
[ Integer emptyRange 1
, Builtin emptyRange Builtin.Minus
................................................................................
[ { name = "main"
, metadata =
Metadata.default
|> Metadata.asEntryPoint
, implementation =
SoloImpl
[ Integer emptyRange 1
, WordRef emptyRange "quote:/main/1"
, Builtin emptyRange Builtin.Apply
]
}
, { name = "quote:/main/1"
, metadata =
Metadata.default
|> Metadata.isQuoted
, implementation =
SoloImpl
[ Integer emptyRange 1
, WordRef emptyRange "quote:/main/1/1"
, Builtin emptyRange Builtin.Apply
, Builtin emptyRange Builtin.Plus
]
}
, { name = "quote:/main/1/1"
, metadata =
Metadata.default
|> Metadata.isQuoted
, implementation =
SoloImpl
[ Integer emptyRange 1
, Builtin emptyRange Builtin.Plus
|