2024-05-18 18:01:41 +02:00
|
|
|
export {
|
2024-12-24 12:51:36 +01:00
|
|
|
|
2024-05-18 18:01:41 +02:00
|
|
|
/* output nullterminated string directly from datastack
|
|
|
|
*/
|
2024-12-24 12:51:36 +01:00
|
|
|
/*
|
2024-05-18 18:01:41 +02:00
|
|
|
let print-nullterm =
|
|
|
|
λ{} : < Seq Char~Ascii~machine.Word >
|
|
|
|
~ < NullTerminatedArray machine.Word >
|
|
|
|
↦ {
|
|
|
|
while(dup) { emit; }
|
|
|
|
drop;
|
|
|
|
};
|
2024-12-24 12:51:36 +01:00
|
|
|
*/
|
2024-05-18 18:01:41 +02:00
|
|
|
}
|
|
|
|
|